[gforth] / gforth / engine / main.c  

gforth: gforth/engine/main.c

Diff for /gforth/engine/main.c between version 1.162 and 1.163

version 1.162, Sat Mar 11 22:22:40 2006 UTC version 1.163, Sat Mar 11 22:45:29 2006 UTC
Line 1477 
Line 1477 
   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 
Line 1490 
   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);

Generate output suitable for use with a patch program
Legend:
Removed from v.1.162  
changed lines
  Added in v.1.163
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help