paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 04:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #37118

Browse Source 
git-svn-id: trunk@45444 -
This commit is contained in:
michael 2020-05-20 07:32:09 +00:00
parent 18fdc0675e
commit 74e65f77bc
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/classes/streams.inc
View File

@ -1243,7 +1243,10 @@ end;
Procedure THandleStream.SetSize(const NewSize: Int64);
begin
FileTruncate(FHandle,NewSize);
// We set the position afterwards, because the size can also be larger.
if not FileTruncate(FHandle,NewSize) then
Raise EInOutError.Create(SStreamSetSize);
Position:=NewSize;
end;