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"
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 * UnhandledExceptionFilter (KERNEL32.537)
69 DWORD WINAPI
UnhandledExceptionFilter(PEXCEPTION_POINTERS epointers
)
71 struct exception_event_request
*req
= get_req_buffer();
72 PDB
* pdb
= PROCESS_Current();
77 DWORD ret
= EXCEPTION_EXECUTE_HANDLER
;
79 /* send a last chance event to the debugger */
80 req
->record
= *epointers
->ExceptionRecord
;
82 req
->context
= *epointers
->ContextRecord
;
83 if (!server_call_noerr( REQ_EXCEPTION_EVENT
)) *epointers
->ContextRecord
= req
->context
;
87 return EXCEPTION_CONTINUE_EXECUTION
;
88 case DBG_EXCEPTION_NOT_HANDLED
:
89 TerminateProcess( GetCurrentProcess(), epointers
->ExceptionRecord
->ExceptionCode
);
90 break; /* not reached */
91 case 0: /* no debugger is present */
94 FIXME("Unsupported yet debug continue value %d (please report)\n", req
->status
);
99 DWORD ret
= pdb
->top_filter( epointers
);
100 if (ret
!= EXCEPTION_CONTINUE_SEARCH
) return ret
;
103 /* FIXME: Should check the current error mode */
105 if (!RegOpenKeyA(HKEY_LOCAL_MACHINE
,
106 "Software\\Microsoft\\Windows NT\\CurrentVersion\\AeDebug",
111 count
= sizeof(format
);
112 if (RegQueryValueExA(hDbgConf
, "Debugger", 0, &type
, format
, &count
))
115 count
= sizeof(bAuto
);
116 if (RegQueryValueExA(hDbgConf
, "Auto", 0, &type
, (char*)&bAuto
, &count
))
119 RegCloseKey(hDbgConf
);
122 strcpy(format
, "debugger/winedbg %ld %ld");
125 if (!bAuto
&& Callout
.MessageBoxA
) {
126 sprintf( buffer
, "Unhandled exception 0x%08lx at address 0x%08lx.\n"
127 "Do you wish to debug it ?",
128 epointers
->ExceptionRecord
->ExceptionCode
,
129 (DWORD
)epointers
->ExceptionRecord
->ExceptionAddress
);
130 if (Callout
.MessageBoxA( 0, buffer
, "Error", MB_YESNO
| MB_ICONHAND
) == IDNO
) {
131 TRACE("Killing process\n");
132 return EXCEPTION_EXECUTE_HANDLER
;
138 PROCESS_INFORMATION info
;
139 STARTUPINFOA startup
;
141 TRACE("Starting debugger (fmt=%s)\n", format
);
142 hEvent
= ConvertToGlobalHandle(CreateEventA(NULL
, FALSE
, FALSE
, NULL
));
143 sprintf(buffer
, format
, GetCurrentProcessId(), hEvent
);
144 memset(&startup
, 0, sizeof(startup
));
145 startup
.cb
= sizeof(startup
);
146 startup
.dwFlags
= STARTF_USESHOWWINDOW
;
147 startup
.wShowWindow
= SW_SHOWNORMAL
;
148 if (CreateProcessA(NULL
, buffer
, NULL
, NULL
,
149 TRUE
, 0, NULL
, NULL
, &startup
, &info
)) {
150 WaitForSingleObject(hEvent
, INFINITE
);
151 ret
= EXCEPTION_CONTINUE_SEARCH
;
153 ERR("Couldn't start debugger (%s) (%ld)\n", buffer
, GetLastError());
157 ERR("No standard debugger defined in the registry => no debugging session\n");
164 /***********************************************************************
165 * SetUnhandledExceptionFilter (KERNEL32.516)
167 LPTOP_LEVEL_EXCEPTION_FILTER WINAPI
SetUnhandledExceptionFilter(
168 LPTOP_LEVEL_EXCEPTION_FILTER filter
)
170 PDB
*pdb
= PROCESS_Current();
171 LPTOP_LEVEL_EXCEPTION_FILTER old
= pdb
->top_filter
;
172 pdb
->top_filter
= filter
;
177 /**************************************************************************
178 * FatalAppExit16 (KERNEL.137)
180 void WINAPI
FatalAppExit16( UINT16 action
, LPCSTR str
)
183 FatalAppExitA( action
, str
);
187 /**************************************************************************
188 * FatalAppExitA (KERNEL32.108)
190 void WINAPI
FatalAppExitA( UINT action
, LPCSTR str
)
193 Callout
.MessageBoxA( 0, str
, NULL
, MB_SYSTEMMODAL
| MB_OK
);
198 /**************************************************************************
199 * FatalAppExitW (KERNEL32.109)
201 void WINAPI
FatalAppExitW( UINT action
, LPCWSTR str
)
204 Callout
.MessageBoxW( 0, str
, NULL
, MB_SYSTEMMODAL
| MB_OK
);