[gforth] / gforth / prims2x.fs  

gforth: gforth/prims2x.fs

Diff for /gforth/prims2x.fs between version 1.149 and 1.150

version 1.149, Tue Jan 20 19:07:41 2004 UTC version 1.150, Mon Aug 23 14:30:23 2004 UTC
Line 1572 
Line 1572 
 : 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 ;
   
 : output-costs ( -- )  \  : output-costs ( -- )
     \ description of superinstructions and simple instructions  \      \ description of superinstructions and simple instructions
     ." {" prim compute-costs  \      ." {" prim compute-costs
     rot 2 .r ." ," swap 2 .r ." ," 2 .r ." ,"  \      rot 2 .r ." ," swap 2 .r ." ," 2 .r ." ,"
     offset-super2 @ 5 .r ." ,"  \      offset-super2 @ 5 .r ." ,"
     super2-length dup 2 .r ." }," offset-super2 +!  \      super2-length dup 2 .r ." ," offset-super2 +!
     output-name-comment  \      inst-stream stack-in @ 1 .r ." },"
     cr ;  \      output-name-comment
   \      cr ;
   
 : output-super2-simple ( -- )  : output-super2-simple ( -- )
     prim prim-c-name 2@ prim prim-c-name-orig 2@ d= if      prim prim-c-name 2@ prim prim-c-name-orig 2@ d= if

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help