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 

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)]) :- !,
'fetch_goal_module'(G, Module, G1, Mod),
'$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]) :-
% '$format'(user_error,"$spym(~w,~w)~n",[Module,G]),
'$hidden'(G),
@ -841,6 +843,9 @@ debugging :-
'$skipeol'(10) :- !.
'$skipeol'(_) :- get0(user,C), '$skipeol'(C).
'$action'(10,call,_,_,continue) :- !, % newline creep
'$set_yap_flags'(10,1),
'$creep'.
'$action'(10,_,_,_,continue) :- !. % newline creep
'$action'(33,_,_,_,_) :- !, % ! g execute
read(user,G),