-
Notifications
You must be signed in to change notification settings - Fork 65
/
SistaCogMethod.class.st
49 lines (40 loc) · 1.1 KB
/
SistaCogMethod.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
"
A SistaCogMethod is a CogMethod with a pointer to memory holding the Sista performance counters decremented in conditional branches.
Instance Variables
counters: <pointer>
counters
- counters points to the first field of either a pinned object on the Spur heap or malloced memory.
"
Class {
#name : #SistaCogMethod,
#superclass : #CogMethod,
#instVars : [
'counters'
],
#category : #'VMMaker-JIT'
}
{ #category : #'class initialization' }
SistaCogMethod class >> initialize [
"self initialize"
(Smalltalk classNamed: #CogSistaMethodSurrogate32) ifNotNil:
[:cms32|
self checkGenerateSurrogate: cms32 bytesPerWord: 4].
(Smalltalk classNamed: #CogSistaMethodSurrogate64) ifNotNil:
[:cms64|
self checkGenerateSurrogate: cms64 bytesPerWord: 8]
]
{ #category : #translation }
SistaCogMethod class >> structTypeName [
"Provide the typedef name."
^superclass structTypeName
]
{ #category : #accessing }
SistaCogMethod >> counters [
"Answer the value of counters"
^ counters
]
{ #category : #accessing }
SistaCogMethod >> counters: anObject [
"Set the value of counters"
^counters := anObject
]