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) */ |
|
} |
} |
|
|
|
|