Changeset 5714

Timestamp:

Jan 18, 2007, 2:53:03 AM (18 years ago)

Author:

Gary Byers

Message:

WITH-FFCALL-RESULTS arch macro.

File:

• trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp (modified) (1 diff)

trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp

@@ -904 +904 @@
   v)
 
+(defppc32archmacro ccl::with-ffcall-results ((buf) &body body)
+  (let* ((size (+ (* 8 4) (* 31 8))))
+    `(%stack-block ((,buf ,size))
+      ,@body)))
+
 (provide "PPC32-ARCH")