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-chap4.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-chap4.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap4.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb index 11c5f1a8c..cdd424cc9 100644 --- a/src/vhdl/translate/trans-chap4.adb +++ b/src/vhdl/translate/trans-chap4.adb @@ -1692,8 +1692,9 @@ package body Trans.Chap4 is Stabilize (N); New_Assign_Stmt (Get_Var (A), M2E (Chap3.Get_Composite_Base (N))); - Chap3.Check_Array_Match (Decl_Type, T2M (Decl_Type, Mode), - Name_Type, N, Decl); + Chap3.Check_Composite_Match + (Decl_Type, T2M (Decl_Type, Mode), + Name_Type, N, Decl); when Type_Mode_Acc | Type_Mode_Bounds_Acc => New_Assign_Stmt (Get_Var (A), M2Addr (N)); @@ -1706,6 +1707,7 @@ package body Trans.Chap4 is end case; when Type_Mode_Bounded_Records => Stabilize (N); + -- FIXME: Check ? New_Assign_Stmt (Get_Var (A), M2Addr (N)); when others => raise Internal_Error; |