From 8ec8bb9835e4d895048678d2854381419c1a3175 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 9 Jun 2017 06:08:17 +0200
Subject: grt-vpi: still trace callback in case of crash.

---
 src/grt/grt-vpi.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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;
-- 
cgit v1.2.3