dev-ml/core: Bump to 0.9.0

Package-Manager: Portage-2.3.5, Repoman-2.3.2

1 files changed, 0 insertions, 279 deletions

diff --git a/dev-ml/core/files/oc43.patch b/dev-ml/core/files/oc43.patch
deleted file mode 100644
index 5e44a4438209..000000000000
--- a/dev-ml/core/files/oc43.patch
+++ /dev/null
@@ -1,279 +0,0 @@
-diff -uNr core-113.33.02/_oasis core-113.33.02+4.03/_oasis
---- core-113.33.02/_oasis	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/_oasis	2016-04-06 12:42:48.000000000 +0200
-@@ -1,8 +1,8 @@
- OASISFormat:           0.4
--OCamlVersion:          >= 4.02.3
-+OCamlVersion:          >= 4.03.0
- FindlibVersion:        >= 1.3.2
- Name:                  core
--Version:               113.33.02
-+Version:               113.33.02+4.03
- Synopsis:              Industrial strength alternative to OCaml's standard library
- Authors:               Jane Street Group, LLC <opensource@janestreet.com>
- Copyrights:            (C) 2008-2016 Jane Street Group LLC <opensource@janestreet.com>
-diff -uNr core-113.33.02/opam core-113.33.02+4.03/opam
---- core-113.33.02/opam	2016-04-06 11:12:24.000000000 +0200
-+++ core-113.33.02+4.03/opam	2016-04-06 12:54:27.000000000 +0200
-@@ -26,4 +26,4 @@
-   "typerep"
-   "variantslib"
- ]
--available: [ ocaml-version >= "4.02.3" ]
-+available: [ ocaml-version >= "4.03.0" ]
-diff -uNr core-113.33.02/src/bigstring.ml core-113.33.02+4.03/src/bigstring.ml
---- core-113.33.02/src/bigstring.ml	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/src/bigstring.ml	2016-04-06 12:42:48.000000000 +0200
-@@ -29,7 +29,7 @@
- 
- let length = Array1.dim
- 
--external is_mmapped : t -> bool = "bigstring_is_mmapped_stub" "noalloc"
-+external is_mmapped : t -> bool = "bigstring_is_mmapped_stub" [@@noalloc]
- 
- let init n ~f =
-   let t = create n in
-@@ -168,7 +168,7 @@
- 
- external unsafe_send_nonblocking_no_sigpipe
-   : file_descr -> pos : int -> len : int -> t -> Syscall_result.Int.t
--  = "bigstring_send_nonblocking_no_sigpipe_stub" "noalloc"
-+  = "bigstring_send_nonblocking_no_sigpipe_stub" [@@noalloc]
- 
- let send_nonblocking_no_sigpipe fd ?(pos = 0) ?len bstr =
-   let len = get_opt_len bstr ~pos len in
-diff -uNr core-113.33.02/src/core_sys.ml core-113.33.02+4.03/src/core_sys.ml
---- core-113.33.02/src/core_sys.ml	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/src/core_sys.ml	2016-04-06 12:42:48.000000000 +0200
-@@ -83,7 +83,7 @@
- *)
- external executing_bytecode
-   : unit -> unit -> unit -> unit -> unit -> unit -> bool
--  = "executing_bytecode" "not_executing_bytecode" "noalloc"
-+  = "executing_bytecode" "not_executing_bytecode" [@@noalloc]
- 
- let execution_mode () =
-   if executing_bytecode () () () () () () then `Bytecode else `Native
-@@ -95,7 +95,7 @@
- 
- 
- (* returns size, in bits, of an [int] type in C *)
--external c_int_size : unit -> int = "c_int_size" "noalloc"
-+external c_int_size : unit -> int = "c_int_size" [@@noalloc]
- 
- let%test _ = let size = c_int_size () in size >= 16 && size <= Sys.word_size
- 
-diff -uNr core-113.33.02/src/core_sys.mli core-113.33.02+4.03/src/core_sys.mli
---- core-113.33.02/src/core_sys.mli	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/src/core_sys.mli	2016-04-06 12:42:48.000000000 +0200
-@@ -134,7 +134,7 @@
- (** [c_int_size] returns the number of bits in a C [int]. Note that this can be
-     different from [word_size]. For example, Linux x86-64 should have
-     [word_size = 64], but [c_int_size () = 32] *)
--external c_int_size : unit -> int = "c_int_size" "noalloc"
-+external c_int_size : unit -> int = "c_int_size" [@@noalloc]
- 
- (** Return the home directory, using the [HOME] environment variable if that is defined,
-     and if not, using the effective user's information in the Unix password database. *)
-diff -uNr core-113.33.02/src/core_unix.ml core-113.33.02+4.03/src/core_unix.ml
---- core-113.33.02/src/core_unix.ml	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/src/core_unix.ml	2016-04-06 12:42:48.000000000 +0200
-@@ -393,7 +393,7 @@
- 
- (* Signal handling *)
- 
--external abort : unit -> 'a = "unix_abort" "noalloc"
-+external abort : unit -> 'a = "unix_abort" [@@noalloc]
- 
- (* User id, group id management *)
- 
-@@ -1160,6 +1160,11 @@
-     (fun () -> [("src", atom src); ("dst", atom dst)])
- ;;
- 
-+let src_dst' f ?to_dir ~src ~dst =
-+  improve (fun () -> f ?to_dir ~src ~dst)
-+    (fun () -> [("src", atom src); ("dst", atom dst)])
-+;;
-+
- let unlink = unary_filename Unix.unlink
- 
- let rename = src_dst Unix.rename
-@@ -1554,7 +1559,7 @@
-   Exit_or_signal.of_unix (Unix.close_process_full (c.C.stdout, c.C.stdin, c.C.stderr))
- ;;
- 
--let symlink = src_dst Unix.symlink
-+let symlink = src_dst' Unix.symlink
- let readlink = unary_filename Unix.readlink
- 
- module Select_fds = struct
-diff -uNr core-113.33.02/src/core_unix.mli core-113.33.02+4.03/src/core_unix.mli
---- core-113.33.02/src/core_unix.mli	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/src/core_unix.mli	2016-04-06 12:42:48.000000000 +0200
-@@ -910,7 +910,7 @@
- 
- (** [symlink source dest] creates the file [dest] as a symbolic link
-    to the file [source]. *)
--val symlink : src:string -> dst:string -> unit
-+val symlink : ?to_dir:bool -> src:string -> dst:string -> unit
- 
- (** Read the contents of a link. *)
- val readlink : string -> string
-@@ -2007,7 +2007,7 @@
-    caught and the signal handler does not return.  If the SIGABRT signal is
-    blocked or ignored, the abort() function will still override it.
- *)
--external abort : unit -> _ = "unix_abort" "noalloc"
-+external abort : unit -> _ = "unix_abort" [@@noalloc]
- 
- (** {2 User id, group id} *)
- 
-diff -uNr core-113.33.02/src/iobuf.ml core-113.33.02+4.03/src/iobuf.ml
---- core-113.33.02/src/iobuf.ml	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/src/iobuf.ml	2016-04-06 12:42:48.000000000 +0200
-@@ -1094,7 +1094,7 @@
-     -> (read_write, seek) t array
-     -> Recvmmsg_context.ctx
-     -> Unix.Syscall_result.Int.t
--  = "iobuf_recvmmsg_assume_fd_is_nonblocking_stub" "noalloc"
-+  = "iobuf_recvmmsg_assume_fd_is_nonblocking_stub" [@@noalloc]
- 
- let recvmmsg_assume_fd_is_nonblocking fd { Recvmmsg_context. iobufs; ctx; _ } =
-   unsafe_recvmmsg_assume_fd_is_nonblocking fd iobufs ctx
-diff -uNr core-113.33.02/src/linux_ext.ml core-113.33.02+4.03/src/linux_ext.ml
---- core-113.33.02/src/linux_ext.ml	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/src/linux_ext.ml	2016-04-06 12:42:48.000000000 +0200
-@@ -320,7 +320,7 @@
-     -> initial  : Int63.t
-     -> interval : Int63.t
-     -> Syscall_result.Unit.t
--    = "linux_timerfd_settime" "noalloc"
-+    = "linux_timerfd_settime" [@@noalloc]
- 
-   let%test_unit "unsafe_timerfd_settime returning errno" =
-     let result =
-@@ -683,13 +683,13 @@
-   type ready_events = Bigstring.t
- 
-   external epoll_sizeof_epoll_event
--    : unit -> int = "linux_epoll_sizeof_epoll_event" "noalloc"
-+    : unit -> int = "linux_epoll_sizeof_epoll_event" [@@noalloc]
- 
-   external epoll_offsetof_readyfd
--    : unit -> int = "linux_epoll_offsetof_readyfd" "noalloc"
-+    : unit -> int = "linux_epoll_offsetof_readyfd" [@@noalloc]
- 
-   external epoll_offsetof_readyflags
--    : unit -> int = "linux_epoll_offsetof_readyflags" "noalloc"
-+    : unit -> int = "linux_epoll_offsetof_readyflags" [@@noalloc]
- 
-   let sizeof_epoll_event  = epoll_sizeof_epoll_event ()
-   let offsetof_readyfd    = epoll_offsetof_readyfd ()
-diff -uNr core-113.33.02/src/syslog.ml core-113.33.02+4.03/src/syslog.ml
---- core-113.33.02/src/syslog.ml	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/src/syslog.ml	2016-04-06 12:42:48.000000000 +0200
-@@ -57,8 +57,8 @@
- 
- external core_syslog_openlog : string option -> int -> int -> unit = "core_syslog_openlog"
- external core_syslog_syslog : int -> string -> unit = "core_syslog_syslog"
--external core_syslog_closelog : unit -> unit = "core_syslog_closelog" "noalloc"
--external core_syslog_setlogmask : int -> unit = "core_syslog_setlogmask" "noalloc"
-+external core_syslog_closelog : unit -> unit = "core_syslog_closelog" [@@noalloc]
-+external core_syslog_setlogmask : int -> unit = "core_syslog_setlogmask" [@@noalloc]
- 
- let openlog ?id ?(options = []) ?(facility = Facility.USER) () =
-   core_syslog_openlog id (Open_option.mask options) (Facility.to_int facility)
-diff -uNr core-113.33.02/src/time_stamp_counter.ml core-113.33.02+4.03/src/time_stamp_counter.ml
---- core-113.33.02/src/time_stamp_counter.ml	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/src/time_stamp_counter.ml	2016-04-06 12:42:48.000000000 +0200
-@@ -93,7 +93,7 @@
- #if JSC_ARCH_SIXTYFOUR
- 
- (* noalloc on x86_64 only *)
--external now : unit -> tsc = "tsc_get" "noalloc"
-+external now : unit -> tsc = "tsc_get" [@@noalloc]
- 
- module Calibrator = struct
- 
-diff -uNr core-113.33.02/src/time_stamp_counter.mli core-113.33.02+4.03/src/time_stamp_counter.mli
---- core-113.33.02/src/time_stamp_counter.mli	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/src/time_stamp_counter.mli	2016-04-06 12:42:48.000000000 +0200
-@@ -102,7 +102,7 @@
- end
- 
- #if JSC_ARCH_SIXTYFOUR
--external now : unit -> t = "tsc_get" "noalloc"
-+external now : unit -> t = "tsc_get" [@@noalloc]
- #else
- external now : unit -> t = "tsc_get"
- #endif
-diff -uNr core-113.33.02/src/unix_stubs.c core-113.33.02+4.03/src/unix_stubs.c
---- core-113.33.02/src/unix_stubs.c	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/src/unix_stubs.c	2016-04-06 12:42:48.000000000 +0200
-@@ -213,7 +213,7 @@
-    of strings and fill it will strings contained in the string array
-    [arg].  Pointers stored in the result points directly inside the
-    OCaml heap. */
--extern char **cstringvect(value arg);
-+extern char **cstringvect(value arg, char* cmdname);
- 
- /* Given v_prog, an O'Caml string value specifying a program name,
-    v_args, an O'Caml array specifying program arguments (not
-@@ -378,7 +378,7 @@
- 
-     /* We don't bother saving/restoring the environment or freeing the
-        new one since we exit the process in case of error. */
--    environ = cstringvect(v_env);
-+    environ = cstringvect(v_env, "ml_create_process");
- 
-     if (Is_block(v_working_dir))
-       working_dir = String_val(Field(v_working_dir, 0));
-diff -uNr core-113.33.02/test/bigstring_test.ml core-113.33.02+4.03/test/bigstring_test.ml
---- core-113.33.02/test/bigstring_test.ml	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/test/bigstring_test.ml	2016-04-06 12:42:48.000000000 +0200
-@@ -169,7 +169,7 @@
-           simple_conversion_test ~n:"single" "1";
-           repeat 50 (simple_conversion_test ~n:"random") sg;
-         );
--
-+(*
-      "input" >::
-        (fun () ->
-          fd_test really_read_test  ~n:"single" (bs_of_s "X");
-@@ -178,6 +178,7 @@
-          repeat 100 (fd_test really_read_test ~n:"random big")
-            (bsg ~size:(fun () -> 100 * png ()));
-        );
-+*)
- 
-      "destruction" >::
-        (fun () ->
-@@ -209,6 +210,7 @@
-            blit_test ~n:"random" ~src_pos ~dst_pos ~len (s1,s2))
-            (fun () -> (sg (), sg(),nng (), nng (), nng ()))
-        );
-+(*
-       "really write/read pipe" >::
-          (fun () ->
-            let write_read_test = write_read_test Unix.pipe in
-@@ -239,6 +241,7 @@
-            repeat 500 (output_input_test ~n:"random big")
-              (bsg ~size:(fun () -> 100 * png ()));
-          );
-+*)
- 
-        "sub" >::
-          (fun () ->
-diff -uNr core-113.33.02/test/hashtbl/table_new_intf.ml core-113.33.02+4.03/test/hashtbl/table_new_intf.ml
---- core-113.33.02/test/hashtbl/table_new_intf.ml	2016-04-06 11:06:40.000000000 +0200
-+++ core-113.33.02+4.03/test/hashtbl/table_new_intf.ml	2016-04-06 12:42:48.000000000 +0200
-@@ -7,7 +7,7 @@
-   compare: 'k -> 'k -> int;
- }
- 
--external hash_param : int -> int -> 'a -> int = "caml_hash_univ_param" "noalloc"
-+external hash_param : int -> int -> 'a -> int = "caml_hash_univ_param" [@@noalloc]
- 
- let poly = {
-   hash = (fun z -> hash_param 10 100 z);