"{ Package: 'jv:llvm_s' }"

"{ NameSpace: Smalltalk }"

Object subclass:#LLVM

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'LLVM-S-Internal'

!

!LLVM class methodsFor:'accessing'!

libraryName

    | paths |

    OperatingSystem isUNIXlike ifTrue:[ 

        paths := #(

            '/usr/lib/llvm-3.8/lib/libLLVM-3.8.so'

        )

    ] ifFalse:[ 

        self error: 'Unsuppported operting system'

    ].

    ^ paths 

        detect:[:each |  each asFilename exists ]

        ifNone:[ self error: 'No suitable LLVM library found' ]

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

    "Modified: / 31-07-2015 / 15:58:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVM class methodsFor:'primitives'!

ABIAlignmentOfType: TD _: Ty 

    "@param TD: LLVMTargetDataRef

     @param Ty: LLVMTypeRef

     @return: unsigned int

    "

    <cdecl: uint32 "LLVMABIAlignmentOfType" ( LLVMTargetData LLVMType ) >

    self primitiveFailed

!

ABISizeOfType: TD _: Ty 

    "@param TD: LLVMTargetDataRef

     @param Ty: LLVMTypeRef

     @return: long long unsigned int

    "

    <cdecl: long "LLVMABISizeOfType" ( LLVMTargetData LLVMType ) >

    self primitiveFailed

!

AddAlias: M _: Ty _: Aliasee _: Name 

    "@param M: LLVMModuleRef

     @param Ty: LLVMTypeRef

     @param Aliasee: LLVMValueRef

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMAddAlias" ( LLVMModule LLVMType LLVMValue charPointer ) >

    self primitiveFailed

!

AddAttribute: Arg _: PA 

    "@param Arg: LLVMValueRef

     @param PA: LLVMAttribute

     @return: void

    "

    <cdecl: void "LLVMAddAttribute" ( LLVMValue int32 ) >

    self primitiveFailed

!

AddCase: Switch _: OnVal _: Dest 

    "@param Switch: LLVMValueRef

     @param OnVal: LLVMValueRef

     @param Dest: LLVMBasicBlockRef

     @return: void

    "

    <cdecl: void "LLVMAddCase" ( LLVMValue LLVMValue LLVMBasicBlock ) >

    self primitiveFailed

!

AddClause: LandingPad _: ClauseVal 

    "@param LandingPad: LLVMValueRef

     @param ClauseVal: LLVMValueRef

     @return: void

    "

    <cdecl: void "LLVMAddClause" ( LLVMValue LLVMValue ) >

    self primitiveFailed

!

AddDestination: IndirectBr _: Dest 

    "@param IndirectBr: LLVMValueRef

     @param Dest: LLVMBasicBlockRef

     @return: void

    "

    <cdecl: void "LLVMAddDestination" ( LLVMValue LLVMBasicBlock ) >

    self primitiveFailed

!

AddFunction: M _: Name _: FunctionTy 

    "@param M: LLVMModuleRef

     @param Name: *const char

     @param FunctionTy: LLVMTypeRef

     @return: LLVMValueRef

    "

    <cdecl: LLVMFunction "LLVMAddFunction" ( LLVMModule charPointer LLVMType ) >

    self primitiveFailed

    "Modified: / 11-07-2015 / 07:43:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

AddFunctionAttr: Fn _: PA 

    "@param Fn: LLVMValueRef

     @param PA: LLVMAttribute

     @return: void

    "

    <cdecl: void "LLVMAddFunctionAttr" ( LLVMValue int32 ) >

    self primitiveFailed

!

AddGlobal: M _: Ty _: Name 

    "@param M: LLVMModuleRef

     @param Ty: LLVMTypeRef

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMAddGlobal" ( LLVMModule LLVMType charPointer ) >

    self primitiveFailed

!

AddGlobalInAddressSpace: M _: Ty _: Name _: AddressSpace 

    "@param M: LLVMModuleRef

     @param Ty: LLVMTypeRef

     @param Name: *const char

     @param AddressSpace: unsigned int

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMAddGlobalInAddressSpace" ( LLVMModule LLVMType charPointer uint32 ) >

    self primitiveFailed

!

AddGlobalMapping: EE _: Global _: Addr 

    "@param EE: LLVMExecutionEngineRef

     @param Global: LLVMValueRef

     @param Addr: *void

     @return: void

    "

    <cdecl: void "LLVMAddGlobalMapping" ( LLVMExecutionEngine LLVMValue voidPointer ) >

    self primitiveFailed

!

AddIncoming: PhiNode _: IncomingValues _: IncomingBlocks _: Count 

    "@param PhiNode: LLVMValueRef

     @param IncomingValues: *LLVMValueRef

     @param IncomingBlocks: *LLVMBasicBlockRef

     @param Count: unsigned int

     @return: void

    "

    <cdecl: void "LLVMAddIncoming" ( LLVMValue pointer pointer uint32 ) >

    self primitiveFailed

!

AddInstrAttribute: Instr _: index _: arg3 

    "@param Instr: LLVMValueRef

     @param index: unsigned int

     @param arg3: LLVMAttribute

     @return: void

    "

    <cdecl: void "LLVMAddInstrAttribute" ( LLVMValue uint32 int32 ) >

    self primitiveFailed

!

AddMethod: M _: Name _: FunctionTy 

    "This is essentially AddFunction:_: but returns an instance

     of LLVMStXMethod instead of LLVMFunction"

    <cdecl: LLVMStXMethod "LLVMAddFunction" ( LLVMModule charPointer LLVMType ) >

    self primitiveFailed

    "Created: / 11-07-2015 / 08:54:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

AddModule: EE _: M 

    "@param EE: LLVMExecutionEngineRef

     @param M: LLVMModuleRef

     @return: void

    "

    <cdecl: void "LLVMAddModule" ( LLVMExecutionEngine LLVMModule ) >

    self primitiveFailed

!

AddModuleProvider: EE _: MP 

    "@param EE: LLVMExecutionEngineRef

     @param MP: LLVMModuleProviderRef

     @return: void

    "

    <cdecl: void "LLVMAddModuleProvider" ( LLVMExecutionEngine LLVMModuleProvider ) >

    self primitiveFailed

!

AddNamedMetadataOperand: M _: name _: Val 

    "@param M: LLVMModuleRef

     @param name: *const char

     @param Val: LLVMValueRef

     @return: void

    "

    <cdecl: void "LLVMAddNamedMetadataOperand" ( LLVMModule charPointer LLVMValue ) >

    self primitiveFailed

!

AddTargetData: TD _: PM 

    "@param TD: LLVMTargetDataRef

     @param PM: LLVMPassManagerRef

     @return: void

    "

    <cdecl: void "LLVMAddTargetData" ( LLVMTargetData LLVMPassManager ) >

    self primitiveFailed

!

AddTargetDependentFunctionAttr: Fn _: A _: V 

    "@param Fn: LLVMValueRef

     @param A: *const char

     @param V: *const char

     @return: void

    "

    <cdecl: void "LLVMAddTargetDependentFunctionAttr" ( LLVMValue charPointer charPointer ) >

    self primitiveFailed

!

AddTargetLibraryInfo: TLI _: PM 

    "@param TLI: LLVMTargetLibraryInfoRef

     @param PM: LLVMPassManagerRef

     @return: void

    "

    <cdecl: void "LLVMAddTargetLibraryInfo" ( LLVMTargetLibraryInfo LLVMPassManager ) >

    self primitiveFailed

!

AlignOf: Ty 

    "@param Ty: LLVMTypeRef

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMAlignOf" ( LLVMType ) >

    self primitiveFailed

!

AppendBasicBlock: Fn _: Name 

    "@param Fn: LLVMValueRef

     @param Name: *const char

     @return: LLVMBasicBlockRef

    "

    <cdecl: LLVMBasicBlock "LLVMAppendBasicBlock" ( LLVMValue charPointer ) >

    self primitiveFailed

!

AppendBasicBlockInContext: C _: Fn _: Name 

    "@param C: LLVMContextRef

     @param Fn: LLVMValueRef

     @param Name: *const char

     @return: LLVMBasicBlockRef

    "

    <cdecl: LLVMBasicBlock "LLVMAppendBasicBlockInContext" ( LLVMContext LLVMValue charPointer ) >

    self primitiveFailed

!

ArrayType: ElementType _: ElementCount 

    "@param ElementType: LLVMTypeRef

     @param ElementCount: unsigned int

     @return: LLVMTypeRef

    "

    <cdecl: LLVMType "LLVMArrayType" ( LLVMType uint32 ) >

    self primitiveFailed

!

BasicBlockAsValue: BB 

    "@param BB: LLVMBasicBlockRef

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBasicBlockAsValue" ( LLVMBasicBlock ) >

    self primitiveFailed

!

BlockAddress: F _: BB 

    "@param F: LLVMValueRef

     @param BB: LLVMBasicBlockRef

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBlockAddress" ( LLVMValue LLVMBasicBlock ) >

    self primitiveFailed

!

BuildAShr: arg1 _: LHS _: RHS _: Name 

    "@param arg1: LLVMBuilderRef

     @param LHS: LLVMValueRef

     @param RHS: LLVMValueRef

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildAShr" ( LLVMBuilder LLVMValue LLVMValue charPointer ) >

    self primitiveFailed

!

BuildAdd: arg1 _: LHS _: RHS _: Name 

    "@param arg1: LLVMBuilderRef

     @param LHS: LLVMValueRef

     @param RHS: LLVMValueRef

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildAdd" ( LLVMBuilder LLVMValue LLVMValue charPointer ) >

    self primitiveFailed

!

BuildAddrSpaceCast: arg1 _: Val _: DestTy _: Name 

    "@param arg1: LLVMBuilderRef

     @param Val: LLVMValueRef

     @param DestTy: LLVMTypeRef

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildAddrSpaceCast" ( LLVMBuilder LLVMValue LLVMType charPointer ) >

    self primitiveFailed

!

BuildAggregateRet: arg1 _: RetVals _: N 

    "@param arg1: LLVMBuilderRef

     @param RetVals: *LLVMValueRef

     @param N: unsigned int

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildAggregateRet" ( LLVMBuilder pointer uint32 ) >

    self primitiveFailed

!

BuildAlloca: arg1 _: Ty _: Name 

    "@param arg1: LLVMBuilderRef

     @param Ty: LLVMTypeRef

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildAlloca" ( LLVMBuilder LLVMType charPointer ) >

    self primitiveFailed

!

BuildAnd: arg1 _: LHS _: RHS _: Name 

    "@param arg1: LLVMBuilderRef

     @param LHS: LLVMValueRef

     @param RHS: LLVMValueRef

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildAnd" ( LLVMBuilder LLVMValue LLVMValue charPointer ) >

    self primitiveFailed

!

BuildArrayAlloca: arg1 _: Ty _: Val _: Name 

    "@param arg1: LLVMBuilderRef

     @param Ty: LLVMTypeRef

     @param Val: LLVMValueRef

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildArrayAlloca" ( LLVMBuilder LLVMType LLVMValue charPointer ) >

    self primitiveFailed

!

BuildArrayMalloc: arg1 _: Ty _: Val _: Name 

    "@param arg1: LLVMBuilderRef

     @param Ty: LLVMTypeRef

     @param Val: LLVMValueRef

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildArrayMalloc" ( LLVMBuilder LLVMType LLVMValue charPointer ) >

    self primitiveFailed

!

BuildAtomicRMW: B _: op _: PTR _: Val _: ordering _: singleThread 

    "@param B: LLVMBuilderRef

     @param op: LLVMAtomicRMWBinOp

     @param PTR: LLVMValueRef

     @param Val: LLVMValueRef

     @param ordering: LLVMAtomicOrdering

     @param singleThread: LLVMBool

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildAtomicRMW" ( LLVMBuilder int32 LLVMValue LLVMValue int32 int32 ) >

    self primitiveFailed

!

BuildBinOp: B _: Op _: LHS _: RHS _: Name 

    "@param B: LLVMBuilderRef

     @param Op: LLVMOpcode

     @param LHS: LLVMValueRef

     @param RHS: LLVMValueRef

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildBinOp" ( LLVMBuilder int32 LLVMValue LLVMValue charPointer ) >

    self primitiveFailed

!

BuildBitCast: arg1 _: Val _: DestTy _: Name 

    "@param arg1: LLVMBuilderRef

     @param Val: LLVMValueRef

     @param DestTy: LLVMTypeRef

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildBitCast" ( LLVMBuilder LLVMValue LLVMType charPointer ) >

    self primitiveFailed

!

BuildBr: arg1 _: Dest 

    "@param arg1: LLVMBuilderRef

     @param Dest: LLVMBasicBlockRef

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildBr" ( LLVMBuilder LLVMBasicBlock ) >

    self primitiveFailed

!

BuildCall: arg1 _: Fn _: Args _: NumArgs _: Name 

    "@param arg1: LLVMBuilderRef

     @param Fn: LLVMValueRef

     @param Args: *LLVMValueRef

     @param NumArgs: unsigned int

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildCall" ( LLVMBuilder LLVMValue pointer uint32 charPointer ) >

    self primitiveFailed

!

BuildCast: B _: Op _: Val _: DestTy _: Name 

    "@param B: LLVMBuilderRef

     @param Op: LLVMOpcode

     @param Val: LLVMValueRef

     @param DestTy: LLVMTypeRef

     @param Name: *const char

     @return: LLVMValueRef

    "

    <cdecl: LLVMValue "LLVMBuildCast" ( LLVMBuilder int32 LLVMValue LLVMType charPointer ) >

    self primitiveFailed

!

BuildCondBr: arg1 _: If _: Then _: Else 

    "@param arg1: LLVMBuilderRef

     @param If: LLVMValueRef

     @param Then: LLVMBasicBlockRef

     @param Else: LLVMBasicBlockRef

     @return: LLVMValueRef

    "