2009-08-20 20:02:48 +02:00
|
|
|
/* Handle JIT code generation in the inferior for GDB, the GNU Debugger.
|
|
|
|
|
2012-01-04 09:17:56 +01:00
|
|
|
Copyright (C) 2009-2012 Free Software Foundation, Inc.
|
2009-08-20 20:02:48 +02:00
|
|
|
|
|
|
|
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 "jit.h"
|
2011-11-20 09:30:59 +01:00
|
|
|
#include "jit-reader.h"
|
2011-11-20 10:14:45 +01:00
|
|
|
#include "block.h"
|
2009-08-20 20:02:48 +02:00
|
|
|
#include "breakpoint.h"
|
2011-01-06 20:56:44 +01:00
|
|
|
#include "command.h"
|
2011-11-20 10:14:45 +01:00
|
|
|
#include "dictionary.h"
|
|
|
|
#include "frame-unwind.h"
|
2011-01-06 20:56:44 +01:00
|
|
|
#include "gdbcmd.h"
|
2009-08-20 20:02:48 +02:00
|
|
|
#include "gdbcore.h"
|
2011-01-31 22:37:01 +01:00
|
|
|
#include "inferior.h"
|
2009-08-20 20:02:48 +02:00
|
|
|
#include "observer.h"
|
|
|
|
#include "objfiles.h"
|
2011-11-20 10:18:48 +01:00
|
|
|
#include "regcache.h"
|
2009-08-20 20:02:48 +02:00
|
|
|
#include "symfile.h"
|
|
|
|
#include "symtab.h"
|
|
|
|
#include "target.h"
|
2011-11-20 10:09:56 +01:00
|
|
|
#include "gdb-dlfcn.h"
|
2009-08-20 20:02:48 +02:00
|
|
|
#include "gdb_stat.h"
|
2011-11-20 10:14:45 +01:00
|
|
|
#include "exceptions.h"
|
* dwarf2read.c (try_open_dwo_file): Use gdb_bfd_ref and
gdb_bfd_unref.
(free_dwo_file): Use gdb_bfd_unref.
* cli/cli-dump.c: Include gdb_bfd.h.
(bfd_openw_with_cleanup): Use gdb_bfd_ref.
(bfd_openr_with_cleanup): Likewise.
* windows-nat.c (windows_make_so): Use gdb_bfd_ref,
gdb_bfd_unref.
* utils.c: Include gdb_bfd.h.
(do_bfd_close_cleanup): Use gdb_bfd_unref.
* symfile.c: Include gdb_bfd.h.
(separate_debug_file_exists): Use gdb_bfd_unref.
(bfd_open_maybe_remote): Use gdb_bfd_ref.
(symfile_bfd_open): Use gdb_bfd_ref, gdb_bfd_unref.
(generic_load): Use gdb_bfd_ref.
(reread_symbols): Use gdb_bfd_unref.
* symfile-mem.c: Include gdb_bfd.h.
(symbol_file_add_from_memory): Use make_cleanup_bfd_close.
* spu-linux-nat.c (spu_bfd_open): Use gdb_bfd_ref, gdb_bfd_unref.
* solib.c: Include gdb_bfd.h.
(solib_bfd_fopen): Use gdb_bfd_ref.
(solib_bfd_open): Use gdb_bfd_unref.
(free_so_symbols): Use gdb_bfd_unref.
(reload_shared_libraries_1): Use gdb_bfd_unref.
* solib-spu.c: Include gdb_bfd.h.
(spu_bfd_fopen): Use gdb_bfd_ref, gdb_bfd_unref.
* solib-pa64.c (pa64_solib_create_inferior_hook): Use gdb_bfd_ref,
gdb_bfd_unref.
* solib-frv.c: Include gdb_bfd.h.
(enable_break2): Use gdb_bfd_unref.
* solib-dsbt.c: Include gdb_bfd.h.
(enable_break2): Use gdb_bfd_unref.
* solib-darwin.c: Include gdb_bfd.h.
(darwin_solib_get_all_image_info_addr_at_init): Use gdb_bfd_ref,
gdb_bfd_unref.
(darwin_bfd_open): Use gdb_bfd_unref.
* rs6000-nat.c (add_vmap): Use gdb_bfd_ref, gdb_bfd_unref.
* remote-mips.c: Include gdb_bfd.h.
(mips_load_srec): Use gdb_bfd_ref.
(pmon_load_fast): Use gdb_bfd_ref.
* remote-m32r-sdi.c: Include gdb_bfd.h.
(m32r_load): Use gdb_bfd_ref.
* record.c: Include gdb_bfd.h.
(record_save_cleanups): Use gdb_bfd_unref.
(cmd_record_save): Use gdb_bfd_unref.
* procfs.c (insert_dbx_link_bpt_in_file): Use gdb_bfd_ref,
gdb_bfd_unref.
* objfiles.h (gdb_bfd_close_or_warn): Remove.
(gdb_bfd_ref, gdb_bfd_unref): Move to gdb_bfd.h.
* objfiles.c: Include gdb_bfd.h.
(free_objfile): Use gdb_bfd_unref.
(gdb_bfd_close_or_warn, gdb_bfd_ref, gdb_bfd_unref): Move to
gdb_bfd.c.
* machoread.c (macho_add_oso_symfile): Use gdb_bfd_unref.
(macho_symfile_read_all_oso): Use gdb_bfd_ref, gdb_bfd_unref.
(macho_check_dsym): Likewise.
* m32r-rom.c: Include gdb_bfd.h.
(m32r_load): Use gdb_bfd_ref.
(m32r_upload_command): Use gdb_bfd_ref.
* jit.c: Include gdb_bfd.h.
(jit_bfd_try_read_symtab): Use gdb_bfd_ref, gdb_bfd_unref.
* gdb_bfd.h: New file.
* gdb_bfd.c: New file.
* gcore.c: Include gdb_bfd.h.
(create_gcore_bfd): Use gdb_bfd_ref.
(do_bfd_delete_cleanup): Use gdb_bfd_unref.
(gcore_command): Use gdb_bfd_unref.
* exec.c: Include gdb_bfd.h.
(exec_close): Use gdb_bfd_unref.
(exec_close_1): Use gdb_bfd_unref.
(exec_file_attach): Use gdb_bfd_ref.
* elfread.c: Include gdb_bfd.h.
(build_id_verify): Use gdb_bfd_unref.
* dsrec.c: Include gdb_bfd.h.
(load_srec): Use gdb_bfd_ref.
* corelow.c: Include gdb_bfd.h.
(core_close): Use gdb_bfd_unref.
(core_open): Use gdb_bfd_ref.
* bfd-target.c: Include gdb_bfd.h.
(target_bfd_xclose): Use gdb_bfd_unref.
(target_bfd_reopen): Use gdb_bfd_ref.
* Makefile.in (SFILES): Add gdb_bfd.c.
(HFILES_NO_SRCDIR): Add gdb_bfd.h.
(COMMON_OBS): Add gdb_bfd.o.
2012-07-18 21:33:34 +02:00
|
|
|
#include "gdb_bfd.h"
|
2009-08-20 20:02:48 +02:00
|
|
|
|
2011-11-20 09:53:25 +01:00
|
|
|
static const char *jit_reader_dir = NULL;
|
|
|
|
|
2009-08-20 20:02:48 +02:00
|
|
|
static const struct objfile_data *jit_objfile_data;
|
|
|
|
|
|
|
|
static const char *const jit_break_name = "__jit_debug_register_code";
|
|
|
|
|
|
|
|
static const char *const jit_descriptor_name = "__jit_debug_descriptor";
|
|
|
|
|
2011-01-31 22:37:01 +01:00
|
|
|
static const struct inferior_data *jit_inferior_data = NULL;
|
2009-08-20 20:02:48 +02:00
|
|
|
|
2011-07-07 04:07:04 +02:00
|
|
|
static void jit_inferior_init (struct gdbarch *gdbarch);
|
2011-07-06 23:40:17 +02:00
|
|
|
|
2011-11-20 10:18:48 +01:00
|
|
|
/* An unwinder is registered for every gdbarch. This key is used to
|
|
|
|
remember if the unwinder has been registered for a particular
|
|
|
|
gdbarch. */
|
|
|
|
|
|
|
|
static struct gdbarch_data *jit_gdbarch_data;
|
|
|
|
|
2011-01-06 20:56:44 +01:00
|
|
|
/* Non-zero if we want to see trace of jit level stuff. */
|
|
|
|
|
2012-08-02 11:36:40 +02:00
|
|
|
static unsigned int jit_debug = 0;
|
2011-01-06 20:56:44 +01:00
|
|
|
|
|
|
|
static void
|
|
|
|
show_jit_debug (struct ui_file *file, int from_tty,
|
|
|
|
struct cmd_list_element *c, const char *value)
|
|
|
|
{
|
|
|
|
fprintf_filtered (file, _("JIT debugging is %s.\n"), value);
|
|
|
|
}
|
|
|
|
|
2009-08-20 20:02:48 +02:00
|
|
|
struct target_buffer
|
|
|
|
{
|
|
|
|
CORE_ADDR base;
|
2011-01-06 20:56:44 +01:00
|
|
|
ULONGEST size;
|
2009-08-20 20:02:48 +02:00
|
|
|
};
|
|
|
|
|
|
|
|
/* Openning the file is a no-op. */
|
|
|
|
|
|
|
|
static void *
|
|
|
|
mem_bfd_iovec_open (struct bfd *abfd, void *open_closure)
|
|
|
|
{
|
|
|
|
return open_closure;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Closing the file is just freeing the base/size pair on our side. */
|
|
|
|
|
|
|
|
static int
|
|
|
|
mem_bfd_iovec_close (struct bfd *abfd, void *stream)
|
|
|
|
{
|
|
|
|
xfree (stream);
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* For reading the file, we just need to pass through to target_read_memory and
|
|
|
|
fix up the arguments and return values. */
|
|
|
|
|
|
|
|
static file_ptr
|
|
|
|
mem_bfd_iovec_pread (struct bfd *abfd, void *stream, void *buf,
|
|
|
|
file_ptr nbytes, file_ptr offset)
|
|
|
|
{
|
|
|
|
int err;
|
|
|
|
struct target_buffer *buffer = (struct target_buffer *) stream;
|
|
|
|
|
|
|
|
/* If this read will read all of the file, limit it to just the rest. */
|
|
|
|
if (offset + nbytes > buffer->size)
|
|
|
|
nbytes = buffer->size - offset;
|
|
|
|
|
|
|
|
/* If there are no more bytes left, we've reached EOF. */
|
|
|
|
if (nbytes == 0)
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
err = target_read_memory (buffer->base + offset, (gdb_byte *) buf, nbytes);
|
|
|
|
if (err)
|
|
|
|
return -1;
|
|
|
|
|
|
|
|
return nbytes;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* For statting the file, we only support the st_size attribute. */
|
|
|
|
|
|
|
|
static int
|
|
|
|
mem_bfd_iovec_stat (struct bfd *abfd, void *stream, struct stat *sb)
|
|
|
|
{
|
|
|
|
struct target_buffer *buffer = (struct target_buffer*) stream;
|
|
|
|
|
|
|
|
sb->st_size = buffer->size;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2012-02-01 21:16:24 +01:00
|
|
|
/* Open a BFD from the target's memory. */
|
|
|
|
|
|
|
|
static struct bfd *
|
|
|
|
bfd_open_from_target_memory (CORE_ADDR addr, ULONGEST size, char *target)
|
|
|
|
{
|
|
|
|
struct target_buffer *buffer = xmalloc (sizeof (struct target_buffer));
|
|
|
|
|
|
|
|
buffer->base = addr;
|
|
|
|
buffer->size = size;
|
* cli/cli-dump.c (bfd_openr_with_cleanup): Use gdb_bfd_openr.
(bfd_openw_with_cleanup): Use gdb_bfd_openw.
* corelow.c (core_open): Use gdb_bfd_fopen.
* dsrec.c (load_srec): Use gdb_bfd_openr.
* exec.c (exec_file_attach): Use gdb_bfd_fopen.
* gcore.c (gcore_memory_sections): Use gdb_bfd_openw.
* gdb_bfd.c (gdb_bfd_fopen, gdb_bfd_openr, gdb_bfd_openw)
(gdb_bfd_openr_iovec, gdb_bfd_openr_next_archived_file)
(gdb_bfd_fdopenr): New functions.
* gdb_bfd.h (gdb_bfd_fopen, gdb_bfd_openr, gdb_bfd_openw)
(gdb_bfd_openr_iovec, gdb_bfd_openr_next_archived_file)
(gdb_bfd_fdopenr): Declare.
* jit.c (bfd_open_from_target_memory): Use gdb_bfd_openr_iovec.
* m32-rom.c (m32r_load, m32r_upload_command): Use gdb_bfd_openr.
* machoread.c (macho_symfile_read_all_oso): Use gdb_bfd_openr,
gdb_bfd_openr_next_archived_file.
(macho_check_dsym): Use gdb_bfd_openr.
(macho_add_oso_symfile): Don't call gdb_bfd_stash_filename.
* procfs.c (insert_dbx_link_bpt_in_file): Use gdb_bfd_fdopenr.
* remote-m32r-sdi.c (m32r_load): Use gdb_bfd_openr.
* remote-mips.c (mips_load_srec, pmon_load_fast): Use
gdb_bfd_openr.
* remote.c (remote_bfd_open): Use gdb_bfd_openr_iovec.
* rs6000-nat.c (add_vmap): Use gdb_bfd_openr, gdb_bfd_fdopenr,
gdb_bfd_openr_next_archived_file.
* solib-darwin.c (darwin_solib_get_all_image_info_addr_at_init):
Use gdb_bfd_openr.
* solib-pa64.c (pa64_solib_create_inferior_hook): Use
gdb_bfd_openr.
* solib-spu.c (spu_bfd_fopen): Use gdb_bfd_openr_iovec.
* solib.c (solib_bfd_fopen): Use gdb_bfd_fopen.
* spu-linux-nat.c (spu_bfd_open): Use gdb_bfd_openr_iovec.
* symfile.c (bfd_open_maybe_remote): Use gdb_bfd_openr.
(symfile_bfd_open): Use gdb_bfd_fopen.
(generic_load): Use gdb_bfd_openr.
* windows-nat.c (windows_make_so): Use gdb_bfd_openr.
2012-07-23 16:57:58 +02:00
|
|
|
return gdb_bfd_openr_iovec ("<in-memory>", target,
|
|
|
|
mem_bfd_iovec_open,
|
|
|
|
buffer,
|
|
|
|
mem_bfd_iovec_pread,
|
|
|
|
mem_bfd_iovec_close,
|
|
|
|
mem_bfd_iovec_stat);
|
2012-02-01 21:16:24 +01:00
|
|
|
}
|
|
|
|
|
2011-11-20 10:09:56 +01:00
|
|
|
/* One reader that has been loaded successfully, and can potentially be used to
|
|
|
|
parse debug info. */
|
|
|
|
|
|
|
|
static struct jit_reader
|
|
|
|
{
|
|
|
|
struct gdb_reader_funcs *functions;
|
|
|
|
void *handle;
|
|
|
|
} *loaded_jit_reader = NULL;
|
|
|
|
|
|
|
|
typedef struct gdb_reader_funcs * (reader_init_fn_type) (void);
|
|
|
|
static const char *reader_init_fn_sym = "gdb_init_reader";
|
|
|
|
|
|
|
|
/* Try to load FILE_NAME as a JIT debug info reader. */
|
|
|
|
|
|
|
|
static struct jit_reader *
|
|
|
|
jit_reader_load (const char *file_name)
|
|
|
|
{
|
|
|
|
void *so;
|
|
|
|
reader_init_fn_type *init_fn;
|
|
|
|
struct jit_reader *new_reader = NULL;
|
|
|
|
struct gdb_reader_funcs *funcs = NULL;
|
|
|
|
struct cleanup *old_cleanups;
|
|
|
|
|
|
|
|
if (jit_debug)
|
|
|
|
fprintf_unfiltered (gdb_stdlog, _("Opening shared object %s.\n"),
|
|
|
|
file_name);
|
|
|
|
so = gdb_dlopen (file_name);
|
|
|
|
old_cleanups = make_cleanup_dlclose (so);
|
|
|
|
|
|
|
|
init_fn = gdb_dlsym (so, reader_init_fn_sym);
|
|
|
|
if (!init_fn)
|
|
|
|
error (_("Could not locate initialization function: %s."),
|
|
|
|
reader_init_fn_sym);
|
|
|
|
|
|
|
|
if (gdb_dlsym (so, "plugin_is_GPL_compatible") == NULL)
|
|
|
|
error (_("Reader not GPL compatible."));
|
|
|
|
|
|
|
|
funcs = init_fn ();
|
|
|
|
if (funcs->reader_version != GDB_READER_INTERFACE_VERSION)
|
|
|
|
error (_("Reader version does not match GDB version."));
|
|
|
|
|
|
|
|
new_reader = XZALLOC (struct jit_reader);
|
|
|
|
new_reader->functions = funcs;
|
|
|
|
new_reader->handle = so;
|
|
|
|
|
|
|
|
discard_cleanups (old_cleanups);
|
|
|
|
return new_reader;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Provides the jit-reader-load command. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
jit_reader_load_command (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
char *so_name;
|
|
|
|
struct cleanup *prev_cleanup;
|
|
|
|
|
|
|
|
if (args == NULL)
|
|
|
|
error (_("No reader name provided."));
|
|
|
|
|
|
|
|
if (loaded_jit_reader != NULL)
|
|
|
|
error (_("JIT reader already loaded. Run jit-reader-unload first."));
|
|
|
|
|
|
|
|
so_name = xstrprintf ("%s/%s", jit_reader_dir, args);
|
|
|
|
prev_cleanup = make_cleanup (xfree, so_name);
|
|
|
|
|
|
|
|
loaded_jit_reader = jit_reader_load (so_name);
|
|
|
|
do_cleanups (prev_cleanup);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Provides the jit-reader-unload command. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
jit_reader_unload_command (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
if (!loaded_jit_reader)
|
|
|
|
error (_("No JIT reader loaded."));
|
|
|
|
|
|
|
|
loaded_jit_reader->functions->destroy (loaded_jit_reader->functions);
|
|
|
|
|
|
|
|
gdb_dlclose (loaded_jit_reader->handle);
|
|
|
|
xfree (loaded_jit_reader);
|
|
|
|
loaded_jit_reader = NULL;
|
|
|
|
}
|
|
|
|
|
2012-02-01 21:21:22 +01:00
|
|
|
/* Per-inferior structure recording which objfile has the JIT
|
|
|
|
symbols. */
|
2011-01-31 22:37:01 +01:00
|
|
|
|
|
|
|
struct jit_inferior_data
|
|
|
|
{
|
2012-02-01 21:21:22 +01:00
|
|
|
/* The objfile. This is NULL if no objfile holds the JIT
|
|
|
|
symbols. */
|
|
|
|
|
|
|
|
struct objfile *objfile;
|
|
|
|
};
|
|
|
|
|
|
|
|
/* Per-objfile structure recording the addresses in the inferior. */
|
|
|
|
|
|
|
|
struct jit_objfile_data
|
|
|
|
{
|
|
|
|
/* Symbol for __jit_debug_register_code. */
|
|
|
|
struct minimal_symbol *register_code;
|
|
|
|
|
|
|
|
/* Symbol for __jit_debug_descriptor. */
|
|
|
|
struct minimal_symbol *descriptor;
|
|
|
|
|
|
|
|
/* Address of struct jit_code_entry in this objfile. */
|
|
|
|
CORE_ADDR addr;
|
2011-01-31 22:37:01 +01:00
|
|
|
};
|
|
|
|
|
2012-02-01 21:21:22 +01:00
|
|
|
/* Fetch the jit_objfile_data associated with OBJF. If no data exists
|
|
|
|
yet, make a new structure and attach it. */
|
|
|
|
|
|
|
|
static struct jit_objfile_data *
|
|
|
|
get_jit_objfile_data (struct objfile *objf)
|
|
|
|
{
|
|
|
|
struct jit_objfile_data *objf_data;
|
|
|
|
|
|
|
|
objf_data = objfile_data (objf, jit_objfile_data);
|
|
|
|
if (objf_data == NULL)
|
|
|
|
{
|
|
|
|
objf_data = XZALLOC (struct jit_objfile_data);
|
|
|
|
set_objfile_data (objf, jit_objfile_data, objf_data);
|
|
|
|
}
|
|
|
|
|
|
|
|
return objf_data;
|
|
|
|
}
|
|
|
|
|
2011-11-29 09:30:29 +01:00
|
|
|
/* Remember OBJFILE has been created for struct jit_code_entry located
|
|
|
|
at inferior address ENTRY. */
|
2011-11-20 10:14:45 +01:00
|
|
|
|
|
|
|
static void
|
|
|
|
add_objfile_entry (struct objfile *objfile, CORE_ADDR entry)
|
|
|
|
{
|
2012-02-01 21:21:22 +01:00
|
|
|
struct jit_objfile_data *objf_data;
|
2011-11-20 10:14:45 +01:00
|
|
|
|
2012-02-01 21:21:22 +01:00
|
|
|
objf_data = get_jit_objfile_data (objfile);
|
|
|
|
objf_data->addr = entry;
|
2011-11-20 10:14:45 +01:00
|
|
|
}
|
|
|
|
|
2011-01-31 22:37:01 +01:00
|
|
|
/* Return jit_inferior_data for current inferior. Allocate if not already
|
|
|
|
present. */
|
|
|
|
|
|
|
|
static struct jit_inferior_data *
|
|
|
|
get_jit_inferior_data (void)
|
|
|
|
{
|
|
|
|
struct inferior *inf;
|
|
|
|
struct jit_inferior_data *inf_data;
|
|
|
|
|
|
|
|
inf = current_inferior ();
|
|
|
|
inf_data = inferior_data (inf, jit_inferior_data);
|
|
|
|
if (inf_data == NULL)
|
|
|
|
{
|
|
|
|
inf_data = XZALLOC (struct jit_inferior_data);
|
|
|
|
set_inferior_data (inf, jit_inferior_data, inf_data);
|
|
|
|
}
|
|
|
|
|
|
|
|
return inf_data;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
jit_inferior_data_cleanup (struct inferior *inf, void *arg)
|
|
|
|
{
|
|
|
|
xfree (arg);
|
|
|
|
}
|
|
|
|
|
2011-01-09 04:08:57 +01:00
|
|
|
/* Helper function for reading the global JIT descriptor from remote
|
2012-02-01 21:21:22 +01:00
|
|
|
memory. Returns 1 if all went well, 0 otherwise. */
|
2009-08-20 20:02:48 +02:00
|
|
|
|
2012-02-01 21:21:22 +01:00
|
|
|
static int
|
2009-08-21 20:54:44 +02:00
|
|
|
jit_read_descriptor (struct gdbarch *gdbarch,
|
2011-01-31 22:37:01 +01:00
|
|
|
struct jit_descriptor *descriptor,
|
2012-02-01 21:21:22 +01:00
|
|
|
struct jit_inferior_data *inf_data)
|
2009-08-20 20:02:48 +02:00
|
|
|
{
|
|
|
|
int err;
|
|
|
|
struct type *ptr_type;
|
|
|
|
int ptr_size;
|
|
|
|
int desc_size;
|
|
|
|
gdb_byte *desc_buf;
|
2009-08-21 20:54:44 +02:00
|
|
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
2012-02-01 21:21:22 +01:00
|
|
|
struct jit_objfile_data *objf_data;
|
|
|
|
|
|
|
|
if (inf_data->objfile == NULL)
|
|
|
|
return 0;
|
|
|
|
objf_data = get_jit_objfile_data (inf_data->objfile);
|
|
|
|
if (objf_data->descriptor == NULL)
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
if (jit_debug)
|
|
|
|
fprintf_unfiltered (gdb_stdlog,
|
|
|
|
"jit_read_descriptor, descriptor_addr = %s\n",
|
|
|
|
paddress (gdbarch, SYMBOL_VALUE_ADDRESS (objf_data->descriptor)));
|
2009-08-20 20:02:48 +02:00
|
|
|
|
|
|
|
/* Figure out how big the descriptor is on the remote and how to read it. */
|
2009-08-21 20:54:44 +02:00
|
|
|
ptr_type = builtin_type (gdbarch)->builtin_data_ptr;
|
2009-08-20 20:02:48 +02:00
|
|
|
ptr_size = TYPE_LENGTH (ptr_type);
|
|
|
|
desc_size = 8 + 2 * ptr_size; /* Two 32-bit ints and two pointers. */
|
|
|
|
desc_buf = alloca (desc_size);
|
|
|
|
|
|
|
|
/* Read the descriptor. */
|
2012-02-01 21:21:22 +01:00
|
|
|
err = target_read_memory (SYMBOL_VALUE_ADDRESS (objf_data->descriptor),
|
|
|
|
desc_buf, desc_size);
|
2009-08-20 20:02:48 +02:00
|
|
|
if (err)
|
2012-02-01 21:21:22 +01:00
|
|
|
{
|
|
|
|
printf_unfiltered (_("Unable to read JIT descriptor from "
|
|
|
|
"remote memory\n"));
|
|
|
|
return 0;
|
|
|
|
}
|
2009-08-20 20:02:48 +02:00
|
|
|
|
|
|
|
/* Fix the endianness to match the host. */
|
|
|
|
descriptor->version = extract_unsigned_integer (&desc_buf[0], 4, byte_order);
|
|
|
|
descriptor->action_flag =
|
|
|
|
extract_unsigned_integer (&desc_buf[4], 4, byte_order);
|
|
|
|
descriptor->relevant_entry = extract_typed_address (&desc_buf[8], ptr_type);
|
|
|
|
descriptor->first_entry =
|
|
|
|
extract_typed_address (&desc_buf[8 + ptr_size], ptr_type);
|
2012-02-01 21:21:22 +01:00
|
|
|
|
|
|
|
return 1;
|
2009-08-20 20:02:48 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Helper function for reading a JITed code entry from remote memory. */
|
|
|
|
|
|
|
|
static void
|
2009-08-21 20:54:44 +02:00
|
|
|
jit_read_code_entry (struct gdbarch *gdbarch,
|
|
|
|
CORE_ADDR code_addr, struct jit_code_entry *code_entry)
|
2009-08-20 20:02:48 +02:00
|
|
|
{
|
2011-10-11 21:08:59 +02:00
|
|
|
int err, off;
|
2009-08-20 20:02:48 +02:00
|
|
|
struct type *ptr_type;
|
|
|
|
int ptr_size;
|
|
|
|
int entry_size;
|
2011-10-11 21:08:59 +02:00
|
|
|
int align_bytes;
|
2009-08-20 20:02:48 +02:00
|
|
|
gdb_byte *entry_buf;
|
2009-08-21 20:54:44 +02:00
|
|
|
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
2009-08-20 20:02:48 +02:00
|
|
|
|
|
|
|
/* Figure out how big the entry is on the remote and how to read it. */
|
2009-08-21 20:54:44 +02:00
|
|
|
ptr_type = builtin_type (gdbarch)->builtin_data_ptr;
|
2009-08-20 20:02:48 +02:00
|
|
|
ptr_size = TYPE_LENGTH (ptr_type);
|
2012-03-22 21:33:42 +01:00
|
|
|
|
|
|
|
/* Figure out where the longlong value will be. */
|
|
|
|
align_bytes = gdbarch_long_long_align_bit (gdbarch) / 8;
|
|
|
|
off = 3 * ptr_size;
|
|
|
|
off = (off + (align_bytes - 1)) & ~(align_bytes - 1);
|
|
|
|
|
|
|
|
entry_size = off + 8; /* Three pointers and one 64-bit int. */
|
2009-08-20 20:02:48 +02:00
|
|
|
entry_buf = alloca (entry_size);
|
|
|
|
|
|
|
|
/* Read the entry. */
|
|
|
|
err = target_read_memory (code_addr, entry_buf, entry_size);
|
|
|
|
if (err)
|
|
|
|
error (_("Unable to read JIT code entry from remote memory!"));
|
|
|
|
|
|
|
|
/* Fix the endianness to match the host. */
|
2009-08-21 20:54:44 +02:00
|
|
|
ptr_type = builtin_type (gdbarch)->builtin_data_ptr;
|
2009-08-20 20:02:48 +02:00
|
|
|
code_entry->next_entry = extract_typed_address (&entry_buf[0], ptr_type);
|
|
|
|
code_entry->prev_entry =
|
|
|
|
extract_typed_address (&entry_buf[ptr_size], ptr_type);
|
|
|
|
code_entry->symfile_addr =
|
|
|
|
extract_typed_address (&entry_buf[2 * ptr_size], ptr_type);
|
|
|
|
code_entry->symfile_size =
|
2011-10-11 21:08:59 +02:00
|
|
|
extract_unsigned_integer (&entry_buf[off], 8, byte_order);
|
2009-08-20 20:02:48 +02:00
|
|
|
}
|
|
|
|
|
2011-11-20 10:14:45 +01:00
|
|
|
/* Proxy object for building a block. */
|
|
|
|
|
|
|
|
struct gdb_block
|
|
|
|
{
|
|
|
|
/* gdb_blocks are linked into a tree structure. Next points to the
|
|
|
|
next node at the same depth as this block and parent to the
|
|
|
|
parent gdb_block. */
|
|
|
|
struct gdb_block *next, *parent;
|
|
|
|
|
|
|
|
/* Points to the "real" block that is being built out of this
|
|
|
|
instance. This block will be added to a blockvector, which will
|
|
|
|
then be added to a symtab. */
|
|
|
|
struct block *real_block;
|
|
|
|
|
|
|
|
/* The first and last code address corresponding to this block. */
|
|
|
|
CORE_ADDR begin, end;
|
|
|
|
|
|
|
|
/* The name of this block (if any). If this is non-NULL, the
|
|
|
|
FUNCTION symbol symbol is set to this value. */
|
|
|
|
const char *name;
|
|
|
|
};
|
|
|
|
|
|
|
|
/* Proxy object for building a symtab. */
|
|
|
|
|
|
|
|
struct gdb_symtab
|
|
|
|
{
|
|
|
|
/* The list of blocks in this symtab. These will eventually be
|
|
|
|
converted to real blocks. */
|
|
|
|
struct gdb_block *blocks;
|
|
|
|
|
|
|
|
/* The number of blocks inserted. */
|
|
|
|
int nblocks;
|
|
|
|
|
|
|
|
/* A mapping between line numbers to PC. */
|
|
|
|
struct linetable *linetable;
|
|
|
|
|
|
|
|
/* The source file for this symtab. */
|
|
|
|
const char *file_name;
|
|
|
|
struct gdb_symtab *next;
|
|
|
|
};
|
|
|
|
|
|
|
|
/* Proxy object for building an object. */
|
|
|
|
|
|
|
|
struct gdb_object
|
|
|
|
{
|
|
|
|
struct gdb_symtab *symtabs;
|
|
|
|
};
|
|
|
|
|
|
|
|
/* The type of the `private' data passed around by the callback
|
|
|
|
functions. */
|
|
|
|
|
|
|
|
typedef CORE_ADDR jit_dbg_reader_data;
|
|
|
|
|
|
|
|
/* The reader calls into this function to read data off the targets
|
|
|
|
address space. */
|
|
|
|
|
|
|
|
static enum gdb_status
|
|
|
|
jit_target_read_impl (GDB_CORE_ADDR target_mem, void *gdb_buf, int len)
|
|
|
|
{
|
|
|
|
int result = target_read_memory ((CORE_ADDR) target_mem, gdb_buf, len);
|
|
|
|
if (result == 0)
|
|
|
|
return GDB_SUCCESS;
|
|
|
|
else
|
|
|
|
return GDB_FAIL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* The reader calls into this function to create a new gdb_object
|
|
|
|
which it can then pass around to the other callbacks. Right now,
|
|
|
|
all that is required is allocating the memory. */
|
|
|
|
|
|
|
|
static struct gdb_object *
|
|
|
|
jit_object_open_impl (struct gdb_symbol_callbacks *cb)
|
|
|
|
{
|
|
|
|
/* CB is not required right now, but sometime in the future we might
|
|
|
|
need a handle to it, and we'd like to do that without breaking
|
|
|
|
the ABI. */
|
|
|
|
return XZALLOC (struct gdb_object);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Readers call into this function to open a new gdb_symtab, which,
|
|
|
|
again, is passed around to other callbacks. */
|
|
|
|
|
|
|
|
static struct gdb_symtab *
|
|
|
|
jit_symtab_open_impl (struct gdb_symbol_callbacks *cb,
|
|
|
|
struct gdb_object *object,
|
|
|
|
const char *file_name)
|
|
|
|
{
|
|
|
|
struct gdb_symtab *ret;
|
|
|
|
|
|
|
|
/* CB stays unused. See comment in jit_object_open_impl. */
|
|
|
|
|
|
|
|
ret = XZALLOC (struct gdb_symtab);
|
|
|
|
ret->file_name = file_name ? xstrdup (file_name) : xstrdup ("");
|
|
|
|
ret->next = object->symtabs;
|
|
|
|
object->symtabs = ret;
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Returns true if the block corresponding to old should be placed
|
|
|
|
before the block corresponding to new in the final blockvector. */
|
|
|
|
|
|
|
|
static int
|
|
|
|
compare_block (const struct gdb_block *const old,
|
|
|
|
const struct gdb_block *const new)
|
|
|
|
{
|
|
|
|
if (old == NULL)
|
|
|
|
return 1;
|
|
|
|
if (old->begin < new->begin)
|
|
|
|
return 1;
|
|
|
|
else if (old->begin == new->begin)
|
|
|
|
{
|
|
|
|
if (old->end > new->end)
|
|
|
|
return 1;
|
|
|
|
else
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Called by readers to open a new gdb_block. This function also
|
|
|
|
inserts the new gdb_block in the correct place in the corresponding
|
|
|
|
gdb_symtab. */
|
|
|
|
|
|
|
|
static struct gdb_block *
|
|
|
|
jit_block_open_impl (struct gdb_symbol_callbacks *cb,
|
|
|
|
struct gdb_symtab *symtab, struct gdb_block *parent,
|
|
|
|
GDB_CORE_ADDR begin, GDB_CORE_ADDR end, const char *name)
|
|
|
|
{
|
|
|
|
struct gdb_block *block = XZALLOC (struct gdb_block);
|
|
|
|
|
|
|
|
block->next = symtab->blocks;
|
|
|
|
block->begin = (CORE_ADDR) begin;
|
|
|
|
block->end = (CORE_ADDR) end;
|
|
|
|
block->name = name ? xstrdup (name) : NULL;
|
|
|
|
block->parent = parent;
|
|
|
|
|
|
|
|
/* Ensure that the blocks are inserted in the correct (reverse of
|
|
|
|
the order expected by blockvector). */
|
|
|
|
if (compare_block (symtab->blocks, block))
|
|
|
|
{
|
|
|
|
symtab->blocks = block;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
struct gdb_block *i = symtab->blocks;
|
|
|
|
|
|
|
|
for (;; i = i->next)
|
|
|
|
{
|
|
|
|
/* Guaranteed to terminate, since compare_block (NULL, _)
|
|
|
|
returns 1. */
|
|
|
|
if (compare_block (i->next, block))
|
|
|
|
{
|
|
|
|
block->next = i->next;
|
|
|
|
i->next = block;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
symtab->nblocks++;
|
|
|
|
|
|
|
|
return block;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Readers call this to add a line mapping (from PC to line number) to
|
|
|
|
a gdb_symtab. */
|
2009-08-20 20:02:48 +02:00
|
|
|
|
|
|
|
static void
|
2011-11-20 10:14:45 +01:00
|
|
|
jit_symtab_line_mapping_add_impl (struct gdb_symbol_callbacks *cb,
|
|
|
|
struct gdb_symtab *stab, int nlines,
|
|
|
|
struct gdb_line_mapping *map)
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
|
|
|
|
if (nlines < 1)
|
|
|
|
return;
|
|
|
|
|
|
|
|
stab->linetable = xmalloc (sizeof (struct linetable)
|
|
|
|
+ (nlines - 1) * sizeof (struct linetable_entry));
|
|
|
|
stab->linetable->nitems = nlines;
|
|
|
|
for (i = 0; i < nlines; i++)
|
|
|
|
{
|
|
|
|
stab->linetable->item[i].pc = (CORE_ADDR) map[i].pc;
|
|
|
|
stab->linetable->item[i].line = map[i].line;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Called by readers to close a gdb_symtab. Does not need to do
|
|
|
|
anything as of now. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
jit_symtab_close_impl (struct gdb_symbol_callbacks *cb,
|
|
|
|
struct gdb_symtab *stab)
|
|
|
|
{
|
|
|
|
/* Right now nothing needs to be done here. We may need to do some
|
|
|
|
cleanup here in the future (again, without breaking the plugin
|
|
|
|
ABI). */
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Transform STAB to a proper symtab, and add it it OBJFILE. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
finalize_symtab (struct gdb_symtab *stab, struct objfile *objfile)
|
|
|
|
{
|
|
|
|
struct symtab *symtab;
|
|
|
|
struct gdb_block *gdb_block_iter, *gdb_block_iter_tmp;
|
|
|
|
struct block *block_iter;
|
|
|
|
int actual_nblocks, i, blockvector_size;
|
|
|
|
CORE_ADDR begin, end;
|
|
|
|
|
|
|
|
actual_nblocks = FIRST_LOCAL_BLOCK + stab->nblocks;
|
|
|
|
|
|
|
|
symtab = allocate_symtab (stab->file_name, objfile);
|
|
|
|
/* JIT compilers compile in memory. */
|
|
|
|
symtab->dirname = NULL;
|
|
|
|
|
|
|
|
/* Copy over the linetable entry if one was provided. */
|
|
|
|
if (stab->linetable)
|
|
|
|
{
|
|
|
|
int size = ((stab->linetable->nitems - 1)
|
|
|
|
* sizeof (struct linetable_entry)
|
|
|
|
+ sizeof (struct linetable));
|
|
|
|
LINETABLE (symtab) = obstack_alloc (&objfile->objfile_obstack, size);
|
|
|
|
memcpy (LINETABLE (symtab), stab->linetable, size);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
LINETABLE (symtab) = NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
blockvector_size = (sizeof (struct blockvector)
|
|
|
|
+ (actual_nblocks - 1) * sizeof (struct block *));
|
|
|
|
symtab->blockvector = obstack_alloc (&objfile->objfile_obstack,
|
|
|
|
blockvector_size);
|
|
|
|
|
|
|
|
/* (begin, end) will contain the PC range this entire blockvector
|
|
|
|
spans. */
|
|
|
|
symtab->primary = 1;
|
|
|
|
BLOCKVECTOR_MAP (symtab->blockvector) = NULL;
|
|
|
|
begin = stab->blocks->begin;
|
|
|
|
end = stab->blocks->end;
|
|
|
|
BLOCKVECTOR_NBLOCKS (symtab->blockvector) = actual_nblocks;
|
|
|
|
|
|
|
|
/* First run over all the gdb_block objects, creating a real block
|
|
|
|
object for each. Simultaneously, keep setting the real_block
|
|
|
|
fields. */
|
|
|
|
for (i = (actual_nblocks - 1), gdb_block_iter = stab->blocks;
|
|
|
|
i >= FIRST_LOCAL_BLOCK;
|
|
|
|
i--, gdb_block_iter = gdb_block_iter->next)
|
|
|
|
{
|
|
|
|
struct block *new_block = allocate_block (&objfile->objfile_obstack);
|
|
|
|
struct symbol *block_name = obstack_alloc (&objfile->objfile_obstack,
|
|
|
|
sizeof (struct symbol));
|
2012-06-13 23:16:49 +02:00
|
|
|
struct type *block_type = arch_type (get_objfile_arch (objfile),
|
|
|
|
TYPE_CODE_VOID,
|
|
|
|
1,
|
|
|
|
"void");
|
2011-11-20 10:14:45 +01:00
|
|
|
|
|
|
|
BLOCK_DICT (new_block) = dict_create_linear (&objfile->objfile_obstack,
|
|
|
|
NULL);
|
|
|
|
/* The address range. */
|
|
|
|
BLOCK_START (new_block) = (CORE_ADDR) gdb_block_iter->begin;
|
|
|
|
BLOCK_END (new_block) = (CORE_ADDR) gdb_block_iter->end;
|
|
|
|
|
|
|
|
/* The name. */
|
|
|
|
memset (block_name, 0, sizeof (struct symbol));
|
|
|
|
SYMBOL_DOMAIN (block_name) = VAR_DOMAIN;
|
|
|
|
SYMBOL_CLASS (block_name) = LOC_BLOCK;
|
|
|
|
SYMBOL_SYMTAB (block_name) = symtab;
|
2012-06-13 23:16:49 +02:00
|
|
|
SYMBOL_TYPE (block_name) = lookup_function_type (block_type);
|
2011-11-20 10:14:45 +01:00
|
|
|
SYMBOL_BLOCK_VALUE (block_name) = new_block;
|
|
|
|
|
|
|
|
block_name->ginfo.name = obsavestring (gdb_block_iter->name,
|
|
|
|
strlen (gdb_block_iter->name),
|
|
|
|
&objfile->objfile_obstack);
|
|
|
|
|
|
|
|
BLOCK_FUNCTION (new_block) = block_name;
|
|
|
|
|
|
|
|
BLOCKVECTOR_BLOCK (symtab->blockvector, i) = new_block;
|
|
|
|
if (begin > BLOCK_START (new_block))
|
|
|
|
begin = BLOCK_START (new_block);
|
|
|
|
if (end < BLOCK_END (new_block))
|
|
|
|
end = BLOCK_END (new_block);
|
|
|
|
|
|
|
|
gdb_block_iter->real_block = new_block;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Now add the special blocks. */
|
|
|
|
block_iter = NULL;
|
|
|
|
for (i = 0; i < FIRST_LOCAL_BLOCK; i++)
|
|
|
|
{
|
2012-05-10 21:59:12 +02:00
|
|
|
struct block *new_block;
|
|
|
|
|
|
|
|
new_block = (i == GLOBAL_BLOCK
|
|
|
|
? allocate_global_block (&objfile->objfile_obstack)
|
|
|
|
: allocate_block (&objfile->objfile_obstack));
|
2011-11-20 10:14:45 +01:00
|
|
|
BLOCK_DICT (new_block) = dict_create_linear (&objfile->objfile_obstack,
|
|
|
|
NULL);
|
|
|
|
BLOCK_SUPERBLOCK (new_block) = block_iter;
|
|
|
|
block_iter = new_block;
|
|
|
|
|
|
|
|
BLOCK_START (new_block) = (CORE_ADDR) begin;
|
|
|
|
BLOCK_END (new_block) = (CORE_ADDR) end;
|
|
|
|
|
|
|
|
BLOCKVECTOR_BLOCK (symtab->blockvector, i) = new_block;
|
2012-05-10 21:59:12 +02:00
|
|
|
|
|
|
|
if (i == GLOBAL_BLOCK)
|
|
|
|
set_block_symtab (new_block, symtab);
|
2011-11-20 10:14:45 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Fill up the superblock fields for the real blocks, using the
|
|
|
|
real_block fields populated earlier. */
|
|
|
|
for (gdb_block_iter = stab->blocks;
|
|
|
|
gdb_block_iter;
|
|
|
|
gdb_block_iter = gdb_block_iter->next)
|
|
|
|
{
|
|
|
|
if (gdb_block_iter->parent != NULL)
|
|
|
|
BLOCK_SUPERBLOCK (gdb_block_iter->real_block) =
|
|
|
|
gdb_block_iter->parent->real_block;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Free memory. */
|
|
|
|
gdb_block_iter = stab->blocks;
|
|
|
|
|
|
|
|
for (gdb_block_iter = stab->blocks, gdb_block_iter_tmp = gdb_block_iter->next;
|
|
|
|
gdb_block_iter;
|
|
|
|
gdb_block_iter = gdb_block_iter_tmp)
|
|
|
|
{
|
|
|
|
xfree ((void *) gdb_block_iter->name);
|
|
|
|
xfree (gdb_block_iter);
|
|
|
|
}
|
|
|
|
xfree (stab->linetable);
|
|
|
|
xfree ((char *) stab->file_name);
|
|
|
|
xfree (stab);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Called when closing a gdb_objfile. Converts OBJ to a proper
|
|
|
|
objfile. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
jit_object_close_impl (struct gdb_symbol_callbacks *cb,
|
|
|
|
struct gdb_object *obj)
|
|
|
|
{
|
|
|
|
struct gdb_symtab *i, *j;
|
|
|
|
struct objfile *objfile;
|
|
|
|
jit_dbg_reader_data *priv_data;
|
|
|
|
|
|
|
|
priv_data = cb->priv_data;
|
|
|
|
|
|
|
|
objfile = allocate_objfile (NULL, 0);
|
|
|
|
objfile->gdbarch = target_gdbarch;
|
|
|
|
|
2011-12-21 22:34:25 +01:00
|
|
|
terminate_minimal_symbol_table (objfile);
|
2011-11-20 10:14:45 +01:00
|
|
|
|
|
|
|
xfree (objfile->name);
|
|
|
|
objfile->name = xstrdup ("<< JIT compiled code >>");
|
|
|
|
|
|
|
|
j = NULL;
|
|
|
|
for (i = obj->symtabs; i; i = j)
|
|
|
|
{
|
|
|
|
j = i->next;
|
|
|
|
finalize_symtab (i, objfile);
|
|
|
|
}
|
|
|
|
add_objfile_entry (objfile, *priv_data);
|
|
|
|
xfree (obj);
|
|
|
|
}
|
|
|
|
|
2011-11-27 15:26:09 +01:00
|
|
|
/* Try to read CODE_ENTRY using the loaded jit reader (if any).
|
2011-11-29 09:30:29 +01:00
|
|
|
ENTRY_ADDR is the address of the struct jit_code_entry in the
|
|
|
|
inferior address space. */
|
2011-11-20 10:14:45 +01:00
|
|
|
|
|
|
|
static int
|
2011-11-27 15:26:09 +01:00
|
|
|
jit_reader_try_read_symtab (struct jit_code_entry *code_entry,
|
|
|
|
CORE_ADDR entry_addr)
|
2011-11-20 10:14:45 +01:00
|
|
|
{
|
|
|
|
void *gdb_mem;
|
|
|
|
int status;
|
|
|
|
jit_dbg_reader_data priv_data;
|
|
|
|
struct gdb_reader_funcs *funcs;
|
|
|
|
volatile struct gdb_exception e;
|
|
|
|
struct gdb_symbol_callbacks callbacks =
|
|
|
|
{
|
|
|
|
jit_object_open_impl,
|
|
|
|
jit_symtab_open_impl,
|
|
|
|
jit_block_open_impl,
|
|
|
|
jit_symtab_close_impl,
|
|
|
|
jit_object_close_impl,
|
|
|
|
|
|
|
|
jit_symtab_line_mapping_add_impl,
|
|
|
|
jit_target_read_impl,
|
|
|
|
|
|
|
|
&priv_data
|
|
|
|
};
|
|
|
|
|
2011-11-27 15:26:09 +01:00
|
|
|
priv_data = entry_addr;
|
2011-11-20 10:14:45 +01:00
|
|
|
|
|
|
|
if (!loaded_jit_reader)
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
gdb_mem = xmalloc (code_entry->symfile_size);
|
|
|
|
|
|
|
|
status = 1;
|
|
|
|
TRY_CATCH (e, RETURN_MASK_ALL)
|
|
|
|
if (target_read_memory (code_entry->symfile_addr, gdb_mem,
|
|
|
|
code_entry->symfile_size))
|
|
|
|
status = 0;
|
|
|
|
if (e.reason < 0)
|
|
|
|
status = 0;
|
|
|
|
|
|
|
|
if (status)
|
|
|
|
{
|
|
|
|
funcs = loaded_jit_reader->functions;
|
|
|
|
if (funcs->read (funcs, &callbacks, gdb_mem, code_entry->symfile_size)
|
|
|
|
!= GDB_SUCCESS)
|
|
|
|
status = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
xfree (gdb_mem);
|
|
|
|
if (jit_debug && status == 0)
|
|
|
|
fprintf_unfiltered (gdb_stdlog,
|
|
|
|
"Could not read symtab using the loaded JIT reader.\n");
|
|
|
|
return status;
|
|
|
|
}
|
|
|
|
|
2011-11-27 15:26:09 +01:00
|
|
|
/* Try to read CODE_ENTRY using BFD. ENTRY_ADDR is the address of the
|
2011-11-29 09:30:29 +01:00
|
|
|
struct jit_code_entry in the inferior address space. */
|
2011-11-20 10:14:45 +01:00
|
|
|
|
|
|
|
static void
|
|
|
|
jit_bfd_try_read_symtab (struct jit_code_entry *code_entry,
|
2011-11-27 15:26:09 +01:00
|
|
|
CORE_ADDR entry_addr,
|
2011-11-20 10:14:45 +01:00
|
|
|
struct gdbarch *gdbarch)
|
2009-08-20 20:02:48 +02:00
|
|
|
{
|
|
|
|
bfd *nbfd;
|
|
|
|
struct section_addr_info *sai;
|
|
|
|
struct bfd_section *sec;
|
|
|
|
struct objfile *objfile;
|
2011-10-29 00:40:58 +02:00
|
|
|
struct cleanup *old_cleanups;
|
2009-08-20 20:02:48 +02:00
|
|
|
int i;
|
|
|
|
const struct bfd_arch_info *b;
|
|
|
|
|
2011-01-06 20:56:44 +01:00
|
|
|
if (jit_debug)
|
|
|
|
fprintf_unfiltered (gdb_stdlog,
|
|
|
|
"jit_register_code, symfile_addr = %s, "
|
|
|
|
"symfile_size = %s\n",
|
|
|
|
paddress (gdbarch, code_entry->symfile_addr),
|
|
|
|
pulongest (code_entry->symfile_size));
|
|
|
|
|
2009-08-20 20:02:48 +02:00
|
|
|
nbfd = bfd_open_from_target_memory (code_entry->symfile_addr,
|
|
|
|
code_entry->symfile_size, gnutarget);
|
2011-10-29 00:40:58 +02:00
|
|
|
if (nbfd == NULL)
|
|
|
|
{
|
|
|
|
puts_unfiltered (_("Error opening JITed symbol file, ignoring it.\n"));
|
|
|
|
return;
|
|
|
|
}
|
2009-08-20 20:02:48 +02:00
|
|
|
|
|
|
|
/* Check the format. NOTE: This initializes important data that GDB uses!
|
|
|
|
We would segfault later without this line. */
|
|
|
|
if (!bfd_check_format (nbfd, bfd_object))
|
|
|
|
{
|
|
|
|
printf_unfiltered (_("\
|
|
|
|
JITed symbol file is not an object file, ignoring it.\n"));
|
* dwarf2read.c (try_open_dwo_file): Use gdb_bfd_ref and
gdb_bfd_unref.
(free_dwo_file): Use gdb_bfd_unref.
* cli/cli-dump.c: Include gdb_bfd.h.
(bfd_openw_with_cleanup): Use gdb_bfd_ref.
(bfd_openr_with_cleanup): Likewise.
* windows-nat.c (windows_make_so): Use gdb_bfd_ref,
gdb_bfd_unref.
* utils.c: Include gdb_bfd.h.
(do_bfd_close_cleanup): Use gdb_bfd_unref.
* symfile.c: Include gdb_bfd.h.
(separate_debug_file_exists): Use gdb_bfd_unref.
(bfd_open_maybe_remote): Use gdb_bfd_ref.
(symfile_bfd_open): Use gdb_bfd_ref, gdb_bfd_unref.
(generic_load): Use gdb_bfd_ref.
(reread_symbols): Use gdb_bfd_unref.
* symfile-mem.c: Include gdb_bfd.h.
(symbol_file_add_from_memory): Use make_cleanup_bfd_close.
* spu-linux-nat.c (spu_bfd_open): Use gdb_bfd_ref, gdb_bfd_unref.
* solib.c: Include gdb_bfd.h.
(solib_bfd_fopen): Use gdb_bfd_ref.
(solib_bfd_open): Use gdb_bfd_unref.
(free_so_symbols): Use gdb_bfd_unref.
(reload_shared_libraries_1): Use gdb_bfd_unref.
* solib-spu.c: Include gdb_bfd.h.
(spu_bfd_fopen): Use gdb_bfd_ref, gdb_bfd_unref.
* solib-pa64.c (pa64_solib_create_inferior_hook): Use gdb_bfd_ref,
gdb_bfd_unref.
* solib-frv.c: Include gdb_bfd.h.
(enable_break2): Use gdb_bfd_unref.
* solib-dsbt.c: Include gdb_bfd.h.
(enable_break2): Use gdb_bfd_unref.
* solib-darwin.c: Include gdb_bfd.h.
(darwin_solib_get_all_image_info_addr_at_init): Use gdb_bfd_ref,
gdb_bfd_unref.
(darwin_bfd_open): Use gdb_bfd_unref.
* rs6000-nat.c (add_vmap): Use gdb_bfd_ref, gdb_bfd_unref.
* remote-mips.c: Include gdb_bfd.h.
(mips_load_srec): Use gdb_bfd_ref.
(pmon_load_fast): Use gdb_bfd_ref.
* remote-m32r-sdi.c: Include gdb_bfd.h.
(m32r_load): Use gdb_bfd_ref.
* record.c: Include gdb_bfd.h.
(record_save_cleanups): Use gdb_bfd_unref.
(cmd_record_save): Use gdb_bfd_unref.
* procfs.c (insert_dbx_link_bpt_in_file): Use gdb_bfd_ref,
gdb_bfd_unref.
* objfiles.h (gdb_bfd_close_or_warn): Remove.
(gdb_bfd_ref, gdb_bfd_unref): Move to gdb_bfd.h.
* objfiles.c: Include gdb_bfd.h.
(free_objfile): Use gdb_bfd_unref.
(gdb_bfd_close_or_warn, gdb_bfd_ref, gdb_bfd_unref): Move to
gdb_bfd.c.
* machoread.c (macho_add_oso_symfile): Use gdb_bfd_unref.
(macho_symfile_read_all_oso): Use gdb_bfd_ref, gdb_bfd_unref.
(macho_check_dsym): Likewise.
* m32r-rom.c: Include gdb_bfd.h.
(m32r_load): Use gdb_bfd_ref.
(m32r_upload_command): Use gdb_bfd_ref.
* jit.c: Include gdb_bfd.h.
(jit_bfd_try_read_symtab): Use gdb_bfd_ref, gdb_bfd_unref.
* gdb_bfd.h: New file.
* gdb_bfd.c: New file.
* gcore.c: Include gdb_bfd.h.
(create_gcore_bfd): Use gdb_bfd_ref.
(do_bfd_delete_cleanup): Use gdb_bfd_unref.
(gcore_command): Use gdb_bfd_unref.
* exec.c: Include gdb_bfd.h.
(exec_close): Use gdb_bfd_unref.
(exec_close_1): Use gdb_bfd_unref.
(exec_file_attach): Use gdb_bfd_ref.
* elfread.c: Include gdb_bfd.h.
(build_id_verify): Use gdb_bfd_unref.
* dsrec.c: Include gdb_bfd.h.
(load_srec): Use gdb_bfd_ref.
* corelow.c: Include gdb_bfd.h.
(core_close): Use gdb_bfd_unref.
(core_open): Use gdb_bfd_ref.
* bfd-target.c: Include gdb_bfd.h.
(target_bfd_xclose): Use gdb_bfd_unref.
(target_bfd_reopen): Use gdb_bfd_ref.
* Makefile.in (SFILES): Add gdb_bfd.c.
(HFILES_NO_SRCDIR): Add gdb_bfd.h.
(COMMON_OBS): Add gdb_bfd.o.
2012-07-18 21:33:34 +02:00
|
|
|
gdb_bfd_unref (nbfd);
|
2009-08-20 20:02:48 +02:00
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Check bfd arch. */
|
2009-08-21 20:54:44 +02:00
|
|
|
b = gdbarch_bfd_arch_info (gdbarch);
|
2009-08-20 20:02:48 +02:00
|
|
|
if (b->compatible (b, bfd_get_arch_info (nbfd)) != b)
|
|
|
|
warning (_("JITed object file architecture %s is not compatible "
|
|
|
|
"with target architecture %s."), bfd_get_arch_info
|
|
|
|
(nbfd)->printable_name, b->printable_name);
|
|
|
|
|
|
|
|
/* Read the section address information out of the symbol file. Since the
|
|
|
|
file is generated by the JIT at runtime, it should all of the absolute
|
|
|
|
addresses that we care about. */
|
|
|
|
sai = alloc_section_addr_info (bfd_count_sections (nbfd));
|
2011-10-29 00:40:58 +02:00
|
|
|
old_cleanups = make_cleanup_free_section_addr_info (sai);
|
2009-08-20 20:02:48 +02:00
|
|
|
i = 0;
|
|
|
|
for (sec = nbfd->sections; sec != NULL; sec = sec->next)
|
|
|
|
if ((bfd_get_section_flags (nbfd, sec) & (SEC_ALLOC|SEC_LOAD)) != 0)
|
|
|
|
{
|
|
|
|
/* We assume that these virtual addresses are absolute, and do not
|
|
|
|
treat them as offsets. */
|
|
|
|
sai->other[i].addr = bfd_get_section_vma (nbfd, sec);
|
2009-11-16 19:40:23 +01:00
|
|
|
sai->other[i].name = xstrdup (bfd_get_section_name (nbfd, sec));
|
2009-08-20 20:02:48 +02:00
|
|
|
sai->other[i].sectindex = sec->index;
|
|
|
|
++i;
|
|
|
|
}
|
|
|
|
|
2012-07-23 16:58:44 +02:00
|
|
|
/* This call does not take ownership of SAI. */
|
|
|
|
make_cleanup_bfd_unref (nbfd);
|
2011-04-17 20:38:46 +02:00
|
|
|
objfile = symbol_file_add_from_bfd (nbfd, 0, sai, OBJF_SHARED, NULL);
|
2009-08-20 20:02:48 +02:00
|
|
|
|
2011-10-29 00:40:58 +02:00
|
|
|
do_cleanups (old_cleanups);
|
2011-11-27 15:26:09 +01:00
|
|
|
add_objfile_entry (objfile, entry_addr);
|
2011-11-20 10:14:45 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
/* This function registers code associated with a JIT code entry. It uses the
|
|
|
|
pointer and size pair in the entry to read the symbol file from the remote
|
|
|
|
and then calls symbol_file_add_from_local_memory to add it as though it were
|
|
|
|
a symbol file added by the user. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
jit_register_code (struct gdbarch *gdbarch,
|
|
|
|
CORE_ADDR entry_addr, struct jit_code_entry *code_entry)
|
|
|
|
{
|
|
|
|
int i, success;
|
|
|
|
const struct bfd_arch_info *b;
|
|
|
|
struct jit_inferior_data *inf_data = get_jit_inferior_data ();
|
|
|
|
|
|
|
|
if (jit_debug)
|
|
|
|
fprintf_unfiltered (gdb_stdlog,
|
|
|
|
"jit_register_code, symfile_addr = %s, "
|
|
|
|
"symfile_size = %s\n",
|
|
|
|
paddress (gdbarch, code_entry->symfile_addr),
|
|
|
|
pulongest (code_entry->symfile_size));
|
|
|
|
|
2011-11-27 15:26:09 +01:00
|
|
|
success = jit_reader_try_read_symtab (code_entry, entry_addr);
|
2011-11-20 10:14:45 +01:00
|
|
|
|
|
|
|
if (!success)
|
2011-11-27 15:26:09 +01:00
|
|
|
jit_bfd_try_read_symtab (code_entry, entry_addr, gdbarch);
|
2009-08-20 20:02:48 +02:00
|
|
|
}
|
|
|
|
|
2011-01-09 04:08:57 +01:00
|
|
|
/* This function unregisters JITed code and frees the corresponding
|
|
|
|
objfile. */
|
2009-08-20 20:02:48 +02:00
|
|
|
|
|
|
|
static void
|
|
|
|
jit_unregister_code (struct objfile *objfile)
|
|
|
|
{
|
|
|
|
free_objfile (objfile);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Look up the objfile with this code entry address. */
|
|
|
|
|
|
|
|
static struct objfile *
|
|
|
|
jit_find_objf_with_entry_addr (CORE_ADDR entry_addr)
|
|
|
|
{
|
|
|
|
struct objfile *objf;
|
|
|
|
|
|
|
|
ALL_OBJFILES (objf)
|
|
|
|
{
|
2012-02-01 21:21:22 +01:00
|
|
|
struct jit_objfile_data *objf_data;
|
|
|
|
|
|
|
|
objf_data = objfile_data (objf, jit_objfile_data);
|
|
|
|
if (objf_data != NULL && objf_data->addr == entry_addr)
|
2009-08-20 20:02:48 +02:00
|
|
|
return objf;
|
|
|
|
}
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
2011-01-31 22:37:01 +01:00
|
|
|
/* (Re-)Initialize the jit breakpoint if necessary.
|
|
|
|
Return 0 on success. */
|
|
|
|
|
|
|
|
static int
|
|
|
|
jit_breakpoint_re_set_internal (struct gdbarch *gdbarch,
|
|
|
|
struct jit_inferior_data *inf_data)
|
|
|
|
{
|
2012-02-01 21:21:22 +01:00
|
|
|
struct minimal_symbol *reg_symbol, *desc_symbol;
|
|
|
|
struct objfile *objf;
|
|
|
|
struct jit_objfile_data *objf_data;
|
|
|
|
|
|
|
|
if (inf_data->objfile != NULL)
|
2011-01-31 22:37:01 +01:00
|
|
|
return 0;
|
|
|
|
|
2012-02-01 21:21:22 +01:00
|
|
|
/* Lookup the registration symbol. If it is missing, then we assume
|
|
|
|
we are not attached to a JIT. */
|
|
|
|
reg_symbol = lookup_minimal_symbol_and_objfile (jit_break_name, &objf);
|
|
|
|
if (reg_symbol == NULL || SYMBOL_VALUE_ADDRESS (reg_symbol) == 0)
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
desc_symbol = lookup_minimal_symbol (jit_descriptor_name, NULL, objf);
|
|
|
|
if (desc_symbol == NULL || SYMBOL_VALUE_ADDRESS (desc_symbol) == 0)
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
objf_data = get_jit_objfile_data (objf);
|
|
|
|
objf_data->register_code = reg_symbol;
|
|
|
|
objf_data->descriptor = desc_symbol;
|
|
|
|
|
|
|
|
inf_data->objfile = objf;
|
|
|
|
|
|
|
|
jit_inferior_init (gdbarch);
|
|
|
|
|
2011-01-31 22:37:01 +01:00
|
|
|
if (jit_debug)
|
|
|
|
fprintf_unfiltered (gdb_stdlog,
|
|
|
|
"jit_breakpoint_re_set_internal, "
|
|
|
|
"breakpoint_addr = %s\n",
|
2012-02-01 21:21:22 +01:00
|
|
|
paddress (gdbarch, SYMBOL_VALUE_ADDRESS (reg_symbol)));
|
2011-01-31 22:37:01 +01:00
|
|
|
|
|
|
|
/* Put a breakpoint in the registration symbol. */
|
2012-02-01 21:21:22 +01:00
|
|
|
create_jit_event_breakpoint (gdbarch, SYMBOL_VALUE_ADDRESS (reg_symbol));
|
2011-01-31 22:37:01 +01:00
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2011-11-20 10:18:48 +01:00
|
|
|
/* The private data passed around in the frame unwind callback
|
|
|
|
functions. */
|
|
|
|
|
|
|
|
struct jit_unwind_private
|
|
|
|
{
|
|
|
|
/* Cached register values. See jit_frame_sniffer to see how this
|
|
|
|
works. */
|
|
|
|
struct gdb_reg_value **registers;
|
|
|
|
|
|
|
|
/* The frame being unwound. */
|
|
|
|
struct frame_info *this_frame;
|
|
|
|
};
|
|
|
|
|
|
|
|
/* Sets the value of a particular register in this frame. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
jit_unwind_reg_set_impl (struct gdb_unwind_callbacks *cb, int dwarf_regnum,
|
|
|
|
struct gdb_reg_value *value)
|
|
|
|
{
|
|
|
|
struct jit_unwind_private *priv;
|
|
|
|
int gdb_reg;
|
|
|
|
|
|
|
|
priv = cb->priv_data;
|
|
|
|
|
|
|
|
gdb_reg = gdbarch_dwarf2_reg_to_regnum (get_frame_arch (priv->this_frame),
|
|
|
|
dwarf_regnum);
|
|
|
|
if (gdb_reg == -1)
|
|
|
|
{
|
|
|
|
if (jit_debug)
|
|
|
|
fprintf_unfiltered (gdb_stdlog,
|
|
|
|
_("Could not recognize DWARF regnum %d"),
|
|
|
|
dwarf_regnum);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
gdb_assert (priv->registers);
|
|
|
|
priv->registers[gdb_reg] = value;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
reg_value_free_impl (struct gdb_reg_value *value)
|
|
|
|
{
|
|
|
|
xfree (value);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Get the value of register REGNUM in the previous frame. */
|
|
|
|
|
|
|
|
static struct gdb_reg_value *
|
|
|
|
jit_unwind_reg_get_impl (struct gdb_unwind_callbacks *cb, int regnum)
|
|
|
|
{
|
|
|
|
struct jit_unwind_private *priv;
|
|
|
|
struct gdb_reg_value *value;
|
|
|
|
int gdb_reg, size;
|
|
|
|
struct gdbarch *frame_arch;
|
|
|
|
|
|
|
|
priv = cb->priv_data;
|
|
|
|
frame_arch = get_frame_arch (priv->this_frame);
|
|
|
|
|
|
|
|
gdb_reg = gdbarch_dwarf2_reg_to_regnum (frame_arch, regnum);
|
|
|
|
size = register_size (frame_arch, gdb_reg);
|
|
|
|
value = xmalloc (sizeof (struct gdb_reg_value) + size - 1);
|
|
|
|
value->defined = frame_register_read (priv->this_frame, gdb_reg,
|
|
|
|
value->value);
|
|
|
|
value->size = size;
|
|
|
|
value->free = reg_value_free_impl;
|
|
|
|
return value;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* gdb_reg_value has a free function, which must be called on each
|
|
|
|
saved register value. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
jit_dealloc_cache (struct frame_info *this_frame, void *cache)
|
|
|
|
{
|
|
|
|
struct jit_unwind_private *priv_data = cache;
|
|
|
|
struct gdbarch *frame_arch;
|
|
|
|
int i;
|
|
|
|
|
|
|
|
gdb_assert (priv_data->registers);
|
|
|
|
frame_arch = get_frame_arch (priv_data->this_frame);
|
|
|
|
|
|
|
|
for (i = 0; i < gdbarch_num_regs (frame_arch); i++)
|
|
|
|
if (priv_data->registers[i] && priv_data->registers[i]->free)
|
|
|
|
priv_data->registers[i]->free (priv_data->registers[i]);
|
|
|
|
|
|
|
|
xfree (priv_data->registers);
|
|
|
|
xfree (priv_data);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* The frame sniffer for the pseudo unwinder.
|
|
|
|
|
|
|
|
While this is nominally a frame sniffer, in the case where the JIT
|
|
|
|
reader actually recognizes the frame, it does a lot more work -- it
|
|
|
|
unwinds the frame and saves the corresponding register values in
|
|
|
|
the cache. jit_frame_prev_register simply returns the saved
|
|
|
|
register values. */
|
|
|
|
|
|
|
|
static int
|
|
|
|
jit_frame_sniffer (const struct frame_unwind *self,
|
|
|
|
struct frame_info *this_frame, void **cache)
|
|
|
|
{
|
|
|
|
struct jit_inferior_data *inf_data;
|
|
|
|
struct jit_unwind_private *priv_data;
|
|
|
|
struct gdb_unwind_callbacks callbacks;
|
|
|
|
struct gdb_reader_funcs *funcs;
|
|
|
|
|
|
|
|
inf_data = get_jit_inferior_data ();
|
|
|
|
|
|
|
|
callbacks.reg_get = jit_unwind_reg_get_impl;
|
|
|
|
callbacks.reg_set = jit_unwind_reg_set_impl;
|
|
|
|
callbacks.target_read = jit_target_read_impl;
|
|
|
|
|
|
|
|
if (loaded_jit_reader == NULL)
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
funcs = loaded_jit_reader->functions;
|
|
|
|
|
|
|
|
gdb_assert (!*cache);
|
|
|
|
|
|
|
|
*cache = XZALLOC (struct jit_unwind_private);
|
|
|
|
priv_data = *cache;
|
|
|
|
priv_data->registers =
|
|
|
|
XCALLOC (gdbarch_num_regs (get_frame_arch (this_frame)),
|
|
|
|
struct gdb_reg_value *);
|
|
|
|
priv_data->this_frame = this_frame;
|
|
|
|
|
|
|
|
callbacks.priv_data = priv_data;
|
|
|
|
|
|
|
|
/* Try to coax the provided unwinder to unwind the stack */
|
|
|
|
if (funcs->unwind (funcs, &callbacks) == GDB_SUCCESS)
|
|
|
|
{
|
|
|
|
if (jit_debug)
|
|
|
|
fprintf_unfiltered (gdb_stdlog, _("Successfully unwound frame using "
|
|
|
|
"JIT reader.\n"));
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
if (jit_debug)
|
|
|
|
fprintf_unfiltered (gdb_stdlog, _("Could not unwind frame using "
|
|
|
|
"JIT reader.\n"));
|
|
|
|
|
|
|
|
jit_dealloc_cache (this_frame, *cache);
|
|
|
|
*cache = NULL;
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* The frame_id function for the pseudo unwinder. Relays the call to
|
|
|
|
the loaded plugin. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
jit_frame_this_id (struct frame_info *this_frame, void **cache,
|
|
|
|
struct frame_id *this_id)
|
|
|
|
{
|
|
|
|
struct jit_unwind_private private;
|
|
|
|
struct gdb_frame_id frame_id;
|
|
|
|
struct gdb_reader_funcs *funcs;
|
|
|
|
struct gdb_unwind_callbacks callbacks;
|
|
|
|
|
|
|
|
private.registers = NULL;
|
|
|
|
private.this_frame = this_frame;
|
|
|
|
|
|
|
|
/* We don't expect the frame_id function to set any registers, so we
|
|
|
|
set reg_set to NULL. */
|
|
|
|
callbacks.reg_get = jit_unwind_reg_get_impl;
|
|
|
|
callbacks.reg_set = NULL;
|
|
|
|
callbacks.target_read = jit_target_read_impl;
|
|
|
|
callbacks.priv_data = &private;
|
|
|
|
|
|
|
|
gdb_assert (loaded_jit_reader);
|
|
|
|
funcs = loaded_jit_reader->functions;
|
|
|
|
|
|
|
|
frame_id = funcs->get_frame_id (funcs, &callbacks);
|
|
|
|
*this_id = frame_id_build (frame_id.stack_address, frame_id.code_address);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Pseudo unwinder function. Reads the previously fetched value for
|
|
|
|
the register from the cache. */
|
|
|
|
|
|
|
|
static struct value *
|
|
|
|
jit_frame_prev_register (struct frame_info *this_frame, void **cache, int reg)
|
|
|
|
{
|
|
|
|
struct jit_unwind_private *priv = *cache;
|
|
|
|
struct gdb_reg_value *value;
|
|
|
|
|
|
|
|
if (priv == NULL)
|
|
|
|
return frame_unwind_got_optimized (this_frame, reg);
|
|
|
|
|
|
|
|
gdb_assert (priv->registers);
|
|
|
|
value = priv->registers[reg];
|
|
|
|
if (value && value->defined)
|
|
|
|
return frame_unwind_got_bytes (this_frame, reg, value->value);
|
|
|
|
else
|
|
|
|
return frame_unwind_got_optimized (this_frame, reg);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Relay everything back to the unwinder registered by the JIT debug
|
|
|
|
info reader.*/
|
|
|
|
|
|
|
|
static const struct frame_unwind jit_frame_unwind =
|
|
|
|
{
|
|
|
|
NORMAL_FRAME,
|
|
|
|
default_frame_unwind_stop_reason,
|
|
|
|
jit_frame_this_id,
|
|
|
|
jit_frame_prev_register,
|
|
|
|
NULL,
|
|
|
|
jit_frame_sniffer,
|
|
|
|
jit_dealloc_cache
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
/* This is the information that is stored at jit_gdbarch_data for each
|
|
|
|
architecture. */
|
|
|
|
|
|
|
|
struct jit_gdbarch_data_type
|
|
|
|
{
|
|
|
|
/* Has the (pseudo) unwinder been prepended? */
|
|
|
|
int unwinder_registered;
|
|
|
|
};
|
|
|
|
|
|
|
|
/* Check GDBARCH and prepend the pseudo JIT unwinder if needed. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
jit_prepend_unwinder (struct gdbarch *gdbarch)
|
|
|
|
{
|
|
|
|
struct jit_gdbarch_data_type *data;
|
|
|
|
|
|
|
|
data = gdbarch_data (gdbarch, jit_gdbarch_data);
|
|
|
|
if (!data->unwinder_registered)
|
|
|
|
{
|
|
|
|
frame_unwind_prepend_unwinder (gdbarch, &jit_frame_unwind);
|
|
|
|
data->unwinder_registered = 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2011-01-31 22:37:01 +01:00
|
|
|
/* Register any already created translations. */
|
2009-08-21 20:54:44 +02:00
|
|
|
|
|
|
|
static void
|
|
|
|
jit_inferior_init (struct gdbarch *gdbarch)
|
2009-08-20 20:02:48 +02:00
|
|
|
{
|
|
|
|
struct jit_descriptor descriptor;
|
|
|
|
struct jit_code_entry cur_entry;
|
2011-01-31 22:37:01 +01:00
|
|
|
struct jit_inferior_data *inf_data;
|
2009-08-20 20:02:48 +02:00
|
|
|
CORE_ADDR cur_entry_addr;
|
|
|
|
|
2011-01-06 20:56:44 +01:00
|
|
|
if (jit_debug)
|
2011-01-31 22:37:01 +01:00
|
|
|
fprintf_unfiltered (gdb_stdlog, "jit_inferior_init\n");
|
2011-01-06 20:56:44 +01:00
|
|
|
|
2011-11-20 10:18:48 +01:00
|
|
|
jit_prepend_unwinder (gdbarch);
|
|
|
|
|
2011-01-31 22:37:01 +01:00
|
|
|
inf_data = get_jit_inferior_data ();
|
|
|
|
if (jit_breakpoint_re_set_internal (gdbarch, inf_data) != 0)
|
2009-08-20 20:02:48 +02:00
|
|
|
return;
|
|
|
|
|
2011-01-09 04:08:57 +01:00
|
|
|
/* Read the descriptor so we can check the version number and load
|
|
|
|
any already JITed functions. */
|
2012-02-01 21:21:22 +01:00
|
|
|
if (!jit_read_descriptor (gdbarch, &descriptor, inf_data))
|
|
|
|
return;
|
2009-08-20 20:02:48 +02:00
|
|
|
|
|
|
|
/* Check that the version number agrees with that we support. */
|
|
|
|
if (descriptor.version != 1)
|
2012-02-01 21:21:22 +01:00
|
|
|
{
|
|
|
|
printf_unfiltered (_("Unsupported JIT protocol version %ld "
|
|
|
|
"in descriptor (expected 1)\n"),
|
|
|
|
(long) descriptor.version);
|
|
|
|
return;
|
|
|
|
}
|
2009-08-20 20:02:48 +02:00
|
|
|
|
2011-01-09 04:08:57 +01:00
|
|
|
/* If we've attached to a running program, we need to check the descriptor
|
|
|
|
to register any functions that were already generated. */
|
2009-08-20 20:02:48 +02:00
|
|
|
for (cur_entry_addr = descriptor.first_entry;
|
|
|
|
cur_entry_addr != 0;
|
|
|
|
cur_entry_addr = cur_entry.next_entry)
|
|
|
|
{
|
2009-08-21 20:54:44 +02:00
|
|
|
jit_read_code_entry (gdbarch, cur_entry_addr, &cur_entry);
|
2009-08-20 20:02:48 +02:00
|
|
|
|
|
|
|
/* This hook may be called many times during setup, so make sure we don't
|
|
|
|
add the same symbol file twice. */
|
|
|
|
if (jit_find_objf_with_entry_addr (cur_entry_addr) != NULL)
|
|
|
|
continue;
|
|
|
|
|
2009-08-21 20:54:44 +02:00
|
|
|
jit_register_code (gdbarch, cur_entry_addr, &cur_entry);
|
2009-08-20 20:02:48 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2009-08-21 20:54:44 +02:00
|
|
|
/* Exported routine to call when an inferior has been created. */
|
|
|
|
|
|
|
|
void
|
|
|
|
jit_inferior_created_hook (void)
|
|
|
|
{
|
|
|
|
jit_inferior_init (target_gdbarch);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Exported routine to call to re-set the jit breakpoints,
|
|
|
|
e.g. when a program is rerun. */
|
|
|
|
|
|
|
|
void
|
|
|
|
jit_breakpoint_re_set (void)
|
|
|
|
{
|
2011-01-31 22:37:01 +01:00
|
|
|
jit_breakpoint_re_set_internal (target_gdbarch,
|
|
|
|
get_jit_inferior_data ());
|
|
|
|
}
|
|
|
|
|
2011-01-09 04:08:57 +01:00
|
|
|
/* This function cleans up any code entries left over when the
|
|
|
|
inferior exits. We get left over code when the inferior exits
|
|
|
|
without unregistering its code, for example when it crashes. */
|
2009-08-20 20:02:48 +02:00
|
|
|
|
|
|
|
static void
|
Multiexec MI
* breakpoint.c (clear_syscall_counts): Take struct inferior*.
* inferior.c (add_inferior_silent): Notify inferior_added
observer.
(delete_inferior_1): Notify inferior_removed observer.
(exit_inferior_1): Pass inferior, not pid, to observer.
(inferior_appeared): Likewise.
(add_inferior_with_spaces): New.
(add_inferior_command): Use the above.
* inferior.h (delete_inferior_1, add_inferior_with_spaces):
Declare.
* inflow.c (inflow_inferior_exit): Likewise.
* jit.c (jit_inferior_exit_hook): Likewise.
* mi/mi-cmds.c (mi_cmds): Register add-inferior and
remove-inferior.
* mi/mi-cmds.h (mi_cmd_add_inferior, mi_cmd_remove_inferior): New.
* mi/mi-interp.c (mi_inferior_added, mi_inferior_removed): New.
(report_initial_inferior): New.
(mi_inferior_removed): Register the above. Make sure
inferior_added observer is called on the first inferior.
(mi_new_thread, mi_thread_exit): Thread group is now identified by
inferior number, not pid.
(mi_solib_loaded, mi_solib_unloaded): Report which inferiors are
affected.
* mi/mi-main.c (current_context): New.
(proceed_thread_callback): Use typed closure.
Proceed everything if pid is 0. Most implementation split into
(proceed_thread): ... this.
(run_one_inferior): New.
(mi_cmd_exec_continue, mi_cmd_exec_interrupt, mi_cmd_exec_run):
Adjust for multiexec behaviour.
(mi_cmd_add_inferior, mi_cmd_remove_inferior): New.
(mi_cmd_execute): Handle the 'thread-group' option here.
Do some extra checks.
* mi-parse.c (mi_parse): Handle the --all and --thread-group
options.
* mi-parse.h (struct mi_parse): New fields all and thread_group.
2010-02-24 08:51:46 +01:00
|
|
|
jit_inferior_exit_hook (struct inferior *inf)
|
2009-08-20 20:02:48 +02:00
|
|
|
{
|
|
|
|
struct objfile *objf;
|
|
|
|
struct objfile *temp;
|
|
|
|
|
|
|
|
ALL_OBJFILES_SAFE (objf, temp)
|
2012-02-01 21:21:22 +01:00
|
|
|
{
|
|
|
|
struct jit_objfile_data *objf_data = objfile_data (objf,
|
|
|
|
jit_objfile_data);
|
2009-08-20 20:02:48 +02:00
|
|
|
|
2012-02-01 21:21:22 +01:00
|
|
|
if (objf_data != NULL && objf_data->addr != 0)
|
|
|
|
jit_unregister_code (objf);
|
|
|
|
}
|
2011-01-31 22:37:01 +01:00
|
|
|
}
|
|
|
|
|
2009-08-20 20:02:48 +02:00
|
|
|
void
|
2009-08-21 20:54:44 +02:00
|
|
|
jit_event_handler (struct gdbarch *gdbarch)
|
2009-08-20 20:02:48 +02:00
|
|
|
{
|
|
|
|
struct jit_descriptor descriptor;
|
|
|
|
struct jit_code_entry code_entry;
|
|
|
|
CORE_ADDR entry_addr;
|
|
|
|
struct objfile *objf;
|
|
|
|
|
|
|
|
/* Read the descriptor from remote memory. */
|
2012-02-01 21:21:22 +01:00
|
|
|
if (!jit_read_descriptor (gdbarch, &descriptor, get_jit_inferior_data ()))
|
|
|
|
return;
|
2009-08-20 20:02:48 +02:00
|
|
|
entry_addr = descriptor.relevant_entry;
|
|
|
|
|
2011-01-09 04:08:57 +01:00
|
|
|
/* Do the corresponding action. */
|
2009-08-20 20:02:48 +02:00
|
|
|
switch (descriptor.action_flag)
|
|
|
|
{
|
|
|
|
case JIT_NOACTION:
|
|
|
|
break;
|
|
|
|
case JIT_REGISTER:
|
2009-08-21 20:54:44 +02:00
|
|
|
jit_read_code_entry (gdbarch, entry_addr, &code_entry);
|
|
|
|
jit_register_code (gdbarch, entry_addr, &code_entry);
|
2009-08-20 20:02:48 +02:00
|
|
|
break;
|
|
|
|
case JIT_UNREGISTER:
|
|
|
|
objf = jit_find_objf_with_entry_addr (entry_addr);
|
|
|
|
if (objf == NULL)
|
2011-01-09 04:08:57 +01:00
|
|
|
printf_unfiltered (_("Unable to find JITed code "
|
|
|
|
"entry at address: %s\n"),
|
2009-08-21 21:07:01 +02:00
|
|
|
paddress (gdbarch, entry_addr));
|
2009-08-20 20:02:48 +02:00
|
|
|
else
|
|
|
|
jit_unregister_code (objf);
|
|
|
|
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
error (_("Unknown action_flag value in JIT descriptor!"));
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2011-11-20 10:14:45 +01:00
|
|
|
/* Called to free the data allocated to the jit_inferior_data slot. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
free_objfile_data (struct objfile *objfile, void *data)
|
|
|
|
{
|
2012-02-01 21:21:22 +01:00
|
|
|
struct jit_objfile_data *objf_data = data;
|
|
|
|
|
|
|
|
if (objf_data->register_code != NULL)
|
|
|
|
{
|
|
|
|
struct jit_inferior_data *inf_data = get_jit_inferior_data ();
|
|
|
|
|
|
|
|
if (inf_data->objfile == objfile)
|
|
|
|
inf_data->objfile = NULL;
|
|
|
|
}
|
|
|
|
|
2011-11-20 10:14:45 +01:00
|
|
|
xfree (data);
|
|
|
|
}
|
|
|
|
|
2011-11-20 10:18:48 +01:00
|
|
|
/* Initialize the jit_gdbarch_data slot with an instance of struct
|
|
|
|
jit_gdbarch_data_type */
|
|
|
|
|
|
|
|
static void *
|
|
|
|
jit_gdbarch_data_init (struct obstack *obstack)
|
|
|
|
{
|
|
|
|
struct jit_gdbarch_data_type *data;
|
|
|
|
|
|
|
|
data = obstack_alloc (obstack, sizeof (struct jit_gdbarch_data_type));
|
|
|
|
data->unwinder_registered = 0;
|
|
|
|
return data;
|
|
|
|
}
|
|
|
|
|
2009-08-20 20:02:48 +02:00
|
|
|
/* Provide a prototype to silence -Wmissing-prototypes. */
|
|
|
|
|
|
|
|
extern void _initialize_jit (void);
|
|
|
|
|
|
|
|
void
|
|
|
|
_initialize_jit (void)
|
|
|
|
{
|
2011-11-20 09:53:25 +01:00
|
|
|
jit_reader_dir = relocate_gdb_directory (JIT_READER_DIR,
|
|
|
|
JIT_READER_DIR_RELOCATABLE);
|
2012-08-02 11:36:40 +02:00
|
|
|
add_setshow_zuinteger_cmd ("jit", class_maintenance, &jit_debug,
|
|
|
|
_("Set JIT debugging."),
|
|
|
|
_("Show JIT debugging."),
|
|
|
|
_("When non-zero, JIT debugging is enabled."),
|
|
|
|
NULL,
|
|
|
|
show_jit_debug,
|
|
|
|
&setdebuglist, &showdebuglist);
|
2011-01-06 20:56:44 +01:00
|
|
|
|
2009-08-20 20:02:48 +02:00
|
|
|
observer_attach_inferior_exit (jit_inferior_exit_hook);
|
2011-11-20 10:14:45 +01:00
|
|
|
jit_objfile_data =
|
|
|
|
register_objfile_data_with_cleanup (NULL, free_objfile_data);
|
2011-01-31 22:37:01 +01:00
|
|
|
jit_inferior_data =
|
|
|
|
register_inferior_data_with_cleanup (jit_inferior_data_cleanup);
|
2011-11-20 10:18:48 +01:00
|
|
|
jit_gdbarch_data = gdbarch_data_register_pre_init (jit_gdbarch_data_init);
|
2011-11-20 10:09:56 +01:00
|
|
|
if (is_dl_available ())
|
|
|
|
{
|
|
|
|
add_com ("jit-reader-load", no_class, jit_reader_load_command, _("\
|
|
|
|
Load FILE as debug info reader and unwinder for JIT compiled code.\n\
|
|
|
|
Usage: jit-reader-load FILE\n\
|
|
|
|
Try to load file FILE as a debug info reader (and unwinder) for\n\
|
|
|
|
JIT compiled code. The file is loaded from " JIT_READER_DIR ",\n\
|
|
|
|
relocated relative to the GDB executable if required."));
|
|
|
|
add_com ("jit-reader-unload", no_class, jit_reader_unload_command, _("\
|
|
|
|
Unload the currently loaded JIT debug info reader.\n\
|
|
|
|
Usage: jit-reader-unload FILE\n\n\
|
|
|
|
Do \"help jit-reader-load\" for info on loading debug info readers."));
|
|
|
|
}
|
2009-08-20 20:02:48 +02:00
|
|
|
}
|