gforth/engine/forth.h - diff

Return to forth.h CVS log

Up to [gforth] / gforth / engine

Diff for /gforth/engine/forth.h between versions 1.23 and 1.24

version 1.23, 2001/12/27 16:29:29	version 1.24, 2002/01/14 08:40:24
Line 151 typedef Label *Xt;	Line 151 typedef Label *Xt;
#if !defined(DOUBLY_INDIRECT)	#if !defined(DOUBLY_INDIRECT)
# define DOES_CA (symbols[DODOES])	# define DOES_CA (symbols[DODOES])
#else /* defined(DOUBLY_INDIRECT) */	#else /* defined(DOUBLY_INDIRECT) */
# define DOES_CA ((Label)&symbols[DODOES])	# define DOES_CA ((Label)&xts[DODOES])
#endif /* defined(DOUBLY_INDIRECT) */	#endif /* defined(DOUBLY_INDIRECT) */


Line 226 typedef struct {	Line 226 typedef struct {
Xt boot_entry; / initial ip for booting (in BOOT) */	Xt boot_entry; / initial ip for booting (in BOOT) */
Xt throw_entry; / ip after signal (in THROW) */	Xt throw_entry; / ip after signal (in THROW) */
Cell unused1; /* possibly tib stack size */	Cell unused1; /* possibly tib stack size */
Cell unused2;	Label xt_base; / base of DOUBLE_INDIRECT xts[], for comp-i.fs */
Address data_stack_base; /* this and the following fields are initialized by the loader */	Address data_stack_base; /* this and the following fields are initialized by the loader */
Address fp_stack_base;	Address fp_stack_base;
Address return_stack_base;	Address return_stack_base;
Line 264 extern int die_on_signal;	Line 264 extern int die_on_signal;
extern UCell pagesize;	extern UCell pagesize;
extern ImageHeader *gforth_header;	extern ImageHeader *gforth_header;
extern Label *vm_prims;	extern Label *vm_prims;
	extern Label *xts;

#ifdef GFORTH_DEBUGGING	#ifdef GFORTH_DEBUGGING
extern Xt *ip;	extern Xt *ip;

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

Removed from v.1.23
changed lines
	Added in v.1.24