projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.12.8: Really this time. Note to self: remeber to save the
[sbcl.git]
/
src
/
compiler
/
generic
/
late-type-vops.lisp
diff --git
a/src/compiler/generic/late-type-vops.lisp
b/src/compiler/generic/late-type-vops.lisp
index
42bf108
..
14bcd83
100644
(file)
--- a/
src/compiler/generic/late-type-vops.lisp
+++ b/
src/compiler/generic/late-type-vops.lisp
@@
-15,8
+15,7
@@
;; we can save a register on the x86.
:variant simple
;; we can save a couple of instructions and a branch on the ppc.
;; we can save a register on the x86.
:variant simple
;; we can save a couple of instructions and a branch on the ppc.
- ;; FIXME: make this be FIXNUM-MASK
- :mask 3)
+ :mask fixnum-tag-mask)
(!define-type-vops functionp check-fun function object-not-fun-error
(fun-pointer-lowtag)
(!define-type-vops functionp check-fun function object-not-fun-error
(fun-pointer-lowtag)
@@
-57,11
+56,6
@@
object-not-complex-double-float-error
(complex-double-float-widetag))
object-not-complex-double-float-error
(complex-double-float-widetag))
-#!+long-float
-(!define-type-vops complex-long-float-p check-complex-long-float complex-long-float
- object-not-complex-long-float-error
- (complex-long-float-widetag))
-
(!define-type-vops single-float-p check-single-float single-float
object-not-single-float-error
(single-float-widetag))
(!define-type-vops single-float-p check-single-float single-float
object-not-single-float-error
(single-float-widetag))
@@
-70,11
+64,6
@@
object-not-double-float-error
(double-float-widetag))
object-not-double-float-error
(double-float-widetag))
-#!+long-float
-(!define-type-vops long-float-p check-long-float long-float
- object-not-long-float-error
- (long-float-widetag))
-
(!define-type-vops simple-string-p check-simple-string nil
object-not-simple-string-error
(simple-base-string-widetag simple-array-nil-widetag))
(!define-type-vops simple-string-p check-simple-string nil
object-not-simple-string-error
(simple-base-string-widetag simple-array-nil-widetag))