Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 6169)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 6170)
@@ -2217,4 +2217,8 @@
 					 ((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))