mirror of
https://github.com/reactos/reactos.git
synced 2024-09-30 14:37:45 +00:00
display Delphi library exceptions in debug log
svn path=/trunk/; revision=31912
This commit is contained in:
parent
dcc20b8f3c
commit
0243a7af4e
|
@ -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);
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue