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