From b1cfe655e79ea98ec059901b5f3866ad78a27478 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 5 May 2004 13:00:43 +0000
Subject: [PATCH]   * fixed reallocmem (bug noted by Vincent Snijders)

---
 rtl/inc/cmem.pp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/inc/cmem.pp b/rtl/inc/cmem.pp
index 095b11f66c..3e26aab258 100644
--- a/rtl/inc/cmem.pp
+++ b/rtl/inc/cmem.pp
@@ -88,7 +88,7 @@ begin
     begin
       if p<>nil then
         begin
-          dec(size,sizeof(ptrint));
+          dec(p,sizeof(ptrint));
           free(p);
           p:=nil;
         end;
@@ -97,7 +97,7 @@ begin
     begin
       inc(size,sizeof(ptrint));
       if p=nil then
-        p:=calloc(Size,1)
+        p:=malloc(Size)
       else
         begin
           dec(p,sizeof(ptrint));
@@ -165,7 +165,10 @@ end.
 
 {
  $Log$
- Revision 1.4  2004-03-23 22:35:20  peter
+ Revision 1.5  2004-05-05 13:00:43  jonas
+   * fixed reallocmem (bug noted by Vincent Snijders)
+
+ Revision 1.4  2004/03/23 22:35:20  peter
    * dec ptr before free in reallocmem
 
  Revision 1.3  2004/03/17 12:50:53  michael