Changeset 14938

Timestamp:

Aug 13, 2011, 11:55:24 PM (13 years ago)

Author:

Gary Byers

Message:

PUSH-FPRS, POP-FPRS: save/restore non-volatile FPRs (as doubles)
on/from sp.

File:

• trunk/source/compiler/ARM/arm-lapmacros.lisp (modified) (1 diff)

trunk/source/compiler/ARM/arm-lapmacros.lisp

@@ -377 +377 @@
        `((movt ,reg (:$ ,high)))))))
 
+(defarmlapmacro push-fprs (n)
+  "Save N fprs starting at d8 on the control stack.
+   (This actually loads a vector header into d7 and
+   stores n+1 FPRs, starting at d7.  Clobbers imm0 and
+   imm1."
+  `(progn
+    (movw imm0 (:$ (logior (ash (1+ ,n) arm::num-subtag-bits)
+                            arm::subtag-double-float-vector)))
+    (mov imm1 (:$ 0))
+    (fmdrr d7 imm0 imm1)
+    (fstmdbd d7 (:! sp) ,(1+ n))))
+
+(defarmlapmacro pop-fprs (n)
+  "Restore N fprs starting at d8 from the top of the control
+   stack.  (This actually restores N+1 fprs starting at d7;
+   on exit, d7 will contain the vector header that had been
+   on top of the stack.)"
+  `(fldmiad d7 (:! sp) ,(1+ n)))