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]!