Changeset 8052


Ignore:
Timestamp:
Jan 11, 2008, 3:49:00 PM (12 years ago)
Author:
gz
Message:

For ticket #228: reset thread state whenever reset the tcr (new-tcr-for-thread, init-thread-from-tcr).

File:
1 edited

Legend:

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

    r7610 r8052  
    197197          (lisp-thread.startup-function thread)
    198198          (thread-make-startup-function thread tcr)))
     199  (thread-change-state thread :exit :reset)
    199200  thread)
    200201
     
    300301          (lisp-thread.startup-function thread)
    301302          (thread-make-startup-function thread tcr))
     303    (thread-change-state thread :exit :reset)
    302304    tcr))
    303305 
Note: See TracChangeset for help on using the changeset viewer.