[Win32forth-cvs] win32forth-stc/src Struct200x.f, 1.1, 1.2 extend.f, 1.23, 1.24

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

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15224

Modified Files:
	Struct200x.f extend.f 
Log Message:
Jos: Layout correction.

Index: extend.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/extend.f,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** extend.f	2 Jun 2007 11:43:54 -0000	1.23
--- extend.f	2 Jun 2007 11:59:32 -0000	1.24
***************
*** 6,10 ****
  sys-fload src\optinline     \ inline optimiser
      fload src\primutil.f
! sys-fload src\struct200x.f      \ forth 200x structs
  sys-fload src\module.f      \ scoping support for modules
  sys-fload src\interpif.f    \ interpretive conditionals
--- 6,10 ----
  sys-fload src\optinline     \ inline optimiser
      fload src\primutil.f
! sys-fload src\struct200x.f  \ forth 200x structs
  sys-fload src\module.f      \ scoping support for modules
  sys-fload src\interpif.f    \ interpretive conditionals

Index: Struct200x.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/Struct200x.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Struct200x.f	2 Jun 2007 11:40:16 -0000	1.1
--- Struct200x.f	2 Jun 2007 11:59:32 -0000	1.2
***************
*** 42,46 ****
               does> ( addr -- addr+n1 ) @ + ; ))
  
! ' field+ alias +field  \ Uses the ST optimizer
  
  : field:     ( n1 <"name"> -- n2 ) ( addr -- 'addr )  aligned cell +FIELD ;
--- 42,46 ----
               does> ( addr -- addr+n1 ) @ + ; ))
  
! ' field+ alias +field  \ Uses the STC optimizer
  
  : field:     ( n1 <"name"> -- n2 ) ( addr -- 'addr )  aligned cell +FIELD ;