File:  [gforth] / gforth / arch / 386 / ncex / ncexcontrol.fs
Revision 1.2: download - view: text, annotated - select for diffs
Sun Nov 11 22:33:32 2001 UTC (22 years, 5 months ago) by pazsan
Branches: MAIN
CVS tags: v0-7-0, HEAD
Added tags generation for vi
small changes on httpd for EuroForth paper
Added navigation button generation via Gimp to wf
Made nccomp from Lars Krueger work at least somehow

\ Native code extensions of control flow.

: tc-ahead POSTPONE branch >mark POSTPONE unreachable ; 
: tc-if POSTPONE ?branch >mark ;
: tc-else POSTPONE ahead  1 cs-roll  POSTPONE then ;
: tc-then  dup orig?  then-like ;

: nc-ahead (opt-flush) regalloc-flush tc-ahead ;
: nc-if (opt-flush) regalloc-flush tc-if ;
: nc-else (opt-flush) regalloc-flush tc-else ;
: nc-then (opt-flush) regalloc-flush tc-then ; 

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