let get_int31 buf off =
          (if (off < 0) || (off > ((Bigarray.Array1.dim buf) - 4))
           then raise (Invalid_argument "index out of bounds")
           else ();
           unsafe_get_int31 buf off)