gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.162, 2006/03/11 22:22:40	version 1.163, 2006/03/11 22:45:29
Line 1477 struct tpa_state_entry {	Line 1477 struct tpa_state_entry {
struct tpa_state *state;	struct tpa_state *state;
} *tpa_state_table[TPA_SIZE];	} *tpa_state_table[TPA_SIZE];

	#if !(defined(DOUBLY_INDIRECT) \|\| defined(INDIRECT_THREADED))
static Cell hash_tpa_state(struct tpa_state *t)	static Cell hash_tpa_state(struct tpa_state *t)
{	{
int ti = (int )(t->inst);	int ti = (int )(t->inst);
Line 1489 static Cell hash_tpa_state(struct tpa_st	Line 1490 static Cell hash_tpa_state(struct tpa_st
return (r+(r>>14)+(r>>22)) & (TPA_SIZE-1);	return (r+(r>>14)+(r>>22)) & (TPA_SIZE-1);
}	}

#if !(defined(DOUBLY_INDIRECT) \|\| defined(INDIRECT_THREADED))
static struct tpa_state lookup_tpa_state(struct tpa_state t)	static struct tpa_state lookup_tpa_state(struct tpa_state t)
{	{
Cell hash = hash_tpa_state(t);	Cell hash = hash_tpa_state(t);