ApfelTeeSaft/reactos
1
0
Fork 0
mirror of https://github.com/ApfelTeeSaft/reactos.git synced 2026-09-02 12:23:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

display Delphi library exceptions in debug log

Browse Source 
svn path=/trunk/; revision=31912
This commit is contained in:
Christoph von Wittich
2008-01-21 11:02:14 +00:00
parent dcc20b8f3c
commit 0243a7af4e
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
reactos/dll/win32/kernel32/except/except.c
+6
View File
@@ -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);
}