Packages September 2021

packages@lists.squeakfoundation.org

1 participants
33 discussions

FFI: FFI-Kernel-mt.220.mcz
by commits＠source.squeak.org 16 Sep '21

16 Sep '21

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.220.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.220 Author: mt Time: 16 September 2021, 11:45:03.11532 am UUID: 775f007d-57d5-5a48-926b-4570ea27b939 Ancestors: FFI-Kernel-mt.219 No signed character types anymore. "char" and "uchar" (and "schar") have all the same type codes for the plugin. Avoid dependency on type codes in #isCharType and #isIntegerType and #isSigned to support different plugin versions. Minor fix in #initializeAtomicTypeCodes when removing (un-aliased) atomic type names (here: char8_t, char16_t, char32_t -- these are now aliases for uchar8_t, uchar16_t, uchar32_t). =============== Diff against FFI-Kernel-mt.219 =============== Item was changed: ----- Method: CharacterReadWriteSend class>>fromType: (in category 'instance creation') ----- fromType: type + ^ super fromType: type asIntegerType! - ^ super fromType: ExternalType byte! Item was changed: ----- Method: ExternalAtomicType class>>atomicTypeSpecs (in category 'class initialization') ----- atomicTypeSpecs | platform isNonArm32BitUnix | platform := FFIPlatformDescription current. isNonArm32BitUnix := platform wordSize = 4 and: [platform isUnix and: [platform isARM not]]. ^ { "name byte size byte alignment" #'void' . 0 . 0 . "No non-pointer support in calls. Duh. ;-)" #'bool' . 1 . 1 . "No pointer support in calls." #'uint8_t' . 1 . 1 . #'int8_t' . 1 . 1 . #'uint16_t' . 2 . 2 . #'int16_t' . 2 . 2 . #'uint32_t' . 4 . 4 . #'int32_t' . 4 . 4 . #'uint64_t' . 8 . isNonArm32BitUnix ifTrue: [4] ifFalse: [8] . #'int64_t' . 8 . isNonArm32BitUnix ifTrue: [4] ifFalse: [8] . #'uchar8_t' . 1 . 1 . + "#'char8_t' . 1 . 1 ." - #'char8_t' . 1 . 1 . #'uchar16_t'. 2 . 2 . - #'char16_t' . 2 . 2 . #'uchar32_t'. 4 . 4 . - #'char32_t' . 4 . 4 . + "#'half' . 2 . 2 ." #'float' . 4 . 4 . #'double' . 8 . isNonArm32BitUnix ifTrue: [4] ifFalse: [8] . }! Item was changed: ----- Method: ExternalAtomicType class>>initializeAtomicTypeCompanions (in category 'class initialization') ----- initializeAtomicTypeCompanions #( "name companion" (#'void' nil) (#'bool' nil) (#'uint8_t' #'int8_t') (#'int8_t' #'uint8_t') (#'uint16_t' #'int16_t') (#'int16_t' #'uint16_t') (#'uint32_t' #'int32_t') (#'int32_t' #'uint32_t') (#'uint64_t' #'int64_t') (#'int64_t' #'uint64_t') + (#'uchar8_t' nil) + (#'uchar16_t' nil) + (#'uchar32_t' nil) - (#'uchar8_t' #'char8_t') - (#'char8_t' #'uchar8_t') - (#'uchar16_t' #'char16_t') - (#'char16_t' #'uchar16_t') - (#'uchar32_t' #'char32_t') - (#'char32_t' #'uchar32_t') (#'float' #'double') (#'double' #'float') ) do:[:spec| | type companion | type := ExternalType typeNamed: spec first. companion := spec second ifNotNil: [ExternalType typeNamed: spec second]. type setCompanionType: companion. companion ifNotNil: [companion setCompanionType: type]].! Item was changed: ----- Method: ExternalType class>>char (in category 'type constants') ----- char "For convenience. Defaults to unsigned 8-bit character type." - self flag: #discuss. "mt: Shouldn't this rather be signed 8-bit character type?" ^self uchar8_t! Item was added: + ----- Method: ExternalType class>>char16_t (in category 'type constants') ----- + char16_t + + ^ self uchar16_t! Item was added: + ----- Method: ExternalType class>>char32_t (in category 'type constants') ----- + char32_t + + ^ self uchar32_t! Item was added: + ----- Method: ExternalType class>>char8_t (in category 'type constants') ----- + char8_t + + ^ self uchar8_t! Item was changed: ----- Method: ExternalType class>>initializeAtomicTypeCodes (in category 'class initialization') ----- initializeAtomicTypeCodes "ExternalType initializeAtomicTypeCodes" FFIConstants initialize. "Init appropriate type codes for current plugin version." AtomicTypeCodes := OrderedDictionary newFrom: { #'void' -> FFITypeVoid. #'bool' -> FFITypeBool. #'uint8_t' -> FFITypeUnsignedInt8. #'int8_t' -> FFITypeSignedInt8. #'uint16_t' -> FFITypeUnsignedInt16. #'int16_t' -> FFITypeSignedInt16. #'uint32_t' -> FFITypeUnsignedInt32. #'int32_t' -> FFITypeSignedInt32. #'uint64_t' -> FFITypeUnsignedInt64. #'int64_t' -> FFITypeSignedInt64. #'uchar8_t' -> FFITypeUnsignedChar8. + "#'char8_t' -> FFITypeSignedChar8." - #'char8_t' -> FFITypeSignedChar8. #'uchar16_t' -> FFITypeUnsignedChar16. - #'char16_t' -> FFITypeSignedChar16. #'uchar32_t' -> FFITypeUnsignedChar32. - #'char32_t' -> FFITypeSignedChar32. #'float' -> FFITypeSingleFloat. #'double' -> FFITypeDoubleFloat}. "We must now update the names of all known atomic types." AtomicTypes ifNotNil: [ AtomicTypes keys do: [:oldName | | type newName | type := AtomicTypes at: oldName. + newName := AtomicTypeCodes keyAtValue: type atomicType ifAbsent: [oldName]. - newName := AtomicTypeCodes keyAtValue: type atomicType. (AtomicTypes includesKey: newName) ifFalse: [ "Only store new names. Do not support name swap." AtomicTypes removeKey: oldName. AtomicTypes at: newName put: type. type setAtomicTypeName: newName]]].! Item was changed: ----- Method: ExternalType>>asCharType (in category 'converting - integer / char') ----- asCharType "When the receiver is an integer type, answer the corresponding character type." self isCharType ifTrue: [^ self]. self isIntegerType ifFalse: [^ self error: 'Cannot convert non-integer type to char type']. + self byteSize = 1 ifTrue: [^ self class uchar8_t]. + self byteSize = 2 ifTrue: [^ self class uchar16_t]. + self byteSize = 4 ifTrue: [^ self class uchar32_t]. - self byteSize = 1 ifTrue: [^ self isSigned ifTrue: [self class char8_t] ifFalse: [self class uchar8_t]]. - self byteSize = 2 ifTrue: [^ self isSigned ifTrue: [self class char16_t] ifFalse: [self class uchar16_t]]. - self byteSize = 4 ifTrue: [^ self isSigned ifTrue: [self class char32_t] ifFalse: [self class uchar32_t]]. self error: 'Cannot convert integer to char type; unsupported byteSize'.! Item was changed: ----- Method: ExternalType>>asIntegerType (in category 'converting - integer / char') ----- asIntegerType "When the receiver is a character type, answer the corresponding integer type." self isIntegerType ifTrue: [^ self]. self isCharType ifFalse: [^ self error: 'Cannot convert non-char type to integer type']. + self byteSize = 1 ifTrue: [^ self class uint8_t]. + self byteSize = 2 ifTrue: [^ self class uint16_t]. + self byteSize = 4 ifTrue: [^ self class uint32_t]. - self byteSize = 1 ifTrue: [^ self isSigned ifTrue: [self class int8_t] ifFalse: [self class uint8_t]]. - self byteSize = 2 ifTrue: [^ self isSigned ifTrue: [self class int16_t] ifFalse: [self class uint16_t]]. - self byteSize = 4 ifTrue: [^ self isSigned ifTrue: [self class int32_t] ifFalse: [self class uint32_t]]. self error: 'Cannot convert char to integer type; unsupported byteSize'.! Item was changed: ----- Method: ExternalType>>checkIntegerType (in category 'private') ----- checkIntegerType + self isIntegerType - (self isIntegerType or: [self isCharType]) ifFalse: [self error: 'Test is only defined on integer types!!'].! Item was changed: ----- Method: ExternalType>>isCharType (in category 'testing - integer / char') ----- isCharType + "Return true if the receiver is a built-in character type. Note that we want to avoid hard-coding type codes and invariants around type codes here to remain compatible with different plugin versions." + - | type | type := self atomicType. + type = FFITypeUnsignedChar8 ifTrue: [^ true]. + type = FFITypeSignedChar8 ifTrue: [^ true]. + type = FFITypeUnsignedChar16 ifTrue: [^ true]. + type = FFITypeUnsignedChar32 ifTrue: [^ true]. + ^ false! - ^ type >= FFITypeUnsignedChar8 and: [type <= FFITypeSignedChar32]! Item was changed: ----- Method: ExternalType>>isIntegerType (in category 'testing - integer / char') ----- isIntegerType + "Return true if the receiver is a built-in integer type. Note that we want to avoid hard-coding type codes and invariants around type codes here to remain compatible with different plugin versions." + - "Return true if the receiver is a built-in integer type" | type | type := self atomicType. + type = FFITypeUnsignedInt8 ifTrue: [^ true]. + type = FFITypeSignedInt8 ifTrue: [^ true]. + type = FFITypeUnsignedInt16 ifTrue: [^ true]. + type = FFITypeSignedInt16 ifTrue: [^ true]. + type = FFITypeUnsignedInt32 ifTrue: [^ true]. + type = FFITypeSignedInt32 ifTrue: [^ true]. + type = FFITypeUnsignedInt64 ifTrue: [^ true]. + type = FFITypeSignedInt64 ifTrue: [^ true]. + ^ false! - ^type >= FFITypeUnsignedInt8 and:[type <= FFITypeSignedInt64]! Item was changed: ----- Method: ExternalType>>isSigned (in category 'testing - integer / char') ----- isSigned + "Return true if the receiver is a signed integer type. Note that we want to avoid hard-coding type codes and invariants around type codes here to remain compatible with different plugin versions." - "Return true if the receiver is a signed integer type." + | type | + type := self atomicType. + type = FFITypeSignedInt8 ifTrue: [^ true]. + type = FFITypeSignedInt16 ifTrue: [^ true]. + type = FFITypeSignedInt32 ifTrue: [^ true]. + type = FFITypeSignedInt64 ifTrue: [^ true]. self checkIntegerType. + ^ false! - ^self atomicType anyMask: 1! Item was changed: + (PackageInfo named: 'FFI-Kernel') postscript: '"Update for array classes. No type codes for signed char types anymore." + ExternalType initialize...'! - (PackageInfo named: 'FFI-Kernel') postscript: '"Update for array classes." - ExternalType initialize..'!

1 0

The Trunk: CollectionsTests-ul.362.mcz
by commits＠source.squeak.org 13 Sep '21

13 Sep '21

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.362.mcz ==================== Summary ==================== Name: CollectionsTests-ul.362 Author: ul Time: 13 September 2021, 8:17:50.266844 pm UUID: 77f27034-be38-4caf-9267-a697b76db5de Ancestors: CollectionsTests-ct.361 - let the description of SequenceableCollectionTest >> #testDoWithIndexDeprecation tell which methods need to be changed =============== Diff against CollectionsTests-ct.361 =============== Item was changed: ----- Method: SequenceableCollectionTest>>testDoWithIndexDeprecation (in category 'tests - deprecation') ----- testDoWithIndexDeprecation + | selector senders | + selector := #doWithIndex:. + senders := self systemNavigation allCallsOn: selector. + self + assert: senders size = 1 + description: (String streamContents: [ :stream | + | thisSelector | + stream + nextPutAll: 'Unexpected senders of '; + print: selector; + nextPutAll: ': '. + thisSelector := thisContext method selector. + (senders reject: [ :each | + (each actualClass == self class + and: [ each selector == thisSelector ]) ]) + do: [ :each | + stream + nextPutAll: each actualClass name; + nextPutAll: ' >> '; + print: each selector ] + separatedBy: [ stream nextPutAll: ', ' ] ])! - self assert: 1 equals: (self systemNavigation allCallsOn: #doWithIndex:) size.!

1 0

The Trunk: KernelTests-ul.406.mcz
by commits＠source.squeak.org 13 Sep '21

13 Sep '21

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ul.406.mcz ==================== Summary ==================== Name: KernelTests-ul.406 Author: ul Time: 13 September 2021, 8:16:42.113648 pm UUID: 523fe4e9-6b1d-4f38-927b-59a7f5b433ca Ancestors: KernelTests-ul.405 - added incomplete FloatTest >> #testIsPowerOfTwo - fixed a bug in ObjectTest >> testIfNotNilDoDeprecation =============== Diff against KernelTests-ul.405 =============== Item was added: + ----- Method: FloatTest>>testIsPowerOfTwo (in category 'tests - characterization') ----- + testIsPowerOfTwo + + -1023 - 51 to: 1023 do: [ :each | + | n | + n := 1.0 timesTwoPower: each. + self + assert: n isPowerOfTwo; + deny: n negated isPowerOfTwo ]. + { 0.0. 3.0. 0.3. Float nan. Float infinity } do: [ :each | + self + deny: each isPowerOfTwo; + deny: each negated isPowerOfTwo ]. + ! Item was changed: ----- Method: ObjectTest>>testIfNotNilDoDeprecation (in category 'tests') ----- testIfNotNilDoDeprecation #(ifNotNilDo: #ifNil:ifNotNilDo: #ifNotNilDo:ifNil:) do: [ :selector | | senders | senders := self systemNavigation allCallsOn: selector. self assert: senders size = 1 description: (String streamContents: [ :stream | | thisSelector | stream nextPutAll: 'Unexpected senders of '; print: selector; nextPutAll: ': '. thisSelector := thisContext method selector. (senders reject: [ :each | (each actualClass == self class and: [ each selector == thisSelector ]) ]) do: [ :each | stream nextPutAll: each actualClass name; nextPutAll: ' >> '; print: each selector ] + separatedBy: [ stream nextPutAll: ', ' ] ]) ]! - separatedBy: [ stream nextPut: ', ' ] ]) ]!

1 0

The Trunk: Collections-ul.959.mcz
by commits＠source.squeak.org 13 Sep '21

13 Sep '21

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.959.mcz ==================== Summary ==================== Name: Collections-ul.959 Author: ul Time: 13 September 2021, 8:09:57.683039 pm UUID: 38711725-42d6-45cb-8915-e517d1fc8fd8 Ancestors: Collections-eem.958 - WeakIdentityDictionary and WeakKeyDictionary must implement #at:ifPresent: - WeakKeyDictionary must also override #at:ifPresent:ifAbsent: - implement KeyedSet >> #at:ifPresent:ifAbsent: while at these methods - CharacterSet class >> #cleanUp: was missing two cached instances: Ascii and NonAscii =============== Diff against Collections-eem.958 =============== Item was changed: ----- Method: CharacterSet class>>cleanUp: (in category 'initialize-release') ----- cleanUp: aggressive + CrLf := NonSeparators := Separators := Ascii := NonAscii := nil! - CrLf := NonSeparators := Separators := nil! Item was added: + ----- Method: KeyedSet>>at:ifPresent:ifAbsent: (in category 'accessing') ----- + at: key ifPresent: oneArgBlock ifAbsent: absentBlock + "Lookup the given key in the receiver. If it is present, answer the + value of evaluating the oneArgBlock with the value associated + with the key, otherwise answer the value of absentBlock." + + ^(array at: (self scanFor: key)) + ifNil: [ absentBlock value ] + ifNotNil: [ :value | oneArgBlock value: value enclosedSetElement ]! Item was added: + ----- Method: WeakIdentityDictionary>>at:ifPresent: (in category 'accessing') ----- + at: key ifPresent: aBlock + "Lookup the given key in the receiver. If it is present, answer the value of evaluating the given block with the value associated with the key. Otherwise, answer nil." + + ^(array at: (self scanFor: key)) ifNotNil: [ :association | + association == vacuum ifFalse: [ + aBlock value: association value ] ]! Item was added: + ----- Method: WeakKeyDictionary>>at:ifPresent: (in category 'accessing') ----- + at: key ifPresent: aBlock + "Lookup the given key in the receiver. If it is present, answer the value of evaluating the given block with the value associated with the key. Otherwise, answer nil. + While no nil key can be added, keys become nil when they are garbage collected. + This must not let nil accidentally 'inherit' the value of such a stale association." + + ^key ifNotNil: [ super at: key ifPresent: aBlock ]! Item was added: + ----- Method: WeakKeyDictionary>>at:ifPresent:ifAbsent: (in category 'accessing') ----- + at: key ifPresent: oneArgBlock ifAbsent: absentBlock + "Lookup the given key in the receiver. If it is present, answer the + value of evaluating the oneArgBlock with the value associated + with the key, otherwise answer the value of absentBlock." + + ^key ifNotNil: [ super at: key ifPresent: oneArgBlock ifAbsent: absentBlock ]!

1 0

The Trunk: Kernel-ul.1413.mcz
by commits＠source.squeak.org 13 Sep '21

13 Sep '21

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1413.mcz ==================== Summary ==================== Name: Kernel-ul.1413 Author: ul Time: 13 September 2021, 8:06:11.922907 pm UUID: 2751b4f0-b45d-4578-b539-a3ccfd56d4ee Ancestors: Kernel-ul.1412 - MethodDictionary must override #at:ifPresent: - remove accidentally commited junk #isPowerOfTwo2 and #isPowerOfTwo3 =============== Diff against Kernel-ul.1412 =============== Item was added: + ----- Method: MethodDictionary>>at:ifPresent: (in category 'accessing') ----- + at: key ifPresent: aBlock + "Lookup the given key in the receiver. If it is present, answer the value of evaluating the given block with the value associated with the key. Otherwise, answer nil." + + ^(array at: (self scanFor: key)) ifNotNil: [ :value | aBlock value: value ]! Item was removed: - ----- Method: SmallInteger>>isPowerOfTwo2 (in category 'testing') ----- - isPowerOfTwo2 - "Return true if the receiver is an integral power of two. Optimized version." - - ^self strictlyPositive and: [ (self bitAnd: self - 1) = 0 ]! Item was removed: - ----- Method: SmallInteger>>isPowerOfTwo3 (in category 'testing') ----- - isPowerOfTwo3 - "Return true if the receiver is an integral power of two. Optimized version." - - self > 0 ifFalse: [ ^false ]. - (self bitAnd: self - 1) = 0 ifFalse: [ ^false ]. - ^true!

1 0

The Trunk: Kernel-ul.1412.mcz
by commits＠source.squeak.org 13 Sep '21

13 Sep '21

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1412.mcz ==================== Summary ==================== Name: Kernel-ul.1412 Author: ul Time: 13 September 2021, 7:42:57.781301 pm UUID: 99321567-2351-48d2-9568-eb9d99079021 Ancestors: Kernel-eem.1410, Kernel-ul.1411 CompiledCode >> #hash : - remove #species from the hash calculation because #= doesn't compare that either - use #hashMultiply to mix in values with fewer collisions (increases the number of different hash values by about 1.5x in the image) - actualized comments - reset DebuggerMethodMap's MapCache, so that all collections relying on CompiledCode's #hash in a Trunk image are absent - finally, rehash all hashed collections just to be sure no collections are left in an invalid state Also merge with Kernel-ul.1411. =============== Diff against Kernel-eem.1410 =============== Item was changed: ----- Method: CompiledCode>>hash (in category 'comparing') ----- hash + "CompiledCode>>#= compares code, i.e. same literals and same bytecode. + So we look at the size, the header and some bytes between initialPC and endPC, + but neither selector nor methodClass because the #= does not either.. + Note that we must override ByteArray>>#hash which looks at all bytes of the receiver. + Using bytes from the pointer part of a CompiledCode can lead to a variable hash - "CompiledMethod>>#= compares code, i.e. same literals and same bytecode. - So we look at the header, methodClass and some bytes between initialPC and endPC, - but /not/ the selector because the equal method does not compare selectors. - Note that we must override ByteArray>hash which looks at all bytes of the receiver. - Using bytes from the pointer part of a CompiledMethod can lead to a variable hash if and when when the GC moves literals in the receiver." + | initialPC endPC hash | initialPC := self initialPC. endPC := self endPC. + hash := (((self size hashMultiply + self header) hashMultiply + initialPC) hashMultiply + endPC) hashMultiply. - hash := self species hash + self header + initialPC + endPC bitAnd: 16rFFFFFFF. "sample approximately 20 bytes" initialPC to: endPC by: (endPC - initialPC // 20 max: 1) do: + [:i| hash := (hash + (self at: i)) hashMultiply]. - [:i| hash := hash + (self at: i)]. ^hash + "(CompiledCode>>#hash) hash"! - "(CompiledMethod>>#hash) hash"! Item was added: + ----- Method: Fraction>>isPowerOfTwo (in category 'testing') ----- + isPowerOfTwo + "Return true if the receiver is an integral power of two." + + ^numerator = 1 and: [ denominator isPowerOfTwo ]! Item was removed: - ----- Method: Integer>>isPowerOfTwo (in category 'testing') ----- - isPowerOfTwo - "Return true if the receiver is an integral power of two." - - ^self strictlyPositive and: [ (self bitAnd: self - 1) = 0 ]! Item was added: + ----- Method: Number>>isPowerOfTwo (in category 'testing') ----- + isPowerOfTwo + "Return true if the receiver is an integral power of two." + + self subclassResponsibility! Item was added: + ----- Method: ScaledDecimal>>isPowerOfTwo (in category 'testing') ----- + isPowerOfTwo + "Return true if the receiver is an integral power of two." + + ^fraction isPowerOfTwo! Item was added: + ----- Method: SmallInteger>>isPowerOfTwo2 (in category 'testing') ----- + isPowerOfTwo2 + "Return true if the receiver is an integral power of two. Optimized version." + + ^self strictlyPositive and: [ (self bitAnd: self - 1) = 0 ]! Item was added: + ----- Method: SmallInteger>>isPowerOfTwo3 (in category 'testing') ----- + isPowerOfTwo3 + "Return true if the receiver is an integral power of two. Optimized version." + + self > 0 ifFalse: [ ^false ]. + (self bitAnd: self - 1) = 0 ifFalse: [ ^false ]. + ^true! Item was changed: + (PackageInfo named: 'Kernel') postscript: 'DebuggerMethodMap voidMapCache. + Smalltalk garbageCollect. + HashedCollection rehashAll'! - (PackageInfo named: 'Kernel') postscript: 'EventSensor initialize.. - EventSensor startUp..'!

1 0

The Trunk: Kernel-ul.1411.mcz
by commits＠source.squeak.org 13 Sep '21

13 Sep '21

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1411.mcz ==================== Summary ==================== Name: Kernel-ul.1411 Author: ul Time: 10 September 2021, 3:16:23.23175 pm UUID: 9d7f74f9-52b9-4a1c-babf-60de439244bb Ancestors: Kernel-ul.1409 - let all Numbers respond to #isPowerOfTwo. - removed Integer >> #isPowerOfTwo because it was not used: all subclasses implement that method =============== Diff against Kernel-ul.1409 =============== Item was added: + ----- Method: Fraction>>isPowerOfTwo (in category 'testing') ----- + isPowerOfTwo + "Return true if the receiver is an integral power of two." + + ^numerator = 1 and: [ denominator isPowerOfTwo ]! Item was removed: - ----- Method: Integer>>isPowerOfTwo (in category 'testing') ----- - isPowerOfTwo - "Return true if the receiver is an integral power of two." - - ^self strictlyPositive and: [ (self bitAnd: self - 1) = 0 ]! Item was added: + ----- Method: Number>>isPowerOfTwo (in category 'testing') ----- + isPowerOfTwo + "Return true if the receiver is an integral power of two." + + self subclassResponsibility! Item was added: + ----- Method: ScaledDecimal>>isPowerOfTwo (in category 'testing') ----- + isPowerOfTwo + "Return true if the receiver is an integral power of two." + + ^fraction isPowerOfTwo!

1 0

The Trunk: Kernel-eem.1410.mcz
by commits＠source.squeak.org 13 Sep '21

13 Sep '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1410.mcz ==================== Summary ==================== Name: Kernel-eem.1410 Author: eem Time: 12 September 2021, 10:24:18.099359 pm UUID: 80f1546b-b2a1-4ffb-a174-d21d2eb2eb67 Ancestors: Kernel-ul.1409 Since Compiledmethod>>= is true if method classes differ, a COmpiledMethod's hash must not tae methodClass into account. =============== Diff against Kernel-ul.1409 =============== Item was changed: ----- Method: CompiledCode>>hash (in category 'comparing') ----- hash "CompiledMethod>>#= compares code, i.e. same literals and same bytecode. So we look at the header, methodClass and some bytes between initialPC and endPC, but /not/ the selector because the equal method does not compare selectors. Note that we must override ByteArray>hash which looks at all bytes of the receiver. + Using bytes from the pointer part of a CompiledMethod can lead to a variable hash - Using bytes from the pointer part of a COmpiledmethod can lead to a variable hash if and when when the GC moves literals in the receiver." | initialPC endPC hash | initialPC := self initialPC. endPC := self endPC. + hash := self species hash + self header + initialPC + endPC bitAnd: 16rFFFFFFF. - hash := self species hash + self header + initialPC + endPC + self methodClass hash bitAnd: 16rFFFFFFF. "sample approximately 20 bytes" initialPC to: endPC by: (endPC - initialPC // 20 max: 1) do: [:i| hash := hash + (self at: i)]. ^hash "(CompiledMethod>>#hash) hash"!

1 0

The Trunk: Collections-eem.958.mcz
by commits＠source.squeak.org 13 Sep '21

13 Sep '21

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.958.mcz ==================== Summary ==================== Name: Collections-eem.958 Author: eem Time: 12 September 2021, 10:21:36.638507 pm UUID: b2a7ddb8-1520-483b-96b1-1bf44bf6ec20 Ancestors: Collections-dtl.957 Faster at:ifPresent: =============== Diff against Collections-dtl.957 =============== Item was changed: ----- Method: Dictionary>>at:ifPresent: (in category 'accessing') ----- at: key ifPresent: aBlock "Lookup the given key in the receiver. If it is present, answer the value of evaluating the given block with the value associated with the key. Otherwise, answer nil." + ^(array at: (self scanFor: key)) ifNotNil: [:assoc| aBlock value: assoc value]! - | v | - v := self at: key ifAbsent: [^ nil]. - ^ aBlock value: v - ! Item was changed: ----- Method: KeyedSet>>at:ifPresent: (in category 'accessing') ----- at: key ifPresent: aBlock "Lookup the given key in the receiver. If it is present, answer the value of evaluating the given block with the value associated with the key. Otherwise, answer nil." + ^(array at: (self scanFor: key)) ifNotNil: [:obj| aBlock value: obj enclosedSetElement]! - | v | - v := self at: key ifAbsent: [^ nil]. - ^ aBlock value: v - !

1 0

The Trunk: Collections-dtl.957.mcz
by commits＠source.squeak.org 08 Sep '21

08 Sep '21

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-dtl.957.mcz ==================== Summary ==================== Name: Collections-dtl.957 Author: dtl Time: 8 September 2021, 5:57:05.466076 pm UUID: c8292c9b-808c-42b3-931b-84065ca758af Ancestors: Collections-ct.956 LazyCharacterSet>>printOn: should not raise an error, otherwise things get confusing in the debugger. (LazyCharacterSet including: [:e | e asciiValue < 256 ]) printString =============== Diff against Collections-ct.956 =============== Item was added: + ----- Method: LazyCharacterSet>>printElementsOn: (in category 'printing') ----- + printElementsOn: aString + "Do nothing,elements cannot be directly enumerated"!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2021