projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.2.40:
[sbcl.git]
/
src
/
compiler
/
x86-64
/
vm.lisp
diff --git
a/src/compiler/x86-64/vm.lisp
b/src/compiler/x86-64/vm.lisp
index
44a68b1
..
258ccb7
100644
(file)
--- a/
src/compiler/x86-64/vm.lisp
+++ b/
src/compiler/x86-64/vm.lisp
@@
-112,8
+112,12
@@
(defreg r13 26 :qword)
(defreg r14 28 :qword)
(defreg r15 30 :qword)
(defreg r13 26 :qword)
(defreg r14 28 :qword)
(defreg r15 30 :qword)
+ ;; for no good reason at the time, r12 and r13 were missed from the
+ ;; list of qword registers. However
+ ;; <jsnell> r13 is already used as temporary [#lisp irc 2005/01/30]
+ ;; and we're now going to use r12 for the struct thread*
(defregset *qword-regs* rax rcx rdx rbx rsi rdi
(defregset *qword-regs* rax rcx rdx rbx rsi rdi
- r8 r9 r10 r11 #+nil r12 #+nil r13 r14 r15)
+ r8 r9 r10 r11 r14 r15)
;; floating point registers
(defreg float0 0 :float)
;; floating point registers
(defreg float0 0 :float)
@@
-393,6
+397,9
@@
(symbol-value (symbolicate register-arg-name "-TN")))
*register-arg-names*))
(symbol-value (symbolicate register-arg-name "-TN")))
*register-arg-names*))
+(defparameter thread-base-tn
+ (make-random-tn :kind :normal :sc (sc-or-lose 'unsigned-reg )
+ :offset r12-offset))
(defparameter fp-single-zero-tn
(make-random-tn :kind :normal
(defparameter fp-single-zero-tn
(make-random-tn :kind :normal