Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25290/win32forth/src/kernel
Modified Files:
fkernel.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/src/kernel/fkernel.f,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** fkernel.f 10 Oct 2006 11:11:25 -0000 1.40
--- fkernel.f 30 Oct 2006 12:01:43 -0000 1.41
***************
*** 5194,5198 ****
|: 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
--- 5194,5198 ----
|: 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
|
