<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<font face="Georgia">Well, this seems to fix it:<br>
<br>
'From Squeak4.4 of 1 March 2013 [latest update: #12489] on 6
August 2013 at 3:39:29 pm'!<br>
<br>
!Delay class methodsFor: 'snapshotting' stamp: 'raa 8/6/2013
15:22'!<br>
restoreResumptionTimes<br>
"Private!! Restore the resumption times of all scheduled
Delays after a snapshot or clock roll-over. This method should be
called only while the AccessProtect semaphore is held."<br>
<br>
| newBaseTime |<br>
newBaseTime := Time millisecondClockValue.<br>
SuspendedDelays do: [:d | d adjustResumptionTimeOldBase: 0
newBase: newBaseTime].<br>
ActiveDelay == nil ifFalse: [<br>
ActiveDelay adjustResumptionTimeOldBase: 0 newBase:
newBaseTime.<br>
].<br>
ActiveDelayStartTime _ newBaseTime "<-----this"! !<br>
<br>
Cheers,<br>
Bob<br>
<br>
</font>
<div class="moz-cite-prefix">On 8/6/13 3:27 PM, tim Rowledge wrote:<br>
</div>
<blockquote
cite="mid:9C4C3A4B-9B0A-41FA-9122-AF684FC2FBC4@rowledge.org"
type="cite">
<pre wrap="">Well the timer stuff has certainly been messed about with a lot since I last had to dig into it, but it looks like it *ought* to work ok.
The only likely culprit I can spot is some issue with adjusting the resumption times after the restart, but that would require some problem with the millisecond time prim.
tim
--
tim Rowledge; <a class="moz-txt-link-abbreviated" href="mailto:tim@rowledge.org">tim@rowledge.org</a>; <a class="moz-txt-link-freetext" href="http://www.rowledge.org/tim">http://www.rowledge.org/tim</a>
Strange OpCodes: YVR: Branch to Vancouver
</pre>
</blockquote>
<br>
</body>
</html>