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

Saved out the buffer this time...

parent 5932ee6a
No related branches found
No related tags found
No related merge requests found
...@@ -569,9 +569,11 @@ default-value-5 ...@@ -569,9 +569,11 @@ default-value-5
;;; ;;;
(define-vop (known-return) (define-vop (known-return)
(:args (old-fp :scs (word-pointer-reg control-stack)) (:args (old-fp :scs (word-pointer-reg control-stack))
(return-pc :scs (descriptor-reg control-stack)) (return-pc-arg :scs (descriptor-reg control-stack)
:target return-pc)
(vals :more t)) (vals :more t))
(:temporary (:scs (interior-reg) :type interior) lip) (:temporary (:scs (interior-reg) :type interior) lip)
(:temporary (:sc descriptor-reg :from (:argument 1)) return-pc)
(:move-args :known-return) (:move-args :known-return)
(:info val-locs) (:info val-locs)
(:ignore val-locs vals) (:ignore val-locs vals)
...@@ -582,10 +584,11 @@ default-value-5 ...@@ -582,10 +584,11 @@ default-value-5
(when cur-nfp (when cur-nfp
(inst cal nsp-tn cur-nfp (inst cal nsp-tn cur-nfp
(component-non-descriptor-stack-usage)))) (component-non-descriptor-stack-usage))))
(maybe-load-stack-tn return-pc return-pc-arg)
;; Skip over a word, the LRA header, and subtract out low-tag bits. ;; Skip over a word, the LRA header, and subtract out low-tag bits.
(inst cal lip return-pc (- vm:word-bytes vm:other-pointer-type)) (inst cal lip return-pc (- vm:word-bytes vm:other-pointer-type))
(inst bx lip) (inst bx lip)
(move cfp-tn old-fp))) (maybe-load-stack-tn cfp-tn old-fp)))
......
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