Tracing (failure on exit)

Source commit: 1b61b6b2826082ace8521cb8833ec1a824006d98

source/forms/Animations.cpp

@@ -64,3 +64,7 @@ __fastcall TAnimationsModule::TAnimationsModule(TComponent * Owner)
   AnimationImages = DebugNotNull(dynamic_cast<TPngImageList *>(FindComponent(AnimationImages->Name)));
 }
 //---------------------------------------------------------------------------
+__fastcall TAnimationsModule::~TAnimationsModule()
+{
+}
+//---------------------------------------------------------------------------

source/forms/Animations.h

@@ -14,6 +14,7 @@ __published:
 
 public:
   __fastcall TAnimationsModule(TComponent * Owner);
+  virtual __fastcall ~TAnimationsModule();
 };
 //---------------------------------------------------------------------------
 #endif

source/forms/Animations96.cpp

@@ -15,3 +15,7 @@ __fastcall TAnimations96Module::TAnimations96Module(TComponent * Owner)
 {
 }
 //---------------------------------------------------------------------------
+__fastcall TAnimations96Module::~TAnimations96Module()
+{
+}
+//---------------------------------------------------------------------------

source/forms/Animations96.h

@@ -14,6 +14,7 @@ __published:
 
 public:
   __fastcall TAnimations96Module(TComponent * Owner);
+  virtual __fastcall ~TAnimations96Module();
 };
 //---------------------------------------------------------------------------
 #endif

source/packages/png/PngImageList.pas

@@ -245,9 +245,13 @@ begin
       if Pointers[I].OldPtr <> nil then begin
         Patch := TMethodPatch.Create;
         if PatchPtr(Pointers[I].OldPtr, Pointers[I].NewPtr, Pointers[I].Name, Patch) then
+        begin
           MethodPatches.Add(Patch)
-        else
+        end
+          else
+        begin
           Patch.Free;
+        end;
       end;
     end;
   end;
@@ -256,7 +260,9 @@ end;
 procedure RevertPatchedMethods;
 begin
   if ImageListCount = 0 then
+  begin
     FreeAndNil(MethodPatches);
+  end;
 end;
 
 { TMethodPatch }
@@ -270,7 +276,9 @@ end;
 destructor TMethodPatch.Destroy;
 begin
   if OldPointer <> nil then
+  begin
     PatchBack;
+  end;
   inherited Destroy;
 end;