diff options
Diffstat (limited to 'llvm/bindings/ocaml/bitreader')
| -rw-r--r-- | llvm/bindings/ocaml/bitreader/Makefile | 8 | ||||
| -rw-r--r-- | llvm/bindings/ocaml/bitreader/bitreader_ocaml.c | 12 |
2 files changed, 10 insertions, 10 deletions
diff --git a/llvm/bindings/ocaml/bitreader/Makefile b/llvm/bindings/ocaml/bitreader/Makefile index a1c7de895cf..dad4e1dacce 100644 --- a/llvm/bindings/ocaml/bitreader/Makefile +++ b/llvm/bindings/ocaml/bitreader/Makefile @@ -1,14 +1,14 @@ ##===- bindings/ocaml/bitreader/Makefile -------------------*- Makefile -*-===## -# +# # The LLVM Compiler Infrastructure # # This file is distributed under the University of Illinois Open Source # License. See LICENSE.TXT for details. -# +# ##===----------------------------------------------------------------------===## -# +# # This is the makefile for the Objective Caml Llvm_bitreader interface. -# +# ##===----------------------------------------------------------------------===## LEVEL := ../../.. diff --git a/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c b/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c index 0264e73117d..a3f873c8d88 100644 --- a/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c +++ b/llvm/bindings/ocaml/bitreader/bitreader_ocaml.c @@ -31,10 +31,10 @@ CAMLprim value llvm_register_bitreader_exns(value Error) { static void llvm_raise(value Prototype, char *Message) { CAMLparam1(Prototype); CAMLlocal1(CamlMessage); - + CamlMessage = copy_string(Message); LLVMDisposeMessage(Message); - + raise_with_arg(Prototype, CamlMessage); abort(); /* NOTREACHED */ #ifdef CAMLnoreturn @@ -50,11 +50,11 @@ CAMLprim value llvm_get_module(LLVMContextRef C, LLVMMemoryBufferRef MemBuf) { CAMLparam0(); CAMLlocal2(Variant, MessageVal); char *Message; - + LLVMModuleRef M; if (LLVMGetBitcodeModuleInContext(C, MemBuf, &M, &Message)) llvm_raise(llvm_bitreader_error_exn, Message); - + CAMLreturn((value) M); } @@ -65,9 +65,9 @@ CAMLprim value llvm_parse_bitcode(LLVMContextRef C, CAMLlocal2(Variant, MessageVal); LLVMModuleRef M; char *Message; - + if (LLVMParseBitcodeInContext(C, MemBuf, &M, &Message)) llvm_raise(llvm_bitreader_error_exn, Message); - + CAMLreturn((value) M); } |

