diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap7.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 9e721a932..6497f428f 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -3894,9 +3894,11 @@ package body Trans.Chap7 is -- Generate the error message Chap6.Gen_Bound_Error (Expr); - -- Create a dummy value + -- Create a dummy value, for type checking. But never + -- executed. L := Create_Temp (Otype); - if Tinfo.Type_Mode = Type_Mode_Fat_Acc then + if Tinfo.Type_Mode in Type_Mode_Fat then + -- For fat pointers or arrays. return New_Address (New_Obj (L), Tinfo.Ortho_Ptr_Type (Mode_Value)); else |