1/* Target-dependent code for Solaris UltraSPARC.
2
3   Copyright (C) 2003-2023 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 "frame.h"
22#include "frame-unwind.h"
23#include "gdbarch.h"
24#include "symtab.h"
25#include "objfiles.h"
26#include "osabi.h"
27#include "trad-frame.h"
28#include "regset.h"
29
30#include "sol2-tdep.h"
31#include "sparc64-tdep.h"
32#include "solib-svr4.h"
33
34/* From <sys/regset.h>.  */
35const struct sparc_gregmap sparc64_sol2_gregmap =
36{
37  32 * 8,			/* "tstate" */
38  33 * 8,			/* %pc */
39  34 * 8,			/* %npc */
40  35 * 8,			/* %y */
41  -1,				/* %wim */
42  -1,				/* %tbr */
43  1 * 8,			/* %g1 */
44  16 * 8,			/* %l0 */
45  8				/* sizeof (%y) */
46};
47
48const struct sparc_fpregmap sparc64_sol2_fpregmap =
49{
50  0 * 8,			/* %f0 */
51  33 * 8,			/* %fsr */
52};
53
54static void
55sparc64_sol2_supply_core_gregset (const struct regset *regset,
56				  struct regcache *regcache,
57				  int regnum, const void *gregs, size_t len)
58{
59  sparc64_supply_gregset (&sparc64_sol2_gregmap, regcache, regnum, gregs);
60}
61
62static void
63sparc64_sol2_collect_core_gregset (const struct regset *regset,
64				   const struct regcache *regcache,
65				   int regnum, void *gregs, size_t len)
66{
67  sparc64_collect_gregset (&sparc64_sol2_gregmap, regcache, regnum, gregs);
68}
69
70static void
71sparc64_sol2_supply_core_fpregset (const struct regset *regset,
72				   struct regcache *regcache,
73				   int regnum, const void *fpregs, size_t len)
74{
75  sparc64_supply_fpregset (&sparc64_sol2_fpregmap, regcache, regnum, fpregs);
76}
77
78static void
79sparc64_sol2_collect_core_fpregset (const struct regset *regset,
80				    const struct regcache *regcache,
81				    int regnum, void *fpregs, size_t len)
82{
83  sparc64_collect_fpregset (&sparc64_sol2_fpregmap, regcache, regnum, fpregs);
84}
85
86static const struct regset sparc64_sol2_gregset =
87  {
88    NULL,
89    sparc64_sol2_supply_core_gregset,
90    sparc64_sol2_collect_core_gregset
91  };
92
93static const struct regset sparc64_sol2_fpregset =
94  {
95    NULL,
96    sparc64_sol2_supply_core_fpregset,
97    sparc64_sol2_collect_core_fpregset
98  };
99
100
101static struct sparc_frame_cache *
102sparc64_sol2_sigtramp_frame_cache (frame_info_ptr this_frame,
103				   void **this_cache)
104{
105  struct sparc_frame_cache *cache;
106  CORE_ADDR mcontext_addr, addr;
107  int regnum;
108
109  if (*this_cache)
110    return (struct sparc_frame_cache *) *this_cache;
111
112  cache = sparc_frame_cache (this_frame, this_cache);
113  gdb_assert (cache == *this_cache);
114
115  cache->saved_regs = trad_frame_alloc_saved_regs (this_frame);
116
117  /* The third argument is a pointer to an instance of `ucontext_t',
118     which has a member `uc_mcontext' that contains the saved
119     registers.  */
120  regnum =
121    (cache->copied_regs_mask & 0x04) ? SPARC_I2_REGNUM : SPARC_O2_REGNUM;
122  mcontext_addr = get_frame_register_unsigned (this_frame, regnum) + 64;
123
124  cache->saved_regs[SPARC64_CCR_REGNUM].set_addr (mcontext_addr + 0 * 8);
125  cache->saved_regs[SPARC64_PC_REGNUM].set_addr (mcontext_addr + 1 * 8);
126  cache->saved_regs[SPARC64_NPC_REGNUM].set_addr (mcontext_addr + 2 * 8);
127  cache->saved_regs[SPARC64_Y_REGNUM].set_addr (mcontext_addr + 3 * 8);
128  cache->saved_regs[SPARC64_ASI_REGNUM].set_addr (mcontext_addr + 19 * 8);
129  cache->saved_regs[SPARC64_FPRS_REGNUM].set_addr (mcontext_addr + 20 * 8);
130
131  /* Since %g0 is always zero, keep the identity encoding.  */
132  for (regnum = SPARC_G1_REGNUM, addr = mcontext_addr + 4 * 8;
133       regnum <= SPARC_O7_REGNUM; regnum++, addr += 8)
134    cache->saved_regs[regnum].set_addr (addr);
135
136  if (get_frame_memory_unsigned (this_frame, mcontext_addr + 21 * 8, 8))
137    {
138      /* The register windows haven't been flushed.  */
139      for (regnum = SPARC_L0_REGNUM; regnum <= SPARC_I7_REGNUM; regnum++)
140	cache->saved_regs[regnum].set_unknown ();
141    }
142  else
143    {
144      CORE_ADDR sp;
145
146      addr = cache->saved_regs[SPARC_SP_REGNUM].addr ();
147      sp = get_frame_memory_unsigned (this_frame, addr, 8);
148      for (regnum = SPARC_L0_REGNUM, addr = sp + BIAS;
149	   regnum <= SPARC_I7_REGNUM; regnum++, addr += 8)
150	cache->saved_regs[regnum].set_addr (addr);
151    }
152
153  return cache;
154}
155
156static void
157sparc64_sol2_sigtramp_frame_this_id (frame_info_ptr this_frame,
158				     void **this_cache,
159				     struct frame_id *this_id)
160{
161  struct sparc_frame_cache *cache =
162    sparc64_sol2_sigtramp_frame_cache (this_frame, this_cache);
163
164  (*this_id) = frame_id_build (cache->base, cache->pc);
165}
166
167static struct value *
168sparc64_sol2_sigtramp_frame_prev_register (frame_info_ptr this_frame,
169					   void **this_cache,
170					   int regnum)
171{
172  struct sparc_frame_cache *cache =
173    sparc64_sol2_sigtramp_frame_cache (this_frame, this_cache);
174
175  return trad_frame_get_prev_register (this_frame, cache->saved_regs, regnum);
176}
177
178static int
179sparc64_sol2_sigtramp_frame_sniffer (const struct frame_unwind *self,
180				     frame_info_ptr this_frame,
181				     void **this_cache)
182{
183  return sol2_sigtramp_p (this_frame);
184}
185
186static const struct frame_unwind sparc64_sol2_sigtramp_frame_unwind =
187{
188  "sparc64 solaris sigtramp",
189  SIGTRAMP_FRAME,
190  default_frame_unwind_stop_reason,
191  sparc64_sol2_sigtramp_frame_this_id,
192  sparc64_sol2_sigtramp_frame_prev_register,
193  NULL,
194  sparc64_sol2_sigtramp_frame_sniffer
195};
196
197
198
199static void
200sparc64_sol2_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
201{
202  sparc_gdbarch_tdep *tdep = gdbarch_tdep<sparc_gdbarch_tdep> (gdbarch);
203
204  tdep->gregset = &sparc64_sol2_gregset;
205  tdep->sizeof_gregset = 304;
206
207  tdep->fpregset = &sparc64_sol2_fpregset;
208  tdep->sizeof_fpregset = 544;
209
210  frame_unwind_append_unwinder (gdbarch, &sparc64_sol2_sigtramp_frame_unwind);
211
212  sparc64_init_abi (info, gdbarch);
213
214  sol2_init_abi (info, gdbarch);
215
216  /* Solaris has SVR4-style shared libraries...  */
217  set_gdbarch_skip_trampoline_code (gdbarch, find_solib_trampoline_target);
218  set_solib_svr4_fetch_link_map_offsets
219    (gdbarch, svr4_lp64_fetch_link_map_offsets);
220
221  /* ...which means that we need some special handling when doing
222     prologue analysis.  */
223  tdep->plt_entry_size = 16;
224
225  /* Solaris has kernel-assisted single-stepping support.  */
226  set_gdbarch_software_single_step (gdbarch, NULL);
227}
228
229void _initialize_sparc64_sol2_tdep ();
230void
231_initialize_sparc64_sol2_tdep ()
232{
233  gdbarch_register_osabi (bfd_arch_sparc, bfd_mach_sparc_v9,
234			  GDB_OSABI_SOLARIS, sparc64_sol2_init_abi);
235}
236