equal
deleted
inserted
replaced
6 instanceVariableNames:'' |
6 instanceVariableNames:'' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'LLVM-Core' |
9 category:'LLVM-Core' |
10 ! |
10 ! |
|
11 |
|
12 !LLVMValue methodsFor:'accessing'! |
|
13 |
|
14 name |
|
15 ^ LLVM GetValueName: self |
|
16 |
|
17 "Created: / 11-07-2015 / 07:28:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
18 ! |
|
19 |
|
20 name: aString |
|
21 ^ LLVM SetValueName: self _: aString |
|
22 |
|
23 "Created: / 11-07-2015 / 07:31:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
24 ! ! |
11 |
25 |
12 !LLVMValue methodsFor:'debugging'! |
26 !LLVMValue methodsFor:'debugging'! |
13 |
27 |
14 inspectorExtraAttributes |
28 inspectorExtraAttributes |
15 | d | |
29 | d | |
36 str := cstr copyCStringFromHeap. |
50 str := cstr copyCStringFromHeap. |
37 LLVM DisposeMessage: cstr. |
51 LLVM DisposeMessage: cstr. |
38 ^ str |
52 ^ str |
39 |
53 |
40 "Created: / 10-07-2015 / 14:31:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
54 "Created: / 10-07-2015 / 14:31:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
55 ! |
|
56 |
|
57 printOn: aStream |
|
58 super printOn: aStream. |
|
59 aStream nextPutAll: ' - '. |
|
60 aStream nextPutAll: self dumpString |
|
61 |
|
62 "Created: / 11-07-2015 / 07:09:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
41 ! ! |
63 ! ! |
42 |
64 |
43 !LLVMValue methodsFor:'functions-accessing'! |
|
44 |
|
45 parameterAt: index |
|
46 ^ LLVM GetParam: self _: index - 1 |
|
47 |
|
48 "Created: / 07-07-2015 / 22:49:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
49 ! ! |
|
50 |
|
51 !LLVMValue methodsFor:'functions-adding'! |
|
52 |
|
53 addBasicBlockNamed: name |
|
54 self assert: name isSingleByteString. |
|
55 ^ LLVM AppendBasicBlock: self _: name |
|
56 |
|
57 "Created: / 08-07-2015 / 23:09:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
58 ! ! |
|
59 |
|