From: Dirk B. <db...@us...> - 2005-03-12 09:10:09
|
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 ---- + |