diff options
Diffstat (limited to 'testsuite/get_entities.adb')
| -rw-r--r-- | testsuite/get_entities.adb | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/testsuite/get_entities.adb b/testsuite/get_entities.adb index a874f22..b34be08 100644 --- a/testsuite/get_entities.adb +++ b/testsuite/get_entities.adb @@ -55,7 +55,7 @@ procedure get_entities is end if; end Get_End; - type State_Type is (Idle, Have_Entity, Have_Name, In_Entity, Have_End); + type State_Type is (Idle, Have_Entity, Have_Name, In_Entity); State : State_Type; Top_Level_Entity : Boolean; @@ -194,14 +194,12 @@ procedure get_entities is if Port > 0 then Top_Level_Entity := False; end if; - if End_Pos > 0 then - State := Have_End; - end if; - when Have_End => - if Top_Level_Entity then -- write name to stdout - Last_Entity := Name; + if End_Pos > 0 then + if Top_Level_Entity then -- write name to stdout + Last_Entity := Name; + end if; + State := Idle; end if; - State := Idle; end Case; exit when End_Of_File (File); end; |