[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.64,1.65

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

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

Modified Files:
	fkernel.f 
Log Message:
Increased number of locals to 16

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.64
retrieving revision 1.65
diff -C2 -d -r1.64 -r1.65
*** fkernel.f	22 Feb 2010 11:05:31 -0000	1.64
--- fkernel.f	15 May 2010 21:04:43 -0000	1.65
***************
*** 5207,5212 ****
    a; tcode-here cell-                               \ point at the offset in lea
                  jmp     eax                     \ and leap...
!   a; tcode-here 12 3 * + swap tcode-!                   \ correct the lea calculation
!                 pop     11 cells [ebp] \ nop   \ 12th
                  pop     10 cells [ebp] \ nop
                  pop      9 cells [ebp] \ nop
--- 5207,5216 ----
    a; tcode-here cell-                               \ point at the offset in lea
                  jmp     eax                     \ and leap...
!   a; tcode-here 16 3 * + swap tcode-!                   \ correct the lea calculation
!                 pop     15 cells [ebp] \ nop   \ 16th
!                 pop     14 cells [ebp] \ nop
!                 pop     13 cells [ebp] \ nop
!                 pop     12 cells [ebp] \ nop
!                 pop     11 cells [ebp] \ nop
                  pop     10 cells [ebp] \ nop
                  pop      9 cells [ebp] \ nop
***************
*** 5239,5246 ****
  10 LOCAL LOCAL10
  11 LOCAL LOCAL11
  
  | CREATE LOCAL-PTRS ' LOCAL0 , ' LOCAL1 , ' LOCAL2 , ' LOCAL3 , ' LOCAL4 ,
                      ' LOCAL5 , ' LOCAL6 , ' LOCAL7 , ' LOCAL8 , ' LOCAL9 ,
!                     ' LOCAL10 , ' LOCAL11 ,
  
  | CREATE LDP  0 , 0 , 0 , DP-LINK LINK, ," *LOCALS"  \ locals pointer
--- 5243,5258 ----
  10 LOCAL LOCAL10
  11 LOCAL LOCAL11
+ 12 LOCAL LOCAL12
+ 13 LOCAL LOCAL13
+ 14 LOCAL LOCAL14
+ 15 LOCAL LOCAL15
  
  | CREATE LOCAL-PTRS ' LOCAL0 , ' LOCAL1 , ' LOCAL2 , ' LOCAL3 , ' LOCAL4 ,
                      ' LOCAL5 , ' LOCAL6 , ' LOCAL7 , ' LOCAL8 , ' LOCAL9 ,
!                     ' LOCAL10 , ' LOCAL11 , ' LOCAL12 , ' LOCAL13 ,
!                     ' LOCAL14 , ' LOCAL15 ,
! 
! 
! 
  
  | CREATE LDP  0 , 0 , 0 , DP-LINK LINK, ," *LOCALS"  \ locals pointer
***************
*** 5248,5252 ****
  in-system
  
! 12 CONSTANT #-LOCALS                            \ must match code above!!!!
  
  4096 EQU LOCALS-LEN
--- 5260,5264 ----
  in-system
  
! 16 CONSTANT #-LOCALS                            \ must match code above!!!!
  
  4096 EQU LOCALS-LEN