Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-01 12:57:27 +08:00
Code Issues Actions 25 Packages Projects Releases Wiki Activity

Warning fixed (reported by OCaml 3.10)

Browse Source
This commit is contained in:
Pascal Brisset
2007-09-08 09:02:31 +00:00
parent c0f05573a1
commit acec03e129
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/pprz.ml
+2 -2
View File
@@ -249,11 +249,11 @@ let rec sprint_value = fun buf i _type v ->
| ArrayType t, Array values -> | ArrayType t, Array values ->
(** Put the size first, then the values *) (** Put the size first, then the values *)
let n = Array.length values in let n = Array.length values in
sprint_value buf i (Scalar "uint8") (Int n); ignore (sprint_value buf i (Scalar "uint8") (Int n));
let type_of_elt = Scalar t in let type_of_elt = Scalar t in
let s = sizeof type_of_elt in let s = sizeof type_of_elt in
for j = 0 to n - 1 do for j = 0 to n - 1 do
sprint_value buf (i+1+j*s) type_of_elt values.(j) ignore (sprint_value buf (i+1+j*s) type_of_elt values.(j))
done; done;
1 + n * s 1 + n * s
| (Scalar x|ArrayType x), _ -> failwith (sprintf "Pprz.sprint_value (%s)" x) | (Scalar x|ArrayType x), _ -> failwith (sprintf "Pprz.sprint_value (%s)" x)