diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-03-13 19:52:46 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-03-14 07:14:44 +0100 |
commit | b4e20d8af1e23ab124a2f42d7eb56e86aa7850aa (patch) | |
tree | 1a7b9c67b4bb200011ef7bbe308def3384511849 /src/ghdldrv/ghdldrv.adb | |
parent | bdf042b5b55d695f5a312bb09699503c5519858f (diff) | |
download | ghdl-b4e20d8af1e23ab124a2f42d7eb56e86aa7850aa.tar.gz ghdl-b4e20d8af1e23ab124a2f42d7eb56e86aa7850aa.tar.bz2 ghdl-b4e20d8af1e23ab124a2f42d7eb56e86aa7850aa.zip |
vhdl: handle names starting with '_' as an identifier.
Remove assertion.
Fix #779
Diffstat (limited to 'src/ghdldrv/ghdldrv.adb')
-rw-r--r-- | src/ghdldrv/ghdldrv.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb index 3cd7c1f74..e77bfb8f4 100644 --- a/src/ghdldrv/ghdldrv.adb +++ b/src/ghdldrv/ghdldrv.adb @@ -1355,6 +1355,7 @@ package body Ghdldrv is is pragma Unreferenced (Cmd); Elab_Index : Integer; + Error : Boolean; begin Elab_Index := -1; for I in Args'Range loop @@ -1364,7 +1365,10 @@ package body Ghdldrv is end if; end loop; if Elab_Index < 0 then - Analyze_Files (Args, True); + Analyze_Files (Args, True, Error); + if Error then + raise Errorout.Compilation_Error; + end if; else Set_Elab_Units ("-c", Args (Elab_Index + 1 .. Args'Last)); Setup_Compiler (False); |