diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-12-07 05:23:57 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-12-07 05:23:57 +0100 |
commit | 606d84285a70c64d1eb57d9e4f908e986cd2b287 (patch) | |
tree | f6863fdb62391d7e91c0f4d21f8a67d28c34523d /src/vhdl/translate/trans-chap8.adb | |
parent | 3276b70eb3495f9ec871ba65003315acd499af5a (diff) | |
download | ghdl-606d84285a70c64d1eb57d9e4f908e986cd2b287.tar.gz ghdl-606d84285a70c64d1eb57d9e4f908e986cd2b287.tar.bz2 ghdl-606d84285a70c64d1eb57d9e4f908e986cd2b287.zip |
translate: renaming, support constrained unbounded record aggregates.
Diffstat (limited to 'src/vhdl/translate/trans-chap8.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index 4b57570f6..ef2f79d4f 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -2811,7 +2811,7 @@ package body Trans.Chap8 is -- FIXME: do not allocate bounds if static. if Mode = Mode_Value then if Get_Type_Staticness (Actual_Type) >= Globally then - Chap3.Create_Array_Subtype (Actual_Type); + Chap3.Create_Composite_Subtype (Actual_Type); Bounds := Chap3.Get_Composite_Type_Bounds (Actual_Type); Chap3.Translate_Object_Allocation |