<div dir="ltr"><br><div class="gmail_extra"><br><div class="gmail_quote">2016-02-18 22:37 GMT+01:00  <span dir="ltr">&lt;<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>&gt;</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&gt;&gt;isSuspended.  Fix a comment typo in Process&gt;&gt;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&gt;&gt;isActiveProcess (in category &#39;testing&#39;) -----<br>
- ----- Method: Process&gt;&gt;isActiveProcess (in category &#39;accessing&#39;) -----<br>
  isActiveProcess<br>
<br>
        ^ self == Processor activeProcess!<br>
<br>
Item was changed:<br>
+ ----- Method: Process&gt;&gt;isSuspended (in category &#39;testing&#39;) -----<br>
- ----- Method: Process&gt;&gt;isSuspended (in category &#39;accessing&#39;) -----<br>
  isSuspended<br>
+       &quot;A process is suspended if it is waiting on some list, other than the runnable process lists.&quot;<br>
+       | myPriority |<br>
+       &quot;Grab my prioirty now.  Even though evaluation is strictly right-to-left, accessing Processor could involve a send.&quot;<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&gt;&gt;isTerminated (in category &#39;testing&#39;) -----<br>
- ----- Method: Process&gt;&gt;isTerminated (in category &#39;accessing&#39;) -----<br>
  isTerminated<br>
<br>
        self isActiveProcess ifTrue: [^ false].<br>
        ^suspendedContext isNil<br>
          or: [&quot;If the suspendedContext is the bottomContext it is the block in Process&gt;&gt;newProcess.<br>
+                  If so, and the pc is greater than the startpc, the block has alrteady sent and returned<br></blockquote><div>isn&#39;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.&quot;<br>
                suspendedContext isBottomContext<br>
                and: [suspendedContext pc &gt; suspendedContext startpc]]!<br>
<br>
<br>
</blockquote></div><br></div></div>