diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-06-09 06:08:17 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-06-09 06:08:17 +0200 |
| commit | 8ec8bb9835e4d895048678d2854381419c1a3175 (patch) | |
| tree | dadc31c632a205ecdef1580476778bfc50f0fce0 /src/grt | |
| parent | 9c7003ffd8cd985a2d2be5c38a78f6e1d0a66581 (diff) | |
| download | ghdl-8ec8bb9835e4d895048678d2854381419c1a3175.tar.gz ghdl-8ec8bb9835e4d895048678d2854381419c1a3175.tar.bz2 ghdl-8ec8bb9835e4d895048678d2854381419c1a3175.zip | |
grt-vpi: still trace callback in case of crash.
Diffstat (limited to 'src/grt')
| -rw-r--r-- | src/grt/grt-vpi.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/grt/grt-vpi.adb b/src/grt/grt-vpi.adb index adabc6a87..5cb72f768 100644 --- a/src/grt/grt-vpi.adb +++ b/src/grt/grt-vpi.adb @@ -1186,9 +1186,9 @@ package body Grt.Vpi is begin if Flag_Trace then Trace_Start ("vpi call callback "); - Trace_Cb_Reason (Hand.Cb.Reason); - Trace (" "); Trace (Hand); + Trace (" "); + Trace_Cb_Reason (Hand.Cb.Reason); Trace_Newline; Trace_Indent := Trace_Indent + 1; end if; |