Changeset 10531


Ignore:
Timestamp:
Aug 22, 2008, 2:11:08 PM (11 years ago)
Author:
gb
Message:

(Hope I merged this the right way ...) Do THREAD-CHANGE-STATE a few
more times, to avoid PROCESS-RESET problems found by gz.
Allow stack sizes to be 64 bits on 64-bit targets.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-lisp-threads.lisp

    r10503 r10531  
    199199          (lisp-thread.startup-function thread)
    200200          (thread-make-startup-function thread tcr)))
     201  (thread-change-state thread :exit :reset)
    201202  thread)
    202203
     
    282283               (ff-call
    283284                (%kernel-import target::kernel-import-newthread)
    284                 :unsigned-fullword cs-size
    285                 :unsigned-fullword vs-size
    286                 :unsigned-fullword ts-size
     285                #+64-bit-target :unsigned-doubleword
     286                #+32-bit-target :unsigned-fullword cs-size
     287                #+64-bit-target :unsigned-doubleword
     288                #+32-bit-target :unsigned-fullword vs-size
     289                #+64-bit-target :unsigned-doubleword
     290                #+32-bit-target :unsigned-fullword ts-size
    287291                :address))))
    288292    (declare (fixum tcr))
     
    302306          (lisp-thread.startup-function thread)
    303307          (thread-make-startup-function thread tcr))
     308    (thread-change-state thread :exit :reset)
    304309    tcr))
    305310 
     
    384389        (cons function args)))
    385390
    386 (defun thread-enable (thread termination-semaphore allocation-quantum &optional (timeout most-positive-fixnum))
     391(defun thread-enable (thread termination-semaphore allocation-quantum &optional (timeout (* 60 60 24)))
    387392  (let* ((tcr (or (lisp-thread.tcr thread) (new-tcr-for-thread thread))))
    388393    (with-macptrs (s)
Note: See TracChangeset for help on using the changeset viewer.