Changeset 5768

Timestamp:

Jan 21, 2007, 5:45:59 AM (18 years ago)

Author:

Gary Byers

Message:

WITH-FFCALL-RESULTS for x86-64.

File:

• trunk/ccl/compiler/X86/X8664/x8664-arch.lisp (modified) (1 diff)

trunk/ccl/compiler/X86/X8664/x8664-arch.lisp

@@ -1276 +1276 @@
   `(ccl::%function-vector-to-function ,v))
 
+(defx8664archmacro ccl::with-ffcall-results ((buf) &body body)
+  ;; Reserve space for rax,rdx,xmm0,xmm1 only.
+  (let* ((size (+ (* 2 8) (* 2 8))))
+    `(ccl::%stack-block ((,buf ,size))
+      ,@body)))
+  
+
 
 (provide "X8664-ARCH")