From 29d1fd5cf32f467b2c8d0acbaf759586c9e9fad1 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sat, 16 Oct 2021 21:40:45 -0400
Subject: [PATCH] fix bug in veci32

---
 src/util/VecI32.ml    | 2 +-
 src/util/Vec_float.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/util/VecI32.ml b/src/util/VecI32.ml
index 899613e5..c5795747 100644
--- a/src/util/VecI32.ml
+++ b/src/util/VecI32.ml
@@ -23,7 +23,7 @@ let copy self =
   else (
     (* copy bigarray *)
     let data = mk_arr_ (size self) in
-    A.blit self.data data;
+    A.blit (A.sub self.data 0 (size self)) data;
     {sz=self.sz; data}
   )
 
diff --git a/src/util/Vec_float.ml b/src/util/Vec_float.ml
index 8c2d632c..1c8fd885 100644
--- a/src/util/Vec_float.ml
+++ b/src/util/Vec_float.ml
@@ -23,7 +23,7 @@ let copy self =
   else (
     (* copy bigarray *)
     let data = mk_arr_ (size self) in
-    A.blit self.data data;
+    A.blit (A.sub self.data 0 (size self)) data;
     {sz=self.sz; data}
   )