--- Merging r17271 into '.':

U    packages/gdbint/src/gdbint.pp

# revisions: 17271
------------------------------------------------------------------------
r17271 | pierre | 2011-04-08 13:40:42 +0200 (Fri, 08 Apr 2011) | 1 line
Changed paths:
   M /trunk/packages/gdbint/src/gdbint.pp

 * Avoid double freeing of frames with zero size as it creates a problem with heaptrc unit
------------------------------------------------------------------------


git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_2_4@17637 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 1 deletions

diff --git a/packages/gdbint/src/gdbint.pp b/packages/gdbint/src/gdbint.pp
index 36c985401b..ab2bc6911d 100644
--- a/packages/gdbint/src/gdbint.pp
+++ b/packages/gdbint/src/gdbint.pp
@@ -2773,7 +2773,11 @@ var
 begin
   for i:=0 to frame_size-1 do
    dispose(frames[i],done);
-  freemem(frames,sizeof(pointer)*Frame_size);
+  if assigned(frames) then
+    begin
+      freemem(frames,sizeof(pointer)*Frame_size);
+      frames:=nil;
+    end;
   frame_count:=0;
   frame_size:=0;
 end;