[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.5,1.6

[Alex M. <ale...@us...>]

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

Modified Files:
	fkernel.f 
Log Message:
arm: correct possible stack underflow with _MESSAGE

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** fkernel.f	12 Mar 2005 09:09:57 -0000	1.5
--- fkernel.f	5 Apr 2005 22:25:46 -0000	1.6
***************
*** 5266,5270 ****
                    S" Error" (TYPEMSG)                    \ mark the source line in error, error
                    ?LOADING @ IF EDIT-ERROR THEN          \ edit if loading
!                 THEN DROP ;
  
  DEFER MESSAGE   ' _MESSAGE IS MESSAGE  
--- 5266,5271 ----
                    S" Error" (TYPEMSG)                    \ mark the source line in error, error
                    ?LOADING @ IF EDIT-ERROR THEN          \ edit if loading
!                 else drop  
!                 THEN ;
  
  DEFER MESSAGE   ' _MESSAGE IS MESSAGE  
***************
*** 5738,5740 ****
  ' ?THROW        RESOLVES ?THROW
  ' WARNMSG       RESOLVES WARNMSG
-