[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.63,1.64

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31089

Modified Files:
	fkernel.f 
Log Message:
Fixed RESIZE to return original address when it wasn't previously ALLOCATEd.

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.63
retrieving revision 1.64
diff -C2 -d -r1.63 -r1.64
*** fkernel.f	21 Oct 2009 21:57:53 -0000	1.63
--- fkernel.f	22 Feb 2010 11:05:31 -0000	1.64
***************
*** 3952,3957 ****
  : realloc       ( n addr -- addr' fl )
                  mem>link dup malloc-unlink      \ remove from list
!                 if      nip TRUE                \ if not in list
!                         exit                   \ then fail the function
                  then
                  malloc-adjlen under+
--- 3952,3957 ----
  : realloc       ( n addr -- addr' fl )
                  mem>link dup malloc-unlink      \ remove from list
!                 if      nip link>mem TRUE       \ if not in list
!                         exit                    \ then fail the function
                  then
                  malloc-adjlen under+