* [gentoo-commits] repo/gentoo:master commit in: dev-ml/capnp-ocaml/, dev-ml/capnp-ocaml/files/
@ 2017-04-02 8:38 Alexis Ballier
0 siblings, 0 replies; 2+ messages in thread
From: Alexis Ballier @ 2017-04-02 8:38 UTC (permalink / raw
To: gentoo-commits
commit: d0f61ab11df63dfbe0465529b841ccc36c5f5c7f
Author: Alexis Ballier <aballier <AT> gentoo <DOT> org>
AuthorDate: Sat Apr 1 22:25:29 2017 +0000
Commit: Alexis Ballier <aballier <AT> gentoo <DOT> org>
CommitDate: Sun Apr 2 08:38:03 2017 +0000
URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=d0f61ab1
dev-ml/capnp-ocaml: Fix build with latest core_kernel.
Package-Manager: Portage-2.3.5, Repoman-2.3.2
dev-ml/capnp-ocaml/capnp-ocaml-2.1.1.ebuild | 5 +-
dev-ml/capnp-ocaml/files/core.patch | 366 ++++++++++++++++++++++++++++
2 files changed, 369 insertions(+), 2 deletions(-)
diff --git a/dev-ml/capnp-ocaml/capnp-ocaml-2.1.1.ebuild b/dev-ml/capnp-ocaml/capnp-ocaml-2.1.1.ebuild
index 56c646f2fed..8d43761a660 100644
--- a/dev-ml/capnp-ocaml/capnp-ocaml-2.1.1.ebuild
+++ b/dev-ml/capnp-ocaml/capnp-ocaml-2.1.1.ebuild
@@ -1,4 +1,4 @@
-# Copyright 1999-2016 Gentoo Foundation
+# Copyright 1999-2017 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
EAPI=5
@@ -28,7 +28,8 @@ DEPEND="${RDEPEND}
"
src_prepare() {
- epatch "${FILESDIR}/mi.patch"
+ epatch "${FILESDIR}/mi.patch" \
+ "${FILESDIR}/core.patch"
}
src_compile() {
diff --git a/dev-ml/capnp-ocaml/files/core.patch b/dev-ml/capnp-ocaml/files/core.patch
new file mode 100644
index 00000000000..72265c63887
--- /dev/null
+++ b/dev-ml/capnp-ocaml/files/core.patch
@@ -0,0 +1,366 @@
+Index: capnp-ocaml-2.1.1/src/compiler/genCommon.ml
+===================================================================
+--- capnp-ocaml-2.1.1.orig/src/compiler/genCommon.ml
++++ capnp-ocaml-2.1.1/src/compiler/genCommon.ml
+@@ -77,7 +77,7 @@ let apply_indent ~(indent : string) (lin
+ (* Mangle a name so that it doesn't collide with any of the names in the list. *)
+ let mangle_ident (ident : string) (idents : string list) =
+ let rec loop mangled =
+- if List.mem idents mangled then
++ if List.mem idents mangled String.equal then
+ loop (mangled ^ "_")
+ else
+ mangled
+@@ -516,7 +516,7 @@ let filter_interesting_imports ~context
+ let make_disambiguated_type_name ~context ~(mode : Mode.t) ~(scope_mode : Mode.t)
+ ~scope ~tp node =
+ let node_id = PS.Node.id_get node in
+- if List.mem scope node_id then
++ if List.mem scope node_id uint64_equal then
+ (* The node of interest is a parent node of the node being generated.
+ this is a case where an unambiguous type is emitted. *)
+ make_unique_typename ~context ~mode node
+Index: capnp-ocaml-2.1.1/src/compiler/make_includes.ml
+===================================================================
+--- capnp-ocaml-2.1.1.orig/src/compiler/make_includes.ml
++++ capnp-ocaml-2.1.1/src/compiler/make_includes.ml
+@@ -2,29 +2,26 @@
+ as a list of lines. This is used to perform an ocaml source inclusion,
+ providing functor-like capability without the performance hit. *)
+
+-open Core_kernel
+-
+-
+ let make_inclusion oc variable_name filename =
+- Out_channel.output_string oc ("let " ^ variable_name ^ " = [\n");
+- In_channel.with_file filename ~f:(fun ic ->
+- In_channel.iter_lines ic ~f:(fun line ->
++ Core_kernel.Out_channel.output_string oc ("let " ^ variable_name ^ " = [\n");
++ Core_kernel.In_channel.with_file filename ~f:(fun ic ->
++ Core_kernel.In_channel.iter_lines ic ~f:(fun line ->
+ if String.trim line = "INCLUDE \"common-inc.ml\"" then
+- In_channel.with_file "../runtime/common-inc.ml" ~f:(fun ic ->
+- In_channel.iter_lines ic ~f:(fun line ->
+- Out_channel.output_string oc " \" ";
+- Out_channel.output_string oc (String.escaped line);
+- Out_channel.output_string oc "\";\n"))
++ Core_kernel.In_channel.with_file "../runtime/common-inc.ml" ~f:(fun ic ->
++ Core_kernel.In_channel.iter_lines ic ~f:(fun line ->
++ Core_kernel.Out_channel.output_string oc " \" ";
++ Core_kernel.Out_channel.output_string oc (String.escaped line);
++ Core_kernel.Out_channel.output_string oc "\";\n"))
+ else begin
+- Out_channel.output_string oc " \"";
+- Out_channel.output_string oc (String.escaped line);
+- Out_channel.output_string oc "\";\n"
++ Core_kernel.Out_channel.output_string oc " \"";
++ Core_kernel.Out_channel.output_string oc (String.escaped line);
++ Core_kernel.Out_channel.output_string oc "\";\n"
+ end));
+- Out_channel.output_string oc "]\n\n"
++ Core_kernel.Out_channel.output_string oc "]\n\n"
+
+
+ let () =
+- Out_channel.with_file "includes.ml" ~f:(fun oc ->
++ Core_kernel.Out_channel.with_file "includes.ml" ~f:(fun oc ->
+ make_inclusion oc "reader_api" "../runtime/reader-inc.ml";
+ make_inclusion oc "builder_api" "../runtime/builder-inc.ml")
+
+Index: capnp-ocaml-2.1.1/src/compiler/topsort.ml
+===================================================================
+--- capnp-ocaml-2.1.1.orig/src/compiler/topsort.ml
++++ capnp-ocaml-2.1.1/src/compiler/topsort.ml
+@@ -83,7 +83,7 @@ let register_reference ~parentage_table
+ else
+ begin match Hashtbl.find edges parent_referee with
+ | Some referrer_list ->
+- if List.mem referrer_list referrer then
++ if List.mem referrer_list referrer uint64_equal then
+ (* This reference is already present *)
+ ()
+ else
+@@ -199,7 +199,7 @@ let build_reference_graph
+
+ let dump_reference_graph reference_graph =
+ let () = Printf.printf "reference graph:\n" in
+- Hashtbl.iter reference_graph ~f:(fun ~key ~data ->
++ Hashtbl.iteri reference_graph ~f:(fun ~key ~data ->
+ let () = Printf.printf " key: %s\n" (Uint64.to_string key) in
+ List.iter data
+ ~f:(fun x -> Printf.printf " data: %s\n" (Uint64.to_string x)))
+Index: capnp-ocaml-2.1.1/src/runtime/farPointer.ml
+===================================================================
+--- capnp-ocaml-2.1.1.orig/src/runtime/farPointer.ml
++++ capnp-ocaml-2.1.1/src/runtime/farPointer.ml
+@@ -28,7 +28,6 @@
+ ******************************************************************************)
+
+
+-module Int64 = Core_kernel.Core_int64
+ module Caml = Core_kernel.Caml
+
+ type landing_pad_t =
+@@ -94,14 +93,14 @@ let decode (pointer64 : Int64.t) : t =
+ Caml.Int64.to_int id64
+ in
+ let landing_pad =
+- let masked = Int64.bit_and pointer64 landing_pad_type_mask in
++ let masked = Int64.logand pointer64 landing_pad_type_mask in
+ if Int64.compare masked Int64.zero = 0 then
+ NormalPointer
+ else
+ TaggedFarPointer
+ in
+ let offset =
+- let masked = Int64.bit_and pointer64 offset_mask in
++ let masked = Int64.logand pointer64 offset_mask in
+ let offset64 = Int64.shift_right_logical masked offset_shift in
+ Caml.Int64.to_int offset64
+ in {
+@@ -137,8 +136,8 @@ let encode (storage_descr : t) : Int64.t
+ let offset64 = Int64.of_int storage_descr.offset in
+ let segment64 = Int64.of_int storage_descr.segment_id in
+ tag_val_far |>
+- Int64.bit_or (Int64.shift_left type64 landing_pad_type_shift) |>
+- Int64.bit_or (Int64.shift_left offset64 offset_shift) |>
+- Int64.bit_or (Int64.shift_left segment64 segment_shift)
++ Int64.logor (Int64.shift_left type64 landing_pad_type_shift) |>
++ Int64.logor (Int64.shift_left offset64 offset_shift) |>
++ Int64.logor (Int64.shift_left segment64 segment_shift)
+
+
+Index: capnp-ocaml-2.1.1/src/runtime/fragmentBuffer.ml
+===================================================================
+--- capnp-ocaml-2.1.1.orig/src/runtime/fragmentBuffer.ml
++++ capnp-ocaml-2.1.1/src/runtime/fragmentBuffer.ml
+@@ -36,14 +36,14 @@ module Bytes = CamlBytes
+
+ type t = {
+ (** String fragments stored in FIFO order *)
+- fragments : string Dequeue.t;
++ fragments : string Deque.t;
+
+ (** Total byte count of the fragments *)
+ mutable fragments_size : int;
+ }
+
+ let empty () = {
+- fragments = Dequeue.create ();
++ fragments = Deque.create ();
+ fragments_size = 0;
+ }
+
+@@ -52,7 +52,7 @@ let add_fragment stream fragment =
+ if len = 0 then
+ ()
+ else
+- let () = Dequeue.enqueue_back stream.fragments fragment in
++ let () = Deque.enqueue_back stream.fragments fragment in
+ stream.fragments_size <- stream.fragments_size + len
+
+ let of_string s =
+@@ -71,7 +71,7 @@ let remove_exact stream size =
+ let ofs = ref 0 in
+ while !ofs < size do
+ let bytes_remaining = size - !ofs in
+- let fragment = Dequeue.dequeue_front_exn stream.fragments in
++ let fragment = Deque.dequeue_front_exn stream.fragments in
+ let bytes_from_fragment = min bytes_remaining (String.length fragment) in
+ Bytes.blit
+ (Bytes.unsafe_of_string fragment) 0
+@@ -79,7 +79,7 @@ let remove_exact stream size =
+ bytes_from_fragment;
+ begin if bytes_from_fragment < String.length fragment then
+ let remainder = Util.str_slice ~start:bytes_from_fragment fragment in
+- Dequeue.enqueue_front stream.fragments remainder
++ Deque.enqueue_front stream.fragments remainder
+ end;
+ ofs := !ofs + bytes_from_fragment;
+ done;
+@@ -93,7 +93,7 @@ let remove_at_least stream size =
+ else begin
+ let buffer = Buffer.create size in
+ while Buffer.length buffer < size do
+- Buffer.add_string buffer (Dequeue.dequeue_front_exn stream.fragments)
++ Buffer.add_string buffer (Deque.dequeue_front_exn stream.fragments)
+ done;
+ stream.fragments_size <- stream.fragments_size - (Buffer.length buffer);
+ Some (Buffer.contents buffer)
+@@ -102,7 +102,7 @@ let remove_at_least stream size =
+ let peek_exact stream size =
+ match remove_exact stream size with
+ | Some bytes ->
+- let () = Dequeue.enqueue_front stream.fragments bytes in
++ let () = Deque.enqueue_front stream.fragments bytes in
+ let () = stream.fragments_size <- stream.fragments_size + size in
+ Some bytes
+ | None ->
+@@ -113,7 +113,7 @@ let unremove stream bytes =
+ if len = 0 then
+ ()
+ else
+- let () = Dequeue.enqueue_front stream.fragments bytes in
++ let () = Deque.enqueue_front stream.fragments bytes in
+ stream.fragments_size <- stream.fragments_size + len
+
+
+Index: capnp-ocaml-2.1.1/src/runtime/iO.ml
+===================================================================
+--- capnp-ocaml-2.1.1.orig/src/runtime/iO.ml
++++ capnp-ocaml-2.1.1/src/runtime/iO.ml
+@@ -49,7 +49,7 @@ module WriteContext = struct
+ write : 'a -> buf:string -> pos:int -> len:int -> int;
+
+ (** Data remaining to write to the descriptor *)
+- fragments : string Dequeue.t;
++ fragments : string Deque.t;
+
+ (** Total number of bytes stored in [fragments] *)
+ mutable fragments_size : int;
+@@ -62,23 +62,23 @@ module WriteContext = struct
+ fd;
+ comp = compression;
+ write;
+- fragments = Dequeue.create ();
++ fragments = Deque.create ();
+ fragments_size = 0;
+ first_fragment_pos = 0;
+ }
+
+ let enqueue_message context message =
+ Codecs.serialize_iter message ~compression:context.comp ~f:(fun buf ->
+- Dequeue.enqueue_back context.fragments buf;
++ Deque.enqueue_back context.fragments buf;
+ context.fragments_size <- context.fragments_size + (String.length buf))
+
+ let bytes_remaining context = context.fragments_size - context.first_fragment_pos
+
+ let write context =
+- if Dequeue.is_empty context.fragments then
++ if Deque.is_empty context.fragments then
+ 0
+ else
+- let first_fragment = Dequeue.peek_front_exn context.fragments in
++ let first_fragment = Deque.peek_front_exn context.fragments in
+ let first_fragment_remaining =
+ String.length first_fragment - context.first_fragment_pos
+ in
+@@ -88,7 +88,7 @@ module WriteContext = struct
+ in
+ let () =
+ if bytes_written = first_fragment_remaining then
+- let (_ : string) = Dequeue.dequeue_front_exn context.fragments in
++ let (_ : string) = Deque.dequeue_front_exn context.fragments in
+ let () = context.fragments_size <-
+ context.fragments_size - (String.length first_fragment)
+ in
+Index: capnp-ocaml-2.1.1/src/runtime/listPointer.ml
+===================================================================
+--- capnp-ocaml-2.1.1.orig/src/runtime/listPointer.ml
++++ capnp-ocaml-2.1.1/src/runtime/listPointer.ml
+@@ -1,5 +1,4 @@
+
+-module Int64 = Core_kernel.Core_int64;;
+ module Caml = Core_kernel.Caml
+
+ type element_type_t =
+@@ -73,13 +72,13 @@ let decode (pointer64 : Int64.t) : t =
+ }
+ else
+ let offset =
+- let masked = Int64.bit_and pointer64 offset_mask in
++ let masked = Int64.logand pointer64 offset_mask in
+ let offset64 = Int64.shift_right_logical masked offset_shift in
+ let offset_int = Caml.Int64.to_int offset64 in
+ Util.decode_signed 30 offset_int
+ in
+ let element_type =
+- let masked = Int64.bit_and pointer64 type_mask in
++ let masked = Int64.logand pointer64 type_mask in
+ let tp64 = Int64.shift_right_logical masked type_shift in
+ match Caml.Int64.to_int tp64 with
+ | 0 -> Void
+@@ -136,8 +135,8 @@ let encode (storage_descr : t) : Int64.t
+ Int64.of_int type_id
+ in
+ tag_val_list |>
+- Int64.bit_or (Int64.shift_left offset64 offset_shift) |>
+- Int64.bit_or (Int64.shift_left type64 type_shift) |>
+- Int64.bit_or (Int64.shift_left (Int64.of_int storage_descr.num_elements) count_shift)
++ Int64.logor (Int64.shift_left offset64 offset_shift) |>
++ Int64.logor (Int64.shift_left type64 type_shift) |>
++ Int64.logor (Int64.shift_left (Int64.of_int storage_descr.num_elements) count_shift)
+
+
+Index: capnp-ocaml-2.1.1/src/runtime/otherPointer.ml
+===================================================================
+--- capnp-ocaml-2.1.1.orig/src/runtime/otherPointer.ml
++++ capnp-ocaml-2.1.1/src/runtime/otherPointer.ml
+@@ -28,7 +28,6 @@
+ ******************************************************************************)
+
+
+-module Int64 = Core_kernel.Core_int64
+ module Caml = Core_kernel.Caml
+
+ type t =
+@@ -43,8 +42,8 @@ let index_shift = 32
+ let index_mask = Int64.shift_left 0xffffffffL index_shift
+
+ let decode (pointer64 : Int64.t) : t =
+- if Int64.compare (Int64.bit_and pointer64 b_mask) Int64.zero = 0 then
+- let shifted_index = Int64.bit_and pointer64 index_mask in
++ if Int64.compare (Int64.logand pointer64 b_mask) Int64.zero = 0 then
++ let shifted_index = Int64.logand pointer64 index_mask in
+ let index64 = Int64.shift_right_logical shifted_index index_shift in
+ let index32 = Caml.Int64.to_int32 index64 in
+ Capability (Uint32.of_int32 index32)
+@@ -57,6 +56,6 @@ let encode (descr : t) : Int64.t =
+ let index32 = Uint32.to_int32 index in
+ let index64 = Int64.of_int32 index32 in
+ let shifted_index = Int64.shift_left index64 index_shift in
+- Int64.bit_or shifted_index tag_val_other
++ Int64.logor shifted_index tag_val_other
+
+
+Index: capnp-ocaml-2.1.1/src/runtime/structPointer.ml
+===================================================================
+--- capnp-ocaml-2.1.1.orig/src/runtime/structPointer.ml
++++ capnp-ocaml-2.1.1/src/runtime/structPointer.ml
+@@ -28,7 +28,6 @@
+ ******************************************************************************)
+
+
+-module Int64 = Core_kernel.Core_int64
+ module Caml = Core_kernel.Caml
+
+ type t = {
+@@ -79,13 +78,13 @@ let decode (pointer64 : Int64.t) : t =
+ }
+ else
+ let offset =
+- let masked = Int64.bit_and pointer64 offset_mask in
++ let masked = Int64.logand pointer64 offset_mask in
+ let offset64 = Int64.shift_right_logical masked offset_shift in
+ let offset_int = Caml.Int64.to_int offset64 in
+ Util.decode_signed 30 offset_int
+ in
+ let data_size =
+- let masked = Int64.bit_and pointer64 data_size_mask in
++ let masked = Int64.logand pointer64 data_size_mask in
+ let size64 = Int64.shift_right_logical masked data_size_shift in
+ Caml.Int64.to_int size64
+ in {
+@@ -113,8 +112,8 @@ let encode (storage_descr : t) : Int64.t
+ let data_size64 = Int64.of_int storage_descr.data_words in
+ let ptr_size64 = Int64.of_int storage_descr.pointer_words in
+ tag_val_struct |>
+- Int64.bit_or (Int64.shift_left offset64 offset_shift) |>
+- Int64.bit_or (Int64.shift_left data_size64 data_size_shift) |>
+- Int64.bit_or (Int64.shift_left ptr_size64 pointers_size_shift)
++ Int64.logor (Int64.shift_left offset64 offset_shift) |>
++ Int64.logor (Int64.shift_left data_size64 data_size_shift) |>
++ Int64.logor (Int64.shift_left ptr_size64 pointers_size_shift)
+
+
^ permalink raw reply related [flat|nested] 2+ messages in thread
* [gentoo-commits] repo/gentoo:master commit in: dev-ml/capnp-ocaml/, dev-ml/capnp-ocaml/files/
@ 2017-09-16 15:31 Alexis Ballier
0 siblings, 0 replies; 2+ messages in thread
From: Alexis Ballier @ 2017-09-16 15:31 UTC (permalink / raw
To: gentoo-commits
commit: d941893ebff76a422681a680a09e27207509d66e
Author: Alexis Ballier <aballier <AT> gentoo <DOT> org>
AuthorDate: Sat Sep 16 15:27:54 2017 +0000
Commit: Alexis Ballier <aballier <AT> gentoo <DOT> org>
CommitDate: Sat Sep 16 15:31:16 2017 +0000
URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=d941893e
dev-ml/capnp-ocaml: Remove old
Package-Manager: Portage-2.3.8, Repoman-2.3.3
dev-ml/capnp-ocaml/Manifest | 1 -
dev-ml/capnp-ocaml/capnp-ocaml-2.1.1.ebuild | 43 ----
dev-ml/capnp-ocaml/files/core.patch | 366 ----------------------------
dev-ml/capnp-ocaml/files/mi.patch | 31 ---
4 files changed, 441 deletions(-)
diff --git a/dev-ml/capnp-ocaml/Manifest b/dev-ml/capnp-ocaml/Manifest
index 306b87f25b9..6f6ea01245d 100644
--- a/dev-ml/capnp-ocaml/Manifest
+++ b/dev-ml/capnp-ocaml/Manifest
@@ -1,2 +1 @@
-DIST capnp-ocaml-2.1.1.tar.gz 189731 SHA256 b4718b650c51ba05292afcbd1cb0ddfbd3efc7e160c65736538434b76c9cd931 SHA512 79083c2f387d6055a2cab45230b97f579a727418d55be13d3ca0135efd8561787b772012ed7f6f3277f9a34df3cb4684242bd754e048fbe77e4c8ba8ff9faf93 WHIRLPOOL c7b697cc8a2e2d26900a2845140d302da8b81aa5cdd8cfc0fd1ff95b8193b3f51185e7da3275b76582d98a7b03808c21e7eafb98d55e3d9ac700aac0ac614f68
DIST capnp-ocaml-3.0.0.tar.gz 140985 SHA256 01b5380d4d4ec5392c91036787d93a553055ad403ff41d2cf73caff25a9098cc SHA512 5cdf678fa80e67c552f60123f1d04eb5facad81e6c29661c2234c06bbcb98312d1eba96f81f3e747fef0b4de986aff07b69aafcbfde60873ba40452a66d75075 WHIRLPOOL 2b6f04034c81dd0d01089b3ff39c681dab98a665ade944ca5d21014bb2d61b5bcaa4e4545e65d2829e9a837b44423cca580e7c6ca87a62d55c33e81caf859e3e
diff --git a/dev-ml/capnp-ocaml/capnp-ocaml-2.1.1.ebuild b/dev-ml/capnp-ocaml/capnp-ocaml-2.1.1.ebuild
deleted file mode 100644
index 8d43761a660..00000000000
--- a/dev-ml/capnp-ocaml/capnp-ocaml-2.1.1.ebuild
+++ /dev/null
@@ -1,43 +0,0 @@
-# Copyright 1999-2017 Gentoo Foundation
-# Distributed under the terms of the GNU General Public License v2
-
-EAPI=5
-
-inherit findlib eutils
-
-DESCRIPTION="OCaml code generator plugin for the Cap'n Proto serialization framework"
-HOMEPAGE="https://github.com/pelzlpj/capnp-ocaml"
-SRC_URI="https://github.com/pelzlpj/capnp-ocaml/archive/v${PV}.tar.gz -> ${P}.tar.gz"
-
-LICENSE="BSD-2"
-SLOT="0/${PV}"
-KEYWORDS="~amd64"
-IUSE=""
-
-RDEPEND="
- dev-lang/ocaml:=[ocamlopt]
- dev-ml/core_kernel:=
- dev-ml/camlp4:=
- dev-ml/ocaml-extunix:=
- dev-ml/ocplib-endian:=
- dev-ml/res:=
- dev-ml/ocaml-uint:=
-"
-DEPEND="${RDEPEND}
- dev-util/omake
-"
-
-src_prepare() {
- epatch "${FILESDIR}/mi.patch" \
- "${FILESDIR}/core.patch"
-}
-
-src_compile() {
- PREFIX="${EPREFIX}/usr" omake --force-dotomake || die
-}
-
-src_install() {
- findlib_src_preinst
- DESTDIR="${D}" PREFIX="${EPREFIX}/usr" omake --force-dotomake install || die
- dodoc README.adoc CHANGELOG.adoc
-}
diff --git a/dev-ml/capnp-ocaml/files/core.patch b/dev-ml/capnp-ocaml/files/core.patch
deleted file mode 100644
index 72265c63887..00000000000
--- a/dev-ml/capnp-ocaml/files/core.patch
+++ /dev/null
@@ -1,366 +0,0 @@
-Index: capnp-ocaml-2.1.1/src/compiler/genCommon.ml
-===================================================================
---- capnp-ocaml-2.1.1.orig/src/compiler/genCommon.ml
-+++ capnp-ocaml-2.1.1/src/compiler/genCommon.ml
-@@ -77,7 +77,7 @@ let apply_indent ~(indent : string) (lin
- (* Mangle a name so that it doesn't collide with any of the names in the list. *)
- let mangle_ident (ident : string) (idents : string list) =
- let rec loop mangled =
-- if List.mem idents mangled then
-+ if List.mem idents mangled String.equal then
- loop (mangled ^ "_")
- else
- mangled
-@@ -516,7 +516,7 @@ let filter_interesting_imports ~context
- let make_disambiguated_type_name ~context ~(mode : Mode.t) ~(scope_mode : Mode.t)
- ~scope ~tp node =
- let node_id = PS.Node.id_get node in
-- if List.mem scope node_id then
-+ if List.mem scope node_id uint64_equal then
- (* The node of interest is a parent node of the node being generated.
- this is a case where an unambiguous type is emitted. *)
- make_unique_typename ~context ~mode node
-Index: capnp-ocaml-2.1.1/src/compiler/make_includes.ml
-===================================================================
---- capnp-ocaml-2.1.1.orig/src/compiler/make_includes.ml
-+++ capnp-ocaml-2.1.1/src/compiler/make_includes.ml
-@@ -2,29 +2,26 @@
- as a list of lines. This is used to perform an ocaml source inclusion,
- providing functor-like capability without the performance hit. *)
-
--open Core_kernel
--
--
- let make_inclusion oc variable_name filename =
-- Out_channel.output_string oc ("let " ^ variable_name ^ " = [\n");
-- In_channel.with_file filename ~f:(fun ic ->
-- In_channel.iter_lines ic ~f:(fun line ->
-+ Core_kernel.Out_channel.output_string oc ("let " ^ variable_name ^ " = [\n");
-+ Core_kernel.In_channel.with_file filename ~f:(fun ic ->
-+ Core_kernel.In_channel.iter_lines ic ~f:(fun line ->
- if String.trim line = "INCLUDE \"common-inc.ml\"" then
-- In_channel.with_file "../runtime/common-inc.ml" ~f:(fun ic ->
-- In_channel.iter_lines ic ~f:(fun line ->
-- Out_channel.output_string oc " \" ";
-- Out_channel.output_string oc (String.escaped line);
-- Out_channel.output_string oc "\";\n"))
-+ Core_kernel.In_channel.with_file "../runtime/common-inc.ml" ~f:(fun ic ->
-+ Core_kernel.In_channel.iter_lines ic ~f:(fun line ->
-+ Core_kernel.Out_channel.output_string oc " \" ";
-+ Core_kernel.Out_channel.output_string oc (String.escaped line);
-+ Core_kernel.Out_channel.output_string oc "\";\n"))
- else begin
-- Out_channel.output_string oc " \"";
-- Out_channel.output_string oc (String.escaped line);
-- Out_channel.output_string oc "\";\n"
-+ Core_kernel.Out_channel.output_string oc " \"";
-+ Core_kernel.Out_channel.output_string oc (String.escaped line);
-+ Core_kernel.Out_channel.output_string oc "\";\n"
- end));
-- Out_channel.output_string oc "]\n\n"
-+ Core_kernel.Out_channel.output_string oc "]\n\n"
-
-
- let () =
-- Out_channel.with_file "includes.ml" ~f:(fun oc ->
-+ Core_kernel.Out_channel.with_file "includes.ml" ~f:(fun oc ->
- make_inclusion oc "reader_api" "../runtime/reader-inc.ml";
- make_inclusion oc "builder_api" "../runtime/builder-inc.ml")
-
-Index: capnp-ocaml-2.1.1/src/compiler/topsort.ml
-===================================================================
---- capnp-ocaml-2.1.1.orig/src/compiler/topsort.ml
-+++ capnp-ocaml-2.1.1/src/compiler/topsort.ml
-@@ -83,7 +83,7 @@ let register_reference ~parentage_table
- else
- begin match Hashtbl.find edges parent_referee with
- | Some referrer_list ->
-- if List.mem referrer_list referrer then
-+ if List.mem referrer_list referrer uint64_equal then
- (* This reference is already present *)
- ()
- else
-@@ -199,7 +199,7 @@ let build_reference_graph
-
- let dump_reference_graph reference_graph =
- let () = Printf.printf "reference graph:\n" in
-- Hashtbl.iter reference_graph ~f:(fun ~key ~data ->
-+ Hashtbl.iteri reference_graph ~f:(fun ~key ~data ->
- let () = Printf.printf " key: %s\n" (Uint64.to_string key) in
- List.iter data
- ~f:(fun x -> Printf.printf " data: %s\n" (Uint64.to_string x)))
-Index: capnp-ocaml-2.1.1/src/runtime/farPointer.ml
-===================================================================
---- capnp-ocaml-2.1.1.orig/src/runtime/farPointer.ml
-+++ capnp-ocaml-2.1.1/src/runtime/farPointer.ml
-@@ -28,7 +28,6 @@
- ******************************************************************************)
-
-
--module Int64 = Core_kernel.Core_int64
- module Caml = Core_kernel.Caml
-
- type landing_pad_t =
-@@ -94,14 +93,14 @@ let decode (pointer64 : Int64.t) : t =
- Caml.Int64.to_int id64
- in
- let landing_pad =
-- let masked = Int64.bit_and pointer64 landing_pad_type_mask in
-+ let masked = Int64.logand pointer64 landing_pad_type_mask in
- if Int64.compare masked Int64.zero = 0 then
- NormalPointer
- else
- TaggedFarPointer
- in
- let offset =
-- let masked = Int64.bit_and pointer64 offset_mask in
-+ let masked = Int64.logand pointer64 offset_mask in
- let offset64 = Int64.shift_right_logical masked offset_shift in
- Caml.Int64.to_int offset64
- in {
-@@ -137,8 +136,8 @@ let encode (storage_descr : t) : Int64.t
- let offset64 = Int64.of_int storage_descr.offset in
- let segment64 = Int64.of_int storage_descr.segment_id in
- tag_val_far |>
-- Int64.bit_or (Int64.shift_left type64 landing_pad_type_shift) |>
-- Int64.bit_or (Int64.shift_left offset64 offset_shift) |>
-- Int64.bit_or (Int64.shift_left segment64 segment_shift)
-+ Int64.logor (Int64.shift_left type64 landing_pad_type_shift) |>
-+ Int64.logor (Int64.shift_left offset64 offset_shift) |>
-+ Int64.logor (Int64.shift_left segment64 segment_shift)
-
-
-Index: capnp-ocaml-2.1.1/src/runtime/fragmentBuffer.ml
-===================================================================
---- capnp-ocaml-2.1.1.orig/src/runtime/fragmentBuffer.ml
-+++ capnp-ocaml-2.1.1/src/runtime/fragmentBuffer.ml
-@@ -36,14 +36,14 @@ module Bytes = CamlBytes
-
- type t = {
- (** String fragments stored in FIFO order *)
-- fragments : string Dequeue.t;
-+ fragments : string Deque.t;
-
- (** Total byte count of the fragments *)
- mutable fragments_size : int;
- }
-
- let empty () = {
-- fragments = Dequeue.create ();
-+ fragments = Deque.create ();
- fragments_size = 0;
- }
-
-@@ -52,7 +52,7 @@ let add_fragment stream fragment =
- if len = 0 then
- ()
- else
-- let () = Dequeue.enqueue_back stream.fragments fragment in
-+ let () = Deque.enqueue_back stream.fragments fragment in
- stream.fragments_size <- stream.fragments_size + len
-
- let of_string s =
-@@ -71,7 +71,7 @@ let remove_exact stream size =
- let ofs = ref 0 in
- while !ofs < size do
- let bytes_remaining = size - !ofs in
-- let fragment = Dequeue.dequeue_front_exn stream.fragments in
-+ let fragment = Deque.dequeue_front_exn stream.fragments in
- let bytes_from_fragment = min bytes_remaining (String.length fragment) in
- Bytes.blit
- (Bytes.unsafe_of_string fragment) 0
-@@ -79,7 +79,7 @@ let remove_exact stream size =
- bytes_from_fragment;
- begin if bytes_from_fragment < String.length fragment then
- let remainder = Util.str_slice ~start:bytes_from_fragment fragment in
-- Dequeue.enqueue_front stream.fragments remainder
-+ Deque.enqueue_front stream.fragments remainder
- end;
- ofs := !ofs + bytes_from_fragment;
- done;
-@@ -93,7 +93,7 @@ let remove_at_least stream size =
- else begin
- let buffer = Buffer.create size in
- while Buffer.length buffer < size do
-- Buffer.add_string buffer (Dequeue.dequeue_front_exn stream.fragments)
-+ Buffer.add_string buffer (Deque.dequeue_front_exn stream.fragments)
- done;
- stream.fragments_size <- stream.fragments_size - (Buffer.length buffer);
- Some (Buffer.contents buffer)
-@@ -102,7 +102,7 @@ let remove_at_least stream size =
- let peek_exact stream size =
- match remove_exact stream size with
- | Some bytes ->
-- let () = Dequeue.enqueue_front stream.fragments bytes in
-+ let () = Deque.enqueue_front stream.fragments bytes in
- let () = stream.fragments_size <- stream.fragments_size + size in
- Some bytes
- | None ->
-@@ -113,7 +113,7 @@ let unremove stream bytes =
- if len = 0 then
- ()
- else
-- let () = Dequeue.enqueue_front stream.fragments bytes in
-+ let () = Deque.enqueue_front stream.fragments bytes in
- stream.fragments_size <- stream.fragments_size + len
-
-
-Index: capnp-ocaml-2.1.1/src/runtime/iO.ml
-===================================================================
---- capnp-ocaml-2.1.1.orig/src/runtime/iO.ml
-+++ capnp-ocaml-2.1.1/src/runtime/iO.ml
-@@ -49,7 +49,7 @@ module WriteContext = struct
- write : 'a -> buf:string -> pos:int -> len:int -> int;
-
- (** Data remaining to write to the descriptor *)
-- fragments : string Dequeue.t;
-+ fragments : string Deque.t;
-
- (** Total number of bytes stored in [fragments] *)
- mutable fragments_size : int;
-@@ -62,23 +62,23 @@ module WriteContext = struct
- fd;
- comp = compression;
- write;
-- fragments = Dequeue.create ();
-+ fragments = Deque.create ();
- fragments_size = 0;
- first_fragment_pos = 0;
- }
-
- let enqueue_message context message =
- Codecs.serialize_iter message ~compression:context.comp ~f:(fun buf ->
-- Dequeue.enqueue_back context.fragments buf;
-+ Deque.enqueue_back context.fragments buf;
- context.fragments_size <- context.fragments_size + (String.length buf))
-
- let bytes_remaining context = context.fragments_size - context.first_fragment_pos
-
- let write context =
-- if Dequeue.is_empty context.fragments then
-+ if Deque.is_empty context.fragments then
- 0
- else
-- let first_fragment = Dequeue.peek_front_exn context.fragments in
-+ let first_fragment = Deque.peek_front_exn context.fragments in
- let first_fragment_remaining =
- String.length first_fragment - context.first_fragment_pos
- in
-@@ -88,7 +88,7 @@ module WriteContext = struct
- in
- let () =
- if bytes_written = first_fragment_remaining then
-- let (_ : string) = Dequeue.dequeue_front_exn context.fragments in
-+ let (_ : string) = Deque.dequeue_front_exn context.fragments in
- let () = context.fragments_size <-
- context.fragments_size - (String.length first_fragment)
- in
-Index: capnp-ocaml-2.1.1/src/runtime/listPointer.ml
-===================================================================
---- capnp-ocaml-2.1.1.orig/src/runtime/listPointer.ml
-+++ capnp-ocaml-2.1.1/src/runtime/listPointer.ml
-@@ -1,5 +1,4 @@
-
--module Int64 = Core_kernel.Core_int64;;
- module Caml = Core_kernel.Caml
-
- type element_type_t =
-@@ -73,13 +72,13 @@ let decode (pointer64 : Int64.t) : t =
- }
- else
- let offset =
-- let masked = Int64.bit_and pointer64 offset_mask in
-+ let masked = Int64.logand pointer64 offset_mask in
- let offset64 = Int64.shift_right_logical masked offset_shift in
- let offset_int = Caml.Int64.to_int offset64 in
- Util.decode_signed 30 offset_int
- in
- let element_type =
-- let masked = Int64.bit_and pointer64 type_mask in
-+ let masked = Int64.logand pointer64 type_mask in
- let tp64 = Int64.shift_right_logical masked type_shift in
- match Caml.Int64.to_int tp64 with
- | 0 -> Void
-@@ -136,8 +135,8 @@ let encode (storage_descr : t) : Int64.t
- Int64.of_int type_id
- in
- tag_val_list |>
-- Int64.bit_or (Int64.shift_left offset64 offset_shift) |>
-- Int64.bit_or (Int64.shift_left type64 type_shift) |>
-- Int64.bit_or (Int64.shift_left (Int64.of_int storage_descr.num_elements) count_shift)
-+ Int64.logor (Int64.shift_left offset64 offset_shift) |>
-+ Int64.logor (Int64.shift_left type64 type_shift) |>
-+ Int64.logor (Int64.shift_left (Int64.of_int storage_descr.num_elements) count_shift)
-
-
-Index: capnp-ocaml-2.1.1/src/runtime/otherPointer.ml
-===================================================================
---- capnp-ocaml-2.1.1.orig/src/runtime/otherPointer.ml
-+++ capnp-ocaml-2.1.1/src/runtime/otherPointer.ml
-@@ -28,7 +28,6 @@
- ******************************************************************************)
-
-
--module Int64 = Core_kernel.Core_int64
- module Caml = Core_kernel.Caml
-
- type t =
-@@ -43,8 +42,8 @@ let index_shift = 32
- let index_mask = Int64.shift_left 0xffffffffL index_shift
-
- let decode (pointer64 : Int64.t) : t =
-- if Int64.compare (Int64.bit_and pointer64 b_mask) Int64.zero = 0 then
-- let shifted_index = Int64.bit_and pointer64 index_mask in
-+ if Int64.compare (Int64.logand pointer64 b_mask) Int64.zero = 0 then
-+ let shifted_index = Int64.logand pointer64 index_mask in
- let index64 = Int64.shift_right_logical shifted_index index_shift in
- let index32 = Caml.Int64.to_int32 index64 in
- Capability (Uint32.of_int32 index32)
-@@ -57,6 +56,6 @@ let encode (descr : t) : Int64.t =
- let index32 = Uint32.to_int32 index in
- let index64 = Int64.of_int32 index32 in
- let shifted_index = Int64.shift_left index64 index_shift in
-- Int64.bit_or shifted_index tag_val_other
-+ Int64.logor shifted_index tag_val_other
-
-
-Index: capnp-ocaml-2.1.1/src/runtime/structPointer.ml
-===================================================================
---- capnp-ocaml-2.1.1.orig/src/runtime/structPointer.ml
-+++ capnp-ocaml-2.1.1/src/runtime/structPointer.ml
-@@ -28,7 +28,6 @@
- ******************************************************************************)
-
-
--module Int64 = Core_kernel.Core_int64
- module Caml = Core_kernel.Caml
-
- type t = {
-@@ -79,13 +78,13 @@ let decode (pointer64 : Int64.t) : t =
- }
- else
- let offset =
-- let masked = Int64.bit_and pointer64 offset_mask in
-+ let masked = Int64.logand pointer64 offset_mask in
- let offset64 = Int64.shift_right_logical masked offset_shift in
- let offset_int = Caml.Int64.to_int offset64 in
- Util.decode_signed 30 offset_int
- in
- let data_size =
-- let masked = Int64.bit_and pointer64 data_size_mask in
-+ let masked = Int64.logand pointer64 data_size_mask in
- let size64 = Int64.shift_right_logical masked data_size_shift in
- Caml.Int64.to_int size64
- in {
-@@ -113,8 +112,8 @@ let encode (storage_descr : t) : Int64.t
- let data_size64 = Int64.of_int storage_descr.data_words in
- let ptr_size64 = Int64.of_int storage_descr.pointer_words in
- tag_val_struct |>
-- Int64.bit_or (Int64.shift_left offset64 offset_shift) |>
-- Int64.bit_or (Int64.shift_left data_size64 data_size_shift) |>
-- Int64.bit_or (Int64.shift_left ptr_size64 pointers_size_shift)
-+ Int64.logor (Int64.shift_left offset64 offset_shift) |>
-+ Int64.logor (Int64.shift_left data_size64 data_size_shift) |>
-+ Int64.logor (Int64.shift_left ptr_size64 pointers_size_shift)
-
-
diff --git a/dev-ml/capnp-ocaml/files/mi.patch b/dev-ml/capnp-ocaml/files/mi.patch
deleted file mode 100644
index f7e1625c6dd..00000000000
--- a/dev-ml/capnp-ocaml/files/mi.patch
+++ /dev/null
@@ -1,31 +0,0 @@
-Index: capnp-ocaml-2.1.1/src/compiler/OMakefile
-===================================================================
---- capnp-ocaml-2.1.1.orig/src/compiler/OMakefile
-+++ capnp-ocaml-2.1.1/src/compiler/OMakefile
-@@ -24,7 +24,8 @@ else
-
- includes.ml: make_includes.ml ../runtime/common-inc.ml \
- ../runtime/reader-inc.ml ../runtime/builder-inc.ml
-- ocaml $(TOPLEVEL_INCLUDE) make_includes.ml
-+ ocamlfind ocamlopt -o make_includes -package core_kernel -linkpkg make_includes.ml
-+ ./make_includes
-
-
- PROGRAM = capnpc-ocaml
-Index: capnp-ocaml-2.1.1/src/compiler/make_includes.ml
-===================================================================
---- capnp-ocaml-2.1.1.orig/src/compiler/make_includes.ml
-+++ capnp-ocaml-2.1.1/src/compiler/make_includes.ml
-@@ -1,12 +1,7 @@
--#!/usr/bin/env ocaml
--
- (* Generate ocaml code containing the content of a couple of files, formatted
- as a list of lines. This is used to perform an ocaml source inclusion,
- providing functor-like capability without the performance hit. *)
-
--#use "topfind"
--#require "core_kernel"
--
- open Core_kernel
-
-
^ permalink raw reply related [flat|nested] 2+ messages in thread
end of thread, other threads:[~2017-09-16 15:31 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-04-02 8:38 [gentoo-commits] repo/gentoo:master commit in: dev-ml/capnp-ocaml/, dev-ml/capnp-ocaml/files/ Alexis Ballier
-- strict thread matches above, loose matches on Subject: below --
2017-09-16 15:31 Alexis Ballier
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox