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
29 #include "wine/exception.h"
30 #include "selectors.h"
34 #include "stackframe.h"
36 #include "debugtools.h"
38 DEFAULT_DEBUG_CHANNEL(seh
);
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 /*******************************************************************
142 * UnhandledExceptionFilter (KERNEL32.537)
144 DWORD WINAPI
UnhandledExceptionFilter(PEXCEPTION_POINTERS epointers
)
146 PDB
* pdb
= PROCESS_Current();
151 DWORD ret
= EXCEPTION_EXECUTE_HANDLER
;
154 /* send a last chance event to the debugger */
157 struct exception_event_request
*req
= server_alloc_req( sizeof(*req
),
158 sizeof(EXCEPTION_RECORD
)+sizeof(CONTEXT
) );
159 CONTEXT
*context_ptr
= server_data_ptr(req
);
160 EXCEPTION_RECORD
*rec_ptr
= (EXCEPTION_RECORD
*)(context_ptr
+ 1);
162 *rec_ptr
= *epointers
->ExceptionRecord
;
163 *context_ptr
= *epointers
->ContextRecord
;
164 if (!server_call_noerr( REQ_EXCEPTION_EVENT
)) *epointers
->ContextRecord
= *context_ptr
;
165 status
= req
->status
;
172 return EXCEPTION_CONTINUE_EXECUTION
;
173 case DBG_EXCEPTION_NOT_HANDLED
:
174 TerminateProcess( GetCurrentProcess(), epointers
->ExceptionRecord
->ExceptionCode
);
175 break; /* not reached */
176 case 0: /* no debugger is present */
179 FIXME("Unsupported yet debug continue value %d (please report)\n", status
);
184 DWORD ret
= pdb
->top_filter( epointers
);
185 if (ret
!= EXCEPTION_CONTINUE_SEARCH
) return ret
;
188 /* FIXME: Should check the current error mode */
190 if (!RegOpenKeyA(HKEY_LOCAL_MACHINE
,
191 "Software\\Microsoft\\Windows NT\\CurrentVersion\\AeDebug",
196 count
= sizeof(format
);
197 if (RegQueryValueExA(hDbgConf
, "Debugger", 0, &type
, format
, &count
))
200 count
= sizeof(bAuto
);
201 if (RegQueryValueExA(hDbgConf
, "Auto", 0, &type
, (char*)&bAuto
, &count
))
203 else if (type
== REG_SZ
)
206 count
= sizeof(autostr
);
207 if (!RegQueryValueExA(hDbgConf
, "Auto", 0, &type
, autostr
, &count
))
208 bAuto
= atoi(autostr
);
210 RegCloseKey(hDbgConf
);
213 strcpy(format
, "debugger/winedbg %ld %ld");
216 if (!bAuto
&& Callout
.MessageBoxA
) {
217 format_exception_msg( epointers
, buffer
);
218 if (Callout
.MessageBoxA( 0, buffer
, "Error", MB_YESNO
| MB_ICONHAND
) == IDNO
) {
219 TRACE("Killing process\n");
220 return EXCEPTION_EXECUTE_HANDLER
;
226 PROCESS_INFORMATION info
;
227 STARTUPINFOA startup
;
228 OBJECT_ATTRIBUTES attr
;
230 attr
.Length
= sizeof(attr
);
231 attr
.RootDirectory
= 0;
232 attr
.Attributes
= OBJ_INHERIT
;
233 attr
.ObjectName
= NULL
;
234 attr
.SecurityDescriptor
= NULL
;
235 attr
.SecurityQualityOfService
= NULL
;
237 TRACE("Starting debugger (fmt=%s)\n", format
);
238 NtCreateEvent( &hEvent
, EVENT_ALL_ACCESS
, &attr
, FALSE
, FALSE
);
239 sprintf(buffer
, format
, GetCurrentProcessId(), hEvent
);
240 memset(&startup
, 0, sizeof(startup
));
241 startup
.cb
= sizeof(startup
);
242 startup
.dwFlags
= STARTF_USESHOWWINDOW
;
243 startup
.wShowWindow
= SW_SHOWNORMAL
;
244 if (CreateProcessA(NULL
, buffer
, NULL
, NULL
,
245 TRUE
, 0, NULL
, NULL
, &startup
, &info
)) {
246 WaitForSingleObject(hEvent
, INFINITE
);
247 ret
= EXCEPTION_CONTINUE_SEARCH
;
249 ERR("Couldn't start debugger (%s) (%ld)\n"
250 "Read the documentation on how to set up winedbg or another debugger\n",
251 buffer
, GetLastError());
255 ERR("No standard debugger defined in the registry => no debugging session\n");
262 /***********************************************************************
263 * SetUnhandledExceptionFilter (KERNEL32.516)
265 LPTOP_LEVEL_EXCEPTION_FILTER WINAPI
SetUnhandledExceptionFilter(
266 LPTOP_LEVEL_EXCEPTION_FILTER filter
)
268 PDB
*pdb
= PROCESS_Current();
269 LPTOP_LEVEL_EXCEPTION_FILTER old
= pdb
->top_filter
;
270 pdb
->top_filter
= filter
;
275 /**************************************************************************
276 * FatalAppExit16 (KERNEL.137)
278 void WINAPI
FatalAppExit16( UINT16 action
, LPCSTR str
)
281 FatalAppExitA( action
, str
);
285 /**************************************************************************
286 * FatalAppExitA (KERNEL32.108)
288 void WINAPI
FatalAppExitA( UINT action
, LPCSTR str
)
291 if (Callout
.MessageBoxA
)
292 Callout
.MessageBoxA( 0, str
, NULL
, MB_SYSTEMMODAL
| MB_OK
);
294 ERR( "%s\n", debugstr_a(str
) );
299 /**************************************************************************
300 * FatalAppExitW (KERNEL32.109)
302 void WINAPI
FatalAppExitW( UINT action
, LPCWSTR str
)
305 if (Callout
.MessageBoxW
)
306 Callout
.MessageBoxW( 0, str
, NULL
, MB_SYSTEMMODAL
| MB_OK
);
308 ERR( "%s\n", debugstr_w(str
) );