Squeak-dev August 2023

squeak-dev@lists.squeakfoundation.org

30 participants
163 discussions

The Inbox: Kernel-ct.1292.mcz
by commits＠source.squeak.org 24 Feb '24

24 Feb '24

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ct.1292.mcz ==================== Summary ==================== Name: Kernel-ct.1292 Author: ct Time: 3 January 2020, 2:21:26.297116 am UUID: 95936a10-85a4-734e-a10b-0f87290b70f9 Ancestors: Kernel-nice.1291 Proposal: Implement conditional exception handling on blocks. The nomenclature is inspired from usual practice in .NET languages. For an impression of possible users, have a look at: self systemNavigation browseMessageList: ((self systemNavigation allCallsOn: #on:do: and: #pass) intersection: (#(ifTrue: ifFalse: ifTrue:ifFalse: ifFalse:ifTrue:) gather: [:sel | self systemNavigation allCallsOn: sel])) name: 'Potential users of #on:when:do:' =============== Diff against Kernel-nice.1291 =============== Item was added: + ----- Method: BlockClosure>>on:when:do: (in category 'exceptions') ----- + on: exceptionOrExceptionSet when: aPredicate do: handlerAction + + ^ self + on: exceptionOrExceptionSet + do: [:exception | + (aPredicate value: exception) + ifTrue: [handlerAction cull: exception] + ifFalse: [exception pass]]! Item was added: + ----- Method: BlockClosure>>on:when:ensure: (in category 'exceptions') ----- + on: exceptionOrExceptionSet when: aPredicate ensure: aBlock + + ^ self + on: exceptionOrExceptionSet + do: [:exception | + (aPredicate value: exception) + ifTrue: [aBlock value]. + exception pass]!

9 17

The Inbox: Kernel-nice.1294.mcz
by commits＠source.squeak.org 24 Feb '24

24 Feb '24

Nicolas Cellier uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-nice.1294.mcz ==================== Summary ==================== Name: Kernel-nice.1294 Author: nice Time: 6 February 2020, 10:00:19.603883 pm UUID: c78e67da-95e5-42ad-af82-089c149f165d Ancestors: Kernel-tonyg.1293 Complex log function was missing (base 10 logarithm) Complex already provides ln and log:, so why not log? =============== Diff against Kernel-tonyg.1293 =============== Item was added: + ----- Method: Complex>>log (in category 'mathematical functions') ----- + log + "Answer the base 10 logarithm of the receiver." + + ^self ln / 10 ln!

2 1

The Inbox: KernelTests-jar.418.mcz
by commits＠source.squeak.org 01 Feb '24

01 Feb '24

A new version of KernelTests was added to project The Inbox: http://source.squeak.org/inbox/KernelTests-jar.418.mcz ==================== Summary ==================== Name: KernelTests-jar.418 Author: jar Time: 20 December 2021, 9:37:26.122961 pm UUID: 229ac303-0cfa-2d45-8d4e-e2b19b88cba8 Ancestors: KernelTests-ct.415 add a test (expected failure) to document a bug in #priority via a failing test case. The bug was summarized in http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217473… and discussed in http://forum.world.st/The-Inbox-Kernel-jar-1368-mcz-td5126894.html and most likely requires a new primitive to fix it correctly. An interim fix was proposed in Kernel-jar.1368 to show the desirable functionality that satisfies this test. =============== Diff against KernelTests-ct.415 =============== Item was added: + ----- Method: ProcessTest>>expectedFailures (in category 'failures') ----- + expectedFailures + + ^ #(testDecreaseActiveProcessPriority)! Item was added: + ----- Method: ProcessTest>>testDecreaseActiveProcessPriority (in category 'tests') ----- + testDecreaseActiveProcessPriority + "test whether #priority: reschedules active process to allow higher priority processes run; + presently (12/2021) the test fails and is here to remind about the #priority bug discussed + in http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217473… + and http://forum.world.st/The-Inbox-Kernel-jar-1368-mcz-td5126894.html" + + | val oldPriority oldPreemptionYields | + val := nil. + oldPriority := Processor activePriority. + oldPreemptionYields := Smalltalk processPreemptionYields. + + [ + Processor activeProcess priority: oldPriority + 2. + [ val := false ] forkAt: oldPriority + 1. + [ val := true ] forkAt: oldPriority. + Processor activeProcess priority: oldPriority. + "depending on processPreemptionYields value the active process should be placed + either at the beginning or the end of the quiescentProcessLists at: oldPriority" + self assert: val = Smalltalk processPreemptionYields. + + "test both alternative settings (true/false) of processPreemptionYields" + val := nil. + Smalltalk processPreemptionYields: oldPreemptionYields not. + + Processor activeProcess priority: oldPriority + 2. + [ val := false ] forkAt: oldPriority + 1. + [ val := true ] forkAt: oldPriority. + Processor activeProcess priority: oldPriority. + self assert: val = Smalltalk processPreemptionYields. + + ] ensure: [ + "make sure processPreemptionYields is reset to its original value even if the test fails" + Smalltalk processPreemptionYields: oldPreemptionYields. + self assert: Smalltalk processPreemptionYields equals: oldPreemptionYields]!

3 4

Review Request: whenEvaluateEnoughArguments.1.cs
by christoph.thiede＠student.hpi.uni-potsdam.de 19 Jan '24

19 Jan '24

=============== Summary =============== Change Set: whenEvaluateEnoughArguments Date: 15 August 2023 Author: Christoph Thiede Proposal: Tolerates superfluous arguments/missing parameters in Object Events block for #when:evaluate:. As required, implements valueWithEnoughArguments:[otherwise:|startingFrom:] on action sequences, message sends, etc. See Object>>#triggerEvent:withArguments:. Example: Object new when: #plonk evaluate: [Transcript showln: 'griffle']; triggerEvent: #plonk with: 42. Reasoning: Provide optional arguments with object events without forcing all observers to receive them. =============== Diff =============== ActionSequence>>valueWithEnoughArguments: {evaluating} · ct 8/15/2023 09:57 + valueWithEnoughArguments: anArray + "Evaluate the elements of the receiver with enough arguments and answer the result of last evaluation." + + ^self inject: nil into: + [:previousAnswer :each | each valueWithEnoughArguments: anArray] BlockClosure>>valueWithEnoughArguments:otherwise: {evaluating} · ct 8/15/2023 09:59 + valueWithEnoughArguments: anArray otherwise: aBlock + + ^ self valueWithEnoughArguments: anArray MessageSend>>valueWithEnoughArguments:otherwise: {evaluating} · ct 8/15/2023 09:59 + valueWithEnoughArguments: anArray otherwise: aBlock + + ^ self valueWithEnoughArguments: anArray Object>>triggerEvent:withArguments: {*System-Object Events-accessing-triggering} · ct 8/15/2023 09:59 (changed) triggerEvent: anEventSelector withArguments: anArgumentList ^(self actionForEvent: anEventSelector) - valueWithArguments: anArgumentList + valueWithEnoughArguments: anArgumentList Object>>valueWithEnoughArguments: {evaluating} · ct 8/15/2023 10:00 + valueWithEnoughArguments: aSequenceOfArguments + + ^ self WeakActionSequence>>valueWithEnoughArguments: {evaluating} · ct 8/15/2023 09:58 + valueWithEnoughArguments: anArray + "Return the last result" + + ^self inject: nil into: [ :previousAnswer :each | + each valueWithEnoughArguments: anArray otherwise: [ previousAnswer ]] WeakActionSequenceTrappingErrors>>valueWithEnoughArguments: {evaluating} · ct 8/15/2023 09:59 + valueWithEnoughArguments: anArray + "Do the same as my parent, but make sure that all actions that do not + give errors are evaluated before resignaling the ones that gave errors + (giving the chance to clients to handle them)." + + ^self valueWithEnoughArguments: anArray startingFrom: 1 WeakActionSequenceTrappingErrors>>valueWithEnoughArguments:startingFrom: {evaluating} · ct 8/15/2023 09:59 + valueWithEnoughArguments: anArray startingFrom: startIndex + "Do the same as my parent, but make sure that all actions that do not + give errors are evaluated before resignaling the ones that gave errors + (giving the chance to clients to handle them)." + + "Note: I currently trap Halt,Error so that I am sure to get a Halt event in case of a Halt. This is being fixed in the exception system - when the fix is done it will be enough to capture only Error." + + | each answer | + answer := nil. + startIndex to: self size do: [:index | + each := self at: index. + [ + answer := each valueWithEnoughArguments: anArray otherwise: [ answer ]. + ] + on: Halt , Error + do: [:exc | + self valueWithEnoughArguments: anArray startingFrom: index + 1. + exc pass]]. + ^ answer WeakMessageSend>>valueWithEnoughArguments:otherwise: {evaluating} · ct 8/15/2023 09:58 + valueWithEnoughArguments: anArray otherwise: aBlock + | argsToUse | + + "Safe to use, because they are built before ensureing receiver and args..." + argsToUse := self collectArguments: anArray. + ^ self + withEnsuredReceiverAndArgumentsDo: [ :r :a | + r + perform: selector + withEnoughArguments: argsToUse ] + otherwise: aBlock --- Sent from Squeak Inbox Talk ["whenEvaluateEnoughArguments.1.cs"]

2 1

Review Request: browseCorePackageOfExtensionMethod.1.cs
by christoph.thiede＠student.hpi.uni-potsdam.de 19 Jan '24

19 Jan '24

=============== Summary =============== Change Set: browseCorePackageOfExtensionMethod Date: 15 August 2023 Author: Christoph Thiede Proposal: In browsers, adds item 'browse core package' to context menu of extension category (stubs). Hides irrelevant menu items when no category is selected. Adds interface on Categorizer and PackageOrganizer for finding case-insensitive names. =============== Diff =============== Browser>>browsePackageOfExtensionMethod {message category functions} · ct 8/15/2023 12:06 + browsePackageOfExtensionMethod + + | category sepIndex | + category := self selectedMessageCategoryName ifNil: [^ self changed: #flash]. + (category beginsWith: '*') ifFalse: [^ self changed: #flash]. + category := category allButFirst. + [(self systemOrganizer findCategoryName: category caseSensitive: false) ifNotNil: [:actualCategory | + ^ ToolSet browseCategory: actualCategory]. + (self environment packageOrganizer findPackageNamed: category caseSensitive: false) ifNotNil: [:package | + ^ (SystemBrowser default includesBehavior: TreeBrowser) + ifTrue: [ToolSet browseCategory: package name] + ifFalse: [ToolSet browsePackage: package]]. + sepIndex := category lastIndexOf: $- ifAbsent: [^ self changed: #flash]. + category := category first: sepIndex - 1] repeat. + + "examples: + '*JSON' -> package JSON + '*system-support' -> syscat System-Support + '*Morphic-Events-Filtering' -> syscat Morphic-Events" Browser>>mainMessageCategoryMenu: {message category functions} · ct 8/15/2023 11:48 (changed) mainMessageCategoryMenu: aMenu <messageCategoryMenu> - ^ aMenu addList: #( + self selectedMessageCategoryName ifNotNil: [:cat | + aMenu addTranslatedList: #( ('browse' buildMessageCategoryBrowser) ('browse all' browseAllMethodsInCategory) - ('browse all related' browseAllMethodsInCategoryToken) + ('browse all related' browseAllMethodsInCategoryToken)). + (cat beginsWith: '*') ifTrue: [ + aMenu addTranslatedList: #( + ('browse core package' browsePackageOfExtensionMethod))]]. + aMenu addTranslatedList: #( - ('print out' printOutMessageCategories) ('file out' fileOutMessageCategories) - ('reorganize' editMessageCategories) ('alphabetize' alphabetizeMessageCategories) ('remove empty categories' removeEmptyCategories) ('categorize all uncategorized' categorizeAllUncategorizedMethods) - ('new category...' addCategory) + ('new category...' addCategory)). + self selectedMessageCategoryName ifNotNil: [ + aMenu addTranslatedList: #( - ('rename...' renameCategory) - ('remove (x)' removeMessageCategory)); - yourself + ('remove (x)' removeMessageCategory))]. + ^ aMenu Categorizer>>findCategoryName:caseSensitive: {accessing} · ct 8/15/2023 11:44 + findCategoryName: categoryName caseSensitive: caseSensitive + + ^ categoryArray + detect: [:category | + (categoryName compare: category caseSensitive: caseSensitive) = 2] + ifNone: [nil] PackageOrganizer>>findPackageName:caseSensitive: {searching} · ct 8/15/2023 11:44 + findPackageName: aString caseSensitive: caseSensitive + ^ packages keys + detect: [:name | + (name compare: aString caseSensitive: caseSensitive) = 2] + ifNone: [nil] PackageOrganizer>>findPackageNamed:caseSensitive: {searching} · ct 8/15/2023 11:46 + findPackageNamed: aString caseSensitive: caseSensitive + | name | + name := self findPackageName: aString caseSensitive: caseSensitive. + ^ self packageNamed: name ifAbsent: [nil] PackageOrganizer>>hasPackageNamed: {searching} · ct 8/15/2023 11:33 + hasPackageNamed: aString + ^ packages includesKey: aString PackageOrganizer>>hasPackageNamed:caseSensitive: {searching} · ct 8/15/2023 11:35 + hasPackageNamed: aString caseSensitive: caseSensitive + caseSensitive ifTrue: [^ self hasPackageNamed: aString]. + ^ packages keys anySatisfy: [:name | aString sameAs: name] --- Sent from Squeak Inbox Talk ["browseCorePackageOfExtensionMethod.1.cs"]

2 1

Code duplication around unwinding
by Jaromir Matas 14 Jan '24

14 Jan '24

Hi all, When I started learning Squeak I wondered why so much code duplication around unwinding: Context>>#restart, #resume:through:, #resumeEvaluating:, #terminate and #unwindTo: all implementing the exact same algorithm. Kernel-jar.1499 suggests removing all this duplicity while keeping the current unwind semantics. All Process and Exceptions tests are green. This changeset is the first step in my effort to reduce the "noise" around the "collection" of resume/return methods in Context and Exception. One idea is to return calling the unwind mechanism back to the Exception class, as originally implemented in Squeak 2.x up to 3.5; please let me know if you find something fundamentally wrong with this idea. Example: I find this call sequence begging for simplification: Exception>>resume: --> resumeUnchecked: --> resumeEvaluating: --> Context>>returnEvaluating: --> resumeEvaluating: Best, Jaromir -- Jaromír Matas mail(a)jaromir.net

2 9

The Inbox: Kernel-ct.1448.mcz
by commits＠source.squeak.org 09 Jan '24

09 Jan '24

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ct.1448.mcz ==================== Summary ==================== Name: Kernel-ct.1448 Author: ct Time: 12 March 2022, 12:42:08.516359 am UUID: 7659c202-5fcc-084e-84b4-a5d233717b2d Ancestors: Kernel-nice.1447 Implements missing simulation of primitive 189 primitiveExecuteMethod (Object>>with:...executeMethod:). =============== Diff against Kernel-nice.1447 =============== Item was changed: ----- Method: Context>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. Hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" primitiveIndex = 19 ifTrue: [ [self notify: ('The code being simulated is trying to control a process ({1}). Process controlling cannot be simulated. If you proceed, things may happen outside the observable area of the simulator.' translated format: {meth reference})] ifCurtailed: [self push: nil "Cheap fix of the context's internal state"]]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: [(primitiveIndex = 206 or: [primitiveIndex = 208]) ifTrue: "[Full]BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]. ((primitiveIndex between: 201 and: 209) "[Full]BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "[Full]BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [| selector | selector := arguments at: 1 ifAbsent: [^ self class primitiveFailTokenFor: #'bad argument']. arguments size - 1 = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ^self send: selector to: receiver with: arguments allButFirst]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [| selector args | arguments size = 2 ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. selector := arguments first. args := arguments second. args isArray ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. args size = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ^self send: selector to: receiver with: args]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [| rcvr selector args superclass | arguments size caseOf: { [3] -> [ rcvr := receiver. selector := arguments first. args := arguments second. superclass := arguments third]. [4] -> ["mirror primitive" rcvr := arguments first. selector := arguments second. args := arguments third. superclass := arguments fourth] } otherwise: [^ self class primitiveFailTokenFor: #'bad argument']. args isArray ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. args size = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ((self objectClass: rcvr) includesBehavior: superclass) ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. ^self send: selector to: rcvr with: args lookupIn: superclass]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: [| effective | effective := Processor activeProcess effectiveProcess. "active == effective" value := primitiveIndex = 186 ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. + + (primitiveIndex = 188 or: [primitiveIndex = 189]) ifTrue: - - primitiveIndex = 188 ifTrue: "Object>>withArgs:executeMethod: - CompiledMethod class>>receiver:withArguments:executeMethod: - VMMirror>>ifFail:object:with:executeMethod: et al" [| n args methodArg thisReceiver | + primitiveIndex caseOf: + {[188 "primitiveExecuteMethodArgsArray"] -> + ["Object>>withArgs:executeMethod: + CompiledMethod class>>receiver:withArguments:executeMethod: + VMMirror>>ifFail:object:with:executeMethod: et al" + ((n := arguments size) between: 2 and: 4) ifFalse: + [^self class primitiveFailTokenFor: #'unsupported operation']. + ((self objectClass: (args := arguments at: n - 1)) == Array + and: [(self objectClass: (methodArg := arguments at: n)) includesBehavior: CompiledMethod]) ifFalse: + [^self class primitiveFailTokenFor: #'bad argument']. + thisReceiver := arguments at: n - 2 ifAbsent: [receiver]]. + [189 "primitiveExecuteMethod"] -> + ["Object>>executeMethod: + Object>>with:...executeMethod:" + (arguments size > 0) ifFalse: + [^self class primitiveFailTokenFor: #'bad argument']. + ((self objectClass: (methodArg := arguments atLast: 1)) includesBehavior: CompiledMethod) ifFalse: + [^self class primitiveFailTokenFor: #'bad argument']. + args := arguments allButLast. + thisReceiver := receiver]}. - ((n := arguments size) between: 2 and: 4) ifFalse: - [^self class primitiveFailTokenFor: #'unsupported operation']. - ((self objectClass: (args := arguments at: n - 1)) == Array - and: [(self objectClass: (methodArg := arguments at: n)) includesBehavior: CompiledMethod]) ifFalse: - [^self class primitiveFailTokenFor: #'bad argument']. methodArg numArgs = args size ifFalse: [^self class primitiveFailTokenFor: #'bad number of arguments']. - thisReceiver := arguments at: n - 2 ifAbsent: [receiver]. methodArg primitive > 0 ifTrue: [methodArg isQuick ifTrue: [^self push: (methodArg valueWithReceiver: thisReceiver arguments: args)]. ^self doPrimitive: methodArg primitive method: meth receiver: thisReceiver args: args]. ^self activateMethod: methodArg withArgs: args receiver: thisReceiver]. primitiveIndex = 118 ifTrue: "[receiver:]tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 3 and: [(self objectClass: arguments second) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifTrue: [^self doPrimitive: arguments second method: meth receiver: arguments first args: arguments last]. (arguments size = 2 and: [(self objectClass: arguments first) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: [^self class primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: "should use self receiver: receiver tryPrimitive: primitiveIndex withArgs: arguments but this is only in later VMs (and appears to be broken)" [receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]!

4 5

Let's discuss the future of Etoys in Squeak 6.1 (and beyond)
by Marcel Taeumel 02 Jan '24

02 Jan '24

Hi all -- Please find attached a change-set that unloads Etoys from Squeak 6.1alpha #22748 (and later). Let us use this artifact to discuss the future of Etoys in Squeak 6.1 and beyond. You can use Monticello or the ChangeSorter to take a look at what's needed besides unloading the Etoys package itself. Also check preamble and postscript of the attached change-set. !!! Yes, simply re-loading the Etoys package is not enough to restore basic Etoys functionality. There are several sub-method changes needed for the Etoys integration into the base system. Here is what would still work through the package MorphicExtras: - Games - Sketches and PaintBox - Flaps - CalendarMorph - SpectrumAnalyzerMorph Here is what would still "work" through the package System: - Object storage (ImageSegment etc.) - ProjectLoading Here is what would still work through the package Protocols: - Lexicon tool - Vocabulary framework Here is what would be gone: - Tiles, viewers, and scripts - Players and costumes - Pen trails, Turtles, ... - References, CustomEventsRegistry, ScriptingSystem - Siblings for (Player-only) uni-classes - DeepCopier support for (Player-only) uni-classes - Preferences #noviceMode, #eToyFriendly, and more Note that we still have several Etoys-compatible releases such as Etoys 4/5/6 and Squeak 5.1/5.2/5.3/6.0. Best compatibility is probably with Etoys 5. Most updated base system is probably Squeak 6.0. :-) So...should we remove Etoys from Trunk at this point? Please share your thoughts. And feel free to also report issues with loading/using the attached change-set itself. Best, Marcel

14 30

[Simulation errors] ObjectTracer on: true
by Thiede, Christoph 30 Dec '23

30 Dec '23

Hi all! I rarely discovered that much errors with one single command :-) Steps to reproduce Print it: (ObjectTracer on: true) ifTrue: [1] Expected behavior It is printed: 1 Actual behavior The following tracer notifications appear (proceed them all): 1. (3x) #printStringLimitedTo:, #longPrintOn:limitedTo:indent: and again #printStringLimitedTo:, caused by SmalltalkImage >> #logSqueakError:inContext: 2. #mustBeBoolean 3. (3 more print message called by #logSqueakError:inContext: again, see the next error) 4. Error: Where's the jump? Caused by #mustBeBooleanIn:, #skipBackBeforeJump If you still keep proceeding: 1. (3 more print message called by #logSqueakError:inContext: again, see the next error) 2. Finally, the NonBooleanReceiver error from 2. 3. VM crashes. Summarizing the bugs ObjectTracer traces too much The amount of messages printed by the ObjectTracer is an unintended side effect of the way it signals calls via the debugger. The debugger logs this error, including the stack trace. How can we avoid this? Should we suppress all further notifications from one ObjectTracer instance during the first one is debugged? #mustBeBoolean is sent to boolean proxy This is caused by the simulation of the inlined #ifTrue: call. I don't know whether this is worth to be fixed before Scorch? If yes, I think we would need to disable inlining for this particular selector or make inlining opt-out-able as proposed here (this would probably be way too slow)<http://forum.world.st/The-Inbox-HelpSystem-Core-ct-123-mcz-tp5105402p511363…>. #mustBoBoolean depends on caller chain It turns out that #mustBeBoolean relies on being called from a context that just did a jump. This makes it impossible to forward this message as usual via a transparent proxy/decorator. We use this pattern in other methods as well. How can we enable transparent wrappers not to collide with method contexts depending on their sender? Best, Christoph

6 11

Some issue with interrupts during delay
by Thiede, Christoph 15 Dec '23

15 Dec '23

For the second time in two days, I was stuck in the following situation after pressing interrupt multiple times and my image froze irrecoverably: [cid:bf8bfc45-aff3-4132-9510-d8802537c162] I don't know what's going on here. Did the interrupt block a critical section that is used by a higher-level process such as the timer event loop? Unfortunately no SqueakDebug.log was produced. How can we investigate & fix this? Best, Christoph

3 4

Jump to page: