X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fsubprim.lisp;h=6a5d718a2368327f522a824d20782a9cd5ed78ca;hb=f12f2c5a8ae794dc414dd6a42e0b25740d576aa1;hp=a2097b796c6026244a72c99d4f336a533ed3a472;hpb=8a19c6876412b8ad1cf729297c2a373d63a0d0ec;p=sbcl.git diff --git a/src/compiler/hppa/subprim.lisp b/src/compiler/hppa/subprim.lisp index a2097b7..6a5d718 100644 --- a/src/compiler/hppa/subprim.lisp +++ b/src/compiler/hppa/subprim.lisp @@ -11,7 +11,7 @@ (:temporary (:scs (descriptor-reg) :from (:argument 0)) ptr) (:temporary (:scs (non-descriptor-reg) :type random) temp) (:temporary (:scs (any-reg) :type fixnum :to (:result 0) :target result) - count) + count) (:results (result :scs (any-reg descriptor-reg))) (:policy :fast-safe) (:vop-var vop)