[OCaml] Fix whitespace.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@220766 91177308-0d34-0410-b5e6-96231b3b80d8

diff --git a/bindings/ocaml/Makefile b/bindings/ocaml/Makefile
index b0e1f09fa5ba66e637ce4d28d501c2c12bd9265b..2005367e8d75b537e9eac7df1c4eb29af2f696ee 100644 (file)
--- a/bindings/ocaml/Makefile
+++ b/bindings/ocaml/Makefile
@@ -1,10 +1,10 @@
 ##===- bindings/ocaml/Makefile -----------------------------*- Makefile -*-===##
 ##===- bindings/ocaml/Makefile -----------------------------*- Makefile -*-===##

-# 
+#

 #                     The LLVM Compiler Infrastructure
 #
 # This file is distributed under the University of Illinois Open Source
 # License. See LICENSE.TXT for details.
 #                     The LLVM Compiler Infrastructure
 #
 # This file is distributed under the University of Illinois Open Source
 # License. See LICENSE.TXT for details.

-# 
+#

 ##===----------------------------------------------------------------------===##
 
 LEVEL := ../..
 ##===----------------------------------------------------------------------===##
 
 LEVEL := ../..

diff --git a/bindings/ocaml/Makefile.ocaml b/bindings/ocaml/Makefile.ocaml
index 1b964eec062211e2a0c542ba0ab8a8cc7a7ec554..78901b5de97e429eeebad5a7271af0346a6bff4f 100644 (file)
--- a/bindings/ocaml/Makefile.ocaml
+++ b/bindings/ocaml/Makefile.ocaml
@@ -1,20 +1,20 @@
 ##===- bindings/ocaml/Makefile.ocaml -----------------------*- Makefile -*-===##
 ##===- bindings/ocaml/Makefile.ocaml -----------------------*- Makefile -*-===##

-# 
+#

 #                     The LLVM Compiler Infrastructure
 #
 # This file is distributed under the University of Illinois Open Source
 # License. See LICENSE.TXT for details.
 #                     The LLVM Compiler Infrastructure
 #
 # This file is distributed under the University of Illinois Open Source
 # License. See LICENSE.TXT for details.

-# 
+#

 ##===----------------------------------------------------------------------===##
 ##===----------------------------------------------------------------------===##

-# 
+#

 # An OCaml library is a unique project type in the context of LLVM, so rules are
 # here rather than in Makefile.rules.
 # An OCaml library is a unique project type in the context of LLVM, so rules are
 # here rather than in Makefile.rules.

-# 
+#

 # Reference materials on installing OCaml libraries:
 # Reference materials on installing OCaml libraries:

-# 
+#

 #   https://fedoraproject.org/wiki/Packaging/OCaml
 #   http://pkg-ocaml-maint.alioth.debian.org/ocaml_packaging_policy.txt
 #   https://fedoraproject.org/wiki/Packaging/OCaml
 #   http://pkg-ocaml-maint.alioth.debian.org/ocaml_packaging_policy.txt

-# 
+#

 ##===----------------------------------------------------------------------===##
 
 include $(LEVEL)/Makefile.config
 ##===----------------------------------------------------------------------===##
 
 include $(LEVEL)/Makefile.config


@@ -68,7 +68,7 @@ OCAMLAFLAGS += $(patsubst %,-cclib %, \
                                           $(UsedLibs))
 endif
 endif
                                           $(UsedLibs))
 endif
 endif

- 
+

 # -g was introduced in 3.10.0.
 #ifneq ($(ENABLE_OPTIMIZED),1)
 #  OCAMLDEBUGFLAG := -g
 # -g was introduced in 3.10.0.
 #ifneq ($(ENABLE_OPTIMIZED),1)
 #  OCAMLDEBUGFLAG := -g


@@ -225,7 +225,7 @@ install-a:: $(LibraryA)
        $(Echo) "Installing $(BuildMode) $(DestA)"
        $(Verb) $(MKDIR) $(PROJ_libocamldir)
        $(Verb) $(INSTALL) $(LibraryA) $(DestA)
        $(Echo) "Installing $(BuildMode) $(DestA)"
        $(Verb) $(MKDIR) $(PROJ_libocamldir)
        $(Verb) $(INSTALL) $(LibraryA) $(DestA)

-       $(Verb) 
+       $(Verb)

 
 uninstall-a::
        $(Echo) "Uninstalling $(DestA)"
 
 uninstall-a::
        $(Echo) "Uninstalling $(DestA)"

diff --git a/bindings/ocaml/analysis/Makefile b/bindings/ocaml/analysis/Makefile
index cbfcb246704d0658ddff42b0b28bbcd1b33586d8..daff06194d1e973bdd48662eac7f6777277cc380 100644 (file)
--- a/bindings/ocaml/analysis/Makefile
+++ b/bindings/ocaml/analysis/Makefile
@@ -1,14 +1,14 @@
 ##===- bindings/ocaml/analysis/Makefile --------------------*- Makefile -*-===##
 ##===- bindings/ocaml/analysis/Makefile --------------------*- Makefile -*-===##

-# 
+#

 #                     The LLVM Compiler Infrastructure
 #
 # This file is distributed under the University of Illinois Open Source
 # License. See LICENSE.TXT for details.
 #                     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_analysis interface.
 # This is the makefile for the Objective Caml Llvm_analysis interface.

-# 
+#

 ##===----------------------------------------------------------------------===##
 
 LEVEL := ../../..
 ##===----------------------------------------------------------------------===##
 
 LEVEL := ../../..

diff --git a/bindings/ocaml/analysis/analysis_ocaml.c b/bindings/ocaml/analysis/analysis_ocaml.c
index 91be2d3f6423b95e798ac5e0ad3cf1a233311614..da822888f984be65960785edcdf0886e55de3c22 100644 (file)
--- a/bindings/ocaml/analysis/analysis_ocaml.c
+++ b/bindings/ocaml/analysis/analysis_ocaml.c
@@ -25,10 +25,10 @@
 CAMLprim value llvm_verify_module(LLVMModuleRef M) {
   CAMLparam0();
   CAMLlocal2(String, Option);
 CAMLprim value llvm_verify_module(LLVMModuleRef M) {
   CAMLparam0();
   CAMLlocal2(String, Option);

-  
+

   char *Message;
   int Result = LLVMVerifyModule(M, LLVMReturnStatusAction, &Message);
   char *Message;
   int Result = LLVMVerifyModule(M, LLVMReturnStatusAction, &Message);

-  
+

   if (0 == Result) {
     Option = Val_int(0);
   } else {
   if (0 == Result) {
     Option = Val_int(0);
   } else {


@@ -36,9 +36,9 @@ CAMLprim value llvm_verify_module(LLVMModuleRef M) {
     String = copy_string(Message);
     Store_field(Option, 0, String);
   }
     String = copy_string(Message);
     Store_field(Option, 0, String);
   }

-  
+

   LLVMDisposeMessage(Message);
   LLVMDisposeMessage(Message);

-  
+

   CAMLreturn(Option);
 }
 
   CAMLreturn(Option);
 }
 

diff --git a/bindings/ocaml/bitreader/Makefile b/bindings/ocaml/bitreader/Makefile
index a1c7de895cf82287d281f0bbf80d621eb824a371..dad4e1dacce9f225ed0ebef0fed83a009fc9dc6a 100644 (file)
--- a/bindings/ocaml/bitreader/Makefile
+++ b/bindings/ocaml/bitreader/Makefile
@@ -1,14 +1,14 @@
 ##===- bindings/ocaml/bitreader/Makefile -------------------*- Makefile -*-===##
 ##===- 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.
 #                     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.
 # This is the makefile for the Objective Caml Llvm_bitreader interface.

-# 
+#

 ##===----------------------------------------------------------------------===##
 
 LEVEL := ../../..
 ##===----------------------------------------------------------------------===##
 
 LEVEL := ../../..

diff --git a/bindings/ocaml/bitreader/bitreader_ocaml.c b/bindings/ocaml/bitreader/bitreader_ocaml.c
index 0264e73117da4cbc360a8e49171b85d53fb1feed..a3f873c8d882e97ad932dc0ef9864f5525576a56 100644 (file)
--- a/bindings/ocaml/bitreader/bitreader_ocaml.c
+++ b/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);
 static void llvm_raise(value Prototype, char *Message) {
   CAMLparam1(Prototype);
   CAMLlocal1(CamlMessage);

-  
+

   CamlMessage = copy_string(Message);
   LLVMDisposeMessage(Message);
   CamlMessage = copy_string(Message);
   LLVMDisposeMessage(Message);

-  
+

   raise_with_arg(Prototype, CamlMessage);
   abort(); /* NOTREACHED */
 #ifdef CAMLnoreturn
   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;
   CAMLparam0();
   CAMLlocal2(Variant, MessageVal);
   char *Message;

-  
+

   LLVMModuleRef M;
   if (LLVMGetBitcodeModuleInContext(C, MemBuf, &M, &Message))
     llvm_raise(llvm_bitreader_error_exn, Message);
   LLVMModuleRef M;
   if (LLVMGetBitcodeModuleInContext(C, MemBuf, &M, &Message))
     llvm_raise(llvm_bitreader_error_exn, Message);

-  
+

   CAMLreturn((value) M);
 }
 
   CAMLreturn((value) M);
 }
 


@@ -65,9 +65,9 @@ CAMLprim value llvm_parse_bitcode(LLVMContextRef C,
   CAMLlocal2(Variant, MessageVal);
   LLVMModuleRef M;
   char *Message;
   CAMLlocal2(Variant, MessageVal);
   LLVMModuleRef M;
   char *Message;

-  
+

   if (LLVMParseBitcodeInContext(C, MemBuf, &M, &Message))
     llvm_raise(llvm_bitreader_error_exn, Message);
   if (LLVMParseBitcodeInContext(C, MemBuf, &M, &Message))
     llvm_raise(llvm_bitreader_error_exn, Message);

-  
+

   CAMLreturn((value) M);
 }
   CAMLreturn((value) M);
 }

diff --git a/bindings/ocaml/bitwriter/Makefile b/bindings/ocaml/bitwriter/Makefile
index cec0a59c31b6b63c80c0149a48ced7097cfba758..9f0b2c85a85bd01cc94f7f6da217789f99241b99 100644 (file)
--- a/bindings/ocaml/bitwriter/Makefile
+++ b/bindings/ocaml/bitwriter/Makefile
@@ -1,14 +1,14 @@
 ##===- bindings/ocaml/bitwriter/Makefile -------------------*- Makefile -*-===##
 ##===- bindings/ocaml/bitwriter/Makefile -------------------*- Makefile -*-===##

-# 
+#

 #                     The LLVM Compiler Infrastructure
 #
 # This file is distributed under the University of Illinois Open Source
 # License. See LICENSE.TXT for details.
 #                     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_bitwriter interface.
 # This is the makefile for the Objective Caml Llvm_bitwriter interface.

-# 
+#

 ##===----------------------------------------------------------------------===##
 
 LEVEL := ../../..
 ##===----------------------------------------------------------------------===##
 
 LEVEL := ../../..

diff --git a/bindings/ocaml/executionengine/Makefile b/bindings/ocaml/executionengine/Makefile
index f58b3b751e1f7aefa52aec245dd85abeda7abe4f..d915a76e1ff97feab8dafc9d947842ff1104bd2a 100644 (file)
--- a/bindings/ocaml/executionengine/Makefile
+++ b/bindings/ocaml/executionengine/Makefile
@@ -1,14 +1,14 @@
 ##===- bindings/ocaml/executionengine/Makefile --------------*- Makefile -*-===##
 ##===- bindings/ocaml/executionengine/Makefile --------------*- Makefile -*-===##

-# 
+#

 #                     The LLVM Compiler Infrastructure
 #
 # This file is distributed under the University of Illinois Open Source
 # License. See LICENSE.TXT for details.
 #                     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_executionengine interface.
 # This is the makefile for the Objective Caml Llvm_executionengine interface.

-# 
+#

 ##===----------------------------------------------------------------------===##
 
 LEVEL := ../../..
 ##===----------------------------------------------------------------------===##
 
 LEVEL := ../../..

diff --git a/bindings/ocaml/llvm/Makefile b/bindings/ocaml/llvm/Makefile
index 850f564a0c2239b7935d05d5c2f8036086ea1d04..134d4855ddf233fad0994619e6fed2311de89b39 100644 (file)
--- a/bindings/ocaml/llvm/Makefile
+++ b/bindings/ocaml/llvm/Makefile
@@ -1,14 +1,14 @@
 ##===- bindings/ocaml/llvm/Makefile ------------------------*- Makefile -*-===##
 ##===- bindings/ocaml/llvm/Makefile ------------------------*- Makefile -*-===##

-# 
+#

 #                     The LLVM Compiler Infrastructure
 #
 # This file is distributed under the University of Illinois Open Source
 # License. See LICENSE.TXT for details.
 #                     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 interface.
 # This is the makefile for the Objective Caml Llvm interface.

-# 
+#

 ##===----------------------------------------------------------------------===##
 
 LEVEL := ../../..
 ##===----------------------------------------------------------------------===##
 
 LEVEL := ../../..

diff --git a/bindings/ocaml/llvm/llvm.mli b/bindings/ocaml/llvm/llvm.mli
index 69bbf41f6ec1044171b8e9432e860e5e788281a3..8a205ce1efa6211d7430e2e98f78c18b8cb392c4 100644 (file)
--- a/bindings/ocaml/llvm/llvm.mli
+++ b/bindings/ocaml/llvm/llvm.mli
@@ -849,7 +849,7 @@ val const_float_of_string : lltype -> string -> llvalue
 (** {7 Operations on composite constants} *)
 
 (** [const_string c s] returns the constant [i8] array with the values of the
 (** {7 Operations on composite constants} *)
 
 (** [const_string c s] returns the constant [i8] array with the values of the

-    characters in the string [s] in the context [c]. The array is not 
+    characters in the string [s] in the context [c]. The array is not

     null-terminated (but see {!const_stringz}). This value can in turn be used
     as the initializer for a global variable. See the method
     [llvm::ConstantArray::get]. *)
     null-terminated (but see {!const_stringz}). This value can in turn be used
     as the initializer for a global variable. See the method
     [llvm::ConstantArray::get]. *)


@@ -2419,7 +2419,7 @@ module MemoryBuffer : sig
       path [p]. If the file could not be read, then [IoError msg] is
       raised. *)
   val of_file : string -> llmemorybuffer
       path [p]. If the file could not be read, then [IoError msg] is
       raised. *)
   val of_file : string -> llmemorybuffer

-  
+

   (** [of_stdin ()] is the memory buffer containing the contents of standard input.
       If standard input is empty, then [IoError msg] is raised. *)
   val of_stdin : unit -> llmemorybuffer
   (** [of_stdin ()] is the memory buffer containing the contents of standard input.
       If standard input is empty, then [IoError msg] is raised. *)
   val of_stdin : unit -> llmemorybuffer


@@ -2430,7 +2430,7 @@ module MemoryBuffer : sig
 
   (** [as_string mb] is the string containing the contents of memory buffer [mb]. *)
   val as_string : llmemorybuffer -> string
 
   (** [as_string mb] is the string containing the contents of memory buffer [mb]. *)
   val as_string : llmemorybuffer -> string

-  
+

   (** Disposes of a memory buffer. *)
   val dispose : llmemorybuffer -> unit
 end
   (** Disposes of a memory buffer. *)
   val dispose : llmemorybuffer -> unit
 end


@@ -2442,13 +2442,13 @@ module PassManager : sig
   (**  *)
   type 'a t
   type any = [ `Module | `Function ]
   (**  *)
   type 'a t
   type any = [ `Module | `Function ]

-  
+

   (** [PassManager.create ()] constructs a new whole-module pass pipeline. This
       type of pipeline is suitable for link-time optimization and whole-module
       transformations.
       See the constructor of [llvm::PassManager]. *)
   val create : unit -> [ `Module ] t
   (** [PassManager.create ()] constructs a new whole-module pass pipeline. This
       type of pipeline is suitable for link-time optimization and whole-module
       transformations.
       See the constructor of [llvm::PassManager]. *)
   val create : unit -> [ `Module ] t

-  
+

   (** [PassManager.create_function m] constructs a new function-by-function
       pass pipeline over the module [m]. It does not take ownership of [m].
       This type of pipeline is suitable for code generation and JIT compilation
   (** [PassManager.create_function m] constructs a new function-by-function
       pass pipeline over the module [m]. It does not take ownership of [m].
       This type of pipeline is suitable for code generation and JIT compilation


@@ -2467,19 +2467,19 @@ module PassManager : sig
       the module, [false] otherwise.
       See the [llvm::FunctionPassManager::doInitialization] method. *)
   val initialize : [ `Function ] t -> bool
       the module, [false] otherwise.
       See the [llvm::FunctionPassManager::doInitialization] method. *)
   val initialize : [ `Function ] t -> bool

-  
+

   (** [run_function f fpm] executes all of the function passes scheduled in the
       function pass manager [fpm] over the function [f]. Returns [true] if any
       of the passes modified [f], [false] otherwise.
       See the [llvm::FunctionPassManager::run] method. *)
   val run_function : llvalue -> [ `Function ] t -> bool
   (** [run_function f fpm] executes all of the function passes scheduled in the
       function pass manager [fpm] over the function [f]. Returns [true] if any
       of the passes modified [f], [false] otherwise.
       See the [llvm::FunctionPassManager::run] method. *)
   val run_function : llvalue -> [ `Function ] t -> bool

-  
+

   (** [finalize fpm] finalizes all of the function passes scheduled in in the
       function pass manager [fpm]. Returns [true] if any of the passes
       modified the module, [false] otherwise.
       See the [llvm::FunctionPassManager::doFinalization] method. *)
   val finalize : [ `Function ] t -> bool
   (** [finalize fpm] finalizes all of the function passes scheduled in in the
       function pass manager [fpm]. Returns [true] if any of the passes
       modified the module, [false] otherwise.
       See the [llvm::FunctionPassManager::doFinalization] method. *)
   val finalize : [ `Function ] t -> bool

-  
+

   (** Frees the memory of a pass pipeline. For function pipelines, does not free
       the module.
       See the destructor of [llvm::BasePassManager]. *)
   (** Frees the memory of a pass pipeline. For function pipelines, does not free
       the module.
       See the destructor of [llvm::BasePassManager]. *)

diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c
index a8f7b782a187f8cd1539ed8b104e4a46aae8e3c8..93a9972379c51a3e2886408dadacb34db05a6e5b 100644 (file)
--- a/bindings/ocaml/llvm/llvm_ocaml.c
+++ b/bindings/ocaml/llvm/llvm_ocaml.c
@@ -40,10 +40,10 @@ CAMLprim value llvm_register_core_exns(value IoError) {
 static void llvm_raise(value Prototype, char *Message) {
   CAMLparam1(Prototype);
   CAMLlocal1(CamlMessage);
 static void llvm_raise(value Prototype, char *Message) {
   CAMLparam1(Prototype);
   CAMLlocal1(CamlMessage);

-  
+

   CamlMessage = copy_string(Message);
   LLVMDisposeMessage(Message);
   CamlMessage = copy_string(Message);
   LLVMDisposeMessage(Message);

-  
+

   raise_with_arg(Prototype, CamlMessage);
   abort(); /* NOTREACHED */
 #ifdef CAMLnoreturn
   raise_with_arg(Prototype, CamlMessage);
   abort(); /* NOTREACHED */
 #ifdef CAMLnoreturn


@@ -1181,10 +1181,10 @@ CAMLprim value llvm_gc(LLVMValueRef Fn) {
   const char *GC;
   CAMLparam0();
   CAMLlocal2(Name, Option);
   const char *GC;
   CAMLparam0();
   CAMLlocal2(Name, Option);

-  
+

   if ((GC = LLVMGetGC(Fn))) {
     Name = copy_string(GC);
   if ((GC = LLVMGetGC(Fn))) {
     Name = copy_string(GC);

-    
+

     Option = alloc(1, 0);
     Field(Option, 0) = Name;
     CAMLreturn(Option);
     Option = alloc(1, 0);
     Field(Option, 0) = Name;
     CAMLreturn(Option);


@@ -1439,20 +1439,20 @@ CAMLprim value llvm_incoming(LLVMValueRef PhiNode) {
   unsigned I;
   CAMLparam0();
   CAMLlocal3(Hd, Tl, Tmp);
   unsigned I;
   CAMLparam0();
   CAMLlocal3(Hd, Tl, Tmp);

-  
+

   /* Build a tuple list of them. */
   Tl = Val_int(0);
   for (I = LLVMCountIncoming(PhiNode); I != 0; ) {
     Hd = alloc(2, 0);
     Store_field(Hd, 0, (value) LLVMGetIncomingValue(PhiNode, --I));
     Store_field(Hd, 1, (value) LLVMGetIncomingBlock(PhiNode, I));
   /* Build a tuple list of them. */
   Tl = Val_int(0);
   for (I = LLVMCountIncoming(PhiNode); I != 0; ) {
     Hd = alloc(2, 0);
     Store_field(Hd, 0, (value) LLVMGetIncomingValue(PhiNode, --I));
     Store_field(Hd, 1, (value) LLVMGetIncomingBlock(PhiNode, I));

-    
+

     Tmp = alloc(2, 0);
     Store_field(Tmp, 0, Hd);
     Store_field(Tmp, 1, Tl);
     Tl = Tmp;
   }
     Tmp = alloc(2, 0);
     Store_field(Tmp, 0, Hd);
     Store_field(Tmp, 1, Tl);
     Tl = Tmp;
   }

-  
+

   CAMLreturn(Tl);
 }
 
   CAMLreturn(Tl);
 }
 


@@ -2085,9 +2085,9 @@ CAMLprim LLVMValueRef llvm_build_fcmp(value Pred,
 CAMLprim LLVMValueRef llvm_build_phi(value Incoming, value Name, value B) {
   value Hd, Tl;
   LLVMValueRef FirstValue, PhiNode;
 CAMLprim LLVMValueRef llvm_build_phi(value Incoming, value Name, value B) {
   value Hd, Tl;
   LLVMValueRef FirstValue, PhiNode;

-  
+

   assert(Incoming != Val_int(0) && "Empty list passed to Llvm.build_phi!");
   assert(Incoming != Val_int(0) && "Empty list passed to Llvm.build_phi!");

-  
+

   Hd = Field(Incoming, 0);
   FirstValue = (LLVMValueRef) Field(Hd, 0);
   PhiNode = LLVMBuildPhi(Builder_val(B), LLVMTypeOf(FirstValue),
   Hd = Field(Incoming, 0);
   FirstValue = (LLVMValueRef) Field(Hd, 0);
   PhiNode = LLVMBuildPhi(Builder_val(B), LLVMTypeOf(FirstValue),


@@ -2098,7 +2098,7 @@ CAMLprim LLVMValueRef llvm_build_phi(value Incoming, value Name, value B) {
     LLVMAddIncoming(PhiNode, (LLVMValueRef*) &Field(Hd, 0),
                     (LLVMBasicBlockRef*) &Field(Hd, 1), 1);
   }
     LLVMAddIncoming(PhiNode, (LLVMValueRef*) &Field(Hd, 0),
                     (LLVMBasicBlockRef*) &Field(Hd, 1), 1);
   }

-  
+

   return PhiNode;
 }
 
   return PhiNode;
 }
 


@@ -2134,7 +2134,7 @@ CAMLprim LLVMValueRef llvm_build_insertelement(LLVMValueRef Vec,
                                                LLVMValueRef Element,
                                                LLVMValueRef Idx,
                                                value Name, value B) {
                                                LLVMValueRef Element,
                                                LLVMValueRef Idx,
                                                value Name, value B) {

-  return LLVMBuildInsertElement(Builder_val(B), Vec, Element, Idx, 
+  return LLVMBuildInsertElement(Builder_val(B), Vec, Element, Idx,

                                 String_val(Name));
 }
 
                                 String_val(Name));
 }
 


@@ -2186,11 +2186,11 @@ CAMLprim value llvm_memorybuffer_of_file(value Path) {
   CAMLparam1(Path);
   char *Message;
   LLVMMemoryBufferRef MemBuf;
   CAMLparam1(Path);
   char *Message;
   LLVMMemoryBufferRef MemBuf;

-  
+

   if (LLVMCreateMemoryBufferWithContentsOfFile(String_val(Path),
                                                &MemBuf, &Message))
     llvm_raise(llvm_ioerror_exn, Message);
   if (LLVMCreateMemoryBufferWithContentsOfFile(String_val(Path),
                                                &MemBuf, &Message))
     llvm_raise(llvm_ioerror_exn, Message);

-  
+

   CAMLreturn((value) MemBuf);
 }
 
   CAMLreturn((value) MemBuf);
 }
 


@@ -2199,10 +2199,10 @@ CAMLprim value llvm_memorybuffer_of_file(value Path) {
 CAMLprim LLVMMemoryBufferRef llvm_memorybuffer_of_stdin(value Unit) {
   char *Message;
   LLVMMemoryBufferRef MemBuf;
 CAMLprim LLVMMemoryBufferRef llvm_memorybuffer_of_stdin(value Unit) {
   char *Message;
   LLVMMemoryBufferRef MemBuf;

-  
+

   if (LLVMCreateMemoryBufferWithSTDIN(&MemBuf, &Message))
     llvm_raise(llvm_ioerror_exn, Message);
   if (LLVMCreateMemoryBufferWithSTDIN(&MemBuf, &Message))
     llvm_raise(llvm_ioerror_exn, Message);

-  
+

   return MemBuf;
 }
 
   return MemBuf;
 }
 

diff --git a/bindings/ocaml/transforms/scalar/llvm_scalar_opts.ml b/bindings/ocaml/transforms/scalar/llvm_scalar_opts.ml
index 958939dc3f359e53d95e4118d0e145827bf72d46..3035b103f13257cc9ec34b4fecfa5c9a182d2c59 100644 (file)
--- a/bindings/ocaml/transforms/scalar/llvm_scalar_opts.ml
+++ b/bindings/ocaml/transforms/scalar/llvm_scalar_opts.ml
@@ -66,7 +66,7 @@ external add_cfg_simplification : [<Llvm.PassManager.any] Llvm.PassManager.t
                                 = "llvm_add_cfg_simplification"
 external
 add_tail_call_elimination : [<Llvm.PassManager.any] Llvm.PassManager.t -> unit
                                 = "llvm_add_cfg_simplification"
 external
 add_tail_call_elimination : [<Llvm.PassManager.any] Llvm.PassManager.t -> unit

-                          = "llvm_add_tail_call_elimination" 
+                          = "llvm_add_tail_call_elimination"

 external add_gvn : [<Llvm.PassManager.any] Llvm.PassManager.t
                    -> unit
                  = "llvm_add_gvn"
 external add_gvn : [<Llvm.PassManager.any] Llvm.PassManager.t
                    -> unit
                  = "llvm_add_gvn"

diff --git a/bindings/ocaml/transforms/scalar/llvm_scalar_opts.mli b/bindings/ocaml/transforms/scalar/llvm_scalar_opts.mli
index ab6fa4a646626f36d4d68925656311098157fa49..ca900d9cd68970d58c77b677ec0f8719071375a8 100644 (file)
--- a/bindings/ocaml/transforms/scalar/llvm_scalar_opts.mli
+++ b/bindings/ocaml/transforms/scalar/llvm_scalar_opts.mli
@@ -106,7 +106,7 @@ external add_cfg_simplification : [<Llvm.PassManager.any] Llvm.PassManager.t
 (** See the [llvm::createTailCallEliminationPass] function. *)
 external
 add_tail_call_elimination : [<Llvm.PassManager.any] Llvm.PassManager.t -> unit
 (** See the [llvm::createTailCallEliminationPass] function. *)
 external
 add_tail_call_elimination : [<Llvm.PassManager.any] Llvm.PassManager.t -> unit

-                          = "llvm_add_tail_call_elimination" 
+                          = "llvm_add_tail_call_elimination"

 
 (** See the [llvm::createGVNPass] function. *)
 external add_gvn : [<Llvm.PassManager.any] Llvm.PassManager.t
 
 (** See the [llvm::createGVNPass] function. *)
 external add_gvn : [<Llvm.PassManager.any] Llvm.PassManager.t