Squeak-dev July 2020

squeak-dev@lists.squeakfoundation.org

47 participants
164 discussions

The Trunk: KernelTests-tpr.383.mcz
by commits＠source.squeak.org 03 Jul '20

03 Jul '20

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

1 0

[ANN] My bag of tricks
by Stéphane Rollandin 02 Jul '20

02 Jul '20

Hello all, After Karl manifested some interest for my L-system implementation, I figured I should make some hidden stuff I have been doing for ages available to all. So, from the following page: http://www.zogotounga.net/comp/squeak/rogue.htm you will be able to download a (32 bit) 5.3-based image with most of my code in its current state, with a list of entry points to some notable features. Stef

2 1

The Trunk: Compiler-eem.440.mcz
by commits＠source.squeak.org 01 Jul '20

01 Jul '20

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.440.mcz ==================== Summary ==================== Name: Compiler-eem.440 Author: eem Time: 1 July 2020, 10:05:10.178038 am UUID: a39848b4-1bc8-4b31-93f8-e4f343d1400b Ancestors: Compiler-mt.439 Improve slightly the EncoderForSistaV1 class comment specifying the SistaV1 bytecode set in the light of recent discussion. =============== Diff against Compiler-mt.439 =============== Item was changed: BytecodeEncoder subclass: #EncoderForSistaV1 (excessive size, no diff calculated)

2 1

The Inbox: Monticello-ul.726.mcz
by commits＠source.squeak.org 01 Jul '20

01 Jul '20

Levente Uzonyi uploaded a new version of Monticello to project The Inbox: http://source.squeak.org/inbox/Monticello-ul.726.mcz ==================== Summary ==================== Name: Monticello-ul.726 Author: ul Time: 29 June 2020, 1:39:36.986367 am UUID: b64f6b16-96de-40ed-aa9a-2c0f625bfcb1 Ancestors: Monticello-mt.725 - potentially speed up MCDirectoryRepository >> #includesVersionNamed: when the repository doesn't have version names cached - cache self size in MCVersionName >> #versionName =============== Diff against Monticello-mt.725 =============== Item was added: + ----- Method: MCDirectoryRepository>>includesVersionNamed: (in category 'versions') ----- + includesVersionNamed: aString + + | comparable | + comparable := ((aString endsWith: '.mcz') and: [ aString size > 4 ]) + ifTrue: [ aString allButLast: 4 ] + ifFalse: [ aString ]. + allVersionNamesCache ifNil: [ + "Instead of reading the contents of the entire directory in #allVersionNames, look up a single .mcz file. + This is just an optimization. If the file does not exist, the version may still be there as an mcd." + (directory fileExists: comparable, '.mcz') ifTrue: [ ^true ] ]. + ^ self allVersionNames includes: comparable! Item was changed: ----- Method: MCVersionName>>versionName (in category 'accessing') ----- versionName "Answer my version name as a ByteString, without the file suffix or any ancestor-attributes." | end | self isEmpty ifTrue: [^ String empty]. end := self indexOf: $( ifAbsent: [ + | size | + size := self size. + (size > 4 + and: [ (self at: size - 3) == $. + and: [ (self at: size - 2) == $m + and: [ (self at: size - 1) == $c ] ] ]) + ifTrue: [size - 3] + ifFalse: [size + 1]]. - (self size > 4 - and: [ (self at: self size - 3) == $. - and: [ (self at: self size - 2) == $m - and: [ (self at: self size - 1) == $c ] ] ]) - ifTrue: [self size - 3] - ifFalse: [self size + 1]]. ^self first: end - 1!

4 4

Jump to page: