gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/cross.fs between versions 1.170 and 1.174

version 1.170, 2010/04/18 06:18:36	version 1.174, 2010/05/13 09:39:07
Line 2412 T 2 cells H Value xt>body	Line 2412 T 2 cells H Value xt>body
there xt>body + ca>native T a, H 1 fillcfa ; ' (doprim,) plugin-of doprim,	there xt>body + ca>native T a, H 1 fillcfa ; ' (doprim,) plugin-of doprim,

: (doeshandler,) ( -- )	: (doeshandler,) ( -- )
T cfalign H ; ' (doeshandler,) plugin-of doeshandler,	T H ; ' (doeshandler,) plugin-of doeshandler,

: (dodoes,) ( does-action-ghost -- )	: (dodoes,) ( does-action-ghost -- )
]comp [G'] :dodoes addr, comp[	]comp [G'] :dodoes addr, comp[
addr,	addr,
\ the relocator in the c engine, does not like the
\ does-address to marked for relocation
[ T e? ec H 0= [IF] ] T here H tcell - reloff [ [THEN] ]
2 fillcfa ; ' (dodoes,) plugin-of dodoes,	2 fillcfa ; ' (dodoes,) plugin-of dodoes,

: (dlit,) ( n -- ) compile lit td, ; ' (dlit,) plugin-of dlit,	: (dlit,) ( n -- ) compile lit td, ; ' (dlit,) plugin-of dlit,
Line 2954 Builder (ABI-CODE)	Line 2951 Builder (ABI-CODE)
Build: ;Build	Build: ;Build
by: :doabicode noop ;DO	by: :doabicode noop ;DO

	BUILDER (;abi-code)
	Build: ;Build
	by: :do;abicode noop ;DO

\ Input-Methods 01py	\ Input-Methods 01py

Builder input-method	Builder input-method
Line 3315 Cond: postpone ( -- ) \ name	Line 3316 Cond: postpone ( -- ) \ name
hex	hex

>CROSS	>CROSS
Create magic s" Gforth3x" here over allot swap move	Create magic s" Gforth4x" here over allot swap move

bigendian 1+ \ strangely, in magic big=0, little=1	bigendian 1+ \ strangely, in magic big=0, little=1
tcell 1 = 0 and or	tcell 1 = 0 and or

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

Removed from v.1.170
changed lines
	Added in v.1.174