version 1.79, 2001/03/18 12:39:33
|
version 1.80, 2001/03/18 22:20:27
|
Line 2351 while(a_addr != NULL)
|
Line 2351 while(a_addr != NULL)
|
|
|
\+ |
\+ |
|
|
|
\+peephole |
|
|
primtable ( -- wprimtable ) new |
primtable ( -- wprimtable ) new |
""wprimtable is a table containing the xts of the primitives indexed |
""wprimtable is a table containing the xts of the primitives indexed |
by sequence-number in prim (for use in prepare-peephole-table)."" |
by sequence-number in prim (for use in prepare-peephole-table)."" |
Line 2377 SET_IP((Xt *)a_callee);
|
Line 2379 SET_IP((Xt *)a_callee);
|
useraddr ( #u -- a_addr ) |
useraddr ( #u -- a_addr ) |
a_addr = (Cell *)(up+u); |
a_addr = (Cell *)(up+u); |
|
|
|
\+ |
|
|