Squeak-dev November 2020

squeak-dev@lists.squeakfoundation.org

31 participants
223 discussions

The Trunk: Kernel-eem.1361.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1361.mcz ==================== Summary ==================== Name: Kernel-eem.1361 Author: eem Time: 2 November 2020, 10:40:38.260046 am UUID: 7c6efb93-d626-4a62-86f4-c258f8cf199d Ancestors: Kernel-eem.1360 I couldn't resist... =============== Diff against Kernel-eem.1360 =============== Item was changed: ----- Method: Context class>>runSimulated: (in category 'simulation') ----- runSimulated: aBlock "Simulate the execution of aBlock, until it ends or is curtailed. Answer the result it returns." ^thisContext runSimulated: aBlock contextAtEachStep: [] + "Context runSimulated: [Pen new ifNotNil: [:pen| pen defaultNib: 5. 4 timesRepeat: [pen go: 100; turn: 90]]]" + + "Here's a fun example, reaching into the computation to squash the Display>>fillWhite that mandala: begins with..." + "thisContext + runSimulated: [Pen new mandala: 45] + contextAtEachStep: [:ctxt| ctxt selector == #fillWhite ifTrue: [ctxt scanFor: [:ign| ctxt willReturn]]]"! - "Context runSimulated: [Pen new defaultNib: 5; go: 100]"!

1 0

Re: [squeak-dev] sqAllocateMemorySegmentOfSizeAboveAllocatedSizeInto mmap: Cannot allocate memory
by gettimothy 02 Nov '20

02 Nov '20

Hi Eliot, Hi Timothy, a few weeks ago debugging an issue raised by Andrei Chis I ran a test runner in the simulator and the out of memory test it included caused the simulator to grow its central byte array to 17Gb. When I saved the image it was 34Gb. The workflow threw up a policy error. The VM would not shrink memory unless it had done a GC but once it had 17 Gb of free space it wasn’t going to do a GC. So I updated the vm and fixed the policy error and now the vm will happily shrink back after growing yo many gigabytes. This is all just to point out that a match 3rd vm is a tad on the old side. Thx, I will upgrade the VM ASAP. BTW, how much ram do you have on your system? .free -h total used free shared buff/cache available Mem: 6.7G 6.0G 225M 1.0M 506M 358M Swap: 0B 0B 0B The vm will happily use all of it and more unless you set an upper bound on the size of memory (command line and vm parameter) ./squeak6.0alpha/bin/squeak --headless --memory 3000 squeak6.0alpha/shared/Squeak6.0alpha-19802-64bit.image & is the command I use. I am not sure what the '3000' refers to, I am assuming it is 3G. thanks for your help.

2 1

The Trunk: Kernel-eem.1360.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1360.mcz ==================== Summary ==================== Name: Kernel-eem.1360 Author: eem Time: 2 November 2020, 10:10:50.874417 am UUID: 2041d4e1-746a-49f9-9098-8fbd6ba2f787 Ancestors: Kernel-eem.1359, Kernel-ct.1359 Merge Kernel-ct.1359 from inbox Author: ct Time: 1 November 2020, 7:50:24.183428 pm UUID: 3b12b316-79f3-de41-8765-8296d964b821 Ancestors: Kernel-mt.1353 Revise and extend Context #runSimulated: implementation. Remove restriction to blocks that do not have a method return. Add support for exception signaling during the execution, which caused unterminated simulation of the calling process in the past. Support argless contextAtEachStep blocks. Benchmarks: code: [Context runSimulated: [100@100 corner: 200@200]] bench before: 16.7 ms/run after: 19.8 ms/run I think this should be okay, given the fact that the primary purpose of simulation is providing explorability but not efficiency ... eem: Fix a bug in the use of runSimulated:contextAtEachStep:. Presumably because of the pre-closure block model existing senders were of the form thisContext sender runSimulated: aBlock contextAtEachStep: [....] but this caused the jump at the end of runSimulated:contextAtEachStep: to short-cut any processing done after runSimulated:contextAtEachStep:. So rewrite all users of runSimulated:contextAtEachStep: in this form: thisContext runSimulated: aBlock contextAtEachStep: [....] and consequently have tallyInstruction: rallyMethods: et al answer their intended results. =============== Diff against Kernel-eem.1359 =============== Item was changed: ----- Method: Context class>>runSimulated: (in category 'simulation') ----- runSimulated: aBlock + "Simulate the execution of aBlock, until it ends or is curtailed. Answer the result it returns." - "Simulate the execution of the argument, current. Answer the result it - returns." + ^thisContext - ^ thisContext sender runSimulated: aBlock + contextAtEachStep: [] - contextAtEachStep: [:ignored] "Context runSimulated: [Pen new defaultNib: 5; go: 100]"! Item was changed: ----- Method: Context class>>tallyInstructions: (in category 'examples') ----- tallyInstructions: aBlock "This method uses the simulator to count the number of occurrences of each of the Smalltalk instructions executed during evaluation of aBlock. Results appear in order of the byteCode set." | tallies | tallies := Bag new. + thisContext - thisContext sender runSimulated: aBlock contextAtEachStep: [:current | tallies add: current nextByte]. ^tallies sortedElements "Context tallyInstructions: [3.14159 printString]"! Item was changed: ----- Method: Context class>>tallyMethods: (in category 'examples') ----- tallyMethods: aBlock "This method uses the simulator to count the number of calls on each method invoked in evaluating aBlock. Results are given in order of decreasing counts." | prev tallies | tallies := Bag new. prev := aBlock. + thisContext - thisContext sender runSimulated: aBlock contextAtEachStep: [:current | current == prev ifFalse: "call or return" [prev sender == nil ifFalse: "call only" [tallies add: current printString]. prev := current]]. ^tallies sortedCounts "Context tallyMethods: [3.14159 printString]"! Item was changed: ----- Method: Context class>>trace:on: (in category 'examples') ----- trace: aBlock on: aStream "Context trace: [3 factorial]" "This method uses the simulator to print calls to a file." | prev | prev := aBlock. + ^thisContext - ^ thisContext sender runSimulated: aBlock contextAtEachStep: [:current | + Sensor anyButtonPressed ifTrue: [^nil]. + current == prev ifFalse: + [prev sender ifNil: + [aStream space; nextPut: $^. + self carefullyPrint: current top on: aStream]. + aStream cr. + (current depthBelow: aBlock) timesRepeat: [aStream space]. + self carefullyPrint: current receiver on: aStream. + aStream space; nextPutAll: current selector; flush. + prev := current]]! - Sensor anyButtonPressed ifTrue: [^ nil]. - current == prev - ifFalse: - [prev sender ifNil: - [aStream space; nextPut: $^. - self carefullyPrint: current top on: aStream]. - aStream cr. - (current depthBelow: aBlock) timesRepeat: [aStream space]. - self carefullyPrint: current receiver on: aStream. - aStream space; nextPutAll: current selector; flush. - prev := current]]! Item was changed: ----- Method: Context>>runSimulated:contextAtEachStep: (in category 'system simulation') ----- + runSimulated: aBlock contextAtEachStep: anotherBlock + "Simulate the execution of the argument, aBlock, until it ends or is curtailed. If any exception is signaled during the execution, simulate it being handled on the present caller stack. Evaluate anotherBlock with the current context prior to each instruction executed. Answer the simulated value of aBlock." + + | current resume ensure | + resume := false. - runSimulated: aBlock contextAtEachStep: block2 - "Simulate the execution of the argument, aBlock, until it ends. aBlock - MUST NOT contain an '^'. Evaluate block2 with the current context - prior to each instruction executed. Answer the simulated value of aBlock." - | current | - aBlock hasMethodReturn - ifTrue: [self error: 'simulation of blocks with ^ can run loose']. current := aBlock asContext. + ensure := current insertSender: (Context contextEnsure: [resume := true]). + ensure sender ifNil: [ensure privSender: self]. "For backward compatibility, do not fail if aBlock is dead." + + (anotherBlock numArgs = 0 + ifTrue: ["optimized" [resume]] + ifFalse: ["stop execution on time, don't expose simulation details to caller" + [current == ensure or: + ["Context >> #resume:" + current size >= 2 and: + [(current at: 2) == ensure]]] ]) - current pushArgs: Array new from: self. - [current == self] whileFalse: + [anotherBlock cull: current. - [block2 value: current. current := current step]. + + ^ current jump! - ^self pop!

1 0

The Inbox: EToys-kfr.412.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-kfr.412.mcz ==================== Summary ==================== Name: EToys-kfr.412 Author: kfr Time: 17 October 2020, 6:03:37.158564 pm UUID: 391b4e19-c1be-b94a-9ce4-1da156f696c0 Ancestors: EToys-kfr.392, EToys-eem.411 self world can return nil =============== Diff against EToys-kfr.392 =============== Item was changed: ----- Method: CategoryViewer>>assureCategoryFullyVisible (in category '*Etoys-Squeakland-categories') ----- assureCategoryFullyVisible "Keep deleting categoryviewers other than the receiver until the receiver is fully visible." | ready toDelete | ready := false. + [(self bounds bottom > Project current world bottom) and: [ready not]] whileTrue: [ + owner submorphs size > 2 + ifTrue: [ + toDelete := owner submorphs allButFirst reversed + detect: [:cv | cv ~~ self] + ifNone: [^ self]. - [(self bounds bottom > ActiveWorld bottom) and: [ready not]] whileTrue: - [owner submorphs size > 2 ifTrue: - [toDelete :=owner submorphs allButFirst reversed detect: [:cv | cv ~~ self] ifNone: [^ self]. toDelete delete. + self world doOneCycleNow] + ifFalse: [ + ready := true]].! - ActiveWorld doOneCycleNow] - ifFalse: - [ready := true]]!

5 10

45B vm at https://bintray.com/opensmalltalk/vm/cog/202011010259#files
by gettimothy 02 Nov '20

02 Nov '20

heh. Fantastic space optimization on the latest VM! 45 Bytes! j.k. something funky somewhere, thought I would let you know. cheers.

2 1

The Trunk: KernelTests-ct.389.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ct.389.mcz ==================== Summary ==================== Name: KernelTests-ct.389 Author: ct Time: 1 November 2020, 7:54:42.403428 pm UUID: 7c294d2e-59a7-9746-b613-997d1aa4521c Ancestors: KernelTests-ul.386 Extend tests for Context #runSimulated:. Depends on Kernel-ct.1359. =============== Diff against KernelTests-ul.386 =============== Item was added: + ----- Method: BlockClosureTest>>return: (in category 'private') ----- + return: something + + ^ something! Item was changed: ----- Method: BlockClosureTest>>testRunSimulated (in category 'tests') ----- testRunSimulated + self assert: Rectangle equals: + (Context runSimulated: aBlockClosure asContext) class. + self assert: 42 equals: + (Context runSimulated: [self return: 42]). + self + should: [Context runSimulated: [self halt]] + raise: Halt.! - self assert: Rectangle equals: (Context runSimulated: aBlockClosure asContext) class! Item was added: + ----- Method: BlockClosureTest>>testRunSimulatedContextAtEachStep (in category 'tests') ----- + testRunSimulatedContextAtEachStep + + | context | + context := aBlockClosure asContext. + self assert: Rectangle equals: (thisContext + runSimulated: context + contextAtEachStep: [:ctxt | self assert: + [ctxt == context or: [ctxt hasSender: context]]]) class.!

1 0

Some labels broke in a recent update
by Marcel Taeumel 02 Nov '20

02 Nov '20

Hi all! Is there a way to get back the number of implementors/senders in the window title? Also the message-search tool has no title: Best, Marcel

6 12

The Trunk: Services-Base-cmfcmf.69.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Marcel Taeumel uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-cmfcmf.69.mcz ==================== Summary ==================== Name: Services-Base-cmfcmf.69 Author: cmfcmf Time: 30 October 2020, 3:19:26.82353 pm UUID: 8f518c2e-77bb-cc40-a4ff-524c896eabc6 Ancestors: Services-Base-jr.68 Indicate instance messages when instance-side reference is browsed. Otherwise the browser may reach an invalid state, where the class button is still selected, even though an instance message is browsed: b := Browser open. b browseReference: (Color >> #asColor) asCodeReference. b browseReference: (Color class >> #green) asCodeReference. b browseReference: (Color >> #asColor) asCodeReference. =============== Diff against Services-Base-jr.68 =============== Item was changed: ----- Method: Browser>>browseReference: (in category '*services-base') ----- browseReference: ref + self okToChange ifTrue: [ self selectCategoryForClass: ref actualClass theNonMetaClass. self selectClass: ref actualClass theNonMetaClass . + ref actualClass isMeta ifTrue: [self indicateClassMessages] ifFalse: [self indicateInstanceMessages]. - ref actualClass isMeta ifTrue: [self indicateClassMessages]. self changed: #classSelectionChanged. self selectMessageCategoryNamed: ref category. self selectedMessageName: ref methodSymbol. ]!

1 0

The Trunk: Services-Base-mt.70.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

Marcel Taeumel uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-mt.70.mcz ==================== Summary ==================== Name: Services-Base-mt.70 Author: mt Time: 2 November 2020, 5:09:59.542788 pm UUID: 1ed9981b-d99a-6a46-9dc2-8e5c9235b1db Ancestors: Services-Base-mt.69, Services-Base-cmfcmf.69 Merged. =============== Diff against Services-Base-mt.69 =============== Item was changed: ----- Method: Browser>>browseReference: (in category '*services-base') ----- browseReference: ref + self okToChange ifTrue: [ self selectCategoryForClass: ref actualClass theNonMetaClass. self selectClass: ref actualClass theNonMetaClass . + ref actualClass isMeta ifTrue: [self indicateClassMessages] ifFalse: [self indicateInstanceMessages]. - ref actualClass isMeta ifTrue: [self indicateClassMessages]. self changed: #classSelectionChanged. self selectMessageCategoryNamed: ref category. self selectedMessageName: ref methodSymbol. ]!

1 0

The Inbox: EToys-kfr.414.mcz
by commits＠source.squeak.org 02 Nov '20

02 Nov '20

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-kfr.414.mcz ==================== Summary ==================== Name: EToys-kfr.414 Author: kfr Time: 31 October 2020, 8:58:48.943742 pm UUID: 5e186cb9-67d7-124d-901e-ae50d4bacbe8 Ancestors: EToys-eem.413 self world returns nil when the morph is not visible/ opened yet =============== Diff against EToys-eem.413 =============== Item was changed: ----- Method: CategoryViewer>>assureCategoryFullyVisible (in category '*Etoys-Squeakland-categories') ----- assureCategoryFullyVisible "Keep deleting categoryviewers other than the receiver until the receiver is fully visible." | ready toDelete | ready := false. + [(self bounds bottom > Project current world bottom) and: [ready not]] whileTrue: [ - [(self bounds bottom > self world bottom) and: [ready not]] whileTrue: [ owner submorphs size > 2 ifTrue: [ toDelete := owner submorphs allButFirst reversed detect: [:cv | cv ~~ self] ifNone: [^ self]. toDelete delete. self world doOneCycleNow] ifFalse: [ ready := true]].!

3 2

Jump to page: