gforth/kernel/cloop.fs - diff

Return to cloop.fs CVS log

Up to [gforth] / gforth / kernel

version 1.7, 2006/03/26 22:54:20	version 1.9, 2006/12/31 13:39:18
Line 1	Line 1
\ Structural Conditionals, loops part 12dec92py	\ Structural Conditionals, loops part 12dec92py

\ Copyright (C) 1995,1996,1997,1999,2001,2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1999,2001,2003,2006 Free Software Foundation, Inc.

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

Line 20	Line 20

\ Structural Conditionals 12dec92py	\ Structural Conditionals 12dec92py

Variable leavings	\ this works with flash

\ this doesn't work with flash yet!!	: (leave) -1 , ;

: (leave) here leavings @ , leavings ! ;
: LEAVE postpone branch (leave) ; immediate restrict	: LEAVE postpone branch (leave) ; immediate restrict
: ?LEAVE postpone 0= postpone ?branch (leave) ;	: ?LEAVE postpone 0= postpone ?branch (leave) ;
immediate restrict	immediate restrict

: DONE ( addr -- ) leavings @	: DONE ( addr -- ) here swap ?DO
BEGIN 2dup u<= WHILE dup @ swap >resolve REPEAT	I @ ['] branch = I @ ['] ?branch = or I @ ['] (?do) = or
leavings ! drop ; immediate restrict	I cell+ @ -1 = and IF I cell+ >resolve THEN
	cell +LOOP ; immediate restrict

\ Structural Conditionals 12dec92py	\ Structural Conditionals 12dec92py