version 1.28, 2001/06/16 22:53:38
|
version 1.29, 2002/02/04 21:25:18
|
Line 192 AUser dpp normal-dp dpp !
|
Line 192 AUser dpp normal-dp dpp !
|
AUser LastCFA |
AUser LastCFA |
AUser Last |
AUser Last |
|
|
AUser last-compiled \ address of the last compiled xt |
AUser last-compiled \ last compile,d xt |
\ 0 if last xt cannot be combined (basic block boundary) |
\ 0 if last xt was dyn-compiled already (basic-block-end) |
0 last-compiled ! |
0 last-compiled ! |
|
AUser last-compiled-here \ where LAST-COMPILED should be stored |
|
|
has? peephole [IF] |
has? peephole [IF] |
0 value peeptable \ initialized in boot |
0 value peeptable \ initialized in boot |