Changeset 6170

Timestamp:

Apr 7, 2007, 7:39:05 PM (18 years ago)

Author:

Gary Byers

Message:

RELOAD-SINGLE-C-ARG-HIGH, for Darwin structure-passing ABI.

File:

• trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp (modified) (1 diff)

trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp

@@ -2217 +2217 @@
                                          ((argnum :u16const)))
   (lfs argval (:apply + ppc64::c-frame.param0 4 (:apply ash argnum ppc64::word-shift)) ppc::sp))
+
+(define-ppc64-vinsn reload-single-c-arg-high (((argval :single-float))
+                                              ((argnum :u16const)))
+  (lfs argval (:apply + ppc64::c-frame.param0 (:apply ash argnum ppc64::word-shift)) ppc::sp))
 
 (define-ppc64-vinsn reload-double-c-arg (((argval :double-float))