[ocaml] increase maximum Ivy message length from 1000 to 10000

should fix #1344
paparazzi · Sep 22, 2015 · 2635a90 · 2635a90
1 parent 5659d82
commit 2635a90
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sw/lib/ocaml/pprz.ml b/sw/lib/ocaml/pprz.ml
@@ -738,7 +738,7 @@ module MessagesOfXml(Class:CLASS_Xml) = struct
         | Some x -> sprintf "%f " x in
     let msg = sprintf "%s%s %s" timestamp_string sender s in
     let n = String.length msg in
-    if n > 1000 then (** FIXME: to prevent Ivy bug on long message *)
+    if n > 10000 then (** prevent really long Ivy message, should not happen with normal usage *)
       fprintf stderr "Discarding long ivy message %s (%d bytes)\n%!" msg_name n
     else
       match link_id with