[Mldonkey-commits] Changes to mldonkey/src/networks/fileTP/fileTPFTP.ml

[mldonkey-commits]

Index: mldonkey/src/networks/fileTP/fileTPFTP.ml
diff -u mldonkey/src/networks/fileTP/fileTPFTP.ml:1.8 
mldonkey/src/networks/fileTP/fileTPFTP.ml:1.9
--- mldonkey/src/networks/fileTP/fileTPFTP.ml:1.8       Wed Jul 27 22:16:02 2005
+++ mldonkey/src/networks/fileTP/fileTPFTP.ml   Sun Oct 16 20:42:54 2005
@@ -210,7 +210,7 @@
                     [a0;a1;a2;a3;p0;p1] ->
                       let ip = Ip.of_string
                           (Printf.sprintf "%d.%d.%d.%d" a0 a1 a2 a3) in
-                      let port = p0 * 256 + p1 in
+                      let port = (p0 lsl 8) lor p1 in
                       set_rtimeout sock 3600.;
                       download_on_port c d (x,y) ip port
                   | _ ->