gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/cross.fs between versions 1.177 and 1.179

version 1.177, 2011/11/11 18:29:09	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 2968 DO: abort" Not in cross mode" ;DO	Line 2968 DO: abort" Not in cross mode" ;DO

\ Mini-OOF	\ Mini-OOF

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

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

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

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

\ Peephole optimization 05sep01jaw	\ Peephole optimization 05sep01jaw

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

Removed from v.1.177
changed lines
	Added in v.1.179