<div dir="ltr"><br><div class="gmail_extra"><br><div class="gmail_quote">2016-02-18 22:37 GMT+01:00 <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Eliot Miranda uploaded a new version of Kernel to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Kernel-eem.993.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/Kernel-eem.993.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Kernel-eem.993<br>
Author: eem<br>
Time: 18 February 2016, 1:37:19.052897 pm<br>
UUID: a151e0db-6470-4e80-8ea8-3c1bbe9282b4<br>
Ancestors: Kernel-cmm.992<br>
<br>
Fix Process>>isSuspended. Fix a comment typo in Process>>isTerminated. Put all Process testing methods in their own category.<br>
<br>
=============== Diff against Kernel-cmm.992 ===============<br>
<br>
Item was changed:<br>
+ ----- Method: Process>>isActiveProcess (in category 'testing') -----<br>
- ----- Method: Process>>isActiveProcess (in category 'accessing') -----<br>
isActiveProcess<br>
<br>
^ self == Processor activeProcess!<br>
<br>
Item was changed:<br>
+ ----- Method: Process>>isSuspended (in category 'testing') -----<br>
- ----- Method: Process>>isSuspended (in category 'accessing') -----<br>
isSuspended<br>
+ "A process is suspended if it is waiting on some list, other than the runnable process lists."<br>
+ | myPriority |<br>
+ "Grab my prioirty now. Even though evaluation is strictly right-to-left, accessing Processor could involve a send."<br>
+ myPriority := priority.<br>
+ ^myList<br>
+ ifNil: [false]<br>
+ ifNotNil: [:list| list ~~ (Processor waitingProcessesAt: myPriority)]!<br>
- ^myList isNil!<br>
<br>
Item was changed:<br>
+ ----- Method: Process>>isTerminated (in category 'testing') -----<br>
- ----- Method: Process>>isTerminated (in category 'accessing') -----<br>
isTerminated<br>
<br>
self isActiveProcess ifTrue: [^ false].<br>
^suspendedContext isNil<br>
or: ["If the suspendedContext is the bottomContext it is the block in Process>>newProcess.<br>
+ If so, and the pc is greater than the startpc, the block has alrteady sent and returned<br></blockquote><div>isn't the typo still there above-------------------------------------------------------------^ <br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
- If so, and the pc is greater than the startpc, the bock has alrteady sent and returned<br>
from value and there is nothing more to do."<br>
suspendedContext isBottomContext<br>
and: [suspendedContext pc > suspendedContext startpc]]!<br>
<br>
<br>
</blockquote></div><br></div></div>