Skip to content

Identifier Tracking #57

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Draft
LinqLover wants to merge 1 commit into
base: master
Choose a base branch
from
Draft

Identifier Tracking #57

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions ...es/SimulationStudio-Support.package/ProtoObject.extension/instance/trackingFrom.argAt..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
*SimulationStudio-Support-tracking
trackingFrom: aContext argAt: argIndex

^ TrackedObject tracking: self from: aContext argAt: argIndex
4 changes: 4 additions & 0 deletions ...imulationStudio-Support.package/ProtoObject.extension/instance/trackingFrom.instVarAt..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
*SimulationStudio-Support-tracking
trackingFrom: aContext instVarAt: instVarIndex

^ TrackedObject tracking: self from: aContext instVarAt: instVarIndex
4 changes: 4 additions & 0 deletions ...imulationStudio-Support.package/ProtoObject.extension/instance/trackingFrom.tempVarAt..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
*SimulationStudio-Support-tracking
trackingFrom: aContext tempVarAt: tempVarIndex

^ TrackedObject tracking: self from: aContext tempVarAt: tempVarIndex
4 changes: 4 additions & 0 deletions .../SimulationStudio-Support.package/ProtoObject.extension/instance/trackingReceiverFrom..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
*SimulationStudio-Support-tracking
trackingReceiverFrom: aContext

^ TrackedObject trackingReceiver: self from: aContext
4 changes: 4 additions & 0 deletions packages/SimulationStudio-Support.package/ProtoObject.extension/instance/untracking.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
*SimulationStudio-Support-tracking
untracking

^ self
9 changes: 9 additions & 0 deletions packages/SimulationStudio-Support.package/ProtoObject.extension/methodProperties.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
{
"class" : {
},
"instance" : {
"trackingFrom:argAt:" : "ct 3/21/2022 22:53",
"trackingFrom:instVarAt:" : "ct 3/21/2022 22:35",
"trackingFrom:tempVarAt:" : "ct 3/21/2022 22:34",
"trackingReceiverFrom:" : "ct 3/21/2022 22:56",
"untracking" : "ct 3/21/2022 23:04" } }
2 changes: 2 additions & 0 deletions packages/SimulationStudio-Support.package/ProtoObject.extension/properties.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
{
"name" : "ProtoObject" }
Empty file added packages/SimulationStudio-Support.package/TrackedObject.class/README.md
View file
Open in desktop
Empty file.
4 changes: 4 additions & 0 deletions packages/SimulationStudio-Support.package/TrackedObject.class/class/for..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
instance creation
for: anObject

^ self new xxxtrackedObject: anObject
5 changes: 5 additions & 0 deletions packages/SimulationStudio-Support.package/TrackedObject.class/class/tracking.from.argAt..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
instance creation
tracking: anObject from: aContext argAt: argIndex

^ (self for: anObject)
xxxtrackFrom: aContext argAt: argIndex
5 changes: 5 additions & 0 deletions ...es/SimulationStudio-Support.package/TrackedObject.class/class/tracking.from.instVarAt..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
instance creation
tracking: anObject from: aContext instVarAt: tempIndex

^ (self for: anObject)
xxxtrackFrom: aContext instVarAt: tempIndex
5 changes: 5 additions & 0 deletions ...es/SimulationStudio-Support.package/TrackedObject.class/class/tracking.from.tempVarAt..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
instance creation
tracking: anObject from: aContext tempVarAt: tempIndex

^ (self for: anObject)
xxxtrackFrom: aContext tempVarAt: tempIndex
5 changes: 5 additions & 0 deletions ...ages/SimulationStudio-Support.package/TrackedObject.class/class/trackingReceiver.from..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
instance creation
trackingReceiver: anObject from: aContext

^ (self for: anObject)
xxxtrackReceiverFrom: aContext
4 changes: 4 additions & 0 deletions packages/SimulationStudio-Support.package/TrackedObject.class/instance/doesNotUnderstand..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
dynamic forwarding
doesNotUnderstand: aMessage

^ aMessage sendTo: object
5 changes: 5 additions & 0 deletions ...ages/SimulationStudio-Support.package/TrackedObject.class/instance/trackingFrom.argAt..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
tracking
trackingFrom: aContext argAt: argIndex

^ self xxxcopy
xxxtrackFrom: aContext argAt: argIndex
5 changes: 5 additions & 0 deletions .../SimulationStudio-Support.package/TrackedObject.class/instance/trackingFrom.instVarAt..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
tracking
trackingFrom: aContext instVarAt: instVarIndex

^ self xxxcopy
xxxtrackFrom: aContext instVarAt: instVarIndex
5 changes: 5 additions & 0 deletions .../SimulationStudio-Support.package/TrackedObject.class/instance/trackingFrom.tempVarAt..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
tracking
trackingFrom: aContext tempVarAt: tempVarIndex

^ self xxxcopy
xxxtrackFrom: aContext tempVarAt: tempVarIndex
5 changes: 5 additions & 0 deletions ...es/SimulationStudio-Support.package/TrackedObject.class/instance/trackingReceiverFrom..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
tracking
trackingReceiverFrom: aContext

^ self xxxcopy
xxxtrackReceiverFrom: aContext
4 changes: 4 additions & 0 deletions packages/SimulationStudio-Support.package/TrackedObject.class/instance/untracking.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
accessing
untracking

^ object
4 changes: 4 additions & 0 deletions packages/SimulationStudio-Support.package/TrackedObject.class/instance/xxxcopy.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
copying
xxxcopy

^ self xxxshallowCopy xxxpostCopy
4 changes: 4 additions & 0 deletions packages/SimulationStudio-Support.package/TrackedObject.class/instance/xxxpostCopy.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
copying
xxxpostCopy

tempVars := tempVars copy.
5 changes: 5 additions & 0 deletions packages/SimulationStudio-Support.package/TrackedObject.class/instance/xxxshallowCopy.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
copying
xxxshallowCopy
<primitive: 148 error: ec>

^ Error signal: 'primitive failed'
6 changes: 6 additions & 0 deletions ...ages/SimulationStudio-Support.package/TrackedObject.class/instance/xxxtrackFrom.argAt..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
accessing
xxxtrackFrom: aContext argAt: argIndex

((args ifNil: [args := IdentityDictionary new])
at: aContext ifAbsentPut: [Set new])
add: argIndex.
6 changes: 6 additions & 0 deletions .../SimulationStudio-Support.package/TrackedObject.class/instance/xxxtrackFrom.instVarAt..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
accessing
xxxtrackFrom: aContext instVarAt: instVarIndex

((instVars ifNil: [instVars := IdentityDictionary new])
at: aContext ifAbsentPut: [Set new])
add: instVarIndex.
6 changes: 6 additions & 0 deletions .../SimulationStudio-Support.package/TrackedObject.class/instance/xxxtrackFrom.tempVarAt..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
accessing
xxxtrackFrom: aContext tempVarAt: tempVarIndex

((tempVars ifNil: [tempVars := IdentityDictionary new])
at: aContext ifAbsentPut: [Set new])
add: tempVarIndex.
5 changes: 5 additions & 0 deletions ...es/SimulationStudio-Support.package/TrackedObject.class/instance/xxxtrackReceiverFrom..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
accessing
xxxtrackReceiverFrom: aContext

(receivers ifNil: [receivers := IdentitySet new])
add: aContext.
4 changes: 4 additions & 0 deletions packages/SimulationStudio-Support.package/TrackedObject.class/instance/xxxtrackedObject..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
accessing
xxxtrackedObject: anObject

object := anObject.
4 changes: 4 additions & 0 deletions packages/SimulationStudio-Support.package/TrackedObject.class/instance/xxxtrackedObject.st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
accessing
xxxtrackedObject

^ object
23 changes: 23 additions & 0 deletions packages/SimulationStudio-Support.package/TrackedObject.class/methodProperties.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,23 @@
{
"class" : {
"for:" : "ct 3/21/2022 22:24",
"tracking:from:argAt:" : "ct 3/21/2022 22:54",
"tracking:from:instVarAt:" : "ct 3/21/2022 22:33",
"tracking:from:tempVarAt:" : "ct 3/21/2022 22:26",
"trackingReceiver:from:" : "ct 3/21/2022 22:57" },
"instance" : {
"doesNotUnderstand:" : "ct 3/21/2022 22:26",
"trackingFrom:argAt:" : "ct 3/21/2022 22:53",
"trackingFrom:instVarAt:" : "ct 3/21/2022 22:35",
"trackingFrom:tempVarAt:" : "ct 3/21/2022 22:34",
"trackingReceiverFrom:" : "ct 3/21/2022 22:55",
"untracking" : "ct 3/21/2022 23:04",
"xxxcopy" : "ct 3/21/2022 22:28",
"xxxpostCopy" : "ct 3/21/2022 22:29",
"xxxshallowCopy" : "ct 3/21/2022 22:28",
"xxxtrackFrom:argAt:" : "ct 3/21/2022 22:53",
"xxxtrackFrom:instVarAt:" : "ct 3/21/2022 22:36",
"xxxtrackFrom:tempVarAt:" : "ct 3/21/2022 22:35",
"xxxtrackReceiverFrom:" : "ct 3/21/2022 22:56",
"xxxtrackedObject" : "ct 3/21/2022 22:24",
"xxxtrackedObject:" : "ct 3/21/2022 22:25" } }
18 changes: 18 additions & 0 deletions packages/SimulationStudio-Support.package/TrackedObject.class/properties.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,18 @@
{
"category" : "SimulationStudio-Support",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "",
"instvars" : [
"object",
"tempVars",
"instVars",
"args",
"receivers" ],
"name" : "TrackedObject",
"pools" : [
],
"super" : "ProtoObject",
"type" : "normal" }
Empty file added packages/SimulationStudio-Support.package/TrackingSimulator.class/README.md
View file
Open in desktop
Empty file.
13 changes: 13 additions & 0 deletions ....package/TrackingSimulator.class/instance/context.activateMethod.withArgs.receiver.do..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
controlling
context: aContext activateMethod: aCompiledMethod withArgs: arguments receiver: receiver do: aBlock

| newContext |
newContext := super context: aContext activateMethod: aCompiledMethod withArgs: arguments receiver: receiver do: aBlock.

newContext arguments withIndexDo: [:arg :index |
newContext at: index put:
(self tracking: arg fromArgAt: index in: newContext)].
"newContext receiver:
(self trackingReceiver: newContext receiver in: newContext)."

^ newContext
11 changes: 11 additions & 0 deletions ....package/TrackingSimulator.class/instance/context.doPrimitive.method.receiver.args.do..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
controlling
context: aContext doPrimitive: primitiveIndex method: aCompiledMethod receiver: receiver args: arguments do: aBlock

self flag: #todo. "Do this only for non-simulated prims!"
^ super
context: aContext
doPrimitive: primitiveIndex
method: aCompiledMethod
receiver: receiver untracking
args: (arguments collect: [:argument | argument untracking])
do: aBlock
9 changes: 9 additions & 0 deletions ...o-Support.package/TrackingSimulator.class/instance/context.popIntoReceiverVariable.do..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
instruction processing
context: aContext popIntoReceiverVariable: offset do: aBlock

| top result |
top := self tracking: aContext pop fromInstVarAt: offset + 1 in: aContext.
result := aContext simulatedObject: aContext receiver instVarAt: offset + 1 put: top.
^ (aContext object: result eqeq: top)
ifTrue: [aContext]
ifFalse: [result]
7 changes: 7 additions & 0 deletions ...-Support.package/TrackingSimulator.class/instance/context.popIntoTemporaryVariable.do..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
instruction processing
context: aContext popIntoTemporaryVariable: offset do: aBlock

^ aContext
at: offset + 1 put:
(self tracking: aContext pop fromTempVarAt: offset + 1 in: aContext);
yourself
12 changes: 12 additions & 0 deletions ...Studio-Support.package/TrackingSimulator.class/instance/context.send.super.numArgs.do..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
controlling
context: aContext send: selector super: superFlag numArgs: numArgs do: aBlock

"0"numArgs to: numArgs do: [:i |
aContext at: aContext stackPtr - i put:
(aContext at: aContext stackPtr - i) untracking].
^ super
context: aContext
send: selector
super: superFlag
numArgs: numArgs
do: aBlock
4 changes: 4 additions & 0 deletions ...tudio-Support.package/TrackingSimulator.class/instance/context.sendSpecial.numArgs.do..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
controlling
context: aContext sendSpecial: selector numArgs: numArgs do: aBlock

^ aContext send: selector super: false numArgs: numArgs
9 changes: 9 additions & 0 deletions ...Support.package/TrackingSimulator.class/instance/context.storeIntoReceiverVariable.do..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
instruction processing
context: aContext storeIntoReceiverVariable: offset do: aBlock

| top result |
top := self tracking: aContext top fromInstVarAt: offset + 1 in: aContext.
result := aContext simulatedObject: aContext receiver instVarAt: offset + 1 put: top.
^ (aContext object: result eqeq: top)
ifTrue: [aContext]
ifFalse: [result]
7 changes: 7 additions & 0 deletions ...upport.package/TrackingSimulator.class/instance/context.storeIntoTemporaryVariable.do..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
instruction processing
context: aContext storeIntoTemporaryVariable: offset do: aBlock

^ aContext
at: offset + 1 put:
(self tracking: aContext top fromTempVarAt: offset + 1 in: aContext);
yourself
4 changes: 4 additions & 0 deletions ...mulationStudio-Support.package/TrackingSimulator.class/instance/tracking.fromArgAt.in..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
private
tracking: anObject fromArgAt: argIndex in: aContext

^ anObject trackingFrom: aContext argAt: argIndex
4 changes: 4 additions & 0 deletions ...tionStudio-Support.package/TrackingSimulator.class/instance/tracking.fromInstVarAt.in..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
private
tracking: anObject fromInstVarAt: instVarIndex in: aContext

^ anObject trackingFrom: aContext instVarAt: instVarIndex
4 changes: 4 additions & 0 deletions ...tionStudio-Support.package/TrackingSimulator.class/instance/tracking.fromTempVarAt.in..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
private
tracking: anObject fromTempVarAt: tempVarIndex in: aContext

^ anObject trackingFrom: aContext tempVarAt: tempVarIndex
4 changes: 4 additions & 0 deletions ...SimulationStudio-Support.package/TrackingSimulator.class/instance/trackingReceiver.in..st
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
private
trackingReceiver: anObject in: aContext

^ anObject trackingReceiverFrom: aContext
16 changes: 16 additions & 0 deletions packages/SimulationStudio-Support.package/TrackingSimulator.class/methodProperties.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,16 @@
{
"class" : {
},
"instance" : {
"context:activateMethod:withArgs:receiver:do:" : "ct 3/21/2022 23:08",
"context:doPrimitive:method:receiver:args:do:" : "ct 3/21/2022 23:14",
"context:popIntoReceiverVariable:do:" : "ct 3/21/2022 22:46",
"context:popIntoTemporaryVariable:do:" : "ct 3/21/2022 22:46",
"context:send:super:numArgs:do:" : "ct 3/21/2022 23:29",
"context:sendSpecial:numArgs:do:" : "ct 3/21/2022 23:24",
"context:storeIntoReceiverVariable:do:" : "ct 3/21/2022 22:41",
"context:storeIntoTemporaryVariable:do:" : "ct 3/21/2022 22:43",
"tracking:fromArgAt:in:" : "ct 3/21/2022 22:59",
"tracking:fromInstVarAt:in:" : "ct 3/21/2022 22:35",
"tracking:fromTempVarAt:in:" : "ct 3/21/2022 22:34",
"trackingReceiver:in:" : "ct 3/21/2022 22:55" } }
14 changes: 14 additions & 0 deletions packages/SimulationStudio-Support.package/TrackingSimulator.class/properties.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,14 @@
{
"category" : "SimulationStudio-Support",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "",
"instvars" : [
],
"name" : "TrackingSimulator",
"pools" : [
],
"super" : "Simulator",
"type" : "normal" }