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

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19370/win32forth/src/lib

Modified Files:
	STRUCT.F 
Log Message:
Jos: Removed the introduced bug from >struct

Index: STRUCT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/STRUCT.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** STRUCT.F	19 Apr 2005 14:04:02 -0000	1.2
--- STRUCT.F	24 Apr 2005 12:01:13 -0000	1.3
***************
*** 1,5 ****
  \ $Id$
  
! anew -struct.f   \ for Win32Forth April 4th, 2005 
  
  \ For C like structures.
--- 1,5 ----
  \ $Id$
  
! anew -struct.f   \ for Win32Forth April 24th, 2005
  
  \ For C like structures.
***************
*** 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
--- 15,18 ----
***************
*** 28,32 ****
  \ The following memory allocation words allow nesting and cloning
  \ of a memory structure. Definitions made in C can be used with
! \ small modifications.
  
  0 value  _struct
--- 27,31 ----
  \ The following memory allocation words allow nesting and cloning
  \ of a memory structure. Definitions made in C can be used with
! \ small modifications. Use mkstruct: to allocate memory.
  
  0 value  _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{      ( -- )
--- 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{      ( -- )