171 |
(return-short-float short-float . wt-short-float-loc) |
(return-short-float short-float . wt-short-float-loc) |
172 |
(return-long-float long-float . wt-long-float-loc) |
(return-long-float long-float . wt-long-float-loc) |
173 |
(return-object t . wt-loc)))) |
(return-object t . wt-loc)))) |
174 |
(let ((cvar (next-cvar))) |
(or (eq *exit* (car type.wt)) (wfs-error)) |
175 |
(or (eq *exit* (car type.wt)) (wfs-error)) |
(setq type.wt (cdr type.wt)) |
176 |
(setq type.wt (cdr type.wt)) |
(let ((cvar (cs-push (car type.wt) t))) |
177 |
(wt-nl "{" (rep-type (car type.wt)) "V" cvar " = ") |
(wt-nl "{" (rep-type (car type.wt)) "V" cvar " = ") |
178 |
(funcall (cdr type.wt) loc) (wt ";") |
(funcall (cdr type.wt) loc) (wt ";") |
179 |
(unwind-bds bds-cvar bds-bind) |
(unwind-bds bds-cvar bds-bind) |
180 |
(wt-nl "VMR" *reservation-cmacro* "(" |
(wt-nl "VMR" *reservation-cmacro* "(" |
181 |
(if (equal (rep-type (car type.wt)) "long ") "(object)" "") |
(if (equal (rep-type (car type.wt)) "long ") "(object)" "") |
182 |
"V" cvar")}") |
"V" cvar")}")) |
183 |
(return))) |
(return)) |
184 |
(t (baboon)) |
(t (baboon)) |
185 |
;;; Never reached |
;;; Never reached |
186 |
)) |
))) |
|
) |
|
187 |
|
|
188 |
(defun unwind-no-exit (exit &aux (bds-cvar nil) (bds-bind 0)) |
(defun unwind-no-exit (exit &aux (bds-cvar nil) (bds-bind 0)) |
189 |
(declare (fixnum bds-bind)) |
(declare (fixnum bds-bind)) |