0.9.2.25:

[sbcl.git] / src / compiler / mips / c-call.lisp

diff --git a/src/compiler/mips/c-call.lisp b/src/compiler/mips/c-call.lisp
index d020fce..6b9eece 100644 (file)
--- a/src/compiler/mips/c-call.lisp
+++ b/src/compiler/mips/c-call.lisp
@@ -250,9 +250,8 @@
     (let ((cur-nfp (current-nfp-tn vop)))
       (when cur-nfp
        (store-stack-tn nfp-save cur-nfp))
-      (move cfunc function)
       (inst jal (make-fixup "call_into_c" :foreign))
-      (inst nop)
+      (move cfunc function t)
       (when cur-nfp
        (load-stack-tn cur-nfp nfp-save)))))