Changeset 15557


Ignore:
Timestamp:
Dec 30, 2012, 11:55:43 PM (6 years ago)
Author:
gb
Message:

Don't allow a thread to take interrupts before/after *CURRENT-PROCESS*
is established. Fixes ticket:1042 in the trunk.

Location:
trunk/source/level-1
Files:
2 edited

Legend:

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

    r15453 r15557  
    186186        (tcr-clear-preset-state tcr)
    187187        (%set-tcr-toplevel-function tcr nil)
    188         (setf (interrupt-level) 0)
    189         (apply (car initial-function) (cdr initial-function))
     188        (apply (car initial-function) (cdr initial-function))
    190189        (cleanup-thread-tcr thread tcr))))
    191190
  • trunk/source/level-1/l1-processes.lisp

    r15155 r15557  
    357357            (add-to-all-processes process)
    358358            (with-initial-bindings (process-initial-bindings process)
    359               (with-process-whostate ("Active")
    360                 (run-process-initial-form process initial-form)))))
     359              (with-interrupts-enabled
     360                  (with-process-whostate ("Active")
     361                    (run-process-initial-form process initial-form))))))
    361362      process
    362363      initial-form)
Note: See TracChangeset for help on using the changeset viewer.