Commit | Line | Data |
---|---|---|
1da177e4 LT |
1 | /*---------------------------------------------------------------------------+ |
2 | | get_address.c | | |
3 | | | | |
4 | | Get the effective address from an FPU instruction. | | |
5 | | | | |
6 | | Copyright (C) 1992,1993,1994,1997 | | |
7 | | W. Metzenthen, 22 Parker St, Ormond, Vic 3163, | | |
8 | | Australia. E-mail billm@suburbia.net | | |
9 | | | | |
10 | | | | |
11 | +---------------------------------------------------------------------------*/ | |
12 | ||
13 | /*---------------------------------------------------------------------------+ | |
14 | | Note: | | |
15 | | The file contains code which accesses user memory. | | |
16 | | Emulator static data may change when user memory is accessed, due to | | |
17 | | other processes using the emulator while swapping is in progress. | | |
18 | +---------------------------------------------------------------------------*/ | |
19 | ||
20 | ||
21 | #include <linux/stddef.h> | |
22 | ||
23 | #include <asm/uaccess.h> | |
24 | #include <asm/desc.h> | |
25 | ||
26 | #include "fpu_system.h" | |
27 | #include "exception.h" | |
28 | #include "fpu_emu.h" | |
29 | ||
30 | ||
31 | #define FPU_WRITE_BIT 0x10 | |
32 | ||
33 | static int reg_offset[] = { | |
34 | offsetof(struct info,___eax), | |
35 | offsetof(struct info,___ecx), | |
36 | offsetof(struct info,___edx), | |
37 | offsetof(struct info,___ebx), | |
38 | offsetof(struct info,___esp), | |
39 | offsetof(struct info,___ebp), | |
40 | offsetof(struct info,___esi), | |
41 | offsetof(struct info,___edi) | |
42 | }; | |
43 | ||
44 | #define REG_(x) (*(long *)(reg_offset[(x)]+(u_char *) FPU_info)) | |
45 | ||
46 | static int reg_offset_vm86[] = { | |
47 | offsetof(struct info,___cs), | |
48 | offsetof(struct info,___vm86_ds), | |
49 | offsetof(struct info,___vm86_es), | |
50 | offsetof(struct info,___vm86_fs), | |
51 | offsetof(struct info,___vm86_gs), | |
52 | offsetof(struct info,___ss), | |
53 | offsetof(struct info,___vm86_ds) | |
54 | }; | |
55 | ||
56 | #define VM86_REG_(x) (*(unsigned short *) \ | |
57 | (reg_offset_vm86[((unsigned)x)]+(u_char *) FPU_info)) | |
58 | ||
59 | /* These are dummy, fs and gs are not saved on the stack. */ | |
60 | #define ___FS ___ds | |
61 | #define ___GS ___ds | |
62 | ||
63 | static int reg_offset_pm[] = { | |
64 | offsetof(struct info,___cs), | |
65 | offsetof(struct info,___ds), | |
66 | offsetof(struct info,___es), | |
67 | offsetof(struct info,___FS), | |
68 | offsetof(struct info,___GS), | |
69 | offsetof(struct info,___ss), | |
70 | offsetof(struct info,___ds) | |
71 | }; | |
72 | ||
73 | #define PM_REG_(x) (*(unsigned short *) \ | |
74 | (reg_offset_pm[((unsigned)x)]+(u_char *) FPU_info)) | |
75 | ||
76 | ||
77 | /* Decode the SIB byte. This function assumes mod != 0 */ | |
78 | static int sib(int mod, unsigned long *fpu_eip) | |
79 | { | |
80 | u_char ss,index,base; | |
81 | long offset; | |
82 | ||
83 | RE_ENTRANT_CHECK_OFF; | |
84 | FPU_code_access_ok(1); | |
85 | FPU_get_user(base, (u_char __user *) (*fpu_eip)); /* The SIB byte */ | |
86 | RE_ENTRANT_CHECK_ON; | |
87 | (*fpu_eip)++; | |
88 | ss = base >> 6; | |
89 | index = (base >> 3) & 7; | |
90 | base &= 7; | |
91 | ||
92 | if ((mod == 0) && (base == 5)) | |
93 | offset = 0; /* No base register */ | |
94 | else | |
95 | offset = REG_(base); | |
96 | ||
97 | if (index == 4) | |
98 | { | |
99 | /* No index register */ | |
100 | /* A non-zero ss is illegal */ | |
101 | if ( ss ) | |
102 | EXCEPTION(EX_Invalid); | |
103 | } | |
104 | else | |
105 | { | |
106 | offset += (REG_(index)) << ss; | |
107 | } | |
108 | ||
109 | if (mod == 1) | |
110 | { | |
111 | /* 8 bit signed displacement */ | |
112 | long displacement; | |
113 | RE_ENTRANT_CHECK_OFF; | |
114 | FPU_code_access_ok(1); | |
115 | FPU_get_user(displacement, (signed char __user *) (*fpu_eip)); | |
116 | offset += displacement; | |
117 | RE_ENTRANT_CHECK_ON; | |
118 | (*fpu_eip)++; | |
119 | } | |
120 | else if (mod == 2 || base == 5) /* The second condition also has mod==0 */ | |
121 | { | |
122 | /* 32 bit displacement */ | |
123 | long displacement; | |
124 | RE_ENTRANT_CHECK_OFF; | |
125 | FPU_code_access_ok(4); | |
126 | FPU_get_user(displacement, (long __user *) (*fpu_eip)); | |
127 | offset += displacement; | |
128 | RE_ENTRANT_CHECK_ON; | |
129 | (*fpu_eip) += 4; | |
130 | } | |
131 | ||
132 | return offset; | |
133 | } | |
134 | ||
135 | ||
136 | static unsigned long vm86_segment(u_char segment, | |
137 | struct address *addr) | |
138 | { | |
139 | segment--; | |
140 | #ifdef PARANOID | |
141 | if ( segment > PREFIX_SS_ ) | |
142 | { | |
143 | EXCEPTION(EX_INTERNAL|0x130); | |
144 | math_abort(FPU_info,SIGSEGV); | |
145 | } | |
146 | #endif /* PARANOID */ | |
147 | addr->selector = VM86_REG_(segment); | |
148 | return (unsigned long)VM86_REG_(segment) << 4; | |
149 | } | |
150 | ||
151 | ||
152 | /* This should work for 16 and 32 bit protected mode. */ | |
153 | static long pm_address(u_char FPU_modrm, u_char segment, | |
154 | struct address *addr, long offset) | |
155 | { | |
156 | struct desc_struct descriptor; | |
157 | unsigned long base_address, limit, address, seg_top; | |
158 | unsigned short selector; | |
159 | ||
160 | segment--; | |
161 | ||
162 | #ifdef PARANOID | |
163 | /* segment is unsigned, so this also detects if segment was 0: */ | |
164 | if ( segment > PREFIX_SS_ ) | |
165 | { | |
166 | EXCEPTION(EX_INTERNAL|0x132); | |
167 | math_abort(FPU_info,SIGSEGV); | |
168 | } | |
169 | #endif /* PARANOID */ | |
170 | ||
171 | switch ( segment ) | |
172 | { | |
173 | /* fs and gs aren't used by the kernel, so they still have their | |
174 | user-space values. */ | |
175 | case PREFIX_FS_-1: | |
176 | /* The cast is needed here to get gcc 2.8.0 to use a 16 bit register | |
177 | in the assembler statement. */ | |
178 | ||
179 | __asm__("mov %%fs,%0":"=r" (selector)); | |
180 | addr->selector = selector; | |
181 | break; | |
182 | case PREFIX_GS_-1: | |
183 | /* The cast is needed here to get gcc 2.8.0 to use a 16 bit register | |
184 | in the assembler statement. */ | |
185 | __asm__("mov %%gs,%0":"=r" (selector)); | |
186 | addr->selector = selector; | |
187 | break; | |
188 | default: | |
189 | addr->selector = PM_REG_(segment); | |
190 | } | |
191 | ||
192 | descriptor = LDT_DESCRIPTOR(PM_REG_(segment)); | |
193 | base_address = SEG_BASE_ADDR(descriptor); | |
194 | address = base_address + offset; | |
195 | limit = base_address | |
196 | + (SEG_LIMIT(descriptor)+1) * SEG_GRANULARITY(descriptor) - 1; | |
197 | if ( limit < base_address ) limit = 0xffffffff; | |
198 | ||
199 | if ( SEG_EXPAND_DOWN(descriptor) ) | |
200 | { | |
201 | if ( SEG_G_BIT(descriptor) ) | |
202 | seg_top = 0xffffffff; | |
203 | else | |
204 | { | |
205 | seg_top = base_address + (1 << 20); | |
206 | if ( seg_top < base_address ) seg_top = 0xffffffff; | |
207 | } | |
208 | access_limit = | |
209 | (address <= limit) || (address >= seg_top) ? 0 : | |
210 | ((seg_top-address) >= 255 ? 255 : seg_top-address); | |
211 | } | |
212 | else | |
213 | { | |
214 | access_limit = | |
215 | (address > limit) || (address < base_address) ? 0 : | |
216 | ((limit-address) >= 254 ? 255 : limit-address+1); | |
217 | } | |
218 | if ( SEG_EXECUTE_ONLY(descriptor) || | |
219 | (!SEG_WRITE_PERM(descriptor) && (FPU_modrm & FPU_WRITE_BIT)) ) | |
220 | { | |
221 | access_limit = 0; | |
222 | } | |
223 | return address; | |
224 | } | |
225 | ||
226 | ||
227 | /* | |
228 | MOD R/M byte: MOD == 3 has a special use for the FPU | |
229 | SIB byte used iff R/M = 100b | |
230 | ||
231 | 7 6 5 4 3 2 1 0 | |
232 | ..... ......... ......... | |
233 | MOD OPCODE(2) R/M | |
234 | ||
235 | ||
236 | SIB byte | |
237 | ||
238 | 7 6 5 4 3 2 1 0 | |
239 | ..... ......... ......... | |
240 | SS INDEX BASE | |
241 | ||
242 | */ | |
243 | ||
244 | void __user *FPU_get_address(u_char FPU_modrm, unsigned long *fpu_eip, | |
245 | struct address *addr, | |
246 | fpu_addr_modes addr_modes) | |
247 | { | |
248 | u_char mod; | |
249 | unsigned rm = FPU_modrm & 7; | |
250 | long *cpu_reg_ptr; | |
251 | int address = 0; /* Initialized just to stop compiler warnings. */ | |
252 | ||
253 | /* Memory accessed via the cs selector is write protected | |
254 | in `non-segmented' 32 bit protected mode. */ | |
255 | if ( !addr_modes.default_mode && (FPU_modrm & FPU_WRITE_BIT) | |
256 | && (addr_modes.override.segment == PREFIX_CS_) ) | |
257 | { | |
258 | math_abort(FPU_info,SIGSEGV); | |
259 | } | |
260 | ||
261 | addr->selector = FPU_DS; /* Default, for 32 bit non-segmented mode. */ | |
262 | ||
263 | mod = (FPU_modrm >> 6) & 3; | |
264 | ||
265 | if (rm == 4 && mod != 3) | |
266 | { | |
267 | address = sib(mod, fpu_eip); | |
268 | } | |
269 | else | |
270 | { | |
271 | cpu_reg_ptr = & REG_(rm); | |
272 | switch (mod) | |
273 | { | |
274 | case 0: | |
275 | if (rm == 5) | |
276 | { | |
277 | /* Special case: disp32 */ | |
278 | RE_ENTRANT_CHECK_OFF; | |
279 | FPU_code_access_ok(4); | |
280 | FPU_get_user(address, (unsigned long __user *) (*fpu_eip)); | |
281 | (*fpu_eip) += 4; | |
282 | RE_ENTRANT_CHECK_ON; | |
283 | addr->offset = address; | |
284 | return (void __user *) address; | |
285 | } | |
286 | else | |
287 | { | |
288 | address = *cpu_reg_ptr; /* Just return the contents | |
289 | of the cpu register */ | |
290 | addr->offset = address; | |
291 | return (void __user *) address; | |
292 | } | |
293 | case 1: | |
294 | /* 8 bit signed displacement */ | |
295 | RE_ENTRANT_CHECK_OFF; | |
296 | FPU_code_access_ok(1); | |
297 | FPU_get_user(address, (signed char __user *) (*fpu_eip)); | |
298 | RE_ENTRANT_CHECK_ON; | |
299 | (*fpu_eip)++; | |
300 | break; | |
301 | case 2: | |
302 | /* 32 bit displacement */ | |
303 | RE_ENTRANT_CHECK_OFF; | |
304 | FPU_code_access_ok(4); | |
305 | FPU_get_user(address, (long __user *) (*fpu_eip)); | |
306 | (*fpu_eip) += 4; | |
307 | RE_ENTRANT_CHECK_ON; | |
308 | break; | |
309 | case 3: | |
310 | /* Not legal for the FPU */ | |
311 | EXCEPTION(EX_Invalid); | |
312 | } | |
313 | address += *cpu_reg_ptr; | |
314 | } | |
315 | ||
316 | addr->offset = address; | |
317 | ||
318 | switch ( addr_modes.default_mode ) | |
319 | { | |
320 | case 0: | |
321 | break; | |
322 | case VM86: | |
323 | address += vm86_segment(addr_modes.override.segment, addr); | |
324 | break; | |
325 | case PM16: | |
326 | case SEG32: | |
327 | address = pm_address(FPU_modrm, addr_modes.override.segment, | |
328 | addr, address); | |
329 | break; | |
330 | default: | |
331 | EXCEPTION(EX_INTERNAL|0x133); | |
332 | } | |
333 | ||
334 | return (void __user *)address; | |
335 | } | |
336 | ||
337 | ||
338 | void __user *FPU_get_address_16(u_char FPU_modrm, unsigned long *fpu_eip, | |
339 | struct address *addr, | |
340 | fpu_addr_modes addr_modes) | |
341 | { | |
342 | u_char mod; | |
343 | unsigned rm = FPU_modrm & 7; | |
344 | int address = 0; /* Default used for mod == 0 */ | |
345 | ||
346 | /* Memory accessed via the cs selector is write protected | |
347 | in `non-segmented' 32 bit protected mode. */ | |
348 | if ( !addr_modes.default_mode && (FPU_modrm & FPU_WRITE_BIT) | |
349 | && (addr_modes.override.segment == PREFIX_CS_) ) | |
350 | { | |
351 | math_abort(FPU_info,SIGSEGV); | |
352 | } | |
353 | ||
354 | addr->selector = FPU_DS; /* Default, for 32 bit non-segmented mode. */ | |
355 | ||
356 | mod = (FPU_modrm >> 6) & 3; | |
357 | ||
358 | switch (mod) | |
359 | { | |
360 | case 0: | |
361 | if (rm == 6) | |
362 | { | |
363 | /* Special case: disp16 */ | |
364 | RE_ENTRANT_CHECK_OFF; | |
365 | FPU_code_access_ok(2); | |
366 | FPU_get_user(address, (unsigned short __user *) (*fpu_eip)); | |
367 | (*fpu_eip) += 2; | |
368 | RE_ENTRANT_CHECK_ON; | |
369 | goto add_segment; | |
370 | } | |
371 | break; | |
372 | case 1: | |
373 | /* 8 bit signed displacement */ | |
374 | RE_ENTRANT_CHECK_OFF; | |
375 | FPU_code_access_ok(1); | |
376 | FPU_get_user(address, (signed char __user *) (*fpu_eip)); | |
377 | RE_ENTRANT_CHECK_ON; | |
378 | (*fpu_eip)++; | |
379 | break; | |
380 | case 2: | |
381 | /* 16 bit displacement */ | |
382 | RE_ENTRANT_CHECK_OFF; | |
383 | FPU_code_access_ok(2); | |
384 | FPU_get_user(address, (unsigned short __user *) (*fpu_eip)); | |
385 | (*fpu_eip) += 2; | |
386 | RE_ENTRANT_CHECK_ON; | |
387 | break; | |
388 | case 3: | |
389 | /* Not legal for the FPU */ | |
390 | EXCEPTION(EX_Invalid); | |
391 | break; | |
392 | } | |
393 | switch ( rm ) | |
394 | { | |
395 | case 0: | |
396 | address += FPU_info->___ebx + FPU_info->___esi; | |
397 | break; | |
398 | case 1: | |
399 | address += FPU_info->___ebx + FPU_info->___edi; | |
400 | break; | |
401 | case 2: | |
402 | address += FPU_info->___ebp + FPU_info->___esi; | |
403 | if ( addr_modes.override.segment == PREFIX_DEFAULT ) | |
404 | addr_modes.override.segment = PREFIX_SS_; | |
405 | break; | |
406 | case 3: | |
407 | address += FPU_info->___ebp + FPU_info->___edi; | |
408 | if ( addr_modes.override.segment == PREFIX_DEFAULT ) | |
409 | addr_modes.override.segment = PREFIX_SS_; | |
410 | break; | |
411 | case 4: | |
412 | address += FPU_info->___esi; | |
413 | break; | |
414 | case 5: | |
415 | address += FPU_info->___edi; | |
416 | break; | |
417 | case 6: | |
418 | address += FPU_info->___ebp; | |
419 | if ( addr_modes.override.segment == PREFIX_DEFAULT ) | |
420 | addr_modes.override.segment = PREFIX_SS_; | |
421 | break; | |
422 | case 7: | |
423 | address += FPU_info->___ebx; | |
424 | break; | |
425 | } | |
426 | ||
427 | add_segment: | |
428 | address &= 0xffff; | |
429 | ||
430 | addr->offset = address; | |
431 | ||
432 | switch ( addr_modes.default_mode ) | |
433 | { | |
434 | case 0: | |
435 | break; | |
436 | case VM86: | |
437 | address += vm86_segment(addr_modes.override.segment, addr); | |
438 | break; | |
439 | case PM16: | |
440 | case SEG32: | |
441 | address = pm_address(FPU_modrm, addr_modes.override.segment, | |
442 | addr, address); | |
443 | break; | |
444 | default: | |
445 | EXCEPTION(EX_INTERNAL|0x131); | |
446 | } | |
447 | ||
448 | return (void __user *)address ; | |
449 | } |