Browse Source

* fixed frames memory leak when freeing an exception with psabieh

git-svn-id: branches/debug_eh@40368 -
Jonas Maebe 6 years ago
parent
commit
8153aa1d00
1 changed files with 2 additions and 0 deletions
  1. 2 0
      rtl/inc/psabieh.inc

+ 2 - 0
rtl/inc/psabieh.inc

@@ -746,6 +746,8 @@ procedure FPC_psabieh_ExceptionCleanUp(reason: FPC_Unwind_Reason_Code; exc:PFPC_
     ExceptWrapper:=FPC_psabieh_GetExceptionWrapper(exc);
     ExceptWrapper:=FPC_psabieh_GetExceptionWrapper(exc);
     ExceptWrapper^.FObject.free;
     ExceptWrapper^.FObject.free;
     ExceptWrapper^.FObject:=nil;
     ExceptWrapper^.FObject:=nil;
+    if assigned(ExceptWrapper^.frames) then
+      freemem(ExceptWrapper^.frames);
     Dispose(ExceptWrapper);
     Dispose(ExceptWrapper);
   end;
   end;