target/hppa/gdbstub.c

   1 /*
   2  * HPPA gdb server stub
   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.1 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 #include "cpu.h"
  22 #include "gdbstub/helpers.h"
  23
  24 int hppa_cpu_gdb_read_register(CPUState *cs, GByteArray *mem_buf, int n)
  25 {
  26     HPPACPU *cpu = HPPA_CPU(cs);
  27     CPUHPPAState *env = &cpu->env;
  28     target_ureg val;
  29
  30     switch (n) {
  31     case 0:
  32         val = cpu_hppa_get_psw(env);
  33         break;
  34     case 1 ... 31:
  35         val = env->gr[n];
  36         break;
  37     case 32:
  38         val = env->cr[CR_SAR];
  39         break;
  40     case 33:
  41         val = env->iaoq_f;
  42         break;
  43     case 34:
  44         val = env->iasq_f >> 32;
  45         break;
  46     case 35:
  47         val = env->iaoq_b;
  48         break;
  49     case 36:
  50         val = env->iasq_b >> 32;
  51         break;
  52     case 37:
  53         val = env->cr[CR_EIEM];
  54         break;
  55     case 38:
  56         val = env->cr[CR_IIR];
  57         break;
  58     case 39:
  59         val = env->cr[CR_ISR];
  60         break;
  61     case 40:
  62         val = env->cr[CR_IOR];
  63         break;
  64     case 41:
  65         val = env->cr[CR_IPSW];
  66         break;
  67     case 43:
  68         val = env->sr[4] >> 32;
  69         break;
  70     case 44:
  71         val = env->sr[0] >> 32;
  72         break;
  73     case 45:
  74         val = env->sr[1] >> 32;
  75         break;
  76     case 46:
  77         val = env->sr[2] >> 32;
  78         break;
  79     case 47:
  80         val = env->sr[3] >> 32;
  81         break;
  82     case 48:
  83         val = env->sr[5] >> 32;
  84         break;
  85     case 49:
  86         val = env->sr[6] >> 32;
  87         break;
  88     case 50:
  89         val = env->sr[7] >> 32;
  90         break;
  91     case 51:
  92         val = env->cr[CR_RC];
  93         break;
  94     case 52:
  95         val = env->cr[CR_PID1];
  96         break;
  97     case 53:
  98         val = env->cr[CR_PID2];
  99         break;
 100     case 54:
 101         val = env->cr[CR_SCRCCR];
 102         break;
 103     case 55:
 104         val = env->cr[CR_PID3];
 105         break;
 106     case 56:
 107         val = env->cr[CR_PID4];
 108         break;
 109     case 57:
 110         val = env->cr[24];
 111         break;
 112     case 58:
 113         val = env->cr[25];
 114         break;
 115     case 59:
 116         val = env->cr[26];
 117         break;
 118     case 60:
 119         val = env->cr[27];
 120         break;
 121     case 61:
 122         val = env->cr[28];
 123         break;
 124     case 62:
 125         val = env->cr[29];
 126         break;
 127     case 63:
 128         val = env->cr[30];
 129         break;
 130     case 64 ... 127:
 131         val = extract64(env->fr[(n - 64) / 2], (n & 1 ? 0 : 32), 32);
 132         break;
 133     default:
 134         if (n < 128) {
 135             val = 0;
 136         } else {
 137             return 0;
 138         }
 139         break;
 140     }
 141
 142     if (TARGET_REGISTER_BITS == 64) {
 143         return gdb_get_reg64(mem_buf, val);
 144     } else {
 145         return gdb_get_reg32(mem_buf, val);
 146     }
 147 }
 148
 149 int hppa_cpu_gdb_write_register(CPUState *cs, uint8_t *mem_buf, int n)
 150 {
 151     HPPACPU *cpu = HPPA_CPU(cs);
 152     CPUHPPAState *env = &cpu->env;
 153     target_ureg val;
 154
 155     if (TARGET_REGISTER_BITS == 64) {
 156         val = ldq_p(mem_buf);
 157     } else {
 158         val = ldl_p(mem_buf);
 159     }
 160
 161     switch (n) {
 162     case 0:
 163         cpu_hppa_put_psw(env, val);
 164         break;
 165     case 1 ... 31:
 166         env->gr[n] = val;
 167         break;
 168     case 32:
 169         env->cr[CR_SAR] = val;
 170         break;
 171     case 33:
 172         env->iaoq_f = val;
 173         break;
 174     case 34:
 175         env->iasq_f = (uint64_t)val << 32;
 176         break;
 177     case 35:
 178         env->iaoq_b = val;
 179         break;
 180     case 36:
 181         env->iasq_b = (uint64_t)val << 32;
 182         break;
 183     case 37:
 184         env->cr[CR_EIEM] = val;
 185         break;
 186     case 38:
 187         env->cr[CR_IIR] = val;
 188         break;
 189     case 39:
 190         env->cr[CR_ISR] = val;
 191         break;
 192     case 40:
 193         env->cr[CR_IOR] = val;
 194         break;
 195     case 41:
 196         env->cr[CR_IPSW] = val;
 197         break;
 198     case 43:
 199         env->sr[4] = (uint64_t)val << 32;
 200         break;
 201     case 44:
 202         env->sr[0] = (uint64_t)val << 32;
 203         break;
 204     case 45:
 205         env->sr[1] = (uint64_t)val << 32;
 206         break;
 207     case 46:
 208         env->sr[2] = (uint64_t)val << 32;
 209         break;
 210     case 47:
 211         env->sr[3] = (uint64_t)val << 32;
 212         break;
 213     case 48:
 214         env->sr[5] = (uint64_t)val << 32;
 215         break;
 216     case 49:
 217         env->sr[6] = (uint64_t)val << 32;
 218         break;
 219     case 50:
 220         env->sr[7] = (uint64_t)val << 32;
 221         break;
 222     case 51:
 223         env->cr[CR_RC] = val;
 224         break;
 225     case 52:
 226         env->cr[CR_PID1] = val;
 227         cpu_hppa_change_prot_id(env);
 228         break;
 229     case 53:
 230         env->cr[CR_PID2] = val;
 231         cpu_hppa_change_prot_id(env);
 232         break;
 233     case 54:
 234         env->cr[CR_SCRCCR] = val;
 235         break;
 236     case 55:
 237         env->cr[CR_PID3] = val;
 238         cpu_hppa_change_prot_id(env);
 239         break;
 240     case 56:
 241         env->cr[CR_PID4] = val;
 242         cpu_hppa_change_prot_id(env);
 243         break;
 244     case 57:
 245         env->cr[24] = val;
 246         break;
 247     case 58:
 248         env->cr[25] = val;
 249         break;
 250     case 59:
 251         env->cr[26] = val;
 252         break;
 253     case 60:
 254         env->cr[27] = val;
 255         break;
 256     case 61:
 257         env->cr[28] = val;
 258         break;
 259     case 62:
 260         env->cr[29] = val;
 261         break;
 262     case 63:
 263         env->cr[30] = val;
 264         break;
 265     case 64:
 266         env->fr[0] = deposit64(env->fr[0], 32, 32, val);
 267         cpu_hppa_loaded_fr0(env);
 268         break;
 269     case 65 ... 127:
 270         {
 271             uint64_t *fr = &env->fr[(n - 64) / 2];
 272             *fr = deposit64(*fr, (n & 1 ? 0 : 32), 32, val);
 273         }
 274         break;
 275     default:
 276         if (n >= 128) {
 277             return 0;
 278         }
 279         break;
 280     }
 281     return sizeof(target_ureg);
 282 }