projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.58:
[sbcl.git]
/
src
/
compiler
/
x86
/
insts.lisp
diff --git
a/src/compiler/x86/insts.lisp
b/src/compiler/x86/insts.lisp
index
36d91bc
..
d9dca7c
100644
(file)
--- a/
src/compiler/x86/insts.lisp
+++ b/
src/compiler/x86/insts.lisp
@@
-618,7
+618,7
@@
(- (+ (component-header-length)
(or (label-position offset)
0))
(- (+ (component-header-length)
(or (label-position offset)
0))
- other-pointer-type))))
+ other-pointer-lowtag))))
(emit-dword segment (or offset 0)))))
(defun emit-relative-fixup (segment fixup)
(emit-dword segment (or offset 0)))))
(defun emit-relative-fixup (segment fixup)
@@
-694,7
+694,7
@@
(make-fixup nil
:code-object
(- (* (tn-offset thing) word-bytes)
(make-fixup nil
:code-object
(- (* (tn-offset thing) word-bytes)
- other-pointer-type))))))
+ other-pointer-lowtag))))))
(ea
(let* ((base (ea-base thing))
(index (ea-index thing))
(ea
(let* ((base (ea-base thing))
(index (ea-index thing))
@@
-1923,16
+1923,16
@@
(logior type
(ash (+ posn
(component-header-length))
(logior type
(ash (+ posn
(component-header-length))
- (- type-bits
+ (- n-widetag-bits
word-shift)))))))
(define-instruction simple-fun-header-word (segment)
(:emitter
word-shift)))))))
(define-instruction simple-fun-header-word (segment)
(:emitter
- (emit-header-data segment simple-fun-header-type)))
+ (emit-header-data segment simple-fun-header-widetag)))
(define-instruction lra-header-word (segment)
(:emitter
(define-instruction lra-header-word (segment)
(:emitter
- (emit-header-data segment return-pc-header-type)))
+ (emit-header-data segment return-pc-header-widetag)))
\f
;;;; fp instructions
;;;;
\f
;;;; fp instructions
;;;;