From 3ba64391d119615daf16edb63dc27edc38e3f05d Mon Sep 17 00:00:00 2001 From: marco Date: Thu, 2 Jun 2011 17:06:23 +0000 Subject: --- 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 --- packages/gdbint/src/gdbint.pp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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; -- cgit v1.2.1