Statistics
| Branch: | Revision:

root / target-ppc / gdbstub.c @ 5b50e790

History | View | Annotate | Download (3.8 kB)

1
/*
2
 * PowerPC 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 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 "config.h"
21
#include "qemu-common.h"
22
#include "exec/gdbstub.h"
23

    
24
/* Old gdb always expects FP registers.  Newer (xml-aware) gdb only
25
 * expects whatever the target description contains.  Due to a
26
 * historical mishap the FP registers appear in between core integer
27
 * regs and PC, MSR, CR, and so forth.  We hack round this by giving the
28
 * FP regs zero size when talking to a newer gdb.
29
 */
30

    
31
int ppc_cpu_gdb_read_register(CPUState *cs, uint8_t *mem_buf, int n)
32
{
33
    PowerPCCPU *cpu = POWERPC_CPU(cs);
34
    CPUPPCState *env = &cpu->env;
35

    
36
    if (n < 32) {
37
        /* gprs */
38
        return gdb_get_regl(mem_buf, env->gpr[n]);
39
    } else if (n < 64) {
40
        /* fprs */
41
        if (gdb_has_xml) {
42
            return 0;
43
        }
44
        stfq_p(mem_buf, env->fpr[n-32]);
45
        return 8;
46
    } else {
47
        switch (n) {
48
        case 64:
49
            return gdb_get_regl(mem_buf, env->nip);
50
        case 65:
51
            return gdb_get_regl(mem_buf, env->msr);
52
        case 66:
53
            {
54
                uint32_t cr = 0;
55
                int i;
56
                for (i = 0; i < 8; i++) {
57
                    cr |= env->crf[i] << (32 - ((i + 1) * 4));
58
                }
59
                return gdb_get_reg32(mem_buf, cr);
60
            }
61
        case 67:
62
            return gdb_get_regl(mem_buf, env->lr);
63
        case 68:
64
            return gdb_get_regl(mem_buf, env->ctr);
65
        case 69:
66
            return gdb_get_regl(mem_buf, env->xer);
67
        case 70:
68
            {
69
                if (gdb_has_xml) {
70
                    return 0;
71
                }
72
                return gdb_get_reg32(mem_buf, env->fpscr);
73
            }
74
        }
75
    }
76
    return 0;
77
}
78

    
79
int ppc_cpu_gdb_write_register(CPUState *cs, uint8_t *mem_buf, int n)
80
{
81
    PowerPCCPU *cpu = POWERPC_CPU(cs);
82
    CPUPPCState *env = &cpu->env;
83

    
84
    if (n < 32) {
85
        /* gprs */
86
        env->gpr[n] = ldtul_p(mem_buf);
87
        return sizeof(target_ulong);
88
    } else if (n < 64) {
89
        /* fprs */
90
        if (gdb_has_xml) {
91
            return 0;
92
        }
93
        env->fpr[n-32] = ldfq_p(mem_buf);
94
        return 8;
95
    } else {
96
        switch (n) {
97
        case 64:
98
            env->nip = ldtul_p(mem_buf);
99
            return sizeof(target_ulong);
100
        case 65:
101
            ppc_store_msr(env, ldtul_p(mem_buf));
102
            return sizeof(target_ulong);
103
        case 66:
104
            {
105
                uint32_t cr = ldl_p(mem_buf);
106
                int i;
107
                for (i = 0; i < 8; i++) {
108
                    env->crf[i] = (cr >> (32 - ((i + 1) * 4))) & 0xF;
109
                }
110
                return 4;
111
            }
112
        case 67:
113
            env->lr = ldtul_p(mem_buf);
114
            return sizeof(target_ulong);
115
        case 68:
116
            env->ctr = ldtul_p(mem_buf);
117
            return sizeof(target_ulong);
118
        case 69:
119
            env->xer = ldtul_p(mem_buf);
120
            return sizeof(target_ulong);
121
        case 70:
122
            /* fpscr */
123
            if (gdb_has_xml) {
124
                return 0;
125
            }
126
            store_fpscr(env, ldtul_p(mem_buf), 0xffffffff);
127
            return sizeof(target_ulong);
128
        }
129
    }
130
    return 0;
131
}