gforth/kernel/cond.fs - diff

Return to cond.fs CVS log

Up to [gforth] / gforth / kernel

version 1.15, 2003/01/19 23:35:34	version 1.20, 2007/10/29 15:56:31
Line 1	Line 1
\ Structural Conditionals 12dec92py	\ Structural Conditionals 12dec92py

\ Copyright (C) 1995-2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,2000,2003,2004 Free Software Foundation, Inc.

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

Line 105 variable backedge-locals	Line 105 variable backedge-locals

\ Structural Conditionals 12dec92py	\ Structural Conditionals 12dec92py

	defer other-control-flow ( -- )
	\ hook for control-flow stuff that's not handled by begin-like etc.

: ?struc ( flag -- ) abort" unstructured " ;	: ?struc ( flag -- ) abort" unstructured " ;
: sys? ( sys -- ) dup 0= ?struc ;	: sys? ( sys -- ) dup 0= ?struc ;
: >mark ( -- orig )	: >mark ( -- orig )
cs-push-orig 0 , ;	cs-push-orig 0 , other-control-flow ;
: >resolve ( addr -- )	: >resolve ( addr -- )
here swap !	here swap !
basic-block-end ;	basic-block-end ;
Line 148 immediate restrict	Line 151 immediate restrict
\ people who have not been brought up with Forth (or who have been	\ people who have not been brought up with Forth (or who have been
\ brought up with fig-Forth).	\ brought up with fig-Forth).

: ELSE ( compilation orig1 -- orig2 ; run-time f -- ) \ core	: ELSE ( compilation orig1 -- orig2 ; run-time -- ) \ core
POSTPONE ahead	POSTPONE ahead
1 cs-roll	1 cs-roll
POSTPONE then ; immediate restrict	POSTPONE then ; immediate restrict