gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.141, 2003/08/18 19:29:14	version 1.143, 2003/11/09 20:47:49
Line 1722 Ghost (do) Ghost (?do)	Line 1722 Ghost (do) Ghost (?do)
Ghost (for) drop	Ghost (for) drop
Ghost (loop) Ghost (+loop) 2drop	Ghost (loop) Ghost (+loop) 2drop
Ghost (next) drop	Ghost (next) drop
Ghost (does>) Ghost (compile) 2drop	Ghost (does>) Ghost compile, 2drop
Ghost (.") Ghost (S") Ghost (ABORT") 2drop drop	Ghost (.") Ghost (S") Ghost (ABORT") 2drop drop
Ghost (C") Ghost c(abort") Ghost type 2drop drop	Ghost (C") Ghost c(abort") Ghost type 2drop drop
Ghost ' drop	Ghost ' drop
Line 2026 variable ResolveFlag	Line 2026 variable ResolveFlag
\ Header states 12dec92py	\ Header states 12dec92py

\ : flag! ( 8b -- ) tlast @ dup >r T c@ xor r> c! H ;	\ : flag! ( 8b -- ) tlast @ dup >r T c@ xor r> c! H ;
bigendian [IF] 0 [ELSE] tcell 1- [THEN] Constant flag+	X has? f83headerstring bigendian or [IF] 0 [ELSE] tcell 1- [THEN] Constant flag+
: flag! ( w -- ) tlast @ flag+ + dup >r T c@ xor r> c! H ;	: flag! ( w -- ) tlast @ flag+ + dup >r T c@ xor r> c! H ;

VARIABLE ^imm	VARIABLE ^imm
Line 3247 Cond: postpone ( -- ) \ name	Line 3247 Cond: postpone ( -- ) \ name
ABORT" CROSS: Can't postpone on forward declaration"	ABORT" CROSS: Can't postpone on forward declaration"
dup >magic @ <imm> =	dup >magic @ <imm> =
IF (gexecute)	IF (gexecute)
ELSE compile (compile) addr, THEN ;Cond	ELSE >link @ alit, compile compile, THEN ;Cond

\ save-cross 17mar93py	\ save-cross 17mar93py