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