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/grt-disp_signals.adb | |
| 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/grt-disp_signals.adb')
| -rw-r--r-- | translate/grt/grt-disp_signals.adb | 6 |
1 files changed, 6 insertions, 0 deletions
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 |