Changeset 7878

Timestamp:

Dec 10, 2007, 8:41:03 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

WITH-SHORT-STACK-FLOATS macro

File:

• branches/ia32/compiler/X86/X8632/x8632-arch.lisp (modified) (1 diff)

branches/ia32/compiler/X86/X8632/x8632-arch.lisp

@@ -675 +675 @@
   (let* ((pos (position name x86::*x86-nilreg-relative-symbols* :test #'eq)))
     (if pos (* (1- pos) symbol.size))))
+
+(defmacro with-stack-short-floats (specs &body body)
+  (ccl::collect ((binds)
+                 (inits)
+                 (names))
+                (dolist (spec specs)
+                  (let ((name (first spec)))
+                    (binds `(,name (ccl::%make-sfloat)))
+                    (names name)
+                    (let ((init (second spec)))
+                      (when init
+                        (inits `(ccl::%short-float ,init ,name))))))
+                `(let* ,(binds)
+                  (declare (dynamic-extent ,@(names))
+                           (short-float ,@(names)))
+                  ,@(inits)
+                  ,@body)))
 
 (defparameter *x8632-target-uvector-subtags*