Parent Directory | Revision Log | Patch
revision 1.15 by spiralvoice, Sun Oct 16 20:42:54 2005 UTC | revision 1.16 by spiralvoice, Sun Dec 4 15:22:43 2005 UTC | |
---|---|---|
# | Line 280 let rec client_parse_header c gconn sock | Line 280 let rec client_parse_header c gconn sock |
280 | end; | end; |
281 | ||
282 | let b = TcpBufferedSocket.buf sock in | let b = TcpBufferedSocket.buf sock in |
283 | let to_read = (*min (end_pos -- !counter_pos) *) | let to_read = min (end_pos -- !counter_pos) |
284 | (Int64.of_int b.len) in | (Int64.of_int b.len) in |
285 | ||
286 | if !verbose then lprintf_nl () "Reading: end_pos %Ld counter_pos %Ld len %d = to_read %Ld" | if !verbose then lprintf_nl () "Reading: end_pos %Ld counter_pos %Ld len %d = to_read %Ld" |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |