Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv30461/win32forth/src
Modified Files:
POINTER.F
Log Message:
gah:Added missing 0=
Index: POINTER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/POINTER.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** POINTER.F 8 Aug 2006 13:55:29 -0000 1.7
--- POINTER.F 8 Aug 2006 14:09:08 -0000 1.8
***************
*** 93,97 ****
dup (pointerlock)
@ if (pointerunlock) @ exit then \ another task won the race
! dup 2 cells+ @ allocate
if dup off \ set first cell to zeros
tuck swap ! (pointerunlock) exit
--- 93,97 ----
dup (pointerlock)
@ if (pointerunlock) @ exit then \ another task won the race
! dup 2 cells+ @ allocate 0=
if dup off \ set first cell to zeros
tuck swap ! (pointerunlock) exit
|
