paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 13:38:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from joost van der sluis not to realloc buffers

Browse Source
This commit is contained in:
michael 2004-10-10 14:26:05 +00:00
parent 06c3cc3bd0
commit 5ab50a2316
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/db/bufdataset.inc
View File

@ -41,8 +41,7 @@ end;
function TBufDataset.AllocRecordBuffer: PChar; function TBufDataset.AllocRecordBuffer: PChar;
begin begin
result := AllocRecord; result := AllocRecord(sizeof(TBufBookmark));
ReAllocMem(result,RecordSize+sizeof(TBufBookmark));
end; end;
procedure TBufDataset.FreeRecordBuffer(var Buffer: PChar); procedure TBufDataset.FreeRecordBuffer(var Buffer: PChar);
@ -193,7 +192,7 @@ begin
ReAllocMem(FBBuffers,FBBuffercount*SizeOf(PChar)); ReAllocMem(FBBuffers,FBBuffercount*SizeOf(PChar));
repeat repeat
FBBuffers[FBRecordCount+i] := AllocRecord; FBBuffers[FBRecordCount+i] := AllocRecord(0);
b := (getnextrecord(FBBuffers[FBRecordCount+i])<>grOk); b := (getnextrecord(FBBuffers[FBRecordCount+i])<>grOk);
inc(i); inc(i);
until (i = FPacketRecords) or b; until (i = FPacketRecords) or b;