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

fix debugger typos

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@465 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-05-07 03:51:59 +00:00
parent ec48cc9e24
commit 97f7414cd2
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/grow.c
View File

@ -549,7 +549,8 @@ local_growglobal(long size, CELL **ptr)
MoveGlobalOnly(); MoveGlobalOnly();
AdjustStacksAndTrail(); AdjustStacksAndTrail();
AdjustRegs(MaxTemps); AdjustRegs(MaxTemps);
*ptr = PtoLocAdjust(*ptr); if (ptr)
*ptr = PtoLocAdjust(*ptr);
YAPLeaveCriticalSection(); YAPLeaveCriticalSection();
ASP += 256; ASP += 256;
growth_time = cputime()-start_growth_time; growth_time = cputime()-start_growth_time;

4
pl/debug.yap
View File

@ -901,9 +901,9 @@ debugging :-
'$set_value'(spy_leap,L). '$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_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),