diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-03-19 20:24:08 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-03-19 20:24:08 +0100 |
| commit | 6094361eab9089f97a0851844d64d40d1ebc5c82 (patch) | |
| tree | 39251d6d74fd12638c267b93be5eda1ceb35bef9 /src/vhdl/translate | |
| parent | 9a80de30f485c9af8aaeb9eeb9ec986c7fffa6f8 (diff) | |
| download | ghdl-6094361eab9089f97a0851844d64d40d1ebc5c82.tar.gz ghdl-6094361eab9089f97a0851844d64d40d1ebc5c82.tar.bz2 ghdl-6094361eab9089f97a0851844d64d40d1ebc5c82.zip | |
vhdl: handle alias of protected objects. Fix #1688
Diffstat (limited to 'src/vhdl/translate')
| -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 00a14c8b4..37ca1646b 100644 --- a/src/vhdl/translate/trans-chap4.adb +++ b/src/vhdl/translate/trans-chap4.adb @@ -1668,7 +1668,8 @@ package body Trans.Chap4 is when Type_Mode_Bounded_Arrays | Type_Mode_Bounded_Records | Type_Mode_Acc - | Type_Mode_Bounds_Acc => + | Type_Mode_Bounds_Acc + | Type_Mode_Protected => -- Create an object pointer. -- At elaboration: copy base from name. Atype := Tinfo.Ortho_Ptr_Type (Mode); @@ -1762,7 +1763,8 @@ package body Trans.Chap4 is (Decl_Type, T2M (Decl_Type, Mode), Name_Type, N, Decl); when Type_Mode_Acc - | Type_Mode_Bounds_Acc => + | Type_Mode_Bounds_Acc + | Type_Mode_Protected => New_Assign_Stmt (Get_Var (A), M2Addr (N)); when Type_Mode_Scalar => case Mode is |