Diff for /gforth/prims2x.fs between versions 1.124 and 1.125

version 1.124, 2002/12/27 16:22:03 version 1.125, 2002/12/28 17:18:27
Line 923  variable tail-nextp2 \ xt to execute for Line 923  variable tail-nextp2 \ xt to execute for
 \      cr ;  \      cr ;
   
 : output-label ( -- )    : output-label ( -- )  
     ." INST_ADDR(" prim prim-c-name 2@ type ." )," cr ;      ." INST_ADDR(" prim prim-c-name 2@ type ." )" cr ;
   
 : output-alias ( -- )   : output-alias ( -- ) 
     ( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ;      ( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ;
Line 1424  Variable c-flag Line 1424  Variable c-flag
 (( (( ` g || ` G )) {{ start }} nonl **  (( (( ` g || ` G )) {{ start }} nonl **
    {{ end     {{ end
       forth-flag @ IF  ." group " type cr  THEN        forth-flag @ IF  ." group " type cr  THEN
       c-flag @     IF  ." GROUP(" type ." )" cr  THEN }}        c-flag @     IF  ." GROUP(" type ." , " function-number @ 0 .r ." )" cr  THEN }}
 )) <- group-comment  )) <- group-comment
   
 (( (( eval-comment || forth-comment || c-comment || else-comment || if-comment || group-comment )) ?? nonl ** )) <- comment-body  (( (( eval-comment || forth-comment || c-comment || else-comment || if-comment || group-comment )) ?? nonl ** )) <- comment-body

Removed from v.1.124  
changed lines
  Added in v.1.125


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