diff options
author | Brian Drummond <brian@shapes.demon.co.uk> | 2014-01-21 13:41:54 +0000 |
---|---|---|
committer | Brian Drummond <brian@shapes.demon.co.uk> | 2014-01-21 13:41:54 +0000 |
commit | 0e8fb20ffd776a193ca24c273f5fdf2e26df514e (patch) | |
tree | 97e111799e26d44324500681de0d7090db9f60c3 /translate/grt | |
parent | 43b86b4e1a23a3293c7f99c5a7bdebdd78ad11db (diff) | |
download | ghdl-0e8fb20ffd776a193ca24c273f5fdf2e26df514e.tar.gz ghdl-0e8fb20ffd776a193ca24c273f5fdf2e26df514e.tar.bz2 ghdl-0e8fb20ffd776a193ca24c273f5fdf2e26df514e.zip |
Log resolution function address in Disp_Signal, correct comment in linux.c
Diffstat (limited to 'translate/grt')
-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 80b4058f6..e586e54e9 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 8a754c9a3..59e8f1f65 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 |