| version 1.79, Sun Mar 18 12:39:33 2001 UTC | version 1.80, Sun Mar 18 22:20:27 2001 UTC | ||
|---|---|---|---|
|
|
||
| \+ | \+ | ||
| \+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)."" | ||
|
|
||
| useraddr ( #u -- a_addr ) | useraddr ( #u -- a_addr ) | ||
| a_addr = (Cell *)(up+u); | a_addr = (Cell *)(up+u); | ||
| \+ | |||
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |