From 33b9ddff18cd758f17111dfffc4e03853f813ee5 Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Tue, 7 May 2024 15:56:36 +0200 Subject: [PATCH] remove calls to mirage-profile in vnetif_backends.ml --- test/vnetif_backends.ml | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/test/vnetif_backends.ml b/test/vnetif_backends.ml index 4c4f8cb1..db7e0574 100644 --- a/test/vnetif_backends.ml +++ b/test/vnetif_backends.ml @@ -101,10 +101,8 @@ module Uniform_packet_loss : Backend = struct let write t id ~size fill = if Random.float 1.0 < drop_p then - begin - MProf.Trace.label "pkt_drop"; - Lwt.return (Ok ()) (* drop packet *) - end else + Lwt.return (Ok ()) (* drop packet *) + else X.write t id ~size fill (* pass to real write *) let create () = @@ -125,10 +123,8 @@ module Uniform_no_payload_packet_loss : Backend = struct let write t id ~size fill = if size <= no_payload_len && Random.float 1.0 < drop_p then - begin - MProf.Trace.label "pkt_drop"; - Lwt.return (Ok ()) (* drop packet *) - end else + Lwt.return (Ok ()) (* drop packet *) + else X.write t id ~size fill (* pass to real write *) let create () = @@ -216,7 +212,6 @@ module On_off_switch = struct if not !send_packets then begin Logs.info (fun f -> f "write dropping 1 packet"); - MProf.Trace.label "pkt_drop"; Lwt.return (Ok ()) (* drop packet *) end else X.write t id ~size fill (* pass to real write *)