Changeset 6444 for branches/x8664-call


Ignore:
Timestamp:
May 8, 2007, 9:48:03 AM (13 years ago)
Author:
gb
Message:

*initial-lisp-thread*, some stack sizes are static.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/level-1/l1-lisp-threads.lisp

    r6193 r6444  
    148148  (%cons-lisp-thread "Initial" (%current-tcr)))
    149149
    150 (defvar *initial-lisp-thread* *current-lisp-thread*)
     150(defstatic *initial-lisp-thread* *current-lisp-thread*)
    151151
    152152(defun thread-change-state (thread oldstate newstate)
     
    229229
    230230
    231 (defparameter *initial-listener-default-control-stack-size* *default-control-stack-size*)
    232 (defparameter *initial-listener-default-value-stack-size* *default-value-stack-size*)
    233 (defparameter *initial-listener-default-temp-stack-size* *default-temp-stack-size*)
     231(defstatic *initial-listener-default-control-stack-size* *default-control-stack-size*)
     232(defstatic *initial-listener-default-value-stack-size* *default-value-stack-size*)
     233(defstatic *initial-listener-default-temp-stack-size* *default-temp-stack-size*)
    234234
    235235
Note: See TracChangeset for help on using the changeset viewer.