From 0243a7af4e8ba2d2333076b989c86e0bf6972781 Mon Sep 17 00:00:00 2001
From: Christoph von Wittich <christoph_vw@reactos.org>
Date: Mon, 21 Jan 2008 11:02:14 +0000
Subject: [PATCH] display Delphi library exceptions in debug log

svn path=/trunk/; revision=31912
---
 reactos/dll/win32/kernel32/except/except.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/reactos/dll/win32/kernel32/except/except.c b/reactos/dll/win32/kernel32/except/except.c
index 52b0a86c5b5..c866ef2d252 100644
--- a/reactos/dll/win32/kernel32/except/except.c
+++ b/reactos/dll/win32/kernel32/except/except.c
@@ -391,6 +391,12 @@ RaiseException(IN DWORD dwExceptionCode,
         }
     }
 
+    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);
 }