From eb5bc7aff760e385844b7b7eff55cf7cc54a088d Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 20 Aug 1999 10:50:55 +0000
Subject: [PATCH] + Fixed memory leak

---
 rtl/objpas/objpas.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/objpas.pp b/rtl/objpas/objpas.pp
index ce68c97731..96611898f2 100644
--- a/rtl/objpas/objpas.pp
+++ b/rtl/objpas/objpas.pp
@@ -174,7 +174,8 @@ begin
     Procedure Getmem(Var p:pointer;Size:Longint);
     
     begin
-      SysGetmem(P,Size+SizeOf(Longint));
+      Inc(Size,SizeOf(Longint));
+      SysGetmem(P,Size);
       PLongint(P)^:=Size;
       Inc(P,SizeOf(Longint));
     end;
@@ -336,7 +337,10 @@ end.
 
 {
   $Log$
-  Revision 1.33  1999-08-19 19:52:26  michael
+  Revision 1.34  1999-08-20 10:50:55  michael
+  + Fixed memory leak
+
+  Revision 1.33  1999/08/19 19:52:26  michael
   * Fixed freemem bug; reported by Sebastian Guenther
 
   Revision 1.32  1999/08/15 21:28:57  michael