gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.176, 2011/10/06 20:04:35	version 1.179, 2011/12/31 15:29:25
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 2966 Builder input-var	Line 2966 Builder input-var
Build: ( m v size -- m v' ) over T , H + ;Build	Build: ( m v size -- m v' ) over T , H + ;Build
DO: abort" Not in cross mode" ;DO	DO: abort" Not in cross mode" ;DO

	\ Mini-OOF

	Builder method
	Build: ( m v -- m' v ) over T , swap cell+ swap H ;Build
	DO: abort" Not in cross mode" ;DO

	Builder var
	Build: ( m v size -- m v+size ) over T , H + ;Build
	DO: ( o -- addr ) T @ H + ;DO

	Builder end-class
	Build: ( addr m v -- )
	T here >r , dup , 2 cells H ?DO T ['] noop , 1 cells H +LOOP
	T cell+ dup cell+ r> rot @ 2 cells /string move H ;Build
	by Create

	: class ( class -- class methods vars ) dup T 2@ H ;
	: defines ( xt class -- ) T ' >body @ + ! H ;

\ Peephole optimization 05sep01jaw	\ Peephole optimization 05sep01jaw

\ this section defines different compilation	\ this section defines different compilation