From 1d3404de214fe14094e5c1ae2323c4dd04d20765 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 13 Jun 1993 07:10:18 +0000
Subject: [PATCH] Changed generic-= and generic-/= to not assume that EQ
 implies =, because it doesn't in the case of NaNs.

---
 assembly/mips/arith.lisp | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/assembly/mips/arith.lisp b/assembly/mips/arith.lisp
index fcdff8be3..a63051221 100644
--- a/assembly/mips/arith.lisp
+++ b/assembly/mips/arith.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/arith.lisp,v 1.12 1993/05/07 07:37:27 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/arith.lisp,v 1.13 1993/06/13 07:10:18 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -289,12 +289,11 @@
 			  #+gengc (:temp ra any-reg ra-offset)
 			  (:temp nargs any-reg nargs-offset)
 			  (:temp ocfp any-reg ocfp-offset))
-  (inst beq x y RETURN-T)
   (inst and temp x 3)
   (inst bne temp DO-STATIC-FN)
   (inst and temp y 3)
   (inst bne temp DO-STATIC-FN)
-  (inst nop)
+  (inst beq x y RETURN-T)
 
   (inst move res null-tn)
   #+gengc
@@ -332,12 +331,11 @@
 			  #+gengc (:temp ra any-reg ra-offset)
 			  (:temp nargs any-reg nargs-offset)
 			  (:temp ocfp any-reg ocfp-offset))
-  (inst beq x y RETURN-NIL)
   (inst and temp x 3)
   (inst bne temp DO-STATIC-FN)
   (inst and temp y 3)
   (inst bne temp DO-STATIC-FN)
-  (inst nop)
+  (inst beq x y RETURN-NIL)
 
   (load-symbol res t)
   #+gengc
-- 
GitLab