<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
Hi Jaromir --<div><br></div><div>I just merged your efforts around primitive 578. :-)</div><div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div><blockquote class='history_container' type='cite' style='border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;'>
<p style='color: #AAAAAA; margin-top: 10px;'>Am 30.05.2022 14:49:57 schrieb Jaromir Matas <mail@jaromir.net>:</p><div style='font-family:Arial,Helvetica,sans-serif'>
<div class="WordSection1">
<p class="MsoNoSpacing"><span lang="CS">Hi Marcel,<o:p></o:p></span></p>
<p class="MsoNoSpacing"><span lang="CS">Hmm, never tried but it fails in a fresh trunk image and with all previous #terminate versions as well. Would it mean it has nothing to do with the latest changes in Kernel-jar.1470, Kernel-jar.1469 and Kernel-jar.1468?<o:p></o:p></span></p>
<p class="MsoNoSpacing"><span lang="CS">Thanks!<o:p></o:p></span></p>
<p class="MsoNoSpacing"><span lang="CS">Jaromir<o:p></o:p></span></p>
<p class="MsoNoSpacing"><o:p> </o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<div style="mso-element:para-border-div;border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0in 0in 0in">
<p class="MsoNormal" style="border:none;padding:0in"><b>From: </b><a href="mailto:marcel.taeumel@hpi.de">Marcel Taeumel</a><br>
<b>Sent: </b>Monday, May 30, 2022 14:13<br>
<b>To: </b><a href="mailto:squeak-dev@lists.squeakfoundation.org">squeak-dev</a><br>
<b>Subject: </b>Re: [squeak-dev] The Inbox: Kernel-jar.1470.mcz</p>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><span style="font-size: 10.0pt;font-family: "Arial",sans-serif;color: black">+1000 Thanks! :-)<o:p></o:p></span></p>
<div>
<p class="MsoNormal"><span style="font-size: 10.0pt;font-family: "Arial",sans-serif;color: black"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size: 10.0pt;font-family: "Arial",sans-serif;color: black">Just #testPrimitive100 is not passing ... is this expected?<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size: 10.0pt;font-family: "Arial",sans-serif;color: black"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size: 10.0pt;font-family: "Arial",sans-serif;color: black">Best,<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size: 10.0pt;font-family: "Arial",sans-serif;color: black">Marcel<o:p></o:p></span></p>
</div>
<blockquote style="border:none;border-left:solid windowtext 1.0pt;padding:0in 0in 0in 8.0pt;margin-left:0in;margin-top:15.0pt;margin-bottom:5.0pt">
<p style="margin-top:7.5pt"><span style="font-size: 10.0pt;font-family: "Arial",sans-serif;color: #AAAAAA">Am 29.05.2022 22:51:49 schrieb commits@source.squeak.org <commits@source.squeak.org>:<o:p></o:p></span></p>
</blockquote>
<p class="MsoNormal" style="mso-margin-top-alt:0in;margin-right:.5in;margin-bottom:12.0pt;margin-left:0in">
<span style="font-size: 10.0pt;font-family: "Arial",sans-serif;color: black">A new version of Kernel was added to project The Inbox:<br>
http://source.squeak.org/inbox/Kernel-jar.1470.mcz<br>
<br>
==================== Summary ====================<br>
<br>
Name: Kernel-jar.1470<br>
Author: jar<br>
Time: 29 May 2022, 10:51:34.061501 pm<br>
UUID: 18469d29-2a9e-074d-b7e3-12d8d981f4b5<br>
Ancestors: Kernel-jar.1469<br>
<br>
one more oops; check suspendedContext for nil<br>
<br>
=============== Diff against Kernel-jar.1469 ===============<br>
<br>
Item was changed:<br>
----- Method: Process>>suspendAndReleaseCriticalSection (in category 'private') -----<br>
suspendAndReleaseCriticalSection<br>
"Figure out if we are terminating a process that is in the ensure: block of a critical section.<br>
If it hasn't made progress but is beyond the wait (which we can tell by the oldList being<br>
one of the runnable lists, i.e. a LinkedList, not a Semaphore or Mutex, et al), then the ensure:<br>
block needs to be run."<br>
<br>
| oldList selectorJustSent |<br>
"Suspend and unblock the receiver from a condition variable using suspend primitive #88.<br>
It answers the list the receiver was on before the suspension."<br>
oldList := self suspendAndUnblock.<br>
(oldList isNil or: [oldList class == LinkedList]) ifFalse: [^self].<br>
<br>
+ ((suspendedContext ifNil: [^self]) method pragmaAt: #criticalSection) ifNil: [^self].<br>
- (suspendedContext method pragmaAt: #criticalSection) ifNil: [^self].<br>
selectorJustSent := suspendedContext selectorJustSentOrSelf.<br>
<br>
"If still at the wait the ensure: block has not been activated, so signal to restore."<br>
selectorJustSent == #wait ifTrue:<br>
[suspendedContext receiver signal].<br>
<br>
"If still at the lock primitive and the lock primitive just acquired ownership (indicated by it answering false)<br>
then the ensure block has not been activated, so explicitly primitiveExitCriticalSection to unlock."<br>
(selectorJustSent == #primitiveEnterCriticalSection<br>
or: [selectorJustSent == #primitiveTestAndSetOwnershipOfCriticalSection]) ifTrue:<br>
[(suspendedContext stackPtr > 0<br>
and: [suspendedContext top == false]) ifTrue:<br>
[suspendedContext receiver primitiveExitCriticalSection]]!<br>
<br>
<o:p></o:p></span></p>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
</div></blockquote>
</div></body>