diff options
Diffstat (limited to 'src/vhdl/parse.adb')
| -rw-r--r-- | src/vhdl/parse.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb index e2c3a51f7..e459e3cbd 100644 --- a/src/vhdl/parse.adb +++ b/src/vhdl/parse.adb @@ -2154,7 +2154,6 @@ package body Parse is Res := Create_Iir (Iir_Kind_Record_Type_Definition); Set_Location (Res); El_List := Create_Iir_List; - Set_Elements_Declaration_List (Res, El_List); -- Skip 'record' Scan; @@ -2201,6 +2200,8 @@ package body Parse is exit when Current_Token = Tok_End; end loop; + Set_Elements_Declaration_List (Res, List_To_Flist (El_List)); + -- Skip 'end' Scan_Expect (Tok_Record); Set_End_Has_Reserved_Id (Res, True); |