diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-05-21 07:00:35 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-05-21 07:00:35 +0200 |
commit | 3826656eaff634b0349b610f274203b3026d3f87 (patch) | |
tree | 402c0f3537664318e0007f347d3dd59d9eb806d8 /src/ghdldrv/ghdlrun.adb | |
parent | bd1885c3d60019a28bb8261d8a17cef5533d27f9 (diff) | |
download | ghdl-3826656eaff634b0349b610f274203b3026d3f87.tar.gz ghdl-3826656eaff634b0349b610f274203b3026d3f87.tar.bz2 ghdl-3826656eaff634b0349b610f274203b3026d3f87.zip |
Rework exit handling to correctly report exit status.
Fix ticket 77.
Diffstat (limited to 'src/ghdldrv/ghdlrun.adb')
-rw-r--r-- | src/ghdldrv/ghdlrun.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb index cc93bd827..13bb6f890 100644 --- a/src/ghdldrv/ghdlrun.adb +++ b/src/ghdldrv/ghdlrun.adb @@ -58,6 +58,7 @@ with Grt.Images; with Grt.Values; with Grt.Names; with Grt.Std_Logic_1164; +with Grt.Errors; with Ghdlcomp; with Foreigns; @@ -605,7 +606,9 @@ package body Ghdlrun is end if; Grt.Main.Run; - --V := Ghdl_Main (1, Gnat_Argv); + + Ada.Command_Line.Set_Exit_Status + (Ada.Command_Line.Exit_Status (Grt.Errors.Exit_Status)); end Run; |