Subversion Repositories checksum-tools

Compare Revisions

Regard whitespace Rev 16 → Rev 17

/trunk/Windows/CRC32.pas
201,9 → 201,13
CRCValue := $FFFFFFFF;
if Length(FromName) >= MAX_PATH then
begin
try
MyASSIGNFile (FromFile2,FromName);
MyRESET (FromFile2);
error := GetLastError;
except
error := 1;
end;
end
else
begin