The Trunk: KernelTests-tpr.383.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: KernelTests-tpr.383.mcz

commits-2
tim Rowledge uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-tpr.383.mcz

==================== Summary ====================

Name: KernelTests-tpr.383
Author: tpr
Time: 2 July 2020, 10:24:36.600711 pm
UUID: cb4cc7c5-a318-4424-93dd-1414a73dbc32
Ancestors: KernelTests-tonyg.382

Make the AllocationTest work by preventing the requested free space size (in #setFreeSpaceLimi....) from exceeding SmallInteger>maxVal and thereby failing the vmParameter primitive's limit.

=============== Diff against KernelTests-tonyg.382 ===============

Item was changed:
  ----- Method: AllocationTest>>setFreeSpaceLimitOf:around: (in category 'support') -----
  setFreeSpaceLimitOf: bytes around: aBlock
  "Attempt to evaluate aBlock with a limit of the requested ammount
  of free old space, restoring the extant limit after the evaluation."
 
  | extantLimit |
  extantLimit := Smalltalk vmParameterAt: 67.
+ Smalltalk vmParameterAt: 67 put: ((Smalltalk vmParameterAt: 1) + bytes asInteger min: SmallInteger maxVal).
- Smalltalk vmParameterAt: 67 put: (Smalltalk vmParameterAt: 1) + bytes asInteger.
  ^aBlock ensure: [Smalltalk vmParameterAt: 67 put: extantLimit]!