diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-01-23 04:35:28 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-01-23 04:35:28 +0100 |
commit | d8bbd9bffcea30f71e984b7ba27769b14afe67a2 (patch) | |
tree | 3a6e420bda0803f6fc9270a09ee14058fded3710 /src/vhdl/iirs.adb | |
parent | b329c6823455e151fa85c42393973809729a1f88 (diff) | |
download | ghdl-d8bbd9bffcea30f71e984b7ba27769b14afe67a2.tar.gz ghdl-d8bbd9bffcea30f71e984b7ba27769b14afe67a2.tar.bz2 ghdl-d8bbd9bffcea30f71e984b7ba27769b14afe67a2.zip |
iirs: add base_element_declaration to record_element_constraint.
Diffstat (limited to 'src/vhdl/iirs.adb')
-rw-r--r-- | src/vhdl/iirs.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/iirs.adb b/src/vhdl/iirs.adb index f4e30ba30..bafcbc6e0 100644 --- a/src/vhdl/iirs.adb +++ b/src/vhdl/iirs.adb @@ -2482,7 +2482,7 @@ package body Iirs is pragma Assert (Target /= Null_Iir); pragma Assert (Has_Element_Declaration (Get_Kind (Target)), "no field Element_Declaration"); - return Get_Field2 (Target); + return Get_Field5 (Target); end Get_Element_Declaration; procedure Set_Element_Declaration (Target : Iir; El : Iir) is @@ -2490,7 +2490,7 @@ package body Iirs is pragma Assert (Target /= Null_Iir); pragma Assert (Has_Element_Declaration (Get_Kind (Target)), "no field Element_Declaration"); - Set_Field2 (Target, El); + Set_Field5 (Target, El); end Set_Element_Declaration; function Get_Selected_Element (Target : Iir) return Iir is |