Skip to content
Snippets Groups Projects
Commit 83267365 authored by ram's avatar ram
Browse files

Changed the return-pc/old-cont save TNs to be DEBUG-LIVE.

parent 56f49d9d
No related branches found
No related tags found
No related merge requests found
...@@ -62,14 +62,16 @@ ...@@ -62,14 +62,16 @@
;;; known location. ;;; known location.
;;; ;;;
(defun make-old-fp-save-location (env) (defun make-old-fp-save-location (env)
(environment-live-tn (specify-save-tn
(make-wired-tn *any-primitive-type* stack-arg-scn old-fp-save-offset) (environment-debug-live-tn (make-normal-tn *any-primitive-type*)
env)) env)
(make-wired-tn *any-primitive-type* stack-arg-scn old-fp-save-offset)))
;;; ;;;
(defun make-return-pc-save-location (env) (defun make-return-pc-save-location (env)
(environment-live-tn (specify-save-tn
(make-wired-tn *any-primitive-type* stack-arg-scn return-pc-save-offset) (environment-debug-live-tn (make-normal-tn *any-primitive-type*)
env)) env)
(make-wired-tn *any-primitive-type* stack-arg-scn return-pc-save-offset)))
;;; Make-Argument-Count-Location -- Interface ;;; Make-Argument-Count-Location -- Interface
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment