paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 20:59:17 +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; destructor TLRSObjectReader.Destroy;
begin begin
{ Seek back the amount of bytes that we didn't process until now: } { 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 if Assigned(FBuffer) then
FreeMem(FBuffer, FBufSize); FreeMem(FBuffer, FBufSize);