paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 09:02:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@17271 -
This commit is contained in:
pierre 2011-04-08 11:40:42 +00:00
parent 66258fb0b8
commit c22c58b3a5
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/gdbint/src/gdbint.pp
View File

@ -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;