[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.17,1.18

[George H. <geo...@us...>]

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

Modified Files:
	fkernel.f 
Log Message:
gah:moved more code to system space

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** fkernel.f	1 Jul 2005 09:42:41 -0000	1.17
--- fkernel.f	11 Jul 2005 10:23:35 -0000	1.18
***************
*** 87,91 ****
                  next    c;
  
! CFA-CODE DO2VALUE ( -- d1 )               \ runtime for 2VALUE fetch
                  push    ebx
                  mov     ecx, 4 [eax]
--- 87,91 ----
                  next    c;
  
! CFA-CODE DO2VALUE ( d1 -- )               \ runtime for 2VALUE fetch
                  push    ebx
                  mov     ecx, 4 [eax]
***************
*** 94,98 ****
                  next    c;
  
! CFA-CODE DOOFF     ( n1 -- n2 )                \ run-time for OFFSET and FIELD+
                  add     ebx, 4 [eax]
                  next    c;
--- 94,98 ----
                  next    c;
  
! CFA-CODE DOOFF     ( n -- )                \ run-time for OFFSET and FIELD+
                  add     ebx, 4 [eax]
                  next    c;
***************
*** 4330,4333 ****
--- 4330,4335 ----
  0 VALUE PARMS   \ number of parameters (locals)
  
+ in-system
+ 
  : PARMS-INIT    ( -- )
                  FALSE TO ?:M
***************
*** 4349,4354 ****
  \ -------------------- Defining Words ---------------------------------------
  
- in-system
- 
  VARIABLE DEFER-LIST             \ The head of a linked-list of deferred words
  
--- 4351,4354 ----
***************
*** 4358,4361 ****
--- 4358,4363 ----
                  HEADER DOVAR COMPILE, ;
  
+ in-system
+ 
  : CONSTANT      ( n -<name>- )  \ create a constant (unchangable) value
                  HEADER DOCON COMPILE, , ;
***************
*** 4365,4369 ****
  
  : DEFER         ( -<name>- )    \ create a deferred execution function
! \ *p create a deferred execution function, defaults to a NOOP
  \ ** Typical usage    ' new-action is deferred-action
  \ ** -or- : new-word ['] new-action is deferred-action ;
--- 4367,4371 ----
  
  : DEFER         ( -<name>- )    \ create a deferred execution function
! \ *G create a deferred execution function, defaults to a NOOP
  \ ** Typical usage    ' new-action is deferred-action
  \ ** -or- : new-word ['] new-action is deferred-action ;
***************
*** 4381,4386 ****
--- 4383,4392 ----
                  USER ;
  
+ in-application
+ 
  1 4096 *        CONSTANT USERSIZE   \ user area size for task variables
  
+ in-system
+ 
  : 2CONSTANT     ( n1 n2 -- )
                  CREATE , ,
***************
*** 4394,4397 ****
--- 4400,4405 ----
                  VARIABLE 0 , ;
  
+ in-application
+ 
  \ -------------------- Redefine DEFER-red Words -----------------------------
  
***************
*** 4424,4429 ****
  \ -------------------- Value ------------------------------------------------
  
- in-application
- 
  : VALUE         ( n -<name>- )  \ create a self fetching changeable value
                  HEADER           \ 'n TO value-name' will change a value
--- 4432,4435 ----
***************
*** 4433,4438 ****
                  DOVALUE+! COMPILE,   ;
                  
- in-system
- 
  |: ?TO_CHECK    ( xt -- xt_body )
                  DUP @ >R
--- 4439,4442 ----