[Win32forth-cvs] win32forth-stc/src/kernel gkernext.f,1.4,1.5

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

Update of /cvsroot/win32forth/win32forth-stc/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5345/src/kernel

Modified Files:
	gkernext.f 
Log Message:
arm: reverted over-aggressive stack adjustment code

Index: gkernext.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernext.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** gkernext.f	22 Mar 2007 02:13:56 -0000	1.4
--- gkernext.f	23 Mar 2007 11:43:28 -0000	1.5
***************
*** 48,53 ****
  macro: next     ( -- )                  \ assemble the code to do a next
                  a;
-                 ste-adjust              \ adjust stack
-                 ste-reset
                  ofa-calc                \ resolve the optimizer field address
                  ret
--- 48,51 ----
***************
*** 55,58 ****
--- 53,58 ----
  
  macro: next;    ( -- )                  \ terminate code word
+                 ste-adjust              \ adjust stack
+                 ste-reset
                  next c;                 \ and return
                  ;macro