X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fwin32-os.c;h=9161889d3a23d7f80ecb2b690b026b599d1ece03;hb=14ee896f8d31180cee945d11a8ee677558b944aa;hp=02c6704b12ead308445d4285707e7b94e8d0e9b8;hpb=638197e01ef6d5365852758c072b2b102fdceaa6;p=sbcl.git diff --git a/src/runtime/win32-os.c b/src/runtime/win32-os.c index 02c6704..9161889 100644 --- a/src/runtime/win32-os.c +++ b/src/runtime/win32-os.c @@ -334,9 +334,9 @@ extern boolean internal_errors_enabled; * 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 @@ -425,22 +425,22 @@ void sigtrap_wrapper(void) /* 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. */