fix debugger typos
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@465 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
ec48cc9e24
commit
97f7414cd2
1
C/grow.c
1
C/grow.c
@ -549,6 +549,7 @@ local_growglobal(long size, CELL **ptr)
|
||||
MoveGlobalOnly();
|
||||
AdjustStacksAndTrail();
|
||||
AdjustRegs(MaxTemps);
|
||||
if (ptr)
|
||||
*ptr = PtoLocAdjust(*ptr);
|
||||
YAPLeaveCriticalSection();
|
||||
ASP += 256;
|
||||
|
@ -901,9 +901,9 @@ debugging :-
|
||||
'$set_value'(spy_leap,L).
|
||||
'$action'(0'l,_,_,_,_,_) :- !, % l leap
|
||||
'$set_value'(spy_leap,1).
|
||||
'$action'(0'n,_,_,_,_._) :- !, % n nodebug
|
||||
'$action'(0'n,_,_,_,_,_) :- !, % n nodebug
|
||||
nodebug.
|
||||
'$action'(0'k,_,_,_,_._) :- !, % k quasi leap
|
||||
'$action'(0'k,_,_,_,_,_) :- !, % k quasi leap
|
||||
'$set_yap_flags'(10,0).
|
||||
'$action'(0'r,P,L,_,_,_) :- !, % r retry
|
||||
( P=call, !, '$ilgl'(114); true),
|
||||
|
Reference in New Issue
Block a user