From 97f7414cd299a1d502faef2fdb97d556024f4b1c Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 7 May 2002 03:51:59 +0000
Subject: [PATCH] fix debugger typos

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@465 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/grow.c     | 3 ++-
 pl/debug.yap | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/C/grow.c b/C/grow.c
index aacb99ccd..eff381a93 100644
--- a/C/grow.c
+++ b/C/grow.c
@@ -549,7 +549,8 @@ local_growglobal(long size, CELL **ptr)
   MoveGlobalOnly();
   AdjustStacksAndTrail();
   AdjustRegs(MaxTemps);
-  *ptr = PtoLocAdjust(*ptr);
+  if (ptr)
+    *ptr = PtoLocAdjust(*ptr);
   YAPLeaveCriticalSection();
   ASP += 256;
   growth_time = cputime()-start_growth_time;
diff --git a/pl/debug.yap b/pl/debug.yap
index d6247c5e4..7d1dcad40 100644
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -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),