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

more fixes for debugger and overflow handling in arrays

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@433 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-04-08 03:11:33 +00:00
parent 3ef0b143b0
commit 0e6dd4734e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pl/debug.yap
View File

@ -252,7 +252,9 @@ debugging :-
'$spy'([Module|'$call'(G)]) :- !, '$spy'([Module|'$call'(G)]) :- !,
'fetch_goal_module'(G, Module, G1, Mod), 'fetch_goal_module'(G, Module, G1, Mod),
'$expand_goal'(G1, Mod, Module, NG, NM), '$expand_goal'(G1, Mod, Module, NG, NM),
'$do_spy'(NG, NM). /* we may execute a system predicate, so we cannot
jump straight to do_spy */
'$spy'([NM|NG]).
'$spy'([Module|G]) :- '$spy'([Module|G]) :-
% '$format'(user_error,"$spym(~w,~w)~n",[Module,G]), % '$format'(user_error,"$spym(~w,~w)~n",[Module,G]),
'$hidden'(G), '$hidden'(G),
@ -841,6 +843,9 @@ debugging :-
'$skipeol'(10) :- !. '$skipeol'(10) :- !.
'$skipeol'(_) :- get0(user,C), '$skipeol'(C). '$skipeol'(_) :- get0(user,C), '$skipeol'(C).
'$action'(10,call,_,_,continue) :- !, % newline creep
'$set_yap_flags'(10,1),
'$creep'.
'$action'(10,_,_,_,continue) :- !. % newline creep '$action'(10,_,_,_,continue) :- !. % newline creep
'$action'(33,_,_,_,_) :- !, % ! g execute '$action'(33,_,_,_,_) :- !, % ! g execute
read(user,G), read(user,G),