diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-05 18:27:10 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-05 22:19:12 +0100 |
| commit | 65a40a067d1b153265eaf8bcadbc225c5eeac041 (patch) | |
| tree | d81391fbbd7322590eae5d6c2352ec8f6f3cc8e8 | |
| parent | f490b94d53c8d1d2cfac9abc59e3b29488cda16b (diff) | |
| download | ghdl-65a40a067d1b153265eaf8bcadbc225c5eeac041.tar.gz ghdl-65a40a067d1b153265eaf8bcadbc225c5eeac041.tar.bz2 ghdl-65a40a067d1b153265eaf8bcadbc225c5eeac041.zip | |
trans-chap3: fix style for old compilers
| -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; |