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

MG: undid the TBinaryObjectWriter Buffersize

Browse Source 
git-svn-id: trunk@2790 -
This commit is contained in:
lazarus 2002-08-18 08:54:10 +00:00
parent 7678466970
commit cae0bfd75c
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -2766,8 +2766,7 @@ begin
repeat repeat
try try
BinCompStream.Position:=0; BinCompStream.Position:=0;
// fix the buffer size, when we got the new compiler out: Driver:=TBinaryObjectWriter.Create(BinCompStream,4096);
Driver:=TBinaryObjectWriter.Create(BinCompStream,100000{4096});
try try
Writer:=TWriter.Create(Driver); Writer:=TWriter.Create(Driver);
try try
@ -7198,6 +7197,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.395 2002/09/30 14:01:04 lazarus
MG: undid the TBinaryObjectWriter Buffersize
Revision 1.394 2002/09/30 09:26:40 lazarus Revision 1.394 2002/09/30 09:26:40 lazarus
MG: added DoSaveAll before CloseAll MG: added DoSaveAll before CloseAll

9
lcl/include/graphicsobject.inc
View File

@ -21,18 +21,18 @@ begin
Changed; Changed;
end; end;
procedure TgraphicsObject.Changed; procedure TGraphicsObject.Changed;
begin begin
Assert(False, Format('Trace:[TgraphicsObject.Changed] %s', [ClassName])); Assert(False, Format('Trace:[TgraphicsObject.Changed] %s', [ClassName]));
if Assigned(FOnChange) then FOnChange(Self); if Assigned(FOnChange) then FOnChange(Self);
end; end;
procedure TgraphicsObject.Lock; procedure TGraphicsObject.Lock;
begin begin
end; end;
procedure TgraphicsObject.UnLock; procedure TGraphicsObject.UnLock;
begin begin
end; end;
@ -40,6 +40,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.3 2002/09/30 14:01:06 lazarus
MG: undid the TBinaryObjectWriter Buffersize
Revision 1.2 2002/05/10 06:05:52 lazarus Revision 1.2 2002/05/10 06:05:52 lazarus
MG: changed license to LGPL MG: changed license to LGPL