diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-12-29 06:02:15 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-12-29 06:11:20 +0100 |
commit | 53a79db50731d76c7837b83c115064487681d1a6 (patch) | |
tree | 9e3615194e9361549fa71eaab49dcfbb6ca1a4e8 /src/vhdl/translate/trans-chap12.adb | |
parent | f692b62f5c60f2ce83fb8487ffdabaa5ff531c4e (diff) | |
download | ghdl-53a79db50731d76c7837b83c115064487681d1a6.tar.gz ghdl-53a79db50731d76c7837b83c115064487681d1a6.tar.bz2 ghdl-53a79db50731d76c7837b83c115064487681d1a6.zip |
trans-chap12 (write_file_list): return if the file cannot be open.
Fix #722
Diffstat (limited to 'src/vhdl/translate/trans-chap12.adb')
-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. |