[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.77,1.78

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

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv19946

Modified Files:
	fkernel.f 
Log Message:
Increased size of user area plus moved it down lower in stack segment

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.77
retrieving revision 1.78
diff -C2 -d -r1.77 -r1.78
*** fkernel.f	10 Aug 2011 16:55:58 -0000	1.77
--- fkernel.f	18 Aug 2011 12:59:52 -0000	1.78
***************
*** 4598,4602 ****
  in-application
  
! 1 4096 *        CONSTANT USERSIZE   \ user area size for task variables
  
  in-system
--- 4598,4602 ----
  in-application
  
! 2 4096 *        CONSTANT USERSIZE   \ user area size for task variables
  
  in-system
***************
*** 5778,5785 ****
                  sub     esp, # RSTACKSIZE       \ room for return stack
  
                  mov     edx, esp                \ user area is on stack
                  mov     fs: 0x14 , edx          \ save in TIB at pvArbitrary
                  mov     RP0 [UP] , eax          \ save RP0
-                 sub     esp, # USERSIZE         \ subtract usersize
  
                  push    dword # EXCEPT-HANDLER  \ err handler address
--- 5778,5785 ----
                  sub     esp, # RSTACKSIZE       \ room for return stack
  
+                 sub     esp, # USERSIZE         \ subtract usersize
                  mov     edx, esp                \ user area is on stack
                  mov     fs: 0x14 , edx          \ save in TIB at pvArbitrary
                  mov     RP0 [UP] , eax          \ save RP0
  
                  push    dword # EXCEPT-HANDLER  \ err handler address