gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/cross.fs between versions 1.133 and 1.137

version 1.133, 2003/01/01 17:28:29	version 1.137, 2003/03/01 11:57:42
Line 1412 T has? rom H	Line 1412 T has? rom H

\ MakeKernel 22feb99jaw	\ MakeKernel 22feb99jaw

: makekernel ( targetsize -- )	: makekernel ( start targetsize -- )
\G convenience word to setup the memory of the target	\G convenience word to setup the memory of the target
\G used by main.fs of the c-engine based systems	\G used by main.fs of the c-engine based systems
100 swap dictionary (region)	dictionary (region) setup-target ;
setup-target ;

>MINIMAL	>MINIMAL
: makekernel makekernel ;	: makekernel makekernel ;
Line 2072 s" kernel.TAGS" r/w create-file throw va	Line 2071 s" kernel.TAGS" r/w create-file throw va
s" kernel.tags" r/w create-file throw value vi-tag-file-id	s" kernel.tags" r/w create-file throw value vi-tag-file-id
\ contains the file-id of the tags file	\ contains the file-id of the tags file

Create tag-beg 2 c, 7F c, bl c,	Create tag-beg 1 c, 7F c,
Create tag-end 2 c, bl c, 01 c,	Create tag-end 1 c, 01 c,
Create tag-bof 1 c, 0C c,	Create tag-bof 1 c, 0C c,
Create tag-tab 1 c, 09 c,	Create tag-tab 1 c, 09 c,

Line 2581 Cond: [ ( -- ) interpreting-state ;Cond	Line 2580 Cond: [ ( -- ) interpreting-state ;Cond

Defer instant-interpret-does>-hook	Defer instant-interpret-does>-hook

	T has? peephole H [IF]
: does-resolved ( ghost -- )	: does-resolved ( ghost -- )
compile does-exec g>xt T a, H ;	compile does-exec g>xt T a, H ;
	[ELSE]
	: does-resolved ( ghost -- )
	g>xt T a, H ;
	[THEN]

: resolve-does>-part ( -- )	: resolve-does>-part ( -- )
\ resolve words made by builders	\ resolve words made by builders

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

Removed from v.1.133
changed lines
	Added in v.1.137