diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-01-11 06:38:23 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-01-11 12:51:48 +0100 |
commit | 5d61676973add240db798b79302add98b10b1375 (patch) | |
tree | 586fc8792120d09eb2bee0e65ff375e42aa21881 /src/vhdl/translate/trans-helpers2.adb | |
parent | 97314e1e9d5cf748c83ba63da8a449e339783009 (diff) | |
download | ghdl-5d61676973add240db798b79302add98b10b1375.tar.gz ghdl-5d61676973add240db798b79302add98b10b1375.tar.bz2 ghdl-5d61676973add240db798b79302add98b10b1375.zip |
Rework array/record type mode to improve support of constrained records.
Diffstat (limited to 'src/vhdl/translate/trans-helpers2.adb')
-rw-r--r-- | src/vhdl/translate/trans-helpers2.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans-helpers2.adb b/src/vhdl/translate/trans-helpers2.adb index d332711ac..bcbb1f907 100644 --- a/src/vhdl/translate/trans-helpers2.adb +++ b/src/vhdl/translate/trans-helpers2.adb @@ -237,11 +237,9 @@ package body Trans.Helpers2 is Type_Info := Get_Info (Targ_Type); Res := E2M (Val, Type_Info, Mode_Value); case Type_Info.Type_Mode is - when Type_Mode_Array - | Type_Mode_Unbounded_Array => + when Type_Mode_Arrays => Res := Chap3.Get_Composite_Base (Res); - when Type_Mode_Record - | Type_Mode_Unbounded_Record => + when Type_Mode_Records => Res := Stabilize (Res); when others => -- Not a composite type! |