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

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

plugin driver dll updates
File size: 11.7 KB
Line 
1/* $Id: oslibexcept.cpp,v 1.7 2001-06-04 21:18:40 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#ifndef DEBUG
174 case XCPT_BREAKPOINT:
175#endif
176 rc = RtlDispatchException(&winreportrec, &wincontextrec);
177 break;
178
179#ifdef DEBUG
180 case XCPT_BREAKPOINT:
181#endif
182 case XCPT_INTEGER_DIVIDE_BY_ZERO:
183 case XCPT_INTEGER_OVERFLOW:
184 case XCPT_SINGLE_STEP:
185 case XCPT_ARRAY_BOUNDS_EXCEEDED:
186 case XCPT_DATATYPE_MISALIGNMENT:
187 case XCPT_INVALID_LOCK_SEQUENCE:
188 case XCPT_GUARD_PAGE_VIOLATION:
189 case XCPT_UNABLE_TO_GROW_STACK:
190 case XCPT_IN_PAGE_ERROR:
191 default:
192 SetFS(oldsel); //restore FS
193 return FALSE; //let's not dispatch those for now
194 }
195 SetFS(oldsel); //restore FS
196
197 if(rc == ExceptionContinueExecution) {
198 dprintf(("Win32 exception handler returned ExceptionContinueExecution"));
199 if(wincontextrec.ContextFlags & WINCONTEXT_CONTROL) {
200 pContextRec->ctx_RegEbp = wincontextrec.Ebp;
201 pContextRec->ctx_RegEip = wincontextrec.Eip;
202 pContextRec->ctx_SegCs = wincontextrec.SegCs;
203 pContextRec->ctx_EFlags = wincontextrec.EFlags;
204 pContextRec->ctx_RegEsp = wincontextrec.Esp;
205 pContextRec->ctx_SegSs = wincontextrec.SegSs;
206 }
207 if(wincontextrec.ContextFlags & WINCONTEXT_INTEGER) {
208 pContextRec->ctx_RegEdi = wincontextrec.Edi;
209 pContextRec->ctx_RegEsi = wincontextrec.Esi;
210 pContextRec->ctx_RegEbx = wincontextrec.Ebx;
211 pContextRec->ctx_RegEdx = wincontextrec.Edx;
212 pContextRec->ctx_RegEcx = wincontextrec.Ecx;
213 pContextRec->ctx_RegEax = wincontextrec.Eax;
214 }
215#if 0
216 //This is not a good idea
217 if(wincontextrec.ContextFlags & WINCONTEXT_SEGMENTS) {
218 pContextRec->ctx_SegGs = wincontextrec.SegGs;
219 pContextRec->ctx_SegFs = wincontextrec.SegFs;
220 pContextRec->ctx_SegEs = wincontextrec.SegEs;
221 pContextRec->ctx_SegDs = wincontextrec.SegDs;
222 }
223#endif
224 if(wincontextrec.ContextFlags & WINCONTEXT_FLOATING_POINT) {
225 //TODO: First 7 dwords the same?
226 memcpy(pContextRec->ctx_env, &wincontextrec.FloatSave, sizeof(pContextRec->ctx_env));
227 memcpy(pContextRec->ctx_stack, &wincontextrec.FloatSave.RegisterArea, sizeof(pContextRec->ctx_stack));
228 }
229 if (pContextRec->ContextFlags & CONTEXT_CONTROL) /* check flags */
230 dprintf((" SS:ESP=%04x:%08x EFLAGS=%08x\n",
231 pContextRec->ctx_SegSs,
232 pContextRec->ctx_RegEsp,
233 pContextRec->ctx_EFlags));
234 dprintf((" CS:EIP=%04x:%08x EBP =%08x\n",
235 pContextRec->ctx_SegCs,
236 pContextRec->ctx_RegEip,
237 pContextRec->ctx_RegEbp));
238
239 if (pContextRec->ContextFlags & CONTEXT_INTEGER) /* check flags */
240 dprintf((" EAX=%08x EBX=%08x ESI=%08x\n",
241 pContextRec->ctx_RegEax,
242 pContextRec->ctx_RegEbx,
243 pContextRec->ctx_RegEsi));
244 dprintf((" ECX=%08x EDX=%08x EDI=%08x\n",
245 pContextRec->ctx_RegEcx,
246 pContextRec->ctx_RegEdx,
247 pContextRec->ctx_RegEdi));
248
249 if (pContextRec->ContextFlags & CONTEXT_SEGMENTS) /* check flags */
250 dprintf((" DS=%04x ES=%08x"
251 " FS=%04x GS=%04x\n",
252 pContextRec->ctx_SegDs,
253 pContextRec->ctx_SegEs,
254 pContextRec->ctx_SegFs,
255 pContextRec->ctx_SegGs));
256
257 if (pContextRec->ContextFlags & CONTEXT_FLOATING_POINT) /* check flags */
258 {
259 ULONG ulCounter; /* temporary local counter for fp stack */
260
261 dprintf((" Env[0]=%08x Env[1]=%08x Env[2]=%08x Env[3]=%08x\n",
262 pContextRec->ctx_env[0],
263 pContextRec->ctx_env[1],
264 pContextRec->ctx_env[2],
265 pContextRec->ctx_env[3]));
266
267 dprintf((" Env[4]=%08x Env[5]=%08x Env[6]=%08x\n",
268 pContextRec->ctx_env[4],
269 pContextRec->ctx_env[5],
270 pContextRec->ctx_env[6]));
271
272 for (ulCounter = 0;
273 ulCounter < 8; /* see TOOLKIT\INCLUDE\BSEEXPT.H, _CONTEXT structure */
274 ulCounter ++)
275 dprintf((" FP-Stack[%u] losig=%08x hisig=%08x signexp=%04x\n",
276 ulCounter,
277 pContextRec->ctx_stack[0].losig,
278 pContextRec->ctx_stack[0].hisig,
279 pContextRec->ctx_stack[0].signexp));
280 }
281
282 return TRUE;
283 }
284 dprintf(("Win32 exception handler returned %x", rc));
285#endif
286 return FALSE;
287}
288//******************************************************************************
289//******************************************************************************
Note: See TracBrowser for help on using the repository browser.