1 /* 2 * Alpha gdb server stub 3 * 4 * Copyright (c) 2003-2005 Fabrice Bellard 5 * Copyright (c) 2013 SUSE LINUX Products GmbH 6 * 7 * This library is free software; you can redistribute it and/or 8 * modify it under the terms of the GNU Lesser General Public 9 * License as published by the Free Software Foundation; either 10 * version 2.1 of the License, or (at your option) any later version. 11 * 12 * This library is distributed in the hope that it will be useful, 13 * but WITHOUT ANY WARRANTY; without even the implied warranty of 14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 15 * Lesser General Public License for more details. 16 * 17 * You should have received a copy of the GNU Lesser General Public 18 * License along with this library; if not, see <http://www.gnu.org/licenses/>. 19 */ 20 #include "qemu/osdep.h" 21 #include "cpu.h" 22 #include "gdbstub/helpers.h" 23 24 int alpha_cpu_gdb_read_register(CPUState *cs, GByteArray *mem_buf, int n) 25 { 26 AlphaCPU *cpu = ALPHA_CPU(cs); 27 CPUAlphaState *env = &cpu->env; 28 uint64_t val; 29 CPU_DoubleU d; 30 31 switch (n) { 32 case 0 ... 30: 33 val = cpu_alpha_load_gr(env, n); 34 break; 35 case 32 ... 62: 36 d.d = env->fir[n - 32]; 37 val = d.ll; 38 break; 39 case 63: 40 val = cpu_alpha_load_fpcr(env); 41 break; 42 case 64: 43 val = env->pc; 44 break; 45 case 66: 46 val = env->unique; 47 break; 48 case 31: 49 case 65: 50 /* 31 really is the zero register; 65 is unassigned in the 51 gdb protocol, but is still required to occupy 8 bytes. */ 52 val = 0; 53 break; 54 default: 55 return 0; 56 } 57 return gdb_get_regl(mem_buf, val); 58 } 59 60 int alpha_cpu_gdb_write_register(CPUState *cs, uint8_t *mem_buf, int n) 61 { 62 AlphaCPU *cpu = ALPHA_CPU(cs); 63 CPUAlphaState *env = &cpu->env; 64 target_ulong tmp = ldtul_p(mem_buf); 65 CPU_DoubleU d; 66 67 switch (n) { 68 case 0 ... 30: 69 cpu_alpha_store_gr(env, n, tmp); 70 break; 71 case 32 ... 62: 72 d.ll = tmp; 73 env->fir[n - 32] = d.d; 74 break; 75 case 63: 76 cpu_alpha_store_fpcr(env, tmp); 77 break; 78 case 64: 79 env->pc = tmp; 80 break; 81 case 66: 82 env->unique = tmp; 83 break; 84 case 31: 85 case 65: 86 /* 31 really is the zero register; 65 is unassigned in the 87 gdb protocol, but is still required to occupy 8 bytes. */ 88 break; 89 default: 90 return 0; 91 } 92 return 8; 93 } 94