projects
/
sbcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
5790988
)
s/8/n-word-bytes/ in x86-64's macros.lisp where appropriate
author
Nathan Froyd
<froydnj@gmail.com>
Fri, 13 Apr 2012 17:54:22 +0000
(13:54 -0400)
committer
Nathan Froyd
<froydnj@gmail.com>
Fri, 13 Apr 2012 17:54:22 +0000
(13:54 -0400)
src/compiler/x86-64/macros.lisp
patch
|
blob
|
history
diff --git
a/src/compiler/x86-64/macros.lisp
b/src/compiler/x86-64/macros.lisp
index
92f83f1
..
801c905
100644
(file)
--- a/
src/compiler/x86-64/macros.lisp
+++ b/
src/compiler/x86-64/macros.lisp
@@
-99,14
+99,14
@@
(defmacro load-binding-stack-pointer (reg)
#!+sb-thread
`(inst mov ,reg (make-ea :qword :base thread-base-tn
(defmacro load-binding-stack-pointer (reg)
#!+sb-thread
`(inst mov ,reg (make-ea :qword :base thread-base-tn
- :disp (* 8 thread-binding-stack-pointer-slot)))
+ :disp (* n-word-bytes thread-binding-stack-pointer-slot)))
#!-sb-thread
`(load-symbol-value ,reg *binding-stack-pointer*))
(defmacro store-binding-stack-pointer (reg)
#!+sb-thread
`(inst mov (make-ea :qword :base thread-base-tn
#!-sb-thread
`(load-symbol-value ,reg *binding-stack-pointer*))
(defmacro store-binding-stack-pointer (reg)
#!+sb-thread
`(inst mov (make-ea :qword :base thread-base-tn
- :disp (* 8 thread-binding-stack-pointer-slot))
+ :disp (* n-word-bytes thread-binding-stack-pointer-slot))
,reg)
#!-sb-thread
`(store-symbol-value ,reg *binding-stack-pointer*))
,reg)
#!-sb-thread
`(store-symbol-value ,reg *binding-stack-pointer*))
@@
-294,7
+294,7
@@
#!+sb-thread
(defmacro %clear-pseudo-atomic ()
'(inst mov (make-ea :qword :base thread-base-tn
#!+sb-thread
(defmacro %clear-pseudo-atomic ()
'(inst mov (make-ea :qword :base thread-base-tn
- :disp (* 8 thread-pseudo-atomic-bits-slot))
+ :disp (* n-word-bytes thread-pseudo-atomic-bits-slot))
0))
#!+sb-thread
0))
#!+sb-thread
@@
-303,12
+303,12
@@
`(let ((,label (gen-label)))
(inst mov (make-ea :qword
:base thread-base-tn
`(let ((,label (gen-label)))
(inst mov (make-ea :qword
:base thread-base-tn
- :disp (* 8 thread-pseudo-atomic-bits-slot))
+ :disp (* n-word-bytes thread-pseudo-atomic-bits-slot))
rbp-tn)
,@forms
(inst xor (make-ea :qword
:base thread-base-tn
rbp-tn)
,@forms
(inst xor (make-ea :qword
:base thread-base-tn
- :disp (* 8 thread-pseudo-atomic-bits-slot))
+ :disp (* n-word-bytes thread-pseudo-atomic-bits-slot))
rbp-tn)
(inst jmp :z ,label)
;; if PAI was set, interrupts were disabled at the same time
rbp-tn)
(inst jmp :z ,label)
;; if PAI was set, interrupts were disabled at the same time