[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] mldonkey distrib/ChangeLog src/networks/fileTP/...
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] mldonkey distrib/ChangeLog src/networks/fileTP/... |
Date: |
Tue, 08 Jan 2008 21:31:07 +0000 |
CVSROOT: /sources/mldonkey
Module name: mldonkey
Changes by: spiralvoice <spiralvoice> 08/01/08 21:31:07
Modified files:
distrib : ChangeLog
src/networks/fileTP: fileTPInteractive.ml
Log message:
patch #6367
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1344&r2=1.1345
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/networks/fileTP/fileTPInteractive.ml?cvsroot=mldonkey&r1=1.60&r2=1.61
Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1344
retrieving revision 1.1345
diff -u -b -r1.1344 -r1.1345
--- distrib/ChangeLog 7 Jan 2008 20:01:29 -0000 1.1344
+++ distrib/ChangeLog 8 Jan 2008 21:31:07 -0000 1.1345
@@ -14,6 +14,9 @@
ChangeLog
=========
+2008/01/08
+6367: FileTP: Fix bug when starting downloads > 4GB via dllink
+
2008/01/07
6364: MinGW: Fix broken share priorities (thx to vbnuy6)
6365: HTML: Use option max_name_len in upstats for unhashed files
Index: src/networks/fileTP/fileTPInteractive.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/networks/fileTP/fileTPInteractive.ml,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -b -r1.60 -r1.61
--- src/networks/fileTP/fileTPInteractive.ml 3 Aug 2007 22:12:59 -0000
1.60
+++ src/networks/fileTP/fileTPInteractive.ml 8 Jan 2008 21:31:07 -0000
1.61
@@ -276,7 +276,7 @@
ignore (Str.search_forward r text 0);
let a = Str.group_beginning 1 in
let b = Str.group_end 1 in
- int_of_string (String.sub text a (b - a))
+ Int64.of_string (String.sub text a (b - a))
let get_regexp_string text r =
ignore (Str.search_forward r text 0);
@@ -297,7 +297,7 @@
if (String2.check_prefix real_url "http://") then (
let length_regexp = "Content-Length: \\(.*\\)" in
try let length = get_regexp_int url (Str.regexp length_regexp) in
- if (length > 0) then begin
+ if (length > 0L) then begin
download_file real_url "" user group; "started FileTP download",
true
end
else "can not parse Content-Length", false
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Mldonkey-commits] mldonkey distrib/ChangeLog src/networks/fileTP/...,
mldonkey-commits <=