mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2026-03-13 08:46:17 -04:00
Compare commits
1 commit
bc9f361e56
...
ec898e631f
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
ec898e631f |
2 changed files with 3 additions and 10 deletions
|
|
@ -4,7 +4,6 @@
|
||||||
- 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,16 +265,10 @@ 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