Diff for /gforth/prims2x.fs between versions 1.150 and 1.151

version 1.150, 2004/08/23 14:30:23 version 1.151, 2004/08/26 15:29:57
Line 1567  variable offset-super2  0 offset-super2 Line 1567  variable offset-super2  0 offset-super2
     rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , "      rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , "
     prim prim-branch? negate . ." ,"      prim prim-branch? negate . ." ,"
     state-in  state-number @ 2 .r ." ,"      state-in  state-number @ 2 .r ." ,"
     state-out state-number @ 2 .r ." ," ;      state-out state-number @ 2 .r ." ,"
       inst-stream stack-in @ 1 .r ." ,"
   ;
   
 : output-costs-gforth-simple ( -- )  : output-costs-gforth-simple ( -- )
     output-costs-prefix      output-costs-prefix
     prim output-num-part      prim output-num-part
     1 2 .r ." ,"      1 2 .r ." },"
     inst-stream stack-in @ 1 .r ." },"  
     output-name-comment      output-name-comment
     cr ;      cr ;
   
 : output-costs-gforth-combined ( -- )  : output-costs-gforth-combined ( -- )
     output-costs-prefix      output-costs-prefix
     ." N_START_SUPER+" offset-super2 @ 5 .r ." ,"      ." N_START_SUPER+" offset-super2 @ 5 .r ." ,"
     super2-length dup 2 .r ." ," offset-super2 +!      super2-length dup 2 .r ." }," offset-super2 +!
     inst-stream stack-in @ 1 .r ." },"  
     output-name-comment      output-name-comment
     cr ;      cr ;
   

Removed from v.1.150  
changed lines
  Added in v.1.151


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>