Commit ee37c5b6 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Comment.

parent 12cc9195
...@@ -73,6 +73,7 @@ let fill a start nb v = ...@@ -73,6 +73,7 @@ let fill a start nb v =
done done
(* Re-implementation of [blit]. *) (* Re-implementation of [blit]. *)
(* TEMPORARY incorrect: should work also when [a1] and [a2] are the same array! *)
let blit a1 start1 a2 start2 nb = let blit a1 start1 a2 start2 nb =
assert (not (nb < 0 || start1 < 0 || start1 > length a1 - nb assert (not (nb < 0 || start1 < 0 || start1 > length a1 - nb
|| start2 < 0 || start2 > length a2 - nb)); || start2 < 0 || start2 > length a2 - nb));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment