diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-03 06:37:39 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-03 06:39:47 +0200 |
commit | 722ea848fd2b382d9d14dcaf49e4bd95182b56f9 (patch) | |
tree | c3e0ac57196d6dbc82b2a6be444acba538fd613b /src/vhdl/translate/trans-chap8.adb | |
parent | 9224975c3893f69c8e5a5758d0762909a90f25a6 (diff) | |
download | ghdl-722ea848fd2b382d9d14dcaf49e4bd95182b56f9.tar.gz ghdl-722ea848fd2b382d9d14dcaf49e4bd95182b56f9.tar.bz2 ghdl-722ea848fd2b382d9d14dcaf49e4bd95182b56f9.zip |
vhdl/translate: check_composite_match: rename and handle records.
Fix #807
Diffstat (limited to 'src/vhdl/translate/trans-chap8.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index bf0e83fc8..31c6803b5 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -4304,7 +4304,7 @@ package body Trans.Chap8 is if Is_Composite (Target_Tinfo) then Stabilize (Val); Stabilize (Stable_Targ); - Chap3.Check_Array_Match + Chap3.Check_Composite_Match (Target_Type, Stable_Targ, Get_Type (We), Val, We); end if; Arg := (Drv => Drv, @@ -4438,7 +4438,7 @@ package body Trans.Chap8 is then Stabilize (Targ2); Stabilize (Val); - Chap3.Check_Array_Match + Chap3.Check_Composite_Match (Target_Type, Targ2, Get_Type (Value), Val, Wf_Chain); end if; Gen_Simple_Signal_Assign (Targ2, Target_Type, M2E (Val)); @@ -4500,7 +4500,7 @@ package body Trans.Chap8 is Translate_Waveform_Expression (Value, Target_Type, Var_Targ, Val); Stabilize (Val); - Chap3.Check_Array_Match + Chap3.Check_Composite_Match (Target_Type, Var_Targ, Get_Type (Value), Val, We); end if; Data := Signal_Assign_Data'(Expr => Val, @@ -4532,7 +4532,7 @@ package body Trans.Chap8 is Val := Chap7.Translate_Expression (Value, Target_Type); if Is_Composite (Targ_Tinfo) then Stabilize (Val); - Chap3.Check_Array_Match + Chap3.Check_Composite_Match (Target_Type, Var_Targ, Get_Type (Value), Val, We); end if; end if; |