diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

debugging

Browse Source
This commit is contained in:
Vitor Santos Costa 2017-09-17 07:59:37 +01:00
parent 95dd4890cc
commit c1d9a00a81
2 changed files with 8 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/hacks.yap
View File

@ -209,8 +209,8 @@ beautify_hidden_goal('$continue_with_command'(Command,V,P,G,Source),prolog) -->
['TopLevel'(Command,G,V,P,Source)]. ['TopLevel'(Command,G,V,P,Source)].
beautify_hidden_goal('$spycall'(G,M,InControl,Redo),prolog) --> beautify_hidden_goal('$spycall'(G,M,InControl,Redo),prolog) -->
['DebuggerCall'(M:G, InControl, Redo)]. ['DebuggerCall'(M:G, InControl, Redo)].
beautify_hidden_goal('$do_spy'(Goal, Mod, _CP, InControl),prolog) --> beautify_hidden_goal('$spycall'(Goal, Mod, _CP, Expanded),prolog) -->
['DebuggerCall'(Mod:Goal, InControl)]. ['DebuggerCall'(Mod:Goal, Expanded)].
beautify_hidden_goal('$system_catch'(G,Mod,Exc,Handler),prolog) --> beautify_hidden_goal('$system_catch'(G,Mod,Exc,Handler),prolog) -->
[catch(Mod:G, Exc, Handler)]. [catch(Mod:G, Exc, Handler)].
beautify_hidden_goal('$catch'(G,Exc,Handler),prolog) --> beautify_hidden_goal('$catch'(G,Exc,Handler),prolog) -->

20
pl/signals.yap
View File

@ -25,7 +25,7 @@
:- use_system_module( '$_boot', ['$meta_call'/2]). :- use_system_module( '$_boot', ['$meta_call'/2]).
:- use_system_module( '$_debug', ['$do_spy'/4]). :- use_system_module( '$_debug', ['$spycall'/4]).
:- use_system_module( '$_threads', ['$thread_gfetch'/1]). :- use_system_module( '$_threads', ['$thread_gfetch'/1]).
@ -160,6 +160,7 @@ order of dispatch.
% never creep on entering system mode!!! % never creep on entering system mode!!!
% don't creep on meta-call. % don't creep on meta-call.
'$do_signal'(sig_creep, MG) :- '$do_signal'(sig_creep, MG) :-
'$disable_debugging',
'$start_creep'(MG, creep). '$start_creep'(MG, creep).
'$do_signal'(sig_iti, [M|G]) :- '$do_signal'(sig_iti, [M|G]) :-
'$thread_gfetch'(Goal), '$thread_gfetch'(Goal),
@ -219,22 +220,9 @@ order of dispatch.
G = '$$cut_by'(CP), G = '$$cut_by'(CP),
!, !,
'$$cut_by'(CP). '$$cut_by'(CP).
'$start_creep'([M|G], _) :- '$start_creep'([Mod|G], _WhereFrom) :-
'$is_no_trace'(G, M), !,
(
'$$save_by'(CP),
'$no_creep_call'(G,M),
'$$save_by'(CP2),
'$disable_debugging',
(CP == CP2 -> ! ; ( true ; '$enable_debugging', fail ) ),
'$enable_debugging'
;
'$disable_debugging',
fail
).
'$start_creep'([Mod|G], WhereFrom) :-
CP is '$last_choice_pt', CP is '$last_choice_pt',
'$do_spy'(G, Mod, CP, WhereFrom). '$spycall'(G, Mod, CP, not_expanded).
'$no_creep_call'('$execute_clause'(G,Mod,Ref,CP),_) :- !, '$no_creep_call'('$execute_clause'(G,Mod,Ref,CP),_) :- !,
'$enable_debugging', '$enable_debugging',