diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-06-05 22:04:42 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-06-05 22:04:42 +0200 |
commit | 463e00e93d8b2507519310789ea9e4fc668cc4ac (patch) | |
tree | 3292cbb3bd7ef34156c1768b7719e828078eeeab /src/grt/grt-lib.adb | |
parent | b250273b27b71e2096f05fe4669dae42d83f4e26 (diff) | |
download | ghdl-463e00e93d8b2507519310789ea9e4fc668cc4ac.tar.gz ghdl-463e00e93d8b2507519310789ea9e4fc668cc4ac.tar.bz2 ghdl-463e00e93d8b2507519310789ea9e4fc668cc4ac.zip |
Rework procedure calls, now use a record to pass parameters.
Diffstat (limited to 'src/grt/grt-lib.adb')
-rw-r--r-- | src/grt/grt-lib.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/grt/grt-lib.adb b/src/grt/grt-lib.adb index d2b095c67..b4505adb6 100644 --- a/src/grt/grt-lib.adb +++ b/src/grt/grt-lib.adb @@ -272,25 +272,25 @@ package body Grt.Lib is end Ghdl_Get_Resolution_Limit; procedure Ghdl_Control_Simulation - (Stop : Ghdl_B1; Has_Status : Ghdl_B1; Status : Std_Integer) is + (Params : Ghdl_Control_Simulation_Params_Ptr) is begin Report_H; -- Report_C (Grt.Options.Progname); Report_C ("simulation "); - if Stop then + if Params.Stop then Report_C ("stopped"); else Report_C ("finished"); end if; Report_C (" @"); Report_Now_C; - if Has_Status then + if Params.Has_Status then Report_C (" with status "); - Report_C (Integer (Status)); + Report_C (Integer (Params.Status)); end if; Report_E (""); - if Has_Status then - Exit_Status := Integer (Status); + if Params.Has_Status then + Exit_Status := Integer (Params.Status); end if; Exit_Simulation; end Ghdl_Control_Simulation; |