From 4680da5edb910910c4a31438798bff0bc6e51380 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <gingold@adacore.com>
Date: Sat, 5 Dec 2015 13:44:52 +0100
Subject: avoid a crash if --elab without -l.

---
 src/vhdl/translate/ortho_front.adb | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/vhdl/translate/ortho_front.adb b/src/vhdl/translate/ortho_front.adb
index e17b1a7d8..35a756011 100644
--- a/src/vhdl/translate/ortho_front.adb
+++ b/src/vhdl/translate/ortho_front.adb
@@ -285,6 +285,10 @@ package body Ortho_Front is
          when Action_Elaborate =>
             Flags.Flag_Elaborate := True;
             Flags.Flag_Only_Elab_Warnings := True;
+            if Elab_Filelist = null then
+               Error_Msg_Option ("missing -l for --elab");
+               raise Option_Error;
+            end if;
             Translation.Elaborate
               (Elab_Entity.all, Elab_Architecture.all,
                Elab_Filelist.all, False);
-- 
cgit v1.2.3