[cwittich] 31912: display Delphi library exceptions in debug log

Author: cwittich
Date: Mon Jan 21 14:02:14 2008
New Revision: 31912

URL: http://svn.reactos.org/svn/reactos?rev=31912&view=rev
Log:
display Delphi library exceptions in debug log

Modified:
    trunk/reactos/dll/win32/kernel32/except/except.c

Modified: trunk/reactos/dll/win32/kernel32/except/except.c
URL:
http://svn.reactos.org/svn/reactos/trunk/reactos/dll/win32/kernel32/except/…
==============================================================================
--- trunk/reactos/dll/win32/kernel32/except/except.c (original)
+++ trunk/reactos/dll/win32/kernel32/except/except.c Mon Jan 21 14:02:14 2008
@@ -391,6 +391,12 @@
         }
     }
 
+    if (dwExceptionCode == 0xeedface)
+    {
+        DPRINT1("Delphi Exception at address: %p\n",
ExceptionRecord.ExceptionInformation[0]);
+        DPRINT1("Exception-Object: %p\n",
ExceptionRecord.ExceptionInformation[1]);
+    }
+
     /* Raise the exception */
     RtlRaiseException(&ExceptionRecord);
 }