diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-02-17 06:55:21 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-02-17 22:09:54 +0100 |
commit | 6ca409f3359d31ddd2815f5bf42973901923c59d (patch) | |
tree | b2e6a14b0c1cbeebec04848909f75355f74769f4 /src/vhdl/translate/trans-chap4.adb | |
parent | d5b802ac3d13375378c3ef66ea178a803d5e33b3 (diff) | |
download | ghdl-6ca409f3359d31ddd2815f5bf42973901923c59d.tar.gz ghdl-6ca409f3359d31ddd2815f5bf42973901923c59d.tar.bz2 ghdl-6ca409f3359d31ddd2815f5bf42973901923c59d.zip |
vhdl08: unbounded records - WIP
Diffstat (limited to 'src/vhdl/translate/trans-chap4.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap4.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb index 669f83d25..142b8c7a0 100644 --- a/src/vhdl/translate/trans-chap4.adb +++ b/src/vhdl/translate/trans-chap4.adb @@ -44,7 +44,8 @@ package body Trans.Chap4 is begin if Is_Complex_Type (Tinfo) then case Tinfo.Type_Mode is - when Type_Mode_Fat_Array => + when Type_Mode_Unbounded_Array + | Type_Mode_Unbounded_Record => return Tinfo.Ortho_Type (Kind); when Type_Mode_Record | Type_Mode_Array @@ -302,7 +303,7 @@ package body Trans.Chap4 is Targ : Mnode; begin -- Cannot allocate unconstrained object (since size is unknown). - pragma Assert (Type_Info.Type_Mode /= Type_Mode_Fat_Array); + pragma Assert (Type_Info.Type_Mode not in Type_Mode_Unbounded); if not Is_Complex_Type (Type_Info) then -- Object is not complex. @@ -487,7 +488,7 @@ package body Trans.Chap4 is end if; if Is_Complex_Type (Type_Info) - and then Type_Info.Type_Mode /= Type_Mode_Fat_Array + and then Type_Info.Type_Mode not in Type_Mode_Unbounded then -- FIXME: avoid allocation if the value is a string and -- the object is a constant @@ -541,7 +542,7 @@ package body Trans.Chap4 is else Value_Node := Chap7.Translate_Expression (Value, Obj_Type); - if Type_Info.Type_Mode = Type_Mode_Fat_Array then + if Type_Info.Type_Mode in Type_Mode_Unbounded then declare S : Mnode; begin |