-
Notifications
You must be signed in to change notification settings - Fork 65
/
ObjectProxyForTranslatedPrimitiveSimulation.class.st
115 lines (91 loc) · 3.28 KB
/
ObjectProxyForTranslatedPrimitiveSimulation.class.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
"
An ObjectProxyForTranslatedPrimitiveSimulation is a wrapper for an object on the simulated heap that allows that ""object"" to be accessed from within a simulating translated primitive such as Bitmap>>compress:toByteArray:.
Instance Variables
interpreter: <ObjectMemory|SpurMemoryManager>
oop: <Integer>
unitSize: <Integer>
interpreter
- the object memory class being used as the simulator's interpreterProxy
oop
- the oop of the ""object"" being wrapped
unitSize
- 1, 2, 4 or 8
"
Class {
#name : #ObjectProxyForTranslatedPrimitiveSimulation,
#superclass : #Object,
#instVars : [
'interpreter',
'oop',
'unitSize'
],
#category : #'VMMaker-InterpreterSimulation'
}
{ #category : #accessing }
ObjectProxyForTranslatedPrimitiveSimulation >> at: index [
self assert: (index between: 1 and: self size).
unitSize = 1 ifTrue: [^interpreter fetchByte: index - 1 ofObject: oop].
unitSize = 2 ifTrue: [^interpreter fetchShort16: index - 1 ofObject: oop].
unitSize = 4 ifTrue: [^interpreter fetchLong32: index - 1 ofObject: oop].
unitSize = 8 ifTrue: [^interpreter fetchLong64: index - 1 ofObject: oop].
self halt: 'Can''t handle unitSize ', unitSize printString
]
{ #category : #accessing }
ObjectProxyForTranslatedPrimitiveSimulation >> at: index put: val [
self assert: (index between: 1 and: self size).
unitSize = 1 ifTrue: [^ interpreter storeByte: index - 1 ofObject: oop withValue: val].
unitSize = 2 ifTrue: [^ interpreter storeShort16: index - 1 ofObject: oop withValue: val].
unitSize = 4 ifTrue: [^ interpreter storeLong32: index - 1 ofObject: oop withValue: val].
unitSize = 8 ifTrue: [^ interpreter storeLong64: index - 1 ofObject: oop withValue: val].
self halt: 'Can''t handle unitSize ', unitSize printString
]
{ #category : #accessing }
ObjectProxyForTranslatedPrimitiveSimulation >> basicAt: offset [
^self at: offset
]
{ #category : #accessing }
ObjectProxyForTranslatedPrimitiveSimulation >> basicAt: offset put: val [
^self at: offset put: val
]
{ #category : #accessing }
ObjectProxyForTranslatedPrimitiveSimulation >> basicSize [
^self size
]
{ #category : #accessing }
ObjectProxyForTranslatedPrimitiveSimulation >> interpreter [
^ interpreter
]
{ #category : #accessing }
ObjectProxyForTranslatedPrimitiveSimulation >> interpreter: anObject [
interpreter := anObject
]
{ #category : #'initialize-release' }
ObjectProxyForTranslatedPrimitiveSimulation >> interpreter: anInterpreter oop: objOop unitSize: baseTypeSize [
interpreter := anInterpreter.
oop := objOop.
unitSize := baseTypeSize
]
{ #category : #accessing }
ObjectProxyForTranslatedPrimitiveSimulation >> oop [
^ oop
]
{ #category : #accessing }
ObjectProxyForTranslatedPrimitiveSimulation >> oop: anObject [
oop := anObject
]
{ #category : #accessing }
ObjectProxyForTranslatedPrimitiveSimulation >> size [
unitSize = 1 ifTrue: [^interpreter numBytesOf: oop].
unitSize = 2 ifTrue: [^interpreter num16BitUnitsOf: oop].
unitSize = 4 ifTrue: [^interpreter num32BitUnitsOf: oop].
unitSize = 8 ifTrue: [^interpreter num64BitUnitsOf: oop].
self halt: 'Can''t handle unitSize ', unitSize printString
]
{ #category : #accessing }
ObjectProxyForTranslatedPrimitiveSimulation >> unitSize [
^ unitSize
]
{ #category : #accessing }
ObjectProxyForTranslatedPrimitiveSimulation >> unitSize: anObject [
unitSize := anObject
]