Subj : Re: Copy File
To   : Nick Andre
From : Alexander Grotewohl
Date : Sun Sep 04 2022 17:14:27

On 03 Sep 2022, Nick Andre said the following...
 
 NA> procedure SAFECOPY (fromFile, toFile : string);

this only copies 64 bytes at a time (should be something closer to the
filesystem block size, or if it's unknown the best guess is 4096). i.e: this function likely reads the disk 64 times per 4096 bytes instead of 1x

with a 5GB file this went from a 1min 48second copy to a 8 second one (and significantly less cpu usage)

it sets {$I-} for the entire rest of the program (missing matching {$I+})

any point in the function 'exit' is called causes a memory leak (dispose isn't called on bufferPtr before the exit)

--- Mystic BBS v1.12 A47 2021/12/25 (Windows/32)
 * Origin: cold fusion - cfbbs.net - grand rapids, mi (1:120/616)

.