[Win32forth-cvs] win32forth/src POINTER.F,1.6,1.7

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

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