Skip to content
Snippets Groups Projects
Commit 1d3404de authored by wlott's avatar wlott
Browse files

Changed generic-= and generic-/= to not assume that EQ implies =, because

it doesn't in the case of NaNs.
parent b35875df
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -289,12 +289,11 @@
#+gengc (:temp ra any-reg ra-offset) #+gengc (:temp ra any-reg ra-offset)
(:temp nargs any-reg nargs-offset) (:temp nargs any-reg nargs-offset)
(:temp ocfp any-reg ocfp-offset)) (:temp ocfp any-reg ocfp-offset))
(inst beq x y RETURN-T)
(inst and temp x 3) (inst and temp x 3)
(inst bne temp DO-STATIC-FN) (inst bne temp DO-STATIC-FN)
(inst and temp y 3) (inst and temp y 3)
(inst bne temp DO-STATIC-FN) (inst bne temp DO-STATIC-FN)
(inst nop) (inst beq x y RETURN-T)
(inst move res null-tn) (inst move res null-tn)
#+gengc #+gengc
...@@ -332,12 +331,11 @@ ...@@ -332,12 +331,11 @@
#+gengc (:temp ra any-reg ra-offset) #+gengc (:temp ra any-reg ra-offset)
(:temp nargs any-reg nargs-offset) (:temp nargs any-reg nargs-offset)
(:temp ocfp any-reg ocfp-offset)) (:temp ocfp any-reg ocfp-offset))
(inst beq x y RETURN-NIL)
(inst and temp x 3) (inst and temp x 3)
(inst bne temp DO-STATIC-FN) (inst bne temp DO-STATIC-FN)
(inst and temp y 3) (inst and temp y 3)
(inst bne temp DO-STATIC-FN) (inst bne temp DO-STATIC-FN)
(inst nop) (inst beq x y RETURN-NIL)
(load-symbol res t) (load-symbol res t)
#+gengc #+gengc
......
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