diff --git a/compiler/old-rt/call.lisp b/compiler/old-rt/call.lisp index a99d8010677e824d5a2b3b82474c222ad79fbdcb..5a696d5d242a18c378b9de884bddca8ae91e09e5 100644 --- a/compiler/old-rt/call.lisp +++ b/compiler/old-rt/call.lisp @@ -62,14 +62,16 @@ ;;; known location. ;;; (defun make-old-fp-save-location (env) - (environment-live-tn - (make-wired-tn *any-primitive-type* stack-arg-scn old-fp-save-offset) - env)) + (specify-save-tn + (environment-debug-live-tn (make-normal-tn *any-primitive-type*) + env) + (make-wired-tn *any-primitive-type* stack-arg-scn old-fp-save-offset))) ;;; (defun make-return-pc-save-location (env) - (environment-live-tn - (make-wired-tn *any-primitive-type* stack-arg-scn return-pc-save-offset) - env)) + (specify-save-tn + (environment-debug-live-tn (make-normal-tn *any-primitive-type*) + env) + (make-wired-tn *any-primitive-type* stack-arg-scn return-pc-save-offset))) ;;; Make-Argument-Count-Location -- Interface