Просмотр исходного кода

* fixed frames memory leak when freeing an exception with psabieh

git-svn-id: branches/debug_eh@40368 -
Jonas Maebe 6 лет назад
Родитель
Сommit
8153aa1d00
1 измененных файлов с 2 добавлено и 0 удалено
  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^.FObject.free;
     ExceptWrapper^.FObject:=nil;
+    if assigned(ExceptWrapper^.frames) then
+      freemem(ExceptWrapper^.frames);
     Dispose(ExceptWrapper);
   end;