diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-01-17 06:34:47 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-01-17 06:34:47 +0100 |
commit | 6487c7008b36ed7a94a59b3b02bb7e7b28fe4ac8 (patch) | |
tree | a6fa300d314644069585852959c571345b9b7491 /src/vhdl/translate/trans-chap8.adb | |
parent | 4d52610e330ab24aea76eaae8295fd7771beedda (diff) | |
download | ghdl-6487c7008b36ed7a94a59b3b02bb7e7b28fe4ac8.tar.gz ghdl-6487c7008b36ed7a94a59b3b02bb7e7b28fe4ac8.tar.bz2 ghdl-6487c7008b36ed7a94a59b3b02bb7e7b28fe4ac8.zip |
Translate; properly separates translation of types from translation of subtypes.
Diffstat (limited to 'src/vhdl/translate/trans-chap8.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index c78e270a0..f1f1b3839 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -973,7 +973,7 @@ package body Trans.Chap8 is E : O_Enode; Temp : Mnode; begin - Chap3.Translate_Anonymous_Type_Definition (Targ_Type); + Chap3.Translate_Anonymous_Subtype_Definition (Targ_Type, False); -- Use a temporary variable, to avoid overlap. Temp := Create_Temp (Get_Info (Targ_Type)); @@ -2767,7 +2767,7 @@ package body Trans.Chap8 is -- For individual associations, be sure the type is translated. -- That's required for slices in case of array conversion. if Formal /= Base_Formal then - Chap3.Translate_Anonymous_Type_Definition (Formal_Type); + Chap3.Translate_Anonymous_Subtype_Definition (Formal_Type, False); end if; -- Evaluate the actual. @@ -4187,7 +4187,7 @@ package body Trans.Chap8 is Target_Type : constant Iir := Get_Type (Target); begin if Get_Kind (Target) = Iir_Kind_Aggregate then - Chap3.Translate_Anonymous_Type_Definition (Target_Type); + Chap3.Translate_Anonymous_Subtype_Definition (Target_Type, False); Targ := Create_Temp (Get_Info (Target_Type), Mode_Signal); Chap4.Allocate_Complex_Object (Target_Type, Alloc_Stack, Targ); Translate_Signal_Target_Aggr (Targ, Target, Target_Type); |