paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 12:00: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;
begin
result := AllocRecord;
ReAllocMem(result,RecordSize+sizeof(TBufBookmark));
result := AllocRecord(sizeof(TBufBookmark));
end;
procedure TBufDataset.FreeRecordBuffer(var Buffer: PChar);
@ -193,7 +192,7 @@ begin
ReAllocMem(FBBuffers,FBBuffercount*SizeOf(PChar));
repeat
FBBuffers[FBRecordCount+i] := AllocRecord;
FBBuffers[FBRecordCount+i] := AllocRecord(0);
b := (getnextrecord(FBBuffers[FBRecordCount+i])<>grOk);
inc(i);
until (i = FPacketRecords) or b;