Diff for /gforth/engine/engine.c between versions 1.39 and 1.40

version 1.39, 2002/01/20 19:04:11 version 1.40, 2002/02/04 21:25:18
Line 321  Cell *rp; Line 321  Cell *rp;
 Xt *primtable(Label symbols[], Cell size)  Xt *primtable(Label symbols[], Cell size)
      /* used in primitive primtable for peephole optimization */       /* used in primitive primtable for peephole optimization */
 {  {
 #ifdef DIRECT_THREADED  
   return symbols;  
 #else /* !defined(DIRECT_THREADED) */  
   Xt *xts = (Xt *)malloc(size*sizeof(Xt));    Xt *xts = (Xt *)malloc(size*sizeof(Xt));
   Cell i;    Cell i;
   
   for (i=0; i<size; i++)    for (i=0; i<size; i++)
     xts[i] = &symbols[i];      xts[i] = &symbols[i];
   return xts;    return xts;
 #endif /* !defined(DIRECT_THREADED) */  
 }  }
   
   

Removed from v.1.39  
changed lines
  Added in v.1.40


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