Skip to content
Snippets Groups Projects
Commit 2be96a44 authored by dtc's avatar dtc
Browse files

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.
parent 5ecb29d8
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment