Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |