Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24809/win32forth/src
Modified Files:
POINTER.F
Log Message:
gah:Changed to use ALLOCATE for better error handling
Index: POINTER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/POINTER.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** POINTER.F 5 Aug 2006 12:30:52 -0000 1.6
--- POINTER.F 8 Aug 2006 13:55:29 -0000 1.7
***************
*** 82,87 ****
drop FALSE \ things went just fine.
EXIT \ April 15th, 1999 - 10:51 tjz corrected
! THEN (pointerlock)
! dup r@ @ realloc 0=
if r> ! FALSE
else drop r>drop TRUE
--- 82,87 ----
drop FALSE \ things went just fine.
EXIT \ April 15th, 1999 - 10:51 tjz corrected
! THEN
! dup r@ @ (pointerlock) realloc 0=
if r> ! FALSE
else drop r>drop TRUE
***************
*** 91,102 ****
DOES>
dup @ if @ exit then \ ok, straight fetch
! (pointerlock)
! dup @ if @ (pointerunlock) exit then \ another task won the race
! dup 2 cells+ @ malloc
! -if dup off \ set first cell to zeros
! tuck swap ! (pointerunlock)
! else (pointerunlock) 1-
! abort" Failed to allocate POINTER"
! then ;
in-system
--- 91,101 ----
DOES>
dup @ if @ exit then \ ok, straight fetch
! 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
! then (pointerunlock) 1-
! abort" Failed to allocate POINTER" ;
in-system
|
