398 |
(base-used) |
(base-used) |
399 |
(wt-nl "{register object *base=V" top ";") |
(wt-nl "{register object *base=V" top ";") |
400 |
(wt-nl "register object *sup=vs_base+VM" *reservation-cmacro* ";") |
(wt-nl "register object *sup=vs_base+VM" *reservation-cmacro* ";") |
401 |
|
;;; Dummy assignments for lint |
402 |
|
(wt-nl "base" (1- *level*) "[0]=base" (1- *level*) "[0];") |
403 |
|
(wt-nl "base[0]=base[0];") |
404 |
(if *safe-compile* |
(if *safe-compile* |
405 |
(wt-nl "vs_reserve(VM" *reservation-cmacro* ");") |
(wt-nl "vs_reserve(VM" *reservation-cmacro* ");") |
406 |
(wt-nl "vs_check;")) |
(wt-nl "vs_check;")) |