diff options
author | Tristan Gingold <gingold@adacore.com> | 2015-12-05 13:44:52 +0100 |
---|---|---|
committer | Tristan Gingold <gingold@adacore.com> | 2015-12-16 09:37:02 +0100 |
commit | 4680da5edb910910c4a31438798bff0bc6e51380 (patch) | |
tree | 9f32c31b4500f7637ce95333dca33b6ff2749804 | |
parent | 96d84445a057184c18310916ab7d7db8d74547ae (diff) | |
download | ghdl-4680da5edb910910c4a31438798bff0bc6e51380.tar.gz ghdl-4680da5edb910910c4a31438798bff0bc6e51380.tar.bz2 ghdl-4680da5edb910910c4a31438798bff0bc6e51380.zip |
avoid a crash if --elab without -l.
-rw-r--r-- | src/vhdl/translate/ortho_front.adb | 4 |
1 files changed, 4 insertions, 0 deletions
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); |