diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp
index 48ffe04eef9f805b2bf8e434f266a799feda30bb..f8c4f694f46a3b27494457dcc9b7ac8e0f4740fb 100644
--- a/compiler/sparc/float.lisp
+++ b/compiler/sparc/float.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.32 2001/05/10 18:38:23 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.33 2001/09/24 15:37:01 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1956,7 +1956,7 @@
 		    (done (gen-label)))
 		(,@fabs ratio yr)
 		(,@fabs den yi)
-		(inst ,fcmp ratio den)
+		(inst ,fcmp den ratio)
 		(unless (backend-featurep :sparc-v9)
 		  (inst nop))
 		(inst fb :ge bigger)
@@ -2031,7 +2031,7 @@
 		    (done (gen-label)))
 		(,@fabs ratio yr)
 		(,@fabs den yi)
-		(inst ,fcmp ratio den)
+		(inst ,fcmp den ratio)
 		(unless (backend-featurep :sparc-v9)
 		  (inst nop))
 		(inst fb :ge bigger)
@@ -2121,7 +2121,6 @@
 	    (:translate /)
 	    (:temporary (:sc ,real-reg) ratio)
 	    (:temporary (:sc ,real-reg) den)
-	    (:temporary (:sc ,real-reg) temp)
 	    (:generator ,cost
 	      (let ((yr (,real-tn y))
 		    (yi (,imag-tn y))
@@ -2131,7 +2130,7 @@
 		    (done (gen-label)))
 		(,@fabs ratio yr)
 		(,@fabs den yi)
-		(inst ,fcmp ratio den)
+		(inst ,fcmp den ratio)
 		(unless (backend-featurep :sparc-v9)
 		  (inst nop))
 		(inst fb :ge bigger)
@@ -2141,10 +2140,10 @@
 		(inst ,fmul den ratio yi)
 		(inst ,fadd den den yr) ; den = yr + (yi/yr)*yi
 
-		(inst ,fmul temp ratio x) ; temp = (yi/yr)*x
+		(inst ,fmul ri ratio x) ; ri = (yi/yr)*x
 		(inst ,fdiv rr x den)	; rr = x/den
 		(inst b done)
-		(inst ,fdiv temp temp den) ; temp = (yi/yr)*x/den
+		(inst ,fdiv ri ri den) ; ri = (yi/yr)*x/den
 
 		(emit-label bigger)
 		;; The case of |yi| > |yr|
@@ -2152,12 +2151,12 @@
 		(inst ,fmul den ratio yr)
 		(inst ,fadd den den yi) ; den = yi + (yr/yi)*yr
 
-		(inst ,fmul temp ratio x) ; temp = (yr/yi)*x
-		(inst ,fdiv rr temp den) ; rr = (yr/yi)*x/den
-		(inst ,fdiv temp x den) ; temp = x/den
+		(inst ,fmul ri ratio x) ; ri = (yr/yi)*x
+		(inst ,fdiv rr ri den) ; rr = (yr/yi)*x/den
+		(inst ,fdiv ri x den) ; ri = x/den
 		(emit-label done)
 
-		(,@fneg ri temp)))))))
+		(,@fneg ri ri)))))))
 
   (frob single fcmps fadds fmuls fdivs (inst fnegs) (inst fabss) 10)
   (frob double fcmpd faddd fmuld fdivd (negate-double-reg) (abs-double-reg) 10))