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

30
pl/debug.yap
View File

@ -483,14 +483,14 @@ be lost.
true,
clause(M:G, B),
Port0,
'$trace_port'(pred,Port0, GoalNumber, G, M, H)
'$trace_port'([Port0], GoalNumber, G, M, H)
),
gated_call(
true,% source mode
'$trace'(B,M,CP,H),
'$trace'(B,M,CP,H),
Port,
(
'$trace_port'(clause,Port, GoalNumber, G, M, H)
'$trace_port'([Port,Port0], GoalNumber, G, M, H)
)
).
'$trace_goal'(G,M, GoalNumber, H) :-
@ -501,14 +501,14 @@ be lost.
true,
'$static_clause'(G,M,_,Ref),
Port0,
'$trace_port'(pred,Port0, GoalNumber, G, M, H)
'$trace_port'([Port0], GoalNumber, G, M, H)
),
gated_call(
'$start_user_code',
% source mode
'$creep_clause'(G,M,Ref,CP),
Port,
'$trace_port'(clause, Port, GoalNumber, G, M, H)
'$trace_port'([Port,Port0], GoalNumber, G, M, H)
).
'$trace_goal'(G, M, GoalNumber, H) :-
'$undefined'(G,M),
@ -566,22 +566,28 @@ be lost.
'$stop_creeping'(_),
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'(pred, 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'(pred, _Port, _GoalNumber, _G, _Module, _Info).
'$trace_port'([_Port], _GoalNumber, _G, _Module, _Info).
'$trace_port'(clause, call, _GoalNumber, _G, _Module, _Info).
'$trace_port'(clause, fail, _GoalNumber, _G, _Module, _Info) :-
'$trace_port'([call,_], _GoalNumber, _G, _Module, _Info).
'$trace_port'([fail,_], _GoalNumber, _G, _Module, _Info) :-
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).