diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-12-09 17:26:08 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-12-09 17:26:08 +0100 |
| commit | f7ee7d70756e4dd2ebcaeb6a0d8292a73678956c (patch) | |
| tree | 6ea006fcf43fc2c3c106106d07df91c4d5ee358f /src/vhdl/translate/trans-chap3.adb | |
| parent | a7e43bb203602e382d07a72cfd16dcae386d99a7 (diff) | |
| download | ghdl-f7ee7d70756e4dd2ebcaeb6a0d8292a73678956c.tar.gz ghdl-f7ee7d70756e4dd2ebcaeb6a0d8292a73678956c.tar.bz2 ghdl-f7ee7d70756e4dd2ebcaeb6a0d8292a73678956c.zip | |
record ownership of record element constraints.
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index c9b5c9ffb..8b6ff6400 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -1384,14 +1384,6 @@ package body Trans.Chap3 is -- The subtype is simply an alias. -- In both cases, use the same representation as its type mark. - for I in Flist_First .. Flist_Last (El_Blist) loop - B_El := Get_Nth_Element (El_Blist, I); - El := Get_Nth_Element (El_List, I); - if El /= B_El then - Set_Info (El, Get_Info (B_El)); - end if; - end loop; - return; end if; |