From 5ab50a2316aa123846e45bb913ab7577e4a50a64 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 10 Oct 2004 14:26:05 +0000
Subject: [PATCH] * Patch from joost van der sluis not to realloc buffers

---
 fcl/db/bufdataset.inc | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/fcl/db/bufdataset.inc b/fcl/db/bufdataset.inc
index af7cb3b107..49e442edbb 100644
--- a/fcl/db/bufdataset.inc
+++ b/fcl/db/bufdataset.inc
@@ -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;