equal
deleted
inserted
replaced
24 |
24 |
25 "Created: / 31-08-2015 / 12:03:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
25 "Created: / 31-08-2015 / 12:03:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
26 "Modified: / 02-09-2015 / 17:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
26 "Modified: / 02-09-2015 / 17:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
27 ! ! |
27 ! ! |
28 |
28 |
|
29 !TFunctionBinding methodsFor:'accesssing - llvm'! |
|
30 |
|
31 llvmValue |
|
32 ^ self propertyAt: #llvmValue ifAbsent:[ nil ] |
|
33 |
|
34 "Created: / 23-09-2015 / 21:14:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
35 ! |
|
36 |
|
37 llvmValue: anLLVMValue |
|
38 self propertyAt: #llvmValue put: anLLVMValue |
|
39 |
|
40 "Created: / 23-09-2015 / 21:14:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
41 ! ! |
|
42 |
29 !TFunctionBinding methodsFor:'converting'! |
43 !TFunctionBinding methodsFor:'converting'! |
30 |
44 |
31 asLLVMValueInModule: aLLVMModule |
45 asLLVMValueInModule: aLLVMModule |
32 self subclassResponsibility |
46 self subclassResponsibility |
33 |
47 |