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

commits at source.squeak.org commits at source.squeak.org
Fri Sep 4 07:14:47 UTC 2009


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

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

Name: System-ar.141
Author: ar
Time: 4 September 2009, 12:14:07 pm
UUID: 3c699bb1-c168-3b4f-9dd1-857805d75f22
Ancestors: System-ar.140

http://bugs.squeak.org/view.php?id=7321

Change Set:		M7321_cleanup_offList_senders-nice
Date:			19 April 2009
Author:			nice

#offList is OBSOLETED by AtomicProcessSuspend.1.cs 
Senders of #offList must be cleaned up

=============== Diff against System-ar.140 ===============

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 |
- 	| preemptedProcess projectProcess suspendingList |
  	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:[
+ 		projectProcess suspend.
+ 		preemptedProcess _ projectProcess.
- 		(suspendingList := projectProcess suspendingList) == nil
- 			ifTrue: [projectProcess == Processor activeProcess
- 						ifTrue: [projectProcess suspend]]
- 			ifFalse: [suspendingList remove: projectProcess ifAbsent: [].
- 					projectProcess offList].
- 		preemptedProcess := projectProcess.
  	] ifFalse:[
  		preemptedProcess suspend offList.
  	].
  	Debugger openInterrupt: labelString onProcess: preemptedProcess
  !




More information about the Squeak-dev mailing list