Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-21 11:55:41 +08:00
Code Issues Actions 29 Packages Projects Releases Wiki Activity

[ocaml] fix compilation warning

Browse Source
This commit is contained in:
Gautier Hattenberger
2022-09-27 15:46:40 +02:00
committed by Freek van Tienen
parent 1407c5ff0f
commit 5535817cb5
6 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/ground_segment/tmtc/ivy2serial.ml
+1 -1
View File
@@ -93,7 +93,7 @@ let () =
let use_dl_message = fun payload ->
Debug.trace 'x' (Debug.xprint (Protocol.string_of_payload payload));
let (header, values) = Dl_Pprz.values_of_payload payload in
let msg = Dl_Pprz.message_of_id header.message_id in
let msg = Dl_Pprz.message_of_id header.PprzLink.message_id in
Dl_Pprz.message_send "ground_dl" msg.PprzLink.name values in
assert (PprzTransport.parse use_dl_message (Bytes.to_string b) = n)
sw/ground_segment/tmtc/ivy2udp.ml
+1 -1
View File
@@ -87,7 +87,7 @@ let () =
let use_dl_message = fun payload ->
Debug.trace 'x' (Debug.xprint (Protocol.string_of_payload payload));
let (header, values) = Dl_Pprz.values_of_payload payload in
let msg = Dl_Pprz.message_of_id header.message_id in
let msg = Dl_Pprz.message_of_id header.PprzLink.message_id in
Dl_Pprz.message_send "ground_dl" msg.PprzLink.name values in
assert (PprzTransport.parse use_dl_message (Bytes.to_string b) = n)
sw/ground_segment/tmtc/ivy_tcp_aircraft.ml
+1 -1
View File
@@ -53,7 +53,7 @@ let () =
let use_dl_message = fun payload ->
Debug.trace 'x' (Debug.xprint (Protocol.string_of_payload payload));
let (header, values) = Dl_Pprz.values_of_payload payload in
let msg = Dl_Pprz.message_of_id header.message_id in
let msg = Dl_Pprz.message_of_id header.PprzLink.message_id in
Dl_Pprz.message_send "ground_dl" msg.PprzLink.name values in
assert (PprzTransport.parse use_dl_message (Bytes.to_string b) = n)
sw/ground_segment/tmtc/ivy_tcp_controller.ml
+2 -2
View File
@@ -40,8 +40,8 @@ let () =
let use_tele_message = fun payload ->
Debug.trace 'x' (Debug.xprint (Protocol.string_of_payload payload));
let (header, values) = Tm_Pprz.values_of_payload payload in
let msg = Tm_Pprz.message_of_id header.message_id in
Tm_Pprz.message_send (string_of_int header.sender_id) msg.PprzLink.name values in
let msg = Tm_Pprz.message_of_id header.PprzLink.message_id in
Tm_Pprz.message_send (string_of_int header.PprzLink.sender_id) msg.PprzLink.name values in
ignore (PprzTransport.parse use_tele_message (Bytes.to_string b))
with
sw/ground_segment/tmtc/link.ml
+2 -2
View File
@@ -200,8 +200,8 @@ let use_tele_message = fun ?udp_peername ?raw_data_size payload ->
Debug.call 'l' (fun f -> fprintf f "pprz receiving: %s\n" (Debug.xprint buf));
try
let (header, values) = Tm_Pprz.values_of_payload payload in
let ac_id = header.sender_id in
let msg = Tm_Pprz.message_of_id header.message_id in
let ac_id = header.PprzLink.sender_id in
let msg = Tm_Pprz.message_of_id header.PprzLink.message_id in
send_message_over_ivy (string_of_int ac_id) msg.PprzLink.name values;
update_status ?udp_peername ac_id raw_data_size (msg.PprzLink.name = "PONG")
with
sw/logalizer/sd2log.ml
+2 -2
View File
@@ -143,8 +143,8 @@ let convert_file = fun ?(output_dir=None) file ->
fprintf stderr "Invalid source (%d), skipping message\n" log_msg.Pprzlog_transport.source
else
let (header, vs) = values_of_payload log_msg log_msg.Pprzlog_transport.pprz_data in
let msg_id = header.message_id in
let ac_id = header.sender_id in
let msg_id = header.PprzLink.message_id in
let ac_id = header.PprzLink.sender_id in
if log_msg.Pprzlog_transport.source = 0 && !single_ac_id < 0 then
single_ac_id := ac_id;