From a98cb5fbd7c2eb682613419b4d42f0411278c964 Mon Sep 17 00:00:00 2001 From: Alastair Bridgewater Date: Sun, 8 Aug 2010 01:11:13 +0000 Subject: [PATCH] 1.0.41.29: ppc: Dedicate a register to the TLS-block on threaded builds. * Swipe L2 for our TLS block. * Set up a THREAD-BASE-TN while we're at it. --- src/compiler/ppc/vm.lisp | 7 ++++++- version.lisp-expr | 2 +- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/src/compiler/ppc/vm.lisp b/src/compiler/ppc/vm.lisp index b8a9956..058f252 100644 --- a/src/compiler/ppc/vm.lisp +++ b/src/compiler/ppc/vm.lisp @@ -81,7 +81,7 @@ nl0 nl1 nl2 nl3 nl4 nl5 nl6 #+nil nl7 cfunc nargs nfp) (defregset descriptor-regs - fdefn a0 a1 a2 a3 ocfp lra cname lexenv l0 l1 l2 ) + fdefn a0 a1 a2 a3 ocfp lra cname lexenv l0 l1 #!-sb-thread l2 ) (defregset *register-arg-offsets* a0 a1 a2 a3) @@ -327,6 +327,11 @@ :offset n)) *register-arg-offsets*)) +#!+sb-thread +(defparameter thread-base-tn + (make-random-tn :kind :normal :sc (sc-or-lose 'unsigned-reg) + :offset l2-offset)) + (export 'single-value-return-byte-offset) ;;; This is used by the debugger. diff --git a/version.lisp-expr b/version.lisp-expr index 7860e46..3117bd9 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.41.28" +"1.0.41.29" -- 1.7.10.4