diff options
| author | Tristan Gingold | 2015-12-05 13:44:52 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-12-16 09:37:02 +0100 |
| commit | 4680da5edb910910c4a31438798bff0bc6e51380 (patch) | |
| tree | 9f32c31b4500f7637ce95333dca33b6ff2749804 /src/vhdl/translate/ortho_front.adb | |
| parent | 96d84445a057184c18310916ab7d7db8d74547ae (diff) | |
| download | ghdl-4680da5edb910910c4a31438798bff0bc6e51380.tar.gz ghdl-4680da5edb910910c4a31438798bff0bc6e51380.tar.bz2 ghdl-4680da5edb910910c4a31438798bff0bc6e51380.zip | |
avoid a crash if --elab without -l.
Diffstat (limited to 'src/vhdl/translate/ortho_front.adb')
| -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 e17b1a7..35a7560 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); |