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

versatile exception

Browse Source
This commit is contained in:
Antoine Drouin
2006-05-28 16:55:44 +00:00
parent 381cd9bb5a
commit 7da8331023
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/pprz.ml
+4 -1
View File
@@ -235,7 +235,10 @@ let byte = fun x -> Char.chr (x land 0xff)
(** Returns the size of outputed data *)
let rec sprint_value = fun buf i _type v ->
match _type, v with
Scalar ("int8"|"uint8"), Int x -> buf.[i] <- Char.chr x; sizeof _type
Scalar ("int8"|"uint8"), Int x ->
if x < 0 || x > 0xff then
failwith (sprintf "Value too large to fit in a (u)int8: %d" x);
buf.[i] <- Char.chr x; sizeof _type
| Scalar "float", Float f -> sprint_float buf i f; sizeof _type
| Scalar "int32", Int32 x -> sprint_int32 buf i x; sizeof _type
| Scalar "int16", Int x -> sprint_int16 buf i x; sizeof _type