Diff for /gforth/prims2x.fs between versions 1.142 and 1.143

version 1.142, 2003/08/24 09:56:09 version 1.143, 2003/08/27 12:13:49
Line 876  variable tail-nextp2 \ xt to execute for Line 876  variable tail-nextp2 \ xt to execute for
     endif      endif
     ." }" cr ;      ." }" cr ;
   
   : prim-branch? { prim -- f }
       \ true if prim is a branch or super-end
       prim prim-c-code 2@  s" SET_IP" search nip nip 0<> ;
   
 : output-superend ( -- )  : output-superend ( -- )
     \ output flag specifying whether the current word ends a dynamic superinst      \ output flag specifying whether the current word ends a dynamic superinst
     prim prim-c-code 2@  s" SET_IP"    search nip nip      prim prim-branch?
     prim prim-c-code 2@  s" SUPER_END" search nip nip or 0<>      prim prim-c-code 2@  s" SUPER_END" search nip nip 0<> or
     prim prim-c-code 2@  s" SUPER_CONTINUE" search nip nip 0= and      prim prim-c-code 2@  s" SUPER_CONTINUE" search nip nip 0= and
     negate 0 .r ." , /* " prim prim-name 2@ type ."  */" cr ;      negate 0 .r ." , /* " prim prim-name 2@ type ."  */" cr ;
   
Line 1317  variable tail-nextp2 \ xt to execute for Line 1321  variable tail-nextp2 \ xt to execute for
   
 variable offset-super2  0 offset-super2 ! \ offset into the super2 table  variable offset-super2  0 offset-super2 ! \ offset into the super2 table
   
 : output-costs-gforth-simple ( -- )  : output-costs-prefix ( -- )
      ." {" prim compute-costs      ." {" prim compute-costs
     rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , "      rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , "
       prim prim-branch? negate . ." ," ;
   
   : output-costs-gforth-simple ( -- )
       output-costs-prefix
     prim output-num-part      prim output-num-part
     1 2 .r ." },"      1 2 .r ." },"
     output-name-comment      output-name-comment
     cr ;      cr ;
   
 : output-costs-gforth-combined ( -- )  : output-costs-gforth-combined ( -- )
     ." {" prim compute-costs      output-costs-prefix
     rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , "  
     ." 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 +!
     output-name-comment      output-name-comment

Removed from v.1.142  
changed lines
  Added in v.1.143


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