X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Ffloat.lisp;h=649c922d8b53a412c7c6974a1517d1dbedce63e9;hb=b3c5951a9d24468a2a471fd6769d0e6b687c08f3;hp=121fb5ed6785dfa40eca2920b762e9b556f5ee1a;hpb=b46345044a6b9e2db26700e297daedb05307919b;p=sbcl.git

diff --git a/src/compiler/hppa/float.lisp b/src/compiler/hppa/float.lisp
index 121fb5e..649c922 100644
--- a/src/compiler/hppa/float.lisp
+++ b/src/compiler/hppa/float.lisp
@@ -132,10 +132,10 @@
                   :offset (1+ (tn-offset x))))
 
 (defun complex-double-reg-real-tn (x)
-  (make-random-tn :kind :normal :sc (sc-or-lose 'double-reg)
+  (make-random-tn :kind :normal :sc (sc-or-lose 'complex-double-reg)
                   :offset (tn-offset x)))
 (defun complex-double-reg-imag-tn (x)
-  (make-random-tn :kind :normal :sc (sc-or-lose 'double-reg)
+  (make-random-tn :kind :normal :sc (sc-or-lose 'complex-double-reg)
                   :offset (1+ (tn-offset x))))
 
 (macrolet