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-chap5.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-chap5.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap5.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index c85ed26f0..cd02cf600 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -544,7 +544,7 @@ package body Trans.Chap5 is Bounds_Copy : Mnode; begin if Is_Fully_Constrained_Type (Actual_Type) then - Chap3.Create_Array_Subtype (Actual_Type); + Chap3.Create_Composite_Subtype (Actual_Type); Bounds := Chap3.Get_Composite_Type_Bounds (Actual_Type); Tinfo := Get_Info (Actual_Type); if Save @@ -636,14 +636,14 @@ package body Trans.Chap5 is Actual_Type : constant Iir := Get_Type (Get_Default_Value (Port)); begin - Chap3.Create_Array_Subtype (Actual_Type); + Chap3.Create_Composite_Subtype (Actual_Type); Bounds := Chap3.Get_Composite_Type_Bounds (Actual_Type); end; when Iir_Kind_Association_Element_By_Individual => declare Actual_Type : constant Iir := Get_Actual_Type (Assoc); begin - Chap3.Create_Array_Subtype (Actual_Type); + Chap3.Create_Composite_Subtype (Actual_Type); Bounds := Chap3.Get_Composite_Type_Bounds (Actual_Type); end; end case; @@ -829,7 +829,7 @@ package body Trans.Chap5 is Chap4.Allocate_Complex_Object (Formal_Type, Alloc_System, Formal_Node); else - Chap3.Create_Array_Subtype (Obj_Type); + Chap3.Create_Composite_Subtype (Obj_Type); Bounds := Chap3.Get_Composite_Type_Bounds (Obj_Type); Chap3.Translate_Object_Allocation (Formal_Node, Alloc_System, Formal_Type, Bounds); |