Diff for /gforth/cross.fs between versions 1.119 and 1.120

version 1.119, 2002/01/05 22:58:59 version 1.120, 2002/03/19 11:13:08
Line 249  hex     \ the defualt base for the cross Line 249  hex     \ the defualt base for the cross
   
 hex  hex
   
   \ FIXME delete`
 \ 1 Constant Cross-Flag \ to check whether assembler compiler plug-ins are  \ 1 Constant Cross-Flag \ to check whether assembler compiler plug-ins are
                         \ for cross-compiling                          \ for cross-compiling
 \ No! we use "[IFUNDEF]" there to find out whether we are target compiling!!!  \ No! we use "[IFUNDEF]" there to find out whether we are target compiling!!!
   
   \ FIXME move down
 : comment? ( c-addr u -- c-addr u )  : comment? ( c-addr u -- c-addr u )
         2dup s" (" compare 0=          2dup s" (" compare 0=
         IF    postpone (          IF    postpone (
         ELSE  2dup s" \" compare 0= IF postpone \ THEN          ELSE  2dup s" \" compare 0= IF postpone \ THEN
         THEN ;          THEN ;
   
 : X     bl word count [ ' target >wordlist ] Literal search-wordlist  : X ( -- <name> )
         IF      state @ IF compile,  \G The next word in the input is a target word.
                 ELSE execute THEN  \G Equivalent to T <name> but without permanent
         ELSE    -1 ABORT" Cross: access method not supported!"  \G switch to target dictionary. Used as prefix e.g. for @, !, here etc.
         THEN ; immediate    bl word count [ ' target >wordlist ] Literal search-wordlist
     IF state @ IF compile, ELSE execute THEN
     ELSE  -1 ABORT" Cross: access method not supported!"
     THEN ; immediate
   
 \ Begin CROSS COMPILER:  \ Begin CROSS COMPILER:
   
Line 902  Defer is-forward Line 907  Defer is-forward
 Defer do-refered  Defer do-refered
   
 : prim-forward   ( ghost -- )  : prim-forward   ( ghost -- )
   \  ." PF" .sourcepos
   colonmark, 0 do-refered ; \ compile space for call    colonmark, 0 do-refered ; \ compile space for call
 : doer-forward   ( ghost -- )  : doer-forward   ( ghost -- )
   \  ." DF" .sourcepos
   colonmark, 2 do-refered ; \ compile space for doer    colonmark, 2 do-refered ; \ compile space for doer
 ' prim-forward IS is-forward  ' prim-forward IS is-forward
   
Line 1090  Ghost does-exec drop Line 1097  Ghost does-exec drop
 Ghost :docol    Ghost :doesjump Ghost :dodoes   2drop drop  Ghost :docol    Ghost :doesjump Ghost :dodoes   2drop drop
 Ghost :dovar                                    drop  Ghost :dovar                                    drop
   
   
 ' prim-forward IS is-forward  ' prim-forward IS is-forward
   
 \ \ Parameter for target systems                         06oct92py  \ \ Parameter for target systems                         06oct92py
Line 1651  T has? relocate H Line 1659  T has? relocate H
 >CROSS  >CROSS
   
 : call-forward ( ghost -- )  : call-forward ( ghost -- )
   \    ." CF" .sourcepos
     there 0 colon, 0 do-refered ;      there 0 colon, 0 do-refered ;
 ' call-forward IS is-forward  ' call-forward IS is-forward
   
Line 1874  Defer resolve-warning Line 1883  Defer resolve-warning
   dup >comp @ EXECUTE ;    dup >comp @ EXECUTE ;
   
 : gexecute ( ghost -- )  : gexecute ( ghost -- )
   dup >magic @ <imm> = IF -1 ABORT" CROSS: gexecute on immediate word" THEN    dup >magic @ <imm> = ABORT" CROSS: gexecute on immediate word"
   (gexecute) ;    (gexecute) ;
   
 : addr,  ( ghost -- )  : addr,  ( ghost -- )

Removed from v.1.119  
changed lines
  Added in v.1.120


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