Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18099/win32forth-stc/src
Modified Files:
POINTER.F
Log Message:
gah:Removed >APPLICATION and APPLICATION>
Index: POINTER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/POINTER.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** POINTER.F 4 Oct 2006 12:00:03 -0000 1.1
--- POINTER.F 4 Oct 2006 15:54:53 -0000 1.2
***************
*** 26,30 ****
: Pointer ( bytes -<name>- ) \ make a pointer "name"
! >APPLICATION \ always in app space
128 max \ at least 160 bytes
create
--- 26,30 ----
: Pointer ( bytes -<name>- ) \ make a pointer "name"
! ( >APPLICATION ) \ always in app space
128 max \ at least 160 bytes
create
***************
*** 32,36 ****
HERE PHEAD @ , PHEAD ! \ link into chain
, \ lay in size in bytes
! APPLICATION> does> \ back to where we came from
\ cfa-func DoPointer ( -- address ) \ it's location
--- 32,36 ----
HERE PHEAD @ , PHEAD ! \ link into chain
, \ lay in size in bytes
! ( APPLICATION> ) does> \ back to where we came from
\ cfa-func DoPointer ( -- address ) \ it's location
|
