gforth/arch/alpha/machine.h - diff

Return to machine.h CVS log

Up to [gforth] / gforth / arch / alpha

Diff for /gforth/arch/alpha/machine.h between versions 1.4 and 1.6

version 1.4, 1999/02/02 22:02:54	version 1.6, 2000/04/29 13:07:34
Line 1	Line 1
/* preliminary machine file for DEC Alpha	/* DEC Alpha

Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.	Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.

Line 20	Line 20
*/	*/

/* Be careful: long long on Alpha are 64 bit :-(( */	/* Be careful: long long on Alpha are 64 bit :-(( */
#define LONG_LATENCY
	#ifndef THREADING_SCHEME
	#define THREADING_SCHEME 5
	#endif

#if !defined(USE_TOS) && !defined(USE_NO_TOS)	#if !defined(USE_TOS) && !defined(USE_NO_TOS)
#define USE_TOS	#define USE_TOS
Line 149 typedef short Int16;	Line 152 typedef short Int16;
/* the does handler resides between DOES> and the following Forth	/* the does handler resides between DOES> and the following Forth
code. Since the code-field jumps directly to dodoes, the	code. Since the code-field jumps directly to dodoes, the
does-handler is not needed for the Alpha architecture */	does-handler is not needed for the Alpha architecture */
#define MAKE_DOES_HANDLER(addr) 0	#define MAKE_DOES_HANDLER(addr) ((void)0)

/* This makes a code field for a does-defined word. doesp is the	/* This makes a code field for a does-defined word. doesp is the
address of the does-code. On the Alpha, the code field consists of	address of the does-code. On the Alpha, the code field consists of
Line 166 typedef short Int16;	Line 169 typedef short Int16;
#define RPREG asm("$12")	#define RPREG asm("$12")
#define LPREG asm("$13")	#define LPREG asm("$13")
#define TOSREG asm("$14")	#define TOSREG asm("$14")
/* #define CFAREG asm("$22") */	/* #define CFAREG asm("$22") egcs-1.0.3 crashes with any caller-saved
	register decl */
#endif /* FORCE_REG */	#endif /* FORCE_REG */

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

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