[Win32forth-cvs] win32forth-stc/src/kernel gkernel.f,1.29,1.30

[Alex M. <ale...@us...>]

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

Modified Files:
	gkernel.f 
Log Message:
arm: 3rd pass: corrections for type system

Index: gkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** gkernel.f	22 Jan 2007 21:51:40 -0000	1.29
--- gkernel.f	24 Jan 2007 23:48:39 -0000	1.30
***************
*** 410,466 ****
  : (comp-only) ( -- ) throw_componly throw ;   \ compile only message
  
! \ -------------------- Cell Operators ---------------------------------
  
! code cells      ( n1 -- n1*cell )       \ multiply n1 by the cell size
       1 1 in/out
!                 lea     eax, [eax*4]
                  next;
  
! code cells+     ( a1 n1 -- a1+n1*cell ) \ multiply n1 by the cell size and add
[...1143 lines suppressed...]
*** 2532,2536 ****
  : variable  ( "name")              \ compile time
              ( -- n )                          \ run time
!             create 0 ,
              ['] (comp-cons) compiles-last 
              0 1 in/out
--- 2511,2515 ----
  : variable  ( "name")              \ compile time
              ( -- n )                          \ run time
!             ['] dovar tvar dogen 0 ,
              ['] (comp-cons) compiles-last 
              0 1 in/out
***************
*** 4718,4721 ****
--- 4697,4701 ----
                  - cell-                       \ make relative
                  r> !                          \ adjust jump part of xt of create
+                 tcol tfa!                     \ last name is now a colon definition
                  ;