target/hppa/helper.c

   1 /*
   2  *  HPPA emulation cpu helpers for qemu.
   3  *
   4  * Copyright (c) 2016 Richard Henderson <rth@twiddle.net>
   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, see <http://www.gnu.org/licenses/>.
  18  */
  19
  20 #include "qemu/osdep.h"
  21
  22 #include "cpu.h"
  23 #include "exec/exec-all.h"
  24 #include "fpu/softfloat.h"
  25 #include "exec/helper-proto.h"
  26
  27 target_ulong cpu_hppa_get_psw(CPUHPPAState *env)
  28 {
  29     target_ulong psw;
  30
  31     /* Fold carry bits down to 8 consecutive bits.  */
  32     /* ??? Needs tweaking for hppa64.  */
  33     /* .......b...c...d...e...f...g...h */
  34     psw = (env->psw_cb >> 4) & 0x01111111;
  35     /* .......b..bc..cd..de..ef..fg..gh */
  36     psw |= psw >> 3;
  37     /* .............bcd............efgh */
  38     psw |= (psw >> 6) & 0x000f000f;
  39     /* .........................bcdefgh */
  40     psw |= (psw >> 12) & 0xf;
  41     psw |= env->psw_cb_msb << 7;
  42     psw <<= 8;
  43
  44     psw |= env->psw_n << 21;
  45     psw |= (env->psw_v < 0) << 17;
  46
  47     return psw;
  48 }
  49
  50 void cpu_hppa_put_psw(CPUHPPAState *env, target_ulong psw)
  51 {
  52     target_ulong cb = 0;
  53
  54     env->psw_n = (psw >> 21) & 1;
  55     env->psw_v = -((psw >> 17) & 1);
  56     env->psw_cb_msb = (psw >> 15) & 1;
  57
  58     cb |= ((psw >> 14) & 1) << 28;
  59     cb |= ((psw >> 13) & 1) << 24;
  60     cb |= ((psw >> 12) & 1) << 20;
  61     cb |= ((psw >> 11) & 1) << 16;
  62     cb |= ((psw >> 10) & 1) << 12;
  63     cb |= ((psw >>  9) & 1) <<  8;
  64     cb |= ((psw >>  8) & 1) <<  4;
  65     env->psw_cb = cb;
  66 }
  67
  68 int hppa_cpu_handle_mmu_fault(CPUState *cs, vaddr address,
  69                               int rw, int mmu_idx)
  70 {
  71     HPPACPU *cpu = HPPA_CPU(cs);
  72
  73     cs->exception_index = EXCP_SIGSEGV;
  74     cpu->env.ior = address;
  75     return 1;
  76 }
  77
  78 void hppa_cpu_do_interrupt(CPUState *cs)
  79 {
  80     HPPACPU *cpu = HPPA_CPU(cs);
  81     CPUHPPAState *env = &cpu->env;
  82     int i = cs->exception_index;
  83
  84     if (qemu_loglevel_mask(CPU_LOG_INT)) {
  85         static int count;
  86         const char *name = "<unknown>";
  87
  88         switch (i) {
  89         case EXCP_SYSCALL:
  90             name = "syscall";
  91             break;
  92         case EXCP_SIGSEGV:
  93             name = "sigsegv";
  94             break;
  95         case EXCP_SIGILL:
  96             name = "sigill";
  97             break;
  98         case EXCP_SIGFPE:
  99             name = "sigfpe";
 100             break;
 101         }
 102         qemu_log("INT %6d: %s ia_f=" TARGET_FMT_lx "\n",
 103                  ++count, name, env->iaoq_f);
 104     }
 105     cs->exception_index = -1;
 106 }
 107
 108 bool hppa_cpu_exec_interrupt(CPUState *cs, int interrupt_request)
 109 {
 110     abort();
 111     return false;
 112 }
 113
 114 void hppa_cpu_dump_state(CPUState *cs, FILE *f,
 115                          fprintf_function cpu_fprintf, int flags)
 116 {
 117     HPPACPU *cpu = HPPA_CPU(cs);
 118     CPUHPPAState *env = &cpu->env;
 119     int i;
 120
 121     cpu_fprintf(f, "IA_F " TARGET_FMT_lx
 122                    " IA_B " TARGET_FMT_lx
 123                    " PSW  " TARGET_FMT_lx
 124                    " [N:" TARGET_FMT_ld " V:%d"
 125                    " CB:" TARGET_FMT_lx "]\n              ",
 126                 env->iaoq_f, env->iaoq_b, cpu_hppa_get_psw(env),
 127                 env->psw_n, env->psw_v < 0,
 128                 ((env->psw_cb >> 4) & 0x01111111) | (env->psw_cb_msb << 28));
 129     for (i = 1; i < 32; i++) {
 130         cpu_fprintf(f, "GR%02d " TARGET_FMT_lx " ", i, env->gr[i]);
 131         if ((i % 4) == 3) {
 132             cpu_fprintf(f, "\n");
 133         }
 134     }
 135
 136     /* ??? FR */
 137 }