diff options
| author | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-09-20 16:47:41 +0000 |
|---|---|---|
| committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-09-20 16:47:41 +0000 |
| commit | 55e3d5002b7ace5783e4a21d6a5e45c125451aa1 (patch) | |
| tree | e9e1ca7dbe936e4c830ed6f0cfb463d5b4e5783f /bindings/ocaml/llvm/llvm_ocaml.c | |
| parent | 1780da0f562ccd1e7b6f80d52ef99d166808af62 (diff) | |
| download | external_llvm-55e3d5002b7ace5783e4a21d6a5e45c125451aa1.zip external_llvm-55e3d5002b7ace5783e4a21d6a5e45c125451aa1.tar.gz external_llvm-55e3d5002b7ace5783e4a21d6a5e45c125451aa1.tar.bz2 | |
Incorporating review feedback for GC verifier patch.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@42163 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/llvm/llvm_ocaml.c')
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index 80d7f73..f735666 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -134,7 +134,7 @@ CAMLprim value llvm_param_types(value FunTy) { /* copy into an ocaml array */ unsigned i; - value ParamTys = caml_alloc(Count, 0); + value ParamTys = alloc(Count, 0); LLVMGetFunctionParamTypes((LLVMTypeRef) FunTy, FunTys); for (i = 0; i != Count; ++i) @@ -159,7 +159,7 @@ CAMLprim value llvm_element_types(value StructTy) { /* copy into an ocaml array */ unsigned i; - value ElementTys = caml_alloc(Count, 0); + value ElementTys = alloc(Count, 0); LLVMGetStructElementTypes((LLVMTypeRef) StructTy, Tys); for (i = 0; i != Count; ++i) @@ -225,7 +225,7 @@ CAMLprim value llvm_type_of(value Val) { /* llvalue -> string */ CAMLprim value llvm_value_name(value Val) { - return caml_copy_string(LLVMGetValueName((LLVMValueRef) Val)); + return copy_string(LLVMGetValueName((LLVMValueRef) Val)); } /* string -> llvalue -> unit */ @@ -296,7 +296,7 @@ CAMLprim value llvm_make_real_constant(value RealTy, value N) { /* string -> bool -> llvalue */ CAMLprim value llvm_make_string_constant(value Str, value NullTerminate) { return (value) LLVMGetStringConstant(String_val(Str), - caml_string_length(Str), + string_length(Str), Bool_val(NullTerminate) == 0); } @@ -340,7 +340,7 @@ CAMLprim value llvm_set_linkage(value Linkage, value Global) { /* llvalue -> string */ CAMLprim value llvm_section(value Global) { - return caml_copy_string(LLVMGetSection((LLVMValueRef) Global)); + return copy_string(LLVMGetSection((LLVMValueRef) Global)); } /* string -> llvalue -> unit */ |