* unwinding in Lisp.
*/
-EXCEPTION_DISPOSITION
+EXCEPTION_DISPOSITION
sigtrap_emulator(CONTEXT *context,
- struct lisp_exception_frame *exception_frame)
+ struct lisp_exception_frame *exception_frame)
{
if (*((char *)context->Eip + 1) == trap_ContextRestore) {
/* This is the cleanup for what is immediately below, and
/* set_seh_frame(handler.handler[0]); */
}
-EXCEPTION_DISPOSITION
+EXCEPTION_DISPOSITION
handle_exception(EXCEPTION_RECORD *exception_record,
- struct lisp_exception_frame *exception_frame,
- CONTEXT *context,
- void *dc) /* FIXME: What's dc again? */
+ struct lisp_exception_frame *exception_frame,
+ CONTEXT *context,
+ void *dc) /* FIXME: What's dc again? */
{
/* For EXCEPTION_ACCESS_VIOLATION only. */
void *fault_address = (void *)exception_record->ExceptionInformation[1];
- if (single_stepping &&
- exception_record->ExceptionCode == EXCEPTION_SINGLE_STEP) {
- /* We are doing a displaced instruction. At least function
- * end breakpoints uses this. */
- restore_breakpoint_from_single_step(context);
- return ExceptionContinueExecution;
- }
+ if (single_stepping &&
+ exception_record->ExceptionCode == EXCEPTION_SINGLE_STEP) {
+ /* We are doing a displaced instruction. At least function
+ * end breakpoints uses this. */
+ restore_breakpoint_from_single_step(context);
+ return ExceptionContinueExecution;
+ }
if (exception_record->ExceptionCode == EXCEPTION_BREAKPOINT) {
/* Pick off sigtrap case first. */