OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

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

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

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