/[mldonkey]/mldonkey/src/utils/net/tcpClientSocket.ml
ViewVC logotype

Diff of /mldonkey/src/utils/net/tcpClientSocket.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by spiralvoice, Mon Aug 15 20:23:34 2005 UTC revision 1.7 by spiralvoice, Tue Sep 6 11:25:00 2005 UTC
# Line 742  let internal_buf = Buffer.create 17000 Line 742  let internal_buf = Buffer.create 17000
742  let simple_send_buf buf sock = ()  let simple_send_buf buf sock = ()
743    (*    (*
744    let s = Buffer.contents buf in    let s = Buffer.contents buf in
745    Buffer.clear buf;    Buffer.reset buf;
746    buf_int8 buf 228;    buf_int8 buf 228;
747    let len = String.length s in    let len = String.length s in
748    buf_int buf len;    buf_int buf len;
# Line 752  let simple_send_buf buf sock = () Line 752  let simple_send_buf buf sock = ()
752        
753  let value_send sock m = ()  let value_send sock m = ()
754    (*    (*
755    Buffer.clear internal_buf;    Buffer.reset internal_buf;
756    Buffer.add_string internal_buf (Marshal.to_string m []);    Buffer.add_string internal_buf (Marshal.to_string m []);
757    simple_send_buf internal_buf sock    simple_send_buf internal_buf sock
758  *)  *)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26