diff options
| -rw-r--r-- | translate/grt/config/linux.c | 2 | ||||
| -rw-r--r-- | translate/grt/grt-disp_signals.adb | 6 |
2 files changed, 7 insertions, 1 deletions
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 |