Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 642 → Rev 643

/programs/develop/fp/rtl/sysutils.pp
161,7 → 161,7
ReleaseFileRecord(Handle);
end;
 
function FileTruncate(Handle: THandle; Size: Int64): Boolean;
function FileTruncate(Handle: THandle; Size: Longint): Boolean;
begin
Result := False;
end;