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