paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 13:50:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed freeing TReader.Driver

Browse Source 
git-svn-id: trunk@5788 -
This commit is contained in:
mattias 2004-08-15 15:05:46 +00:00
parent a6d5670154
commit 32db79433f
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/forms.pp
View File

@ -1542,7 +1542,8 @@ initialization
{$IFDEF UseFCLDataModule} {$IFDEF UseFCLDataModule}
RegisterInitComponentHandler(TComponent,@InitResourceComponent); RegisterInitComponentHandler(TComponent,@InitResourceComponent);
{$ENDIF} {$ENDIF}
// keep this comment, there is parser a bug in fpc 1.0.x
// keep this comment line, there is parser a bug in fpc 1.0.x
finalization finalization
//DebugLn('forms.pp - finalization section'); //DebugLn('forms.pp - finalization section');

4
lcl/lresources.pp
View File

@ -178,7 +178,7 @@ var
LRSObjectWriterClass: TLRSObjectWriterClass; LRSObjectWriterClass: TLRSObjectWriterClass;
function InitLazResourceComponent(Instance: TComponent; function InitLazResourceComponent(Instance: TComponent;
RootAncestor: TClass): Boolean; RootAncestor: TClass): Boolean;
function CreateLRSReader(s: TStream; var DestroyDriver: boolean): TReader; function CreateLRSReader(s: TStream; var DestroyDriver: boolean): TReader;
function CreateLRSWriter(s: TStream; var DestroyDriver: boolean): TWriter; function CreateLRSWriter(s: TStream; var DestroyDriver: boolean): TWriter;
@ -1642,7 +1642,7 @@ begin
{$IFDEF NewLRSStreamer} {$IFDEF NewLRSStreamer}
if Result.Driver.ClassType=LRSObjectReaderClass then exit; if Result.Driver.ClassType=LRSObjectReaderClass then exit;
// hack to set a write protected variable. // hack to set a write protected variable.
DestroyDriver:=true; // DestroyDriver:=true; TReader will free it
Driver:=LRSObjectReaderClass.Create(s,4096); Driver:=LRSObjectReaderClass.Create(s,4096);
p:=@Result.Driver; p:=@Result.Driver;
Result.Driver.Free; Result.Driver.Free;