Skip to content
Snippets Groups Projects
Commit 5541f78f authored by wlott's avatar wlott
Browse files

oops. didn't get get-type quite right.

parent 4fbccb9d
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/system.lisp,v 1.10 1993/04/01 15:07:10 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/system.lisp,v 1.11 1993/04/01 15:13:23 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -52,9 +52,9 @@
(inst b :eq done)
;; Okay, it is an immediate. If fixnum, we want zero. Otherwise,
;; we want the low 8 bits.
(inst andcc result object #b11)
(inst andcc zero-tn object #b11)
(inst b :eq done)
(inst nop)
(inst li result 0)
;; It wasn't a fixnum, so get the low 8 bits.
(inst b done)
(inst and result object type-mask)
......
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