The Trunk: Kernel-bf.721.mcz

> Bert Freudenberg uploaded a new version of Kernel to project The Trunk:
> http://source.squeak.org/trunk/Kernel-bf.721.mcz
>
> ==================== Summary ====================
>
> Name: Kernel-bf.721
> Author: bf
> Time: 7 August 2013, 3:17:21.93 pm
> UUID: d0943c86-6850-45b6-9176-7a43025357b5
> Ancestors: Kernel-nice.720
>
> Bob Arning's fix for Delay snapshotting.
>
> =============== Diff against Kernel-nice.720 ===============
>
> Item was changed:
>   ----- Method: Delay class>>restoreResumptionTimes (in category 'snapshotting') -----
>   restoreResumptionTimes
>         "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."
>
>         | newBaseTime |
>         newBaseTime := Time millisecondClockValue.
>         SuspendedDelays do: [:d | d adjustResumptionTimeOldBase: 0 newBase: newBaseTime].
>         ActiveDelay == nil ifFalse: [
>                 ActiveDelay adjustResumptionTimeOldBase: 0 newBase: newBaseTime.
>         ].
> +       ActiveDelayStartTime := newBaseTime.
>   !

> On 7 August 2013 14:55,  <[hidden email]> wrote:
>> Bert Freudenberg uploaded a new version of Kernel to project The Trunk:
>> http://source.squeak.org/trunk/Kernel-bf.721.mcz
>>
>> ==================== Summary ====================
>>
>> Name: Kernel-bf.721
>> Author: bf
>> Time: 7 August 2013, 3:17:21.93 pm
>> UUID: d0943c86-6850-45b6-9176-7a43025357b5
>> Ancestors: Kernel-nice.720
>>
>> Bob Arning's fix for Delay snapshotting.
>>
>> =============== Diff against Kernel-nice.720 ===============
>>
>> Item was changed:
>>  ----- Method: Delay class>>restoreResumptionTimes (in category 'snapshotting') -----
>>  restoreResumptionTimes
>>        "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."
>>
>>        | newBaseTime |
>>        newBaseTime := Time millisecondClockValue.
>>        SuspendedDelays do: [:d | d adjustResumptionTimeOldBase: 0 newBase: newBaseTime].
>>        ActiveDelay == nil ifFalse: [
>>                ActiveDelay adjustResumptionTimeOldBase: 0 newBase: newBaseTime.
>>        ].
>> +       ActiveDelayStartTime := newBaseTime.
>>  !
>
> Doesn't this need merging? I pushed Kernel-fbs.800 not too long ago.
>
> frank