1 "{ Package: 'jv:libllvms' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 ExternalAddress subclass:#LLVMType

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'LLVM-Core'

    10 !

    11 

    12 !LLVMType class methodsFor:'instance creation'!

    13 

    14 function: argumentTypes returning: returnType

    15     ^ LLVM FunctionType: returnType  _: argumentTypes _: argumentTypes size _: 0

    16 

    17     "Created: / 07-07-2015 / 21:53:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    18 !

    19 

    20 int1

    21     ^ LLVM Int1Type

    22 

    23     "Created: / 07-07-2015 / 21:21:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    24 !

    25 

    26 int16

    27     ^ LLVM Int16Type

    28 

    29     "Created: / 07-07-2015 / 21:21:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    30 !

    31 

    32 int32

    33     ^ LLVM Int32Type

    34 

    35     "Created: / 07-07-2015 / 21:21:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    36 !

    37 

    38 int64

    39     ^ LLVM Int64Type

    40 

    41     "Created: / 07-07-2015 / 21:21:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    42 !

    43 

    44 int8

    45     ^ LLVM Int8Type

    46 

    47     "Created: / 07-07-2015 / 21:21:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    48 ! !

    49 

    50 !LLVMType methodsFor:'accessing'!

    51 

    52 kind

    53     ^ LLVM GetTypeKind: self

    54 

    55     "Created: / 07-07-2015 / 21:59:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    56 ! !

    57 

    58 !LLVMType methodsFor:'debugging'!

    59 

    60 dump

    61     LLVM DumpType: self.

    62 

    63     "Created: / 07-07-2015 / 22:03:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    64 ! !

    65