diff options
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 |