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

smaller debugger cleanups

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@311 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-18 16:08:30 +00:00
parent d70b5be256
commit d413b1906c
2 changed files with 8 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/corout.yap
View File

@ -620,7 +620,7 @@ call_residue(Goal,Residue) :-
'$pick_vars_for_project'(LIV,NLIV), '$pick_vars_for_project'(LIV,NLIV),
'$project_module'(LMods,NLIV,LAV), '$project_module'(LMods,NLIV,LAV),
'$all_attvars'(NLAV0), '$all_attvars'(NLAV0),
sort(NLAV0, NLAV), '$sort'(NLAV0, NLAV),
'$convert_att_vars'(NLAV, LIV, Gs, Gs0) '$convert_att_vars'(NLAV, LIV, Gs, Gs0)
). ).

23
pl/debug.yap
View File

@ -711,13 +711,6 @@ debugging :-
%'$creep'(G) :- $current_module(M),write(user_error,[creep,M,G]),nl(user_error),fail. %'$creep'(G) :- $current_module(M),write(user_error,[creep,M,G]),nl(user_error),fail.
% skip calls to assembly versions of execute. % skip calls to assembly versions of execute.
'$creep'([_|'$execute_in_mod'(G,ModNum)]) :- !,
'$module_number'(Mod,ModNum),
'$creep'([Mod|G]).
'$creep'([M|'$execute_within'(G)]) :- !,
'$creep'([M|G]).
'$creep'([M|'$last_execute_within'(G)]) :- !,
'$creep'([M|G]).
'$creep'(G) :- '$creep'(G) :-
'$get_value'('$alarm', true), !, '$get_value'('$alarm', true), !,
'$set_value'('$alarm', []), '$set_value'('$alarm', []),
@ -735,15 +728,13 @@ debugging :-
'$handle_signals'(Signals), '$handle_signals'(Signals),
G=[M|Goal], G=[M|Goal],
'$execute'(M:Goal). '$execute'(M:Goal).
'$creep'(_) :- '$creep'([_|'$execute_in_mod'(G,ModNum)]) :- !,
'$get_value'('$throw', true), !, '$module_number'(Mod,ModNum),
'$set_value'('$throw', false), '$creep'([Mod|G]).
abort. '$creep'([M|'$execute_within'(G)]) :- !,
'$creep'([_|'$trace'(P,G,Module,L)]) :- !, '$creep'([M|G]).
'$trace'(P,G,Module,L). '$creep'([M|'$last_execute_within'(G)]) :- !,
'$creep'([_|'$creep_call'(G,Mod,CP)]) :- !, '$creep'([M|G]).
'$creep_call'(G,Mod,CP).
'$creep'([_|'$leave_creep']) :- !.
'$creep'(G) :- '$direct_spy'(G). '$creep'(G) :- '$direct_spy'(G).
'$trace'(P,'!'(_),Mod,L,NC) :- !, '$trace'(P,'!'(_),Mod,L,NC) :- !,