Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21538/win32forth/src/kernel
Modified Files:
fkernel.f
Log Message:
gah:Fixed bug where NEW$ was faulty until pointers were initialised
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** fkernel.f 3 Aug 2006 13:08:22 -0000 1.32
--- fkernel.f 4 Aug 2006 09:48:43 -0000 1.33
***************
*** 5459,5462 ****
--- 5459,5463 ----
init-proc \ *** MUST BE FIRST IN MAIN ***
init-malloc
+ ['] TEMP$ IS NEW$ \ Must be set until pointers are inited
buffs-len malloc
dup to CUR-FILE
|
