[gforth] / gforth / cross.fs  

gforth: gforth/cross.fs

Diff for /gforth/cross.fs between version 1.111 and 1.112

version 1.111, Thu Sep 6 08:14:16 2001 UTC version 1.112, Wed Sep 12 11:48:36 2001 UTC
Line 2102 
Line 2102 
   
 Defer setup-prim-semantics  Defer setup-prim-semantics
   
 : aprim   ( -- )  : mapprim   ( "forthname" "asmlabel" -- )
   THeader -1 aprim-nr +! aprim-nr @ T A, H    THeader -1 aprim-nr +! aprim-nr @ T A, H
   asmprimname,    asmprimname,
   setup-prim-semantics ;    setup-prim-semantics ;
   
 : aprim:   ( -- )  : mapprim:   ( "forthname" "asmlabel" -- )
   -1 aprim-nr +! aprim-nr @    -1 aprim-nr +! aprim-nr @
   Ghost tuck swap resolve <do:> swap tuck >magic !    Ghost tuck swap resolve <do:> swap tuck >magic !
   asmprimname, ;    asmprimname, ;
Line 3507 
Line 3507 
 [IFDEF] extend-cross extend-cross [THEN]  [IFDEF] extend-cross extend-cross [THEN]
   
 LOCK  LOCK
   
   
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help