source: trunk/src/kernel32/oslibexcept.cpp@ 5750

Last change on this file since 5750 was 5750, checked in by sandervl, 24 years ago

InterlockedCompareExchange bugfix
File size: 11.6 KB
Line 
1/* $Id: oslibexcept.cpp,v 1.6 2001-05-19 11:14:38 sandervl Exp $ */
2/*
3 * Exception handler util. procedures
4 *
5 * Copyright 1999 Sander van Leeuwen (sandervl@xs4all.nl)
6 *
7 */
8#define INCL_BASE
9#define INCL_DOSEXCEPTIONS
10#define INCL_DOSMEMMGR
11#define INCL_DOSPROCESS
12#include <os2wrap.h> //Odin32 OS/2 api wrappers
13#include <stdlib.h>
14#include <stdio.h>
15#include <string.h>
16#include <win32type.h>
17#include <misc.h>
18#include "oslibexcept.h"
19#include <exceptions.h>
20#include <wprocess.h>
21
22#define DBG_LOCALLOG DBG_oslibexcept
23#include "dbglocal.h"
24
25//******************************************************************************
26//Dispatches OS/2 exception to win32 handler
27//Returns: TRUE, win32 exception handler returned continue execution
28// FALSE, otherwise
29//******************************************************************************
30BOOL APIENTRY OSLibDispatchException(PEXCEPTIONREPORTRECORD pReportRec,
31 PEXCEPTIONREGISTRATIONRECORD pRegistrationRec,
32 PCONTEXTRECORD pContextRec, PVOID p)
33{
34 WINEXCEPTION_RECORD winreportrec;
35 WINCONTEXT wincontextrec;
36 ULONG rc;
37
38 memset(&winreportrec, 0, sizeof(winreportrec));
39 memcpy(&winreportrec, pReportRec, sizeof(*pReportRec));
40
41 switch(pReportRec->ExceptionNum) {
42 case XCPT_FLOAT_DENORMAL_OPERAND:
43 winreportrec.ExceptionCode = EXCEPTION_FLT_DENORMAL_OPERAND;
44 break;
45 case XCPT_FLOAT_DIVIDE_BY_ZERO:
46 winreportrec.ExceptionCode = EXCEPTION_FLT_DIVIDE_BY_ZERO;
47 break;
48 case XCPT_FLOAT_INEXACT_RESULT:
49 winreportrec.ExceptionCode = EXCEPTION_FLT_INEXACT_RESULT;
50 break;
51 case XCPT_FLOAT_INVALID_OPERATION:
52 winreportrec.ExceptionCode = EXCEPTION_FLT_INVALID_OPERATION;
53 break;
54 case XCPT_FLOAT_OVERFLOW:
55 winreportrec.ExceptionCode = EXCEPTION_FLT_OVERFLOW;
56 break;
57 case XCPT_FLOAT_STACK_CHECK:
58 winreportrec.ExceptionCode = EXCEPTION_FLT_STACK_CHECK;
59 break;
60 case XCPT_FLOAT_UNDERFLOW:
61 winreportrec.ExceptionCode = EXCEPTION_FLT_UNDERFLOW;
62 break;
63 case XCPT_INTEGER_DIVIDE_BY_ZERO:
64 winreportrec.ExceptionCode = EXCEPTION_INT_DIVIDE_BY_ZERO;
65 break;
66 case XCPT_INTEGER_OVERFLOW:
67 winreportrec.ExceptionCode = EXCEPTION_INT_OVERFLOW;
68 break;
69 case XCPT_PRIVILEGED_INSTRUCTION:
70 winreportrec.ExceptionCode = EXCEPTION_PRIV_INSTRUCTION;
71 break;
72 case XCPT_BREAKPOINT:
73 winreportrec.ExceptionCode = EXCEPTION_BREAKPOINT;
74 break;
75 case XCPT_SINGLE_STEP:
76 winreportrec.ExceptionCode = EXCEPTION_SINGLE_STEP;
77 break;
78 case XCPT_ARRAY_BOUNDS_EXCEEDED:
79 winreportrec.ExceptionCode = EXCEPTION_ARRAY_BOUNDS_EXCEEDED;
80 break;
81 case XCPT_DATATYPE_MISALIGNMENT:
82 winreportrec.ExceptionCode = EXCEPTION_DATATYPE_MISALIGNMENT;
83 break;
84 case XCPT_ILLEGAL_INSTRUCTION:
85 winreportrec.ExceptionCode = EXCEPTION_ILLEGAL_INSTRUCTION;
86 break;
87 case XCPT_INVALID_LOCK_SEQUENCE:
88 winreportrec.ExceptionCode = EXCEPTION_ILLEGAL_INSTRUCTION;
89 break;
90 case XCPT_GUARD_PAGE_VIOLATION:
91 winreportrec.ExceptionCode = EXCEPTION_GUARD_PAGE;
92 break;
93 case XCPT_UNABLE_TO_GROW_STACK:
94 winreportrec.ExceptionCode = EXCEPTION_STACK_OVERFLOW;
95 break;
96 case XCPT_IN_PAGE_ERROR:
97 winreportrec.ExceptionCode = EXCEPTION_IN_PAGE_ERROR;
98 break;
99 case XCPT_ACCESS_VIOLATION:
100 winreportrec.ExceptionCode = EXCEPTION_ACCESS_VIOLATION;
101 break;
102 default: //no other exceptions should be dispatched to win32 apps
103 return FALSE;
104 }
105 //TODO:
106 //According to the Wine folks the flags are the same in OS/2 and win32
107 //Let's assume for now the rest is identical as well
108
109 //copy context record info
110 memset(&wincontextrec, 0, sizeof(wincontextrec));
111 if(pContextRec->ContextFlags & CONTEXT_CONTROL) {
112 wincontextrec.ContextFlags |= WINCONTEXT_CONTROL;
113 wincontextrec.Ebp = pContextRec->ctx_RegEbp;
114 wincontextrec.Eip = pContextRec->ctx_RegEip;
115 wincontextrec.SegCs = pContextRec->ctx_SegCs;
116 wincontextrec.EFlags = pContextRec->ctx_EFlags;
117 wincontextrec.Esp = pContextRec->ctx_RegEsp;
118 wincontextrec.SegSs = pContextRec->ctx_SegSs;
119 }
120 if(pContextRec->ContextFlags & CONTEXT_INTEGER) {
121 wincontextrec.ContextFlags |= WINCONTEXT_INTEGER;
122 wincontextrec.Edi = pContextRec->ctx_RegEdi;
123 wincontextrec.Esi = pContextRec->ctx_RegEsi;
124 wincontextrec.Ebx = pContextRec->ctx_RegEbx;
125 wincontextrec.Edx = pContextRec->ctx_RegEdx;
126 wincontextrec.Ecx = pContextRec->ctx_RegEcx;
127 wincontextrec.Eax = pContextRec->ctx_RegEax;
128 }
129
130 TEB *winteb = GetThreadTEB();
131
132 if(pContextRec->ContextFlags & CONTEXT_SEGMENTS) {
133 wincontextrec.ContextFlags |= WINCONTEXT_SEGMENTS;
134 wincontextrec.SegGs = pContextRec->ctx_SegGs;
135// This resets FS to 0x150B - we DON'T want that!!
136// wincontextrec.SegFs = pContextRec->ctx_SegFs;
137 wincontextrec.SegFs = winteb->teb_sel;
138 wincontextrec.SegEs = pContextRec->ctx_SegEs;
139 wincontextrec.SegDs = pContextRec->ctx_SegDs;
140 }
141 if(pContextRec->ContextFlags & CONTEXT_FLOATING_POINT) {
142 wincontextrec.ContextFlags |= WINCONTEXT_FLOATING_POINT;
143 //TODO: First 7 dwords the same?
144 memcpy(&wincontextrec.FloatSave, pContextRec->ctx_env, sizeof(pContextRec->ctx_env));
145 memcpy(&wincontextrec.FloatSave.RegisterArea, pContextRec->ctx_stack, sizeof(pContextRec->ctx_stack));
146 }
147 //It doesn't seem correct if we dispatch real exceptions to win32 apps
148 //Some just call RtlUnwind and continue as if they were processing an
149 //exception thrown by C++ code. (instead of real OS exception)
150#if 1
151 // We need to reset FS to its original (Win32) value, otherwise we'll likely
152 // fuck up the Win32 exception handlers. They could end up using the wrong
153 // exception chain if they access FS:[0] directly.
154 DWORD oldsel = SetReturnFS(winteb->teb_sel);
155
156 switch(pReportRec->ExceptionNum) {
157 case XCPT_FLOAT_DENORMAL_OPERAND:
158 case XCPT_FLOAT_DIVIDE_BY_ZERO:
159 case XCPT_FLOAT_INEXACT_RESULT:
160 case XCPT_FLOAT_INVALID_OPERATION:
161 case XCPT_FLOAT_OVERFLOW:
162 case XCPT_FLOAT_STACK_CHECK:
163 case XCPT_FLOAT_UNDERFLOW:
164 rc = RtlDispatchException(&winreportrec, &wincontextrec);
165 break;
166
167 case XCPT_ACCESS_VIOLATION:
168 rc = RtlDispatchException(&winreportrec, &wincontextrec);
169 break;
170
171 case XCPT_ILLEGAL_INSTRUCTION:
172 case XCPT_PRIVILEGED_INSTRUCTION:
173 rc = RtlDispatchException(&winreportrec, &wincontextrec);
174 break;
175
176 case XCPT_INTEGER_DIVIDE_BY_ZERO:
177 case XCPT_INTEGER_OVERFLOW:
178 case XCPT_BREAKPOINT:
179 case XCPT_SINGLE_STEP:
180 case XCPT_ARRAY_BOUNDS_EXCEEDED:
181 case XCPT_DATATYPE_MISALIGNMENT:
182 case XCPT_INVALID_LOCK_SEQUENCE:
183 case XCPT_GUARD_PAGE_VIOLATION:
184 case XCPT_UNABLE_TO_GROW_STACK:
185 case XCPT_IN_PAGE_ERROR:
186 default:
187 SetFS(oldsel); //restore FS
188 return FALSE; //let's not dispatch those for now
189 }
190 SetFS(oldsel); //restore FS
191
192 if(rc == ExceptionContinueExecution) {
193 dprintf(("Win32 exception handler returned ExceptionContinueExecution"));
194 if(wincontextrec.ContextFlags & WINCONTEXT_CONTROL) {
195 pContextRec->ctx_RegEbp = wincontextrec.Ebp;
196 pContextRec->ctx_RegEip = wincontextrec.Eip;
197 pContextRec->ctx_SegCs = wincontextrec.SegCs;
198 pContextRec->ctx_EFlags = wincontextrec.EFlags;
199 pContextRec->ctx_RegEsp = wincontextrec.Esp;
200 pContextRec->ctx_SegSs = wincontextrec.SegSs;
201 }
202 if(wincontextrec.ContextFlags & WINCONTEXT_INTEGER) {
203 pContextRec->ctx_RegEdi = wincontextrec.Edi;
204 pContextRec->ctx_RegEsi = wincontextrec.Esi;
205 pContextRec->ctx_RegEbx = wincontextrec.Ebx;
206 pContextRec->ctx_RegEdx = wincontextrec.Edx;
207 pContextRec->ctx_RegEcx = wincontextrec.Ecx;
208 pContextRec->ctx_RegEax = wincontextrec.Eax;
209 }
210#if 0
211 //This is not a good idea
212 if(wincontextrec.ContextFlags & WINCONTEXT_SEGMENTS) {
213 pContextRec->ctx_SegGs = wincontextrec.SegGs;
214 pContextRec->ctx_SegFs = wincontextrec.SegFs;
215 pContextRec->ctx_SegEs = wincontextrec.SegEs;
216 pContextRec->ctx_SegDs = wincontextrec.SegDs;
217 }
218#endif
219 if(wincontextrec.ContextFlags & WINCONTEXT_FLOATING_POINT) {
220 //TODO: First 7 dwords the same?
221 memcpy(pContextRec->ctx_env, &wincontextrec.FloatSave, sizeof(pContextRec->ctx_env));
222 memcpy(pContextRec->ctx_stack, &wincontextrec.FloatSave.RegisterArea, sizeof(pContextRec->ctx_stack));
223 }
224 if (pContextRec->ContextFlags & CONTEXT_CONTROL) /* check flags */
225 dprintf((" SS:ESP=%04x:%08x EFLAGS=%08x\n",
226 pContextRec->ctx_SegSs,
227 pContextRec->ctx_RegEsp,
228 pContextRec->ctx_EFlags));
229 dprintf((" CS:EIP=%04x:%08x EBP =%08x\n",
230 pContextRec->ctx_SegCs,
231 pContextRec->ctx_RegEip,
232 pContextRec->ctx_RegEbp));
233
234 if (pContextRec->ContextFlags & CONTEXT_INTEGER) /* check flags */
235 dprintf((" EAX=%08x EBX=%08x ESI=%08x\n",
236 pContextRec->ctx_RegEax,
237 pContextRec->ctx_RegEbx,
238 pContextRec->ctx_RegEsi));
239 dprintf((" ECX=%08x EDX=%08x EDI=%08x\n",
240 pContextRec->ctx_RegEcx,
241 pContextRec->ctx_RegEdx,
242 pContextRec->ctx_RegEdi));
243
244 if (pContextRec->ContextFlags & CONTEXT_SEGMENTS) /* check flags */
245 dprintf((" DS=%04x ES=%08x"
246 " FS=%04x GS=%04x\n",
247 pContextRec->ctx_SegDs,
248 pContextRec->ctx_SegEs,
249 pContextRec->ctx_SegFs,
250 pContextRec->ctx_SegGs));
251
252 if (pContextRec->ContextFlags & CONTEXT_FLOATING_POINT) /* check flags */
253 {
254 ULONG ulCounter; /* temporary local counter for fp stack */
255
256 dprintf((" Env[0]=%08x Env[1]=%08x Env[2]=%08x Env[3]=%08x\n",
257 pContextRec->ctx_env[0],
258 pContextRec->ctx_env[1],
259 pContextRec->ctx_env[2],
260 pContextRec->ctx_env[3]));
261
262 dprintf((" Env[4]=%08x Env[5]=%08x Env[6]=%08x\n",
263 pContextRec->ctx_env[4],
264 pContextRec->ctx_env[5],
265 pContextRec->ctx_env[6]));
266
267 for (ulCounter = 0;
268 ulCounter < 8; /* see TOOLKIT\INCLUDE\BSEEXPT.H, _CONTEXT structure */
269 ulCounter ++)
270 dprintf((" FP-Stack[%u] losig=%08x hisig=%08x signexp=%04x\n",
271 ulCounter,
272 pContextRec->ctx_stack[0].losig,
273 pContextRec->ctx_stack[0].hisig,
274 pContextRec->ctx_stack[0].signexp));
275 }
276
277 return TRUE;
278 }
279 dprintf(("Win32 exception handler returned %x", rc));
280#endif
281 return FALSE;
282}
283//******************************************************************************
284//******************************************************************************
Note: See TracBrowser for help on using the repository browser.