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

Fixed some broken computations of the address of stack locals. Have to add in

the NFP...
parent 176c5932
No related branches found
No related tags found
No related merge requests found
...@@ -423,14 +423,16 @@ ...@@ -423,14 +423,16 @@
(sc-case res (sc-case res
(mc68881-single-reg (mc68881-single-reg
(storew bits (current-nfp-tn vop) (tn-offset stack-temp)) (storew bits (current-nfp-tn vop) (tn-offset stack-temp))
(inst cal addr (* (tn-offset stack-temp) vm:word-bytes)) (inst cal addr (current-nfp-tn vop)
(* (tn-offset stack-temp) vm:word-bytes))
(inst mc68881-load res addr :single scratch)) (inst mc68881-load res addr :single scratch))
(single-stack (single-stack
(storew bits (current-nfp-tn vop) (tn-offset res))))) (storew bits (current-nfp-tn vop) (tn-offset res)))))
(signed-stack (signed-stack
(sc-case res (sc-case res
(mc68881-single-reg (mc68881-single-reg
(inst cal addr (* (tn-offset bits) vm:word-bytes)) (inst cal addr (current-nfp-tn vop)
(* (tn-offset bits) vm:word-bytes))
(inst mc68881-load res addr :single scratch)) (inst mc68881-load res addr :single scratch))
(single-stack (single-stack
(unless (location= bits res) (unless (location= bits res)
...@@ -457,7 +459,7 @@ ...@@ -457,7 +459,7 @@
(storew hi-bits (current-nfp-tn vop) (tn-offset stack-tn)) (storew hi-bits (current-nfp-tn vop) (tn-offset stack-tn))
(storew lo-bits (current-nfp-tn vop) (1+ (tn-offset stack-tn)))) (storew lo-bits (current-nfp-tn vop) (1+ (tn-offset stack-tn))))
(when (sc-is res mc68881-double-reg) (when (sc-is res mc68881-double-reg)
(inst cal addr (* (tn-offset temp) vm:word-bytes)) (inst cal addr (current-nfp-tn vop) (* (tn-offset temp) vm:word-bytes))
(inst mc68881-load res addr :double scratch)))) (inst mc68881-load res addr :double scratch))))
(define-vop (mc68881-single-float-bits) (define-vop (mc68881-single-float-bits)
......
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