[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.92,1.93

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

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1961

Modified Files:
	fkernel.f 
Log Message:
Adjusted user area to account for variables at negative offset. Windows Exceptions now caught properly (again).

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.92
retrieving revision 1.93
diff -C2 -d -r1.92 -r1.93
*** fkernel.f	15 May 2013 17:22:11 -0000	1.92
--- fkernel.f	30 Jun 2013 14:30:21 -0000	1.93
***************
*** 5817,5820 ****
--- 5817,5821 ----
                  mov     fs: 0x14 , edx          \ save in TIB at pvArbitrary
                  mov     RP0 [UP] , eax          \ save RP0
+                 sub     esp, # USEROFFS         \ subtract user offset
  
                  push    dword # EXCEPT-HANDLER  \ err handler address