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 portability or future
19 * compatibility may be valid reasons to keep some things undocumented.
20 * But exception handling is so basic to Win32 that it should be
29 #include "wine/exception.h"
32 #include "stackframe.h"
34 #include "debugtools.h"
36 DEFAULT_DEBUG_CHANNEL(seh
);
38 static PTOP_LEVEL_EXCEPTION_FILTER top_filter
;
41 /*******************************************************************
42 * RaiseException (KERNEL32.418)
44 void WINAPI
RaiseException( DWORD code
, DWORD flags
, DWORD nbargs
, const LPDWORD args
)
46 EXCEPTION_RECORD record
;
48 /* Compose an exception record */
50 record
.ExceptionCode
= code
;
51 record
.ExceptionFlags
= flags
& EH_NONCONTINUABLE
;
52 record
.ExceptionRecord
= NULL
;
53 record
.ExceptionAddress
= RaiseException
;
56 if (nbargs
> EXCEPTION_MAXIMUM_PARAMETERS
) nbargs
= EXCEPTION_MAXIMUM_PARAMETERS
;
57 record
.NumberParameters
= nbargs
;
58 memcpy( record
.ExceptionInformation
, args
, nbargs
* sizeof(*args
) );
60 else record
.NumberParameters
= 0;
62 RtlRaiseException( &record
);
66 /*******************************************************************
67 * format_exception_msg
69 static void format_exception_msg( const EXCEPTION_POINTERS
*ptr
, char *buffer
)
71 const EXCEPTION_RECORD
*rec
= ptr
->ExceptionRecord
;
73 switch(rec
->ExceptionCode
)
75 case EXCEPTION_INT_DIVIDE_BY_ZERO
:
76 sprintf( buffer
, "Unhandled division by zero" );
78 case EXCEPTION_INT_OVERFLOW
:
79 sprintf( buffer
, "Unhandled overflow" );
81 case EXCEPTION_ARRAY_BOUNDS_EXCEEDED
:
82 sprintf( buffer
, "Unhandled array bounds" );
84 case EXCEPTION_ILLEGAL_INSTRUCTION
:
85 sprintf( buffer
, "Unhandled illegal instruction" );
87 case EXCEPTION_STACK_OVERFLOW
:
88 sprintf( buffer
, "Unhandled stack overflow" );
90 case EXCEPTION_PRIV_INSTRUCTION
:
91 sprintf( buffer
, "Unhandled priviledged instruction" );
93 case EXCEPTION_ACCESS_VIOLATION
:
94 if (rec
->NumberParameters
== 2)
95 sprintf( buffer
, "Unhandled page fault on %s access to 0x%08lx",
96 rec
->ExceptionInformation
[0] ? "write" : "read",
97 rec
->ExceptionInformation
[1]);
99 sprintf( buffer
, "Unhandled page fault");
101 case EXCEPTION_DATATYPE_MISALIGNMENT
:
102 sprintf( buffer
, "Unhandled alignment" );
105 sprintf( buffer
, "Unhandled ^C");
107 case EXCEPTION_CRITICAL_SECTION_WAIT
:
108 sprintf( buffer
, "Critical section %08lx wait failed",
109 rec
->ExceptionInformation
[0]);
111 case EXCEPTION_WINE_STUB
:
112 sprintf( buffer
, "Unimplemented function %s.%s called",
113 (char *)rec
->ExceptionInformation
[0], (char *)rec
->ExceptionInformation
[1] );
115 case EXCEPTION_VM86_INTx
:
116 sprintf( buffer
, "Unhandled interrupt %02lx in vm86 mode",
117 rec
->ExceptionInformation
[0]);
119 case EXCEPTION_VM86_STI
:
120 sprintf( buffer
, "Unhandled sti in vm86 mode");
122 case EXCEPTION_VM86_PICRETURN
:
123 sprintf( buffer
, "Unhandled PIC return in vm86 mode");
126 sprintf( buffer
, "Unhandled exception 0x%08lx", rec
->ExceptionCode
);
130 if (ptr
->ContextRecord
->SegCs
!= __get_cs())
131 sprintf( buffer
+strlen(buffer
), " at address 0x%04lx:0x%08lx.\n",
132 ptr
->ContextRecord
->SegCs
, (DWORD
)ptr
->ExceptionRecord
->ExceptionAddress
);
135 sprintf( buffer
+strlen(buffer
), " at address 0x%08lx.\n",
136 (DWORD
)ptr
->ExceptionRecord
->ExceptionAddress
);
137 strcat( buffer
, "Do you wish to debug it ?" );
141 /**********************************************************************
144 * Send an EXCEPTION_DEBUG_EVENT event to the debugger.
146 static int send_debug_event( EXCEPTION_RECORD
*rec
, int first_chance
, CONTEXT
*context
)
153 struct queue_exception_event_request
*req
= server_alloc_req( sizeof(*req
),
154 sizeof(*rec
)+sizeof(*context
) );
155 CONTEXT
*context_ptr
= server_data_ptr(req
);
156 EXCEPTION_RECORD
*rec_ptr
= (EXCEPTION_RECORD
*)(context_ptr
+ 1);
157 req
->first
= first_chance
;
159 *context_ptr
= *context
;
160 if (!server_call_noerr( REQ_QUEUE_EXCEPTION_EVENT
)) handle
= req
->handle
;
163 if (!handle
) return 0; /* no debugger present or other error */
165 /* No need to wait on the handle since the process gets suspended
166 * once the event is passed to the debugger, so when we get back
167 * here the event has been continued already.
171 struct get_exception_status_request
*req
= server_alloc_req( sizeof(*req
), sizeof(*context
) );
172 req
->handle
= handle
;
173 if (!server_call_noerr( REQ_GET_EXCEPTION_STATUS
))
174 *context
= *(CONTEXT
*)server_data_ptr(req
);
183 /*******************************************************************
184 * UnhandledExceptionFilter (KERNEL32.537)
186 DWORD WINAPI
UnhandledExceptionFilter(PEXCEPTION_POINTERS epointers
)
192 DWORD ret
= EXCEPTION_EXECUTE_HANDLER
;
195 /* send a last chance event to the debugger */
196 status
= send_debug_event( epointers
->ExceptionRecord
, FALSE
, epointers
->ContextRecord
);
200 return EXCEPTION_CONTINUE_EXECUTION
;
201 case DBG_EXCEPTION_NOT_HANDLED
:
202 TerminateProcess( GetCurrentProcess(), epointers
->ExceptionRecord
->ExceptionCode
);
203 break; /* not reached */
204 case 0: /* no debugger is present */
207 FIXME("Unsupported yet debug continue value %d (please report)\n", status
);
212 DWORD ret
= top_filter( epointers
);
213 if (ret
!= EXCEPTION_CONTINUE_SEARCH
) return ret
;
216 /* FIXME: Should check the current error mode */
218 if (!RegOpenKeyA(HKEY_LOCAL_MACHINE
,
219 "Software\\Microsoft\\Windows NT\\CurrentVersion\\AeDebug",
224 count
= sizeof(format
);
225 if (RegQueryValueExA(hDbgConf
, "Debugger", 0, &type
, format
, &count
))
228 count
= sizeof(bAuto
);
229 if (RegQueryValueExA(hDbgConf
, "Auto", 0, &type
, (char*)&bAuto
, &count
))
231 else if (type
== REG_SZ
)
234 count
= sizeof(autostr
);
235 if (!RegQueryValueExA(hDbgConf
, "Auto", 0, &type
, autostr
, &count
))
236 bAuto
= atoi(autostr
);
238 RegCloseKey(hDbgConf
);
241 strcpy(format
, "debugger/winedbg %ld %ld");
244 if (!bAuto
&& Callout
.MessageBoxA
) {
245 format_exception_msg( epointers
, buffer
);
246 if (Callout
.MessageBoxA( 0, buffer
, "Error", MB_YESNO
| MB_ICONHAND
) == IDNO
) {
247 TRACE("Killing process\n");
248 return EXCEPTION_EXECUTE_HANDLER
;
254 PROCESS_INFORMATION info
;
255 STARTUPINFOA startup
;
256 OBJECT_ATTRIBUTES attr
;
258 attr
.Length
= sizeof(attr
);
259 attr
.RootDirectory
= 0;
260 attr
.Attributes
= OBJ_INHERIT
;
261 attr
.ObjectName
= NULL
;
262 attr
.SecurityDescriptor
= NULL
;
263 attr
.SecurityQualityOfService
= NULL
;
265 TRACE("Starting debugger (fmt=%s)\n", format
);
266 NtCreateEvent( &hEvent
, EVENT_ALL_ACCESS
, &attr
, FALSE
, FALSE
);
267 sprintf(buffer
, format
, GetCurrentProcessId(), hEvent
);
268 memset(&startup
, 0, sizeof(startup
));
269 startup
.cb
= sizeof(startup
);
270 startup
.dwFlags
= STARTF_USESHOWWINDOW
;
271 startup
.wShowWindow
= SW_SHOWNORMAL
;
272 if (CreateProcessA(NULL
, buffer
, NULL
, NULL
,
273 TRUE
, 0, NULL
, NULL
, &startup
, &info
)) {
274 WaitForSingleObject(hEvent
, INFINITE
);
275 ret
= EXCEPTION_CONTINUE_SEARCH
;
277 ERR("Couldn't start debugger (%s) (%ld)\n"
278 "Read the Wine Developers Guide on how to set up winedbg or another debugger\n",
279 buffer
, GetLastError());
283 ERR("No standard debugger defined in the registry => no debugging session\n");
290 /***********************************************************************
291 * SetUnhandledExceptionFilter (KERNEL32.516)
293 LPTOP_LEVEL_EXCEPTION_FILTER WINAPI
SetUnhandledExceptionFilter(
294 LPTOP_LEVEL_EXCEPTION_FILTER filter
)
296 LPTOP_LEVEL_EXCEPTION_FILTER old
= top_filter
;
302 /**************************************************************************
303 * FatalAppExitA (KERNEL32.108)
305 void WINAPI
FatalAppExitA( UINT action
, LPCSTR str
)
308 if (Callout
.MessageBoxA
)
309 Callout
.MessageBoxA( 0, str
, NULL
, MB_SYSTEMMODAL
| MB_OK
);
311 ERR( "%s\n", debugstr_a(str
) );
316 /**************************************************************************
317 * FatalAppExitW (KERNEL32.109)
319 void WINAPI
FatalAppExitW( UINT action
, LPCWSTR str
)
322 if (Callout
.MessageBoxW
)
323 Callout
.MessageBoxW( 0, str
, NULL
, MB_SYSTEMMODAL
| MB_OK
);
325 ERR( "%s\n", debugstr_w(str
) );