diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-10-24 19:19:25 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-10-24 19:19:25 +0200 |
commit | 91f9de47026f17a105f8cd90ead87b79cf2aa63c (patch) | |
tree | 3eaccdff62b9e2a2102f2fef8f454c1ed699ee37 /src/vhdl | |
parent | 1da2fc31b3c4427c96df5972a270334ed1340b84 (diff) | |
download | ghdl-91f9de47026f17a105f8cd90ead87b79cf2aa63c.tar.gz ghdl-91f9de47026f17a105f8cd90ead87b79cf2aa63c.tar.bz2 ghdl-91f9de47026f17a105f8cd90ead87b79cf2aa63c.zip |
sem_types: set record element position when creating subtype.
Diffstat (limited to 'src/vhdl')
-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; |