[squeak-dev] The Trunk: System-ar.143.mcz

Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.143.mcz

==================== Summary ====================

Name: System-ar.143
Author: ar
Time: 6 September 2009, 11:16:12 am
UUID: d1f623d5-4130-594d-983d-38e81b43fffe
Ancestors: System-eem.142

More offList/suspend cleanup.

=============== Diff against System-eem.142 ===============

Item was changed:
  ----- Method: Project class>>interruptName:preemptedProcess: (in category 'utilities') -----
  interruptName: labelString preemptedProcess: theInterruptedProcess
  "Create a Notifier on the active scheduling process with the given label."
  | preemptedProcess projectProcess |
  Smalltalk isMorphic ifFalse:
  [^ ScheduledControllers interruptName: labelString].
  ActiveHand ifNotNil:[ActiveHand interrupted].
+ ActiveWorld := World. "reinstall active globals"
+ ActiveHand := World primaryHand.
- ActiveWorld _ World. "reinstall active globals"
- ActiveHand _ World primaryHand.
  ActiveHand interrupted. "make sure this one's interrupted too"
+ ActiveEvent := nil.
- ActiveEvent _ nil.
 
+ projectProcess := self uiProcess. "we still need the accessor for a while"
+ preemptedProcess := theInterruptedProcess ifNil: [Processor preemptedProcess].
- projectProcess _ self uiProcess. "we still need the accessor for a while"
- preemptedProcess _ theInterruptedProcess ifNil: [Processor preemptedProcess].
  "Only debug preempted process if its priority is >= projectProcess' priority"
+ preemptedProcess priority < projectProcess priority
+ ifTrue:[preemptedProcess := projectProcess].
+ preemptedProcess suspend.
- preemptedProcess priority < projectProcess priority ifTrue:[
- projectProcess suspend.
- preemptedProcess _ projectProcess.
- ] ifFalse:[
- preemptedProcess suspend offList.
- ].
  Debugger openInterrupt: labelString onProcess: preemptedProcess
  !