Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9155/win32forth/src/lib
Modified Files:
STRUCT.F
Log Message:
gah: newer version of struct from player4
Index: STRUCT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/STRUCT.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** STRUCT.F 21 Dec 2004 00:19:10 -0000 1.1
--- STRUCT.F 19 Apr 2005 14:04:02 -0000 1.2
***************
*** 1,5 ****
\ $Id$
! anew -struct.f \ for Win32Forth October 7th, 2002 - 10:35
\ For C like structures.
--- 1,5 ----
\ $Id$
! anew -struct.f \ for Win32Forth April 4th, 2005
\ For C like structures.
***************
*** 15,18 ****
--- 15,19 ----
\ January 15th, 2002 - 16:46 removed a bug from _add-struct
\ July 13th, 2002 - 16:26 Added Field:
+ \ April 4th, 2005 - 14:10 removed a bug from >struct
in-system
***************
*** 117,121 ****
\ >struct compiles the adress and offset as 1 adress inside a definition
: >struct ( -<name-struct>- -<member>- - adress+offset_in_structure )
! ' >body cell+ getsize-struct + postpone literal ; immediate
: struct{ ( -- )
--- 118,122 ----
\ >struct compiles the adress and offset as 1 adress inside a definition
: >struct ( -<name-struct>- -<member>- - adress+offset_in_structure )
! ' >body getsize-struct + postpone literal ; immediate
: struct{ ( -- )
***************
*** 208,210 ****
\s
! |
