From 2be96a4478e53cc66b250f5e36a56cfec8acd424 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Thu, 11 Nov 1999 16:40:11 +0000
Subject: [PATCH] Fix for generic-= which must not return True based just on
 the two objects being EQ because they may be NaN in which case Nil must be
 returned.

---
 assembly/sparc/arith.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/assembly/sparc/arith.lisp b/assembly/sparc/arith.lisp
index c449ced4e..1af31a851 100644
--- a/assembly/sparc/arith.lisp
+++ b/assembly/sparc/arith.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/assembly/sparc/arith.lisp,v 1.13 1994/10/31 04:57:20 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/arith.lisp,v 1.14 1999/11/11 16:40:11 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -466,12 +466,12 @@
 			  (:temp lra descriptor-reg lra-offset)
 			  (:temp nargs any-reg nargs-offset)
 			  (:temp ocfp any-reg ocfp-offset))
-  (inst cmp x y)
-  (inst b :eq RETURN-T)
   (inst andcc zero-tn x 3)
   (inst b :ne DO-STATIC-FN)
   (inst andcc zero-tn y 3)
   (inst b :ne DO-STATIC-FN)
+  (inst cmp x y)
+  (inst b :eq RETURN-T)
   (inst nop)
 
   (inst move res null-tn)
-- 
GitLab