paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 09:38:12 +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
try
BinCompStream.Position:=0;
// fix the buffer size, when we got the new compiler out:
Driver:=TBinaryObjectWriter.Create(BinCompStream,100000{4096});
Driver:=TBinaryObjectWriter.Create(BinCompStream,4096);
try
Writer:=TWriter.Create(Driver);
try
@ -7198,6 +7197,9 @@ end.
{ =============================================================================
$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
MG: added DoSaveAll before CloseAll

9
lcl/include/graphicsobject.inc
View File

@ -21,18 +21,18 @@ begin
Changed;
end;
procedure TgraphicsObject.Changed;
procedure TGraphicsObject.Changed;
begin
Assert(False, Format('Trace:[TgraphicsObject.Changed] %s', [ClassName]));
if Assigned(FOnChange) then FOnChange(Self);
end;
procedure TgraphicsObject.Lock;
procedure TGraphicsObject.Lock;
begin
end;
procedure TgraphicsObject.UnLock;
procedure TGraphicsObject.UnLock;
begin
end;
@ -40,6 +40,9 @@ end;
{ =============================================================================
$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
MG: changed license to LGPL