diff options
| author | Peter Zotov <whitequark@whitequark.org> | 2013-11-04 01:39:18 +0000 |
|---|---|---|
| committer | Peter Zotov <whitequark@whitequark.org> | 2013-11-04 01:39:18 +0000 |
| commit | e5de63c7de04c81d7d8484e5b64f47941143c739 (patch) | |
| tree | 5272e98b6323a0de9dcab10a112d50072268d44d /bindings/ocaml/llvm/llvm_ocaml.c | |
| parent | 633f98bdfa266871dcd17ab27af1594c6cc31d9e (diff) | |
| download | llvm-e5de63c7de04c81d7d8484e5b64f47941143c739.tar.gz llvm-e5de63c7de04c81d7d8484e5b64f47941143c739.tar.bz2 llvm-e5de63c7de04c81d7d8484e5b64f47941143c739.tar.xz | |
[OCaml] Formatting
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@193965 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/llvm/llvm_ocaml.c')
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index bd269acf83..a7e12aba56 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -597,12 +597,12 @@ CAMLprim value llvm_get_mdstring(LLVMValueRef V) { CAMLreturn(Val_int(0)); } -CAMLprim value llvm_get_namedmd(LLVMModuleRef M, value name) +CAMLprim value llvm_get_namedmd(LLVMModuleRef M, value Name) { - CAMLparam1(name); + CAMLparam1(Name); CAMLlocal1(Nodes); - Nodes = alloc(LLVMGetNamedMetadataNumOperands(M, String_val(name)), 0); - LLVMGetNamedMetadataOperands(M, String_val(name), (LLVMValueRef *) Nodes); + Nodes = alloc(LLVMGetNamedMetadataNumOperands(M, String_val(Name)), 0); + LLVMGetNamedMetadataOperands(M, String_val(Name), (LLVMValueRef *) Nodes); CAMLreturn(Nodes); } /*--... Operations on scalar constants .....................................--*/ @@ -1967,7 +1967,6 @@ CAMLprim LLVMValueRef llvm_build_ptrdiff(LLVMValueRef LHS, LLVMValueRef RHS, return LLVMBuildPtrDiff(Builder_val(B), LHS, RHS, String_val(Name)); } - /*===-- Memory buffers ----------------------------------------------------===*/ /* string -> llmemorybuffer |