Parent Directory | Revision Log | Patch
revision 1.15 by spiralvoice, Sun Aug 7 12:57:22 2005 UTC | revision 1.16 by spiralvoice, Sun Oct 16 20:42:54 2005 UTC | |
---|---|---|
# | Line 107 let set_file_size file size = | Line 107 let set_file_size file size = |
107 | lprintf "Setting SWARMER\n"; | lprintf "Setting SWARMER\n"; |
108 | let file_chunk_size = | let file_chunk_size = |
109 | max megabyte ( | max megabyte ( |
110 | size // (max (Int64.of_int 5) (size // (megabytes 5))) | size // (max 5L (size // (megabytes 5))) |
111 | ) | ) |
112 | in | in |
113 | file.file_file.impl_file_size <- size; | file.file_file.impl_file_size <- size; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |