LastInternalException counter

Source commit: 67dab5dfd530e28530afce52831d473bb9c52a69

source/core/Exceptions.cpp

@@ -163,6 +163,9 @@ static bool __fastcall ExceptionMessage(Exception * E, bool Count,
   if (Count && (CounterName != NULL) && (Configuration->Usage != NULL))
   {
     Configuration->Usage->Inc(CounterName);
+    UnicodeString ExceptionDebugInfo =
+      E->ClassName() + L":" + GetExceptionDebugInfo();
+    Configuration->Usage->Set(L"LastInternalException", ExceptionDebugInfo);
   }
 
   return Result;

source/core/Interface.h

@@ -34,6 +34,7 @@ TOptions * __fastcall GetGlobalOptions();
 void __fastcall ShowExtendedException(Exception * E);
 bool __fastcall AppendExceptionStackTraceAndForget(TStrings *& MoreMessages);
 void __fastcall IgnoreException(const std::type_info & ExceptionType);
+UnicodeString __fastcall GetExceptionDebugInfo();
 
 UnicodeString __fastcall GetCompanyRegistryKey();
 UnicodeString __fastcall GetRegistryKey();

source/windows/WinInterface.cpp

@@ -571,6 +571,38 @@ static std::unique_ptr<TCriticalSection> StackTraceCriticalSection(new TCritical
 typedef std::map<DWORD, TStrings *> TStackTraceMap;
 static TStackTraceMap StackTraceMap;
 //---------------------------------------------------------------------------
+UnicodeString __fastcall GetExceptionDebugInfo()
+{
+  UnicodeString Result;
+  TGuard Guard(StackTraceCriticalSection.get());
+  TStackTraceMap::iterator Iterator = StackTraceMap.find(GetCurrentThreadId());
+  if (Iterator != StackTraceMap.end())
+  {
+    TStrings * StackTrace = Iterator->second;
+    for (int Index = 0; Index < StackTrace->Count; Index++)
+    {
+      UnicodeString Frame = StackTrace->Strings[Index];
+      int P = Frame.Pos(L")");
+      if (DebugAlwaysTrue(P > 0))
+      {
+        UnicodeString Symbol = Frame.SubString(P + 1, Frame.Length() - P).Trim();
+
+        if ((Symbol != L"KERNELBASE.dll.RaiseException") &&
+            (Symbol != L"Jclhookexcept::JclAddExceptNotifier") &&
+            (Symbol != L"_ReThrowException") &&
+            (Symbol != L"____ExceptionHandler") &&
+            (Symbol != L"__ExceptionHandler") &&
+            (Symbol != L"___doGlobalUnwind") &&
+            (Symbol != L"_ThrowExceptionLDTC"))
+        {
+          AddToList(Result, Symbol, L";");
+        }
+      }
+    }
+  }
+  return Result;
+}
+//---------------------------------------------------------------------------
 bool __fastcall AppendExceptionStackTraceAndForget(TStrings *& MoreMessages)
 {
   bool Result = false;