diff options
| -rw-r--r-- | src/vhdl/sem_types.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/sem_types.adb b/src/vhdl/sem_types.adb index b14a7010b..04cb74d47 100644 --- a/src/vhdl/sem_types.adb +++ b/src/vhdl/sem_types.adb @@ -1393,6 +1393,7 @@ package body Sem_Types is Set_Type (New_El, Get_Type (El)); Set_Base_Element_Declaration (New_El, Get_Base_Element_Declaration (El)); + Set_Element_Position (New_El, Get_Element_Position (El)); Append_Element (New_El_List, New_El); end loop; end Copy_Record_Elements_Declaration_List; |