X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fparms.lisp;h=df1f733f16a3ed212ebeec6bc955c11a5aacb2ee;hb=86636706a92cbf7eac49c0e9a8ba9d5b49a0cd3f;hp=c39ffe526c802a32be48970af3595392c335aef6;hpb=c548f73e8dd676d6ec4576eba6ab661a5061bdfe;p=sbcl.git

diff --git a/src/compiler/generic/parms.lisp b/src/compiler/generic/parms.lisp
index c39ffe5..df1f733 100644
--- a/src/compiler/generic/parms.lisp
+++ b/src/compiler/generic/parms.lisp
@@ -44,6 +44,8 @@
     *current-catch-block*
     *current-unwind-protect-block*
 
+    #!+hpux *c-lra*
+
     ;; stack pointers
     *binding-stack-start*
     *control-stack-start*
@@ -71,3 +73,7 @@
     :value
     :key-and-value
     :key-or-value))
+
+;;; Number of entries in the thread local storage. Limits the number
+;;; of symbols with thread local bindings.
+(def!constant tls-size 4096)