diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-09-02 18:25:25 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-09-02 18:25:25 +0200 |
| commit | 510ff8938793c0cc883bdf2a5f5adfdd95f77880 (patch) | |
| tree | f222f11ad129f907a127474855313fafa974c9af /src/vhdl/translate/trans-chap4.adb | |
| parent | 5bd3c2ccf36ce92257616c709460b0006f4f1f7f (diff) | |
| download | ghdl-510ff8938793c0cc883bdf2a5f5adfdd95f77880.tar.gz ghdl-510ff8938793c0cc883bdf2a5f5adfdd95f77880.tar.bz2 ghdl-510ff8938793c0cc883bdf2a5f5adfdd95f77880.zip | |
Translate: explicitly clean transient types.
Diffstat (limited to 'src/vhdl/translate/trans-chap4.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap4.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb index 34521c0d5..848daf8f0 100644 --- a/src/vhdl/translate/trans-chap4.adb +++ b/src/vhdl/translate/trans-chap4.adb @@ -464,7 +464,7 @@ package body Trans.Chap4 is Aggr_Type : Iir; begin Aggr_Type := Get_Type (Value); - Chap3.Create_Array_Subtype (Aggr_Type, True); + Chap3.Create_Array_Subtype (Aggr_Type); Name_Node := Stabilize (Name); New_Assign_Stmt (M2Lp (Chap3.Get_Array_Bounds (Name_Node)), @@ -502,7 +502,6 @@ package body Trans.Chap4 is else Chap3.Translate_Object_Copy (Name, Value_Node, Obj_Type); end if; - Destroy_Local_Transient_Types; end if; end Elab_Object_Init; @@ -2264,8 +2263,8 @@ package body Trans.Chap4 is (Mark3, Get_Identifier (Get_Association_Interface (Assoc))); -- Handle anonymous subtypes. - Chap3.Translate_Anonymous_Type_Definition (Out_Type, False); - Chap3.Translate_Anonymous_Type_Definition (In_Type, False); + Chap3.Translate_Anonymous_Type_Definition (Out_Type); + Chap3.Translate_Anonymous_Type_Definition (In_Type); Out_Info := Get_Info (Out_Type); In_Info := Get_Info (In_Type); |