Skip to content
Snippets Groups Projects
Commit 9d545055 authored by wlott's avatar wlott
Browse files

Fixed a use of sc-load-functions to be sc-move-functions. Changed the place

where the NFP is allocated to be a call to make-number-stack-pointer-tn instead
of a make-representation-tn.
parent 423d4893
No related branches found
No related tags found
No related merge requests found
...@@ -176,7 +176,7 @@ ...@@ -176,7 +176,7 @@
(dotimes (i sc-number-limit) (dotimes (i sc-number-limit)
(let ((sc (svref *sc-numbers* i))) (let ((sc (svref *sc-numbers* i)))
(when sc (when sc
(let ((moves (sc-load-functions sc))) (let ((moves (sc-move-functions sc)))
(dolist (const (sc-constant-scs sc)) (dolist (const (sc-constant-scs sc))
(unless (svref moves (sc-number const)) (unless (svref moves (sc-number const))
(error "No move function defined to load SC ~S from constant ~ (error "No move function defined to load SC ~S from constant ~
...@@ -188,7 +188,7 @@ ...@@ -188,7 +188,7 @@
(error "No move function defined to load SC ~S from alternate ~ (error "No move function defined to load SC ~S from alternate ~
SC ~S." SC ~S."
(sc-name sc) (sc-name alt))) (sc-name sc) (sc-name alt)))
(unless (svref (sc-load-functions alt) i) (unless (svref (sc-move-functions alt) i)
(error "No move function defined to save SC ~S to alternate ~ (error "No move function defined to save SC ~S to alternate ~
SC ~S." SC ~S."
(sc-name sc) (sc-name alt))))))))) (sc-name sc) (sc-name alt)))))))))
...@@ -392,11 +392,11 @@ ...@@ -392,11 +392,11 @@
(nfp-tn) (nfp-tn)
(t (t
(assert (eq how :known-return)) (assert (eq how :known-return))
(setq nfp-tn (setq nfp-tn (make-number-stack-pointer-tn))
(make-representation-tn (setf (tn-sc nfp-tn)
*any-primitive-type* (svref *sc-numbers*
(first (primitive-type-scs (first (primitive-type-scs
*any-primitive-type*)))) (tn-primitive-type nfp-tn)))))
(emit-context-template (emit-context-template
node block node block
(template-or-lose 'compute-old-nfp) (template-or-lose 'compute-old-nfp)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment