From 0e8fb20ffd776a193ca24c273f5fdf2e26df514e Mon Sep 17 00:00:00 2001
From: Brian Drummond
Date: Tue, 21 Jan 2014 13:41:54 +0000
Subject: Log resolution function address in Disp_Signal, correct comment in
 linux.c

---
 translate/grt/config/linux.c       | 2 +-
 translate/grt/grt-disp_signals.adb | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

(limited to 'translate')

diff --git a/translate/grt/config/linux.c b/translate/grt/config/linux.c
index 80b4058..e586e54 100644
--- a/translate/grt/config/linux.c
+++ b/translate/grt/config/linux.c
@@ -43,7 +43,7 @@
 #define STACK_SIGNAL SIGBUS
 #endif
 
-/* Defined in Grt.Stacks.  */
+/* Defined in Grt.Options.  */
 extern unsigned int stack_size;
 extern unsigned int stack_max_size;
 
diff --git a/translate/grt/grt-disp_signals.adb b/translate/grt/grt-disp_signals.adb
index 8a754c9..59e8f1f 100644
--- a/translate/grt/grt-disp_signals.adb
+++ b/translate/grt/grt-disp_signals.adb
@@ -153,6 +153,8 @@ package body Grt.Disp_Signals is
    procedure Disp_Simple_Signal
      (Sig : Ghdl_Signal_Ptr; Sig_Type : Ghdl_Rti_Access; Sources : Boolean)
    is
+      function To_Address is new Ada.Unchecked_Conversion
+        (Source => Resolved_Signal_Acc, Target => Address);
    begin
       Put (' ');
       Put (stdout, Sig.all'Address);
@@ -204,6 +206,10 @@ package body Grt.Disp_Signals is
             Put (" ports");
          end if;
          if Sig.S.Mode_Sig in Mode_Signal_User then
+            if Sig.S.Resolv /= null then
+               Put (stdout, " res func ");
+               Put (stdout, To_Address(Sig.S.Resolv));
+            end if;
             if Sig.S.Nbr_Drivers = 0 then
                Put ("; no driver");
             elsif Sig.S.Nbr_Drivers = 1 then
-- 
cgit