handle UDP responses asynchronously rather than waiting for a Netif response

avsm · avsm · commit b07730c3f3bc · 2012-04-19T12:25:27.000+01:00
diff --git a/lib/dns/server.ml b/lib/dns/server.ml
@@ -68,7 +68,7 @@ let no_memo mgr src dst bits =
     let q = List.hd d.questions in
     let r = get_answer q.q_name q.q_type d.id in
     let p = marshal r in
-    Net.Datagram.UDPv4.send mgr ~src dst p
+    let _ = Net.Datagram.UDPv4.send mgr ~src dst p in return ()
   )
 
 let leaky mgr src dst bits =
@@ -78,12 +78,12 @@ let leaky mgr src dst bits =
     let q = List.hd d.questions in
     let r = get_answer_memo q.q_name q.q_type d.id in
     let p = marshal r in
-
     Net.Datagram.UDPv4.send mgr ~src dst p
   )
    
 let listen ?(mode=`none) ~zonebuf mgr src =
   Dnsserver.load_zone [] zonebuf;
+  Gc.compact ();
   Net.Datagram.UDPv4.(recv mgr src
                         (match mode with
                           |`none -> no_memo mgr src
diff --git a/lib/net/direct/udp.ml b/lib/net/direct/udp.ml
@@ -29,7 +29,8 @@ let input t ~src ~dst pkt =
       checksum:16; data:(length-8)*8:bitstring } ->
   if Hashtbl.mem t.listeners dest_port then begin
     let fn = Hashtbl.find t.listeners dest_port in
-    fn ~src ~dst ~source_port data
+    let _ = fn ~src ~dst ~source_port data in
+    return ()
   end else
     return ()
 
