Update of /cvsroot/win32forth/win32forth-610old/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25290/win32forth-610old/src/kernel
Modified Files:
fkernel.f version.f
Log Message:
gah:Modified Locals-init to not check stack depth to fix bug reported by Elko Tchernev.
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/src/kernel/fkernel.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** fkernel.f 24 Aug 2006 11:44:07 -0000 1.7
--- fkernel.f 30 Oct 2006 12:01:42 -0000 1.8
***************
*** 5065,5069 ****
|: LOCALS-INIT ( -- ) \ init, check if locals validly used
! ?csp \ make sure not used inside control structures
?comp \ must be compiling
PARMS THROW_LOCALSTWICE ?THROW \ and not used before in the definition
--- 5065,5069 ----
|: LOCALS-INIT ( -- ) \ init, check if locals validly used
! \ ?csp \ make sure not used inside control structures
?comp \ must be compiling
PARMS THROW_LOCALSTWICE ?THROW \ and not used before in the definition
***************
*** 5880,5882 ****
\ Prad~
- |
