Squeak-dev July 2023

squeak-dev@lists.squeakfoundation.org

21 participants
78 discussions

The Trunk: Compiler-pre.493.mcz
by commits＠source.squeak.org 28 Jul '23

28 Jul '23

Patrick Rein uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-pre.493.mcz ==================== Summary ==================== Name: Compiler-pre.493 Author: pre Time: 28 July 2023, 10:15:11.716752 am UUID: 349f6747-5405-614e-8557-1ef0f2f44b12 Ancestors: Compiler-pre.492 Fixes a defect in future send compilation that leads to promises not being created in some situations in which the return value of the future send is used. (closes #84) =============== Diff against Compiler-pre.492 =============== Item was changed: ----- Method: FutureNode>>emitCodeForBlockValue:encoder: (in category 'code generation') ----- emitCodeForBlockValue: stack encoder: encoder "Generate code for evaluating the last statement in a block." + ^valueNode emitCodeForValue: stack encoder: encoder! - ^effectNode emitCodeForValue: stack encoder: encoder! Item was changed: ----- Method: FutureNode>>sizeCodeForBlockValue: (in category 'code generation') ----- sizeCodeForBlockValue: encoder receiver == NodeSuper ifTrue: [^self error: 'Futures cannot send to super']. (futureArgs isNil or: [futureSelector isNil]) ifTrue: [^self error: 'Futures must be sent messages']. encoder sharableLitIndex: originalSelector. "to find its senders" futureDelta ifNil:[futureDelta := encoder encodeLiteral: 0]. + valueNode := MessageNode new - effectNode := MessageNode new receiver: receiver + selector: #futureSend:at:args: - selector: #futureDo:at:args: arguments: (Array with: (encoder encodeLiteral: futureSelector) with: futureDelta with: (BraceNode new elements: futureArgs)) precedence: 3 from: encoder. + ^valueNode sizeCodeForValue: encoder! - ^effectNode sizeCodeForValue: encoder!

1 0

Changeset changing when future sends return Promises
by Patrick R 27 Jul '23

27 Jul '23

Hi everyone, when recently working with future sends I noticed that future sends did not always return Promises when I expected them to. I dug into the implementation and found that FutureNode yields futureDo or futureSend message sends, depending on whether the result of the send is being used or not. The difference between the two is that only futureSend returns a Promise. The logic for determining whether the result is being used seems incomplete. E.g. the following example does not work: result := [(2 future: 100) + 3] on: Error do: []. result then: [:sum | Transcript showln: sum]. The attached changeset fixes this and adds two corresponding tests. Could someone with some experience with the Compiler package review these changes? :) Cheers Patrick

2 1

The Trunk: Tools-mt.1223.mcz
by commits＠source.squeak.org 26 Jul '23

26 Jul '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1223.mcz ==================== Summary ==================== Name: Tools-mt.1223 Author: mt Time: 26 July 2023, 10:38:52.079063 am UUID: 40e74b7f-673b-7d44-bab8-b4e3f9334d72 Ancestors: Tools-mt.1222 In workspaces, add "load contents from file..." an a mechanism that restores those file contents on image startup. See Morphic-mt.2115. =============== Diff against Tools-mt.1222 =============== Item was added: + ----- Method: Model>>loadContents (in category '*Tools-file out') ----- + loadContents + "Load model contents from a text file and answers those contents. Answers nil if cancelled or errored." + + ^ (Project uiManager + chooseFileMatching: '*' + label: 'Load text contents from file...' translated) + ifNil: [false] ifNotNil: [:answer | answer ifEmpty: [false] + ifNotEmpty: [:fileName | self loadContentsFromFileNamed: fileName]]! Item was added: + ----- Method: Model>>loadContentsFromFileNamed: (in category '*Tools-file out') ----- + loadContentsFromFileNamed: fileName + + ^ self + loadContentsFromFileNamed: fileName + workBlock: [:stream | stream "contents"]! Item was added: + ----- Method: Model>>loadContentsFromFileNamed:workBlock: (in category '*Tools-file out') ----- + loadContentsFromFileNamed: fileName workBlock: workBlock + + FileStream + readOnlyFileNamed: fileName + do: [:stream | workBlock value: stream]. + ^ true! Item was changed: ----- Method: Workspace>>addModelItemsToWindowMenu: (in category 'menu commands') ----- addModelItemsToWindowMenu: aMenu aMenu addLine. aMenu + add: 'load contents from file...' - add: 'change file name...' target: self + action: #loadContentsFromFile. - action: #changeFileName. aMenu add: 'save contents to file...' target: self action: #saveContentsInFile. aMenu addUpdating: #saveContentsInFileOnAcceptWording target: self action: #saveContentsInFileOnAccept. aMenu addUpdating: #appendContentsToFileOnAcceptWording target: self action: #appendContentsToFileOnAccept. + aMenu + add: 'change file name...' + target: self + action: #changeFileName. aMenu addLine. aMenu add: 'inspect variables' target: self action: #inspectBindings. aMenu add: 'reset variables' target: self action: #resetBindings. aMenu addLine. aMenu addUpdating: #mustDeclareVariableWording target: self action: #toggleVariableDeclarationMode. aMenu addUpdating: #acceptDroppedMorphsWording target: self action: #toggleDroppingMorphForReference. self addToggleStylingMenuItemTo: aMenu. ! Item was added: + ----- Method: Workspace>>loadContentsFromFile (in category 'menu commands') ----- + loadContentsFromFile + + self okToChange ifFalse: [^ self]. + + self loadContents ifTrue: [ + "Reset append-to-file option if it was set so that enabling save-to-file works without extra prompt." + self appendContentsToFileOnAcceptEnabled ifTrue: [self acceptAction: nil]. + self saveContentsInFileOnAccept].! Item was added: + ----- Method: Workspace>>loadContentsFromFileNamed: (in category 'user edits') ----- + loadContentsFromFileNamed: fileName + + ^ self + loadContentsFromFileNamed: fileName + workBlock: [:fileStream | + self fileLineEndConvention: fileStream detectLineEndConvention. + self contents: fileStream contents. + self changed: #contents]! Item was added: + ----- Method: Workspace>>loadContentsFromFileNamed:workBlock: (in category 'user edits') ----- + loadContentsFromFileNamed: fileName workBlock: workBlock + + ^ (super loadContentsFromFileNamed: fileName workBlock: workBlock) + ifFalse: [false "no success"] + ifTrue: [self setFileName: fileName. true "success"]! Item was added: + ----- Method: Workspace>>restoreContentsFromFile (in category 'user edits') ----- + restoreContentsFromFile + "When save-on-accept is enabled, reload the receivers contents from the associated file. Skip if append-on-accept is enabled as it would load redundant contents." + + | fn priorAction priorContents | + self saveContentsInFileOnAcceptEnabled ifFalse: [^ self]. + + priorAction := self acceptAction. "i.e., save-to-file" + self acceptAction: [:edits | true ]. "to silently fetch view contents" + self changed: #acceptChanges. "fetch view contents into model" + priorContents := contents. + self acceptAction: priorAction. + + ([self loadContentsFromFileNamed: (fn := self suggestedFileNameForSave)] + valueSupplyingAnswer: true "discard unsaved changes") + ifTrue: [ + priorContents ~= contents ifTrue: [ + Transcript showln: ('{1} contents restored from: {2}' format: { self class. fn}). + priorContents editWithLabel: self windowTitle, ' (prior in-image contents)']].!

1 0

The Trunk: ST80-mt.295.mcz
by commits＠source.squeak.org 26 Jul '23

26 Jul '23

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.295.mcz ==================== Summary ==================== Name: ST80-mt.295 Author: mt Time: 26 July 2023, 10:36:59.977063 am UUID: 75515627-1dac-7045-8fe6-c2ee03d47b51 Ancestors: ST80-ct.294 Complements Morphic-mt.2115 =============== Diff against ST80-ct.294 =============== Item was added: + ----- Method: MVCProject>>startUpActions (in category 'enter') ----- + startUpActions + + super startUpActions. + + (world controllersSatisfying: [:c | c model respondsTo: #restoreContentsFromFile]) + do: [:c | c model restoreContentsFromFile].!

1 0

The Trunk: Morphic-mt.2115.mcz
by commits＠source.squeak.org 26 Jul '23

26 Jul '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2115.mcz ==================== Summary ==================== Name: Morphic-mt.2115 Author: mt Time: 26 July 2023, 10:36:29.942063 am UUID: ccd8c476-cfcb-0d43-9575-06f073de445f Ancestors: Morphic-mt.2114 Prepare contents restoring for tools that need it. =============== Diff against Morphic-mt.2114 =============== Item was changed: ----- Method: MorphicProject>>startUpActions (in category 'enter') ----- startUpActions super startUpActions. self world install. self world firstHand position: 100@100. "April 2022: None of the currently supported graphics backends on macOS (i.e., -metal -core-graphics, -opengl) in the OSVM supports an extra display buffer at the VM side, which may result in flickering during compositing or an expensive (over-)committing at vsync boundaries. Thus, use an image-side buffer for compositing to mitigate (or avoid) these issues." + WorldState disableDeferredUpdates: Smalltalk platformName = 'Mac OS'. + + "Refresh tools that depend on host contents." + self flag: #discuss. "mt: Is this the right place?" + self world submorphsDo: [:m | | workspace | + (m isSystemWindow and: [(workspace := m model) respondsTo: #restoreContentsFromFile]) + ifTrue: [workspace restoreContentsFromFile]].! - WorldState disableDeferredUpdates: Smalltalk platformName = 'Mac OS'.!

1 0

UK Smalltalk User Group Meeting: Show'n'Tell - 26 July 2023
by Giovanni Corriga 26 Jul '23

26 Jul '23

For this month's UKSTUG meeting, we'll open the floor to the whole audience and let people show what they are working on. If you have an interesting project to show, or if you'd like to get some help with some hard problem, just show up and be ready to present! This will be an online meeting from home. If you'd like to join us, please sign up in advance on the meeting's Meetup page ( https://www.meetup.com/ukstug/events/294397093/ ) to receive the meeting details. Don’t forget to bring your laptop and drinks!

1 0

The Trunk: System-mt.1417.mcz
by commits＠source.squeak.org 26 Jul '23

26 Jul '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1417.mcz ==================== Summary ==================== Name: System-mt.1417 Author: mt Time: 26 July 2023, 9:39:35.033749 am UUID: 961993bf-e6a1-b147-afc0-ec59d15b817c Ancestors: System-mt.1416 In "there are no" dialog infos, remove unnecessary line break but rely on normal text layouting. Looks strange for longer symbols (senders/implementors) otherwise. =============== Diff against System-mt.1416 =============== Item was changed: ----- Method: SystemNavigation>>browseMessageList:name:autoSelect: (in category 'browse') ----- browseMessageList: messageListOrBlock name: labelString autoSelect: autoSelectString "Create and schedule a MessageSet browser on the message list. If messageListOrBlock is a block, then evaluate it to get the message list." | messageList | messageList := messageListOrBlock isBlock ifTrue: [ Cursor wait showWhile: messageListOrBlock ] ifFalse: [ messageListOrBlock ]. messageList size = 0 ifTrue: [ + ^self inform: 'There are no ', labelString ]. - ^self inform: 'There are no', String cr, labelString ]. ^ ToolSet browseMessageSet: messageList name: labelString autoSelect: autoSelectString!

1 0

The Trunk: Chronology-Core-mt.87.mcz
by commits＠source.squeak.org 25 Jul '23

25 Jul '23

Marcel Taeumel uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-mt.87.mcz ==================== Summary ==================== Name: Chronology-Core-mt.87 Author: mt Time: 25 July 2023, 10:29:46.67268 am UUID: 76a3f1ce-b428-8e44-8317-f80bc70eba42 Ancestors: Chronology-Core-dtl.86 Revise #nanosecondsToRunHighRes: to be somewhat useful: - Convert ticks-to-nanos for each block run, not constant per session anymore - Let a block run for at least 10 milliseconds to reliably convert ticks to time. - Sanity check for core switch by checking monotonicity of value. Time nanosecondsToRunHighRes: [Morph new]. Note that most results (even for 'Object new') seem to be microseconds at best. No nano-precision. See #microsecondsToRun: and #useHighResClockForTiming. [Object new] bench. " '65,400,000 per second. 15.3 nanoseconds per run. 38.29234 % GC time.' " 10 timesCollect: [Time nanosecondsToRunHighRes: [Object new]] " #(7914 1948 862 321 135 231 312 464 240 402) " At least that high-res clock will not distort #timeToRun values (milliseconds) anymore: Time useHighResClockForTiming: false. 5 timesCollect: [[Project current world imageForm] timeToRun]. "#(241 224 248 226 222) " Time useHighResClockForTiming: true. 5 timesCollect: [[Project current world imageForm] timeToRun]. " #(229 215 220 224 225) " =============== Diff against Chronology-Core-dtl.86 =============== Item was changed: Magnitude subclass: #Time instanceVariableNames: 'seconds nanos' + classVariableNames: 'ClockPolicy LastClockTick UpdateVMTimeZoneCacheAt UseHighResClockForTiming' - classVariableNames: 'ClockPolicy HighResClockTicksPerMillisecond LastClockTick UpdateVMTimeZoneCacheAt UseHighResClockForTiming' poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Time commentStamp: 'dew 10/23/2004 17:58' prior: 0! This represents a particular point in time during any given day. For example, '5:19:45 pm'. If you need a point in time on a particular day, use DateAndTime. If you need a duration of time, use Duration. ! Item was removed: - ----- Method: Time class>>highResClockTicksPerMillisecond (in category 'clock') ----- - highResClockTicksPerMillisecond - HighResClockTicksPerMillisecond = 0 - ifTrue: - [HighResClockTicksPerMillisecond := self estimateHighResClockTicksPerMillisecond]. - ^HighResClockTicksPerMillisecond! Item was changed: ----- Method: Time class>>initialize (in category 'class initialization') ----- initialize " self initialize " LastClockTick ifNil: [ LastClockTick := 0 ]. - HighResClockTicksPerMillisecond ifNil: [ HighResClockTicksPerMillisecond := 0 ]. - ClockPolicy ifNil: [ "self clockPolicy: #acceptPlatformTime." self clockPolicy: #monotonicAllowDuplicates. "self clockPolicy: #monotonicForceMicrosecondIncrement." "self clockPolicy: #monotonicForceNanosecondIncrement." ]! Item was changed: ----- Method: Time class>>nanosecondsToRun: (in category 'general inquiries') ----- nanosecondsToRun: timedBlock "Answer the number of nanoseconds timedBlock takes to return its value. Use high resolution clock if available and preferred." | startUsecs | (self useHighResClockForTiming and: [self highResClock ~= 0]) + ifTrue: [^ (self nanosecondsToRunHighRes: timedBlock)]. - ifTrue: [ ^(self nanosecondsToRunHighRes: timedBlock)]. "Fallback to microseconds clock" startUsecs := self utcMicrosecondClock. timedBlock value. ^self utcMicrosecondClock - startUsecs * 1000! Item was changed: ----- Method: Time class>>nanosecondsToRunHighRes: (in category 'general inquiries') ----- nanosecondsToRunHighRes: timedBlock "Answer the number of nanoseconds timedBlock takes to return its value using high resolution clock. + This assumes that high resolution clock is available, has a somewhat constant rate, and is synchronized between multi-core CPU. Let the timer run at least 10 milliseconds to convert ticks to nanoseconds more reliably." - This assumes that high resolution clock is available, has a constant rate, and is synchronized between multi-core CPU" + | start ticks1 ticks2 ticks3 delta overhead | + ticks1 := self highResClock. + start := self utcMicrosecondClock. - | ticks | - ticks := self highResClock. timedBlock value. + ticks2 := self highResClock. + [(delta := self utcMicrosecondClock - start) < 10000 "10 ms"] whileTrue. + ticks3 := self highResClock. + overhead := (self highResClock - self highResClock) negated. + (ticks1 < ticks2 and: [ticks2 < ticks3] and: [overhead > 0]) ifFalse: [ + "Try again. We probably switched cores by accident." + ^ self nanosecondsToRunHighRes: timedBlock]. + ^ (ticks2 - ticks1 + - overhead "subtract the ticks taken by the call to highResClock itself" + * 1e3 // (ticks3 - ticks1 // delta)) "and convert ticks to nanoSeconds"! - ^(self highResClock - ticks - + (self highResClock - self highResClock ) "subtract the ticks taken by the call to highResClock itself" - * 1e6 // self highResClockTicksPerMillisecond) "and convert ticks to nanoSeconds"! Item was changed: ----- Method: Time class>>startUp: (in category 'system startup') ----- startUp: resuming + resuming ifTrue: [LastClockTick := 0]! - resuming ifTrue: [ - LastClockTick := 0. - HighResClockTicksPerMillisecond := 0 ]! Item was changed: ----- Method: Time class>>useHighResClockForTiming (in category 'preferences') ----- useHighResClockForTiming + <preference: 'Use high-resolution clock for timing' - <preference: 'Use high resolution clock for timing' category: 'performance' + description: 'This is used for measuring time ellapsed for running a block. High-resolution clocks (known as TSC) are counter embedded on CPU and incremented at each cycle. They enable timing close to the nanosecond for GHz CPU. However, on older models, they might have a non constant rate depending on power saving: converting ticks to seconds is not reliable in this case, but knowing the number of cycles taken to perform the task is still a valuable information. TSC might also be un-synchronized between the multi-cores: if Squeak process is switched from 1 core to another during the timing, timing results could be random. If you have a recent CPU, you might prefer this option' - description: 'This is used for measuring time ellapsed for running a block. High resolution clocks (known as TSC) are counter embedded on CPU and incremented at each cycle. They enable timing close to the nanosecond for GHz CPU. However, on older models, they might have a non constant rate depending on power saving: converting ticks to seconds is not reliable in this case, but knowing the number of cycles taken to perform the task is still a valuable information. TSC might also be un-synchronized between the multi-cores: if Squeak process is switched from 1 core to another during the timing, timing results could be random. If you have a recent CPU, you might prefer this option' type: #Boolean> ^UseHighResClockForTiming ifNil: [ false ]!

1 0

it worked
by Ralph Boland 24 Jul '23

24 Jul '23

Just a note to say that the instructions to get 32bit squeak to run on 64 bit debian 12 worked but that I also had to install package libgl1-mesa-glx:i386. Thanks for the help Ralph Boland

1 0

squeak 6 (32 bit image) wont run on latest Debian (linux) operating system (64 bit)
by Ralph Boland 23 Jul '23

23 Jul '23

I have Debian 12 (64 bit) installed on my laptop and Debian 11 (32 bit) on my desktop. I run squeak 5.3 on my desktop and want to run 5.3 (32 bit) on my laptop til I have everything moved over to squeak 6.0. But 5.3 wont run on my laptop. When I run squeak.sh I get: squeak.sh rocky@M33:~/Smalltalk/Squeak6.0-22104-32bit-202206021410-Linux-x86$ squeak.sh Using /home/rocky/Smalltalk/Squeak6.0-22104-32bit-202206021410-Linux-x86/bin/squeak ... vm-display-X11 tryLoading /home/rocky/Smalltalk/Squeak6.0-22104-32bit-202206021410-Linux-x86/bin/vm-display-X11.so: dlopen: libXrender.so.1: cannot open shared object file: No such file or directory could not find display driver vm-display-X11; either: - check that /home/rocky/Smalltalk/Squeak6.0-22104-32bit-202206021410-Linux-x86/bin//vm-display-X11.so exists, or - use the '-plugins <path>' option to tell me where it is, or - remove DISPLAY from your environment. Aborted rocky@M33:~/Smalltalk/Squeak6.0-22104-32bit-202206021410-Linux-x86$ cd bin rocky@M33:~/Smalltalk/Squeak6.0-22104-32bit-202206021410-Linux-x86/bin$ ls vm-display-X* vm-display-X11.so My understanding is that 32 bit software should run on 64 bit hardware. Is there something I need to do to ensure that this is the case? I tried installing libraries libXrender (already installed) and libXrender-dev but it didn't help . Any help much appreciated. Ralph Boland -- Any artist who remains true to himself becomes a work of art himself, because that is one of the most difficult things to do. Lenard Cohen

3 2