simon/iter
1
0
Fork 0
mirror of https://github.com/c-cube/iter.git synced 2025-12-05 19:00:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

cleanup

Browse source
This commit is contained in:
Simon Cruanes 2021-11-19 10:08:00 -05:00
parent b077feaafb
commit 9020863244
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
5 changed files with 6 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
qtest/Makefile
View file

@ -1,6 +1,6 @@
QTEST_PREAMBLE='open Iter_shims_;; ' QTEST_PREAMBLE='open Iter_shims_;; '
DONTTEST=../src/iterLabels.ml ../src/mkflags.ml ../src/mkshims.ml ../src/bigarray/mkshims.ml DONTTEST=../src/iterLabels.ml ../src/mkshims.ml ../src/bigarray/mkshims.ml
QTESTABLE=$(filter-out $(DONTTEST), \ QTESTABLE=$(filter-out $(DONTTEST), \
$(wildcard ../src/*.ml) \ $(wildcard ../src/*.ml) \
$(wildcard ../src/*.mli) \ $(wildcard ../src/*.mli) \

1
src/Iter.mli
View file

@ -849,3 +849,4 @@ module IO : sig
string -> Bytes.t t -> unit string -> Bytes.t t -> unit
(** @since 0.5.4 *) (** @since 0.5.4 *)
end end

2
src/bench/bench_persistent.ml
View file

@ -1,3 +1,5 @@
[@@@ocaml.warning "-5"]
module MList = struct module MList = struct
type 'a t = { type 'a t = {
content : 'a array; (* elements of the node *) content : 'a array; (* elements of the node *)

2
src/bench/benchs.ml
View file

@ -2,6 +2,8 @@
module S = Iter module S = Iter
open Iter.Infix open Iter.Infix
[@@@ocaml.warning "-5"]
let small = [10;20;50;100;500] let small = [10;20;50;100;500]
let medium = small @ [1000;10_000;100_000] let medium = small @ [1000;10_000;100_000]
let big = medium @ [500_000; 1_000_000; 2_000_000] let big = medium @ [500_000; 1_000_000; 2_000_000]

14
src/mkflags.ml
View file

@ -1,14 +0,0 @@
let () =
let major, minor =
Scanf.sscanf Sys.ocaml_version "%u.%u"
(fun major minor -> major, minor)
in
let after_4_3 = (major, minor) >= (4, 3) in
let flags_file = open_out "flambda.flags" in
if after_4_3 then (
output_string flags_file "(-O3 -unbox-closures -unbox-closures-factor 20 -color always)\n";
) else (
output_string flags_file "()\n";
);
close_out flags_file