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

deb

Browse Source
This commit is contained in:
Vitor Santos Costa 2019-05-16 13:24:20 +01:00
parent ef3d435dec
commit 5382d4739c
1 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
pl/debug.yap
View File

@ -483,14 +483,14 @@ be lost.
true, true,
clause(M:G, B), clause(M:G, B),
Port0, Port0,
'$trace_port'(pred,Port0, GoalNumber, G, M, H) '$trace_port'([Port0], GoalNumber, G, M, H)
), ),
gated_call( gated_call(
true,% source mode true,% source mode
'$trace'(B,M,CP,H), '$trace'(B,M,CP,H),
Port, Port,
( (
'$trace_port'(clause,Port, GoalNumber, G, M, H) '$trace_port'([Port,Port0], GoalNumber, G, M, H)
) )
). ).
'$trace_goal'(G,M, GoalNumber, H) :- '$trace_goal'(G,M, GoalNumber, H) :-
@ -501,14 +501,14 @@ be lost.
true, true,
'$static_clause'(G,M,_,Ref), '$static_clause'(G,M,_,Ref),
Port0, Port0,
'$trace_port'(pred,Port0, GoalNumber, G, M, H) '$trace_port'([Port0], GoalNumber, G, M, H)
), ),
gated_call( gated_call(
'$start_user_code', '$start_user_code',
% source mode % source mode
'$creep_clause'(G,M,Ref,CP), '$creep_clause'(G,M,Ref,CP),
Port, Port,
'$trace_port'(clause, Port, GoalNumber, G, M, H) '$trace_port'([Port,Port0], GoalNumber, G, M, H)
). ).
'$trace_goal'(G, M, GoalNumber, H) :- '$trace_goal'(G, M, GoalNumber, H) :-
'$undefined'(G,M), '$undefined'(G,M),
@ -566,22 +566,28 @@ be lost.
'$stop_creeping'(_), '$stop_creeping'(_),
fail. fail.
'$trace_port'(pred, fail, GoalNumber, G, Module, Info) :- '$trace_port'([fail], GoalNumber, G, Module, Info) :-
!, !,
'$trace_port_'(fail, GoalNumber, G, Module, Info). '$trace_port_'(fail, GoalNumber, G, Module, Info).
'$trace_port'(pred, call, GoalNumber, G, Module, Info) :- '$trace_port'( [call], GoalNumber, G, Module, Info) :-
!, !,
'$trace_port_'(call, GoalNumber, G, Module, Info). '$trace_port_'(call, GoalNumber, G, Module, Info).
'$trace_port'(pred, redo, GoalNumber, G, Module, Info) :- '$trace_port'([ redo], GoalNumber, G, Module, Info) :-
!, !,
'$trace_port_'(redo, GoalNumber, G, Module, Info). '$trace_port_'(redo, GoalNumber, G, Module, Info).
'$trace_port'(pred, _Port, _GoalNumber, _G, _Module, _Info). '$trace_port'([_Port], _GoalNumber, _G, _Module, _Info).
'$trace_port'(clause, call, _GoalNumber, _G, _Module, _Info). '$trace_port'([call,_], _GoalNumber, _G, _Module, _Info).
'$trace_port'(clause, fail, _GoalNumber, _G, _Module, _Info) :- '$trace_port'([fail,_], _GoalNumber, _G, _Module, _Info) :-
fail. fail.
'$trace_port'(clause, Port, GoalNumber, G, Module, Info) :- '$trace_port'([exit,answer], GoalNumber, G, Module, Info) :-
!,
'$trace_port_'(answer, GoalNumber, G, Module, Info).
'$trace_port'([exit,exit], GoalNumber, G, Module, Info) :-
!,
'$trace_port_'(exit, GoalNumber, G, Module, Info).
'$trace_port'( [Port,_], GoalNumber, G, Module, Info) :-
!, !,
'$trace_port_'(Port, GoalNumber, G, Module, Info). '$trace_port_'(Port, GoalNumber, G, Module, Info).