Changeset 3504


Ignore:
Timestamp:
Feb 27, 2006, 3:33:23 AM (14 years ago)
Author:
gb
Message:

Adjust default stack sizes based on --stack-size argument.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-lisp-threads.lisp

    r3490 r3504  
    273273  #+32-bit-target (ash 1 19)
    274274  #+64-bit-target (ash 2 19))
     275
     276(def-ccl-pointers stack-sizes ()
     277  (let* ((size (%get-kernel-global 'stack-size))) ; set by --stack-size
     278    (declare (fixnum size))
     279    (when (> size 0)
     280      (setq *default-control-stack-size* size
     281            *default-value-stack-size* size
     282            *default-temp-stack-size* (floor size 2)))))
    275283
    276284
Note: See TracChangeset for help on using the changeset viewer.