gforth/kernel/main.fs - diff

Return to main.fs CVS log

Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/main.fs between versions 1.3 and 1.4

version 1.3, 1997/07/06 16:11:02	version 1.4, 1997/09/13 12:05:53
Line 39 decimal	Line 39 decimal

cell 2 = [IF] 32 [ELSE] 256 [THEN] KB makekernel ( size )	cell 2 = [IF] 32 [ELSE] 256 [THEN] KB makekernel ( size )
\ create image-header	\ create image-header
has-header [IF]	has? header [IF]
0 A, \ base address	0 A, \ base address
0 , \ checksum	0 , \ checksum
0 , \ image size (without tags)	0 , \ image size (without tags)
Line 62 UNLOCK ghost - drop \ ghost must exist b	Line 62 UNLOCK ghost - drop \ ghost must exist b
LOCK	LOCK

doc-off	doc-off
has-prims [IF]	has? prims [IF]
include kernel/aliases.fs \ include primitive aliases	include kernel/aliases.fs \ include primitive aliases
[ELSE]	[ELSE]
prims-include	prims-include
Line 78 include kernel/vars.fs \	Line 78 include kernel/vars.fs \
include kernel/errore.fs	include kernel/errore.fs
include kernel/version.fs	include kernel/version.fs
include kernel/kernel.fs \ load kernel	include kernel/kernel.fs \ load kernel
has-files [IF]	has? file [IF]
include kernel/args.fs	include kernel/args.fs
include kernel/files.fs \ load file words	include kernel/files.fs \ load file words
include kernel/paths.fs	include kernel/paths.fs
include kernel/require.fs	include kernel/require.fs
[THEN]	[THEN]
has-locals [IF]	has? glocals [IF]
include kernel/cond.fs \ load IF and co	include kernel/cond.fs \ load IF and co
[ELSE]	[ELSE]
include kernel/cond-old.fs \ load IF and co w/o locals	include kernel/cond-old.fs \ load IF and co w/o locals
Line 101 here normal-dp !	Line 101 here normal-dp !
tudp H @ minimal udp !	tudp H @ minimal udp !
decimal	decimal

has-header [IF]	has? header [IF]
here 2 cells ! \ image size	here 2 cells ! \ image size
' boot >body 8 cells ! \ Entry point	' boot >body 8 cells ! \ Entry point
[ELSE]	[ELSE]

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

Removed from v.1.3
changed lines
	Added in v.1.4