Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23015/src/kernel
Modified Files:
fkernel.f meta-compiler.f
Log Message:
dbu: DEPRECATED added
Index: meta-compiler.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/meta-compiler.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** meta-compiler.f 21 Dec 2004 00:19:10 -0000 1.1
--- meta-compiler.f 12 Mar 2005 09:09:58 -0000 1.2
***************
*** 314,318 ****
2dup THREAD DUP @ HERE-H ROT ! ,-H \ LFA
0 ,-H \ CFA-PTR
! VFA-BIT C,-H \ BFA (VFA only)
HERE-H LAST-H ! \ remember nfa
DUP C,-H S,-H \ count byte NFA name string
--- 314,318 ----
2dup THREAD DUP @ HERE-H ROT ! ,-H \ LFA
0 ,-H \ CFA-PTR
! BFA_VFA_PRESENT C,-H \ BFA (VFA only)
HERE-H LAST-H ! \ remember nfa
DUP C,-H S,-H \ count byte NFA name string
***************
*** 370,374 ****
HERE-H TO OFA-H \ save address of OFA
HERE-C ,-H \ init OFA with start of definition
! LAST-H @ 1- DUP C@-H OFA-BIT OR SWAP C!-H \ mark as OFA in BFA
;
--- 370,374 ----
HERE-H TO OFA-H \ save address of OFA
HERE-C ,-H \ init OFA with start of definition
! LAST-H @ 1- DUP C@-H BFA_OFA_PRESENT OR SWAP C!-H \ mark as OFA in BFA
;
***************
*** 816,817 ****
--- 816,818 ----
+ |
