diff options
| -rw-r--r-- | src/vhdl/translate/trans-chap12.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap12.adb b/src/vhdl/translate/trans-chap12.adb index 2f8884841..132763024 100644 --- a/src/vhdl/translate/trans-chap12.adb +++ b/src/vhdl/translate/trans-chap12.adb @@ -551,6 +551,7 @@ package body Trans.Chap12 is F := fopen (Fname'Address, Mode'Address); if F = NULL_Stream then Error_Msg_Elab ("cannot open " & Filelist); + return; end if; -- Clear elab flags on design files. |