mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2026-03-13 08:46:17 -04:00
Compare commits
3 commits
ec898e631f
...
bc9f361e56
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
bc9f361e56 | ||
|
|
42bfe9c8c6 | ||
|
|
ea5d9bbdf4 |
2 changed files with 10 additions and 3 deletions
|
|
@ -4,6 +4,7 @@
|
||||||
- fix leb128 slice bug
|
- fix leb128 slice bug
|
||||||
- fix leb128 `Int64.min_int` bug
|
- fix leb128 `Int64.min_int` bug
|
||||||
- add tests for leb128 library (#486)
|
- add tests for leb128 library (#486)
|
||||||
|
- fix size explosion in `t_pvec.ml` found in CI
|
||||||
- some breaking changes after the big bump to 4.08 as lower bound, thanks to @fardale for the cleanup
|
- some breaking changes after the big bump to 4.08 as lower bound, thanks to @fardale for the cleanup
|
||||||
* breaking: CCListLabel.compare and CCListLabel.equal takes the function on the elements as named arguments
|
* breaking: CCListLabel.compare and CCListLabel.equal takes the function on the elements as named arguments
|
||||||
* breaking: CCListLabel.init now takes the length as a named arguments to follow the Stdlib
|
* breaking: CCListLabel.init now takes the length as a named arguments to follow the Stdlib
|
||||||
|
|
|
||||||
|
|
@ -265,10 +265,16 @@ module Op = struct
|
||||||
( 1,
|
( 1,
|
||||||
list_small gen_x >|= fun l ->
|
list_small gen_x >|= fun l ->
|
||||||
Append l, size + List.length l );
|
Append l, size + List.length l );
|
||||||
|
];
|
||||||
|
(if size < 10_000 then
|
||||||
|
[
|
||||||
|
(* flat map can explode, only do it if list isn't too big *)
|
||||||
( 1,
|
( 1,
|
||||||
list_size (0 -- 5) gen_x >|= fun l ->
|
list_size (0 -- 5) gen_x >|= fun l ->
|
||||||
Flat_map l, size * (1 + List.length l) );
|
Flat_map l, size * (1 + List.length l) );
|
||||||
];
|
]
|
||||||
|
else
|
||||||
|
[]);
|
||||||
]
|
]
|
||||||
in
|
in
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue