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

debugger k option would stop at exit port.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@482 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-05-23 04:21:54 +00:00
parent 61affa1652
commit bf2e66d5ef
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/debug.yap
View File

@ -884,13 +884,12 @@ debugging :-
display(user_error,Module:G), nl(user_error) display(user_error,Module:G), nl(user_error)
), ),
'$skipeol'(100), fail. '$skipeol'(100), fail.
'$action'(0'k,_,L,_,_,_) :- !, % k quasi skip
'$set_value'(spy_leap,L).
'$action'(0'l,_,_,_,_,_) :- !, % l leap '$action'(0'l,_,_,_,_,_) :- !, % l leap
'$set_value'(spy_leap,1). '$set_value'(spy_leap,1).
'$action'(0'n,_,_,_,_,_) :- !, % n nodebug '$action'(0'n,_,_,_,_,_) :- !, % n nodebug
nodebug. nodebug.
'$action'(0'k,_,_,_,_,_) :- !, % k quasi leap '$action'(0'k,_,_,_,_,_) :- !, % k quasi leap
'$set_value'(spy_leap,1),
'$set_yap_flags'(10,0). '$set_yap_flags'(10,0).
'$action'(0'r,P,L,_,_,_) :- !, % r retry '$action'(0'r,P,L,_,_,_) :- !, % r retry
( P=call, !, '$ilgl'(114); true), ( P=call, !, '$ilgl'(114); true),