Skip to content
Snippets Groups Projects
Commit 83f36737 authored by toy's avatar toy
Browse files

For type tests, assume branches for test failures are not taken.

(That is, assume the object is the right type.)
parent 38ca89ab
No related branches found
No related tags found
No related merge requests found
...@@ -5,11 +5,11 @@ ...@@ -5,11 +5,11 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.12 2001/01/03 08:45:52 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.13 2001/05/14 13:58:19 toy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.12 2001/01/03 08:45:52 dtc Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.13 2001/05/14 13:58:19 toy Exp $
;;; ;;;
;;; This file contains various useful macros for generating SPARC code. ;;; This file contains various useful macros for generating SPARC code.
;;; ;;;
...@@ -275,7 +275,8 @@ ...@@ -275,7 +275,8 @@
(when fixnump (when fixnump
`((inst andcc zero-tn ,reg 3) `((inst andcc zero-tn ,reg 3)
,(if (or lowtags hdrs) ,(if (or lowtags hdrs)
`(inst b :eq ,(if not-p not-target target)) `(inst b :eq ,(if not-p not-target target)
#+sparc-v9 ,(if not-p :pn :pt))
`(inst b ,(if not-p :ne :eq) ,target `(inst b ,(if not-p :ne :eq) ,target
#+sparc-v9 ,(if not-p :pn :pt))))) #+sparc-v9 ,(if not-p :pn :pt)))))
(when (or lowtags hdrs) (when (or lowtags hdrs)
...@@ -292,7 +293,8 @@ ...@@ -292,7 +293,8 @@
(1- lowtag-limit) lowtags))) (1- lowtag-limit) lowtags)))
(when hdrs (when hdrs
`((inst cmp ,temp ,lowtag) `((inst cmp ,temp ,lowtag)
(inst b :ne ,(if not-p target not-target)) (inst b :ne ,(if not-p target not-target)
#+sparc-v9 ,(if not-p :pn :pt))
(inst nop) (inst nop)
(load-type ,temp ,reg (- ,lowtag)) (load-type ,temp ,reg (- ,lowtag))
,@(gen-other-immediate-test temp target not-target not-p hdrs)))))) ,@(gen-other-immediate-test temp target not-target not-p hdrs))))))
......
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