llvm.org GIT mirror llvm / 9c7c566
Rename some ocaml functions. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@97684 91177308-0d34-0410-b5e6-96231b3b80d8 Erick Tryzelaar 10 years ago
3 changed file(s) with 13 addition(s) and 13 deletion(s). Raw diff Collapse all Expand all
9090 }
9191
9292 /* 'a -> t */
93 CAMLprim value llvm_genericvalue_of_value(value V) {
93 CAMLprim value llvm_genericvalue_of_pointer(value V) {
9494 CAMLparam1(V);
9595 CAMLreturn(alloc_generic_value(LLVMCreateGenericValueOfPointer(Op_val(V))));
9696 }
129129 }
130130
131131 /* t -> 'a */
132 CAMLprim value llvm_genericvalue_as_value(value GenVal) {
132 CAMLprim value llvm_genericvalue_as_pointer(value GenVal) {
133133 return Val_op(LLVMGenericValueToPointer(Genericvalue_val(GenVal)));
134134 }
135135
203203 }
204204
205205 /* llmodule -> ExecutionEngine.t -> unit */
206 CAMLprim value llvm_ee_add_mp(LLVMModuleRef M, LLVMExecutionEngineRef EE) {
206 CAMLprim value llvm_ee_add_module(LLVMModuleRef M, LLVMExecutionEngineRef EE) {
207207 LLVMAddModule(EE, M);
208208 return Val_unit;
209209 }
210210
211211 /* llmodule -> ExecutionEngine.t -> llmodule */
212 CAMLprim LLVMModuleRef llvm_ee_remove_mp(LLVMModuleRef M,
213 LLVMExecutionEngineRef EE) {
212 CAMLprim LLVMModuleRef llvm_ee_remove_module(LLVMModuleRef M,
213 LLVMExecutionEngineRef EE) {
214214 LLVMModuleRef RemovedModule;
215215 char *Error;
216216 if (LLVMRemoveModule(EE, M, &RemovedModule, &Error))
1919 external of_float: Llvm.lltype -> float -> t
2020 = "llvm_genericvalue_of_float"
2121 external of_pointer: 'a -> t
22 = "llvm_genericvalue_of_value"
22 = "llvm_genericvalue_of_pointer"
2323 external of_int32: Llvm.lltype -> int32 -> t
2424 = "llvm_genericvalue_of_int32"
2525 external of_int: Llvm.lltype -> int -> t
3232 external as_float: Llvm.lltype -> t -> float
3333 = "llvm_genericvalue_as_float"
3434 external as_pointer: t -> 'a
35 = "llvm_genericvalue_as_value"
35 = "llvm_genericvalue_as_pointer"
3636 external as_int32: t -> int32
3737 = "llvm_genericvalue_as_int32"
3838 external as_int: t -> int
6464 external dispose: t -> unit
6565 = "llvm_ee_dispose"
6666 external add_module: Llvm.llmodule -> t -> unit
67 = "llvm_ee_add_mp"
67 = "llvm_ee_add_module"
6868 external remove_module: Llvm.llmodule -> t -> Llvm.llmodule
69 = "llvm_ee_remove_mp"
69 = "llvm_ee_remove_module"
7070 external find_function: string -> t -> Llvm.llvalue option
7171 = "llvm_ee_find_function"
7272 external run_function: Llvm.llvalue -> GenericValue.t array -> t ->
2828
2929 (** [of_pointer v] boxes the pointer value [v] in a generic value. See the
3030 field [llvm::GenericValue::PointerVal]. *)
31 external of_pointer : 'a -> t = "llvm_genericvalue_of_value"
31 external of_pointer : 'a -> t = "llvm_genericvalue_of_pointer"
3232
3333 (** [of_int32 n w] boxes the int32 [i] in a generic value with the bitwidth
3434 [w]. See the field [llvm::GenericValue::IntVal]. *)
5454
5555 (** [as_pointer gv] unboxes the pointer-valued generic value [gv]. See the
5656 field [llvm::GenericValue::PointerVal]. *)
57 external as_pointer : t -> 'a = "llvm_genericvalue_as_value"
57 external as_pointer : t -> 'a = "llvm_genericvalue_as_pointer"
5858
5959 (** [as_int32 gv] unboxes the integer-valued generic value [gv] as an [int32].
6060 Is invalid if [gv] has a bitwidth greater than 32 bits. See the field
7070 (** [as_natint gv] unboxes the integer-valued generic value [gv] as a
7171 [nativeint]. Is invalid if [gv] has a bitwidth greater than
7272 [nativeint]. See the field [llvm::GenericValue::IntVal]. *)
73 external as_nativeint : t -> nativeint = "llvm_genericvalue_as_int"
73 external as_nativeint : t -> nativeint = "llvm_genericvalue_as_nativeint"
7474
7575 (** [as_int64 gv] returns the integer-valued generic value [gv] as an [int64].
7676 Is invalid if [gv] has a bitwidth greater than [int64]. See the field
111111 external dispose : t -> unit = "llvm_ee_dispose"
112112
113113 (** [add_module m ee] adds the module [m] to the execution engine [ee]. *)
114 external add_module : Llvm.llmodule -> t -> unit = "llvm_ee_add_mp"
114 external add_module : Llvm.llmodule -> t -> unit = "llvm_ee_add_module"
115115
116116 (** [remove_module m ee] removes the module [m] from the execution engine
117117 [ee], disposing of [m] and the module referenced by [mp]. Raises