Intravision/reactos
1
0
Fork 0
mirror of https://github.com/reactos/reactos.git synced 2025-07-31 13:21:39 +00:00
Code Issues Projects Releases Packages 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

6
reactos/dll/win32/kernel32/except/except.c
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 */ /* Raise the exception */
RtlRaiseException(&ExceptionRecord); RtlRaiseException(&ExceptionRecord);
} }