From 9be202fd383f51f791cfccb365e95ffa9562baae Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 24 Jan 2000 23:56:10 +0000
Subject: [PATCH]   * fixed reallocmem which didn't work anymore and thus broke
 a lot     of objfpc/delphi code

---
 rtl/inc/heap.inc | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/rtl/inc/heap.inc b/rtl/inc/heap.inc
index 6797581c2c..63a4abd96f 100644
--- a/rtl/inc/heap.inc
+++ b/rtl/inc/heap.inc
@@ -647,7 +647,8 @@ begin
             MemoryManager.FreeMem(p);
             p:=p2;
           end
-        else doMove := true;
+        else
+          doMove := true;
         internSysReAllocMem:=p;
         exit;
       end;
@@ -685,8 +686,10 @@ begin
 end;
 
 function SysReAllocMem(var p:pointer;size : longint):pointer;
-const doMove: boolean = true;
+var
+  doMove: boolean;
 begin
+  doMove:=true;
   SysReAllocMem := internSysReallocMem(p,size,doMove);
 end;
 
@@ -800,7 +803,11 @@ end;
 
 {
   $Log$
-  Revision 1.30  2000-01-20 12:35:35  jonas
+  Revision 1.31  2000-01-24 23:56:10  peter
+    * fixed reallocmem which didn't work anymore and thus broke a lot
+      of objfpc/delphi code
+
+  Revision 1.30  2000/01/20 12:35:35  jonas
     * fixed problem with reallocmem and heaptrc
 
   Revision 1.29  2000/01/07 16:41:34  daniel