--- 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: branches/fixes_2_4@17637 -

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;