paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 21:59:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed checking in TLRSObjectReader.Destroy if FStream is assigned

Browse Source 
git-svn-id: trunk@5822 -
This commit is contained in:
mattias 2004-08-19 07:13:07 +00:00
parent f46b2eb66c
commit f0d075ab77
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/lresources.pp
View File

@ -2212,7 +2212,8 @@ end;
destructor TLRSObjectReader.Destroy;
begin
{ Seek back the amount of bytes that we didn't process until now: }
FStream.Seek(Integer(FBufPos) - Integer(FBufEnd), soFromCurrent);
if Assigned(FStream) then
FStream.Seek(Integer(FBufPos) - Integer(FBufEnd), soFromCurrent);
if Assigned(FBuffer) then
FreeMem(FBuffer, FBufSize);