[gforth] / gforth / kernel / recognizer.fs  

gforth: gforth/kernel/recognizer.fs

Diff for /gforth/kernel/recognizer.fs between version 1.1 and 1.2

version 1.1, Wed Oct 5 20:48:16 2011 UTC version 1.2, Wed Oct 5 20:56:45 2011 UTC
Line 17 
Line 17 
   
 : recognizer: ( xt1 xt2 xt3 xt4 -- ) Create 2swap swap 2, swap 2, ;  : recognizer: ( xt1 xt2 xt3 xt4 -- ) Create 2swap swap 2, swap 2, ;
   
 : r>int     ( r-addr -- )  @ ;  (field) r>int     ( r-addr -- addr )  0 cells ,
 : r>compint ( r-addr -- )  cell+ @ ;  (field) r>compint ( r-addr -- )       1 cells ,
 : r>comp    ( r-addr -- )  cell+ cell+ @ ;  (field) r>comp    ( r-addr -- )       2 cells ,
 : r>lit     ( r-addr -- )  cell+ cell+ cell+ @ ;  (field) r>lit     ( r-addr -- )       3 cells ,
   
 :noname ( ... nt -- ) name>int execute ;  :noname ( ... nt -- ) name>int execute ;
 :noname ( ... nt -- ) name>int compile, ;  :noname ( ... nt -- ) name>int compile, ;
Line 80 
Line 80 
     no.extensions ;      no.extensions ;
   
 : interpreter-r ( addr u -- ... xt )  : interpreter-r ( addr u -- ... xt )
     forth-recognizer do-recognizer r>int ;      forth-recognizer do-recognizer r>int @ ;
   
 : compiler-r ( addr u -- ... xt )  : compiler-r ( addr u -- ... xt )
     forth-recognizer do-recognizer r>comp ;      forth-recognizer do-recognizer r>comp @ ;
   
 : [ ( -- ) \  core      left-bracket  : [ ( -- ) \  core      left-bracket
     \G Enter interpretation state. Immediate word.      \G Enter interpretation state. Immediate word.

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help