diff options
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 12784d897..141bfca6e 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -1220,6 +1220,7 @@ package body Trans.Chap3 is El_Tinfo.S.Subtype_Owner := Get_Info (Def); when Kind_Type_Scalar => pragma Assert (El_Tinfo.S.Range_Var /= Null_Var); + null; when Kind_Type_File | Kind_Type_Protected => raise Internal_Error; |