diff options
| author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-03-03 23:51:30 +0000 |
|---|---|---|
| committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-03-03 23:51:30 +0000 |
| commit | 3e64c26b2f137fa528042ed83c74ea351d981590 (patch) | |
| tree | a19a4cc05d4294192e5101fa28e002504d73bced /llvm/bindings/ocaml/executionengine/llvm_executionengine.ml | |
| parent | 7dd26155032dd3fbd48d4c22b4d41d3ef9c7f73f (diff) | |
| download | bcm5719-llvm-3e64c26b2f137fa528042ed83c74ea351d981590.tar.gz bcm5719-llvm-3e64c26b2f137fa528042ed83c74ea351d981590.zip | |
Rename some ocaml functions.
llvm-svn: 97684
Diffstat (limited to 'llvm/bindings/ocaml/executionengine/llvm_executionengine.ml')
| -rw-r--r-- | llvm/bindings/ocaml/executionengine/llvm_executionengine.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/llvm/bindings/ocaml/executionengine/llvm_executionengine.ml b/llvm/bindings/ocaml/executionengine/llvm_executionengine.ml index 95faa58cc54..a8535b24640 100644 --- a/llvm/bindings/ocaml/executionengine/llvm_executionengine.ml +++ b/llvm/bindings/ocaml/executionengine/llvm_executionengine.ml @@ -20,7 +20,7 @@ module GenericValue = struct external of_float: Llvm.lltype -> float -> t = "llvm_genericvalue_of_float" external of_pointer: 'a -> t - = "llvm_genericvalue_of_value" + = "llvm_genericvalue_of_pointer" external of_int32: Llvm.lltype -> int32 -> t = "llvm_genericvalue_of_int32" external of_int: Llvm.lltype -> int -> t @@ -33,7 +33,7 @@ module GenericValue = struct external as_float: Llvm.lltype -> t -> float = "llvm_genericvalue_as_float" external as_pointer: t -> 'a - = "llvm_genericvalue_as_value" + = "llvm_genericvalue_as_pointer" external as_int32: t -> int32 = "llvm_genericvalue_as_int32" external as_int: t -> int @@ -65,9 +65,9 @@ module ExecutionEngine = struct external dispose: t -> unit = "llvm_ee_dispose" external add_module: Llvm.llmodule -> t -> unit - = "llvm_ee_add_mp" + = "llvm_ee_add_module" external remove_module: Llvm.llmodule -> t -> Llvm.llmodule - = "llvm_ee_remove_mp" + = "llvm_ee_remove_module" external find_function: string -> t -> Llvm.llvalue option = "llvm_ee_find_function" external run_function: Llvm.llvalue -> GenericValue.t array -> t -> |
