Vm-dev November 2021

vm-dev@lists.squeakfoundation.org

11 participants
54 discussions

[OpenSmalltalk/opensmalltalk-vm] Cross-platform reproducible crashdumps (Issue #603)
by Christoph Thiede 07 Nov '21

07 Nov '21

I've got a Squeak image that reproducibly crashes after some time. On Windows, the error message is this: ``` --------------------------- Fatal Squeak VM error --------------------------- Sorry but the Squeak VM has crashed. Exception code: c0000005 Exception address: 00007ff779310548 Current byte code: -1 Primitive index: 0 Crashed in the VM thread This information will be stored in the file with a complete stack dump --------------------------- OK --------------------------- ``` Here is one crash dump from SqueakConsole.exe: <details><pre><code> Primitive trace: SmalltalkImage>>#specialObjectsArray Array>>#new: Object>>#at:put: Object>>#perform:with:with:with: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Array>>#new: Array>>#new: Behavior>>#basicNew: Context>>#stackp: Context>>#at:put: Context>>#at:put: Context>>#at:put: Context>>#at:put: ByteArray>>#byteAt: Object>>#perform:withArguments:inSuperclass: Behavior>>#basicNew: **PrimitiveFailure** SandboxContext Object>>#shallowCopy Object>>#shallowCopy Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Context>>#basicSize Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Array>>#new: Behavior>>#basicNew: Context>>#stackp: Context>>#at:put: Context>>#at:put: Context>>#at:put: Context>>#at:put: Object>>#perform:withArguments:inSuperclass: Behavior>>#basicNew: **PrimitiveFailure** SandboxContext Object>>#shallowCopy Object>>#shallowCopy Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Context>>#basicSize Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Array>>#new: Object>>#at: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Behavior>>#basicNew: Context>>#stackp: Context>>#at:put: Context>>#at:put: Context>>#at:put: Context>>#at:put: Object>>#perform:withArguments:inSuperclass: Behavior>>#basicNew: **PrimitiveFailure** SandboxContext Object>>#shallowCopy Object>>#shallowCopy Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Context>>#basicSize Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Context>>#basicAt: Array>>#new: Object>>#at: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Behavior>>#basicNew: Context>>#stackp: Context>>#at:put: Context>>#at:put: Object>>#perform:withArguments:inSuperclass: Behavior>>#basicNew: **PrimitiveFailure** SandboxContext Object>>#shallowCopy Object>>#shallowCopy Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Context>>#basicSize Context>>#basicAt: Context>>#basicAt: Array>>#new: Object>>#at: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Array>>#new: Context>>#objectClass: Context>>#objectClass: Array>>#new: Object>>#at:put: **StackOverflow** ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Stack backtrace: [00007ff78ad2c890] objectClass: + 0x50 in CogCode [00007ff78ad01520] ceReturnToInterpreterTrampoline + 0x0 in CogCode [00007ff7d3cc885f] ??? + 0x0 in (null) [00007ff7d434b1d8] ??? + 0x0 in (null) [00007ff7d3cc885f] ??? + 0x0 in (null) [00007ff78add4b74] send:to:with:lookupIn: + 0x3d4 in CogCode [00007ff78ad01550] ceBaseFrameReturnTrampoline + 0x0 in CogCode Smalltalk stack dump: 0x65b03fc728 M SandboxContext(Context)>isPrimFailToken: 0x7ff78b522108: a(n) SandboxContext 0x65b03fc7d0 I SandboxContext(Context)>doPrimitive:method:receiver:args: 0x7ff78b522108: a(n) SandboxContext 0x65b03fc848 I SandboxContext>doPrimitive:method:receiver:args: 0x7ff78b522108: a(n) SandboxContext 0x65b03fc908 I SandboxContext(Context)>doPrimitive:method:receiver:args: 0x7ff78b522108: a(n) SandboxContext 0x65b03fc980 I SandboxContext>doPrimitive:method:receiver:args: 0x7ff78b522108: a(n) SandboxContext 0x65b03fc9f0 M SandboxContext(Context)>send:to:with:lookupIn: 0x7ff78b522108: a(n) SandboxContext 0x65b03d8598 M SandboxContext(Context)>send:super:numArgs: 0x7ff78b522108: a(n) SandboxContext 0x65b03d85f8 M SandboxContext(InstructionStream)>interpretNext2ByteSistaV1Instruction:for:extA:extB:startPC: 0x7ff78b522108: a(n) SandboxContext 0x65b03d8690 M SandboxContext(InstructionStream)>interpretNextSistaV1InstructionFor: 0x7ff78b522108: a(n) SandboxContext 0x65b03d86c8 M EncoderForSistaV1 class>interpretNextInstructionFor:in: 0x7ff79b1ca490: a(n) EncoderForSistaV1 0x65b03d8708 M SandboxContext(InstructionStream)>interpretNextInstructionFor: 0x7ff78b522108: a(n) SandboxContext 0x65b03d8740 M SandboxContext(Context)>step 0x7ff78b522108: a(n) SandboxContext 0x65b03d8778 M SandboxContext(SimulationContext)>step 0x7ff78b522108: a(n) SandboxContext 0x65b03d87a8 M SandboxContext>step 0x7ff78b522108: a(n) SandboxContext 0x65b03d87e8 M [] in SandboxContext>runSimulated:contextAtEachStep: 0x7ff83a4b4108: a(n) SandboxContext 0x65b03d8818 M FullBlockClosure(BlockClosure)>whileFalse: 0x7ff83a4b4188: a(n) FullBlockClosure 0x65b03d8860 M SandboxContext(SimulationContext)>runSimulated:contextAtEachStep: 0x7ff83a4b4108: a(n) SandboxContext 0x65b03d88a0 M SandboxContext>runSimulated:contextAtEachStep: 0x7ff83a4b4108: a(n) SandboxContext 0x65b03d88e0 M Sandbox>basicEvaluate: 0x7ff83a4b4390: a(n) Sandbox 0x65b03d8928 M Sandbox>evaluate:on:do: 0x7ff83a4b4390: a(n) Sandbox 0x65b03d8970 M Sandbox class>evaluate:on:do: 0x7ff7c2519620: a(n) Sandbox 0x65b03d89b8 M SandboxKernelTest>basicPerformTest:on:do: 0x7ff7db32d7a0: a(n) SandboxKernelTest 0x65b03d8a10 M SandboxKernelTest(SimulationKernelTest)>basicPerformTest 0x7ff7db32d7a0: a(n) SandboxKernelTest 0x65b03f3338 M [] in SandboxKernelTest>performTest 0x7ff7db32d7a0: a(n) SandboxKernelTest 0x65b03f3380 M SandboxKernelTest(SimulationTestCase)>shouldNotChange:after: 0x7ff7db32d7a0: a(n) SandboxKernelTest 0x65b03f33c0 M SandboxKernelTest(SimulationKernelTest)>performTest 0x7ff7db32d7a0: a(n) SandboxKernelTest 0x65b03f33f0 M [] in SandboxKernelTest>runCase 0x7ff7db32d7a0: a(n) SandboxKernelTest 0x65b03f3430 M FullBlockClosure(BlockClosure)>on:do: 0x7ff83a4b5d40: a(n) FullBlockClosure 0x65b03f3480 M [] in SandboxKernelTest>timeout:after: 0x7ff7db32d7a0: a(n) SandboxKernelTest 0x65b03f34c0 M FullBlockClosure(BlockClosure)>ensure: 0x7ff83a4b5e70: a(n) FullBlockClosure 0x65b03f3510 M SandboxKernelTest(TestCase)>timeout:after: 0x7ff7db32d7a0: a(n) SandboxKernelTest 0x65b03f3550 M [] in SandboxKernelTest>runCase 0x7ff7db32d7a0: a(n) SandboxKernelTest 0x65b03f3590 M FullBlockClosure(BlockClosure)>ensure: 0x7ff83a4b6050: a(n) FullBlockClosure 0x65b03f35c8 M SandboxKernelTest(TestCase)>runCase 0x7ff7db32d7a0: a(n) SandboxKernelTest 0x65b03f3600 M [] in TestResult>runCase: 0x7ff838dc3d38: a(n) TestResult 0x65b03f3640 M FullBlockClosure(BlockClosure)>on:do: 0x7ff83a4b6158: a(n) FullBlockClosure 0x65b03f3690 M [] in TestResult>runCase: 0x7ff838dc3d38: a(n) TestResult 0x65b03f36d0 M FullBlockClosure(BlockClosure)>on:do: 0x7ff83a4b6280: a(n) FullBlockClosure 0x65b03f3720 M [] in TestResult>runCase: 0x7ff838dc3d38: a(n) TestResult 0x65b03f3760 M FullBlockClosure(BlockClosure)>on:do: 0x7ff83a4b63a8: a(n) FullBlockClosure 0x65b03f37a8 M TestResult>runCase: 0x7ff838dc3d38: a(n) TestResult 0x65b03f37e0 M SandboxKernelTest(TestCase)>run: 0x7ff7db32d7a0: a(n) SandboxKernelTest 0x65b03f3828 M [] in ATDDProgressTestSuite>run: 0x7ff7db329240: a(n) ATDDProgressTestSuite 0x65b03f3868 M OrderedCollection>do: 0x7ff7db32a5b0: a(n) OrderedCollection 0x65b03f38b8 I ATDDProgressTestSuite>run: 0x7ff7db329240: a(n) ATDDProgressTestSuite 0x65b03f38f8 M [] in ATDDProgressTestSuite>run 0x7ff7db329240: a(n) ATDDProgressTestSuite 0x65b03f3938 M FullBlockClosure(BlockClosure)>ensure: 0x7ff838dc3e68: a(n) FullBlockClosure 0x65b03f3988 I ATDDProgressTestSuite(TestSuite)>run 0x7ff7db329240: a(n) ATDDProgressTestSuite 0x65b03f39d0 I [] in ATDDLocalTestRunner>runTestSuite 0x7ff7c457b570: a(n) ATDDLocalTestRunner 0x65b03f3a10 I [] in FullBlockClosure>newProcess 0x7ff7db3344a8: a(n) FullBlockClosure stack page bytes 4096 available headroom 1480 minimum unused headroom 0</code></pre></details> Here is another one from SqueakConsole.exe: <details><pre><code>fopen (2) -- Das System kann die angegebene Datei nicht finden. Primitive trace: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Context>>#object:instVarAt: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Behavior>>#basicNew: Context>>#stackp: Object>>#perform:withArguments:inSuperclass: Behavior>>#basicNew: **PrimitiveFailure** SandboxContext Object>>#shallowCopy Object>>#shallowCopy Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Context>>#basicSize Array>>#new: Object>>#at: Context>>#object:instVarAt: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Context>>#object:instVarAt: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Context>>#object:instVarAt: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Behavior>>#basicNew: Context>>#stackp: Object>>#perform:withArguments:inSuperclass: Behavior>>#basicNew: **PrimitiveFailure** SandboxContext Object>>#shallowCopy Object>>#shallowCopy Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Context>>#basicSize Array>>#new: Object>>#at: Context>>#object:instVarAt: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Context>>#object:instVarAt: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Context>>#object:instVarAt: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Behavior>>#basicNew: Context>>#stackp: Object>>#perform:withArguments:inSuperclass: Behavior>>#basicNew: **PrimitiveFailure** SandboxContext Object>>#shallowCopy Object>>#shallowCopy Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Object>>#instVarAt: Object>>#instVarAt:put: Context>>#basicSize Array>>#new: Array>>#new: Object>>#at: Context>>#object:instVarAt: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Context>>#object:instVarAt: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Context>>#object:instVarAt: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: SmalltalkImage>>#specialObjectsArray SmalltalkImage>>#specialObjectsArray Array>>#new: Object>>#at:put: ProtoObject>>#tryPrimitive:withArgs: Array>>#new: Context>>#objectClass: Context>>#objectClass: Array>>#new: Object>>#at:put: **StackOverflow** Object>>#perform:with:with:with: ProtoObject>>#tryPrimitive:withArgs: ProtoObject>>#tryPrimitive:withArgs: Stack backtrace: [00007ff78aa69eac] ??? + 0x19eac in SqueakConsole.exe [00007ff78ad1995e] at:put: + 0x8e in CogCode [00007ff78ae0bbcb] at:put: + 0xdb in CogCode [00007ff78ae0bae1] addObject: + 0x91 in CogCode [00007ff78ae0fdae] doPrimitiveNew:receiver:args: + 0x206 in CogCode [00007ff78ad01520] ceReturnToInterpreterTrampoline + 0x0 in CogCode [00007ff7d456a678] ??? + 0x0 in (null) [00007ff78ad01550] ceBaseFrameReturnTrampoline + 0x0 in CogCode Smalltalk stack dump: 0xc1729f7578 M WeakIdentityKeyDictionary>scanFor: 0x7ff809ef1290: a(n) WeakIdentityKeyDictionary 0xc1729f75c0 M WeakIdentityKeyDictionary(Dictionary)>at:put: 0x7ff809ef1290: a(n) WeakIdentityKeyDictionary 0xc1729f7600 M WeakIdentityKeyDictionary(WeakKeyDictionary)>at:put: 0x7ff809ef1290: a(n) WeakIdentityKeyDictionary 0xc1729f7640 M Sandbox>addObject: 0x7ff809eee860: a(n) Sandbox 0xc1729f7690 M SandboxContext>doPrimitiveNew:receiver:args: 0x7ff78b115a80: a(n) SandboxContext 0xc1729f7700 I SandboxContext>doPrimitive:method:receiver:args: 0x7ff78b115a80: a(n) SandboxContext 0xc1729f77c0 I SandboxContext(Context)>doPrimitive:method:receiver:args: 0x7ff78b115a80: a(n) SandboxContext 0xc1729e32f8 I SandboxContext>doPrimitive:method:receiver:args: 0x7ff78b115a80: a(n) SandboxContext 0xc1729e3368 M SandboxContext(Context)>send:to:with:lookupIn: 0x7ff78b115a80: a(n) SandboxContext 0xc1729e33d8 M SandboxContext(Context)>send:super:numArgs: 0x7ff78b115a80: a(n) SandboxContext 0xc1729e3460 M SandboxContext(InstructionStream)>interpretNextSistaV1InstructionFor: 0x7ff78b115a80: a(n) SandboxContext 0xc1729e3498 M EncoderForSistaV1 class>interpretNextInstructionFor:in: 0x7ff79b1c93e8: a(n) EncoderFor0xc1729e34d8 M SandboxContext(InstructionStream)>interpretNextInstructionFor: 0x7ff78b115a80: a(n) SandboxContext 0xc1729e3510 M SandboxContext(Context)>step 0x7ff78b115a80: a(n) SandboxContext 0xc1729e3548 M SandboxContext(SimulationContext)>step 0x7ff78b115a80: a(n) SandboxContext 0xc1729e3578 M SandboxContext>step 0x7ff78b115a80: a(n) SandboxContext 0xc1729e35b8 M [] in SandboxContext>runSimulated:contextAtEachStep: 0x7ff809eee5a8: a(n) SandboxContext 0xc1729e35e8 M FullBlockClosure(BlockClosure)>whileFalse: 0x7ff809eee5f0: a(n) FullBlockClosure 0xc1729e3630 M SandboxContext(SimulationContext)>runSimulated:contextAtEachStep: 0x7ff809eee5a8: a(n) SandboxContext 0xc1729e3670 M SandboxContext>runSimulated:contextAtEachStep: 0x7ff809eee5a8: a(n) SandboxContext 0xc1729e36b0 M Sandbox>basicEvaluate: 0x7ff809eee860: a(n) Sandbox 0xc1729e36f8 M Sandbox>evaluate:on:do: 0x7ff809eee860: a(n) Sandbox 0xc1729e3740 M Sandbox class>evaluate:on:do: 0x7ff7c2716028: a(n) Sandbox 0xc1729e3788 M SandboxKernelTest>basicPerformTest:on:do: 0x7ff7db361350: a(n) SandboxKernelTest 0xc1729e37e0 M SandboxKernelTest(SimulationKernelTest)>basicPerformTest 0x7ff7db361350: a(n) SandboxKernelTest 0xc1729d3108 M [] in SandboxKernelTest>performTest 0x7ff7db361350: a(n) SandboxKernelTest 0xc1729d3150 M SandboxKernelTest(SimulationTestCase)>shouldNotChange:after: 0x7ff7db361350: a(n) SandboxKernelTest 0xc1729d3190 M SandboxKernelTest(SimulationKernelTest)>performTest 0x7ff7db361350: a(n) SandboxKernelTest 0xc1729d31c0 M [] in SandboxKernelTest>runCase 0x7ff7db361350: a(n) SandboxKernelTest 0xc1729d3200 M FullBlockClosure(BlockClosure)>on:do: 0x7ff809eed6b0: a(n) FullBlockClosure 0xc1729d3250 M [] in SandboxKernelTest>timeout:after: 0x7ff7db361350: a(n) SandboxKernelTest 0xc1729d3290 M FullBlockClosure(BlockClosure)>ensure: 0x7ff809eed7e0: a(n) FullBlockClosure 0xc1729d32e0 M SandboxKernelTest(TestCase)>timeout:after: 0x7ff7db361350: a(n) SandboxKernelTest 0xc1729d3320 M [] in SandboxKernelTest>runCase 0x7ff7db361350: a(n) SandboxKernelTest 0xc1729d3360 M FullBlockClosure(BlockClosure)>ensure: 0x7ff809eed9c0: a(n) FullBlockClosure 0xc1729d3398 M SandboxKernelTest(TestCase)>runCase 0x7ff7db361350: a(n) SandboxKernelTest 0xc1729d33d0 M [] in TestResult>runCase: 0x7ff82a739f08: a(n) TestResult 0xc1729d3410 M FullBlockClosure(BlockClosure)>on:do: 0x7ff809eedac8: a(n) FullBlockClosure 0xc1729d3460 M [] in TestResult>runCase: 0x7ff82a739f08: a(n) TestResult 0xc1729d34a0 M FullBlockClosure(BlockClosure)>on:do: 0x7ff809eedbf0: a(n) FullBlockClosure 0xc1729d34f0 M [] in TestResult>runCase: 0x7ff82a739f08: a(n) TestResult 0xc1729d3530 M FullBlockClosure(BlockClosure)>on:do: 0x7ff809eedd18: a(n) FullBlockClosure 0xc1729d3578 M TestResult>runCase: 0x7ff82a739f08: a(n) TestResult 0xc1729d35b0 M SandboxKernelTest(TestCase)>run: 0x7ff7db361350: a(n) SandboxKernelTest 0xc1729d35f8 M [] in ATDDProgressTestSuite>run: 0x7ff7db35cd60: a(n) ATDDProgressTestSuite 0xc1729d3638 M OrderedCollection>do: 0x7ff7db35e100: a(n) OrderedCollection 0xc1729d3688 I ATDDProgressTestSuite>run: 0x7ff7db35cd60: a(n) ATDDProgressTestSuite 0xc1729d36c8 M [] in ATDDProgressTestSuite>run 0x7ff7db35cd60: a(n) ATDDProgressTestSuite 0xc1729d3708 M FullBlockClosure(BlockClosure)>ensure: 0x7ff8280c77e8: a(n) FullBlockClosure 0xc1729d3758 I ATDDProgressTestSuite(TestSuite)>run 0x7ff7db35cd60: a(n) ATDDProgressTestSuite 0xc1729d37a0 I [] in ATDDLocalTestRunner>runTestSuite 0x7ff7c47747e8: a(n) ATDDLocalTestRunner 0xc1729d37e0 I [] in FullBlockClosure>newProcess 0x7ff7db3688f8: a(n) FullBlockClosure stack page bytes 4096 available headroom 1480 minimum unused headroom 1728</code></pre></details> And here is one from WSL/Ubuntu: <details><pre><code>Segmentation fault Sun Nov 7 15:57:38 2021 /usr/bin/squeak/lib/squeak/5.0-202006010135/squeak Squeak VM version: 5.0-202006010135 Mon Jun 1 01:38:30 UTC 2020 clang [Production Spur 64-bit VM] Built from: CoInterpreter VMMaker.oscog-eem.2758 uuid: 12eca51a-b989-486f-9a89-a66bba48ccc1 Jun 1 2020 With: StackToRegisterMappingCogit VMMaker.oscog-eem.2758 uuid: 12eca51a-b989-486f-9a89-a66bba48ccc1 Jun 1 2020 Revision: VM: 202006010135 https://github.com/OpenSmalltalk/opensmalltalk-vm.git Date: Sun May 31 18:35:25 2020 CommitHash: e4f17ad Plugins: 202006010135 https://github.com/OpenSmalltalk/opensmalltalk-vm.git Build host: Linux travis-job-7e81eb5a-1e14-4642-9231-b5718b11be25 4.15.0-1028-gcp #29~16.04.1-Ubuntu SMP Tue Feb 12 16:31:10 UTC 2019 x86_64 x86_64 x86_64 GNU/Linux plugin path: /usr/bin/squeak/lib/squeak/5.0-202006010135 [default: /usr/bin/squeak/lib/squeak/5.0-202006010135/] C stack backtrace & registers: rax 0x00000000 rbx 0x007b8b48 rcx 0x00002b63 rdx 0x0170d6d0 rdi 0x00000000 rsi 0x00000001 rbp 0x7fffe5fcaa98 rsp 0x7fffe5fcaa78 r8 0x8f616040 r9 0x00000000 r10 0x00000044 r11 0x7fffe5fcab40 r12 0x0170d6d0 r13 0x012c17a0 r14 0x012c17a0 r15 0x8000000008200031 rip 0x01213170 *[0x1213170] /usr/bin/squeak/lib/squeak/5.0-202006010135/squeak[0x41ab4d] /usr/bin/squeak/lib/squeak/5.0-202006010135/squeak[0x41caa7] /lib/x86_64-linux-gnu/libpthread.so.0(+0x12980)[0x7f7aa09d2980] [0x1213170] /lib/x86_64-linux-gnu/libc.so.6(+0x9e6ff)[0x7f7aa00ae6ff] Smalltalk stack dump: 0x7fffe5fcaa98 M SandboxContext(Context)>isPrimFailToken: 0x170d6d0: a(n) SandboxContext 0x7fffe5fcab40 I SandboxContext(Context)>doPrimitive:method:receiver:args: 0x170d6d0: a(n) SandboxContext 0x7fffe5fcabb8 I SandboxContext>doPrimitive:method:receiver:args: 0x170d6d0: a(n) SandboxContext 0x7fffe5fcac78 I SandboxContext(Context)>doPrimitive:method:receiver:args: 0x170d6d0: a(n) SandboxContext 0x7fffe5fcacf0 I SandboxContext>doPrimitive:method:receiver:args: 0x170d6d0: a(n) SandboxContext 0x7fffe5fcad60 M SandboxContext(Context)>send:to:with:lookupIn: 0x170d6d0: a(n) SandboxContext 0x7fffe5fac908 M SandboxContext(Context)>send:super:numArgs: 0x170d6d0: a(n) SandboxContext 0x7fffe5fac968 M SandboxContext(InstructionStream)>interpretNext2ByteSistaV1Instruction:for:extA:extB:startPC: 0x170d6d0: a(n) SandboxContext 0x7fffe5faca00 M SandboxContext(InstructionStream)>interpretNextSistaV1InstructionFor: 0x170d6d0: a(n) SandboxContext 0x7fffe5faca38 M EncoderForSistaV1 class>interpretNextInstructionFor:in: 0x11628490: a(n) EncoderForSistaV1 class 0x7fffe5faca78 M SandboxContext(InstructionStream)>interpretNextInstructionFor: 0x170d6d0: a(n) SandboxContext 0x7fffe5facab0 M SandboxContext(Context)>step 0x170d6d0: a(n) SandboxContext 0x7fffe5facae8 M SandboxContext(SimulationContext)>step 0x170d6d0: a(n) SandboxContext 0x7fffe5facb18 M SandboxContext>step 0x170d6d0: a(n) SandboxContext 0x7fffe5facb58 M [] in SandboxContext>runSimulated:contextAtEachStep: 0x8f2af3d0: a(n) SandboxContext 0x7fffe5facb88 M FullBlockClosure(BlockClosure)>whileFalse: 0x8f2af450: a(n) FullBlockClosure 0x7fffe5facbd0 M SandboxContext(SimulationContext)>runSimulated:contextAtEachStep: 0x8f2af3d0: a(n) SandboxContext 0x7fffe5facc10 M SandboxContext>runSimulated:contextAtEachStep: 0x8f2af3d0: a(n) SandboxContext 0x7fffe5facc50 M Sandbox>basicEvaluate: 0x8f2af358: a(n) Sandbox 0x7fffe5facc98 M Sandbox>evaluate:on:do: 0x8f2af358: a(n) Sandbox 0x7fffe5facce0 M Sandbox class>evaluate:on:do: 0x38b8a228: a(n) Sandbox class 0x7fffe5facd28 M SandboxKernelTest>basicPerformTest:on:do: 0x517aaa70: a(n) SandboxKernelTest 0x7fffe5facd80 M SandboxKernelTest(SimulationKernelTest)>basicPerformTest 0x517aaa70: a(n) SandboxKernelTest 0x7fffe5fb06a8 M [] in SandboxKernelTest>performTest 0x517aaa70: a(n) SandboxKernelTest 0x7fffe5fb06f0 M SandboxKernelTest(SimulationTestCase)>shouldNotChange:after: 0x517aaa70: a(n) SandboxKernelTest 0x7fffe5fb0730 M SandboxKernelTest(SimulationKernelTest)>performTest 0x517aaa70: a(n) SandboxKernelTest 0x7fffe5fb0760 M [] in SandboxKernelTest>runCase 0x517aaa70: a(n) SandboxKernelTest 0x7fffe5fb07a0 M FullBlockClosure(BlockClosure)>on:do: 0x8f2afbc0: a(n) FullBlockClosure 0x7fffe5fb07f0 M [] in SandboxKernelTest>timeout:after: 0x517aaa70: a(n) SandboxKernelTest 0x7fffe5fb0830 M FullBlockClosure(BlockClosure)>ensure: 0x8f2afce0: a(n) FullBlockClosure 0x7fffe5fb0880 M SandboxKernelTest(TestCase)>timeout:after: 0x517aaa70: a(n) SandboxKernelTest 0x7fffe5fb08c0 M [] in SandboxKernelTest>runCase 0x517aaa70: a(n) SandboxKernelTest 0x7fffe5fb0900 M FullBlockClosure(BlockClosure)>ensure: 0x8f2afec0: a(n) FullBlockClosure 0x7fffe5fb0938 M SandboxKernelTest(TestCase)>runCase 0x517aaa70: a(n) SandboxKernelTest 0x7fffe5fb0970 M [] in TestResult>runCase: 0x88923578: a(n) TestResult 0x7fffe5fb09b0 M FullBlockClosure(BlockClosure)>on:do: 0x8f2affc8: a(n) FullBlockClosure 0x7fffe5fb0a00 M [] in TestResult>runCase: 0x88923578: a(n) TestResult 0x7fffe5fb0a40 M FullBlockClosure(BlockClosure)>on:do: 0x8f2b00f0: a(n) FullBlockClosure 0x7fffe5fb0a90 M [] in TestResult>runCase: 0x88923578: a(n) TestResult 0x7fffe5fb0ad0 M FullBlockClosure(BlockClosure)>on:do: 0x8f2b0218: a(n) FullBlockClosure 0x7fffe5fb0b18 M TestResult>runCase: 0x88923578: a(n) TestResult 0x7fffe5fb0b50 M SandboxKernelTest(TestCase)>run: 0x517aaa70: a(n) SandboxKernelTest 0x7fffe5fb0b98 M [] in ATDDProgressTestSuite>run: 0x517a65a0: a(n) ATDDProgressTestSuite 0x7fffe5fb0bd8 M OrderedCollection>do: 0x517a7838: a(n) OrderedCollection 0x7fffe5fb0c28 I ATDDProgressTestSuite>run: 0x517a65a0: a(n) ATDDProgressTestSuite 0x7fffe5fb0c68 M [] in ATDDProgressTestSuite>run 0x517a65a0: a(n) ATDDProgressTestSuite 0x7fffe5fb0ca8 M FullBlockClosure(BlockClosure)>ensure: 0x889aae10: a(n) FullBlockClosure 0x7fffe5fb0cf8 I ATDDProgressTestSuite(TestSuite)>run 0x517a65a0: a(n) ATDDProgressTestSuite 0x7fffe5fb0d40 I [] in ATDDLocalTestRunner>runTestSuite 0x3abec178: a(n) ATDDLocalTestRunner 0x7fffe5fb0d80 I [] in FullBlockClosure>newProcess 0x517bb908: a(n) FullBlockClosure Most recent primitives tryPrimitive:withArgs: doPrimitiveNew:receiver:args: new: new: basicNew: stackp: at:put: at:put: at:put: at:put: byteAt: perform:withArguments:inSuperclass: basicNew: copyFrom: **PrimitiveFailure** **PrimitiveFailure** shallowCopy shallowCopy instVarAt: instVarAt:put: instVarAt: instVarAt:put: instVarAt: instVarAt: instVarAt:put: instVarAt: instVarAt:put: instVarAt: instVarAt:put: basicSize basicAt: basicAt: basicAt: basicAt: new: basicNew: stackp: at:put: at:put: at:put: at:put: perform:withArguments:inSuperclass: basicNew: copyFrom: **PrimitiveFailure** **PrimitiveFailure** shallowCopy shallowCopy instVarAt: instVarAt:put: instVarAt: instVarAt:put: instVarAt: instVarAt: instVarAt:put: instVarAt: instVarAt:put: instVarAt: instVarAt:put: basicSize basicAt: basicAt: basicAt: basicAt: basicAt: basicAt: new: at: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: basicNew: stackp: at:put: at:put: at:put: at:put: perform:withArguments:inSuperclass: basicNew: copyFrom: **PrimitiveFailure** **PrimitiveFailure** shallowCopy shallowCopy instVarAt: instVarAt:put: instVarAt: instVarAt:put: instVarAt: instVarAt: instVarAt:put: instVarAt: instVarAt:put: instVarAt: instVarAt:put: basicSize basicAt: basicAt: basicAt: basicAt: basicAt: basicAt: basicAt: basicAt: basicAt: basicAt: basicAt: basicAt: basicAt: basicAt: basicAt: basicAt: new: at: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: basicNew: stackp: at:put: at:put: perform:withArguments:inSuperclass: basicNew: copyFrom: **PrimitiveFailure** **PrimitiveFailure** shallowCopy shallowCopy instVarAt: instVarAt:put: instVarAt: instVarAt:put: instVarAt: instVarAt: instVarAt:put: instVarAt: instVarAt:put: instVarAt: instVarAt:put: basicSize basicAt: basicAt: new: at: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: specialObjectsArray specialObjectsArray new: tryPrimitive:withArgs: tryPrimitive:withArgs: new: objectClass: objectClass: new: at:put: **StackOverflow** tryPrimitive:withArgs: tryPrimitive:withArgs: stack page bytes 8192 available headroom 5576 minimum unused headroom 0 (Segmentation fault) Aborted (core dumped)</code></pre></details> The Windows VM is from 202110232003. (Meanwhile, SqueakJS takes eternities to load the 1436475432 bytes large image file.) Any ideas what could be going on here or how I would be able to debug an issue like this? :( -- You are receiving this because you are subscribed to this thread. Reply to this email directly or view it on GitHub: https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/603

1 0

VM Maker: VMMaker.oscog-eem.3098.mcz
by commits＠source.squeak.org 06 Nov '21

06 Nov '21

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.3098.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.3098 Author: eem Time: 5 November 2021, 4:03:28.570166 pm UUID: c943325a-2d0a-48f3-ba48-8f99d804dd7f Ancestors: VMMaker.oscog-eem.3097 CoInterpreterMT: implement "negative binding", binding a process to any thread /other than/ a specific thread. This is a much more elegant solution to the "don't tie up the event receiving thread" issue than using a separate, non-Smalltalk thread to receive events (and in fact that solution can't work because (some time in the near future) events must be deliverable as callbacks). =============== Diff against VMMaker.oscog-eem.3097 =============== Item was changed: ----- Method: CoInterpreterMT class>>initializeMiscConstants (in category 'initialization') ----- initializeMiscConstants super initializeMiscConstants. - "N.B. some of these DisownFlags are replicated in platforms/Cross/vm/sqVirtualMachine.h. - Hence they should always be initialized." - DisownVMForProcessorRelinquish := 64. - (InitializationOptions at: #COGMTVM ifAbsent: [false]) == false ifTrue: [^self]. COGMTVM := true. ReturnToThreadSchedulingLoop := 2 "setjmp/longjmp code."! Item was changed: ----- Method: CoInterpreterMT class>>initializeSchedulerIndices (in category 'initialization') ----- initializeSchedulerIndices super initializeSchedulerIndices. "Class Process" "The thread id of a process is either nil or a SmallInteger that defines how a process binds to threads. If nil, the process may run on any thread. The least significant bit of threadId is a flag. The most significant bits are a threadId. If the threadId is nil the process can run on any thread. If the flag (least significant bit) is set then If the threadId is positive the process can only be run on the thread with that thread Id. If the threadId is negative the process must not be run on the thread with that thread Id. If the flag (least significant bit) is not set then the thread id will not be negative and if non-zero is the id of the thread the process is currenty running on The flag is probably a mistake..." "In part, what's really going on here is an attempt to deal with threading on Mac. Events can only be delivered on the GUi thread. To avoid blocking and/or crashing the VM by making a blocking (e.g. FFI) call on the GUI thread we want a nice way of preventing a process from running on the GUI thread. We can then use a process whose threadId precludes running on the GUI thread to make blocking calls. The alternative, of arranging that events are delivered to a thread the VM does not run on, is problematic; it cannot support event callbacks." "So if we simplify, and threadId is only instructive to the VM, (i.e. can say ''run on a given thread'', or ''don't run on a given thread'', and ''don't care; run on any thread'') and does not necessarily hold the threadId of the thread the process is currenty bound to, how do we locate the threadId for a process temporarily affined to a thread for the duration of an FFI call? Note that a process *must* be bound to a thread for the duration of a threaded call (or foreign callback) so that return occurs on the correct thread. We can use the least significant bit to mean ''temporarily affined'', but we need to support ''don't run on this thread''. We could use bit fields (yuck); we could allocate a two field object and assign it to threadId when setting a process to not run on a given thread. This isn't so bad; use negative values to mean ''don't run on this thread'', and positive values to mean ''run on this thread''. Split the smallest SmallInteger (32-bit, 1 bit sign, 2-bit tags, leaving 29//2) into two 14 bit fields. The least significant 14 bits are the thread id the receiver is temporarily affined to. The most significant 14 bits are the thread id of the thread the proess is either bound to or excluded from. If zero, the process is agnostic. See CogThreadManager>>#maxNumThreads" ThreadIdIndex := 4. ThreadIdShift := 14. "could be 30 in 64-bits" "disown result/own argument flags" OwnVMForeignThreadFlag := 1. VMAlreadyOwnedHenceDoNotDisown := 2. ProcessUnaffinedOnDisown := 4. "& defined in StackInterpreter are..." DisownVMForFFICall := 16. DisownVMForThreading := 32. + "N.B. some of these DisownFlags are replicated in platforms/Cross/vm/sqVirtualMachine.h. + Hence they should always be initialized." + DisownVMForProcessorRelinquish := 64. + + DisownFlagsShift := DisownVMForProcessorRelinquish highBit! - DisownFlagsShift := DisownVMForThreading highBit! Item was changed: ----- Method: CoInterpreterMT>>preemptDisowningThread (in category 'vm scheduling') ----- preemptDisowningThread "Set the relevant state for disowningVMThread so that it can resume after being preempted and set disowningVMThread to nil to indicate preemption. N.B. This should only be sent from checkPreemptionOfDisowningThread. There are essentially four things to do. a) save the VM's notion of the current C stack pointers; these are pointers into a thread's stack and must be saved and restored in thread switch. b) save the VM's notion of the current Smalltalk execution point. This is simply the suspend half of a process switch that saves the current context in the current process. c) add the process to the thread's set of AWOL processes so that the scheduler won't try to run the process while the thread has disowned the VM. d) save the in-primitive VM state, newMethod and argumentCount ownVM: will restore the VM context as of disownVM: from the above when it finds it has been preempted." | activeProc activeContext preemptedThread | <var: #preemptedThread type: #'CogVMThread *'> <inline: false> self assert: disowningVMThread notNil. self assert: (disowningVMThread state = CTMUnavailable or: [disowningVMThread state = CTMWantingOwnership]). self assertCStackPointersBelongToDisowningThread. cogit recordEventTrace ifTrue: [self recordTrace: TracePreemptDisowningThread thing: (objectMemory integerObjectOf: disowningVMThread index) source: 0]. disowningVMThread cStackPointer: CStackPointer. disowningVMThread cFramePointer: CFramePointer. activeProc := self activeProcess. self assert: (objectMemory fetchPointer: MyListIndex ofObject: activeProc) = objectMemory nilObject. objectMemory storePointer: MyListIndex ofObject: activeProc withValue: (objectMemory splObj: ProcessInExternalCodeTag). activeContext := self ensureFrameIsMarried: framePointer SP: stackPointer. objectMemory storePointer: SuspendedContextIndex ofObject: activeProc withValue: activeContext. "The instructionPointer must be pushed because the convention for inactive stack pages is that the instructionPointer is top of stack. We need to know if this primitive is called from machine code because the invariant that the return pc of an interpreter callee calling a machine code caller is ceReturnToInterpreterPC must be maintained." self push: instructionPointer. self externalWriteBackHeadFramePointers. "Since pushing the awol process may realloc disowningVMThread we need to reassign. But since we're going to nil disowningVMThread anyway we can assign to a local." preemptedThread := cogThreadManager pushAWOLProcess: activeProc on: disowningVMThread. disowningVMThread := nil. preemptedThread priority: (self quickFetchInteger: PriorityIndex ofObject: activeProc). + (self ownerIndexOfProcess: activeProc) = 0 ifTrue: + [self setOwnerIndexOfProcess: activeProc to: preemptedThread index bind: false]. - (self ownerIndexOfProcess: activeProc) = 0 - ifTrue: [self setOwnerIndexOfProcess: activeProc to: preemptedThread index bind: false] - ifFalse: [self assert: (self ownerIndexOfProcess: activeProc) = preemptedThread index]. preemptedThread newMethodOrNull: newMethod; argumentCount: argumentCount; primitiveFunctionPointer: primitiveFunctionPointer; inMachineCode: instructionPointer <= objectMemory startOfMemory! Item was changed: ----- Method: CoInterpreterMT>>threadSchedulingLoop: (in category 'vm scheduling') ----- threadSchedulingLoop: vmThread "Enter a loop attempting to run the VM with the highest priority process and blocking on the thread's OS semaphore when unable to run that process. This version is for simulation only, simulating the longjmp back to the real threadSchedulingLoopImplementation: through exception handling." <cmacro: '(vmThread) threadSchedulingLoopImplementation(vmThread)'> cogit initializeProcessorStack: (self cStackRangeForThreadIndex: vmThread index) last. [[self threadSchedulingLoopImplementation: vmThread] on: ReenterThreadSchedulingLoop + do: [:ex| + self assert: ex returnValue = 1. + reenterThreadSchedulingLoop reset. + ex return: true]] whileTrue! - do: [:ex| self assert: ex returnValue = 1. ex return: true]] whileTrue! Item was changed: ----- Method: CoInterpreterMT>>threadSwitchIfNecessary:from: (in category 'process primitive support') ----- threadSwitchIfNecessary: newProc from: sourceCode "Invoked from transferTo:from: to switch threads if the new process is bound or affined to some other thread." + | newProcOwnerIndex vmThread activeContext | - | newProcThreadId vmThread activeContext | self assert: (cogThreadManager vmOwnerIs: cogThreadManager ioGetThreadLocalThreadIndex). deferThreadSwitch ifTrue: [^self]. "If the current process is unaffined or it is affined to the current thread we're ok to run, but we should yield asap if a higher-priority t6hread wants the VM." + newProcOwnerIndex := self ownerIndexOfProcess: newProc. + ((activeProcessAffined := newProcOwnerIndex ~= 0) + and: [(cogThreadManager vmOwnerIsCompatibleWith: newProcOwnerIndex) not]) ifFalse: - newProcThreadId := self ownerIndexOfProcess: newProc. - ((activeProcessAffined := newProcThreadId ~= 0) - and: [(cogThreadManager vmOwnerIs: newProcThreadId) not]) ifFalse: [(self quickFetchInteger: PriorityIndex ofObject: newProc) < maxWaitingPriority ifTrue: [checkThreadActivation := true. self forceInterruptCheck]. ^self]. "The current process is affined to a thread, but not to the current owner. So switch to that owner." self cCode: '' inSmalltalk: + [transcript + ensureCr; + f: 'threadSwitchIfNecessary: %08x from: %d owner %d -> %d\n' + printf: { newProc. sourceCode. cogThreadManager getVMOwner. newProcOwnerIndex }]. + - [self transcript ensureCr; nextPutAll: #threadSwitchIfNecessary:from:; space; print: newProc; - space; print: cogThreadManager getVMOwner; nextPutAll: '->'; print: newProcThreadId; cr; flush]. "If the activeProcess doesn't have a context yet, it needs one from which the new thread can resume execution." (objectMemory fetchPointer: SuspendedContextIndex ofObject: newProc) = objectMemory nilObject ifTrue: [self assert: newProc = self activeProcess. self push: instructionPointer. self externalWriteBackHeadFramePointers. activeContext := self ensureFrameIsMarried: framePointer SP: stackPointer. objectMemory storePointer: SuspendedContextIndex ofObject: newProc withValue: activeContext]. + newProcOwnerIndex < 0 + ifTrue: + [self assert: newProcOwnerIndex negated = cogThreadManager getVMOwner. + vmThread := cogThreadManager ensureWillingThread. + self deny: vmThread index = cogThreadManager getVMOwner. + self assert: (cogThreadManager threadIndex: vmThread index isCompatibleWith: newProcOwnerIndex)] + ifFalse: + [vmThread := cogThreadManager vmThreadAt: newProcOwnerIndex. + vmThread priority: (self quickFetchInteger: PriorityIndex ofObject: newProc). + vmThread state = CTMUnavailable ifTrue: + [vmThread state: CTMWantingOwnership]]. - vmThread := cogThreadManager vmThreadAt: newProcThreadId. - vmThread priority: (self quickFetchInteger: PriorityIndex ofObject: newProc). - vmThread state = CTMUnavailable ifTrue: - [vmThread state: CTMWantingOwnership]. self returnToSchedulingLoopAndReleaseVMOrWakeThread: vmThread source: CSSwitchIfNeccessary! Item was changed: ----- Method: CoInterpreterMT>>transferTo:from: (in category 'process primitive support') ----- transferTo: newProc from: sourceCode "Record a process to be awoken on the next interpreter cycle. Override to potentially switch threads either if the new process is bound to another thread, or if there is no runnable process but there is a waiting thread. Note that the abort on no runnable process has beeen moved here from wakeHighestPriority." | sched oldProc activeContext | <inline: false> statProcessSwitch := statProcessSwitch + 1. self push: instructionPointer. self externalWriteBackHeadFramePointers. self assertValidExecutionPointe: instructionPointer r: framePointer s: stackPointer. "ensureMethodIsCogged: in makeBaseFrameFor: in externalSetStackPageAndPointersForSuspendedContextOfProcess: below may do a code compaction. Nil instructionPointer to avoid it getting pushed twice." instructionPointer := 0. sched := self schedulerPointer. oldProc := objectMemory fetchPointer: ActiveProcessIndex ofObject: sched. self recordContextSwitchFrom: oldProc in: sourceCode. activeContext := self ensureFrameIsMarried: framePointer SP: stackPointer + objectMemory wordSize. objectMemory storePointer: SuspendedContextIndex ofObject: oldProc withValue: activeContext. newProc ifNil: ["Two possibilities. One, there is at least one thread waiting to own the VM in which case it should be activated. Two, there are no processes to run and so abort." self willingVMThread ifNotNil: [:vmThread| vmThread state = CTMWantingOwnership ifTrue: [self returnToSchedulingLoopAndReleaseVMOrWakeThread: vmThread source: sourceCode]]. self error: 'scheduler could not find a runnable process']. + "Switch to the new process" objectMemory storePointer: ActiveProcessIndex ofObject: sched withValue: newProc; storePointerUnchecked: MyListIndex ofObject: newProc withValue: objectMemory nilObject. + self externalSetStackPageAndPointersForSuspendedContextOfProcess: newProc. + "Finally thread switch if required" + self threadSwitchIfNecessary: newProc from: sourceCode! - - self threadSwitchIfNecessary: newProc from: sourceCode. - - self externalSetStackPageAndPointersForSuspendedContextOfProcess: newProc! Item was changed: ----- Method: CoInterpreterMT>>tryToExecuteSmalltalk: (in category 'vm scheduling') ----- tryToExecuteSmalltalk: vmThread "Attempt to run the current process, if it exists, on the given vmThread." <var: #vmThread type: #'CogVMThread *'> | dvmt activeProc ownerIndex | <var: #dvmt type: #'CogVMThread *'> self assert: (cogThreadManager vmOwnerIs: vmThread index). self assert: cogThreadManager ioGetThreadLocalThreadIndex = vmThread index. dvmt := disowningVMThread. disowningVMThread ifNil: [activeProc := self activeProcess] ifNotNil: [self preemptDisowningThread. activeProc := self wakeHighestPriority. activeProc ifNil: [activeProc := objectMemory nilObject] ifNotNil: [objectMemory storePointerUnchecked: MyListIndex ofObject: activeProc withValue: objectMemory nilObject]. objectMemory storePointer: ActiveProcessIndex ofObject: self schedulerPointer withValue: activeProc]. activeProc = objectMemory nilObject ifTrue: [cogThreadManager releaseVM. ^nil]. ownerIndex := self ownerIndexOfProcess: activeProc. + (ownerIndex = 0 or: [cogThreadManager vmOwnerIsCompatibleWith: ownerIndex]) ifTrue: - (ownerIndex = 0 or: [cogThreadManager vmOwnerIs: ownerIndex]) ifTrue: [self assert: (objectMemory fetchPointer: MyListIndex ofObject: self activeProcess) = objectMemory nilObject. (objectMemory fetchPointer: SuspendedContextIndex ofObject: activeProc) ~= objectMemory nilObject ifTrue: [self externalSetStackPageAndPointersForSuspendedContextOfProcess: activeProc]. instructionPointer = cogit ceReturnToInterpreterPC ifTrue: [self deny: (self isMachineCodeFrame: framePointer). instructionPointer := self iframeSavedIP: framePointer]. self enterSmalltalkExecutive. "When we return here we should have already given up the VM and so we cannot touch any interpreter state." "NOTREACHED"]. cogThreadManager wakeVMThreadFor: ownerIndex! Item was added: + ----- Method: CogThreadManager>>assertValidProcessorStackPointersForIndex: (in category 'simulation') ----- + assertValidProcessorStackPointersForIndex: threadIndex + | time range | + time := Time utcMicrosecondClock. + range := coInterpreter cStackRangeForThreadIndex: threadIndex. + self assert: ((range includes: cogit processor fp) and: [range includes: cogit processor sp]) + + "(0 to: numThreads + numThreadsIncrement) + detect: + [:i| | range | + range := coInterpreter cStackRangeForThreadIndex: threadIndex. + ((range includes: cogit processor fp) + and: [range includes: cogit processor sp])] + ifNone: []" + + "{ coInterpreter whereIs: cogit processor fp. + coInterpreter whereIs: cogit processor sp }"! Item was added: + ----- Method: CogThreadManager>>assertValidStackPointersInState:forIndex: (in category 'simulation') ----- + assertValidStackPointersInState: registerState forIndex: threadIndex + | time range | + time := Time utcMicrosecondClock. + range := coInterpreter cStackRangeForThreadIndex: threadIndex. + self assert: ((range includes: (registerState at: cogit processor registerStateFPIndex)) + and: [range includes: (registerState at: cogit processor registerStateSPIndex)]) + + "(0 to: numThreads + numThreadsIncrement) + detect: + [:i| | range | + range := coInterpreter cStackRangeForThreadIndex: threadIndex. + ((range includes: (registerState at: cogit processor registerStateFPIndex)) + and: [range includes: (registerState at: cogit processor registerStateSPIndex)])] + ifNone: []" + + "{ coInterpreter whereIs: (registerState at: cogit processor registerStateFPIndex). + coInterpreter whereIs: (registerState at: cogit processor registerStateSPIndex) }"! Item was changed: ----- Method: CogThreadManager>>ensureInitializedProcessor:forThreadIndex: (in category 'simulation') ----- ensureInitializedProcessor: aProcessor forThreadIndex: threadIndex "Ensure aProcessor has stack pointers within its defined range, initializing it if not." <doNotGenerate> | range | range := coInterpreter cStackRangeForThreadIndex: threadIndex. self assert: (range includes: aProcessor fp) = (range includes: aProcessor sp). ((range includes: aProcessor fp) and: [range includes: aProcessor sp]) ifFalse: [aProcessor smashCallerSavedRegistersWithValuesFrom: 16r90000000 by: coInterpreter objectMemory wordSize / 2. + cogit initializeProcessorStack: range last. + self assertValidProcessorStackPointersForIndex: threadIndex]! - cogit initializeProcessorStack: range last]! Item was added: + ----- Method: CogThreadManager>>ensureWillingThread (in category 'scheduling') ----- + ensureWillingThread + | willingThread newIndex | + willingThread := self willingVMThread. + willingThread ifNotNil: + [^willingThread]. + 1 to: numThreads do: + [:index| + (self vmThreadAt: index) state ifNil: + [self startThreadForThreadIndex: index. + ^self vmThreadAt: index]]. + self startThreadForThreadIndex: (newIndex := numThreads + 1). + ^self vmThreadAt: newIndex! Item was changed: ----- Method: CogThreadManager>>ioWaitOnOSSemaphore: (in category 'simulation') ----- ioWaitOnOSSemaphore: aSemaphorePtr <var: #anOSSemaphore type: #'sqOSSemaphore *'> <returnTypeC: #void> <doNotGenerate> "See platforms/Cross/vm/sq.h for the real definition." "Simulate the VM's heartbeat by calling checkVMOwnershipFromHeartbeat if the wait times-out." [aSemaphorePtr value waitTimeoutMSecs: 1000] whileTrue: [coInterpreter checkVMOwnershipFromHeartbeat]. self deny: vmOwner = 0. + cogit withProcessorHaltedDo: + [| processor | + processor := cogit processor. + registerStates + at: vmOwner + ifPresent: + [:registerState| + self assertValidStackPointersInState: registerState forIndex: vmOwner]. + processor setRegisterState: (registerStates + at: vmOwner - cogit processor setRegisterState: (registerStates at: vmOwner ifAbsentPut: + [self ensureInitializedProcessor: processor forThreadIndex: vmOwner. + processor registerState])]! - [self ensureInitializedProcessor: cogit processor forThreadIndex: vmOwner. - cogit processor registerState])! Item was added: + ----- Method: CogThreadManager>>registerStates (in category 'simulation') ----- + registerStates + <doNotGenerate> + ^registerStates! Item was changed: ----- Method: CogThreadManager>>releaseVM (in category 'public api') ----- releaseVM + <inline: #always> - "In the simulation this is where register state is saved; it is switched in tryLockVMOwnerTo:." - self cCode: [] inSmalltalk: - [vmOwner ~= 0 ifTrue: - [registerStates at: vmOwner put: cogit processor registerState]]. self setVMOwner: 0! Item was changed: ----- Method: CogThreadManager>>setVMOwner: (in category 'public api') ----- setVMOwner: indexOrZero "An ugly accessor used in only three cases: 1. by ownVMFromUnidentifiedThread when the VM is first locked to the thread id of the unidentified thread, and then, once identified, to the thread's index. 2. by wakeVMThreadFor: used by the two-level scheduler to switch threads when a Smalltalk process switch occurs to a process affined to another thread. 3. to release the VM (set the owner to zero)" <inline: #always> + self cCode: '' inSmalltalk: + [coInterpreter transcript + ensureCr; + f: 'setVMOwner: %d -> %d (%s)\n' + printf: { vmOwner. indexOrZero. thisContext home sender selector }. + "In the simulation this is where register state is saved; it is switched here and in tryLockVMOwnerTo:." + (vmOwner ~= 0 and: [vmOwner ~= indexOrZero]) ifTrue: + [self assertValidProcessorStackPointersForIndex: vmOwner. + registerStates at: vmOwner put: cogit processor registerState]. + (registerStates at: indexOrZero ifPresent: [:registerState| cogit processor setRegisterState: registerState])]. vmOwner := indexOrZero. self sqLowLevelMFence! Item was changed: ----- Method: CogThreadManager>>threadIndex:isCompatibleWith: (in category 'public api-testing') ----- threadIndex: aThreadIndex isCompatibleWith: processThreadId "Test if processThreadId is ok to run on a thread with the given index." <inline: true> + self assert: aThreadIndex > 0. ^processThreadId >= 0 + ifTrue: [aThreadIndex = processThreadId] + ifFalse: [aThreadIndex ~= processThreadId negated]! - ifTrue: [aThreadIndex = (processThreadId >> 1)] - ifFalse: [aThreadIndex ~= (0 - (processThreadId >> 1))]! Item was changed: ----- Method: CogThreadManager>>tryLockVMOwnerTo: (in category 'simulation') ----- tryLockVMOwnerTo: threadIndex "In the real VM this is a direct call of Cogit>>#tryLockVMOwnerTo:/ceTryLockVMOwner. + In the simulation this is where register state is saved and switched, simulating a thread + switch. setVMOwner: also saves register state. The code here and in setVMOwner: allow + us to avoid the expensive and complex MultiProcessor hack." - In the simulation this is where register state is saved and switched, simulaitng a thread switch. - releaseVM also saves register state. The code here and in registerState allow us to avoid the - expensive and complex MultiProcessor hack." <doNotGenerate> | result | self deny: threadIndex = 0. cogit withProcessorHaltedDo: + [| currentOwner prior processor | - [| prior processor | processor := cogit processor. prior := processor registerState. "A thread switch would (have) occur(ed) if it were that the VM were owned other than by threadIndex" + (currentOwner := vmOwner) ~= threadIndex ifTrue: + [currentOwner ~= 0 ifTrue: + [self assertValidStackPointersInState: prior forIndex: currentOwner. + registerStates at: currentOwner put: prior]. - vmOwner ~= threadIndex ifTrue: - [vmOwner ~= 0 ifTrue: - [registerStates at: vmOwner put: prior]. processor setRegisterState: (registerStates at: threadIndex ifAbsentPut: [self ensureInitializedProcessor: processor forThreadIndex: threadIndex. processor registerState])]. result := cogit tryLockVMOwnerTo: threadIndex. self assert: result = (threadIndex = vmOwner). + result + ifTrue: [registerStates at: threadIndex put: processor registerState] + ifFalse: [processor setRegisterState: prior]. + coInterpreter transcript + ensureCr; + f: (result ifTrue: ['tryLockVMOwner %d -> %d (%s) ok\n'] ifFalse: ['tryLockVMOwner %d -> %d (%s) FAILED\n']) + printf: { currentOwner. threadIndex. thisContext home sender selector }. + self assertValidProcessorStackPointersForIndex: vmOwner]. - registerStates at: threadIndex put: processor registerState. - threadIndex ~= vmOwner ifTrue: "the lock attempt failed; undo the (processor) thread switch." - [processor setRegisterState: prior]]. ^result! Item was changed: ----- Method: CogThreadManager>>wakeVMThreadFor: (in category 'public api') ----- wakeVMThreadFor: index "Transfer the VM to the thread with index. Called from a thread that finds the highest priority runnable process is bound to the thread with index index." <returnTypeC: #void> | vmThread | self assert: (self vmIsOwned and: [(self vmOwnerIs: index) not]). self assert: (index between: 1 and: numThreads). self setVMOwner: index. vmThread := threads at: index. vmThread state ifNil: [self startThreadForThreadInfo: vmThread] ifNotNil: + [self assert: (vmThread state = CTMWantingOwnership + or: [vmThread state = CTMAssignableOrInVM]). - [self assert: vmThread state = CTMWantingOwnership. self ioSignalOSSemaphore: (self addressOf: vmThread osSemaphore)]. self ioTransferTimeslice! Item was changed: ----- Method: CogThreadManager>>willingVMThread (in category 'thread set') ----- willingVMThread "Answer a pointer to a live CogVMThread in any of the ``will do VM work'' states (other than the current owner if the VM is owned), or nil if none. Preferentially answer threads wanting ownership." <returnTypeC: #'CogVMThread *'> | thread threadWantingVM threadWilling | <inline: false> threadWantingVM := threadWilling := nil. 1 to: numThreads do: [:i| (self vmOwnerIs: i) ifFalse: [thread := threads at: i. + thread state = CTMWantingOwnership ifTrue: - thread state = CTMWantingOwnership ifTrue: [(threadWantingVM isNil or: [threadWantingVM priority < thread priority]) ifTrue: [threadWantingVM := thread]]. + thread state = CTMAssignableOrInVM ifTrue: - thread state = CTMAssignableOrInVM ifTrue: [(threadWilling isNil or: [threadWilling priority < thread priority]) ifTrue: [threadWilling := thread]]]]. ^threadWantingVM ifNil: [threadWilling]! Item was added: + ----- Method: Exception>>reset (in category '*VMMaker-reuse') ----- + reset + "Allow the receiver to be resignalled" + signalContext := nil!

1 0

[OpenSmalltalk/opensmalltalk-vm] c265f9: Move all function defs in sqWin32Window.c to begin...
by Eliot Miranda 05 Nov '21

05 Nov '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: c265f9fb46a35a85e751e01785472b896ce0a3c2 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/c265f9fb46a35a85e7… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-11-05 (Fri, 05 Nov 2021) Changed paths: M platforms/win32/vm/sqWin32.h M platforms/win32/vm/sqWin32Window.c Log Message: ----------- Move all function defs in sqWin32Window.c to beginning of line so I can find em. Make static those functions there-in which should be.

1 0

[OpenSmalltalk/opensmalltalk-vm] 0d706f: Mac UI: Work in progress to include unicode in key...
by Eliot Miranda 03 Nov '21

03 Nov '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 0d706fcd491ec326a89004113eea0bf6d269b33c https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/0d706fcd491ec326a8… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-11-03 (Wed, 03 Nov 2021) Changed paths: M platforms/iOS/vm/OSX/sqSqueakOSXApplication+events.m M platforms/iOS/vm/iPhone/Classes/SqueakUIView.m Log Message: ----------- Mac UI: Work in progress to include unicode in keyUp and keyDowqn events if VM is compiled with INCLUDE_UNICODE_IN_ALL_KEYBOARD_EVENTS, or the abbreviation IUIAKE. This code works for keyDown but not for the trailing keyUp. Anyone who understands this code better than I is welcome to fix that issue :-)

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev November 2021