gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.178, 2011/11/11 18:39:37	version 1.180, 2012/02/13 22:58:13
Line 1	Line 1
\ CROSS.FS The Cross-Compiler 06oct92py	\ CROSS.FS The Cross-Compiler 06oct92py
\ Idea and implementation: Bernd Paysan (py)	\ Idea and implementation: Bernd Paysan (py)

\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2004,2005,2006,2007,2009,2010 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2004,2005,2006,2007,2009,2010,2011 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 3068 compile: does-resolved ;compile	Line 3068 compile: does-resolved ;compile
\ : ?struc ( flag -- ) ABORT" CROSS: unstructured " ;	\ : ?struc ( flag -- ) ABORT" CROSS: unstructured " ;
\ : sys? ( sys -- sys ) dup 0= ?struc ;	\ : sys? ( sys -- sys ) dup 0= ?struc ;

: >mark ( -- sys ) T here ( dup ." M" hex. ) 0 , H ;	: >mark ( -- sys ) T here 0 , H ;

X has? abranch [IF]	X has? abranch [IF]
: branchoffset ( src dest -- ) drop ;	: branchoffset ( src dest -- ) drop ;