[paparazzi-commits] [4759] add debug

[Pascal Brisset]

Revision: 4759
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4759
Author:   hecto
Date:     2010-03-29 15:48:52 +0000 (Mon, 29 Mar 2010)
Log Message:
-----------
 add debug

Modified Paths:
--------------
    paparazzi3/trunk/sw/ground_segment/tmtc/link.ml

Modified: paparazzi3/trunk/sw/ground_segment/tmtc/link.ml
===================================================================
--- paparazzi3/trunk/sw/ground_segment/tmtc/link.ml     2010-03-29 15:48:25 UTC 
(rev 4758)
+++ paparazzi3/trunk/sw/ground_segment/tmtc/link.ml     2010-03-29 15:48:52 UTC 
(rev 4759)
@@ -296,6 +296,7 @@
   assert (n = len)
 
 let send = fun ac_id device payload _priority ->
+       Debug.call 's' (fun f -> fprintf f "%d\n" ac_id);
   if live_aircraft ac_id then
     match udp_peername ac_id with
       Some (Unix.ADDR_INET (peername, _port)) ->
@@ -306,7 +307,7 @@
            let o = Unix.out_channel_of_descr device.fd in
            let buf = Pprz.Transport.packet payload in
            Printf.fprintf o "%s" buf; flush o;
-           Debug.call 'l' (fun f -> fprintf f "mm sending: %s\n" (Debug.xprint 
buf));
+           Debug.call 's' (fun f -> fprintf f "mm sending: %s\n" (Debug.xprint 
buf));
        | XBee ->
            XB.send ~ac_id device payload