Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8468/win32forth/src/lib
Modified Files:
STRUCT.F
Log Message:
Jos: Now it can be used with create.
Index: STRUCT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/STRUCT.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** STRUCT.F 24 Apr 2005 12:01:13 -0000 1.3
--- STRUCT.F 16 May 2005 14:56:45 -0000 1.4
***************
*** 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{ ( -- )
--- 117,121 ----
\ >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{ ( -- )
***************
*** 125,129 ****
: mkstruct: ( size-struct - ) create dup , allot ;code
push ebx
! lea ebx, 8 [eax]
next c;
--- 125,129 ----
: mkstruct: ( size-struct - ) create dup , allot ;code
push ebx
! lea ebx, 4 [eax]
next c;
|
