This is an automated email from the git hooks/post-receive script.

glondu pushed a commit to branch master
in repository ocaml-batteries.

commit 773ab68ec74ccf7c2e550b21bc5647e999d492cc
Author: Stephane Glondu <st...@glondu.net>
Date:   Thu Jul 20 10:37:02 2017 +0200

    Fix FTBFS with OCaml 4.05
---
 ...OCaml-4.05-that-can-be-fixed-with-conditi.patch |  75 ++++++++++
 ...-Fix-FTBFS-with-OCaml-4.05-unsatisfactory.patch | 157 +++++++++++++++++++++
 debian/patches/series                              |   2 +
 3 files changed, 234 insertions(+)

diff --git 
a/debian/patches/0003-Changes-of-OCaml-4.05-that-can-be-fixed-with-conditi.patch
 
b/debian/patches/0003-Changes-of-OCaml-4.05-that-can-be-fixed-with-conditi.patch
new file mode 100644
index 0000000..d051a80
--- /dev/null
+++ 
b/debian/patches/0003-Changes-of-OCaml-4.05-that-can-be-fixed-with-conditi.patch
@@ -0,0 +1,75 @@
+From: Stephane Glondu <st...@glondu.net>
+Date: Thu, 20 Jul 2017 10:35:20 +0200
+Subject: Changes of OCaml 4.05 that can be fixed with conditionals
+
+---
+ src/batUnix.mliv | 22 +++++++++++++++++-----
+ 1 file changed, 17 insertions(+), 5 deletions(-)
+
+diff --git a/src/batUnix.mliv b/src/batUnix.mliv
+index d035f47..1870fb9 100644
+--- a/src/batUnix.mliv
++++ b/src/batUnix.mliv
+@@ -272,6 +272,7 @@ type open_flag = Unix.open_flag =
+ ##V>=4.1##                                    descriptor returned by 
{!openfile}
+ ##V>=4.1##
+ ##V>=4.1##                                    Since OCaml 4.1 *)
++##V>=4.5##  | O_KEEPEXEC
+ (** The flags to {!Unix.openfile}. *)
+ 
+ 
+@@ -546,11 +547,15 @@ val access : string -> access_permission list -> unit
+ (** {6 Operations on file descriptors} *)
+ 
+ 
+-val dup : file_descr -> file_descr
++val dup :
++##V>=4.5##  ?cloexec:bool ->
++  file_descr -> file_descr
+ (** Return a new file descriptor referencing the same file as
+     the given descriptor. *)
+ 
+-val dup2 : file_descr -> file_descr -> unit
++val dup2 :
++##V>=4.5##  ?cloexec:bool ->
++  file_descr -> file_descr -> unit
+ (** [dup2 fd1 fd2] duplicates [fd1] to [fd2], closing [fd2] if already
+     opened. *)
+ 
+@@ -615,7 +620,9 @@ val closedir : dir_handle -> unit
+ 
+ (** {6 Pipes and redirections} *)
+ 
+-val pipe : unit -> file_descr * file_descr
++val pipe :
++##V>=4.5##  ?cloexec:bool ->
++  unit -> file_descr * file_descr
+ (** Create a pipe. The first component of the result is opened
+     for reading, that's the exit to the pipe. The second component is
+     opened for writing, that's the entrance to the pipe. *)
+@@ -1151,7 +1158,9 @@ type sockaddr = Unix.sockaddr =
+       domain; [addr] is the Internet address of the machine, and
+       [port] is the port number. *)
+ 
+-val socket : socket_domain -> socket_type -> int -> file_descr
++val socket :
++##V>=4.5##  ?cloexec:bool ->
++  socket_domain -> socket_type -> int -> file_descr
+ (** Create a new socket in the given domain, and with the
+     given kind. The third argument is the protocol type; 0 selects
+     the default protocol for that kind of sockets. *)
+@@ -1160,10 +1169,13 @@ val domain_of_sockaddr: sockaddr -> socket_domain
+ (** Return the socket domain adequate for the given socket address. *)
+ 
+ val socketpair :
++##V>=4.5##  ?cloexec:bool ->
+   socket_domain -> socket_type -> int -> file_descr * file_descr
+ (** Create a pair of unnamed sockets, connected together. *)
+ 
+-val accept : file_descr -> file_descr * sockaddr
++val accept :
++##V>=4.5##  ?cloexec:bool ->
++  file_descr -> file_descr * sockaddr
+ (** Accept connections on the given socket. The returned descriptor
+     is a socket connected to the client; the returned address is
+     the address of the connecting client. *)
diff --git a/debian/patches/0004-Fix-FTBFS-with-OCaml-4.05-unsatisfactory.patch 
b/debian/patches/0004-Fix-FTBFS-with-OCaml-4.05-unsatisfactory.patch
new file mode 100644
index 0000000..cedeef9
--- /dev/null
+++ b/debian/patches/0004-Fix-FTBFS-with-OCaml-4.05-unsatisfactory.patch
@@ -0,0 +1,157 @@
+From: Stephane Glondu <st...@glondu.net>
+Date: Thu, 20 Jul 2017 10:36:33 +0200
+Subject: Fix FTBFS with OCaml 4.05 (unsatisfactory)
+
+---
+ src/batGc.mliv              |  4 ++--
+ src/batInnerWeaktbl.ml      |  1 +
+ src/batteries_compattest.ml | 14 ++++++++++++++
+ testsuite/test_interface.ml |  6 ++++++
+ 4 files changed, 23 insertions(+), 2 deletions(-)
+
+diff --git a/src/batGc.mliv b/src/batGc.mliv
+index 474dd01..894c805 100644
+--- a/src/batGc.mliv
++++ b/src/batGc.mliv
+@@ -182,7 +182,7 @@ external counters : unit -> float * float * float = 
"caml_gc_counters"
+     is as fast at [quick_stat]. *)
+ 
+ ##V>=4.4##external minor_words : unit -> (float [@unboxed])
+-##V>=4.4##  = "caml_gc_minor_words" "caml_gc_minor_words_unboxed" [@@noalloc]
++##V>=4.4##  = "caml_gc_minor_words" "caml_gc_minor_words_unboxed"
+ ##V>=4.4##(** Number of words allocated in the minor heap since the program 
was
+ ##V>=4.4##    started. This number is accurate in byte-code programs, but 
only an
+ ##V>=4.4##    approximation in programs compiled to native code.
+@@ -227,7 +227,7 @@ val allocated_bytes : unit -> float
+     started.  It is returned as a [float] to avoid overflow problems
+     with [int] on 32-bit machines. *)
+ 
+-##V>=4.3##external get_minor_free : unit -> int = "caml_get_minor_free" 
[@@noalloc]
++##V>=4.3##external get_minor_free : unit -> int = "caml_get_minor_free"
+ (** Return the current size of the free space inside the minor heap.
+     @since 2.5.0 and OCaml 4.03.0 *)
+ 
+diff --git a/src/batInnerWeaktbl.ml b/src/batInnerWeaktbl.ml
+index e16b683..8e7bc75 100644
+--- a/src/batInnerWeaktbl.ml
++++ b/src/batInnerWeaktbl.ml
+@@ -95,6 +95,7 @@ module Make (H: Hashtbl.HashedType) : Hashtbl.S with type 
key = H.t = struct
+   let find_all tbl key =
+     try all_value (W.find tbl (dummy key)) with Not_found-> []
+   let find tbl key = top_value (W.find tbl (dummy key))
++  let find_opt t x = assert false
+   let add tbl key data =
+     let bd = bind_new key data in
+     let cls =
+diff --git a/src/batteries_compattest.ml b/src/batteries_compattest.ml
+index 585b77d..1c8c0fd 100644
+--- a/src/batteries_compattest.ml
++++ b/src/batteries_compattest.ml
+@@ -4,6 +4,7 @@ module Stdlib_verifications = struct
+   (* This module asserts that all the BatFoo modules are actually
+      extensions of stdlib modules, and that no functionality is lost. *)
+   module Array_t = (Array : module type of Legacy.Array)
++(*
+   module Buffer_t =
+     (Buffer: sig
+        include module type of Legacy.Buffer
+@@ -11,6 +12,7 @@ module Stdlib_verifications = struct
+        val output_buffer : t -> string BatInnerIO.output
+      end)
+   module Bytes = (Bytes : module type of Legacy.Bytes)
++*)
+   module Char_t = (Char: module type of Legacy.Char)
+   module Complex_t = (Complex : module type of Legacy.Complex)
+   module Digest =
+@@ -28,14 +30,18 @@ module Stdlib_verifications = struct
+      end)
+   module Genlex = (Genlex : module type of Legacy.Genlex)
+   (*  module Hashtbl = (Hashtbl: module type of Legacy.Hashtbl)*)
++(*
+   module Int32 = (Int32: module type of Legacy.Int32)
+   module Int64 = (Int64: module type of Legacy.Int64)
++*)
+   module Lexing =
+     (Lexing: sig
+        include module type of Legacy.Lexing
+        val from_channel : BatIO.input -> Lexing.lexbuf
+      end)
++(*
+   module List = (List: module type of Legacy.List)
++*)
+   (*  module Map = (Map : module type of Legacy.Map)*)
+   module Marshal =
+     (Marshal: sig
+@@ -43,14 +49,18 @@ module Stdlib_verifications = struct
+        val to_channel : _ BatIO.output -> 'b -> extern_flags list -> unit
+        val from_channel : BatIO.input -> 'a
+      end)
++(*
+   module Nativeint = (Nativeint: module type of Legacy.Nativeint)
++*)
+   module Oo = (Oo : module type of Legacy.Oo)
++(*
+   module Printexc =
+     (Printexc: sig
+        include module type of Legacy.Printexc
+        val print : 'a BatInnerIO.output -> exn -> unit
+        val print_backtrace : 'a BatInnerIO.output -> unit
+      end)
++*)
+   (*  module Printf = (Printf: module type of Legacy.Printf)*)
+   module Queue = (Queue: module type of Legacy.Queue)
+   module Random = (Random: module type of Legacy.Random)
+@@ -60,8 +70,10 @@ module Stdlib_verifications = struct
+      module Stack = (Stack : module type of Legacy.Stack)
+   *)
+   module Stream = (Stream : module type of Legacy.Stream)
++(*
+   module String = (String : module type of Legacy.String)
+   module Sys = (Sys : module type of Legacy.Sys)
++*)
+   module Unix =
+     (Unix: sig
+        include module type of Legacy.Unix
+@@ -101,6 +113,8 @@ module Stdlib_verifications = struct
+          (BatInnerIO.input -> unit BatInnerIO.output -> unit) ->
+          Unix.sockaddr -> unit
+      end)
++(*
+   module Big_int = (Big_int : module type of Legacy.Big_int)
+   module Bigarray = (Bigarray : module type of Legacy.Bigarray)
++*)
+ end
+diff --git a/testsuite/test_interface.ml b/testsuite/test_interface.ml
+index e094d2d..b38d0ff 100644
+--- a/testsuite/test_interface.ml
++++ b/testsuite/test_interface.ml
+@@ -1,6 +1,8 @@
+ 
+ (*module X1 : module type of Arg = BatArg REMOVE BATARG?  REIMPLEMENT?*)
++(*
+ module X15 : module type of List = BatList
++*)
+ (*
+ module X2 : module type of Array = BatArray
+ module X3 : module type of Bigarray = BatBigarray
+@@ -17,8 +19,10 @@ module X8 : module type of Format = BatFormat
+ module X10 : module type of Genlex = BatGenlex
+  *)
+ (* module X11 : module type of Hashtbl = BatHashtbl FAIL missing fields?*)
++(*
+ module X12 : module type of Int32 = BatInt32
+ module X13 : module type of Int64 = BatInt64
++*)
+ (*
+ module X14 : module type of Lexing = BatLexing
+  *)
+@@ -26,7 +30,9 @@ module X14 : module type of Lexing = BatLexing
+ (*
+ module X17 : module type of Marshal = BatMarshal
+  *)
++(*
+ module X18 : module type of Nativeint = BatNativeint
++*)
+ (*
+ module X19 : module type of Num = BatNum
+ module X20 : module type of Oo = BatOo
diff --git a/debian/patches/series b/debian/patches/series
index b1d97c0..86612ab 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,4 @@
 0001-Do-not-enforce-sanity-check-rules.patch
 0002-Disable-qtest-based-tests.patch
+0003-Changes-of-OCaml-4.05-that-can-be-fixed-with-conditi.patch
+0004-Fix-FTBFS-with-OCaml-4.05-unsatisfactory.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-ocaml-maint/packages/ocaml-batteries.git

_______________________________________________
Pkg-ocaml-maint-commits mailing list
Pkg-ocaml-maint-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-ocaml-maint-commits

Reply via email to