diff options
| author | Tristan Gingold | 2015-07-17 08:35:04 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2015-07-17 08:35:04 +0200 |
| commit | 64fa65e1395bef4f05c51bc19d9a46d6003339ee (patch) | |
| tree | 98537c3e9f945e85aaf116966a32b56a51d2dd39 /src/vhdl/translate/trans-chap7.adb | |
| parent | db08111a55bff4fcee5f268b44e247e5332d1e69 (diff) | |
| download | ghdl-64fa65e1395bef4f05c51bc19d9a46d6003339ee.tar.gz ghdl-64fa65e1395bef4f05c51bc19d9a46d6003339ee.tar.bz2 ghdl-64fa65e1395bef4f05c51bc19d9a46d6003339ee.zip | |
Do not create a transient type for strings.
Diffstat (limited to 'src/vhdl/translate/trans-chap7.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index c11f930..a3ae289 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -41,8 +41,7 @@ package body Trans.Chap7 is procedure Copy_Range (Dest : Mnode; Src : Mnode); function Translate_Static_Implicit_Conv - (Expr : O_Cnode; Expr_Type : Iir; Res_Type : Iir) - return O_Cnode + (Expr : O_Cnode; Expr_Type : Iir; Res_Type : Iir) return O_Cnode is Expr_Info : Type_Info_Acc; Res_Info : Type_Info_Acc; @@ -226,7 +225,7 @@ package body Trans.Chap7 is List : O_Array_Aggr_List; Res : O_Cnode; begin - Chap3.Translate_Anonymous_Type_Definition (Aggr_Type, True); + Chap3.Translate_Anonymous_Type_Definition (Aggr_Type, False); Start_Array_Aggr (List, Get_Ortho_Type (Aggr_Type, Mode_Value)); Translate_Static_Aggregate_1 @@ -244,7 +243,7 @@ package body Trans.Chap7 is List : O_Array_Aggr_List; Res : O_Cnode; begin - Chap3.Translate_Anonymous_Type_Definition (Aggr_Type, True); + Chap3.Translate_Anonymous_Type_Definition (Aggr_Type, False); Start_Array_Aggr (List, Get_Ortho_Type (Aggr_Type, Mode_Value)); for I in Natural loop @@ -441,7 +440,7 @@ package body Trans.Chap7 is if Get_Constraint_State (Str_Type) = Fully_Constrained and then Get_Type_Staticness (Get_Index_Type (Str_Type, 0)) = Locally then - Chap3.Create_Array_Subtype (Str_Type, True); + Chap3.Create_Array_Subtype (Str_Type, False); case Get_Kind (Str) is when Iir_Kind_String_Literal8 => Res := Translate_Static_String_Literal8 (Str); |