diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-11-27 21:09:18 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-11-27 21:09:18 +0100 |
commit | 93e1e6fa9bd08d36307bd4767e94203ca123fbd5 (patch) | |
tree | e531662781e88c25347bc8653de19e72c3d79009 /src/vhdl/translate/trans-chap3.adb | |
parent | 5e4967dda119ded532aca66be33cf5f8977d43b5 (diff) | |
download | ghdl-93e1e6fa9bd08d36307bd4767e94203ca123fbd5.tar.gz ghdl-93e1e6fa9bd08d36307bd4767e94203ca123fbd5.tar.bz2 ghdl-93e1e6fa9bd08d36307bd4767e94203ca123fbd5.zip |
trans-chap3: unbox recod in Get_Composite_Base.
Fix #467
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index cd350565f..aa2c6ba1d 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -164,7 +164,7 @@ package body Trans.Chap3 is -- Note: a fat array can only be at the top of a complex type; -- the bounds must have been set. New_Association - (Assoc, M2Addr (Chap3.Unbox_Record (Chap3.Get_Composite_Base (Var)))); + (Assoc, M2Addr (Chap3.Get_Composite_Base (Var))); if Binfo.Type_Mode in Type_Mode_Unbounded then New_Association (Assoc, M2Addr (Chap3.Get_Composite_Bounds (Var))); @@ -2744,9 +2744,10 @@ package body Trans.Chap3 is Info, Kind, Info.B.Base_Type (Kind), Info.B.Base_Ptr_Type (Kind)); end; - when Type_Mode_Array - | Type_Mode_Record => + when Type_Mode_Array => return Arr; + when Type_Mode_Record => + return Unbox_Record (Arr); when others => raise Internal_Error; end case; |