[Win32forth-cvs] win32forth/src/kernel fkernel.f, 1.66, 1.67 meta-fkernel.f, 1.9, 1.10

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

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv27659

Modified Files:
	fkernel.f meta-fkernel.f 
Log Message:
Fixed meta compiler size bug

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.66
retrieving revision 1.67
diff -C2 -d -r1.66 -r1.67
*** fkernel.f	25 Jun 2010 21:24:02 -0000	1.66
--- fkernel.f	26 Aug 2010 08:12:17 -0000	1.67
***************
*** 3068,3072 ****
  
  \ CAPS-FIND readded, which was lost sometime in the past, but it can be used
! \ in real application's (e.g. Brad Eckert is useing it in his "Firmware Studio").
  \ Samstag, Mai 15 2004 - dbu
  : CAPS-FIND     ( str -- str FALSE | cfa flag )
--- 3068,3072 ----
  
  \ CAPS-FIND readded, which was lost sometime in the past, but it can be used
! \ in real application's (e.g. Brad Eckert is using it in his "Firmware Studio").
  \ Samstag, Mai 15 2004 - dbu
  : CAPS-FIND     ( str -- str FALSE | cfa flag )
***************
*** 5385,5389 ****
  in-application
  
! |: PFIND        ( addr -- addr FALSE | cfa -1 | cfa 1 ) \ find possible local
                  PARMS                 \ there's got to be a local
                  IF
--- 5385,5389 ----
  in-application
  
! |: PFIND        ( addr -- addr FALSE | cfa -1 | cfa 1 ) \ find possible local. NOTE this is case-sensitive.
                  PARMS                 \ there's got to be a local
                  IF
***************
*** 5406,5410 ****
  \     implemented as a proper vocabulary, as it uses "find-proc
  \     that does a sequential scan through the PROCs list
! \   *** Note that PFIND translates the buffer in-place to uppercase
  
  : PARMFIND      ( addr -- addr FALSE | cfa -1 | cfa 1 )
--- 5406,5410 ----
  \     implemented as a proper vocabulary, as it uses "find-proc
  \     that does a sequential scan through the PROCs list
! \   *** Note that PARMFIND translates the buffer in-place to uppercase
  
  : PARMFIND      ( addr -- addr FALSE | cfa -1 | cfa 1 )

Index: meta-fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/meta-fkernel.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** meta-fkernel.f	28 Jul 2010 12:00:33 -0000	1.9
--- meta-fkernel.f	26 Aug 2010 08:12:17 -0000	1.10
***************
*** 50,54 ****
  APP-SIZE  MINAPPMEM <  [IF] MINAPPMEM  to APP-SIZE  [THEN]
  CODE-SIZE MINCODEMEM < [IF] MINCODEMEM to CODE-SIZE [THEN]
! SYS-SIZE  MINSYSMEM <  [IF] MINSIZMEM  to SYS-SIZE  [THEN]
  
  APP-SIZE  0x1000 naligned TO IMAGE-ASIZE  \ size of kernel application dictionary
--- 50,54 ----
  APP-SIZE  MINAPPMEM <  [IF] MINAPPMEM  to APP-SIZE  [THEN]
  CODE-SIZE MINCODEMEM < [IF] MINCODEMEM to CODE-SIZE [THEN]
! SYS-SIZE  MINSYSMEM <  [IF] MINSYSMEM  to SYS-SIZE  [THEN]
  
  APP-SIZE  0x1000 naligned TO IMAGE-ASIZE  \ size of kernel application dictionary