From 53a79db50731d76c7837b83c115064487681d1a6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 29 Dec 2018 06:02:15 +0100
Subject: trans-chap12 (write_file_list): return if the file cannot be open.

Fix #722
---
 src/vhdl/translate/trans-chap12.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/vhdl')

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.
-- 
cgit v1.2.3