]> git.proxmox.com Git - mirror_qemu.git/blob - target-mips/helper.c
Improved PABITS handling, and config register fixes.
[mirror_qemu.git] / target-mips / helper.c
1 /*
2 * MIPS emulation helpers for qemu.
3 *
4 * Copyright (c) 2004-2005 Jocelyn Mayer
5 *
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2 of the License, or (at your option) any later version.
10 *
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
15 *
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 */
20 #include <stdarg.h>
21 #include <stdlib.h>
22 #include <stdio.h>
23 #include <string.h>
24 #include <inttypes.h>
25 #include <signal.h>
26 #include <assert.h>
27
28 #include "cpu.h"
29 #include "exec-all.h"
30
31 enum {
32 TLBRET_DIRTY = -4,
33 TLBRET_INVALID = -3,
34 TLBRET_NOMATCH = -2,
35 TLBRET_BADADDR = -1,
36 TLBRET_MATCH = 0
37 };
38
39 /* no MMU emulation */
40 int no_mmu_map_address (CPUState *env, target_ulong *physical, int *prot,
41 target_ulong address, int rw, int access_type)
42 {
43 *physical = address;
44 *prot = PAGE_READ | PAGE_WRITE;
45 return TLBRET_MATCH;
46 }
47
48 /* fixed mapping MMU emulation */
49 int fixed_mmu_map_address (CPUState *env, target_ulong *physical, int *prot,
50 target_ulong address, int rw, int access_type)
51 {
52 if (address <= (int32_t)0x7FFFFFFFUL) {
53 if (!(env->CP0_Status & (1 << CP0St_ERL)))
54 *physical = address + 0x40000000UL;
55 else
56 *physical = address;
57 } else if (address <= (int32_t)0xBFFFFFFFUL)
58 *physical = address & 0x1FFFFFFF;
59 else
60 *physical = address;
61
62 *prot = PAGE_READ | PAGE_WRITE;
63 return TLBRET_MATCH;
64 }
65
66 /* MIPS32/MIPS64 R4000-style MMU emulation */
67 int r4k_map_address (CPUState *env, target_ulong *physical, int *prot,
68 target_ulong address, int rw, int access_type)
69 {
70 uint8_t ASID = env->CP0_EntryHi & 0xFF;
71 int i;
72
73 for (i = 0; i < env->tlb->tlb_in_use; i++) {
74 r4k_tlb_t *tlb = &env->tlb->mmu.r4k.tlb[i];
75 /* 1k pages are not supported. */
76 target_ulong mask = tlb->PageMask | ~(TARGET_PAGE_MASK << 1);
77 target_ulong tag = address & ~mask;
78 target_ulong VPN = tlb->VPN & ~mask;
79 #if defined(TARGET_MIPS64)
80 tag &= env->SEGMask;
81 #endif
82
83 /* Check ASID, virtual page number & size */
84 if ((tlb->G == 1 || tlb->ASID == ASID) && VPN == tag) {
85 /* TLB match */
86 int n = !!(address & mask & ~(mask >> 1));
87 /* Check access rights */
88 if (!(n ? tlb->V1 : tlb->V0))
89 return TLBRET_INVALID;
90 if (rw == 0 || (n ? tlb->D1 : tlb->D0)) {
91 *physical = tlb->PFN[n] | (address & (mask >> 1));
92 *prot = PAGE_READ;
93 if (n ? tlb->D1 : tlb->D0)
94 *prot |= PAGE_WRITE;
95 return TLBRET_MATCH;
96 }
97 return TLBRET_DIRTY;
98 }
99 }
100 return TLBRET_NOMATCH;
101 }
102
103 static int get_physical_address (CPUState *env, target_ulong *physical,
104 int *prot, target_ulong address,
105 int rw, int access_type)
106 {
107 /* User mode can only access useg/xuseg */
108 int user_mode = (env->hflags & MIPS_HFLAG_MODE) == MIPS_HFLAG_UM;
109 int supervisor_mode = (env->hflags & MIPS_HFLAG_MODE) == MIPS_HFLAG_SM;
110 int kernel_mode = !user_mode && !supervisor_mode;
111 #if defined(TARGET_MIPS64)
112 int UX = (env->CP0_Status & (1 << CP0St_UX)) != 0;
113 int SX = (env->CP0_Status & (1 << CP0St_SX)) != 0;
114 int KX = (env->CP0_Status & (1 << CP0St_KX)) != 0;
115 #endif
116 int ret = TLBRET_MATCH;
117
118 #if 0
119 if (logfile) {
120 fprintf(logfile, "user mode %d h %08x\n",
121 user_mode, env->hflags);
122 }
123 #endif
124
125 if (address <= (int32_t)0x7FFFFFFFUL) {
126 /* useg */
127 if (env->CP0_Status & (1 << CP0St_ERL)) {
128 *physical = address & 0xFFFFFFFF;
129 *prot = PAGE_READ | PAGE_WRITE;
130 } else {
131 ret = env->tlb->map_address(env, physical, prot, address, rw, access_type);
132 }
133 #if defined(TARGET_MIPS64)
134 } else if (address < 0x4000000000000000ULL) {
135 /* xuseg */
136 if (UX && address <= (0x3FFFFFFFFFFFFFFFULL & env->SEGMask)) {
137 ret = env->tlb->map_address(env, physical, prot, address, rw, access_type);
138 } else {
139 ret = TLBRET_BADADDR;
140 }
141 } else if (address < 0x8000000000000000ULL) {
142 /* xsseg */
143 if ((supervisor_mode || kernel_mode) &&
144 SX && address <= (0x7FFFFFFFFFFFFFFFULL & env->SEGMask)) {
145 ret = env->tlb->map_address(env, physical, prot, address, rw, access_type);
146 } else {
147 ret = TLBRET_BADADDR;
148 }
149 } else if (address < 0xC000000000000000ULL) {
150 /* xkphys */
151 if (kernel_mode && KX &&
152 (address & 0x07FFFFFFFFFFFFFFULL) <= env->PAMask) {
153 *physical = address & env->PAMask;
154 *prot = PAGE_READ | PAGE_WRITE;
155 } else {
156 ret = TLBRET_BADADDR;
157 }
158 } else if (address < 0xFFFFFFFF80000000ULL) {
159 /* xkseg */
160 if (kernel_mode && KX &&
161 address <= (0xFFFFFFFF7FFFFFFFULL & env->SEGMask)) {
162 ret = env->tlb->map_address(env, physical, prot, address, rw, access_type);
163 } else {
164 ret = TLBRET_BADADDR;
165 }
166 #endif
167 } else if (address < (int32_t)0xA0000000UL) {
168 /* kseg0 */
169 if (kernel_mode) {
170 *physical = address - (int32_t)0x80000000UL;
171 *prot = PAGE_READ | PAGE_WRITE;
172 } else {
173 ret = TLBRET_BADADDR;
174 }
175 } else if (address < (int32_t)0xC0000000UL) {
176 /* kseg1 */
177 if (kernel_mode) {
178 *physical = address - (int32_t)0xA0000000UL;
179 *prot = PAGE_READ | PAGE_WRITE;
180 } else {
181 ret = TLBRET_BADADDR;
182 }
183 } else if (address < (int32_t)0xE0000000UL) {
184 /* sseg (kseg2) */
185 if (supervisor_mode || kernel_mode) {
186 ret = env->tlb->map_address(env, physical, prot, address, rw, access_type);
187 } else {
188 ret = TLBRET_BADADDR;
189 }
190 } else {
191 /* kseg3 */
192 /* XXX: debug segment is not emulated */
193 if (kernel_mode) {
194 ret = env->tlb->map_address(env, physical, prot, address, rw, access_type);
195 } else {
196 ret = TLBRET_BADADDR;
197 }
198 }
199 #if 0
200 if (logfile) {
201 fprintf(logfile, TARGET_FMT_lx " %d %d => " TARGET_FMT_lx " %d (%d)\n",
202 address, rw, access_type, *physical, *prot, ret);
203 }
204 #endif
205
206 return ret;
207 }
208
209 #if defined(CONFIG_USER_ONLY)
210 target_phys_addr_t cpu_get_phys_page_debug(CPUState *env, target_ulong addr)
211 {
212 return addr;
213 }
214 #else
215 target_phys_addr_t cpu_get_phys_page_debug(CPUState *env, target_ulong addr)
216 {
217 target_ulong phys_addr;
218 int prot;
219
220 if (get_physical_address(env, &phys_addr, &prot, addr, 0, ACCESS_INT) != 0)
221 return -1;
222 return phys_addr;
223 }
224
225 void cpu_mips_init_mmu (CPUState *env)
226 {
227 }
228 #endif /* !defined(CONFIG_USER_ONLY) */
229
230 int cpu_mips_handle_mmu_fault (CPUState *env, target_ulong address, int rw,
231 int mmu_idx, int is_softmmu)
232 {
233 target_ulong physical;
234 int prot;
235 int exception = 0, error_code = 0;
236 int access_type;
237 int ret = 0;
238
239 if (logfile) {
240 #if 0
241 cpu_dump_state(env, logfile, fprintf, 0);
242 #endif
243 fprintf(logfile, "%s pc " TARGET_FMT_lx " ad " TARGET_FMT_lx " rw %d mmu_idx %d smmu %d\n",
244 __func__, env->PC[env->current_tc], address, rw, mmu_idx, is_softmmu);
245 }
246
247 rw &= 1;
248
249 /* data access */
250 /* XXX: put correct access by using cpu_restore_state()
251 correctly */
252 access_type = ACCESS_INT;
253 if (env->user_mode_only) {
254 /* user mode only emulation */
255 ret = TLBRET_NOMATCH;
256 goto do_fault;
257 }
258 ret = get_physical_address(env, &physical, &prot,
259 address, rw, access_type);
260 if (logfile) {
261 fprintf(logfile, "%s address=" TARGET_FMT_lx " ret %d physical " TARGET_FMT_lx " prot %d\n",
262 __func__, address, ret, physical, prot);
263 }
264 if (ret == TLBRET_MATCH) {
265 ret = tlb_set_page(env, address & TARGET_PAGE_MASK,
266 physical & TARGET_PAGE_MASK, prot,
267 mmu_idx, is_softmmu);
268 } else if (ret < 0) {
269 do_fault:
270 switch (ret) {
271 default:
272 case TLBRET_BADADDR:
273 /* Reference to kernel address from user mode or supervisor mode */
274 /* Reference to supervisor address from user mode */
275 if (rw)
276 exception = EXCP_AdES;
277 else
278 exception = EXCP_AdEL;
279 break;
280 case TLBRET_NOMATCH:
281 /* No TLB match for a mapped address */
282 if (rw)
283 exception = EXCP_TLBS;
284 else
285 exception = EXCP_TLBL;
286 error_code = 1;
287 break;
288 case TLBRET_INVALID:
289 /* TLB match with no valid bit */
290 if (rw)
291 exception = EXCP_TLBS;
292 else
293 exception = EXCP_TLBL;
294 break;
295 case TLBRET_DIRTY:
296 /* TLB match but 'D' bit is cleared */
297 exception = EXCP_LTLBL;
298 break;
299
300 }
301 /* Raise exception */
302 env->CP0_BadVAddr = address;
303 env->CP0_Context = (env->CP0_Context & ~0x007fffff) |
304 ((address >> 9) & 0x007ffff0);
305 env->CP0_EntryHi =
306 (env->CP0_EntryHi & 0xFF) | (address & (TARGET_PAGE_MASK << 1));
307 #if defined(TARGET_MIPS64)
308 env->CP0_EntryHi &= env->SEGMask;
309 env->CP0_XContext = (env->CP0_XContext & ((~0ULL) << (env->SEGBITS - 7))) |
310 ((address & 0xC00000000000ULL) >> (env->SEGBITS - 9)) |
311 ((address & ((1ULL << env->SEGBITS) - 1) & 0xFFFFFFFFFFFFE000ULL) >> 9);
312 #endif
313 env->exception_index = exception;
314 env->error_code = error_code;
315 ret = 1;
316 }
317
318 return ret;
319 }
320
321 #if defined(CONFIG_USER_ONLY)
322 void do_interrupt (CPUState *env)
323 {
324 env->exception_index = EXCP_NONE;
325 }
326 #else
327 void do_interrupt (CPUState *env)
328 {
329 target_ulong offset;
330 int cause = -1;
331
332 if (logfile && env->exception_index != EXCP_EXT_INTERRUPT) {
333 fprintf(logfile, "%s enter: PC " TARGET_FMT_lx " EPC " TARGET_FMT_lx " cause %d excp %d\n",
334 __func__, env->PC[env->current_tc], env->CP0_EPC, cause, env->exception_index);
335 }
336 if (env->exception_index == EXCP_EXT_INTERRUPT &&
337 (env->hflags & MIPS_HFLAG_DM))
338 env->exception_index = EXCP_DINT;
339 offset = 0x180;
340 switch (env->exception_index) {
341 case EXCP_DSS:
342 env->CP0_Debug |= 1 << CP0DB_DSS;
343 /* Debug single step cannot be raised inside a delay slot and
344 * resume will always occur on the next instruction
345 * (but we assume the pc has always been updated during
346 * code translation).
347 */
348 env->CP0_DEPC = env->PC[env->current_tc];
349 goto enter_debug_mode;
350 case EXCP_DINT:
351 env->CP0_Debug |= 1 << CP0DB_DINT;
352 goto set_DEPC;
353 case EXCP_DIB:
354 env->CP0_Debug |= 1 << CP0DB_DIB;
355 goto set_DEPC;
356 case EXCP_DBp:
357 env->CP0_Debug |= 1 << CP0DB_DBp;
358 goto set_DEPC;
359 case EXCP_DDBS:
360 env->CP0_Debug |= 1 << CP0DB_DDBS;
361 goto set_DEPC;
362 case EXCP_DDBL:
363 env->CP0_Debug |= 1 << CP0DB_DDBL;
364 set_DEPC:
365 if (env->hflags & MIPS_HFLAG_BMASK) {
366 /* If the exception was raised from a delay slot,
367 come back to the jump. */
368 env->CP0_DEPC = env->PC[env->current_tc] - 4;
369 env->hflags &= ~MIPS_HFLAG_BMASK;
370 } else {
371 env->CP0_DEPC = env->PC[env->current_tc];
372 }
373 enter_debug_mode:
374 env->hflags |= MIPS_HFLAG_DM | MIPS_HFLAG_64 | MIPS_HFLAG_CP0;
375 env->hflags &= ~(MIPS_HFLAG_KSU);
376 /* EJTAG probe trap enable is not implemented... */
377 if (!(env->CP0_Status & (1 << CP0St_EXL)))
378 env->CP0_Cause &= ~(1 << CP0Ca_BD);
379 env->PC[env->current_tc] = (int32_t)0xBFC00480;
380 break;
381 case EXCP_RESET:
382 cpu_reset(env);
383 break;
384 case EXCP_SRESET:
385 env->CP0_Status |= (1 << CP0St_SR);
386 memset(env->CP0_WatchLo, 0, sizeof(*env->CP0_WatchLo));
387 goto set_error_EPC;
388 case EXCP_NMI:
389 env->CP0_Status |= (1 << CP0St_NMI);
390 set_error_EPC:
391 if (env->hflags & MIPS_HFLAG_BMASK) {
392 /* If the exception was raised from a delay slot,
393 come back to the jump. */
394 env->CP0_ErrorEPC = env->PC[env->current_tc] - 4;
395 env->hflags &= ~MIPS_HFLAG_BMASK;
396 } else {
397 env->CP0_ErrorEPC = env->PC[env->current_tc];
398 }
399 env->CP0_Status |= (1 << CP0St_ERL) | (1 << CP0St_BEV);
400 env->hflags |= MIPS_HFLAG_64 | MIPS_HFLAG_CP0;
401 env->hflags &= ~(MIPS_HFLAG_KSU);
402 if (!(env->CP0_Status & (1 << CP0St_EXL)))
403 env->CP0_Cause &= ~(1 << CP0Ca_BD);
404 env->PC[env->current_tc] = (int32_t)0xBFC00000;
405 break;
406 case EXCP_MCHECK:
407 cause = 24;
408 goto set_EPC;
409 case EXCP_EXT_INTERRUPT:
410 cause = 0;
411 if (env->CP0_Cause & (1 << CP0Ca_IV))
412 offset = 0x200;
413 goto set_EPC;
414 case EXCP_DWATCH:
415 cause = 23;
416 /* XXX: TODO: manage defered watch exceptions */
417 goto set_EPC;
418 case EXCP_AdEL:
419 cause = 4;
420 goto set_EPC;
421 case EXCP_AdES:
422 cause = 5;
423 goto set_EPC;
424 case EXCP_TLBL:
425 cause = 2;
426 if (env->error_code == 1 && !(env->CP0_Status & (1 << CP0St_EXL))) {
427 #if defined(TARGET_MIPS64)
428 int R = env->CP0_BadVAddr >> 62;
429 int UX = (env->CP0_Status & (1 << CP0St_UX)) != 0;
430 int SX = (env->CP0_Status & (1 << CP0St_SX)) != 0;
431 int KX = (env->CP0_Status & (1 << CP0St_KX)) != 0;
432
433 if ((R == 0 && UX) || (R == 1 && SX) || (R == 3 && KX))
434 offset = 0x080;
435 else
436 #endif
437 offset = 0x000;
438 }
439 goto set_EPC;
440 case EXCP_IBE:
441 cause = 6;
442 goto set_EPC;
443 case EXCP_DBE:
444 cause = 7;
445 goto set_EPC;
446 case EXCP_SYSCALL:
447 cause = 8;
448 goto set_EPC;
449 case EXCP_BREAK:
450 cause = 9;
451 goto set_EPC;
452 case EXCP_RI:
453 cause = 10;
454 goto set_EPC;
455 case EXCP_CpU:
456 cause = 11;
457 env->CP0_Cause = (env->CP0_Cause & ~(0x3 << CP0Ca_CE)) |
458 (env->error_code << CP0Ca_CE);
459 goto set_EPC;
460 case EXCP_OVERFLOW:
461 cause = 12;
462 goto set_EPC;
463 case EXCP_TRAP:
464 cause = 13;
465 goto set_EPC;
466 case EXCP_FPE:
467 cause = 15;
468 goto set_EPC;
469 case EXCP_LTLBL:
470 cause = 1;
471 goto set_EPC;
472 case EXCP_TLBS:
473 cause = 3;
474 if (env->error_code == 1 && !(env->CP0_Status & (1 << CP0St_EXL))) {
475 #if defined(TARGET_MIPS64)
476 int R = env->CP0_BadVAddr >> 62;
477 int UX = (env->CP0_Status & (1 << CP0St_UX)) != 0;
478 int SX = (env->CP0_Status & (1 << CP0St_SX)) != 0;
479 int KX = (env->CP0_Status & (1 << CP0St_KX)) != 0;
480
481 if ((R == 0 && UX) || (R == 1 && SX) || (R == 3 && KX))
482 offset = 0x080;
483 else
484 #endif
485 offset = 0x000;
486 }
487 goto set_EPC;
488 case EXCP_THREAD:
489 cause = 25;
490 set_EPC:
491 if (!(env->CP0_Status & (1 << CP0St_EXL))) {
492 if (env->hflags & MIPS_HFLAG_BMASK) {
493 /* If the exception was raised from a delay slot,
494 come back to the jump. */
495 env->CP0_EPC = env->PC[env->current_tc] - 4;
496 env->CP0_Cause |= (1 << CP0Ca_BD);
497 } else {
498 env->CP0_EPC = env->PC[env->current_tc];
499 env->CP0_Cause &= ~(1 << CP0Ca_BD);
500 }
501 env->CP0_Status |= (1 << CP0St_EXL);
502 env->hflags |= MIPS_HFLAG_64 | MIPS_HFLAG_CP0;
503 env->hflags &= ~(MIPS_HFLAG_KSU);
504 }
505 env->hflags &= ~MIPS_HFLAG_BMASK;
506 if (env->CP0_Status & (1 << CP0St_BEV)) {
507 env->PC[env->current_tc] = (int32_t)0xBFC00200;
508 } else {
509 env->PC[env->current_tc] = (int32_t)(env->CP0_EBase & ~0x3ff);
510 }
511 env->PC[env->current_tc] += offset;
512 env->CP0_Cause = (env->CP0_Cause & ~(0x1f << CP0Ca_EC)) | (cause << CP0Ca_EC);
513 break;
514 default:
515 if (logfile) {
516 fprintf(logfile, "Invalid MIPS exception %d. Exiting\n",
517 env->exception_index);
518 }
519 printf("Invalid MIPS exception %d. Exiting\n", env->exception_index);
520 exit(1);
521 }
522 if (logfile && env->exception_index != EXCP_EXT_INTERRUPT) {
523 fprintf(logfile, "%s: PC " TARGET_FMT_lx " EPC " TARGET_FMT_lx " cause %d excp %d\n"
524 " S %08x C %08x A " TARGET_FMT_lx " D " TARGET_FMT_lx "\n",
525 __func__, env->PC[env->current_tc], env->CP0_EPC, cause, env->exception_index,
526 env->CP0_Status, env->CP0_Cause, env->CP0_BadVAddr,
527 env->CP0_DEPC);
528 }
529 env->exception_index = EXCP_NONE;
530 }
531 #endif /* !defined(CONFIG_USER_ONLY) */
532
533 void r4k_invalidate_tlb (CPUState *env, int idx, int use_extra)
534 {
535 r4k_tlb_t *tlb;
536 target_ulong addr;
537 target_ulong end;
538 uint8_t ASID = env->CP0_EntryHi & 0xFF;
539 target_ulong mask;
540
541 tlb = &env->tlb->mmu.r4k.tlb[idx];
542 /* The qemu TLB is flushed when the ASID changes, so no need to
543 flush these entries again. */
544 if (tlb->G == 0 && tlb->ASID != ASID) {
545 return;
546 }
547
548 if (use_extra && env->tlb->tlb_in_use < MIPS_TLB_MAX) {
549 /* For tlbwr, we can shadow the discarded entry into
550 a new (fake) TLB entry, as long as the guest can not
551 tell that it's there. */
552 env->tlb->mmu.r4k.tlb[env->tlb->tlb_in_use] = *tlb;
553 env->tlb->tlb_in_use++;
554 return;
555 }
556
557 /* 1k pages are not supported. */
558 mask = tlb->PageMask | ~(TARGET_PAGE_MASK << 1);
559 if (tlb->V0) {
560 addr = tlb->VPN & ~mask;
561 #if defined(TARGET_MIPS64)
562 if (addr >= (0xFFFFFFFF80000000ULL & env->SEGMask)) {
563 addr |= 0x3FFFFF0000000000ULL;
564 }
565 #endif
566 end = addr | (mask >> 1);
567 while (addr < end) {
568 tlb_flush_page (env, addr);
569 addr += TARGET_PAGE_SIZE;
570 }
571 }
572 if (tlb->V1) {
573 addr = (tlb->VPN & ~mask) | ((mask >> 1) + 1);
574 #if defined(TARGET_MIPS64)
575 if (addr >= (0xFFFFFFFF80000000ULL & env->SEGMask)) {
576 addr |= 0x3FFFFF0000000000ULL;
577 }
578 #endif
579 end = addr | mask;
580 while (addr < end) {
581 tlb_flush_page (env, addr);
582 addr += TARGET_PAGE_SIZE;
583 }
584 }
585 }