1/* Target-dependent code for Solaris UltraSPARC.
2
3   Copyright 2003, 2004 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 2 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, write to the Free Software
19   Foundation, Inc., 59 Temple Place - Suite 330,
20   Boston, MA 02111-1307, USA.  */
21
22#include "defs.h"
23#include "frame.h"
24#include "frame-unwind.h"
25#include "gdbarch.h"
26#include "symtab.h"
27#include "objfiles.h"
28#include "osabi.h"
29#include "trad-frame.h"
30
31#include "gdb_assert.h"
32
33#include "sparc64-tdep.h"
34
35/* From <sys/regset.h>.  */
36const struct sparc_gregset sparc64_sol2_gregset =
37{
38  32 * 8,			/* "tstate" */
39  33 * 8,			/* %pc */
40  34 * 8,			/* %npc */
41  35 * 8,			/* %y */
42  -1,				/* %wim */
43  -1,				/* %tbr */
44  1 * 8,			/* %g1 */
45  16 * 8,			/* %l0 */
46  8				/* sizeof (%y) */
47};
48
49
50static struct sparc_frame_cache *
51sparc64_sol2_sigtramp_frame_cache (struct frame_info *next_frame,
52				   void **this_cache)
53{
54  struct sparc_frame_cache *cache;
55  CORE_ADDR mcontext_addr, addr;
56  int regnum;
57
58  if (*this_cache)
59    return *this_cache;
60
61  cache = sparc_frame_cache (next_frame, this_cache);
62  gdb_assert (cache == *this_cache);
63
64  cache->saved_regs = trad_frame_alloc_saved_regs (next_frame);
65
66  /* The third argument is a pointer to an instance of `ucontext_t',
67     which has a member `uc_mcontext' that contains the saved
68     registers.  */
69  regnum = (cache->frameless_p ? SPARC_O2_REGNUM : SPARC_I2_REGNUM);
70  mcontext_addr = frame_unwind_register_unsigned (next_frame, regnum) + 64;
71
72  cache->saved_regs[SPARC64_CCR_REGNUM].addr = mcontext_addr + 0 * 8;
73  cache->saved_regs[SPARC64_PC_REGNUM].addr = mcontext_addr + 1 * 8;
74  cache->saved_regs[SPARC64_NPC_REGNUM].addr = mcontext_addr + 2 * 8;
75  cache->saved_regs[SPARC64_Y_REGNUM].addr = mcontext_addr + 3 * 8;
76  cache->saved_regs[SPARC64_ASI_REGNUM].addr = mcontext_addr + 19 * 8;
77  cache->saved_regs[SPARC64_FPRS_REGNUM].addr = mcontext_addr + 20 * 8;
78
79  /* Since %g0 is always zero, keep the identity encoding.  */
80  for (regnum = SPARC_G1_REGNUM, addr = mcontext_addr + 4 * 8;
81       regnum <= SPARC_O7_REGNUM; regnum++, addr += 8)
82    cache->saved_regs[regnum].addr = addr;
83
84  if (get_frame_memory_unsigned (next_frame, mcontext_addr + 21 * 8, 8))
85    {
86      /* The register windows haven't been flushed.  */
87      for (regnum = SPARC_L0_REGNUM; regnum <= SPARC_I7_REGNUM; regnum++)
88	trad_frame_set_unknown (cache->saved_regs, regnum);
89    }
90  else
91    {
92      CORE_ADDR sp;
93
94      addr = cache->saved_regs[SPARC_SP_REGNUM].addr;
95      sp = get_frame_memory_unsigned (next_frame, addr, 8);
96      for (regnum = SPARC_L0_REGNUM, addr = sp + BIAS;
97	   regnum <= SPARC_I7_REGNUM; regnum++, addr += 8)
98	cache->saved_regs[regnum].addr = addr;
99    }
100
101  return cache;
102}
103
104static void
105sparc64_sol2_sigtramp_frame_this_id (struct frame_info *next_frame,
106				     void **this_cache,
107				     struct frame_id *this_id)
108{
109  struct sparc_frame_cache *cache =
110    sparc64_sol2_sigtramp_frame_cache (next_frame, this_cache);
111
112  (*this_id) = frame_id_build (cache->base, cache->pc);
113}
114
115static void
116sparc64_sol2_sigtramp_frame_prev_register (struct frame_info *next_frame,
117					   void **this_cache,
118					   int regnum, int *optimizedp,
119					   enum lval_type *lvalp,
120					   CORE_ADDR *addrp,
121					   int *realnump, void *valuep)
122{
123  struct sparc_frame_cache *cache =
124    sparc64_sol2_sigtramp_frame_cache (next_frame, this_cache);
125
126  trad_frame_prev_register (next_frame, cache->saved_regs, regnum,
127			    optimizedp, lvalp, addrp, realnump, valuep);
128}
129
130static const struct frame_unwind sparc64_sol2_sigtramp_frame_unwind =
131{
132  SIGTRAMP_FRAME,
133  sparc64_sol2_sigtramp_frame_this_id,
134  sparc64_sol2_sigtramp_frame_prev_register
135};
136
137static const struct frame_unwind *
138sparc64_sol2_sigtramp_frame_sniffer (struct frame_info *next_frame)
139{
140  CORE_ADDR pc = frame_pc_unwind (next_frame);
141  char *name;
142
143  find_pc_partial_function (pc, &name, NULL, NULL);
144  if (sparc_sol2_pc_in_sigtramp (pc, name))
145    return &sparc64_sol2_sigtramp_frame_unwind;
146
147  return NULL;
148}
149
150
151void
152sparc64_sol2_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
153{
154  struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
155
156  set_gdbarch_pc_in_sigtramp (gdbarch, sparc_sol2_pc_in_sigtramp);
157  frame_unwind_append_sniffer (gdbarch, sparc64_sol2_sigtramp_frame_sniffer);
158
159  sparc64_init_abi (info, gdbarch);
160
161  /* Solaris has SVR4-style shared libraries...  */
162  set_gdbarch_in_solib_call_trampoline (gdbarch, in_plt_section);
163  set_gdbarch_skip_trampoline_code (gdbarch, find_solib_trampoline_target);
164
165  /* ...which means that we need some special handling when doing
166     prologue analysis.  */
167  tdep->plt_entry_size = 16;
168
169  /* Solaris has kernel-assisted single-stepping support.  */
170  set_gdbarch_software_single_step (gdbarch, NULL);
171}
172
173
174/* Provide a prototype to silence -Wmissing-prototypes.  */
175void _initialize_sparc64_sol2_tdep (void);
176
177void
178_initialize_sparc64_sol2_tdep (void)
179{
180  gdbarch_register_osabi (bfd_arch_sparc, bfd_mach_sparc_v9,
181			  GDB_OSABI_SOLARIS, sparc64_sol2_init_abi);
182}
183