llvm.ml revision ba0c7cd012b064e2d8009480f9ae6f7d75e00e13
1(*===-- llvm/llvm.ml - LLVM Ocaml Interface --------------------------------===* 2 * 3 * The LLVM Compiler Infrastructure 4 * 5 * This file is distributed under the University of Illinois Open Source 6 * License. See LICENSE.TXT for details. 7 * 8 *===----------------------------------------------------------------------===*) 9 10 11type llcontext 12type llmodule 13type lltype 14type llvalue 15type lluse 16type llbasicblock 17type llbuilder 18type llmemorybuffer 19 20module TypeKind = struct 21 type t = 22 | Void 23 | Half 24 | Float 25 | Double 26 | X86fp80 27 | Fp128 28 | Ppc_fp128 29 | Label 30 | Integer 31 | Function 32 | Struct 33 | Array 34 | Pointer 35 | Vector 36 | Metadata 37 | X86_mmx 38end 39 40module Linkage = struct 41 type t = 42 | External 43 | Available_externally 44 | Link_once 45 | Link_once_odr 46 | Link_once_odr_auto_hide 47 | Weak 48 | Weak_odr 49 | Appending 50 | Internal 51 | Private 52 | Dllimport 53 | Dllexport 54 | External_weak 55 | Ghost 56 | Common 57 | Linker_private 58 | Linker_private_weak 59end 60 61module Visibility = struct 62 type t = 63 | Default 64 | Hidden 65 | Protected 66end 67 68module CallConv = struct 69 let c = 0 70 let fast = 8 71 let cold = 9 72 let x86_stdcall = 64 73 let x86_fastcall = 65 74end 75 76module Attribute = struct 77 type t = 78 | Zext 79 | Sext 80 | Noreturn 81 | Inreg 82 | Structret 83 | Nounwind 84 | Noalias 85 | Byval 86 | Nest 87 | Readnone 88 | Readonly 89 | Noinline 90 | Alwaysinline 91 | Optsize 92 | Ssp 93 | Sspreq 94 | Alignment of int 95 | Nocapture 96 | Noredzone 97 | Noimplicitfloat 98 | Naked 99 | Inlinehint 100 | Stackalignment of int 101 | ReturnsTwice 102 | UWTable 103 | NonLazyBind 104end 105 106module Icmp = struct 107 type t = 108 | Eq 109 | Ne 110 | Ugt 111 | Uge 112 | Ult 113 | Ule 114 | Sgt 115 | Sge 116 | Slt 117 | Sle 118end 119 120module Fcmp = struct 121 type t = 122 | False 123 | Oeq 124 | Ogt 125 | Oge 126 | Olt 127 | Ole 128 | One 129 | Ord 130 | Uno 131 | Ueq 132 | Ugt 133 | Uge 134 | Ult 135 | Ule 136 | Une 137 | True 138end 139 140module Opcode = struct 141 type t = 142 | Invalid (* not an instruction *) 143 (* Terminator Instructions *) 144 | Ret 145 | Br 146 | Switch 147 | IndirectBr 148 | Invoke 149 | Invalid2 150 | Unreachable 151 (* Standard Binary Operators *) 152 | Add 153 | FAdd 154 | Sub 155 | FSub 156 | Mul 157 | FMul 158 | UDiv 159 | SDiv 160 | FDiv 161 | URem 162 | SRem 163 | FRem 164 (* Logical Operators *) 165 | Shl 166 | LShr 167 | AShr 168 | And 169 | Or 170 | Xor 171 (* Memory Operators *) 172 | Alloca 173 | Load 174 | Store 175 | GetElementPtr 176 (* Cast Operators *) 177 | Trunc 178 | ZExt 179 | SExt 180 | FPToUI 181 | FPToSI 182 | UIToFP 183 | SIToFP 184 | FPTrunc 185 | FPExt 186 | PtrToInt 187 | IntToPtr 188 | BitCast 189 (* Other Operators *) 190 | ICmp 191 | FCmp 192 | PHI 193 | Call 194 | Select 195 | UserOp1 196 | UserOp2 197 | VAArg 198 | ExtractElement 199 | InsertElement 200 | ShuffleVector 201 | ExtractValue 202 | InsertValue 203 | Fence 204 | AtomicCmpXchg 205 | AtomicRMW 206 | Resume 207 | LandingPad 208end 209 210module LandingPadClauseTy = struct 211 type t = 212 | Catch 213 | Filter 214end 215 216module ThreadLocalMode = struct 217 type t = 218 | None 219 | GeneralDynamic 220 | LocalDynamic 221 | InitialExec 222 | LocalExec 223end 224 225module AtomicOrdering = struct 226 type t = 227 | NotAtomic 228 | Unordered 229 | Monotonic 230 | Invalid 231 | Acquire 232 | Release 233 | AcqiureRelease 234 | SequentiallyConsistent 235end 236 237module AtomicRMWBinOp = struct 238 type t = 239 | Xchg 240 | Add 241 | Sub 242 | And 243 | Nand 244 | Or 245 | Xor 246 | Max 247 | Min 248 | UMax 249 | UMin 250end 251 252module ValueKind = struct 253 type t = 254 | NullValue 255 | Argument 256 | BasicBlock 257 | InlineAsm 258 | MDNode 259 | MDString 260 | BlockAddress 261 | ConstantAggregateZero 262 | ConstantArray 263 | ConstantDataArray 264 | ConstantDataVector 265 | ConstantExpr 266 | ConstantFP 267 | ConstantInt 268 | ConstantPointerNull 269 | ConstantStruct 270 | ConstantVector 271 | Function 272 | GlobalAlias 273 | GlobalVariable 274 | UndefValue 275 | Instruction of Opcode.t 276end 277 278exception IoError of string 279 280external register_exns : exn -> unit = "llvm_register_core_exns" 281let _ = register_exns (IoError "") 282 283type ('a, 'b) llpos = 284| At_end of 'a 285| Before of 'b 286 287type ('a, 'b) llrev_pos = 288| At_start of 'a 289| After of 'b 290 291(*===-- Contexts ----------------------------------------------------------===*) 292external create_context : unit -> llcontext = "llvm_create_context" 293external dispose_context : llcontext -> unit = "llvm_dispose_context" 294external global_context : unit -> llcontext = "llvm_global_context" 295external mdkind_id : llcontext -> string -> int = "llvm_mdkind_id" 296 297(*===-- Modules -----------------------------------------------------------===*) 298external create_module : llcontext -> string -> llmodule = "llvm_create_module" 299external dispose_module : llmodule -> unit = "llvm_dispose_module" 300external target_triple: llmodule -> string 301 = "llvm_target_triple" 302external set_target_triple: string -> llmodule -> unit 303 = "llvm_set_target_triple" 304external data_layout: llmodule -> string 305 = "llvm_data_layout" 306external set_data_layout: string -> llmodule -> unit 307 = "llvm_set_data_layout" 308external dump_module : llmodule -> unit = "llvm_dump_module" 309external print_module : string -> llmodule -> unit = "llvm_print_module" 310external string_of_llmodule : llmodule -> string = "llvm_string_of_llmodule" 311external set_module_inline_asm : llmodule -> string -> unit 312 = "llvm_set_module_inline_asm" 313external module_context : llmodule -> llcontext = "LLVMGetModuleContext" 314 315(*===-- Types -------------------------------------------------------------===*) 316external classify_type : lltype -> TypeKind.t = "llvm_classify_type" 317external type_context : lltype -> llcontext = "llvm_type_context" 318external type_is_sized : lltype -> bool = "llvm_type_is_sized" 319external dump_type : lltype -> unit = "llvm_dump_type" 320external string_of_lltype : lltype -> string = "llvm_string_of_lltype" 321 322(*--... Operations on integer types ........................................--*) 323external i1_type : llcontext -> lltype = "llvm_i1_type" 324external i8_type : llcontext -> lltype = "llvm_i8_type" 325external i16_type : llcontext -> lltype = "llvm_i16_type" 326external i32_type : llcontext -> lltype = "llvm_i32_type" 327external i64_type : llcontext -> lltype = "llvm_i64_type" 328 329external integer_type : llcontext -> int -> lltype = "llvm_integer_type" 330external integer_bitwidth : lltype -> int = "llvm_integer_bitwidth" 331 332(*--... Operations on real types ...........................................--*) 333external float_type : llcontext -> lltype = "llvm_float_type" 334external double_type : llcontext -> lltype = "llvm_double_type" 335external x86fp80_type : llcontext -> lltype = "llvm_x86fp80_type" 336external fp128_type : llcontext -> lltype = "llvm_fp128_type" 337external ppc_fp128_type : llcontext -> lltype = "llvm_ppc_fp128_type" 338 339(*--... Operations on function types .......................................--*) 340external function_type : lltype -> lltype array -> lltype = "llvm_function_type" 341external var_arg_function_type : lltype -> lltype array -> lltype 342 = "llvm_var_arg_function_type" 343external is_var_arg : lltype -> bool = "llvm_is_var_arg" 344external return_type : lltype -> lltype = "LLVMGetReturnType" 345external param_types : lltype -> lltype array = "llvm_param_types" 346 347(*--... Operations on struct types .........................................--*) 348external struct_type : llcontext -> lltype array -> lltype = "llvm_struct_type" 349external packed_struct_type : llcontext -> lltype array -> lltype 350 = "llvm_packed_struct_type" 351external struct_name : lltype -> string option = "llvm_struct_name" 352external named_struct_type : llcontext -> string -> lltype = 353 "llvm_named_struct_type" 354external struct_set_body : lltype -> lltype array -> bool -> unit = 355 "llvm_struct_set_body" 356external struct_element_types : lltype -> lltype array 357 = "llvm_struct_element_types" 358external is_packed : lltype -> bool = "llvm_is_packed" 359external is_opaque : lltype -> bool = "llvm_is_opaque" 360 361(*--... Operations on pointer, vector, and array types .....................--*) 362external array_type : lltype -> int -> lltype = "llvm_array_type" 363external pointer_type : lltype -> lltype = "llvm_pointer_type" 364external qualified_pointer_type : lltype -> int -> lltype 365 = "llvm_qualified_pointer_type" 366external vector_type : lltype -> int -> lltype = "llvm_vector_type" 367 368external element_type : lltype -> lltype = "LLVMGetElementType" 369external array_length : lltype -> int = "llvm_array_length" 370external address_space : lltype -> int = "llvm_address_space" 371external vector_size : lltype -> int = "llvm_vector_size" 372 373(*--... Operations on other types ..........................................--*) 374external void_type : llcontext -> lltype = "llvm_void_type" 375external label_type : llcontext -> lltype = "llvm_label_type" 376external x86_mmx_type : llcontext -> lltype = "llvm_x86_mmx_type" 377external type_by_name : llmodule -> string -> lltype option = "llvm_type_by_name" 378 379external classify_value : llvalue -> ValueKind.t = "llvm_classify_value" 380(*===-- Values ------------------------------------------------------------===*) 381external type_of : llvalue -> lltype = "llvm_type_of" 382external value_name : llvalue -> string = "llvm_value_name" 383external set_value_name : string -> llvalue -> unit = "llvm_set_value_name" 384external dump_value : llvalue -> unit = "llvm_dump_value" 385external string_of_llvalue : llvalue -> string = "llvm_string_of_llvalue" 386external replace_all_uses_with : llvalue -> llvalue -> unit 387 = "llvm_replace_all_uses_with" 388 389(*--... Operations on uses .................................................--*) 390external use_begin : llvalue -> lluse option = "llvm_use_begin" 391external use_succ : lluse -> lluse option = "llvm_use_succ" 392external user : lluse -> llvalue = "llvm_user" 393external used_value : lluse -> llvalue = "llvm_used_value" 394 395let iter_uses f v = 396 let rec aux = function 397 | None -> () 398 | Some u -> 399 f u; 400 aux (use_succ u) 401 in 402 aux (use_begin v) 403 404let fold_left_uses f init v = 405 let rec aux init u = 406 match u with 407 | None -> init 408 | Some u -> aux (f init u) (use_succ u) 409 in 410 aux init (use_begin v) 411 412let fold_right_uses f v init = 413 let rec aux u init = 414 match u with 415 | None -> init 416 | Some u -> f u (aux (use_succ u) init) 417 in 418 aux (use_begin v) init 419 420 421(*--... Operations on users ................................................--*) 422external operand : llvalue -> int -> llvalue = "llvm_operand" 423external set_operand : llvalue -> int -> llvalue -> unit = "llvm_set_operand" 424external num_operands : llvalue -> int = "llvm_num_operands" 425 426(*--... Operations on constants of (mostly) any type .......................--*) 427external is_constant : llvalue -> bool = "llvm_is_constant" 428external const_null : lltype -> llvalue = "LLVMConstNull" 429external const_all_ones : (*int|vec*)lltype -> llvalue = "LLVMConstAllOnes" 430external const_pointer_null : lltype -> llvalue = "LLVMConstPointerNull" 431external undef : lltype -> llvalue = "LLVMGetUndef" 432external is_null : llvalue -> bool = "llvm_is_null" 433external is_undef : llvalue -> bool = "llvm_is_undef" 434external constexpr_opcode : llvalue -> Opcode.t = "llvm_constexpr_get_opcode" 435 436(*--... Operations on instructions .........................................--*) 437external has_metadata : llvalue -> bool = "llvm_has_metadata" 438external metadata : llvalue -> int -> llvalue option = "llvm_metadata" 439external set_metadata : llvalue -> int -> llvalue -> unit = "llvm_set_metadata" 440external clear_metadata : llvalue -> int -> unit = "llvm_clear_metadata" 441 442(*--... Operations on metadata .......,.....................................--*) 443external mdstring : llcontext -> string -> llvalue = "llvm_mdstring" 444external mdnode : llcontext -> llvalue array -> llvalue = "llvm_mdnode" 445external get_mdstring : llvalue -> string option = "llvm_get_mdstring" 446external get_named_metadata : llmodule -> string -> llvalue array 447 = "llvm_get_namedmd" 448external add_named_metadata_operand : llmodule -> string -> llvalue -> unit 449 = "llvm_append_namedmd" 450 451(*--... Operations on scalar constants .....................................--*) 452external const_int : lltype -> int -> llvalue = "llvm_const_int" 453external const_of_int64 : lltype -> Int64.t -> bool -> llvalue 454 = "llvm_const_of_int64" 455external int64_of_const : llvalue -> Int64.t option 456 = "llvm_int64_of_const" 457external const_int_of_string : lltype -> string -> int -> llvalue 458 = "llvm_const_int_of_string" 459external const_float : lltype -> float -> llvalue = "llvm_const_float" 460external const_float_of_string : lltype -> string -> llvalue 461 = "llvm_const_float_of_string" 462 463(*--... Operations on composite constants ..................................--*) 464external const_string : llcontext -> string -> llvalue = "llvm_const_string" 465external const_stringz : llcontext -> string -> llvalue = "llvm_const_stringz" 466external const_array : lltype -> llvalue array -> llvalue = "llvm_const_array" 467external const_struct : llcontext -> llvalue array -> llvalue 468 = "llvm_const_struct" 469external const_named_struct : lltype -> llvalue array -> llvalue 470 = "llvm_const_named_struct" 471external const_packed_struct : llcontext -> llvalue array -> llvalue 472 = "llvm_const_packed_struct" 473external const_vector : llvalue array -> llvalue = "llvm_const_vector" 474 475(*--... Constant expressions ...............................................--*) 476external align_of : lltype -> llvalue = "LLVMAlignOf" 477external size_of : lltype -> llvalue = "LLVMSizeOf" 478external const_neg : llvalue -> llvalue = "LLVMConstNeg" 479external const_nsw_neg : llvalue -> llvalue = "LLVMConstNSWNeg" 480external const_nuw_neg : llvalue -> llvalue = "LLVMConstNUWNeg" 481external const_fneg : llvalue -> llvalue = "LLVMConstFNeg" 482external const_not : llvalue -> llvalue = "LLVMConstNot" 483external const_add : llvalue -> llvalue -> llvalue = "LLVMConstAdd" 484external const_nsw_add : llvalue -> llvalue -> llvalue = "LLVMConstNSWAdd" 485external const_nuw_add : llvalue -> llvalue -> llvalue = "LLVMConstNUWAdd" 486external const_fadd : llvalue -> llvalue -> llvalue = "LLVMConstFAdd" 487external const_sub : llvalue -> llvalue -> llvalue = "LLVMConstSub" 488external const_nsw_sub : llvalue -> llvalue -> llvalue = "LLVMConstNSWSub" 489external const_nuw_sub : llvalue -> llvalue -> llvalue = "LLVMConstNUWSub" 490external const_fsub : llvalue -> llvalue -> llvalue = "LLVMConstFSub" 491external const_mul : llvalue -> llvalue -> llvalue = "LLVMConstMul" 492external const_nsw_mul : llvalue -> llvalue -> llvalue = "LLVMConstNSWMul" 493external const_nuw_mul : llvalue -> llvalue -> llvalue = "LLVMConstNUWMul" 494external const_fmul : llvalue -> llvalue -> llvalue = "LLVMConstFMul" 495external const_udiv : llvalue -> llvalue -> llvalue = "LLVMConstUDiv" 496external const_sdiv : llvalue -> llvalue -> llvalue = "LLVMConstSDiv" 497external const_exact_sdiv : llvalue -> llvalue -> llvalue = "LLVMConstExactSDiv" 498external const_fdiv : llvalue -> llvalue -> llvalue = "LLVMConstFDiv" 499external const_urem : llvalue -> llvalue -> llvalue = "LLVMConstURem" 500external const_srem : llvalue -> llvalue -> llvalue = "LLVMConstSRem" 501external const_frem : llvalue -> llvalue -> llvalue = "LLVMConstFRem" 502external const_and : llvalue -> llvalue -> llvalue = "LLVMConstAnd" 503external const_or : llvalue -> llvalue -> llvalue = "LLVMConstOr" 504external const_xor : llvalue -> llvalue -> llvalue = "LLVMConstXor" 505external const_icmp : Icmp.t -> llvalue -> llvalue -> llvalue 506 = "llvm_const_icmp" 507external const_fcmp : Fcmp.t -> llvalue -> llvalue -> llvalue 508 = "llvm_const_fcmp" 509external const_shl : llvalue -> llvalue -> llvalue = "LLVMConstShl" 510external const_lshr : llvalue -> llvalue -> llvalue = "LLVMConstLShr" 511external const_ashr : llvalue -> llvalue -> llvalue = "LLVMConstAShr" 512external const_gep : llvalue -> llvalue array -> llvalue = "llvm_const_gep" 513external const_in_bounds_gep : llvalue -> llvalue array -> llvalue 514 = "llvm_const_in_bounds_gep" 515external const_trunc : llvalue -> lltype -> llvalue = "LLVMConstTrunc" 516external const_sext : llvalue -> lltype -> llvalue = "LLVMConstSExt" 517external const_zext : llvalue -> lltype -> llvalue = "LLVMConstZExt" 518external const_fptrunc : llvalue -> lltype -> llvalue = "LLVMConstFPTrunc" 519external const_fpext : llvalue -> lltype -> llvalue = "LLVMConstFPExt" 520external const_uitofp : llvalue -> lltype -> llvalue = "LLVMConstUIToFP" 521external const_sitofp : llvalue -> lltype -> llvalue = "LLVMConstSIToFP" 522external const_fptoui : llvalue -> lltype -> llvalue = "LLVMConstFPToUI" 523external const_fptosi : llvalue -> lltype -> llvalue = "LLVMConstFPToSI" 524external const_ptrtoint : llvalue -> lltype -> llvalue = "LLVMConstPtrToInt" 525external const_inttoptr : llvalue -> lltype -> llvalue = "LLVMConstIntToPtr" 526external const_bitcast : llvalue -> lltype -> llvalue = "LLVMConstBitCast" 527external const_zext_or_bitcast : llvalue -> lltype -> llvalue 528 = "LLVMConstZExtOrBitCast" 529external const_sext_or_bitcast : llvalue -> lltype -> llvalue 530 = "LLVMConstSExtOrBitCast" 531external const_trunc_or_bitcast : llvalue -> lltype -> llvalue 532 = "LLVMConstTruncOrBitCast" 533external const_pointercast : llvalue -> lltype -> llvalue 534 = "LLVMConstPointerCast" 535external const_intcast : llvalue -> lltype -> is_signed:bool -> llvalue 536 = "llvm_const_intcast" 537external const_fpcast : llvalue -> lltype -> llvalue = "LLVMConstFPCast" 538external const_select : llvalue -> llvalue -> llvalue -> llvalue 539 = "LLVMConstSelect" 540external const_extractelement : llvalue -> llvalue -> llvalue 541 = "LLVMConstExtractElement" 542external const_insertelement : llvalue -> llvalue -> llvalue -> llvalue 543 = "LLVMConstInsertElement" 544external const_shufflevector : llvalue -> llvalue -> llvalue -> llvalue 545 = "LLVMConstShuffleVector" 546external const_extractvalue : llvalue -> int array -> llvalue 547 = "llvm_const_extractvalue" 548external const_insertvalue : llvalue -> llvalue -> int array -> llvalue 549 = "llvm_const_insertvalue" 550external const_inline_asm : lltype -> string -> string -> bool -> bool -> 551 llvalue 552 = "llvm_const_inline_asm" 553external block_address : llvalue -> llbasicblock -> llvalue = "LLVMBlockAddress" 554 555(*--... Operations on global variables, functions, and aliases (globals) ...--*) 556external global_parent : llvalue -> llmodule = "LLVMGetGlobalParent" 557external is_declaration : llvalue -> bool = "llvm_is_declaration" 558external linkage : llvalue -> Linkage.t = "llvm_linkage" 559external set_linkage : Linkage.t -> llvalue -> unit = "llvm_set_linkage" 560external section : llvalue -> string = "llvm_section" 561external set_section : string -> llvalue -> unit = "llvm_set_section" 562external visibility : llvalue -> Visibility.t = "llvm_visibility" 563external set_visibility : Visibility.t -> llvalue -> unit = "llvm_set_visibility" 564external alignment : llvalue -> int = "llvm_alignment" 565external set_alignment : int -> llvalue -> unit = "llvm_set_alignment" 566external is_global_constant : llvalue -> bool = "llvm_is_global_constant" 567external set_global_constant : bool -> llvalue -> unit 568 = "llvm_set_global_constant" 569 570(*--... Operations on global variables .....................................--*) 571external declare_global : lltype -> string -> llmodule -> llvalue 572 = "llvm_declare_global" 573external declare_qualified_global : lltype -> string -> int -> llmodule -> 574 llvalue 575 = "llvm_declare_qualified_global" 576external define_global : string -> llvalue -> llmodule -> llvalue 577 = "llvm_define_global" 578external define_qualified_global : string -> llvalue -> int -> llmodule -> 579 llvalue 580 = "llvm_define_qualified_global" 581external lookup_global : string -> llmodule -> llvalue option 582 = "llvm_lookup_global" 583external delete_global : llvalue -> unit = "llvm_delete_global" 584external global_initializer : llvalue -> llvalue = "LLVMGetInitializer" 585external set_initializer : llvalue -> llvalue -> unit = "llvm_set_initializer" 586external remove_initializer : llvalue -> unit = "llvm_remove_initializer" 587external is_thread_local : llvalue -> bool = "llvm_is_thread_local" 588external set_thread_local : bool -> llvalue -> unit = "llvm_set_thread_local" 589external thread_local_mode : llvalue -> ThreadLocalMode.t 590 = "llvm_thread_local_mode" 591external set_thread_local_mode : ThreadLocalMode.t -> llvalue -> unit 592 = "llvm_set_thread_local_mode" 593external is_externally_initialized : llvalue -> bool 594 = "llvm_is_externally_initialized" 595external set_externally_initialized : bool -> llvalue -> unit 596 = "llvm_set_externally_initialized" 597external global_begin : llmodule -> (llmodule, llvalue) llpos 598 = "llvm_global_begin" 599external global_succ : llvalue -> (llmodule, llvalue) llpos 600 = "llvm_global_succ" 601external global_end : llmodule -> (llmodule, llvalue) llrev_pos 602 = "llvm_global_end" 603external global_pred : llvalue -> (llmodule, llvalue) llrev_pos 604 = "llvm_global_pred" 605 606let rec iter_global_range f i e = 607 if i = e then () else 608 match i with 609 | At_end _ -> raise (Invalid_argument "Invalid global variable range.") 610 | Before bb -> 611 f bb; 612 iter_global_range f (global_succ bb) e 613 614let iter_globals f m = 615 iter_global_range f (global_begin m) (At_end m) 616 617let rec fold_left_global_range f init i e = 618 if i = e then init else 619 match i with 620 | At_end _ -> raise (Invalid_argument "Invalid global variable range.") 621 | Before bb -> fold_left_global_range f (f init bb) (global_succ bb) e 622 623let fold_left_globals f init m = 624 fold_left_global_range f init (global_begin m) (At_end m) 625 626let rec rev_iter_global_range f i e = 627 if i = e then () else 628 match i with 629 | At_start _ -> raise (Invalid_argument "Invalid global variable range.") 630 | After bb -> 631 f bb; 632 rev_iter_global_range f (global_pred bb) e 633 634let rev_iter_globals f m = 635 rev_iter_global_range f (global_end m) (At_start m) 636 637let rec fold_right_global_range f i e init = 638 if i = e then init else 639 match i with 640 | At_start _ -> raise (Invalid_argument "Invalid global variable range.") 641 | After bb -> fold_right_global_range f (global_pred bb) e (f bb init) 642 643let fold_right_globals f m init = 644 fold_right_global_range f (global_end m) (At_start m) init 645 646(*--... Operations on aliases ..............................................--*) 647external add_alias : llmodule -> lltype -> llvalue -> string -> llvalue 648 = "llvm_add_alias" 649 650(*--... Operations on functions ............................................--*) 651external declare_function : string -> lltype -> llmodule -> llvalue 652 = "llvm_declare_function" 653external define_function : string -> lltype -> llmodule -> llvalue 654 = "llvm_define_function" 655external lookup_function : string -> llmodule -> llvalue option 656 = "llvm_lookup_function" 657external delete_function : llvalue -> unit = "llvm_delete_function" 658external is_intrinsic : llvalue -> bool = "llvm_is_intrinsic" 659external function_call_conv : llvalue -> int = "llvm_function_call_conv" 660external set_function_call_conv : int -> llvalue -> unit 661 = "llvm_set_function_call_conv" 662external gc : llvalue -> string option = "llvm_gc" 663external set_gc : string option -> llvalue -> unit = "llvm_set_gc" 664external function_begin : llmodule -> (llmodule, llvalue) llpos 665 = "llvm_function_begin" 666external function_succ : llvalue -> (llmodule, llvalue) llpos 667 = "llvm_function_succ" 668external function_end : llmodule -> (llmodule, llvalue) llrev_pos 669 = "llvm_function_end" 670external function_pred : llvalue -> (llmodule, llvalue) llrev_pos 671 = "llvm_function_pred" 672 673let rec iter_function_range f i e = 674 if i = e then () else 675 match i with 676 | At_end _ -> raise (Invalid_argument "Invalid function range.") 677 | Before fn -> 678 f fn; 679 iter_function_range f (function_succ fn) e 680 681let iter_functions f m = 682 iter_function_range f (function_begin m) (At_end m) 683 684let rec fold_left_function_range f init i e = 685 if i = e then init else 686 match i with 687 | At_end _ -> raise (Invalid_argument "Invalid function range.") 688 | Before fn -> fold_left_function_range f (f init fn) (function_succ fn) e 689 690let fold_left_functions f init m = 691 fold_left_function_range f init (function_begin m) (At_end m) 692 693let rec rev_iter_function_range f i e = 694 if i = e then () else 695 match i with 696 | At_start _ -> raise (Invalid_argument "Invalid function range.") 697 | After fn -> 698 f fn; 699 rev_iter_function_range f (function_pred fn) e 700 701let rev_iter_functions f m = 702 rev_iter_function_range f (function_end m) (At_start m) 703 704let rec fold_right_function_range f i e init = 705 if i = e then init else 706 match i with 707 | At_start _ -> raise (Invalid_argument "Invalid function range.") 708 | After fn -> fold_right_function_range f (function_pred fn) e (f fn init) 709 710let fold_right_functions f m init = 711 fold_right_function_range f (function_end m) (At_start m) init 712 713external llvm_add_function_attr : llvalue -> int32 -> unit 714 = "llvm_add_function_attr" 715external llvm_remove_function_attr : llvalue -> int32 -> unit 716 = "llvm_remove_function_attr" 717external llvm_function_attr : llvalue -> int32 = "llvm_function_attr" 718 719let pack_attr (attr:Attribute.t) : int32 = 720 match attr with 721 Attribute.Zext -> Int32.shift_left 1l 0 722 | Attribute.Sext -> Int32.shift_left 1l 1 723 | Attribute.Noreturn -> Int32.shift_left 1l 2 724 | Attribute.Inreg -> Int32.shift_left 1l 3 725 | Attribute.Structret -> Int32.shift_left 1l 4 726 | Attribute.Nounwind -> Int32.shift_left 1l 5 727 | Attribute.Noalias -> Int32.shift_left 1l 6 728 | Attribute.Byval -> Int32.shift_left 1l 7 729 | Attribute.Nest -> Int32.shift_left 1l 8 730 | Attribute.Readnone -> Int32.shift_left 1l 9 731 | Attribute.Readonly -> Int32.shift_left 1l 10 732 | Attribute.Noinline -> Int32.shift_left 1l 11 733 | Attribute.Alwaysinline -> Int32.shift_left 1l 12 734 | Attribute.Optsize -> Int32.shift_left 1l 13 735 | Attribute.Ssp -> Int32.shift_left 1l 14 736 | Attribute.Sspreq -> Int32.shift_left 1l 15 737 | Attribute.Alignment n -> Int32.shift_left (Int32.of_int n) 16 738 | Attribute.Nocapture -> Int32.shift_left 1l 21 739 | Attribute.Noredzone -> Int32.shift_left 1l 22 740 | Attribute.Noimplicitfloat -> Int32.shift_left 1l 23 741 | Attribute.Naked -> Int32.shift_left 1l 24 742 | Attribute.Inlinehint -> Int32.shift_left 1l 25 743 | Attribute.Stackalignment n -> Int32.shift_left (Int32.of_int n) 26 744 | Attribute.ReturnsTwice -> Int32.shift_left 1l 29 745 | Attribute.UWTable -> Int32.shift_left 1l 30 746 | Attribute.NonLazyBind -> Int32.shift_left 1l 31 747 748let unpack_attr (a : int32) : Attribute.t list = 749 let l = ref [] in 750 let check attr = 751 Int32.logand (pack_attr attr) a in 752 let checkattr attr = 753 if (check attr) <> 0l then begin 754 l := attr :: !l 755 end 756 in 757 checkattr Attribute.Zext; 758 checkattr Attribute.Sext; 759 checkattr Attribute.Noreturn; 760 checkattr Attribute.Inreg; 761 checkattr Attribute.Structret; 762 checkattr Attribute.Nounwind; 763 checkattr Attribute.Noalias; 764 checkattr Attribute.Byval; 765 checkattr Attribute.Nest; 766 checkattr Attribute.Readnone; 767 checkattr Attribute.Readonly; 768 checkattr Attribute.Noinline; 769 checkattr Attribute.Alwaysinline; 770 checkattr Attribute.Optsize; 771 checkattr Attribute.Ssp; 772 checkattr Attribute.Sspreq; 773 let align = Int32.logand (Int32.shift_right_logical a 16) 31l in 774 if align <> 0l then 775 l := Attribute.Alignment (Int32.to_int align) :: !l; 776 checkattr Attribute.Nocapture; 777 checkattr Attribute.Noredzone; 778 checkattr Attribute.Noimplicitfloat; 779 checkattr Attribute.Naked; 780 checkattr Attribute.Inlinehint; 781 let stackalign = Int32.logand (Int32.shift_right_logical a 26) 7l in 782 if stackalign <> 0l then 783 l := Attribute.Stackalignment (Int32.to_int stackalign) :: !l; 784 checkattr Attribute.ReturnsTwice; 785 checkattr Attribute.UWTable; 786 checkattr Attribute.NonLazyBind; 787 !l;; 788 789let add_function_attr llval attr = 790 llvm_add_function_attr llval (pack_attr attr) 791 792external add_target_dependent_function_attr 793 : llvalue -> string -> string -> unit 794 = "llvm_add_target_dependent_function_attr" 795 796let remove_function_attr llval attr = 797 llvm_remove_function_attr llval (pack_attr attr) 798 799let function_attr f = unpack_attr (llvm_function_attr f) 800 801(*--... Operations on params ...............................................--*) 802external params : llvalue -> llvalue array = "llvm_params" 803external param : llvalue -> int -> llvalue = "llvm_param" 804external llvm_param_attr : llvalue -> int32 = "llvm_param_attr" 805let param_attr p = unpack_attr (llvm_param_attr p) 806external param_parent : llvalue -> llvalue = "LLVMGetParamParent" 807external param_begin : llvalue -> (llvalue, llvalue) llpos = "llvm_param_begin" 808external param_succ : llvalue -> (llvalue, llvalue) llpos = "llvm_param_succ" 809external param_end : llvalue -> (llvalue, llvalue) llrev_pos = "llvm_param_end" 810external param_pred : llvalue -> (llvalue, llvalue) llrev_pos ="llvm_param_pred" 811 812let rec iter_param_range f i e = 813 if i = e then () else 814 match i with 815 | At_end _ -> raise (Invalid_argument "Invalid parameter range.") 816 | Before p -> 817 f p; 818 iter_param_range f (param_succ p) e 819 820let iter_params f fn = 821 iter_param_range f (param_begin fn) (At_end fn) 822 823let rec fold_left_param_range f init i e = 824 if i = e then init else 825 match i with 826 | At_end _ -> raise (Invalid_argument "Invalid parameter range.") 827 | Before p -> fold_left_param_range f (f init p) (param_succ p) e 828 829let fold_left_params f init fn = 830 fold_left_param_range f init (param_begin fn) (At_end fn) 831 832let rec rev_iter_param_range f i e = 833 if i = e then () else 834 match i with 835 | At_start _ -> raise (Invalid_argument "Invalid parameter range.") 836 | After p -> 837 f p; 838 rev_iter_param_range f (param_pred p) e 839 840let rev_iter_params f fn = 841 rev_iter_param_range f (param_end fn) (At_start fn) 842 843let rec fold_right_param_range f init i e = 844 if i = e then init else 845 match i with 846 | At_start _ -> raise (Invalid_argument "Invalid parameter range.") 847 | After p -> fold_right_param_range f (f p init) (param_pred p) e 848 849let fold_right_params f fn init = 850 fold_right_param_range f init (param_end fn) (At_start fn) 851 852external llvm_add_param_attr : llvalue -> int32 -> unit 853 = "llvm_add_param_attr" 854external llvm_remove_param_attr : llvalue -> int32 -> unit 855 = "llvm_remove_param_attr" 856 857let add_param_attr llval attr = 858 llvm_add_param_attr llval (pack_attr attr) 859 860let remove_param_attr llval attr = 861 llvm_remove_param_attr llval (pack_attr attr) 862 863external set_param_alignment : llvalue -> int -> unit 864 = "llvm_set_param_alignment" 865 866(*--... Operations on basic blocks .........................................--*) 867external value_of_block : llbasicblock -> llvalue = "LLVMBasicBlockAsValue" 868external value_is_block : llvalue -> bool = "llvm_value_is_block" 869external block_of_value : llvalue -> llbasicblock = "LLVMValueAsBasicBlock" 870external block_parent : llbasicblock -> llvalue = "LLVMGetBasicBlockParent" 871external basic_blocks : llvalue -> llbasicblock array = "llvm_basic_blocks" 872external entry_block : llvalue -> llbasicblock = "LLVMGetEntryBasicBlock" 873external delete_block : llbasicblock -> unit = "llvm_delete_block" 874external remove_block : llbasicblock -> unit = "llvm_remove_block" 875external move_block_before : llbasicblock -> llbasicblock -> unit 876 = "llvm_move_block_before" 877external move_block_after : llbasicblock -> llbasicblock -> unit 878 = "llvm_move_block_after" 879external append_block : llcontext -> string -> llvalue -> llbasicblock 880 = "llvm_append_block" 881external insert_block : llcontext -> string -> llbasicblock -> llbasicblock 882 = "llvm_insert_block" 883external block_begin : llvalue -> (llvalue, llbasicblock) llpos 884 = "llvm_block_begin" 885external block_succ : llbasicblock -> (llvalue, llbasicblock) llpos 886 = "llvm_block_succ" 887external block_end : llvalue -> (llvalue, llbasicblock) llrev_pos 888 = "llvm_block_end" 889external block_pred : llbasicblock -> (llvalue, llbasicblock) llrev_pos 890 = "llvm_block_pred" 891external block_terminator : llbasicblock -> llvalue option = 892 "llvm_block_terminator" 893 894let rec iter_block_range f i e = 895 if i = e then () else 896 match i with 897 | At_end _ -> raise (Invalid_argument "Invalid block range.") 898 | Before bb -> 899 f bb; 900 iter_block_range f (block_succ bb) e 901 902let iter_blocks f fn = 903 iter_block_range f (block_begin fn) (At_end fn) 904 905let rec fold_left_block_range f init i e = 906 if i = e then init else 907 match i with 908 | At_end _ -> raise (Invalid_argument "Invalid block range.") 909 | Before bb -> fold_left_block_range f (f init bb) (block_succ bb) e 910 911let fold_left_blocks f init fn = 912 fold_left_block_range f init (block_begin fn) (At_end fn) 913 914let rec rev_iter_block_range f i e = 915 if i = e then () else 916 match i with 917 | At_start _ -> raise (Invalid_argument "Invalid block range.") 918 | After bb -> 919 f bb; 920 rev_iter_block_range f (block_pred bb) e 921 922let rev_iter_blocks f fn = 923 rev_iter_block_range f (block_end fn) (At_start fn) 924 925let rec fold_right_block_range f init i e = 926 if i = e then init else 927 match i with 928 | At_start _ -> raise (Invalid_argument "Invalid block range.") 929 | After bb -> fold_right_block_range f (f bb init) (block_pred bb) e 930 931let fold_right_blocks f fn init = 932 fold_right_block_range f init (block_end fn) (At_start fn) 933 934(*--... Operations on instructions .........................................--*) 935external instr_parent : llvalue -> llbasicblock = "LLVMGetInstructionParent" 936external instr_begin : llbasicblock -> (llbasicblock, llvalue) llpos 937 = "llvm_instr_begin" 938external instr_succ : llvalue -> (llbasicblock, llvalue) llpos 939 = "llvm_instr_succ" 940external instr_end : llbasicblock -> (llbasicblock, llvalue) llrev_pos 941 = "llvm_instr_end" 942external instr_pred : llvalue -> (llbasicblock, llvalue) llrev_pos 943 = "llvm_instr_pred" 944 945external instr_opcode : llvalue -> Opcode.t = "llvm_instr_get_opcode" 946external icmp_predicate : llvalue -> Icmp.t option = "llvm_instr_icmp_predicate" 947 948let rec iter_instrs_range f i e = 949 if i = e then () else 950 match i with 951 | At_end _ -> raise (Invalid_argument "Invalid instruction range.") 952 | Before i -> 953 f i; 954 iter_instrs_range f (instr_succ i) e 955 956let iter_instrs f bb = 957 iter_instrs_range f (instr_begin bb) (At_end bb) 958 959let rec fold_left_instrs_range f init i e = 960 if i = e then init else 961 match i with 962 | At_end _ -> raise (Invalid_argument "Invalid instruction range.") 963 | Before i -> fold_left_instrs_range f (f init i) (instr_succ i) e 964 965let fold_left_instrs f init bb = 966 fold_left_instrs_range f init (instr_begin bb) (At_end bb) 967 968let rec rev_iter_instrs_range f i e = 969 if i = e then () else 970 match i with 971 | At_start _ -> raise (Invalid_argument "Invalid instruction range.") 972 | After i -> 973 f i; 974 rev_iter_instrs_range f (instr_pred i) e 975 976let rev_iter_instrs f bb = 977 rev_iter_instrs_range f (instr_end bb) (At_start bb) 978 979let rec fold_right_instr_range f i e init = 980 if i = e then init else 981 match i with 982 | At_start _ -> raise (Invalid_argument "Invalid instruction range.") 983 | After i -> fold_right_instr_range f (instr_pred i) e (f i init) 984 985let fold_right_instrs f bb init = 986 fold_right_instr_range f (instr_end bb) (At_start bb) init 987 988 989(*--... Operations on call sites ...........................................--*) 990external instruction_call_conv: llvalue -> int 991 = "llvm_instruction_call_conv" 992external set_instruction_call_conv: int -> llvalue -> unit 993 = "llvm_set_instruction_call_conv" 994 995external llvm_add_instruction_param_attr : llvalue -> int -> int32 -> unit 996 = "llvm_add_instruction_param_attr" 997external llvm_remove_instruction_param_attr : llvalue -> int -> int32 -> unit 998 = "llvm_remove_instruction_param_attr" 999 1000let add_instruction_param_attr llval i attr = 1001 llvm_add_instruction_param_attr llval i (pack_attr attr) 1002 1003let remove_instruction_param_attr llval i attr = 1004 llvm_remove_instruction_param_attr llval i (pack_attr attr) 1005 1006(*--... Operations on call instructions (only) .............................--*) 1007external is_tail_call : llvalue -> bool = "llvm_is_tail_call" 1008external set_tail_call : bool -> llvalue -> unit = "llvm_set_tail_call" 1009 1010(*--... Operations on load/store instructions (only) .......................--*) 1011external is_volatile : llvalue -> bool = "llvm_is_volatile" 1012external set_volatile : bool -> llvalue -> unit = "llvm_set_volatile" 1013 1014(*--... Operations on phi nodes ............................................--*) 1015external add_incoming : (llvalue * llbasicblock) -> llvalue -> unit 1016 = "llvm_add_incoming" 1017external incoming : llvalue -> (llvalue * llbasicblock) list = "llvm_incoming" 1018 1019external delete_instruction : llvalue -> unit = "llvm_delete_instruction" 1020 1021(*===-- Instruction builders ----------------------------------------------===*) 1022external builder : llcontext -> llbuilder = "llvm_builder" 1023external position_builder : (llbasicblock, llvalue) llpos -> llbuilder -> unit 1024 = "llvm_position_builder" 1025external insertion_block : llbuilder -> llbasicblock = "llvm_insertion_block" 1026external insert_into_builder : llvalue -> string -> llbuilder -> unit 1027 = "llvm_insert_into_builder" 1028 1029let builder_at context ip = 1030 let b = builder context in 1031 position_builder ip b; 1032 b 1033 1034let builder_before context i = builder_at context (Before i) 1035let builder_at_end context bb = builder_at context (At_end bb) 1036 1037let position_before i = position_builder (Before i) 1038let position_at_end bb = position_builder (At_end bb) 1039 1040 1041(*--... Metadata ...........................................................--*) 1042external set_current_debug_location : llbuilder -> llvalue -> unit 1043 = "llvm_set_current_debug_location" 1044external clear_current_debug_location : llbuilder -> unit 1045 = "llvm_clear_current_debug_location" 1046external current_debug_location : llbuilder -> llvalue option 1047 = "llvm_current_debug_location" 1048external set_inst_debug_location : llbuilder -> llvalue -> unit 1049 = "llvm_set_inst_debug_location" 1050 1051 1052(*--... Terminators ........................................................--*) 1053external build_ret_void : llbuilder -> llvalue = "llvm_build_ret_void" 1054external build_ret : llvalue -> llbuilder -> llvalue = "llvm_build_ret" 1055external build_aggregate_ret : llvalue array -> llbuilder -> llvalue 1056 = "llvm_build_aggregate_ret" 1057external build_br : llbasicblock -> llbuilder -> llvalue = "llvm_build_br" 1058external build_cond_br : llvalue -> llbasicblock -> llbasicblock -> llbuilder -> 1059 llvalue = "llvm_build_cond_br" 1060external build_switch : llvalue -> llbasicblock -> int -> llbuilder -> llvalue 1061 = "llvm_build_switch" 1062external build_malloc : lltype -> string -> llbuilder -> llvalue = 1063 "llvm_build_malloc" 1064external build_array_malloc : lltype -> llvalue -> string -> llbuilder -> 1065 llvalue = "llvm_build_array_malloc" 1066external build_free : llvalue -> llbuilder -> llvalue = "llvm_build_free" 1067external add_case : llvalue -> llvalue -> llbasicblock -> unit 1068 = "llvm_add_case" 1069external switch_default_dest : llvalue -> llbasicblock = 1070 "LLVMGetSwitchDefaultDest" 1071external build_indirect_br : llvalue -> int -> llbuilder -> llvalue 1072 = "llvm_build_indirect_br" 1073external add_destination : llvalue -> llbasicblock -> unit 1074 = "llvm_add_destination" 1075external build_invoke : llvalue -> llvalue array -> llbasicblock -> 1076 llbasicblock -> string -> llbuilder -> llvalue 1077 = "llvm_build_invoke_bc" "llvm_build_invoke_nat" 1078external build_landingpad : lltype -> llvalue -> int -> string -> llbuilder -> 1079 llvalue = "llvm_build_landingpad" 1080external set_cleanup : llvalue -> bool -> unit = "llvm_set_cleanup" 1081external add_clause : llvalue -> llvalue -> unit = "llvm_add_clause" 1082external build_resume : llvalue -> llbuilder -> llvalue = "llvm_build_resume" 1083external build_unreachable : llbuilder -> llvalue = "llvm_build_unreachable" 1084 1085(*--... Arithmetic .........................................................--*) 1086external build_add : llvalue -> llvalue -> string -> llbuilder -> llvalue 1087 = "llvm_build_add" 1088external build_nsw_add : llvalue -> llvalue -> string -> llbuilder -> llvalue 1089 = "llvm_build_nsw_add" 1090external build_nuw_add : llvalue -> llvalue -> string -> llbuilder -> llvalue 1091 = "llvm_build_nuw_add" 1092external build_fadd : llvalue -> llvalue -> string -> llbuilder -> llvalue 1093 = "llvm_build_fadd" 1094external build_sub : llvalue -> llvalue -> string -> llbuilder -> llvalue 1095 = "llvm_build_sub" 1096external build_nsw_sub : llvalue -> llvalue -> string -> llbuilder -> llvalue 1097 = "llvm_build_nsw_sub" 1098external build_nuw_sub : llvalue -> llvalue -> string -> llbuilder -> llvalue 1099 = "llvm_build_nuw_sub" 1100external build_fsub : llvalue -> llvalue -> string -> llbuilder -> llvalue 1101 = "llvm_build_fsub" 1102external build_mul : llvalue -> llvalue -> string -> llbuilder -> llvalue 1103 = "llvm_build_mul" 1104external build_nsw_mul : llvalue -> llvalue -> string -> llbuilder -> llvalue 1105 = "llvm_build_nsw_mul" 1106external build_nuw_mul : llvalue -> llvalue -> string -> llbuilder -> llvalue 1107 = "llvm_build_nuw_mul" 1108external build_fmul : llvalue -> llvalue -> string -> llbuilder -> llvalue 1109 = "llvm_build_fmul" 1110external build_udiv : llvalue -> llvalue -> string -> llbuilder -> llvalue 1111 = "llvm_build_udiv" 1112external build_sdiv : llvalue -> llvalue -> string -> llbuilder -> llvalue 1113 = "llvm_build_sdiv" 1114external build_exact_sdiv : llvalue -> llvalue -> string -> llbuilder -> llvalue 1115 = "llvm_build_exact_sdiv" 1116external build_fdiv : llvalue -> llvalue -> string -> llbuilder -> llvalue 1117 = "llvm_build_fdiv" 1118external build_urem : llvalue -> llvalue -> string -> llbuilder -> llvalue 1119 = "llvm_build_urem" 1120external build_srem : llvalue -> llvalue -> string -> llbuilder -> llvalue 1121 = "llvm_build_srem" 1122external build_frem : llvalue -> llvalue -> string -> llbuilder -> llvalue 1123 = "llvm_build_frem" 1124external build_shl : llvalue -> llvalue -> string -> llbuilder -> llvalue 1125 = "llvm_build_shl" 1126external build_lshr : llvalue -> llvalue -> string -> llbuilder -> llvalue 1127 = "llvm_build_lshr" 1128external build_ashr : llvalue -> llvalue -> string -> llbuilder -> llvalue 1129 = "llvm_build_ashr" 1130external build_and : llvalue -> llvalue -> string -> llbuilder -> llvalue 1131 = "llvm_build_and" 1132external build_or : llvalue -> llvalue -> string -> llbuilder -> llvalue 1133 = "llvm_build_or" 1134external build_xor : llvalue -> llvalue -> string -> llbuilder -> llvalue 1135 = "llvm_build_xor" 1136external build_neg : llvalue -> string -> llbuilder -> llvalue 1137 = "llvm_build_neg" 1138external build_nsw_neg : llvalue -> string -> llbuilder -> llvalue 1139 = "llvm_build_nsw_neg" 1140external build_nuw_neg : llvalue -> string -> llbuilder -> llvalue 1141 = "llvm_build_nuw_neg" 1142external build_fneg : llvalue -> string -> llbuilder -> llvalue 1143 = "llvm_build_fneg" 1144external build_not : llvalue -> string -> llbuilder -> llvalue 1145 = "llvm_build_not" 1146 1147(*--... Memory .............................................................--*) 1148external build_alloca : lltype -> string -> llbuilder -> llvalue 1149 = "llvm_build_alloca" 1150external build_array_alloca : lltype -> llvalue -> string -> llbuilder -> 1151 llvalue = "llvm_build_array_alloca" 1152external build_load : llvalue -> string -> llbuilder -> llvalue 1153 = "llvm_build_load" 1154external build_store : llvalue -> llvalue -> llbuilder -> llvalue 1155 = "llvm_build_store" 1156external build_atomicrmw : AtomicRMWBinOp.t -> llvalue -> llvalue -> 1157 AtomicOrdering.t -> bool -> string -> llbuilder -> 1158 llvalue 1159 = "llvm_build_atomicrmw_bytecode" 1160 "llvm_build_atomicrmw_native" 1161external build_gep : llvalue -> llvalue array -> string -> llbuilder -> llvalue 1162 = "llvm_build_gep" 1163external build_in_bounds_gep : llvalue -> llvalue array -> string -> 1164 llbuilder -> llvalue = "llvm_build_in_bounds_gep" 1165external build_struct_gep : llvalue -> int -> string -> llbuilder -> llvalue 1166 = "llvm_build_struct_gep" 1167 1168external build_global_string : string -> string -> llbuilder -> llvalue 1169 = "llvm_build_global_string" 1170external build_global_stringptr : string -> string -> llbuilder -> llvalue 1171 = "llvm_build_global_stringptr" 1172 1173(*--... Casts ..............................................................--*) 1174external build_trunc : llvalue -> lltype -> string -> llbuilder -> llvalue 1175 = "llvm_build_trunc" 1176external build_zext : llvalue -> lltype -> string -> llbuilder -> llvalue 1177 = "llvm_build_zext" 1178external build_sext : llvalue -> lltype -> string -> llbuilder -> llvalue 1179 = "llvm_build_sext" 1180external build_fptoui : llvalue -> lltype -> string -> llbuilder -> llvalue 1181 = "llvm_build_fptoui" 1182external build_fptosi : llvalue -> lltype -> string -> llbuilder -> llvalue 1183 = "llvm_build_fptosi" 1184external build_uitofp : llvalue -> lltype -> string -> llbuilder -> llvalue 1185 = "llvm_build_uitofp" 1186external build_sitofp : llvalue -> lltype -> string -> llbuilder -> llvalue 1187 = "llvm_build_sitofp" 1188external build_fptrunc : llvalue -> lltype -> string -> llbuilder -> llvalue 1189 = "llvm_build_fptrunc" 1190external build_fpext : llvalue -> lltype -> string -> llbuilder -> llvalue 1191 = "llvm_build_fpext" 1192external build_ptrtoint : llvalue -> lltype -> string -> llbuilder -> llvalue 1193 = "llvm_build_prttoint" 1194external build_inttoptr : llvalue -> lltype -> string -> llbuilder -> llvalue 1195 = "llvm_build_inttoptr" 1196external build_bitcast : llvalue -> lltype -> string -> llbuilder -> llvalue 1197 = "llvm_build_bitcast" 1198external build_zext_or_bitcast : llvalue -> lltype -> string -> llbuilder -> 1199 llvalue = "llvm_build_zext_or_bitcast" 1200external build_sext_or_bitcast : llvalue -> lltype -> string -> llbuilder -> 1201 llvalue = "llvm_build_sext_or_bitcast" 1202external build_trunc_or_bitcast : llvalue -> lltype -> string -> llbuilder -> 1203 llvalue = "llvm_build_trunc_or_bitcast" 1204external build_pointercast : llvalue -> lltype -> string -> llbuilder -> llvalue 1205 = "llvm_build_pointercast" 1206external build_intcast : llvalue -> lltype -> string -> llbuilder -> llvalue 1207 = "llvm_build_intcast" 1208external build_fpcast : llvalue -> lltype -> string -> llbuilder -> llvalue 1209 = "llvm_build_fpcast" 1210 1211(*--... Comparisons ........................................................--*) 1212external build_icmp : Icmp.t -> llvalue -> llvalue -> string -> 1213 llbuilder -> llvalue = "llvm_build_icmp" 1214external build_fcmp : Fcmp.t -> llvalue -> llvalue -> string -> 1215 llbuilder -> llvalue = "llvm_build_fcmp" 1216 1217(*--... Miscellaneous instructions .........................................--*) 1218external build_phi : (llvalue * llbasicblock) list -> string -> llbuilder -> 1219 llvalue = "llvm_build_phi" 1220external build_call : llvalue -> llvalue array -> string -> llbuilder -> llvalue 1221 = "llvm_build_call" 1222external build_select : llvalue -> llvalue -> llvalue -> string -> llbuilder -> 1223 llvalue = "llvm_build_select" 1224external build_va_arg : llvalue -> lltype -> string -> llbuilder -> llvalue 1225 = "llvm_build_va_arg" 1226external build_extractelement : llvalue -> llvalue -> string -> llbuilder -> 1227 llvalue = "llvm_build_extractelement" 1228external build_insertelement : llvalue -> llvalue -> llvalue -> string -> 1229 llbuilder -> llvalue = "llvm_build_insertelement" 1230external build_shufflevector : llvalue -> llvalue -> llvalue -> string -> 1231 llbuilder -> llvalue = "llvm_build_shufflevector" 1232external build_extractvalue : llvalue -> int -> string -> llbuilder -> llvalue 1233 = "llvm_build_extractvalue" 1234external build_insertvalue : llvalue -> llvalue -> int -> string -> llbuilder -> 1235 llvalue = "llvm_build_insertvalue" 1236 1237external build_is_null : llvalue -> string -> llbuilder -> llvalue 1238 = "llvm_build_is_null" 1239external build_is_not_null : llvalue -> string -> llbuilder -> llvalue 1240 = "llvm_build_is_not_null" 1241external build_ptrdiff : llvalue -> llvalue -> string -> llbuilder -> llvalue 1242 = "llvm_build_ptrdiff" 1243 1244 1245(*===-- Memory buffers ----------------------------------------------------===*) 1246 1247module MemoryBuffer = struct 1248 external of_file : string -> llmemorybuffer = "llvm_memorybuffer_of_file" 1249 external of_stdin : unit -> llmemorybuffer = "llvm_memorybuffer_of_stdin" 1250 external of_string : ?name:string -> string -> llmemorybuffer 1251 = "llvm_memorybuffer_of_string" 1252 external as_string : llmemorybuffer -> string = "llvm_memorybuffer_as_string" 1253 external dispose : llmemorybuffer -> unit = "llvm_memorybuffer_dispose" 1254end 1255 1256 1257(*===-- Pass Manager ------------------------------------------------------===*) 1258 1259module PassManager = struct 1260 type 'a t 1261 type any = [ `Module | `Function ] 1262 external create : unit -> [ `Module ] t = "llvm_passmanager_create" 1263 external create_function : llmodule -> [ `Function ] t 1264 = "LLVMCreateFunctionPassManager" 1265 external run_module : llmodule -> [ `Module ] t -> bool 1266 = "llvm_passmanager_run_module" 1267 external initialize : [ `Function ] t -> bool = "llvm_passmanager_initialize" 1268 external run_function : llvalue -> [ `Function ] t -> bool 1269 = "llvm_passmanager_run_function" 1270 external finalize : [ `Function ] t -> bool = "llvm_passmanager_finalize" 1271 external dispose : [< any ] t -> unit = "llvm_passmanager_dispose" 1272end 1273