0.7.2.8:

[sbcl.git] / src / compiler / sparc / call.lisp

diff --git a/src/compiler/sparc/call.lisp b/src/compiler/sparc/call.lisp
index 8cde5f8..6d8098e 100644 (file)
--- a/src/compiler/sparc/call.lisp
+++ b/src/compiler/sparc/call.lisp
@@ -1163,8 +1163,10 @@ default-value-8
     (let ((err-lab
           (generate-error-code vop invalid-arg-count-error nargs)))
       (inst cmp nargs (fixnumize count))
-      ;; Assume we don't take the branch
-      (inst b :ne err-lab #!+sparc-v9 :pn)
+      (if (member :sparc-v9 *backend-subfeatures*)
+         ;; Assume we don't take the branch
+         (inst b :ne err-lab :pn)
+         (inst b :ne err-lab))
       (inst nop))))
 
 ;;; Signal various errors.