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

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

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

revision 1.24 by spiralvoice, Mon Oct 10 17:35:28 2005 UTC revision 1.25 by spiralvoice, Sun Oct 16 20:42:55 2005 UTC
# Line 904  let request_range r = Line 904  let request_range r =
904      x, None, _ -> x, None      x, None, _ -> x, None
905    | x, Some y, Some z ->    | x, Some y, Some z ->
906        if y = z then (* some vendor bug *)        if y = z then (* some vendor bug *)
907          x -- Int64.one, Some y          Int64.pred x, Some y
908        else        else
909          x, Some (y ++ Int64.one)          x, Some (Int64.succ y)
910    | x, Some y, None ->    | x, Some y, None ->
911        x, Some (y ++ Int64.one)        x, Some (Int64.succ y)
912    

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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