OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [gdb/] [alpha-nat.c] - Blame information for rev 24

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
/* Low level Alpha interface, for GDB when running native.
2
   Copyright (C) 1993, 1995, 1996, 1998, 1999, 2000, 2001, 2003, 2007, 2008
3
   Free Software Foundation, Inc.
4
 
5
   This file is part of GDB.
6
 
7
   This program is free software; you can redistribute it and/or modify
8
   it under the terms of the GNU General Public License as published by
9
   the Free Software Foundation; either version 3 of the License, or
10
   (at your option) any later version.
11
 
12
   This program 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
15
   GNU General Public License for more details.
16
 
17
   You should have received a copy of the GNU General Public License
18
   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
19
 
20
#include "defs.h"
21
#include "gdb_string.h"
22
#include "inferior.h"
23
#include "gdbcore.h"
24
#include "target.h"
25
#include "regcache.h"
26
 
27
#include "alpha-tdep.h"
28
 
29
#include <sys/ptrace.h>
30
#include <alpha/coreregs.h>
31
#include <sys/user.h>
32
 
33
 
34
/* Extract the register values out of the core file and store
35
   them into REGCACHE.
36
 
37
   CORE_REG_SECT points to the register values themselves, read into memory.
38
   CORE_REG_SIZE is the size of that area.
39
   WHICH says which set of registers we are handling (0 = int, 2 = float
40
   on machines where they are discontiguous).
41
   REG_ADDR is the offset from u.u_ar0 to the register values relative to
42
   core_reg_sect.  This is used with old-fashioned core files to
43
   locate the registers in a large upage-plus-stack ".reg" section.
44
   Original upage address X is at location core_reg_sect+x+reg_addr.
45
 */
46
 
47
static void
48
fetch_osf_core_registers (struct regcache *regcache,
49
                          char *core_reg_sect, unsigned core_reg_size,
50
                          int which, CORE_ADDR reg_addr)
51
{
52
  struct gdbarch *gdbarch = get_regcache_arch (regcache);
53
  int regno;
54
  int addr;
55
  int bad_reg = -1;
56
 
57
  /* Table to map a gdb regnum to an index in the core register
58
     section.  The floating point register values are garbage in
59
     OSF/1.2 core files.  OSF5 uses different names for the register
60
     enum list, need to handle two cases.  The actual values are the
61
     same.  */
62
  static int const core_reg_mapping[ALPHA_NUM_REGS] =
63
  {
64
#ifdef NCF_REGS
65
#define EFL NCF_REGS
66
    CF_V0, CF_T0, CF_T1, CF_T2, CF_T3, CF_T4, CF_T5, CF_T6,
67
    CF_T7, CF_S0, CF_S1, CF_S2, CF_S3, CF_S4, CF_S5, CF_S6,
68
    CF_A0, CF_A1, CF_A2, CF_A3, CF_A4, CF_A5, CF_T8, CF_T9,
69
    CF_T10, CF_T11, CF_RA, CF_T12, CF_AT, CF_GP, CF_SP, -1,
70
    EFL + 0, EFL + 1, EFL + 2, EFL + 3, EFL + 4, EFL + 5, EFL + 6, EFL + 7,
71
    EFL + 8, EFL + 9, EFL + 10, EFL + 11, EFL + 12, EFL + 13, EFL + 14, EFL + 15,
72
    EFL + 16, EFL + 17, EFL + 18, EFL + 19, EFL + 20, EFL + 21, EFL + 22, EFL + 23,
73
    EFL + 24, EFL + 25, EFL + 26, EFL + 27, EFL + 28, EFL + 29, EFL + 30, EFL + 31,
74
    CF_PC, -1, -1
75
#else
76
#define EFL (EF_SIZE / 8)
77
    EF_V0, EF_T0, EF_T1, EF_T2, EF_T3, EF_T4, EF_T5, EF_T6,
78
    EF_T7, EF_S0, EF_S1, EF_S2, EF_S3, EF_S4, EF_S5, EF_S6,
79
    EF_A0, EF_A1, EF_A2, EF_A3, EF_A4, EF_A5, EF_T8, EF_T9,
80
    EF_T10, EF_T11, EF_RA, EF_T12, EF_AT, EF_GP, EF_SP, -1,
81
    EFL + 0, EFL + 1, EFL + 2, EFL + 3, EFL + 4, EFL + 5, EFL + 6, EFL + 7,
82
    EFL + 8, EFL + 9, EFL + 10, EFL + 11, EFL + 12, EFL + 13, EFL + 14, EFL + 15,
83
    EFL + 16, EFL + 17, EFL + 18, EFL + 19, EFL + 20, EFL + 21, EFL + 22, EFL + 23,
84
    EFL + 24, EFL + 25, EFL + 26, EFL + 27, EFL + 28, EFL + 29, EFL + 30, EFL + 31,
85
    EF_PC, -1, -1
86
#endif
87
  };
88
 
89
  for (regno = 0; regno < ALPHA_NUM_REGS; regno++)
90
    {
91
      if (gdbarch_cannot_fetch_register (gdbarch, regno))
92
        {
93
          regcache_raw_supply (regcache, regno, NULL);
94
          continue;
95
        }
96
      addr = 8 * core_reg_mapping[regno];
97
      if (addr < 0 || addr >= core_reg_size)
98
        {
99
          /* ??? UNIQUE is a new addition.  Don't generate an error.  */
100
          if (regno == ALPHA_UNIQUE_REGNUM)
101
            {
102
              regcache_raw_supply (regcache, regno, NULL);
103
              continue;
104
            }
105
          if (bad_reg < 0)
106
            bad_reg = regno;
107
        }
108
      else
109
        {
110
          regcache_raw_supply (regcache, regno, core_reg_sect + addr);
111
        }
112
    }
113
  if (bad_reg >= 0)
114
    {
115
      error (_("Register %s not found in core file."),
116
             gdbarch_register_name (gdbarch, bad_reg));
117
    }
118
}
119
 
120
 
121
#include <sys/procfs.h>
122
/* Prototypes for supply_gregset etc. */
123
#include "gregset.h"
124
 
125
/*
126
 * See the comment in m68k-tdep.c regarding the utility of these functions.
127
 */
128
 
129
void
130
supply_gregset (struct regcache *regcache, const gdb_gregset_t *gregsetp)
131
{
132
  const long *regp = gregsetp->regs;
133
 
134
  /* PC is in slot 32.  */
135
  alpha_supply_int_regs (regcache, -1, regp, regp + 31, NULL);
136
}
137
 
138
void
139
fill_gregset (const struct regcache *regcache,
140
              gdb_gregset_t *gregsetp, int regno)
141
{
142
  long *regp = gregsetp->regs;
143
 
144
  /* PC is in slot 32.  */
145
  alpha_fill_int_regs (regcache, regno, regp, regp + 31, NULL);
146
}
147
 
148
/*
149
 * Now we do the same thing for floating-point registers.
150
 * Again, see the comments in m68k-tdep.c.
151
 */
152
 
153
void
154
supply_fpregset (struct regcache *regcache, const gdb_fpregset_t *fpregsetp)
155
{
156
  const long *regp = fpregsetp->regs;
157
 
158
  /* FPCR is in slot 32.  */
159
  alpha_supply_fp_regs (regcache, -1, regp, regp + 31);
160
}
161
 
162
void
163
fill_fpregset (const struct regcache *regcache,
164
               gdb_fpregset_t *fpregsetp, int regno)
165
{
166
  long *regp = fpregsetp->regs;
167
 
168
  /* FPCR is in slot 32.  */
169
  alpha_fill_fp_regs (regcache, regno, regp, regp + 31);
170
}
171
 
172
 
173
/* Register that we are able to handle alpha core file formats. */
174
 
175
static struct core_fns alpha_osf_core_fns =
176
{
177
  /* This really is bfd_target_unknown_flavour.  */
178
 
179
  bfd_target_unknown_flavour,           /* core_flavour */
180
  default_check_format,                 /* check_format */
181
  default_core_sniffer,                 /* core_sniffer */
182
  fetch_osf_core_registers,             /* core_read_registers */
183
  NULL                                  /* next */
184
};
185
 
186
void
187
_initialize_core_alpha (void)
188
{
189
  deprecated_add_core_fns (&alpha_osf_core_fns);
190
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.