[ros-diffs] [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/e...
==============================================================================
--- 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);
 }