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 ;
|
