[Win32forth-cvs] win32forth/src/lib STRUCT.F,1.3,1.4

[Jos v.d.V. <jo...@us...>]

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;