diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-01-11 06:38:23 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-01-11 12:51:48 +0100 |
| commit | 5d61676973add240db798b79302add98b10b1375 (patch) | |
| tree | 586fc8792120d09eb2bee0e65ff375e42aa21881 /src/vhdl/translate/trans-chap8.adb | |
| parent | 97314e1e9d5cf748c83ba63da8a449e339783009 (diff) | |
| download | ghdl-5d61676973add240db798b79302add98b10b1375.tar.gz ghdl-5d61676973add240db798b79302add98b10b1375.tar.bz2 ghdl-5d61676973add240db798b79302add98b10b1375.zip | |
Rework array/record type mode to improve support of constrained records.
Diffstat (limited to 'src/vhdl/translate/trans-chap8.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index 85b3aaa58..c78e270a0 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -263,8 +263,8 @@ package body Trans.Chap8 is Chap3.Translate_Object_Copy (Area, M2Addr (Val), Ret_Type); Gen_Return; end; - when Type_Mode_Record - | Type_Mode_Array => + when Type_Mode_Bounded_Records + | Type_Mode_Bounded_Arrays => -- * if the return type is a constrained composite type, copy -- it to the result area. -- Create a temporary area so that if the expression use @@ -1857,8 +1857,8 @@ package body Trans.Chap8 is -- call a predefined procedure New_Procedure_Call (Assocs); Close_Temp; - when Type_Mode_Array - | Type_Mode_Record + when Type_Mode_Bounded_Arrays + | Type_Mode_Bounded_Records | Type_Mode_Unbounded_Array => Subprg_Info := Get_Info (Imp); Start_Association (Assocs, Subprg_Info.Operator_Node); @@ -1912,8 +1912,8 @@ package body Trans.Chap8 is -- call a predefined procedure New_Procedure_Call (Assocs); Close_Temp; - when Type_Mode_Array - | Type_Mode_Record => + when Type_Mode_Bounded_Arrays + | Type_Mode_Bounded_Records => Subprg_Info := Get_Info (Imp); Start_Association (Assocs, Subprg_Info.Operator_Node); Subprgs.Add_Subprg_Instance_Assoc @@ -3584,7 +3584,7 @@ package body Trans.Chap8 is when Type_Mode_F64 => Subprg := Ghdl_Signal_Simple_Assign_F64; Conv := Ghdl_Real_Type; - when Type_Mode_Array => + when Type_Mode_Arrays => raise Internal_Error; when others => Error_Kind ("gen_signal_assign_non_composite", Targ_Type); @@ -3682,7 +3682,7 @@ package body Trans.Chap8 is when Type_Mode_F64 => Subprg := Ghdl_Signal_Start_Assign_F64; Conv := Ghdl_Real_Type; - when Type_Mode_Array => + when Type_Mode_Arrays => raise Internal_Error; when others => Error_Kind ("gen_signal_assign_non_composite", Targ_Type); @@ -3842,7 +3842,7 @@ package body Trans.Chap8 is when Type_Mode_F64 => Subprg := Ghdl_Signal_Next_Assign_F64; Conv := Ghdl_Real_Type; - when Type_Mode_Array => + when Type_Mode_Arrays => raise Internal_Error; when others => Error_Kind ("gen_signal_next_assign_non_composite", Targ_Type); |