Squeak-dev November 2020

squeak-dev@lists.squeakfoundation.org

31 participants
224 discussions

The Trunk: Monticello-mt.732.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.732.mcz ==================== Summary ==================== Name: Monticello-mt.732 Author: mt Time: 4 November 2020, 4:05:55.79762 pm UUID: 6424345e-36b4-db44-90eb-de9c30a823d4 Ancestors: Monticello-mt.731 Catches a possible isNil error during ancestry stubbing. Thanks to Karl (kfr) for finding it! (Monticello-kfr.617 will be moved to treated) =============== Diff against Monticello-mt.731 =============== Item was changed: ----- Method: MCAncestry>>stubAncestryFor:using: (in category 'initialize-release') ----- stubAncestryFor: aMCWorkingCopy using: aMCRepository "childInfo was retrieved from aMCRepository. Replace my ancestry with a Proxy that can retrieve the full tree from these two elements." ancestors := ancestors collect: [ : each | each isMCInfoProxy ifTrue: [ each ] ifFalse: [ MCInfoProxy info: each copyWithTrimmedAncestry workingCopy: aMCWorkingCopy repository: aMCRepository ] ]. + stepChildren ifNotNil: + [ stepChildren := stepChildren collect: + [ : each | each isMCInfoProxy + ifTrue: [ each ] + ifFalse: + [ MCInfoProxy + info: each copyWithTrimmedAncestry + workingCopy: aMCWorkingCopy + repository: aMCRepository ] ] ]! - stepChildren := stepChildren collect: - [ : each | each isMCInfoProxy - ifTrue: [ each ] - ifFalse: - [ MCInfoProxy - info: each copyWithTrimmedAncestry - workingCopy: aMCWorkingCopy - repository: aMCRepository ] ]!

1 0

The Trunk: Monticello-bf.532.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.532.mcz ==================== Summary ==================== Name: Monticello-bf.532 Author: bf Time: 24 January 2013, 4:05:51.496 pm UUID: 71bddd0f-d5ac-488b-a8e1-729f2a06474e Ancestors: Monticello-bf.531 Save dialog now shows a list of changes to be submitted. Clicking a list item shows a diff in the lower pane. Advanced users can also make this save ignore individual changes using the item's context menu. =============== Diff against Monticello-bf.531 =============== Item was added: + ----- Method: MCPatch>>ignoring: (in category 'accessing') ----- + ignoring: ignoredOperations + ^ MCPatch operations: (operations difference: ignoredOperations)! Item was changed: + MCPatchBrowser subclass: #MCSaveVersionDialog + instanceVariableNames: 'name message ignore' - MCTool subclass: #MCSaveVersionDialog - instanceVariableNames: 'name message' classVariableNames: '' poolDictionaries: '' category: 'Monticello-UI'! Item was changed: ----- Method: MCSaveVersionDialog>>accept (in category 'as yet unclassified') ----- accept self answer: (Array with: (self findTextMorph: #versionName) text asString + with: (self findTextMorph: #logMessage) text asString + with: ignore) + ! - with: (self findTextMorph: #logMessage) text asString) - ! Item was added: + ----- Method: MCSaveVersionDialog>>ignore (in category 'as yet unclassified') ----- + ignore + ^ ignore ifNil: [ignore := Set new]! Item was added: + ----- Method: MCSaveVersionDialog>>ignoreSelection (in category 'as yet unclassified') ----- + ignoreSelection + selection + ifNil: [ignore size = items size + ifFalse: [ignore addAll: items] + ifTrue: [ignore removeAll]] + ifNotNil: [ + ignore remove: selection ifAbsent: [ + ignore add: selection]]. + self changed: #list + ! Item was added: + ----- Method: MCSaveVersionDialog>>installSelection (in category 'as yet unclassified') ----- + installSelection + super installSelection. + selection ifNotNil: [ + ignore remove: selection ifAbsent: []. + self changed: #list]. + + ! Item was added: + ----- Method: MCSaveVersionDialog>>list (in category 'as yet unclassified') ----- + list + ^ self items collect: [:ea | + (self ignore includes: ea) + ifFalse: [ea summary] + ifTrue: [Text string: '( ', ea summary, ' )' attribute: TextEmphasis struckOut ]]! Item was added: + ----- Method: MCSaveVersionDialog>>methodListKey:from: (in category 'as yet unclassified') ----- + methodListKey: aKeystroke from: aListMorph + aKeystroke caseOf: { + [$I] -> [self ignoreSelection]. + } otherwise: [super methodListKey: aKeystroke from: aListMorph ]! Item was added: + ----- Method: MCSaveVersionDialog>>methodListMenu: (in category 'as yet unclassified') ----- + methodListMenu: aMenu + aMenu addList:#( + ('ignore (I)' ignoreSelection 'Do not include this change when saving') + -). + super methodListMenu: aMenu. + ^aMenu! Item was added: + ----- Method: MCSaveVersionDialog>>revertSelection (in category 'as yet unclassified') ----- + revertSelection + super revertSelection. + selection ifNotNil: [ + ignore add: selection. + self changed: #list]. + ! Item was changed: ----- Method: MCSaveVersionDialog>>widgetSpecs (in category 'as yet unclassified') ----- widgetSpecs ^ #( ((textMorph: versionName) (0 0 1 0) (0 0 0 30)) + ((textMorph: logMessage) (0 0 1 0.3) (0 30 0 -30)) + ((buttonRow) (0 0.3 1 0.3) (0 -40 0 0)) + ((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0.3 1 0.6) (0 0 0 0)) + ((textMorph: text) (0 0.6 1 1) (0 0 0 0)) - ((textMorph: logMessage) (0 0 1 1) (0 30 0 -30)) - ((buttonRow) (0 1 1 1) (0 -40 0 0)) )! Item was changed: Notification subclass: #MCVersionNameAndMessageRequest + instanceVariableNames: 'suggestion initialMessage patch' - instanceVariableNames: 'suggestion initialMessage' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Versioning'! Item was changed: ----- Method: MCVersionNameAndMessageRequest>>defaultAction (in category 'as yet unclassified') ----- defaultAction ^ MCSaveVersionDialog new versionName: suggestion; logMessage: initialMessage; + patch: patch; showModally! Item was added: + ----- Method: MCVersionNameAndMessageRequest>>patch (in category 'as yet unclassified') ----- + patch + ^ patch! Item was added: + ----- Method: MCVersionNameAndMessageRequest>>patch: (in category 'as yet unclassified') ----- + patch: aPatch + patch := aPatch + ! Item was changed: ----- Method: MCWorkingCopy>>newVersion (in category 'operations') ----- newVersion + | packageSnapshot parentSnapshot patch | + parentSnapshot := self parentSnapshot. + packageSnapshot := package snapshot. + patch := packageSnapshot patchRelativeToBase: parentSnapshot. ^ (self requestVersionNameAndMessageWithSuggestion: self uniqueVersionName + initialMessage: self patchMessageDefault + patch: patch) ifNotNil: + [:tuple | + self newVersionWithName: tuple first withBlanksTrimmed + message: (self patchMessageStripped: tuple second) + snapshot: (tuple third + ifEmpty: [packageSnapshot] + ifNotEmpty: [ + MCPatcher apply: (patch ignoring: tuple third) + to: parentSnapshot])] - initialMessage: self patchMessageSuggestion) ifNotNil: - [:pair | - self newVersionWithName: pair first withBlanksTrimmed - message: (self patchMessageStripped: pair last)]. ! Item was changed: ----- Method: MCWorkingCopy>>newVersionWithName:message: (in category 'operations') ----- newVersionWithName: nameString message: messageString + ^self newVersionWithName: nameString message: messageString snapshot: package snapshot! - | info deps | - info := ancestry infoWithName: nameString message: messageString. - ancestry := MCWorkingAncestry new addAncestor: info. - self modified: true; modified: false. - - deps := self requiredPackages collect: - [:ea | - MCVersionDependency - package: ea - info: ea workingCopy currentVersionInfo]. - - ^ MCVersion - package: package - info: info - snapshot: package snapshot - dependencies: deps! Item was added: + ----- Method: MCWorkingCopy>>newVersionWithName:message:snapshot: (in category 'operations') ----- + newVersionWithName: nameString message: messageString snapshot: aSnapshot + | info deps clean | + info := ancestry infoWithName: nameString message: messageString. + ancestry := MCWorkingAncestry new addAncestor: info. + clean := (package snapshot patchRelativeToBase: aSnapshot) isEmpty. + self modified: clean; modified: clean not. "hack to ensure label is updated" + + deps := self requiredPackages collect: + [:ea | + MCVersionDependency + package: ea + info: ea workingCopy currentVersionInfo]. + + ^ MCVersion + package: package + info: info + snapshot: aSnapshot + dependencies: deps! Item was added: + ----- Method: MCWorkingCopy>>parentSnapshot (in category 'private') ----- + parentSnapshot + ^ self findSnapshotWithVersionInfo: (self ancestors + ifEmpty: [nil] + ifNotEmpty: [self ancestors first])! Item was changed: ----- Method: MCWorkingCopy>>patchMessageChanges (in category 'operations') ----- patchMessageChanges + | changes | + changes := package snapshot patchRelativeToBase: self parentSnapshot. - | changes parentInfo parentSnapshot | - parentInfo := self ancestors - ifEmpty: [nil] - ifNotEmpty: [self ancestors first]. - parentSnapshot := self findSnapshotWithVersionInfo: parentInfo. - changes := package snapshot patchRelativeToBase: parentSnapshot. ^ (MCPatchMessage new patch: changes) message! Item was removed: - ----- Method: MCWorkingCopy>>requestVersionNameAndMessageWithSuggestion:initialMessage: (in category 'private') ----- - requestVersionNameAndMessageWithSuggestion: nameString initialMessage: msgString - ^ (MCVersionNameAndMessageRequest new - suggestedName: nameString; - initialMessage: msgString - ) signal! Item was added: + ----- Method: MCWorkingCopy>>requestVersionNameAndMessageWithSuggestion:initialMessage:patch: (in category 'private') ----- + requestVersionNameAndMessageWithSuggestion: nameString initialMessage: msgString patch: aPatch + ^ (MCVersionNameAndMessageRequest new + suggestedName: nameString; + initialMessage: msgString; + patch: aPatch + ) signal!

1 0

The Trunk: System-ct.1133.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1133.mcz ==================== Summary ==================== Name: System-ct.1133 Author: ct Time: 3 February 2020, 11:55:06.856675 pm UUID: bd5c789a-39d3-574b-aa2a-0f900b3a8009 Ancestors: System-cmm.1131 Fix execution-around pattern to forward return value in some during methods So that Utilities useAuthorName: 'Squeak' during: [Utilities authorName] yields 'Squeak' but not Utilities. =============== Diff against System-cmm.1131 =============== Item was changed: ----- Method: Preferences class>>setFlag:toValue:during: (in category 'get/set - flags') ----- setFlag: prefSymbol toValue: aBoolean during: aBlock "Set the flag to the given value for the duration of aBlock" (self valueOfFlag: prefSymbol) in: [:previous | self setFlag: prefSymbol toValue: aBoolean. + ^ aBlock ensure: [self setFlag: prefSymbol toValue: previous]].! - aBlock ensure: [self setFlag: prefSymbol toValue: previous]].! Item was changed: ----- Method: Preferences class>>setPreference:toValue:during: (in category 'get/set') ----- setPreference: prefSymbol toValue: anObject during: aBlock (self valueOfPreference: prefSymbol) in: [:previous | self setPreference: prefSymbol toValue: anObject. + ^ aBlock ensure: [self setPreference: prefSymbol toValue: previous]]! - aBlock ensure: [self setPreference: prefSymbol toValue: previous]].! Item was changed: ----- Method: Utilities class>>useAuthorInitials:during: (in category 'identification') ----- useAuthorInitials: temporaryAuthorInitials during: aBlock | originalAuthorInitials | originalAuthorInitials := AuthorInitials. + [ AuthorInitials := temporaryAuthorInitials. + ^ aBlock value ] - [ - AuthorInitials := temporaryAuthorInitials. - aBlock value ] ensure: [ AuthorInitials := originalAuthorInitials ] ! Item was changed: ----- Method: Utilities class>>useAuthorName:during: (in category 'identification') ----- useAuthorName: temporaryAuthorName during: aBlock | originalAuthorName | originalAuthorName := AuthorName. + [ AuthorName := temporaryAuthorName. + ^ aBlock value ] - [ - AuthorName := temporaryAuthorName. - aBlock value ] ensure: [ AuthorName := originalAuthorName ] !

3 2

The Trunk: System-mt.1188.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1188.mcz ==================== Summary ==================== Name: System-mt.1188 Author: mt Time: 4 November 2020, 11:50:14.56762 am UUID: 57645a78-976f-ed45-b29d-0a3263b10d3d Ancestors: System-mt.1187 Minor clean up and speed up. =============== Diff against System-mt.1187 =============== Item was changed: ----- Method: Preferences class>>setPreference:toValue:during: (in category 'get/set') ----- setPreference: prefSymbol toValue: anObject during: aBlock + | previousValue | + previousValue := self valueOfPreference: prefSymbol. + self setPreference: prefSymbol toValue: anObject. + ^ aBlock ensure: [self setPreference: prefSymbol toValue: previousValue]! - (self valueOfPreference: prefSymbol) in: [:previous | - self setPreference: prefSymbol toValue: anObject. - ^ aBlock ensure: [self setPreference: prefSymbol toValue: previous]]!

1 0

The Trunk: Kernel-nice.1295.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1295.mcz ==================== Summary ==================== Name: Kernel-nice.1295 Author: nice Time: 17 February 2020, 6:59:12.589583 pm UUID: 7b8c61b2-fd1d-473e-9536-57f78a6ec152 Ancestors: Kernel-tonyg.1293 Fast-up isAnExactFloat. Correct a typo in a comment. =============== Diff against Kernel-tonyg.1293 =============== Item was changed: ----- Method: Integer>>isAnExactFloat (in category 'testing') ----- isAnExactFloat "Answer true if this Integer can be converted exactly to a Float" | h | (h := self highBitOfMagnitude) <= Float precision ifTrue: [^ true]. ^ h - 1 <= Float emax + and: [(self anyBitOfMagnitudeFrom: 1 to: h - Float precision) not]! - and: [h - self abs lowBit < Float precision]! Item was changed: ----- Method: NumberParser>>makeFloatFromMantissa:exponent:base: (in category 'parsing-private') ----- makeFloatFromMantissa: m exponent: k base: aRadix + "Convert infinite precision arithmetic into limited precision Floating point. + This algorithm rely on correct IEEE rounding mode - "Convert infinite precision arithmetic into Floating point. - This alogrithm rely on correct IEEE rounding mode being implemented in Integer>>asFloat and Fraction>>asFloat" k = 0 ifTrue: [ ^m asFloat ]. k > 0 ifTrue: [ ^(m * (aRadix raisedToInteger: k)) asFloat ]. ^(Fraction numerator: m denominator: (aRadix raisedToInteger: k negated)) asFloat!

1 0

The Trunk: Kernel-dtl.1310.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.1310.mcz ==================== Summary ==================== Name: Kernel-dtl.1310 Author: dtl Time: 6 March 2020, 7:29:11.316779 pm UUID: 683e4e14-fc18-4d55-a776-eece91f579f5 Ancestors: Kernel-mt.1309 Change the Squeak default bytecode set to Sista in trunk. Add CompiledCode>>multipleBytecodeSetsActive: to optionally inform the VM that Sista is in use, see VMMaker.oscog-dtl.2711 and http://lists.squeakfoundation.org/pipermail/vm-dev/2020-January/032441.html. Add CompiledCode>>useSista: convenience method for switching to and from Sista bytecodes. Package postscript activates the change to Sista bytecodes, which can be reversed by evaluating CompiledCode useSista: false. =============== Diff against Kernel-mt.1309 =============== Item was added: + ----- Method: CompiledCode class>>multipleBytecodeSetsActive: (in category 'method encoding') ----- + multipleBytecodeSetsActive: aBoolean + "Inform the VM when multiple bytecode sets, typically the Sista bytecodes + in addition to the traditional V3 bytecode set, are now in use is this image. + The VM may use this information to update the image format number when + saving the image to the file system." + + <primitive: 'primitiveMultipleBytecodeSetsActive'> + ! Item was added: + ----- Method: CompiledCode class>>useSista: (in category 'method encoding') ----- + useSista: useSistaEncoder + "Switch to or from the Sista bytecode encoder, and recompile the system + using that encoder. Assumes that Compiler recompileAll is working for the + existing system. Assumes that the currently available primary and secondary + bytecode encoders are EncoderForV3PlusClosures and EncoderForSistaV1. + This is a convenience method that must be updated as the available encoders + are changed." + + "CompiledCode useSista: true" + "CompiledCode useSista: false" + + | standardEncoder sistaEncoder activeEncoder | + standardEncoder := Smalltalk classNamed: #EncoderForV3PlusClosures. + sistaEncoder := Smalltalk classNamed: #EncoderForSistaV1. + activeEncoder := self preferredBytecodeSetEncoderClass. + useSistaEncoder + ifTrue: [sistaEncoder ifNil: [self error: 'EncoderForSistaV1 not present in this image']. + self preferredBytecodeSetEncoderClass: sistaEncoder. + activeEncoder ~= sistaEncoder + ifTrue: [(Smalltalk classNamed: #Compiler) recompileAll. + self multipleBytecodeSetsActive: true "VM should support Sista plus V3" ]] + ifFalse: [standardEncoder ifNil: [self error: 'EncoderForV3PlusClosures not present in this image']. + self preferredBytecodeSetEncoderClass: standardEncoder. + activeEncoder ~= standardEncoder + ifTrue: [(Smalltalk classNamed: #Compiler) recompileAll. + self multipleBytecodeSetsActive: false "VM needs to support V3 only" ]]. + + ! Item was changed: + (PackageInfo named: 'Kernel') postscript: '"Activate Sista bytecodes in the image" + + CompiledCode useSista: true. + '! - (PackageInfo named: 'Kernel') postscript: '"below, add code to be run after the loading of this package" - "Since Kernel-eem.1198 redefines LargePositiveInteger hash, - rehash all hashed collections that contain hashed large integers." - HashedCollection allSubclassesDo: - [:c| | f | - f := (c includesBehavior: Set) - ifTrue: [[:i| i]] - ifFalse: [[:i| i keys]]. - c allInstancesDo: - [:h| - ((f value: h) detect: [:e| e isInteger and: [e class ~~ SmallInteger]] ifNone: nil) ifNotNil: - [h rehash]]]'!

1 0

The Trunk: Kernel-spfa.1312.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-spfa.1312.mcz ==================== Summary ==================== Name: Kernel-spfa.1312 Author: spfa Time: 8 March 2020, 2:22:41.860727 pm UUID: 69693489-ed71-fa41-ad62-441618120c9c Ancestors: Kernel-nice.1311 Make comparing two near-zero numbers follow the same logic as comparing a near-zero number and zero. =============== Diff against Kernel-nice.1311 =============== Item was changed: ----- Method: Float>>closeTo: (in category 'comparing') ----- closeTo: num "are these two numbers close?" num isNumber ifFalse: [^[self = num] ifError: [false]]. self = 0.0 ifTrue: [^num abs < 0.0001]. num = 0 ifTrue: [^self abs < 0.0001]. + ^self = num asFloat or: [ + | abs | + (abs := self abs) < 0.0001 ifTrue: [^num abs < 0.0001]. + (self - num) abs / (abs max: num abs) < 0.0001]! - ^self = num asFloat - or: [(self - num) abs / (self abs max: num abs) < 0.0001]!

1 0

The Trunk: Kernel-ct.1295.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1295.mcz ==================== Summary ==================== Name: Kernel-ct.1295 Author: ct Time: 24 January 2020, 5:20:51.814415 pm UUID: 18ea3b5d-ee42-2944-9d01-aa48e43207a7 Ancestors: Kernel-nice.1292 Extends BlockClosure >> #whileNil: by returning the final non-nil value. Adds #whileNil analogous to #whileTrue and #whileFalse. [Project uiManager chooseFrom: #(foo bar) values: #(Foo Bar)] whileNil. [Project uiManager chooseFrom: #(foo bar) values: #(Foo Bar)] whileNil: [self inform: 'You have to decide!'] =============== Diff against Kernel-nice.1292 =============== Item was added: + ----- Method: BlockClosure>>whileNil (in category 'controlling') ----- + whileNil + "Unlike #whileTrue/False this is not compiled inline." + | result | + [(result := self value) isNil] whileTrue. + ^ result + ! Item was changed: ----- Method: BlockClosure>>whileNil: (in category 'controlling') ----- whileNil: aBlock "Unlike #whileTrue/False: this is not compiled inline." + | result | + [(result := self value) isNil] whileTrue: [aBlock value]. + ^ result - ^ [self value isNil] whileTrue: [aBlock value] !

1 0

The Trunk: Kernel-ct.1299.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1299.mcz ==================== Summary ==================== Name: Kernel-ct.1299 Author: ct Time: 16 February 2020, 4:26:42.224 pm UUID: b1c9f40a-a7ea-9a4e-a502-268cb22592e7 Ancestors: Kernel-tonyg.1293 Refactor #valueSupplyingAnswers:: - Don't reinvent the wheel of Exception >> #pass - Use #ifError: See also http://forum.world.st/The-Trunk-Kernel-mt-1283-mcz-td5107403.html. =============== Diff against Kernel-tonyg.1293 =============== Item was changed: ----- Method: BlockClosure>>valueSupplyingAnswers: (in category 'evaluating') ----- valueSupplyingAnswers: aListOfPairs + "Evaluate the receiver using a list of questions / answers that might be called upon to automatically respond to Object>>confirm: or FillInTheBlank requests" - "evaluate the block using a list of questions / answers that might be called upon to - automatically respond to Object>>confirm: or FillInTheBlank requests" + ^ self on: ProvideAnswerNotification do: [ :notification | + | caption | + caption := notification messageText withSeparatorsCompacted. "to remove new lines" + aListOfPairs + detect: [ :each | + caption = each first + or: [ (caption includesSubstring: each first caseSensitive: false) + or: [ (each first match: caption) + or: [ (caption respondsTo: #matchesRegex:) + and: [ [caption matchesRegex: each first] ifError: [false] ] ] ] ] ] + ifFound: [ :answer | notification resume: answer second ] + ifNone: [ notification pass ] ]! - ^self - on: ProvideAnswerNotification - do: [ :notification | - | caption | - caption := notification messageText withSeparatorsCompacted. "to remove new lines" - aListOfPairs - detect: [ :each | - caption = each first - or: [ (caption includesSubstring: each first caseSensitive: false) - or: [ (each first match: caption) - or: [ (caption respondsTo: #matchesRegex:) - and: [ [caption matchesRegex: each first] on: Error do: [false] ] ] ] ] ] - ifFound: [ :answer | notification resume: answer second ] - ifNone: [ - (ProvideAnswerNotification signal: notification messageText) - ifNil: [ notification resume ] - ifNotNil: [ :outerAnswer | notification resume: outerAnswer ] ] ]!

1 0

The Trunk: Kernel-ct.1300.mcz
by commits＠source.squeak.org 04 Nov '20

04 Nov '20

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1300.mcz ==================== Summary ==================== Name: Kernel-ct.1300 Author: ct Time: 16 February 2020, 4:53:53.7 pm UUID: f7fb9fc4-63e9-2c41-b97a-6928d5d0d08b Ancestors: Kernel-tonyg.1293 Fix multiple typos in BlockClosure and FullBlockClosure documentation =============== Diff against Kernel-tonyg.1293 =============== Item was changed: ----- Method: BlockClosure>>reentrant (in category 'private') ----- reentrant "Answer a version of the recever that can be reentered. + Closures are reentrant (unlike BlockContext), so simply answer self." - Closures are reentrant (unlike BlockContect) so simply answer self." ^self! Item was changed: BlockClosure variableSubclass: #FullBlockClosure instanceVariableNames: 'receiver' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Methods'! + !FullBlockClosure commentStamp: 'ct 2/14/2020 15:56' prior: 0! + Instances of FullBlockClosure represent blocks, a sequence of statements inside square brackets that can be evaluated at any time via one of the value messages (value, value:, value:value:, ..., valueWithArguments:), which answer their last statement. Blocks therefore allow deferred evaluation and so are used to build control structures where a sequence of statements are evaluated or not depending on other values in the program. - !FullBlockClosure commentStamp: 'eem 4/10/2017 11:18' prior: 0! - Instances of FullBlockClosure represent blocks, a sequence of statements inside square brackets that can be evaluated at any time via one of the value messages (value, value:, value:value:, ... valueWithArguments:), which answer their last statement. Blocks therefore allow deferred evaluation and so are used to buikld control structures where a sequence of statements are evaluated or not depending on other values in the program. FullBlockClosure is a refinement of BlockClosure that allows the block to use its own method to hold its code instead of embedding that code within its home method. + Implementation notes: - Implementation: A FullBlockClosure is a closure that can be independent of any outerContext if desired. It has its own method (currently reusing the startpc inst var) and its own receiver. outerContext can be either a Context or nil. + This closure design, implemented by Eliot Miranda and Clement Bera along with the sista work, aims to simplify the block closure model while enhacing its capabilities. It allows lazy decompilation of closures and fast machine code dispatch in Cog's JIT, while allowing inlining of methods and blocks to be independent from their enclosing blocks. - This closure design, implemented by Eliot Miranda and Clement Bera along with the sista work aims to simplify the block closure model while enhacing its capabilities. It allows lazy decompilation of closures and fast machine code dispatch in Cog's JIT, while allowing inlining of methods and blocks to be independent from their enclosing blocks. At closure creation time, the bytecode specifies: - the compiledBlock to execute when executing this block's code (in the literal frame) - if the receiver is the current receiver or a receiver passed on stack before the copied values. - if the closure needs an outerContext. outerContexts are used for non local returns and debugging. Blocks with non local returns have to set their outerContext. For other blocks (97% of blocks), it's a trade-off between performance and debuggability. Instance Variables (inherited) numArgs <SmallInteger> outerContext: <Context|nil> compiledBlock(startpc) <CompiledBlock> Instance Variables receiver: <Object> numArgs - the number of arguments the block expects. This is superfluous; the number of arguments can be obtained from the receiver's compiledBlock. outerContext - the Context of the method or block activation in which the receiver is created. compiledBlock(startpc) - reused to refer to the CompiledBlock that implements the receiver's code. receiver - the receiver of the message that created the block's home method activation.!

1 0

← Newer
1
...
16
17
18
19
20
21
22
23
Older →

Jump to page: