check for non-negative length

This commit is contained in:
carm 2015-02-22 19:58:46 -05:00
parent d66a5bc86f
commit ed126fa6bb

View file

@ -284,7 +284,7 @@ struct
let s_len = Bytes.length s in \ let s_len = Bytes.length s in \
let b = ByteBuffer.create ~bounded:true i in \ let b = ByteBuffer.create ~bounded:true i in \
ByteBuffer.blit_from b s 0 s_len; \ ByteBuffer.blit_from b s 0 s_len; \
ByteBuffer.length b <= i) ByteBuffer.length b >= 0 && ByteBuffer.length b <= i)
*) *)
(* resize [b] so that inner capacity is [cap] *) (* resize [b] so that inner capacity is [cap] *)