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
|
