Merge branch 'master' into misc-2

Author: LinqLover

packages/BaselineOfSimulationStudio.package/BaselineOfSimulationStudio.class/instance/installPreviewDependenciesForTests.st

@@ -2,6 +2,6 @@ scripts
 installPreviewDependenciesForTests
 
 	^ self installPreviewDependencies: {
-		self depInbox: 'SUnit-ct.125'. "TestCase>>#runCaseWithoutTimeout for SandboxKernelTest"
+		self depInbox: 'SUnit-ct.133'. "TestCase>>#runCaseWithoutTimeout for SandboxKernelTest"
 		self depInbox: 'SUnit-ct.132'. "TestCase>>#assert:equals:description: with lazy descriptions"
 	}

packages/BaselineOfSimulationStudio.package/BaselineOfSimulationStudio.class/methodProperties.json

@@ -8,5 +8,5 @@
 		"depSqueakSource:name:" : "ct 4/12/2021 22:27",
 		"depSqueakSource:name:targetRepository:" : "ct 4/12/2021 22:45",
 		"installPreviewDependencies:" : "ct 3/5/2021 22:10",
-		"installPreviewDependenciesForTests" : "ct 11/7/2021 16:25",
+		"installPreviewDependenciesForTests" : "ct 12/29/2021 18:46",
 		"projectClass" : "ct 3/5/2021 19:01" } }

packages/SimulationStudio-Base.package/Context.extension/instance/simBasicObjectIdentityHash..st

@@ -5,4 +5,5 @@ simBasicObjectIdentityHash: anObject
 	Primitive.  See Object documentation whatIsAPrimitive."
 
 	<primitive: 75>
+	self flag: #brittle. "This implementation relies on primitiveIdentityHash being implemented as a mirror primitive; however, the VM does not guarantee this. See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217866.html"
 	^ self primitiveFailed

packages/SimulationStudio-Base.package/Context.extension/instance/simObject.setIsReadOnly..st

@@ -0,0 +1,7 @@
+*SimulationStudio-Base-mirror primitives
+simObject: anObject setIsReadOnly: aBoolean
+	"Set the read-only flag of the argument anObject to the given value aBoolean and answer the previous value of the flag, without sending a message to anObject. This mimics the action of the VM when an object is set as read-only or writeable. See Object >> #setIsReadOnlyObject:."
+
+	<primitive: 164 error: ec>
+	self flag: #brittle. "This implementation relies on primitiveSetImmutability being implemented as a mirror primitive; however, the VM does not guarantee this. See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217866.html"
+	self primitiveFailed

packages/SimulationStudio-Base.package/Context.extension/instance/simObjectClone..st

@@ -0,0 +1,9 @@
+*SimulationStudio-Base-mirror primitives
+simObjectClone: anObject
+	"Answer a copy the argument anObject which share's the original's instance variables, without sending it a message. This mimics the action of the VM when it clones an object.
+	 Used to simulate the execution machinery by, for example, the debugger.
+	 Primitive.  See Object documentation whatIsAPrimitive."
+
+	<primitive: 148>
+	self flag: #brittle. "This implementation relies on primitiveClone being implemented as a mirror primitive; however, the VM does not guarantee this. See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217866.html"
+	self primitiveFailed

packages/SimulationStudio-Base.package/Context.extension/instance/simObjectIsReadOnly..st

@@ -0,0 +1,7 @@
+*SimulationStudio-Base-mirror primitives
+simObjectIsReadOnly: anObject
+	"Answer if the argument is read-only without sending it a message. This mimics the action of the VM when an object is tested for writeability. See Object >> #isReadOnlyObject."
+
+	<primitive: 163 error: ec>
+	self flag: #brittle. "This implementation relies on primitiveGetImmutability being implemented as a mirror primitive; however, the VM does not guarantee this. See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217866.html"
+	^ (self objectClass: anObject) isImmediateClass

packages/SimulationStudio-Base.package/Context.extension/methodProperties.json

@@ -8,7 +8,10 @@
 		"debug" : "ct 3/5/2021 02:21",
 		"insertEnsure:" : "ct 3/5/2021 19:35",
 		"insertOn:do:" : "ct 3/5/2021 19:35",
-		"simBasicObjectIdentityHash:" : "ct 12/28/2021 17:48",
+		"simBasicObjectIdentityHash:" : "ct 12/29/2021 15:00",
 		"simCustomizationLevel" : "ct 3/5/2021 19:23",
+		"simObject:setIsReadOnly:" : "ct 12/29/2021 14:59",
+		"simObjectClone:" : "ct 12/29/2021 15:00",
 		"simObjectIdentityHash:" : "ct 12/28/2021 19:26",
+		"simObjectIsReadOnly:" : "ct 12/29/2021 15:00",
 		"wrap:" : "ct 3/5/2021 19:30" } }

packages/SimulationStudio-Base.package/SimulationContext.class/instance/lookupSelector.inClass..st

@@ -0,0 +1,4 @@
+controlling
+lookupSelector: aSymbol inClass: aClass
+
+	^ aClass lookupSelector: aSymbol

packages/SimulationStudio-Base.package/SimulationContext.class/instance/send.to.with.lookupIn..st

@@ -0,0 +1,34 @@
+controlling
+send: selector to: rcvr with: arguments lookupIn: lookupClass
+	"Simulate the action of sending a message with selector and arguments to rcvr. The argument, lookupClass, is the class in which to lookup the message. This is the receiver's class for normal messages, but for super messages it will be some specific class related to the source method."
+
+	| meth methClass primIndex val ctxt |
+	"+++ CHANGE +++"
+	self flag: #moveUpstream.
+	(meth := self lookupSelector: selector inClass: lookupClass) ifNil:
+	"--- CHANGE ---"
+		[selector == #doesNotUnderstand: ifTrue:
+			[self error: 'Recursive message not understood!' translated].
+		^self send: #doesNotUnderstand:
+				to: rcvr
+				with: {(Message selector: selector arguments: arguments) lookupClass: lookupClass}
+				lookupIn: lookupClass].
+	
+	((methClass := self objectClass: meth) == CompiledMethod or: [methClass == CompiledBlock]) ifFalse:
+		["Object as Methods (OaM) protocol: 'The contract is that, when the VM encounters an ordinary object (rather than a compiled method) in the method dictionary during lookup, it sends it the special selector #run:with:in: providing the original selector, arguments, and receiver.'. DOI: 10.1145/2991041.2991062."
+		^self send: #run:with:in:
+			to: meth
+			with: {selector. arguments. rcvr}].
+	
+	meth numArgs = arguments size ifFalse:
+		[^ self error: ('Wrong number of arguments in simulated message {1}' translated format: {selector})].
+	(primIndex := meth primitive) > 0 ifTrue:
+		[val := self doPrimitive: primIndex method: meth receiver: rcvr args: arguments.
+		(self isPrimFailToken: val) ifFalse:
+			[^val]].
+	
+	ctxt := self activateMethod: meth withArgs: arguments receiver: rcvr.
+	(primIndex isInteger and: [primIndex > 0]) ifTrue:
+		[ctxt failPrimitiveWith: val].
+	
+	^ctxt

packages/SimulationStudio-Base.package/SimulationContext.class/methodProperties.json

@@ -27,12 +27,14 @@
 		"initialize" : "ct 3/2/2021 23:01",
 		"initializeFrom:" : "ct 12/28/2020 19:43",
 		"initializeStack" : "ct 3/2/2021 23:01",
+		"lookupSelector:inClass:" : "ct 12/29/2021 14:53",
 		"pop" : "ct 12/28/2020 19:07",
 		"printOn:" : "ct 12/28/2020 15:49",
 		"push:" : "ct 12/28/2020 19:07",
 		"runSimulated:" : "ct 1/10/2021 20:14",
 		"runSimulated:contextAtEachStep:" : "ct 3/15/2021 12:06",
 		"runUntilErrorOrReturnFrom:" : "ct 3/28/2021 12:10",
+		"send:to:with:lookupIn:" : "ct 12/29/2021 14:52",
 		"shouldNotImplement:" : "ct 12/28/2020 15:29",
 		"size" : "ct 12/28/2020 19:14",
 		"stackp:" : "ct 11/11/2021 19:14",