paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix from mattias gaertner

Browse Source
This commit is contained in:
michael 2002-09-20 09:28:11 +00:00
parent 14c9cbfdfc
commit e9044e3748
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/inc/writer.inc
View File

@ -226,15 +226,18 @@ end;
procedure TBinaryObjectWriter.Write(const Buffer; Count: LongInt); procedure TBinaryObjectWriter.Write(const Buffer; Count: LongInt);
var var
CopyNow: LongInt; CopyNow: LongInt;
SourceBuf: PChar;
begin begin
SourceBuf:=@Buffer;
while Count > 0 do while Count > 0 do
begin begin
CopyNow := Count; CopyNow := Count;
if CopyNow > FBufSize - FBufPos then if CopyNow > FBufSize - FBufPos then
CopyNow := FBufSize - FBufPos; CopyNow := FBufSize - FBufPos;
Move(Buffer, PChar(FBuffer)[FBufPos], CopyNow); Move(SourceBuf^, PChar(FBuffer)[FBufPos], CopyNow);
Dec(Count, CopyNow); Dec(Count, CopyNow);
Inc(FBufPos, CopyNow); Inc(FBufPos, CopyNow);
inc(SourceBuf, CopyNow);
if FBufPos = FBufSize then if FBufPos = FBufSize then
FlushBuffer; FlushBuffer;
end; end;
@ -823,7 +826,10 @@ end;}
{ {
$Log$ $Log$
Revision 1.6 2002-09-07 15:15:26 peter Revision 1.7 2002-09-20 09:28:11 michael
Fix from mattias gaertner
Revision 1.6 2002/09/07 15:15:26 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.5 2002/09/04 13:33:58 michael Revision 1.5 2002/09/04 13:33:58 michael