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

formatting

Browse source
This commit is contained in:
carm 2015-02-19 23:10:19 -05:00
parent 8d814d4feb
commit a1ca8ff831
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/data/CCRingBuffer.ml
View file

@ -203,13 +203,13 @@ struct
let copy b = let copy b =
{ b with buf=Array.copy b.buf; } { b with buf=Array.copy b.buf; }
(*$T (*$T
let b = ByteBuffer.create 3 in \ let b = ByteBuffer.create 3 in \
let s = Bytes.of_string "hello world" in \ let s = Bytes.of_string "hello world" in \
ByteBuffer.blit_from b s 0 (Bytes.length s); \ ByteBuffer.blit_from b s 0 (Bytes.length s); \
let b' = ByteBuffer.copy b in \ let b' = ByteBuffer.copy b in \
try ByteBuffer.iteri b (fun i c -> if ByteBuffer.get_front b' i <> c then raise Exit); true with Exit -> false try ByteBuffer.iteri b (fun i c -> if ByteBuffer.get_front b' i <> c then raise Exit); true with Exit -> false
*) *)
let capacity b = Array.length b.buf let capacity b = Array.length b.buf