author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Wed, 23 Sep 2015 22:21:44 +0100 | |
changeset 15 | 10a95d798b36 |
parent 11 | 6d39860d0fdb |
child 16 | 17a2d1d9f205 |
permissions | -rw-r--r-- |
"{ Package: 'jv:tea/compiler' }" "{ NameSpace: Smalltalk }" TBinding subclass:#TFunctionBinding instanceVariableNames:'returnType parameterTypes' classVariableNames:'' poolDictionaries:'' category:'Languages-Tea-Compiler-Bindings' ! !TFunctionBinding methodsFor:'accessing'! parameterTypes ^ parameterTypes ! returnType ^ returnType ! type ^ returnType "Created: / 31-08-2015 / 12:03:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" "Modified: / 02-09-2015 / 17:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" ! ! !TFunctionBinding methodsFor:'accesssing - llvm'! llvmValue ^ self propertyAt: #llvmValue ifAbsent:[ nil ] "Created: / 23-09-2015 / 21:14:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" ! llvmValue: anLLVMValue self propertyAt: #llvmValue put: anLLVMValue "Created: / 23-09-2015 / 21:14:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" ! ! !TFunctionBinding methodsFor:'converting'! asLLVMValueInModule: aLLVMModule self subclassResponsibility "Created: / 15-09-2015 / 07:03:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" ! ! !TFunctionBinding methodsFor:'initialization'! parameterTypes: aCollection parameterTypes := aCollection "Created: / 02-09-2015 / 17:03:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" ! returnType: aTType returnType := aTType "Created: / 02-09-2015 / 17:03:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" ! !