From 99049b0dfebc774c7dfd6d3dc075159b1d3645fd Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 11 Feb 2016 07:54:09 +0100
Subject: simul: return the exit status set by std.env

---
 src/ghdldrv/ghdlsimul.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/ghdldrv/ghdlsimul.adb')

diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index c5e950836..2f28e7c09 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -184,6 +184,8 @@ package body Ghdlsimul is
       Grtlink.Flag_String := Flags.Flag_String;
 
       Simulation.Simulation_Entity (Top_Conf);
+
+      Set_Exit_Status (Exit_Status (Grt.Errors.Exit_Status));
    end Run;
 
    function Decode_Option (Option : String) return Boolean
-- 
cgit v1.2.3