2 * Win32 exception functions
4 * Copyright (c) 1996 Onno Hovers, (onno@stack.urc.tue.nl)
5 * Copyright (c) 1999 Alexandre Julliard
8 * What really happens behind the scenes of those new
9 * __try{...}__except(..){....} and
10 * __try{...}__finally{...}
11 * statements is simply not documented by Microsoft. There could be different
13 * One reason could be that they try to hide the fact that exception
14 * handling in Win32 looks almost the same as in OS/2 2.x.
15 * Another reason could be that Microsoft does not want others to write
16 * binary compatible implementations of the Win32 API (like us).
18 * Whatever the reason, THIS SUCKS!! Ensuring portabilty or future
19 * compatability may be valid reasons to keep some things undocumented.
20 * But exception handling is so basic to Win32 that it should be
32 #include "wine/exception.h"
37 #include "stackframe.h"
39 #include "debugtools.h"
41 DEFAULT_DEBUG_CHANNEL(seh
);
44 /*******************************************************************
45 * RaiseException (KERNEL32.418)
47 void WINAPI
RaiseException( DWORD code
, DWORD flags
, DWORD nbargs
, const LPDWORD args
)
49 EXCEPTION_RECORD record
;
51 /* Compose an exception record */
53 record
.ExceptionCode
= code
;
54 record
.ExceptionFlags
= flags
& EH_NONCONTINUABLE
;
55 record
.ExceptionRecord
= NULL
;
56 record
.ExceptionAddress
= RaiseException
;
59 if (nbargs
> EXCEPTION_MAXIMUM_PARAMETERS
) nbargs
= EXCEPTION_MAXIMUM_PARAMETERS
;
60 record
.NumberParameters
= nbargs
;
61 memcpy( record
.ExceptionInformation
, args
, nbargs
* sizeof(*args
) );
63 else record
.NumberParameters
= 0;
65 RtlRaiseException( &record
);
69 /*******************************************************************
70 * UnhandledExceptionFilter (KERNEL32.537)
72 DWORD WINAPI
UnhandledExceptionFilter(PEXCEPTION_POINTERS epointers
)
74 struct exception_event_request
*req
= get_req_buffer();
75 PDB
* pdb
= PROCESS_Current();
80 DWORD ret
= EXCEPTION_EXECUTE_HANDLER
;
82 /* send a last chance event to the debugger */
83 req
->record
= *epointers
->ExceptionRecord
;
85 req
->context
= *epointers
->ContextRecord
;
86 if (!server_call_noerr( REQ_EXCEPTION_EVENT
)) *epointers
->ContextRecord
= req
->context
;
90 return EXCEPTION_CONTINUE_EXECUTION
;
91 case DBG_EXCEPTION_NOT_HANDLED
:
92 TerminateProcess( GetCurrentProcess(), epointers
->ExceptionRecord
->ExceptionCode
);
93 break; /* not reached */
94 case 0: /* no debugger is present */
97 FIXME("Unsupported yet debug continue value %d (please report)\n", req
->status
);
102 DWORD ret
= pdb
->top_filter( epointers
);
103 if (ret
!= EXCEPTION_CONTINUE_SEARCH
) return ret
;
106 /* FIXME: Should check the current error mode */
108 if (!RegOpenKeyA(HKEY_LOCAL_MACHINE
,
109 "Software\\Microsoft\\Windows NT\\CurrentVersion\\AeDebug",
114 count
= sizeof(format
);
115 if (RegQueryValueExA(hDbgConf
, "Debugger", 0, &type
, format
, &count
))
118 count
= sizeof(bAuto
);
119 if (RegQueryValueExA(hDbgConf
, "Auto", 0, &type
, (char*)&bAuto
, &count
))
122 RegCloseKey(hDbgConf
);
125 strcpy(format
, "debugger/winedbg %ld %ld");
128 if (!bAuto
&& Callout
.MessageBoxA
) {
129 sprintf( buffer
, "Unhandled exception 0x%08lx at address 0x%08lx.\n"
130 "Do you wish to debug it ?",
131 epointers
->ExceptionRecord
->ExceptionCode
,
132 (DWORD
)epointers
->ExceptionRecord
->ExceptionAddress
);
133 if (Callout
.MessageBoxA( 0, buffer
, "Error", MB_YESNO
| MB_ICONHAND
) == IDNO
) {
134 TRACE("Killing process\n");
135 return EXCEPTION_EXECUTE_HANDLER
;
141 PROCESS_INFORMATION info
;
142 STARTUPINFOA startup
;
144 TRACE("Starting debugger (fmt=%s)\n", format
);
145 hEvent
= ConvertToGlobalHandle(CreateEventA(NULL
, FALSE
, FALSE
, NULL
));
146 sprintf(buffer
, format
, GetCurrentProcessId(), hEvent
);
147 memset(&startup
, 0, sizeof(startup
));
148 startup
.cb
= sizeof(startup
);
149 startup
.dwFlags
= STARTF_USESHOWWINDOW
;
150 startup
.wShowWindow
= SW_SHOWNORMAL
;
151 if (CreateProcessA(NULL
, buffer
, NULL
, NULL
,
152 TRUE
, 0, NULL
, NULL
, &startup
, &info
)) {
153 WaitForSingleObject(hEvent
, INFINITE
);
154 ret
= EXCEPTION_CONTINUE_SEARCH
;
156 ERR("Couldn't start debugger (%s) (%ld)\n", buffer
, GetLastError());
160 ERR("No standard debugger defined in the registry => no debugging session\n");
167 /***********************************************************************
168 * SetUnhandledExceptionFilter (KERNEL32.516)
170 LPTOP_LEVEL_EXCEPTION_FILTER WINAPI
SetUnhandledExceptionFilter(
171 LPTOP_LEVEL_EXCEPTION_FILTER filter
)
173 PDB
*pdb
= PROCESS_Current();
174 LPTOP_LEVEL_EXCEPTION_FILTER old
= pdb
->top_filter
;
175 pdb
->top_filter
= filter
;
180 /**************************************************************************
181 * FatalAppExit16 (KERNEL.137)
183 void WINAPI
FatalAppExit16( UINT16 action
, LPCSTR str
)
186 FatalAppExitA( action
, str
);
190 /**************************************************************************
191 * FatalAppExitA (KERNEL32.108)
193 void WINAPI
FatalAppExitA( UINT action
, LPCSTR str
)
196 Callout
.MessageBoxA( 0, str
, NULL
, MB_SYSTEMMODAL
| MB_OK
);
201 /**************************************************************************
202 * FatalAppExitW (KERNEL32.109)
204 void WINAPI
FatalAppExitW( UINT action
, LPCWSTR str
)
207 Callout
.MessageBoxW( 0, str
, NULL
, MB_SYSTEMMODAL
| MB_OK
);
212 /*************************************************************
213 * WINE_exception_handler
215 * Exception handler for exception blocks declared in Wine code.
217 DWORD
WINE_exception_handler( EXCEPTION_RECORD
*record
, EXCEPTION_FRAME
*frame
,
218 CONTEXT
*context
, LPVOID pdispatcher
)
220 __WINE_FRAME
*wine_frame
= (__WINE_FRAME
*)frame
;
222 if (record
->ExceptionFlags
& (EH_UNWINDING
| EH_EXIT_UNWIND
| EH_NESTED_CALL
))
223 return ExceptionContinueSearch
;
224 if (wine_frame
->u
.filter
)
226 EXCEPTION_POINTERS ptrs
;
227 ptrs
.ExceptionRecord
= record
;
228 ptrs
.ContextRecord
= context
;
229 switch(wine_frame
->u
.filter( &ptrs
))
231 case EXCEPTION_CONTINUE_SEARCH
:
232 return ExceptionContinueSearch
;
233 case EXCEPTION_CONTINUE_EXECUTION
:
234 return ExceptionContinueExecution
;
235 case EXCEPTION_EXECUTE_HANDLER
:
238 MESSAGE( "Invalid return value from exception filter\n" );
242 /* hack to make GetExceptionCode() work in handler */
243 wine_frame
->ExceptionCode
= record
->ExceptionCode
;
244 wine_frame
->ExceptionRecord
= wine_frame
;
246 RtlUnwind( frame
, 0, record
, 0 );
247 EXC_pop_frame( frame
);
248 longjmp( wine_frame
->jmp
, 1 );
252 /*************************************************************
253 * WINE_finally_handler
255 * Exception handler for try/finally blocks declared in Wine code.
257 DWORD
WINE_finally_handler( EXCEPTION_RECORD
*record
, EXCEPTION_FRAME
*frame
,
258 CONTEXT
*context
, LPVOID pdispatcher
)
260 __WINE_FRAME
*wine_frame
= (__WINE_FRAME
*)frame
;
262 if (!(record
->ExceptionFlags
& (EH_UNWINDING
| EH_EXIT_UNWIND
)))
263 return ExceptionContinueSearch
;
264 wine_frame
->u
.finally_func( FALSE
);
265 return ExceptionContinueSearch
;