import std::map::hashmap; import libc::{c_char, c_int, c_uint, c_longlong, c_ulonglong}; type Opcode = u32; type Bool = c_uint; const True: Bool = 1 as Bool; const False: Bool = 0 as Bool; // Consts for the LLVM CallConv type, pre-cast to uint. enum CallConv { CCallConv = 0, FastCallConv = 8, ColdCallConv = 9, X86StdcallCallConv = 64, X86FastcallCallConv = 65, } enum Visibility { LLVMDefaultVisibility = 0, HiddenVisibility = 1, ProtectedVisibility = 2, } enum Linkage { ExternalLinkage = 0, AvailableExternallyLinkage = 1, LinkOnceAnyLinkage = 2, LinkOnceODRLinkage = 3, WeakAnyLinkage = 4, WeakODRLinkage = 5, AppendingLinkage = 6, InternalLinkage = 7, PrivateLinkage = 8, DLLImportLinkage = 9, DLLExportLinkage = 10, ExternalWeakLinkage = 11, GhostLinkage = 12, CommonLinkage = 13, LinkerPrivateLinkage = 14, LinkerPrivateWeakLinkage = 15, LinkerPrivateWeakDefAutoLinkage = 16, } enum Attribute { ZExtAttribute = 1, SExtAttribute = 2, NoReturnAttribute = 4, InRegAttribute = 8, StructRetAttribute = 16, NoUnwindAttribute = 32, NoAliasAttribute = 64, ByValAttribute = 128, NestAttribute = 256, ReadNoneAttribute = 512, ReadOnlyAttribute = 1024, NoInlineAttribute = 2048, AlwaysInlineAttribute = 4096, OptimizeForSizeAttribute = 8192, StackProtectAttribute = 16384, StackProtectReqAttribute = 32768, // 31 << 16 AlignmentAttribute = 2031616, NoCaptureAttribute = 2097152, NoRedZoneAttribute = 4194304, NoImplicitFloatAttribute = 8388608, NakedAttribute = 16777216, InlineHintAttribute = 33554432, // 7 << 26 StackAttribute = 469762048, ReturnsTwiceAttribute = 536870912, // 1 << 30 UWTableAttribute = 1073741824, NonLazyBindAttribute = 2147483648, } // enum for the LLVM IntPredicate type enum IntPredicate { IntEQ = 32, IntNE = 33, IntUGT = 34, IntUGE = 35, IntULT = 36, IntULE = 37, IntSGT = 38, IntSGE = 39, IntSLT = 40, IntSLE = 41, } // enum for the LLVM RealPredicate type enum RealPredicate { RealOEQ = 1, RealOGT = 2, RealOGE = 3, RealOLT = 4, RealOLE = 5, RealONE = 6, RealORD = 7, RealUNO = 8, RealUEQ = 9, RealUGT = 10, RealUGE = 11, RealULT = 12, RealULE = 13, RealUNE = 14, } // enum for the LLVM TypeKind type - must stay in sync with the def of // LLVMTypeKind in llvm/include/llvm-c/Core.h enum TypeKind { Void = 0, Half = 1, Float = 2, Double = 3, X86_FP80 = 4, FP128 = 5, PPC_FP128 = 6, Label = 7, Integer = 8, Function = 9, Struct = 10, Array = 11, Pointer = 12, Vector = 13, Metadata = 14, X86_MMX = 15 } enum AtomicBinOp { Xchg = 0, Add = 1, Sub = 2, And = 3, Nand = 4, Or = 5, Xor = 6, Max = 7, Min = 8, UMax = 9, UMin = 10, } enum AtomicOrdering { NotAtomic = 0, Unordered = 1, Monotonic = 2, // Consume = 3, // Not specified yet. Acquire = 4, Release = 5, AcquireRelease = 6, SequentiallyConsistent = 7 } // FIXME: Not used right now, but will be once #2334 is fixed // Consts for the LLVMCodeGenFileType type (in include/llvm/c/TargetMachine.h) enum FileType { AssemblyFile = 0, ObjectFile = 1 } // Opaque pointer types enum Module_opaque {} type ModuleRef = *Module_opaque; enum Context_opaque {} type ContextRef = *Context_opaque; enum Type_opaque {} type TypeRef = *Type_opaque; enum Value_opaque {} type ValueRef = *Value_opaque; enum BasicBlock_opaque {} type BasicBlockRef = *BasicBlock_opaque; enum Builder_opaque {} type BuilderRef = *Builder_opaque; enum MemoryBuffer_opaque {} type MemoryBufferRef = *MemoryBuffer_opaque; enum PassManager_opaque {} type PassManagerRef = *PassManager_opaque; enum PassManagerBuilder_opaque {} type PassManagerBuilderRef = *PassManagerBuilder_opaque; enum Use_opaque {} type UseRef = *Use_opaque; enum TargetData_opaque {} type TargetDataRef = *TargetData_opaque; enum ObjectFile_opaque {} type ObjectFileRef = *ObjectFile_opaque; enum SectionIterator_opaque {} type SectionIteratorRef = *SectionIterator_opaque; #[link_args = "-Lrustllvm"] #[link_name = "rustllvm"] #[abi = "cdecl"] extern mod llvm { /* Create and destroy contexts. */ fn LLVMContextCreate() -> ContextRef; fn LLVMGetGlobalContext() -> ContextRef; fn LLVMContextDispose(C: ContextRef); fn LLVMGetMDKindIDInContext(C: ContextRef, Name: *c_char, SLen: c_uint) -> c_uint; fn LLVMGetMDKindID(Name: *c_char, SLen: c_uint) -> c_uint; /* Create and destroy modules. */ fn LLVMModuleCreateWithNameInContext(ModuleID: *c_char, C: ContextRef) -> ModuleRef; fn LLVMDisposeModule(M: ModuleRef); /** Data layout. See Module::getDataLayout. */ fn LLVMGetDataLayout(M: ModuleRef) -> *c_char; fn LLVMSetDataLayout(M: ModuleRef, Triple: *c_char); /** Target triple. See Module::getTargetTriple. */ fn LLVMGetTarget(M: ModuleRef) -> *c_char; fn LLVMSetTarget(M: ModuleRef, Triple: *c_char); /** See Module::dump. */ fn LLVMDumpModule(M: ModuleRef); /** See Module::setModuleInlineAsm. */ fn LLVMSetModuleInlineAsm(M: ModuleRef, Asm: *c_char); /** See llvm::LLVMTypeKind::getTypeID. */ fn LLVMGetTypeKind(Ty: TypeRef) -> TypeKind; /** See llvm::LLVMType::getContext. */ fn LLVMGetTypeContext(Ty: TypeRef) -> ContextRef; /* Operations on integer types */ fn LLVMInt1TypeInContext(C: ContextRef) -> TypeRef; fn LLVMInt8TypeInContext(C: ContextRef) -> TypeRef; fn LLVMInt16TypeInContext(C: ContextRef) -> TypeRef; fn LLVMInt32TypeInContext(C: ContextRef) -> TypeRef; fn LLVMInt64TypeInContext(C: ContextRef) -> TypeRef; fn LLVMIntTypeInContext(C: ContextRef, NumBits: c_uint) -> TypeRef; fn LLVMInt1Type() -> TypeRef; fn LLVMInt8Type() -> TypeRef; fn LLVMInt16Type() -> TypeRef; fn LLVMInt32Type() -> TypeRef; fn LLVMInt64Type() -> TypeRef; fn LLVMIntType(NumBits: c_uint) -> TypeRef; fn LLVMGetIntTypeWidth(IntegerTy: TypeRef) -> c_uint; /* Operations on real types */ fn LLVMFloatTypeInContext(C: ContextRef) -> TypeRef; fn LLVMDoubleTypeInContext(C: ContextRef) -> TypeRef; fn LLVMX86FP80TypeInContext(C: ContextRef) -> TypeRef; fn LLVMFP128TypeInContext(C: ContextRef) -> TypeRef; fn LLVMPPCFP128TypeInContext(C: ContextRef) -> TypeRef; fn LLVMFloatType() -> TypeRef; fn LLVMDoubleType() -> TypeRef; fn LLVMX86FP80Type() -> TypeRef; fn LLVMFP128Type() -> TypeRef; fn LLVMPPCFP128Type() -> TypeRef; /* Operations on function types */ fn LLVMFunctionType(ReturnType: TypeRef, ParamTypes: *TypeRef, ParamCount: c_uint, IsVarArg: Bool) -> TypeRef; fn LLVMIsFunctionVarArg(FunctionTy: TypeRef) -> Bool; fn LLVMGetReturnType(FunctionTy: TypeRef) -> TypeRef; fn LLVMCountParamTypes(FunctionTy: TypeRef) -> c_uint; fn LLVMGetParamTypes(FunctionTy: TypeRef, Dest: *TypeRef); /* Operations on struct types */ fn LLVMStructTypeInContext(C: ContextRef, ElementTypes: *TypeRef, ElementCount: c_uint, Packed: Bool) -> TypeRef; fn LLVMStructType(ElementTypes: *TypeRef, ElementCount: c_uint, Packed: Bool) -> TypeRef; fn LLVMCountStructElementTypes(StructTy: TypeRef) -> c_uint; fn LLVMGetStructElementTypes(StructTy: TypeRef, Dest: *TypeRef); fn LLVMIsPackedStruct(StructTy: TypeRef) -> Bool; /* Operations on array, pointer, and vector types (sequence types) */ fn LLVMArrayType(ElementType: TypeRef, ElementCount: c_uint) -> TypeRef; fn LLVMPointerType(ElementType: TypeRef, AddressSpace: c_uint) -> TypeRef; fn LLVMVectorType(ElementType: TypeRef, ElementCount: c_uint) -> TypeRef; fn LLVMGetElementType(Ty: TypeRef) -> TypeRef; fn LLVMGetArrayLength(ArrayTy: TypeRef) -> c_uint; fn LLVMGetPointerAddressSpace(PointerTy: TypeRef) -> c_uint; fn LLVMGetVectorSize(VectorTy: TypeRef) -> c_uint; /* Operations on other types */ fn LLVMVoidTypeInContext(C: ContextRef) -> TypeRef; fn LLVMLabelTypeInContext(C: ContextRef) -> TypeRef; fn LLVMMetadataTypeInContext(C: ContextRef) -> TypeRef; fn LLVMVoidType() -> TypeRef; fn LLVMLabelType() -> TypeRef; fn LLVMMetadataType() -> TypeRef; /* Operations on all values */ fn LLVMTypeOf(Val: ValueRef) -> TypeRef; fn LLVMGetValueName(Val: ValueRef) -> *c_char; fn LLVMSetValueName(Val: ValueRef, Name: *c_char); fn LLVMDumpValue(Val: ValueRef); fn LLVMReplaceAllUsesWith(OldVal: ValueRef, NewVal: ValueRef); fn LLVMHasMetadata(Val: ValueRef) -> c_int; fn LLVMGetMetadata(Val: ValueRef, KindID: c_uint) -> ValueRef; fn LLVMSetMetadata(Val: ValueRef, KindID: c_uint, Node: ValueRef); /* Operations on Uses */ fn LLVMGetFirstUse(Val: ValueRef) -> UseRef; fn LLVMGetNextUse(U: UseRef) -> UseRef; fn LLVMGetUser(U: UseRef) -> ValueRef; fn LLVMGetUsedValue(U: UseRef) -> ValueRef; /* Operations on Users */ fn LLVMGetOperand(Val: ValueRef, Index: c_uint) -> ValueRef; fn LLVMSetOperand(Val: ValueRef, Index: c_uint, Op: ValueRef); /* Operations on constants of any type */ fn LLVMConstNull(Ty: TypeRef) -> ValueRef; /* all zeroes */ fn LLVMConstAllOnes(Ty: TypeRef) -> ValueRef; /* only for int/vector */ fn LLVMGetUndef(Ty: TypeRef) -> ValueRef; fn LLVMIsConstant(Val: ValueRef) -> Bool; fn LLVMIsNull(Val: ValueRef) -> Bool; fn LLVMIsUndef(Val: ValueRef) -> Bool; fn LLVMConstPointerNull(Ty: TypeRef) -> ValueRef; /* Operations on metadata */ fn LLVMMDStringInContext(C: ContextRef, Str: *c_char, SLen: c_uint) -> ValueRef; fn LLVMMDString(Str: *c_char, SLen: c_uint) -> ValueRef; fn LLVMMDNodeInContext(C: ContextRef, Vals: *ValueRef, Count: c_uint) -> ValueRef; fn LLVMMDNode(Vals: *ValueRef, Count: c_uint) -> ValueRef; fn LLVMAddNamedMetadataOperand(M: ModuleRef, Str: *c_char, Val: ValueRef); /* Operations on scalar constants */ fn LLVMConstInt(IntTy: TypeRef, N: c_ulonglong, SignExtend: Bool) -> ValueRef; fn LLVMConstIntOfString(IntTy: TypeRef, Text: *c_char, Radix: u8) -> ValueRef; fn LLVMConstIntOfStringAndSize(IntTy: TypeRef, Text: *c_char, SLen: c_uint, Radix: u8) -> ValueRef; fn LLVMConstReal(RealTy: TypeRef, N: f64) -> ValueRef; fn LLVMConstRealOfString(RealTy: TypeRef, Text: *c_char) -> ValueRef; fn LLVMConstRealOfStringAndSize(RealTy: TypeRef, Text: *c_char, SLen: c_uint) -> ValueRef; fn LLVMConstIntGetZExtValue(ConstantVal: ValueRef) -> c_ulonglong; fn LLVMConstIntGetSExtValue(ConstantVal: ValueRef) -> c_longlong; /* Operations on composite constants */ fn LLVMConstStringInContext(C: ContextRef, Str: *c_char, Length: c_uint, DontNullTerminate: Bool) -> ValueRef; fn LLVMConstStructInContext(C: ContextRef, ConstantVals: *ValueRef, Count: c_uint, Packed: Bool) -> ValueRef; fn LLVMConstString(Str: *c_char, Length: c_uint, DontNullTerminate: Bool) -> ValueRef; fn LLVMConstArray(ElementTy: TypeRef, ConstantVals: *ValueRef, Length: c_uint) -> ValueRef; fn LLVMConstStruct(ConstantVals: *ValueRef, Count: c_uint, Packed: Bool) -> ValueRef; fn LLVMConstVector(ScalarConstantVals: *ValueRef, Size: c_uint) -> ValueRef; /* Constant expressions */ fn LLVMAlignOf(Ty: TypeRef) -> ValueRef; fn LLVMSizeOf(Ty: TypeRef) -> ValueRef; fn LLVMConstNeg(ConstantVal: ValueRef) -> ValueRef; fn LLVMConstNSWNeg(ConstantVal: ValueRef) -> ValueRef; fn LLVMConstNUWNeg(ConstantVal: ValueRef) -> ValueRef; fn LLVMConstFNeg(ConstantVal: ValueRef) -> ValueRef; fn LLVMConstNot(ConstantVal: ValueRef) -> ValueRef; fn LLVMConstAdd(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstNSWAdd(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstNUWAdd(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstFAdd(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstSub(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstNSWSub(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstNUWSub(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstFSub(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstMul(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstNSWMul(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstNUWMul(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstFMul(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstUDiv(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstSDiv(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstExactSDiv(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstFDiv(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstURem(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstSRem(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstFRem(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstAnd(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstOr(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstXor(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstShl(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstLShr(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstAShr(LHSConstant: ValueRef, RHSConstant: ValueRef) -> ValueRef; fn LLVMConstGEP(ConstantVal: ValueRef, ConstantIndices: *uint, NumIndices: c_uint) -> ValueRef; fn LLVMConstInBoundsGEP(ConstantVal: ValueRef, ConstantIndices: *uint, NumIndices: c_uint) -> ValueRef; fn LLVMConstTrunc(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstSExt(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstZExt(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstFPTrunc(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstFPExt(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstUIToFP(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstSIToFP(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstFPToUI(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstFPToSI(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstPtrToInt(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstIntToPtr(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstBitCast(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstZExtOrBitCast(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstSExtOrBitCast(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstTruncOrBitCast(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstPointerCast(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstIntCast(ConstantVal: ValueRef, ToType: TypeRef, isSigned: Bool) -> ValueRef; fn LLVMConstFPCast(ConstantVal: ValueRef, ToType: TypeRef) -> ValueRef; fn LLVMConstSelect(ConstantCondition: ValueRef, ConstantIfTrue: ValueRef, ConstantIfFalse: ValueRef) -> ValueRef; fn LLVMConstExtractElement(VectorConstant: ValueRef, IndexConstant: ValueRef) -> ValueRef; fn LLVMConstInsertElement(VectorConstant: ValueRef, ElementValueConstant: ValueRef, IndexConstant: ValueRef) -> ValueRef; fn LLVMConstShuffleVector(VectorAConstant: ValueRef, VectorBConstant: ValueRef, MaskConstant: ValueRef) -> ValueRef; fn LLVMConstExtractValue(AggConstant: ValueRef, IdxList: *uint, NumIdx: c_uint) -> ValueRef; fn LLVMConstInsertValue(AggConstant: ValueRef, ElementValueConstant: ValueRef, IdxList: *uint, NumIdx: c_uint) -> ValueRef; fn LLVMConstInlineAsm(Ty: TypeRef, AsmString: *c_char, Constraints: *c_char, HasSideEffects: Bool, IsAlignStack: Bool) -> ValueRef; fn LLVMBlockAddress(F: ValueRef, BB: BasicBlockRef) -> ValueRef; /* Operations on global variables, functions, and aliases (globals) */ fn LLVMGetGlobalParent(Global: ValueRef) -> ModuleRef; fn LLVMIsDeclaration(Global: ValueRef) -> Bool; fn LLVMGetLinkage(Global: ValueRef) -> c_uint; fn LLVMSetLinkage(Global: ValueRef, Link: c_uint); fn LLVMGetSection(Global: ValueRef) -> *c_char; fn LLVMSetSection(Global: ValueRef, Section: *c_char); fn LLVMGetVisibility(Global: ValueRef) -> c_uint; fn LLVMSetVisibility(Global: ValueRef, Viz: c_uint); fn LLVMGetAlignment(Global: ValueRef) -> c_uint; fn LLVMSetAlignment(Global: ValueRef, Bytes: c_uint); /* Operations on global variables */ fn LLVMAddGlobal(M: ModuleRef, Ty: TypeRef, Name: *c_char) -> ValueRef; fn LLVMAddGlobalInAddressSpace(M: ModuleRef, Ty: TypeRef, Name: *c_char, AddressSpace: c_uint) -> ValueRef; fn LLVMGetNamedGlobal(M: ModuleRef, Name: *c_char) -> ValueRef; fn LLVMGetFirstGlobal(M: ModuleRef) -> ValueRef; fn LLVMGetLastGlobal(M: ModuleRef) -> ValueRef; fn LLVMGetNextGlobal(GlobalVar: ValueRef) -> ValueRef; fn LLVMGetPreviousGlobal(GlobalVar: ValueRef) -> ValueRef; fn LLVMDeleteGlobal(GlobalVar: ValueRef); fn LLVMGetInitializer(GlobalVar: ValueRef) -> ValueRef; fn LLVMSetInitializer(GlobalVar: ValueRef, ConstantVal: ValueRef); fn LLVMIsThreadLocal(GlobalVar: ValueRef) -> Bool; fn LLVMSetThreadLocal(GlobalVar: ValueRef, IsThreadLocal: Bool); fn LLVMIsGlobalConstant(GlobalVar: ValueRef) -> Bool; fn LLVMSetGlobalConstant(GlobalVar: ValueRef, IsConstant: Bool); /* Operations on aliases */ fn LLVMAddAlias(M: ModuleRef, Ty: TypeRef, Aliasee: ValueRef, Name: *c_char) -> ValueRef; /* Operations on functions */ fn LLVMAddFunction(M: ModuleRef, Name: *c_char, FunctionTy: TypeRef) -> ValueRef; fn LLVMGetNamedFunction(M: ModuleRef, Name: *c_char) -> ValueRef; fn LLVMGetFirstFunction(M: ModuleRef) -> ValueRef; fn LLVMGetLastFunction(M: ModuleRef) -> ValueRef; fn LLVMGetNextFunction(Fn: ValueRef) -> ValueRef; fn LLVMGetPreviousFunction(Fn: ValueRef) -> ValueRef; fn LLVMDeleteFunction(Fn: ValueRef); fn LLVMGetOrInsertFunction(M: ModuleRef, Name: *c_char, FunctionTy: TypeRef) -> ValueRef; fn LLVMGetIntrinsicID(Fn: ValueRef) -> c_uint; fn LLVMGetFunctionCallConv(Fn: ValueRef) -> c_uint; fn LLVMSetFunctionCallConv(Fn: ValueRef, CC: c_uint); fn LLVMGetGC(Fn: ValueRef) -> *c_char; fn LLVMSetGC(Fn: ValueRef, Name: *c_char); fn LLVMAddFunctionAttr(Fn: ValueRef, PA: c_ulonglong, HighPA: c_ulonglong); fn LLVMGetFunctionAttr(Fn: ValueRef) -> c_ulonglong; fn LLVMRemoveFunctionAttr(Fn: ValueRef, PA: c_ulonglong, HighPA: c_ulonglong); /* Operations on parameters */ fn LLVMCountParams(Fn: ValueRef) -> c_uint; fn LLVMGetParams(Fn: ValueRef, Params: *ValueRef); fn LLVMGetParam(Fn: ValueRef, Index: c_uint) -> ValueRef; fn LLVMGetParamParent(Inst: ValueRef) -> ValueRef; fn LLVMGetFirstParam(Fn: ValueRef) -> ValueRef; fn LLVMGetLastParam(Fn: ValueRef) -> ValueRef; fn LLVMGetNextParam(Arg: ValueRef) -> ValueRef; fn LLVMGetPreviousParam(Arg: ValueRef) -> ValueRef; fn LLVMAddAttribute(Arg: ValueRef, PA: c_uint); fn LLVMRemoveAttribute(Arg: ValueRef, PA: c_uint); fn LLVMGetAttribute(Arg: ValueRef) -> c_uint; fn LLVMSetParamAlignment(Arg: ValueRef, align: c_uint); /* Operations on basic blocks */ fn LLVMBasicBlockAsValue(BB: BasicBlockRef) -> ValueRef; fn LLVMValueIsBasicBlock(Val: ValueRef) -> Bool; fn LLVMValueAsBasicBlock(Val: ValueRef) -> BasicBlockRef; fn LLVMGetBasicBlockParent(BB: BasicBlockRef) -> ValueRef; fn LLVMCountBasicBlocks(Fn: ValueRef) -> c_uint; fn LLVMGetBasicBlocks(Fn: ValueRef, BasicBlocks: *ValueRef); fn LLVMGetFirstBasicBlock(Fn: ValueRef) -> BasicBlockRef; fn LLVMGetLastBasicBlock(Fn: ValueRef) -> BasicBlockRef; fn LLVMGetNextBasicBlock(BB: BasicBlockRef) -> BasicBlockRef; fn LLVMGetPreviousBasicBlock(BB: BasicBlockRef) -> BasicBlockRef; fn LLVMGetEntryBasicBlock(Fn: ValueRef) -> BasicBlockRef; fn LLVMAppendBasicBlockInContext(C: ContextRef, Fn: ValueRef, Name: *c_char) -> BasicBlockRef; fn LLVMInsertBasicBlockInContext(C: ContextRef, BB: BasicBlockRef, Name: *c_char) -> BasicBlockRef; fn LLVMAppendBasicBlock(Fn: ValueRef, Name: *c_char) -> BasicBlockRef; fn LLVMInsertBasicBlock(InsertBeforeBB: BasicBlockRef, Name: *c_char) -> BasicBlockRef; fn LLVMDeleteBasicBlock(BB: BasicBlockRef); /* Operations on instructions */ fn LLVMGetInstructionParent(Inst: ValueRef) -> BasicBlockRef; fn LLVMGetFirstInstruction(BB: BasicBlockRef) -> ValueRef; fn LLVMGetLastInstruction(BB: BasicBlockRef) -> ValueRef; fn LLVMGetNextInstruction(Inst: ValueRef) -> ValueRef; fn LLVMGetPreviousInstruction(Inst: ValueRef) -> ValueRef; /* Operations on call sites */ fn LLVMSetInstructionCallConv(Instr: ValueRef, CC: c_uint); fn LLVMGetInstructionCallConv(Instr: ValueRef) -> c_uint; fn LLVMAddInstrAttribute(Instr: ValueRef, index: c_uint, IA: c_uint); fn LLVMRemoveInstrAttribute(Instr: ValueRef, index: c_uint, IA: c_uint); fn LLVMSetInstrParamAlignment(Instr: ValueRef, index: c_uint, align: c_uint); /* Operations on call instructions (only) */ fn LLVMIsTailCall(CallInst: ValueRef) -> Bool; fn LLVMSetTailCall(CallInst: ValueRef, IsTailCall: Bool); /* Operations on phi nodes */ fn LLVMAddIncoming(PhiNode: ValueRef, IncomingValues: *ValueRef, IncomingBlocks: *BasicBlockRef, Count: c_uint); fn LLVMCountIncoming(PhiNode: ValueRef) -> c_uint; fn LLVMGetIncomingValue(PhiNode: ValueRef, Index: c_uint) -> ValueRef; fn LLVMGetIncomingBlock(PhiNode: ValueRef, Index: c_uint) -> BasicBlockRef; /* Instruction builders */ fn LLVMCreateBuilderInContext(C: ContextRef) -> BuilderRef; fn LLVMCreateBuilder() -> BuilderRef; fn LLVMPositionBuilder(Builder: BuilderRef, Block: BasicBlockRef, Instr: ValueRef); fn LLVMPositionBuilderBefore(Builder: BuilderRef, Instr: ValueRef); fn LLVMPositionBuilderAtEnd(Builder: BuilderRef, Block: BasicBlockRef); fn LLVMGetInsertBlock(Builder: BuilderRef) -> BasicBlockRef; fn LLVMClearInsertionPosition(Builder: BuilderRef); fn LLVMInsertIntoBuilder(Builder: BuilderRef, Instr: ValueRef); fn LLVMInsertIntoBuilderWithName(Builder: BuilderRef, Instr: ValueRef, Name: *c_char); fn LLVMDisposeBuilder(Builder: BuilderRef); /* Metadata */ fn LLVMSetCurrentDebugLocation(Builder: BuilderRef, L: ValueRef); fn LLVMGetCurrentDebugLocation(Builder: BuilderRef) -> ValueRef; fn LLVMSetInstDebugLocation(Builder: BuilderRef, Inst: ValueRef); /* Terminators */ fn LLVMBuildRetVoid(B: BuilderRef) -> ValueRef; fn LLVMBuildRet(B: BuilderRef, V: ValueRef) -> ValueRef; fn LLVMBuildAggregateRet(B: BuilderRef, RetVals: *ValueRef, N: c_uint) -> ValueRef; fn LLVMBuildBr(B: BuilderRef, Dest: BasicBlockRef) -> ValueRef; fn LLVMBuildCondBr(B: BuilderRef, If: ValueRef, Then: BasicBlockRef, Else: BasicBlockRef) -> ValueRef; fn LLVMBuildSwitch(B: BuilderRef, V: ValueRef, Else: BasicBlockRef, NumCases: c_uint) -> ValueRef; fn LLVMBuildIndirectBr(B: BuilderRef, Addr: ValueRef, NumDests: c_uint) -> ValueRef; fn LLVMBuildInvoke(B: BuilderRef, Fn: ValueRef, Args: *ValueRef, NumArgs: c_uint, Then: BasicBlockRef, Catch: BasicBlockRef, Name: *c_char) -> ValueRef; fn LLVMBuildLandingPad(B: BuilderRef, Ty: TypeRef, PersFn: ValueRef, NumClauses: c_uint, Name: *c_char) -> ValueRef; fn LLVMBuildResume(B: BuilderRef, Exn: ValueRef) -> ValueRef; fn LLVMBuildUnreachable(B: BuilderRef) -> ValueRef; /* Add a case to the switch instruction */ fn LLVMAddCase(Switch: ValueRef, OnVal: ValueRef, Dest: BasicBlockRef); /* Add a destination to the indirectbr instruction */ fn LLVMAddDestination(IndirectBr: ValueRef, Dest: BasicBlockRef); /* Add a clause to the landing pad instruction */ fn LLVMAddClause(LandingPad: ValueRef, ClauseVal: ValueRef); /* Set the cleanup on a landing pad instruction */ fn LLVMSetCleanup(LandingPad: ValueRef, Val: Bool); /* Arithmetic */ fn LLVMBuildAdd(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildNSWAdd(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildNUWAdd(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildFAdd(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildSub(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildNSWSub(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildNUWSub(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildFSub(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildMul(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildNSWMul(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildNUWMul(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildFMul(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildUDiv(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildSDiv(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildExactSDiv(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildFDiv(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildURem(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildSRem(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildFRem(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildShl(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildLShr(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildAShr(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildAnd(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildOr(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildXor(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildBinOp(B: BuilderRef, Op: Opcode, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildNeg(B: BuilderRef, V: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildNSWNeg(B: BuilderRef, V: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildNUWNeg(B: BuilderRef, V: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildFNeg(B: BuilderRef, V: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildNot(B: BuilderRef, V: ValueRef, Name: *c_char) -> ValueRef; /* Memory */ fn LLVMBuildMalloc(B: BuilderRef, Ty: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildArrayMalloc(B: BuilderRef, Ty: TypeRef, Val: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildAlloca(B: BuilderRef, Ty: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildArrayAlloca(B: BuilderRef, Ty: TypeRef, Val: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildFree(B: BuilderRef, PointerVal: ValueRef) -> ValueRef; fn LLVMBuildLoad(B: BuilderRef, PointerVal: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildStore(B: BuilderRef, Val: ValueRef, Ptr: ValueRef) -> ValueRef; fn LLVMBuildGEP(B: BuilderRef, Pointer: ValueRef, Indices: *ValueRef, NumIndices: c_uint, Name: *c_char) -> ValueRef; fn LLVMBuildInBoundsGEP(B: BuilderRef, Pointer: ValueRef, Indices: *ValueRef, NumIndices: c_uint, Name: *c_char) -> ValueRef; fn LLVMBuildStructGEP(B: BuilderRef, Pointer: ValueRef, Idx: c_uint, Name: *c_char) -> ValueRef; fn LLVMBuildGlobalString(B: BuilderRef, Str: *c_char, Name: *c_char) -> ValueRef; fn LLVMBuildGlobalStringPtr(B: BuilderRef, Str: *c_char, Name: *c_char) -> ValueRef; /* Casts */ fn LLVMBuildTrunc(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildZExt(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildSExt(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildFPToUI(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildFPToSI(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildUIToFP(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildSIToFP(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildFPTrunc(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildFPExt(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildPtrToInt(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildIntToPtr(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildBitCast(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildZExtOrBitCast(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildSExtOrBitCast(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildTruncOrBitCast(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildCast(B: BuilderRef, Op: Opcode, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildPointerCast(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildIntCast(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildFPCast(B: BuilderRef, Val: ValueRef, DestTy: TypeRef, Name: *c_char) -> ValueRef; /* Comparisons */ fn LLVMBuildICmp(B: BuilderRef, Op: c_uint, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildFCmp(B: BuilderRef, Op: c_uint, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; /* Miscellaneous instructions */ fn LLVMBuildPhi(B: BuilderRef, Ty: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildCall(B: BuilderRef, Fn: ValueRef, Args: *ValueRef, NumArgs: c_uint, Name: *c_char) -> ValueRef; fn LLVMBuildSelect(B: BuilderRef, If: ValueRef, Then: ValueRef, Else: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildVAArg(B: BuilderRef, list: ValueRef, Ty: TypeRef, Name: *c_char) -> ValueRef; fn LLVMBuildExtractElement(B: BuilderRef, VecVal: ValueRef, Index: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildInsertElement(B: BuilderRef, VecVal: ValueRef, EltVal: ValueRef, Index: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildShuffleVector(B: BuilderRef, V1: ValueRef, V2: ValueRef, Mask: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildExtractValue(B: BuilderRef, AggVal: ValueRef, Index: c_uint, Name: *c_char) -> ValueRef; fn LLVMBuildInsertValue(B: BuilderRef, AggVal: ValueRef, EltVal: ValueRef, Index: c_uint, Name: *c_char) -> ValueRef; fn LLVMBuildIsNull(B: BuilderRef, Val: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildIsNotNull(B: BuilderRef, Val: ValueRef, Name: *c_char) -> ValueRef; fn LLVMBuildPtrDiff(B: BuilderRef, LHS: ValueRef, RHS: ValueRef, Name: *c_char) -> ValueRef; /* Atomic Operations */ fn LLVMBuildAtomicRMW(B: BuilderRef, ++Op: AtomicBinOp, LHS: ValueRef, RHS: ValueRef, ++Order: AtomicOrdering) -> ValueRef; /* Selected entries from the downcasts. */ fn LLVMIsATerminatorInst(Inst: ValueRef) -> ValueRef; /** Writes a module to the specified path. Returns 0 on success. */ fn LLVMWriteBitcodeToFile(M: ModuleRef, Path: *c_char) -> c_int; /** Creates target data from a target layout string. */ fn LLVMCreateTargetData(StringRep: *c_char) -> TargetDataRef; /** Adds the target data to the given pass manager. The pass manager references the target data only weakly. */ fn LLVMAddTargetData(TD: TargetDataRef, PM: PassManagerRef); /** Number of bytes clobbered when doing a Store to *T. */ fn LLVMStoreSizeOfType(TD: TargetDataRef, Ty: TypeRef) -> c_ulonglong; /** Number of bytes clobbered when doing a Store to *T. */ fn LLVMSizeOfTypeInBits(TD: TargetDataRef, Ty: TypeRef) -> c_ulonglong; /** Distance between successive elements in an array of T. Includes ABI padding. */ fn LLVMABISizeOfType(TD: TargetDataRef, Ty: TypeRef) -> c_uint; /** Returns the preferred alignment of a type. */ fn LLVMPreferredAlignmentOfType(TD: TargetDataRef, Ty: TypeRef) -> c_uint; /** Returns the minimum alignment of a type. */ fn LLVMABIAlignmentOfType(TD: TargetDataRef, Ty: TypeRef) -> c_uint; /** Returns the minimum alignment of a type when part of a call frame. */ fn LLVMCallFrameAlignmentOfType(TD: TargetDataRef, Ty: TypeRef) -> c_uint; /** Disposes target data. */ fn LLVMDisposeTargetData(TD: TargetDataRef); /** Creates a pass manager. */ fn LLVMCreatePassManager() -> PassManagerRef; /** Disposes a pass manager. */ fn LLVMDisposePassManager(PM: PassManagerRef); /** Runs a pass manager on a module. */ fn LLVMRunPassManager(PM: PassManagerRef, M: ModuleRef) -> Bool; /** Adds a verification pass. */ fn LLVMAddVerifierPass(PM: PassManagerRef); fn LLVMAddGlobalOptimizerPass(PM: PassManagerRef); fn LLVMAddIPSCCPPass(PM: PassManagerRef); fn LLVMAddDeadArgEliminationPass(PM: PassManagerRef); fn LLVMAddInstructionCombiningPass(PM: PassManagerRef); fn LLVMAddCFGSimplificationPass(PM: PassManagerRef); fn LLVMAddFunctionInliningPass(PM: PassManagerRef); fn LLVMAddFunctionAttrsPass(PM: PassManagerRef); fn LLVMAddScalarReplAggregatesPass(PM: PassManagerRef); fn LLVMAddScalarReplAggregatesPassSSA(PM: PassManagerRef); fn LLVMAddJumpThreadingPass(PM: PassManagerRef); fn LLVMAddConstantPropagationPass(PM: PassManagerRef); fn LLVMAddReassociatePass(PM: PassManagerRef); fn LLVMAddLoopRotatePass(PM: PassManagerRef); fn LLVMAddLICMPass(PM: PassManagerRef); fn LLVMAddLoopUnswitchPass(PM: PassManagerRef); fn LLVMAddLoopDeletionPass(PM: PassManagerRef); fn LLVMAddLoopUnrollPass(PM: PassManagerRef); fn LLVMAddGVNPass(PM: PassManagerRef); fn LLVMAddMemCpyOptPass(PM: PassManagerRef); fn LLVMAddSCCPPass(PM: PassManagerRef); fn LLVMAddDeadStoreEliminationPass(PM: PassManagerRef); fn LLVMAddStripDeadPrototypesPass(PM: PassManagerRef); fn LLVMAddConstantMergePass(PM: PassManagerRef); fn LLVMAddArgumentPromotionPass(PM: PassManagerRef); fn LLVMAddTailCallEliminationPass(PM: PassManagerRef); fn LLVMAddIndVarSimplifyPass(PM: PassManagerRef); fn LLVMAddAggressiveDCEPass(PM: PassManagerRef); fn LLVMAddGlobalDCEPass(PM: PassManagerRef); fn LLVMAddCorrelatedValuePropagationPass(PM: PassManagerRef); fn LLVMAddPruneEHPass(PM: PassManagerRef); fn LLVMAddSimplifyLibCallsPass(PM: PassManagerRef); fn LLVMAddLoopIdiomPass(PM: PassManagerRef); fn LLVMAddEarlyCSEPass(PM: PassManagerRef); fn LLVMAddTypeBasedAliasAnalysisPass(PM: PassManagerRef); fn LLVMAddBasicAliasAnalysisPass(PM: PassManagerRef); fn LLVMPassManagerBuilderCreate() -> PassManagerBuilderRef; fn LLVMPassManagerBuilderDispose(PMB: PassManagerBuilderRef); fn LLVMPassManagerBuilderSetOptLevel(PMB: PassManagerBuilderRef, OptimizationLevel: c_uint); fn LLVMPassManagerBuilderSetSizeLevel(PMB: PassManagerBuilderRef, Value: Bool); fn LLVMPassManagerBuilderSetDisableUnitAtATime(PMB: PassManagerBuilderRef, Value: Bool); fn LLVMPassManagerBuilderSetDisableUnrollLoops(PMB: PassManagerBuilderRef, Value: Bool); fn LLVMPassManagerBuilderSetDisableSimplifyLibCalls (PMB: PassManagerBuilderRef, Value: Bool); fn LLVMPassManagerBuilderUseInlinerWithThreshold (PMB: PassManagerBuilderRef, threshold: c_uint); fn LLVMPassManagerBuilderPopulateModulePassManager (PMB: PassManagerBuilderRef, PM: PassManagerRef); fn LLVMPassManagerBuilderPopulateFunctionPassManager (PMB: PassManagerBuilderRef, PM: PassManagerRef); /** Destroys a memory buffer. */ fn LLVMDisposeMemoryBuffer(MemBuf: MemoryBufferRef); /* Stuff that's in rustllvm/ because it's not upstream yet. */ /** Opens an object file. */ fn LLVMCreateObjectFile(MemBuf: MemoryBufferRef) -> ObjectFileRef; /** Closes an object file. */ fn LLVMDisposeObjectFile(ObjectFile: ObjectFileRef); /** Enumerates the sections in an object file. */ fn LLVMGetSections(ObjectFile: ObjectFileRef) -> SectionIteratorRef; /** Destroys a section iterator. */ fn LLVMDisposeSectionIterator(SI: SectionIteratorRef); /** Returns true if the section iterator is at the end of the section list: */ fn LLVMIsSectionIteratorAtEnd(ObjectFile: ObjectFileRef, SI: SectionIteratorRef) -> Bool; /** Moves the section iterator to point to the next section. */ fn LLVMMoveToNextSection(SI: SectionIteratorRef); /** Returns the current section name. */ fn LLVMGetSectionName(SI: SectionIteratorRef) -> *c_char; /** Returns the current section size. */ fn LLVMGetSectionSize(SI: SectionIteratorRef) -> c_ulonglong; /** Returns the current section contents as a string buffer. */ fn LLVMGetSectionContents(SI: SectionIteratorRef) -> *c_char; /** Reads the given file and returns it as a memory buffer. Use LLVMDisposeMemoryBuffer() to get rid of it. */ fn LLVMRustCreateMemoryBufferWithContentsOfFile(Path: *c_char) -> MemoryBufferRef; fn LLVMRustWriteOutputFile(PM: PassManagerRef, M: ModuleRef, Triple: *c_char, // FIXME: When #2334 is fixed, change // c_uint to FileType Output: *c_char, FileType: c_uint, OptLevel: c_int, EnableSegmentedStacks: bool) -> bool; /** Returns a string describing the last error caused by an LLVMRust* call. */ fn LLVMRustGetLastError() -> *c_char; /** Parses the bitcode in the given memory buffer. */ fn LLVMRustParseBitcode(MemBuf: MemoryBufferRef) -> ModuleRef; /** Parses LLVM asm in the given file */ fn LLVMRustParseAssemblyFile(Filename: *c_char) -> ModuleRef; fn LLVMRustAddPrintModulePass(PM: PassManagerRef, M: ModuleRef, Output: *c_char); /** Turn on LLVM pass-timing. */ fn LLVMRustEnableTimePasses(); /** Print the pass timings since static dtors aren't picking them up. */ fn LLVMRustPrintPassTimings(); fn LLVMStructCreateNamed(C: ContextRef, Name: *c_char) -> TypeRef; fn LLVMStructSetBody(StructTy: TypeRef, ElementTypes: *TypeRef, ElementCount: c_uint, Packed: Bool); fn LLVMConstNamedStruct(S: TypeRef, ConstantVals: *ValueRef, Count: c_uint) -> ValueRef; /** Enables LLVM debug output. */ fn LLVMSetDebug(Enabled: c_int); } fn SetInstructionCallConv(Instr: ValueRef, CC: CallConv) { llvm::LLVMSetInstructionCallConv(Instr, CC as c_uint); } fn SetFunctionCallConv(Fn: ValueRef, CC: CallConv) { llvm::LLVMSetFunctionCallConv(Fn, CC as c_uint); } fn SetLinkage(Global: ValueRef, Link: Linkage) { llvm::LLVMSetLinkage(Global, Link as c_uint); } /* Memory-managed object interface to type handles. */ type type_names = @{type_names: std::map::hashmap, named_types: std::map::hashmap<~str, TypeRef>}; fn associate_type(tn: type_names, s: ~str, t: TypeRef) { assert tn.type_names.insert(t, s); assert tn.named_types.insert(s, t); } fn type_has_name(tn: type_names, t: TypeRef) -> option<~str> { return tn.type_names.find(t); } fn name_has_type(tn: type_names, s: ~str) -> option { return tn.named_types.find(s); } fn mk_type_names() -> type_names { pure fn hash(t: &TypeRef) -> uint { *t as uint } pure fn eq(a: &TypeRef, b: &TypeRef) -> bool { *a == *b } @{type_names: std::map::hashmap(hash, eq), named_types: std::map::str_hash()} } fn type_to_str(names: type_names, ty: TypeRef) -> ~str { return type_to_str_inner(names, ~[], ty); } fn type_to_str_inner(names: type_names, outer0: ~[TypeRef], ty: TypeRef) -> ~str { match type_has_name(names, ty) { option::some(n) => return n, _ => {} } let outer = vec::append_one(outer0, ty); let kind = llvm::LLVMGetTypeKind(ty); fn tys_str(names: type_names, outer: ~[TypeRef], tys: ~[TypeRef]) -> ~str { let mut s: ~str = ~""; let mut first: bool = true; for tys.each |t| { if first { first = false; } else { s += ~", "; } s += type_to_str_inner(names, outer, t); } return s; } match kind { Void => return ~"Void", Half => return ~"Half", Float => return ~"Float", Double => return ~"Double", X86_FP80 => return ~"X86_FP80", FP128 => return ~"FP128", PPC_FP128 => return ~"PPC_FP128", Label => return ~"Label", Integer => { return ~"i" + int::str(llvm::LLVMGetIntTypeWidth(ty) as int); } Function => { let mut s = ~"fn("; let out_ty: TypeRef = llvm::LLVMGetReturnType(ty); let n_args = llvm::LLVMCountParamTypes(ty) as uint; let args = vec::from_elem(n_args, 0 as TypeRef); unsafe { llvm::LLVMGetParamTypes(ty, vec::unsafe::to_ptr(args)); } s += tys_str(names, outer, args); s += ~") -> "; s += type_to_str_inner(names, outer, out_ty); return s; } Struct => { let mut s: ~str = ~"{"; let n_elts = llvm::LLVMCountStructElementTypes(ty) as uint; let elts = vec::from_elem(n_elts, 0 as TypeRef); unsafe { llvm::LLVMGetStructElementTypes(ty, vec::unsafe::to_ptr(elts)); } s += tys_str(names, outer, elts); s += ~"}"; return s; } Array => { let el_ty = llvm::LLVMGetElementType(ty); return ~"[" + type_to_str_inner(names, outer, el_ty) + ~" x " + uint::str(llvm::LLVMGetArrayLength(ty) as uint) + ~"]"; } Pointer => { let mut i: uint = 0u; for outer0.each |tout| { i += 1u; if tout as int == ty as int { let n: uint = vec::len::(outer0) - i; return ~"*\\" + int::str(n as int); } } let addrstr = { let addrspace = llvm::LLVMGetPointerAddressSpace(ty) as uint; if addrspace == 0u { ~"" } else { fmt!{"addrspace(%u)", addrspace} } }; return addrstr + ~"*" + type_to_str_inner(names, outer, llvm::LLVMGetElementType(ty)); } Vector => return ~"Vector", Metadata => return ~"Metadata", X86_MMX => return ~"X86_MMAX" } } fn float_width(llt: TypeRef) -> uint { return match llvm::LLVMGetTypeKind(llt) as int { 1 => 32u, 2 => 64u, 3 => 80u, 4 | 5 => 128u, _ => fail ~"llvm_float_width called on a non-float type" }; } fn fn_ty_param_tys(fn_ty: TypeRef) -> ~[TypeRef] unsafe { let args = vec::from_elem(llvm::LLVMCountParamTypes(fn_ty) as uint, 0 as TypeRef); llvm::LLVMGetParamTypes(fn_ty, vec::unsafe::to_ptr(args)); return args; } /* Memory-managed interface to target data. */ class target_data_res { let TD: TargetDataRef; new(TD: TargetDataRef) { self.TD = TD; } drop { llvm::LLVMDisposeTargetData(self.TD); } } type target_data = {lltd: TargetDataRef, dtor: @target_data_res}; fn mk_target_data(string_rep: ~str) -> target_data { let lltd = str::as_c_str(string_rep, |buf| llvm::LLVMCreateTargetData(buf) ); return {lltd: lltd, dtor: @target_data_res(lltd)}; } /* Memory-managed interface to pass managers. */ class pass_manager_res { let PM: PassManagerRef; new(PM: PassManagerRef) { self.PM = PM; } drop { llvm::LLVMDisposePassManager(self.PM); } } type pass_manager = {llpm: PassManagerRef, dtor: @pass_manager_res}; fn mk_pass_manager() -> pass_manager { let llpm = llvm::LLVMCreatePassManager(); return {llpm: llpm, dtor: @pass_manager_res(llpm)}; } /* Memory-managed interface to object files. */ class object_file_res { let ObjectFile: ObjectFileRef; new(ObjectFile: ObjectFileRef) { self.ObjectFile = ObjectFile; } drop { llvm::LLVMDisposeObjectFile(self.ObjectFile); } } type object_file = {llof: ObjectFileRef, dtor: @object_file_res}; fn mk_object_file(llmb: MemoryBufferRef) -> option { let llof = llvm::LLVMCreateObjectFile(llmb); if llof as int == 0 { return option::none::; } return option::some({llof: llof, dtor: @object_file_res(llof)}); } /* Memory-managed interface to section iterators. */ class section_iter_res { let SI: SectionIteratorRef; new(SI: SectionIteratorRef) { self.SI = SI; } drop { llvm::LLVMDisposeSectionIterator(self.SI); } } type section_iter = {llsi: SectionIteratorRef, dtor: @section_iter_res}; fn mk_section_iter(llof: ObjectFileRef) -> section_iter { let llsi = llvm::LLVMGetSections(llof); return {llsi: llsi, dtor: @section_iter_res(llsi)}; } // // Local Variables: // mode: rust // fill-column: 78; // indent-tabs-mode: nil // c-basic-offset: 4 // buffer-file-coding-system: utf-8-unix // End: //