binutils-gdb/gdb/ia64-vms-tdep.c
Simon Marchi 99d9c3b92c gdb: remove target_gdbarch
This function is just a wrapper around the current inferior's gdbarch.
I find that having that wrapper just obscures where the arch is coming
from, and that it's often used as "I don't know which arch to use so
I'll use this magical target_gdbarch function that gets me an arch" when
the arch should in fact come from something in the context (a thread,
objfile, symbol, etc).  I think that removing it and inlining
`current_inferior ()->arch ()` everywhere will make it a bit clearer
where that arch comes from and will trigger people into reflecting
whether this is the right place to get the arch or not.

Change-Id: I79f14b4e4934c88f91ca3a3155f5fc3ea2fadf6b
Reviewed-By: John Baldwin <jhb@FreeBSD.org>
Approved-By: Andrew Burgess <aburgess@redhat.com>
2023-10-10 10:44:35 -04:00

164 lines
5.0 KiB
C

/* Target-dependent code for OpenVMS IA-64.
Copyright (C) 2012-2023 Free Software Foundation, Inc.
This file is part of GDB.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include "defs.h"
#include "frame-unwind.h"
#include "ia64-tdep.h"
#include "osabi.h"
#include "gdbtypes.h"
#include "gdbcore.h"
#include "gdbarch.h"
#ifdef HAVE_LIBUNWIND_IA64_H
/* Libunwind callback accessor function to acquire procedure unwind-info. */
static int
ia64_vms_find_proc_info_x (unw_addr_space_t as, unw_word_t ip,
unw_proc_info_t *pi,
int need_unwind_info, void *arg)
{
bfd_endian byte_order = gdbarch_byte_order (current_inferior ()->arch ());
gdb_byte buf[32];
const char *annex = core_addr_to_string (ip);
LONGEST res;
CORE_ADDR table_addr;
unsigned int info_len;
res = target_read (current_inferior ()->top_target (),
TARGET_OBJECT_OPENVMS_UIB,
annex + 2, buf, 0, sizeof (buf));
if (res != sizeof (buf))
return -UNW_ENOINFO;
pi->format = UNW_INFO_FORMAT_REMOTE_TABLE;
pi->start_ip = extract_unsigned_integer (buf + 0, 8, byte_order);
pi->end_ip = extract_unsigned_integer (buf + 8, 8, byte_order);
pi->gp = extract_unsigned_integer (buf + 24, 8, byte_order);
table_addr = extract_unsigned_integer (buf + 16, 8, byte_order);
if (table_addr == 0)
{
/* No unwind data. */
pi->unwind_info = NULL;
pi->unwind_info_size = 0;
return 0;
}
res = target_read_memory (table_addr, buf, 8);
if (res != 0)
return -UNW_ENOINFO;
/* Check version. */
if (extract_unsigned_integer (buf + 6, 2, byte_order) != 1)
return -UNW_EBADVERSION;
info_len = extract_unsigned_integer (buf + 0, 4, byte_order);
pi->unwind_info_size = 8 * info_len;
/* Read info. */
pi->unwind_info = xmalloc (pi->unwind_info_size);
res = target_read_memory (table_addr + 8,
(gdb_byte *) pi->unwind_info, pi->unwind_info_size);
if (res != 0)
{
xfree (pi->unwind_info);
pi->unwind_info = NULL;
return -UNW_ENOINFO;
}
/* FIXME: Handle OSSD (OS Specific Data). This extension to ia64 unwind
information by OpenVMS is currently not handled by libunwind, but
looks to be used only in very specific context, and is not generated by
GCC. */
pi->lsda = table_addr + 8 + pi->unwind_info_size;
if (extract_unsigned_integer (buf + 4, 2, byte_order) & 3)
{
pi->lsda += 8;
/* There might be an handler, but this is not used for unwinding. */
pi->handler = 0;
}
return 0;
}
/* Libunwind callback accessor function for cleanup. */
static void
ia64_vms_put_unwind_info (unw_addr_space_t as,
unw_proc_info_t *pip, void *arg)
{
/* Nothing required for now. */
}
/* Libunwind callback accessor function to get head of the dynamic
unwind-info registration list. */
static int
ia64_vms_get_dyn_info_list (unw_addr_space_t as,
unw_word_t *dilap, void *arg)
{
return -UNW_ENOINFO;
}
/* Set of libunwind callback acccessor functions. */
static unw_accessors_t ia64_vms_unw_accessors;
static unw_accessors_t ia64_vms_unw_rse_accessors;
/* Set of ia64-libunwind-tdep gdb callbacks and data for generic
ia64-libunwind-tdep code to use. */
static struct libunwind_descr ia64_vms_libunwind_descr;
#endif /* HAVE_LIBUNWIND_IA64_H */
static void
ia64_openvms_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
{
set_gdbarch_long_double_format (gdbarch, floatformats_ieee_quad);
#ifdef HAVE_LIBUNWIND_IA64_H
/* Override the default descriptor. */
ia64_vms_unw_accessors = ia64_unw_accessors;
ia64_vms_unw_accessors.find_proc_info = ia64_vms_find_proc_info_x;
ia64_vms_unw_accessors.put_unwind_info = ia64_vms_put_unwind_info;
ia64_vms_unw_accessors.get_dyn_info_list_addr = ia64_vms_get_dyn_info_list;
ia64_vms_unw_rse_accessors = ia64_unw_rse_accessors;
ia64_vms_unw_rse_accessors.find_proc_info = ia64_vms_find_proc_info_x;
ia64_vms_unw_rse_accessors.put_unwind_info = ia64_vms_put_unwind_info;
ia64_vms_unw_rse_accessors.get_dyn_info_list_addr = ia64_vms_get_dyn_info_list;
ia64_vms_libunwind_descr = ia64_libunwind_descr;
ia64_vms_libunwind_descr.accessors = &ia64_vms_unw_accessors;
ia64_vms_libunwind_descr.special_accessors = &ia64_vms_unw_rse_accessors;
libunwind_frame_set_descr (gdbarch, &ia64_vms_libunwind_descr);
#endif
}
void _initialize_ia64_vms_tdep ();
void
_initialize_ia64_vms_tdep ()
{
gdbarch_register_osabi (bfd_arch_ia64, 0, GDB_OSABI_OPENVMS,
ia64_openvms_init_abi);
}