From: Simon Marchi Date: Thu, 13 Feb 2020 21:27:51 +0000 (-0500) Subject: gdbserver: rename source files to .cc X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=feacfcacaac9f7e62f467a33c4ae54c56501ed18;p=binutils-gdb.git gdbserver: rename source files to .cc For the same reasons outlined in the previous patch, this patch renames gdbserver source files to .cc. I have moved the "-x c++" switch to only those rules that require it. gdbserver/ChangeLog: * Makefile.in: Rename source files from .c to .cc. * %.c: Rename to %.cc. * configure.ac: Rename server.c to server.cc. * configure: Re-generate. --- diff --git a/gdbserver/ChangeLog b/gdbserver/ChangeLog index 919ad78f5ea..6e6c268e782 100644 --- a/gdbserver/ChangeLog +++ b/gdbserver/ChangeLog @@ -1,3 +1,10 @@ +2020-02-13 Simon Marchi + + * Makefile.in: Rename source files from .c to .cc. + * %.c: Rename to %.cc. + * configure.ac: Rename server.c to server.cc. + * configure: Re-generate. + 2020-02-13 Simon Marchi * Makefile.in: Rename gdbsupport source files from .c to .cc. diff --git a/gdbserver/Makefile.in b/gdbserver/Makefile.in index d912a0babef..5d0d608e058 100644 --- a/gdbserver/Makefile.in +++ b/gdbserver/Makefile.in @@ -79,7 +79,7 @@ include $(srcdir)/../gdb/silent-rules.mk # Note that these are overridden by GNU make-specific code below if # GNU make is used. The overrides implement dependency tracking. -COMPILE.pre = $(CXX) -x c++ $(CXX_DIALECT) +COMPILE.pre = $(CXX) $(CXX_DIALECT) COMPILE.post = -c -o $@ COMPILE = $(ECHO_CXX) $(COMPILE.pre) $(INTERNAL_CFLAGS) $(COMPILE.post) POSTCOMPILE = @true @@ -162,46 +162,46 @@ INTERNAL_LDFLAGS = $(LDFLAGS) @RDYNAMIC@ # All source files that go into linking GDB remote server. SFILES = \ - $(srcdir)/debug.c \ - $(srcdir)/dll.c \ - $(srcdir)/gdbreplay.c \ - $(srcdir)/hostio.c \ - $(srcdir)/hostio-errno.c \ - $(srcdir)/i387-fp.c \ - $(srcdir)/inferiors.c \ - $(srcdir)/linux-aarch64-low.c \ - $(srcdir)/linux-arm-low.c \ - $(srcdir)/linux-bfin-low.c \ - $(srcdir)/linux-cris-low.c \ - $(srcdir)/linux-crisv32-low.c \ - $(srcdir)/linux-ia64-low.c \ - $(srcdir)/linux-low.c \ - $(srcdir)/linux-m32r-low.c \ - $(srcdir)/linux-m68k-low.c \ - $(srcdir)/linux-mips-low.c \ - $(srcdir)/linux-nios2-low.c \ - $(srcdir)/linux-ppc-low.c \ - $(srcdir)/linux-s390-low.c \ - $(srcdir)/linux-sh-low.c \ - $(srcdir)/linux-sparc-low.c \ - $(srcdir)/linux-tile-low.c \ - $(srcdir)/linux-x86-low.c \ - $(srcdir)/linux-xtensa-low.c \ - $(srcdir)/mem-break.c \ - $(srcdir)/proc-service.c \ + $(srcdir)/debug.cc \ + $(srcdir)/dll.cc \ + $(srcdir)/gdbreplay.cc \ + $(srcdir)/hostio.cc \ + $(srcdir)/hostio-errno.cc \ + $(srcdir)/i387-fp.cc \ + $(srcdir)/inferiors.cc \ + $(srcdir)/linux-aarch64-low.cc \ + $(srcdir)/linux-arm-low.cc \ + $(srcdir)/linux-bfin-low.cc \ + $(srcdir)/linux-cris-low.cc \ + $(srcdir)/linux-crisv32-low.cc \ + $(srcdir)/linux-ia64-low.cc \ + $(srcdir)/linux-low.cc \ + $(srcdir)/linux-m32r-low.cc \ + $(srcdir)/linux-m68k-low.cc \ + $(srcdir)/linux-mips-low.cc \ + $(srcdir)/linux-nios2-low.cc \ + $(srcdir)/linux-ppc-low.cc \ + $(srcdir)/linux-s390-low.cc \ + $(srcdir)/linux-sh-low.cc \ + $(srcdir)/linux-sparc-low.cc \ + $(srcdir)/linux-tile-low.cc \ + $(srcdir)/linux-x86-low.cc \ + $(srcdir)/linux-xtensa-low.cc \ + $(srcdir)/mem-break.cc \ + $(srcdir)/proc-service.cc \ $(srcdir)/proc-service.list \ - $(srcdir)/regcache.c \ - $(srcdir)/remote-utils.c \ - $(srcdir)/server.c \ - $(srcdir)/symbol.c \ - $(srcdir)/target.c \ - $(srcdir)/thread-db.c \ - $(srcdir)/utils.c \ - $(srcdir)/win32-arm-low.c \ - $(srcdir)/win32-i386-low.c \ - $(srcdir)/win32-low.c \ - $(srcdir)/wincecompat.c \ - $(srcdir)/x86-low.c \ + $(srcdir)/regcache.cc \ + $(srcdir)/remote-utils.cc \ + $(srcdir)/server.cc \ + $(srcdir)/symbol.cc \ + $(srcdir)/target.cc \ + $(srcdir)/thread-db.cc \ + $(srcdir)/utils.cc \ + $(srcdir)/win32-arm-low.cc \ + $(srcdir)/win32-i386-low.cc \ + $(srcdir)/win32-low.cc \ + $(srcdir)/wincecompat.cc \ + $(srcdir)/x86-low.cc \ $(srcdir)/../gdb/alloc.c \ $(srcdir)/../gdb/arch/arm.c \ $(srcdir)/../gdb/arch/arm-get-next-pcs.c \ @@ -469,7 +469,7 @@ TAGS: ${TAGFILES} etags \ `for i in yzzy ${DEPFILES}; do \ if [ x$$i != xyzzy ]; then \ - echo ${srcdir}/$$i | sed -e 's/\.o$$/\.c/' \ + echo ${srcdir}/$$i | sed -e 's/\.o$$/\.cc/' \ -e 's,/\(arch\|nat\|target\)/,/../\1/,' \ -e 's,/\(gdbsupport\)/,/../../\1/,'; \ fi; \ @@ -481,7 +481,7 @@ clean: rm -f *.o ${ADD_FILES} *~ rm -f gdbserver$(EXEEXT) gdbreplay$(EXEEXT) core make.log rm -f $(IPA_LIB) - rm -f *-generated.c + rm -f *-generated.cc rm -f stamp-xml rm -f $(DEPDIR)/*.Po for i in $(CONFIG_SRC_SUBDIR); do \ @@ -541,19 +541,19 @@ am--refresh: force: -version-generated.c: Makefile $(srcdir)/../gdb/version.in $(srcdir)/../bfd/version.h $(srcdir)/../gdbsupport/create-version.sh +version-generated.cc: Makefile $(srcdir)/../gdb/version.in $(srcdir)/../bfd/version.h $(srcdir)/../gdbsupport/create-version.sh $(ECHO_GEN) $(SHELL) $(srcdir)/../gdbsupport/create-version.sh $(srcdir)/../gdb \ $(host_alias) $(target_alias) $@ -xml-builtin-generated.c: stamp-xml; @true +xml-builtin-generated.cc: stamp-xml; @true stamp-xml: $(XML_DIR)/feature_to_c.sh Makefile $(XML_FILES) $(SILENCE) rm -f xml-builtin.tmp $(ECHO_GEN_XML_BUILTIN_GENERATED) $(SHELL) $(XML_DIR)/feature_to_c.sh \ xml-builtin.tmp $(XML_FILES) - $(SILENCE) $(SHELL) $(srcdir)/../move-if-change xml-builtin.tmp xml-builtin-generated.c + $(SILENCE) $(SHELL) $(srcdir)/../move-if-change xml-builtin.tmp xml-builtin-generated.cc $(SILENCE) echo stamp > stamp-xml -.PRECIOUS: xml-builtin.c +.PRECIOUS: xml-builtin.cc # GNU Make has an annoying habit of putting *all* the Makefile variables # into the environment, unless you include this target as a circumvention. @@ -586,87 +586,87 @@ IPAGENT_COMPILE = $(ECHO_CXX) $(COMPILE.pre) $(IPAGENT_CFLAGS) $(COMPILE.post) # Rules for special cases. -ax-ipa.o: ax.c +ax-ipa.o: ax.cc $(IPAGENT_COMPILE) $(WARN_CFLAGS_NO_FORMAT) $< $(POSTCOMPILE) -ax.o: ax.c +ax.o: ax.cc $(COMPILE) $(WARN_CFLAGS_NO_FORMAT) $< $(POSTCOMPILE) # Rules for objects that go in the in-process agent. arch/%-ipa.o: ../gdb/arch/%.c - $(IPAGENT_COMPILE) $< + $(IPAGENT_COMPILE) -x c++ $< $(POSTCOMPILE) gdbsupport/%-ipa.o: ../gdbsupport/%.cc $(IPAGENT_COMPILE) $< $(POSTCOMPILE) -%-ipa.o: %-generated.c +%-ipa.o: %-generated.cc $(IPAGENT_COMPILE) $< $(POSTCOMPILE) -%-ipa.o: %.c +%-ipa.o: %.cc $(IPAGENT_COMPILE) $< $(POSTCOMPILE) %-ipa.o: ../gdb/%.c - $(IPAGENT_COMPILE) $< + $(IPAGENT_COMPILE) -x c++ $< $(POSTCOMPILE) # Note: Between two matching pattern rules, GNU Make 3.81 chooses the first one. -# Therefore, this one needs to be before "%.o: %.c" for it to be considered for -# files such as linux-amd64-ipa.o generated from linux-amd64-ipa.c. +# Therefore, this one needs to be before "%.o: %.cc" for it to be considered for +# files such as linux-amd64-ipa.o generated from linux-amd64-ipa.cc. # # Later versions of GNU Make choose the rule with the shortest stem, so it would # work in any order. -%-ipa.o: %-ipa.c +%-ipa.o: %-ipa.cc $(IPAGENT_COMPILE) $< $(POSTCOMPILE) # Rules for objects that go in the gdbserver binary. arch/%.o: ../gdb/arch/%.c - $(COMPILE) $< + $(COMPILE) -x c++ $< $(POSTCOMPILE) gdbsupport/%.o: ../gdbsupport/%.cc $(COMPILE) $< $(POSTCOMPILE) -%.o: %-generated.c +%.o: %-generated.cc $(COMPILE) $< $(POSTCOMPILE) -%.o: %.c +%.o: %.cc $(COMPILE) $< $(POSTCOMPILE) nat/%.o: ../gdb/nat/%.c - $(COMPILE) $< + $(COMPILE) -x c++ $< $(POSTCOMPILE) target/%.o: ../gdb/target/%.c - $(COMPILE) $< + $(COMPILE) -x c++ $< $(POSTCOMPILE) %.o: ../gdb/%.c - $(COMPILE) $< + $(COMPILE) -x c++ $< $(POSTCOMPILE) # Rules for register format descriptions. Suffix destination files with # -generated to identify and clean them easily. -%-generated.c: ../gdb/regformats/%.dat $(regdat_sh) +%-generated.cc: ../gdb/regformats/%.dat $(regdat_sh) $(ECHO_REGDAT) $(SHELL) $(regdat_sh) $< $@ -%-generated.c: ../gdb/regformats/arm/%.dat $(regdat_sh) +%-generated.cc: ../gdb/regformats/arm/%.dat $(regdat_sh) $(ECHO_REGDAT) $(SHELL) $(regdat_sh) $< $@ -%-generated.c: ../gdb/regformats/rs6000/%.dat $(regdat_sh) +%-generated.cc: ../gdb/regformats/rs6000/%.dat $(regdat_sh) $(ECHO_REGDAT) $(SHELL) $(regdat_sh) $< $@ # @@ -684,7 +684,7 @@ override POSTCOMPILE = @mv $(@D)/$(DEPDIR)/$(basename $(@F)).Tpo \ else override COMPILE.pre = source='$<' object='$@' libtool=no \ DEPDIR=$(DEPDIR) $(DEPMODE) $(depcomp) \ - $(CXX) -x c++ $(CXX_DIALECT) + $(CXX) $(CXX_DIALECT) # depcomp handles atomicity for us, so we don't need a postcompile # step. override POSTCOMPILE = @@ -713,7 +713,7 @@ all_deps_files = $(foreach dep,$(patsubst %.o,%.Po,$(all_object_files)),\ # Disable implicit make rules. include $(srcdir)/../gdb/disable-implicit-rules.mk -# Do not delete intermediate files (e.g. *-generated.c). +# Do not delete intermediate files (e.g. *-generated.cc). .SECONDARY: # This is the end of "Makefile.in". diff --git a/gdbserver/ax.c b/gdbserver/ax.c deleted file mode 100644 index 213db410a07..00000000000 --- a/gdbserver/ax.c +++ /dev/null @@ -1,1376 +0,0 @@ -/* Agent expression code for remote server. - Copyright (C) 2009-2020 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 . */ - -#include "server.h" -#include "ax.h" -#include "gdbsupport/format.h" -#include "tracepoint.h" -#include "gdbsupport/rsp-low.h" - -static void ax_vdebug (const char *, ...) ATTRIBUTE_PRINTF (1, 2); - -#ifdef IN_PROCESS_AGENT -int debug_agent = 0; -#endif - -static void -ax_vdebug (const char *fmt, ...) -{ - char buf[1024]; - va_list ap; - - va_start (ap, fmt); - vsprintf (buf, fmt, ap); -#ifdef IN_PROCESS_AGENT - fprintf (stderr, PROG "/ax: %s\n", buf); -#else - debug_printf (PROG "/ax: %s\n", buf); -#endif - va_end (ap); -} - -#define ax_debug_1(level, fmt, args...) \ - do { \ - if (level <= debug_threads) \ - ax_vdebug ((fmt), ##args); \ - } while (0) - -#define ax_debug(FMT, args...) \ - ax_debug_1 (1, FMT, ##args) - -/* This enum must exactly match what is documented in - gdb/doc/agentexpr.texi, including all the numerical values. */ - -enum gdb_agent_op - { -#define DEFOP(NAME, SIZE, DATA_SIZE, CONSUMED, PRODUCED, VALUE) \ - gdb_agent_op_ ## NAME = VALUE, -#include "gdbsupport/ax.def" -#undef DEFOP - gdb_agent_op_last - }; - -static const char *gdb_agent_op_names [gdb_agent_op_last] = - { - "?undef?" -#define DEFOP(NAME, SIZE, DATA_SIZE, CONSUMED, PRODUCED, VALUE) , # NAME -#include "gdbsupport/ax.def" -#undef DEFOP - }; - -#ifndef IN_PROCESS_AGENT -static const unsigned char gdb_agent_op_sizes [gdb_agent_op_last] = - { - 0 -#define DEFOP(NAME, SIZE, DATA_SIZE, CONSUMED, PRODUCED, VALUE) , SIZE -#include "gdbsupport/ax.def" -#undef DEFOP - }; -#endif - -/* A wrapper for gdb_agent_op_names that does some bounds-checking. */ - -static const char * -gdb_agent_op_name (int op) -{ - if (op < 0 || op >= gdb_agent_op_last || gdb_agent_op_names[op] == NULL) - return "?undef?"; - return gdb_agent_op_names[op]; -} - -#ifndef IN_PROCESS_AGENT - -/* The packet form of an agent expression consists of an 'X', number - of bytes in expression, a comma, and then the bytes. */ - -struct agent_expr * -gdb_parse_agent_expr (const char **actparm) -{ - const char *act = *actparm; - ULONGEST xlen; - struct agent_expr *aexpr; - - ++act; /* skip the X */ - act = unpack_varlen_hex (act, &xlen); - ++act; /* skip a comma */ - aexpr = XNEW (struct agent_expr); - aexpr->length = xlen; - aexpr->bytes = (unsigned char *) xmalloc (xlen); - hex2bin (act, aexpr->bytes, xlen); - *actparm = act + (xlen * 2); - return aexpr; -} - -void -gdb_free_agent_expr (struct agent_expr *aexpr) -{ - if (aexpr != NULL) - { - free (aexpr->bytes); - free (aexpr); - } -} - -/* Convert the bytes of an agent expression back into hex digits, so - they can be printed or uploaded. This allocates the buffer, - callers should free when they are done with it. */ - -char * -gdb_unparse_agent_expr (struct agent_expr *aexpr) -{ - char *rslt; - - rslt = (char *) xmalloc (2 * aexpr->length + 1); - bin2hex (aexpr->bytes, rslt, aexpr->length); - return rslt; -} - -/* Bytecode compilation. */ - -CORE_ADDR current_insn_ptr; - -int emit_error; - -struct bytecode_address -{ - int pc; - CORE_ADDR address; - int goto_pc; - /* Offset and size of field to be modified in the goto block. */ - int from_offset, from_size; - struct bytecode_address *next; -} *bytecode_address_table; - -void -emit_prologue (void) -{ - target_emit_ops ()->emit_prologue (); -} - -void -emit_epilogue (void) -{ - target_emit_ops ()->emit_epilogue (); -} - -static void -emit_add (void) -{ - target_emit_ops ()->emit_add (); -} - -static void -emit_sub (void) -{ - target_emit_ops ()->emit_sub (); -} - -static void -emit_mul (void) -{ - target_emit_ops ()->emit_mul (); -} - -static void -emit_lsh (void) -{ - target_emit_ops ()->emit_lsh (); -} - -static void -emit_rsh_signed (void) -{ - target_emit_ops ()->emit_rsh_signed (); -} - -static void -emit_rsh_unsigned (void) -{ - target_emit_ops ()->emit_rsh_unsigned (); -} - -static void -emit_ext (int arg) -{ - target_emit_ops ()->emit_ext (arg); -} - -static void -emit_log_not (void) -{ - target_emit_ops ()->emit_log_not (); -} - -static void -emit_bit_and (void) -{ - target_emit_ops ()->emit_bit_and (); -} - -static void -emit_bit_or (void) -{ - target_emit_ops ()->emit_bit_or (); -} - -static void -emit_bit_xor (void) -{ - target_emit_ops ()->emit_bit_xor (); -} - -static void -emit_bit_not (void) -{ - target_emit_ops ()->emit_bit_not (); -} - -static void -emit_equal (void) -{ - target_emit_ops ()->emit_equal (); -} - -static void -emit_less_signed (void) -{ - target_emit_ops ()->emit_less_signed (); -} - -static void -emit_less_unsigned (void) -{ - target_emit_ops ()->emit_less_unsigned (); -} - -static void -emit_ref (int size) -{ - target_emit_ops ()->emit_ref (size); -} - -static void -emit_if_goto (int *offset_p, int *size_p) -{ - target_emit_ops ()->emit_if_goto (offset_p, size_p); -} - -static void -emit_goto (int *offset_p, int *size_p) -{ - target_emit_ops ()->emit_goto (offset_p, size_p); -} - -static void -write_goto_address (CORE_ADDR from, CORE_ADDR to, int size) -{ - target_emit_ops ()->write_goto_address (from, to, size); -} - -static void -emit_const (LONGEST num) -{ - target_emit_ops ()->emit_const (num); -} - -static void -emit_reg (int reg) -{ - target_emit_ops ()->emit_reg (reg); -} - -static void -emit_pop (void) -{ - target_emit_ops ()->emit_pop (); -} - -static void -emit_stack_flush (void) -{ - target_emit_ops ()->emit_stack_flush (); -} - -static void -emit_zero_ext (int arg) -{ - target_emit_ops ()->emit_zero_ext (arg); -} - -static void -emit_swap (void) -{ - target_emit_ops ()->emit_swap (); -} - -static void -emit_stack_adjust (int n) -{ - target_emit_ops ()->emit_stack_adjust (n); -} - -/* FN's prototype is `LONGEST(*fn)(int)'. */ - -static void -emit_int_call_1 (CORE_ADDR fn, int arg1) -{ - target_emit_ops ()->emit_int_call_1 (fn, arg1); -} - -/* FN's prototype is `void(*fn)(int,LONGEST)'. */ - -static void -emit_void_call_2 (CORE_ADDR fn, int arg1) -{ - target_emit_ops ()->emit_void_call_2 (fn, arg1); -} - -static void -emit_eq_goto (int *offset_p, int *size_p) -{ - target_emit_ops ()->emit_eq_goto (offset_p, size_p); -} - -static void -emit_ne_goto (int *offset_p, int *size_p) -{ - target_emit_ops ()->emit_ne_goto (offset_p, size_p); -} - -static void -emit_lt_goto (int *offset_p, int *size_p) -{ - target_emit_ops ()->emit_lt_goto (offset_p, size_p); -} - -static void -emit_ge_goto (int *offset_p, int *size_p) -{ - target_emit_ops ()->emit_ge_goto (offset_p, size_p); -} - -static void -emit_gt_goto (int *offset_p, int *size_p) -{ - target_emit_ops ()->emit_gt_goto (offset_p, size_p); -} - -static void -emit_le_goto (int *offset_p, int *size_p) -{ - target_emit_ops ()->emit_le_goto (offset_p, size_p); -} - -/* Scan an agent expression for any evidence that the given PC is the - target of a jump bytecode in the expression. */ - -static int -is_goto_target (struct agent_expr *aexpr, int pc) -{ - int i; - unsigned char op; - - for (i = 0; i < aexpr->length; i += 1 + gdb_agent_op_sizes[op]) - { - op = aexpr->bytes[i]; - - if (op == gdb_agent_op_goto || op == gdb_agent_op_if_goto) - { - int target = (aexpr->bytes[i + 1] << 8) + aexpr->bytes[i + 2]; - if (target == pc) - return 1; - } - } - - return 0; -} - -/* Given an agent expression, turn it into native code. */ - -enum eval_result_type -compile_bytecodes (struct agent_expr *aexpr) -{ - int pc = 0; - int done = 0; - unsigned char op, next_op; - int arg; - /* This is only used to build 64-bit value for constants. */ - ULONGEST top; - struct bytecode_address *aentry, *aentry2; - -#define UNHANDLED \ - do \ - { \ - ax_debug ("Cannot compile op 0x%x\n", op); \ - return expr_eval_unhandled_opcode; \ - } while (0) - - if (aexpr->length == 0) - { - ax_debug ("empty agent expression\n"); - return expr_eval_empty_expression; - } - - bytecode_address_table = NULL; - - while (!done) - { - op = aexpr->bytes[pc]; - - ax_debug ("About to compile op 0x%x, pc=%d\n", op, pc); - - /* Record the compiled-code address of the bytecode, for use by - jump instructions. */ - aentry = XNEW (struct bytecode_address); - aentry->pc = pc; - aentry->address = current_insn_ptr; - aentry->goto_pc = -1; - aentry->from_offset = aentry->from_size = 0; - aentry->next = bytecode_address_table; - bytecode_address_table = aentry; - - ++pc; - - emit_error = 0; - - switch (op) - { - case gdb_agent_op_add: - emit_add (); - break; - - case gdb_agent_op_sub: - emit_sub (); - break; - - case gdb_agent_op_mul: - emit_mul (); - break; - - case gdb_agent_op_div_signed: - UNHANDLED; - break; - - case gdb_agent_op_div_unsigned: - UNHANDLED; - break; - - case gdb_agent_op_rem_signed: - UNHANDLED; - break; - - case gdb_agent_op_rem_unsigned: - UNHANDLED; - break; - - case gdb_agent_op_lsh: - emit_lsh (); - break; - - case gdb_agent_op_rsh_signed: - emit_rsh_signed (); - break; - - case gdb_agent_op_rsh_unsigned: - emit_rsh_unsigned (); - break; - - case gdb_agent_op_trace: - UNHANDLED; - break; - - case gdb_agent_op_trace_quick: - UNHANDLED; - break; - - case gdb_agent_op_log_not: - emit_log_not (); - break; - - case gdb_agent_op_bit_and: - emit_bit_and (); - break; - - case gdb_agent_op_bit_or: - emit_bit_or (); - break; - - case gdb_agent_op_bit_xor: - emit_bit_xor (); - break; - - case gdb_agent_op_bit_not: - emit_bit_not (); - break; - - case gdb_agent_op_equal: - next_op = aexpr->bytes[pc]; - if (next_op == gdb_agent_op_if_goto - && !is_goto_target (aexpr, pc) - && target_emit_ops ()->emit_eq_goto) - { - ax_debug ("Combining equal & if_goto"); - pc += 1; - aentry->pc = pc; - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - aentry->goto_pc = arg; - emit_eq_goto (&(aentry->from_offset), &(aentry->from_size)); - } - else if (next_op == gdb_agent_op_log_not - && (aexpr->bytes[pc + 1] == gdb_agent_op_if_goto) - && !is_goto_target (aexpr, pc + 1) - && target_emit_ops ()->emit_ne_goto) - { - ax_debug ("Combining equal & log_not & if_goto"); - pc += 2; - aentry->pc = pc; - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - aentry->goto_pc = arg; - emit_ne_goto (&(aentry->from_offset), &(aentry->from_size)); - } - else - emit_equal (); - break; - - case gdb_agent_op_less_signed: - next_op = aexpr->bytes[pc]; - if (next_op == gdb_agent_op_if_goto - && !is_goto_target (aexpr, pc)) - { - ax_debug ("Combining less_signed & if_goto"); - pc += 1; - aentry->pc = pc; - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - aentry->goto_pc = arg; - emit_lt_goto (&(aentry->from_offset), &(aentry->from_size)); - } - else if (next_op == gdb_agent_op_log_not - && !is_goto_target (aexpr, pc) - && (aexpr->bytes[pc + 1] == gdb_agent_op_if_goto) - && !is_goto_target (aexpr, pc + 1)) - { - ax_debug ("Combining less_signed & log_not & if_goto"); - pc += 2; - aentry->pc = pc; - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - aentry->goto_pc = arg; - emit_ge_goto (&(aentry->from_offset), &(aentry->from_size)); - } - else - emit_less_signed (); - break; - - case gdb_agent_op_less_unsigned: - emit_less_unsigned (); - break; - - case gdb_agent_op_ext: - arg = aexpr->bytes[pc++]; - if (arg < (sizeof (LONGEST) * 8)) - emit_ext (arg); - break; - - case gdb_agent_op_ref8: - emit_ref (1); - break; - - case gdb_agent_op_ref16: - emit_ref (2); - break; - - case gdb_agent_op_ref32: - emit_ref (4); - break; - - case gdb_agent_op_ref64: - emit_ref (8); - break; - - case gdb_agent_op_if_goto: - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - aentry->goto_pc = arg; - emit_if_goto (&(aentry->from_offset), &(aentry->from_size)); - break; - - case gdb_agent_op_goto: - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - aentry->goto_pc = arg; - emit_goto (&(aentry->from_offset), &(aentry->from_size)); - break; - - case gdb_agent_op_const8: - emit_stack_flush (); - top = aexpr->bytes[pc++]; - emit_const (top); - break; - - case gdb_agent_op_const16: - emit_stack_flush (); - top = aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - emit_const (top); - break; - - case gdb_agent_op_const32: - emit_stack_flush (); - top = aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - emit_const (top); - break; - - case gdb_agent_op_const64: - emit_stack_flush (); - top = aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - emit_const (top); - break; - - case gdb_agent_op_reg: - emit_stack_flush (); - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - emit_reg (arg); - break; - - case gdb_agent_op_end: - ax_debug ("At end of expression\n"); - - /* Assume there is one stack element left, and that it is - cached in "top" where emit_epilogue can get to it. */ - emit_stack_adjust (1); - - done = 1; - break; - - case gdb_agent_op_dup: - /* In our design, dup is equivalent to stack flushing. */ - emit_stack_flush (); - break; - - case gdb_agent_op_pop: - emit_pop (); - break; - - case gdb_agent_op_zero_ext: - arg = aexpr->bytes[pc++]; - if (arg < (sizeof (LONGEST) * 8)) - emit_zero_ext (arg); - break; - - case gdb_agent_op_swap: - next_op = aexpr->bytes[pc]; - /* Detect greater-than comparison sequences. */ - if (next_op == gdb_agent_op_less_signed - && !is_goto_target (aexpr, pc) - && (aexpr->bytes[pc + 1] == gdb_agent_op_if_goto) - && !is_goto_target (aexpr, pc + 1)) - { - ax_debug ("Combining swap & less_signed & if_goto"); - pc += 2; - aentry->pc = pc; - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - aentry->goto_pc = arg; - emit_gt_goto (&(aentry->from_offset), &(aentry->from_size)); - } - else if (next_op == gdb_agent_op_less_signed - && !is_goto_target (aexpr, pc) - && (aexpr->bytes[pc + 1] == gdb_agent_op_log_not) - && !is_goto_target (aexpr, pc + 1) - && (aexpr->bytes[pc + 2] == gdb_agent_op_if_goto) - && !is_goto_target (aexpr, pc + 2)) - { - ax_debug ("Combining swap & less_signed & log_not & if_goto"); - pc += 3; - aentry->pc = pc; - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - aentry->goto_pc = arg; - emit_le_goto (&(aentry->from_offset), &(aentry->from_size)); - } - else - emit_swap (); - break; - - case gdb_agent_op_getv: - emit_stack_flush (); - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - emit_int_call_1 (get_get_tsv_func_addr (), - arg); - break; - - case gdb_agent_op_setv: - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - emit_void_call_2 (get_set_tsv_func_addr (), - arg); - break; - - case gdb_agent_op_tracev: - UNHANDLED; - break; - - /* GDB never (currently) generates any of these ops. */ - case gdb_agent_op_float: - case gdb_agent_op_ref_float: - case gdb_agent_op_ref_double: - case gdb_agent_op_ref_long_double: - case gdb_agent_op_l_to_d: - case gdb_agent_op_d_to_l: - case gdb_agent_op_trace16: - UNHANDLED; - break; - - default: - ax_debug ("Agent expression op 0x%x not recognized\n", op); - /* Don't struggle on, things will just get worse. */ - return expr_eval_unrecognized_opcode; - } - - /* This catches errors that occur in target-specific code - emission. */ - if (emit_error) - { - ax_debug ("Error %d while emitting code for %s\n", - emit_error, gdb_agent_op_name (op)); - return expr_eval_unhandled_opcode; - } - - ax_debug ("Op %s compiled\n", gdb_agent_op_name (op)); - } - - /* Now fill in real addresses as goto destinations. */ - for (aentry = bytecode_address_table; aentry; aentry = aentry->next) - { - int written = 0; - - if (aentry->goto_pc < 0) - continue; - - /* Find the location that we are going to, and call back into - target-specific code to write the actual address or - displacement. */ - for (aentry2 = bytecode_address_table; aentry2; aentry2 = aentry2->next) - { - if (aentry2->pc == aentry->goto_pc) - { - ax_debug ("Want to jump from %s to %s\n", - paddress (aentry->address), - paddress (aentry2->address)); - write_goto_address (aentry->address + aentry->from_offset, - aentry2->address, aentry->from_size); - written = 1; - break; - } - } - - /* Error out if we didn't find a destination. */ - if (!written) - { - ax_debug ("Destination of goto %d not found\n", - aentry->goto_pc); - return expr_eval_invalid_goto; - } - } - - return expr_eval_no_error; -} - -#endif - -/* Make printf-type calls using arguments supplied from the host. We - need to parse the format string ourselves, and call the formatting - function with one argument at a time, partly because there is no - safe portable way to construct a varargs call, and partly to serve - as a security barrier against bad format strings that might get - in. */ - -static void -ax_printf (CORE_ADDR fn, CORE_ADDR chan, const char *format, - int nargs, ULONGEST *args) -{ - const char *f = format; - int i; - const char *current_substring; - int nargs_wanted; - - ax_debug ("Printf of \"%s\" with %d args", format, nargs); - - format_pieces fpieces (&f); - - nargs_wanted = 0; - for (auto &&piece : fpieces) - if (piece.argclass != literal_piece) - ++nargs_wanted; - - if (nargs != nargs_wanted) - error (_("Wrong number of arguments for specified format-string")); - - i = 0; - for (auto &&piece : fpieces) - { - current_substring = piece.string; - ax_debug ("current substring is '%s', class is %d", - current_substring, piece.argclass); - switch (piece.argclass) - { - case string_arg: - { - gdb_byte *str; - CORE_ADDR tem; - int j; - - tem = args[i]; - if (tem == 0) - { - printf (current_substring, "(null)"); - break; - } - - /* This is a %s argument. Find the length of the string. */ - for (j = 0;; j++) - { - gdb_byte c; - - read_inferior_memory (tem + j, &c, 1); - if (c == 0) - break; - } - - /* Copy the string contents into a string inside GDB. */ - str = (gdb_byte *) alloca (j + 1); - if (j != 0) - read_inferior_memory (tem, str, j); - str[j] = 0; - - printf (current_substring, (char *) str); - } - break; - - case long_long_arg: -#if defined (CC_HAS_LONG_LONG) && defined (PRINTF_HAS_LONG_LONG) - { - long long val = args[i]; - - printf (current_substring, val); - break; - } -#else - error (_("long long not supported in agent printf")); -#endif - case int_arg: - { - int val = args[i]; - - printf (current_substring, val); - break; - } - - case long_arg: - { - long val = args[i]; - - printf (current_substring, val); - break; - } - - case size_t_arg: - { - size_t val = args[i]; - - printf (current_substring, val); - break; - } - - case literal_piece: - /* Print a portion of the format string that has no - directives. Note that this will not include any - ordinary %-specs, but it might include "%%". That is - why we use printf_filtered and not puts_filtered here. - Also, we pass a dummy argument because some platforms - have modified GCC to include -Wformat-security by - default, which will warn here if there is no - argument. */ - printf (current_substring, 0); - break; - - default: - error (_("Format directive in '%s' not supported in agent printf"), - current_substring); - } - - /* Maybe advance to the next argument. */ - if (piece.argclass != literal_piece) - ++i; - } - - fflush (stdout); -} - -/* The agent expression evaluator, as specified by the GDB docs. It - returns 0 if everything went OK, and a nonzero error code - otherwise. */ - -enum eval_result_type -gdb_eval_agent_expr (struct eval_agent_expr_context *ctx, - struct agent_expr *aexpr, - ULONGEST *rslt) -{ - int pc = 0; -#define STACK_MAX 100 - ULONGEST stack[STACK_MAX], top; - int sp = 0; - unsigned char op; - int arg; - - /* This union is a convenient way to convert representations. For - now, assume a standard architecture where the hardware integer - types have 8, 16, 32, 64 bit types. A more robust solution would - be to import stdint.h from gnulib. */ - union - { - union - { - unsigned char bytes[1]; - unsigned char val; - } u8; - union - { - unsigned char bytes[2]; - unsigned short val; - } u16; - union - { - unsigned char bytes[4]; - unsigned int val; - } u32; - union - { - unsigned char bytes[8]; - ULONGEST val; - } u64; - } cnv; - - if (aexpr->length == 0) - { - ax_debug ("empty agent expression"); - return expr_eval_empty_expression; - } - - /* Cache the stack top in its own variable. Much of the time we can - operate on this variable, rather than dinking with the stack. It - needs to be copied to the stack when sp changes. */ - top = 0; - - while (1) - { - op = aexpr->bytes[pc++]; - - ax_debug ("About to interpret byte 0x%x", op); - - switch (op) - { - case gdb_agent_op_add: - top += stack[--sp]; - break; - - case gdb_agent_op_sub: - top = stack[--sp] - top; - break; - - case gdb_agent_op_mul: - top *= stack[--sp]; - break; - - case gdb_agent_op_div_signed: - if (top == 0) - { - ax_debug ("Attempted to divide by zero"); - return expr_eval_divide_by_zero; - } - top = ((LONGEST) stack[--sp]) / ((LONGEST) top); - break; - - case gdb_agent_op_div_unsigned: - if (top == 0) - { - ax_debug ("Attempted to divide by zero"); - return expr_eval_divide_by_zero; - } - top = stack[--sp] / top; - break; - - case gdb_agent_op_rem_signed: - if (top == 0) - { - ax_debug ("Attempted to divide by zero"); - return expr_eval_divide_by_zero; - } - top = ((LONGEST) stack[--sp]) % ((LONGEST) top); - break; - - case gdb_agent_op_rem_unsigned: - if (top == 0) - { - ax_debug ("Attempted to divide by zero"); - return expr_eval_divide_by_zero; - } - top = stack[--sp] % top; - break; - - case gdb_agent_op_lsh: - top = stack[--sp] << top; - break; - - case gdb_agent_op_rsh_signed: - top = ((LONGEST) stack[--sp]) >> top; - break; - - case gdb_agent_op_rsh_unsigned: - top = stack[--sp] >> top; - break; - - case gdb_agent_op_trace: - agent_mem_read (ctx, NULL, (CORE_ADDR) stack[--sp], - (ULONGEST) top); - if (--sp >= 0) - top = stack[sp]; - break; - - case gdb_agent_op_trace_quick: - arg = aexpr->bytes[pc++]; - agent_mem_read (ctx, NULL, (CORE_ADDR) top, (ULONGEST) arg); - break; - - case gdb_agent_op_log_not: - top = !top; - break; - - case gdb_agent_op_bit_and: - top &= stack[--sp]; - break; - - case gdb_agent_op_bit_or: - top |= stack[--sp]; - break; - - case gdb_agent_op_bit_xor: - top ^= stack[--sp]; - break; - - case gdb_agent_op_bit_not: - top = ~top; - break; - - case gdb_agent_op_equal: - top = (stack[--sp] == top); - break; - - case gdb_agent_op_less_signed: - top = (((LONGEST) stack[--sp]) < ((LONGEST) top)); - break; - - case gdb_agent_op_less_unsigned: - top = (stack[--sp] < top); - break; - - case gdb_agent_op_ext: - arg = aexpr->bytes[pc++]; - if (arg < (sizeof (LONGEST) * 8)) - { - LONGEST mask = 1 << (arg - 1); - top &= ((LONGEST) 1 << arg) - 1; - top = (top ^ mask) - mask; - } - break; - - case gdb_agent_op_ref8: - agent_mem_read (ctx, cnv.u8.bytes, (CORE_ADDR) top, 1); - top = cnv.u8.val; - break; - - case gdb_agent_op_ref16: - agent_mem_read (ctx, cnv.u16.bytes, (CORE_ADDR) top, 2); - top = cnv.u16.val; - break; - - case gdb_agent_op_ref32: - agent_mem_read (ctx, cnv.u32.bytes, (CORE_ADDR) top, 4); - top = cnv.u32.val; - break; - - case gdb_agent_op_ref64: - agent_mem_read (ctx, cnv.u64.bytes, (CORE_ADDR) top, 8); - top = cnv.u64.val; - break; - - case gdb_agent_op_if_goto: - if (top) - pc = (aexpr->bytes[pc] << 8) + (aexpr->bytes[pc + 1]); - else - pc += 2; - if (--sp >= 0) - top = stack[sp]; - break; - - case gdb_agent_op_goto: - pc = (aexpr->bytes[pc] << 8) + (aexpr->bytes[pc + 1]); - break; - - case gdb_agent_op_const8: - /* Flush the cached stack top. */ - stack[sp++] = top; - top = aexpr->bytes[pc++]; - break; - - case gdb_agent_op_const16: - /* Flush the cached stack top. */ - stack[sp++] = top; - top = aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - break; - - case gdb_agent_op_const32: - /* Flush the cached stack top. */ - stack[sp++] = top; - top = aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - break; - - case gdb_agent_op_const64: - /* Flush the cached stack top. */ - stack[sp++] = top; - top = aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - top = (top << 8) + aexpr->bytes[pc++]; - break; - - case gdb_agent_op_reg: - /* Flush the cached stack top. */ - stack[sp++] = top; - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - { - int regnum = arg; - struct regcache *regcache = ctx->regcache; - - switch (register_size (regcache->tdesc, regnum)) - { - case 8: - collect_register (regcache, regnum, cnv.u64.bytes); - top = cnv.u64.val; - break; - case 4: - collect_register (regcache, regnum, cnv.u32.bytes); - top = cnv.u32.val; - break; - case 2: - collect_register (regcache, regnum, cnv.u16.bytes); - top = cnv.u16.val; - break; - case 1: - collect_register (regcache, regnum, cnv.u8.bytes); - top = cnv.u8.val; - break; - default: - internal_error (__FILE__, __LINE__, - "unhandled register size"); - } - } - break; - - case gdb_agent_op_end: - ax_debug ("At end of expression, sp=%d, stack top cache=0x%s", - sp, pulongest (top)); - if (rslt) - { - if (sp <= 0) - { - /* This should be an error */ - ax_debug ("Stack is empty, nothing to return"); - return expr_eval_empty_stack; - } - *rslt = top; - } - return expr_eval_no_error; - - case gdb_agent_op_dup: - stack[sp++] = top; - break; - - case gdb_agent_op_pop: - if (--sp >= 0) - top = stack[sp]; - break; - - case gdb_agent_op_pick: - arg = aexpr->bytes[pc++]; - stack[sp] = top; - top = stack[sp - arg]; - ++sp; - break; - - case gdb_agent_op_rot: - { - ULONGEST tem = stack[sp - 1]; - - stack[sp - 1] = stack[sp - 2]; - stack[sp - 2] = top; - top = tem; - } - break; - - case gdb_agent_op_zero_ext: - arg = aexpr->bytes[pc++]; - if (arg < (sizeof (LONGEST) * 8)) - top &= ((LONGEST) 1 << arg) - 1; - break; - - case gdb_agent_op_swap: - /* Interchange top two stack elements, making sure top gets - copied back onto stack. */ - stack[sp] = top; - top = stack[sp - 1]; - stack[sp - 1] = stack[sp]; - break; - - case gdb_agent_op_getv: - /* Flush the cached stack top. */ - stack[sp++] = top; - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - top = agent_get_trace_state_variable_value (arg); - break; - - case gdb_agent_op_setv: - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - agent_set_trace_state_variable_value (arg, top); - /* Note that we leave the value on the stack, for the - benefit of later/enclosing expressions. */ - break; - - case gdb_agent_op_tracev: - arg = aexpr->bytes[pc++]; - arg = (arg << 8) + aexpr->bytes[pc++]; - agent_tsv_read (ctx, arg); - break; - - case gdb_agent_op_tracenz: - agent_mem_read_string (ctx, NULL, (CORE_ADDR) stack[--sp], - (ULONGEST) top); - if (--sp >= 0) - top = stack[sp]; - break; - - case gdb_agent_op_printf: - { - int nargs, slen, i; - CORE_ADDR fn = 0, chan = 0; - /* Can't have more args than the entire size of the stack. */ - ULONGEST args[STACK_MAX]; - char *format; - - nargs = aexpr->bytes[pc++]; - slen = aexpr->bytes[pc++]; - slen = (slen << 8) + aexpr->bytes[pc++]; - format = (char *) &(aexpr->bytes[pc]); - pc += slen; - /* Pop function and channel. */ - fn = top; - if (--sp >= 0) - top = stack[sp]; - chan = top; - if (--sp >= 0) - top = stack[sp]; - /* Pop arguments into a dedicated array. */ - for (i = 0; i < nargs; ++i) - { - args[i] = top; - if (--sp >= 0) - top = stack[sp]; - } - - /* A bad format string means something is very wrong; give - up immediately. */ - if (format[slen - 1] != '\0') - error (_("Unterminated format string in printf bytecode")); - - ax_printf (fn, chan, format, nargs, args); - } - break; - - /* GDB never (currently) generates any of these ops. */ - case gdb_agent_op_float: - case gdb_agent_op_ref_float: - case gdb_agent_op_ref_double: - case gdb_agent_op_ref_long_double: - case gdb_agent_op_l_to_d: - case gdb_agent_op_d_to_l: - case gdb_agent_op_trace16: - ax_debug ("Agent expression op 0x%x valid, but not handled", - op); - /* If ever GDB generates any of these, we don't have the - option of ignoring. */ - return expr_eval_unhandled_opcode; - - default: - ax_debug ("Agent expression op 0x%x not recognized", op); - /* Don't struggle on, things will just get worse. */ - return expr_eval_unrecognized_opcode; - } - - /* Check for stack badness. */ - if (sp >= (STACK_MAX - 1)) - { - ax_debug ("Expression stack overflow"); - return expr_eval_stack_overflow; - } - - if (sp < 0) - { - ax_debug ("Expression stack underflow"); - return expr_eval_stack_underflow; - } - - ax_debug ("Op %s -> sp=%d, top=0x%s", - gdb_agent_op_name (op), sp, phex_nz (top, 0)); - } -} diff --git a/gdbserver/ax.cc b/gdbserver/ax.cc new file mode 100644 index 00000000000..213db410a07 --- /dev/null +++ b/gdbserver/ax.cc @@ -0,0 +1,1376 @@ +/* Agent expression code for remote server. + Copyright (C) 2009-2020 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 . */ + +#include "server.h" +#include "ax.h" +#include "gdbsupport/format.h" +#include "tracepoint.h" +#include "gdbsupport/rsp-low.h" + +static void ax_vdebug (const char *, ...) ATTRIBUTE_PRINTF (1, 2); + +#ifdef IN_PROCESS_AGENT +int debug_agent = 0; +#endif + +static void +ax_vdebug (const char *fmt, ...) +{ + char buf[1024]; + va_list ap; + + va_start (ap, fmt); + vsprintf (buf, fmt, ap); +#ifdef IN_PROCESS_AGENT + fprintf (stderr, PROG "/ax: %s\n", buf); +#else + debug_printf (PROG "/ax: %s\n", buf); +#endif + va_end (ap); +} + +#define ax_debug_1(level, fmt, args...) \ + do { \ + if (level <= debug_threads) \ + ax_vdebug ((fmt), ##args); \ + } while (0) + +#define ax_debug(FMT, args...) \ + ax_debug_1 (1, FMT, ##args) + +/* This enum must exactly match what is documented in + gdb/doc/agentexpr.texi, including all the numerical values. */ + +enum gdb_agent_op + { +#define DEFOP(NAME, SIZE, DATA_SIZE, CONSUMED, PRODUCED, VALUE) \ + gdb_agent_op_ ## NAME = VALUE, +#include "gdbsupport/ax.def" +#undef DEFOP + gdb_agent_op_last + }; + +static const char *gdb_agent_op_names [gdb_agent_op_last] = + { + "?undef?" +#define DEFOP(NAME, SIZE, DATA_SIZE, CONSUMED, PRODUCED, VALUE) , # NAME +#include "gdbsupport/ax.def" +#undef DEFOP + }; + +#ifndef IN_PROCESS_AGENT +static const unsigned char gdb_agent_op_sizes [gdb_agent_op_last] = + { + 0 +#define DEFOP(NAME, SIZE, DATA_SIZE, CONSUMED, PRODUCED, VALUE) , SIZE +#include "gdbsupport/ax.def" +#undef DEFOP + }; +#endif + +/* A wrapper for gdb_agent_op_names that does some bounds-checking. */ + +static const char * +gdb_agent_op_name (int op) +{ + if (op < 0 || op >= gdb_agent_op_last || gdb_agent_op_names[op] == NULL) + return "?undef?"; + return gdb_agent_op_names[op]; +} + +#ifndef IN_PROCESS_AGENT + +/* The packet form of an agent expression consists of an 'X', number + of bytes in expression, a comma, and then the bytes. */ + +struct agent_expr * +gdb_parse_agent_expr (const char **actparm) +{ + const char *act = *actparm; + ULONGEST xlen; + struct agent_expr *aexpr; + + ++act; /* skip the X */ + act = unpack_varlen_hex (act, &xlen); + ++act; /* skip a comma */ + aexpr = XNEW (struct agent_expr); + aexpr->length = xlen; + aexpr->bytes = (unsigned char *) xmalloc (xlen); + hex2bin (act, aexpr->bytes, xlen); + *actparm = act + (xlen * 2); + return aexpr; +} + +void +gdb_free_agent_expr (struct agent_expr *aexpr) +{ + if (aexpr != NULL) + { + free (aexpr->bytes); + free (aexpr); + } +} + +/* Convert the bytes of an agent expression back into hex digits, so + they can be printed or uploaded. This allocates the buffer, + callers should free when they are done with it. */ + +char * +gdb_unparse_agent_expr (struct agent_expr *aexpr) +{ + char *rslt; + + rslt = (char *) xmalloc (2 * aexpr->length + 1); + bin2hex (aexpr->bytes, rslt, aexpr->length); + return rslt; +} + +/* Bytecode compilation. */ + +CORE_ADDR current_insn_ptr; + +int emit_error; + +struct bytecode_address +{ + int pc; + CORE_ADDR address; + int goto_pc; + /* Offset and size of field to be modified in the goto block. */ + int from_offset, from_size; + struct bytecode_address *next; +} *bytecode_address_table; + +void +emit_prologue (void) +{ + target_emit_ops ()->emit_prologue (); +} + +void +emit_epilogue (void) +{ + target_emit_ops ()->emit_epilogue (); +} + +static void +emit_add (void) +{ + target_emit_ops ()->emit_add (); +} + +static void +emit_sub (void) +{ + target_emit_ops ()->emit_sub (); +} + +static void +emit_mul (void) +{ + target_emit_ops ()->emit_mul (); +} + +static void +emit_lsh (void) +{ + target_emit_ops ()->emit_lsh (); +} + +static void +emit_rsh_signed (void) +{ + target_emit_ops ()->emit_rsh_signed (); +} + +static void +emit_rsh_unsigned (void) +{ + target_emit_ops ()->emit_rsh_unsigned (); +} + +static void +emit_ext (int arg) +{ + target_emit_ops ()->emit_ext (arg); +} + +static void +emit_log_not (void) +{ + target_emit_ops ()->emit_log_not (); +} + +static void +emit_bit_and (void) +{ + target_emit_ops ()->emit_bit_and (); +} + +static void +emit_bit_or (void) +{ + target_emit_ops ()->emit_bit_or (); +} + +static void +emit_bit_xor (void) +{ + target_emit_ops ()->emit_bit_xor (); +} + +static void +emit_bit_not (void) +{ + target_emit_ops ()->emit_bit_not (); +} + +static void +emit_equal (void) +{ + target_emit_ops ()->emit_equal (); +} + +static void +emit_less_signed (void) +{ + target_emit_ops ()->emit_less_signed (); +} + +static void +emit_less_unsigned (void) +{ + target_emit_ops ()->emit_less_unsigned (); +} + +static void +emit_ref (int size) +{ + target_emit_ops ()->emit_ref (size); +} + +static void +emit_if_goto (int *offset_p, int *size_p) +{ + target_emit_ops ()->emit_if_goto (offset_p, size_p); +} + +static void +emit_goto (int *offset_p, int *size_p) +{ + target_emit_ops ()->emit_goto (offset_p, size_p); +} + +static void +write_goto_address (CORE_ADDR from, CORE_ADDR to, int size) +{ + target_emit_ops ()->write_goto_address (from, to, size); +} + +static void +emit_const (LONGEST num) +{ + target_emit_ops ()->emit_const (num); +} + +static void +emit_reg (int reg) +{ + target_emit_ops ()->emit_reg (reg); +} + +static void +emit_pop (void) +{ + target_emit_ops ()->emit_pop (); +} + +static void +emit_stack_flush (void) +{ + target_emit_ops ()->emit_stack_flush (); +} + +static void +emit_zero_ext (int arg) +{ + target_emit_ops ()->emit_zero_ext (arg); +} + +static void +emit_swap (void) +{ + target_emit_ops ()->emit_swap (); +} + +static void +emit_stack_adjust (int n) +{ + target_emit_ops ()->emit_stack_adjust (n); +} + +/* FN's prototype is `LONGEST(*fn)(int)'. */ + +static void +emit_int_call_1 (CORE_ADDR fn, int arg1) +{ + target_emit_ops ()->emit_int_call_1 (fn, arg1); +} + +/* FN's prototype is `void(*fn)(int,LONGEST)'. */ + +static void +emit_void_call_2 (CORE_ADDR fn, int arg1) +{ + target_emit_ops ()->emit_void_call_2 (fn, arg1); +} + +static void +emit_eq_goto (int *offset_p, int *size_p) +{ + target_emit_ops ()->emit_eq_goto (offset_p, size_p); +} + +static void +emit_ne_goto (int *offset_p, int *size_p) +{ + target_emit_ops ()->emit_ne_goto (offset_p, size_p); +} + +static void +emit_lt_goto (int *offset_p, int *size_p) +{ + target_emit_ops ()->emit_lt_goto (offset_p, size_p); +} + +static void +emit_ge_goto (int *offset_p, int *size_p) +{ + target_emit_ops ()->emit_ge_goto (offset_p, size_p); +} + +static void +emit_gt_goto (int *offset_p, int *size_p) +{ + target_emit_ops ()->emit_gt_goto (offset_p, size_p); +} + +static void +emit_le_goto (int *offset_p, int *size_p) +{ + target_emit_ops ()->emit_le_goto (offset_p, size_p); +} + +/* Scan an agent expression for any evidence that the given PC is the + target of a jump bytecode in the expression. */ + +static int +is_goto_target (struct agent_expr *aexpr, int pc) +{ + int i; + unsigned char op; + + for (i = 0; i < aexpr->length; i += 1 + gdb_agent_op_sizes[op]) + { + op = aexpr->bytes[i]; + + if (op == gdb_agent_op_goto || op == gdb_agent_op_if_goto) + { + int target = (aexpr->bytes[i + 1] << 8) + aexpr->bytes[i + 2]; + if (target == pc) + return 1; + } + } + + return 0; +} + +/* Given an agent expression, turn it into native code. */ + +enum eval_result_type +compile_bytecodes (struct agent_expr *aexpr) +{ + int pc = 0; + int done = 0; + unsigned char op, next_op; + int arg; + /* This is only used to build 64-bit value for constants. */ + ULONGEST top; + struct bytecode_address *aentry, *aentry2; + +#define UNHANDLED \ + do \ + { \ + ax_debug ("Cannot compile op 0x%x\n", op); \ + return expr_eval_unhandled_opcode; \ + } while (0) + + if (aexpr->length == 0) + { + ax_debug ("empty agent expression\n"); + return expr_eval_empty_expression; + } + + bytecode_address_table = NULL; + + while (!done) + { + op = aexpr->bytes[pc]; + + ax_debug ("About to compile op 0x%x, pc=%d\n", op, pc); + + /* Record the compiled-code address of the bytecode, for use by + jump instructions. */ + aentry = XNEW (struct bytecode_address); + aentry->pc = pc; + aentry->address = current_insn_ptr; + aentry->goto_pc = -1; + aentry->from_offset = aentry->from_size = 0; + aentry->next = bytecode_address_table; + bytecode_address_table = aentry; + + ++pc; + + emit_error = 0; + + switch (op) + { + case gdb_agent_op_add: + emit_add (); + break; + + case gdb_agent_op_sub: + emit_sub (); + break; + + case gdb_agent_op_mul: + emit_mul (); + break; + + case gdb_agent_op_div_signed: + UNHANDLED; + break; + + case gdb_agent_op_div_unsigned: + UNHANDLED; + break; + + case gdb_agent_op_rem_signed: + UNHANDLED; + break; + + case gdb_agent_op_rem_unsigned: + UNHANDLED; + break; + + case gdb_agent_op_lsh: + emit_lsh (); + break; + + case gdb_agent_op_rsh_signed: + emit_rsh_signed (); + break; + + case gdb_agent_op_rsh_unsigned: + emit_rsh_unsigned (); + break; + + case gdb_agent_op_trace: + UNHANDLED; + break; + + case gdb_agent_op_trace_quick: + UNHANDLED; + break; + + case gdb_agent_op_log_not: + emit_log_not (); + break; + + case gdb_agent_op_bit_and: + emit_bit_and (); + break; + + case gdb_agent_op_bit_or: + emit_bit_or (); + break; + + case gdb_agent_op_bit_xor: + emit_bit_xor (); + break; + + case gdb_agent_op_bit_not: + emit_bit_not (); + break; + + case gdb_agent_op_equal: + next_op = aexpr->bytes[pc]; + if (next_op == gdb_agent_op_if_goto + && !is_goto_target (aexpr, pc) + && target_emit_ops ()->emit_eq_goto) + { + ax_debug ("Combining equal & if_goto"); + pc += 1; + aentry->pc = pc; + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + aentry->goto_pc = arg; + emit_eq_goto (&(aentry->from_offset), &(aentry->from_size)); + } + else if (next_op == gdb_agent_op_log_not + && (aexpr->bytes[pc + 1] == gdb_agent_op_if_goto) + && !is_goto_target (aexpr, pc + 1) + && target_emit_ops ()->emit_ne_goto) + { + ax_debug ("Combining equal & log_not & if_goto"); + pc += 2; + aentry->pc = pc; + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + aentry->goto_pc = arg; + emit_ne_goto (&(aentry->from_offset), &(aentry->from_size)); + } + else + emit_equal (); + break; + + case gdb_agent_op_less_signed: + next_op = aexpr->bytes[pc]; + if (next_op == gdb_agent_op_if_goto + && !is_goto_target (aexpr, pc)) + { + ax_debug ("Combining less_signed & if_goto"); + pc += 1; + aentry->pc = pc; + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + aentry->goto_pc = arg; + emit_lt_goto (&(aentry->from_offset), &(aentry->from_size)); + } + else if (next_op == gdb_agent_op_log_not + && !is_goto_target (aexpr, pc) + && (aexpr->bytes[pc + 1] == gdb_agent_op_if_goto) + && !is_goto_target (aexpr, pc + 1)) + { + ax_debug ("Combining less_signed & log_not & if_goto"); + pc += 2; + aentry->pc = pc; + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + aentry->goto_pc = arg; + emit_ge_goto (&(aentry->from_offset), &(aentry->from_size)); + } + else + emit_less_signed (); + break; + + case gdb_agent_op_less_unsigned: + emit_less_unsigned (); + break; + + case gdb_agent_op_ext: + arg = aexpr->bytes[pc++]; + if (arg < (sizeof (LONGEST) * 8)) + emit_ext (arg); + break; + + case gdb_agent_op_ref8: + emit_ref (1); + break; + + case gdb_agent_op_ref16: + emit_ref (2); + break; + + case gdb_agent_op_ref32: + emit_ref (4); + break; + + case gdb_agent_op_ref64: + emit_ref (8); + break; + + case gdb_agent_op_if_goto: + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + aentry->goto_pc = arg; + emit_if_goto (&(aentry->from_offset), &(aentry->from_size)); + break; + + case gdb_agent_op_goto: + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + aentry->goto_pc = arg; + emit_goto (&(aentry->from_offset), &(aentry->from_size)); + break; + + case gdb_agent_op_const8: + emit_stack_flush (); + top = aexpr->bytes[pc++]; + emit_const (top); + break; + + case gdb_agent_op_const16: + emit_stack_flush (); + top = aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + emit_const (top); + break; + + case gdb_agent_op_const32: + emit_stack_flush (); + top = aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + emit_const (top); + break; + + case gdb_agent_op_const64: + emit_stack_flush (); + top = aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + emit_const (top); + break; + + case gdb_agent_op_reg: + emit_stack_flush (); + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + emit_reg (arg); + break; + + case gdb_agent_op_end: + ax_debug ("At end of expression\n"); + + /* Assume there is one stack element left, and that it is + cached in "top" where emit_epilogue can get to it. */ + emit_stack_adjust (1); + + done = 1; + break; + + case gdb_agent_op_dup: + /* In our design, dup is equivalent to stack flushing. */ + emit_stack_flush (); + break; + + case gdb_agent_op_pop: + emit_pop (); + break; + + case gdb_agent_op_zero_ext: + arg = aexpr->bytes[pc++]; + if (arg < (sizeof (LONGEST) * 8)) + emit_zero_ext (arg); + break; + + case gdb_agent_op_swap: + next_op = aexpr->bytes[pc]; + /* Detect greater-than comparison sequences. */ + if (next_op == gdb_agent_op_less_signed + && !is_goto_target (aexpr, pc) + && (aexpr->bytes[pc + 1] == gdb_agent_op_if_goto) + && !is_goto_target (aexpr, pc + 1)) + { + ax_debug ("Combining swap & less_signed & if_goto"); + pc += 2; + aentry->pc = pc; + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + aentry->goto_pc = arg; + emit_gt_goto (&(aentry->from_offset), &(aentry->from_size)); + } + else if (next_op == gdb_agent_op_less_signed + && !is_goto_target (aexpr, pc) + && (aexpr->bytes[pc + 1] == gdb_agent_op_log_not) + && !is_goto_target (aexpr, pc + 1) + && (aexpr->bytes[pc + 2] == gdb_agent_op_if_goto) + && !is_goto_target (aexpr, pc + 2)) + { + ax_debug ("Combining swap & less_signed & log_not & if_goto"); + pc += 3; + aentry->pc = pc; + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + aentry->goto_pc = arg; + emit_le_goto (&(aentry->from_offset), &(aentry->from_size)); + } + else + emit_swap (); + break; + + case gdb_agent_op_getv: + emit_stack_flush (); + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + emit_int_call_1 (get_get_tsv_func_addr (), + arg); + break; + + case gdb_agent_op_setv: + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + emit_void_call_2 (get_set_tsv_func_addr (), + arg); + break; + + case gdb_agent_op_tracev: + UNHANDLED; + break; + + /* GDB never (currently) generates any of these ops. */ + case gdb_agent_op_float: + case gdb_agent_op_ref_float: + case gdb_agent_op_ref_double: + case gdb_agent_op_ref_long_double: + case gdb_agent_op_l_to_d: + case gdb_agent_op_d_to_l: + case gdb_agent_op_trace16: + UNHANDLED; + break; + + default: + ax_debug ("Agent expression op 0x%x not recognized\n", op); + /* Don't struggle on, things will just get worse. */ + return expr_eval_unrecognized_opcode; + } + + /* This catches errors that occur in target-specific code + emission. */ + if (emit_error) + { + ax_debug ("Error %d while emitting code for %s\n", + emit_error, gdb_agent_op_name (op)); + return expr_eval_unhandled_opcode; + } + + ax_debug ("Op %s compiled\n", gdb_agent_op_name (op)); + } + + /* Now fill in real addresses as goto destinations. */ + for (aentry = bytecode_address_table; aentry; aentry = aentry->next) + { + int written = 0; + + if (aentry->goto_pc < 0) + continue; + + /* Find the location that we are going to, and call back into + target-specific code to write the actual address or + displacement. */ + for (aentry2 = bytecode_address_table; aentry2; aentry2 = aentry2->next) + { + if (aentry2->pc == aentry->goto_pc) + { + ax_debug ("Want to jump from %s to %s\n", + paddress (aentry->address), + paddress (aentry2->address)); + write_goto_address (aentry->address + aentry->from_offset, + aentry2->address, aentry->from_size); + written = 1; + break; + } + } + + /* Error out if we didn't find a destination. */ + if (!written) + { + ax_debug ("Destination of goto %d not found\n", + aentry->goto_pc); + return expr_eval_invalid_goto; + } + } + + return expr_eval_no_error; +} + +#endif + +/* Make printf-type calls using arguments supplied from the host. We + need to parse the format string ourselves, and call the formatting + function with one argument at a time, partly because there is no + safe portable way to construct a varargs call, and partly to serve + as a security barrier against bad format strings that might get + in. */ + +static void +ax_printf (CORE_ADDR fn, CORE_ADDR chan, const char *format, + int nargs, ULONGEST *args) +{ + const char *f = format; + int i; + const char *current_substring; + int nargs_wanted; + + ax_debug ("Printf of \"%s\" with %d args", format, nargs); + + format_pieces fpieces (&f); + + nargs_wanted = 0; + for (auto &&piece : fpieces) + if (piece.argclass != literal_piece) + ++nargs_wanted; + + if (nargs != nargs_wanted) + error (_("Wrong number of arguments for specified format-string")); + + i = 0; + for (auto &&piece : fpieces) + { + current_substring = piece.string; + ax_debug ("current substring is '%s', class is %d", + current_substring, piece.argclass); + switch (piece.argclass) + { + case string_arg: + { + gdb_byte *str; + CORE_ADDR tem; + int j; + + tem = args[i]; + if (tem == 0) + { + printf (current_substring, "(null)"); + break; + } + + /* This is a %s argument. Find the length of the string. */ + for (j = 0;; j++) + { + gdb_byte c; + + read_inferior_memory (tem + j, &c, 1); + if (c == 0) + break; + } + + /* Copy the string contents into a string inside GDB. */ + str = (gdb_byte *) alloca (j + 1); + if (j != 0) + read_inferior_memory (tem, str, j); + str[j] = 0; + + printf (current_substring, (char *) str); + } + break; + + case long_long_arg: +#if defined (CC_HAS_LONG_LONG) && defined (PRINTF_HAS_LONG_LONG) + { + long long val = args[i]; + + printf (current_substring, val); + break; + } +#else + error (_("long long not supported in agent printf")); +#endif + case int_arg: + { + int val = args[i]; + + printf (current_substring, val); + break; + } + + case long_arg: + { + long val = args[i]; + + printf (current_substring, val); + break; + } + + case size_t_arg: + { + size_t val = args[i]; + + printf (current_substring, val); + break; + } + + case literal_piece: + /* Print a portion of the format string that has no + directives. Note that this will not include any + ordinary %-specs, but it might include "%%". That is + why we use printf_filtered and not puts_filtered here. + Also, we pass a dummy argument because some platforms + have modified GCC to include -Wformat-security by + default, which will warn here if there is no + argument. */ + printf (current_substring, 0); + break; + + default: + error (_("Format directive in '%s' not supported in agent printf"), + current_substring); + } + + /* Maybe advance to the next argument. */ + if (piece.argclass != literal_piece) + ++i; + } + + fflush (stdout); +} + +/* The agent expression evaluator, as specified by the GDB docs. It + returns 0 if everything went OK, and a nonzero error code + otherwise. */ + +enum eval_result_type +gdb_eval_agent_expr (struct eval_agent_expr_context *ctx, + struct agent_expr *aexpr, + ULONGEST *rslt) +{ + int pc = 0; +#define STACK_MAX 100 + ULONGEST stack[STACK_MAX], top; + int sp = 0; + unsigned char op; + int arg; + + /* This union is a convenient way to convert representations. For + now, assume a standard architecture where the hardware integer + types have 8, 16, 32, 64 bit types. A more robust solution would + be to import stdint.h from gnulib. */ + union + { + union + { + unsigned char bytes[1]; + unsigned char val; + } u8; + union + { + unsigned char bytes[2]; + unsigned short val; + } u16; + union + { + unsigned char bytes[4]; + unsigned int val; + } u32; + union + { + unsigned char bytes[8]; + ULONGEST val; + } u64; + } cnv; + + if (aexpr->length == 0) + { + ax_debug ("empty agent expression"); + return expr_eval_empty_expression; + } + + /* Cache the stack top in its own variable. Much of the time we can + operate on this variable, rather than dinking with the stack. It + needs to be copied to the stack when sp changes. */ + top = 0; + + while (1) + { + op = aexpr->bytes[pc++]; + + ax_debug ("About to interpret byte 0x%x", op); + + switch (op) + { + case gdb_agent_op_add: + top += stack[--sp]; + break; + + case gdb_agent_op_sub: + top = stack[--sp] - top; + break; + + case gdb_agent_op_mul: + top *= stack[--sp]; + break; + + case gdb_agent_op_div_signed: + if (top == 0) + { + ax_debug ("Attempted to divide by zero"); + return expr_eval_divide_by_zero; + } + top = ((LONGEST) stack[--sp]) / ((LONGEST) top); + break; + + case gdb_agent_op_div_unsigned: + if (top == 0) + { + ax_debug ("Attempted to divide by zero"); + return expr_eval_divide_by_zero; + } + top = stack[--sp] / top; + break; + + case gdb_agent_op_rem_signed: + if (top == 0) + { + ax_debug ("Attempted to divide by zero"); + return expr_eval_divide_by_zero; + } + top = ((LONGEST) stack[--sp]) % ((LONGEST) top); + break; + + case gdb_agent_op_rem_unsigned: + if (top == 0) + { + ax_debug ("Attempted to divide by zero"); + return expr_eval_divide_by_zero; + } + top = stack[--sp] % top; + break; + + case gdb_agent_op_lsh: + top = stack[--sp] << top; + break; + + case gdb_agent_op_rsh_signed: + top = ((LONGEST) stack[--sp]) >> top; + break; + + case gdb_agent_op_rsh_unsigned: + top = stack[--sp] >> top; + break; + + case gdb_agent_op_trace: + agent_mem_read (ctx, NULL, (CORE_ADDR) stack[--sp], + (ULONGEST) top); + if (--sp >= 0) + top = stack[sp]; + break; + + case gdb_agent_op_trace_quick: + arg = aexpr->bytes[pc++]; + agent_mem_read (ctx, NULL, (CORE_ADDR) top, (ULONGEST) arg); + break; + + case gdb_agent_op_log_not: + top = !top; + break; + + case gdb_agent_op_bit_and: + top &= stack[--sp]; + break; + + case gdb_agent_op_bit_or: + top |= stack[--sp]; + break; + + case gdb_agent_op_bit_xor: + top ^= stack[--sp]; + break; + + case gdb_agent_op_bit_not: + top = ~top; + break; + + case gdb_agent_op_equal: + top = (stack[--sp] == top); + break; + + case gdb_agent_op_less_signed: + top = (((LONGEST) stack[--sp]) < ((LONGEST) top)); + break; + + case gdb_agent_op_less_unsigned: + top = (stack[--sp] < top); + break; + + case gdb_agent_op_ext: + arg = aexpr->bytes[pc++]; + if (arg < (sizeof (LONGEST) * 8)) + { + LONGEST mask = 1 << (arg - 1); + top &= ((LONGEST) 1 << arg) - 1; + top = (top ^ mask) - mask; + } + break; + + case gdb_agent_op_ref8: + agent_mem_read (ctx, cnv.u8.bytes, (CORE_ADDR) top, 1); + top = cnv.u8.val; + break; + + case gdb_agent_op_ref16: + agent_mem_read (ctx, cnv.u16.bytes, (CORE_ADDR) top, 2); + top = cnv.u16.val; + break; + + case gdb_agent_op_ref32: + agent_mem_read (ctx, cnv.u32.bytes, (CORE_ADDR) top, 4); + top = cnv.u32.val; + break; + + case gdb_agent_op_ref64: + agent_mem_read (ctx, cnv.u64.bytes, (CORE_ADDR) top, 8); + top = cnv.u64.val; + break; + + case gdb_agent_op_if_goto: + if (top) + pc = (aexpr->bytes[pc] << 8) + (aexpr->bytes[pc + 1]); + else + pc += 2; + if (--sp >= 0) + top = stack[sp]; + break; + + case gdb_agent_op_goto: + pc = (aexpr->bytes[pc] << 8) + (aexpr->bytes[pc + 1]); + break; + + case gdb_agent_op_const8: + /* Flush the cached stack top. */ + stack[sp++] = top; + top = aexpr->bytes[pc++]; + break; + + case gdb_agent_op_const16: + /* Flush the cached stack top. */ + stack[sp++] = top; + top = aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + break; + + case gdb_agent_op_const32: + /* Flush the cached stack top. */ + stack[sp++] = top; + top = aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + break; + + case gdb_agent_op_const64: + /* Flush the cached stack top. */ + stack[sp++] = top; + top = aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + top = (top << 8) + aexpr->bytes[pc++]; + break; + + case gdb_agent_op_reg: + /* Flush the cached stack top. */ + stack[sp++] = top; + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + { + int regnum = arg; + struct regcache *regcache = ctx->regcache; + + switch (register_size (regcache->tdesc, regnum)) + { + case 8: + collect_register (regcache, regnum, cnv.u64.bytes); + top = cnv.u64.val; + break; + case 4: + collect_register (regcache, regnum, cnv.u32.bytes); + top = cnv.u32.val; + break; + case 2: + collect_register (regcache, regnum, cnv.u16.bytes); + top = cnv.u16.val; + break; + case 1: + collect_register (regcache, regnum, cnv.u8.bytes); + top = cnv.u8.val; + break; + default: + internal_error (__FILE__, __LINE__, + "unhandled register size"); + } + } + break; + + case gdb_agent_op_end: + ax_debug ("At end of expression, sp=%d, stack top cache=0x%s", + sp, pulongest (top)); + if (rslt) + { + if (sp <= 0) + { + /* This should be an error */ + ax_debug ("Stack is empty, nothing to return"); + return expr_eval_empty_stack; + } + *rslt = top; + } + return expr_eval_no_error; + + case gdb_agent_op_dup: + stack[sp++] = top; + break; + + case gdb_agent_op_pop: + if (--sp >= 0) + top = stack[sp]; + break; + + case gdb_agent_op_pick: + arg = aexpr->bytes[pc++]; + stack[sp] = top; + top = stack[sp - arg]; + ++sp; + break; + + case gdb_agent_op_rot: + { + ULONGEST tem = stack[sp - 1]; + + stack[sp - 1] = stack[sp - 2]; + stack[sp - 2] = top; + top = tem; + } + break; + + case gdb_agent_op_zero_ext: + arg = aexpr->bytes[pc++]; + if (arg < (sizeof (LONGEST) * 8)) + top &= ((LONGEST) 1 << arg) - 1; + break; + + case gdb_agent_op_swap: + /* Interchange top two stack elements, making sure top gets + copied back onto stack. */ + stack[sp] = top; + top = stack[sp - 1]; + stack[sp - 1] = stack[sp]; + break; + + case gdb_agent_op_getv: + /* Flush the cached stack top. */ + stack[sp++] = top; + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + top = agent_get_trace_state_variable_value (arg); + break; + + case gdb_agent_op_setv: + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + agent_set_trace_state_variable_value (arg, top); + /* Note that we leave the value on the stack, for the + benefit of later/enclosing expressions. */ + break; + + case gdb_agent_op_tracev: + arg = aexpr->bytes[pc++]; + arg = (arg << 8) + aexpr->bytes[pc++]; + agent_tsv_read (ctx, arg); + break; + + case gdb_agent_op_tracenz: + agent_mem_read_string (ctx, NULL, (CORE_ADDR) stack[--sp], + (ULONGEST) top); + if (--sp >= 0) + top = stack[sp]; + break; + + case gdb_agent_op_printf: + { + int nargs, slen, i; + CORE_ADDR fn = 0, chan = 0; + /* Can't have more args than the entire size of the stack. */ + ULONGEST args[STACK_MAX]; + char *format; + + nargs = aexpr->bytes[pc++]; + slen = aexpr->bytes[pc++]; + slen = (slen << 8) + aexpr->bytes[pc++]; + format = (char *) &(aexpr->bytes[pc]); + pc += slen; + /* Pop function and channel. */ + fn = top; + if (--sp >= 0) + top = stack[sp]; + chan = top; + if (--sp >= 0) + top = stack[sp]; + /* Pop arguments into a dedicated array. */ + for (i = 0; i < nargs; ++i) + { + args[i] = top; + if (--sp >= 0) + top = stack[sp]; + } + + /* A bad format string means something is very wrong; give + up immediately. */ + if (format[slen - 1] != '\0') + error (_("Unterminated format string in printf bytecode")); + + ax_printf (fn, chan, format, nargs, args); + } + break; + + /* GDB never (currently) generates any of these ops. */ + case gdb_agent_op_float: + case gdb_agent_op_ref_float: + case gdb_agent_op_ref_double: + case gdb_agent_op_ref_long_double: + case gdb_agent_op_l_to_d: + case gdb_agent_op_d_to_l: + case gdb_agent_op_trace16: + ax_debug ("Agent expression op 0x%x valid, but not handled", + op); + /* If ever GDB generates any of these, we don't have the + option of ignoring. */ + return expr_eval_unhandled_opcode; + + default: + ax_debug ("Agent expression op 0x%x not recognized", op); + /* Don't struggle on, things will just get worse. */ + return expr_eval_unrecognized_opcode; + } + + /* Check for stack badness. */ + if (sp >= (STACK_MAX - 1)) + { + ax_debug ("Expression stack overflow"); + return expr_eval_stack_overflow; + } + + if (sp < 0) + { + ax_debug ("Expression stack underflow"); + return expr_eval_stack_underflow; + } + + ax_debug ("Op %s -> sp=%d, top=0x%s", + gdb_agent_op_name (op), sp, phex_nz (top, 0)); + } +} diff --git a/gdbserver/configure b/gdbserver/configure index 71b515ec955..7d42803f640 100755 --- a/gdbserver/configure +++ b/gdbserver/configure @@ -582,7 +582,7 @@ PACKAGE_STRING= PACKAGE_BUGREPORT= PACKAGE_URL= -ac_unique_file="server.c" +ac_unique_file="server.cc" # Factoring default headers for most tests. ac_includes_default="\ #include diff --git a/gdbserver/configure.ac b/gdbserver/configure.ac index 285a297a1c6..0da2bfa95e4 100644 --- a/gdbserver/configure.ac +++ b/gdbserver/configure.ac @@ -18,7 +18,7 @@ dnl along with this program. If not, see . dnl Process this file with autoconf to produce a configure script. -AC_INIT(server.c) +AC_INIT(server.cc) AC_CONFIG_HEADERS(config.h:config.in, [echo > stamp-h]) AM_MAINTAINER_MODE diff --git a/gdbserver/debug.c b/gdbserver/debug.c deleted file mode 100644 index 7bb2504570d..00000000000 --- a/gdbserver/debug.c +++ /dev/null @@ -1,140 +0,0 @@ -/* Debugging routines for the remote server for GDB. - Copyright (C) 2014-2020 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 . */ - -#include "server.h" -#include - -#if !defined (IN_PROCESS_AGENT) -int remote_debug = 0; -#endif - -/* Output file for debugging. Default to standard error. */ -FILE *debug_file = stderr; - -/* See debug.h. */ -int debug_threads; - -/* Include timestamps in debugging output. */ -int debug_timestamp; - -#if !defined (IN_PROCESS_AGENT) - -/* See debug.h. */ - -void -debug_set_output (const char *new_debug_file) -{ - /* Close any existing file and reset to standard error. */ - if (debug_file != stderr) - { - fclose (debug_file); - } - debug_file = stderr; - - /* Catch empty filenames. */ - if (new_debug_file == nullptr || strlen (new_debug_file) == 0) - return; - - FILE *fptr = fopen (new_debug_file, "w"); - - if (fptr == nullptr) - { - debug_printf ("Cannot open %s for writing. %s. Switching to stderr.\n", - new_debug_file, safe_strerror (errno)); - return; - } - - debug_file = fptr; -} - -#endif - -/* Print a debugging message. - If the text begins a new line it is preceded by a timestamp. - We don't get fancy with newline checking, we just check whether the - previous call ended with "\n". */ - -void -debug_vprintf (const char *format, va_list ap) -{ -#if !defined (IN_PROCESS_AGENT) - /* N.B. Not thread safe, and can't be used, as is, with IPA. */ - static int new_line = 1; - - if (debug_timestamp && new_line) - { - using namespace std::chrono; - - steady_clock::time_point now = steady_clock::now (); - seconds s = duration_cast (now.time_since_epoch ()); - microseconds us = duration_cast (now.time_since_epoch ()) - s; - - fprintf (debug_file, "%ld.%06ld ", (long) s.count (), (long) us.count ()); - } -#endif - - vfprintf (debug_file, format, ap); - -#if !defined (IN_PROCESS_AGENT) - if (*format) - new_line = format[strlen (format) - 1] == '\n'; -#endif -} - -/* Flush debugging output. - This is called, for example, when starting an inferior to ensure all debug - output thus far appears before any inferior output. */ - -void -debug_flush (void) -{ - fflush (debug_file); -} - -/* Notify the user that the code is entering FUNCTION_NAME. - FUNCTION_NAME is the name of the calling function, or NULL if unknown. - - This is intended to be called via the debug_enter macro. */ - -void -do_debug_enter (const char *function_name) -{ - if (function_name != NULL) - debug_printf (">>>> entering %s\n", function_name); -} - -/* Notify the user that the code is exiting FUNCTION_NAME. - FUNCTION_NAME is the name of the calling function, or NULL if unknown. - - This is intended to be called via the debug_exit macro. */ - -void -do_debug_exit (const char *function_name) -{ - if (function_name != NULL) - debug_printf ("<<<< exiting %s\n", function_name); -} - -/* See debug.h. */ - -ssize_t -debug_write (const void *buf, size_t nbyte) -{ - int fd = fileno (debug_file); - return write (fd, buf, nbyte); -} diff --git a/gdbserver/debug.cc b/gdbserver/debug.cc new file mode 100644 index 00000000000..7bb2504570d --- /dev/null +++ b/gdbserver/debug.cc @@ -0,0 +1,140 @@ +/* Debugging routines for the remote server for GDB. + Copyright (C) 2014-2020 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 . */ + +#include "server.h" +#include + +#if !defined (IN_PROCESS_AGENT) +int remote_debug = 0; +#endif + +/* Output file for debugging. Default to standard error. */ +FILE *debug_file = stderr; + +/* See debug.h. */ +int debug_threads; + +/* Include timestamps in debugging output. */ +int debug_timestamp; + +#if !defined (IN_PROCESS_AGENT) + +/* See debug.h. */ + +void +debug_set_output (const char *new_debug_file) +{ + /* Close any existing file and reset to standard error. */ + if (debug_file != stderr) + { + fclose (debug_file); + } + debug_file = stderr; + + /* Catch empty filenames. */ + if (new_debug_file == nullptr || strlen (new_debug_file) == 0) + return; + + FILE *fptr = fopen (new_debug_file, "w"); + + if (fptr == nullptr) + { + debug_printf ("Cannot open %s for writing. %s. Switching to stderr.\n", + new_debug_file, safe_strerror (errno)); + return; + } + + debug_file = fptr; +} + +#endif + +/* Print a debugging message. + If the text begins a new line it is preceded by a timestamp. + We don't get fancy with newline checking, we just check whether the + previous call ended with "\n". */ + +void +debug_vprintf (const char *format, va_list ap) +{ +#if !defined (IN_PROCESS_AGENT) + /* N.B. Not thread safe, and can't be used, as is, with IPA. */ + static int new_line = 1; + + if (debug_timestamp && new_line) + { + using namespace std::chrono; + + steady_clock::time_point now = steady_clock::now (); + seconds s = duration_cast (now.time_since_epoch ()); + microseconds us = duration_cast (now.time_since_epoch ()) - s; + + fprintf (debug_file, "%ld.%06ld ", (long) s.count (), (long) us.count ()); + } +#endif + + vfprintf (debug_file, format, ap); + +#if !defined (IN_PROCESS_AGENT) + if (*format) + new_line = format[strlen (format) - 1] == '\n'; +#endif +} + +/* Flush debugging output. + This is called, for example, when starting an inferior to ensure all debug + output thus far appears before any inferior output. */ + +void +debug_flush (void) +{ + fflush (debug_file); +} + +/* Notify the user that the code is entering FUNCTION_NAME. + FUNCTION_NAME is the name of the calling function, or NULL if unknown. + + This is intended to be called via the debug_enter macro. */ + +void +do_debug_enter (const char *function_name) +{ + if (function_name != NULL) + debug_printf (">>>> entering %s\n", function_name); +} + +/* Notify the user that the code is exiting FUNCTION_NAME. + FUNCTION_NAME is the name of the calling function, or NULL if unknown. + + This is intended to be called via the debug_exit macro. */ + +void +do_debug_exit (const char *function_name) +{ + if (function_name != NULL) + debug_printf ("<<<< exiting %s\n", function_name); +} + +/* See debug.h. */ + +ssize_t +debug_write (const void *buf, size_t nbyte) +{ + int fd = fileno (debug_file); + return write (fd, buf, nbyte); +} diff --git a/gdbserver/dll.c b/gdbserver/dll.c deleted file mode 100644 index fdc7becfbee..00000000000 --- a/gdbserver/dll.c +++ /dev/null @@ -1,80 +0,0 @@ -/* Copyright (C) 2002-2020 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 . */ - -#include "server.h" -#include "dll.h" - -#include - -/* An "unspecified" CORE_ADDR, for match_dll. */ -#define UNSPECIFIED_CORE_ADDR (~(CORE_ADDR) 0) - -std::list all_dlls; -int dlls_changed; - -/* Record a newly loaded DLL at BASE_ADDR. */ - -void -loaded_dll (const char *name, CORE_ADDR base_addr) -{ - all_dlls.emplace_back (name != NULL ? name : "", base_addr); - dlls_changed = 1; -} - -/* Record that the DLL with NAME and BASE_ADDR has been unloaded. */ - -void -unloaded_dll (const char *name, CORE_ADDR base_addr) -{ - auto pred = [&] (const dll_info &dll) - { - if (base_addr != UNSPECIFIED_CORE_ADDR - && base_addr == dll.base_addr) - return true; - - if (name != NULL && dll.name == name) - return true; - - return false; - }; - - auto iter = std::find_if (all_dlls.begin (), all_dlls.end (), pred); - - if (iter == all_dlls.end ()) - /* For some inferiors we might get unloaded_dll events without having - a corresponding loaded_dll. In that case, the dll cannot be found - in ALL_DLL, and there is nothing further for us to do. - - This has been observed when running 32bit executables on Windows64 - (i.e. through WOW64, the interface between the 32bits and 64bits - worlds). In that case, the inferior always does some strange - unloading of unnamed dll. */ - return; - else - { - /* DLL has been found so remove the entry and free associated - resources. */ - all_dlls.erase (iter); - dlls_changed = 1; - } -} - -void -clear_dlls (void) -{ - all_dlls.clear (); -} diff --git a/gdbserver/dll.cc b/gdbserver/dll.cc new file mode 100644 index 00000000000..fdc7becfbee --- /dev/null +++ b/gdbserver/dll.cc @@ -0,0 +1,80 @@ +/* Copyright (C) 2002-2020 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 . */ + +#include "server.h" +#include "dll.h" + +#include + +/* An "unspecified" CORE_ADDR, for match_dll. */ +#define UNSPECIFIED_CORE_ADDR (~(CORE_ADDR) 0) + +std::list all_dlls; +int dlls_changed; + +/* Record a newly loaded DLL at BASE_ADDR. */ + +void +loaded_dll (const char *name, CORE_ADDR base_addr) +{ + all_dlls.emplace_back (name != NULL ? name : "", base_addr); + dlls_changed = 1; +} + +/* Record that the DLL with NAME and BASE_ADDR has been unloaded. */ + +void +unloaded_dll (const char *name, CORE_ADDR base_addr) +{ + auto pred = [&] (const dll_info &dll) + { + if (base_addr != UNSPECIFIED_CORE_ADDR + && base_addr == dll.base_addr) + return true; + + if (name != NULL && dll.name == name) + return true; + + return false; + }; + + auto iter = std::find_if (all_dlls.begin (), all_dlls.end (), pred); + + if (iter == all_dlls.end ()) + /* For some inferiors we might get unloaded_dll events without having + a corresponding loaded_dll. In that case, the dll cannot be found + in ALL_DLL, and there is nothing further for us to do. + + This has been observed when running 32bit executables on Windows64 + (i.e. through WOW64, the interface between the 32bits and 64bits + worlds). In that case, the inferior always does some strange + unloading of unnamed dll. */ + return; + else + { + /* DLL has been found so remove the entry and free associated + resources. */ + all_dlls.erase (iter); + dlls_changed = 1; + } +} + +void +clear_dlls (void) +{ + all_dlls.clear (); +} diff --git a/gdbserver/event-loop.c b/gdbserver/event-loop.c deleted file mode 100644 index 8827e8a32eb..00000000000 --- a/gdbserver/event-loop.c +++ /dev/null @@ -1,567 +0,0 @@ -/* Event loop machinery for the remote server for GDB. - Copyright (C) 1999-2020 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 . */ - -/* Based on src/gdb/event-loop.c. */ - -#include "server.h" - -#include -#include "gdbsupport/gdb_sys_time.h" - -#ifdef USE_WIN32API -#include -#include -#endif - -#include -#include - -typedef int (event_handler_func) (gdb_fildes_t); - -/* Tell create_file_handler what events we are interested in. */ - -#define GDB_READABLE (1<<1) -#define GDB_WRITABLE (1<<2) -#define GDB_EXCEPTION (1<<3) - -/* Events are queued by on the event_queue and serviced later - on by do_one_event. An event can be, for instance, a file - descriptor becoming ready to be read. Servicing an event simply - means that the procedure PROC will be called. We have 2 queues, - one for file handlers that we listen to in the event loop, and one - for the file handlers+events that are ready. The procedure PROC - associated with each event is always the same (handle_file_event). - Its duty is to invoke the handler associated with the file - descriptor whose state change generated the event, plus doing other - cleanups and such. */ - -struct gdb_event - { - /* Procedure to call to service this event. */ - event_handler_func *proc; - - /* File descriptor that is ready. */ - gdb_fildes_t fd; - }; - -/* Information about each file descriptor we register with the event - loop. */ - -typedef struct file_handler - { - /* File descriptor. */ - gdb_fildes_t fd; - - /* Events we want to monitor. */ - int mask; - - /* Events that have been seen since the last time. */ - int ready_mask; - - /* Procedure to call when fd is ready. */ - handler_func *proc; - - /* Argument to pass to proc. */ - gdb_client_data client_data; - - /* Was an error detected on this fd? */ - int error; - - /* Next registered file descriptor. */ - struct file_handler *next_file; - } -file_handler; - -typedef gdb::unique_xmalloc_ptr gdb_event_up; - -static std::queue> event_queue; - -/* Gdb_notifier is just a list of file descriptors gdb is interested - in. These are the input file descriptor, and the target file - descriptor. Each of the elements in the gdb_notifier list is - basically a description of what kind of events gdb is interested - in, for each fd. */ - -static struct - { - /* Ptr to head of file handler list. */ - file_handler *first_file_handler; - - /* Masks to be used in the next call to select. Bits are set in - response to calls to create_file_handler. */ - fd_set check_masks[3]; - - /* What file descriptors were found ready by select. */ - fd_set ready_masks[3]; - - /* Number of valid bits (highest fd value + 1). (for select) */ - int num_fds; - } -gdb_notifier; - -/* Callbacks are just routines that are executed before waiting for the - next event. In GDB this is struct gdb_timer. We don't need timers - so rather than copy all that complexity in gdbserver, we provide what - we need, but we do so in a way that if/when the day comes that we need - that complexity, it'll be easier to add - replace callbacks with timers - and use a delta of zero (which is all gdb currently uses timers for anyway). - - PROC will be executed before gdbserver goes to sleep to wait for the - next event. */ - -struct callback_event - { - int id; - callback_handler_func *proc; - gdb_client_data data; - struct callback_event *next; - }; - -/* Table of registered callbacks. */ - -static struct - { - struct callback_event *first; - struct callback_event *last; - - /* Id of the last callback created. */ - int num_callbacks; - } -callback_list; - -void -initialize_event_loop (void) -{ -} - -/* Process one event. If an event was processed, 1 is returned - otherwise 0 is returned. Scan the queue from head to tail, - processing therefore the high priority events first, by invoking - the associated event handler procedure. */ - -static int -process_event (void) -{ - /* Let's get rid of the event from the event queue. We need to - do this now because while processing the event, since the - proc function could end up jumping out to the caller of this - function. In that case, we would have on the event queue an - event which has been processed, but not deleted. */ - if (!event_queue.empty ()) - { - gdb_event_up event_ptr = std::move (event_queue.front ()); - event_queue.pop (); - - event_handler_func *proc = event_ptr->proc; - gdb_fildes_t fd = event_ptr->fd; - - /* Now call the procedure associated with the event. */ - if ((*proc) (fd)) - return -1; - return 1; - } - - /* This is the case if there are no event on the event queue. */ - return 0; -} - -/* Append PROC to the callback list. - The result is the "id" of the callback that can be passed back to - delete_callback_event. */ - -int -append_callback_event (callback_handler_func *proc, gdb_client_data data) -{ - struct callback_event *event_ptr = XNEW (struct callback_event); - - event_ptr->id = callback_list.num_callbacks++; - event_ptr->proc = proc; - event_ptr->data = data; - event_ptr->next = NULL; - if (callback_list.first == NULL) - callback_list.first = event_ptr; - if (callback_list.last != NULL) - callback_list.last->next = event_ptr; - callback_list.last = event_ptr; - return event_ptr->id; -} - -/* Delete callback ID. - It is not an error callback ID doesn't exist. */ - -void -delete_callback_event (int id) -{ - struct callback_event **p; - - for (p = &callback_list.first; *p != NULL; p = &(*p)->next) - { - struct callback_event *event_ptr = *p; - - if (event_ptr->id == id) - { - *p = event_ptr->next; - if (event_ptr == callback_list.last) - callback_list.last = NULL; - free (event_ptr); - break; - } - } -} - -/* Run the next callback. - The result is 1 if a callback was called and event processing - should continue, -1 if the callback wants the event loop to exit, - and 0 if there are no more callbacks. */ - -static int -process_callback (void) -{ - struct callback_event *event_ptr; - - event_ptr = callback_list.first; - if (event_ptr != NULL) - { - callback_handler_func *proc = event_ptr->proc; - gdb_client_data data = event_ptr->data; - - /* Remove the event before calling PROC, - more events may get added by PROC. */ - callback_list.first = event_ptr->next; - if (callback_list.first == NULL) - callback_list.last = NULL; - free (event_ptr); - if ((*proc) (data)) - return -1; - return 1; - } - - return 0; -} - -/* Add a file handler/descriptor to the list of descriptors we are - interested in. FD is the file descriptor for the file/stream to be - listened to. MASK is a combination of READABLE, WRITABLE, - EXCEPTION. PROC is the procedure that will be called when an event - occurs for FD. CLIENT_DATA is the argument to pass to PROC. */ - -static void -create_file_handler (gdb_fildes_t fd, int mask, handler_func *proc, - gdb_client_data client_data) -{ - file_handler *file_ptr; - - /* Do we already have a file handler for this file? (We may be - changing its associated procedure). */ - for (file_ptr = gdb_notifier.first_file_handler; - file_ptr != NULL; - file_ptr = file_ptr->next_file) - if (file_ptr->fd == fd) - break; - - /* It is a new file descriptor. Add it to the list. Otherwise, - just change the data associated with it. */ - if (file_ptr == NULL) - { - file_ptr = XNEW (struct file_handler); - file_ptr->fd = fd; - file_ptr->ready_mask = 0; - file_ptr->next_file = gdb_notifier.first_file_handler; - gdb_notifier.first_file_handler = file_ptr; - - if (mask & GDB_READABLE) - FD_SET (fd, &gdb_notifier.check_masks[0]); - else - FD_CLR (fd, &gdb_notifier.check_masks[0]); - - if (mask & GDB_WRITABLE) - FD_SET (fd, &gdb_notifier.check_masks[1]); - else - FD_CLR (fd, &gdb_notifier.check_masks[1]); - - if (mask & GDB_EXCEPTION) - FD_SET (fd, &gdb_notifier.check_masks[2]); - else - FD_CLR (fd, &gdb_notifier.check_masks[2]); - - if (gdb_notifier.num_fds <= fd) - gdb_notifier.num_fds = fd + 1; - } - - file_ptr->proc = proc; - file_ptr->client_data = client_data; - file_ptr->mask = mask; -} - -/* Wrapper function for create_file_handler. */ - -void -add_file_handler (gdb_fildes_t fd, - handler_func *proc, gdb_client_data client_data) -{ - create_file_handler (fd, GDB_READABLE | GDB_EXCEPTION, proc, client_data); -} - -/* Remove the file descriptor FD from the list of monitored fd's: - i.e. we don't care anymore about events on the FD. */ - -void -delete_file_handler (gdb_fildes_t fd) -{ - file_handler *file_ptr, *prev_ptr = NULL; - int i; - - /* Find the entry for the given file. */ - - for (file_ptr = gdb_notifier.first_file_handler; - file_ptr != NULL; - file_ptr = file_ptr->next_file) - if (file_ptr->fd == fd) - break; - - if (file_ptr == NULL) - return; - - if (file_ptr->mask & GDB_READABLE) - FD_CLR (fd, &gdb_notifier.check_masks[0]); - if (file_ptr->mask & GDB_WRITABLE) - FD_CLR (fd, &gdb_notifier.check_masks[1]); - if (file_ptr->mask & GDB_EXCEPTION) - FD_CLR (fd, &gdb_notifier.check_masks[2]); - - /* Find current max fd. */ - - if ((fd + 1) == gdb_notifier.num_fds) - { - gdb_notifier.num_fds--; - for (i = gdb_notifier.num_fds; i; i--) - { - if (FD_ISSET (i - 1, &gdb_notifier.check_masks[0]) - || FD_ISSET (i - 1, &gdb_notifier.check_masks[1]) - || FD_ISSET (i - 1, &gdb_notifier.check_masks[2])) - break; - } - gdb_notifier.num_fds = i; - } - - /* Deactivate the file descriptor, by clearing its mask, so that it - will not fire again. */ - - file_ptr->mask = 0; - - /* Get rid of the file handler in the file handler list. */ - if (file_ptr == gdb_notifier.first_file_handler) - gdb_notifier.first_file_handler = file_ptr->next_file; - else - { - for (prev_ptr = gdb_notifier.first_file_handler; - prev_ptr->next_file != file_ptr; - prev_ptr = prev_ptr->next_file) - ; - prev_ptr->next_file = file_ptr->next_file; - } - free (file_ptr); -} - -/* Handle the given event by calling the procedure associated to the - corresponding file handler. Called by process_event indirectly, - through event_ptr->proc. EVENT_FILE_DESC is file descriptor of the - event in the front of the event queue. */ - -static int -handle_file_event (gdb_fildes_t event_file_desc) -{ - file_handler *file_ptr; - int mask; - - /* Search the file handler list to find one that matches the fd in - the event. */ - for (file_ptr = gdb_notifier.first_file_handler; file_ptr != NULL; - file_ptr = file_ptr->next_file) - { - if (file_ptr->fd == event_file_desc) - { - /* See if the desired events (mask) match the received - events (ready_mask). */ - - if (file_ptr->ready_mask & GDB_EXCEPTION) - { - warning ("Exception condition detected on fd %s", - pfildes (file_ptr->fd)); - file_ptr->error = 1; - } - else - file_ptr->error = 0; - mask = file_ptr->ready_mask & file_ptr->mask; - - /* Clear the received events for next time around. */ - file_ptr->ready_mask = 0; - - /* If there was a match, then call the handler. */ - if (mask != 0) - { - if ((*file_ptr->proc) (file_ptr->error, - file_ptr->client_data) < 0) - return -1; - } - break; - } - } - - return 0; -} - -/* Create a file event, to be enqueued in the event queue for - processing. The procedure associated to this event is always - handle_file_event, which will in turn invoke the one that was - associated to FD when it was registered with the event loop. */ - -static gdb_event * -create_file_event (gdb_fildes_t fd) -{ - gdb_event *file_event_ptr; - - file_event_ptr = XNEW (gdb_event); - file_event_ptr->proc = handle_file_event; - file_event_ptr->fd = fd; - - return file_event_ptr; -} - -/* Called by do_one_event to wait for new events on the monitored file - descriptors. Queue file events as they are detected by the poll. - If there are no events, this function will block in the call to - select. Return -1 if there are no files descriptors to monitor, - otherwise return 0. */ - -static int -wait_for_event (void) -{ - file_handler *file_ptr; - int num_found = 0; - - /* Make sure all output is done before getting another event. */ - fflush (stdout); - fflush (stderr); - - if (gdb_notifier.num_fds == 0) - return -1; - - gdb_notifier.ready_masks[0] = gdb_notifier.check_masks[0]; - gdb_notifier.ready_masks[1] = gdb_notifier.check_masks[1]; - gdb_notifier.ready_masks[2] = gdb_notifier.check_masks[2]; - num_found = select (gdb_notifier.num_fds, - &gdb_notifier.ready_masks[0], - &gdb_notifier.ready_masks[1], - &gdb_notifier.ready_masks[2], - NULL); - - /* Clear the masks after an error from select. */ - if (num_found == -1) - { - FD_ZERO (&gdb_notifier.ready_masks[0]); - FD_ZERO (&gdb_notifier.ready_masks[1]); - FD_ZERO (&gdb_notifier.ready_masks[2]); -#ifdef EINTR - /* Dont print anything if we got a signal, let gdb handle - it. */ - if (errno != EINTR) - perror_with_name ("select"); -#endif - } - - /* Enqueue all detected file events. */ - - for (file_ptr = gdb_notifier.first_file_handler; - file_ptr != NULL && num_found > 0; - file_ptr = file_ptr->next_file) - { - int mask = 0; - - if (FD_ISSET (file_ptr->fd, &gdb_notifier.ready_masks[0])) - mask |= GDB_READABLE; - if (FD_ISSET (file_ptr->fd, &gdb_notifier.ready_masks[1])) - mask |= GDB_WRITABLE; - if (FD_ISSET (file_ptr->fd, &gdb_notifier.ready_masks[2])) - mask |= GDB_EXCEPTION; - - if (!mask) - continue; - else - num_found--; - - /* Enqueue an event only if this is still a new event for this - fd. */ - - if (file_ptr->ready_mask == 0) - { - gdb_event *file_event_ptr = create_file_event (file_ptr->fd); - - event_queue.emplace (file_event_ptr); - } - file_ptr->ready_mask = mask; - } - - return 0; -} - -/* Start up the event loop. This is the entry point to the event - loop. */ - -void -start_event_loop (void) -{ - /* Loop until there is nothing to do. This is the entry point to - the event loop engine. If nothing is ready at this time, wait - for something to happen (via wait_for_event), then process it. - Return when there are no longer event sources to wait for. */ - - while (1) - { - /* Any events already waiting in the queue? */ - int res = process_event (); - - /* Did the event handler want the event loop to stop? */ - if (res == -1) - return; - - if (res) - continue; - - /* Process any queued callbacks before we go to sleep. */ - res = process_callback (); - - /* Did the callback want the event loop to stop? */ - if (res == -1) - return; - - if (res) - continue; - - /* Wait for a new event. If wait_for_event returns -1, we - should get out because this means that there are no event - sources left. This will make the event loop stop, and the - application exit. */ - - if (wait_for_event () < 0) - return; - } - - /* We are done with the event loop. There are no more event sources - to listen to. So we exit gdbserver. */ -} diff --git a/gdbserver/event-loop.cc b/gdbserver/event-loop.cc new file mode 100644 index 00000000000..8827e8a32eb --- /dev/null +++ b/gdbserver/event-loop.cc @@ -0,0 +1,567 @@ +/* Event loop machinery for the remote server for GDB. + Copyright (C) 1999-2020 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 . */ + +/* Based on src/gdb/event-loop.c. */ + +#include "server.h" + +#include +#include "gdbsupport/gdb_sys_time.h" + +#ifdef USE_WIN32API +#include +#include +#endif + +#include +#include + +typedef int (event_handler_func) (gdb_fildes_t); + +/* Tell create_file_handler what events we are interested in. */ + +#define GDB_READABLE (1<<1) +#define GDB_WRITABLE (1<<2) +#define GDB_EXCEPTION (1<<3) + +/* Events are queued by on the event_queue and serviced later + on by do_one_event. An event can be, for instance, a file + descriptor becoming ready to be read. Servicing an event simply + means that the procedure PROC will be called. We have 2 queues, + one for file handlers that we listen to in the event loop, and one + for the file handlers+events that are ready. The procedure PROC + associated with each event is always the same (handle_file_event). + Its duty is to invoke the handler associated with the file + descriptor whose state change generated the event, plus doing other + cleanups and such. */ + +struct gdb_event + { + /* Procedure to call to service this event. */ + event_handler_func *proc; + + /* File descriptor that is ready. */ + gdb_fildes_t fd; + }; + +/* Information about each file descriptor we register with the event + loop. */ + +typedef struct file_handler + { + /* File descriptor. */ + gdb_fildes_t fd; + + /* Events we want to monitor. */ + int mask; + + /* Events that have been seen since the last time. */ + int ready_mask; + + /* Procedure to call when fd is ready. */ + handler_func *proc; + + /* Argument to pass to proc. */ + gdb_client_data client_data; + + /* Was an error detected on this fd? */ + int error; + + /* Next registered file descriptor. */ + struct file_handler *next_file; + } +file_handler; + +typedef gdb::unique_xmalloc_ptr gdb_event_up; + +static std::queue> event_queue; + +/* Gdb_notifier is just a list of file descriptors gdb is interested + in. These are the input file descriptor, and the target file + descriptor. Each of the elements in the gdb_notifier list is + basically a description of what kind of events gdb is interested + in, for each fd. */ + +static struct + { + /* Ptr to head of file handler list. */ + file_handler *first_file_handler; + + /* Masks to be used in the next call to select. Bits are set in + response to calls to create_file_handler. */ + fd_set check_masks[3]; + + /* What file descriptors were found ready by select. */ + fd_set ready_masks[3]; + + /* Number of valid bits (highest fd value + 1). (for select) */ + int num_fds; + } +gdb_notifier; + +/* Callbacks are just routines that are executed before waiting for the + next event. In GDB this is struct gdb_timer. We don't need timers + so rather than copy all that complexity in gdbserver, we provide what + we need, but we do so in a way that if/when the day comes that we need + that complexity, it'll be easier to add - replace callbacks with timers + and use a delta of zero (which is all gdb currently uses timers for anyway). + + PROC will be executed before gdbserver goes to sleep to wait for the + next event. */ + +struct callback_event + { + int id; + callback_handler_func *proc; + gdb_client_data data; + struct callback_event *next; + }; + +/* Table of registered callbacks. */ + +static struct + { + struct callback_event *first; + struct callback_event *last; + + /* Id of the last callback created. */ + int num_callbacks; + } +callback_list; + +void +initialize_event_loop (void) +{ +} + +/* Process one event. If an event was processed, 1 is returned + otherwise 0 is returned. Scan the queue from head to tail, + processing therefore the high priority events first, by invoking + the associated event handler procedure. */ + +static int +process_event (void) +{ + /* Let's get rid of the event from the event queue. We need to + do this now because while processing the event, since the + proc function could end up jumping out to the caller of this + function. In that case, we would have on the event queue an + event which has been processed, but not deleted. */ + if (!event_queue.empty ()) + { + gdb_event_up event_ptr = std::move (event_queue.front ()); + event_queue.pop (); + + event_handler_func *proc = event_ptr->proc; + gdb_fildes_t fd = event_ptr->fd; + + /* Now call the procedure associated with the event. */ + if ((*proc) (fd)) + return -1; + return 1; + } + + /* This is the case if there are no event on the event queue. */ + return 0; +} + +/* Append PROC to the callback list. + The result is the "id" of the callback that can be passed back to + delete_callback_event. */ + +int +append_callback_event (callback_handler_func *proc, gdb_client_data data) +{ + struct callback_event *event_ptr = XNEW (struct callback_event); + + event_ptr->id = callback_list.num_callbacks++; + event_ptr->proc = proc; + event_ptr->data = data; + event_ptr->next = NULL; + if (callback_list.first == NULL) + callback_list.first = event_ptr; + if (callback_list.last != NULL) + callback_list.last->next = event_ptr; + callback_list.last = event_ptr; + return event_ptr->id; +} + +/* Delete callback ID. + It is not an error callback ID doesn't exist. */ + +void +delete_callback_event (int id) +{ + struct callback_event **p; + + for (p = &callback_list.first; *p != NULL; p = &(*p)->next) + { + struct callback_event *event_ptr = *p; + + if (event_ptr->id == id) + { + *p = event_ptr->next; + if (event_ptr == callback_list.last) + callback_list.last = NULL; + free (event_ptr); + break; + } + } +} + +/* Run the next callback. + The result is 1 if a callback was called and event processing + should continue, -1 if the callback wants the event loop to exit, + and 0 if there are no more callbacks. */ + +static int +process_callback (void) +{ + struct callback_event *event_ptr; + + event_ptr = callback_list.first; + if (event_ptr != NULL) + { + callback_handler_func *proc = event_ptr->proc; + gdb_client_data data = event_ptr->data; + + /* Remove the event before calling PROC, + more events may get added by PROC. */ + callback_list.first = event_ptr->next; + if (callback_list.first == NULL) + callback_list.last = NULL; + free (event_ptr); + if ((*proc) (data)) + return -1; + return 1; + } + + return 0; +} + +/* Add a file handler/descriptor to the list of descriptors we are + interested in. FD is the file descriptor for the file/stream to be + listened to. MASK is a combination of READABLE, WRITABLE, + EXCEPTION. PROC is the procedure that will be called when an event + occurs for FD. CLIENT_DATA is the argument to pass to PROC. */ + +static void +create_file_handler (gdb_fildes_t fd, int mask, handler_func *proc, + gdb_client_data client_data) +{ + file_handler *file_ptr; + + /* Do we already have a file handler for this file? (We may be + changing its associated procedure). */ + for (file_ptr = gdb_notifier.first_file_handler; + file_ptr != NULL; + file_ptr = file_ptr->next_file) + if (file_ptr->fd == fd) + break; + + /* It is a new file descriptor. Add it to the list. Otherwise, + just change the data associated with it. */ + if (file_ptr == NULL) + { + file_ptr = XNEW (struct file_handler); + file_ptr->fd = fd; + file_ptr->ready_mask = 0; + file_ptr->next_file = gdb_notifier.first_file_handler; + gdb_notifier.first_file_handler = file_ptr; + + if (mask & GDB_READABLE) + FD_SET (fd, &gdb_notifier.check_masks[0]); + else + FD_CLR (fd, &gdb_notifier.check_masks[0]); + + if (mask & GDB_WRITABLE) + FD_SET (fd, &gdb_notifier.check_masks[1]); + else + FD_CLR (fd, &gdb_notifier.check_masks[1]); + + if (mask & GDB_EXCEPTION) + FD_SET (fd, &gdb_notifier.check_masks[2]); + else + FD_CLR (fd, &gdb_notifier.check_masks[2]); + + if (gdb_notifier.num_fds <= fd) + gdb_notifier.num_fds = fd + 1; + } + + file_ptr->proc = proc; + file_ptr->client_data = client_data; + file_ptr->mask = mask; +} + +/* Wrapper function for create_file_handler. */ + +void +add_file_handler (gdb_fildes_t fd, + handler_func *proc, gdb_client_data client_data) +{ + create_file_handler (fd, GDB_READABLE | GDB_EXCEPTION, proc, client_data); +} + +/* Remove the file descriptor FD from the list of monitored fd's: + i.e. we don't care anymore about events on the FD. */ + +void +delete_file_handler (gdb_fildes_t fd) +{ + file_handler *file_ptr, *prev_ptr = NULL; + int i; + + /* Find the entry for the given file. */ + + for (file_ptr = gdb_notifier.first_file_handler; + file_ptr != NULL; + file_ptr = file_ptr->next_file) + if (file_ptr->fd == fd) + break; + + if (file_ptr == NULL) + return; + + if (file_ptr->mask & GDB_READABLE) + FD_CLR (fd, &gdb_notifier.check_masks[0]); + if (file_ptr->mask & GDB_WRITABLE) + FD_CLR (fd, &gdb_notifier.check_masks[1]); + if (file_ptr->mask & GDB_EXCEPTION) + FD_CLR (fd, &gdb_notifier.check_masks[2]); + + /* Find current max fd. */ + + if ((fd + 1) == gdb_notifier.num_fds) + { + gdb_notifier.num_fds--; + for (i = gdb_notifier.num_fds; i; i--) + { + if (FD_ISSET (i - 1, &gdb_notifier.check_masks[0]) + || FD_ISSET (i - 1, &gdb_notifier.check_masks[1]) + || FD_ISSET (i - 1, &gdb_notifier.check_masks[2])) + break; + } + gdb_notifier.num_fds = i; + } + + /* Deactivate the file descriptor, by clearing its mask, so that it + will not fire again. */ + + file_ptr->mask = 0; + + /* Get rid of the file handler in the file handler list. */ + if (file_ptr == gdb_notifier.first_file_handler) + gdb_notifier.first_file_handler = file_ptr->next_file; + else + { + for (prev_ptr = gdb_notifier.first_file_handler; + prev_ptr->next_file != file_ptr; + prev_ptr = prev_ptr->next_file) + ; + prev_ptr->next_file = file_ptr->next_file; + } + free (file_ptr); +} + +/* Handle the given event by calling the procedure associated to the + corresponding file handler. Called by process_event indirectly, + through event_ptr->proc. EVENT_FILE_DESC is file descriptor of the + event in the front of the event queue. */ + +static int +handle_file_event (gdb_fildes_t event_file_desc) +{ + file_handler *file_ptr; + int mask; + + /* Search the file handler list to find one that matches the fd in + the event. */ + for (file_ptr = gdb_notifier.first_file_handler; file_ptr != NULL; + file_ptr = file_ptr->next_file) + { + if (file_ptr->fd == event_file_desc) + { + /* See if the desired events (mask) match the received + events (ready_mask). */ + + if (file_ptr->ready_mask & GDB_EXCEPTION) + { + warning ("Exception condition detected on fd %s", + pfildes (file_ptr->fd)); + file_ptr->error = 1; + } + else + file_ptr->error = 0; + mask = file_ptr->ready_mask & file_ptr->mask; + + /* Clear the received events for next time around. */ + file_ptr->ready_mask = 0; + + /* If there was a match, then call the handler. */ + if (mask != 0) + { + if ((*file_ptr->proc) (file_ptr->error, + file_ptr->client_data) < 0) + return -1; + } + break; + } + } + + return 0; +} + +/* Create a file event, to be enqueued in the event queue for + processing. The procedure associated to this event is always + handle_file_event, which will in turn invoke the one that was + associated to FD when it was registered with the event loop. */ + +static gdb_event * +create_file_event (gdb_fildes_t fd) +{ + gdb_event *file_event_ptr; + + file_event_ptr = XNEW (gdb_event); + file_event_ptr->proc = handle_file_event; + file_event_ptr->fd = fd; + + return file_event_ptr; +} + +/* Called by do_one_event to wait for new events on the monitored file + descriptors. Queue file events as they are detected by the poll. + If there are no events, this function will block in the call to + select. Return -1 if there are no files descriptors to monitor, + otherwise return 0. */ + +static int +wait_for_event (void) +{ + file_handler *file_ptr; + int num_found = 0; + + /* Make sure all output is done before getting another event. */ + fflush (stdout); + fflush (stderr); + + if (gdb_notifier.num_fds == 0) + return -1; + + gdb_notifier.ready_masks[0] = gdb_notifier.check_masks[0]; + gdb_notifier.ready_masks[1] = gdb_notifier.check_masks[1]; + gdb_notifier.ready_masks[2] = gdb_notifier.check_masks[2]; + num_found = select (gdb_notifier.num_fds, + &gdb_notifier.ready_masks[0], + &gdb_notifier.ready_masks[1], + &gdb_notifier.ready_masks[2], + NULL); + + /* Clear the masks after an error from select. */ + if (num_found == -1) + { + FD_ZERO (&gdb_notifier.ready_masks[0]); + FD_ZERO (&gdb_notifier.ready_masks[1]); + FD_ZERO (&gdb_notifier.ready_masks[2]); +#ifdef EINTR + /* Dont print anything if we got a signal, let gdb handle + it. */ + if (errno != EINTR) + perror_with_name ("select"); +#endif + } + + /* Enqueue all detected file events. */ + + for (file_ptr = gdb_notifier.first_file_handler; + file_ptr != NULL && num_found > 0; + file_ptr = file_ptr->next_file) + { + int mask = 0; + + if (FD_ISSET (file_ptr->fd, &gdb_notifier.ready_masks[0])) + mask |= GDB_READABLE; + if (FD_ISSET (file_ptr->fd, &gdb_notifier.ready_masks[1])) + mask |= GDB_WRITABLE; + if (FD_ISSET (file_ptr->fd, &gdb_notifier.ready_masks[2])) + mask |= GDB_EXCEPTION; + + if (!mask) + continue; + else + num_found--; + + /* Enqueue an event only if this is still a new event for this + fd. */ + + if (file_ptr->ready_mask == 0) + { + gdb_event *file_event_ptr = create_file_event (file_ptr->fd); + + event_queue.emplace (file_event_ptr); + } + file_ptr->ready_mask = mask; + } + + return 0; +} + +/* Start up the event loop. This is the entry point to the event + loop. */ + +void +start_event_loop (void) +{ + /* Loop until there is nothing to do. This is the entry point to + the event loop engine. If nothing is ready at this time, wait + for something to happen (via wait_for_event), then process it. + Return when there are no longer event sources to wait for. */ + + while (1) + { + /* Any events already waiting in the queue? */ + int res = process_event (); + + /* Did the event handler want the event loop to stop? */ + if (res == -1) + return; + + if (res) + continue; + + /* Process any queued callbacks before we go to sleep. */ + res = process_callback (); + + /* Did the callback want the event loop to stop? */ + if (res == -1) + return; + + if (res) + continue; + + /* Wait for a new event. If wait_for_event returns -1, we + should get out because this means that there are no event + sources left. This will make the event loop stop, and the + application exit. */ + + if (wait_for_event () < 0) + return; + } + + /* We are done with the event loop. There are no more event sources + to listen to. So we exit gdbserver. */ +} diff --git a/gdbserver/fork-child.c b/gdbserver/fork-child.c deleted file mode 100644 index 7a71ec0b1ca..00000000000 --- a/gdbserver/fork-child.c +++ /dev/null @@ -1,119 +0,0 @@ -/* Fork a Unix child process, and set up to debug it, for GDBserver. - Copyright (C) 1989-2020 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 . */ - -#include "server.h" -#include "gdbsupport/job-control.h" -#include "nat/fork-inferior.h" -#ifdef HAVE_SIGNAL_H -#include -#endif - -#ifdef SIGTTOU -/* A file descriptor for the controlling terminal. */ -static int terminal_fd; - -/* TERMINAL_FD's original foreground group. */ -static pid_t old_foreground_pgrp; - -/* Hand back terminal ownership to the original foreground group. */ - -static void -restore_old_foreground_pgrp (void) -{ - tcsetpgrp (terminal_fd, old_foreground_pgrp); -} -#endif - -/* See nat/fork-inferior.h. */ - -void -prefork_hook (const char *args) -{ - client_state &cs = get_client_state (); - if (debug_threads) - { - debug_printf ("args: %s\n", args); - debug_flush (); - } - -#ifdef SIGTTOU - signal (SIGTTOU, SIG_DFL); - signal (SIGTTIN, SIG_DFL); -#endif - - /* Clear this so the backend doesn't get confused, thinking - CONT_THREAD died, and it needs to resume all threads. */ - cs.cont_thread = null_ptid; -} - -/* See nat/fork-inferior.h. */ - -void -postfork_hook (pid_t pid) -{ -} - -/* See nat/fork-inferior.h. */ - -void -postfork_child_hook () -{ - /* This is set to the result of setpgrp, which if vforked, will be - visible to you in the parent process. It's only used by humans - for debugging. */ - static int debug_setpgrp = 657473; - - debug_setpgrp = gdb_setpgid (); - if (debug_setpgrp == -1) - perror (_("setpgrp failed in child")); -} - -/* See nat/fork-inferior.h. */ - -void -gdb_flush_out_err () -{ - fflush (stdout); - fflush (stderr); -} - -/* See server.h. */ - -void -post_fork_inferior (int pid, const char *program) -{ - client_state &cs = get_client_state (); -#ifdef SIGTTOU - signal (SIGTTOU, SIG_IGN); - signal (SIGTTIN, SIG_IGN); - terminal_fd = fileno (stderr); - old_foreground_pgrp = tcgetpgrp (terminal_fd); - tcsetpgrp (terminal_fd, pid); - atexit (restore_old_foreground_pgrp); -#endif - - startup_inferior (the_target, pid, - START_INFERIOR_TRAPS_EXPECTED, - &cs.last_status, &cs.last_ptid); - current_thread->last_resume_kind = resume_stop; - current_thread->last_status = cs.last_status; - signal_pid = pid; - target_post_create_inferior (); - fprintf (stderr, "Process %s created; pid = %d\n", program, pid); - fflush (stderr); -} diff --git a/gdbserver/fork-child.cc b/gdbserver/fork-child.cc new file mode 100644 index 00000000000..7a71ec0b1ca --- /dev/null +++ b/gdbserver/fork-child.cc @@ -0,0 +1,119 @@ +/* Fork a Unix child process, and set up to debug it, for GDBserver. + Copyright (C) 1989-2020 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 . */ + +#include "server.h" +#include "gdbsupport/job-control.h" +#include "nat/fork-inferior.h" +#ifdef HAVE_SIGNAL_H +#include +#endif + +#ifdef SIGTTOU +/* A file descriptor for the controlling terminal. */ +static int terminal_fd; + +/* TERMINAL_FD's original foreground group. */ +static pid_t old_foreground_pgrp; + +/* Hand back terminal ownership to the original foreground group. */ + +static void +restore_old_foreground_pgrp (void) +{ + tcsetpgrp (terminal_fd, old_foreground_pgrp); +} +#endif + +/* See nat/fork-inferior.h. */ + +void +prefork_hook (const char *args) +{ + client_state &cs = get_client_state (); + if (debug_threads) + { + debug_printf ("args: %s\n", args); + debug_flush (); + } + +#ifdef SIGTTOU + signal (SIGTTOU, SIG_DFL); + signal (SIGTTIN, SIG_DFL); +#endif + + /* Clear this so the backend doesn't get confused, thinking + CONT_THREAD died, and it needs to resume all threads. */ + cs.cont_thread = null_ptid; +} + +/* See nat/fork-inferior.h. */ + +void +postfork_hook (pid_t pid) +{ +} + +/* See nat/fork-inferior.h. */ + +void +postfork_child_hook () +{ + /* This is set to the result of setpgrp, which if vforked, will be + visible to you in the parent process. It's only used by humans + for debugging. */ + static int debug_setpgrp = 657473; + + debug_setpgrp = gdb_setpgid (); + if (debug_setpgrp == -1) + perror (_("setpgrp failed in child")); +} + +/* See nat/fork-inferior.h. */ + +void +gdb_flush_out_err () +{ + fflush (stdout); + fflush (stderr); +} + +/* See server.h. */ + +void +post_fork_inferior (int pid, const char *program) +{ + client_state &cs = get_client_state (); +#ifdef SIGTTOU + signal (SIGTTOU, SIG_IGN); + signal (SIGTTIN, SIG_IGN); + terminal_fd = fileno (stderr); + old_foreground_pgrp = tcgetpgrp (terminal_fd); + tcsetpgrp (terminal_fd, pid); + atexit (restore_old_foreground_pgrp); +#endif + + startup_inferior (the_target, pid, + START_INFERIOR_TRAPS_EXPECTED, + &cs.last_status, &cs.last_ptid); + current_thread->last_resume_kind = resume_stop; + current_thread->last_status = cs.last_status; + signal_pid = pid; + target_post_create_inferior (); + fprintf (stderr, "Process %s created; pid = %d\n", program, pid); + fflush (stderr); +} diff --git a/gdbserver/gdbreplay.c b/gdbserver/gdbreplay.c deleted file mode 100644 index 263fb0efeac..00000000000 --- a/gdbserver/gdbreplay.c +++ /dev/null @@ -1,532 +0,0 @@ -/* Replay a remote debug session logfile for GDB. - Copyright (C) 1996-2020 Free Software Foundation, Inc. - Written by Fred Fish (fnf@cygnus.com) from pieces of gdbserver. - - 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 . */ - -#include "gdbsupport/common-defs.h" - -#undef PACKAGE -#undef PACKAGE_NAME -#undef PACKAGE_VERSION -#undef PACKAGE_STRING -#undef PACKAGE_TARNAME - -#include -#include "gdbsupport/version.h" - -#if HAVE_SYS_FILE_H -#include -#endif -#if HAVE_SIGNAL_H -#include -#endif -#include -#if HAVE_FCNTL_H -#include -#endif -#include -#ifdef HAVE_NETINET_IN_H -#include -#endif -#ifdef HAVE_SYS_SOCKET_H -#include -#endif -#if HAVE_NETDB_H -#include -#endif -#if HAVE_NETINET_TCP_H -#include -#endif - -#if USE_WIN32API -#include -#endif - -#include "gdbsupport/netstuff.h" -#include "gdbsupport/rsp-low.h" - -#ifndef HAVE_SOCKLEN_T -typedef int socklen_t; -#endif - -/* Sort of a hack... */ -#define EOL (EOF - 1) - -static int remote_desc; - -#ifdef __MINGW32CE__ - -#ifndef COUNTOF -#define COUNTOF(STR) (sizeof (STR) / sizeof ((STR)[0])) -#endif - -#define errno (GetLastError ()) - -char * -strerror (DWORD error) -{ - static char buf[1024]; - WCHAR *msgbuf; - DWORD lasterr = GetLastError (); - DWORD chars = FormatMessageW (FORMAT_MESSAGE_FROM_SYSTEM - | FORMAT_MESSAGE_ALLOCATE_BUFFER, - NULL, - error, - 0, /* Default language */ - (LPVOID)&msgbuf, - 0, - NULL); - if (chars != 0) - { - /* If there is an \r\n appended, zap it. */ - if (chars >= 2 - && msgbuf[chars - 2] == '\r' - && msgbuf[chars - 1] == '\n') - { - chars -= 2; - msgbuf[chars] = 0; - } - - if (chars > ((COUNTOF (buf)) - 1)) - { - chars = COUNTOF (buf) - 1; - msgbuf [chars] = 0; - } - - wcstombs (buf, msgbuf, chars + 1); - LocalFree (msgbuf); - } - else - sprintf (buf, "unknown win32 error (%ld)", error); - - SetLastError (lasterr); - return buf; -} - -#endif /* __MINGW32CE__ */ - -static void -sync_error (FILE *fp, const char *desc, int expect, int got) -{ - fprintf (stderr, "\n%s\n", desc); - fprintf (stderr, "At logfile offset %ld, expected '0x%x' got '0x%x'\n", - ftell (fp), expect, got); - fflush (stderr); - exit (1); -} - -static void -remote_error (const char *desc) -{ - fprintf (stderr, "\n%s\n", desc); - fflush (stderr); - exit (1); -} - -static void -remote_close (void) -{ -#ifdef USE_WIN32API - closesocket (remote_desc); -#else - close (remote_desc); -#endif -} - -/* Open a connection to a remote debugger. - NAME is the filename used for communication. */ - -static void -remote_open (char *name) -{ - char *last_colon = strrchr (name, ':'); - - if (last_colon == NULL) - { - fprintf (stderr, "%s: Must specify tcp connection as host:addr\n", name); - fflush (stderr); - exit (1); - } - -#ifdef USE_WIN32API - static int winsock_initialized; -#endif - int tmp; - int tmp_desc; - struct addrinfo hint; - struct addrinfo *ainfo; - - memset (&hint, 0, sizeof (hint)); - /* Assume no prefix will be passed, therefore we should use - AF_UNSPEC. */ - hint.ai_family = AF_UNSPEC; - hint.ai_socktype = SOCK_STREAM; - hint.ai_protocol = IPPROTO_TCP; - - parsed_connection_spec parsed = parse_connection_spec (name, &hint); - - if (parsed.port_str.empty ()) - error (_("Missing port on hostname '%s'"), name); - -#ifdef USE_WIN32API - if (!winsock_initialized) - { - WSADATA wsad; - - WSAStartup (MAKEWORD (1, 0), &wsad); - winsock_initialized = 1; - } -#endif - - int r = getaddrinfo (parsed.host_str.c_str (), parsed.port_str.c_str (), - &hint, &ainfo); - - if (r != 0) - { - fprintf (stderr, "%s:%s: cannot resolve name: %s\n", - parsed.host_str.c_str (), parsed.port_str.c_str (), - gai_strerror (r)); - fflush (stderr); - exit (1); - } - - scoped_free_addrinfo free_ainfo (ainfo); - - struct addrinfo *p; - - for (p = ainfo; p != NULL; p = p->ai_next) - { - tmp_desc = socket (p->ai_family, p->ai_socktype, p->ai_protocol); - - if (tmp_desc >= 0) - break; - } - - if (p == NULL) - perror_with_name ("Cannot open socket"); - - /* Allow rapid reuse of this port. */ - tmp = 1; - setsockopt (tmp_desc, SOL_SOCKET, SO_REUSEADDR, (char *) &tmp, - sizeof (tmp)); - - switch (p->ai_family) - { - case AF_INET: - ((struct sockaddr_in *) p->ai_addr)->sin_addr.s_addr = INADDR_ANY; - break; - case AF_INET6: - ((struct sockaddr_in6 *) p->ai_addr)->sin6_addr = in6addr_any; - break; - default: - fprintf (stderr, "Invalid 'ai_family' %d\n", p->ai_family); - exit (1); - } - - if (bind (tmp_desc, p->ai_addr, p->ai_addrlen) != 0) - perror_with_name ("Can't bind address"); - - if (p->ai_socktype == SOCK_DGRAM) - remote_desc = tmp_desc; - else - { - struct sockaddr_storage sockaddr; - socklen_t sockaddrsize = sizeof (sockaddr); - char orig_host[GDB_NI_MAX_ADDR], orig_port[GDB_NI_MAX_PORT]; - - if (listen (tmp_desc, 1) != 0) - perror_with_name ("Can't listen on socket"); - - remote_desc = accept (tmp_desc, (struct sockaddr *) &sockaddr, - &sockaddrsize); - - if (remote_desc == -1) - perror_with_name ("Accept failed"); - - /* Enable TCP keep alive process. */ - tmp = 1; - setsockopt (tmp_desc, SOL_SOCKET, SO_KEEPALIVE, - (char *) &tmp, sizeof (tmp)); - - /* Tell TCP not to delay small packets. This greatly speeds up - interactive response. */ - tmp = 1; - setsockopt (remote_desc, IPPROTO_TCP, TCP_NODELAY, - (char *) &tmp, sizeof (tmp)); - - if (getnameinfo ((struct sockaddr *) &sockaddr, sockaddrsize, - orig_host, sizeof (orig_host), - orig_port, sizeof (orig_port), - NI_NUMERICHOST | NI_NUMERICSERV) == 0) - { - fprintf (stderr, "Remote debugging from host %s, port %s\n", - orig_host, orig_port); - fflush (stderr); - } - -#ifndef USE_WIN32API - close (tmp_desc); /* No longer need this */ - - signal (SIGPIPE, SIG_IGN); /* If we don't do this, then - gdbreplay simply exits when - the remote side dies. */ -#else - closesocket (tmp_desc); /* No longer need this */ -#endif - } - -#if defined(F_SETFL) && defined (FASYNC) - fcntl (remote_desc, F_SETFL, FASYNC); -#endif - - fprintf (stderr, "Replay logfile using %s\n", name); - fflush (stderr); -} - -static int -logchar (FILE *fp) -{ - int ch; - int ch2; - - ch = fgetc (fp); - if (ch != '\r') - { - fputc (ch, stdout); - fflush (stdout); - } - switch (ch) - { - /* Treat \r\n as a newline. */ - case '\r': - ch = fgetc (fp); - if (ch == '\n') - ch = EOL; - else - { - ungetc (ch, fp); - ch = '\r'; - } - fputc (ch == EOL ? '\n' : '\r', stdout); - fflush (stdout); - break; - case '\n': - ch = EOL; - break; - case '\\': - ch = fgetc (fp); - fputc (ch, stdout); - fflush (stdout); - switch (ch) - { - case '\\': - break; - case 'b': - ch = '\b'; - break; - case 'f': - ch = '\f'; - break; - case 'n': - ch = '\n'; - break; - case 'r': - ch = '\r'; - break; - case 't': - ch = '\t'; - break; - case 'v': - ch = '\v'; - break; - case 'x': - ch2 = fgetc (fp); - fputc (ch2, stdout); - fflush (stdout); - ch = fromhex (ch2) << 4; - ch2 = fgetc (fp); - fputc (ch2, stdout); - fflush (stdout); - ch |= fromhex (ch2); - break; - default: - /* Treat any other char as just itself */ - break; - } - default: - break; - } - return (ch); -} - -static int -gdbchar (int desc) -{ - unsigned char fromgdb; - - if (read (desc, &fromgdb, 1) != 1) - return -1; - else - return fromgdb; -} - -/* Accept input from gdb and match with chars from fp (after skipping one - blank) up until a \n is read from fp (which is not matched) */ - -static void -expect (FILE *fp) -{ - int fromlog; - int fromgdb; - - if ((fromlog = logchar (fp)) != ' ') - { - sync_error (fp, "Sync error during gdb read of leading blank", ' ', - fromlog); - } - do - { - fromlog = logchar (fp); - if (fromlog == EOL) - break; - fromgdb = gdbchar (remote_desc); - if (fromgdb < 0) - remote_error ("Error during read from gdb"); - } - while (fromlog == fromgdb); - - if (fromlog != EOL) - { - sync_error (fp, "Sync error during read of gdb packet from log", fromlog, - fromgdb); - } -} - -/* Play data back to gdb from fp (after skipping leading blank) up until a - \n is read from fp (which is discarded and not sent to gdb). */ - -static void -play (FILE *fp) -{ - int fromlog; - char ch; - - if ((fromlog = logchar (fp)) != ' ') - { - sync_error (fp, "Sync error skipping blank during write to gdb", ' ', - fromlog); - } - while ((fromlog = logchar (fp)) != EOL) - { - ch = fromlog; - if (write (remote_desc, &ch, 1) != 1) - remote_error ("Error during write to gdb"); - } -} - -static void -gdbreplay_version (void) -{ - printf ("GNU gdbreplay %s%s\n" - "Copyright (C) 2020 Free Software Foundation, Inc.\n" - "gdbreplay is free software, covered by " - "the GNU General Public License.\n" - "This gdbreplay was configured as \"%s\"\n", - PKGVERSION, version, host_name); -} - -static void -gdbreplay_usage (FILE *stream) -{ - fprintf (stream, "Usage:\tgdbreplay LOGFILE HOST:PORT\n"); - if (REPORT_BUGS_TO[0] && stream == stdout) - fprintf (stream, "Report bugs to \"%s\".\n", REPORT_BUGS_TO); -} - -/* Main function. This is called by the real "main" function, - wrapped in a TRY_CATCH that handles any uncaught exceptions. */ - -static void ATTRIBUTE_NORETURN -captured_main (int argc, char *argv[]) -{ - FILE *fp; - int ch; - - if (argc >= 2 && strcmp (argv[1], "--version") == 0) - { - gdbreplay_version (); - exit (0); - } - if (argc >= 2 && strcmp (argv[1], "--help") == 0) - { - gdbreplay_usage (stdout); - exit (0); - } - - if (argc < 3) - { - gdbreplay_usage (stderr); - exit (1); - } - fp = fopen (argv[1], "r"); - if (fp == NULL) - { - perror_with_name (argv[1]); - } - remote_open (argv[2]); - while ((ch = logchar (fp)) != EOF) - { - switch (ch) - { - case 'w': - /* data sent from gdb to gdbreplay, accept and match it */ - expect (fp); - break; - case 'r': - /* data sent from gdbreplay to gdb, play it */ - play (fp); - break; - case 'c': - /* Command executed by gdb */ - while ((ch = logchar (fp)) != EOL); - break; - } - } - remote_close (); - exit (0); -} - -int -main (int argc, char *argv[]) -{ - try - { - captured_main (argc, argv); - } - catch (const gdb_exception &exception) - { - if (exception.reason == RETURN_ERROR) - { - fflush (stdout); - fprintf (stderr, "%s\n", exception.what ()); - } - - exit (1); - } - - gdb_assert_not_reached ("captured_main should never return"); -} diff --git a/gdbserver/gdbreplay.cc b/gdbserver/gdbreplay.cc new file mode 100644 index 00000000000..263fb0efeac --- /dev/null +++ b/gdbserver/gdbreplay.cc @@ -0,0 +1,532 @@ +/* Replay a remote debug session logfile for GDB. + Copyright (C) 1996-2020 Free Software Foundation, Inc. + Written by Fred Fish (fnf@cygnus.com) from pieces of gdbserver. + + 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 . */ + +#include "gdbsupport/common-defs.h" + +#undef PACKAGE +#undef PACKAGE_NAME +#undef PACKAGE_VERSION +#undef PACKAGE_STRING +#undef PACKAGE_TARNAME + +#include +#include "gdbsupport/version.h" + +#if HAVE_SYS_FILE_H +#include +#endif +#if HAVE_SIGNAL_H +#include +#endif +#include +#if HAVE_FCNTL_H +#include +#endif +#include +#ifdef HAVE_NETINET_IN_H +#include +#endif +#ifdef HAVE_SYS_SOCKET_H +#include +#endif +#if HAVE_NETDB_H +#include +#endif +#if HAVE_NETINET_TCP_H +#include +#endif + +#if USE_WIN32API +#include +#endif + +#include "gdbsupport/netstuff.h" +#include "gdbsupport/rsp-low.h" + +#ifndef HAVE_SOCKLEN_T +typedef int socklen_t; +#endif + +/* Sort of a hack... */ +#define EOL (EOF - 1) + +static int remote_desc; + +#ifdef __MINGW32CE__ + +#ifndef COUNTOF +#define COUNTOF(STR) (sizeof (STR) / sizeof ((STR)[0])) +#endif + +#define errno (GetLastError ()) + +char * +strerror (DWORD error) +{ + static char buf[1024]; + WCHAR *msgbuf; + DWORD lasterr = GetLastError (); + DWORD chars = FormatMessageW (FORMAT_MESSAGE_FROM_SYSTEM + | FORMAT_MESSAGE_ALLOCATE_BUFFER, + NULL, + error, + 0, /* Default language */ + (LPVOID)&msgbuf, + 0, + NULL); + if (chars != 0) + { + /* If there is an \r\n appended, zap it. */ + if (chars >= 2 + && msgbuf[chars - 2] == '\r' + && msgbuf[chars - 1] == '\n') + { + chars -= 2; + msgbuf[chars] = 0; + } + + if (chars > ((COUNTOF (buf)) - 1)) + { + chars = COUNTOF (buf) - 1; + msgbuf [chars] = 0; + } + + wcstombs (buf, msgbuf, chars + 1); + LocalFree (msgbuf); + } + else + sprintf (buf, "unknown win32 error (%ld)", error); + + SetLastError (lasterr); + return buf; +} + +#endif /* __MINGW32CE__ */ + +static void +sync_error (FILE *fp, const char *desc, int expect, int got) +{ + fprintf (stderr, "\n%s\n", desc); + fprintf (stderr, "At logfile offset %ld, expected '0x%x' got '0x%x'\n", + ftell (fp), expect, got); + fflush (stderr); + exit (1); +} + +static void +remote_error (const char *desc) +{ + fprintf (stderr, "\n%s\n", desc); + fflush (stderr); + exit (1); +} + +static void +remote_close (void) +{ +#ifdef USE_WIN32API + closesocket (remote_desc); +#else + close (remote_desc); +#endif +} + +/* Open a connection to a remote debugger. + NAME is the filename used for communication. */ + +static void +remote_open (char *name) +{ + char *last_colon = strrchr (name, ':'); + + if (last_colon == NULL) + { + fprintf (stderr, "%s: Must specify tcp connection as host:addr\n", name); + fflush (stderr); + exit (1); + } + +#ifdef USE_WIN32API + static int winsock_initialized; +#endif + int tmp; + int tmp_desc; + struct addrinfo hint; + struct addrinfo *ainfo; + + memset (&hint, 0, sizeof (hint)); + /* Assume no prefix will be passed, therefore we should use + AF_UNSPEC. */ + hint.ai_family = AF_UNSPEC; + hint.ai_socktype = SOCK_STREAM; + hint.ai_protocol = IPPROTO_TCP; + + parsed_connection_spec parsed = parse_connection_spec (name, &hint); + + if (parsed.port_str.empty ()) + error (_("Missing port on hostname '%s'"), name); + +#ifdef USE_WIN32API + if (!winsock_initialized) + { + WSADATA wsad; + + WSAStartup (MAKEWORD (1, 0), &wsad); + winsock_initialized = 1; + } +#endif + + int r = getaddrinfo (parsed.host_str.c_str (), parsed.port_str.c_str (), + &hint, &ainfo); + + if (r != 0) + { + fprintf (stderr, "%s:%s: cannot resolve name: %s\n", + parsed.host_str.c_str (), parsed.port_str.c_str (), + gai_strerror (r)); + fflush (stderr); + exit (1); + } + + scoped_free_addrinfo free_ainfo (ainfo); + + struct addrinfo *p; + + for (p = ainfo; p != NULL; p = p->ai_next) + { + tmp_desc = socket (p->ai_family, p->ai_socktype, p->ai_protocol); + + if (tmp_desc >= 0) + break; + } + + if (p == NULL) + perror_with_name ("Cannot open socket"); + + /* Allow rapid reuse of this port. */ + tmp = 1; + setsockopt (tmp_desc, SOL_SOCKET, SO_REUSEADDR, (char *) &tmp, + sizeof (tmp)); + + switch (p->ai_family) + { + case AF_INET: + ((struct sockaddr_in *) p->ai_addr)->sin_addr.s_addr = INADDR_ANY; + break; + case AF_INET6: + ((struct sockaddr_in6 *) p->ai_addr)->sin6_addr = in6addr_any; + break; + default: + fprintf (stderr, "Invalid 'ai_family' %d\n", p->ai_family); + exit (1); + } + + if (bind (tmp_desc, p->ai_addr, p->ai_addrlen) != 0) + perror_with_name ("Can't bind address"); + + if (p->ai_socktype == SOCK_DGRAM) + remote_desc = tmp_desc; + else + { + struct sockaddr_storage sockaddr; + socklen_t sockaddrsize = sizeof (sockaddr); + char orig_host[GDB_NI_MAX_ADDR], orig_port[GDB_NI_MAX_PORT]; + + if (listen (tmp_desc, 1) != 0) + perror_with_name ("Can't listen on socket"); + + remote_desc = accept (tmp_desc, (struct sockaddr *) &sockaddr, + &sockaddrsize); + + if (remote_desc == -1) + perror_with_name ("Accept failed"); + + /* Enable TCP keep alive process. */ + tmp = 1; + setsockopt (tmp_desc, SOL_SOCKET, SO_KEEPALIVE, + (char *) &tmp, sizeof (tmp)); + + /* Tell TCP not to delay small packets. This greatly speeds up + interactive response. */ + tmp = 1; + setsockopt (remote_desc, IPPROTO_TCP, TCP_NODELAY, + (char *) &tmp, sizeof (tmp)); + + if (getnameinfo ((struct sockaddr *) &sockaddr, sockaddrsize, + orig_host, sizeof (orig_host), + orig_port, sizeof (orig_port), + NI_NUMERICHOST | NI_NUMERICSERV) == 0) + { + fprintf (stderr, "Remote debugging from host %s, port %s\n", + orig_host, orig_port); + fflush (stderr); + } + +#ifndef USE_WIN32API + close (tmp_desc); /* No longer need this */ + + signal (SIGPIPE, SIG_IGN); /* If we don't do this, then + gdbreplay simply exits when + the remote side dies. */ +#else + closesocket (tmp_desc); /* No longer need this */ +#endif + } + +#if defined(F_SETFL) && defined (FASYNC) + fcntl (remote_desc, F_SETFL, FASYNC); +#endif + + fprintf (stderr, "Replay logfile using %s\n", name); + fflush (stderr); +} + +static int +logchar (FILE *fp) +{ + int ch; + int ch2; + + ch = fgetc (fp); + if (ch != '\r') + { + fputc (ch, stdout); + fflush (stdout); + } + switch (ch) + { + /* Treat \r\n as a newline. */ + case '\r': + ch = fgetc (fp); + if (ch == '\n') + ch = EOL; + else + { + ungetc (ch, fp); + ch = '\r'; + } + fputc (ch == EOL ? '\n' : '\r', stdout); + fflush (stdout); + break; + case '\n': + ch = EOL; + break; + case '\\': + ch = fgetc (fp); + fputc (ch, stdout); + fflush (stdout); + switch (ch) + { + case '\\': + break; + case 'b': + ch = '\b'; + break; + case 'f': + ch = '\f'; + break; + case 'n': + ch = '\n'; + break; + case 'r': + ch = '\r'; + break; + case 't': + ch = '\t'; + break; + case 'v': + ch = '\v'; + break; + case 'x': + ch2 = fgetc (fp); + fputc (ch2, stdout); + fflush (stdout); + ch = fromhex (ch2) << 4; + ch2 = fgetc (fp); + fputc (ch2, stdout); + fflush (stdout); + ch |= fromhex (ch2); + break; + default: + /* Treat any other char as just itself */ + break; + } + default: + break; + } + return (ch); +} + +static int +gdbchar (int desc) +{ + unsigned char fromgdb; + + if (read (desc, &fromgdb, 1) != 1) + return -1; + else + return fromgdb; +} + +/* Accept input from gdb and match with chars from fp (after skipping one + blank) up until a \n is read from fp (which is not matched) */ + +static void +expect (FILE *fp) +{ + int fromlog; + int fromgdb; + + if ((fromlog = logchar (fp)) != ' ') + { + sync_error (fp, "Sync error during gdb read of leading blank", ' ', + fromlog); + } + do + { + fromlog = logchar (fp); + if (fromlog == EOL) + break; + fromgdb = gdbchar (remote_desc); + if (fromgdb < 0) + remote_error ("Error during read from gdb"); + } + while (fromlog == fromgdb); + + if (fromlog != EOL) + { + sync_error (fp, "Sync error during read of gdb packet from log", fromlog, + fromgdb); + } +} + +/* Play data back to gdb from fp (after skipping leading blank) up until a + \n is read from fp (which is discarded and not sent to gdb). */ + +static void +play (FILE *fp) +{ + int fromlog; + char ch; + + if ((fromlog = logchar (fp)) != ' ') + { + sync_error (fp, "Sync error skipping blank during write to gdb", ' ', + fromlog); + } + while ((fromlog = logchar (fp)) != EOL) + { + ch = fromlog; + if (write (remote_desc, &ch, 1) != 1) + remote_error ("Error during write to gdb"); + } +} + +static void +gdbreplay_version (void) +{ + printf ("GNU gdbreplay %s%s\n" + "Copyright (C) 2020 Free Software Foundation, Inc.\n" + "gdbreplay is free software, covered by " + "the GNU General Public License.\n" + "This gdbreplay was configured as \"%s\"\n", + PKGVERSION, version, host_name); +} + +static void +gdbreplay_usage (FILE *stream) +{ + fprintf (stream, "Usage:\tgdbreplay LOGFILE HOST:PORT\n"); + if (REPORT_BUGS_TO[0] && stream == stdout) + fprintf (stream, "Report bugs to \"%s\".\n", REPORT_BUGS_TO); +} + +/* Main function. This is called by the real "main" function, + wrapped in a TRY_CATCH that handles any uncaught exceptions. */ + +static void ATTRIBUTE_NORETURN +captured_main (int argc, char *argv[]) +{ + FILE *fp; + int ch; + + if (argc >= 2 && strcmp (argv[1], "--version") == 0) + { + gdbreplay_version (); + exit (0); + } + if (argc >= 2 && strcmp (argv[1], "--help") == 0) + { + gdbreplay_usage (stdout); + exit (0); + } + + if (argc < 3) + { + gdbreplay_usage (stderr); + exit (1); + } + fp = fopen (argv[1], "r"); + if (fp == NULL) + { + perror_with_name (argv[1]); + } + remote_open (argv[2]); + while ((ch = logchar (fp)) != EOF) + { + switch (ch) + { + case 'w': + /* data sent from gdb to gdbreplay, accept and match it */ + expect (fp); + break; + case 'r': + /* data sent from gdbreplay to gdb, play it */ + play (fp); + break; + case 'c': + /* Command executed by gdb */ + while ((ch = logchar (fp)) != EOL); + break; + } + } + remote_close (); + exit (0); +} + +int +main (int argc, char *argv[]) +{ + try + { + captured_main (argc, argv); + } + catch (const gdb_exception &exception) + { + if (exception.reason == RETURN_ERROR) + { + fflush (stdout); + fprintf (stderr, "%s\n", exception.what ()); + } + + exit (1); + } + + gdb_assert_not_reached ("captured_main should never return"); +} diff --git a/gdbserver/hostio-errno.c b/gdbserver/hostio-errno.c deleted file mode 100644 index b75e64d212e..00000000000 --- a/gdbserver/hostio-errno.c +++ /dev/null @@ -1,36 +0,0 @@ -/* Host file transfer support for gdbserver. - Copyright (C) 2007-2020 Free Software Foundation, Inc. - - Contributed by CodeSourcery. - - 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 . */ - -/* This file implements the hostio_last_error target callback - on top of errno. */ - -#include "server.h" - -#include "hostio.h" - -#include "gdbsupport/fileio.h" - -void -hostio_last_error_from_errno (char *buf) -{ - int error = errno; - int fileio_error = host_to_fileio_error (error); - sprintf (buf, "F-1,%x", fileio_error); -} diff --git a/gdbserver/hostio-errno.cc b/gdbserver/hostio-errno.cc new file mode 100644 index 00000000000..b75e64d212e --- /dev/null +++ b/gdbserver/hostio-errno.cc @@ -0,0 +1,36 @@ +/* Host file transfer support for gdbserver. + Copyright (C) 2007-2020 Free Software Foundation, Inc. + + Contributed by CodeSourcery. + + 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 . */ + +/* This file implements the hostio_last_error target callback + on top of errno. */ + +#include "server.h" + +#include "hostio.h" + +#include "gdbsupport/fileio.h" + +void +hostio_last_error_from_errno (char *buf) +{ + int error = errno; + int fileio_error = host_to_fileio_error (error); + sprintf (buf, "F-1,%x", fileio_error); +} diff --git a/gdbserver/hostio.c b/gdbserver/hostio.c deleted file mode 100644 index 8af4fbf4087..00000000000 --- a/gdbserver/hostio.c +++ /dev/null @@ -1,620 +0,0 @@ -/* Host file transfer support for gdbserver. - Copyright (C) 2007-2020 Free Software Foundation, Inc. - - Contributed by CodeSourcery. - - 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 . */ - -#include "server.h" -#include "gdb/fileio.h" -#include "hostio.h" - -#include -#include -#include -#include -#include -#include "gdbsupport/fileio.h" - -struct fd_list -{ - int fd; - struct fd_list *next; -}; - -static struct fd_list *open_fds; - -static int -safe_fromhex (char a, int *nibble) -{ - if (a >= '0' && a <= '9') - *nibble = a - '0'; - else if (a >= 'a' && a <= 'f') - *nibble = a - 'a' + 10; - else if (a >= 'A' && a <= 'F') - *nibble = a - 'A' + 10; - else - return -1; - - return 0; -} - -/* Filenames are hex encoded, so the maximum we can handle is half the - packet buffer size. Cap to PATH_MAX, if it is shorter. */ -#if !defined (PATH_MAX) || (PATH_MAX > (PBUFSIZ / 2 + 1)) -# define HOSTIO_PATH_MAX (PBUFSIZ / 2 + 1) -#else -# define HOSTIO_PATH_MAX PATH_MAX -#endif - -static int -require_filename (char **pp, char *filename) -{ - int count; - char *p; - - p = *pp; - count = 0; - - while (*p && *p != ',') - { - int nib1, nib2; - - /* Don't allow overflow. */ - if (count >= HOSTIO_PATH_MAX - 1) - return -1; - - if (safe_fromhex (p[0], &nib1) - || safe_fromhex (p[1], &nib2)) - return -1; - - filename[count++] = nib1 * 16 + nib2; - p += 2; - } - - filename[count] = '\0'; - *pp = p; - return 0; -} - -static int -require_int (char **pp, int *value) -{ - char *p; - int count, firstdigit; - - p = *pp; - *value = 0; - count = 0; - firstdigit = -1; - - while (*p && *p != ',') - { - int nib; - - if (safe_fromhex (p[0], &nib)) - return -1; - - if (firstdigit == -1) - firstdigit = nib; - - /* Don't allow overflow. */ - if (count >= 8 || (count == 7 && firstdigit >= 0x8)) - return -1; - - *value = *value * 16 + nib; - p++; - count++; - } - - *pp = p; - return 0; -} - -static int -require_data (char *p, int p_len, char **data, int *data_len) -{ - int input_index, output_index, escaped; - - *data = (char *) xmalloc (p_len); - - output_index = 0; - escaped = 0; - for (input_index = 0; input_index < p_len; input_index++) - { - char b = p[input_index]; - - if (escaped) - { - (*data)[output_index++] = b ^ 0x20; - escaped = 0; - } - else if (b == '}') - escaped = 1; - else - (*data)[output_index++] = b; - } - - if (escaped) - { - free (*data); - return -1; - } - - *data_len = output_index; - return 0; -} - -static int -require_comma (char **pp) -{ - if (**pp == ',') - { - (*pp)++; - return 0; - } - else - return -1; -} - -static int -require_end (char *p) -{ - if (*p == '\0') - return 0; - else - return -1; -} - -static int -require_valid_fd (int fd) -{ - struct fd_list *fd_ptr; - - for (fd_ptr = open_fds; fd_ptr != NULL; fd_ptr = fd_ptr->next) - if (fd_ptr->fd == fd) - return 0; - - return -1; -} - -/* Fill in own_buf with the last hostio error packet, however it - suitable for the target. */ -static void -hostio_error (char *own_buf) -{ - the_target->hostio_last_error (own_buf); -} - -static void -hostio_packet_error (char *own_buf) -{ - sprintf (own_buf, "F-1,%x", FILEIO_EINVAL); -} - -static void -hostio_reply (char *own_buf, int result) -{ - sprintf (own_buf, "F%x", result); -} - -static int -hostio_reply_with_data (char *own_buf, char *buffer, int len, - int *new_packet_len) -{ - int input_index, output_index, out_maxlen; - - sprintf (own_buf, "F%x;", len); - output_index = strlen (own_buf); - - out_maxlen = PBUFSIZ; - - for (input_index = 0; input_index < len; input_index++) - { - char b = buffer[input_index]; - - if (b == '$' || b == '#' || b == '}' || b == '*') - { - /* These must be escaped. */ - if (output_index + 2 > out_maxlen) - break; - own_buf[output_index++] = '}'; - own_buf[output_index++] = b ^ 0x20; - } - else - { - if (output_index + 1 > out_maxlen) - break; - own_buf[output_index++] = b; - } - } - - *new_packet_len = output_index; - return input_index; -} - -/* Process ID of inferior whose filesystem hostio functions - that take FILENAME arguments will use. Zero means to use - our own filesystem. */ - -static int hostio_fs_pid; - -/* See hostio.h. */ - -void -hostio_handle_new_gdb_connection (void) -{ - hostio_fs_pid = 0; -} - -/* Handle a "vFile:setfs:" packet. */ - -static void -handle_setfs (char *own_buf) -{ - char *p; - int pid; - - /* If the target doesn't have any of the in-filesystem-of methods - then there's no point in GDB sending "vFile:setfs:" packets. We - reply with an empty packet (i.e. we pretend we don't understand - "vFile:setfs:") and that should stop GDB sending any more. */ - if (the_target->multifs_open == NULL - && the_target->multifs_unlink == NULL - && the_target->multifs_readlink == NULL) - { - own_buf[0] = '\0'; - return; - } - - p = own_buf + strlen ("vFile:setfs:"); - - if (require_int (&p, &pid) - || pid < 0 - || require_end (p)) - { - hostio_packet_error (own_buf); - return; - } - - hostio_fs_pid = pid; - - hostio_reply (own_buf, 0); -} - -static void -handle_open (char *own_buf) -{ - char filename[HOSTIO_PATH_MAX]; - char *p; - int fileio_flags, fileio_mode, flags, fd; - mode_t mode; - struct fd_list *new_fd; - - p = own_buf + strlen ("vFile:open:"); - - if (require_filename (&p, filename) - || require_comma (&p) - || require_int (&p, &fileio_flags) - || require_comma (&p) - || require_int (&p, &fileio_mode) - || require_end (p) - || fileio_to_host_openflags (fileio_flags, &flags) - || fileio_to_host_mode (fileio_mode, &mode)) - { - hostio_packet_error (own_buf); - return; - } - - /* We do not need to convert MODE, since the fileio protocol - uses the standard values. */ - if (hostio_fs_pid != 0 && the_target->multifs_open != NULL) - fd = the_target->multifs_open (hostio_fs_pid, filename, - flags, mode); - else - fd = open (filename, flags, mode); - - if (fd == -1) - { - hostio_error (own_buf); - return; - } - - /* Record the new file descriptor. */ - new_fd = XNEW (struct fd_list); - new_fd->fd = fd; - new_fd->next = open_fds; - open_fds = new_fd; - - hostio_reply (own_buf, fd); -} - -static void -handle_pread (char *own_buf, int *new_packet_len) -{ - int fd, ret, len, offset, bytes_sent; - char *p, *data; - static int max_reply_size = -1; - - p = own_buf + strlen ("vFile:pread:"); - - if (require_int (&p, &fd) - || require_comma (&p) - || require_valid_fd (fd) - || require_int (&p, &len) - || require_comma (&p) - || require_int (&p, &offset) - || require_end (p)) - { - hostio_packet_error (own_buf); - return; - } - - /* Do not attempt to read more than the maximum number of bytes - hostio_reply_with_data can fit in a packet. We may still read - too much because of escaping, but this is handled below. */ - if (max_reply_size == -1) - { - sprintf (own_buf, "F%x;", PBUFSIZ); - max_reply_size = PBUFSIZ - strlen (own_buf); - } - if (len > max_reply_size) - len = max_reply_size; - - data = (char *) xmalloc (len); -#ifdef HAVE_PREAD - ret = pread (fd, data, len, offset); -#else - ret = -1; -#endif - /* If we have no pread or it failed for this file, use lseek/read. */ - if (ret == -1) - { - ret = lseek (fd, offset, SEEK_SET); - if (ret != -1) - ret = read (fd, data, len); - } - - if (ret == -1) - { - hostio_error (own_buf); - free (data); - return; - } - - bytes_sent = hostio_reply_with_data (own_buf, data, ret, new_packet_len); - - /* If we were using read, and the data did not all fit in the reply, - we would have to back up using lseek here. With pread it does - not matter. But we still have a problem; the return value in the - packet might be wrong, so we must fix it. This time it will - definitely fit. */ - if (bytes_sent < ret) - bytes_sent = hostio_reply_with_data (own_buf, data, bytes_sent, - new_packet_len); - - free (data); -} - -static void -handle_pwrite (char *own_buf, int packet_len) -{ - int fd, ret, len, offset; - char *p, *data; - - p = own_buf + strlen ("vFile:pwrite:"); - - if (require_int (&p, &fd) - || require_comma (&p) - || require_valid_fd (fd) - || require_int (&p, &offset) - || require_comma (&p) - || require_data (p, packet_len - (p - own_buf), &data, &len)) - { - hostio_packet_error (own_buf); - return; - } - -#ifdef HAVE_PWRITE - ret = pwrite (fd, data, len, offset); -#else - ret = -1; -#endif - /* If we have no pwrite or it failed for this file, use lseek/write. */ - if (ret == -1) - { - ret = lseek (fd, offset, SEEK_SET); - if (ret != -1) - ret = write (fd, data, len); - } - - if (ret == -1) - { - hostio_error (own_buf); - free (data); - return; - } - - hostio_reply (own_buf, ret); - free (data); -} - -static void -handle_fstat (char *own_buf, int *new_packet_len) -{ - int fd, bytes_sent; - char *p; - struct stat st; - struct fio_stat fst; - - p = own_buf + strlen ("vFile:fstat:"); - - if (require_int (&p, &fd) - || require_valid_fd (fd) - || require_end (p)) - { - hostio_packet_error (own_buf); - return; - } - - if (fstat (fd, &st) == -1) - { - hostio_error (own_buf); - return; - } - - host_to_fileio_stat (&st, &fst); - - bytes_sent = hostio_reply_with_data (own_buf, - (char *) &fst, sizeof (fst), - new_packet_len); - - /* If the response does not fit into a single packet, do not attempt - to return a partial response, but simply fail. */ - if (bytes_sent < sizeof (fst)) - write_enn (own_buf); -} - -static void -handle_close (char *own_buf) -{ - int fd, ret; - char *p; - struct fd_list **open_fd_p, *old_fd; - - p = own_buf + strlen ("vFile:close:"); - - if (require_int (&p, &fd) - || require_valid_fd (fd) - || require_end (p)) - { - hostio_packet_error (own_buf); - return; - } - - ret = close (fd); - - if (ret == -1) - { - hostio_error (own_buf); - return; - } - - open_fd_p = &open_fds; - /* We know that fd is in the list, thanks to require_valid_fd. */ - while ((*open_fd_p)->fd != fd) - open_fd_p = &(*open_fd_p)->next; - - old_fd = *open_fd_p; - *open_fd_p = (*open_fd_p)->next; - free (old_fd); - - hostio_reply (own_buf, ret); -} - -static void -handle_unlink (char *own_buf) -{ - char filename[HOSTIO_PATH_MAX]; - char *p; - int ret; - - p = own_buf + strlen ("vFile:unlink:"); - - if (require_filename (&p, filename) - || require_end (p)) - { - hostio_packet_error (own_buf); - return; - } - - if (hostio_fs_pid != 0 && the_target->multifs_unlink != NULL) - ret = the_target->multifs_unlink (hostio_fs_pid, filename); - else - ret = unlink (filename); - - if (ret == -1) - { - hostio_error (own_buf); - return; - } - - hostio_reply (own_buf, ret); -} - -static void -handle_readlink (char *own_buf, int *new_packet_len) -{ - char filename[HOSTIO_PATH_MAX], linkname[HOSTIO_PATH_MAX]; - char *p; - int ret, bytes_sent; - - p = own_buf + strlen ("vFile:readlink:"); - - if (require_filename (&p, filename) - || require_end (p)) - { - hostio_packet_error (own_buf); - return; - } - - if (hostio_fs_pid != 0 && the_target->multifs_readlink != NULL) - ret = the_target->multifs_readlink (hostio_fs_pid, filename, - linkname, - sizeof (linkname) - 1); - else - ret = readlink (filename, linkname, sizeof (linkname) - 1); - - if (ret == -1) - { - hostio_error (own_buf); - return; - } - - bytes_sent = hostio_reply_with_data (own_buf, linkname, ret, new_packet_len); - - /* If the response does not fit into a single packet, do not attempt - to return a partial response, but simply fail. */ - if (bytes_sent < ret) - sprintf (own_buf, "F-1,%x", FILEIO_ENAMETOOLONG); -} - -/* Handle all the 'F' file transfer packets. */ - -int -handle_vFile (char *own_buf, int packet_len, int *new_packet_len) -{ - if (startswith (own_buf, "vFile:open:")) - handle_open (own_buf); - else if (startswith (own_buf, "vFile:pread:")) - handle_pread (own_buf, new_packet_len); - else if (startswith (own_buf, "vFile:pwrite:")) - handle_pwrite (own_buf, packet_len); - else if (startswith (own_buf, "vFile:fstat:")) - handle_fstat (own_buf, new_packet_len); - else if (startswith (own_buf, "vFile:close:")) - handle_close (own_buf); - else if (startswith (own_buf, "vFile:unlink:")) - handle_unlink (own_buf); - else if (startswith (own_buf, "vFile:readlink:")) - handle_readlink (own_buf, new_packet_len); - else if (startswith (own_buf, "vFile:setfs:")) - handle_setfs (own_buf); - else - return 0; - - return 1; -} diff --git a/gdbserver/hostio.cc b/gdbserver/hostio.cc new file mode 100644 index 00000000000..8af4fbf4087 --- /dev/null +++ b/gdbserver/hostio.cc @@ -0,0 +1,620 @@ +/* Host file transfer support for gdbserver. + Copyright (C) 2007-2020 Free Software Foundation, Inc. + + Contributed by CodeSourcery. + + 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 . */ + +#include "server.h" +#include "gdb/fileio.h" +#include "hostio.h" + +#include +#include +#include +#include +#include +#include "gdbsupport/fileio.h" + +struct fd_list +{ + int fd; + struct fd_list *next; +}; + +static struct fd_list *open_fds; + +static int +safe_fromhex (char a, int *nibble) +{ + if (a >= '0' && a <= '9') + *nibble = a - '0'; + else if (a >= 'a' && a <= 'f') + *nibble = a - 'a' + 10; + else if (a >= 'A' && a <= 'F') + *nibble = a - 'A' + 10; + else + return -1; + + return 0; +} + +/* Filenames are hex encoded, so the maximum we can handle is half the + packet buffer size. Cap to PATH_MAX, if it is shorter. */ +#if !defined (PATH_MAX) || (PATH_MAX > (PBUFSIZ / 2 + 1)) +# define HOSTIO_PATH_MAX (PBUFSIZ / 2 + 1) +#else +# define HOSTIO_PATH_MAX PATH_MAX +#endif + +static int +require_filename (char **pp, char *filename) +{ + int count; + char *p; + + p = *pp; + count = 0; + + while (*p && *p != ',') + { + int nib1, nib2; + + /* Don't allow overflow. */ + if (count >= HOSTIO_PATH_MAX - 1) + return -1; + + if (safe_fromhex (p[0], &nib1) + || safe_fromhex (p[1], &nib2)) + return -1; + + filename[count++] = nib1 * 16 + nib2; + p += 2; + } + + filename[count] = '\0'; + *pp = p; + return 0; +} + +static int +require_int (char **pp, int *value) +{ + char *p; + int count, firstdigit; + + p = *pp; + *value = 0; + count = 0; + firstdigit = -1; + + while (*p && *p != ',') + { + int nib; + + if (safe_fromhex (p[0], &nib)) + return -1; + + if (firstdigit == -1) + firstdigit = nib; + + /* Don't allow overflow. */ + if (count >= 8 || (count == 7 && firstdigit >= 0x8)) + return -1; + + *value = *value * 16 + nib; + p++; + count++; + } + + *pp = p; + return 0; +} + +static int +require_data (char *p, int p_len, char **data, int *data_len) +{ + int input_index, output_index, escaped; + + *data = (char *) xmalloc (p_len); + + output_index = 0; + escaped = 0; + for (input_index = 0; input_index < p_len; input_index++) + { + char b = p[input_index]; + + if (escaped) + { + (*data)[output_index++] = b ^ 0x20; + escaped = 0; + } + else if (b == '}') + escaped = 1; + else + (*data)[output_index++] = b; + } + + if (escaped) + { + free (*data); + return -1; + } + + *data_len = output_index; + return 0; +} + +static int +require_comma (char **pp) +{ + if (**pp == ',') + { + (*pp)++; + return 0; + } + else + return -1; +} + +static int +require_end (char *p) +{ + if (*p == '\0') + return 0; + else + return -1; +} + +static int +require_valid_fd (int fd) +{ + struct fd_list *fd_ptr; + + for (fd_ptr = open_fds; fd_ptr != NULL; fd_ptr = fd_ptr->next) + if (fd_ptr->fd == fd) + return 0; + + return -1; +} + +/* Fill in own_buf with the last hostio error packet, however it + suitable for the target. */ +static void +hostio_error (char *own_buf) +{ + the_target->hostio_last_error (own_buf); +} + +static void +hostio_packet_error (char *own_buf) +{ + sprintf (own_buf, "F-1,%x", FILEIO_EINVAL); +} + +static void +hostio_reply (char *own_buf, int result) +{ + sprintf (own_buf, "F%x", result); +} + +static int +hostio_reply_with_data (char *own_buf, char *buffer, int len, + int *new_packet_len) +{ + int input_index, output_index, out_maxlen; + + sprintf (own_buf, "F%x;", len); + output_index = strlen (own_buf); + + out_maxlen = PBUFSIZ; + + for (input_index = 0; input_index < len; input_index++) + { + char b = buffer[input_index]; + + if (b == '$' || b == '#' || b == '}' || b == '*') + { + /* These must be escaped. */ + if (output_index + 2 > out_maxlen) + break; + own_buf[output_index++] = '}'; + own_buf[output_index++] = b ^ 0x20; + } + else + { + if (output_index + 1 > out_maxlen) + break; + own_buf[output_index++] = b; + } + } + + *new_packet_len = output_index; + return input_index; +} + +/* Process ID of inferior whose filesystem hostio functions + that take FILENAME arguments will use. Zero means to use + our own filesystem. */ + +static int hostio_fs_pid; + +/* See hostio.h. */ + +void +hostio_handle_new_gdb_connection (void) +{ + hostio_fs_pid = 0; +} + +/* Handle a "vFile:setfs:" packet. */ + +static void +handle_setfs (char *own_buf) +{ + char *p; + int pid; + + /* If the target doesn't have any of the in-filesystem-of methods + then there's no point in GDB sending "vFile:setfs:" packets. We + reply with an empty packet (i.e. we pretend we don't understand + "vFile:setfs:") and that should stop GDB sending any more. */ + if (the_target->multifs_open == NULL + && the_target->multifs_unlink == NULL + && the_target->multifs_readlink == NULL) + { + own_buf[0] = '\0'; + return; + } + + p = own_buf + strlen ("vFile:setfs:"); + + if (require_int (&p, &pid) + || pid < 0 + || require_end (p)) + { + hostio_packet_error (own_buf); + return; + } + + hostio_fs_pid = pid; + + hostio_reply (own_buf, 0); +} + +static void +handle_open (char *own_buf) +{ + char filename[HOSTIO_PATH_MAX]; + char *p; + int fileio_flags, fileio_mode, flags, fd; + mode_t mode; + struct fd_list *new_fd; + + p = own_buf + strlen ("vFile:open:"); + + if (require_filename (&p, filename) + || require_comma (&p) + || require_int (&p, &fileio_flags) + || require_comma (&p) + || require_int (&p, &fileio_mode) + || require_end (p) + || fileio_to_host_openflags (fileio_flags, &flags) + || fileio_to_host_mode (fileio_mode, &mode)) + { + hostio_packet_error (own_buf); + return; + } + + /* We do not need to convert MODE, since the fileio protocol + uses the standard values. */ + if (hostio_fs_pid != 0 && the_target->multifs_open != NULL) + fd = the_target->multifs_open (hostio_fs_pid, filename, + flags, mode); + else + fd = open (filename, flags, mode); + + if (fd == -1) + { + hostio_error (own_buf); + return; + } + + /* Record the new file descriptor. */ + new_fd = XNEW (struct fd_list); + new_fd->fd = fd; + new_fd->next = open_fds; + open_fds = new_fd; + + hostio_reply (own_buf, fd); +} + +static void +handle_pread (char *own_buf, int *new_packet_len) +{ + int fd, ret, len, offset, bytes_sent; + char *p, *data; + static int max_reply_size = -1; + + p = own_buf + strlen ("vFile:pread:"); + + if (require_int (&p, &fd) + || require_comma (&p) + || require_valid_fd (fd) + || require_int (&p, &len) + || require_comma (&p) + || require_int (&p, &offset) + || require_end (p)) + { + hostio_packet_error (own_buf); + return; + } + + /* Do not attempt to read more than the maximum number of bytes + hostio_reply_with_data can fit in a packet. We may still read + too much because of escaping, but this is handled below. */ + if (max_reply_size == -1) + { + sprintf (own_buf, "F%x;", PBUFSIZ); + max_reply_size = PBUFSIZ - strlen (own_buf); + } + if (len > max_reply_size) + len = max_reply_size; + + data = (char *) xmalloc (len); +#ifdef HAVE_PREAD + ret = pread (fd, data, len, offset); +#else + ret = -1; +#endif + /* If we have no pread or it failed for this file, use lseek/read. */ + if (ret == -1) + { + ret = lseek (fd, offset, SEEK_SET); + if (ret != -1) + ret = read (fd, data, len); + } + + if (ret == -1) + { + hostio_error (own_buf); + free (data); + return; + } + + bytes_sent = hostio_reply_with_data (own_buf, data, ret, new_packet_len); + + /* If we were using read, and the data did not all fit in the reply, + we would have to back up using lseek here. With pread it does + not matter. But we still have a problem; the return value in the + packet might be wrong, so we must fix it. This time it will + definitely fit. */ + if (bytes_sent < ret) + bytes_sent = hostio_reply_with_data (own_buf, data, bytes_sent, + new_packet_len); + + free (data); +} + +static void +handle_pwrite (char *own_buf, int packet_len) +{ + int fd, ret, len, offset; + char *p, *data; + + p = own_buf + strlen ("vFile:pwrite:"); + + if (require_int (&p, &fd) + || require_comma (&p) + || require_valid_fd (fd) + || require_int (&p, &offset) + || require_comma (&p) + || require_data (p, packet_len - (p - own_buf), &data, &len)) + { + hostio_packet_error (own_buf); + return; + } + +#ifdef HAVE_PWRITE + ret = pwrite (fd, data, len, offset); +#else + ret = -1; +#endif + /* If we have no pwrite or it failed for this file, use lseek/write. */ + if (ret == -1) + { + ret = lseek (fd, offset, SEEK_SET); + if (ret != -1) + ret = write (fd, data, len); + } + + if (ret == -1) + { + hostio_error (own_buf); + free (data); + return; + } + + hostio_reply (own_buf, ret); + free (data); +} + +static void +handle_fstat (char *own_buf, int *new_packet_len) +{ + int fd, bytes_sent; + char *p; + struct stat st; + struct fio_stat fst; + + p = own_buf + strlen ("vFile:fstat:"); + + if (require_int (&p, &fd) + || require_valid_fd (fd) + || require_end (p)) + { + hostio_packet_error (own_buf); + return; + } + + if (fstat (fd, &st) == -1) + { + hostio_error (own_buf); + return; + } + + host_to_fileio_stat (&st, &fst); + + bytes_sent = hostio_reply_with_data (own_buf, + (char *) &fst, sizeof (fst), + new_packet_len); + + /* If the response does not fit into a single packet, do not attempt + to return a partial response, but simply fail. */ + if (bytes_sent < sizeof (fst)) + write_enn (own_buf); +} + +static void +handle_close (char *own_buf) +{ + int fd, ret; + char *p; + struct fd_list **open_fd_p, *old_fd; + + p = own_buf + strlen ("vFile:close:"); + + if (require_int (&p, &fd) + || require_valid_fd (fd) + || require_end (p)) + { + hostio_packet_error (own_buf); + return; + } + + ret = close (fd); + + if (ret == -1) + { + hostio_error (own_buf); + return; + } + + open_fd_p = &open_fds; + /* We know that fd is in the list, thanks to require_valid_fd. */ + while ((*open_fd_p)->fd != fd) + open_fd_p = &(*open_fd_p)->next; + + old_fd = *open_fd_p; + *open_fd_p = (*open_fd_p)->next; + free (old_fd); + + hostio_reply (own_buf, ret); +} + +static void +handle_unlink (char *own_buf) +{ + char filename[HOSTIO_PATH_MAX]; + char *p; + int ret; + + p = own_buf + strlen ("vFile:unlink:"); + + if (require_filename (&p, filename) + || require_end (p)) + { + hostio_packet_error (own_buf); + return; + } + + if (hostio_fs_pid != 0 && the_target->multifs_unlink != NULL) + ret = the_target->multifs_unlink (hostio_fs_pid, filename); + else + ret = unlink (filename); + + if (ret == -1) + { + hostio_error (own_buf); + return; + } + + hostio_reply (own_buf, ret); +} + +static void +handle_readlink (char *own_buf, int *new_packet_len) +{ + char filename[HOSTIO_PATH_MAX], linkname[HOSTIO_PATH_MAX]; + char *p; + int ret, bytes_sent; + + p = own_buf + strlen ("vFile:readlink:"); + + if (require_filename (&p, filename) + || require_end (p)) + { + hostio_packet_error (own_buf); + return; + } + + if (hostio_fs_pid != 0 && the_target->multifs_readlink != NULL) + ret = the_target->multifs_readlink (hostio_fs_pid, filename, + linkname, + sizeof (linkname) - 1); + else + ret = readlink (filename, linkname, sizeof (linkname) - 1); + + if (ret == -1) + { + hostio_error (own_buf); + return; + } + + bytes_sent = hostio_reply_with_data (own_buf, linkname, ret, new_packet_len); + + /* If the response does not fit into a single packet, do not attempt + to return a partial response, but simply fail. */ + if (bytes_sent < ret) + sprintf (own_buf, "F-1,%x", FILEIO_ENAMETOOLONG); +} + +/* Handle all the 'F' file transfer packets. */ + +int +handle_vFile (char *own_buf, int packet_len, int *new_packet_len) +{ + if (startswith (own_buf, "vFile:open:")) + handle_open (own_buf); + else if (startswith (own_buf, "vFile:pread:")) + handle_pread (own_buf, new_packet_len); + else if (startswith (own_buf, "vFile:pwrite:")) + handle_pwrite (own_buf, packet_len); + else if (startswith (own_buf, "vFile:fstat:")) + handle_fstat (own_buf, new_packet_len); + else if (startswith (own_buf, "vFile:close:")) + handle_close (own_buf); + else if (startswith (own_buf, "vFile:unlink:")) + handle_unlink (own_buf); + else if (startswith (own_buf, "vFile:readlink:")) + handle_readlink (own_buf, new_packet_len); + else if (startswith (own_buf, "vFile:setfs:")) + handle_setfs (own_buf); + else + return 0; + + return 1; +} diff --git a/gdbserver/i387-fp.c b/gdbserver/i387-fp.c deleted file mode 100644 index ef7b51303f4..00000000000 --- a/gdbserver/i387-fp.c +++ /dev/null @@ -1,954 +0,0 @@ -/* i387-specific utility functions, for the remote server for GDB. - Copyright (C) 2000-2020 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 . */ - -#include "server.h" -#include "i387-fp.h" -#include "gdbsupport/x86-xstate.h" - -static const int num_mpx_bnd_registers = 4; -static const int num_mpx_cfg_registers = 2; -static const int num_avx512_k_registers = 8; -static const int num_avx512_zmmh_low_registers = 16; -static const int num_avx512_zmmh_high_registers = 16; -static const int num_avx512_ymmh_registers = 16; -static const int num_avx512_xmm_registers = 16; -static const int num_pkeys_registers = 1; - -/* Note: These functions preserve the reserved bits in control registers. - However, gdbserver promptly throws away that information. */ - -/* These structs should have the proper sizes and alignment on both - i386 and x86-64 machines. */ - -struct i387_fsave { - /* All these are only sixteen bits, plus padding, except for fop (which - is only eleven bits), and fooff / fioff (which are 32 bits each). */ - unsigned short fctrl; - unsigned short pad1; - unsigned short fstat; - unsigned short pad2; - unsigned short ftag; - unsigned short pad3; - unsigned int fioff; - unsigned short fiseg; - unsigned short fop; - unsigned int fooff; - unsigned short foseg; - unsigned short pad4; - - /* Space for eight 80-bit FP values. */ - unsigned char st_space[80]; -}; - -struct i387_fxsave { - /* All these are only sixteen bits, plus padding, except for fop (which - is only eleven bits), and fooff / fioff (which are 32 bits each). */ - unsigned short fctrl; - unsigned short fstat; - unsigned short ftag; - unsigned short fop; - unsigned int fioff; - unsigned short fiseg; - unsigned short pad1; - unsigned int fooff; - unsigned short foseg; - unsigned short pad12; - - unsigned int mxcsr; - unsigned int pad3; - - /* Space for eight 80-bit FP values in 128-bit spaces. */ - unsigned char st_space[128]; - - /* Space for eight 128-bit XMM values, or 16 on x86-64. */ - unsigned char xmm_space[256]; -}; - -struct i387_xsave { - /* All these are only sixteen bits, plus padding, except for fop (which - is only eleven bits), and fooff / fioff (which are 32 bits each). */ - unsigned short fctrl; - unsigned short fstat; - unsigned short ftag; - unsigned short fop; - unsigned int fioff; - unsigned short fiseg; - unsigned short pad1; - unsigned int fooff; - unsigned short foseg; - unsigned short pad12; - - unsigned int mxcsr; - unsigned int mxcsr_mask; - - /* Space for eight 80-bit FP values in 128-bit spaces. */ - unsigned char st_space[128]; - - /* Space for eight 128-bit XMM values, or 16 on x86-64. */ - unsigned char xmm_space[256]; - - unsigned char reserved1[48]; - - /* The extended control register 0 (the XFEATURE_ENABLED_MASK - register). */ - unsigned long long xcr0; - - unsigned char reserved2[40]; - - /* The XSTATE_BV bit vector. */ - unsigned long long xstate_bv; - - unsigned char reserved3[56]; - - /* Space for eight upper 128-bit YMM values, or 16 on x86-64. */ - unsigned char ymmh_space[256]; - - unsigned char reserved4[128]; - - /* Space for 4 bound registers values of 128 bits. */ - unsigned char mpx_bnd_space[64]; - - /* Space for 2 MPX configuration registers of 64 bits - plus reserved space. */ - unsigned char mpx_cfg_space[16]; - - unsigned char reserved5[48]; - - /* Space for 8 OpMask register values of 64 bits. */ - unsigned char k_space[64]; - - /* Space for 16 256-bit zmm0-15. */ - unsigned char zmmh_low_space[512]; - - /* Space for 16 512-bit zmm16-31 values. */ - unsigned char zmmh_high_space[1024]; - - /* Space for 1 32-bit PKRU register. The HW XSTATE size for this feature is - actually 64 bits, but WRPKRU/RDPKRU instructions ignore upper 32 bits. */ - unsigned char pkru_space[8]; -}; - -void -i387_cache_to_fsave (struct regcache *regcache, void *buf) -{ - struct i387_fsave *fp = (struct i387_fsave *) buf; - int i; - int st0_regnum = find_regno (regcache->tdesc, "st0"); - unsigned long val2; - - for (i = 0; i < 8; i++) - collect_register (regcache, i + st0_regnum, - ((char *) &fp->st_space[0]) + i * 10); - - fp->fioff = regcache_raw_get_unsigned_by_name (regcache, "fioff"); - fp->fooff = regcache_raw_get_unsigned_by_name (regcache, "fooff"); - - /* This one's 11 bits... */ - val2 = regcache_raw_get_unsigned_by_name (regcache, "fop"); - fp->fop = (val2 & 0x7FF) | (fp->fop & 0xF800); - - /* Some registers are 16-bit. */ - fp->fctrl = regcache_raw_get_unsigned_by_name (regcache, "fctrl"); - fp->fstat = regcache_raw_get_unsigned_by_name (regcache, "fstat"); - fp->ftag = regcache_raw_get_unsigned_by_name (regcache, "ftag"); - fp->fiseg = regcache_raw_get_unsigned_by_name (regcache, "fiseg"); - fp->foseg = regcache_raw_get_unsigned_by_name (regcache, "foseg"); -} - -void -i387_fsave_to_cache (struct regcache *regcache, const void *buf) -{ - struct i387_fsave *fp = (struct i387_fsave *) buf; - int i; - int st0_regnum = find_regno (regcache->tdesc, "st0"); - unsigned long val; - - for (i = 0; i < 8; i++) - supply_register (regcache, i + st0_regnum, - ((char *) &fp->st_space[0]) + i * 10); - - supply_register_by_name (regcache, "fioff", &fp->fioff); - supply_register_by_name (regcache, "fooff", &fp->fooff); - - /* Some registers are 16-bit. */ - val = fp->fctrl & 0xFFFF; - supply_register_by_name (regcache, "fctrl", &val); - - val = fp->fstat & 0xFFFF; - supply_register_by_name (regcache, "fstat", &val); - - val = fp->ftag & 0xFFFF; - supply_register_by_name (regcache, "ftag", &val); - - val = fp->fiseg & 0xFFFF; - supply_register_by_name (regcache, "fiseg", &val); - - val = fp->foseg & 0xFFFF; - supply_register_by_name (regcache, "foseg", &val); - - /* fop has only 11 valid bits. */ - val = (fp->fop) & 0x7FF; - supply_register_by_name (regcache, "fop", &val); -} - -void -i387_cache_to_fxsave (struct regcache *regcache, void *buf) -{ - struct i387_fxsave *fp = (struct i387_fxsave *) buf; - int i; - int st0_regnum = find_regno (regcache->tdesc, "st0"); - int xmm0_regnum = find_regno (regcache->tdesc, "xmm0"); - unsigned long val, val2; - /* Amd64 has 16 xmm regs; I386 has 8 xmm regs. */ - int num_xmm_registers = register_size (regcache->tdesc, 0) == 8 ? 16 : 8; - - for (i = 0; i < 8; i++) - collect_register (regcache, i + st0_regnum, - ((char *) &fp->st_space[0]) + i * 16); - for (i = 0; i < num_xmm_registers; i++) - collect_register (regcache, i + xmm0_regnum, - ((char *) &fp->xmm_space[0]) + i * 16); - - fp->fioff = regcache_raw_get_unsigned_by_name (regcache, "fioff"); - fp->fooff = regcache_raw_get_unsigned_by_name (regcache, "fooff"); - fp->mxcsr = regcache_raw_get_unsigned_by_name (regcache, "mxcsr"); - - /* This one's 11 bits... */ - val2 = regcache_raw_get_unsigned_by_name (regcache, "fop"); - fp->fop = (val2 & 0x7FF) | (fp->fop & 0xF800); - - /* Some registers are 16-bit. */ - fp->fctrl = regcache_raw_get_unsigned_by_name (regcache, "fctrl"); - fp->fstat = regcache_raw_get_unsigned_by_name (regcache, "fstat"); - - /* Convert to the simplifed tag form stored in fxsave data. */ - val = regcache_raw_get_unsigned_by_name (regcache, "ftag"); - val2 = 0; - for (i = 7; i >= 0; i--) - { - int tag = (val >> (i * 2)) & 3; - - if (tag != 3) - val2 |= (1 << i); - } - fp->ftag = val2; - - fp->fiseg = regcache_raw_get_unsigned_by_name (regcache, "fiseg"); - fp->foseg = regcache_raw_get_unsigned_by_name (regcache, "foseg"); -} - -void -i387_cache_to_xsave (struct regcache *regcache, void *buf) -{ - struct i387_xsave *fp = (struct i387_xsave *) buf; - int i; - unsigned long val, val2; - unsigned long long xstate_bv = 0; - unsigned long long clear_bv = 0; - char raw[64]; - char *p; - /* Amd64 has 16 xmm regs; I386 has 8 xmm regs. */ - int num_xmm_registers = register_size (regcache->tdesc, 0) == 8 ? 16 : 8; - - /* The supported bits in `xstat_bv' are 8 bytes. Clear part in - vector registers if its bit in xstat_bv is zero. */ - clear_bv = (~fp->xstate_bv) & x86_xcr0; - - /* Clear part in x87 and vector registers if its bit in xstat_bv is - zero. */ - if (clear_bv) - { - if ((clear_bv & X86_XSTATE_X87)) - { - for (i = 0; i < 8; i++) - memset (((char *) &fp->st_space[0]) + i * 16, 0, 10); - - fp->fioff = 0; - fp->fooff = 0; - fp->fctrl = I387_FCTRL_INIT_VAL; - fp->fstat = 0; - fp->ftag = 0; - fp->fiseg = 0; - fp->foseg = 0; - fp->fop = 0; - } - - if ((clear_bv & X86_XSTATE_SSE)) - for (i = 0; i < num_xmm_registers; i++) - memset (((char *) &fp->xmm_space[0]) + i * 16, 0, 16); - - if ((clear_bv & X86_XSTATE_AVX)) - for (i = 0; i < num_xmm_registers; i++) - memset (((char *) &fp->ymmh_space[0]) + i * 16, 0, 16); - - if ((clear_bv & X86_XSTATE_SSE) && (clear_bv & X86_XSTATE_AVX)) - memset (((char *) &fp->mxcsr), 0, 4); - - if ((clear_bv & X86_XSTATE_BNDREGS)) - for (i = 0; i < num_mpx_bnd_registers; i++) - memset (((char *) &fp->mpx_bnd_space[0]) + i * 16, 0, 16); - - if ((clear_bv & X86_XSTATE_BNDCFG)) - for (i = 0; i < num_mpx_cfg_registers; i++) - memset (((char *) &fp->mpx_cfg_space[0]) + i * 8, 0, 8); - - if ((clear_bv & X86_XSTATE_K)) - for (i = 0; i < num_avx512_k_registers; i++) - memset (((char *) &fp->k_space[0]) + i * 8, 0, 8); - - if ((clear_bv & X86_XSTATE_ZMM_H)) - for (i = 0; i < num_avx512_zmmh_low_registers; i++) - memset (((char *) &fp->zmmh_low_space[0]) + i * 32, 0, 32); - - if ((clear_bv & X86_XSTATE_ZMM)) - { - for (i = 0; i < num_avx512_zmmh_high_registers; i++) - memset (((char *) &fp->zmmh_low_space[0]) + 32 + i * 64, 0, 32); - for (i = 0; i < num_avx512_xmm_registers; i++) - memset (((char *) &fp->zmmh_high_space[0]) + i * 64, 0, 16); - for (i = 0; i < num_avx512_ymmh_registers; i++) - memset (((char *) &fp->zmmh_high_space[0]) + 16 + i * 64, 0, 16); - } - - if ((clear_bv & X86_XSTATE_PKRU)) - for (i = 0; i < num_pkeys_registers; i++) - memset (((char *) &fp->pkru_space[0]) + i * 4, 0, 4); - } - - /* Check if any x87 registers are changed. */ - if ((x86_xcr0 & X86_XSTATE_X87)) - { - int st0_regnum = find_regno (regcache->tdesc, "st0"); - - for (i = 0; i < 8; i++) - { - collect_register (regcache, i + st0_regnum, raw); - p = ((char *) &fp->st_space[0]) + i * 16; - if (memcmp (raw, p, 10)) - { - xstate_bv |= X86_XSTATE_X87; - memcpy (p, raw, 10); - } - } - } - - /* Check if any SSE registers are changed. */ - if ((x86_xcr0 & X86_XSTATE_SSE)) - { - int xmm0_regnum = find_regno (regcache->tdesc, "xmm0"); - - for (i = 0; i < num_xmm_registers; i++) - { - collect_register (regcache, i + xmm0_regnum, raw); - p = ((char *) &fp->xmm_space[0]) + i * 16; - if (memcmp (raw, p, 16)) - { - xstate_bv |= X86_XSTATE_SSE; - memcpy (p, raw, 16); - } - } - } - - /* Check if any AVX registers are changed. */ - if ((x86_xcr0 & X86_XSTATE_AVX)) - { - int ymm0h_regnum = find_regno (regcache->tdesc, "ymm0h"); - - for (i = 0; i < num_xmm_registers; i++) - { - collect_register (regcache, i + ymm0h_regnum, raw); - p = ((char *) &fp->ymmh_space[0]) + i * 16; - if (memcmp (raw, p, 16)) - { - xstate_bv |= X86_XSTATE_AVX; - memcpy (p, raw, 16); - } - } - } - - /* Check if any bound register has changed. */ - if ((x86_xcr0 & X86_XSTATE_BNDREGS)) - { - int bnd0r_regnum = find_regno (regcache->tdesc, "bnd0raw"); - - for (i = 0; i < num_mpx_bnd_registers; i++) - { - collect_register (regcache, i + bnd0r_regnum, raw); - p = ((char *) &fp->mpx_bnd_space[0]) + i * 16; - if (memcmp (raw, p, 16)) - { - xstate_bv |= X86_XSTATE_BNDREGS; - memcpy (p, raw, 16); - } - } - } - - /* Check if any status register has changed. */ - if ((x86_xcr0 & X86_XSTATE_BNDCFG)) - { - int bndcfg_regnum = find_regno (regcache->tdesc, "bndcfgu"); - - for (i = 0; i < num_mpx_cfg_registers; i++) - { - collect_register (regcache, i + bndcfg_regnum, raw); - p = ((char *) &fp->mpx_cfg_space[0]) + i * 8; - if (memcmp (raw, p, 8)) - { - xstate_bv |= X86_XSTATE_BNDCFG; - memcpy (p, raw, 8); - } - } - } - - /* Check if any K registers are changed. */ - if ((x86_xcr0 & X86_XSTATE_K)) - { - int k0_regnum = find_regno (regcache->tdesc, "k0"); - - for (i = 0; i < num_avx512_k_registers; i++) - { - collect_register (regcache, i + k0_regnum, raw); - p = ((char *) &fp->k_space[0]) + i * 8; - if (memcmp (raw, p, 8) != 0) - { - xstate_bv |= X86_XSTATE_K; - memcpy (p, raw, 8); - } - } - } - - /* Check if any of ZMM0H-ZMM15H registers are changed. */ - if ((x86_xcr0 & X86_XSTATE_ZMM_H)) - { - int zmm0h_regnum = find_regno (regcache->tdesc, "zmm0h"); - - for (i = 0; i < num_avx512_zmmh_low_registers; i++) - { - collect_register (regcache, i + zmm0h_regnum, raw); - p = ((char *) &fp->zmmh_low_space[0]) + i * 32; - if (memcmp (raw, p, 32) != 0) - { - xstate_bv |= X86_XSTATE_ZMM_H; - memcpy (p, raw, 32); - } - } - } - - /* Check if any of ZMM16H-ZMM31H registers are changed. */ - if ((x86_xcr0 & X86_XSTATE_ZMM)) - { - int zmm16h_regnum = find_regno (regcache->tdesc, "zmm16h"); - - for (i = 0; i < num_avx512_zmmh_high_registers; i++) - { - collect_register (regcache, i + zmm16h_regnum, raw); - p = ((char *) &fp->zmmh_high_space[0]) + 32 + i * 64; - if (memcmp (raw, p, 32) != 0) - { - xstate_bv |= X86_XSTATE_ZMM; - memcpy (p, raw, 32); - } - } - } - - /* Check if any XMM_AVX512 registers are changed. */ - if ((x86_xcr0 & X86_XSTATE_ZMM)) - { - int xmm_avx512_regnum = find_regno (regcache->tdesc, "xmm16"); - - for (i = 0; i < num_avx512_xmm_registers; i++) - { - collect_register (regcache, i + xmm_avx512_regnum, raw); - p = ((char *) &fp->zmmh_high_space[0]) + i * 64; - if (memcmp (raw, p, 16) != 0) - { - xstate_bv |= X86_XSTATE_ZMM; - memcpy (p, raw, 16); - } - } - } - - /* Check if any YMMH_AVX512 registers are changed. */ - if ((x86_xcr0 & X86_XSTATE_ZMM)) - { - int ymmh_avx512_regnum = find_regno (regcache->tdesc, "ymm16h"); - - for (i = 0; i < num_avx512_ymmh_registers; i++) - { - collect_register (regcache, i + ymmh_avx512_regnum, raw); - p = ((char *) &fp->zmmh_high_space[0]) + 16 + i * 64; - if (memcmp (raw, p, 16) != 0) - { - xstate_bv |= X86_XSTATE_ZMM; - memcpy (p, raw, 16); - } - } - } - - /* Check if any PKEYS registers are changed. */ - if ((x86_xcr0 & X86_XSTATE_PKRU)) - { - int pkru_regnum = find_regno (regcache->tdesc, "pkru"); - - for (i = 0; i < num_pkeys_registers; i++) - { - collect_register (regcache, i + pkru_regnum, raw); - p = ((char *) &fp->pkru_space[0]) + i * 4; - if (memcmp (raw, p, 4) != 0) - { - xstate_bv |= X86_XSTATE_PKRU; - memcpy (p, raw, 4); - } - } - } - - if ((x86_xcr0 & X86_XSTATE_SSE) || (x86_xcr0 & X86_XSTATE_AVX)) - { - collect_register_by_name (regcache, "mxcsr", raw); - if (memcmp (raw, &fp->mxcsr, 4) != 0) - { - if (((fp->xstate_bv | xstate_bv) - & (X86_XSTATE_SSE | X86_XSTATE_AVX)) == 0) - xstate_bv |= X86_XSTATE_SSE; - memcpy (&fp->mxcsr, raw, 4); - } - } - - if (x86_xcr0 & X86_XSTATE_X87) - { - collect_register_by_name (regcache, "fioff", raw); - if (memcmp (raw, &fp->fioff, 4) != 0) - { - xstate_bv |= X86_XSTATE_X87; - memcpy (&fp->fioff, raw, 4); - } - - collect_register_by_name (regcache, "fooff", raw); - if (memcmp (raw, &fp->fooff, 4) != 0) - { - xstate_bv |= X86_XSTATE_X87; - memcpy (&fp->fooff, raw, 4); - } - - /* This one's 11 bits... */ - val2 = regcache_raw_get_unsigned_by_name (regcache, "fop"); - val2 = (val2 & 0x7FF) | (fp->fop & 0xF800); - if (fp->fop != val2) - { - xstate_bv |= X86_XSTATE_X87; - fp->fop = val2; - } - - /* Some registers are 16-bit. */ - val = regcache_raw_get_unsigned_by_name (regcache, "fctrl"); - if (fp->fctrl != val) - { - xstate_bv |= X86_XSTATE_X87; - fp->fctrl = val; - } - - val = regcache_raw_get_unsigned_by_name (regcache, "fstat"); - if (fp->fstat != val) - { - xstate_bv |= X86_XSTATE_X87; - fp->fstat = val; - } - - /* Convert to the simplifed tag form stored in fxsave data. */ - val = regcache_raw_get_unsigned_by_name (regcache, "ftag"); - val2 = 0; - for (i = 7; i >= 0; i--) - { - int tag = (val >> (i * 2)) & 3; - - if (tag != 3) - val2 |= (1 << i); - } - if (fp->ftag != val2) - { - xstate_bv |= X86_XSTATE_X87; - fp->ftag = val2; - } - - val = regcache_raw_get_unsigned_by_name (regcache, "fiseg"); - if (fp->fiseg != val) - { - xstate_bv |= X86_XSTATE_X87; - fp->fiseg = val; - } - - val = regcache_raw_get_unsigned_by_name (regcache, "foseg"); - if (fp->foseg != val) - { - xstate_bv |= X86_XSTATE_X87; - fp->foseg = val; - } - } - - /* Update the corresponding bits in xstate_bv if any SSE/AVX - registers are changed. */ - fp->xstate_bv |= xstate_bv; -} - -static int -i387_ftag (struct i387_fxsave *fp, int regno) -{ - unsigned char *raw = &fp->st_space[regno * 16]; - unsigned int exponent; - unsigned long fraction[2]; - int integer; - - integer = raw[7] & 0x80; - exponent = (((raw[9] & 0x7f) << 8) | raw[8]); - fraction[0] = ((raw[3] << 24) | (raw[2] << 16) | (raw[1] << 8) | raw[0]); - fraction[1] = (((raw[7] & 0x7f) << 24) | (raw[6] << 16) - | (raw[5] << 8) | raw[4]); - - if (exponent == 0x7fff) - { - /* Special. */ - return (2); - } - else if (exponent == 0x0000) - { - if (fraction[0] == 0x0000 && fraction[1] == 0x0000 && !integer) - { - /* Zero. */ - return (1); - } - else - { - /* Special. */ - return (2); - } - } - else - { - if (integer) - { - /* Valid. */ - return (0); - } - else - { - /* Special. */ - return (2); - } - } -} - -void -i387_fxsave_to_cache (struct regcache *regcache, const void *buf) -{ - struct i387_fxsave *fp = (struct i387_fxsave *) buf; - int i, top; - int st0_regnum = find_regno (regcache->tdesc, "st0"); - int xmm0_regnum = find_regno (regcache->tdesc, "xmm0"); - unsigned long val; - /* Amd64 has 16 xmm regs; I386 has 8 xmm regs. */ - int num_xmm_registers = register_size (regcache->tdesc, 0) == 8 ? 16 : 8; - - for (i = 0; i < 8; i++) - supply_register (regcache, i + st0_regnum, - ((char *) &fp->st_space[0]) + i * 16); - for (i = 0; i < num_xmm_registers; i++) - supply_register (regcache, i + xmm0_regnum, - ((char *) &fp->xmm_space[0]) + i * 16); - - supply_register_by_name (regcache, "fioff", &fp->fioff); - supply_register_by_name (regcache, "fooff", &fp->fooff); - supply_register_by_name (regcache, "mxcsr", &fp->mxcsr); - - /* Some registers are 16-bit. */ - val = fp->fctrl & 0xFFFF; - supply_register_by_name (regcache, "fctrl", &val); - - val = fp->fstat & 0xFFFF; - supply_register_by_name (regcache, "fstat", &val); - - /* Generate the form of ftag data that GDB expects. */ - top = (fp->fstat >> 11) & 0x7; - val = 0; - for (i = 7; i >= 0; i--) - { - int tag; - if (fp->ftag & (1 << i)) - tag = i387_ftag (fp, (i + 8 - top) % 8); - else - tag = 3; - val |= tag << (2 * i); - } - supply_register_by_name (regcache, "ftag", &val); - - val = fp->fiseg & 0xFFFF; - supply_register_by_name (regcache, "fiseg", &val); - - val = fp->foseg & 0xFFFF; - supply_register_by_name (regcache, "foseg", &val); - - val = (fp->fop) & 0x7FF; - supply_register_by_name (regcache, "fop", &val); -} - -void -i387_xsave_to_cache (struct regcache *regcache, const void *buf) -{ - struct i387_xsave *fp = (struct i387_xsave *) buf; - struct i387_fxsave *fxp = (struct i387_fxsave *) buf; - int i, top; - unsigned long val; - unsigned long long clear_bv; - gdb_byte *p; - /* Amd64 has 16 xmm regs; I386 has 8 xmm regs. */ - int num_xmm_registers = register_size (regcache->tdesc, 0) == 8 ? 16 : 8; - - /* The supported bits in `xstat_bv' are 8 bytes. Clear part in - vector registers if its bit in xstat_bv is zero. */ - clear_bv = (~fp->xstate_bv) & x86_xcr0; - - /* Check if any x87 registers are changed. */ - if ((x86_xcr0 & X86_XSTATE_X87) != 0) - { - int st0_regnum = find_regno (regcache->tdesc, "st0"); - - if ((clear_bv & X86_XSTATE_X87) != 0) - { - for (i = 0; i < 8; i++) - supply_register_zeroed (regcache, i + st0_regnum); - } - else - { - p = (gdb_byte *) &fp->st_space[0]; - for (i = 0; i < 8; i++) - supply_register (regcache, i + st0_regnum, p + i * 16); - } - } - - if ((x86_xcr0 & X86_XSTATE_SSE) != 0) - { - int xmm0_regnum = find_regno (regcache->tdesc, "xmm0"); - - if ((clear_bv & X86_XSTATE_SSE)) - { - for (i = 0; i < num_xmm_registers; i++) - supply_register_zeroed (regcache, i + xmm0_regnum); - } - else - { - p = (gdb_byte *) &fp->xmm_space[0]; - for (i = 0; i < num_xmm_registers; i++) - supply_register (regcache, i + xmm0_regnum, p + i * 16); - } - } - - if ((x86_xcr0 & X86_XSTATE_AVX) != 0) - { - int ymm0h_regnum = find_regno (regcache->tdesc, "ymm0h"); - - if ((clear_bv & X86_XSTATE_AVX) != 0) - { - for (i = 0; i < num_xmm_registers; i++) - supply_register_zeroed (regcache, i + ymm0h_regnum); - } - else - { - p = (gdb_byte *) &fp->ymmh_space[0]; - for (i = 0; i < num_xmm_registers; i++) - supply_register (regcache, i + ymm0h_regnum, p + i * 16); - } - } - - if ((x86_xcr0 & X86_XSTATE_BNDREGS)) - { - int bnd0r_regnum = find_regno (regcache->tdesc, "bnd0raw"); - - - if ((clear_bv & X86_XSTATE_BNDREGS) != 0) - { - for (i = 0; i < num_mpx_bnd_registers; i++) - supply_register_zeroed (regcache, i + bnd0r_regnum); - } - else - { - p = (gdb_byte *) &fp->mpx_bnd_space[0]; - for (i = 0; i < num_mpx_bnd_registers; i++) - supply_register (regcache, i + bnd0r_regnum, p + i * 16); - } - - } - - if ((x86_xcr0 & X86_XSTATE_BNDCFG)) - { - int bndcfg_regnum = find_regno (regcache->tdesc, "bndcfgu"); - - if ((clear_bv & X86_XSTATE_BNDCFG) != 0) - { - for (i = 0; i < num_mpx_cfg_registers; i++) - supply_register_zeroed (regcache, i + bndcfg_regnum); - } - else - { - p = (gdb_byte *) &fp->mpx_cfg_space[0]; - for (i = 0; i < num_mpx_cfg_registers; i++) - supply_register (regcache, i + bndcfg_regnum, p + i * 8); - } - } - - if ((x86_xcr0 & X86_XSTATE_K) != 0) - { - int k0_regnum = find_regno (regcache->tdesc, "k0"); - - if ((clear_bv & X86_XSTATE_K) != 0) - { - for (i = 0; i < num_avx512_k_registers; i++) - supply_register_zeroed (regcache, i + k0_regnum); - } - else - { - p = (gdb_byte *) &fp->k_space[0]; - for (i = 0; i < num_avx512_k_registers; i++) - supply_register (regcache, i + k0_regnum, p + i * 8); - } - } - - if ((x86_xcr0 & X86_XSTATE_ZMM_H) != 0) - { - int zmm0h_regnum = find_regno (regcache->tdesc, "zmm0h"); - - if ((clear_bv & X86_XSTATE_ZMM_H) != 0) - { - for (i = 0; i < num_avx512_zmmh_low_registers; i++) - supply_register_zeroed (regcache, i + zmm0h_regnum); - } - else - { - p = (gdb_byte *) &fp->zmmh_low_space[0]; - for (i = 0; i < num_avx512_zmmh_low_registers; i++) - supply_register (regcache, i + zmm0h_regnum, p + i * 32); - } - } - - if ((x86_xcr0 & X86_XSTATE_ZMM) != 0) - { - int zmm16h_regnum = find_regno (regcache->tdesc, "zmm16h"); - int ymm16h_regnum = find_regno (regcache->tdesc, "ymm16h"); - int xmm16_regnum = find_regno (regcache->tdesc, "xmm16"); - - if ((clear_bv & X86_XSTATE_ZMM) != 0) - { - for (i = 0; i < num_avx512_zmmh_high_registers; i++) - supply_register_zeroed (regcache, i + zmm16h_regnum); - for (i = 0; i < num_avx512_ymmh_registers; i++) - supply_register_zeroed (regcache, i + ymm16h_regnum); - for (i = 0; i < num_avx512_xmm_registers; i++) - supply_register_zeroed (regcache, i + xmm16_regnum); - } - else - { - p = (gdb_byte *) &fp->zmmh_high_space[0]; - for (i = 0; i < num_avx512_zmmh_high_registers; i++) - supply_register (regcache, i + zmm16h_regnum, p + 32 + i * 64); - for (i = 0; i < num_avx512_ymmh_registers; i++) - supply_register (regcache, i + ymm16h_regnum, p + 16 + i * 64); - for (i = 0; i < num_avx512_xmm_registers; i++) - supply_register (regcache, i + xmm16_regnum, p + i * 64); - } - } - - if ((x86_xcr0 & X86_XSTATE_PKRU) != 0) - { - int pkru_regnum = find_regno (regcache->tdesc, "pkru"); - - if ((clear_bv & X86_XSTATE_PKRU) != 0) - { - for (i = 0; i < num_pkeys_registers; i++) - supply_register_zeroed (regcache, i + pkru_regnum); - } - else - { - p = (gdb_byte *) &fp->pkru_space[0]; - for (i = 0; i < num_pkeys_registers; i++) - supply_register (regcache, i + pkru_regnum, p + i * 4); - } - } - - if ((clear_bv & (X86_XSTATE_SSE | X86_XSTATE_AVX)) - == (X86_XSTATE_SSE | X86_XSTATE_AVX)) - { - unsigned int default_mxcsr = I387_MXCSR_INIT_VAL; - supply_register_by_name (regcache, "mxcsr", &default_mxcsr); - } - else - supply_register_by_name (regcache, "mxcsr", &fp->mxcsr); - - if ((clear_bv & X86_XSTATE_X87) != 0) - { - supply_register_by_name_zeroed (regcache, "fioff"); - supply_register_by_name_zeroed (regcache, "fooff"); - - val = I387_FCTRL_INIT_VAL; - supply_register_by_name (regcache, "fctrl", &val); - - supply_register_by_name_zeroed (regcache, "fstat"); - - val = 0xFFFF; - supply_register_by_name (regcache, "ftag", &val); - - supply_register_by_name_zeroed (regcache, "fiseg"); - supply_register_by_name_zeroed (regcache, "foseg"); - supply_register_by_name_zeroed (regcache, "fop"); - } - else - { - supply_register_by_name (regcache, "fioff", &fp->fioff); - supply_register_by_name (regcache, "fooff", &fp->fooff); - - /* Some registers are 16-bit. */ - val = fp->fctrl & 0xFFFF; - supply_register_by_name (regcache, "fctrl", &val); - - val = fp->fstat & 0xFFFF; - supply_register_by_name (regcache, "fstat", &val); - - /* Generate the form of ftag data that GDB expects. */ - top = (fp->fstat >> 11) & 0x7; - val = 0; - for (i = 7; i >= 0; i--) - { - int tag; - if (fp->ftag & (1 << i)) - tag = i387_ftag (fxp, (i + 8 - top) % 8); - else - tag = 3; - val |= tag << (2 * i); - } - supply_register_by_name (regcache, "ftag", &val); - - val = fp->fiseg & 0xFFFF; - supply_register_by_name (regcache, "fiseg", &val); - - val = fp->foseg & 0xFFFF; - supply_register_by_name (regcache, "foseg", &val); - - val = (fp->fop) & 0x7FF; - supply_register_by_name (regcache, "fop", &val); - } -} - -/* Default to SSE. */ -unsigned long long x86_xcr0 = X86_XSTATE_SSE_MASK; diff --git a/gdbserver/i387-fp.cc b/gdbserver/i387-fp.cc new file mode 100644 index 00000000000..ef7b51303f4 --- /dev/null +++ b/gdbserver/i387-fp.cc @@ -0,0 +1,954 @@ +/* i387-specific utility functions, for the remote server for GDB. + Copyright (C) 2000-2020 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 . */ + +#include "server.h" +#include "i387-fp.h" +#include "gdbsupport/x86-xstate.h" + +static const int num_mpx_bnd_registers = 4; +static const int num_mpx_cfg_registers = 2; +static const int num_avx512_k_registers = 8; +static const int num_avx512_zmmh_low_registers = 16; +static const int num_avx512_zmmh_high_registers = 16; +static const int num_avx512_ymmh_registers = 16; +static const int num_avx512_xmm_registers = 16; +static const int num_pkeys_registers = 1; + +/* Note: These functions preserve the reserved bits in control registers. + However, gdbserver promptly throws away that information. */ + +/* These structs should have the proper sizes and alignment on both + i386 and x86-64 machines. */ + +struct i387_fsave { + /* All these are only sixteen bits, plus padding, except for fop (which + is only eleven bits), and fooff / fioff (which are 32 bits each). */ + unsigned short fctrl; + unsigned short pad1; + unsigned short fstat; + unsigned short pad2; + unsigned short ftag; + unsigned short pad3; + unsigned int fioff; + unsigned short fiseg; + unsigned short fop; + unsigned int fooff; + unsigned short foseg; + unsigned short pad4; + + /* Space for eight 80-bit FP values. */ + unsigned char st_space[80]; +}; + +struct i387_fxsave { + /* All these are only sixteen bits, plus padding, except for fop (which + is only eleven bits), and fooff / fioff (which are 32 bits each). */ + unsigned short fctrl; + unsigned short fstat; + unsigned short ftag; + unsigned short fop; + unsigned int fioff; + unsigned short fiseg; + unsigned short pad1; + unsigned int fooff; + unsigned short foseg; + unsigned short pad12; + + unsigned int mxcsr; + unsigned int pad3; + + /* Space for eight 80-bit FP values in 128-bit spaces. */ + unsigned char st_space[128]; + + /* Space for eight 128-bit XMM values, or 16 on x86-64. */ + unsigned char xmm_space[256]; +}; + +struct i387_xsave { + /* All these are only sixteen bits, plus padding, except for fop (which + is only eleven bits), and fooff / fioff (which are 32 bits each). */ + unsigned short fctrl; + unsigned short fstat; + unsigned short ftag; + unsigned short fop; + unsigned int fioff; + unsigned short fiseg; + unsigned short pad1; + unsigned int fooff; + unsigned short foseg; + unsigned short pad12; + + unsigned int mxcsr; + unsigned int mxcsr_mask; + + /* Space for eight 80-bit FP values in 128-bit spaces. */ + unsigned char st_space[128]; + + /* Space for eight 128-bit XMM values, or 16 on x86-64. */ + unsigned char xmm_space[256]; + + unsigned char reserved1[48]; + + /* The extended control register 0 (the XFEATURE_ENABLED_MASK + register). */ + unsigned long long xcr0; + + unsigned char reserved2[40]; + + /* The XSTATE_BV bit vector. */ + unsigned long long xstate_bv; + + unsigned char reserved3[56]; + + /* Space for eight upper 128-bit YMM values, or 16 on x86-64. */ + unsigned char ymmh_space[256]; + + unsigned char reserved4[128]; + + /* Space for 4 bound registers values of 128 bits. */ + unsigned char mpx_bnd_space[64]; + + /* Space for 2 MPX configuration registers of 64 bits + plus reserved space. */ + unsigned char mpx_cfg_space[16]; + + unsigned char reserved5[48]; + + /* Space for 8 OpMask register values of 64 bits. */ + unsigned char k_space[64]; + + /* Space for 16 256-bit zmm0-15. */ + unsigned char zmmh_low_space[512]; + + /* Space for 16 512-bit zmm16-31 values. */ + unsigned char zmmh_high_space[1024]; + + /* Space for 1 32-bit PKRU register. The HW XSTATE size for this feature is + actually 64 bits, but WRPKRU/RDPKRU instructions ignore upper 32 bits. */ + unsigned char pkru_space[8]; +}; + +void +i387_cache_to_fsave (struct regcache *regcache, void *buf) +{ + struct i387_fsave *fp = (struct i387_fsave *) buf; + int i; + int st0_regnum = find_regno (regcache->tdesc, "st0"); + unsigned long val2; + + for (i = 0; i < 8; i++) + collect_register (regcache, i + st0_regnum, + ((char *) &fp->st_space[0]) + i * 10); + + fp->fioff = regcache_raw_get_unsigned_by_name (regcache, "fioff"); + fp->fooff = regcache_raw_get_unsigned_by_name (regcache, "fooff"); + + /* This one's 11 bits... */ + val2 = regcache_raw_get_unsigned_by_name (regcache, "fop"); + fp->fop = (val2 & 0x7FF) | (fp->fop & 0xF800); + + /* Some registers are 16-bit. */ + fp->fctrl = regcache_raw_get_unsigned_by_name (regcache, "fctrl"); + fp->fstat = regcache_raw_get_unsigned_by_name (regcache, "fstat"); + fp->ftag = regcache_raw_get_unsigned_by_name (regcache, "ftag"); + fp->fiseg = regcache_raw_get_unsigned_by_name (regcache, "fiseg"); + fp->foseg = regcache_raw_get_unsigned_by_name (regcache, "foseg"); +} + +void +i387_fsave_to_cache (struct regcache *regcache, const void *buf) +{ + struct i387_fsave *fp = (struct i387_fsave *) buf; + int i; + int st0_regnum = find_regno (regcache->tdesc, "st0"); + unsigned long val; + + for (i = 0; i < 8; i++) + supply_register (regcache, i + st0_regnum, + ((char *) &fp->st_space[0]) + i * 10); + + supply_register_by_name (regcache, "fioff", &fp->fioff); + supply_register_by_name (regcache, "fooff", &fp->fooff); + + /* Some registers are 16-bit. */ + val = fp->fctrl & 0xFFFF; + supply_register_by_name (regcache, "fctrl", &val); + + val = fp->fstat & 0xFFFF; + supply_register_by_name (regcache, "fstat", &val); + + val = fp->ftag & 0xFFFF; + supply_register_by_name (regcache, "ftag", &val); + + val = fp->fiseg & 0xFFFF; + supply_register_by_name (regcache, "fiseg", &val); + + val = fp->foseg & 0xFFFF; + supply_register_by_name (regcache, "foseg", &val); + + /* fop has only 11 valid bits. */ + val = (fp->fop) & 0x7FF; + supply_register_by_name (regcache, "fop", &val); +} + +void +i387_cache_to_fxsave (struct regcache *regcache, void *buf) +{ + struct i387_fxsave *fp = (struct i387_fxsave *) buf; + int i; + int st0_regnum = find_regno (regcache->tdesc, "st0"); + int xmm0_regnum = find_regno (regcache->tdesc, "xmm0"); + unsigned long val, val2; + /* Amd64 has 16 xmm regs; I386 has 8 xmm regs. */ + int num_xmm_registers = register_size (regcache->tdesc, 0) == 8 ? 16 : 8; + + for (i = 0; i < 8; i++) + collect_register (regcache, i + st0_regnum, + ((char *) &fp->st_space[0]) + i * 16); + for (i = 0; i < num_xmm_registers; i++) + collect_register (regcache, i + xmm0_regnum, + ((char *) &fp->xmm_space[0]) + i * 16); + + fp->fioff = regcache_raw_get_unsigned_by_name (regcache, "fioff"); + fp->fooff = regcache_raw_get_unsigned_by_name (regcache, "fooff"); + fp->mxcsr = regcache_raw_get_unsigned_by_name (regcache, "mxcsr"); + + /* This one's 11 bits... */ + val2 = regcache_raw_get_unsigned_by_name (regcache, "fop"); + fp->fop = (val2 & 0x7FF) | (fp->fop & 0xF800); + + /* Some registers are 16-bit. */ + fp->fctrl = regcache_raw_get_unsigned_by_name (regcache, "fctrl"); + fp->fstat = regcache_raw_get_unsigned_by_name (regcache, "fstat"); + + /* Convert to the simplifed tag form stored in fxsave data. */ + val = regcache_raw_get_unsigned_by_name (regcache, "ftag"); + val2 = 0; + for (i = 7; i >= 0; i--) + { + int tag = (val >> (i * 2)) & 3; + + if (tag != 3) + val2 |= (1 << i); + } + fp->ftag = val2; + + fp->fiseg = regcache_raw_get_unsigned_by_name (regcache, "fiseg"); + fp->foseg = regcache_raw_get_unsigned_by_name (regcache, "foseg"); +} + +void +i387_cache_to_xsave (struct regcache *regcache, void *buf) +{ + struct i387_xsave *fp = (struct i387_xsave *) buf; + int i; + unsigned long val, val2; + unsigned long long xstate_bv = 0; + unsigned long long clear_bv = 0; + char raw[64]; + char *p; + /* Amd64 has 16 xmm regs; I386 has 8 xmm regs. */ + int num_xmm_registers = register_size (regcache->tdesc, 0) == 8 ? 16 : 8; + + /* The supported bits in `xstat_bv' are 8 bytes. Clear part in + vector registers if its bit in xstat_bv is zero. */ + clear_bv = (~fp->xstate_bv) & x86_xcr0; + + /* Clear part in x87 and vector registers if its bit in xstat_bv is + zero. */ + if (clear_bv) + { + if ((clear_bv & X86_XSTATE_X87)) + { + for (i = 0; i < 8; i++) + memset (((char *) &fp->st_space[0]) + i * 16, 0, 10); + + fp->fioff = 0; + fp->fooff = 0; + fp->fctrl = I387_FCTRL_INIT_VAL; + fp->fstat = 0; + fp->ftag = 0; + fp->fiseg = 0; + fp->foseg = 0; + fp->fop = 0; + } + + if ((clear_bv & X86_XSTATE_SSE)) + for (i = 0; i < num_xmm_registers; i++) + memset (((char *) &fp->xmm_space[0]) + i * 16, 0, 16); + + if ((clear_bv & X86_XSTATE_AVX)) + for (i = 0; i < num_xmm_registers; i++) + memset (((char *) &fp->ymmh_space[0]) + i * 16, 0, 16); + + if ((clear_bv & X86_XSTATE_SSE) && (clear_bv & X86_XSTATE_AVX)) + memset (((char *) &fp->mxcsr), 0, 4); + + if ((clear_bv & X86_XSTATE_BNDREGS)) + for (i = 0; i < num_mpx_bnd_registers; i++) + memset (((char *) &fp->mpx_bnd_space[0]) + i * 16, 0, 16); + + if ((clear_bv & X86_XSTATE_BNDCFG)) + for (i = 0; i < num_mpx_cfg_registers; i++) + memset (((char *) &fp->mpx_cfg_space[0]) + i * 8, 0, 8); + + if ((clear_bv & X86_XSTATE_K)) + for (i = 0; i < num_avx512_k_registers; i++) + memset (((char *) &fp->k_space[0]) + i * 8, 0, 8); + + if ((clear_bv & X86_XSTATE_ZMM_H)) + for (i = 0; i < num_avx512_zmmh_low_registers; i++) + memset (((char *) &fp->zmmh_low_space[0]) + i * 32, 0, 32); + + if ((clear_bv & X86_XSTATE_ZMM)) + { + for (i = 0; i < num_avx512_zmmh_high_registers; i++) + memset (((char *) &fp->zmmh_low_space[0]) + 32 + i * 64, 0, 32); + for (i = 0; i < num_avx512_xmm_registers; i++) + memset (((char *) &fp->zmmh_high_space[0]) + i * 64, 0, 16); + for (i = 0; i < num_avx512_ymmh_registers; i++) + memset (((char *) &fp->zmmh_high_space[0]) + 16 + i * 64, 0, 16); + } + + if ((clear_bv & X86_XSTATE_PKRU)) + for (i = 0; i < num_pkeys_registers; i++) + memset (((char *) &fp->pkru_space[0]) + i * 4, 0, 4); + } + + /* Check if any x87 registers are changed. */ + if ((x86_xcr0 & X86_XSTATE_X87)) + { + int st0_regnum = find_regno (regcache->tdesc, "st0"); + + for (i = 0; i < 8; i++) + { + collect_register (regcache, i + st0_regnum, raw); + p = ((char *) &fp->st_space[0]) + i * 16; + if (memcmp (raw, p, 10)) + { + xstate_bv |= X86_XSTATE_X87; + memcpy (p, raw, 10); + } + } + } + + /* Check if any SSE registers are changed. */ + if ((x86_xcr0 & X86_XSTATE_SSE)) + { + int xmm0_regnum = find_regno (regcache->tdesc, "xmm0"); + + for (i = 0; i < num_xmm_registers; i++) + { + collect_register (regcache, i + xmm0_regnum, raw); + p = ((char *) &fp->xmm_space[0]) + i * 16; + if (memcmp (raw, p, 16)) + { + xstate_bv |= X86_XSTATE_SSE; + memcpy (p, raw, 16); + } + } + } + + /* Check if any AVX registers are changed. */ + if ((x86_xcr0 & X86_XSTATE_AVX)) + { + int ymm0h_regnum = find_regno (regcache->tdesc, "ymm0h"); + + for (i = 0; i < num_xmm_registers; i++) + { + collect_register (regcache, i + ymm0h_regnum, raw); + p = ((char *) &fp->ymmh_space[0]) + i * 16; + if (memcmp (raw, p, 16)) + { + xstate_bv |= X86_XSTATE_AVX; + memcpy (p, raw, 16); + } + } + } + + /* Check if any bound register has changed. */ + if ((x86_xcr0 & X86_XSTATE_BNDREGS)) + { + int bnd0r_regnum = find_regno (regcache->tdesc, "bnd0raw"); + + for (i = 0; i < num_mpx_bnd_registers; i++) + { + collect_register (regcache, i + bnd0r_regnum, raw); + p = ((char *) &fp->mpx_bnd_space[0]) + i * 16; + if (memcmp (raw, p, 16)) + { + xstate_bv |= X86_XSTATE_BNDREGS; + memcpy (p, raw, 16); + } + } + } + + /* Check if any status register has changed. */ + if ((x86_xcr0 & X86_XSTATE_BNDCFG)) + { + int bndcfg_regnum = find_regno (regcache->tdesc, "bndcfgu"); + + for (i = 0; i < num_mpx_cfg_registers; i++) + { + collect_register (regcache, i + bndcfg_regnum, raw); + p = ((char *) &fp->mpx_cfg_space[0]) + i * 8; + if (memcmp (raw, p, 8)) + { + xstate_bv |= X86_XSTATE_BNDCFG; + memcpy (p, raw, 8); + } + } + } + + /* Check if any K registers are changed. */ + if ((x86_xcr0 & X86_XSTATE_K)) + { + int k0_regnum = find_regno (regcache->tdesc, "k0"); + + for (i = 0; i < num_avx512_k_registers; i++) + { + collect_register (regcache, i + k0_regnum, raw); + p = ((char *) &fp->k_space[0]) + i * 8; + if (memcmp (raw, p, 8) != 0) + { + xstate_bv |= X86_XSTATE_K; + memcpy (p, raw, 8); + } + } + } + + /* Check if any of ZMM0H-ZMM15H registers are changed. */ + if ((x86_xcr0 & X86_XSTATE_ZMM_H)) + { + int zmm0h_regnum = find_regno (regcache->tdesc, "zmm0h"); + + for (i = 0; i < num_avx512_zmmh_low_registers; i++) + { + collect_register (regcache, i + zmm0h_regnum, raw); + p = ((char *) &fp->zmmh_low_space[0]) + i * 32; + if (memcmp (raw, p, 32) != 0) + { + xstate_bv |= X86_XSTATE_ZMM_H; + memcpy (p, raw, 32); + } + } + } + + /* Check if any of ZMM16H-ZMM31H registers are changed. */ + if ((x86_xcr0 & X86_XSTATE_ZMM)) + { + int zmm16h_regnum = find_regno (regcache->tdesc, "zmm16h"); + + for (i = 0; i < num_avx512_zmmh_high_registers; i++) + { + collect_register (regcache, i + zmm16h_regnum, raw); + p = ((char *) &fp->zmmh_high_space[0]) + 32 + i * 64; + if (memcmp (raw, p, 32) != 0) + { + xstate_bv |= X86_XSTATE_ZMM; + memcpy (p, raw, 32); + } + } + } + + /* Check if any XMM_AVX512 registers are changed. */ + if ((x86_xcr0 & X86_XSTATE_ZMM)) + { + int xmm_avx512_regnum = find_regno (regcache->tdesc, "xmm16"); + + for (i = 0; i < num_avx512_xmm_registers; i++) + { + collect_register (regcache, i + xmm_avx512_regnum, raw); + p = ((char *) &fp->zmmh_high_space[0]) + i * 64; + if (memcmp (raw, p, 16) != 0) + { + xstate_bv |= X86_XSTATE_ZMM; + memcpy (p, raw, 16); + } + } + } + + /* Check if any YMMH_AVX512 registers are changed. */ + if ((x86_xcr0 & X86_XSTATE_ZMM)) + { + int ymmh_avx512_regnum = find_regno (regcache->tdesc, "ymm16h"); + + for (i = 0; i < num_avx512_ymmh_registers; i++) + { + collect_register (regcache, i + ymmh_avx512_regnum, raw); + p = ((char *) &fp->zmmh_high_space[0]) + 16 + i * 64; + if (memcmp (raw, p, 16) != 0) + { + xstate_bv |= X86_XSTATE_ZMM; + memcpy (p, raw, 16); + } + } + } + + /* Check if any PKEYS registers are changed. */ + if ((x86_xcr0 & X86_XSTATE_PKRU)) + { + int pkru_regnum = find_regno (regcache->tdesc, "pkru"); + + for (i = 0; i < num_pkeys_registers; i++) + { + collect_register (regcache, i + pkru_regnum, raw); + p = ((char *) &fp->pkru_space[0]) + i * 4; + if (memcmp (raw, p, 4) != 0) + { + xstate_bv |= X86_XSTATE_PKRU; + memcpy (p, raw, 4); + } + } + } + + if ((x86_xcr0 & X86_XSTATE_SSE) || (x86_xcr0 & X86_XSTATE_AVX)) + { + collect_register_by_name (regcache, "mxcsr", raw); + if (memcmp (raw, &fp->mxcsr, 4) != 0) + { + if (((fp->xstate_bv | xstate_bv) + & (X86_XSTATE_SSE | X86_XSTATE_AVX)) == 0) + xstate_bv |= X86_XSTATE_SSE; + memcpy (&fp->mxcsr, raw, 4); + } + } + + if (x86_xcr0 & X86_XSTATE_X87) + { + collect_register_by_name (regcache, "fioff", raw); + if (memcmp (raw, &fp->fioff, 4) != 0) + { + xstate_bv |= X86_XSTATE_X87; + memcpy (&fp->fioff, raw, 4); + } + + collect_register_by_name (regcache, "fooff", raw); + if (memcmp (raw, &fp->fooff, 4) != 0) + { + xstate_bv |= X86_XSTATE_X87; + memcpy (&fp->fooff, raw, 4); + } + + /* This one's 11 bits... */ + val2 = regcache_raw_get_unsigned_by_name (regcache, "fop"); + val2 = (val2 & 0x7FF) | (fp->fop & 0xF800); + if (fp->fop != val2) + { + xstate_bv |= X86_XSTATE_X87; + fp->fop = val2; + } + + /* Some registers are 16-bit. */ + val = regcache_raw_get_unsigned_by_name (regcache, "fctrl"); + if (fp->fctrl != val) + { + xstate_bv |= X86_XSTATE_X87; + fp->fctrl = val; + } + + val = regcache_raw_get_unsigned_by_name (regcache, "fstat"); + if (fp->fstat != val) + { + xstate_bv |= X86_XSTATE_X87; + fp->fstat = val; + } + + /* Convert to the simplifed tag form stored in fxsave data. */ + val = regcache_raw_get_unsigned_by_name (regcache, "ftag"); + val2 = 0; + for (i = 7; i >= 0; i--) + { + int tag = (val >> (i * 2)) & 3; + + if (tag != 3) + val2 |= (1 << i); + } + if (fp->ftag != val2) + { + xstate_bv |= X86_XSTATE_X87; + fp->ftag = val2; + } + + val = regcache_raw_get_unsigned_by_name (regcache, "fiseg"); + if (fp->fiseg != val) + { + xstate_bv |= X86_XSTATE_X87; + fp->fiseg = val; + } + + val = regcache_raw_get_unsigned_by_name (regcache, "foseg"); + if (fp->foseg != val) + { + xstate_bv |= X86_XSTATE_X87; + fp->foseg = val; + } + } + + /* Update the corresponding bits in xstate_bv if any SSE/AVX + registers are changed. */ + fp->xstate_bv |= xstate_bv; +} + +static int +i387_ftag (struct i387_fxsave *fp, int regno) +{ + unsigned char *raw = &fp->st_space[regno * 16]; + unsigned int exponent; + unsigned long fraction[2]; + int integer; + + integer = raw[7] & 0x80; + exponent = (((raw[9] & 0x7f) << 8) | raw[8]); + fraction[0] = ((raw[3] << 24) | (raw[2] << 16) | (raw[1] << 8) | raw[0]); + fraction[1] = (((raw[7] & 0x7f) << 24) | (raw[6] << 16) + | (raw[5] << 8) | raw[4]); + + if (exponent == 0x7fff) + { + /* Special. */ + return (2); + } + else if (exponent == 0x0000) + { + if (fraction[0] == 0x0000 && fraction[1] == 0x0000 && !integer) + { + /* Zero. */ + return (1); + } + else + { + /* Special. */ + return (2); + } + } + else + { + if (integer) + { + /* Valid. */ + return (0); + } + else + { + /* Special. */ + return (2); + } + } +} + +void +i387_fxsave_to_cache (struct regcache *regcache, const void *buf) +{ + struct i387_fxsave *fp = (struct i387_fxsave *) buf; + int i, top; + int st0_regnum = find_regno (regcache->tdesc, "st0"); + int xmm0_regnum = find_regno (regcache->tdesc, "xmm0"); + unsigned long val; + /* Amd64 has 16 xmm regs; I386 has 8 xmm regs. */ + int num_xmm_registers = register_size (regcache->tdesc, 0) == 8 ? 16 : 8; + + for (i = 0; i < 8; i++) + supply_register (regcache, i + st0_regnum, + ((char *) &fp->st_space[0]) + i * 16); + for (i = 0; i < num_xmm_registers; i++) + supply_register (regcache, i + xmm0_regnum, + ((char *) &fp->xmm_space[0]) + i * 16); + + supply_register_by_name (regcache, "fioff", &fp->fioff); + supply_register_by_name (regcache, "fooff", &fp->fooff); + supply_register_by_name (regcache, "mxcsr", &fp->mxcsr); + + /* Some registers are 16-bit. */ + val = fp->fctrl & 0xFFFF; + supply_register_by_name (regcache, "fctrl", &val); + + val = fp->fstat & 0xFFFF; + supply_register_by_name (regcache, "fstat", &val); + + /* Generate the form of ftag data that GDB expects. */ + top = (fp->fstat >> 11) & 0x7; + val = 0; + for (i = 7; i >= 0; i--) + { + int tag; + if (fp->ftag & (1 << i)) + tag = i387_ftag (fp, (i + 8 - top) % 8); + else + tag = 3; + val |= tag << (2 * i); + } + supply_register_by_name (regcache, "ftag", &val); + + val = fp->fiseg & 0xFFFF; + supply_register_by_name (regcache, "fiseg", &val); + + val = fp->foseg & 0xFFFF; + supply_register_by_name (regcache, "foseg", &val); + + val = (fp->fop) & 0x7FF; + supply_register_by_name (regcache, "fop", &val); +} + +void +i387_xsave_to_cache (struct regcache *regcache, const void *buf) +{ + struct i387_xsave *fp = (struct i387_xsave *) buf; + struct i387_fxsave *fxp = (struct i387_fxsave *) buf; + int i, top; + unsigned long val; + unsigned long long clear_bv; + gdb_byte *p; + /* Amd64 has 16 xmm regs; I386 has 8 xmm regs. */ + int num_xmm_registers = register_size (regcache->tdesc, 0) == 8 ? 16 : 8; + + /* The supported bits in `xstat_bv' are 8 bytes. Clear part in + vector registers if its bit in xstat_bv is zero. */ + clear_bv = (~fp->xstate_bv) & x86_xcr0; + + /* Check if any x87 registers are changed. */ + if ((x86_xcr0 & X86_XSTATE_X87) != 0) + { + int st0_regnum = find_regno (regcache->tdesc, "st0"); + + if ((clear_bv & X86_XSTATE_X87) != 0) + { + for (i = 0; i < 8; i++) + supply_register_zeroed (regcache, i + st0_regnum); + } + else + { + p = (gdb_byte *) &fp->st_space[0]; + for (i = 0; i < 8; i++) + supply_register (regcache, i + st0_regnum, p + i * 16); + } + } + + if ((x86_xcr0 & X86_XSTATE_SSE) != 0) + { + int xmm0_regnum = find_regno (regcache->tdesc, "xmm0"); + + if ((clear_bv & X86_XSTATE_SSE)) + { + for (i = 0; i < num_xmm_registers; i++) + supply_register_zeroed (regcache, i + xmm0_regnum); + } + else + { + p = (gdb_byte *) &fp->xmm_space[0]; + for (i = 0; i < num_xmm_registers; i++) + supply_register (regcache, i + xmm0_regnum, p + i * 16); + } + } + + if ((x86_xcr0 & X86_XSTATE_AVX) != 0) + { + int ymm0h_regnum = find_regno (regcache->tdesc, "ymm0h"); + + if ((clear_bv & X86_XSTATE_AVX) != 0) + { + for (i = 0; i < num_xmm_registers; i++) + supply_register_zeroed (regcache, i + ymm0h_regnum); + } + else + { + p = (gdb_byte *) &fp->ymmh_space[0]; + for (i = 0; i < num_xmm_registers; i++) + supply_register (regcache, i + ymm0h_regnum, p + i * 16); + } + } + + if ((x86_xcr0 & X86_XSTATE_BNDREGS)) + { + int bnd0r_regnum = find_regno (regcache->tdesc, "bnd0raw"); + + + if ((clear_bv & X86_XSTATE_BNDREGS) != 0) + { + for (i = 0; i < num_mpx_bnd_registers; i++) + supply_register_zeroed (regcache, i + bnd0r_regnum); + } + else + { + p = (gdb_byte *) &fp->mpx_bnd_space[0]; + for (i = 0; i < num_mpx_bnd_registers; i++) + supply_register (regcache, i + bnd0r_regnum, p + i * 16); + } + + } + + if ((x86_xcr0 & X86_XSTATE_BNDCFG)) + { + int bndcfg_regnum = find_regno (regcache->tdesc, "bndcfgu"); + + if ((clear_bv & X86_XSTATE_BNDCFG) != 0) + { + for (i = 0; i < num_mpx_cfg_registers; i++) + supply_register_zeroed (regcache, i + bndcfg_regnum); + } + else + { + p = (gdb_byte *) &fp->mpx_cfg_space[0]; + for (i = 0; i < num_mpx_cfg_registers; i++) + supply_register (regcache, i + bndcfg_regnum, p + i * 8); + } + } + + if ((x86_xcr0 & X86_XSTATE_K) != 0) + { + int k0_regnum = find_regno (regcache->tdesc, "k0"); + + if ((clear_bv & X86_XSTATE_K) != 0) + { + for (i = 0; i < num_avx512_k_registers; i++) + supply_register_zeroed (regcache, i + k0_regnum); + } + else + { + p = (gdb_byte *) &fp->k_space[0]; + for (i = 0; i < num_avx512_k_registers; i++) + supply_register (regcache, i + k0_regnum, p + i * 8); + } + } + + if ((x86_xcr0 & X86_XSTATE_ZMM_H) != 0) + { + int zmm0h_regnum = find_regno (regcache->tdesc, "zmm0h"); + + if ((clear_bv & X86_XSTATE_ZMM_H) != 0) + { + for (i = 0; i < num_avx512_zmmh_low_registers; i++) + supply_register_zeroed (regcache, i + zmm0h_regnum); + } + else + { + p = (gdb_byte *) &fp->zmmh_low_space[0]; + for (i = 0; i < num_avx512_zmmh_low_registers; i++) + supply_register (regcache, i + zmm0h_regnum, p + i * 32); + } + } + + if ((x86_xcr0 & X86_XSTATE_ZMM) != 0) + { + int zmm16h_regnum = find_regno (regcache->tdesc, "zmm16h"); + int ymm16h_regnum = find_regno (regcache->tdesc, "ymm16h"); + int xmm16_regnum = find_regno (regcache->tdesc, "xmm16"); + + if ((clear_bv & X86_XSTATE_ZMM) != 0) + { + for (i = 0; i < num_avx512_zmmh_high_registers; i++) + supply_register_zeroed (regcache, i + zmm16h_regnum); + for (i = 0; i < num_avx512_ymmh_registers; i++) + supply_register_zeroed (regcache, i + ymm16h_regnum); + for (i = 0; i < num_avx512_xmm_registers; i++) + supply_register_zeroed (regcache, i + xmm16_regnum); + } + else + { + p = (gdb_byte *) &fp->zmmh_high_space[0]; + for (i = 0; i < num_avx512_zmmh_high_registers; i++) + supply_register (regcache, i + zmm16h_regnum, p + 32 + i * 64); + for (i = 0; i < num_avx512_ymmh_registers; i++) + supply_register (regcache, i + ymm16h_regnum, p + 16 + i * 64); + for (i = 0; i < num_avx512_xmm_registers; i++) + supply_register (regcache, i + xmm16_regnum, p + i * 64); + } + } + + if ((x86_xcr0 & X86_XSTATE_PKRU) != 0) + { + int pkru_regnum = find_regno (regcache->tdesc, "pkru"); + + if ((clear_bv & X86_XSTATE_PKRU) != 0) + { + for (i = 0; i < num_pkeys_registers; i++) + supply_register_zeroed (regcache, i + pkru_regnum); + } + else + { + p = (gdb_byte *) &fp->pkru_space[0]; + for (i = 0; i < num_pkeys_registers; i++) + supply_register (regcache, i + pkru_regnum, p + i * 4); + } + } + + if ((clear_bv & (X86_XSTATE_SSE | X86_XSTATE_AVX)) + == (X86_XSTATE_SSE | X86_XSTATE_AVX)) + { + unsigned int default_mxcsr = I387_MXCSR_INIT_VAL; + supply_register_by_name (regcache, "mxcsr", &default_mxcsr); + } + else + supply_register_by_name (regcache, "mxcsr", &fp->mxcsr); + + if ((clear_bv & X86_XSTATE_X87) != 0) + { + supply_register_by_name_zeroed (regcache, "fioff"); + supply_register_by_name_zeroed (regcache, "fooff"); + + val = I387_FCTRL_INIT_VAL; + supply_register_by_name (regcache, "fctrl", &val); + + supply_register_by_name_zeroed (regcache, "fstat"); + + val = 0xFFFF; + supply_register_by_name (regcache, "ftag", &val); + + supply_register_by_name_zeroed (regcache, "fiseg"); + supply_register_by_name_zeroed (regcache, "foseg"); + supply_register_by_name_zeroed (regcache, "fop"); + } + else + { + supply_register_by_name (regcache, "fioff", &fp->fioff); + supply_register_by_name (regcache, "fooff", &fp->fooff); + + /* Some registers are 16-bit. */ + val = fp->fctrl & 0xFFFF; + supply_register_by_name (regcache, "fctrl", &val); + + val = fp->fstat & 0xFFFF; + supply_register_by_name (regcache, "fstat", &val); + + /* Generate the form of ftag data that GDB expects. */ + top = (fp->fstat >> 11) & 0x7; + val = 0; + for (i = 7; i >= 0; i--) + { + int tag; + if (fp->ftag & (1 << i)) + tag = i387_ftag (fxp, (i + 8 - top) % 8); + else + tag = 3; + val |= tag << (2 * i); + } + supply_register_by_name (regcache, "ftag", &val); + + val = fp->fiseg & 0xFFFF; + supply_register_by_name (regcache, "fiseg", &val); + + val = fp->foseg & 0xFFFF; + supply_register_by_name (regcache, "foseg", &val); + + val = (fp->fop) & 0x7FF; + supply_register_by_name (regcache, "fop", &val); + } +} + +/* Default to SSE. */ +unsigned long long x86_xcr0 = X86_XSTATE_SSE_MASK; diff --git a/gdbserver/inferiors.c b/gdbserver/inferiors.c deleted file mode 100644 index 88adb16eac2..00000000000 --- a/gdbserver/inferiors.c +++ /dev/null @@ -1,244 +0,0 @@ -/* Inferior process information for the remote server for GDB. - Copyright (C) 2002-2020 Free Software Foundation, Inc. - - Contributed by MontaVista Software. - - 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 . */ - -#include "server.h" -#include "gdbsupport/common-inferior.h" -#include "gdbthread.h" -#include "dll.h" - -std::list all_processes; -std::list all_threads; - -struct thread_info *current_thread; - -/* The current working directory used to start the inferior. */ -static const char *current_inferior_cwd = NULL; - -struct thread_info * -add_thread (ptid_t thread_id, void *target_data) -{ - struct thread_info *new_thread = XCNEW (struct thread_info); - - new_thread->id = thread_id; - new_thread->last_resume_kind = resume_continue; - new_thread->last_status.kind = TARGET_WAITKIND_IGNORE; - - all_threads.push_back (new_thread); - - if (current_thread == NULL) - current_thread = new_thread; - - new_thread->target_data = target_data; - - return new_thread; -} - -/* See gdbthread.h. */ - -struct thread_info * -get_first_thread (void) -{ - if (!all_threads.empty ()) - return all_threads.front (); - else - return NULL; -} - -struct thread_info * -find_thread_ptid (ptid_t ptid) -{ - return find_thread ([&] (thread_info *thread) { - return thread->id == ptid; - }); -} - -/* Find a thread associated with the given PROCESS, or NULL if no - such thread exists. */ - -static struct thread_info * -find_thread_process (const struct process_info *const process) -{ - return find_any_thread_of_pid (process->pid); -} - -/* See gdbthread.h. */ - -struct thread_info * -find_any_thread_of_pid (int pid) -{ - return find_thread (pid, [] (thread_info *thread) { - return true; - }); -} - -static void -free_one_thread (thread_info *thread) -{ - free_register_cache (thread_regcache_data (thread)); - free (thread); -} - -void -remove_thread (struct thread_info *thread) -{ - if (thread->btrace != NULL) - target_disable_btrace (thread->btrace); - - discard_queued_stop_replies (ptid_of (thread)); - all_threads.remove (thread); - free_one_thread (thread); - if (current_thread == thread) - current_thread = NULL; -} - -void * -thread_target_data (struct thread_info *thread) -{ - return thread->target_data; -} - -struct regcache * -thread_regcache_data (struct thread_info *thread) -{ - return thread->regcache_data; -} - -void -set_thread_regcache_data (struct thread_info *thread, struct regcache *data) -{ - thread->regcache_data = data; -} - -void -clear_inferiors (void) -{ - for_each_thread (free_one_thread); - all_threads.clear (); - - clear_dlls (); - - current_thread = NULL; -} - -struct process_info * -add_process (int pid, int attached) -{ - process_info *process = new process_info (pid, attached); - - all_processes.push_back (process); - - return process; -} - -/* Remove a process from the common process list and free the memory - allocated for it. - The caller is responsible for freeing private data first. */ - -void -remove_process (struct process_info *process) -{ - clear_symbol_cache (&process->symbol_cache); - free_all_breakpoints (process); - gdb_assert (find_thread_process (process) == NULL); - all_processes.remove (process); - delete process; -} - -process_info * -find_process_pid (int pid) -{ - return find_process ([&] (process_info *process) { - return process->pid == pid; - }); -} - -/* Get the first process in the process list, or NULL if the list is empty. */ - -process_info * -get_first_process (void) -{ - if (!all_processes.empty ()) - return all_processes.front (); - else - return NULL; -} - -/* Return non-zero if there are any inferiors that we have created - (as opposed to attached-to). */ - -int -have_started_inferiors_p (void) -{ - return find_process ([] (process_info *process) { - return !process->attached; - }) != NULL; -} - -/* Return non-zero if there are any inferiors that we have attached to. */ - -int -have_attached_inferiors_p (void) -{ - return find_process ([] (process_info *process) { - return process->attached; - }) != NULL; -} - -struct process_info * -get_thread_process (const struct thread_info *thread) -{ - return find_process_pid (thread->id.pid ()); -} - -struct process_info * -current_process (void) -{ - gdb_assert (current_thread != NULL); - return get_thread_process (current_thread); -} - -/* See gdbsupport/common-gdbthread.h. */ - -void -switch_to_thread (process_stratum_target *ops, ptid_t ptid) -{ - gdb_assert (ptid != minus_one_ptid); - current_thread = find_thread_ptid (ptid); -} - -/* See gdbsupport/common-inferior.h. */ - -const char * -get_inferior_cwd () -{ - return current_inferior_cwd; -} - -/* See gdbsupport/common-inferior.h. */ - -void -set_inferior_cwd (const char *cwd) -{ - xfree ((void *) current_inferior_cwd); - if (cwd != NULL) - current_inferior_cwd = xstrdup (cwd); - else - current_inferior_cwd = NULL; -} diff --git a/gdbserver/inferiors.cc b/gdbserver/inferiors.cc new file mode 100644 index 00000000000..88adb16eac2 --- /dev/null +++ b/gdbserver/inferiors.cc @@ -0,0 +1,244 @@ +/* Inferior process information for the remote server for GDB. + Copyright (C) 2002-2020 Free Software Foundation, Inc. + + Contributed by MontaVista Software. + + 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 . */ + +#include "server.h" +#include "gdbsupport/common-inferior.h" +#include "gdbthread.h" +#include "dll.h" + +std::list all_processes; +std::list all_threads; + +struct thread_info *current_thread; + +/* The current working directory used to start the inferior. */ +static const char *current_inferior_cwd = NULL; + +struct thread_info * +add_thread (ptid_t thread_id, void *target_data) +{ + struct thread_info *new_thread = XCNEW (struct thread_info); + + new_thread->id = thread_id; + new_thread->last_resume_kind = resume_continue; + new_thread->last_status.kind = TARGET_WAITKIND_IGNORE; + + all_threads.push_back (new_thread); + + if (current_thread == NULL) + current_thread = new_thread; + + new_thread->target_data = target_data; + + return new_thread; +} + +/* See gdbthread.h. */ + +struct thread_info * +get_first_thread (void) +{ + if (!all_threads.empty ()) + return all_threads.front (); + else + return NULL; +} + +struct thread_info * +find_thread_ptid (ptid_t ptid) +{ + return find_thread ([&] (thread_info *thread) { + return thread->id == ptid; + }); +} + +/* Find a thread associated with the given PROCESS, or NULL if no + such thread exists. */ + +static struct thread_info * +find_thread_process (const struct process_info *const process) +{ + return find_any_thread_of_pid (process->pid); +} + +/* See gdbthread.h. */ + +struct thread_info * +find_any_thread_of_pid (int pid) +{ + return find_thread (pid, [] (thread_info *thread) { + return true; + }); +} + +static void +free_one_thread (thread_info *thread) +{ + free_register_cache (thread_regcache_data (thread)); + free (thread); +} + +void +remove_thread (struct thread_info *thread) +{ + if (thread->btrace != NULL) + target_disable_btrace (thread->btrace); + + discard_queued_stop_replies (ptid_of (thread)); + all_threads.remove (thread); + free_one_thread (thread); + if (current_thread == thread) + current_thread = NULL; +} + +void * +thread_target_data (struct thread_info *thread) +{ + return thread->target_data; +} + +struct regcache * +thread_regcache_data (struct thread_info *thread) +{ + return thread->regcache_data; +} + +void +set_thread_regcache_data (struct thread_info *thread, struct regcache *data) +{ + thread->regcache_data = data; +} + +void +clear_inferiors (void) +{ + for_each_thread (free_one_thread); + all_threads.clear (); + + clear_dlls (); + + current_thread = NULL; +} + +struct process_info * +add_process (int pid, int attached) +{ + process_info *process = new process_info (pid, attached); + + all_processes.push_back (process); + + return process; +} + +/* Remove a process from the common process list and free the memory + allocated for it. + The caller is responsible for freeing private data first. */ + +void +remove_process (struct process_info *process) +{ + clear_symbol_cache (&process->symbol_cache); + free_all_breakpoints (process); + gdb_assert (find_thread_process (process) == NULL); + all_processes.remove (process); + delete process; +} + +process_info * +find_process_pid (int pid) +{ + return find_process ([&] (process_info *process) { + return process->pid == pid; + }); +} + +/* Get the first process in the process list, or NULL if the list is empty. */ + +process_info * +get_first_process (void) +{ + if (!all_processes.empty ()) + return all_processes.front (); + else + return NULL; +} + +/* Return non-zero if there are any inferiors that we have created + (as opposed to attached-to). */ + +int +have_started_inferiors_p (void) +{ + return find_process ([] (process_info *process) { + return !process->attached; + }) != NULL; +} + +/* Return non-zero if there are any inferiors that we have attached to. */ + +int +have_attached_inferiors_p (void) +{ + return find_process ([] (process_info *process) { + return process->attached; + }) != NULL; +} + +struct process_info * +get_thread_process (const struct thread_info *thread) +{ + return find_process_pid (thread->id.pid ()); +} + +struct process_info * +current_process (void) +{ + gdb_assert (current_thread != NULL); + return get_thread_process (current_thread); +} + +/* See gdbsupport/common-gdbthread.h. */ + +void +switch_to_thread (process_stratum_target *ops, ptid_t ptid) +{ + gdb_assert (ptid != minus_one_ptid); + current_thread = find_thread_ptid (ptid); +} + +/* See gdbsupport/common-inferior.h. */ + +const char * +get_inferior_cwd () +{ + return current_inferior_cwd; +} + +/* See gdbsupport/common-inferior.h. */ + +void +set_inferior_cwd (const char *cwd) +{ + xfree ((void *) current_inferior_cwd); + if (cwd != NULL) + current_inferior_cwd = xstrdup (cwd); + else + current_inferior_cwd = NULL; +} diff --git a/gdbserver/linux-aarch32-low.c b/gdbserver/linux-aarch32-low.c deleted file mode 100644 index c6a70249d3b..00000000000 --- a/gdbserver/linux-aarch32-low.c +++ /dev/null @@ -1,303 +0,0 @@ -/* Copyright (C) 1995-2020 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 . */ - -#include "server.h" -#include "arch/arm.h" -#include "arch/arm-linux.h" -#include "linux-low.h" -#include "linux-aarch32-low.h" - -#include -/* Don't include elf.h if linux/elf.h got included by gdb_proc_service.h. - On Bionic elf.h and linux/elf.h have conflicting definitions. */ -#ifndef ELFMAG0 -#include -#endif - -/* Correct in either endianness. */ -#define arm_abi_breakpoint 0xef9f0001UL - -/* For new EABI binaries. We recognize it regardless of which ABI - is used for gdbserver, so single threaded debugging should work - OK, but for multi-threaded debugging we only insert the current - ABI's breakpoint instruction. For now at least. */ -#define arm_eabi_breakpoint 0xe7f001f0UL - -#if (defined __ARM_EABI__ || defined __aarch64__) -static const unsigned long arm_breakpoint = arm_eabi_breakpoint; -#else -static const unsigned long arm_breakpoint = arm_abi_breakpoint; -#endif - -#define arm_breakpoint_len 4 -static const unsigned short thumb_breakpoint = 0xde01; -#define thumb_breakpoint_len 2 -static const unsigned short thumb2_breakpoint[] = { 0xf7f0, 0xa000 }; -#define thumb2_breakpoint_len 4 - -/* Some older versions of GNU/Linux and Android do not define - the following macros. */ -#ifndef NT_ARM_VFP -#define NT_ARM_VFP 0x400 -#endif - -/* Collect GP registers from REGCACHE to buffer BUF. */ - -void -arm_fill_gregset (struct regcache *regcache, void *buf) -{ - int i; - uint32_t *regs = (uint32_t *) buf; - uint32_t cpsr = regs[ARM_CPSR_GREGNUM]; - - for (i = ARM_A1_REGNUM; i <= ARM_PC_REGNUM; i++) - collect_register (regcache, i, ®s[i]); - - collect_register (regcache, ARM_PS_REGNUM, ®s[ARM_CPSR_GREGNUM]); - /* Keep reserved bits bit 20 to bit 23. */ - regs[ARM_CPSR_GREGNUM] = ((regs[ARM_CPSR_GREGNUM] & 0xff0fffff) - | (cpsr & 0x00f00000)); -} - -/* Supply GP registers contents, stored in BUF, to REGCACHE. */ - -void -arm_store_gregset (struct regcache *regcache, const void *buf) -{ - int i; - char zerobuf[8]; - const uint32_t *regs = (const uint32_t *) buf; - uint32_t cpsr = regs[ARM_CPSR_GREGNUM]; - - memset (zerobuf, 0, 8); - for (i = ARM_A1_REGNUM; i <= ARM_PC_REGNUM; i++) - supply_register (regcache, i, ®s[i]); - - for (; i < ARM_PS_REGNUM; i++) - supply_register (regcache, i, zerobuf); - - /* Clear reserved bits bit 20 to bit 23. */ - cpsr &= 0xff0fffff; - supply_register (regcache, ARM_PS_REGNUM, &cpsr); -} - -/* Collect NUM number of VFP registers from REGCACHE to buffer BUF. */ - -void -arm_fill_vfpregset_num (struct regcache *regcache, void *buf, int num) -{ - int i, base; - - gdb_assert (num == 16 || num == 32); - - base = find_regno (regcache->tdesc, "d0"); - for (i = 0; i < num; i++) - collect_register (regcache, base + i, (char *) buf + i * 8); - - collect_register_by_name (regcache, "fpscr", (char *) buf + 32 * 8); -} - -/* Supply NUM number of VFP registers contents, stored in BUF, to - REGCACHE. */ - -void -arm_store_vfpregset_num (struct regcache *regcache, const void *buf, int num) -{ - int i, base; - - gdb_assert (num == 16 || num == 32); - - base = find_regno (regcache->tdesc, "d0"); - for (i = 0; i < num; i++) - supply_register (regcache, base + i, (char *) buf + i * 8); - - supply_register_by_name (regcache, "fpscr", (char *) buf + 32 * 8); -} - -static void -arm_fill_vfpregset (struct regcache *regcache, void *buf) -{ - arm_fill_vfpregset_num (regcache, buf, 32); -} - -static void -arm_store_vfpregset (struct regcache *regcache, const void *buf) -{ - arm_store_vfpregset_num (regcache, buf, 32); -} - -/* Register sets with using PTRACE_GETREGSET. */ - -static struct regset_info aarch32_regsets[] = { - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PRSTATUS, - ARM_CORE_REGS_SIZE + ARM_INT_REGISTER_SIZE, GENERAL_REGS, - arm_fill_gregset, arm_store_gregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_ARM_VFP, ARM_VFP3_REGS_SIZE, - EXTENDED_REGS, - arm_fill_vfpregset, arm_store_vfpregset }, - NULL_REGSET -}; - -static struct regsets_info aarch32_regsets_info = - { - aarch32_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -struct regs_info regs_info_aarch32 = - { - NULL, /* regset_bitmap */ - NULL, /* usrregs */ - &aarch32_regsets_info - }; - -/* Returns 1 if the current instruction set is thumb, 0 otherwise. */ - -int -arm_is_thumb_mode (void) -{ - struct regcache *regcache = get_thread_regcache (current_thread, 1); - unsigned long cpsr; - - collect_register_by_name (regcache, "cpsr", &cpsr); - - if (cpsr & 0x20) - return 1; - else - return 0; -} - -/* Returns 1 if there is a software breakpoint at location. */ - -int -arm_breakpoint_at (CORE_ADDR where) -{ - if (arm_is_thumb_mode ()) - { - /* Thumb mode. */ - unsigned short insn; - - (*the_target->read_memory) (where, (unsigned char *) &insn, 2); - if (insn == thumb_breakpoint) - return 1; - - if (insn == thumb2_breakpoint[0]) - { - (*the_target->read_memory) (where + 2, (unsigned char *) &insn, 2); - if (insn == thumb2_breakpoint[1]) - return 1; - } - } - else - { - /* ARM mode. */ - unsigned long insn; - - (*the_target->read_memory) (where, (unsigned char *) &insn, 4); - if (insn == arm_abi_breakpoint) - return 1; - - if (insn == arm_eabi_breakpoint) - return 1; - } - - return 0; -} - -/* Implementation of linux_target_ops method "breakpoint_kind_from_pc". - - Determine the type and size of breakpoint to insert at PCPTR. Uses the - program counter value to determine whether a 16-bit or 32-bit breakpoint - should be used. It returns the breakpoint's kind, and adjusts the program - counter (if necessary) to point to the actual memory location where the - breakpoint should be inserted. */ - -int -arm_breakpoint_kind_from_pc (CORE_ADDR *pcptr) -{ - if (IS_THUMB_ADDR (*pcptr)) - { - gdb_byte buf[2]; - - *pcptr = UNMAKE_THUMB_ADDR (*pcptr); - - /* Check whether we are replacing a thumb2 32-bit instruction. */ - if (target_read_memory (*pcptr, buf, 2) == 0) - { - unsigned short inst1 = 0; - - target_read_memory (*pcptr, (gdb_byte *) &inst1, 2); - if (thumb_insn_size (inst1) == 4) - return ARM_BP_KIND_THUMB2; - } - return ARM_BP_KIND_THUMB; - } - else - return ARM_BP_KIND_ARM; -} - -/* Implementation of the linux_target_ops method "sw_breakpoint_from_kind". */ - -const gdb_byte * -arm_sw_breakpoint_from_kind (int kind , int *size) -{ - *size = arm_breakpoint_len; - /* Define an ARM-mode breakpoint; we only set breakpoints in the C - library, which is most likely to be ARM. If the kernel supports - clone events, we will never insert a breakpoint, so even a Thumb - C library will work; so will mixing EABI/non-EABI gdbserver and - application. */ - switch (kind) - { - case ARM_BP_KIND_THUMB: - *size = thumb_breakpoint_len; - return (gdb_byte *) &thumb_breakpoint; - case ARM_BP_KIND_THUMB2: - *size = thumb2_breakpoint_len; - return (gdb_byte *) &thumb2_breakpoint; - case ARM_BP_KIND_ARM: - *size = arm_breakpoint_len; - return (const gdb_byte *) &arm_breakpoint; - default: - return NULL; - } - return NULL; -} - -/* Implementation of the linux_target_ops method - "breakpoint_kind_from_current_state". */ - -int -arm_breakpoint_kind_from_current_state (CORE_ADDR *pcptr) -{ - if (arm_is_thumb_mode ()) - { - *pcptr = MAKE_THUMB_ADDR (*pcptr); - return arm_breakpoint_kind_from_pc (pcptr); - } - else - { - return arm_breakpoint_kind_from_pc (pcptr); - } -} - -void -initialize_low_arch_aarch32 (void) -{ - initialize_regsets_info (&aarch32_regsets_info); -} diff --git a/gdbserver/linux-aarch32-low.cc b/gdbserver/linux-aarch32-low.cc new file mode 100644 index 00000000000..c6a70249d3b --- /dev/null +++ b/gdbserver/linux-aarch32-low.cc @@ -0,0 +1,303 @@ +/* Copyright (C) 1995-2020 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 . */ + +#include "server.h" +#include "arch/arm.h" +#include "arch/arm-linux.h" +#include "linux-low.h" +#include "linux-aarch32-low.h" + +#include +/* Don't include elf.h if linux/elf.h got included by gdb_proc_service.h. + On Bionic elf.h and linux/elf.h have conflicting definitions. */ +#ifndef ELFMAG0 +#include +#endif + +/* Correct in either endianness. */ +#define arm_abi_breakpoint 0xef9f0001UL + +/* For new EABI binaries. We recognize it regardless of which ABI + is used for gdbserver, so single threaded debugging should work + OK, but for multi-threaded debugging we only insert the current + ABI's breakpoint instruction. For now at least. */ +#define arm_eabi_breakpoint 0xe7f001f0UL + +#if (defined __ARM_EABI__ || defined __aarch64__) +static const unsigned long arm_breakpoint = arm_eabi_breakpoint; +#else +static const unsigned long arm_breakpoint = arm_abi_breakpoint; +#endif + +#define arm_breakpoint_len 4 +static const unsigned short thumb_breakpoint = 0xde01; +#define thumb_breakpoint_len 2 +static const unsigned short thumb2_breakpoint[] = { 0xf7f0, 0xa000 }; +#define thumb2_breakpoint_len 4 + +/* Some older versions of GNU/Linux and Android do not define + the following macros. */ +#ifndef NT_ARM_VFP +#define NT_ARM_VFP 0x400 +#endif + +/* Collect GP registers from REGCACHE to buffer BUF. */ + +void +arm_fill_gregset (struct regcache *regcache, void *buf) +{ + int i; + uint32_t *regs = (uint32_t *) buf; + uint32_t cpsr = regs[ARM_CPSR_GREGNUM]; + + for (i = ARM_A1_REGNUM; i <= ARM_PC_REGNUM; i++) + collect_register (regcache, i, ®s[i]); + + collect_register (regcache, ARM_PS_REGNUM, ®s[ARM_CPSR_GREGNUM]); + /* Keep reserved bits bit 20 to bit 23. */ + regs[ARM_CPSR_GREGNUM] = ((regs[ARM_CPSR_GREGNUM] & 0xff0fffff) + | (cpsr & 0x00f00000)); +} + +/* Supply GP registers contents, stored in BUF, to REGCACHE. */ + +void +arm_store_gregset (struct regcache *regcache, const void *buf) +{ + int i; + char zerobuf[8]; + const uint32_t *regs = (const uint32_t *) buf; + uint32_t cpsr = regs[ARM_CPSR_GREGNUM]; + + memset (zerobuf, 0, 8); + for (i = ARM_A1_REGNUM; i <= ARM_PC_REGNUM; i++) + supply_register (regcache, i, ®s[i]); + + for (; i < ARM_PS_REGNUM; i++) + supply_register (regcache, i, zerobuf); + + /* Clear reserved bits bit 20 to bit 23. */ + cpsr &= 0xff0fffff; + supply_register (regcache, ARM_PS_REGNUM, &cpsr); +} + +/* Collect NUM number of VFP registers from REGCACHE to buffer BUF. */ + +void +arm_fill_vfpregset_num (struct regcache *regcache, void *buf, int num) +{ + int i, base; + + gdb_assert (num == 16 || num == 32); + + base = find_regno (regcache->tdesc, "d0"); + for (i = 0; i < num; i++) + collect_register (regcache, base + i, (char *) buf + i * 8); + + collect_register_by_name (regcache, "fpscr", (char *) buf + 32 * 8); +} + +/* Supply NUM number of VFP registers contents, stored in BUF, to + REGCACHE. */ + +void +arm_store_vfpregset_num (struct regcache *regcache, const void *buf, int num) +{ + int i, base; + + gdb_assert (num == 16 || num == 32); + + base = find_regno (regcache->tdesc, "d0"); + for (i = 0; i < num; i++) + supply_register (regcache, base + i, (char *) buf + i * 8); + + supply_register_by_name (regcache, "fpscr", (char *) buf + 32 * 8); +} + +static void +arm_fill_vfpregset (struct regcache *regcache, void *buf) +{ + arm_fill_vfpregset_num (regcache, buf, 32); +} + +static void +arm_store_vfpregset (struct regcache *regcache, const void *buf) +{ + arm_store_vfpregset_num (regcache, buf, 32); +} + +/* Register sets with using PTRACE_GETREGSET. */ + +static struct regset_info aarch32_regsets[] = { + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PRSTATUS, + ARM_CORE_REGS_SIZE + ARM_INT_REGISTER_SIZE, GENERAL_REGS, + arm_fill_gregset, arm_store_gregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_ARM_VFP, ARM_VFP3_REGS_SIZE, + EXTENDED_REGS, + arm_fill_vfpregset, arm_store_vfpregset }, + NULL_REGSET +}; + +static struct regsets_info aarch32_regsets_info = + { + aarch32_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +struct regs_info regs_info_aarch32 = + { + NULL, /* regset_bitmap */ + NULL, /* usrregs */ + &aarch32_regsets_info + }; + +/* Returns 1 if the current instruction set is thumb, 0 otherwise. */ + +int +arm_is_thumb_mode (void) +{ + struct regcache *regcache = get_thread_regcache (current_thread, 1); + unsigned long cpsr; + + collect_register_by_name (regcache, "cpsr", &cpsr); + + if (cpsr & 0x20) + return 1; + else + return 0; +} + +/* Returns 1 if there is a software breakpoint at location. */ + +int +arm_breakpoint_at (CORE_ADDR where) +{ + if (arm_is_thumb_mode ()) + { + /* Thumb mode. */ + unsigned short insn; + + (*the_target->read_memory) (where, (unsigned char *) &insn, 2); + if (insn == thumb_breakpoint) + return 1; + + if (insn == thumb2_breakpoint[0]) + { + (*the_target->read_memory) (where + 2, (unsigned char *) &insn, 2); + if (insn == thumb2_breakpoint[1]) + return 1; + } + } + else + { + /* ARM mode. */ + unsigned long insn; + + (*the_target->read_memory) (where, (unsigned char *) &insn, 4); + if (insn == arm_abi_breakpoint) + return 1; + + if (insn == arm_eabi_breakpoint) + return 1; + } + + return 0; +} + +/* Implementation of linux_target_ops method "breakpoint_kind_from_pc". + + Determine the type and size of breakpoint to insert at PCPTR. Uses the + program counter value to determine whether a 16-bit or 32-bit breakpoint + should be used. It returns the breakpoint's kind, and adjusts the program + counter (if necessary) to point to the actual memory location where the + breakpoint should be inserted. */ + +int +arm_breakpoint_kind_from_pc (CORE_ADDR *pcptr) +{ + if (IS_THUMB_ADDR (*pcptr)) + { + gdb_byte buf[2]; + + *pcptr = UNMAKE_THUMB_ADDR (*pcptr); + + /* Check whether we are replacing a thumb2 32-bit instruction. */ + if (target_read_memory (*pcptr, buf, 2) == 0) + { + unsigned short inst1 = 0; + + target_read_memory (*pcptr, (gdb_byte *) &inst1, 2); + if (thumb_insn_size (inst1) == 4) + return ARM_BP_KIND_THUMB2; + } + return ARM_BP_KIND_THUMB; + } + else + return ARM_BP_KIND_ARM; +} + +/* Implementation of the linux_target_ops method "sw_breakpoint_from_kind". */ + +const gdb_byte * +arm_sw_breakpoint_from_kind (int kind , int *size) +{ + *size = arm_breakpoint_len; + /* Define an ARM-mode breakpoint; we only set breakpoints in the C + library, which is most likely to be ARM. If the kernel supports + clone events, we will never insert a breakpoint, so even a Thumb + C library will work; so will mixing EABI/non-EABI gdbserver and + application. */ + switch (kind) + { + case ARM_BP_KIND_THUMB: + *size = thumb_breakpoint_len; + return (gdb_byte *) &thumb_breakpoint; + case ARM_BP_KIND_THUMB2: + *size = thumb2_breakpoint_len; + return (gdb_byte *) &thumb2_breakpoint; + case ARM_BP_KIND_ARM: + *size = arm_breakpoint_len; + return (const gdb_byte *) &arm_breakpoint; + default: + return NULL; + } + return NULL; +} + +/* Implementation of the linux_target_ops method + "breakpoint_kind_from_current_state". */ + +int +arm_breakpoint_kind_from_current_state (CORE_ADDR *pcptr) +{ + if (arm_is_thumb_mode ()) + { + *pcptr = MAKE_THUMB_ADDR (*pcptr); + return arm_breakpoint_kind_from_pc (pcptr); + } + else + { + return arm_breakpoint_kind_from_pc (pcptr); + } +} + +void +initialize_low_arch_aarch32 (void) +{ + initialize_regsets_info (&aarch32_regsets_info); +} diff --git a/gdbserver/linux-aarch32-tdesc.c b/gdbserver/linux-aarch32-tdesc.c deleted file mode 100644 index b0dffe27e71..00000000000 --- a/gdbserver/linux-aarch32-tdesc.c +++ /dev/null @@ -1,50 +0,0 @@ -/* Copyright (C) 2019-2020 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 . */ - -#include "server.h" - -#include "linux-aarch32-tdesc.h" - -#include "tdesc.h" -#include "arch/aarch32.h" -#include - -static struct target_desc *tdesc_aarch32; - -/* See linux-aarch32-tdesc.h. */ - -const target_desc * -aarch32_linux_read_description () -{ - if (tdesc_aarch32 == nullptr) - { - tdesc_aarch32 = aarch32_create_target_description (); - - static const char *expedite_regs[] = { "r11", "sp", "pc", 0 }; - init_target_desc (tdesc_aarch32, expedite_regs); - } - return tdesc_aarch32; -} - -/* See linux-aarch32-tdesc.h. */ - -bool -is_aarch32_linux_description (const target_desc *tdesc) -{ - gdb_assert (tdesc != nullptr); - return tdesc == tdesc_aarch32; -} diff --git a/gdbserver/linux-aarch32-tdesc.cc b/gdbserver/linux-aarch32-tdesc.cc new file mode 100644 index 00000000000..b0dffe27e71 --- /dev/null +++ b/gdbserver/linux-aarch32-tdesc.cc @@ -0,0 +1,50 @@ +/* Copyright (C) 2019-2020 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 . */ + +#include "server.h" + +#include "linux-aarch32-tdesc.h" + +#include "tdesc.h" +#include "arch/aarch32.h" +#include + +static struct target_desc *tdesc_aarch32; + +/* See linux-aarch32-tdesc.h. */ + +const target_desc * +aarch32_linux_read_description () +{ + if (tdesc_aarch32 == nullptr) + { + tdesc_aarch32 = aarch32_create_target_description (); + + static const char *expedite_regs[] = { "r11", "sp", "pc", 0 }; + init_target_desc (tdesc_aarch32, expedite_regs); + } + return tdesc_aarch32; +} + +/* See linux-aarch32-tdesc.h. */ + +bool +is_aarch32_linux_description (const target_desc *tdesc) +{ + gdb_assert (tdesc != nullptr); + return tdesc == tdesc_aarch32; +} diff --git a/gdbserver/linux-aarch64-ipa.c b/gdbserver/linux-aarch64-ipa.c deleted file mode 100644 index 694dfd77dfa..00000000000 --- a/gdbserver/linux-aarch64-ipa.c +++ /dev/null @@ -1,209 +0,0 @@ -/* GNU/Linux/AArch64 specific low level interface, for the in-process - agent library for GDB. - - Copyright (C) 2015-2020 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 . */ - -#include "server.h" -#include -#include "tracepoint.h" -#include -#ifdef HAVE_GETAUXVAL -#include -#endif -#include "linux-aarch64-tdesc.h" - -/* Each register saved by the jump pad is in a 16 byte cell. */ -#define FT_CR_SIZE 16 - -#define FT_CR_FPCR 0 -#define FT_CR_FPSR 1 -#define FT_CR_CPSR 2 -#define FT_CR_PC 3 -#define FT_CR_SP 4 -#define FT_CR_X0 5 -#define FT_CR_GPR(n) (FT_CR_X0 + (n)) -#define FT_CR_FPR(n) (FT_CR_GPR (31) + (n)) - -/* Mapping between registers collected by the jump pad and GDB's register - array layout used by regcache. - - See linux-aarch64-low.c (aarch64_install_fast_tracepoint_jump_pad) for - more details. */ - -static const int aarch64_ft_collect_regmap[] = { - FT_CR_GPR (0), - FT_CR_GPR (1), - FT_CR_GPR (2), - FT_CR_GPR (3), - FT_CR_GPR (4), - FT_CR_GPR (5), - FT_CR_GPR (6), - FT_CR_GPR (7), - FT_CR_GPR (8), - FT_CR_GPR (9), - FT_CR_GPR (10), - FT_CR_GPR (11), - FT_CR_GPR (12), - FT_CR_GPR (13), - FT_CR_GPR (14), - FT_CR_GPR (15), - FT_CR_GPR (16), - FT_CR_GPR (17), - FT_CR_GPR (18), - FT_CR_GPR (19), - FT_CR_GPR (20), - FT_CR_GPR (21), - FT_CR_GPR (22), - FT_CR_GPR (23), - FT_CR_GPR (24), - FT_CR_GPR (25), - FT_CR_GPR (26), - FT_CR_GPR (27), - FT_CR_GPR (28), - /* FP */ - FT_CR_GPR (29), - /* LR */ - FT_CR_GPR (30), - FT_CR_SP, - FT_CR_PC, - FT_CR_CPSR, - FT_CR_FPR (0), - FT_CR_FPR (1), - FT_CR_FPR (2), - FT_CR_FPR (3), - FT_CR_FPR (4), - FT_CR_FPR (5), - FT_CR_FPR (6), - FT_CR_FPR (7), - FT_CR_FPR (8), - FT_CR_FPR (9), - FT_CR_FPR (10), - FT_CR_FPR (11), - FT_CR_FPR (12), - FT_CR_FPR (13), - FT_CR_FPR (14), - FT_CR_FPR (15), - FT_CR_FPR (16), - FT_CR_FPR (17), - FT_CR_FPR (18), - FT_CR_FPR (19), - FT_CR_FPR (20), - FT_CR_FPR (21), - FT_CR_FPR (22), - FT_CR_FPR (23), - FT_CR_FPR (24), - FT_CR_FPR (25), - FT_CR_FPR (26), - FT_CR_FPR (27), - FT_CR_FPR (28), - FT_CR_FPR (29), - FT_CR_FPR (30), - FT_CR_FPR (31), - FT_CR_FPSR, - FT_CR_FPCR -}; - -#define AARCH64_NUM_FT_COLLECT_GREGS \ - (sizeof (aarch64_ft_collect_regmap) / sizeof(aarch64_ft_collect_regmap[0])) - -/* Fill in REGCACHE with registers saved by the jump pad in BUF. */ - -void -supply_fast_tracepoint_registers (struct regcache *regcache, - const unsigned char *buf) -{ - int i; - - for (i = 0; i < AARCH64_NUM_FT_COLLECT_GREGS; i++) - supply_register (regcache, i, - ((char *) buf) - + (aarch64_ft_collect_regmap[i] * FT_CR_SIZE)); -} - -ULONGEST -get_raw_reg (const unsigned char *raw_regs, int regnum) -{ - if (regnum >= AARCH64_NUM_FT_COLLECT_GREGS) - return 0; - - return *(ULONGEST *) (raw_regs - + aarch64_ft_collect_regmap[regnum] * FT_CR_SIZE); -} - -/* Return target_desc to use for IPA, given the tdesc index passed by - gdbserver. Index is ignored, since we have only one tdesc - at the moment. SVE and pauth not yet supported. */ - -const struct target_desc * -get_ipa_tdesc (int idx) -{ - return aarch64_linux_read_description (0, false); -} - -/* Allocate buffer for the jump pads. The branch instruction has a reach - of +/- 128MiB, and the executable is loaded at 0x400000 (4MiB). - To maximize the area of executable that can use tracepoints, try - allocating at 0x400000 - size initially, decreasing until we hit - a free area. */ - -void * -alloc_jump_pad_buffer (size_t size) -{ - uintptr_t addr; - uintptr_t exec_base = getauxval (AT_PHDR); - int pagesize; - void *res; - - if (exec_base == 0) - exec_base = 0x400000; - - pagesize = sysconf (_SC_PAGE_SIZE); - if (pagesize == -1) - perror_with_name ("sysconf"); - - addr = exec_base - size; - - /* size should already be page-aligned, but this can't hurt. */ - addr &= ~(pagesize - 1); - - /* Search for a free area. If we hit 0, we're out of luck. */ - for (; addr; addr -= pagesize) - { - /* No MAP_FIXED - we don't want to zap someone's mapping. */ - res = mmap ((void *) addr, size, - PROT_READ | PROT_WRITE | PROT_EXEC, - MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); - - /* If we got what we wanted, return. */ - if ((uintptr_t) res == addr) - return res; - - /* If we got a mapping, but at a wrong address, undo it. */ - if (res != MAP_FAILED) - munmap (res, size); - } - - return NULL; -} - -void -initialize_low_tracepoint (void) -{ - /* SVE and pauth not yet supported. */ - aarch64_linux_read_description (0, false); -} diff --git a/gdbserver/linux-aarch64-ipa.cc b/gdbserver/linux-aarch64-ipa.cc new file mode 100644 index 00000000000..694dfd77dfa --- /dev/null +++ b/gdbserver/linux-aarch64-ipa.cc @@ -0,0 +1,209 @@ +/* GNU/Linux/AArch64 specific low level interface, for the in-process + agent library for GDB. + + Copyright (C) 2015-2020 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 . */ + +#include "server.h" +#include +#include "tracepoint.h" +#include +#ifdef HAVE_GETAUXVAL +#include +#endif +#include "linux-aarch64-tdesc.h" + +/* Each register saved by the jump pad is in a 16 byte cell. */ +#define FT_CR_SIZE 16 + +#define FT_CR_FPCR 0 +#define FT_CR_FPSR 1 +#define FT_CR_CPSR 2 +#define FT_CR_PC 3 +#define FT_CR_SP 4 +#define FT_CR_X0 5 +#define FT_CR_GPR(n) (FT_CR_X0 + (n)) +#define FT_CR_FPR(n) (FT_CR_GPR (31) + (n)) + +/* Mapping between registers collected by the jump pad and GDB's register + array layout used by regcache. + + See linux-aarch64-low.c (aarch64_install_fast_tracepoint_jump_pad) for + more details. */ + +static const int aarch64_ft_collect_regmap[] = { + FT_CR_GPR (0), + FT_CR_GPR (1), + FT_CR_GPR (2), + FT_CR_GPR (3), + FT_CR_GPR (4), + FT_CR_GPR (5), + FT_CR_GPR (6), + FT_CR_GPR (7), + FT_CR_GPR (8), + FT_CR_GPR (9), + FT_CR_GPR (10), + FT_CR_GPR (11), + FT_CR_GPR (12), + FT_CR_GPR (13), + FT_CR_GPR (14), + FT_CR_GPR (15), + FT_CR_GPR (16), + FT_CR_GPR (17), + FT_CR_GPR (18), + FT_CR_GPR (19), + FT_CR_GPR (20), + FT_CR_GPR (21), + FT_CR_GPR (22), + FT_CR_GPR (23), + FT_CR_GPR (24), + FT_CR_GPR (25), + FT_CR_GPR (26), + FT_CR_GPR (27), + FT_CR_GPR (28), + /* FP */ + FT_CR_GPR (29), + /* LR */ + FT_CR_GPR (30), + FT_CR_SP, + FT_CR_PC, + FT_CR_CPSR, + FT_CR_FPR (0), + FT_CR_FPR (1), + FT_CR_FPR (2), + FT_CR_FPR (3), + FT_CR_FPR (4), + FT_CR_FPR (5), + FT_CR_FPR (6), + FT_CR_FPR (7), + FT_CR_FPR (8), + FT_CR_FPR (9), + FT_CR_FPR (10), + FT_CR_FPR (11), + FT_CR_FPR (12), + FT_CR_FPR (13), + FT_CR_FPR (14), + FT_CR_FPR (15), + FT_CR_FPR (16), + FT_CR_FPR (17), + FT_CR_FPR (18), + FT_CR_FPR (19), + FT_CR_FPR (20), + FT_CR_FPR (21), + FT_CR_FPR (22), + FT_CR_FPR (23), + FT_CR_FPR (24), + FT_CR_FPR (25), + FT_CR_FPR (26), + FT_CR_FPR (27), + FT_CR_FPR (28), + FT_CR_FPR (29), + FT_CR_FPR (30), + FT_CR_FPR (31), + FT_CR_FPSR, + FT_CR_FPCR +}; + +#define AARCH64_NUM_FT_COLLECT_GREGS \ + (sizeof (aarch64_ft_collect_regmap) / sizeof(aarch64_ft_collect_regmap[0])) + +/* Fill in REGCACHE with registers saved by the jump pad in BUF. */ + +void +supply_fast_tracepoint_registers (struct regcache *regcache, + const unsigned char *buf) +{ + int i; + + for (i = 0; i < AARCH64_NUM_FT_COLLECT_GREGS; i++) + supply_register (regcache, i, + ((char *) buf) + + (aarch64_ft_collect_regmap[i] * FT_CR_SIZE)); +} + +ULONGEST +get_raw_reg (const unsigned char *raw_regs, int regnum) +{ + if (regnum >= AARCH64_NUM_FT_COLLECT_GREGS) + return 0; + + return *(ULONGEST *) (raw_regs + + aarch64_ft_collect_regmap[regnum] * FT_CR_SIZE); +} + +/* Return target_desc to use for IPA, given the tdesc index passed by + gdbserver. Index is ignored, since we have only one tdesc + at the moment. SVE and pauth not yet supported. */ + +const struct target_desc * +get_ipa_tdesc (int idx) +{ + return aarch64_linux_read_description (0, false); +} + +/* Allocate buffer for the jump pads. The branch instruction has a reach + of +/- 128MiB, and the executable is loaded at 0x400000 (4MiB). + To maximize the area of executable that can use tracepoints, try + allocating at 0x400000 - size initially, decreasing until we hit + a free area. */ + +void * +alloc_jump_pad_buffer (size_t size) +{ + uintptr_t addr; + uintptr_t exec_base = getauxval (AT_PHDR); + int pagesize; + void *res; + + if (exec_base == 0) + exec_base = 0x400000; + + pagesize = sysconf (_SC_PAGE_SIZE); + if (pagesize == -1) + perror_with_name ("sysconf"); + + addr = exec_base - size; + + /* size should already be page-aligned, but this can't hurt. */ + addr &= ~(pagesize - 1); + + /* Search for a free area. If we hit 0, we're out of luck. */ + for (; addr; addr -= pagesize) + { + /* No MAP_FIXED - we don't want to zap someone's mapping. */ + res = mmap ((void *) addr, size, + PROT_READ | PROT_WRITE | PROT_EXEC, + MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); + + /* If we got what we wanted, return. */ + if ((uintptr_t) res == addr) + return res; + + /* If we got a mapping, but at a wrong address, undo it. */ + if (res != MAP_FAILED) + munmap (res, size); + } + + return NULL; +} + +void +initialize_low_tracepoint (void) +{ + /* SVE and pauth not yet supported. */ + aarch64_linux_read_description (0, false); +} diff --git a/gdbserver/linux-aarch64-low.c b/gdbserver/linux-aarch64-low.c deleted file mode 100644 index 961fd5b3cc4..00000000000 --- a/gdbserver/linux-aarch64-low.c +++ /dev/null @@ -1,3098 +0,0 @@ -/* GNU/Linux/AArch64 specific low level interface, for the remote server for - GDB. - - Copyright (C) 2009-2020 Free Software Foundation, Inc. - Contributed by ARM Ltd. - - 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 . */ - -#include "server.h" -#include "linux-low.h" -#include "nat/aarch64-linux.h" -#include "nat/aarch64-linux-hw-point.h" -#include "arch/aarch64-insn.h" -#include "linux-aarch32-low.h" -#include "elf/common.h" -#include "ax.h" -#include "tracepoint.h" -#include "debug.h" - -#include -#include -#include "nat/gdb_ptrace.h" -#include -#include -#include -#include - -#include "gdb_proc_service.h" -#include "arch/aarch64.h" -#include "linux-aarch32-tdesc.h" -#include "linux-aarch64-tdesc.h" -#include "nat/aarch64-sve-linux-ptrace.h" -#include "tdesc.h" - -#ifdef HAVE_SYS_REG_H -#include -#endif - -/* Per-process arch-specific data we want to keep. */ - -struct arch_process_info -{ - /* Hardware breakpoint/watchpoint data. - The reason for them to be per-process rather than per-thread is - due to the lack of information in the gdbserver environment; - gdbserver is not told that whether a requested hardware - breakpoint/watchpoint is thread specific or not, so it has to set - each hw bp/wp for every thread in the current process. The - higher level bp/wp management in gdb will resume a thread if a hw - bp/wp trap is not expected for it. Since the hw bp/wp setting is - same for each thread, it is reasonable for the data to live here. - */ - struct aarch64_debug_reg_state debug_reg_state; -}; - -/* Return true if the size of register 0 is 8 byte. */ - -static int -is_64bit_tdesc (void) -{ - struct regcache *regcache = get_thread_regcache (current_thread, 0); - - return register_size (regcache->tdesc, 0) == 8; -} - -/* Return true if the regcache contains the number of SVE registers. */ - -static bool -is_sve_tdesc (void) -{ - struct regcache *regcache = get_thread_regcache (current_thread, 0); - - return tdesc_contains_feature (regcache->tdesc, "org.gnu.gdb.aarch64.sve"); -} - -static void -aarch64_fill_gregset (struct regcache *regcache, void *buf) -{ - struct user_pt_regs *regset = (struct user_pt_regs *) buf; - int i; - - for (i = 0; i < AARCH64_X_REGS_NUM; i++) - collect_register (regcache, AARCH64_X0_REGNUM + i, ®set->regs[i]); - collect_register (regcache, AARCH64_SP_REGNUM, ®set->sp); - collect_register (regcache, AARCH64_PC_REGNUM, ®set->pc); - collect_register (regcache, AARCH64_CPSR_REGNUM, ®set->pstate); -} - -static void -aarch64_store_gregset (struct regcache *regcache, const void *buf) -{ - const struct user_pt_regs *regset = (const struct user_pt_regs *) buf; - int i; - - for (i = 0; i < AARCH64_X_REGS_NUM; i++) - supply_register (regcache, AARCH64_X0_REGNUM + i, ®set->regs[i]); - supply_register (regcache, AARCH64_SP_REGNUM, ®set->sp); - supply_register (regcache, AARCH64_PC_REGNUM, ®set->pc); - supply_register (regcache, AARCH64_CPSR_REGNUM, ®set->pstate); -} - -static void -aarch64_fill_fpregset (struct regcache *regcache, void *buf) -{ - struct user_fpsimd_state *regset = (struct user_fpsimd_state *) buf; - int i; - - for (i = 0; i < AARCH64_V_REGS_NUM; i++) - collect_register (regcache, AARCH64_V0_REGNUM + i, ®set->vregs[i]); - collect_register (regcache, AARCH64_FPSR_REGNUM, ®set->fpsr); - collect_register (regcache, AARCH64_FPCR_REGNUM, ®set->fpcr); -} - -static void -aarch64_store_fpregset (struct regcache *regcache, const void *buf) -{ - const struct user_fpsimd_state *regset - = (const struct user_fpsimd_state *) buf; - int i; - - for (i = 0; i < AARCH64_V_REGS_NUM; i++) - supply_register (regcache, AARCH64_V0_REGNUM + i, ®set->vregs[i]); - supply_register (regcache, AARCH64_FPSR_REGNUM, ®set->fpsr); - supply_register (regcache, AARCH64_FPCR_REGNUM, ®set->fpcr); -} - -/* Store the pauth registers to regcache. */ - -static void -aarch64_store_pauthregset (struct regcache *regcache, const void *buf) -{ - uint64_t *pauth_regset = (uint64_t *) buf; - int pauth_base = find_regno (regcache->tdesc, "pauth_dmask"); - - if (pauth_base == 0) - return; - - supply_register (regcache, AARCH64_PAUTH_DMASK_REGNUM (pauth_base), - &pauth_regset[0]); - supply_register (regcache, AARCH64_PAUTH_CMASK_REGNUM (pauth_base), - &pauth_regset[1]); -} - -/* Implementation of linux_target_ops method "get_pc". */ - -static CORE_ADDR -aarch64_get_pc (struct regcache *regcache) -{ - if (register_size (regcache->tdesc, 0) == 8) - return linux_get_pc_64bit (regcache); - else - return linux_get_pc_32bit (regcache); -} - -/* Implementation of linux_target_ops method "set_pc". */ - -static void -aarch64_set_pc (struct regcache *regcache, CORE_ADDR pc) -{ - if (register_size (regcache->tdesc, 0) == 8) - linux_set_pc_64bit (regcache, pc); - else - linux_set_pc_32bit (regcache, pc); -} - -#define aarch64_breakpoint_len 4 - -/* AArch64 BRK software debug mode instruction. - This instruction needs to match gdb/aarch64-tdep.c - (aarch64_default_breakpoint). */ -static const gdb_byte aarch64_breakpoint[] = {0x00, 0x00, 0x20, 0xd4}; - -/* Implementation of linux_target_ops method "breakpoint_at". */ - -static int -aarch64_breakpoint_at (CORE_ADDR where) -{ - if (is_64bit_tdesc ()) - { - gdb_byte insn[aarch64_breakpoint_len]; - - (*the_target->read_memory) (where, (unsigned char *) &insn, - aarch64_breakpoint_len); - if (memcmp (insn, aarch64_breakpoint, aarch64_breakpoint_len) == 0) - return 1; - - return 0; - } - else - return arm_breakpoint_at (where); -} - -static void -aarch64_init_debug_reg_state (struct aarch64_debug_reg_state *state) -{ - int i; - - for (i = 0; i < AARCH64_HBP_MAX_NUM; ++i) - { - state->dr_addr_bp[i] = 0; - state->dr_ctrl_bp[i] = 0; - state->dr_ref_count_bp[i] = 0; - } - - for (i = 0; i < AARCH64_HWP_MAX_NUM; ++i) - { - state->dr_addr_wp[i] = 0; - state->dr_ctrl_wp[i] = 0; - state->dr_ref_count_wp[i] = 0; - } -} - -/* Return the pointer to the debug register state structure in the - current process' arch-specific data area. */ - -struct aarch64_debug_reg_state * -aarch64_get_debug_reg_state (pid_t pid) -{ - struct process_info *proc = find_process_pid (pid); - - return &proc->priv->arch_private->debug_reg_state; -} - -/* Implementation of linux_target_ops method "supports_z_point_type". */ - -static int -aarch64_supports_z_point_type (char z_type) -{ - switch (z_type) - { - case Z_PACKET_SW_BP: - case Z_PACKET_HW_BP: - case Z_PACKET_WRITE_WP: - case Z_PACKET_READ_WP: - case Z_PACKET_ACCESS_WP: - return 1; - default: - return 0; - } -} - -/* Implementation of linux_target_ops method "insert_point". - - It actually only records the info of the to-be-inserted bp/wp; - the actual insertion will happen when threads are resumed. */ - -static int -aarch64_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, - int len, struct raw_breakpoint *bp) -{ - int ret; - enum target_hw_bp_type targ_type; - struct aarch64_debug_reg_state *state - = aarch64_get_debug_reg_state (pid_of (current_thread)); - - if (show_debug_regs) - fprintf (stderr, "insert_point on entry (addr=0x%08lx, len=%d)\n", - (unsigned long) addr, len); - - /* Determine the type from the raw breakpoint type. */ - targ_type = raw_bkpt_type_to_target_hw_bp_type (type); - - if (targ_type != hw_execute) - { - if (aarch64_linux_region_ok_for_watchpoint (addr, len)) - ret = aarch64_handle_watchpoint (targ_type, addr, len, - 1 /* is_insert */, state); - else - ret = -1; - } - else - { - if (len == 3) - { - /* LEN is 3 means the breakpoint is set on a 32-bit thumb - instruction. Set it to 2 to correctly encode length bit - mask in hardware/watchpoint control register. */ - len = 2; - } - ret = aarch64_handle_breakpoint (targ_type, addr, len, - 1 /* is_insert */, state); - } - - if (show_debug_regs) - aarch64_show_debug_reg_state (state, "insert_point", addr, len, - targ_type); - - return ret; -} - -/* Implementation of linux_target_ops method "remove_point". - - It actually only records the info of the to-be-removed bp/wp, - the actual removal will be done when threads are resumed. */ - -static int -aarch64_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, - int len, struct raw_breakpoint *bp) -{ - int ret; - enum target_hw_bp_type targ_type; - struct aarch64_debug_reg_state *state - = aarch64_get_debug_reg_state (pid_of (current_thread)); - - if (show_debug_regs) - fprintf (stderr, "remove_point on entry (addr=0x%08lx, len=%d)\n", - (unsigned long) addr, len); - - /* Determine the type from the raw breakpoint type. */ - targ_type = raw_bkpt_type_to_target_hw_bp_type (type); - - /* Set up state pointers. */ - if (targ_type != hw_execute) - ret = - aarch64_handle_watchpoint (targ_type, addr, len, 0 /* is_insert */, - state); - else - { - if (len == 3) - { - /* LEN is 3 means the breakpoint is set on a 32-bit thumb - instruction. Set it to 2 to correctly encode length bit - mask in hardware/watchpoint control register. */ - len = 2; - } - ret = aarch64_handle_breakpoint (targ_type, addr, len, - 0 /* is_insert */, state); - } - - if (show_debug_regs) - aarch64_show_debug_reg_state (state, "remove_point", addr, len, - targ_type); - - return ret; -} - -/* Implementation of linux_target_ops method "stopped_data_address". */ - -static CORE_ADDR -aarch64_stopped_data_address (void) -{ - siginfo_t siginfo; - int pid, i; - struct aarch64_debug_reg_state *state; - - pid = lwpid_of (current_thread); - - /* Get the siginfo. */ - if (ptrace (PTRACE_GETSIGINFO, pid, NULL, &siginfo) != 0) - return (CORE_ADDR) 0; - - /* Need to be a hardware breakpoint/watchpoint trap. */ - if (siginfo.si_signo != SIGTRAP - || (siginfo.si_code & 0xffff) != 0x0004 /* TRAP_HWBKPT */) - return (CORE_ADDR) 0; - - /* Check if the address matches any watched address. */ - state = aarch64_get_debug_reg_state (pid_of (current_thread)); - for (i = aarch64_num_wp_regs - 1; i >= 0; --i) - { - const unsigned int offset - = aarch64_watchpoint_offset (state->dr_ctrl_wp[i]); - const unsigned int len = aarch64_watchpoint_length (state->dr_ctrl_wp[i]); - const CORE_ADDR addr_trap = (CORE_ADDR) siginfo.si_addr; - const CORE_ADDR addr_watch = state->dr_addr_wp[i] + offset; - const CORE_ADDR addr_watch_aligned = align_down (state->dr_addr_wp[i], 8); - const CORE_ADDR addr_orig = state->dr_addr_orig_wp[i]; - - if (state->dr_ref_count_wp[i] - && DR_CONTROL_ENABLED (state->dr_ctrl_wp[i]) - && addr_trap >= addr_watch_aligned - && addr_trap < addr_watch + len) - { - /* ADDR_TRAP reports the first address of the memory range - accessed by the CPU, regardless of what was the memory - range watched. Thus, a large CPU access that straddles - the ADDR_WATCH..ADDR_WATCH+LEN range may result in an - ADDR_TRAP that is lower than the - ADDR_WATCH..ADDR_WATCH+LEN range. E.g.: - - addr: | 4 | 5 | 6 | 7 | 8 | - |---- range watched ----| - |----------- range accessed ------------| - - In this case, ADDR_TRAP will be 4. - - To match a watchpoint known to GDB core, we must never - report *ADDR_P outside of any ADDR_WATCH..ADDR_WATCH+LEN - range. ADDR_WATCH <= ADDR_TRAP < ADDR_ORIG is a false - positive on kernels older than 4.10. See PR - external/20207. */ - return addr_orig; - } - } - - return (CORE_ADDR) 0; -} - -/* Implementation of linux_target_ops method "stopped_by_watchpoint". */ - -static int -aarch64_stopped_by_watchpoint (void) -{ - if (aarch64_stopped_data_address () != 0) - return 1; - else - return 0; -} - -/* Fetch the thread-local storage pointer for libthread_db. */ - -ps_err_e -ps_get_thread_area (struct ps_prochandle *ph, - lwpid_t lwpid, int idx, void **base) -{ - return aarch64_ps_get_thread_area (ph, lwpid, idx, base, - is_64bit_tdesc ()); -} - -/* Implementation of linux_target_ops method "siginfo_fixup". */ - -static int -aarch64_linux_siginfo_fixup (siginfo_t *native, gdb_byte *inf, int direction) -{ - /* Is the inferior 32-bit? If so, then fixup the siginfo object. */ - if (!is_64bit_tdesc ()) - { - if (direction == 0) - aarch64_compat_siginfo_from_siginfo ((struct compat_siginfo *) inf, - native); - else - aarch64_siginfo_from_compat_siginfo (native, - (struct compat_siginfo *) inf); - - return 1; - } - - return 0; -} - -/* Implementation of linux_target_ops method "new_process". */ - -static struct arch_process_info * -aarch64_linux_new_process (void) -{ - struct arch_process_info *info = XCNEW (struct arch_process_info); - - aarch64_init_debug_reg_state (&info->debug_reg_state); - - return info; -} - -/* Implementation of linux_target_ops method "delete_process". */ - -static void -aarch64_linux_delete_process (struct arch_process_info *info) -{ - xfree (info); -} - -/* Implementation of linux_target_ops method "linux_new_fork". */ - -static void -aarch64_linux_new_fork (struct process_info *parent, - struct process_info *child) -{ - /* These are allocated by linux_add_process. */ - gdb_assert (parent->priv != NULL - && parent->priv->arch_private != NULL); - gdb_assert (child->priv != NULL - && child->priv->arch_private != NULL); - - /* Linux kernel before 2.6.33 commit - 72f674d203cd230426437cdcf7dd6f681dad8b0d - will inherit hardware debug registers from parent - on fork/vfork/clone. Newer Linux kernels create such tasks with - zeroed debug registers. - - GDB core assumes the child inherits the watchpoints/hw - breakpoints of the parent, and will remove them all from the - forked off process. Copy the debug registers mirrors into the - new process so that all breakpoints and watchpoints can be - removed together. The debug registers mirror will become zeroed - in the end before detaching the forked off process, thus making - this compatible with older Linux kernels too. */ - - *child->priv->arch_private = *parent->priv->arch_private; -} - -/* Matches HWCAP_PACA in kernel header arch/arm64/include/uapi/asm/hwcap.h. */ -#define AARCH64_HWCAP_PACA (1 << 30) - -/* Implementation of linux_target_ops method "arch_setup". */ - -static void -aarch64_arch_setup (void) -{ - unsigned int machine; - int is_elf64; - int tid; - - tid = lwpid_of (current_thread); - - is_elf64 = linux_pid_exe_is_elf_64_file (tid, &machine); - - if (is_elf64) - { - uint64_t vq = aarch64_sve_get_vq (tid); - unsigned long hwcap = linux_get_hwcap (8); - bool pauth_p = hwcap & AARCH64_HWCAP_PACA; - - current_process ()->tdesc = aarch64_linux_read_description (vq, pauth_p); - } - else - current_process ()->tdesc = aarch32_linux_read_description (); - - aarch64_linux_get_debug_reg_capacity (lwpid_of (current_thread)); -} - -/* Wrapper for aarch64_sve_regs_copy_to_reg_buf. */ - -static void -aarch64_sve_regs_copy_to_regcache (struct regcache *regcache, const void *buf) -{ - return aarch64_sve_regs_copy_to_reg_buf (regcache, buf); -} - -/* Wrapper for aarch64_sve_regs_copy_from_reg_buf. */ - -static void -aarch64_sve_regs_copy_from_regcache (struct regcache *regcache, void *buf) -{ - return aarch64_sve_regs_copy_from_reg_buf (regcache, buf); -} - -static struct regset_info aarch64_regsets[] = -{ - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PRSTATUS, - sizeof (struct user_pt_regs), GENERAL_REGS, - aarch64_fill_gregset, aarch64_store_gregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_FPREGSET, - sizeof (struct user_fpsimd_state), FP_REGS, - aarch64_fill_fpregset, aarch64_store_fpregset - }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_ARM_PAC_MASK, - AARCH64_PAUTH_REGS_SIZE, OPTIONAL_REGS, - NULL, aarch64_store_pauthregset }, - NULL_REGSET -}; - -static struct regsets_info aarch64_regsets_info = - { - aarch64_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct regs_info regs_info_aarch64 = - { - NULL, /* regset_bitmap */ - NULL, /* usrregs */ - &aarch64_regsets_info, - }; - -static struct regset_info aarch64_sve_regsets[] = -{ - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PRSTATUS, - sizeof (struct user_pt_regs), GENERAL_REGS, - aarch64_fill_gregset, aarch64_store_gregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_ARM_SVE, - SVE_PT_SIZE (AARCH64_MAX_SVE_VQ, SVE_PT_REGS_SVE), EXTENDED_REGS, - aarch64_sve_regs_copy_from_regcache, aarch64_sve_regs_copy_to_regcache - }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_ARM_PAC_MASK, - AARCH64_PAUTH_REGS_SIZE, OPTIONAL_REGS, - NULL, aarch64_store_pauthregset }, - NULL_REGSET -}; - -static struct regsets_info aarch64_sve_regsets_info = - { - aarch64_sve_regsets, /* regsets. */ - 0, /* num_regsets. */ - NULL, /* disabled_regsets. */ - }; - -static struct regs_info regs_info_aarch64_sve = - { - NULL, /* regset_bitmap. */ - NULL, /* usrregs. */ - &aarch64_sve_regsets_info, - }; - -/* Implementation of linux_target_ops method "regs_info". */ - -static const struct regs_info * -aarch64_regs_info (void) -{ - if (!is_64bit_tdesc ()) - return ®s_info_aarch32; - - if (is_sve_tdesc ()) - return ®s_info_aarch64_sve; - - return ®s_info_aarch64; -} - -/* Implementation of linux_target_ops method "supports_tracepoints". */ - -static int -aarch64_supports_tracepoints (void) -{ - if (current_thread == NULL) - return 1; - else - { - /* We don't support tracepoints on aarch32 now. */ - return is_64bit_tdesc (); - } -} - -/* Implementation of linux_target_ops method "get_thread_area". */ - -static int -aarch64_get_thread_area (int lwpid, CORE_ADDR *addrp) -{ - struct iovec iovec; - uint64_t reg; - - iovec.iov_base = ® - iovec.iov_len = sizeof (reg); - - if (ptrace (PTRACE_GETREGSET, lwpid, NT_ARM_TLS, &iovec) != 0) - return -1; - - *addrp = reg; - - return 0; -} - -/* Implementation of linux_target_ops method "get_syscall_trapinfo". */ - -static void -aarch64_get_syscall_trapinfo (struct regcache *regcache, int *sysno) -{ - int use_64bit = register_size (regcache->tdesc, 0) == 8; - - if (use_64bit) - { - long l_sysno; - - collect_register_by_name (regcache, "x8", &l_sysno); - *sysno = (int) l_sysno; - } - else - collect_register_by_name (regcache, "r7", sysno); -} - -/* List of condition codes that we need. */ - -enum aarch64_condition_codes -{ - EQ = 0x0, - NE = 0x1, - LO = 0x3, - GE = 0xa, - LT = 0xb, - GT = 0xc, - LE = 0xd, -}; - -enum aarch64_operand_type -{ - OPERAND_IMMEDIATE, - OPERAND_REGISTER, -}; - -/* Representation of an operand. At this time, it only supports register - and immediate types. */ - -struct aarch64_operand -{ - /* Type of the operand. */ - enum aarch64_operand_type type; - - /* Value of the operand according to the type. */ - union - { - uint32_t imm; - struct aarch64_register reg; - }; -}; - -/* List of registers that we are currently using, we can add more here as - we need to use them. */ - -/* General purpose scratch registers (64 bit). */ -static const struct aarch64_register x0 = { 0, 1 }; -static const struct aarch64_register x1 = { 1, 1 }; -static const struct aarch64_register x2 = { 2, 1 }; -static const struct aarch64_register x3 = { 3, 1 }; -static const struct aarch64_register x4 = { 4, 1 }; - -/* General purpose scratch registers (32 bit). */ -static const struct aarch64_register w0 = { 0, 0 }; -static const struct aarch64_register w2 = { 2, 0 }; - -/* Intra-procedure scratch registers. */ -static const struct aarch64_register ip0 = { 16, 1 }; - -/* Special purpose registers. */ -static const struct aarch64_register fp = { 29, 1 }; -static const struct aarch64_register lr = { 30, 1 }; -static const struct aarch64_register sp = { 31, 1 }; -static const struct aarch64_register xzr = { 31, 1 }; - -/* Dynamically allocate a new register. If we know the register - statically, we should make it a global as above instead of using this - helper function. */ - -static struct aarch64_register -aarch64_register (unsigned num, int is64) -{ - return (struct aarch64_register) { num, is64 }; -} - -/* Helper function to create a register operand, for instructions with - different types of operands. - - For example: - p += emit_mov (p, x0, register_operand (x1)); */ - -static struct aarch64_operand -register_operand (struct aarch64_register reg) -{ - struct aarch64_operand operand; - - operand.type = OPERAND_REGISTER; - operand.reg = reg; - - return operand; -} - -/* Helper function to create an immediate operand, for instructions with - different types of operands. - - For example: - p += emit_mov (p, x0, immediate_operand (12)); */ - -static struct aarch64_operand -immediate_operand (uint32_t imm) -{ - struct aarch64_operand operand; - - operand.type = OPERAND_IMMEDIATE; - operand.imm = imm; - - return operand; -} - -/* Helper function to create an offset memory operand. - - For example: - p += emit_ldr (p, x0, sp, offset_memory_operand (16)); */ - -static struct aarch64_memory_operand -offset_memory_operand (int32_t offset) -{ - return (struct aarch64_memory_operand) { MEMORY_OPERAND_OFFSET, offset }; -} - -/* Helper function to create a pre-index memory operand. - - For example: - p += emit_ldr (p, x0, sp, preindex_memory_operand (16)); */ - -static struct aarch64_memory_operand -preindex_memory_operand (int32_t index) -{ - return (struct aarch64_memory_operand) { MEMORY_OPERAND_PREINDEX, index }; -} - -/* Helper function to create a post-index memory operand. - - For example: - p += emit_ldr (p, x0, sp, postindex_memory_operand (16)); */ - -static struct aarch64_memory_operand -postindex_memory_operand (int32_t index) -{ - return (struct aarch64_memory_operand) { MEMORY_OPERAND_POSTINDEX, index }; -} - -/* System control registers. These special registers can be written and - read with the MRS and MSR instructions. - - - NZCV: Condition flags. GDB refers to this register under the CPSR - name. - - FPSR: Floating-point status register. - - FPCR: Floating-point control registers. - - TPIDR_EL0: Software thread ID register. */ - -enum aarch64_system_control_registers -{ - /* op0 op1 crn crm op2 */ - NZCV = (0x1 << 14) | (0x3 << 11) | (0x4 << 7) | (0x2 << 3) | 0x0, - FPSR = (0x1 << 14) | (0x3 << 11) | (0x4 << 7) | (0x4 << 3) | 0x1, - FPCR = (0x1 << 14) | (0x3 << 11) | (0x4 << 7) | (0x4 << 3) | 0x0, - TPIDR_EL0 = (0x1 << 14) | (0x3 << 11) | (0xd << 7) | (0x0 << 3) | 0x2 -}; - -/* Write a BLR instruction into *BUF. - - BLR rn - - RN is the register to branch to. */ - -static int -emit_blr (uint32_t *buf, struct aarch64_register rn) -{ - return aarch64_emit_insn (buf, BLR | ENCODE (rn.num, 5, 5)); -} - -/* Write a RET instruction into *BUF. - - RET xn - - RN is the register to branch to. */ - -static int -emit_ret (uint32_t *buf, struct aarch64_register rn) -{ - return aarch64_emit_insn (buf, RET | ENCODE (rn.num, 5, 5)); -} - -static int -emit_load_store_pair (uint32_t *buf, enum aarch64_opcodes opcode, - struct aarch64_register rt, - struct aarch64_register rt2, - struct aarch64_register rn, - struct aarch64_memory_operand operand) -{ - uint32_t opc; - uint32_t pre_index; - uint32_t write_back; - - if (rt.is64) - opc = ENCODE (2, 2, 30); - else - opc = ENCODE (0, 2, 30); - - switch (operand.type) - { - case MEMORY_OPERAND_OFFSET: - { - pre_index = ENCODE (1, 1, 24); - write_back = ENCODE (0, 1, 23); - break; - } - case MEMORY_OPERAND_POSTINDEX: - { - pre_index = ENCODE (0, 1, 24); - write_back = ENCODE (1, 1, 23); - break; - } - case MEMORY_OPERAND_PREINDEX: - { - pre_index = ENCODE (1, 1, 24); - write_back = ENCODE (1, 1, 23); - break; - } - default: - return 0; - } - - return aarch64_emit_insn (buf, opcode | opc | pre_index | write_back - | ENCODE (operand.index >> 3, 7, 15) - | ENCODE (rt2.num, 5, 10) - | ENCODE (rn.num, 5, 5) | ENCODE (rt.num, 5, 0)); -} - -/* Write a STP instruction into *BUF. - - STP rt, rt2, [rn, #offset] - STP rt, rt2, [rn, #index]! - STP rt, rt2, [rn], #index - - RT and RT2 are the registers to store. - RN is the base address register. - OFFSET is the immediate to add to the base address. It is limited to a - -512 .. 504 range (7 bits << 3). */ - -static int -emit_stp (uint32_t *buf, struct aarch64_register rt, - struct aarch64_register rt2, struct aarch64_register rn, - struct aarch64_memory_operand operand) -{ - return emit_load_store_pair (buf, STP, rt, rt2, rn, operand); -} - -/* Write a LDP instruction into *BUF. - - LDP rt, rt2, [rn, #offset] - LDP rt, rt2, [rn, #index]! - LDP rt, rt2, [rn], #index - - RT and RT2 are the registers to store. - RN is the base address register. - OFFSET is the immediate to add to the base address. It is limited to a - -512 .. 504 range (7 bits << 3). */ - -static int -emit_ldp (uint32_t *buf, struct aarch64_register rt, - struct aarch64_register rt2, struct aarch64_register rn, - struct aarch64_memory_operand operand) -{ - return emit_load_store_pair (buf, LDP, rt, rt2, rn, operand); -} - -/* Write a LDP (SIMD&VFP) instruction using Q registers into *BUF. - - LDP qt, qt2, [rn, #offset] - - RT and RT2 are the Q registers to store. - RN is the base address register. - OFFSET is the immediate to add to the base address. It is limited to - -1024 .. 1008 range (7 bits << 4). */ - -static int -emit_ldp_q_offset (uint32_t *buf, unsigned rt, unsigned rt2, - struct aarch64_register rn, int32_t offset) -{ - uint32_t opc = ENCODE (2, 2, 30); - uint32_t pre_index = ENCODE (1, 1, 24); - - return aarch64_emit_insn (buf, LDP_SIMD_VFP | opc | pre_index - | ENCODE (offset >> 4, 7, 15) - | ENCODE (rt2, 5, 10) - | ENCODE (rn.num, 5, 5) | ENCODE (rt, 5, 0)); -} - -/* Write a STP (SIMD&VFP) instruction using Q registers into *BUF. - - STP qt, qt2, [rn, #offset] - - RT and RT2 are the Q registers to store. - RN is the base address register. - OFFSET is the immediate to add to the base address. It is limited to - -1024 .. 1008 range (7 bits << 4). */ - -static int -emit_stp_q_offset (uint32_t *buf, unsigned rt, unsigned rt2, - struct aarch64_register rn, int32_t offset) -{ - uint32_t opc = ENCODE (2, 2, 30); - uint32_t pre_index = ENCODE (1, 1, 24); - - return aarch64_emit_insn (buf, STP_SIMD_VFP | opc | pre_index - | ENCODE (offset >> 4, 7, 15) - | ENCODE (rt2, 5, 10) - | ENCODE (rn.num, 5, 5) | ENCODE (rt, 5, 0)); -} - -/* Write a LDRH instruction into *BUF. - - LDRH wt, [xn, #offset] - LDRH wt, [xn, #index]! - LDRH wt, [xn], #index - - RT is the register to store. - RN is the base address register. - OFFSET is the immediate to add to the base address. It is limited to - 0 .. 32760 range (12 bits << 3). */ - -static int -emit_ldrh (uint32_t *buf, struct aarch64_register rt, - struct aarch64_register rn, - struct aarch64_memory_operand operand) -{ - return aarch64_emit_load_store (buf, 1, LDR, rt, rn, operand); -} - -/* Write a LDRB instruction into *BUF. - - LDRB wt, [xn, #offset] - LDRB wt, [xn, #index]! - LDRB wt, [xn], #index - - RT is the register to store. - RN is the base address register. - OFFSET is the immediate to add to the base address. It is limited to - 0 .. 32760 range (12 bits << 3). */ - -static int -emit_ldrb (uint32_t *buf, struct aarch64_register rt, - struct aarch64_register rn, - struct aarch64_memory_operand operand) -{ - return aarch64_emit_load_store (buf, 0, LDR, rt, rn, operand); -} - - - -/* Write a STR instruction into *BUF. - - STR rt, [rn, #offset] - STR rt, [rn, #index]! - STR rt, [rn], #index - - RT is the register to store. - RN is the base address register. - OFFSET is the immediate to add to the base address. It is limited to - 0 .. 32760 range (12 bits << 3). */ - -static int -emit_str (uint32_t *buf, struct aarch64_register rt, - struct aarch64_register rn, - struct aarch64_memory_operand operand) -{ - return aarch64_emit_load_store (buf, rt.is64 ? 3 : 2, STR, rt, rn, operand); -} - -/* Helper function emitting an exclusive load or store instruction. */ - -static int -emit_load_store_exclusive (uint32_t *buf, uint32_t size, - enum aarch64_opcodes opcode, - struct aarch64_register rs, - struct aarch64_register rt, - struct aarch64_register rt2, - struct aarch64_register rn) -{ - return aarch64_emit_insn (buf, opcode | ENCODE (size, 2, 30) - | ENCODE (rs.num, 5, 16) | ENCODE (rt2.num, 5, 10) - | ENCODE (rn.num, 5, 5) | ENCODE (rt.num, 5, 0)); -} - -/* Write a LAXR instruction into *BUF. - - LDAXR rt, [xn] - - RT is the destination register. - RN is the base address register. */ - -static int -emit_ldaxr (uint32_t *buf, struct aarch64_register rt, - struct aarch64_register rn) -{ - return emit_load_store_exclusive (buf, rt.is64 ? 3 : 2, LDAXR, xzr, rt, - xzr, rn); -} - -/* Write a STXR instruction into *BUF. - - STXR ws, rt, [xn] - - RS is the result register, it indicates if the store succeeded or not. - RT is the destination register. - RN is the base address register. */ - -static int -emit_stxr (uint32_t *buf, struct aarch64_register rs, - struct aarch64_register rt, struct aarch64_register rn) -{ - return emit_load_store_exclusive (buf, rt.is64 ? 3 : 2, STXR, rs, rt, - xzr, rn); -} - -/* Write a STLR instruction into *BUF. - - STLR rt, [xn] - - RT is the register to store. - RN is the base address register. */ - -static int -emit_stlr (uint32_t *buf, struct aarch64_register rt, - struct aarch64_register rn) -{ - return emit_load_store_exclusive (buf, rt.is64 ? 3 : 2, STLR, xzr, rt, - xzr, rn); -} - -/* Helper function for data processing instructions with register sources. */ - -static int -emit_data_processing_reg (uint32_t *buf, uint32_t opcode, - struct aarch64_register rd, - struct aarch64_register rn, - struct aarch64_register rm) -{ - uint32_t size = ENCODE (rd.is64, 1, 31); - - return aarch64_emit_insn (buf, opcode | size | ENCODE (rm.num, 5, 16) - | ENCODE (rn.num, 5, 5) | ENCODE (rd.num, 5, 0)); -} - -/* Helper function for data processing instructions taking either a register - or an immediate. */ - -static int -emit_data_processing (uint32_t *buf, enum aarch64_opcodes opcode, - struct aarch64_register rd, - struct aarch64_register rn, - struct aarch64_operand operand) -{ - uint32_t size = ENCODE (rd.is64, 1, 31); - /* The opcode is different for register and immediate source operands. */ - uint32_t operand_opcode; - - if (operand.type == OPERAND_IMMEDIATE) - { - /* xxx1 000x xxxx xxxx xxxx xxxx xxxx xxxx */ - operand_opcode = ENCODE (8, 4, 25); - - return aarch64_emit_insn (buf, opcode | operand_opcode | size - | ENCODE (operand.imm, 12, 10) - | ENCODE (rn.num, 5, 5) - | ENCODE (rd.num, 5, 0)); - } - else - { - /* xxx0 101x xxxx xxxx xxxx xxxx xxxx xxxx */ - operand_opcode = ENCODE (5, 4, 25); - - return emit_data_processing_reg (buf, opcode | operand_opcode, rd, - rn, operand.reg); - } -} - -/* Write an ADD instruction into *BUF. - - ADD rd, rn, #imm - ADD rd, rn, rm - - This function handles both an immediate and register add. - - RD is the destination register. - RN is the input register. - OPERAND is the source operand, either of type OPERAND_IMMEDIATE or - OPERAND_REGISTER. */ - -static int -emit_add (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, struct aarch64_operand operand) -{ - return emit_data_processing (buf, ADD, rd, rn, operand); -} - -/* Write a SUB instruction into *BUF. - - SUB rd, rn, #imm - SUB rd, rn, rm - - This function handles both an immediate and register sub. - - RD is the destination register. - RN is the input register. - IMM is the immediate to substract to RN. */ - -static int -emit_sub (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, struct aarch64_operand operand) -{ - return emit_data_processing (buf, SUB, rd, rn, operand); -} - -/* Write a MOV instruction into *BUF. - - MOV rd, #imm - MOV rd, rm - - This function handles both a wide immediate move and a register move, - with the condition that the source register is not xzr. xzr and the - stack pointer share the same encoding and this function only supports - the stack pointer. - - RD is the destination register. - OPERAND is the source operand, either of type OPERAND_IMMEDIATE or - OPERAND_REGISTER. */ - -static int -emit_mov (uint32_t *buf, struct aarch64_register rd, - struct aarch64_operand operand) -{ - if (operand.type == OPERAND_IMMEDIATE) - { - uint32_t size = ENCODE (rd.is64, 1, 31); - /* Do not shift the immediate. */ - uint32_t shift = ENCODE (0, 2, 21); - - return aarch64_emit_insn (buf, MOV | size | shift - | ENCODE (operand.imm, 16, 5) - | ENCODE (rd.num, 5, 0)); - } - else - return emit_add (buf, rd, operand.reg, immediate_operand (0)); -} - -/* Write a MOVK instruction into *BUF. - - MOVK rd, #imm, lsl #shift - - RD is the destination register. - IMM is the immediate. - SHIFT is the logical shift left to apply to IMM. */ - -static int -emit_movk (uint32_t *buf, struct aarch64_register rd, uint32_t imm, - unsigned shift) -{ - uint32_t size = ENCODE (rd.is64, 1, 31); - - return aarch64_emit_insn (buf, MOVK | size | ENCODE (shift, 2, 21) | - ENCODE (imm, 16, 5) | ENCODE (rd.num, 5, 0)); -} - -/* Write instructions into *BUF in order to move ADDR into a register. - ADDR can be a 64-bit value. - - This function will emit a series of MOV and MOVK instructions, such as: - - MOV xd, #(addr) - MOVK xd, #(addr >> 16), lsl #16 - MOVK xd, #(addr >> 32), lsl #32 - MOVK xd, #(addr >> 48), lsl #48 */ - -static int -emit_mov_addr (uint32_t *buf, struct aarch64_register rd, CORE_ADDR addr) -{ - uint32_t *p = buf; - - /* The MOV (wide immediate) instruction clears to top bits of the - register. */ - p += emit_mov (p, rd, immediate_operand (addr & 0xffff)); - - if ((addr >> 16) != 0) - p += emit_movk (p, rd, (addr >> 16) & 0xffff, 1); - else - return p - buf; - - if ((addr >> 32) != 0) - p += emit_movk (p, rd, (addr >> 32) & 0xffff, 2); - else - return p - buf; - - if ((addr >> 48) != 0) - p += emit_movk (p, rd, (addr >> 48) & 0xffff, 3); - - return p - buf; -} - -/* Write a SUBS instruction into *BUF. - - SUBS rd, rn, rm - - This instruction update the condition flags. - - RD is the destination register. - RN and RM are the source registers. */ - -static int -emit_subs (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, struct aarch64_operand operand) -{ - return emit_data_processing (buf, SUBS, rd, rn, operand); -} - -/* Write a CMP instruction into *BUF. - - CMP rn, rm - - This instruction is an alias of SUBS xzr, rn, rm. - - RN and RM are the registers to compare. */ - -static int -emit_cmp (uint32_t *buf, struct aarch64_register rn, - struct aarch64_operand operand) -{ - return emit_subs (buf, xzr, rn, operand); -} - -/* Write a AND instruction into *BUF. - - AND rd, rn, rm - - RD is the destination register. - RN and RM are the source registers. */ - -static int -emit_and (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, struct aarch64_register rm) -{ - return emit_data_processing_reg (buf, AND, rd, rn, rm); -} - -/* Write a ORR instruction into *BUF. - - ORR rd, rn, rm - - RD is the destination register. - RN and RM are the source registers. */ - -static int -emit_orr (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, struct aarch64_register rm) -{ - return emit_data_processing_reg (buf, ORR, rd, rn, rm); -} - -/* Write a ORN instruction into *BUF. - - ORN rd, rn, rm - - RD is the destination register. - RN and RM are the source registers. */ - -static int -emit_orn (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, struct aarch64_register rm) -{ - return emit_data_processing_reg (buf, ORN, rd, rn, rm); -} - -/* Write a EOR instruction into *BUF. - - EOR rd, rn, rm - - RD is the destination register. - RN and RM are the source registers. */ - -static int -emit_eor (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, struct aarch64_register rm) -{ - return emit_data_processing_reg (buf, EOR, rd, rn, rm); -} - -/* Write a MVN instruction into *BUF. - - MVN rd, rm - - This is an alias for ORN rd, xzr, rm. - - RD is the destination register. - RM is the source register. */ - -static int -emit_mvn (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rm) -{ - return emit_orn (buf, rd, xzr, rm); -} - -/* Write a LSLV instruction into *BUF. - - LSLV rd, rn, rm - - RD is the destination register. - RN and RM are the source registers. */ - -static int -emit_lslv (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, struct aarch64_register rm) -{ - return emit_data_processing_reg (buf, LSLV, rd, rn, rm); -} - -/* Write a LSRV instruction into *BUF. - - LSRV rd, rn, rm - - RD is the destination register. - RN and RM are the source registers. */ - -static int -emit_lsrv (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, struct aarch64_register rm) -{ - return emit_data_processing_reg (buf, LSRV, rd, rn, rm); -} - -/* Write a ASRV instruction into *BUF. - - ASRV rd, rn, rm - - RD is the destination register. - RN and RM are the source registers. */ - -static int -emit_asrv (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, struct aarch64_register rm) -{ - return emit_data_processing_reg (buf, ASRV, rd, rn, rm); -} - -/* Write a MUL instruction into *BUF. - - MUL rd, rn, rm - - RD is the destination register. - RN and RM are the source registers. */ - -static int -emit_mul (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, struct aarch64_register rm) -{ - return emit_data_processing_reg (buf, MUL, rd, rn, rm); -} - -/* Write a MRS instruction into *BUF. The register size is 64-bit. - - MRS xt, system_reg - - RT is the destination register. - SYSTEM_REG is special purpose register to read. */ - -static int -emit_mrs (uint32_t *buf, struct aarch64_register rt, - enum aarch64_system_control_registers system_reg) -{ - return aarch64_emit_insn (buf, MRS | ENCODE (system_reg, 15, 5) - | ENCODE (rt.num, 5, 0)); -} - -/* Write a MSR instruction into *BUF. The register size is 64-bit. - - MSR system_reg, xt - - SYSTEM_REG is special purpose register to write. - RT is the input register. */ - -static int -emit_msr (uint32_t *buf, enum aarch64_system_control_registers system_reg, - struct aarch64_register rt) -{ - return aarch64_emit_insn (buf, MSR | ENCODE (system_reg, 15, 5) - | ENCODE (rt.num, 5, 0)); -} - -/* Write a SEVL instruction into *BUF. - - This is a hint instruction telling the hardware to trigger an event. */ - -static int -emit_sevl (uint32_t *buf) -{ - return aarch64_emit_insn (buf, SEVL); -} - -/* Write a WFE instruction into *BUF. - - This is a hint instruction telling the hardware to wait for an event. */ - -static int -emit_wfe (uint32_t *buf) -{ - return aarch64_emit_insn (buf, WFE); -} - -/* Write a SBFM instruction into *BUF. - - SBFM rd, rn, #immr, #imms - - This instruction moves the bits from #immr to #imms into the - destination, sign extending the result. - - RD is the destination register. - RN is the source register. - IMMR is the bit number to start at (least significant bit). - IMMS is the bit number to stop at (most significant bit). */ - -static int -emit_sbfm (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, uint32_t immr, uint32_t imms) -{ - uint32_t size = ENCODE (rd.is64, 1, 31); - uint32_t n = ENCODE (rd.is64, 1, 22); - - return aarch64_emit_insn (buf, SBFM | size | n | ENCODE (immr, 6, 16) - | ENCODE (imms, 6, 10) | ENCODE (rn.num, 5, 5) - | ENCODE (rd.num, 5, 0)); -} - -/* Write a SBFX instruction into *BUF. - - SBFX rd, rn, #lsb, #width - - This instruction moves #width bits from #lsb into the destination, sign - extending the result. This is an alias for: - - SBFM rd, rn, #lsb, #(lsb + width - 1) - - RD is the destination register. - RN is the source register. - LSB is the bit number to start at (least significant bit). - WIDTH is the number of bits to move. */ - -static int -emit_sbfx (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, uint32_t lsb, uint32_t width) -{ - return emit_sbfm (buf, rd, rn, lsb, lsb + width - 1); -} - -/* Write a UBFM instruction into *BUF. - - UBFM rd, rn, #immr, #imms - - This instruction moves the bits from #immr to #imms into the - destination, extending the result with zeros. - - RD is the destination register. - RN is the source register. - IMMR is the bit number to start at (least significant bit). - IMMS is the bit number to stop at (most significant bit). */ - -static int -emit_ubfm (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, uint32_t immr, uint32_t imms) -{ - uint32_t size = ENCODE (rd.is64, 1, 31); - uint32_t n = ENCODE (rd.is64, 1, 22); - - return aarch64_emit_insn (buf, UBFM | size | n | ENCODE (immr, 6, 16) - | ENCODE (imms, 6, 10) | ENCODE (rn.num, 5, 5) - | ENCODE (rd.num, 5, 0)); -} - -/* Write a UBFX instruction into *BUF. - - UBFX rd, rn, #lsb, #width - - This instruction moves #width bits from #lsb into the destination, - extending the result with zeros. This is an alias for: - - UBFM rd, rn, #lsb, #(lsb + width - 1) - - RD is the destination register. - RN is the source register. - LSB is the bit number to start at (least significant bit). - WIDTH is the number of bits to move. */ - -static int -emit_ubfx (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, uint32_t lsb, uint32_t width) -{ - return emit_ubfm (buf, rd, rn, lsb, lsb + width - 1); -} - -/* Write a CSINC instruction into *BUF. - - CSINC rd, rn, rm, cond - - This instruction conditionally increments rn or rm and places the result - in rd. rn is chosen is the condition is true. - - RD is the destination register. - RN and RM are the source registers. - COND is the encoded condition. */ - -static int -emit_csinc (uint32_t *buf, struct aarch64_register rd, - struct aarch64_register rn, struct aarch64_register rm, - unsigned cond) -{ - uint32_t size = ENCODE (rd.is64, 1, 31); - - return aarch64_emit_insn (buf, CSINC | size | ENCODE (rm.num, 5, 16) - | ENCODE (cond, 4, 12) | ENCODE (rn.num, 5, 5) - | ENCODE (rd.num, 5, 0)); -} - -/* Write a CSET instruction into *BUF. - - CSET rd, cond - - This instruction conditionally write 1 or 0 in the destination register. - 1 is written if the condition is true. This is an alias for: - - CSINC rd, xzr, xzr, !cond - - Note that the condition needs to be inverted. - - RD is the destination register. - RN and RM are the source registers. - COND is the encoded condition. */ - -static int -emit_cset (uint32_t *buf, struct aarch64_register rd, unsigned cond) -{ - /* The least significant bit of the condition needs toggling in order to - invert it. */ - return emit_csinc (buf, rd, xzr, xzr, cond ^ 0x1); -} - -/* Write LEN instructions from BUF into the inferior memory at *TO. - - Note instructions are always little endian on AArch64, unlike data. */ - -static void -append_insns (CORE_ADDR *to, size_t len, const uint32_t *buf) -{ - size_t byte_len = len * sizeof (uint32_t); -#if (__BYTE_ORDER == __BIG_ENDIAN) - uint32_t *le_buf = (uint32_t *) xmalloc (byte_len); - size_t i; - - for (i = 0; i < len; i++) - le_buf[i] = htole32 (buf[i]); - - target_write_memory (*to, (const unsigned char *) le_buf, byte_len); - - xfree (le_buf); -#else - target_write_memory (*to, (const unsigned char *) buf, byte_len); -#endif - - *to += byte_len; -} - -/* Sub-class of struct aarch64_insn_data, store information of - instruction relocation for fast tracepoint. Visitor can - relocate an instruction from BASE.INSN_ADDR to NEW_ADDR and save - the relocated instructions in buffer pointed by INSN_PTR. */ - -struct aarch64_insn_relocation_data -{ - struct aarch64_insn_data base; - - /* The new address the instruction is relocated to. */ - CORE_ADDR new_addr; - /* Pointer to the buffer of relocated instruction(s). */ - uint32_t *insn_ptr; -}; - -/* Implementation of aarch64_insn_visitor method "b". */ - -static void -aarch64_ftrace_insn_reloc_b (const int is_bl, const int32_t offset, - struct aarch64_insn_data *data) -{ - struct aarch64_insn_relocation_data *insn_reloc - = (struct aarch64_insn_relocation_data *) data; - int64_t new_offset - = insn_reloc->base.insn_addr - insn_reloc->new_addr + offset; - - if (can_encode_int32 (new_offset, 28)) - insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, is_bl, new_offset); -} - -/* Implementation of aarch64_insn_visitor method "b_cond". */ - -static void -aarch64_ftrace_insn_reloc_b_cond (const unsigned cond, const int32_t offset, - struct aarch64_insn_data *data) -{ - struct aarch64_insn_relocation_data *insn_reloc - = (struct aarch64_insn_relocation_data *) data; - int64_t new_offset - = insn_reloc->base.insn_addr - insn_reloc->new_addr + offset; - - if (can_encode_int32 (new_offset, 21)) - { - insn_reloc->insn_ptr += emit_bcond (insn_reloc->insn_ptr, cond, - new_offset); - } - else if (can_encode_int32 (new_offset, 28)) - { - /* The offset is out of range for a conditional branch - instruction but not for a unconditional branch. We can use - the following instructions instead: - - B.COND TAKEN ; If cond is true, then jump to TAKEN. - B NOT_TAKEN ; Else jump over TAKEN and continue. - TAKEN: - B #(offset - 8) - NOT_TAKEN: - - */ - - insn_reloc->insn_ptr += emit_bcond (insn_reloc->insn_ptr, cond, 8); - insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, 0, 8); - insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, 0, new_offset - 8); - } -} - -/* Implementation of aarch64_insn_visitor method "cb". */ - -static void -aarch64_ftrace_insn_reloc_cb (const int32_t offset, const int is_cbnz, - const unsigned rn, int is64, - struct aarch64_insn_data *data) -{ - struct aarch64_insn_relocation_data *insn_reloc - = (struct aarch64_insn_relocation_data *) data; - int64_t new_offset - = insn_reloc->base.insn_addr - insn_reloc->new_addr + offset; - - if (can_encode_int32 (new_offset, 21)) - { - insn_reloc->insn_ptr += emit_cb (insn_reloc->insn_ptr, is_cbnz, - aarch64_register (rn, is64), new_offset); - } - else if (can_encode_int32 (new_offset, 28)) - { - /* The offset is out of range for a compare and branch - instruction but not for a unconditional branch. We can use - the following instructions instead: - - CBZ xn, TAKEN ; xn == 0, then jump to TAKEN. - B NOT_TAKEN ; Else jump over TAKEN and continue. - TAKEN: - B #(offset - 8) - NOT_TAKEN: - - */ - insn_reloc->insn_ptr += emit_cb (insn_reloc->insn_ptr, is_cbnz, - aarch64_register (rn, is64), 8); - insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, 0, 8); - insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, 0, new_offset - 8); - } -} - -/* Implementation of aarch64_insn_visitor method "tb". */ - -static void -aarch64_ftrace_insn_reloc_tb (const int32_t offset, int is_tbnz, - const unsigned rt, unsigned bit, - struct aarch64_insn_data *data) -{ - struct aarch64_insn_relocation_data *insn_reloc - = (struct aarch64_insn_relocation_data *) data; - int64_t new_offset - = insn_reloc->base.insn_addr - insn_reloc->new_addr + offset; - - if (can_encode_int32 (new_offset, 16)) - { - insn_reloc->insn_ptr += emit_tb (insn_reloc->insn_ptr, is_tbnz, bit, - aarch64_register (rt, 1), new_offset); - } - else if (can_encode_int32 (new_offset, 28)) - { - /* The offset is out of range for a test bit and branch - instruction but not for a unconditional branch. We can use - the following instructions instead: - - TBZ xn, #bit, TAKEN ; xn[bit] == 0, then jump to TAKEN. - B NOT_TAKEN ; Else jump over TAKEN and continue. - TAKEN: - B #(offset - 8) - NOT_TAKEN: - - */ - insn_reloc->insn_ptr += emit_tb (insn_reloc->insn_ptr, is_tbnz, bit, - aarch64_register (rt, 1), 8); - insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, 0, 8); - insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, 0, - new_offset - 8); - } -} - -/* Implementation of aarch64_insn_visitor method "adr". */ - -static void -aarch64_ftrace_insn_reloc_adr (const int32_t offset, const unsigned rd, - const int is_adrp, - struct aarch64_insn_data *data) -{ - struct aarch64_insn_relocation_data *insn_reloc - = (struct aarch64_insn_relocation_data *) data; - /* We know exactly the address the ADR{P,} instruction will compute. - We can just write it to the destination register. */ - CORE_ADDR address = data->insn_addr + offset; - - if (is_adrp) - { - /* Clear the lower 12 bits of the offset to get the 4K page. */ - insn_reloc->insn_ptr += emit_mov_addr (insn_reloc->insn_ptr, - aarch64_register (rd, 1), - address & ~0xfff); - } - else - insn_reloc->insn_ptr += emit_mov_addr (insn_reloc->insn_ptr, - aarch64_register (rd, 1), address); -} - -/* Implementation of aarch64_insn_visitor method "ldr_literal". */ - -static void -aarch64_ftrace_insn_reloc_ldr_literal (const int32_t offset, const int is_sw, - const unsigned rt, const int is64, - struct aarch64_insn_data *data) -{ - struct aarch64_insn_relocation_data *insn_reloc - = (struct aarch64_insn_relocation_data *) data; - CORE_ADDR address = data->insn_addr + offset; - - insn_reloc->insn_ptr += emit_mov_addr (insn_reloc->insn_ptr, - aarch64_register (rt, 1), address); - - /* We know exactly what address to load from, and what register we - can use: - - MOV xd, #(oldloc + offset) - MOVK xd, #((oldloc + offset) >> 16), lsl #16 - ... - - LDR xd, [xd] ; or LDRSW xd, [xd] - - */ - - if (is_sw) - insn_reloc->insn_ptr += emit_ldrsw (insn_reloc->insn_ptr, - aarch64_register (rt, 1), - aarch64_register (rt, 1), - offset_memory_operand (0)); - else - insn_reloc->insn_ptr += emit_ldr (insn_reloc->insn_ptr, - aarch64_register (rt, is64), - aarch64_register (rt, 1), - offset_memory_operand (0)); -} - -/* Implementation of aarch64_insn_visitor method "others". */ - -static void -aarch64_ftrace_insn_reloc_others (const uint32_t insn, - struct aarch64_insn_data *data) -{ - struct aarch64_insn_relocation_data *insn_reloc - = (struct aarch64_insn_relocation_data *) data; - - /* The instruction is not PC relative. Just re-emit it at the new - location. */ - insn_reloc->insn_ptr += aarch64_emit_insn (insn_reloc->insn_ptr, insn); -} - -static const struct aarch64_insn_visitor visitor = -{ - aarch64_ftrace_insn_reloc_b, - aarch64_ftrace_insn_reloc_b_cond, - aarch64_ftrace_insn_reloc_cb, - aarch64_ftrace_insn_reloc_tb, - aarch64_ftrace_insn_reloc_adr, - aarch64_ftrace_insn_reloc_ldr_literal, - aarch64_ftrace_insn_reloc_others, -}; - -/* Implementation of linux_target_ops method - "install_fast_tracepoint_jump_pad". */ - -static int -aarch64_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, - CORE_ADDR tpaddr, - CORE_ADDR collector, - CORE_ADDR lockaddr, - ULONGEST orig_size, - CORE_ADDR *jump_entry, - CORE_ADDR *trampoline, - ULONGEST *trampoline_size, - unsigned char *jjump_pad_insn, - ULONGEST *jjump_pad_insn_size, - CORE_ADDR *adjusted_insn_addr, - CORE_ADDR *adjusted_insn_addr_end, - char *err) -{ - uint32_t buf[256]; - uint32_t *p = buf; - int64_t offset; - int i; - uint32_t insn; - CORE_ADDR buildaddr = *jump_entry; - struct aarch64_insn_relocation_data insn_data; - - /* We need to save the current state on the stack both to restore it - later and to collect register values when the tracepoint is hit. - - The saved registers are pushed in a layout that needs to be in sync - with aarch64_ft_collect_regmap (see linux-aarch64-ipa.c). Later on - the supply_fast_tracepoint_registers function will fill in the - register cache from a pointer to saved registers on the stack we build - here. - - For simplicity, we set the size of each cell on the stack to 16 bytes. - This way one cell can hold any register type, from system registers - to the 128 bit SIMD&FP registers. Furthermore, the stack pointer - has to be 16 bytes aligned anyway. - - Note that the CPSR register does not exist on AArch64. Instead we - can access system bits describing the process state with the - MRS/MSR instructions, namely the condition flags. We save them as - if they are part of a CPSR register because that's how GDB - interprets these system bits. At the moment, only the condition - flags are saved in CPSR (NZCV). - - Stack layout, each cell is 16 bytes (descending): - - High *-------- SIMD&FP registers from 31 down to 0. --------* - | q31 | - . . - . . 32 cells - . . - | q0 | - *---- General purpose registers from 30 down to 0. ----* - | x30 | - . . - . . 31 cells - . . - | x0 | - *------------- Special purpose registers. -------------* - | SP | - | PC | - | CPSR (NZCV) | 5 cells - | FPSR | - | FPCR | <- SP + 16 - *------------- collecting_t object --------------------* - | TPIDR_EL0 | struct tracepoint * | - Low *------------------------------------------------------* - - After this stack is set up, we issue a call to the collector, passing - it the saved registers at (SP + 16). */ - - /* Push SIMD&FP registers on the stack: - - SUB sp, sp, #(32 * 16) - - STP q30, q31, [sp, #(30 * 16)] - ... - STP q0, q1, [sp] - - */ - p += emit_sub (p, sp, sp, immediate_operand (32 * 16)); - for (i = 30; i >= 0; i -= 2) - p += emit_stp_q_offset (p, i, i + 1, sp, i * 16); - - /* Push general purpose registers on the stack. Note that we do not need - to push x31 as it represents the xzr register and not the stack - pointer in a STR instruction. - - SUB sp, sp, #(31 * 16) - - STR x30, [sp, #(30 * 16)] - ... - STR x0, [sp] - - */ - p += emit_sub (p, sp, sp, immediate_operand (31 * 16)); - for (i = 30; i >= 0; i -= 1) - p += emit_str (p, aarch64_register (i, 1), sp, - offset_memory_operand (i * 16)); - - /* Make space for 5 more cells. - - SUB sp, sp, #(5 * 16) - - */ - p += emit_sub (p, sp, sp, immediate_operand (5 * 16)); - - - /* Save SP: - - ADD x4, sp, #((32 + 31 + 5) * 16) - STR x4, [sp, #(4 * 16)] - - */ - p += emit_add (p, x4, sp, immediate_operand ((32 + 31 + 5) * 16)); - p += emit_str (p, x4, sp, offset_memory_operand (4 * 16)); - - /* Save PC (tracepoint address): - - MOV x3, #(tpaddr) - ... - - STR x3, [sp, #(3 * 16)] - - */ - - p += emit_mov_addr (p, x3, tpaddr); - p += emit_str (p, x3, sp, offset_memory_operand (3 * 16)); - - /* Save CPSR (NZCV), FPSR and FPCR: - - MRS x2, nzcv - MRS x1, fpsr - MRS x0, fpcr - - STR x2, [sp, #(2 * 16)] - STR x1, [sp, #(1 * 16)] - STR x0, [sp, #(0 * 16)] - - */ - p += emit_mrs (p, x2, NZCV); - p += emit_mrs (p, x1, FPSR); - p += emit_mrs (p, x0, FPCR); - p += emit_str (p, x2, sp, offset_memory_operand (2 * 16)); - p += emit_str (p, x1, sp, offset_memory_operand (1 * 16)); - p += emit_str (p, x0, sp, offset_memory_operand (0 * 16)); - - /* Push the collecting_t object. It consist of the address of the - tracepoint and an ID for the current thread. We get the latter by - reading the tpidr_el0 system register. It corresponds to the - NT_ARM_TLS register accessible with ptrace. - - MOV x0, #(tpoint) - ... - - MRS x1, tpidr_el0 - - STP x0, x1, [sp, #-16]! - - */ - - p += emit_mov_addr (p, x0, tpoint); - p += emit_mrs (p, x1, TPIDR_EL0); - p += emit_stp (p, x0, x1, sp, preindex_memory_operand (-16)); - - /* Spin-lock: - - The shared memory for the lock is at lockaddr. It will hold zero - if no-one is holding the lock, otherwise it contains the address of - the collecting_t object on the stack of the thread which acquired it. - - At this stage, the stack pointer points to this thread's collecting_t - object. - - We use the following registers: - - x0: Address of the lock. - - x1: Pointer to collecting_t object. - - x2: Scratch register. - - MOV x0, #(lockaddr) - ... - MOV x1, sp - - ; Trigger an event local to this core. So the following WFE - ; instruction is ignored. - SEVL - again: - ; Wait for an event. The event is triggered by either the SEVL - ; or STLR instructions (store release). - WFE - - ; Atomically read at lockaddr. This marks the memory location as - ; exclusive. This instruction also has memory constraints which - ; make sure all previous data reads and writes are done before - ; executing it. - LDAXR x2, [x0] - - ; Try again if another thread holds the lock. - CBNZ x2, again - - ; We can lock it! Write the address of the collecting_t object. - ; This instruction will fail if the memory location is not marked - ; as exclusive anymore. If it succeeds, it will remove the - ; exclusive mark on the memory location. This way, if another - ; thread executes this instruction before us, we will fail and try - ; all over again. - STXR w2, x1, [x0] - CBNZ w2, again - - */ - - p += emit_mov_addr (p, x0, lockaddr); - p += emit_mov (p, x1, register_operand (sp)); - - p += emit_sevl (p); - p += emit_wfe (p); - p += emit_ldaxr (p, x2, x0); - p += emit_cb (p, 1, w2, -2 * 4); - p += emit_stxr (p, w2, x1, x0); - p += emit_cb (p, 1, x2, -4 * 4); - - /* Call collector (struct tracepoint *, unsigned char *): - - MOV x0, #(tpoint) - ... - - ; Saved registers start after the collecting_t object. - ADD x1, sp, #16 - - ; We use an intra-procedure-call scratch register. - MOV ip0, #(collector) - ... - - ; And call back to C! - BLR ip0 - - */ - - p += emit_mov_addr (p, x0, tpoint); - p += emit_add (p, x1, sp, immediate_operand (16)); - - p += emit_mov_addr (p, ip0, collector); - p += emit_blr (p, ip0); - - /* Release the lock. - - MOV x0, #(lockaddr) - ... - - ; This instruction is a normal store with memory ordering - ; constraints. Thanks to this we do not have to put a data - ; barrier instruction to make sure all data read and writes are done - ; before this instruction is executed. Furthermore, this instruction - ; will trigger an event, letting other threads know they can grab - ; the lock. - STLR xzr, [x0] - - */ - p += emit_mov_addr (p, x0, lockaddr); - p += emit_stlr (p, xzr, x0); - - /* Free collecting_t object: - - ADD sp, sp, #16 - - */ - p += emit_add (p, sp, sp, immediate_operand (16)); - - /* Restore CPSR (NZCV), FPSR and FPCR. And free all special purpose - registers from the stack. - - LDR x2, [sp, #(2 * 16)] - LDR x1, [sp, #(1 * 16)] - LDR x0, [sp, #(0 * 16)] - - MSR NZCV, x2 - MSR FPSR, x1 - MSR FPCR, x0 - - ADD sp, sp #(5 * 16) - - */ - p += emit_ldr (p, x2, sp, offset_memory_operand (2 * 16)); - p += emit_ldr (p, x1, sp, offset_memory_operand (1 * 16)); - p += emit_ldr (p, x0, sp, offset_memory_operand (0 * 16)); - p += emit_msr (p, NZCV, x2); - p += emit_msr (p, FPSR, x1); - p += emit_msr (p, FPCR, x0); - - p += emit_add (p, sp, sp, immediate_operand (5 * 16)); - - /* Pop general purpose registers: - - LDR x0, [sp] - ... - LDR x30, [sp, #(30 * 16)] - - ADD sp, sp, #(31 * 16) - - */ - for (i = 0; i <= 30; i += 1) - p += emit_ldr (p, aarch64_register (i, 1), sp, - offset_memory_operand (i * 16)); - p += emit_add (p, sp, sp, immediate_operand (31 * 16)); - - /* Pop SIMD&FP registers: - - LDP q0, q1, [sp] - ... - LDP q30, q31, [sp, #(30 * 16)] - - ADD sp, sp, #(32 * 16) - - */ - for (i = 0; i <= 30; i += 2) - p += emit_ldp_q_offset (p, i, i + 1, sp, i * 16); - p += emit_add (p, sp, sp, immediate_operand (32 * 16)); - - /* Write the code into the inferior memory. */ - append_insns (&buildaddr, p - buf, buf); - - /* Now emit the relocated instruction. */ - *adjusted_insn_addr = buildaddr; - target_read_uint32 (tpaddr, &insn); - - insn_data.base.insn_addr = tpaddr; - insn_data.new_addr = buildaddr; - insn_data.insn_ptr = buf; - - aarch64_relocate_instruction (insn, &visitor, - (struct aarch64_insn_data *) &insn_data); - - /* We may not have been able to relocate the instruction. */ - if (insn_data.insn_ptr == buf) - { - sprintf (err, - "E.Could not relocate instruction from %s to %s.", - core_addr_to_string_nz (tpaddr), - core_addr_to_string_nz (buildaddr)); - return 1; - } - else - append_insns (&buildaddr, insn_data.insn_ptr - buf, buf); - *adjusted_insn_addr_end = buildaddr; - - /* Go back to the start of the buffer. */ - p = buf; - - /* Emit a branch back from the jump pad. */ - offset = (tpaddr + orig_size - buildaddr); - if (!can_encode_int32 (offset, 28)) - { - sprintf (err, - "E.Jump back from jump pad too far from tracepoint " - "(offset 0x%" PRIx64 " cannot be encoded in 28 bits).", - offset); - return 1; - } - - p += emit_b (p, 0, offset); - append_insns (&buildaddr, p - buf, buf); - - /* Give the caller a branch instruction into the jump pad. */ - offset = (*jump_entry - tpaddr); - if (!can_encode_int32 (offset, 28)) - { - sprintf (err, - "E.Jump pad too far from tracepoint " - "(offset 0x%" PRIx64 " cannot be encoded in 28 bits).", - offset); - return 1; - } - - emit_b ((uint32_t *) jjump_pad_insn, 0, offset); - *jjump_pad_insn_size = 4; - - /* Return the end address of our pad. */ - *jump_entry = buildaddr; - - return 0; -} - -/* Helper function writing LEN instructions from START into - current_insn_ptr. */ - -static void -emit_ops_insns (const uint32_t *start, int len) -{ - CORE_ADDR buildaddr = current_insn_ptr; - - if (debug_threads) - debug_printf ("Adding %d instrucions at %s\n", - len, paddress (buildaddr)); - - append_insns (&buildaddr, len, start); - current_insn_ptr = buildaddr; -} - -/* Pop a register from the stack. */ - -static int -emit_pop (uint32_t *buf, struct aarch64_register rt) -{ - return emit_ldr (buf, rt, sp, postindex_memory_operand (1 * 16)); -} - -/* Push a register on the stack. */ - -static int -emit_push (uint32_t *buf, struct aarch64_register rt) -{ - return emit_str (buf, rt, sp, preindex_memory_operand (-1 * 16)); -} - -/* Implementation of emit_ops method "emit_prologue". */ - -static void -aarch64_emit_prologue (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - /* This function emit a prologue for the following function prototype: - - enum eval_result_type f (unsigned char *regs, - ULONGEST *value); - - The first argument is a buffer of raw registers. The second - argument is the result of - evaluating the expression, which will be set to whatever is on top of - the stack at the end. - - The stack set up by the prologue is as such: - - High *------------------------------------------------------* - | LR | - | FP | <- FP - | x1 (ULONGEST *value) | - | x0 (unsigned char *regs) | - Low *------------------------------------------------------* - - As we are implementing a stack machine, each opcode can expand the - stack so we never know how far we are from the data saved by this - prologue. In order to be able refer to value and regs later, we save - the current stack pointer in the frame pointer. This way, it is not - clobbered when calling C functions. - - Finally, throughout every operation, we are using register x0 as the - top of the stack, and x1 as a scratch register. */ - - p += emit_stp (p, x0, x1, sp, preindex_memory_operand (-2 * 16)); - p += emit_str (p, lr, sp, offset_memory_operand (3 * 8)); - p += emit_str (p, fp, sp, offset_memory_operand (2 * 8)); - - p += emit_add (p, fp, sp, immediate_operand (2 * 8)); - - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_epilogue". */ - -static void -aarch64_emit_epilogue (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - /* Store the result of the expression (x0) in *value. */ - p += emit_sub (p, x1, fp, immediate_operand (1 * 8)); - p += emit_ldr (p, x1, x1, offset_memory_operand (0)); - p += emit_str (p, x0, x1, offset_memory_operand (0)); - - /* Restore the previous state. */ - p += emit_add (p, sp, fp, immediate_operand (2 * 8)); - p += emit_ldp (p, fp, lr, fp, offset_memory_operand (0)); - - /* Return expr_eval_no_error. */ - p += emit_mov (p, x0, immediate_operand (expr_eval_no_error)); - p += emit_ret (p, lr); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_add". */ - -static void -aarch64_emit_add (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_add (p, x0, x1, register_operand (x0)); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_sub". */ - -static void -aarch64_emit_sub (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_sub (p, x0, x1, register_operand (x0)); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_mul". */ - -static void -aarch64_emit_mul (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_mul (p, x0, x1, x0); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_lsh". */ - -static void -aarch64_emit_lsh (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_lslv (p, x0, x1, x0); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_rsh_signed". */ - -static void -aarch64_emit_rsh_signed (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_asrv (p, x0, x1, x0); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_rsh_unsigned". */ - -static void -aarch64_emit_rsh_unsigned (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_lsrv (p, x0, x1, x0); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_ext". */ - -static void -aarch64_emit_ext (int arg) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_sbfx (p, x0, x0, 0, arg); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_log_not". */ - -static void -aarch64_emit_log_not (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - /* If the top of the stack is 0, replace it with 1. Else replace it with - 0. */ - - p += emit_cmp (p, x0, immediate_operand (0)); - p += emit_cset (p, x0, EQ); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_bit_and". */ - -static void -aarch64_emit_bit_and (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_and (p, x0, x0, x1); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_bit_or". */ - -static void -aarch64_emit_bit_or (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_orr (p, x0, x0, x1); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_bit_xor". */ - -static void -aarch64_emit_bit_xor (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_eor (p, x0, x0, x1); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_bit_not". */ - -static void -aarch64_emit_bit_not (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_mvn (p, x0, x0); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_equal". */ - -static void -aarch64_emit_equal (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_cmp (p, x0, register_operand (x1)); - p += emit_cset (p, x0, EQ); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_less_signed". */ - -static void -aarch64_emit_less_signed (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_cmp (p, x1, register_operand (x0)); - p += emit_cset (p, x0, LT); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_less_unsigned". */ - -static void -aarch64_emit_less_unsigned (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_cmp (p, x1, register_operand (x0)); - p += emit_cset (p, x0, LO); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_ref". */ - -static void -aarch64_emit_ref (int size) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - switch (size) - { - case 1: - p += emit_ldrb (p, w0, x0, offset_memory_operand (0)); - break; - case 2: - p += emit_ldrh (p, w0, x0, offset_memory_operand (0)); - break; - case 4: - p += emit_ldr (p, w0, x0, offset_memory_operand (0)); - break; - case 8: - p += emit_ldr (p, x0, x0, offset_memory_operand (0)); - break; - default: - /* Unknown size, bail on compilation. */ - emit_error = 1; - break; - } - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_if_goto". */ - -static void -aarch64_emit_if_goto (int *offset_p, int *size_p) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - /* The Z flag is set or cleared here. */ - p += emit_cmp (p, x0, immediate_operand (0)); - /* This instruction must not change the Z flag. */ - p += emit_pop (p, x0); - /* Branch over the next instruction if x0 == 0. */ - p += emit_bcond (p, EQ, 8); - - /* The NOP instruction will be patched with an unconditional branch. */ - if (offset_p) - *offset_p = (p - buf) * 4; - if (size_p) - *size_p = 4; - p += emit_nop (p); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_goto". */ - -static void -aarch64_emit_goto (int *offset_p, int *size_p) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - /* The NOP instruction will be patched with an unconditional branch. */ - if (offset_p) - *offset_p = 0; - if (size_p) - *size_p = 4; - p += emit_nop (p); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "write_goto_address". */ - -static void -aarch64_write_goto_address (CORE_ADDR from, CORE_ADDR to, int size) -{ - uint32_t insn; - - emit_b (&insn, 0, to - from); - append_insns (&from, 1, &insn); -} - -/* Implementation of emit_ops method "emit_const". */ - -static void -aarch64_emit_const (LONGEST num) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_mov_addr (p, x0, num); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_call". */ - -static void -aarch64_emit_call (CORE_ADDR fn) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_mov_addr (p, ip0, fn); - p += emit_blr (p, ip0); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_reg". */ - -static void -aarch64_emit_reg (int reg) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - /* Set x0 to unsigned char *regs. */ - p += emit_sub (p, x0, fp, immediate_operand (2 * 8)); - p += emit_ldr (p, x0, x0, offset_memory_operand (0)); - p += emit_mov (p, x1, immediate_operand (reg)); - - emit_ops_insns (buf, p - buf); - - aarch64_emit_call (get_raw_reg_func_addr ()); -} - -/* Implementation of emit_ops method "emit_pop". */ - -static void -aarch64_emit_pop (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x0); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_stack_flush". */ - -static void -aarch64_emit_stack_flush (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_push (p, x0); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_zero_ext". */ - -static void -aarch64_emit_zero_ext (int arg) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_ubfx (p, x0, x0, 0, arg); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_swap". */ - -static void -aarch64_emit_swap (void) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_ldr (p, x1, sp, offset_memory_operand (0 * 16)); - p += emit_str (p, x0, sp, offset_memory_operand (0 * 16)); - p += emit_mov (p, x0, register_operand (x1)); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_stack_adjust". */ - -static void -aarch64_emit_stack_adjust (int n) -{ - /* This is not needed with our design. */ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_add (p, sp, sp, immediate_operand (n * 16)); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_int_call_1". */ - -static void -aarch64_emit_int_call_1 (CORE_ADDR fn, int arg1) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_mov (p, x0, immediate_operand (arg1)); - - emit_ops_insns (buf, p - buf); - - aarch64_emit_call (fn); -} - -/* Implementation of emit_ops method "emit_void_call_2". */ - -static void -aarch64_emit_void_call_2 (CORE_ADDR fn, int arg1) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - /* Push x0 on the stack. */ - aarch64_emit_stack_flush (); - - /* Setup arguments for the function call: - - x0: arg1 - x1: top of the stack - - MOV x1, x0 - MOV x0, #arg1 */ - - p += emit_mov (p, x1, register_operand (x0)); - p += emit_mov (p, x0, immediate_operand (arg1)); - - emit_ops_insns (buf, p - buf); - - aarch64_emit_call (fn); - - /* Restore x0. */ - aarch64_emit_pop (); -} - -/* Implementation of emit_ops method "emit_eq_goto". */ - -static void -aarch64_emit_eq_goto (int *offset_p, int *size_p) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_cmp (p, x1, register_operand (x0)); - /* Branch over the next instruction if x0 != x1. */ - p += emit_bcond (p, NE, 8); - /* The NOP instruction will be patched with an unconditional branch. */ - if (offset_p) - *offset_p = (p - buf) * 4; - if (size_p) - *size_p = 4; - p += emit_nop (p); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_ne_goto". */ - -static void -aarch64_emit_ne_goto (int *offset_p, int *size_p) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_cmp (p, x1, register_operand (x0)); - /* Branch over the next instruction if x0 == x1. */ - p += emit_bcond (p, EQ, 8); - /* The NOP instruction will be patched with an unconditional branch. */ - if (offset_p) - *offset_p = (p - buf) * 4; - if (size_p) - *size_p = 4; - p += emit_nop (p); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_lt_goto". */ - -static void -aarch64_emit_lt_goto (int *offset_p, int *size_p) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_cmp (p, x1, register_operand (x0)); - /* Branch over the next instruction if x0 >= x1. */ - p += emit_bcond (p, GE, 8); - /* The NOP instruction will be patched with an unconditional branch. */ - if (offset_p) - *offset_p = (p - buf) * 4; - if (size_p) - *size_p = 4; - p += emit_nop (p); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_le_goto". */ - -static void -aarch64_emit_le_goto (int *offset_p, int *size_p) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_cmp (p, x1, register_operand (x0)); - /* Branch over the next instruction if x0 > x1. */ - p += emit_bcond (p, GT, 8); - /* The NOP instruction will be patched with an unconditional branch. */ - if (offset_p) - *offset_p = (p - buf) * 4; - if (size_p) - *size_p = 4; - p += emit_nop (p); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_gt_goto". */ - -static void -aarch64_emit_gt_goto (int *offset_p, int *size_p) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_cmp (p, x1, register_operand (x0)); - /* Branch over the next instruction if x0 <= x1. */ - p += emit_bcond (p, LE, 8); - /* The NOP instruction will be patched with an unconditional branch. */ - if (offset_p) - *offset_p = (p - buf) * 4; - if (size_p) - *size_p = 4; - p += emit_nop (p); - - emit_ops_insns (buf, p - buf); -} - -/* Implementation of emit_ops method "emit_ge_got". */ - -static void -aarch64_emit_ge_got (int *offset_p, int *size_p) -{ - uint32_t buf[16]; - uint32_t *p = buf; - - p += emit_pop (p, x1); - p += emit_cmp (p, x1, register_operand (x0)); - /* Branch over the next instruction if x0 <= x1. */ - p += emit_bcond (p, LT, 8); - /* The NOP instruction will be patched with an unconditional branch. */ - if (offset_p) - *offset_p = (p - buf) * 4; - if (size_p) - *size_p = 4; - p += emit_nop (p); - - emit_ops_insns (buf, p - buf); -} - -static struct emit_ops aarch64_emit_ops_impl = -{ - aarch64_emit_prologue, - aarch64_emit_epilogue, - aarch64_emit_add, - aarch64_emit_sub, - aarch64_emit_mul, - aarch64_emit_lsh, - aarch64_emit_rsh_signed, - aarch64_emit_rsh_unsigned, - aarch64_emit_ext, - aarch64_emit_log_not, - aarch64_emit_bit_and, - aarch64_emit_bit_or, - aarch64_emit_bit_xor, - aarch64_emit_bit_not, - aarch64_emit_equal, - aarch64_emit_less_signed, - aarch64_emit_less_unsigned, - aarch64_emit_ref, - aarch64_emit_if_goto, - aarch64_emit_goto, - aarch64_write_goto_address, - aarch64_emit_const, - aarch64_emit_call, - aarch64_emit_reg, - aarch64_emit_pop, - aarch64_emit_stack_flush, - aarch64_emit_zero_ext, - aarch64_emit_swap, - aarch64_emit_stack_adjust, - aarch64_emit_int_call_1, - aarch64_emit_void_call_2, - aarch64_emit_eq_goto, - aarch64_emit_ne_goto, - aarch64_emit_lt_goto, - aarch64_emit_le_goto, - aarch64_emit_gt_goto, - aarch64_emit_ge_got, -}; - -/* Implementation of linux_target_ops method "emit_ops". */ - -static struct emit_ops * -aarch64_emit_ops (void) -{ - return &aarch64_emit_ops_impl; -} - -/* Implementation of linux_target_ops method - "get_min_fast_tracepoint_insn_len". */ - -static int -aarch64_get_min_fast_tracepoint_insn_len (void) -{ - return 4; -} - -/* Implementation of linux_target_ops method "supports_range_stepping". */ - -static int -aarch64_supports_range_stepping (void) -{ - return 1; -} - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -aarch64_sw_breakpoint_from_kind (int kind, int *size) -{ - if (is_64bit_tdesc ()) - { - *size = aarch64_breakpoint_len; - return aarch64_breakpoint; - } - else - return arm_sw_breakpoint_from_kind (kind, size); -} - -/* Implementation of linux_target_ops method "breakpoint_kind_from_pc". */ - -static int -aarch64_breakpoint_kind_from_pc (CORE_ADDR *pcptr) -{ - if (is_64bit_tdesc ()) - return aarch64_breakpoint_len; - else - return arm_breakpoint_kind_from_pc (pcptr); -} - -/* Implementation of the linux_target_ops method - "breakpoint_kind_from_current_state". */ - -static int -aarch64_breakpoint_kind_from_current_state (CORE_ADDR *pcptr) -{ - if (is_64bit_tdesc ()) - return aarch64_breakpoint_len; - else - return arm_breakpoint_kind_from_current_state (pcptr); -} - -/* Support for hardware single step. */ - -static int -aarch64_supports_hardware_single_step (void) -{ - return 1; -} - -struct linux_target_ops the_low_target = -{ - aarch64_arch_setup, - aarch64_regs_info, - NULL, /* cannot_fetch_register */ - NULL, /* cannot_store_register */ - NULL, /* fetch_register */ - aarch64_get_pc, - aarch64_set_pc, - aarch64_breakpoint_kind_from_pc, - aarch64_sw_breakpoint_from_kind, - NULL, /* get_next_pcs */ - 0, /* decr_pc_after_break */ - aarch64_breakpoint_at, - aarch64_supports_z_point_type, - aarch64_insert_point, - aarch64_remove_point, - aarch64_stopped_by_watchpoint, - aarch64_stopped_data_address, - NULL, /* collect_ptrace_register */ - NULL, /* supply_ptrace_register */ - aarch64_linux_siginfo_fixup, - aarch64_linux_new_process, - aarch64_linux_delete_process, - aarch64_linux_new_thread, - aarch64_linux_delete_thread, - aarch64_linux_new_fork, - aarch64_linux_prepare_to_resume, - NULL, /* process_qsupported */ - aarch64_supports_tracepoints, - aarch64_get_thread_area, - aarch64_install_fast_tracepoint_jump_pad, - aarch64_emit_ops, - aarch64_get_min_fast_tracepoint_insn_len, - aarch64_supports_range_stepping, - aarch64_breakpoint_kind_from_current_state, - aarch64_supports_hardware_single_step, - aarch64_get_syscall_trapinfo, -}; - -void -initialize_low_arch (void) -{ - initialize_low_arch_aarch32 (); - - initialize_regsets_info (&aarch64_regsets_info); - initialize_regsets_info (&aarch64_sve_regsets_info); -} diff --git a/gdbserver/linux-aarch64-low.cc b/gdbserver/linux-aarch64-low.cc new file mode 100644 index 00000000000..961fd5b3cc4 --- /dev/null +++ b/gdbserver/linux-aarch64-low.cc @@ -0,0 +1,3098 @@ +/* GNU/Linux/AArch64 specific low level interface, for the remote server for + GDB. + + Copyright (C) 2009-2020 Free Software Foundation, Inc. + Contributed by ARM Ltd. + + 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 . */ + +#include "server.h" +#include "linux-low.h" +#include "nat/aarch64-linux.h" +#include "nat/aarch64-linux-hw-point.h" +#include "arch/aarch64-insn.h" +#include "linux-aarch32-low.h" +#include "elf/common.h" +#include "ax.h" +#include "tracepoint.h" +#include "debug.h" + +#include +#include +#include "nat/gdb_ptrace.h" +#include +#include +#include +#include + +#include "gdb_proc_service.h" +#include "arch/aarch64.h" +#include "linux-aarch32-tdesc.h" +#include "linux-aarch64-tdesc.h" +#include "nat/aarch64-sve-linux-ptrace.h" +#include "tdesc.h" + +#ifdef HAVE_SYS_REG_H +#include +#endif + +/* Per-process arch-specific data we want to keep. */ + +struct arch_process_info +{ + /* Hardware breakpoint/watchpoint data. + The reason for them to be per-process rather than per-thread is + due to the lack of information in the gdbserver environment; + gdbserver is not told that whether a requested hardware + breakpoint/watchpoint is thread specific or not, so it has to set + each hw bp/wp for every thread in the current process. The + higher level bp/wp management in gdb will resume a thread if a hw + bp/wp trap is not expected for it. Since the hw bp/wp setting is + same for each thread, it is reasonable for the data to live here. + */ + struct aarch64_debug_reg_state debug_reg_state; +}; + +/* Return true if the size of register 0 is 8 byte. */ + +static int +is_64bit_tdesc (void) +{ + struct regcache *regcache = get_thread_regcache (current_thread, 0); + + return register_size (regcache->tdesc, 0) == 8; +} + +/* Return true if the regcache contains the number of SVE registers. */ + +static bool +is_sve_tdesc (void) +{ + struct regcache *regcache = get_thread_regcache (current_thread, 0); + + return tdesc_contains_feature (regcache->tdesc, "org.gnu.gdb.aarch64.sve"); +} + +static void +aarch64_fill_gregset (struct regcache *regcache, void *buf) +{ + struct user_pt_regs *regset = (struct user_pt_regs *) buf; + int i; + + for (i = 0; i < AARCH64_X_REGS_NUM; i++) + collect_register (regcache, AARCH64_X0_REGNUM + i, ®set->regs[i]); + collect_register (regcache, AARCH64_SP_REGNUM, ®set->sp); + collect_register (regcache, AARCH64_PC_REGNUM, ®set->pc); + collect_register (regcache, AARCH64_CPSR_REGNUM, ®set->pstate); +} + +static void +aarch64_store_gregset (struct regcache *regcache, const void *buf) +{ + const struct user_pt_regs *regset = (const struct user_pt_regs *) buf; + int i; + + for (i = 0; i < AARCH64_X_REGS_NUM; i++) + supply_register (regcache, AARCH64_X0_REGNUM + i, ®set->regs[i]); + supply_register (regcache, AARCH64_SP_REGNUM, ®set->sp); + supply_register (regcache, AARCH64_PC_REGNUM, ®set->pc); + supply_register (regcache, AARCH64_CPSR_REGNUM, ®set->pstate); +} + +static void +aarch64_fill_fpregset (struct regcache *regcache, void *buf) +{ + struct user_fpsimd_state *regset = (struct user_fpsimd_state *) buf; + int i; + + for (i = 0; i < AARCH64_V_REGS_NUM; i++) + collect_register (regcache, AARCH64_V0_REGNUM + i, ®set->vregs[i]); + collect_register (regcache, AARCH64_FPSR_REGNUM, ®set->fpsr); + collect_register (regcache, AARCH64_FPCR_REGNUM, ®set->fpcr); +} + +static void +aarch64_store_fpregset (struct regcache *regcache, const void *buf) +{ + const struct user_fpsimd_state *regset + = (const struct user_fpsimd_state *) buf; + int i; + + for (i = 0; i < AARCH64_V_REGS_NUM; i++) + supply_register (regcache, AARCH64_V0_REGNUM + i, ®set->vregs[i]); + supply_register (regcache, AARCH64_FPSR_REGNUM, ®set->fpsr); + supply_register (regcache, AARCH64_FPCR_REGNUM, ®set->fpcr); +} + +/* Store the pauth registers to regcache. */ + +static void +aarch64_store_pauthregset (struct regcache *regcache, const void *buf) +{ + uint64_t *pauth_regset = (uint64_t *) buf; + int pauth_base = find_regno (regcache->tdesc, "pauth_dmask"); + + if (pauth_base == 0) + return; + + supply_register (regcache, AARCH64_PAUTH_DMASK_REGNUM (pauth_base), + &pauth_regset[0]); + supply_register (regcache, AARCH64_PAUTH_CMASK_REGNUM (pauth_base), + &pauth_regset[1]); +} + +/* Implementation of linux_target_ops method "get_pc". */ + +static CORE_ADDR +aarch64_get_pc (struct regcache *regcache) +{ + if (register_size (regcache->tdesc, 0) == 8) + return linux_get_pc_64bit (regcache); + else + return linux_get_pc_32bit (regcache); +} + +/* Implementation of linux_target_ops method "set_pc". */ + +static void +aarch64_set_pc (struct regcache *regcache, CORE_ADDR pc) +{ + if (register_size (regcache->tdesc, 0) == 8) + linux_set_pc_64bit (regcache, pc); + else + linux_set_pc_32bit (regcache, pc); +} + +#define aarch64_breakpoint_len 4 + +/* AArch64 BRK software debug mode instruction. + This instruction needs to match gdb/aarch64-tdep.c + (aarch64_default_breakpoint). */ +static const gdb_byte aarch64_breakpoint[] = {0x00, 0x00, 0x20, 0xd4}; + +/* Implementation of linux_target_ops method "breakpoint_at". */ + +static int +aarch64_breakpoint_at (CORE_ADDR where) +{ + if (is_64bit_tdesc ()) + { + gdb_byte insn[aarch64_breakpoint_len]; + + (*the_target->read_memory) (where, (unsigned char *) &insn, + aarch64_breakpoint_len); + if (memcmp (insn, aarch64_breakpoint, aarch64_breakpoint_len) == 0) + return 1; + + return 0; + } + else + return arm_breakpoint_at (where); +} + +static void +aarch64_init_debug_reg_state (struct aarch64_debug_reg_state *state) +{ + int i; + + for (i = 0; i < AARCH64_HBP_MAX_NUM; ++i) + { + state->dr_addr_bp[i] = 0; + state->dr_ctrl_bp[i] = 0; + state->dr_ref_count_bp[i] = 0; + } + + for (i = 0; i < AARCH64_HWP_MAX_NUM; ++i) + { + state->dr_addr_wp[i] = 0; + state->dr_ctrl_wp[i] = 0; + state->dr_ref_count_wp[i] = 0; + } +} + +/* Return the pointer to the debug register state structure in the + current process' arch-specific data area. */ + +struct aarch64_debug_reg_state * +aarch64_get_debug_reg_state (pid_t pid) +{ + struct process_info *proc = find_process_pid (pid); + + return &proc->priv->arch_private->debug_reg_state; +} + +/* Implementation of linux_target_ops method "supports_z_point_type". */ + +static int +aarch64_supports_z_point_type (char z_type) +{ + switch (z_type) + { + case Z_PACKET_SW_BP: + case Z_PACKET_HW_BP: + case Z_PACKET_WRITE_WP: + case Z_PACKET_READ_WP: + case Z_PACKET_ACCESS_WP: + return 1; + default: + return 0; + } +} + +/* Implementation of linux_target_ops method "insert_point". + + It actually only records the info of the to-be-inserted bp/wp; + the actual insertion will happen when threads are resumed. */ + +static int +aarch64_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, + int len, struct raw_breakpoint *bp) +{ + int ret; + enum target_hw_bp_type targ_type; + struct aarch64_debug_reg_state *state + = aarch64_get_debug_reg_state (pid_of (current_thread)); + + if (show_debug_regs) + fprintf (stderr, "insert_point on entry (addr=0x%08lx, len=%d)\n", + (unsigned long) addr, len); + + /* Determine the type from the raw breakpoint type. */ + targ_type = raw_bkpt_type_to_target_hw_bp_type (type); + + if (targ_type != hw_execute) + { + if (aarch64_linux_region_ok_for_watchpoint (addr, len)) + ret = aarch64_handle_watchpoint (targ_type, addr, len, + 1 /* is_insert */, state); + else + ret = -1; + } + else + { + if (len == 3) + { + /* LEN is 3 means the breakpoint is set on a 32-bit thumb + instruction. Set it to 2 to correctly encode length bit + mask in hardware/watchpoint control register. */ + len = 2; + } + ret = aarch64_handle_breakpoint (targ_type, addr, len, + 1 /* is_insert */, state); + } + + if (show_debug_regs) + aarch64_show_debug_reg_state (state, "insert_point", addr, len, + targ_type); + + return ret; +} + +/* Implementation of linux_target_ops method "remove_point". + + It actually only records the info of the to-be-removed bp/wp, + the actual removal will be done when threads are resumed. */ + +static int +aarch64_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, + int len, struct raw_breakpoint *bp) +{ + int ret; + enum target_hw_bp_type targ_type; + struct aarch64_debug_reg_state *state + = aarch64_get_debug_reg_state (pid_of (current_thread)); + + if (show_debug_regs) + fprintf (stderr, "remove_point on entry (addr=0x%08lx, len=%d)\n", + (unsigned long) addr, len); + + /* Determine the type from the raw breakpoint type. */ + targ_type = raw_bkpt_type_to_target_hw_bp_type (type); + + /* Set up state pointers. */ + if (targ_type != hw_execute) + ret = + aarch64_handle_watchpoint (targ_type, addr, len, 0 /* is_insert */, + state); + else + { + if (len == 3) + { + /* LEN is 3 means the breakpoint is set on a 32-bit thumb + instruction. Set it to 2 to correctly encode length bit + mask in hardware/watchpoint control register. */ + len = 2; + } + ret = aarch64_handle_breakpoint (targ_type, addr, len, + 0 /* is_insert */, state); + } + + if (show_debug_regs) + aarch64_show_debug_reg_state (state, "remove_point", addr, len, + targ_type); + + return ret; +} + +/* Implementation of linux_target_ops method "stopped_data_address". */ + +static CORE_ADDR +aarch64_stopped_data_address (void) +{ + siginfo_t siginfo; + int pid, i; + struct aarch64_debug_reg_state *state; + + pid = lwpid_of (current_thread); + + /* Get the siginfo. */ + if (ptrace (PTRACE_GETSIGINFO, pid, NULL, &siginfo) != 0) + return (CORE_ADDR) 0; + + /* Need to be a hardware breakpoint/watchpoint trap. */ + if (siginfo.si_signo != SIGTRAP + || (siginfo.si_code & 0xffff) != 0x0004 /* TRAP_HWBKPT */) + return (CORE_ADDR) 0; + + /* Check if the address matches any watched address. */ + state = aarch64_get_debug_reg_state (pid_of (current_thread)); + for (i = aarch64_num_wp_regs - 1; i >= 0; --i) + { + const unsigned int offset + = aarch64_watchpoint_offset (state->dr_ctrl_wp[i]); + const unsigned int len = aarch64_watchpoint_length (state->dr_ctrl_wp[i]); + const CORE_ADDR addr_trap = (CORE_ADDR) siginfo.si_addr; + const CORE_ADDR addr_watch = state->dr_addr_wp[i] + offset; + const CORE_ADDR addr_watch_aligned = align_down (state->dr_addr_wp[i], 8); + const CORE_ADDR addr_orig = state->dr_addr_orig_wp[i]; + + if (state->dr_ref_count_wp[i] + && DR_CONTROL_ENABLED (state->dr_ctrl_wp[i]) + && addr_trap >= addr_watch_aligned + && addr_trap < addr_watch + len) + { + /* ADDR_TRAP reports the first address of the memory range + accessed by the CPU, regardless of what was the memory + range watched. Thus, a large CPU access that straddles + the ADDR_WATCH..ADDR_WATCH+LEN range may result in an + ADDR_TRAP that is lower than the + ADDR_WATCH..ADDR_WATCH+LEN range. E.g.: + + addr: | 4 | 5 | 6 | 7 | 8 | + |---- range watched ----| + |----------- range accessed ------------| + + In this case, ADDR_TRAP will be 4. + + To match a watchpoint known to GDB core, we must never + report *ADDR_P outside of any ADDR_WATCH..ADDR_WATCH+LEN + range. ADDR_WATCH <= ADDR_TRAP < ADDR_ORIG is a false + positive on kernels older than 4.10. See PR + external/20207. */ + return addr_orig; + } + } + + return (CORE_ADDR) 0; +} + +/* Implementation of linux_target_ops method "stopped_by_watchpoint". */ + +static int +aarch64_stopped_by_watchpoint (void) +{ + if (aarch64_stopped_data_address () != 0) + return 1; + else + return 0; +} + +/* Fetch the thread-local storage pointer for libthread_db. */ + +ps_err_e +ps_get_thread_area (struct ps_prochandle *ph, + lwpid_t lwpid, int idx, void **base) +{ + return aarch64_ps_get_thread_area (ph, lwpid, idx, base, + is_64bit_tdesc ()); +} + +/* Implementation of linux_target_ops method "siginfo_fixup". */ + +static int +aarch64_linux_siginfo_fixup (siginfo_t *native, gdb_byte *inf, int direction) +{ + /* Is the inferior 32-bit? If so, then fixup the siginfo object. */ + if (!is_64bit_tdesc ()) + { + if (direction == 0) + aarch64_compat_siginfo_from_siginfo ((struct compat_siginfo *) inf, + native); + else + aarch64_siginfo_from_compat_siginfo (native, + (struct compat_siginfo *) inf); + + return 1; + } + + return 0; +} + +/* Implementation of linux_target_ops method "new_process". */ + +static struct arch_process_info * +aarch64_linux_new_process (void) +{ + struct arch_process_info *info = XCNEW (struct arch_process_info); + + aarch64_init_debug_reg_state (&info->debug_reg_state); + + return info; +} + +/* Implementation of linux_target_ops method "delete_process". */ + +static void +aarch64_linux_delete_process (struct arch_process_info *info) +{ + xfree (info); +} + +/* Implementation of linux_target_ops method "linux_new_fork". */ + +static void +aarch64_linux_new_fork (struct process_info *parent, + struct process_info *child) +{ + /* These are allocated by linux_add_process. */ + gdb_assert (parent->priv != NULL + && parent->priv->arch_private != NULL); + gdb_assert (child->priv != NULL + && child->priv->arch_private != NULL); + + /* Linux kernel before 2.6.33 commit + 72f674d203cd230426437cdcf7dd6f681dad8b0d + will inherit hardware debug registers from parent + on fork/vfork/clone. Newer Linux kernels create such tasks with + zeroed debug registers. + + GDB core assumes the child inherits the watchpoints/hw + breakpoints of the parent, and will remove them all from the + forked off process. Copy the debug registers mirrors into the + new process so that all breakpoints and watchpoints can be + removed together. The debug registers mirror will become zeroed + in the end before detaching the forked off process, thus making + this compatible with older Linux kernels too. */ + + *child->priv->arch_private = *parent->priv->arch_private; +} + +/* Matches HWCAP_PACA in kernel header arch/arm64/include/uapi/asm/hwcap.h. */ +#define AARCH64_HWCAP_PACA (1 << 30) + +/* Implementation of linux_target_ops method "arch_setup". */ + +static void +aarch64_arch_setup (void) +{ + unsigned int machine; + int is_elf64; + int tid; + + tid = lwpid_of (current_thread); + + is_elf64 = linux_pid_exe_is_elf_64_file (tid, &machine); + + if (is_elf64) + { + uint64_t vq = aarch64_sve_get_vq (tid); + unsigned long hwcap = linux_get_hwcap (8); + bool pauth_p = hwcap & AARCH64_HWCAP_PACA; + + current_process ()->tdesc = aarch64_linux_read_description (vq, pauth_p); + } + else + current_process ()->tdesc = aarch32_linux_read_description (); + + aarch64_linux_get_debug_reg_capacity (lwpid_of (current_thread)); +} + +/* Wrapper for aarch64_sve_regs_copy_to_reg_buf. */ + +static void +aarch64_sve_regs_copy_to_regcache (struct regcache *regcache, const void *buf) +{ + return aarch64_sve_regs_copy_to_reg_buf (regcache, buf); +} + +/* Wrapper for aarch64_sve_regs_copy_from_reg_buf. */ + +static void +aarch64_sve_regs_copy_from_regcache (struct regcache *regcache, void *buf) +{ + return aarch64_sve_regs_copy_from_reg_buf (regcache, buf); +} + +static struct regset_info aarch64_regsets[] = +{ + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PRSTATUS, + sizeof (struct user_pt_regs), GENERAL_REGS, + aarch64_fill_gregset, aarch64_store_gregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_FPREGSET, + sizeof (struct user_fpsimd_state), FP_REGS, + aarch64_fill_fpregset, aarch64_store_fpregset + }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_ARM_PAC_MASK, + AARCH64_PAUTH_REGS_SIZE, OPTIONAL_REGS, + NULL, aarch64_store_pauthregset }, + NULL_REGSET +}; + +static struct regsets_info aarch64_regsets_info = + { + aarch64_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct regs_info regs_info_aarch64 = + { + NULL, /* regset_bitmap */ + NULL, /* usrregs */ + &aarch64_regsets_info, + }; + +static struct regset_info aarch64_sve_regsets[] = +{ + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PRSTATUS, + sizeof (struct user_pt_regs), GENERAL_REGS, + aarch64_fill_gregset, aarch64_store_gregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_ARM_SVE, + SVE_PT_SIZE (AARCH64_MAX_SVE_VQ, SVE_PT_REGS_SVE), EXTENDED_REGS, + aarch64_sve_regs_copy_from_regcache, aarch64_sve_regs_copy_to_regcache + }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_ARM_PAC_MASK, + AARCH64_PAUTH_REGS_SIZE, OPTIONAL_REGS, + NULL, aarch64_store_pauthregset }, + NULL_REGSET +}; + +static struct regsets_info aarch64_sve_regsets_info = + { + aarch64_sve_regsets, /* regsets. */ + 0, /* num_regsets. */ + NULL, /* disabled_regsets. */ + }; + +static struct regs_info regs_info_aarch64_sve = + { + NULL, /* regset_bitmap. */ + NULL, /* usrregs. */ + &aarch64_sve_regsets_info, + }; + +/* Implementation of linux_target_ops method "regs_info". */ + +static const struct regs_info * +aarch64_regs_info (void) +{ + if (!is_64bit_tdesc ()) + return ®s_info_aarch32; + + if (is_sve_tdesc ()) + return ®s_info_aarch64_sve; + + return ®s_info_aarch64; +} + +/* Implementation of linux_target_ops method "supports_tracepoints". */ + +static int +aarch64_supports_tracepoints (void) +{ + if (current_thread == NULL) + return 1; + else + { + /* We don't support tracepoints on aarch32 now. */ + return is_64bit_tdesc (); + } +} + +/* Implementation of linux_target_ops method "get_thread_area". */ + +static int +aarch64_get_thread_area (int lwpid, CORE_ADDR *addrp) +{ + struct iovec iovec; + uint64_t reg; + + iovec.iov_base = ® + iovec.iov_len = sizeof (reg); + + if (ptrace (PTRACE_GETREGSET, lwpid, NT_ARM_TLS, &iovec) != 0) + return -1; + + *addrp = reg; + + return 0; +} + +/* Implementation of linux_target_ops method "get_syscall_trapinfo". */ + +static void +aarch64_get_syscall_trapinfo (struct regcache *regcache, int *sysno) +{ + int use_64bit = register_size (regcache->tdesc, 0) == 8; + + if (use_64bit) + { + long l_sysno; + + collect_register_by_name (regcache, "x8", &l_sysno); + *sysno = (int) l_sysno; + } + else + collect_register_by_name (regcache, "r7", sysno); +} + +/* List of condition codes that we need. */ + +enum aarch64_condition_codes +{ + EQ = 0x0, + NE = 0x1, + LO = 0x3, + GE = 0xa, + LT = 0xb, + GT = 0xc, + LE = 0xd, +}; + +enum aarch64_operand_type +{ + OPERAND_IMMEDIATE, + OPERAND_REGISTER, +}; + +/* Representation of an operand. At this time, it only supports register + and immediate types. */ + +struct aarch64_operand +{ + /* Type of the operand. */ + enum aarch64_operand_type type; + + /* Value of the operand according to the type. */ + union + { + uint32_t imm; + struct aarch64_register reg; + }; +}; + +/* List of registers that we are currently using, we can add more here as + we need to use them. */ + +/* General purpose scratch registers (64 bit). */ +static const struct aarch64_register x0 = { 0, 1 }; +static const struct aarch64_register x1 = { 1, 1 }; +static const struct aarch64_register x2 = { 2, 1 }; +static const struct aarch64_register x3 = { 3, 1 }; +static const struct aarch64_register x4 = { 4, 1 }; + +/* General purpose scratch registers (32 bit). */ +static const struct aarch64_register w0 = { 0, 0 }; +static const struct aarch64_register w2 = { 2, 0 }; + +/* Intra-procedure scratch registers. */ +static const struct aarch64_register ip0 = { 16, 1 }; + +/* Special purpose registers. */ +static const struct aarch64_register fp = { 29, 1 }; +static const struct aarch64_register lr = { 30, 1 }; +static const struct aarch64_register sp = { 31, 1 }; +static const struct aarch64_register xzr = { 31, 1 }; + +/* Dynamically allocate a new register. If we know the register + statically, we should make it a global as above instead of using this + helper function. */ + +static struct aarch64_register +aarch64_register (unsigned num, int is64) +{ + return (struct aarch64_register) { num, is64 }; +} + +/* Helper function to create a register operand, for instructions with + different types of operands. + + For example: + p += emit_mov (p, x0, register_operand (x1)); */ + +static struct aarch64_operand +register_operand (struct aarch64_register reg) +{ + struct aarch64_operand operand; + + operand.type = OPERAND_REGISTER; + operand.reg = reg; + + return operand; +} + +/* Helper function to create an immediate operand, for instructions with + different types of operands. + + For example: + p += emit_mov (p, x0, immediate_operand (12)); */ + +static struct aarch64_operand +immediate_operand (uint32_t imm) +{ + struct aarch64_operand operand; + + operand.type = OPERAND_IMMEDIATE; + operand.imm = imm; + + return operand; +} + +/* Helper function to create an offset memory operand. + + For example: + p += emit_ldr (p, x0, sp, offset_memory_operand (16)); */ + +static struct aarch64_memory_operand +offset_memory_operand (int32_t offset) +{ + return (struct aarch64_memory_operand) { MEMORY_OPERAND_OFFSET, offset }; +} + +/* Helper function to create a pre-index memory operand. + + For example: + p += emit_ldr (p, x0, sp, preindex_memory_operand (16)); */ + +static struct aarch64_memory_operand +preindex_memory_operand (int32_t index) +{ + return (struct aarch64_memory_operand) { MEMORY_OPERAND_PREINDEX, index }; +} + +/* Helper function to create a post-index memory operand. + + For example: + p += emit_ldr (p, x0, sp, postindex_memory_operand (16)); */ + +static struct aarch64_memory_operand +postindex_memory_operand (int32_t index) +{ + return (struct aarch64_memory_operand) { MEMORY_OPERAND_POSTINDEX, index }; +} + +/* System control registers. These special registers can be written and + read with the MRS and MSR instructions. + + - NZCV: Condition flags. GDB refers to this register under the CPSR + name. + - FPSR: Floating-point status register. + - FPCR: Floating-point control registers. + - TPIDR_EL0: Software thread ID register. */ + +enum aarch64_system_control_registers +{ + /* op0 op1 crn crm op2 */ + NZCV = (0x1 << 14) | (0x3 << 11) | (0x4 << 7) | (0x2 << 3) | 0x0, + FPSR = (0x1 << 14) | (0x3 << 11) | (0x4 << 7) | (0x4 << 3) | 0x1, + FPCR = (0x1 << 14) | (0x3 << 11) | (0x4 << 7) | (0x4 << 3) | 0x0, + TPIDR_EL0 = (0x1 << 14) | (0x3 << 11) | (0xd << 7) | (0x0 << 3) | 0x2 +}; + +/* Write a BLR instruction into *BUF. + + BLR rn + + RN is the register to branch to. */ + +static int +emit_blr (uint32_t *buf, struct aarch64_register rn) +{ + return aarch64_emit_insn (buf, BLR | ENCODE (rn.num, 5, 5)); +} + +/* Write a RET instruction into *BUF. + + RET xn + + RN is the register to branch to. */ + +static int +emit_ret (uint32_t *buf, struct aarch64_register rn) +{ + return aarch64_emit_insn (buf, RET | ENCODE (rn.num, 5, 5)); +} + +static int +emit_load_store_pair (uint32_t *buf, enum aarch64_opcodes opcode, + struct aarch64_register rt, + struct aarch64_register rt2, + struct aarch64_register rn, + struct aarch64_memory_operand operand) +{ + uint32_t opc; + uint32_t pre_index; + uint32_t write_back; + + if (rt.is64) + opc = ENCODE (2, 2, 30); + else + opc = ENCODE (0, 2, 30); + + switch (operand.type) + { + case MEMORY_OPERAND_OFFSET: + { + pre_index = ENCODE (1, 1, 24); + write_back = ENCODE (0, 1, 23); + break; + } + case MEMORY_OPERAND_POSTINDEX: + { + pre_index = ENCODE (0, 1, 24); + write_back = ENCODE (1, 1, 23); + break; + } + case MEMORY_OPERAND_PREINDEX: + { + pre_index = ENCODE (1, 1, 24); + write_back = ENCODE (1, 1, 23); + break; + } + default: + return 0; + } + + return aarch64_emit_insn (buf, opcode | opc | pre_index | write_back + | ENCODE (operand.index >> 3, 7, 15) + | ENCODE (rt2.num, 5, 10) + | ENCODE (rn.num, 5, 5) | ENCODE (rt.num, 5, 0)); +} + +/* Write a STP instruction into *BUF. + + STP rt, rt2, [rn, #offset] + STP rt, rt2, [rn, #index]! + STP rt, rt2, [rn], #index + + RT and RT2 are the registers to store. + RN is the base address register. + OFFSET is the immediate to add to the base address. It is limited to a + -512 .. 504 range (7 bits << 3). */ + +static int +emit_stp (uint32_t *buf, struct aarch64_register rt, + struct aarch64_register rt2, struct aarch64_register rn, + struct aarch64_memory_operand operand) +{ + return emit_load_store_pair (buf, STP, rt, rt2, rn, operand); +} + +/* Write a LDP instruction into *BUF. + + LDP rt, rt2, [rn, #offset] + LDP rt, rt2, [rn, #index]! + LDP rt, rt2, [rn], #index + + RT and RT2 are the registers to store. + RN is the base address register. + OFFSET is the immediate to add to the base address. It is limited to a + -512 .. 504 range (7 bits << 3). */ + +static int +emit_ldp (uint32_t *buf, struct aarch64_register rt, + struct aarch64_register rt2, struct aarch64_register rn, + struct aarch64_memory_operand operand) +{ + return emit_load_store_pair (buf, LDP, rt, rt2, rn, operand); +} + +/* Write a LDP (SIMD&VFP) instruction using Q registers into *BUF. + + LDP qt, qt2, [rn, #offset] + + RT and RT2 are the Q registers to store. + RN is the base address register. + OFFSET is the immediate to add to the base address. It is limited to + -1024 .. 1008 range (7 bits << 4). */ + +static int +emit_ldp_q_offset (uint32_t *buf, unsigned rt, unsigned rt2, + struct aarch64_register rn, int32_t offset) +{ + uint32_t opc = ENCODE (2, 2, 30); + uint32_t pre_index = ENCODE (1, 1, 24); + + return aarch64_emit_insn (buf, LDP_SIMD_VFP | opc | pre_index + | ENCODE (offset >> 4, 7, 15) + | ENCODE (rt2, 5, 10) + | ENCODE (rn.num, 5, 5) | ENCODE (rt, 5, 0)); +} + +/* Write a STP (SIMD&VFP) instruction using Q registers into *BUF. + + STP qt, qt2, [rn, #offset] + + RT and RT2 are the Q registers to store. + RN is the base address register. + OFFSET is the immediate to add to the base address. It is limited to + -1024 .. 1008 range (7 bits << 4). */ + +static int +emit_stp_q_offset (uint32_t *buf, unsigned rt, unsigned rt2, + struct aarch64_register rn, int32_t offset) +{ + uint32_t opc = ENCODE (2, 2, 30); + uint32_t pre_index = ENCODE (1, 1, 24); + + return aarch64_emit_insn (buf, STP_SIMD_VFP | opc | pre_index + | ENCODE (offset >> 4, 7, 15) + | ENCODE (rt2, 5, 10) + | ENCODE (rn.num, 5, 5) | ENCODE (rt, 5, 0)); +} + +/* Write a LDRH instruction into *BUF. + + LDRH wt, [xn, #offset] + LDRH wt, [xn, #index]! + LDRH wt, [xn], #index + + RT is the register to store. + RN is the base address register. + OFFSET is the immediate to add to the base address. It is limited to + 0 .. 32760 range (12 bits << 3). */ + +static int +emit_ldrh (uint32_t *buf, struct aarch64_register rt, + struct aarch64_register rn, + struct aarch64_memory_operand operand) +{ + return aarch64_emit_load_store (buf, 1, LDR, rt, rn, operand); +} + +/* Write a LDRB instruction into *BUF. + + LDRB wt, [xn, #offset] + LDRB wt, [xn, #index]! + LDRB wt, [xn], #index + + RT is the register to store. + RN is the base address register. + OFFSET is the immediate to add to the base address. It is limited to + 0 .. 32760 range (12 bits << 3). */ + +static int +emit_ldrb (uint32_t *buf, struct aarch64_register rt, + struct aarch64_register rn, + struct aarch64_memory_operand operand) +{ + return aarch64_emit_load_store (buf, 0, LDR, rt, rn, operand); +} + + + +/* Write a STR instruction into *BUF. + + STR rt, [rn, #offset] + STR rt, [rn, #index]! + STR rt, [rn], #index + + RT is the register to store. + RN is the base address register. + OFFSET is the immediate to add to the base address. It is limited to + 0 .. 32760 range (12 bits << 3). */ + +static int +emit_str (uint32_t *buf, struct aarch64_register rt, + struct aarch64_register rn, + struct aarch64_memory_operand operand) +{ + return aarch64_emit_load_store (buf, rt.is64 ? 3 : 2, STR, rt, rn, operand); +} + +/* Helper function emitting an exclusive load or store instruction. */ + +static int +emit_load_store_exclusive (uint32_t *buf, uint32_t size, + enum aarch64_opcodes opcode, + struct aarch64_register rs, + struct aarch64_register rt, + struct aarch64_register rt2, + struct aarch64_register rn) +{ + return aarch64_emit_insn (buf, opcode | ENCODE (size, 2, 30) + | ENCODE (rs.num, 5, 16) | ENCODE (rt2.num, 5, 10) + | ENCODE (rn.num, 5, 5) | ENCODE (rt.num, 5, 0)); +} + +/* Write a LAXR instruction into *BUF. + + LDAXR rt, [xn] + + RT is the destination register. + RN is the base address register. */ + +static int +emit_ldaxr (uint32_t *buf, struct aarch64_register rt, + struct aarch64_register rn) +{ + return emit_load_store_exclusive (buf, rt.is64 ? 3 : 2, LDAXR, xzr, rt, + xzr, rn); +} + +/* Write a STXR instruction into *BUF. + + STXR ws, rt, [xn] + + RS is the result register, it indicates if the store succeeded or not. + RT is the destination register. + RN is the base address register. */ + +static int +emit_stxr (uint32_t *buf, struct aarch64_register rs, + struct aarch64_register rt, struct aarch64_register rn) +{ + return emit_load_store_exclusive (buf, rt.is64 ? 3 : 2, STXR, rs, rt, + xzr, rn); +} + +/* Write a STLR instruction into *BUF. + + STLR rt, [xn] + + RT is the register to store. + RN is the base address register. */ + +static int +emit_stlr (uint32_t *buf, struct aarch64_register rt, + struct aarch64_register rn) +{ + return emit_load_store_exclusive (buf, rt.is64 ? 3 : 2, STLR, xzr, rt, + xzr, rn); +} + +/* Helper function for data processing instructions with register sources. */ + +static int +emit_data_processing_reg (uint32_t *buf, uint32_t opcode, + struct aarch64_register rd, + struct aarch64_register rn, + struct aarch64_register rm) +{ + uint32_t size = ENCODE (rd.is64, 1, 31); + + return aarch64_emit_insn (buf, opcode | size | ENCODE (rm.num, 5, 16) + | ENCODE (rn.num, 5, 5) | ENCODE (rd.num, 5, 0)); +} + +/* Helper function for data processing instructions taking either a register + or an immediate. */ + +static int +emit_data_processing (uint32_t *buf, enum aarch64_opcodes opcode, + struct aarch64_register rd, + struct aarch64_register rn, + struct aarch64_operand operand) +{ + uint32_t size = ENCODE (rd.is64, 1, 31); + /* The opcode is different for register and immediate source operands. */ + uint32_t operand_opcode; + + if (operand.type == OPERAND_IMMEDIATE) + { + /* xxx1 000x xxxx xxxx xxxx xxxx xxxx xxxx */ + operand_opcode = ENCODE (8, 4, 25); + + return aarch64_emit_insn (buf, opcode | operand_opcode | size + | ENCODE (operand.imm, 12, 10) + | ENCODE (rn.num, 5, 5) + | ENCODE (rd.num, 5, 0)); + } + else + { + /* xxx0 101x xxxx xxxx xxxx xxxx xxxx xxxx */ + operand_opcode = ENCODE (5, 4, 25); + + return emit_data_processing_reg (buf, opcode | operand_opcode, rd, + rn, operand.reg); + } +} + +/* Write an ADD instruction into *BUF. + + ADD rd, rn, #imm + ADD rd, rn, rm + + This function handles both an immediate and register add. + + RD is the destination register. + RN is the input register. + OPERAND is the source operand, either of type OPERAND_IMMEDIATE or + OPERAND_REGISTER. */ + +static int +emit_add (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, struct aarch64_operand operand) +{ + return emit_data_processing (buf, ADD, rd, rn, operand); +} + +/* Write a SUB instruction into *BUF. + + SUB rd, rn, #imm + SUB rd, rn, rm + + This function handles both an immediate and register sub. + + RD is the destination register. + RN is the input register. + IMM is the immediate to substract to RN. */ + +static int +emit_sub (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, struct aarch64_operand operand) +{ + return emit_data_processing (buf, SUB, rd, rn, operand); +} + +/* Write a MOV instruction into *BUF. + + MOV rd, #imm + MOV rd, rm + + This function handles both a wide immediate move and a register move, + with the condition that the source register is not xzr. xzr and the + stack pointer share the same encoding and this function only supports + the stack pointer. + + RD is the destination register. + OPERAND is the source operand, either of type OPERAND_IMMEDIATE or + OPERAND_REGISTER. */ + +static int +emit_mov (uint32_t *buf, struct aarch64_register rd, + struct aarch64_operand operand) +{ + if (operand.type == OPERAND_IMMEDIATE) + { + uint32_t size = ENCODE (rd.is64, 1, 31); + /* Do not shift the immediate. */ + uint32_t shift = ENCODE (0, 2, 21); + + return aarch64_emit_insn (buf, MOV | size | shift + | ENCODE (operand.imm, 16, 5) + | ENCODE (rd.num, 5, 0)); + } + else + return emit_add (buf, rd, operand.reg, immediate_operand (0)); +} + +/* Write a MOVK instruction into *BUF. + + MOVK rd, #imm, lsl #shift + + RD is the destination register. + IMM is the immediate. + SHIFT is the logical shift left to apply to IMM. */ + +static int +emit_movk (uint32_t *buf, struct aarch64_register rd, uint32_t imm, + unsigned shift) +{ + uint32_t size = ENCODE (rd.is64, 1, 31); + + return aarch64_emit_insn (buf, MOVK | size | ENCODE (shift, 2, 21) | + ENCODE (imm, 16, 5) | ENCODE (rd.num, 5, 0)); +} + +/* Write instructions into *BUF in order to move ADDR into a register. + ADDR can be a 64-bit value. + + This function will emit a series of MOV and MOVK instructions, such as: + + MOV xd, #(addr) + MOVK xd, #(addr >> 16), lsl #16 + MOVK xd, #(addr >> 32), lsl #32 + MOVK xd, #(addr >> 48), lsl #48 */ + +static int +emit_mov_addr (uint32_t *buf, struct aarch64_register rd, CORE_ADDR addr) +{ + uint32_t *p = buf; + + /* The MOV (wide immediate) instruction clears to top bits of the + register. */ + p += emit_mov (p, rd, immediate_operand (addr & 0xffff)); + + if ((addr >> 16) != 0) + p += emit_movk (p, rd, (addr >> 16) & 0xffff, 1); + else + return p - buf; + + if ((addr >> 32) != 0) + p += emit_movk (p, rd, (addr >> 32) & 0xffff, 2); + else + return p - buf; + + if ((addr >> 48) != 0) + p += emit_movk (p, rd, (addr >> 48) & 0xffff, 3); + + return p - buf; +} + +/* Write a SUBS instruction into *BUF. + + SUBS rd, rn, rm + + This instruction update the condition flags. + + RD is the destination register. + RN and RM are the source registers. */ + +static int +emit_subs (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, struct aarch64_operand operand) +{ + return emit_data_processing (buf, SUBS, rd, rn, operand); +} + +/* Write a CMP instruction into *BUF. + + CMP rn, rm + + This instruction is an alias of SUBS xzr, rn, rm. + + RN and RM are the registers to compare. */ + +static int +emit_cmp (uint32_t *buf, struct aarch64_register rn, + struct aarch64_operand operand) +{ + return emit_subs (buf, xzr, rn, operand); +} + +/* Write a AND instruction into *BUF. + + AND rd, rn, rm + + RD is the destination register. + RN and RM are the source registers. */ + +static int +emit_and (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, struct aarch64_register rm) +{ + return emit_data_processing_reg (buf, AND, rd, rn, rm); +} + +/* Write a ORR instruction into *BUF. + + ORR rd, rn, rm + + RD is the destination register. + RN and RM are the source registers. */ + +static int +emit_orr (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, struct aarch64_register rm) +{ + return emit_data_processing_reg (buf, ORR, rd, rn, rm); +} + +/* Write a ORN instruction into *BUF. + + ORN rd, rn, rm + + RD is the destination register. + RN and RM are the source registers. */ + +static int +emit_orn (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, struct aarch64_register rm) +{ + return emit_data_processing_reg (buf, ORN, rd, rn, rm); +} + +/* Write a EOR instruction into *BUF. + + EOR rd, rn, rm + + RD is the destination register. + RN and RM are the source registers. */ + +static int +emit_eor (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, struct aarch64_register rm) +{ + return emit_data_processing_reg (buf, EOR, rd, rn, rm); +} + +/* Write a MVN instruction into *BUF. + + MVN rd, rm + + This is an alias for ORN rd, xzr, rm. + + RD is the destination register. + RM is the source register. */ + +static int +emit_mvn (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rm) +{ + return emit_orn (buf, rd, xzr, rm); +} + +/* Write a LSLV instruction into *BUF. + + LSLV rd, rn, rm + + RD is the destination register. + RN and RM are the source registers. */ + +static int +emit_lslv (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, struct aarch64_register rm) +{ + return emit_data_processing_reg (buf, LSLV, rd, rn, rm); +} + +/* Write a LSRV instruction into *BUF. + + LSRV rd, rn, rm + + RD is the destination register. + RN and RM are the source registers. */ + +static int +emit_lsrv (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, struct aarch64_register rm) +{ + return emit_data_processing_reg (buf, LSRV, rd, rn, rm); +} + +/* Write a ASRV instruction into *BUF. + + ASRV rd, rn, rm + + RD is the destination register. + RN and RM are the source registers. */ + +static int +emit_asrv (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, struct aarch64_register rm) +{ + return emit_data_processing_reg (buf, ASRV, rd, rn, rm); +} + +/* Write a MUL instruction into *BUF. + + MUL rd, rn, rm + + RD is the destination register. + RN and RM are the source registers. */ + +static int +emit_mul (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, struct aarch64_register rm) +{ + return emit_data_processing_reg (buf, MUL, rd, rn, rm); +} + +/* Write a MRS instruction into *BUF. The register size is 64-bit. + + MRS xt, system_reg + + RT is the destination register. + SYSTEM_REG is special purpose register to read. */ + +static int +emit_mrs (uint32_t *buf, struct aarch64_register rt, + enum aarch64_system_control_registers system_reg) +{ + return aarch64_emit_insn (buf, MRS | ENCODE (system_reg, 15, 5) + | ENCODE (rt.num, 5, 0)); +} + +/* Write a MSR instruction into *BUF. The register size is 64-bit. + + MSR system_reg, xt + + SYSTEM_REG is special purpose register to write. + RT is the input register. */ + +static int +emit_msr (uint32_t *buf, enum aarch64_system_control_registers system_reg, + struct aarch64_register rt) +{ + return aarch64_emit_insn (buf, MSR | ENCODE (system_reg, 15, 5) + | ENCODE (rt.num, 5, 0)); +} + +/* Write a SEVL instruction into *BUF. + + This is a hint instruction telling the hardware to trigger an event. */ + +static int +emit_sevl (uint32_t *buf) +{ + return aarch64_emit_insn (buf, SEVL); +} + +/* Write a WFE instruction into *BUF. + + This is a hint instruction telling the hardware to wait for an event. */ + +static int +emit_wfe (uint32_t *buf) +{ + return aarch64_emit_insn (buf, WFE); +} + +/* Write a SBFM instruction into *BUF. + + SBFM rd, rn, #immr, #imms + + This instruction moves the bits from #immr to #imms into the + destination, sign extending the result. + + RD is the destination register. + RN is the source register. + IMMR is the bit number to start at (least significant bit). + IMMS is the bit number to stop at (most significant bit). */ + +static int +emit_sbfm (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, uint32_t immr, uint32_t imms) +{ + uint32_t size = ENCODE (rd.is64, 1, 31); + uint32_t n = ENCODE (rd.is64, 1, 22); + + return aarch64_emit_insn (buf, SBFM | size | n | ENCODE (immr, 6, 16) + | ENCODE (imms, 6, 10) | ENCODE (rn.num, 5, 5) + | ENCODE (rd.num, 5, 0)); +} + +/* Write a SBFX instruction into *BUF. + + SBFX rd, rn, #lsb, #width + + This instruction moves #width bits from #lsb into the destination, sign + extending the result. This is an alias for: + + SBFM rd, rn, #lsb, #(lsb + width - 1) + + RD is the destination register. + RN is the source register. + LSB is the bit number to start at (least significant bit). + WIDTH is the number of bits to move. */ + +static int +emit_sbfx (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, uint32_t lsb, uint32_t width) +{ + return emit_sbfm (buf, rd, rn, lsb, lsb + width - 1); +} + +/* Write a UBFM instruction into *BUF. + + UBFM rd, rn, #immr, #imms + + This instruction moves the bits from #immr to #imms into the + destination, extending the result with zeros. + + RD is the destination register. + RN is the source register. + IMMR is the bit number to start at (least significant bit). + IMMS is the bit number to stop at (most significant bit). */ + +static int +emit_ubfm (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, uint32_t immr, uint32_t imms) +{ + uint32_t size = ENCODE (rd.is64, 1, 31); + uint32_t n = ENCODE (rd.is64, 1, 22); + + return aarch64_emit_insn (buf, UBFM | size | n | ENCODE (immr, 6, 16) + | ENCODE (imms, 6, 10) | ENCODE (rn.num, 5, 5) + | ENCODE (rd.num, 5, 0)); +} + +/* Write a UBFX instruction into *BUF. + + UBFX rd, rn, #lsb, #width + + This instruction moves #width bits from #lsb into the destination, + extending the result with zeros. This is an alias for: + + UBFM rd, rn, #lsb, #(lsb + width - 1) + + RD is the destination register. + RN is the source register. + LSB is the bit number to start at (least significant bit). + WIDTH is the number of bits to move. */ + +static int +emit_ubfx (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, uint32_t lsb, uint32_t width) +{ + return emit_ubfm (buf, rd, rn, lsb, lsb + width - 1); +} + +/* Write a CSINC instruction into *BUF. + + CSINC rd, rn, rm, cond + + This instruction conditionally increments rn or rm and places the result + in rd. rn is chosen is the condition is true. + + RD is the destination register. + RN and RM are the source registers. + COND is the encoded condition. */ + +static int +emit_csinc (uint32_t *buf, struct aarch64_register rd, + struct aarch64_register rn, struct aarch64_register rm, + unsigned cond) +{ + uint32_t size = ENCODE (rd.is64, 1, 31); + + return aarch64_emit_insn (buf, CSINC | size | ENCODE (rm.num, 5, 16) + | ENCODE (cond, 4, 12) | ENCODE (rn.num, 5, 5) + | ENCODE (rd.num, 5, 0)); +} + +/* Write a CSET instruction into *BUF. + + CSET rd, cond + + This instruction conditionally write 1 or 0 in the destination register. + 1 is written if the condition is true. This is an alias for: + + CSINC rd, xzr, xzr, !cond + + Note that the condition needs to be inverted. + + RD is the destination register. + RN and RM are the source registers. + COND is the encoded condition. */ + +static int +emit_cset (uint32_t *buf, struct aarch64_register rd, unsigned cond) +{ + /* The least significant bit of the condition needs toggling in order to + invert it. */ + return emit_csinc (buf, rd, xzr, xzr, cond ^ 0x1); +} + +/* Write LEN instructions from BUF into the inferior memory at *TO. + + Note instructions are always little endian on AArch64, unlike data. */ + +static void +append_insns (CORE_ADDR *to, size_t len, const uint32_t *buf) +{ + size_t byte_len = len * sizeof (uint32_t); +#if (__BYTE_ORDER == __BIG_ENDIAN) + uint32_t *le_buf = (uint32_t *) xmalloc (byte_len); + size_t i; + + for (i = 0; i < len; i++) + le_buf[i] = htole32 (buf[i]); + + target_write_memory (*to, (const unsigned char *) le_buf, byte_len); + + xfree (le_buf); +#else + target_write_memory (*to, (const unsigned char *) buf, byte_len); +#endif + + *to += byte_len; +} + +/* Sub-class of struct aarch64_insn_data, store information of + instruction relocation for fast tracepoint. Visitor can + relocate an instruction from BASE.INSN_ADDR to NEW_ADDR and save + the relocated instructions in buffer pointed by INSN_PTR. */ + +struct aarch64_insn_relocation_data +{ + struct aarch64_insn_data base; + + /* The new address the instruction is relocated to. */ + CORE_ADDR new_addr; + /* Pointer to the buffer of relocated instruction(s). */ + uint32_t *insn_ptr; +}; + +/* Implementation of aarch64_insn_visitor method "b". */ + +static void +aarch64_ftrace_insn_reloc_b (const int is_bl, const int32_t offset, + struct aarch64_insn_data *data) +{ + struct aarch64_insn_relocation_data *insn_reloc + = (struct aarch64_insn_relocation_data *) data; + int64_t new_offset + = insn_reloc->base.insn_addr - insn_reloc->new_addr + offset; + + if (can_encode_int32 (new_offset, 28)) + insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, is_bl, new_offset); +} + +/* Implementation of aarch64_insn_visitor method "b_cond". */ + +static void +aarch64_ftrace_insn_reloc_b_cond (const unsigned cond, const int32_t offset, + struct aarch64_insn_data *data) +{ + struct aarch64_insn_relocation_data *insn_reloc + = (struct aarch64_insn_relocation_data *) data; + int64_t new_offset + = insn_reloc->base.insn_addr - insn_reloc->new_addr + offset; + + if (can_encode_int32 (new_offset, 21)) + { + insn_reloc->insn_ptr += emit_bcond (insn_reloc->insn_ptr, cond, + new_offset); + } + else if (can_encode_int32 (new_offset, 28)) + { + /* The offset is out of range for a conditional branch + instruction but not for a unconditional branch. We can use + the following instructions instead: + + B.COND TAKEN ; If cond is true, then jump to TAKEN. + B NOT_TAKEN ; Else jump over TAKEN and continue. + TAKEN: + B #(offset - 8) + NOT_TAKEN: + + */ + + insn_reloc->insn_ptr += emit_bcond (insn_reloc->insn_ptr, cond, 8); + insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, 0, 8); + insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, 0, new_offset - 8); + } +} + +/* Implementation of aarch64_insn_visitor method "cb". */ + +static void +aarch64_ftrace_insn_reloc_cb (const int32_t offset, const int is_cbnz, + const unsigned rn, int is64, + struct aarch64_insn_data *data) +{ + struct aarch64_insn_relocation_data *insn_reloc + = (struct aarch64_insn_relocation_data *) data; + int64_t new_offset + = insn_reloc->base.insn_addr - insn_reloc->new_addr + offset; + + if (can_encode_int32 (new_offset, 21)) + { + insn_reloc->insn_ptr += emit_cb (insn_reloc->insn_ptr, is_cbnz, + aarch64_register (rn, is64), new_offset); + } + else if (can_encode_int32 (new_offset, 28)) + { + /* The offset is out of range for a compare and branch + instruction but not for a unconditional branch. We can use + the following instructions instead: + + CBZ xn, TAKEN ; xn == 0, then jump to TAKEN. + B NOT_TAKEN ; Else jump over TAKEN and continue. + TAKEN: + B #(offset - 8) + NOT_TAKEN: + + */ + insn_reloc->insn_ptr += emit_cb (insn_reloc->insn_ptr, is_cbnz, + aarch64_register (rn, is64), 8); + insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, 0, 8); + insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, 0, new_offset - 8); + } +} + +/* Implementation of aarch64_insn_visitor method "tb". */ + +static void +aarch64_ftrace_insn_reloc_tb (const int32_t offset, int is_tbnz, + const unsigned rt, unsigned bit, + struct aarch64_insn_data *data) +{ + struct aarch64_insn_relocation_data *insn_reloc + = (struct aarch64_insn_relocation_data *) data; + int64_t new_offset + = insn_reloc->base.insn_addr - insn_reloc->new_addr + offset; + + if (can_encode_int32 (new_offset, 16)) + { + insn_reloc->insn_ptr += emit_tb (insn_reloc->insn_ptr, is_tbnz, bit, + aarch64_register (rt, 1), new_offset); + } + else if (can_encode_int32 (new_offset, 28)) + { + /* The offset is out of range for a test bit and branch + instruction but not for a unconditional branch. We can use + the following instructions instead: + + TBZ xn, #bit, TAKEN ; xn[bit] == 0, then jump to TAKEN. + B NOT_TAKEN ; Else jump over TAKEN and continue. + TAKEN: + B #(offset - 8) + NOT_TAKEN: + + */ + insn_reloc->insn_ptr += emit_tb (insn_reloc->insn_ptr, is_tbnz, bit, + aarch64_register (rt, 1), 8); + insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, 0, 8); + insn_reloc->insn_ptr += emit_b (insn_reloc->insn_ptr, 0, + new_offset - 8); + } +} + +/* Implementation of aarch64_insn_visitor method "adr". */ + +static void +aarch64_ftrace_insn_reloc_adr (const int32_t offset, const unsigned rd, + const int is_adrp, + struct aarch64_insn_data *data) +{ + struct aarch64_insn_relocation_data *insn_reloc + = (struct aarch64_insn_relocation_data *) data; + /* We know exactly the address the ADR{P,} instruction will compute. + We can just write it to the destination register. */ + CORE_ADDR address = data->insn_addr + offset; + + if (is_adrp) + { + /* Clear the lower 12 bits of the offset to get the 4K page. */ + insn_reloc->insn_ptr += emit_mov_addr (insn_reloc->insn_ptr, + aarch64_register (rd, 1), + address & ~0xfff); + } + else + insn_reloc->insn_ptr += emit_mov_addr (insn_reloc->insn_ptr, + aarch64_register (rd, 1), address); +} + +/* Implementation of aarch64_insn_visitor method "ldr_literal". */ + +static void +aarch64_ftrace_insn_reloc_ldr_literal (const int32_t offset, const int is_sw, + const unsigned rt, const int is64, + struct aarch64_insn_data *data) +{ + struct aarch64_insn_relocation_data *insn_reloc + = (struct aarch64_insn_relocation_data *) data; + CORE_ADDR address = data->insn_addr + offset; + + insn_reloc->insn_ptr += emit_mov_addr (insn_reloc->insn_ptr, + aarch64_register (rt, 1), address); + + /* We know exactly what address to load from, and what register we + can use: + + MOV xd, #(oldloc + offset) + MOVK xd, #((oldloc + offset) >> 16), lsl #16 + ... + + LDR xd, [xd] ; or LDRSW xd, [xd] + + */ + + if (is_sw) + insn_reloc->insn_ptr += emit_ldrsw (insn_reloc->insn_ptr, + aarch64_register (rt, 1), + aarch64_register (rt, 1), + offset_memory_operand (0)); + else + insn_reloc->insn_ptr += emit_ldr (insn_reloc->insn_ptr, + aarch64_register (rt, is64), + aarch64_register (rt, 1), + offset_memory_operand (0)); +} + +/* Implementation of aarch64_insn_visitor method "others". */ + +static void +aarch64_ftrace_insn_reloc_others (const uint32_t insn, + struct aarch64_insn_data *data) +{ + struct aarch64_insn_relocation_data *insn_reloc + = (struct aarch64_insn_relocation_data *) data; + + /* The instruction is not PC relative. Just re-emit it at the new + location. */ + insn_reloc->insn_ptr += aarch64_emit_insn (insn_reloc->insn_ptr, insn); +} + +static const struct aarch64_insn_visitor visitor = +{ + aarch64_ftrace_insn_reloc_b, + aarch64_ftrace_insn_reloc_b_cond, + aarch64_ftrace_insn_reloc_cb, + aarch64_ftrace_insn_reloc_tb, + aarch64_ftrace_insn_reloc_adr, + aarch64_ftrace_insn_reloc_ldr_literal, + aarch64_ftrace_insn_reloc_others, +}; + +/* Implementation of linux_target_ops method + "install_fast_tracepoint_jump_pad". */ + +static int +aarch64_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, + CORE_ADDR tpaddr, + CORE_ADDR collector, + CORE_ADDR lockaddr, + ULONGEST orig_size, + CORE_ADDR *jump_entry, + CORE_ADDR *trampoline, + ULONGEST *trampoline_size, + unsigned char *jjump_pad_insn, + ULONGEST *jjump_pad_insn_size, + CORE_ADDR *adjusted_insn_addr, + CORE_ADDR *adjusted_insn_addr_end, + char *err) +{ + uint32_t buf[256]; + uint32_t *p = buf; + int64_t offset; + int i; + uint32_t insn; + CORE_ADDR buildaddr = *jump_entry; + struct aarch64_insn_relocation_data insn_data; + + /* We need to save the current state on the stack both to restore it + later and to collect register values when the tracepoint is hit. + + The saved registers are pushed in a layout that needs to be in sync + with aarch64_ft_collect_regmap (see linux-aarch64-ipa.c). Later on + the supply_fast_tracepoint_registers function will fill in the + register cache from a pointer to saved registers on the stack we build + here. + + For simplicity, we set the size of each cell on the stack to 16 bytes. + This way one cell can hold any register type, from system registers + to the 128 bit SIMD&FP registers. Furthermore, the stack pointer + has to be 16 bytes aligned anyway. + + Note that the CPSR register does not exist on AArch64. Instead we + can access system bits describing the process state with the + MRS/MSR instructions, namely the condition flags. We save them as + if they are part of a CPSR register because that's how GDB + interprets these system bits. At the moment, only the condition + flags are saved in CPSR (NZCV). + + Stack layout, each cell is 16 bytes (descending): + + High *-------- SIMD&FP registers from 31 down to 0. --------* + | q31 | + . . + . . 32 cells + . . + | q0 | + *---- General purpose registers from 30 down to 0. ----* + | x30 | + . . + . . 31 cells + . . + | x0 | + *------------- Special purpose registers. -------------* + | SP | + | PC | + | CPSR (NZCV) | 5 cells + | FPSR | + | FPCR | <- SP + 16 + *------------- collecting_t object --------------------* + | TPIDR_EL0 | struct tracepoint * | + Low *------------------------------------------------------* + + After this stack is set up, we issue a call to the collector, passing + it the saved registers at (SP + 16). */ + + /* Push SIMD&FP registers on the stack: + + SUB sp, sp, #(32 * 16) + + STP q30, q31, [sp, #(30 * 16)] + ... + STP q0, q1, [sp] + + */ + p += emit_sub (p, sp, sp, immediate_operand (32 * 16)); + for (i = 30; i >= 0; i -= 2) + p += emit_stp_q_offset (p, i, i + 1, sp, i * 16); + + /* Push general purpose registers on the stack. Note that we do not need + to push x31 as it represents the xzr register and not the stack + pointer in a STR instruction. + + SUB sp, sp, #(31 * 16) + + STR x30, [sp, #(30 * 16)] + ... + STR x0, [sp] + + */ + p += emit_sub (p, sp, sp, immediate_operand (31 * 16)); + for (i = 30; i >= 0; i -= 1) + p += emit_str (p, aarch64_register (i, 1), sp, + offset_memory_operand (i * 16)); + + /* Make space for 5 more cells. + + SUB sp, sp, #(5 * 16) + + */ + p += emit_sub (p, sp, sp, immediate_operand (5 * 16)); + + + /* Save SP: + + ADD x4, sp, #((32 + 31 + 5) * 16) + STR x4, [sp, #(4 * 16)] + + */ + p += emit_add (p, x4, sp, immediate_operand ((32 + 31 + 5) * 16)); + p += emit_str (p, x4, sp, offset_memory_operand (4 * 16)); + + /* Save PC (tracepoint address): + + MOV x3, #(tpaddr) + ... + + STR x3, [sp, #(3 * 16)] + + */ + + p += emit_mov_addr (p, x3, tpaddr); + p += emit_str (p, x3, sp, offset_memory_operand (3 * 16)); + + /* Save CPSR (NZCV), FPSR and FPCR: + + MRS x2, nzcv + MRS x1, fpsr + MRS x0, fpcr + + STR x2, [sp, #(2 * 16)] + STR x1, [sp, #(1 * 16)] + STR x0, [sp, #(0 * 16)] + + */ + p += emit_mrs (p, x2, NZCV); + p += emit_mrs (p, x1, FPSR); + p += emit_mrs (p, x0, FPCR); + p += emit_str (p, x2, sp, offset_memory_operand (2 * 16)); + p += emit_str (p, x1, sp, offset_memory_operand (1 * 16)); + p += emit_str (p, x0, sp, offset_memory_operand (0 * 16)); + + /* Push the collecting_t object. It consist of the address of the + tracepoint and an ID for the current thread. We get the latter by + reading the tpidr_el0 system register. It corresponds to the + NT_ARM_TLS register accessible with ptrace. + + MOV x0, #(tpoint) + ... + + MRS x1, tpidr_el0 + + STP x0, x1, [sp, #-16]! + + */ + + p += emit_mov_addr (p, x0, tpoint); + p += emit_mrs (p, x1, TPIDR_EL0); + p += emit_stp (p, x0, x1, sp, preindex_memory_operand (-16)); + + /* Spin-lock: + + The shared memory for the lock is at lockaddr. It will hold zero + if no-one is holding the lock, otherwise it contains the address of + the collecting_t object on the stack of the thread which acquired it. + + At this stage, the stack pointer points to this thread's collecting_t + object. + + We use the following registers: + - x0: Address of the lock. + - x1: Pointer to collecting_t object. + - x2: Scratch register. + + MOV x0, #(lockaddr) + ... + MOV x1, sp + + ; Trigger an event local to this core. So the following WFE + ; instruction is ignored. + SEVL + again: + ; Wait for an event. The event is triggered by either the SEVL + ; or STLR instructions (store release). + WFE + + ; Atomically read at lockaddr. This marks the memory location as + ; exclusive. This instruction also has memory constraints which + ; make sure all previous data reads and writes are done before + ; executing it. + LDAXR x2, [x0] + + ; Try again if another thread holds the lock. + CBNZ x2, again + + ; We can lock it! Write the address of the collecting_t object. + ; This instruction will fail if the memory location is not marked + ; as exclusive anymore. If it succeeds, it will remove the + ; exclusive mark on the memory location. This way, if another + ; thread executes this instruction before us, we will fail and try + ; all over again. + STXR w2, x1, [x0] + CBNZ w2, again + + */ + + p += emit_mov_addr (p, x0, lockaddr); + p += emit_mov (p, x1, register_operand (sp)); + + p += emit_sevl (p); + p += emit_wfe (p); + p += emit_ldaxr (p, x2, x0); + p += emit_cb (p, 1, w2, -2 * 4); + p += emit_stxr (p, w2, x1, x0); + p += emit_cb (p, 1, x2, -4 * 4); + + /* Call collector (struct tracepoint *, unsigned char *): + + MOV x0, #(tpoint) + ... + + ; Saved registers start after the collecting_t object. + ADD x1, sp, #16 + + ; We use an intra-procedure-call scratch register. + MOV ip0, #(collector) + ... + + ; And call back to C! + BLR ip0 + + */ + + p += emit_mov_addr (p, x0, tpoint); + p += emit_add (p, x1, sp, immediate_operand (16)); + + p += emit_mov_addr (p, ip0, collector); + p += emit_blr (p, ip0); + + /* Release the lock. + + MOV x0, #(lockaddr) + ... + + ; This instruction is a normal store with memory ordering + ; constraints. Thanks to this we do not have to put a data + ; barrier instruction to make sure all data read and writes are done + ; before this instruction is executed. Furthermore, this instruction + ; will trigger an event, letting other threads know they can grab + ; the lock. + STLR xzr, [x0] + + */ + p += emit_mov_addr (p, x0, lockaddr); + p += emit_stlr (p, xzr, x0); + + /* Free collecting_t object: + + ADD sp, sp, #16 + + */ + p += emit_add (p, sp, sp, immediate_operand (16)); + + /* Restore CPSR (NZCV), FPSR and FPCR. And free all special purpose + registers from the stack. + + LDR x2, [sp, #(2 * 16)] + LDR x1, [sp, #(1 * 16)] + LDR x0, [sp, #(0 * 16)] + + MSR NZCV, x2 + MSR FPSR, x1 + MSR FPCR, x0 + + ADD sp, sp #(5 * 16) + + */ + p += emit_ldr (p, x2, sp, offset_memory_operand (2 * 16)); + p += emit_ldr (p, x1, sp, offset_memory_operand (1 * 16)); + p += emit_ldr (p, x0, sp, offset_memory_operand (0 * 16)); + p += emit_msr (p, NZCV, x2); + p += emit_msr (p, FPSR, x1); + p += emit_msr (p, FPCR, x0); + + p += emit_add (p, sp, sp, immediate_operand (5 * 16)); + + /* Pop general purpose registers: + + LDR x0, [sp] + ... + LDR x30, [sp, #(30 * 16)] + + ADD sp, sp, #(31 * 16) + + */ + for (i = 0; i <= 30; i += 1) + p += emit_ldr (p, aarch64_register (i, 1), sp, + offset_memory_operand (i * 16)); + p += emit_add (p, sp, sp, immediate_operand (31 * 16)); + + /* Pop SIMD&FP registers: + + LDP q0, q1, [sp] + ... + LDP q30, q31, [sp, #(30 * 16)] + + ADD sp, sp, #(32 * 16) + + */ + for (i = 0; i <= 30; i += 2) + p += emit_ldp_q_offset (p, i, i + 1, sp, i * 16); + p += emit_add (p, sp, sp, immediate_operand (32 * 16)); + + /* Write the code into the inferior memory. */ + append_insns (&buildaddr, p - buf, buf); + + /* Now emit the relocated instruction. */ + *adjusted_insn_addr = buildaddr; + target_read_uint32 (tpaddr, &insn); + + insn_data.base.insn_addr = tpaddr; + insn_data.new_addr = buildaddr; + insn_data.insn_ptr = buf; + + aarch64_relocate_instruction (insn, &visitor, + (struct aarch64_insn_data *) &insn_data); + + /* We may not have been able to relocate the instruction. */ + if (insn_data.insn_ptr == buf) + { + sprintf (err, + "E.Could not relocate instruction from %s to %s.", + core_addr_to_string_nz (tpaddr), + core_addr_to_string_nz (buildaddr)); + return 1; + } + else + append_insns (&buildaddr, insn_data.insn_ptr - buf, buf); + *adjusted_insn_addr_end = buildaddr; + + /* Go back to the start of the buffer. */ + p = buf; + + /* Emit a branch back from the jump pad. */ + offset = (tpaddr + orig_size - buildaddr); + if (!can_encode_int32 (offset, 28)) + { + sprintf (err, + "E.Jump back from jump pad too far from tracepoint " + "(offset 0x%" PRIx64 " cannot be encoded in 28 bits).", + offset); + return 1; + } + + p += emit_b (p, 0, offset); + append_insns (&buildaddr, p - buf, buf); + + /* Give the caller a branch instruction into the jump pad. */ + offset = (*jump_entry - tpaddr); + if (!can_encode_int32 (offset, 28)) + { + sprintf (err, + "E.Jump pad too far from tracepoint " + "(offset 0x%" PRIx64 " cannot be encoded in 28 bits).", + offset); + return 1; + } + + emit_b ((uint32_t *) jjump_pad_insn, 0, offset); + *jjump_pad_insn_size = 4; + + /* Return the end address of our pad. */ + *jump_entry = buildaddr; + + return 0; +} + +/* Helper function writing LEN instructions from START into + current_insn_ptr. */ + +static void +emit_ops_insns (const uint32_t *start, int len) +{ + CORE_ADDR buildaddr = current_insn_ptr; + + if (debug_threads) + debug_printf ("Adding %d instrucions at %s\n", + len, paddress (buildaddr)); + + append_insns (&buildaddr, len, start); + current_insn_ptr = buildaddr; +} + +/* Pop a register from the stack. */ + +static int +emit_pop (uint32_t *buf, struct aarch64_register rt) +{ + return emit_ldr (buf, rt, sp, postindex_memory_operand (1 * 16)); +} + +/* Push a register on the stack. */ + +static int +emit_push (uint32_t *buf, struct aarch64_register rt) +{ + return emit_str (buf, rt, sp, preindex_memory_operand (-1 * 16)); +} + +/* Implementation of emit_ops method "emit_prologue". */ + +static void +aarch64_emit_prologue (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + /* This function emit a prologue for the following function prototype: + + enum eval_result_type f (unsigned char *regs, + ULONGEST *value); + + The first argument is a buffer of raw registers. The second + argument is the result of + evaluating the expression, which will be set to whatever is on top of + the stack at the end. + + The stack set up by the prologue is as such: + + High *------------------------------------------------------* + | LR | + | FP | <- FP + | x1 (ULONGEST *value) | + | x0 (unsigned char *regs) | + Low *------------------------------------------------------* + + As we are implementing a stack machine, each opcode can expand the + stack so we never know how far we are from the data saved by this + prologue. In order to be able refer to value and regs later, we save + the current stack pointer in the frame pointer. This way, it is not + clobbered when calling C functions. + + Finally, throughout every operation, we are using register x0 as the + top of the stack, and x1 as a scratch register. */ + + p += emit_stp (p, x0, x1, sp, preindex_memory_operand (-2 * 16)); + p += emit_str (p, lr, sp, offset_memory_operand (3 * 8)); + p += emit_str (p, fp, sp, offset_memory_operand (2 * 8)); + + p += emit_add (p, fp, sp, immediate_operand (2 * 8)); + + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_epilogue". */ + +static void +aarch64_emit_epilogue (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + /* Store the result of the expression (x0) in *value. */ + p += emit_sub (p, x1, fp, immediate_operand (1 * 8)); + p += emit_ldr (p, x1, x1, offset_memory_operand (0)); + p += emit_str (p, x0, x1, offset_memory_operand (0)); + + /* Restore the previous state. */ + p += emit_add (p, sp, fp, immediate_operand (2 * 8)); + p += emit_ldp (p, fp, lr, fp, offset_memory_operand (0)); + + /* Return expr_eval_no_error. */ + p += emit_mov (p, x0, immediate_operand (expr_eval_no_error)); + p += emit_ret (p, lr); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_add". */ + +static void +aarch64_emit_add (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_add (p, x0, x1, register_operand (x0)); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_sub". */ + +static void +aarch64_emit_sub (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_sub (p, x0, x1, register_operand (x0)); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_mul". */ + +static void +aarch64_emit_mul (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_mul (p, x0, x1, x0); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_lsh". */ + +static void +aarch64_emit_lsh (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_lslv (p, x0, x1, x0); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_rsh_signed". */ + +static void +aarch64_emit_rsh_signed (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_asrv (p, x0, x1, x0); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_rsh_unsigned". */ + +static void +aarch64_emit_rsh_unsigned (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_lsrv (p, x0, x1, x0); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_ext". */ + +static void +aarch64_emit_ext (int arg) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_sbfx (p, x0, x0, 0, arg); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_log_not". */ + +static void +aarch64_emit_log_not (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + /* If the top of the stack is 0, replace it with 1. Else replace it with + 0. */ + + p += emit_cmp (p, x0, immediate_operand (0)); + p += emit_cset (p, x0, EQ); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_bit_and". */ + +static void +aarch64_emit_bit_and (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_and (p, x0, x0, x1); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_bit_or". */ + +static void +aarch64_emit_bit_or (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_orr (p, x0, x0, x1); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_bit_xor". */ + +static void +aarch64_emit_bit_xor (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_eor (p, x0, x0, x1); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_bit_not". */ + +static void +aarch64_emit_bit_not (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_mvn (p, x0, x0); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_equal". */ + +static void +aarch64_emit_equal (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_cmp (p, x0, register_operand (x1)); + p += emit_cset (p, x0, EQ); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_less_signed". */ + +static void +aarch64_emit_less_signed (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_cmp (p, x1, register_operand (x0)); + p += emit_cset (p, x0, LT); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_less_unsigned". */ + +static void +aarch64_emit_less_unsigned (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_cmp (p, x1, register_operand (x0)); + p += emit_cset (p, x0, LO); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_ref". */ + +static void +aarch64_emit_ref (int size) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + switch (size) + { + case 1: + p += emit_ldrb (p, w0, x0, offset_memory_operand (0)); + break; + case 2: + p += emit_ldrh (p, w0, x0, offset_memory_operand (0)); + break; + case 4: + p += emit_ldr (p, w0, x0, offset_memory_operand (0)); + break; + case 8: + p += emit_ldr (p, x0, x0, offset_memory_operand (0)); + break; + default: + /* Unknown size, bail on compilation. */ + emit_error = 1; + break; + } + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_if_goto". */ + +static void +aarch64_emit_if_goto (int *offset_p, int *size_p) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + /* The Z flag is set or cleared here. */ + p += emit_cmp (p, x0, immediate_operand (0)); + /* This instruction must not change the Z flag. */ + p += emit_pop (p, x0); + /* Branch over the next instruction if x0 == 0. */ + p += emit_bcond (p, EQ, 8); + + /* The NOP instruction will be patched with an unconditional branch. */ + if (offset_p) + *offset_p = (p - buf) * 4; + if (size_p) + *size_p = 4; + p += emit_nop (p); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_goto". */ + +static void +aarch64_emit_goto (int *offset_p, int *size_p) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + /* The NOP instruction will be patched with an unconditional branch. */ + if (offset_p) + *offset_p = 0; + if (size_p) + *size_p = 4; + p += emit_nop (p); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "write_goto_address". */ + +static void +aarch64_write_goto_address (CORE_ADDR from, CORE_ADDR to, int size) +{ + uint32_t insn; + + emit_b (&insn, 0, to - from); + append_insns (&from, 1, &insn); +} + +/* Implementation of emit_ops method "emit_const". */ + +static void +aarch64_emit_const (LONGEST num) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_mov_addr (p, x0, num); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_call". */ + +static void +aarch64_emit_call (CORE_ADDR fn) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_mov_addr (p, ip0, fn); + p += emit_blr (p, ip0); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_reg". */ + +static void +aarch64_emit_reg (int reg) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + /* Set x0 to unsigned char *regs. */ + p += emit_sub (p, x0, fp, immediate_operand (2 * 8)); + p += emit_ldr (p, x0, x0, offset_memory_operand (0)); + p += emit_mov (p, x1, immediate_operand (reg)); + + emit_ops_insns (buf, p - buf); + + aarch64_emit_call (get_raw_reg_func_addr ()); +} + +/* Implementation of emit_ops method "emit_pop". */ + +static void +aarch64_emit_pop (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x0); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_stack_flush". */ + +static void +aarch64_emit_stack_flush (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_push (p, x0); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_zero_ext". */ + +static void +aarch64_emit_zero_ext (int arg) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_ubfx (p, x0, x0, 0, arg); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_swap". */ + +static void +aarch64_emit_swap (void) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_ldr (p, x1, sp, offset_memory_operand (0 * 16)); + p += emit_str (p, x0, sp, offset_memory_operand (0 * 16)); + p += emit_mov (p, x0, register_operand (x1)); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_stack_adjust". */ + +static void +aarch64_emit_stack_adjust (int n) +{ + /* This is not needed with our design. */ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_add (p, sp, sp, immediate_operand (n * 16)); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_int_call_1". */ + +static void +aarch64_emit_int_call_1 (CORE_ADDR fn, int arg1) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_mov (p, x0, immediate_operand (arg1)); + + emit_ops_insns (buf, p - buf); + + aarch64_emit_call (fn); +} + +/* Implementation of emit_ops method "emit_void_call_2". */ + +static void +aarch64_emit_void_call_2 (CORE_ADDR fn, int arg1) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + /* Push x0 on the stack. */ + aarch64_emit_stack_flush (); + + /* Setup arguments for the function call: + + x0: arg1 + x1: top of the stack + + MOV x1, x0 + MOV x0, #arg1 */ + + p += emit_mov (p, x1, register_operand (x0)); + p += emit_mov (p, x0, immediate_operand (arg1)); + + emit_ops_insns (buf, p - buf); + + aarch64_emit_call (fn); + + /* Restore x0. */ + aarch64_emit_pop (); +} + +/* Implementation of emit_ops method "emit_eq_goto". */ + +static void +aarch64_emit_eq_goto (int *offset_p, int *size_p) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_cmp (p, x1, register_operand (x0)); + /* Branch over the next instruction if x0 != x1. */ + p += emit_bcond (p, NE, 8); + /* The NOP instruction will be patched with an unconditional branch. */ + if (offset_p) + *offset_p = (p - buf) * 4; + if (size_p) + *size_p = 4; + p += emit_nop (p); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_ne_goto". */ + +static void +aarch64_emit_ne_goto (int *offset_p, int *size_p) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_cmp (p, x1, register_operand (x0)); + /* Branch over the next instruction if x0 == x1. */ + p += emit_bcond (p, EQ, 8); + /* The NOP instruction will be patched with an unconditional branch. */ + if (offset_p) + *offset_p = (p - buf) * 4; + if (size_p) + *size_p = 4; + p += emit_nop (p); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_lt_goto". */ + +static void +aarch64_emit_lt_goto (int *offset_p, int *size_p) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_cmp (p, x1, register_operand (x0)); + /* Branch over the next instruction if x0 >= x1. */ + p += emit_bcond (p, GE, 8); + /* The NOP instruction will be patched with an unconditional branch. */ + if (offset_p) + *offset_p = (p - buf) * 4; + if (size_p) + *size_p = 4; + p += emit_nop (p); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_le_goto". */ + +static void +aarch64_emit_le_goto (int *offset_p, int *size_p) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_cmp (p, x1, register_operand (x0)); + /* Branch over the next instruction if x0 > x1. */ + p += emit_bcond (p, GT, 8); + /* The NOP instruction will be patched with an unconditional branch. */ + if (offset_p) + *offset_p = (p - buf) * 4; + if (size_p) + *size_p = 4; + p += emit_nop (p); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_gt_goto". */ + +static void +aarch64_emit_gt_goto (int *offset_p, int *size_p) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_cmp (p, x1, register_operand (x0)); + /* Branch over the next instruction if x0 <= x1. */ + p += emit_bcond (p, LE, 8); + /* The NOP instruction will be patched with an unconditional branch. */ + if (offset_p) + *offset_p = (p - buf) * 4; + if (size_p) + *size_p = 4; + p += emit_nop (p); + + emit_ops_insns (buf, p - buf); +} + +/* Implementation of emit_ops method "emit_ge_got". */ + +static void +aarch64_emit_ge_got (int *offset_p, int *size_p) +{ + uint32_t buf[16]; + uint32_t *p = buf; + + p += emit_pop (p, x1); + p += emit_cmp (p, x1, register_operand (x0)); + /* Branch over the next instruction if x0 <= x1. */ + p += emit_bcond (p, LT, 8); + /* The NOP instruction will be patched with an unconditional branch. */ + if (offset_p) + *offset_p = (p - buf) * 4; + if (size_p) + *size_p = 4; + p += emit_nop (p); + + emit_ops_insns (buf, p - buf); +} + +static struct emit_ops aarch64_emit_ops_impl = +{ + aarch64_emit_prologue, + aarch64_emit_epilogue, + aarch64_emit_add, + aarch64_emit_sub, + aarch64_emit_mul, + aarch64_emit_lsh, + aarch64_emit_rsh_signed, + aarch64_emit_rsh_unsigned, + aarch64_emit_ext, + aarch64_emit_log_not, + aarch64_emit_bit_and, + aarch64_emit_bit_or, + aarch64_emit_bit_xor, + aarch64_emit_bit_not, + aarch64_emit_equal, + aarch64_emit_less_signed, + aarch64_emit_less_unsigned, + aarch64_emit_ref, + aarch64_emit_if_goto, + aarch64_emit_goto, + aarch64_write_goto_address, + aarch64_emit_const, + aarch64_emit_call, + aarch64_emit_reg, + aarch64_emit_pop, + aarch64_emit_stack_flush, + aarch64_emit_zero_ext, + aarch64_emit_swap, + aarch64_emit_stack_adjust, + aarch64_emit_int_call_1, + aarch64_emit_void_call_2, + aarch64_emit_eq_goto, + aarch64_emit_ne_goto, + aarch64_emit_lt_goto, + aarch64_emit_le_goto, + aarch64_emit_gt_goto, + aarch64_emit_ge_got, +}; + +/* Implementation of linux_target_ops method "emit_ops". */ + +static struct emit_ops * +aarch64_emit_ops (void) +{ + return &aarch64_emit_ops_impl; +} + +/* Implementation of linux_target_ops method + "get_min_fast_tracepoint_insn_len". */ + +static int +aarch64_get_min_fast_tracepoint_insn_len (void) +{ + return 4; +} + +/* Implementation of linux_target_ops method "supports_range_stepping". */ + +static int +aarch64_supports_range_stepping (void) +{ + return 1; +} + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +aarch64_sw_breakpoint_from_kind (int kind, int *size) +{ + if (is_64bit_tdesc ()) + { + *size = aarch64_breakpoint_len; + return aarch64_breakpoint; + } + else + return arm_sw_breakpoint_from_kind (kind, size); +} + +/* Implementation of linux_target_ops method "breakpoint_kind_from_pc". */ + +static int +aarch64_breakpoint_kind_from_pc (CORE_ADDR *pcptr) +{ + if (is_64bit_tdesc ()) + return aarch64_breakpoint_len; + else + return arm_breakpoint_kind_from_pc (pcptr); +} + +/* Implementation of the linux_target_ops method + "breakpoint_kind_from_current_state". */ + +static int +aarch64_breakpoint_kind_from_current_state (CORE_ADDR *pcptr) +{ + if (is_64bit_tdesc ()) + return aarch64_breakpoint_len; + else + return arm_breakpoint_kind_from_current_state (pcptr); +} + +/* Support for hardware single step. */ + +static int +aarch64_supports_hardware_single_step (void) +{ + return 1; +} + +struct linux_target_ops the_low_target = +{ + aarch64_arch_setup, + aarch64_regs_info, + NULL, /* cannot_fetch_register */ + NULL, /* cannot_store_register */ + NULL, /* fetch_register */ + aarch64_get_pc, + aarch64_set_pc, + aarch64_breakpoint_kind_from_pc, + aarch64_sw_breakpoint_from_kind, + NULL, /* get_next_pcs */ + 0, /* decr_pc_after_break */ + aarch64_breakpoint_at, + aarch64_supports_z_point_type, + aarch64_insert_point, + aarch64_remove_point, + aarch64_stopped_by_watchpoint, + aarch64_stopped_data_address, + NULL, /* collect_ptrace_register */ + NULL, /* supply_ptrace_register */ + aarch64_linux_siginfo_fixup, + aarch64_linux_new_process, + aarch64_linux_delete_process, + aarch64_linux_new_thread, + aarch64_linux_delete_thread, + aarch64_linux_new_fork, + aarch64_linux_prepare_to_resume, + NULL, /* process_qsupported */ + aarch64_supports_tracepoints, + aarch64_get_thread_area, + aarch64_install_fast_tracepoint_jump_pad, + aarch64_emit_ops, + aarch64_get_min_fast_tracepoint_insn_len, + aarch64_supports_range_stepping, + aarch64_breakpoint_kind_from_current_state, + aarch64_supports_hardware_single_step, + aarch64_get_syscall_trapinfo, +}; + +void +initialize_low_arch (void) +{ + initialize_low_arch_aarch32 (); + + initialize_regsets_info (&aarch64_regsets_info); + initialize_regsets_info (&aarch64_sve_regsets_info); +} diff --git a/gdbserver/linux-aarch64-tdesc.c b/gdbserver/linux-aarch64-tdesc.c deleted file mode 100644 index 897fbb43bd2..00000000000 --- a/gdbserver/linux-aarch64-tdesc.c +++ /dev/null @@ -1,60 +0,0 @@ -/* GNU/Linux/aarch64 specific target description, for the remote server - for GDB. - Copyright (C) 2017-2020 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 . */ - -#include "server.h" - -#include "linux-aarch64-tdesc.h" - -#include "tdesc.h" -#include "arch/aarch64.h" -#include "linux-aarch32-low.h" -#include - -/* All possible aarch64 target descriptors. */ -struct target_desc *tdesc_aarch64_list[AARCH64_MAX_SVE_VQ + 1][2/*pauth*/]; - -/* Create the aarch64 target description. */ - -const target_desc * -aarch64_linux_read_description (uint64_t vq, bool pauth_p) -{ - if (vq > AARCH64_MAX_SVE_VQ) - error (_("VQ is %" PRIu64 ", maximum supported value is %d"), vq, - AARCH64_MAX_SVE_VQ); - - struct target_desc *tdesc = tdesc_aarch64_list[vq][pauth_p]; - - if (tdesc == NULL) - { - tdesc = aarch64_create_target_description (vq, pauth_p); - - static const char *expedite_regs_aarch64[] = { "x29", "sp", "pc", NULL }; - static const char *expedite_regs_aarch64_sve[] = { "x29", "sp", "pc", - "vg", NULL }; - - if (vq == 0) - init_target_desc (tdesc, expedite_regs_aarch64); - else - init_target_desc (tdesc, expedite_regs_aarch64_sve); - - tdesc_aarch64_list[vq][pauth_p] = tdesc; - } - - return tdesc; -} diff --git a/gdbserver/linux-aarch64-tdesc.cc b/gdbserver/linux-aarch64-tdesc.cc new file mode 100644 index 00000000000..897fbb43bd2 --- /dev/null +++ b/gdbserver/linux-aarch64-tdesc.cc @@ -0,0 +1,60 @@ +/* GNU/Linux/aarch64 specific target description, for the remote server + for GDB. + Copyright (C) 2017-2020 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 . */ + +#include "server.h" + +#include "linux-aarch64-tdesc.h" + +#include "tdesc.h" +#include "arch/aarch64.h" +#include "linux-aarch32-low.h" +#include + +/* All possible aarch64 target descriptors. */ +struct target_desc *tdesc_aarch64_list[AARCH64_MAX_SVE_VQ + 1][2/*pauth*/]; + +/* Create the aarch64 target description. */ + +const target_desc * +aarch64_linux_read_description (uint64_t vq, bool pauth_p) +{ + if (vq > AARCH64_MAX_SVE_VQ) + error (_("VQ is %" PRIu64 ", maximum supported value is %d"), vq, + AARCH64_MAX_SVE_VQ); + + struct target_desc *tdesc = tdesc_aarch64_list[vq][pauth_p]; + + if (tdesc == NULL) + { + tdesc = aarch64_create_target_description (vq, pauth_p); + + static const char *expedite_regs_aarch64[] = { "x29", "sp", "pc", NULL }; + static const char *expedite_regs_aarch64_sve[] = { "x29", "sp", "pc", + "vg", NULL }; + + if (vq == 0) + init_target_desc (tdesc, expedite_regs_aarch64); + else + init_target_desc (tdesc, expedite_regs_aarch64_sve); + + tdesc_aarch64_list[vq][pauth_p] = tdesc; + } + + return tdesc; +} diff --git a/gdbserver/linux-amd64-ipa.c b/gdbserver/linux-amd64-ipa.c deleted file mode 100644 index 53d98f26121..00000000000 --- a/gdbserver/linux-amd64-ipa.c +++ /dev/null @@ -1,289 +0,0 @@ -/* GNU/Linux/x86-64 specific low level interface, for the in-process - agent library for GDB. - - Copyright (C) 2010-2020 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 . */ - -#include "server.h" -#include -#include "tracepoint.h" -#include "linux-x86-tdesc.h" -#include "gdbsupport/x86-xstate.h" - -/* Defined in auto-generated file amd64-linux.c. */ -void init_registers_amd64_linux (void); -extern const struct target_desc *tdesc_amd64_linux; - -/* fast tracepoints collect registers. */ - -#define FT_CR_RIP 0 -#define FT_CR_EFLAGS 1 -#define FT_CR_R8 2 -#define FT_CR_R9 3 -#define FT_CR_R10 4 -#define FT_CR_R11 5 -#define FT_CR_R12 6 -#define FT_CR_R13 7 -#define FT_CR_R14 8 -#define FT_CR_R15 9 -#define FT_CR_RAX 10 -#define FT_CR_RBX 11 -#define FT_CR_RCX 12 -#define FT_CR_RDX 13 -#define FT_CR_RSI 14 -#define FT_CR_RDI 15 -#define FT_CR_RBP 16 -#define FT_CR_RSP 17 - -static const int x86_64_ft_collect_regmap[] = { - FT_CR_RAX * 8, FT_CR_RBX * 8, FT_CR_RCX * 8, FT_CR_RDX * 8, - FT_CR_RSI * 8, FT_CR_RDI * 8, FT_CR_RBP * 8, FT_CR_RSP * 8, - FT_CR_R8 * 8, FT_CR_R9 * 8, FT_CR_R10 * 8, FT_CR_R11 * 8, - FT_CR_R12 * 8, FT_CR_R13 * 8, FT_CR_R14 * 8, FT_CR_R15 * 8, - FT_CR_RIP * 8, FT_CR_EFLAGS * 8 -}; - -#define X86_64_NUM_FT_COLLECT_GREGS \ - (sizeof (x86_64_ft_collect_regmap) / sizeof(x86_64_ft_collect_regmap[0])) - -void -supply_fast_tracepoint_registers (struct regcache *regcache, - const unsigned char *buf) -{ - int i; - - for (i = 0; i < X86_64_NUM_FT_COLLECT_GREGS; i++) - supply_register (regcache, i, - ((char *) buf) + x86_64_ft_collect_regmap[i]); -} - -ULONGEST -get_raw_reg (const unsigned char *raw_regs, int regnum) -{ - if (regnum >= X86_64_NUM_FT_COLLECT_GREGS) - return 0; - - return *(ULONGEST *) (raw_regs + x86_64_ft_collect_regmap[regnum]); -} - -#ifdef HAVE_UST - -#include - -/* "struct registers" is the UST object type holding the registers at - the time of the static tracepoint marker call. This doesn't - contain RIP, but we know what it must have been (the marker - address). */ - -#define ST_REGENTRY(REG) \ - { \ - offsetof (struct registers, REG), \ - sizeof (((struct registers *) NULL)->REG) \ - } - -static struct -{ - int offset; - int size; -} x86_64_st_collect_regmap[] = - { - ST_REGENTRY(rax), - ST_REGENTRY(rbx), - ST_REGENTRY(rcx), - ST_REGENTRY(rdx), - ST_REGENTRY(rsi), - ST_REGENTRY(rdi), - ST_REGENTRY(rbp), - ST_REGENTRY(rsp), - ST_REGENTRY(r8), - ST_REGENTRY(r9), - ST_REGENTRY(r10), - ST_REGENTRY(r11), - ST_REGENTRY(r12), - ST_REGENTRY(r13), - ST_REGENTRY(r14), - ST_REGENTRY(r15), - { -1, 0 }, - ST_REGENTRY(rflags), - ST_REGENTRY(cs), - ST_REGENTRY(ss), - }; - -#define X86_64_NUM_ST_COLLECT_GREGS \ - (sizeof (x86_64_st_collect_regmap) / sizeof (x86_64_st_collect_regmap[0])) - -/* GDB's RIP register number. */ -#define AMD64_RIP_REGNUM 16 - -void -supply_static_tracepoint_registers (struct regcache *regcache, - const unsigned char *buf, - CORE_ADDR pc) -{ - int i; - unsigned long newpc = pc; - - supply_register (regcache, AMD64_RIP_REGNUM, &newpc); - - for (i = 0; i < X86_64_NUM_ST_COLLECT_GREGS; i++) - if (x86_64_st_collect_regmap[i].offset != -1) - { - switch (x86_64_st_collect_regmap[i].size) - { - case 8: - supply_register (regcache, i, - ((char *) buf) - + x86_64_st_collect_regmap[i].offset); - break; - case 2: - { - unsigned long reg - = * (short *) (((char *) buf) - + x86_64_st_collect_regmap[i].offset); - reg &= 0xffff; - supply_register (regcache, i, ®); - } - break; - default: - internal_error (__FILE__, __LINE__, - "unhandled register size: %d", - x86_64_st_collect_regmap[i].size); - break; - } - } -} - -#endif /* HAVE_UST */ - -#if !defined __ILP32__ -/* Map the tdesc index to xcr0 mask. */ -static uint64_t idx2mask[X86_TDESC_LAST] = { - X86_XSTATE_X87_MASK, - X86_XSTATE_SSE_MASK, - X86_XSTATE_AVX_MASK, - X86_XSTATE_MPX_MASK, - X86_XSTATE_AVX_MPX_MASK, - X86_XSTATE_AVX_AVX512_MASK, - X86_XSTATE_AVX_MPX_AVX512_PKU_MASK, -}; -#endif - -/* Return target_desc to use for IPA, given the tdesc index passed by - gdbserver. */ - -const struct target_desc * -get_ipa_tdesc (int idx) -{ - if (idx >= X86_TDESC_LAST) - { - internal_error (__FILE__, __LINE__, - "unknown ipa tdesc index: %d", idx); - } - -#if defined __ILP32__ - switch (idx) - { - case X86_TDESC_SSE: - return amd64_linux_read_description (X86_XSTATE_SSE_MASK, true); - case X86_TDESC_AVX: - return amd64_linux_read_description (X86_XSTATE_AVX_MASK, true); - case X86_TDESC_AVX_AVX512: - return amd64_linux_read_description (X86_XSTATE_AVX_AVX512_MASK, true); - default: - break; - } -#else - return amd64_linux_read_description (idx2mask[idx], false); -#endif - - internal_error (__FILE__, __LINE__, - "unknown ipa tdesc index: %d", idx); -} - -/* Allocate buffer for the jump pads. The branch instruction has a - reach of +/- 31-bit, and the executable is loaded at low addresses. - - 64-bit: Use MAP_32BIT to allocate in the first 2GB. Shared - libraries, being allocated at the top, are unfortunately out of - luck. - - x32: Since MAP_32BIT is 64-bit only, do the placement manually. - Try allocating at '0x80000000 - SIZE' initially, decreasing until - we hit a free area. This ensures the executable is fully covered, - and is as close as possible to the shared libraries, which are - usually mapped at the top of the first 4GB of the address space. -*/ - -void * -alloc_jump_pad_buffer (size_t size) -{ -#if __ILP32__ - uintptr_t addr; - int pagesize; - - pagesize = sysconf (_SC_PAGE_SIZE); - if (pagesize == -1) - perror_with_name ("sysconf"); - - addr = 0x80000000 - size; - - /* size should already be page-aligned, but this can't hurt. */ - addr &= ~(pagesize - 1); - - /* Search for a free area. If we hit 0, we're out of luck. */ - for (; addr; addr -= pagesize) - { - void *res; - - /* No MAP_FIXED - we don't want to zap someone's mapping. */ - res = mmap ((void *) addr, size, - PROT_READ | PROT_WRITE | PROT_EXEC, - MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); - - /* If we got what we wanted, return. */ - if ((uintptr_t) res == addr) - return res; - - /* If we got a mapping, but at a wrong address, undo it. */ - if (res != MAP_FAILED) - munmap (res, size); - } - - return NULL; -#else - void *res = mmap (NULL, size, PROT_READ | PROT_WRITE | PROT_EXEC, - MAP_PRIVATE | MAP_ANONYMOUS | MAP_32BIT, -1, 0); - - if (res == MAP_FAILED) - return NULL; - - return res; -#endif -} - -void -initialize_low_tracepoint (void) -{ -#if defined __ILP32__ - amd64_linux_read_description (X86_XSTATE_SSE_MASK, true); - amd64_linux_read_description (X86_XSTATE_AVX_MASK, true); - amd64_linux_read_description (X86_XSTATE_AVX_AVX512_MASK, true); -#else - for (auto i = 0; i < X86_TDESC_LAST; i++) - amd64_linux_read_description (idx2mask[i], false); -#endif -} diff --git a/gdbserver/linux-amd64-ipa.cc b/gdbserver/linux-amd64-ipa.cc new file mode 100644 index 00000000000..53d98f26121 --- /dev/null +++ b/gdbserver/linux-amd64-ipa.cc @@ -0,0 +1,289 @@ +/* GNU/Linux/x86-64 specific low level interface, for the in-process + agent library for GDB. + + Copyright (C) 2010-2020 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 . */ + +#include "server.h" +#include +#include "tracepoint.h" +#include "linux-x86-tdesc.h" +#include "gdbsupport/x86-xstate.h" + +/* Defined in auto-generated file amd64-linux.c. */ +void init_registers_amd64_linux (void); +extern const struct target_desc *tdesc_amd64_linux; + +/* fast tracepoints collect registers. */ + +#define FT_CR_RIP 0 +#define FT_CR_EFLAGS 1 +#define FT_CR_R8 2 +#define FT_CR_R9 3 +#define FT_CR_R10 4 +#define FT_CR_R11 5 +#define FT_CR_R12 6 +#define FT_CR_R13 7 +#define FT_CR_R14 8 +#define FT_CR_R15 9 +#define FT_CR_RAX 10 +#define FT_CR_RBX 11 +#define FT_CR_RCX 12 +#define FT_CR_RDX 13 +#define FT_CR_RSI 14 +#define FT_CR_RDI 15 +#define FT_CR_RBP 16 +#define FT_CR_RSP 17 + +static const int x86_64_ft_collect_regmap[] = { + FT_CR_RAX * 8, FT_CR_RBX * 8, FT_CR_RCX * 8, FT_CR_RDX * 8, + FT_CR_RSI * 8, FT_CR_RDI * 8, FT_CR_RBP * 8, FT_CR_RSP * 8, + FT_CR_R8 * 8, FT_CR_R9 * 8, FT_CR_R10 * 8, FT_CR_R11 * 8, + FT_CR_R12 * 8, FT_CR_R13 * 8, FT_CR_R14 * 8, FT_CR_R15 * 8, + FT_CR_RIP * 8, FT_CR_EFLAGS * 8 +}; + +#define X86_64_NUM_FT_COLLECT_GREGS \ + (sizeof (x86_64_ft_collect_regmap) / sizeof(x86_64_ft_collect_regmap[0])) + +void +supply_fast_tracepoint_registers (struct regcache *regcache, + const unsigned char *buf) +{ + int i; + + for (i = 0; i < X86_64_NUM_FT_COLLECT_GREGS; i++) + supply_register (regcache, i, + ((char *) buf) + x86_64_ft_collect_regmap[i]); +} + +ULONGEST +get_raw_reg (const unsigned char *raw_regs, int regnum) +{ + if (regnum >= X86_64_NUM_FT_COLLECT_GREGS) + return 0; + + return *(ULONGEST *) (raw_regs + x86_64_ft_collect_regmap[regnum]); +} + +#ifdef HAVE_UST + +#include + +/* "struct registers" is the UST object type holding the registers at + the time of the static tracepoint marker call. This doesn't + contain RIP, but we know what it must have been (the marker + address). */ + +#define ST_REGENTRY(REG) \ + { \ + offsetof (struct registers, REG), \ + sizeof (((struct registers *) NULL)->REG) \ + } + +static struct +{ + int offset; + int size; +} x86_64_st_collect_regmap[] = + { + ST_REGENTRY(rax), + ST_REGENTRY(rbx), + ST_REGENTRY(rcx), + ST_REGENTRY(rdx), + ST_REGENTRY(rsi), + ST_REGENTRY(rdi), + ST_REGENTRY(rbp), + ST_REGENTRY(rsp), + ST_REGENTRY(r8), + ST_REGENTRY(r9), + ST_REGENTRY(r10), + ST_REGENTRY(r11), + ST_REGENTRY(r12), + ST_REGENTRY(r13), + ST_REGENTRY(r14), + ST_REGENTRY(r15), + { -1, 0 }, + ST_REGENTRY(rflags), + ST_REGENTRY(cs), + ST_REGENTRY(ss), + }; + +#define X86_64_NUM_ST_COLLECT_GREGS \ + (sizeof (x86_64_st_collect_regmap) / sizeof (x86_64_st_collect_regmap[0])) + +/* GDB's RIP register number. */ +#define AMD64_RIP_REGNUM 16 + +void +supply_static_tracepoint_registers (struct regcache *regcache, + const unsigned char *buf, + CORE_ADDR pc) +{ + int i; + unsigned long newpc = pc; + + supply_register (regcache, AMD64_RIP_REGNUM, &newpc); + + for (i = 0; i < X86_64_NUM_ST_COLLECT_GREGS; i++) + if (x86_64_st_collect_regmap[i].offset != -1) + { + switch (x86_64_st_collect_regmap[i].size) + { + case 8: + supply_register (regcache, i, + ((char *) buf) + + x86_64_st_collect_regmap[i].offset); + break; + case 2: + { + unsigned long reg + = * (short *) (((char *) buf) + + x86_64_st_collect_regmap[i].offset); + reg &= 0xffff; + supply_register (regcache, i, ®); + } + break; + default: + internal_error (__FILE__, __LINE__, + "unhandled register size: %d", + x86_64_st_collect_regmap[i].size); + break; + } + } +} + +#endif /* HAVE_UST */ + +#if !defined __ILP32__ +/* Map the tdesc index to xcr0 mask. */ +static uint64_t idx2mask[X86_TDESC_LAST] = { + X86_XSTATE_X87_MASK, + X86_XSTATE_SSE_MASK, + X86_XSTATE_AVX_MASK, + X86_XSTATE_MPX_MASK, + X86_XSTATE_AVX_MPX_MASK, + X86_XSTATE_AVX_AVX512_MASK, + X86_XSTATE_AVX_MPX_AVX512_PKU_MASK, +}; +#endif + +/* Return target_desc to use for IPA, given the tdesc index passed by + gdbserver. */ + +const struct target_desc * +get_ipa_tdesc (int idx) +{ + if (idx >= X86_TDESC_LAST) + { + internal_error (__FILE__, __LINE__, + "unknown ipa tdesc index: %d", idx); + } + +#if defined __ILP32__ + switch (idx) + { + case X86_TDESC_SSE: + return amd64_linux_read_description (X86_XSTATE_SSE_MASK, true); + case X86_TDESC_AVX: + return amd64_linux_read_description (X86_XSTATE_AVX_MASK, true); + case X86_TDESC_AVX_AVX512: + return amd64_linux_read_description (X86_XSTATE_AVX_AVX512_MASK, true); + default: + break; + } +#else + return amd64_linux_read_description (idx2mask[idx], false); +#endif + + internal_error (__FILE__, __LINE__, + "unknown ipa tdesc index: %d", idx); +} + +/* Allocate buffer for the jump pads. The branch instruction has a + reach of +/- 31-bit, and the executable is loaded at low addresses. + + 64-bit: Use MAP_32BIT to allocate in the first 2GB. Shared + libraries, being allocated at the top, are unfortunately out of + luck. + + x32: Since MAP_32BIT is 64-bit only, do the placement manually. + Try allocating at '0x80000000 - SIZE' initially, decreasing until + we hit a free area. This ensures the executable is fully covered, + and is as close as possible to the shared libraries, which are + usually mapped at the top of the first 4GB of the address space. +*/ + +void * +alloc_jump_pad_buffer (size_t size) +{ +#if __ILP32__ + uintptr_t addr; + int pagesize; + + pagesize = sysconf (_SC_PAGE_SIZE); + if (pagesize == -1) + perror_with_name ("sysconf"); + + addr = 0x80000000 - size; + + /* size should already be page-aligned, but this can't hurt. */ + addr &= ~(pagesize - 1); + + /* Search for a free area. If we hit 0, we're out of luck. */ + for (; addr; addr -= pagesize) + { + void *res; + + /* No MAP_FIXED - we don't want to zap someone's mapping. */ + res = mmap ((void *) addr, size, + PROT_READ | PROT_WRITE | PROT_EXEC, + MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); + + /* If we got what we wanted, return. */ + if ((uintptr_t) res == addr) + return res; + + /* If we got a mapping, but at a wrong address, undo it. */ + if (res != MAP_FAILED) + munmap (res, size); + } + + return NULL; +#else + void *res = mmap (NULL, size, PROT_READ | PROT_WRITE | PROT_EXEC, + MAP_PRIVATE | MAP_ANONYMOUS | MAP_32BIT, -1, 0); + + if (res == MAP_FAILED) + return NULL; + + return res; +#endif +} + +void +initialize_low_tracepoint (void) +{ +#if defined __ILP32__ + amd64_linux_read_description (X86_XSTATE_SSE_MASK, true); + amd64_linux_read_description (X86_XSTATE_AVX_MASK, true); + amd64_linux_read_description (X86_XSTATE_AVX_AVX512_MASK, true); +#else + for (auto i = 0; i < X86_TDESC_LAST; i++) + amd64_linux_read_description (idx2mask[i], false); +#endif +} diff --git a/gdbserver/linux-arm-low.c b/gdbserver/linux-arm-low.c deleted file mode 100644 index 9f046c098bf..00000000000 --- a/gdbserver/linux-arm-low.c +++ /dev/null @@ -1,1052 +0,0 @@ -/* GNU/Linux/ARM specific low level interface, for the remote server for GDB. - Copyright (C) 1995-2020 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 . */ - -#include "server.h" -#include "linux-low.h" -#include "arch/arm.h" -#include "arch/arm-linux.h" -#include "arch/arm-get-next-pcs.h" -#include "linux-aarch32-low.h" -#include "linux-aarch32-tdesc.h" -#include "linux-arm-tdesc.h" - -#include -/* Don't include elf.h if linux/elf.h got included by gdb_proc_service.h. - On Bionic elf.h and linux/elf.h have conflicting definitions. */ -#ifndef ELFMAG0 -#include -#endif -#include "nat/gdb_ptrace.h" -#include -#include - -#ifndef PTRACE_GET_THREAD_AREA -#define PTRACE_GET_THREAD_AREA 22 -#endif - -#ifndef PTRACE_GETWMMXREGS -# define PTRACE_GETWMMXREGS 18 -# define PTRACE_SETWMMXREGS 19 -#endif - -#ifndef PTRACE_GETVFPREGS -# define PTRACE_GETVFPREGS 27 -# define PTRACE_SETVFPREGS 28 -#endif - -#ifndef PTRACE_GETHBPREGS -#define PTRACE_GETHBPREGS 29 -#define PTRACE_SETHBPREGS 30 -#endif - -/* Information describing the hardware breakpoint capabilities. */ -static struct -{ - unsigned char arch; - unsigned char max_wp_length; - unsigned char wp_count; - unsigned char bp_count; -} arm_linux_hwbp_cap; - -/* Enum describing the different types of ARM hardware break-/watch-points. */ -typedef enum -{ - arm_hwbp_break = 0, - arm_hwbp_load = 1, - arm_hwbp_store = 2, - arm_hwbp_access = 3 -} arm_hwbp_type; - -/* Type describing an ARM Hardware Breakpoint Control register value. */ -typedef unsigned int arm_hwbp_control_t; - -/* Structure used to keep track of hardware break-/watch-points. */ -struct arm_linux_hw_breakpoint -{ - /* Address to break on, or being watched. */ - unsigned int address; - /* Control register for break-/watch- point. */ - arm_hwbp_control_t control; -}; - -/* Since we cannot dynamically allocate subfields of arch_process_info, - assume a maximum number of supported break-/watchpoints. */ -#define MAX_BPTS 32 -#define MAX_WPTS 32 - -/* Per-process arch-specific data we want to keep. */ -struct arch_process_info -{ - /* Hardware breakpoints for this process. */ - struct arm_linux_hw_breakpoint bpts[MAX_BPTS]; - /* Hardware watchpoints for this process. */ - struct arm_linux_hw_breakpoint wpts[MAX_WPTS]; -}; - -/* Per-thread arch-specific data we want to keep. */ -struct arch_lwp_info -{ - /* Non-zero if our copy differs from what's recorded in the thread. */ - char bpts_changed[MAX_BPTS]; - char wpts_changed[MAX_WPTS]; - /* Cached stopped data address. */ - CORE_ADDR stopped_data_address; -}; - -/* These are in in current kernels. */ -#define HWCAP_VFP 64 -#define HWCAP_IWMMXT 512 -#define HWCAP_NEON 4096 -#define HWCAP_VFPv3 8192 -#define HWCAP_VFPv3D16 16384 - -#ifdef HAVE_SYS_REG_H -#include -#endif - -#define arm_num_regs 26 - -static int arm_regmap[] = { - 0, 4, 8, 12, 16, 20, 24, 28, - 32, 36, 40, 44, 48, 52, 56, 60, - -1, -1, -1, -1, -1, -1, -1, -1, -1, - 64 -}; - -/* Forward declarations needed for get_next_pcs ops. */ -static ULONGEST get_next_pcs_read_memory_unsigned_integer (CORE_ADDR memaddr, - int len, - int byte_order); - -static CORE_ADDR get_next_pcs_addr_bits_remove (struct arm_get_next_pcs *self, - CORE_ADDR val); - -static CORE_ADDR get_next_pcs_syscall_next_pc (struct arm_get_next_pcs *self); - -static int get_next_pcs_is_thumb (struct arm_get_next_pcs *self); - -/* get_next_pcs operations. */ -static struct arm_get_next_pcs_ops get_next_pcs_ops = { - get_next_pcs_read_memory_unsigned_integer, - get_next_pcs_syscall_next_pc, - get_next_pcs_addr_bits_remove, - get_next_pcs_is_thumb, - arm_linux_get_next_pcs_fixup, -}; - -static int -arm_cannot_store_register (int regno) -{ - return (regno >= arm_num_regs); -} - -static int -arm_cannot_fetch_register (int regno) -{ - return (regno >= arm_num_regs); -} - -static void -arm_fill_wmmxregset (struct regcache *regcache, void *buf) -{ - if (arm_linux_get_tdesc_fp_type (regcache->tdesc) != ARM_FP_TYPE_IWMMXT) - return; - - for (int i = 0; i < 16; i++) - collect_register (regcache, arm_num_regs + i, (char *) buf + i * 8); - - /* We only have access to wcssf, wcasf, and wcgr0-wcgr3. */ - for (int i = 0; i < 6; i++) - collect_register (regcache, arm_num_regs + i + 16, - (char *) buf + 16 * 8 + i * 4); -} - -static void -arm_store_wmmxregset (struct regcache *regcache, const void *buf) -{ - if (arm_linux_get_tdesc_fp_type (regcache->tdesc) != ARM_FP_TYPE_IWMMXT) - return; - - for (int i = 0; i < 16; i++) - supply_register (regcache, arm_num_regs + i, (char *) buf + i * 8); - - /* We only have access to wcssf, wcasf, and wcgr0-wcgr3. */ - for (int i = 0; i < 6; i++) - supply_register (regcache, arm_num_regs + i + 16, - (char *) buf + 16 * 8 + i * 4); -} - -static void -arm_fill_vfpregset (struct regcache *regcache, void *buf) -{ - int num; - - if (is_aarch32_linux_description (regcache->tdesc)) - num = 32; - else - { - arm_fp_type fp_type = arm_linux_get_tdesc_fp_type (regcache->tdesc); - - if (fp_type == ARM_FP_TYPE_VFPV3) - num = 32; - else if (fp_type == ARM_FP_TYPE_VFPV2) - num = 16; - else - return; - } - - arm_fill_vfpregset_num (regcache, buf, num); -} - -/* Wrapper of UNMAKE_THUMB_ADDR for get_next_pcs. */ -static CORE_ADDR -get_next_pcs_addr_bits_remove (struct arm_get_next_pcs *self, CORE_ADDR val) -{ - return UNMAKE_THUMB_ADDR (val); -} - -static void -arm_store_vfpregset (struct regcache *regcache, const void *buf) -{ - int num; - - if (is_aarch32_linux_description (regcache->tdesc)) - num = 32; - else - { - arm_fp_type fp_type = arm_linux_get_tdesc_fp_type (regcache->tdesc); - - if (fp_type == ARM_FP_TYPE_VFPV3) - num = 32; - else if (fp_type == ARM_FP_TYPE_VFPV2) - num = 16; - else - return; - } - - arm_store_vfpregset_num (regcache, buf, num); -} - -/* Wrapper of arm_is_thumb_mode for get_next_pcs. */ -static int -get_next_pcs_is_thumb (struct arm_get_next_pcs *self) -{ - return arm_is_thumb_mode (); -} - -/* Read memory from the inferior. - BYTE_ORDER is ignored and there to keep compatiblity with GDB's - read_memory_unsigned_integer. */ -static ULONGEST -get_next_pcs_read_memory_unsigned_integer (CORE_ADDR memaddr, - int len, - int byte_order) -{ - ULONGEST res; - - res = 0; - target_read_memory (memaddr, (unsigned char *) &res, len); - - return res; -} - -/* Fetch the thread-local storage pointer for libthread_db. */ - -ps_err_e -ps_get_thread_area (struct ps_prochandle *ph, - lwpid_t lwpid, int idx, void **base) -{ - if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0) - return PS_ERR; - - /* IDX is the bias from the thread pointer to the beginning of the - thread descriptor. It has to be subtracted due to implementation - quirks in libthread_db. */ - *base = (void *) ((char *)*base - idx); - - return PS_OK; -} - - -/* Query Hardware Breakpoint information for the target we are attached to - (using PID as ptrace argument) and set up arm_linux_hwbp_cap. */ -static void -arm_linux_init_hwbp_cap (int pid) -{ - unsigned int val; - - if (ptrace (PTRACE_GETHBPREGS, pid, 0, &val) < 0) - return; - - arm_linux_hwbp_cap.arch = (unsigned char)((val >> 24) & 0xff); - if (arm_linux_hwbp_cap.arch == 0) - return; - - arm_linux_hwbp_cap.max_wp_length = (unsigned char)((val >> 16) & 0xff); - arm_linux_hwbp_cap.wp_count = (unsigned char)((val >> 8) & 0xff); - arm_linux_hwbp_cap.bp_count = (unsigned char)(val & 0xff); - - if (arm_linux_hwbp_cap.wp_count > MAX_WPTS) - internal_error (__FILE__, __LINE__, "Unsupported number of watchpoints"); - if (arm_linux_hwbp_cap.bp_count > MAX_BPTS) - internal_error (__FILE__, __LINE__, "Unsupported number of breakpoints"); -} - -/* How many hardware breakpoints are available? */ -static int -arm_linux_get_hw_breakpoint_count (void) -{ - return arm_linux_hwbp_cap.bp_count; -} - -/* How many hardware watchpoints are available? */ -static int -arm_linux_get_hw_watchpoint_count (void) -{ - return arm_linux_hwbp_cap.wp_count; -} - -/* Maximum length of area watched by hardware watchpoint. */ -static int -arm_linux_get_hw_watchpoint_max_length (void) -{ - return arm_linux_hwbp_cap.max_wp_length; -} - -/* Initialize an ARM hardware break-/watch-point control register value. - BYTE_ADDRESS_SELECT is the mask of bytes to trigger on; HWBP_TYPE is the - type of break-/watch-point; ENABLE indicates whether the point is enabled. - */ -static arm_hwbp_control_t -arm_hwbp_control_initialize (unsigned byte_address_select, - arm_hwbp_type hwbp_type, - int enable) -{ - gdb_assert ((byte_address_select & ~0xffU) == 0); - gdb_assert (hwbp_type != arm_hwbp_break - || ((byte_address_select & 0xfU) != 0)); - - return (byte_address_select << 5) | (hwbp_type << 3) | (3 << 1) | enable; -} - -/* Does the breakpoint control value CONTROL have the enable bit set? */ -static int -arm_hwbp_control_is_enabled (arm_hwbp_control_t control) -{ - return control & 0x1; -} - -/* Is the breakpoint control value CONTROL initialized? */ -static int -arm_hwbp_control_is_initialized (arm_hwbp_control_t control) -{ - return control != 0; -} - -/* Change a breakpoint control word so that it is in the disabled state. */ -static arm_hwbp_control_t -arm_hwbp_control_disable (arm_hwbp_control_t control) -{ - return control & ~0x1; -} - -/* Are two break-/watch-points equal? */ -static int -arm_linux_hw_breakpoint_equal (const struct arm_linux_hw_breakpoint *p1, - const struct arm_linux_hw_breakpoint *p2) -{ - return p1->address == p2->address && p1->control == p2->control; -} - -/* Convert a raw breakpoint type to an enum arm_hwbp_type. */ - -static arm_hwbp_type -raw_bkpt_type_to_arm_hwbp_type (enum raw_bkpt_type raw_type) -{ - switch (raw_type) - { - case raw_bkpt_type_hw: - return arm_hwbp_break; - case raw_bkpt_type_write_wp: - return arm_hwbp_store; - case raw_bkpt_type_read_wp: - return arm_hwbp_load; - case raw_bkpt_type_access_wp: - return arm_hwbp_access; - default: - gdb_assert_not_reached ("unhandled raw type"); - } -} - -/* Initialize the hardware breakpoint structure P for a breakpoint or - watchpoint at ADDR to LEN. The type of watchpoint is given in TYPE. - Returns -1 if TYPE is unsupported, or -2 if the particular combination - of ADDR and LEN cannot be implemented. Otherwise, returns 0 if TYPE - represents a breakpoint and 1 if type represents a watchpoint. */ -static int -arm_linux_hw_point_initialize (enum raw_bkpt_type raw_type, CORE_ADDR addr, - int len, struct arm_linux_hw_breakpoint *p) -{ - arm_hwbp_type hwbp_type; - unsigned mask; - - hwbp_type = raw_bkpt_type_to_arm_hwbp_type (raw_type); - - if (hwbp_type == arm_hwbp_break) - { - /* For breakpoints, the length field encodes the mode. */ - switch (len) - { - case 2: /* 16-bit Thumb mode breakpoint */ - case 3: /* 32-bit Thumb mode breakpoint */ - mask = 0x3; - addr &= ~1; - break; - case 4: /* 32-bit ARM mode breakpoint */ - mask = 0xf; - addr &= ~3; - break; - default: - /* Unsupported. */ - return -2; - } - } - else - { - CORE_ADDR max_wp_length = arm_linux_get_hw_watchpoint_max_length (); - CORE_ADDR aligned_addr; - - /* Can not set watchpoints for zero or negative lengths. */ - if (len <= 0) - return -2; - /* The current ptrace interface can only handle watchpoints that are a - power of 2. */ - if ((len & (len - 1)) != 0) - return -2; - - /* Test that the range [ADDR, ADDR + LEN) fits into the largest address - range covered by a watchpoint. */ - aligned_addr = addr & ~(max_wp_length - 1); - if (aligned_addr + max_wp_length < addr + len) - return -2; - - mask = (1 << len) - 1; - } - - p->address = (unsigned int) addr; - p->control = arm_hwbp_control_initialize (mask, hwbp_type, 1); - - return hwbp_type != arm_hwbp_break; -} - -/* Callback to mark a watch-/breakpoint to be updated in all threads of - the current process. */ - -static void -update_registers_callback (thread_info *thread, int watch, int i) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - - /* The actual update is done later just before resuming the lwp, - we just mark that the registers need updating. */ - if (watch) - lwp->arch_private->wpts_changed[i] = 1; - else - lwp->arch_private->bpts_changed[i] = 1; - - /* If the lwp isn't stopped, force it to momentarily pause, so - we can update its breakpoint registers. */ - if (!lwp->stopped) - linux_stop_lwp (lwp); -} - -static int -arm_supports_z_point_type (char z_type) -{ - switch (z_type) - { - case Z_PACKET_SW_BP: - case Z_PACKET_HW_BP: - case Z_PACKET_WRITE_WP: - case Z_PACKET_READ_WP: - case Z_PACKET_ACCESS_WP: - return 1; - default: - /* Leave the handling of sw breakpoints with the gdb client. */ - return 0; - } -} - -/* Insert hardware break-/watchpoint. */ -static int -arm_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, - int len, struct raw_breakpoint *bp) -{ - struct process_info *proc = current_process (); - struct arm_linux_hw_breakpoint p, *pts; - int watch, i, count; - - watch = arm_linux_hw_point_initialize (type, addr, len, &p); - if (watch < 0) - { - /* Unsupported. */ - return watch == -1 ? 1 : -1; - } - - if (watch) - { - count = arm_linux_get_hw_watchpoint_count (); - pts = proc->priv->arch_private->wpts; - } - else - { - count = arm_linux_get_hw_breakpoint_count (); - pts = proc->priv->arch_private->bpts; - } - - for (i = 0; i < count; i++) - if (!arm_hwbp_control_is_enabled (pts[i].control)) - { - pts[i] = p; - - /* Only update the threads of the current process. */ - for_each_thread (current_thread->id.pid (), [&] (thread_info *thread) - { - update_registers_callback (thread, watch, i); - }); - - return 0; - } - - /* We're out of watchpoints. */ - return -1; -} - -/* Remove hardware break-/watchpoint. */ -static int -arm_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, - int len, struct raw_breakpoint *bp) -{ - struct process_info *proc = current_process (); - struct arm_linux_hw_breakpoint p, *pts; - int watch, i, count; - - watch = arm_linux_hw_point_initialize (type, addr, len, &p); - if (watch < 0) - { - /* Unsupported. */ - return -1; - } - - if (watch) - { - count = arm_linux_get_hw_watchpoint_count (); - pts = proc->priv->arch_private->wpts; - } - else - { - count = arm_linux_get_hw_breakpoint_count (); - pts = proc->priv->arch_private->bpts; - } - - for (i = 0; i < count; i++) - if (arm_linux_hw_breakpoint_equal (&p, pts + i)) - { - pts[i].control = arm_hwbp_control_disable (pts[i].control); - - /* Only update the threads of the current process. */ - for_each_thread (current_thread->id.pid (), [&] (thread_info *thread) - { - update_registers_callback (thread, watch, i); - }); - - return 0; - } - - /* No watchpoint matched. */ - return -1; -} - -/* Return whether current thread is stopped due to a watchpoint. */ -static int -arm_stopped_by_watchpoint (void) -{ - struct lwp_info *lwp = get_thread_lwp (current_thread); - siginfo_t siginfo; - - /* We must be able to set hardware watchpoints. */ - if (arm_linux_get_hw_watchpoint_count () == 0) - return 0; - - /* Retrieve siginfo. */ - errno = 0; - ptrace (PTRACE_GETSIGINFO, lwpid_of (current_thread), 0, &siginfo); - if (errno != 0) - return 0; - - /* This must be a hardware breakpoint. */ - if (siginfo.si_signo != SIGTRAP - || (siginfo.si_code & 0xffff) != 0x0004 /* TRAP_HWBKPT */) - return 0; - - /* If we are in a positive slot then we're looking at a breakpoint and not - a watchpoint. */ - if (siginfo.si_errno >= 0) - return 0; - - /* Cache stopped data address for use by arm_stopped_data_address. */ - lwp->arch_private->stopped_data_address - = (CORE_ADDR) (uintptr_t) siginfo.si_addr; - - return 1; -} - -/* Return data address that triggered watchpoint. Called only if - arm_stopped_by_watchpoint returned true. */ -static CORE_ADDR -arm_stopped_data_address (void) -{ - struct lwp_info *lwp = get_thread_lwp (current_thread); - return lwp->arch_private->stopped_data_address; -} - -/* Called when a new process is created. */ -static struct arch_process_info * -arm_new_process (void) -{ - struct arch_process_info *info = XCNEW (struct arch_process_info); - return info; -} - -/* Called when a process is being deleted. */ - -static void -arm_delete_process (struct arch_process_info *info) -{ - xfree (info); -} - -/* Called when a new thread is detected. */ -static void -arm_new_thread (struct lwp_info *lwp) -{ - struct arch_lwp_info *info = XCNEW (struct arch_lwp_info); - int i; - - for (i = 0; i < MAX_BPTS; i++) - info->bpts_changed[i] = 1; - for (i = 0; i < MAX_WPTS; i++) - info->wpts_changed[i] = 1; - - lwp->arch_private = info; -} - -/* Function to call when a thread is being deleted. */ - -static void -arm_delete_thread (struct arch_lwp_info *arch_lwp) -{ - xfree (arch_lwp); -} - -static void -arm_new_fork (struct process_info *parent, struct process_info *child) -{ - struct arch_process_info *parent_proc_info; - struct arch_process_info *child_proc_info; - struct lwp_info *child_lwp; - struct arch_lwp_info *child_lwp_info; - int i; - - /* These are allocated by linux_add_process. */ - gdb_assert (parent->priv != NULL - && parent->priv->arch_private != NULL); - gdb_assert (child->priv != NULL - && child->priv->arch_private != NULL); - - parent_proc_info = parent->priv->arch_private; - child_proc_info = child->priv->arch_private; - - /* Linux kernel before 2.6.33 commit - 72f674d203cd230426437cdcf7dd6f681dad8b0d - will inherit hardware debug registers from parent - on fork/vfork/clone. Newer Linux kernels create such tasks with - zeroed debug registers. - - GDB core assumes the child inherits the watchpoints/hw - breakpoints of the parent, and will remove them all from the - forked off process. Copy the debug registers mirrors into the - new process so that all breakpoints and watchpoints can be - removed together. The debug registers mirror will become zeroed - in the end before detaching the forked off process, thus making - this compatible with older Linux kernels too. */ - - *child_proc_info = *parent_proc_info; - - /* Mark all the hardware breakpoints and watchpoints as changed to - make sure that the registers will be updated. */ - child_lwp = find_lwp_pid (ptid_t (child->pid)); - child_lwp_info = child_lwp->arch_private; - for (i = 0; i < MAX_BPTS; i++) - child_lwp_info->bpts_changed[i] = 1; - for (i = 0; i < MAX_WPTS; i++) - child_lwp_info->wpts_changed[i] = 1; -} - -/* Called when resuming a thread. - If the debug regs have changed, update the thread's copies. */ -static void -arm_prepare_to_resume (struct lwp_info *lwp) -{ - struct thread_info *thread = get_lwp_thread (lwp); - int pid = lwpid_of (thread); - struct process_info *proc = find_process_pid (pid_of (thread)); - struct arch_process_info *proc_info = proc->priv->arch_private; - struct arch_lwp_info *lwp_info = lwp->arch_private; - int i; - - for (i = 0; i < arm_linux_get_hw_breakpoint_count (); i++) - if (lwp_info->bpts_changed[i]) - { - errno = 0; - - if (arm_hwbp_control_is_enabled (proc_info->bpts[i].control)) - if (ptrace (PTRACE_SETHBPREGS, pid, - (PTRACE_TYPE_ARG3) ((i << 1) + 1), - &proc_info->bpts[i].address) < 0) - perror_with_name ("Unexpected error setting breakpoint address"); - - if (arm_hwbp_control_is_initialized (proc_info->bpts[i].control)) - if (ptrace (PTRACE_SETHBPREGS, pid, - (PTRACE_TYPE_ARG3) ((i << 1) + 2), - &proc_info->bpts[i].control) < 0) - perror_with_name ("Unexpected error setting breakpoint"); - - lwp_info->bpts_changed[i] = 0; - } - - for (i = 0; i < arm_linux_get_hw_watchpoint_count (); i++) - if (lwp_info->wpts_changed[i]) - { - errno = 0; - - if (arm_hwbp_control_is_enabled (proc_info->wpts[i].control)) - if (ptrace (PTRACE_SETHBPREGS, pid, - (PTRACE_TYPE_ARG3) -((i << 1) + 1), - &proc_info->wpts[i].address) < 0) - perror_with_name ("Unexpected error setting watchpoint address"); - - if (arm_hwbp_control_is_initialized (proc_info->wpts[i].control)) - if (ptrace (PTRACE_SETHBPREGS, pid, - (PTRACE_TYPE_ARG3) -((i << 1) + 2), - &proc_info->wpts[i].control) < 0) - perror_with_name ("Unexpected error setting watchpoint"); - - lwp_info->wpts_changed[i] = 0; - } -} - -/* Find the next pc for a sigreturn or rt_sigreturn syscall. In - addition, set IS_THUMB depending on whether we will return to ARM - or Thumb code. - See arm-linux.h for stack layout details. */ -static CORE_ADDR -arm_sigreturn_next_pc (struct regcache *regcache, int svc_number, - int *is_thumb) -{ - unsigned long sp; - unsigned long sp_data; - /* Offset of PC register. */ - int pc_offset = 0; - CORE_ADDR next_pc = 0; - uint32_t cpsr; - - gdb_assert (svc_number == __NR_sigreturn || svc_number == __NR_rt_sigreturn); - - collect_register_by_name (regcache, "sp", &sp); - (*the_target->read_memory) (sp, (unsigned char *) &sp_data, 4); - - pc_offset = arm_linux_sigreturn_next_pc_offset - (sp, sp_data, svc_number, __NR_sigreturn == svc_number ? 1 : 0); - - (*the_target->read_memory) (sp + pc_offset, (unsigned char *) &next_pc, 4); - - /* Set IS_THUMB according the CPSR saved on the stack. */ - (*the_target->read_memory) (sp + pc_offset + 4, (unsigned char *) &cpsr, 4); - *is_thumb = ((cpsr & CPSR_T) != 0); - - return next_pc; -} - -/* When PC is at a syscall instruction, return the PC of the next - instruction to be executed. */ -static CORE_ADDR -get_next_pcs_syscall_next_pc (struct arm_get_next_pcs *self) -{ - CORE_ADDR next_pc = 0; - CORE_ADDR pc = regcache_read_pc (self->regcache); - int is_thumb = arm_is_thumb_mode (); - ULONGEST svc_number = 0; - struct regcache *regcache = self->regcache; - - if (is_thumb) - { - collect_register (regcache, 7, &svc_number); - next_pc = pc + 2; - } - else - { - unsigned long this_instr; - unsigned long svc_operand; - - target_read_memory (pc, (unsigned char *) &this_instr, 4); - svc_operand = (0x00ffffff & this_instr); - - if (svc_operand) /* OABI. */ - { - svc_number = svc_operand - 0x900000; - } - else /* EABI. */ - { - collect_register (regcache, 7, &svc_number); - } - - next_pc = pc + 4; - } - - /* This is a sigreturn or sigreturn_rt syscall. */ - if (svc_number == __NR_sigreturn || svc_number == __NR_rt_sigreturn) - { - /* SIGRETURN or RT_SIGRETURN may affect the arm thumb mode, so - update IS_THUMB. */ - next_pc = arm_sigreturn_next_pc (regcache, svc_number, &is_thumb); - } - - /* Addresses for calling Thumb functions have the bit 0 set. */ - if (is_thumb) - next_pc = MAKE_THUMB_ADDR (next_pc); - - return next_pc; -} - -static const struct target_desc * -arm_read_description (void) -{ - unsigned long arm_hwcap = linux_get_hwcap (4); - - if (arm_hwcap & HWCAP_IWMMXT) - return arm_linux_read_description (ARM_FP_TYPE_IWMMXT); - - if (arm_hwcap & HWCAP_VFP) - { - /* Make sure that the kernel supports reading VFP registers. Support was - added in 2.6.30. */ - int pid = lwpid_of (current_thread); - errno = 0; - char *buf = (char *) alloca (ARM_VFP3_REGS_SIZE); - if (ptrace (PTRACE_GETVFPREGS, pid, 0, buf) < 0 && errno == EIO) - return arm_linux_read_description (ARM_FP_TYPE_NONE); - - /* NEON implies either no VFP, or VFPv3-D32. We only support - it with VFP. */ - if (arm_hwcap & HWCAP_NEON) - return aarch32_linux_read_description (); - else if ((arm_hwcap & (HWCAP_VFPv3 | HWCAP_VFPv3D16)) == HWCAP_VFPv3) - return arm_linux_read_description (ARM_FP_TYPE_VFPV3); - else - return arm_linux_read_description (ARM_FP_TYPE_VFPV2); - } - - /* The default configuration uses legacy FPA registers, probably - simulated. */ - return arm_linux_read_description (ARM_FP_TYPE_NONE); -} - -static void -arm_arch_setup (void) -{ - int tid = lwpid_of (current_thread); - int gpregs[18]; - struct iovec iov; - - /* Query hardware watchpoint/breakpoint capabilities. */ - arm_linux_init_hwbp_cap (tid); - - current_process ()->tdesc = arm_read_description (); - - iov.iov_base = gpregs; - iov.iov_len = sizeof (gpregs); - - /* Check if PTRACE_GETREGSET works. */ - if (ptrace (PTRACE_GETREGSET, tid, NT_PRSTATUS, &iov) == 0) - have_ptrace_getregset = 1; - else - have_ptrace_getregset = 0; -} - -/* Fetch the next possible PCs after the current instruction executes. */ - -static std::vector -arm_gdbserver_get_next_pcs (struct regcache *regcache) -{ - struct arm_get_next_pcs next_pcs_ctx; - - arm_get_next_pcs_ctor (&next_pcs_ctx, - &get_next_pcs_ops, - /* Byte order is ignored assumed as host. */ - 0, - 0, - 1, - regcache); - - return arm_get_next_pcs (&next_pcs_ctx); -} - -/* Support for hardware single step. */ - -static int -arm_supports_hardware_single_step (void) -{ - return 0; -} - -/* Implementation of linux_target_ops method "get_syscall_trapinfo". */ - -static void -arm_get_syscall_trapinfo (struct regcache *regcache, int *sysno) -{ - if (arm_is_thumb_mode ()) - collect_register_by_name (regcache, "r7", sysno); - else - { - unsigned long pc; - unsigned long insn; - - collect_register_by_name (regcache, "pc", &pc); - - if ((*the_target->read_memory) (pc - 4, (unsigned char *) &insn, 4)) - *sysno = UNKNOWN_SYSCALL; - else - { - unsigned long svc_operand = (0x00ffffff & insn); - - if (svc_operand) - { - /* OABI */ - *sysno = svc_operand - 0x900000; - } - else - { - /* EABI */ - collect_register_by_name (regcache, "r7", sysno); - } - } - } -} - -/* Register sets without using PTRACE_GETREGSET. */ - -static struct regset_info arm_regsets[] = { - { PTRACE_GETREGS, PTRACE_SETREGS, 0, - ARM_CORE_REGS_SIZE + ARM_INT_REGISTER_SIZE, GENERAL_REGS, - arm_fill_gregset, arm_store_gregset }, - { PTRACE_GETWMMXREGS, PTRACE_SETWMMXREGS, 0, IWMMXT_REGS_SIZE, EXTENDED_REGS, - arm_fill_wmmxregset, arm_store_wmmxregset }, - { PTRACE_GETVFPREGS, PTRACE_SETVFPREGS, 0, ARM_VFP3_REGS_SIZE, EXTENDED_REGS, - arm_fill_vfpregset, arm_store_vfpregset }, - NULL_REGSET -}; - -static struct regsets_info arm_regsets_info = - { - arm_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct usrregs_info arm_usrregs_info = - { - arm_num_regs, - arm_regmap, - }; - -static struct regs_info regs_info_arm = - { - NULL, /* regset_bitmap */ - &arm_usrregs_info, - &arm_regsets_info - }; - -static const struct regs_info * -arm_regs_info (void) -{ - const struct target_desc *tdesc = current_process ()->tdesc; - - if (have_ptrace_getregset == 1 - && (is_aarch32_linux_description (tdesc) - || arm_linux_get_tdesc_fp_type (tdesc) == ARM_FP_TYPE_VFPV3)) - return ®s_info_aarch32; - - return ®s_info_arm; -} - -struct linux_target_ops the_low_target = { - arm_arch_setup, - arm_regs_info, - arm_cannot_fetch_register, - arm_cannot_store_register, - NULL, /* fetch_register */ - linux_get_pc_32bit, - linux_set_pc_32bit, - arm_breakpoint_kind_from_pc, - arm_sw_breakpoint_from_kind, - arm_gdbserver_get_next_pcs, - 0, - arm_breakpoint_at, - arm_supports_z_point_type, - arm_insert_point, - arm_remove_point, - arm_stopped_by_watchpoint, - arm_stopped_data_address, - NULL, /* collect_ptrace_register */ - NULL, /* supply_ptrace_register */ - NULL, /* siginfo_fixup */ - arm_new_process, - arm_delete_process, - arm_new_thread, - arm_delete_thread, - arm_new_fork, - arm_prepare_to_resume, - NULL, /* process_qsupported */ - NULL, /* supports_tracepoints */ - NULL, /* get_thread_area */ - NULL, /* install_fast_tracepoint_jump_pad */ - NULL, /* emit_ops */ - NULL, /* get_min_fast_tracepoint_insn_len */ - NULL, /* supports_range_stepping */ - arm_breakpoint_kind_from_current_state, - arm_supports_hardware_single_step, - arm_get_syscall_trapinfo, -}; - -void -initialize_low_arch (void) -{ - initialize_low_arch_aarch32 (); - initialize_regsets_info (&arm_regsets_info); -} diff --git a/gdbserver/linux-arm-low.cc b/gdbserver/linux-arm-low.cc new file mode 100644 index 00000000000..9f046c098bf --- /dev/null +++ b/gdbserver/linux-arm-low.cc @@ -0,0 +1,1052 @@ +/* GNU/Linux/ARM specific low level interface, for the remote server for GDB. + Copyright (C) 1995-2020 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 . */ + +#include "server.h" +#include "linux-low.h" +#include "arch/arm.h" +#include "arch/arm-linux.h" +#include "arch/arm-get-next-pcs.h" +#include "linux-aarch32-low.h" +#include "linux-aarch32-tdesc.h" +#include "linux-arm-tdesc.h" + +#include +/* Don't include elf.h if linux/elf.h got included by gdb_proc_service.h. + On Bionic elf.h and linux/elf.h have conflicting definitions. */ +#ifndef ELFMAG0 +#include +#endif +#include "nat/gdb_ptrace.h" +#include +#include + +#ifndef PTRACE_GET_THREAD_AREA +#define PTRACE_GET_THREAD_AREA 22 +#endif + +#ifndef PTRACE_GETWMMXREGS +# define PTRACE_GETWMMXREGS 18 +# define PTRACE_SETWMMXREGS 19 +#endif + +#ifndef PTRACE_GETVFPREGS +# define PTRACE_GETVFPREGS 27 +# define PTRACE_SETVFPREGS 28 +#endif + +#ifndef PTRACE_GETHBPREGS +#define PTRACE_GETHBPREGS 29 +#define PTRACE_SETHBPREGS 30 +#endif + +/* Information describing the hardware breakpoint capabilities. */ +static struct +{ + unsigned char arch; + unsigned char max_wp_length; + unsigned char wp_count; + unsigned char bp_count; +} arm_linux_hwbp_cap; + +/* Enum describing the different types of ARM hardware break-/watch-points. */ +typedef enum +{ + arm_hwbp_break = 0, + arm_hwbp_load = 1, + arm_hwbp_store = 2, + arm_hwbp_access = 3 +} arm_hwbp_type; + +/* Type describing an ARM Hardware Breakpoint Control register value. */ +typedef unsigned int arm_hwbp_control_t; + +/* Structure used to keep track of hardware break-/watch-points. */ +struct arm_linux_hw_breakpoint +{ + /* Address to break on, or being watched. */ + unsigned int address; + /* Control register for break-/watch- point. */ + arm_hwbp_control_t control; +}; + +/* Since we cannot dynamically allocate subfields of arch_process_info, + assume a maximum number of supported break-/watchpoints. */ +#define MAX_BPTS 32 +#define MAX_WPTS 32 + +/* Per-process arch-specific data we want to keep. */ +struct arch_process_info +{ + /* Hardware breakpoints for this process. */ + struct arm_linux_hw_breakpoint bpts[MAX_BPTS]; + /* Hardware watchpoints for this process. */ + struct arm_linux_hw_breakpoint wpts[MAX_WPTS]; +}; + +/* Per-thread arch-specific data we want to keep. */ +struct arch_lwp_info +{ + /* Non-zero if our copy differs from what's recorded in the thread. */ + char bpts_changed[MAX_BPTS]; + char wpts_changed[MAX_WPTS]; + /* Cached stopped data address. */ + CORE_ADDR stopped_data_address; +}; + +/* These are in in current kernels. */ +#define HWCAP_VFP 64 +#define HWCAP_IWMMXT 512 +#define HWCAP_NEON 4096 +#define HWCAP_VFPv3 8192 +#define HWCAP_VFPv3D16 16384 + +#ifdef HAVE_SYS_REG_H +#include +#endif + +#define arm_num_regs 26 + +static int arm_regmap[] = { + 0, 4, 8, 12, 16, 20, 24, 28, + 32, 36, 40, 44, 48, 52, 56, 60, + -1, -1, -1, -1, -1, -1, -1, -1, -1, + 64 +}; + +/* Forward declarations needed for get_next_pcs ops. */ +static ULONGEST get_next_pcs_read_memory_unsigned_integer (CORE_ADDR memaddr, + int len, + int byte_order); + +static CORE_ADDR get_next_pcs_addr_bits_remove (struct arm_get_next_pcs *self, + CORE_ADDR val); + +static CORE_ADDR get_next_pcs_syscall_next_pc (struct arm_get_next_pcs *self); + +static int get_next_pcs_is_thumb (struct arm_get_next_pcs *self); + +/* get_next_pcs operations. */ +static struct arm_get_next_pcs_ops get_next_pcs_ops = { + get_next_pcs_read_memory_unsigned_integer, + get_next_pcs_syscall_next_pc, + get_next_pcs_addr_bits_remove, + get_next_pcs_is_thumb, + arm_linux_get_next_pcs_fixup, +}; + +static int +arm_cannot_store_register (int regno) +{ + return (regno >= arm_num_regs); +} + +static int +arm_cannot_fetch_register (int regno) +{ + return (regno >= arm_num_regs); +} + +static void +arm_fill_wmmxregset (struct regcache *regcache, void *buf) +{ + if (arm_linux_get_tdesc_fp_type (regcache->tdesc) != ARM_FP_TYPE_IWMMXT) + return; + + for (int i = 0; i < 16; i++) + collect_register (regcache, arm_num_regs + i, (char *) buf + i * 8); + + /* We only have access to wcssf, wcasf, and wcgr0-wcgr3. */ + for (int i = 0; i < 6; i++) + collect_register (regcache, arm_num_regs + i + 16, + (char *) buf + 16 * 8 + i * 4); +} + +static void +arm_store_wmmxregset (struct regcache *regcache, const void *buf) +{ + if (arm_linux_get_tdesc_fp_type (regcache->tdesc) != ARM_FP_TYPE_IWMMXT) + return; + + for (int i = 0; i < 16; i++) + supply_register (regcache, arm_num_regs + i, (char *) buf + i * 8); + + /* We only have access to wcssf, wcasf, and wcgr0-wcgr3. */ + for (int i = 0; i < 6; i++) + supply_register (regcache, arm_num_regs + i + 16, + (char *) buf + 16 * 8 + i * 4); +} + +static void +arm_fill_vfpregset (struct regcache *regcache, void *buf) +{ + int num; + + if (is_aarch32_linux_description (regcache->tdesc)) + num = 32; + else + { + arm_fp_type fp_type = arm_linux_get_tdesc_fp_type (regcache->tdesc); + + if (fp_type == ARM_FP_TYPE_VFPV3) + num = 32; + else if (fp_type == ARM_FP_TYPE_VFPV2) + num = 16; + else + return; + } + + arm_fill_vfpregset_num (regcache, buf, num); +} + +/* Wrapper of UNMAKE_THUMB_ADDR for get_next_pcs. */ +static CORE_ADDR +get_next_pcs_addr_bits_remove (struct arm_get_next_pcs *self, CORE_ADDR val) +{ + return UNMAKE_THUMB_ADDR (val); +} + +static void +arm_store_vfpregset (struct regcache *regcache, const void *buf) +{ + int num; + + if (is_aarch32_linux_description (regcache->tdesc)) + num = 32; + else + { + arm_fp_type fp_type = arm_linux_get_tdesc_fp_type (regcache->tdesc); + + if (fp_type == ARM_FP_TYPE_VFPV3) + num = 32; + else if (fp_type == ARM_FP_TYPE_VFPV2) + num = 16; + else + return; + } + + arm_store_vfpregset_num (regcache, buf, num); +} + +/* Wrapper of arm_is_thumb_mode for get_next_pcs. */ +static int +get_next_pcs_is_thumb (struct arm_get_next_pcs *self) +{ + return arm_is_thumb_mode (); +} + +/* Read memory from the inferior. + BYTE_ORDER is ignored and there to keep compatiblity with GDB's + read_memory_unsigned_integer. */ +static ULONGEST +get_next_pcs_read_memory_unsigned_integer (CORE_ADDR memaddr, + int len, + int byte_order) +{ + ULONGEST res; + + res = 0; + target_read_memory (memaddr, (unsigned char *) &res, len); + + return res; +} + +/* Fetch the thread-local storage pointer for libthread_db. */ + +ps_err_e +ps_get_thread_area (struct ps_prochandle *ph, + lwpid_t lwpid, int idx, void **base) +{ + if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0) + return PS_ERR; + + /* IDX is the bias from the thread pointer to the beginning of the + thread descriptor. It has to be subtracted due to implementation + quirks in libthread_db. */ + *base = (void *) ((char *)*base - idx); + + return PS_OK; +} + + +/* Query Hardware Breakpoint information for the target we are attached to + (using PID as ptrace argument) and set up arm_linux_hwbp_cap. */ +static void +arm_linux_init_hwbp_cap (int pid) +{ + unsigned int val; + + if (ptrace (PTRACE_GETHBPREGS, pid, 0, &val) < 0) + return; + + arm_linux_hwbp_cap.arch = (unsigned char)((val >> 24) & 0xff); + if (arm_linux_hwbp_cap.arch == 0) + return; + + arm_linux_hwbp_cap.max_wp_length = (unsigned char)((val >> 16) & 0xff); + arm_linux_hwbp_cap.wp_count = (unsigned char)((val >> 8) & 0xff); + arm_linux_hwbp_cap.bp_count = (unsigned char)(val & 0xff); + + if (arm_linux_hwbp_cap.wp_count > MAX_WPTS) + internal_error (__FILE__, __LINE__, "Unsupported number of watchpoints"); + if (arm_linux_hwbp_cap.bp_count > MAX_BPTS) + internal_error (__FILE__, __LINE__, "Unsupported number of breakpoints"); +} + +/* How many hardware breakpoints are available? */ +static int +arm_linux_get_hw_breakpoint_count (void) +{ + return arm_linux_hwbp_cap.bp_count; +} + +/* How many hardware watchpoints are available? */ +static int +arm_linux_get_hw_watchpoint_count (void) +{ + return arm_linux_hwbp_cap.wp_count; +} + +/* Maximum length of area watched by hardware watchpoint. */ +static int +arm_linux_get_hw_watchpoint_max_length (void) +{ + return arm_linux_hwbp_cap.max_wp_length; +} + +/* Initialize an ARM hardware break-/watch-point control register value. + BYTE_ADDRESS_SELECT is the mask of bytes to trigger on; HWBP_TYPE is the + type of break-/watch-point; ENABLE indicates whether the point is enabled. + */ +static arm_hwbp_control_t +arm_hwbp_control_initialize (unsigned byte_address_select, + arm_hwbp_type hwbp_type, + int enable) +{ + gdb_assert ((byte_address_select & ~0xffU) == 0); + gdb_assert (hwbp_type != arm_hwbp_break + || ((byte_address_select & 0xfU) != 0)); + + return (byte_address_select << 5) | (hwbp_type << 3) | (3 << 1) | enable; +} + +/* Does the breakpoint control value CONTROL have the enable bit set? */ +static int +arm_hwbp_control_is_enabled (arm_hwbp_control_t control) +{ + return control & 0x1; +} + +/* Is the breakpoint control value CONTROL initialized? */ +static int +arm_hwbp_control_is_initialized (arm_hwbp_control_t control) +{ + return control != 0; +} + +/* Change a breakpoint control word so that it is in the disabled state. */ +static arm_hwbp_control_t +arm_hwbp_control_disable (arm_hwbp_control_t control) +{ + return control & ~0x1; +} + +/* Are two break-/watch-points equal? */ +static int +arm_linux_hw_breakpoint_equal (const struct arm_linux_hw_breakpoint *p1, + const struct arm_linux_hw_breakpoint *p2) +{ + return p1->address == p2->address && p1->control == p2->control; +} + +/* Convert a raw breakpoint type to an enum arm_hwbp_type. */ + +static arm_hwbp_type +raw_bkpt_type_to_arm_hwbp_type (enum raw_bkpt_type raw_type) +{ + switch (raw_type) + { + case raw_bkpt_type_hw: + return arm_hwbp_break; + case raw_bkpt_type_write_wp: + return arm_hwbp_store; + case raw_bkpt_type_read_wp: + return arm_hwbp_load; + case raw_bkpt_type_access_wp: + return arm_hwbp_access; + default: + gdb_assert_not_reached ("unhandled raw type"); + } +} + +/* Initialize the hardware breakpoint structure P for a breakpoint or + watchpoint at ADDR to LEN. The type of watchpoint is given in TYPE. + Returns -1 if TYPE is unsupported, or -2 if the particular combination + of ADDR and LEN cannot be implemented. Otherwise, returns 0 if TYPE + represents a breakpoint and 1 if type represents a watchpoint. */ +static int +arm_linux_hw_point_initialize (enum raw_bkpt_type raw_type, CORE_ADDR addr, + int len, struct arm_linux_hw_breakpoint *p) +{ + arm_hwbp_type hwbp_type; + unsigned mask; + + hwbp_type = raw_bkpt_type_to_arm_hwbp_type (raw_type); + + if (hwbp_type == arm_hwbp_break) + { + /* For breakpoints, the length field encodes the mode. */ + switch (len) + { + case 2: /* 16-bit Thumb mode breakpoint */ + case 3: /* 32-bit Thumb mode breakpoint */ + mask = 0x3; + addr &= ~1; + break; + case 4: /* 32-bit ARM mode breakpoint */ + mask = 0xf; + addr &= ~3; + break; + default: + /* Unsupported. */ + return -2; + } + } + else + { + CORE_ADDR max_wp_length = arm_linux_get_hw_watchpoint_max_length (); + CORE_ADDR aligned_addr; + + /* Can not set watchpoints for zero or negative lengths. */ + if (len <= 0) + return -2; + /* The current ptrace interface can only handle watchpoints that are a + power of 2. */ + if ((len & (len - 1)) != 0) + return -2; + + /* Test that the range [ADDR, ADDR + LEN) fits into the largest address + range covered by a watchpoint. */ + aligned_addr = addr & ~(max_wp_length - 1); + if (aligned_addr + max_wp_length < addr + len) + return -2; + + mask = (1 << len) - 1; + } + + p->address = (unsigned int) addr; + p->control = arm_hwbp_control_initialize (mask, hwbp_type, 1); + + return hwbp_type != arm_hwbp_break; +} + +/* Callback to mark a watch-/breakpoint to be updated in all threads of + the current process. */ + +static void +update_registers_callback (thread_info *thread, int watch, int i) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + + /* The actual update is done later just before resuming the lwp, + we just mark that the registers need updating. */ + if (watch) + lwp->arch_private->wpts_changed[i] = 1; + else + lwp->arch_private->bpts_changed[i] = 1; + + /* If the lwp isn't stopped, force it to momentarily pause, so + we can update its breakpoint registers. */ + if (!lwp->stopped) + linux_stop_lwp (lwp); +} + +static int +arm_supports_z_point_type (char z_type) +{ + switch (z_type) + { + case Z_PACKET_SW_BP: + case Z_PACKET_HW_BP: + case Z_PACKET_WRITE_WP: + case Z_PACKET_READ_WP: + case Z_PACKET_ACCESS_WP: + return 1; + default: + /* Leave the handling of sw breakpoints with the gdb client. */ + return 0; + } +} + +/* Insert hardware break-/watchpoint. */ +static int +arm_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, + int len, struct raw_breakpoint *bp) +{ + struct process_info *proc = current_process (); + struct arm_linux_hw_breakpoint p, *pts; + int watch, i, count; + + watch = arm_linux_hw_point_initialize (type, addr, len, &p); + if (watch < 0) + { + /* Unsupported. */ + return watch == -1 ? 1 : -1; + } + + if (watch) + { + count = arm_linux_get_hw_watchpoint_count (); + pts = proc->priv->arch_private->wpts; + } + else + { + count = arm_linux_get_hw_breakpoint_count (); + pts = proc->priv->arch_private->bpts; + } + + for (i = 0; i < count; i++) + if (!arm_hwbp_control_is_enabled (pts[i].control)) + { + pts[i] = p; + + /* Only update the threads of the current process. */ + for_each_thread (current_thread->id.pid (), [&] (thread_info *thread) + { + update_registers_callback (thread, watch, i); + }); + + return 0; + } + + /* We're out of watchpoints. */ + return -1; +} + +/* Remove hardware break-/watchpoint. */ +static int +arm_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, + int len, struct raw_breakpoint *bp) +{ + struct process_info *proc = current_process (); + struct arm_linux_hw_breakpoint p, *pts; + int watch, i, count; + + watch = arm_linux_hw_point_initialize (type, addr, len, &p); + if (watch < 0) + { + /* Unsupported. */ + return -1; + } + + if (watch) + { + count = arm_linux_get_hw_watchpoint_count (); + pts = proc->priv->arch_private->wpts; + } + else + { + count = arm_linux_get_hw_breakpoint_count (); + pts = proc->priv->arch_private->bpts; + } + + for (i = 0; i < count; i++) + if (arm_linux_hw_breakpoint_equal (&p, pts + i)) + { + pts[i].control = arm_hwbp_control_disable (pts[i].control); + + /* Only update the threads of the current process. */ + for_each_thread (current_thread->id.pid (), [&] (thread_info *thread) + { + update_registers_callback (thread, watch, i); + }); + + return 0; + } + + /* No watchpoint matched. */ + return -1; +} + +/* Return whether current thread is stopped due to a watchpoint. */ +static int +arm_stopped_by_watchpoint (void) +{ + struct lwp_info *lwp = get_thread_lwp (current_thread); + siginfo_t siginfo; + + /* We must be able to set hardware watchpoints. */ + if (arm_linux_get_hw_watchpoint_count () == 0) + return 0; + + /* Retrieve siginfo. */ + errno = 0; + ptrace (PTRACE_GETSIGINFO, lwpid_of (current_thread), 0, &siginfo); + if (errno != 0) + return 0; + + /* This must be a hardware breakpoint. */ + if (siginfo.si_signo != SIGTRAP + || (siginfo.si_code & 0xffff) != 0x0004 /* TRAP_HWBKPT */) + return 0; + + /* If we are in a positive slot then we're looking at a breakpoint and not + a watchpoint. */ + if (siginfo.si_errno >= 0) + return 0; + + /* Cache stopped data address for use by arm_stopped_data_address. */ + lwp->arch_private->stopped_data_address + = (CORE_ADDR) (uintptr_t) siginfo.si_addr; + + return 1; +} + +/* Return data address that triggered watchpoint. Called only if + arm_stopped_by_watchpoint returned true. */ +static CORE_ADDR +arm_stopped_data_address (void) +{ + struct lwp_info *lwp = get_thread_lwp (current_thread); + return lwp->arch_private->stopped_data_address; +} + +/* Called when a new process is created. */ +static struct arch_process_info * +arm_new_process (void) +{ + struct arch_process_info *info = XCNEW (struct arch_process_info); + return info; +} + +/* Called when a process is being deleted. */ + +static void +arm_delete_process (struct arch_process_info *info) +{ + xfree (info); +} + +/* Called when a new thread is detected. */ +static void +arm_new_thread (struct lwp_info *lwp) +{ + struct arch_lwp_info *info = XCNEW (struct arch_lwp_info); + int i; + + for (i = 0; i < MAX_BPTS; i++) + info->bpts_changed[i] = 1; + for (i = 0; i < MAX_WPTS; i++) + info->wpts_changed[i] = 1; + + lwp->arch_private = info; +} + +/* Function to call when a thread is being deleted. */ + +static void +arm_delete_thread (struct arch_lwp_info *arch_lwp) +{ + xfree (arch_lwp); +} + +static void +arm_new_fork (struct process_info *parent, struct process_info *child) +{ + struct arch_process_info *parent_proc_info; + struct arch_process_info *child_proc_info; + struct lwp_info *child_lwp; + struct arch_lwp_info *child_lwp_info; + int i; + + /* These are allocated by linux_add_process. */ + gdb_assert (parent->priv != NULL + && parent->priv->arch_private != NULL); + gdb_assert (child->priv != NULL + && child->priv->arch_private != NULL); + + parent_proc_info = parent->priv->arch_private; + child_proc_info = child->priv->arch_private; + + /* Linux kernel before 2.6.33 commit + 72f674d203cd230426437cdcf7dd6f681dad8b0d + will inherit hardware debug registers from parent + on fork/vfork/clone. Newer Linux kernels create such tasks with + zeroed debug registers. + + GDB core assumes the child inherits the watchpoints/hw + breakpoints of the parent, and will remove them all from the + forked off process. Copy the debug registers mirrors into the + new process so that all breakpoints and watchpoints can be + removed together. The debug registers mirror will become zeroed + in the end before detaching the forked off process, thus making + this compatible with older Linux kernels too. */ + + *child_proc_info = *parent_proc_info; + + /* Mark all the hardware breakpoints and watchpoints as changed to + make sure that the registers will be updated. */ + child_lwp = find_lwp_pid (ptid_t (child->pid)); + child_lwp_info = child_lwp->arch_private; + for (i = 0; i < MAX_BPTS; i++) + child_lwp_info->bpts_changed[i] = 1; + for (i = 0; i < MAX_WPTS; i++) + child_lwp_info->wpts_changed[i] = 1; +} + +/* Called when resuming a thread. + If the debug regs have changed, update the thread's copies. */ +static void +arm_prepare_to_resume (struct lwp_info *lwp) +{ + struct thread_info *thread = get_lwp_thread (lwp); + int pid = lwpid_of (thread); + struct process_info *proc = find_process_pid (pid_of (thread)); + struct arch_process_info *proc_info = proc->priv->arch_private; + struct arch_lwp_info *lwp_info = lwp->arch_private; + int i; + + for (i = 0; i < arm_linux_get_hw_breakpoint_count (); i++) + if (lwp_info->bpts_changed[i]) + { + errno = 0; + + if (arm_hwbp_control_is_enabled (proc_info->bpts[i].control)) + if (ptrace (PTRACE_SETHBPREGS, pid, + (PTRACE_TYPE_ARG3) ((i << 1) + 1), + &proc_info->bpts[i].address) < 0) + perror_with_name ("Unexpected error setting breakpoint address"); + + if (arm_hwbp_control_is_initialized (proc_info->bpts[i].control)) + if (ptrace (PTRACE_SETHBPREGS, pid, + (PTRACE_TYPE_ARG3) ((i << 1) + 2), + &proc_info->bpts[i].control) < 0) + perror_with_name ("Unexpected error setting breakpoint"); + + lwp_info->bpts_changed[i] = 0; + } + + for (i = 0; i < arm_linux_get_hw_watchpoint_count (); i++) + if (lwp_info->wpts_changed[i]) + { + errno = 0; + + if (arm_hwbp_control_is_enabled (proc_info->wpts[i].control)) + if (ptrace (PTRACE_SETHBPREGS, pid, + (PTRACE_TYPE_ARG3) -((i << 1) + 1), + &proc_info->wpts[i].address) < 0) + perror_with_name ("Unexpected error setting watchpoint address"); + + if (arm_hwbp_control_is_initialized (proc_info->wpts[i].control)) + if (ptrace (PTRACE_SETHBPREGS, pid, + (PTRACE_TYPE_ARG3) -((i << 1) + 2), + &proc_info->wpts[i].control) < 0) + perror_with_name ("Unexpected error setting watchpoint"); + + lwp_info->wpts_changed[i] = 0; + } +} + +/* Find the next pc for a sigreturn or rt_sigreturn syscall. In + addition, set IS_THUMB depending on whether we will return to ARM + or Thumb code. + See arm-linux.h for stack layout details. */ +static CORE_ADDR +arm_sigreturn_next_pc (struct regcache *regcache, int svc_number, + int *is_thumb) +{ + unsigned long sp; + unsigned long sp_data; + /* Offset of PC register. */ + int pc_offset = 0; + CORE_ADDR next_pc = 0; + uint32_t cpsr; + + gdb_assert (svc_number == __NR_sigreturn || svc_number == __NR_rt_sigreturn); + + collect_register_by_name (regcache, "sp", &sp); + (*the_target->read_memory) (sp, (unsigned char *) &sp_data, 4); + + pc_offset = arm_linux_sigreturn_next_pc_offset + (sp, sp_data, svc_number, __NR_sigreturn == svc_number ? 1 : 0); + + (*the_target->read_memory) (sp + pc_offset, (unsigned char *) &next_pc, 4); + + /* Set IS_THUMB according the CPSR saved on the stack. */ + (*the_target->read_memory) (sp + pc_offset + 4, (unsigned char *) &cpsr, 4); + *is_thumb = ((cpsr & CPSR_T) != 0); + + return next_pc; +} + +/* When PC is at a syscall instruction, return the PC of the next + instruction to be executed. */ +static CORE_ADDR +get_next_pcs_syscall_next_pc (struct arm_get_next_pcs *self) +{ + CORE_ADDR next_pc = 0; + CORE_ADDR pc = regcache_read_pc (self->regcache); + int is_thumb = arm_is_thumb_mode (); + ULONGEST svc_number = 0; + struct regcache *regcache = self->regcache; + + if (is_thumb) + { + collect_register (regcache, 7, &svc_number); + next_pc = pc + 2; + } + else + { + unsigned long this_instr; + unsigned long svc_operand; + + target_read_memory (pc, (unsigned char *) &this_instr, 4); + svc_operand = (0x00ffffff & this_instr); + + if (svc_operand) /* OABI. */ + { + svc_number = svc_operand - 0x900000; + } + else /* EABI. */ + { + collect_register (regcache, 7, &svc_number); + } + + next_pc = pc + 4; + } + + /* This is a sigreturn or sigreturn_rt syscall. */ + if (svc_number == __NR_sigreturn || svc_number == __NR_rt_sigreturn) + { + /* SIGRETURN or RT_SIGRETURN may affect the arm thumb mode, so + update IS_THUMB. */ + next_pc = arm_sigreturn_next_pc (regcache, svc_number, &is_thumb); + } + + /* Addresses for calling Thumb functions have the bit 0 set. */ + if (is_thumb) + next_pc = MAKE_THUMB_ADDR (next_pc); + + return next_pc; +} + +static const struct target_desc * +arm_read_description (void) +{ + unsigned long arm_hwcap = linux_get_hwcap (4); + + if (arm_hwcap & HWCAP_IWMMXT) + return arm_linux_read_description (ARM_FP_TYPE_IWMMXT); + + if (arm_hwcap & HWCAP_VFP) + { + /* Make sure that the kernel supports reading VFP registers. Support was + added in 2.6.30. */ + int pid = lwpid_of (current_thread); + errno = 0; + char *buf = (char *) alloca (ARM_VFP3_REGS_SIZE); + if (ptrace (PTRACE_GETVFPREGS, pid, 0, buf) < 0 && errno == EIO) + return arm_linux_read_description (ARM_FP_TYPE_NONE); + + /* NEON implies either no VFP, or VFPv3-D32. We only support + it with VFP. */ + if (arm_hwcap & HWCAP_NEON) + return aarch32_linux_read_description (); + else if ((arm_hwcap & (HWCAP_VFPv3 | HWCAP_VFPv3D16)) == HWCAP_VFPv3) + return arm_linux_read_description (ARM_FP_TYPE_VFPV3); + else + return arm_linux_read_description (ARM_FP_TYPE_VFPV2); + } + + /* The default configuration uses legacy FPA registers, probably + simulated. */ + return arm_linux_read_description (ARM_FP_TYPE_NONE); +} + +static void +arm_arch_setup (void) +{ + int tid = lwpid_of (current_thread); + int gpregs[18]; + struct iovec iov; + + /* Query hardware watchpoint/breakpoint capabilities. */ + arm_linux_init_hwbp_cap (tid); + + current_process ()->tdesc = arm_read_description (); + + iov.iov_base = gpregs; + iov.iov_len = sizeof (gpregs); + + /* Check if PTRACE_GETREGSET works. */ + if (ptrace (PTRACE_GETREGSET, tid, NT_PRSTATUS, &iov) == 0) + have_ptrace_getregset = 1; + else + have_ptrace_getregset = 0; +} + +/* Fetch the next possible PCs after the current instruction executes. */ + +static std::vector +arm_gdbserver_get_next_pcs (struct regcache *regcache) +{ + struct arm_get_next_pcs next_pcs_ctx; + + arm_get_next_pcs_ctor (&next_pcs_ctx, + &get_next_pcs_ops, + /* Byte order is ignored assumed as host. */ + 0, + 0, + 1, + regcache); + + return arm_get_next_pcs (&next_pcs_ctx); +} + +/* Support for hardware single step. */ + +static int +arm_supports_hardware_single_step (void) +{ + return 0; +} + +/* Implementation of linux_target_ops method "get_syscall_trapinfo". */ + +static void +arm_get_syscall_trapinfo (struct regcache *regcache, int *sysno) +{ + if (arm_is_thumb_mode ()) + collect_register_by_name (regcache, "r7", sysno); + else + { + unsigned long pc; + unsigned long insn; + + collect_register_by_name (regcache, "pc", &pc); + + if ((*the_target->read_memory) (pc - 4, (unsigned char *) &insn, 4)) + *sysno = UNKNOWN_SYSCALL; + else + { + unsigned long svc_operand = (0x00ffffff & insn); + + if (svc_operand) + { + /* OABI */ + *sysno = svc_operand - 0x900000; + } + else + { + /* EABI */ + collect_register_by_name (regcache, "r7", sysno); + } + } + } +} + +/* Register sets without using PTRACE_GETREGSET. */ + +static struct regset_info arm_regsets[] = { + { PTRACE_GETREGS, PTRACE_SETREGS, 0, + ARM_CORE_REGS_SIZE + ARM_INT_REGISTER_SIZE, GENERAL_REGS, + arm_fill_gregset, arm_store_gregset }, + { PTRACE_GETWMMXREGS, PTRACE_SETWMMXREGS, 0, IWMMXT_REGS_SIZE, EXTENDED_REGS, + arm_fill_wmmxregset, arm_store_wmmxregset }, + { PTRACE_GETVFPREGS, PTRACE_SETVFPREGS, 0, ARM_VFP3_REGS_SIZE, EXTENDED_REGS, + arm_fill_vfpregset, arm_store_vfpregset }, + NULL_REGSET +}; + +static struct regsets_info arm_regsets_info = + { + arm_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct usrregs_info arm_usrregs_info = + { + arm_num_regs, + arm_regmap, + }; + +static struct regs_info regs_info_arm = + { + NULL, /* regset_bitmap */ + &arm_usrregs_info, + &arm_regsets_info + }; + +static const struct regs_info * +arm_regs_info (void) +{ + const struct target_desc *tdesc = current_process ()->tdesc; + + if (have_ptrace_getregset == 1 + && (is_aarch32_linux_description (tdesc) + || arm_linux_get_tdesc_fp_type (tdesc) == ARM_FP_TYPE_VFPV3)) + return ®s_info_aarch32; + + return ®s_info_arm; +} + +struct linux_target_ops the_low_target = { + arm_arch_setup, + arm_regs_info, + arm_cannot_fetch_register, + arm_cannot_store_register, + NULL, /* fetch_register */ + linux_get_pc_32bit, + linux_set_pc_32bit, + arm_breakpoint_kind_from_pc, + arm_sw_breakpoint_from_kind, + arm_gdbserver_get_next_pcs, + 0, + arm_breakpoint_at, + arm_supports_z_point_type, + arm_insert_point, + arm_remove_point, + arm_stopped_by_watchpoint, + arm_stopped_data_address, + NULL, /* collect_ptrace_register */ + NULL, /* supply_ptrace_register */ + NULL, /* siginfo_fixup */ + arm_new_process, + arm_delete_process, + arm_new_thread, + arm_delete_thread, + arm_new_fork, + arm_prepare_to_resume, + NULL, /* process_qsupported */ + NULL, /* supports_tracepoints */ + NULL, /* get_thread_area */ + NULL, /* install_fast_tracepoint_jump_pad */ + NULL, /* emit_ops */ + NULL, /* get_min_fast_tracepoint_insn_len */ + NULL, /* supports_range_stepping */ + arm_breakpoint_kind_from_current_state, + arm_supports_hardware_single_step, + arm_get_syscall_trapinfo, +}; + +void +initialize_low_arch (void) +{ + initialize_low_arch_aarch32 (); + initialize_regsets_info (&arm_regsets_info); +} diff --git a/gdbserver/linux-arm-tdesc.c b/gdbserver/linux-arm-tdesc.c deleted file mode 100644 index 2c9fac83cd5..00000000000 --- a/gdbserver/linux-arm-tdesc.c +++ /dev/null @@ -1,65 +0,0 @@ -/* Copyright (C) 2019-2020 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 . */ - -#include "server.h" - -#include "linux-arm-tdesc.h" - -#include "tdesc.h" -#include "arch/arm.h" -#include - -/* All possible Arm target descriptors. */ -static struct target_desc *tdesc_arm_list[ARM_FP_TYPE_INVALID]; - -/* See linux-arm-tdesc.h. */ - -const target_desc * -arm_linux_read_description (arm_fp_type fp_type) -{ - struct target_desc *tdesc = tdesc_arm_list[fp_type]; - - if (tdesc == nullptr) - { - tdesc = arm_create_target_description (fp_type); - - static const char *expedite_regs[] = { "r11", "sp", "pc", 0 }; - init_target_desc (tdesc, expedite_regs); - - tdesc_arm_list[fp_type] = tdesc; - } - - return tdesc; -} - -/* See linux-arm-tdesc.h. */ - -arm_fp_type -arm_linux_get_tdesc_fp_type (const target_desc *tdesc) -{ - gdb_assert (tdesc != nullptr); - - /* Many of the tdesc_arm_list entries may not have been initialised yet. This - is ok, because tdesc must be one of the initialised ones. */ - for (int i = ARM_FP_TYPE_NONE; i < ARM_FP_TYPE_INVALID; i++) - { - if (tdesc == tdesc_arm_list[i]) - return (arm_fp_type) i; - } - - return ARM_FP_TYPE_INVALID; -} diff --git a/gdbserver/linux-arm-tdesc.cc b/gdbserver/linux-arm-tdesc.cc new file mode 100644 index 00000000000..2c9fac83cd5 --- /dev/null +++ b/gdbserver/linux-arm-tdesc.cc @@ -0,0 +1,65 @@ +/* Copyright (C) 2019-2020 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 . */ + +#include "server.h" + +#include "linux-arm-tdesc.h" + +#include "tdesc.h" +#include "arch/arm.h" +#include + +/* All possible Arm target descriptors. */ +static struct target_desc *tdesc_arm_list[ARM_FP_TYPE_INVALID]; + +/* See linux-arm-tdesc.h. */ + +const target_desc * +arm_linux_read_description (arm_fp_type fp_type) +{ + struct target_desc *tdesc = tdesc_arm_list[fp_type]; + + if (tdesc == nullptr) + { + tdesc = arm_create_target_description (fp_type); + + static const char *expedite_regs[] = { "r11", "sp", "pc", 0 }; + init_target_desc (tdesc, expedite_regs); + + tdesc_arm_list[fp_type] = tdesc; + } + + return tdesc; +} + +/* See linux-arm-tdesc.h. */ + +arm_fp_type +arm_linux_get_tdesc_fp_type (const target_desc *tdesc) +{ + gdb_assert (tdesc != nullptr); + + /* Many of the tdesc_arm_list entries may not have been initialised yet. This + is ok, because tdesc must be one of the initialised ones. */ + for (int i = ARM_FP_TYPE_NONE; i < ARM_FP_TYPE_INVALID; i++) + { + if (tdesc == tdesc_arm_list[i]) + return (arm_fp_type) i; + } + + return ARM_FP_TYPE_INVALID; +} diff --git a/gdbserver/linux-bfin-low.c b/gdbserver/linux-bfin-low.c deleted file mode 100644 index 5bfc8868bd9..00000000000 --- a/gdbserver/linux-bfin-low.c +++ /dev/null @@ -1,159 +0,0 @@ -/* GNU/Linux/BFIN specific low level interface, for the remote server for GDB. - - Copyright (C) 2005-2020 Free Software Foundation, Inc. - - Contributed by Analog Devices, 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 . */ - -#include "server.h" -#include "linux-low.h" -#include - -/* Defined in auto-generated file reg-bfin.c. */ -void init_registers_bfin (void); -extern const struct target_desc *tdesc_bfin; - -static int bfin_regmap[] = -{ - PT_R0, PT_R1, PT_R2, PT_R3, PT_R4, PT_R5, PT_R6, PT_R7, - PT_P0, PT_P1, PT_P2, PT_P3, PT_P4, PT_P5, PT_USP, PT_FP, - PT_I0, PT_I1, PT_I2, PT_I3, PT_M0, PT_M1, PT_M2, PT_M3, - PT_B0, PT_B1, PT_B2, PT_B3, PT_L0, PT_L1, PT_L2, PT_L3, - PT_A0X, PT_A0W, PT_A1X, PT_A1W, PT_ASTAT, PT_RETS, - PT_LC0, PT_LT0, PT_LB0, PT_LC1, PT_LT1, PT_LB1, - -1 /* PT_CYCLES */, -1 /* PT_CYCLES2 */, - -1 /* PT_USP */, PT_SEQSTAT, PT_SYSCFG, PT_PC, PT_RETX, PT_RETN, PT_RETE, - PT_PC, -}; - -#define bfin_num_regs ARRAY_SIZE (bfin_regmap) - -static int -bfin_cannot_store_register (int regno) -{ - return (regno >= bfin_num_regs); -} - -static int -bfin_cannot_fetch_register (int regno) -{ - return (regno >= bfin_num_regs); -} - -#define bfin_breakpoint_len 2 -static const gdb_byte bfin_breakpoint[bfin_breakpoint_len] = {0xa1, 0x00}; - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -bfin_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = bfin_breakpoint_len; - return bfin_breakpoint; -} - -static int -bfin_breakpoint_at (CORE_ADDR where) -{ - unsigned char insn[bfin_breakpoint_len]; - - read_inferior_memory(where, insn, bfin_breakpoint_len); - if (insn[0] == bfin_breakpoint[0] - && insn[1] == bfin_breakpoint[1]) - return 1; - - /* If necessary, recognize more trap instructions here. GDB only uses the - one. */ - return 0; -} - -static void -bfin_arch_setup (void) -{ - current_process ()->tdesc = tdesc_bfin; -} - -/* Support for hardware single step. */ - -static int -bfin_supports_hardware_single_step (void) -{ - return 1; -} - -static struct usrregs_info bfin_usrregs_info = - { - bfin_num_regs, - bfin_regmap, - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &bfin_usrregs_info, - }; - -static const struct regs_info * -bfin_regs_info (void) -{ - return ®s_info; -} - -struct linux_target_ops the_low_target = { - bfin_arch_setup, - bfin_regs_info, - bfin_cannot_fetch_register, - bfin_cannot_store_register, - NULL, /* fetch_register */ - linux_get_pc_32bit, - linux_set_pc_32bit, - NULL, /* breakpoint_kind_from_pc */ - bfin_sw_breakpoint_from_kind, - NULL, /* get_next_pcs */ - 2, - bfin_breakpoint_at, - NULL, /* supports_z_point_type */ - NULL, /* insert_point */ - NULL, /* remove_point */ - NULL, /* stopped_by_watchpoint */ - NULL, /* stopped_data_address */ - NULL, /* collect_ptrace_register */ - NULL, /* supply_ptrace_register */ - NULL, /* siginfo_fixup */ - NULL, /* new_process */ - NULL, /* delete_process */ - NULL, /* new_thread */ - NULL, /* delete_thread */ - NULL, /* new_fork */ - NULL, /* prepare_to_resume */ - NULL, /* process_qsupported */ - NULL, /* supports_tracepoints */ - NULL, /* get_thread_area */ - NULL, /* install_fast_tracepoint_jump_pad */ - NULL, /* emit_ops */ - NULL, /* get_min_fast_tracepoint_insn_len */ - NULL, /* supports_range_stepping */ - NULL, /* breakpoint_kind_from_current_state */ - bfin_supports_hardware_single_step, -}; - - -void -initialize_low_arch (void) -{ - init_registers_bfin (); -} diff --git a/gdbserver/linux-bfin-low.cc b/gdbserver/linux-bfin-low.cc new file mode 100644 index 00000000000..5bfc8868bd9 --- /dev/null +++ b/gdbserver/linux-bfin-low.cc @@ -0,0 +1,159 @@ +/* GNU/Linux/BFIN specific low level interface, for the remote server for GDB. + + Copyright (C) 2005-2020 Free Software Foundation, Inc. + + Contributed by Analog Devices, 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 . */ + +#include "server.h" +#include "linux-low.h" +#include + +/* Defined in auto-generated file reg-bfin.c. */ +void init_registers_bfin (void); +extern const struct target_desc *tdesc_bfin; + +static int bfin_regmap[] = +{ + PT_R0, PT_R1, PT_R2, PT_R3, PT_R4, PT_R5, PT_R6, PT_R7, + PT_P0, PT_P1, PT_P2, PT_P3, PT_P4, PT_P5, PT_USP, PT_FP, + PT_I0, PT_I1, PT_I2, PT_I3, PT_M0, PT_M1, PT_M2, PT_M3, + PT_B0, PT_B1, PT_B2, PT_B3, PT_L0, PT_L1, PT_L2, PT_L3, + PT_A0X, PT_A0W, PT_A1X, PT_A1W, PT_ASTAT, PT_RETS, + PT_LC0, PT_LT0, PT_LB0, PT_LC1, PT_LT1, PT_LB1, + -1 /* PT_CYCLES */, -1 /* PT_CYCLES2 */, + -1 /* PT_USP */, PT_SEQSTAT, PT_SYSCFG, PT_PC, PT_RETX, PT_RETN, PT_RETE, + PT_PC, +}; + +#define bfin_num_regs ARRAY_SIZE (bfin_regmap) + +static int +bfin_cannot_store_register (int regno) +{ + return (regno >= bfin_num_regs); +} + +static int +bfin_cannot_fetch_register (int regno) +{ + return (regno >= bfin_num_regs); +} + +#define bfin_breakpoint_len 2 +static const gdb_byte bfin_breakpoint[bfin_breakpoint_len] = {0xa1, 0x00}; + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +bfin_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = bfin_breakpoint_len; + return bfin_breakpoint; +} + +static int +bfin_breakpoint_at (CORE_ADDR where) +{ + unsigned char insn[bfin_breakpoint_len]; + + read_inferior_memory(where, insn, bfin_breakpoint_len); + if (insn[0] == bfin_breakpoint[0] + && insn[1] == bfin_breakpoint[1]) + return 1; + + /* If necessary, recognize more trap instructions here. GDB only uses the + one. */ + return 0; +} + +static void +bfin_arch_setup (void) +{ + current_process ()->tdesc = tdesc_bfin; +} + +/* Support for hardware single step. */ + +static int +bfin_supports_hardware_single_step (void) +{ + return 1; +} + +static struct usrregs_info bfin_usrregs_info = + { + bfin_num_regs, + bfin_regmap, + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &bfin_usrregs_info, + }; + +static const struct regs_info * +bfin_regs_info (void) +{ + return ®s_info; +} + +struct linux_target_ops the_low_target = { + bfin_arch_setup, + bfin_regs_info, + bfin_cannot_fetch_register, + bfin_cannot_store_register, + NULL, /* fetch_register */ + linux_get_pc_32bit, + linux_set_pc_32bit, + NULL, /* breakpoint_kind_from_pc */ + bfin_sw_breakpoint_from_kind, + NULL, /* get_next_pcs */ + 2, + bfin_breakpoint_at, + NULL, /* supports_z_point_type */ + NULL, /* insert_point */ + NULL, /* remove_point */ + NULL, /* stopped_by_watchpoint */ + NULL, /* stopped_data_address */ + NULL, /* collect_ptrace_register */ + NULL, /* supply_ptrace_register */ + NULL, /* siginfo_fixup */ + NULL, /* new_process */ + NULL, /* delete_process */ + NULL, /* new_thread */ + NULL, /* delete_thread */ + NULL, /* new_fork */ + NULL, /* prepare_to_resume */ + NULL, /* process_qsupported */ + NULL, /* supports_tracepoints */ + NULL, /* get_thread_area */ + NULL, /* install_fast_tracepoint_jump_pad */ + NULL, /* emit_ops */ + NULL, /* get_min_fast_tracepoint_insn_len */ + NULL, /* supports_range_stepping */ + NULL, /* breakpoint_kind_from_current_state */ + bfin_supports_hardware_single_step, +}; + + +void +initialize_low_arch (void) +{ + init_registers_bfin (); +} diff --git a/gdbserver/linux-cris-low.c b/gdbserver/linux-cris-low.c deleted file mode 100644 index 8ea5af92e31..00000000000 --- a/gdbserver/linux-cris-low.c +++ /dev/null @@ -1,132 +0,0 @@ -/* GNU/Linux/CRIS specific low level interface, for the remote server for GDB. - Copyright (C) 1995-2020 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 . */ - -#include "server.h" -#include "linux-low.h" -#include "nat/gdb_ptrace.h" - -/* Defined in auto-generated file reg-cris.c. */ -void init_registers_cris (void); -extern const struct target_desc *tdesc_cris; - -/* CRISv10 */ -#define cris_num_regs 32 - -/* Locations need to match . */ -static int cris_regmap[] = { - 15*4, 14*4, 13*4, 12*4, - 11*4, 10*4, 9*4, 8*4, - 7*4, 6*4, 5*4, 4*4, - 3*4, 2*4, 23*4, 19*4, - - -1, -1, -1, -1, - -1, 17*4, -1, 16*4, - -1, -1, -1, 18*4, - -1, 17*4, -1, -1 - -}; - -static int -cris_cannot_store_register (int regno) -{ - if (cris_regmap[regno] == -1) - return 1; - - return (regno >= cris_num_regs); -} - -static int -cris_cannot_fetch_register (int regno) -{ - if (cris_regmap[regno] == -1) - return 1; - - return (regno >= cris_num_regs); -} - -static const unsigned short cris_breakpoint = 0xe938; -#define cris_breakpoint_len 2 - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -cris_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = cris_breakpoint_len; - return (const gdb_byte *) &cris_breakpoint; -} - -static int -cris_breakpoint_at (CORE_ADDR where) -{ - unsigned short insn; - - (*the_target->read_memory) (where, (unsigned char *) &insn, - cris_breakpoint_len); - if (insn == cris_breakpoint) - return 1; - - /* If necessary, recognize more trap instructions here. GDB only uses the - one. */ - return 0; -} - -static void -cris_arch_setup (void) -{ - current_process ()->tdesc = tdesc_cris; -} - -static struct usrregs_info cris_usrregs_info = - { - cris_num_regs, - cris_regmap, - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &cris_usrregs_info, - }; - -static const struct regs_info * -cris_regs_info (void) -{ - return ®s_info; -} - -struct linux_target_ops the_low_target = { - cris_arch_setup, - cris_regs_info, - cris_cannot_fetch_register, - cris_cannot_store_register, - NULL, /* fetch_register */ - linux_get_pc_32bit, - linux_set_pc_32bit, - NULL, /* breakpoint_kind_from_pc */ - cris_sw_breakpoint_from_kind, - NULL, /* get_next_pcs */ - 0, - cris_breakpoint_at, -}; - -void -initialize_low_arch (void) -{ - init_registers_cris (); -} diff --git a/gdbserver/linux-cris-low.cc b/gdbserver/linux-cris-low.cc new file mode 100644 index 00000000000..8ea5af92e31 --- /dev/null +++ b/gdbserver/linux-cris-low.cc @@ -0,0 +1,132 @@ +/* GNU/Linux/CRIS specific low level interface, for the remote server for GDB. + Copyright (C) 1995-2020 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 . */ + +#include "server.h" +#include "linux-low.h" +#include "nat/gdb_ptrace.h" + +/* Defined in auto-generated file reg-cris.c. */ +void init_registers_cris (void); +extern const struct target_desc *tdesc_cris; + +/* CRISv10 */ +#define cris_num_regs 32 + +/* Locations need to match . */ +static int cris_regmap[] = { + 15*4, 14*4, 13*4, 12*4, + 11*4, 10*4, 9*4, 8*4, + 7*4, 6*4, 5*4, 4*4, + 3*4, 2*4, 23*4, 19*4, + + -1, -1, -1, -1, + -1, 17*4, -1, 16*4, + -1, -1, -1, 18*4, + -1, 17*4, -1, -1 + +}; + +static int +cris_cannot_store_register (int regno) +{ + if (cris_regmap[regno] == -1) + return 1; + + return (regno >= cris_num_regs); +} + +static int +cris_cannot_fetch_register (int regno) +{ + if (cris_regmap[regno] == -1) + return 1; + + return (regno >= cris_num_regs); +} + +static const unsigned short cris_breakpoint = 0xe938; +#define cris_breakpoint_len 2 + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +cris_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = cris_breakpoint_len; + return (const gdb_byte *) &cris_breakpoint; +} + +static int +cris_breakpoint_at (CORE_ADDR where) +{ + unsigned short insn; + + (*the_target->read_memory) (where, (unsigned char *) &insn, + cris_breakpoint_len); + if (insn == cris_breakpoint) + return 1; + + /* If necessary, recognize more trap instructions here. GDB only uses the + one. */ + return 0; +} + +static void +cris_arch_setup (void) +{ + current_process ()->tdesc = tdesc_cris; +} + +static struct usrregs_info cris_usrregs_info = + { + cris_num_regs, + cris_regmap, + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &cris_usrregs_info, + }; + +static const struct regs_info * +cris_regs_info (void) +{ + return ®s_info; +} + +struct linux_target_ops the_low_target = { + cris_arch_setup, + cris_regs_info, + cris_cannot_fetch_register, + cris_cannot_store_register, + NULL, /* fetch_register */ + linux_get_pc_32bit, + linux_set_pc_32bit, + NULL, /* breakpoint_kind_from_pc */ + cris_sw_breakpoint_from_kind, + NULL, /* get_next_pcs */ + 0, + cris_breakpoint_at, +}; + +void +initialize_low_arch (void) +{ + init_registers_cris (); +} diff --git a/gdbserver/linux-crisv32-low.c b/gdbserver/linux-crisv32-low.c deleted file mode 100644 index facb5c5c274..00000000000 --- a/gdbserver/linux-crisv32-low.c +++ /dev/null @@ -1,440 +0,0 @@ -/* GNU/Linux/CRIS specific low level interface, for the remote server for GDB. - Copyright (C) 1995-2020 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 . */ - -#include "server.h" -#include "linux-low.h" -#include "nat/gdb_ptrace.h" - -/* Defined in auto-generated file reg-crisv32.c. */ -void init_registers_crisv32 (void); -extern const struct target_desc *tdesc_crisv32; - -/* CRISv32 */ -#define cris_num_regs 49 - -#ifndef PTRACE_GET_THREAD_AREA -#define PTRACE_GET_THREAD_AREA 25 -#endif - -/* Note: Ignoring USP (having the stack pointer in two locations causes trouble - without any significant gain). */ - -/* Locations need to match . */ -static int cris_regmap[] = { - 1*4, 2*4, 3*4, 4*4, - 5*4, 6*4, 7*4, 8*4, - 9*4, 10*4, 11*4, 12*4, - 13*4, 14*4, 24*4, 15*4, - - -1, -1, -1, 16*4, - -1, 22*4, 23*4, 17*4, - -1, -1, 21*4, 20*4, - -1, 19*4, -1, 18*4, - - 25*4, - - 26*4, -1, -1, 29*4, - 30*4, 31*4, 32*4, 33*4, - 34*4, 35*4, 36*4, 37*4, - 38*4, 39*4, 40*4, -1 - -}; - -static const unsigned short cris_breakpoint = 0xe938; -#define cris_breakpoint_len 2 - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -cris_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = cris_breakpoint_len; - return (const gdb_byte *) &cris_breakpoint; -} - -static int -cris_breakpoint_at (CORE_ADDR where) -{ - unsigned short insn; - - (*the_target->read_memory) (where, (unsigned char *) &insn, - cris_breakpoint_len); - if (insn == cris_breakpoint) - return 1; - - /* If necessary, recognize more trap instructions here. GDB only uses the - one. */ - return 0; -} - -static void -cris_write_data_breakpoint (struct regcache *regcache, - int bp, unsigned long start, unsigned long end) -{ - switch (bp) - { - case 0: - supply_register_by_name (regcache, "s3", &start); - supply_register_by_name (regcache, "s4", &end); - break; - case 1: - supply_register_by_name (regcache, "s5", &start); - supply_register_by_name (regcache, "s6", &end); - break; - case 2: - supply_register_by_name (regcache, "s7", &start); - supply_register_by_name (regcache, "s8", &end); - break; - case 3: - supply_register_by_name (regcache, "s9", &start); - supply_register_by_name (regcache, "s10", &end); - break; - case 4: - supply_register_by_name (regcache, "s11", &start); - supply_register_by_name (regcache, "s12", &end); - break; - case 5: - supply_register_by_name (regcache, "s13", &start); - supply_register_by_name (regcache, "s14", &end); - break; - } -} - -static int -cris_supports_z_point_type (char z_type) -{ - switch (z_type) - { - case Z_PACKET_WRITE_WP: - case Z_PACKET_READ_WP: - case Z_PACKET_ACCESS_WP: - return 1; - default: - return 0; - } -} - -static int -cris_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, - int len, struct raw_breakpoint *bp) -{ - int bp; - unsigned long bp_ctrl; - unsigned long start, end; - unsigned long ccs; - struct regcache *regcache; - - regcache = get_thread_regcache (current_thread, 1); - - /* Read watchpoints are set as access watchpoints, because of GDB's - inability to deal with pure read watchpoints. */ - if (type == raw_bkpt_type_read_wp) - type = raw_bkpt_type_access_wp; - - /* Get the configuration register. */ - collect_register_by_name (regcache, "s0", &bp_ctrl); - - /* The watchpoint allocation scheme is the simplest possible. - For example, if a region is watched for read and - a write watch is requested, a new watchpoint will - be used. Also, if a watch for a region that is already - covered by one or more existing watchpoints, a new - watchpoint will be used. */ - - /* First, find a free data watchpoint. */ - for (bp = 0; bp < 6; bp++) - { - /* Each data watchpoint's control registers occupy 2 bits - (hence the 3), starting at bit 2 for D0 (hence the 2) - with 4 bits between for each watchpoint (yes, the 4). */ - if (!(bp_ctrl & (0x3 << (2 + (bp * 4))))) - break; - } - - if (bp > 5) - { - /* We're out of watchpoints. */ - return -1; - } - - /* Configure the control register first. */ - if (type == raw_bkpt_type_read_wp || type == raw_bkpt_type_access_wp) - { - /* Trigger on read. */ - bp_ctrl |= (1 << (2 + bp * 4)); - } - if (type == raw_bkpt_type_write_wp || type == raw_bkpt_type_access_wp) - { - /* Trigger on write. */ - bp_ctrl |= (2 << (2 + bp * 4)); - } - - /* Setup the configuration register. */ - supply_register_by_name (regcache, "s0", &bp_ctrl); - - /* Setup the range. */ - start = addr; - end = addr + len - 1; - - /* Configure the watchpoint register. */ - cris_write_data_breakpoint (regcache, bp, start, end); - - collect_register_by_name (regcache, "ccs", &ccs); - /* Set the S1 flag to enable watchpoints. */ - ccs |= (1 << 19); - supply_register_by_name (regcache, "ccs", &ccs); - - return 0; -} - -static int -cris_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, int len, - struct raw_breakpoint *bp) -{ - int bp; - unsigned long bp_ctrl; - unsigned long start, end; - struct regcache *regcache; - unsigned long bp_d_regs[12]; - - regcache = get_thread_regcache (current_thread, 1); - - /* Read watchpoints are set as access watchpoints, because of GDB's - inability to deal with pure read watchpoints. */ - if (type == raw_bkpt_type_read_wp) - type = raw_bkpt_type_access_wp; - - /* Get the configuration register. */ - collect_register_by_name (regcache, "s0", &bp_ctrl); - - /* Try to find a watchpoint that is configured for the - specified range, then check that read/write also matches. */ - - /* Ugly pointer arithmetic, since I cannot rely on a - single switch (addr) as there may be several watchpoints with - the same start address for example. */ - - /* Get all range registers to simplify search. */ - collect_register_by_name (regcache, "s3", &bp_d_regs[0]); - collect_register_by_name (regcache, "s4", &bp_d_regs[1]); - collect_register_by_name (regcache, "s5", &bp_d_regs[2]); - collect_register_by_name (regcache, "s6", &bp_d_regs[3]); - collect_register_by_name (regcache, "s7", &bp_d_regs[4]); - collect_register_by_name (regcache, "s8", &bp_d_regs[5]); - collect_register_by_name (regcache, "s9", &bp_d_regs[6]); - collect_register_by_name (regcache, "s10", &bp_d_regs[7]); - collect_register_by_name (regcache, "s11", &bp_d_regs[8]); - collect_register_by_name (regcache, "s12", &bp_d_regs[9]); - collect_register_by_name (regcache, "s13", &bp_d_regs[10]); - collect_register_by_name (regcache, "s14", &bp_d_regs[11]); - - for (bp = 0; bp < 6; bp++) - { - if (bp_d_regs[bp * 2] == addr - && bp_d_regs[bp * 2 + 1] == (addr + len - 1)) { - /* Matching range. */ - int bitpos = 2 + bp * 4; - int rw_bits; - - /* Read/write bits for this BP. */ - rw_bits = (bp_ctrl & (0x3 << bitpos)) >> bitpos; - - if ((type == raw_bkpt_type_read_wp && rw_bits == 0x1) - || (type == raw_bkpt_type_write_wp && rw_bits == 0x2) - || (type == raw_bkpt_type_access_wp && rw_bits == 0x3)) - { - /* Read/write matched. */ - break; - } - } - } - - if (bp > 5) - { - /* No watchpoint matched. */ - return -1; - } - - /* Found a matching watchpoint. Now, deconfigure it by - both disabling read/write in bp_ctrl and zeroing its - start/end addresses. */ - bp_ctrl &= ~(3 << (2 + (bp * 4))); - /* Setup the configuration register. */ - supply_register_by_name (regcache, "s0", &bp_ctrl); - - start = end = 0; - /* Configure the watchpoint register. */ - cris_write_data_breakpoint (regcache, bp, start, end); - - /* Note that we don't clear the S1 flag here. It's done when continuing. */ - return 0; -} - -static int -cris_stopped_by_watchpoint (void) -{ - unsigned long exs; - struct regcache *regcache = get_thread_regcache (current_thread, 1); - - collect_register_by_name (regcache, "exs", &exs); - - return (((exs & 0xff00) >> 8) == 0xc); -} - -static CORE_ADDR -cris_stopped_data_address (void) -{ - unsigned long eda; - struct regcache *regcache = get_thread_regcache (current_thread, 1); - - collect_register_by_name (regcache, "eda", &eda); - - /* FIXME: Possibly adjust to match watched range. */ - return eda; -} - -ps_err_e -ps_get_thread_area (struct ps_prochandle *ph, - lwpid_t lwpid, int idx, void **base) -{ - if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0) - return PS_ERR; - - /* IDX is the bias from the thread pointer to the beginning of the - thread descriptor. It has to be subtracted due to implementation - quirks in libthread_db. */ - *base = (void *) ((char *) *base - idx); - return PS_OK; -} - -static void -cris_fill_gregset (struct regcache *regcache, void *buf) -{ - int i; - - for (i = 0; i < cris_num_regs; i++) - { - if (cris_regmap[i] != -1) - collect_register (regcache, i, ((char *) buf) + cris_regmap[i]); - } -} - -static void -cris_store_gregset (struct regcache *regcache, const void *buf) -{ - int i; - - for (i = 0; i < cris_num_regs; i++) - { - if (cris_regmap[i] != -1) - supply_register (regcache, i, ((char *) buf) + cris_regmap[i]); - } -} - -static void -cris_arch_setup (void) -{ - current_process ()->tdesc = tdesc_crisv32; -} - -/* Support for hardware single step. */ - -static int -cris_supports_hardware_single_step (void) -{ - return 1; -} - -static struct regset_info cris_regsets[] = { - { PTRACE_GETREGS, PTRACE_SETREGS, 0, cris_num_regs * 4, - GENERAL_REGS, cris_fill_gregset, cris_store_gregset }, - NULL_REGSET -}; - - -static struct regsets_info cris_regsets_info = - { - cris_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct usrregs_info cris_usrregs_info = - { - cris_num_regs, - cris_regmap, - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &cris_usrregs_info, - &cris_regsets_info - }; - -static const struct regs_info * -cris_regs_info (void) -{ - return ®s_info; -} - -struct linux_target_ops the_low_target = { - cris_arch_setup, - cris_regs_info, - NULL, - NULL, - NULL, /* fetch_register */ - linux_get_pc_32bit, - linux_set_pc_32bit, - NULL, /* breakpoint_kind_from_pc */ - cris_sw_breakpoint_from_kind, - NULL, /* get_next_pcs */ - 0, - cris_breakpoint_at, - cris_supports_z_point_type, - cris_insert_point, - cris_remove_point, - cris_stopped_by_watchpoint, - cris_stopped_data_address, - NULL, /* collect_ptrace_register */ - NULL, /* supply_ptrace_register */ - NULL, /* siginfo_fixup */ - NULL, /* new_process */ - NULL, /* delete_process */ - NULL, /* new_thread */ - NULL, /* delete_thread */ - NULL, /* new_fork */ - NULL, /* prepare_to_resume */ - NULL, /* process_qsupported */ - NULL, /* supports_tracepoints */ - NULL, /* get_thread_area */ - NULL, /* install_fast_tracepoint_jump_pad */ - NULL, /* emit_ops */ - NULL, /* get_min_fast_tracepoint_insn_len */ - NULL, /* supports_range_stepping */ - NULL, /* breakpoint_kind_from_current_state */ - cris_supports_hardware_single_step, -}; - -void -initialize_low_arch (void) -{ - init_registers_crisv32 (); - - initialize_regsets_info (&cris_regsets_info); -} diff --git a/gdbserver/linux-crisv32-low.cc b/gdbserver/linux-crisv32-low.cc new file mode 100644 index 00000000000..facb5c5c274 --- /dev/null +++ b/gdbserver/linux-crisv32-low.cc @@ -0,0 +1,440 @@ +/* GNU/Linux/CRIS specific low level interface, for the remote server for GDB. + Copyright (C) 1995-2020 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 . */ + +#include "server.h" +#include "linux-low.h" +#include "nat/gdb_ptrace.h" + +/* Defined in auto-generated file reg-crisv32.c. */ +void init_registers_crisv32 (void); +extern const struct target_desc *tdesc_crisv32; + +/* CRISv32 */ +#define cris_num_regs 49 + +#ifndef PTRACE_GET_THREAD_AREA +#define PTRACE_GET_THREAD_AREA 25 +#endif + +/* Note: Ignoring USP (having the stack pointer in two locations causes trouble + without any significant gain). */ + +/* Locations need to match . */ +static int cris_regmap[] = { + 1*4, 2*4, 3*4, 4*4, + 5*4, 6*4, 7*4, 8*4, + 9*4, 10*4, 11*4, 12*4, + 13*4, 14*4, 24*4, 15*4, + + -1, -1, -1, 16*4, + -1, 22*4, 23*4, 17*4, + -1, -1, 21*4, 20*4, + -1, 19*4, -1, 18*4, + + 25*4, + + 26*4, -1, -1, 29*4, + 30*4, 31*4, 32*4, 33*4, + 34*4, 35*4, 36*4, 37*4, + 38*4, 39*4, 40*4, -1 + +}; + +static const unsigned short cris_breakpoint = 0xe938; +#define cris_breakpoint_len 2 + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +cris_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = cris_breakpoint_len; + return (const gdb_byte *) &cris_breakpoint; +} + +static int +cris_breakpoint_at (CORE_ADDR where) +{ + unsigned short insn; + + (*the_target->read_memory) (where, (unsigned char *) &insn, + cris_breakpoint_len); + if (insn == cris_breakpoint) + return 1; + + /* If necessary, recognize more trap instructions here. GDB only uses the + one. */ + return 0; +} + +static void +cris_write_data_breakpoint (struct regcache *regcache, + int bp, unsigned long start, unsigned long end) +{ + switch (bp) + { + case 0: + supply_register_by_name (regcache, "s3", &start); + supply_register_by_name (regcache, "s4", &end); + break; + case 1: + supply_register_by_name (regcache, "s5", &start); + supply_register_by_name (regcache, "s6", &end); + break; + case 2: + supply_register_by_name (regcache, "s7", &start); + supply_register_by_name (regcache, "s8", &end); + break; + case 3: + supply_register_by_name (regcache, "s9", &start); + supply_register_by_name (regcache, "s10", &end); + break; + case 4: + supply_register_by_name (regcache, "s11", &start); + supply_register_by_name (regcache, "s12", &end); + break; + case 5: + supply_register_by_name (regcache, "s13", &start); + supply_register_by_name (regcache, "s14", &end); + break; + } +} + +static int +cris_supports_z_point_type (char z_type) +{ + switch (z_type) + { + case Z_PACKET_WRITE_WP: + case Z_PACKET_READ_WP: + case Z_PACKET_ACCESS_WP: + return 1; + default: + return 0; + } +} + +static int +cris_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, + int len, struct raw_breakpoint *bp) +{ + int bp; + unsigned long bp_ctrl; + unsigned long start, end; + unsigned long ccs; + struct regcache *regcache; + + regcache = get_thread_regcache (current_thread, 1); + + /* Read watchpoints are set as access watchpoints, because of GDB's + inability to deal with pure read watchpoints. */ + if (type == raw_bkpt_type_read_wp) + type = raw_bkpt_type_access_wp; + + /* Get the configuration register. */ + collect_register_by_name (regcache, "s0", &bp_ctrl); + + /* The watchpoint allocation scheme is the simplest possible. + For example, if a region is watched for read and + a write watch is requested, a new watchpoint will + be used. Also, if a watch for a region that is already + covered by one or more existing watchpoints, a new + watchpoint will be used. */ + + /* First, find a free data watchpoint. */ + for (bp = 0; bp < 6; bp++) + { + /* Each data watchpoint's control registers occupy 2 bits + (hence the 3), starting at bit 2 for D0 (hence the 2) + with 4 bits between for each watchpoint (yes, the 4). */ + if (!(bp_ctrl & (0x3 << (2 + (bp * 4))))) + break; + } + + if (bp > 5) + { + /* We're out of watchpoints. */ + return -1; + } + + /* Configure the control register first. */ + if (type == raw_bkpt_type_read_wp || type == raw_bkpt_type_access_wp) + { + /* Trigger on read. */ + bp_ctrl |= (1 << (2 + bp * 4)); + } + if (type == raw_bkpt_type_write_wp || type == raw_bkpt_type_access_wp) + { + /* Trigger on write. */ + bp_ctrl |= (2 << (2 + bp * 4)); + } + + /* Setup the configuration register. */ + supply_register_by_name (regcache, "s0", &bp_ctrl); + + /* Setup the range. */ + start = addr; + end = addr + len - 1; + + /* Configure the watchpoint register. */ + cris_write_data_breakpoint (regcache, bp, start, end); + + collect_register_by_name (regcache, "ccs", &ccs); + /* Set the S1 flag to enable watchpoints. */ + ccs |= (1 << 19); + supply_register_by_name (regcache, "ccs", &ccs); + + return 0; +} + +static int +cris_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, int len, + struct raw_breakpoint *bp) +{ + int bp; + unsigned long bp_ctrl; + unsigned long start, end; + struct regcache *regcache; + unsigned long bp_d_regs[12]; + + regcache = get_thread_regcache (current_thread, 1); + + /* Read watchpoints are set as access watchpoints, because of GDB's + inability to deal with pure read watchpoints. */ + if (type == raw_bkpt_type_read_wp) + type = raw_bkpt_type_access_wp; + + /* Get the configuration register. */ + collect_register_by_name (regcache, "s0", &bp_ctrl); + + /* Try to find a watchpoint that is configured for the + specified range, then check that read/write also matches. */ + + /* Ugly pointer arithmetic, since I cannot rely on a + single switch (addr) as there may be several watchpoints with + the same start address for example. */ + + /* Get all range registers to simplify search. */ + collect_register_by_name (regcache, "s3", &bp_d_regs[0]); + collect_register_by_name (regcache, "s4", &bp_d_regs[1]); + collect_register_by_name (regcache, "s5", &bp_d_regs[2]); + collect_register_by_name (regcache, "s6", &bp_d_regs[3]); + collect_register_by_name (regcache, "s7", &bp_d_regs[4]); + collect_register_by_name (regcache, "s8", &bp_d_regs[5]); + collect_register_by_name (regcache, "s9", &bp_d_regs[6]); + collect_register_by_name (regcache, "s10", &bp_d_regs[7]); + collect_register_by_name (regcache, "s11", &bp_d_regs[8]); + collect_register_by_name (regcache, "s12", &bp_d_regs[9]); + collect_register_by_name (regcache, "s13", &bp_d_regs[10]); + collect_register_by_name (regcache, "s14", &bp_d_regs[11]); + + for (bp = 0; bp < 6; bp++) + { + if (bp_d_regs[bp * 2] == addr + && bp_d_regs[bp * 2 + 1] == (addr + len - 1)) { + /* Matching range. */ + int bitpos = 2 + bp * 4; + int rw_bits; + + /* Read/write bits for this BP. */ + rw_bits = (bp_ctrl & (0x3 << bitpos)) >> bitpos; + + if ((type == raw_bkpt_type_read_wp && rw_bits == 0x1) + || (type == raw_bkpt_type_write_wp && rw_bits == 0x2) + || (type == raw_bkpt_type_access_wp && rw_bits == 0x3)) + { + /* Read/write matched. */ + break; + } + } + } + + if (bp > 5) + { + /* No watchpoint matched. */ + return -1; + } + + /* Found a matching watchpoint. Now, deconfigure it by + both disabling read/write in bp_ctrl and zeroing its + start/end addresses. */ + bp_ctrl &= ~(3 << (2 + (bp * 4))); + /* Setup the configuration register. */ + supply_register_by_name (regcache, "s0", &bp_ctrl); + + start = end = 0; + /* Configure the watchpoint register. */ + cris_write_data_breakpoint (regcache, bp, start, end); + + /* Note that we don't clear the S1 flag here. It's done when continuing. */ + return 0; +} + +static int +cris_stopped_by_watchpoint (void) +{ + unsigned long exs; + struct regcache *regcache = get_thread_regcache (current_thread, 1); + + collect_register_by_name (regcache, "exs", &exs); + + return (((exs & 0xff00) >> 8) == 0xc); +} + +static CORE_ADDR +cris_stopped_data_address (void) +{ + unsigned long eda; + struct regcache *regcache = get_thread_regcache (current_thread, 1); + + collect_register_by_name (regcache, "eda", &eda); + + /* FIXME: Possibly adjust to match watched range. */ + return eda; +} + +ps_err_e +ps_get_thread_area (struct ps_prochandle *ph, + lwpid_t lwpid, int idx, void **base) +{ + if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0) + return PS_ERR; + + /* IDX is the bias from the thread pointer to the beginning of the + thread descriptor. It has to be subtracted due to implementation + quirks in libthread_db. */ + *base = (void *) ((char *) *base - idx); + return PS_OK; +} + +static void +cris_fill_gregset (struct regcache *regcache, void *buf) +{ + int i; + + for (i = 0; i < cris_num_regs; i++) + { + if (cris_regmap[i] != -1) + collect_register (regcache, i, ((char *) buf) + cris_regmap[i]); + } +} + +static void +cris_store_gregset (struct regcache *regcache, const void *buf) +{ + int i; + + for (i = 0; i < cris_num_regs; i++) + { + if (cris_regmap[i] != -1) + supply_register (regcache, i, ((char *) buf) + cris_regmap[i]); + } +} + +static void +cris_arch_setup (void) +{ + current_process ()->tdesc = tdesc_crisv32; +} + +/* Support for hardware single step. */ + +static int +cris_supports_hardware_single_step (void) +{ + return 1; +} + +static struct regset_info cris_regsets[] = { + { PTRACE_GETREGS, PTRACE_SETREGS, 0, cris_num_regs * 4, + GENERAL_REGS, cris_fill_gregset, cris_store_gregset }, + NULL_REGSET +}; + + +static struct regsets_info cris_regsets_info = + { + cris_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct usrregs_info cris_usrregs_info = + { + cris_num_regs, + cris_regmap, + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &cris_usrregs_info, + &cris_regsets_info + }; + +static const struct regs_info * +cris_regs_info (void) +{ + return ®s_info; +} + +struct linux_target_ops the_low_target = { + cris_arch_setup, + cris_regs_info, + NULL, + NULL, + NULL, /* fetch_register */ + linux_get_pc_32bit, + linux_set_pc_32bit, + NULL, /* breakpoint_kind_from_pc */ + cris_sw_breakpoint_from_kind, + NULL, /* get_next_pcs */ + 0, + cris_breakpoint_at, + cris_supports_z_point_type, + cris_insert_point, + cris_remove_point, + cris_stopped_by_watchpoint, + cris_stopped_data_address, + NULL, /* collect_ptrace_register */ + NULL, /* supply_ptrace_register */ + NULL, /* siginfo_fixup */ + NULL, /* new_process */ + NULL, /* delete_process */ + NULL, /* new_thread */ + NULL, /* delete_thread */ + NULL, /* new_fork */ + NULL, /* prepare_to_resume */ + NULL, /* process_qsupported */ + NULL, /* supports_tracepoints */ + NULL, /* get_thread_area */ + NULL, /* install_fast_tracepoint_jump_pad */ + NULL, /* emit_ops */ + NULL, /* get_min_fast_tracepoint_insn_len */ + NULL, /* supports_range_stepping */ + NULL, /* breakpoint_kind_from_current_state */ + cris_supports_hardware_single_step, +}; + +void +initialize_low_arch (void) +{ + init_registers_crisv32 (); + + initialize_regsets_info (&cris_regsets_info); +} diff --git a/gdbserver/linux-i386-ipa.c b/gdbserver/linux-i386-ipa.c deleted file mode 100644 index 41f77c8deac..00000000000 --- a/gdbserver/linux-i386-ipa.c +++ /dev/null @@ -1,294 +0,0 @@ -/* GNU/Linux/x86 specific low level interface, for the in-process - agent library for GDB. - - Copyright (C) 2010-2020 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 . */ - -#include "server.h" -#include -#include "tracepoint.h" -#include "linux-x86-tdesc.h" -#include "gdbsupport/x86-xstate.h" - -/* GDB register numbers. */ - -enum i386_gdb_regnum -{ - I386_EAX_REGNUM, /* %eax */ - I386_ECX_REGNUM, /* %ecx */ - I386_EDX_REGNUM, /* %edx */ - I386_EBX_REGNUM, /* %ebx */ - I386_ESP_REGNUM, /* %esp */ - I386_EBP_REGNUM, /* %ebp */ - I386_ESI_REGNUM, /* %esi */ - I386_EDI_REGNUM, /* %edi */ - I386_EIP_REGNUM, /* %eip */ - I386_EFLAGS_REGNUM, /* %eflags */ - I386_CS_REGNUM, /* %cs */ - I386_SS_REGNUM, /* %ss */ - I386_DS_REGNUM, /* %ds */ - I386_ES_REGNUM, /* %es */ - I386_FS_REGNUM, /* %fs */ - I386_GS_REGNUM, /* %gs */ - I386_ST0_REGNUM /* %st(0) */ -}; - -#define i386_num_regs 16 - -#define FT_CR_EAX 15 -#define FT_CR_ECX 14 -#define FT_CR_EDX 13 -#define FT_CR_EBX 12 -#define FT_CR_UESP 11 -#define FT_CR_EBP 10 -#define FT_CR_ESI 9 -#define FT_CR_EDI 8 -#define FT_CR_EIP 7 -#define FT_CR_EFL 6 -#define FT_CR_DS 5 -#define FT_CR_ES 4 -#define FT_CR_FS 3 -#define FT_CR_GS 2 -#define FT_CR_SS 1 -#define FT_CR_CS 0 - -/* Mapping between the general-purpose registers in jump tracepoint - format and GDB's register array layout. */ - -static const int i386_ft_collect_regmap[] = -{ - FT_CR_EAX * 4, FT_CR_ECX * 4, FT_CR_EDX * 4, FT_CR_EBX * 4, - FT_CR_UESP * 4, FT_CR_EBP * 4, FT_CR_ESI * 4, FT_CR_EDI * 4, - FT_CR_EIP * 4, FT_CR_EFL * 4, FT_CR_CS * 4, FT_CR_SS * 4, - FT_CR_DS * 4, FT_CR_ES * 4, FT_CR_FS * 4, FT_CR_GS * 4 -}; - -void -supply_fast_tracepoint_registers (struct regcache *regcache, - const unsigned char *buf) -{ - int i; - - for (i = 0; i < i386_num_regs; i++) - { - int regval; - - if (i >= I386_CS_REGNUM && i <= I386_GS_REGNUM) - regval = *(short *) (((char *) buf) + i386_ft_collect_regmap[i]); - else - regval = *(int *) (((char *) buf) + i386_ft_collect_regmap[i]); - - supply_register (regcache, i, ®val); - } -} - -ULONGEST -get_raw_reg (const unsigned char *raw_regs, int regnum) -{ - /* This should maybe be allowed to return an error code, or perhaps - better, have the emit_reg detect this, and emit a constant zero, - or something. */ - - if (regnum > i386_num_regs) - return 0; - else if (regnum >= I386_CS_REGNUM && regnum <= I386_GS_REGNUM) - return *(short *) (raw_regs + i386_ft_collect_regmap[regnum]); - else - return *(int *) (raw_regs + i386_ft_collect_regmap[regnum]); -} - -#ifdef HAVE_UST - -#include - -/* "struct registers" is the UST object type holding the registers at - the time of the static tracepoint marker call. This doesn't - contain EIP, but we know what it must have been (the marker - address). */ - -#define ST_REGENTRY(REG) \ - { \ - offsetof (struct registers, REG), \ - sizeof (((struct registers *) NULL)->REG) \ - } - -static struct -{ - int offset; - int size; -} i386_st_collect_regmap[] = - { - ST_REGENTRY(eax), - ST_REGENTRY(ecx), - ST_REGENTRY(edx), - ST_REGENTRY(ebx), - ST_REGENTRY(esp), - ST_REGENTRY(ebp), - ST_REGENTRY(esi), - ST_REGENTRY(edi), - { -1, 0 }, /* eip */ - ST_REGENTRY(eflags), - ST_REGENTRY(cs), - ST_REGENTRY(ss), - }; - -#define i386_NUM_ST_COLLECT_GREGS \ - (sizeof (i386_st_collect_regmap) / sizeof (i386_st_collect_regmap[0])) - -void -supply_static_tracepoint_registers (struct regcache *regcache, - const unsigned char *buf, - CORE_ADDR pc) -{ - int i; - unsigned int newpc = pc; - - supply_register (regcache, I386_EIP_REGNUM, &newpc); - - for (i = 0; i < i386_NUM_ST_COLLECT_GREGS; i++) - if (i386_st_collect_regmap[i].offset != -1) - { - switch (i386_st_collect_regmap[i].size) - { - case 4: - supply_register (regcache, i, - ((char *) buf) - + i386_st_collect_regmap[i].offset); - break; - case 2: - { - unsigned long reg - = * (short *) (((char *) buf) - + i386_st_collect_regmap[i].offset); - reg &= 0xffff; - supply_register (regcache, i, ®); - } - break; - default: - internal_error (__FILE__, __LINE__, "unhandled register size: %d", - i386_st_collect_regmap[i].size); - } - } -} - -#endif /* HAVE_UST */ - - -/* This is only needed because reg-i386-linux-lib.o references it. We - may use it proper at some point. */ -const char *gdbserver_xmltarget; - -/* Attempt to allocate memory for trampolines in the first 64 KiB of - memory to enable smaller jump patches. */ - -static void -initialize_fast_tracepoint_trampoline_buffer (void) -{ - const CORE_ADDR buffer_end = 64 * 1024; - /* Ensure that the buffer will be at least 1 KiB in size, which is - enough space for over 200 fast tracepoints. */ - const int min_buffer_size = 1024; - char buf[IPA_BUFSIZ]; - CORE_ADDR mmap_min_addr = buffer_end + 1; - ULONGEST buffer_size; - FILE *f = fopen ("/proc/sys/vm/mmap_min_addr", "r"); - - if (!f) - { - snprintf (buf, sizeof (buf), "mmap_min_addr open failed: %s", - safe_strerror (errno)); - set_trampoline_buffer_space (0, 0, buf); - return; - } - - if (fgets (buf, IPA_BUFSIZ, f)) - sscanf (buf, "%llu", &mmap_min_addr); - - fclose (f); - - buffer_size = buffer_end - mmap_min_addr; - - if (buffer_size >= min_buffer_size) - { - if (mmap ((void *) (uintptr_t) mmap_min_addr, buffer_size, - PROT_READ | PROT_EXEC | PROT_WRITE, - MAP_FIXED | MAP_PRIVATE | MAP_ANONYMOUS, - -1, 0) - != MAP_FAILED) - set_trampoline_buffer_space (mmap_min_addr, buffer_end, NULL); - else - { - snprintf (buf, IPA_BUFSIZ, "low-64K-buffer mmap() failed: %s", - safe_strerror (errno)); - set_trampoline_buffer_space (0, 0, buf); - } - } - else - { - snprintf (buf, IPA_BUFSIZ, "mmap_min_addr is %d, must be %d or less", - (int) mmap_min_addr, (int) buffer_end - min_buffer_size); - set_trampoline_buffer_space (0, 0, buf); - } -} - -/* Map the tdesc index to xcr0 mask. */ -static uint64_t idx2mask[X86_TDESC_LAST] = { - X86_XSTATE_X87_MASK, - X86_XSTATE_SSE_MASK, - X86_XSTATE_AVX_MASK, - X86_XSTATE_MPX_MASK, - X86_XSTATE_AVX_MPX_MASK, - X86_XSTATE_AVX_AVX512_MASK, - X86_XSTATE_AVX_MPX_AVX512_PKU_MASK, -}; - -/* Return target_desc to use for IPA, given the tdesc index passed by - gdbserver. */ - -const struct target_desc * -get_ipa_tdesc (int idx) -{ - if (idx >= X86_TDESC_LAST) - { - internal_error (__FILE__, __LINE__, - "unknown ipa tdesc index: %d", idx); - } - return i386_linux_read_description (idx2mask[idx]); -} - -/* Allocate buffer for the jump pads. On i386, we can reach an arbitrary - address with a jump instruction, so just allocate normally. */ - -void * -alloc_jump_pad_buffer (size_t size) -{ - void *res = mmap (NULL, size, PROT_READ | PROT_WRITE | PROT_EXEC, - MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); - - if (res == MAP_FAILED) - return NULL; - - return res; -} - -void -initialize_low_tracepoint (void) -{ - initialize_fast_tracepoint_trampoline_buffer (); - for (auto i = 0; i < X86_TDESC_LAST; i++) - i386_linux_read_description (idx2mask[i]); -} diff --git a/gdbserver/linux-i386-ipa.cc b/gdbserver/linux-i386-ipa.cc new file mode 100644 index 00000000000..41f77c8deac --- /dev/null +++ b/gdbserver/linux-i386-ipa.cc @@ -0,0 +1,294 @@ +/* GNU/Linux/x86 specific low level interface, for the in-process + agent library for GDB. + + Copyright (C) 2010-2020 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 . */ + +#include "server.h" +#include +#include "tracepoint.h" +#include "linux-x86-tdesc.h" +#include "gdbsupport/x86-xstate.h" + +/* GDB register numbers. */ + +enum i386_gdb_regnum +{ + I386_EAX_REGNUM, /* %eax */ + I386_ECX_REGNUM, /* %ecx */ + I386_EDX_REGNUM, /* %edx */ + I386_EBX_REGNUM, /* %ebx */ + I386_ESP_REGNUM, /* %esp */ + I386_EBP_REGNUM, /* %ebp */ + I386_ESI_REGNUM, /* %esi */ + I386_EDI_REGNUM, /* %edi */ + I386_EIP_REGNUM, /* %eip */ + I386_EFLAGS_REGNUM, /* %eflags */ + I386_CS_REGNUM, /* %cs */ + I386_SS_REGNUM, /* %ss */ + I386_DS_REGNUM, /* %ds */ + I386_ES_REGNUM, /* %es */ + I386_FS_REGNUM, /* %fs */ + I386_GS_REGNUM, /* %gs */ + I386_ST0_REGNUM /* %st(0) */ +}; + +#define i386_num_regs 16 + +#define FT_CR_EAX 15 +#define FT_CR_ECX 14 +#define FT_CR_EDX 13 +#define FT_CR_EBX 12 +#define FT_CR_UESP 11 +#define FT_CR_EBP 10 +#define FT_CR_ESI 9 +#define FT_CR_EDI 8 +#define FT_CR_EIP 7 +#define FT_CR_EFL 6 +#define FT_CR_DS 5 +#define FT_CR_ES 4 +#define FT_CR_FS 3 +#define FT_CR_GS 2 +#define FT_CR_SS 1 +#define FT_CR_CS 0 + +/* Mapping between the general-purpose registers in jump tracepoint + format and GDB's register array layout. */ + +static const int i386_ft_collect_regmap[] = +{ + FT_CR_EAX * 4, FT_CR_ECX * 4, FT_CR_EDX * 4, FT_CR_EBX * 4, + FT_CR_UESP * 4, FT_CR_EBP * 4, FT_CR_ESI * 4, FT_CR_EDI * 4, + FT_CR_EIP * 4, FT_CR_EFL * 4, FT_CR_CS * 4, FT_CR_SS * 4, + FT_CR_DS * 4, FT_CR_ES * 4, FT_CR_FS * 4, FT_CR_GS * 4 +}; + +void +supply_fast_tracepoint_registers (struct regcache *regcache, + const unsigned char *buf) +{ + int i; + + for (i = 0; i < i386_num_regs; i++) + { + int regval; + + if (i >= I386_CS_REGNUM && i <= I386_GS_REGNUM) + regval = *(short *) (((char *) buf) + i386_ft_collect_regmap[i]); + else + regval = *(int *) (((char *) buf) + i386_ft_collect_regmap[i]); + + supply_register (regcache, i, ®val); + } +} + +ULONGEST +get_raw_reg (const unsigned char *raw_regs, int regnum) +{ + /* This should maybe be allowed to return an error code, or perhaps + better, have the emit_reg detect this, and emit a constant zero, + or something. */ + + if (regnum > i386_num_regs) + return 0; + else if (regnum >= I386_CS_REGNUM && regnum <= I386_GS_REGNUM) + return *(short *) (raw_regs + i386_ft_collect_regmap[regnum]); + else + return *(int *) (raw_regs + i386_ft_collect_regmap[regnum]); +} + +#ifdef HAVE_UST + +#include + +/* "struct registers" is the UST object type holding the registers at + the time of the static tracepoint marker call. This doesn't + contain EIP, but we know what it must have been (the marker + address). */ + +#define ST_REGENTRY(REG) \ + { \ + offsetof (struct registers, REG), \ + sizeof (((struct registers *) NULL)->REG) \ + } + +static struct +{ + int offset; + int size; +} i386_st_collect_regmap[] = + { + ST_REGENTRY(eax), + ST_REGENTRY(ecx), + ST_REGENTRY(edx), + ST_REGENTRY(ebx), + ST_REGENTRY(esp), + ST_REGENTRY(ebp), + ST_REGENTRY(esi), + ST_REGENTRY(edi), + { -1, 0 }, /* eip */ + ST_REGENTRY(eflags), + ST_REGENTRY(cs), + ST_REGENTRY(ss), + }; + +#define i386_NUM_ST_COLLECT_GREGS \ + (sizeof (i386_st_collect_regmap) / sizeof (i386_st_collect_regmap[0])) + +void +supply_static_tracepoint_registers (struct regcache *regcache, + const unsigned char *buf, + CORE_ADDR pc) +{ + int i; + unsigned int newpc = pc; + + supply_register (regcache, I386_EIP_REGNUM, &newpc); + + for (i = 0; i < i386_NUM_ST_COLLECT_GREGS; i++) + if (i386_st_collect_regmap[i].offset != -1) + { + switch (i386_st_collect_regmap[i].size) + { + case 4: + supply_register (regcache, i, + ((char *) buf) + + i386_st_collect_regmap[i].offset); + break; + case 2: + { + unsigned long reg + = * (short *) (((char *) buf) + + i386_st_collect_regmap[i].offset); + reg &= 0xffff; + supply_register (regcache, i, ®); + } + break; + default: + internal_error (__FILE__, __LINE__, "unhandled register size: %d", + i386_st_collect_regmap[i].size); + } + } +} + +#endif /* HAVE_UST */ + + +/* This is only needed because reg-i386-linux-lib.o references it. We + may use it proper at some point. */ +const char *gdbserver_xmltarget; + +/* Attempt to allocate memory for trampolines in the first 64 KiB of + memory to enable smaller jump patches. */ + +static void +initialize_fast_tracepoint_trampoline_buffer (void) +{ + const CORE_ADDR buffer_end = 64 * 1024; + /* Ensure that the buffer will be at least 1 KiB in size, which is + enough space for over 200 fast tracepoints. */ + const int min_buffer_size = 1024; + char buf[IPA_BUFSIZ]; + CORE_ADDR mmap_min_addr = buffer_end + 1; + ULONGEST buffer_size; + FILE *f = fopen ("/proc/sys/vm/mmap_min_addr", "r"); + + if (!f) + { + snprintf (buf, sizeof (buf), "mmap_min_addr open failed: %s", + safe_strerror (errno)); + set_trampoline_buffer_space (0, 0, buf); + return; + } + + if (fgets (buf, IPA_BUFSIZ, f)) + sscanf (buf, "%llu", &mmap_min_addr); + + fclose (f); + + buffer_size = buffer_end - mmap_min_addr; + + if (buffer_size >= min_buffer_size) + { + if (mmap ((void *) (uintptr_t) mmap_min_addr, buffer_size, + PROT_READ | PROT_EXEC | PROT_WRITE, + MAP_FIXED | MAP_PRIVATE | MAP_ANONYMOUS, + -1, 0) + != MAP_FAILED) + set_trampoline_buffer_space (mmap_min_addr, buffer_end, NULL); + else + { + snprintf (buf, IPA_BUFSIZ, "low-64K-buffer mmap() failed: %s", + safe_strerror (errno)); + set_trampoline_buffer_space (0, 0, buf); + } + } + else + { + snprintf (buf, IPA_BUFSIZ, "mmap_min_addr is %d, must be %d or less", + (int) mmap_min_addr, (int) buffer_end - min_buffer_size); + set_trampoline_buffer_space (0, 0, buf); + } +} + +/* Map the tdesc index to xcr0 mask. */ +static uint64_t idx2mask[X86_TDESC_LAST] = { + X86_XSTATE_X87_MASK, + X86_XSTATE_SSE_MASK, + X86_XSTATE_AVX_MASK, + X86_XSTATE_MPX_MASK, + X86_XSTATE_AVX_MPX_MASK, + X86_XSTATE_AVX_AVX512_MASK, + X86_XSTATE_AVX_MPX_AVX512_PKU_MASK, +}; + +/* Return target_desc to use for IPA, given the tdesc index passed by + gdbserver. */ + +const struct target_desc * +get_ipa_tdesc (int idx) +{ + if (idx >= X86_TDESC_LAST) + { + internal_error (__FILE__, __LINE__, + "unknown ipa tdesc index: %d", idx); + } + return i386_linux_read_description (idx2mask[idx]); +} + +/* Allocate buffer for the jump pads. On i386, we can reach an arbitrary + address with a jump instruction, so just allocate normally. */ + +void * +alloc_jump_pad_buffer (size_t size) +{ + void *res = mmap (NULL, size, PROT_READ | PROT_WRITE | PROT_EXEC, + MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); + + if (res == MAP_FAILED) + return NULL; + + return res; +} + +void +initialize_low_tracepoint (void) +{ + initialize_fast_tracepoint_trampoline_buffer (); + for (auto i = 0; i < X86_TDESC_LAST; i++) + i386_linux_read_description (idx2mask[i]); +} diff --git a/gdbserver/linux-ia64-low.c b/gdbserver/linux-ia64-low.c deleted file mode 100644 index 2399e58b366..00000000000 --- a/gdbserver/linux-ia64-low.c +++ /dev/null @@ -1,360 +0,0 @@ -/* GNU/Linux/IA64 specific low level interface, for the remote server for GDB. - Copyright (C) 1995-2020 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 . */ - -#include "server.h" -#include "linux-low.h" - -#ifdef HAVE_SYS_REG_H -#include -#endif - -/* Defined in auto-generated file reg-ia64.c. */ -void init_registers_ia64 (void); -extern const struct target_desc *tdesc_ia64; - -#define ia64_num_regs 462 - -#include - -static int ia64_regmap[] = - { - /* general registers */ - -1, /* gr0 not available; i.e, it's always zero */ - PT_R1, - PT_R2, - PT_R3, - PT_R4, - PT_R5, - PT_R6, - PT_R7, - PT_R8, - PT_R9, - PT_R10, - PT_R11, - PT_R12, - PT_R13, - PT_R14, - PT_R15, - PT_R16, - PT_R17, - PT_R18, - PT_R19, - PT_R20, - PT_R21, - PT_R22, - PT_R23, - PT_R24, - PT_R25, - PT_R26, - PT_R27, - PT_R28, - PT_R29, - PT_R30, - PT_R31, - /* gr32 through gr127 not directly available via the ptrace interface */ - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - /* Floating point registers */ - -1, -1, /* f0 and f1 not available (f0 is +0.0 and f1 is +1.0) */ - PT_F2, - PT_F3, - PT_F4, - PT_F5, - PT_F6, - PT_F7, - PT_F8, - PT_F9, - PT_F10, - PT_F11, - PT_F12, - PT_F13, - PT_F14, - PT_F15, - PT_F16, - PT_F17, - PT_F18, - PT_F19, - PT_F20, - PT_F21, - PT_F22, - PT_F23, - PT_F24, - PT_F25, - PT_F26, - PT_F27, - PT_F28, - PT_F29, - PT_F30, - PT_F31, - PT_F32, - PT_F33, - PT_F34, - PT_F35, - PT_F36, - PT_F37, - PT_F38, - PT_F39, - PT_F40, - PT_F41, - PT_F42, - PT_F43, - PT_F44, - PT_F45, - PT_F46, - PT_F47, - PT_F48, - PT_F49, - PT_F50, - PT_F51, - PT_F52, - PT_F53, - PT_F54, - PT_F55, - PT_F56, - PT_F57, - PT_F58, - PT_F59, - PT_F60, - PT_F61, - PT_F62, - PT_F63, - PT_F64, - PT_F65, - PT_F66, - PT_F67, - PT_F68, - PT_F69, - PT_F70, - PT_F71, - PT_F72, - PT_F73, - PT_F74, - PT_F75, - PT_F76, - PT_F77, - PT_F78, - PT_F79, - PT_F80, - PT_F81, - PT_F82, - PT_F83, - PT_F84, - PT_F85, - PT_F86, - PT_F87, - PT_F88, - PT_F89, - PT_F90, - PT_F91, - PT_F92, - PT_F93, - PT_F94, - PT_F95, - PT_F96, - PT_F97, - PT_F98, - PT_F99, - PT_F100, - PT_F101, - PT_F102, - PT_F103, - PT_F104, - PT_F105, - PT_F106, - PT_F107, - PT_F108, - PT_F109, - PT_F110, - PT_F111, - PT_F112, - PT_F113, - PT_F114, - PT_F115, - PT_F116, - PT_F117, - PT_F118, - PT_F119, - PT_F120, - PT_F121, - PT_F122, - PT_F123, - PT_F124, - PT_F125, - PT_F126, - PT_F127, - /* predicate registers - we don't fetch these individually */ - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - /* branch registers */ - PT_B0, - PT_B1, - PT_B2, - PT_B3, - PT_B4, - PT_B5, - PT_B6, - PT_B7, - /* virtual frame pointer and virtual return address pointer */ - -1, -1, - /* other registers */ - PT_PR, - PT_CR_IIP, /* ip */ - PT_CR_IPSR, /* psr */ - PT_CFM, /* cfm */ - /* kernel registers not visible via ptrace interface (?) */ - -1, -1, -1, -1, -1, -1, -1, -1, - /* hole */ - -1, -1, -1, -1, -1, -1, -1, -1, - PT_AR_RSC, - PT_AR_BSP, - PT_AR_BSPSTORE, - PT_AR_RNAT, - -1, - -1, /* Not available: FCR, IA32 floating control register */ - -1, -1, - -1, /* Not available: EFLAG */ - -1, /* Not available: CSD */ - -1, /* Not available: SSD */ - -1, /* Not available: CFLG */ - -1, /* Not available: FSR */ - -1, /* Not available: FIR */ - -1, /* Not available: FDR */ - -1, - PT_AR_CCV, - -1, -1, -1, - PT_AR_UNAT, - -1, -1, -1, - PT_AR_FPSR, - -1, -1, -1, - -1, /* Not available: ITC */ - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, - PT_AR_PFS, - PT_AR_LC, - PT_AR_EC, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, - }; - -static int -ia64_cannot_store_register (int regno) -{ - return 0; -} - -static int -ia64_cannot_fetch_register (int regno) -{ - return 0; -} - -/* GDB register numbers. */ -#define IA64_GR0_REGNUM 0 -#define IA64_FR0_REGNUM 128 -#define IA64_FR1_REGNUM 129 - -static int -ia64_fetch_register (struct regcache *regcache, int regnum) -{ - /* r0 cannot be fetched but is always zero. */ - if (regnum == IA64_GR0_REGNUM) - { - const gdb_byte zero[8] = { 0 }; - - gdb_assert (sizeof (zero) == register_size (regcache->tdesc, regnum)); - supply_register (regcache, regnum, zero); - return 1; - } - - /* fr0 cannot be fetched but is always zero. */ - if (regnum == IA64_FR0_REGNUM) - { - const gdb_byte f_zero[16] = { 0 }; - - gdb_assert (sizeof (f_zero) == register_size (regcache->tdesc, regnum)); - supply_register (regcache, regnum, f_zero); - return 1; - } - - /* fr1 cannot be fetched but is always one (1.0). */ - if (regnum == IA64_FR1_REGNUM) - { - const gdb_byte f_one[16] = - { 0, 0, 0, 0, 0, 0, 0, 0x80, 0xff, 0xff, 0, 0, 0, 0, 0, 0 }; - - gdb_assert (sizeof (f_one) == register_size (regcache->tdesc, regnum)); - supply_register (regcache, regnum, f_one); - return 1; - } - - return 0; -} - -static struct usrregs_info ia64_usrregs_info = - { - ia64_num_regs, - ia64_regmap, - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &ia64_usrregs_info - }; - -static const struct regs_info * -ia64_regs_info (void) -{ - return ®s_info; -} - -static void -ia64_arch_setup (void) -{ - current_process ()->tdesc = tdesc_ia64; -} - - -struct linux_target_ops the_low_target = { - ia64_arch_setup, - ia64_regs_info, - ia64_cannot_fetch_register, - ia64_cannot_store_register, - ia64_fetch_register, -}; - -void -initialize_low_arch (void) -{ - init_registers_ia64 (); -} diff --git a/gdbserver/linux-ia64-low.cc b/gdbserver/linux-ia64-low.cc new file mode 100644 index 00000000000..2399e58b366 --- /dev/null +++ b/gdbserver/linux-ia64-low.cc @@ -0,0 +1,360 @@ +/* GNU/Linux/IA64 specific low level interface, for the remote server for GDB. + Copyright (C) 1995-2020 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 . */ + +#include "server.h" +#include "linux-low.h" + +#ifdef HAVE_SYS_REG_H +#include +#endif + +/* Defined in auto-generated file reg-ia64.c. */ +void init_registers_ia64 (void); +extern const struct target_desc *tdesc_ia64; + +#define ia64_num_regs 462 + +#include + +static int ia64_regmap[] = + { + /* general registers */ + -1, /* gr0 not available; i.e, it's always zero */ + PT_R1, + PT_R2, + PT_R3, + PT_R4, + PT_R5, + PT_R6, + PT_R7, + PT_R8, + PT_R9, + PT_R10, + PT_R11, + PT_R12, + PT_R13, + PT_R14, + PT_R15, + PT_R16, + PT_R17, + PT_R18, + PT_R19, + PT_R20, + PT_R21, + PT_R22, + PT_R23, + PT_R24, + PT_R25, + PT_R26, + PT_R27, + PT_R28, + PT_R29, + PT_R30, + PT_R31, + /* gr32 through gr127 not directly available via the ptrace interface */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + /* Floating point registers */ + -1, -1, /* f0 and f1 not available (f0 is +0.0 and f1 is +1.0) */ + PT_F2, + PT_F3, + PT_F4, + PT_F5, + PT_F6, + PT_F7, + PT_F8, + PT_F9, + PT_F10, + PT_F11, + PT_F12, + PT_F13, + PT_F14, + PT_F15, + PT_F16, + PT_F17, + PT_F18, + PT_F19, + PT_F20, + PT_F21, + PT_F22, + PT_F23, + PT_F24, + PT_F25, + PT_F26, + PT_F27, + PT_F28, + PT_F29, + PT_F30, + PT_F31, + PT_F32, + PT_F33, + PT_F34, + PT_F35, + PT_F36, + PT_F37, + PT_F38, + PT_F39, + PT_F40, + PT_F41, + PT_F42, + PT_F43, + PT_F44, + PT_F45, + PT_F46, + PT_F47, + PT_F48, + PT_F49, + PT_F50, + PT_F51, + PT_F52, + PT_F53, + PT_F54, + PT_F55, + PT_F56, + PT_F57, + PT_F58, + PT_F59, + PT_F60, + PT_F61, + PT_F62, + PT_F63, + PT_F64, + PT_F65, + PT_F66, + PT_F67, + PT_F68, + PT_F69, + PT_F70, + PT_F71, + PT_F72, + PT_F73, + PT_F74, + PT_F75, + PT_F76, + PT_F77, + PT_F78, + PT_F79, + PT_F80, + PT_F81, + PT_F82, + PT_F83, + PT_F84, + PT_F85, + PT_F86, + PT_F87, + PT_F88, + PT_F89, + PT_F90, + PT_F91, + PT_F92, + PT_F93, + PT_F94, + PT_F95, + PT_F96, + PT_F97, + PT_F98, + PT_F99, + PT_F100, + PT_F101, + PT_F102, + PT_F103, + PT_F104, + PT_F105, + PT_F106, + PT_F107, + PT_F108, + PT_F109, + PT_F110, + PT_F111, + PT_F112, + PT_F113, + PT_F114, + PT_F115, + PT_F116, + PT_F117, + PT_F118, + PT_F119, + PT_F120, + PT_F121, + PT_F122, + PT_F123, + PT_F124, + PT_F125, + PT_F126, + PT_F127, + /* predicate registers - we don't fetch these individually */ + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + /* branch registers */ + PT_B0, + PT_B1, + PT_B2, + PT_B3, + PT_B4, + PT_B5, + PT_B6, + PT_B7, + /* virtual frame pointer and virtual return address pointer */ + -1, -1, + /* other registers */ + PT_PR, + PT_CR_IIP, /* ip */ + PT_CR_IPSR, /* psr */ + PT_CFM, /* cfm */ + /* kernel registers not visible via ptrace interface (?) */ + -1, -1, -1, -1, -1, -1, -1, -1, + /* hole */ + -1, -1, -1, -1, -1, -1, -1, -1, + PT_AR_RSC, + PT_AR_BSP, + PT_AR_BSPSTORE, + PT_AR_RNAT, + -1, + -1, /* Not available: FCR, IA32 floating control register */ + -1, -1, + -1, /* Not available: EFLAG */ + -1, /* Not available: CSD */ + -1, /* Not available: SSD */ + -1, /* Not available: CFLG */ + -1, /* Not available: FSR */ + -1, /* Not available: FIR */ + -1, /* Not available: FDR */ + -1, + PT_AR_CCV, + -1, -1, -1, + PT_AR_UNAT, + -1, -1, -1, + PT_AR_FPSR, + -1, -1, -1, + -1, /* Not available: ITC */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, + PT_AR_PFS, + PT_AR_LC, + PT_AR_EC, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, + }; + +static int +ia64_cannot_store_register (int regno) +{ + return 0; +} + +static int +ia64_cannot_fetch_register (int regno) +{ + return 0; +} + +/* GDB register numbers. */ +#define IA64_GR0_REGNUM 0 +#define IA64_FR0_REGNUM 128 +#define IA64_FR1_REGNUM 129 + +static int +ia64_fetch_register (struct regcache *regcache, int regnum) +{ + /* r0 cannot be fetched but is always zero. */ + if (regnum == IA64_GR0_REGNUM) + { + const gdb_byte zero[8] = { 0 }; + + gdb_assert (sizeof (zero) == register_size (regcache->tdesc, regnum)); + supply_register (regcache, regnum, zero); + return 1; + } + + /* fr0 cannot be fetched but is always zero. */ + if (regnum == IA64_FR0_REGNUM) + { + const gdb_byte f_zero[16] = { 0 }; + + gdb_assert (sizeof (f_zero) == register_size (regcache->tdesc, regnum)); + supply_register (regcache, regnum, f_zero); + return 1; + } + + /* fr1 cannot be fetched but is always one (1.0). */ + if (regnum == IA64_FR1_REGNUM) + { + const gdb_byte f_one[16] = + { 0, 0, 0, 0, 0, 0, 0, 0x80, 0xff, 0xff, 0, 0, 0, 0, 0, 0 }; + + gdb_assert (sizeof (f_one) == register_size (regcache->tdesc, regnum)); + supply_register (regcache, regnum, f_one); + return 1; + } + + return 0; +} + +static struct usrregs_info ia64_usrregs_info = + { + ia64_num_regs, + ia64_regmap, + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &ia64_usrregs_info + }; + +static const struct regs_info * +ia64_regs_info (void) +{ + return ®s_info; +} + +static void +ia64_arch_setup (void) +{ + current_process ()->tdesc = tdesc_ia64; +} + + +struct linux_target_ops the_low_target = { + ia64_arch_setup, + ia64_regs_info, + ia64_cannot_fetch_register, + ia64_cannot_store_register, + ia64_fetch_register, +}; + +void +initialize_low_arch (void) +{ + init_registers_ia64 (); +} diff --git a/gdbserver/linux-low.c b/gdbserver/linux-low.c deleted file mode 100644 index 676dea26c63..00000000000 --- a/gdbserver/linux-low.c +++ /dev/null @@ -1,7492 +0,0 @@ -/* Low level interface to ptrace, for the remote server for GDB. - Copyright (C) 1995-2020 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 . */ - -#include "server.h" -#include "linux-low.h" -#include "nat/linux-osdata.h" -#include "gdbsupport/agent.h" -#include "tdesc.h" -#include "gdbsupport/rsp-low.h" -#include "gdbsupport/signals-state-save-restore.h" -#include "nat/linux-nat.h" -#include "nat/linux-waitpid.h" -#include "gdbsupport/gdb_wait.h" -#include "nat/gdb_ptrace.h" -#include "nat/linux-ptrace.h" -#include "nat/linux-procfs.h" -#include "nat/linux-personality.h" -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include "gdbsupport/filestuff.h" -#include "tracepoint.h" -#include "hostio.h" -#include -#include "gdbsupport/common-inferior.h" -#include "nat/fork-inferior.h" -#include "gdbsupport/environ.h" -#include "gdbsupport/gdb-sigmask.h" -#include "gdbsupport/scoped_restore.h" -#ifndef ELFMAG0 -/* Don't include here. If it got included by gdb_proc_service.h - then ELFMAG0 will have been defined. If it didn't get included by - gdb_proc_service.h then including it will likely introduce a duplicate - definition of elf_fpregset_t. */ -#include -#endif -#include "nat/linux-namespaces.h" - -#ifdef HAVE_PERSONALITY -# include -# if !HAVE_DECL_ADDR_NO_RANDOMIZE -# define ADDR_NO_RANDOMIZE 0x0040000 -# endif -#endif - -#ifndef O_LARGEFILE -#define O_LARGEFILE 0 -#endif - -#ifndef AT_HWCAP2 -#define AT_HWCAP2 26 -#endif - -/* Some targets did not define these ptrace constants from the start, - so gdbserver defines them locally here. In the future, these may - be removed after they are added to asm/ptrace.h. */ -#if !(defined(PT_TEXT_ADDR) \ - || defined(PT_DATA_ADDR) \ - || defined(PT_TEXT_END_ADDR)) -#if defined(__mcoldfire__) -/* These are still undefined in 3.10 kernels. */ -#define PT_TEXT_ADDR 49*4 -#define PT_DATA_ADDR 50*4 -#define PT_TEXT_END_ADDR 51*4 -/* BFIN already defines these since at least 2.6.32 kernels. */ -#elif defined(BFIN) -#define PT_TEXT_ADDR 220 -#define PT_TEXT_END_ADDR 224 -#define PT_DATA_ADDR 228 -/* These are still undefined in 3.10 kernels. */ -#elif defined(__TMS320C6X__) -#define PT_TEXT_ADDR (0x10000*4) -#define PT_DATA_ADDR (0x10004*4) -#define PT_TEXT_END_ADDR (0x10008*4) -#endif -#endif - -#ifdef HAVE_LINUX_BTRACE -# include "nat/linux-btrace.h" -# include "gdbsupport/btrace-common.h" -#endif - -#ifndef HAVE_ELF32_AUXV_T -/* Copied from glibc's elf.h. */ -typedef struct -{ - uint32_t a_type; /* Entry type */ - union - { - uint32_t a_val; /* Integer value */ - /* We use to have pointer elements added here. We cannot do that, - though, since it does not work when using 32-bit definitions - on 64-bit platforms and vice versa. */ - } a_un; -} Elf32_auxv_t; -#endif - -#ifndef HAVE_ELF64_AUXV_T -/* Copied from glibc's elf.h. */ -typedef struct -{ - uint64_t a_type; /* Entry type */ - union - { - uint64_t a_val; /* Integer value */ - /* We use to have pointer elements added here. We cannot do that, - though, since it does not work when using 32-bit definitions - on 64-bit platforms and vice versa. */ - } a_un; -} Elf64_auxv_t; -#endif - -/* Does the current host support PTRACE_GETREGSET? */ -int have_ptrace_getregset = -1; - -/* LWP accessors. */ - -/* See nat/linux-nat.h. */ - -ptid_t -ptid_of_lwp (struct lwp_info *lwp) -{ - return ptid_of (get_lwp_thread (lwp)); -} - -/* See nat/linux-nat.h. */ - -void -lwp_set_arch_private_info (struct lwp_info *lwp, - struct arch_lwp_info *info) -{ - lwp->arch_private = info; -} - -/* See nat/linux-nat.h. */ - -struct arch_lwp_info * -lwp_arch_private_info (struct lwp_info *lwp) -{ - return lwp->arch_private; -} - -/* See nat/linux-nat.h. */ - -int -lwp_is_stopped (struct lwp_info *lwp) -{ - return lwp->stopped; -} - -/* See nat/linux-nat.h. */ - -enum target_stop_reason -lwp_stop_reason (struct lwp_info *lwp) -{ - return lwp->stop_reason; -} - -/* See nat/linux-nat.h. */ - -int -lwp_is_stepping (struct lwp_info *lwp) -{ - return lwp->stepping; -} - -/* A list of all unknown processes which receive stop signals. Some - other process will presumably claim each of these as forked - children momentarily. */ - -struct simple_pid_list -{ - /* The process ID. */ - int pid; - - /* The status as reported by waitpid. */ - int status; - - /* Next in chain. */ - struct simple_pid_list *next; -}; -struct simple_pid_list *stopped_pids; - -/* Trivial list manipulation functions to keep track of a list of new - stopped processes. */ - -static void -add_to_pid_list (struct simple_pid_list **listp, int pid, int status) -{ - struct simple_pid_list *new_pid = XNEW (struct simple_pid_list); - - new_pid->pid = pid; - new_pid->status = status; - new_pid->next = *listp; - *listp = new_pid; -} - -static int -pull_pid_from_list (struct simple_pid_list **listp, int pid, int *statusp) -{ - struct simple_pid_list **p; - - for (p = listp; *p != NULL; p = &(*p)->next) - if ((*p)->pid == pid) - { - struct simple_pid_list *next = (*p)->next; - - *statusp = (*p)->status; - xfree (*p); - *p = next; - return 1; - } - return 0; -} - -enum stopping_threads_kind - { - /* Not stopping threads presently. */ - NOT_STOPPING_THREADS, - - /* Stopping threads. */ - STOPPING_THREADS, - - /* Stopping and suspending threads. */ - STOPPING_AND_SUSPENDING_THREADS - }; - -/* This is set while stop_all_lwps is in effect. */ -enum stopping_threads_kind stopping_threads = NOT_STOPPING_THREADS; - -/* FIXME make into a target method? */ -int using_threads = 1; - -/* True if we're presently stabilizing threads (moving them out of - jump pads). */ -static int stabilizing_threads; - -static void linux_resume_one_lwp (struct lwp_info *lwp, - int step, int signal, siginfo_t *info); -static void linux_resume (struct thread_resume *resume_info, size_t n); -static void stop_all_lwps (int suspend, struct lwp_info *except); -static void unstop_all_lwps (int unsuspend, struct lwp_info *except); -static void unsuspend_all_lwps (struct lwp_info *except); -static int linux_wait_for_event_filtered (ptid_t wait_ptid, ptid_t filter_ptid, - int *wstat, int options); -static int linux_wait_for_event (ptid_t ptid, int *wstat, int options); -static struct lwp_info *add_lwp (ptid_t ptid); -static void linux_mourn (struct process_info *process); -static int linux_stopped_by_watchpoint (void); -static void mark_lwp_dead (struct lwp_info *lwp, int wstat); -static int lwp_is_marked_dead (struct lwp_info *lwp); -static void proceed_all_lwps (void); -static int finish_step_over (struct lwp_info *lwp); -static int kill_lwp (unsigned long lwpid, int signo); -static void enqueue_pending_signal (struct lwp_info *lwp, int signal, siginfo_t *info); -static void complete_ongoing_step_over (void); -static int linux_low_ptrace_options (int attached); -static int check_ptrace_stopped_lwp_gone (struct lwp_info *lp); -static void proceed_one_lwp (thread_info *thread, lwp_info *except); - -/* When the event-loop is doing a step-over, this points at the thread - being stepped. */ -ptid_t step_over_bkpt; - -/* True if the low target can hardware single-step. */ - -static int -can_hardware_single_step (void) -{ - if (the_low_target.supports_hardware_single_step != NULL) - return the_low_target.supports_hardware_single_step (); - else - return 0; -} - -/* True if the low target can software single-step. Such targets - implement the GET_NEXT_PCS callback. */ - -static int -can_software_single_step (void) -{ - return (the_low_target.get_next_pcs != NULL); -} - -/* True if the low target supports memory breakpoints. If so, we'll - have a GET_PC implementation. */ - -static int -supports_breakpoints (void) -{ - return (the_low_target.get_pc != NULL); -} - -/* Returns true if this target can support fast tracepoints. This - does not mean that the in-process agent has been loaded in the - inferior. */ - -static int -supports_fast_tracepoints (void) -{ - return the_low_target.install_fast_tracepoint_jump_pad != NULL; -} - -/* True if LWP is stopped in its stepping range. */ - -static int -lwp_in_step_range (struct lwp_info *lwp) -{ - CORE_ADDR pc = lwp->stop_pc; - - return (pc >= lwp->step_range_start && pc < lwp->step_range_end); -} - -struct pending_signals -{ - int signal; - siginfo_t info; - struct pending_signals *prev; -}; - -/* The read/write ends of the pipe registered as waitable file in the - event loop. */ -static int linux_event_pipe[2] = { -1, -1 }; - -/* True if we're currently in async mode. */ -#define target_is_async_p() (linux_event_pipe[0] != -1) - -static void send_sigstop (struct lwp_info *lwp); -static void wait_for_sigstop (void); - -/* Return non-zero if HEADER is a 64-bit ELF file. */ - -static int -elf_64_header_p (const Elf64_Ehdr *header, unsigned int *machine) -{ - if (header->e_ident[EI_MAG0] == ELFMAG0 - && header->e_ident[EI_MAG1] == ELFMAG1 - && header->e_ident[EI_MAG2] == ELFMAG2 - && header->e_ident[EI_MAG3] == ELFMAG3) - { - *machine = header->e_machine; - return header->e_ident[EI_CLASS] == ELFCLASS64; - - } - *machine = EM_NONE; - return -1; -} - -/* Return non-zero if FILE is a 64-bit ELF file, - zero if the file is not a 64-bit ELF file, - and -1 if the file is not accessible or doesn't exist. */ - -static int -elf_64_file_p (const char *file, unsigned int *machine) -{ - Elf64_Ehdr header; - int fd; - - fd = open (file, O_RDONLY); - if (fd < 0) - return -1; - - if (read (fd, &header, sizeof (header)) != sizeof (header)) - { - close (fd); - return 0; - } - close (fd); - - return elf_64_header_p (&header, machine); -} - -/* Accepts an integer PID; Returns true if the executable PID is - running is a 64-bit ELF file.. */ - -int -linux_pid_exe_is_elf_64_file (int pid, unsigned int *machine) -{ - char file[PATH_MAX]; - - sprintf (file, "/proc/%d/exe", pid); - return elf_64_file_p (file, machine); -} - -static void -delete_lwp (struct lwp_info *lwp) -{ - struct thread_info *thr = get_lwp_thread (lwp); - - if (debug_threads) - debug_printf ("deleting %ld\n", lwpid_of (thr)); - - remove_thread (thr); - - if (the_low_target.delete_thread != NULL) - the_low_target.delete_thread (lwp->arch_private); - else - gdb_assert (lwp->arch_private == NULL); - - free (lwp); -} - -/* Add a process to the common process list, and set its private - data. */ - -static struct process_info * -linux_add_process (int pid, int attached) -{ - struct process_info *proc; - - proc = add_process (pid, attached); - proc->priv = XCNEW (struct process_info_private); - - if (the_low_target.new_process != NULL) - proc->priv->arch_private = the_low_target.new_process (); - - return proc; -} - -static CORE_ADDR get_pc (struct lwp_info *lwp); - -/* Call the target arch_setup function on the current thread. */ - -static void -linux_arch_setup (void) -{ - the_low_target.arch_setup (); -} - -/* Call the target arch_setup function on THREAD. */ - -static void -linux_arch_setup_thread (struct thread_info *thread) -{ - struct thread_info *saved_thread; - - saved_thread = current_thread; - current_thread = thread; - - linux_arch_setup (); - - current_thread = saved_thread; -} - -/* Handle a GNU/Linux extended wait response. If we see a clone, - fork, or vfork event, we need to add the new LWP to our list - (and return 0 so as not to report the trap to higher layers). - If we see an exec event, we will modify ORIG_EVENT_LWP to point - to a new LWP representing the new program. */ - -static int -handle_extended_wait (struct lwp_info **orig_event_lwp, int wstat) -{ - client_state &cs = get_client_state (); - struct lwp_info *event_lwp = *orig_event_lwp; - int event = linux_ptrace_get_extended_event (wstat); - struct thread_info *event_thr = get_lwp_thread (event_lwp); - struct lwp_info *new_lwp; - - gdb_assert (event_lwp->waitstatus.kind == TARGET_WAITKIND_IGNORE); - - /* All extended events we currently use are mid-syscall. Only - PTRACE_EVENT_STOP is delivered more like a signal-stop, but - you have to be using PTRACE_SEIZE to get that. */ - event_lwp->syscall_state = TARGET_WAITKIND_SYSCALL_ENTRY; - - if ((event == PTRACE_EVENT_FORK) || (event == PTRACE_EVENT_VFORK) - || (event == PTRACE_EVENT_CLONE)) - { - ptid_t ptid; - unsigned long new_pid; - int ret, status; - - /* Get the pid of the new lwp. */ - ptrace (PTRACE_GETEVENTMSG, lwpid_of (event_thr), (PTRACE_TYPE_ARG3) 0, - &new_pid); - - /* If we haven't already seen the new PID stop, wait for it now. */ - if (!pull_pid_from_list (&stopped_pids, new_pid, &status)) - { - /* The new child has a pending SIGSTOP. We can't affect it until it - hits the SIGSTOP, but we're already attached. */ - - ret = my_waitpid (new_pid, &status, __WALL); - - if (ret == -1) - perror_with_name ("waiting for new child"); - else if (ret != new_pid) - warning ("wait returned unexpected PID %d", ret); - else if (!WIFSTOPPED (status)) - warning ("wait returned unexpected status 0x%x", status); - } - - if (event == PTRACE_EVENT_FORK || event == PTRACE_EVENT_VFORK) - { - struct process_info *parent_proc; - struct process_info *child_proc; - struct lwp_info *child_lwp; - struct thread_info *child_thr; - struct target_desc *tdesc; - - ptid = ptid_t (new_pid, new_pid, 0); - - if (debug_threads) - { - debug_printf ("HEW: Got fork event from LWP %ld, " - "new child is %d\n", - ptid_of (event_thr).lwp (), - ptid.pid ()); - } - - /* Add the new process to the tables and clone the breakpoint - lists of the parent. We need to do this even if the new process - will be detached, since we will need the process object and the - breakpoints to remove any breakpoints from memory when we - detach, and the client side will access registers. */ - child_proc = linux_add_process (new_pid, 0); - gdb_assert (child_proc != NULL); - child_lwp = add_lwp (ptid); - gdb_assert (child_lwp != NULL); - child_lwp->stopped = 1; - child_lwp->must_set_ptrace_flags = 1; - child_lwp->status_pending_p = 0; - child_thr = get_lwp_thread (child_lwp); - child_thr->last_resume_kind = resume_stop; - child_thr->last_status.kind = TARGET_WAITKIND_STOPPED; - - /* If we're suspending all threads, leave this one suspended - too. If the fork/clone parent is stepping over a breakpoint, - all other threads have been suspended already. Leave the - child suspended too. */ - if (stopping_threads == STOPPING_AND_SUSPENDING_THREADS - || event_lwp->bp_reinsert != 0) - { - if (debug_threads) - debug_printf ("HEW: leaving child suspended\n"); - child_lwp->suspended = 1; - } - - parent_proc = get_thread_process (event_thr); - child_proc->attached = parent_proc->attached; - - if (event_lwp->bp_reinsert != 0 - && can_software_single_step () - && event == PTRACE_EVENT_VFORK) - { - /* If we leave single-step breakpoints there, child will - hit it, so uninsert single-step breakpoints from parent - (and child). Once vfork child is done, reinsert - them back to parent. */ - uninsert_single_step_breakpoints (event_thr); - } - - clone_all_breakpoints (child_thr, event_thr); - - tdesc = allocate_target_description (); - copy_target_description (tdesc, parent_proc->tdesc); - child_proc->tdesc = tdesc; - - /* Clone arch-specific process data. */ - if (the_low_target.new_fork != NULL) - the_low_target.new_fork (parent_proc, child_proc); - - /* Save fork info in the parent thread. */ - if (event == PTRACE_EVENT_FORK) - event_lwp->waitstatus.kind = TARGET_WAITKIND_FORKED; - else if (event == PTRACE_EVENT_VFORK) - event_lwp->waitstatus.kind = TARGET_WAITKIND_VFORKED; - - event_lwp->waitstatus.value.related_pid = ptid; - - /* The status_pending field contains bits denoting the - extended event, so when the pending event is handled, - the handler will look at lwp->waitstatus. */ - event_lwp->status_pending_p = 1; - event_lwp->status_pending = wstat; - - /* Link the threads until the parent event is passed on to - higher layers. */ - event_lwp->fork_relative = child_lwp; - child_lwp->fork_relative = event_lwp; - - /* If the parent thread is doing step-over with single-step - breakpoints, the list of single-step breakpoints are cloned - from the parent's. Remove them from the child process. - In case of vfork, we'll reinsert them back once vforked - child is done. */ - if (event_lwp->bp_reinsert != 0 - && can_software_single_step ()) - { - /* The child process is forked and stopped, so it is safe - to access its memory without stopping all other threads - from other processes. */ - delete_single_step_breakpoints (child_thr); - - gdb_assert (has_single_step_breakpoints (event_thr)); - gdb_assert (!has_single_step_breakpoints (child_thr)); - } - - /* Report the event. */ - return 0; - } - - if (debug_threads) - debug_printf ("HEW: Got clone event " - "from LWP %ld, new child is LWP %ld\n", - lwpid_of (event_thr), new_pid); - - ptid = ptid_t (pid_of (event_thr), new_pid, 0); - new_lwp = add_lwp (ptid); - - /* Either we're going to immediately resume the new thread - or leave it stopped. linux_resume_one_lwp is a nop if it - thinks the thread is currently running, so set this first - before calling linux_resume_one_lwp. */ - new_lwp->stopped = 1; - - /* If we're suspending all threads, leave this one suspended - too. If the fork/clone parent is stepping over a breakpoint, - all other threads have been suspended already. Leave the - child suspended too. */ - if (stopping_threads == STOPPING_AND_SUSPENDING_THREADS - || event_lwp->bp_reinsert != 0) - new_lwp->suspended = 1; - - /* Normally we will get the pending SIGSTOP. But in some cases - we might get another signal delivered to the group first. - If we do get another signal, be sure not to lose it. */ - if (WSTOPSIG (status) != SIGSTOP) - { - new_lwp->stop_expected = 1; - new_lwp->status_pending_p = 1; - new_lwp->status_pending = status; - } - else if (cs.report_thread_events) - { - new_lwp->waitstatus.kind = TARGET_WAITKIND_THREAD_CREATED; - new_lwp->status_pending_p = 1; - new_lwp->status_pending = status; - } - -#ifdef USE_THREAD_DB - thread_db_notice_clone (event_thr, ptid); -#endif - - /* Don't report the event. */ - return 1; - } - else if (event == PTRACE_EVENT_VFORK_DONE) - { - event_lwp->waitstatus.kind = TARGET_WAITKIND_VFORK_DONE; - - if (event_lwp->bp_reinsert != 0 && can_software_single_step ()) - { - reinsert_single_step_breakpoints (event_thr); - - gdb_assert (has_single_step_breakpoints (event_thr)); - } - - /* Report the event. */ - return 0; - } - else if (event == PTRACE_EVENT_EXEC && cs.report_exec_events) - { - struct process_info *proc; - std::vector syscalls_to_catch; - ptid_t event_ptid; - pid_t event_pid; - - if (debug_threads) - { - debug_printf ("HEW: Got exec event from LWP %ld\n", - lwpid_of (event_thr)); - } - - /* Get the event ptid. */ - event_ptid = ptid_of (event_thr); - event_pid = event_ptid.pid (); - - /* Save the syscall list from the execing process. */ - proc = get_thread_process (event_thr); - syscalls_to_catch = std::move (proc->syscalls_to_catch); - - /* Delete the execing process and all its threads. */ - linux_mourn (proc); - current_thread = NULL; - - /* Create a new process/lwp/thread. */ - proc = linux_add_process (event_pid, 0); - event_lwp = add_lwp (event_ptid); - event_thr = get_lwp_thread (event_lwp); - gdb_assert (current_thread == event_thr); - linux_arch_setup_thread (event_thr); - - /* Set the event status. */ - event_lwp->waitstatus.kind = TARGET_WAITKIND_EXECD; - event_lwp->waitstatus.value.execd_pathname - = xstrdup (linux_proc_pid_to_exec_file (lwpid_of (event_thr))); - - /* Mark the exec status as pending. */ - event_lwp->stopped = 1; - event_lwp->status_pending_p = 1; - event_lwp->status_pending = wstat; - event_thr->last_resume_kind = resume_continue; - event_thr->last_status.kind = TARGET_WAITKIND_IGNORE; - - /* Update syscall state in the new lwp, effectively mid-syscall too. */ - event_lwp->syscall_state = TARGET_WAITKIND_SYSCALL_ENTRY; - - /* Restore the list to catch. Don't rely on the client, which is free - to avoid sending a new list when the architecture doesn't change. - Also, for ANY_SYSCALL, the architecture doesn't really matter. */ - proc->syscalls_to_catch = std::move (syscalls_to_catch); - - /* Report the event. */ - *orig_event_lwp = event_lwp; - return 0; - } - - internal_error (__FILE__, __LINE__, _("unknown ptrace event %d"), event); -} - -/* Return the PC as read from the regcache of LWP, without any - adjustment. */ - -static CORE_ADDR -get_pc (struct lwp_info *lwp) -{ - struct thread_info *saved_thread; - struct regcache *regcache; - CORE_ADDR pc; - - if (the_low_target.get_pc == NULL) - return 0; - - saved_thread = current_thread; - current_thread = get_lwp_thread (lwp); - - regcache = get_thread_regcache (current_thread, 1); - pc = (*the_low_target.get_pc) (regcache); - - if (debug_threads) - debug_printf ("pc is 0x%lx\n", (long) pc); - - current_thread = saved_thread; - return pc; -} - -/* This function should only be called if LWP got a SYSCALL_SIGTRAP. - Fill *SYSNO with the syscall nr trapped. */ - -static void -get_syscall_trapinfo (struct lwp_info *lwp, int *sysno) -{ - struct thread_info *saved_thread; - struct regcache *regcache; - - if (the_low_target.get_syscall_trapinfo == NULL) - { - /* If we cannot get the syscall trapinfo, report an unknown - system call number. */ - *sysno = UNKNOWN_SYSCALL; - return; - } - - saved_thread = current_thread; - current_thread = get_lwp_thread (lwp); - - regcache = get_thread_regcache (current_thread, 1); - (*the_low_target.get_syscall_trapinfo) (regcache, sysno); - - if (debug_threads) - debug_printf ("get_syscall_trapinfo sysno %d\n", *sysno); - - current_thread = saved_thread; -} - -static int check_stopped_by_watchpoint (struct lwp_info *child); - -/* Called when the LWP stopped for a signal/trap. If it stopped for a - trap check what caused it (breakpoint, watchpoint, trace, etc.), - and save the result in the LWP's stop_reason field. If it stopped - for a breakpoint, decrement the PC if necessary on the lwp's - architecture. Returns true if we now have the LWP's stop PC. */ - -static int -save_stop_reason (struct lwp_info *lwp) -{ - CORE_ADDR pc; - CORE_ADDR sw_breakpoint_pc; - struct thread_info *saved_thread; -#if USE_SIGTRAP_SIGINFO - siginfo_t siginfo; -#endif - - if (the_low_target.get_pc == NULL) - return 0; - - pc = get_pc (lwp); - sw_breakpoint_pc = pc - the_low_target.decr_pc_after_break; - - /* breakpoint_at reads from the current thread. */ - saved_thread = current_thread; - current_thread = get_lwp_thread (lwp); - -#if USE_SIGTRAP_SIGINFO - if (ptrace (PTRACE_GETSIGINFO, lwpid_of (current_thread), - (PTRACE_TYPE_ARG3) 0, &siginfo) == 0) - { - if (siginfo.si_signo == SIGTRAP) - { - if (GDB_ARCH_IS_TRAP_BRKPT (siginfo.si_code) - && GDB_ARCH_IS_TRAP_HWBKPT (siginfo.si_code)) - { - /* The si_code is ambiguous on this arch -- check debug - registers. */ - if (!check_stopped_by_watchpoint (lwp)) - lwp->stop_reason = TARGET_STOPPED_BY_SW_BREAKPOINT; - } - else if (GDB_ARCH_IS_TRAP_BRKPT (siginfo.si_code)) - { - /* If we determine the LWP stopped for a SW breakpoint, - trust it. Particularly don't check watchpoint - registers, because at least on s390, we'd find - stopped-by-watchpoint as long as there's a watchpoint - set. */ - lwp->stop_reason = TARGET_STOPPED_BY_SW_BREAKPOINT; - } - else if (GDB_ARCH_IS_TRAP_HWBKPT (siginfo.si_code)) - { - /* This can indicate either a hardware breakpoint or - hardware watchpoint. Check debug registers. */ - if (!check_stopped_by_watchpoint (lwp)) - lwp->stop_reason = TARGET_STOPPED_BY_HW_BREAKPOINT; - } - else if (siginfo.si_code == TRAP_TRACE) - { - /* We may have single stepped an instruction that - triggered a watchpoint. In that case, on some - architectures (such as x86), instead of TRAP_HWBKPT, - si_code indicates TRAP_TRACE, and we need to check - the debug registers separately. */ - if (!check_stopped_by_watchpoint (lwp)) - lwp->stop_reason = TARGET_STOPPED_BY_SINGLE_STEP; - } - } - } -#else - /* We may have just stepped a breakpoint instruction. E.g., in - non-stop mode, GDB first tells the thread A to step a range, and - then the user inserts a breakpoint inside the range. In that - case we need to report the breakpoint PC. */ - if ((!lwp->stepping || lwp->stop_pc == sw_breakpoint_pc) - && (*the_low_target.breakpoint_at) (sw_breakpoint_pc)) - lwp->stop_reason = TARGET_STOPPED_BY_SW_BREAKPOINT; - - if (hardware_breakpoint_inserted_here (pc)) - lwp->stop_reason = TARGET_STOPPED_BY_HW_BREAKPOINT; - - if (lwp->stop_reason == TARGET_STOPPED_BY_NO_REASON) - check_stopped_by_watchpoint (lwp); -#endif - - if (lwp->stop_reason == TARGET_STOPPED_BY_SW_BREAKPOINT) - { - if (debug_threads) - { - struct thread_info *thr = get_lwp_thread (lwp); - - debug_printf ("CSBB: %s stopped by software breakpoint\n", - target_pid_to_str (ptid_of (thr))); - } - - /* Back up the PC if necessary. */ - if (pc != sw_breakpoint_pc) - { - struct regcache *regcache - = get_thread_regcache (current_thread, 1); - (*the_low_target.set_pc) (regcache, sw_breakpoint_pc); - } - - /* Update this so we record the correct stop PC below. */ - pc = sw_breakpoint_pc; - } - else if (lwp->stop_reason == TARGET_STOPPED_BY_HW_BREAKPOINT) - { - if (debug_threads) - { - struct thread_info *thr = get_lwp_thread (lwp); - - debug_printf ("CSBB: %s stopped by hardware breakpoint\n", - target_pid_to_str (ptid_of (thr))); - } - } - else if (lwp->stop_reason == TARGET_STOPPED_BY_WATCHPOINT) - { - if (debug_threads) - { - struct thread_info *thr = get_lwp_thread (lwp); - - debug_printf ("CSBB: %s stopped by hardware watchpoint\n", - target_pid_to_str (ptid_of (thr))); - } - } - else if (lwp->stop_reason == TARGET_STOPPED_BY_SINGLE_STEP) - { - if (debug_threads) - { - struct thread_info *thr = get_lwp_thread (lwp); - - debug_printf ("CSBB: %s stopped by trace\n", - target_pid_to_str (ptid_of (thr))); - } - } - - lwp->stop_pc = pc; - current_thread = saved_thread; - return 1; -} - -static struct lwp_info * -add_lwp (ptid_t ptid) -{ - struct lwp_info *lwp; - - lwp = XCNEW (struct lwp_info); - - lwp->waitstatus.kind = TARGET_WAITKIND_IGNORE; - - lwp->thread = add_thread (ptid, lwp); - - if (the_low_target.new_thread != NULL) - the_low_target.new_thread (lwp); - - return lwp; -} - -/* Callback to be used when calling fork_inferior, responsible for - actually initiating the tracing of the inferior. */ - -static void -linux_ptrace_fun () -{ - if (ptrace (PTRACE_TRACEME, 0, (PTRACE_TYPE_ARG3) 0, - (PTRACE_TYPE_ARG4) 0) < 0) - trace_start_error_with_name ("ptrace"); - - if (setpgid (0, 0) < 0) - trace_start_error_with_name ("setpgid"); - - /* If GDBserver is connected to gdb via stdio, redirect the inferior's - stdout to stderr so that inferior i/o doesn't corrupt the connection. - Also, redirect stdin to /dev/null. */ - if (remote_connection_is_stdio ()) - { - if (close (0) < 0) - trace_start_error_with_name ("close"); - if (open ("/dev/null", O_RDONLY) < 0) - trace_start_error_with_name ("open"); - if (dup2 (2, 1) < 0) - trace_start_error_with_name ("dup2"); - if (write (2, "stdin/stdout redirected\n", - sizeof ("stdin/stdout redirected\n") - 1) < 0) - { - /* Errors ignored. */; - } - } -} - -/* Start an inferior process and returns its pid. - PROGRAM is the name of the program to be started, and PROGRAM_ARGS - are its arguments. */ - -static int -linux_create_inferior (const char *program, - const std::vector &program_args) -{ - client_state &cs = get_client_state (); - struct lwp_info *new_lwp; - int pid; - ptid_t ptid; - - { - maybe_disable_address_space_randomization restore_personality - (cs.disable_randomization); - std::string str_program_args = stringify_argv (program_args); - - pid = fork_inferior (program, - str_program_args.c_str (), - get_environ ()->envp (), linux_ptrace_fun, - NULL, NULL, NULL, NULL); - } - - linux_add_process (pid, 0); - - ptid = ptid_t (pid, pid, 0); - new_lwp = add_lwp (ptid); - new_lwp->must_set_ptrace_flags = 1; - - post_fork_inferior (pid, program); - - return pid; -} - -/* Implement the post_create_inferior target_ops method. */ - -static void -linux_post_create_inferior (void) -{ - struct lwp_info *lwp = get_thread_lwp (current_thread); - - linux_arch_setup (); - - if (lwp->must_set_ptrace_flags) - { - struct process_info *proc = current_process (); - int options = linux_low_ptrace_options (proc->attached); - - linux_enable_event_reporting (lwpid_of (current_thread), options); - lwp->must_set_ptrace_flags = 0; - } -} - -/* Attach to an inferior process. Returns 0 on success, ERRNO on - error. */ - -int -linux_attach_lwp (ptid_t ptid) -{ - struct lwp_info *new_lwp; - int lwpid = ptid.lwp (); - - if (ptrace (PTRACE_ATTACH, lwpid, (PTRACE_TYPE_ARG3) 0, (PTRACE_TYPE_ARG4) 0) - != 0) - return errno; - - new_lwp = add_lwp (ptid); - - /* We need to wait for SIGSTOP before being able to make the next - ptrace call on this LWP. */ - new_lwp->must_set_ptrace_flags = 1; - - if (linux_proc_pid_is_stopped (lwpid)) - { - if (debug_threads) - debug_printf ("Attached to a stopped process\n"); - - /* The process is definitely stopped. It is in a job control - stop, unless the kernel predates the TASK_STOPPED / - TASK_TRACED distinction, in which case it might be in a - ptrace stop. Make sure it is in a ptrace stop; from there we - can kill it, signal it, et cetera. - - First make sure there is a pending SIGSTOP. Since we are - already attached, the process can not transition from stopped - to running without a PTRACE_CONT; so we know this signal will - go into the queue. The SIGSTOP generated by PTRACE_ATTACH is - probably already in the queue (unless this kernel is old - enough to use TASK_STOPPED for ptrace stops); but since - SIGSTOP is not an RT signal, it can only be queued once. */ - kill_lwp (lwpid, SIGSTOP); - - /* Finally, resume the stopped process. This will deliver the - SIGSTOP (or a higher priority signal, just like normal - PTRACE_ATTACH), which we'll catch later on. */ - ptrace (PTRACE_CONT, lwpid, (PTRACE_TYPE_ARG3) 0, (PTRACE_TYPE_ARG4) 0); - } - - /* The next time we wait for this LWP we'll see a SIGSTOP as PTRACE_ATTACH - brings it to a halt. - - There are several cases to consider here: - - 1) gdbserver has already attached to the process and is being notified - of a new thread that is being created. - In this case we should ignore that SIGSTOP and resume the - process. This is handled below by setting stop_expected = 1, - and the fact that add_thread sets last_resume_kind == - resume_continue. - - 2) This is the first thread (the process thread), and we're attaching - to it via attach_inferior. - In this case we want the process thread to stop. - This is handled by having linux_attach set last_resume_kind == - resume_stop after we return. - - If the pid we are attaching to is also the tgid, we attach to and - stop all the existing threads. Otherwise, we attach to pid and - ignore any other threads in the same group as this pid. - - 3) GDB is connecting to gdbserver and is requesting an enumeration of all - existing threads. - In this case we want the thread to stop. - FIXME: This case is currently not properly handled. - We should wait for the SIGSTOP but don't. Things work apparently - because enough time passes between when we ptrace (ATTACH) and when - gdb makes the next ptrace call on the thread. - - On the other hand, if we are currently trying to stop all threads, we - should treat the new thread as if we had sent it a SIGSTOP. This works - because we are guaranteed that the add_lwp call above added us to the - end of the list, and so the new thread has not yet reached - wait_for_sigstop (but will). */ - new_lwp->stop_expected = 1; - - return 0; -} - -/* Callback for linux_proc_attach_tgid_threads. Attach to PTID if not - already attached. Returns true if a new LWP is found, false - otherwise. */ - -static int -attach_proc_task_lwp_callback (ptid_t ptid) -{ - /* Is this a new thread? */ - if (find_thread_ptid (ptid) == NULL) - { - int lwpid = ptid.lwp (); - int err; - - if (debug_threads) - debug_printf ("Found new lwp %d\n", lwpid); - - err = linux_attach_lwp (ptid); - - /* Be quiet if we simply raced with the thread exiting. EPERM - is returned if the thread's task still exists, and is marked - as exited or zombie, as well as other conditions, so in that - case, confirm the status in /proc/PID/status. */ - if (err == ESRCH - || (err == EPERM && linux_proc_pid_is_gone (lwpid))) - { - if (debug_threads) - { - debug_printf ("Cannot attach to lwp %d: " - "thread is gone (%d: %s)\n", - lwpid, err, safe_strerror (err)); - } - } - else if (err != 0) - { - std::string reason - = linux_ptrace_attach_fail_reason_string (ptid, err); - - warning (_("Cannot attach to lwp %d: %s"), lwpid, reason.c_str ()); - } - - return 1; - } - return 0; -} - -static void async_file_mark (void); - -/* Attach to PID. If PID is the tgid, attach to it and all - of its threads. */ - -static int -linux_attach (unsigned long pid) -{ - struct process_info *proc; - struct thread_info *initial_thread; - ptid_t ptid = ptid_t (pid, pid, 0); - int err; - - proc = linux_add_process (pid, 1); - - /* Attach to PID. We will check for other threads - soon. */ - err = linux_attach_lwp (ptid); - if (err != 0) - { - remove_process (proc); - - std::string reason = linux_ptrace_attach_fail_reason_string (ptid, err); - error ("Cannot attach to process %ld: %s", pid, reason.c_str ()); - } - - /* Don't ignore the initial SIGSTOP if we just attached to this - process. It will be collected by wait shortly. */ - initial_thread = find_thread_ptid (ptid_t (pid, pid, 0)); - initial_thread->last_resume_kind = resume_stop; - - /* We must attach to every LWP. If /proc is mounted, use that to - find them now. On the one hand, the inferior may be using raw - clone instead of using pthreads. On the other hand, even if it - is using pthreads, GDB may not be connected yet (thread_db needs - to do symbol lookups, through qSymbol). Also, thread_db walks - structures in the inferior's address space to find the list of - threads/LWPs, and those structures may well be corrupted. Note - that once thread_db is loaded, we'll still use it to list threads - and associate pthread info with each LWP. */ - linux_proc_attach_tgid_threads (pid, attach_proc_task_lwp_callback); - - /* GDB will shortly read the xml target description for this - process, to figure out the process' architecture. But the target - description is only filled in when the first process/thread in - the thread group reports its initial PTRACE_ATTACH SIGSTOP. Do - that now, otherwise, if GDB is fast enough, it could read the - target description _before_ that initial stop. */ - if (non_stop) - { - struct lwp_info *lwp; - int wstat, lwpid; - ptid_t pid_ptid = ptid_t (pid); - - lwpid = linux_wait_for_event_filtered (pid_ptid, pid_ptid, - &wstat, __WALL); - gdb_assert (lwpid > 0); - - lwp = find_lwp_pid (ptid_t (lwpid)); - - if (!WIFSTOPPED (wstat) || WSTOPSIG (wstat) != SIGSTOP) - { - lwp->status_pending_p = 1; - lwp->status_pending = wstat; - } - - initial_thread->last_resume_kind = resume_continue; - - async_file_mark (); - - gdb_assert (proc->tdesc != NULL); - } - - return 0; -} - -static int -last_thread_of_process_p (int pid) -{ - bool seen_one = false; - - thread_info *thread = find_thread (pid, [&] (thread_info *thr_arg) - { - if (!seen_one) - { - /* This is the first thread of this process we see. */ - seen_one = true; - return false; - } - else - { - /* This is the second thread of this process we see. */ - return true; - } - }); - - return thread == NULL; -} - -/* Kill LWP. */ - -static void -linux_kill_one_lwp (struct lwp_info *lwp) -{ - struct thread_info *thr = get_lwp_thread (lwp); - int pid = lwpid_of (thr); - - /* PTRACE_KILL is unreliable. After stepping into a signal handler, - there is no signal context, and ptrace(PTRACE_KILL) (or - ptrace(PTRACE_CONT, SIGKILL), pretty much the same) acts like - ptrace(CONT, pid, 0,0) and just resumes the tracee. A better - alternative is to kill with SIGKILL. We only need one SIGKILL - per process, not one for each thread. But since we still support - support debugging programs using raw clone without CLONE_THREAD, - we send one for each thread. For years, we used PTRACE_KILL - only, so we're being a bit paranoid about some old kernels where - PTRACE_KILL might work better (dubious if there are any such, but - that's why it's paranoia), so we try SIGKILL first, PTRACE_KILL - second, and so we're fine everywhere. */ - - errno = 0; - kill_lwp (pid, SIGKILL); - if (debug_threads) - { - int save_errno = errno; - - debug_printf ("LKL: kill_lwp (SIGKILL) %s, 0, 0 (%s)\n", - target_pid_to_str (ptid_of (thr)), - save_errno ? safe_strerror (save_errno) : "OK"); - } - - errno = 0; - ptrace (PTRACE_KILL, pid, (PTRACE_TYPE_ARG3) 0, (PTRACE_TYPE_ARG4) 0); - if (debug_threads) - { - int save_errno = errno; - - debug_printf ("LKL: PTRACE_KILL %s, 0, 0 (%s)\n", - target_pid_to_str (ptid_of (thr)), - save_errno ? safe_strerror (save_errno) : "OK"); - } -} - -/* Kill LWP and wait for it to die. */ - -static void -kill_wait_lwp (struct lwp_info *lwp) -{ - struct thread_info *thr = get_lwp_thread (lwp); - int pid = ptid_of (thr).pid (); - int lwpid = ptid_of (thr).lwp (); - int wstat; - int res; - - if (debug_threads) - debug_printf ("kwl: killing lwp %d, for pid: %d\n", lwpid, pid); - - do - { - linux_kill_one_lwp (lwp); - - /* Make sure it died. Notes: - - - The loop is most likely unnecessary. - - - We don't use linux_wait_for_event as that could delete lwps - while we're iterating over them. We're not interested in - any pending status at this point, only in making sure all - wait status on the kernel side are collected until the - process is reaped. - - - We don't use __WALL here as the __WALL emulation relies on - SIGCHLD, and killing a stopped process doesn't generate - one, nor an exit status. - */ - res = my_waitpid (lwpid, &wstat, 0); - if (res == -1 && errno == ECHILD) - res = my_waitpid (lwpid, &wstat, __WCLONE); - } while (res > 0 && WIFSTOPPED (wstat)); - - /* Even if it was stopped, the child may have already disappeared. - E.g., if it was killed by SIGKILL. */ - if (res < 0 && errno != ECHILD) - perror_with_name ("kill_wait_lwp"); -} - -/* Callback for `for_each_thread'. Kills an lwp of a given process, - except the leader. */ - -static void -kill_one_lwp_callback (thread_info *thread, int pid) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - - /* We avoid killing the first thread here, because of a Linux kernel (at - least 2.6.0-test7 through 2.6.8-rc4) bug; if we kill the parent before - the children get a chance to be reaped, it will remain a zombie - forever. */ - - if (lwpid_of (thread) == pid) - { - if (debug_threads) - debug_printf ("lkop: is last of process %s\n", - target_pid_to_str (thread->id)); - return; - } - - kill_wait_lwp (lwp); -} - -static int -linux_kill (process_info *process) -{ - int pid = process->pid; - - /* If we're killing a running inferior, make sure it is stopped - first, as PTRACE_KILL will not work otherwise. */ - stop_all_lwps (0, NULL); - - for_each_thread (pid, [&] (thread_info *thread) - { - kill_one_lwp_callback (thread, pid); - }); - - /* See the comment in linux_kill_one_lwp. We did not kill the first - thread in the list, so do so now. */ - lwp_info *lwp = find_lwp_pid (ptid_t (pid)); - - if (lwp == NULL) - { - if (debug_threads) - debug_printf ("lk_1: cannot find lwp for pid: %d\n", - pid); - } - else - kill_wait_lwp (lwp); - - the_target->mourn (process); - - /* Since we presently can only stop all lwps of all processes, we - need to unstop lwps of other processes. */ - unstop_all_lwps (0, NULL); - return 0; -} - -/* Get pending signal of THREAD, for detaching purposes. This is the - signal the thread last stopped for, which we need to deliver to the - thread when detaching, otherwise, it'd be suppressed/lost. */ - -static int -get_detach_signal (struct thread_info *thread) -{ - client_state &cs = get_client_state (); - enum gdb_signal signo = GDB_SIGNAL_0; - int status; - struct lwp_info *lp = get_thread_lwp (thread); - - if (lp->status_pending_p) - status = lp->status_pending; - else - { - /* If the thread had been suspended by gdbserver, and it stopped - cleanly, then it'll have stopped with SIGSTOP. But we don't - want to deliver that SIGSTOP. */ - if (thread->last_status.kind != TARGET_WAITKIND_STOPPED - || thread->last_status.value.sig == GDB_SIGNAL_0) - return 0; - - /* Otherwise, we may need to deliver the signal we - intercepted. */ - status = lp->last_status; - } - - if (!WIFSTOPPED (status)) - { - if (debug_threads) - debug_printf ("GPS: lwp %s hasn't stopped: no pending signal\n", - target_pid_to_str (ptid_of (thread))); - return 0; - } - - /* Extended wait statuses aren't real SIGTRAPs. */ - if (WSTOPSIG (status) == SIGTRAP && linux_is_extended_waitstatus (status)) - { - if (debug_threads) - debug_printf ("GPS: lwp %s had stopped with extended " - "status: no pending signal\n", - target_pid_to_str (ptid_of (thread))); - return 0; - } - - signo = gdb_signal_from_host (WSTOPSIG (status)); - - if (cs.program_signals_p && !cs.program_signals[signo]) - { - if (debug_threads) - debug_printf ("GPS: lwp %s had signal %s, but it is in nopass state\n", - target_pid_to_str (ptid_of (thread)), - gdb_signal_to_string (signo)); - return 0; - } - else if (!cs.program_signals_p - /* If we have no way to know which signals GDB does not - want to have passed to the program, assume - SIGTRAP/SIGINT, which is GDB's default. */ - && (signo == GDB_SIGNAL_TRAP || signo == GDB_SIGNAL_INT)) - { - if (debug_threads) - debug_printf ("GPS: lwp %s had signal %s, " - "but we don't know if we should pass it. " - "Default to not.\n", - target_pid_to_str (ptid_of (thread)), - gdb_signal_to_string (signo)); - return 0; - } - else - { - if (debug_threads) - debug_printf ("GPS: lwp %s has pending signal %s: delivering it.\n", - target_pid_to_str (ptid_of (thread)), - gdb_signal_to_string (signo)); - - return WSTOPSIG (status); - } -} - -/* Detach from LWP. */ - -static void -linux_detach_one_lwp (struct lwp_info *lwp) -{ - struct thread_info *thread = get_lwp_thread (lwp); - int sig; - int lwpid; - - /* If there is a pending SIGSTOP, get rid of it. */ - if (lwp->stop_expected) - { - if (debug_threads) - debug_printf ("Sending SIGCONT to %s\n", - target_pid_to_str (ptid_of (thread))); - - kill_lwp (lwpid_of (thread), SIGCONT); - lwp->stop_expected = 0; - } - - /* Pass on any pending signal for this thread. */ - sig = get_detach_signal (thread); - - /* Preparing to resume may try to write registers, and fail if the - lwp is zombie. If that happens, ignore the error. We'll handle - it below, when detach fails with ESRCH. */ - try - { - /* Flush any pending changes to the process's registers. */ - regcache_invalidate_thread (thread); - - /* Finally, let it resume. */ - if (the_low_target.prepare_to_resume != NULL) - the_low_target.prepare_to_resume (lwp); - } - catch (const gdb_exception_error &ex) - { - if (!check_ptrace_stopped_lwp_gone (lwp)) - throw; - } - - lwpid = lwpid_of (thread); - if (ptrace (PTRACE_DETACH, lwpid, (PTRACE_TYPE_ARG3) 0, - (PTRACE_TYPE_ARG4) (long) sig) < 0) - { - int save_errno = errno; - - /* We know the thread exists, so ESRCH must mean the lwp is - zombie. This can happen if one of the already-detached - threads exits the whole thread group. In that case we're - still attached, and must reap the lwp. */ - if (save_errno == ESRCH) - { - int ret, status; - - ret = my_waitpid (lwpid, &status, __WALL); - if (ret == -1) - { - warning (_("Couldn't reap LWP %d while detaching: %s"), - lwpid, safe_strerror (errno)); - } - else if (!WIFEXITED (status) && !WIFSIGNALED (status)) - { - warning (_("Reaping LWP %d while detaching " - "returned unexpected status 0x%x"), - lwpid, status); - } - } - else - { - error (_("Can't detach %s: %s"), - target_pid_to_str (ptid_of (thread)), - safe_strerror (save_errno)); - } - } - else if (debug_threads) - { - debug_printf ("PTRACE_DETACH (%s, %s, 0) (OK)\n", - target_pid_to_str (ptid_of (thread)), - strsignal (sig)); - } - - delete_lwp (lwp); -} - -/* Callback for for_each_thread. Detaches from non-leader threads of a - given process. */ - -static void -linux_detach_lwp_callback (thread_info *thread) -{ - /* We don't actually detach from the thread group leader just yet. - If the thread group exits, we must reap the zombie clone lwps - before we're able to reap the leader. */ - if (thread->id.pid () == thread->id.lwp ()) - return; - - lwp_info *lwp = get_thread_lwp (thread); - linux_detach_one_lwp (lwp); -} - -static int -linux_detach (process_info *process) -{ - struct lwp_info *main_lwp; - - /* As there's a step over already in progress, let it finish first, - otherwise nesting a stabilize_threads operation on top gets real - messy. */ - complete_ongoing_step_over (); - - /* Stop all threads before detaching. First, ptrace requires that - the thread is stopped to successfully detach. Second, thread_db - may need to uninstall thread event breakpoints from memory, which - only works with a stopped process anyway. */ - stop_all_lwps (0, NULL); - -#ifdef USE_THREAD_DB - thread_db_detach (process); -#endif - - /* Stabilize threads (move out of jump pads). */ - stabilize_threads (); - - /* Detach from the clone lwps first. If the thread group exits just - while we're detaching, we must reap the clone lwps before we're - able to reap the leader. */ - for_each_thread (process->pid, linux_detach_lwp_callback); - - main_lwp = find_lwp_pid (ptid_t (process->pid)); - linux_detach_one_lwp (main_lwp); - - the_target->mourn (process); - - /* Since we presently can only stop all lwps of all processes, we - need to unstop lwps of other processes. */ - unstop_all_lwps (0, NULL); - return 0; -} - -/* Remove all LWPs that belong to process PROC from the lwp list. */ - -static void -linux_mourn (struct process_info *process) -{ - struct process_info_private *priv; - -#ifdef USE_THREAD_DB - thread_db_mourn (process); -#endif - - for_each_thread (process->pid, [] (thread_info *thread) - { - delete_lwp (get_thread_lwp (thread)); - }); - - /* Freeing all private data. */ - priv = process->priv; - if (the_low_target.delete_process != NULL) - the_low_target.delete_process (priv->arch_private); - else - gdb_assert (priv->arch_private == NULL); - free (priv); - process->priv = NULL; - - remove_process (process); -} - -static void -linux_join (int pid) -{ - int status, ret; - - do { - ret = my_waitpid (pid, &status, 0); - if (WIFEXITED (status) || WIFSIGNALED (status)) - break; - } while (ret != -1 || errno != ECHILD); -} - -/* Return nonzero if the given thread is still alive. */ -static int -linux_thread_alive (ptid_t ptid) -{ - struct lwp_info *lwp = find_lwp_pid (ptid); - - /* We assume we always know if a thread exits. If a whole process - exited but we still haven't been able to report it to GDB, we'll - hold on to the last lwp of the dead process. */ - if (lwp != NULL) - return !lwp_is_marked_dead (lwp); - else - return 0; -} - -/* Return 1 if this lwp still has an interesting status pending. If - not (e.g., it had stopped for a breakpoint that is gone), return - false. */ - -static int -thread_still_has_status_pending_p (struct thread_info *thread) -{ - struct lwp_info *lp = get_thread_lwp (thread); - - if (!lp->status_pending_p) - return 0; - - if (thread->last_resume_kind != resume_stop - && (lp->stop_reason == TARGET_STOPPED_BY_SW_BREAKPOINT - || lp->stop_reason == TARGET_STOPPED_BY_HW_BREAKPOINT)) - { - struct thread_info *saved_thread; - CORE_ADDR pc; - int discard = 0; - - gdb_assert (lp->last_status != 0); - - pc = get_pc (lp); - - saved_thread = current_thread; - current_thread = thread; - - if (pc != lp->stop_pc) - { - if (debug_threads) - debug_printf ("PC of %ld changed\n", - lwpid_of (thread)); - discard = 1; - } - -#if !USE_SIGTRAP_SIGINFO - else if (lp->stop_reason == TARGET_STOPPED_BY_SW_BREAKPOINT - && !(*the_low_target.breakpoint_at) (pc)) - { - if (debug_threads) - debug_printf ("previous SW breakpoint of %ld gone\n", - lwpid_of (thread)); - discard = 1; - } - else if (lp->stop_reason == TARGET_STOPPED_BY_HW_BREAKPOINT - && !hardware_breakpoint_inserted_here (pc)) - { - if (debug_threads) - debug_printf ("previous HW breakpoint of %ld gone\n", - lwpid_of (thread)); - discard = 1; - } -#endif - - current_thread = saved_thread; - - if (discard) - { - if (debug_threads) - debug_printf ("discarding pending breakpoint status\n"); - lp->status_pending_p = 0; - return 0; - } - } - - return 1; -} - -/* Returns true if LWP is resumed from the client's perspective. */ - -static int -lwp_resumed (struct lwp_info *lwp) -{ - struct thread_info *thread = get_lwp_thread (lwp); - - if (thread->last_resume_kind != resume_stop) - return 1; - - /* Did gdb send us a `vCont;t', but we haven't reported the - corresponding stop to gdb yet? If so, the thread is still - resumed/running from gdb's perspective. */ - if (thread->last_resume_kind == resume_stop - && thread->last_status.kind == TARGET_WAITKIND_IGNORE) - return 1; - - return 0; -} - -/* Return true if this lwp has an interesting status pending. */ -static bool -status_pending_p_callback (thread_info *thread, ptid_t ptid) -{ - struct lwp_info *lp = get_thread_lwp (thread); - - /* Check if we're only interested in events from a specific process - or a specific LWP. */ - if (!thread->id.matches (ptid)) - return 0; - - if (!lwp_resumed (lp)) - return 0; - - if (lp->status_pending_p - && !thread_still_has_status_pending_p (thread)) - { - linux_resume_one_lwp (lp, lp->stepping, GDB_SIGNAL_0, NULL); - return 0; - } - - return lp->status_pending_p; -} - -struct lwp_info * -find_lwp_pid (ptid_t ptid) -{ - thread_info *thread = find_thread ([&] (thread_info *thr_arg) - { - int lwp = ptid.lwp () != 0 ? ptid.lwp () : ptid.pid (); - return thr_arg->id.lwp () == lwp; - }); - - if (thread == NULL) - return NULL; - - return get_thread_lwp (thread); -} - -/* Return the number of known LWPs in the tgid given by PID. */ - -static int -num_lwps (int pid) -{ - int count = 0; - - for_each_thread (pid, [&] (thread_info *thread) - { - count++; - }); - - return count; -} - -/* See nat/linux-nat.h. */ - -struct lwp_info * -iterate_over_lwps (ptid_t filter, - gdb::function_view callback) -{ - thread_info *thread = find_thread (filter, [&] (thread_info *thr_arg) - { - lwp_info *lwp = get_thread_lwp (thr_arg); - - return callback (lwp); - }); - - if (thread == NULL) - return NULL; - - return get_thread_lwp (thread); -} - -/* Detect zombie thread group leaders, and "exit" them. We can't reap - their exits until all other threads in the group have exited. */ - -static void -check_zombie_leaders (void) -{ - for_each_process ([] (process_info *proc) { - pid_t leader_pid = pid_of (proc); - struct lwp_info *leader_lp; - - leader_lp = find_lwp_pid (ptid_t (leader_pid)); - - if (debug_threads) - debug_printf ("leader_pid=%d, leader_lp!=NULL=%d, " - "num_lwps=%d, zombie=%d\n", - leader_pid, leader_lp!= NULL, num_lwps (leader_pid), - linux_proc_pid_is_zombie (leader_pid)); - - if (leader_lp != NULL && !leader_lp->stopped - /* Check if there are other threads in the group, as we may - have raced with the inferior simply exiting. */ - && !last_thread_of_process_p (leader_pid) - && linux_proc_pid_is_zombie (leader_pid)) - { - /* A leader zombie can mean one of two things: - - - It exited, and there's an exit status pending - available, or only the leader exited (not the whole - program). In the latter case, we can't waitpid the - leader's exit status until all other threads are gone. - - - There are 3 or more threads in the group, and a thread - other than the leader exec'd. On an exec, the Linux - kernel destroys all other threads (except the execing - one) in the thread group, and resets the execing thread's - tid to the tgid. No exit notification is sent for the - execing thread -- from the ptracer's perspective, it - appears as though the execing thread just vanishes. - Until we reap all other threads except the leader and the - execing thread, the leader will be zombie, and the - execing thread will be in `D (disc sleep)'. As soon as - all other threads are reaped, the execing thread changes - it's tid to the tgid, and the previous (zombie) leader - vanishes, giving place to the "new" leader. We could try - distinguishing the exit and exec cases, by waiting once - more, and seeing if something comes out, but it doesn't - sound useful. The previous leader _does_ go away, and - we'll re-add the new one once we see the exec event - (which is just the same as what would happen if the - previous leader did exit voluntarily before some other - thread execs). */ - - if (debug_threads) - debug_printf ("CZL: Thread group leader %d zombie " - "(it exited, or another thread execd).\n", - leader_pid); - - delete_lwp (leader_lp); - } - }); -} - -/* Callback for `find_thread'. Returns the first LWP that is not - stopped. */ - -static bool -not_stopped_callback (thread_info *thread, ptid_t filter) -{ - if (!thread->id.matches (filter)) - return false; - - lwp_info *lwp = get_thread_lwp (thread); - - return !lwp->stopped; -} - -/* Increment LWP's suspend count. */ - -static void -lwp_suspended_inc (struct lwp_info *lwp) -{ - lwp->suspended++; - - if (debug_threads && lwp->suspended > 4) - { - struct thread_info *thread = get_lwp_thread (lwp); - - debug_printf ("LWP %ld has a suspiciously high suspend count," - " suspended=%d\n", lwpid_of (thread), lwp->suspended); - } -} - -/* Decrement LWP's suspend count. */ - -static void -lwp_suspended_decr (struct lwp_info *lwp) -{ - lwp->suspended--; - - if (lwp->suspended < 0) - { - struct thread_info *thread = get_lwp_thread (lwp); - - internal_error (__FILE__, __LINE__, - "unsuspend LWP %ld, suspended=%d\n", lwpid_of (thread), - lwp->suspended); - } -} - -/* This function should only be called if the LWP got a SIGTRAP. - - Handle any tracepoint steps or hits. Return true if a tracepoint - event was handled, 0 otherwise. */ - -static int -handle_tracepoints (struct lwp_info *lwp) -{ - struct thread_info *tinfo = get_lwp_thread (lwp); - int tpoint_related_event = 0; - - gdb_assert (lwp->suspended == 0); - - /* If this tracepoint hit causes a tracing stop, we'll immediately - uninsert tracepoints. To do this, we temporarily pause all - threads, unpatch away, and then unpause threads. We need to make - sure the unpausing doesn't resume LWP too. */ - lwp_suspended_inc (lwp); - - /* And we need to be sure that any all-threads-stopping doesn't try - to move threads out of the jump pads, as it could deadlock the - inferior (LWP could be in the jump pad, maybe even holding the - lock.) */ - - /* Do any necessary step collect actions. */ - tpoint_related_event |= tracepoint_finished_step (tinfo, lwp->stop_pc); - - tpoint_related_event |= handle_tracepoint_bkpts (tinfo, lwp->stop_pc); - - /* See if we just hit a tracepoint and do its main collect - actions. */ - tpoint_related_event |= tracepoint_was_hit (tinfo, lwp->stop_pc); - - lwp_suspended_decr (lwp); - - gdb_assert (lwp->suspended == 0); - gdb_assert (!stabilizing_threads - || (lwp->collecting_fast_tracepoint - != fast_tpoint_collect_result::not_collecting)); - - if (tpoint_related_event) - { - if (debug_threads) - debug_printf ("got a tracepoint event\n"); - return 1; - } - - return 0; -} - -/* Convenience wrapper. Returns information about LWP's fast tracepoint - collection status. */ - -static fast_tpoint_collect_result -linux_fast_tracepoint_collecting (struct lwp_info *lwp, - struct fast_tpoint_collect_status *status) -{ - CORE_ADDR thread_area; - struct thread_info *thread = get_lwp_thread (lwp); - - if (the_low_target.get_thread_area == NULL) - return fast_tpoint_collect_result::not_collecting; - - /* Get the thread area address. This is used to recognize which - thread is which when tracing with the in-process agent library. - We don't read anything from the address, and treat it as opaque; - it's the address itself that we assume is unique per-thread. */ - if ((*the_low_target.get_thread_area) (lwpid_of (thread), &thread_area) == -1) - return fast_tpoint_collect_result::not_collecting; - - return fast_tracepoint_collecting (thread_area, lwp->stop_pc, status); -} - -/* The reason we resume in the caller, is because we want to be able - to pass lwp->status_pending as WSTAT, and we need to clear - status_pending_p before resuming, otherwise, linux_resume_one_lwp - refuses to resume. */ - -static int -maybe_move_out_of_jump_pad (struct lwp_info *lwp, int *wstat) -{ - struct thread_info *saved_thread; - - saved_thread = current_thread; - current_thread = get_lwp_thread (lwp); - - if ((wstat == NULL - || (WIFSTOPPED (*wstat) && WSTOPSIG (*wstat) != SIGTRAP)) - && supports_fast_tracepoints () - && agent_loaded_p ()) - { - struct fast_tpoint_collect_status status; - - if (debug_threads) - debug_printf ("Checking whether LWP %ld needs to move out of the " - "jump pad.\n", - lwpid_of (current_thread)); - - fast_tpoint_collect_result r - = linux_fast_tracepoint_collecting (lwp, &status); - - if (wstat == NULL - || (WSTOPSIG (*wstat) != SIGILL - && WSTOPSIG (*wstat) != SIGFPE - && WSTOPSIG (*wstat) != SIGSEGV - && WSTOPSIG (*wstat) != SIGBUS)) - { - lwp->collecting_fast_tracepoint = r; - - if (r != fast_tpoint_collect_result::not_collecting) - { - if (r == fast_tpoint_collect_result::before_insn - && lwp->exit_jump_pad_bkpt == NULL) - { - /* Haven't executed the original instruction yet. - Set breakpoint there, and wait till it's hit, - then single-step until exiting the jump pad. */ - lwp->exit_jump_pad_bkpt - = set_breakpoint_at (status.adjusted_insn_addr, NULL); - } - - if (debug_threads) - debug_printf ("Checking whether LWP %ld needs to move out of " - "the jump pad...it does\n", - lwpid_of (current_thread)); - current_thread = saved_thread; - - return 1; - } - } - else - { - /* If we get a synchronous signal while collecting, *and* - while executing the (relocated) original instruction, - reset the PC to point at the tpoint address, before - reporting to GDB. Otherwise, it's an IPA lib bug: just - report the signal to GDB, and pray for the best. */ - - lwp->collecting_fast_tracepoint - = fast_tpoint_collect_result::not_collecting; - - if (r != fast_tpoint_collect_result::not_collecting - && (status.adjusted_insn_addr <= lwp->stop_pc - && lwp->stop_pc < status.adjusted_insn_addr_end)) - { - siginfo_t info; - struct regcache *regcache; - - /* The si_addr on a few signals references the address - of the faulting instruction. Adjust that as - well. */ - if ((WSTOPSIG (*wstat) == SIGILL - || WSTOPSIG (*wstat) == SIGFPE - || WSTOPSIG (*wstat) == SIGBUS - || WSTOPSIG (*wstat) == SIGSEGV) - && ptrace (PTRACE_GETSIGINFO, lwpid_of (current_thread), - (PTRACE_TYPE_ARG3) 0, &info) == 0 - /* Final check just to make sure we don't clobber - the siginfo of non-kernel-sent signals. */ - && (uintptr_t) info.si_addr == lwp->stop_pc) - { - info.si_addr = (void *) (uintptr_t) status.tpoint_addr; - ptrace (PTRACE_SETSIGINFO, lwpid_of (current_thread), - (PTRACE_TYPE_ARG3) 0, &info); - } - - regcache = get_thread_regcache (current_thread, 1); - (*the_low_target.set_pc) (regcache, status.tpoint_addr); - lwp->stop_pc = status.tpoint_addr; - - /* Cancel any fast tracepoint lock this thread was - holding. */ - force_unlock_trace_buffer (); - } - - if (lwp->exit_jump_pad_bkpt != NULL) - { - if (debug_threads) - debug_printf ("Cancelling fast exit-jump-pad: removing bkpt. " - "stopping all threads momentarily.\n"); - - stop_all_lwps (1, lwp); - - delete_breakpoint (lwp->exit_jump_pad_bkpt); - lwp->exit_jump_pad_bkpt = NULL; - - unstop_all_lwps (1, lwp); - - gdb_assert (lwp->suspended >= 0); - } - } - } - - if (debug_threads) - debug_printf ("Checking whether LWP %ld needs to move out of the " - "jump pad...no\n", - lwpid_of (current_thread)); - - current_thread = saved_thread; - return 0; -} - -/* Enqueue one signal in the "signals to report later when out of the - jump pad" list. */ - -static void -enqueue_one_deferred_signal (struct lwp_info *lwp, int *wstat) -{ - struct pending_signals *p_sig; - struct thread_info *thread = get_lwp_thread (lwp); - - if (debug_threads) - debug_printf ("Deferring signal %d for LWP %ld.\n", - WSTOPSIG (*wstat), lwpid_of (thread)); - - if (debug_threads) - { - struct pending_signals *sig; - - for (sig = lwp->pending_signals_to_report; - sig != NULL; - sig = sig->prev) - debug_printf (" Already queued %d\n", - sig->signal); - - debug_printf (" (no more currently queued signals)\n"); - } - - /* Don't enqueue non-RT signals if they are already in the deferred - queue. (SIGSTOP being the easiest signal to see ending up here - twice) */ - if (WSTOPSIG (*wstat) < __SIGRTMIN) - { - struct pending_signals *sig; - - for (sig = lwp->pending_signals_to_report; - sig != NULL; - sig = sig->prev) - { - if (sig->signal == WSTOPSIG (*wstat)) - { - if (debug_threads) - debug_printf ("Not requeuing already queued non-RT signal %d" - " for LWP %ld\n", - sig->signal, - lwpid_of (thread)); - return; - } - } - } - - p_sig = XCNEW (struct pending_signals); - p_sig->prev = lwp->pending_signals_to_report; - p_sig->signal = WSTOPSIG (*wstat); - - ptrace (PTRACE_GETSIGINFO, lwpid_of (thread), (PTRACE_TYPE_ARG3) 0, - &p_sig->info); - - lwp->pending_signals_to_report = p_sig; -} - -/* Dequeue one signal from the "signals to report later when out of - the jump pad" list. */ - -static int -dequeue_one_deferred_signal (struct lwp_info *lwp, int *wstat) -{ - struct thread_info *thread = get_lwp_thread (lwp); - - if (lwp->pending_signals_to_report != NULL) - { - struct pending_signals **p_sig; - - p_sig = &lwp->pending_signals_to_report; - while ((*p_sig)->prev != NULL) - p_sig = &(*p_sig)->prev; - - *wstat = W_STOPCODE ((*p_sig)->signal); - if ((*p_sig)->info.si_signo != 0) - ptrace (PTRACE_SETSIGINFO, lwpid_of (thread), (PTRACE_TYPE_ARG3) 0, - &(*p_sig)->info); - free (*p_sig); - *p_sig = NULL; - - if (debug_threads) - debug_printf ("Reporting deferred signal %d for LWP %ld.\n", - WSTOPSIG (*wstat), lwpid_of (thread)); - - if (debug_threads) - { - struct pending_signals *sig; - - for (sig = lwp->pending_signals_to_report; - sig != NULL; - sig = sig->prev) - debug_printf (" Still queued %d\n", - sig->signal); - - debug_printf (" (no more queued signals)\n"); - } - - return 1; - } - - return 0; -} - -/* Fetch the possibly triggered data watchpoint info and store it in - CHILD. - - On some archs, like x86, that use debug registers to set - watchpoints, it's possible that the way to know which watched - address trapped, is to check the register that is used to select - which address to watch. Problem is, between setting the watchpoint - and reading back which data address trapped, the user may change - the set of watchpoints, and, as a consequence, GDB changes the - debug registers in the inferior. To avoid reading back a stale - stopped-data-address when that happens, we cache in LP the fact - that a watchpoint trapped, and the corresponding data address, as - soon as we see CHILD stop with a SIGTRAP. If GDB changes the debug - registers meanwhile, we have the cached data we can rely on. */ - -static int -check_stopped_by_watchpoint (struct lwp_info *child) -{ - if (the_low_target.stopped_by_watchpoint != NULL) - { - struct thread_info *saved_thread; - - saved_thread = current_thread; - current_thread = get_lwp_thread (child); - - if (the_low_target.stopped_by_watchpoint ()) - { - child->stop_reason = TARGET_STOPPED_BY_WATCHPOINT; - - if (the_low_target.stopped_data_address != NULL) - child->stopped_data_address - = the_low_target.stopped_data_address (); - else - child->stopped_data_address = 0; - } - - current_thread = saved_thread; - } - - return child->stop_reason == TARGET_STOPPED_BY_WATCHPOINT; -} - -/* Return the ptrace options that we want to try to enable. */ - -static int -linux_low_ptrace_options (int attached) -{ - client_state &cs = get_client_state (); - int options = 0; - - if (!attached) - options |= PTRACE_O_EXITKILL; - - if (cs.report_fork_events) - options |= PTRACE_O_TRACEFORK; - - if (cs.report_vfork_events) - options |= (PTRACE_O_TRACEVFORK | PTRACE_O_TRACEVFORKDONE); - - if (cs.report_exec_events) - options |= PTRACE_O_TRACEEXEC; - - options |= PTRACE_O_TRACESYSGOOD; - - return options; -} - -/* Do low-level handling of the event, and check if we should go on - and pass it to caller code. Return the affected lwp if we are, or - NULL otherwise. */ - -static struct lwp_info * -linux_low_filter_event (int lwpid, int wstat) -{ - client_state &cs = get_client_state (); - struct lwp_info *child; - struct thread_info *thread; - int have_stop_pc = 0; - - child = find_lwp_pid (ptid_t (lwpid)); - - /* Check for stop events reported by a process we didn't already - know about - anything not already in our LWP list. - - If we're expecting to receive stopped processes after - fork, vfork, and clone events, then we'll just add the - new one to our list and go back to waiting for the event - to be reported - the stopped process might be returned - from waitpid before or after the event is. - - But note the case of a non-leader thread exec'ing after the - leader having exited, and gone from our lists (because - check_zombie_leaders deleted it). The non-leader thread - changes its tid to the tgid. */ - - if (WIFSTOPPED (wstat) && child == NULL && WSTOPSIG (wstat) == SIGTRAP - && linux_ptrace_get_extended_event (wstat) == PTRACE_EVENT_EXEC) - { - ptid_t child_ptid; - - /* A multi-thread exec after we had seen the leader exiting. */ - if (debug_threads) - { - debug_printf ("LLW: Re-adding thread group leader LWP %d" - "after exec.\n", lwpid); - } - - child_ptid = ptid_t (lwpid, lwpid, 0); - child = add_lwp (child_ptid); - child->stopped = 1; - current_thread = child->thread; - } - - /* If we didn't find a process, one of two things presumably happened: - - A process we started and then detached from has exited. Ignore it. - - A process we are controlling has forked and the new child's stop - was reported to us by the kernel. Save its PID. */ - if (child == NULL && WIFSTOPPED (wstat)) - { - add_to_pid_list (&stopped_pids, lwpid, wstat); - return NULL; - } - else if (child == NULL) - return NULL; - - thread = get_lwp_thread (child); - - child->stopped = 1; - - child->last_status = wstat; - - /* Check if the thread has exited. */ - if ((WIFEXITED (wstat) || WIFSIGNALED (wstat))) - { - if (debug_threads) - debug_printf ("LLFE: %d exited.\n", lwpid); - - if (finish_step_over (child)) - { - /* Unsuspend all other LWPs, and set them back running again. */ - unsuspend_all_lwps (child); - } - - /* If there is at least one more LWP, then the exit signal was - not the end of the debugged application and should be - ignored, unless GDB wants to hear about thread exits. */ - if (cs.report_thread_events - || last_thread_of_process_p (pid_of (thread))) - { - /* Since events are serialized to GDB core, and we can't - report this one right now. Leave the status pending for - the next time we're able to report it. */ - mark_lwp_dead (child, wstat); - return child; - } - else - { - delete_lwp (child); - return NULL; - } - } - - gdb_assert (WIFSTOPPED (wstat)); - - if (WIFSTOPPED (wstat)) - { - struct process_info *proc; - - /* Architecture-specific setup after inferior is running. */ - proc = find_process_pid (pid_of (thread)); - if (proc->tdesc == NULL) - { - if (proc->attached) - { - /* This needs to happen after we have attached to the - inferior and it is stopped for the first time, but - before we access any inferior registers. */ - linux_arch_setup_thread (thread); - } - else - { - /* The process is started, but GDBserver will do - architecture-specific setup after the program stops at - the first instruction. */ - child->status_pending_p = 1; - child->status_pending = wstat; - return child; - } - } - } - - if (WIFSTOPPED (wstat) && child->must_set_ptrace_flags) - { - struct process_info *proc = find_process_pid (pid_of (thread)); - int options = linux_low_ptrace_options (proc->attached); - - linux_enable_event_reporting (lwpid, options); - child->must_set_ptrace_flags = 0; - } - - /* Always update syscall_state, even if it will be filtered later. */ - if (WIFSTOPPED (wstat) && WSTOPSIG (wstat) == SYSCALL_SIGTRAP) - { - child->syscall_state - = (child->syscall_state == TARGET_WAITKIND_SYSCALL_ENTRY - ? TARGET_WAITKIND_SYSCALL_RETURN - : TARGET_WAITKIND_SYSCALL_ENTRY); - } - else - { - /* Almost all other ptrace-stops are known to be outside of system - calls, with further exceptions in handle_extended_wait. */ - child->syscall_state = TARGET_WAITKIND_IGNORE; - } - - /* Be careful to not overwrite stop_pc until save_stop_reason is - called. */ - if (WIFSTOPPED (wstat) && WSTOPSIG (wstat) == SIGTRAP - && linux_is_extended_waitstatus (wstat)) - { - child->stop_pc = get_pc (child); - if (handle_extended_wait (&child, wstat)) - { - /* The event has been handled, so just return without - reporting it. */ - return NULL; - } - } - - if (linux_wstatus_maybe_breakpoint (wstat)) - { - if (save_stop_reason (child)) - have_stop_pc = 1; - } - - if (!have_stop_pc) - child->stop_pc = get_pc (child); - - if (WIFSTOPPED (wstat) && WSTOPSIG (wstat) == SIGSTOP - && child->stop_expected) - { - if (debug_threads) - debug_printf ("Expected stop.\n"); - child->stop_expected = 0; - - if (thread->last_resume_kind == resume_stop) - { - /* We want to report the stop to the core. Treat the - SIGSTOP as a normal event. */ - if (debug_threads) - debug_printf ("LLW: resume_stop SIGSTOP caught for %s.\n", - target_pid_to_str (ptid_of (thread))); - } - else if (stopping_threads != NOT_STOPPING_THREADS) - { - /* Stopping threads. We don't want this SIGSTOP to end up - pending. */ - if (debug_threads) - debug_printf ("LLW: SIGSTOP caught for %s " - "while stopping threads.\n", - target_pid_to_str (ptid_of (thread))); - return NULL; - } - else - { - /* This is a delayed SIGSTOP. Filter out the event. */ - if (debug_threads) - debug_printf ("LLW: %s %s, 0, 0 (discard delayed SIGSTOP)\n", - child->stepping ? "step" : "continue", - target_pid_to_str (ptid_of (thread))); - - linux_resume_one_lwp (child, child->stepping, 0, NULL); - return NULL; - } - } - - child->status_pending_p = 1; - child->status_pending = wstat; - return child; -} - -/* Return true if THREAD is doing hardware single step. */ - -static int -maybe_hw_step (struct thread_info *thread) -{ - if (can_hardware_single_step ()) - return 1; - else - { - /* GDBserver must insert single-step breakpoint for software - single step. */ - gdb_assert (has_single_step_breakpoints (thread)); - return 0; - } -} - -/* Resume LWPs that are currently stopped without any pending status - to report, but are resumed from the core's perspective. */ - -static void -resume_stopped_resumed_lwps (thread_info *thread) -{ - struct lwp_info *lp = get_thread_lwp (thread); - - if (lp->stopped - && !lp->suspended - && !lp->status_pending_p - && thread->last_status.kind == TARGET_WAITKIND_IGNORE) - { - int step = 0; - - if (thread->last_resume_kind == resume_step) - step = maybe_hw_step (thread); - - if (debug_threads) - debug_printf ("RSRL: resuming stopped-resumed LWP %s at %s: step=%d\n", - target_pid_to_str (ptid_of (thread)), - paddress (lp->stop_pc), - step); - - linux_resume_one_lwp (lp, step, GDB_SIGNAL_0, NULL); - } -} - -/* Wait for an event from child(ren) WAIT_PTID, and return any that - match FILTER_PTID (leaving others pending). The PTIDs can be: - minus_one_ptid, to specify any child; a pid PTID, specifying all - lwps of a thread group; or a PTID representing a single lwp. Store - the stop status through the status pointer WSTAT. OPTIONS is - passed to the waitpid call. Return 0 if no event was found and - OPTIONS contains WNOHANG. Return -1 if no unwaited-for children - was found. Return the PID of the stopped child otherwise. */ - -static int -linux_wait_for_event_filtered (ptid_t wait_ptid, ptid_t filter_ptid, - int *wstatp, int options) -{ - struct thread_info *event_thread; - struct lwp_info *event_child, *requested_child; - sigset_t block_mask, prev_mask; - - retry: - /* N.B. event_thread points to the thread_info struct that contains - event_child. Keep them in sync. */ - event_thread = NULL; - event_child = NULL; - requested_child = NULL; - - /* Check for a lwp with a pending status. */ - - if (filter_ptid == minus_one_ptid || filter_ptid.is_pid ()) - { - event_thread = find_thread_in_random ([&] (thread_info *thread) - { - return status_pending_p_callback (thread, filter_ptid); - }); - - if (event_thread != NULL) - event_child = get_thread_lwp (event_thread); - if (debug_threads && event_thread) - debug_printf ("Got a pending child %ld\n", lwpid_of (event_thread)); - } - else if (filter_ptid != null_ptid) - { - requested_child = find_lwp_pid (filter_ptid); - - if (stopping_threads == NOT_STOPPING_THREADS - && requested_child->status_pending_p - && (requested_child->collecting_fast_tracepoint - != fast_tpoint_collect_result::not_collecting)) - { - enqueue_one_deferred_signal (requested_child, - &requested_child->status_pending); - requested_child->status_pending_p = 0; - requested_child->status_pending = 0; - linux_resume_one_lwp (requested_child, 0, 0, NULL); - } - - if (requested_child->suspended - && requested_child->status_pending_p) - { - internal_error (__FILE__, __LINE__, - "requesting an event out of a" - " suspended child?"); - } - - if (requested_child->status_pending_p) - { - event_child = requested_child; - event_thread = get_lwp_thread (event_child); - } - } - - if (event_child != NULL) - { - if (debug_threads) - debug_printf ("Got an event from pending child %ld (%04x)\n", - lwpid_of (event_thread), event_child->status_pending); - *wstatp = event_child->status_pending; - event_child->status_pending_p = 0; - event_child->status_pending = 0; - current_thread = event_thread; - return lwpid_of (event_thread); - } - - /* But if we don't find a pending event, we'll have to wait. - - We only enter this loop if no process has a pending wait status. - Thus any action taken in response to a wait status inside this - loop is responding as soon as we detect the status, not after any - pending events. */ - - /* Make sure SIGCHLD is blocked until the sigsuspend below. Block - all signals while here. */ - sigfillset (&block_mask); - gdb_sigmask (SIG_BLOCK, &block_mask, &prev_mask); - - /* Always pull all events out of the kernel. We'll randomly select - an event LWP out of all that have events, to prevent - starvation. */ - while (event_child == NULL) - { - pid_t ret = 0; - - /* Always use -1 and WNOHANG, due to couple of a kernel/ptrace - quirks: - - - If the thread group leader exits while other threads in the - thread group still exist, waitpid(TGID, ...) hangs. That - waitpid won't return an exit status until the other threads - in the group are reaped. - - - When a non-leader thread execs, that thread just vanishes - without reporting an exit (so we'd hang if we waited for it - explicitly in that case). The exec event is reported to - the TGID pid. */ - errno = 0; - ret = my_waitpid (-1, wstatp, options | WNOHANG); - - if (debug_threads) - debug_printf ("LWFE: waitpid(-1, ...) returned %d, %s\n", - ret, errno ? safe_strerror (errno) : "ERRNO-OK"); - - if (ret > 0) - { - if (debug_threads) - { - debug_printf ("LLW: waitpid %ld received %s\n", - (long) ret, status_to_str (*wstatp)); - } - - /* Filter all events. IOW, leave all events pending. We'll - randomly select an event LWP out of all that have events - below. */ - linux_low_filter_event (ret, *wstatp); - /* Retry until nothing comes out of waitpid. A single - SIGCHLD can indicate more than one child stopped. */ - continue; - } - - /* Now that we've pulled all events out of the kernel, resume - LWPs that don't have an interesting event to report. */ - if (stopping_threads == NOT_STOPPING_THREADS) - for_each_thread (resume_stopped_resumed_lwps); - - /* ... and find an LWP with a status to report to the core, if - any. */ - event_thread = find_thread_in_random ([&] (thread_info *thread) - { - return status_pending_p_callback (thread, filter_ptid); - }); - - if (event_thread != NULL) - { - event_child = get_thread_lwp (event_thread); - *wstatp = event_child->status_pending; - event_child->status_pending_p = 0; - event_child->status_pending = 0; - break; - } - - /* Check for zombie thread group leaders. Those can't be reaped - until all other threads in the thread group are. */ - check_zombie_leaders (); - - auto not_stopped = [&] (thread_info *thread) - { - return not_stopped_callback (thread, wait_ptid); - }; - - /* If there are no resumed children left in the set of LWPs we - want to wait for, bail. We can't just block in - waitpid/sigsuspend, because lwps might have been left stopped - in trace-stop state, and we'd be stuck forever waiting for - their status to change (which would only happen if we resumed - them). Even if WNOHANG is set, this return code is preferred - over 0 (below), as it is more detailed. */ - if (find_thread (not_stopped) == NULL) - { - if (debug_threads) - debug_printf ("LLW: exit (no unwaited-for LWP)\n"); - gdb_sigmask (SIG_SETMASK, &prev_mask, NULL); - return -1; - } - - /* No interesting event to report to the caller. */ - if ((options & WNOHANG)) - { - if (debug_threads) - debug_printf ("WNOHANG set, no event found\n"); - - gdb_sigmask (SIG_SETMASK, &prev_mask, NULL); - return 0; - } - - /* Block until we get an event reported with SIGCHLD. */ - if (debug_threads) - debug_printf ("sigsuspend'ing\n"); - - sigsuspend (&prev_mask); - gdb_sigmask (SIG_SETMASK, &prev_mask, NULL); - goto retry; - } - - gdb_sigmask (SIG_SETMASK, &prev_mask, NULL); - - current_thread = event_thread; - - return lwpid_of (event_thread); -} - -/* Wait for an event from child(ren) PTID. PTIDs can be: - minus_one_ptid, to specify any child; a pid PTID, specifying all - lwps of a thread group; or a PTID representing a single lwp. Store - the stop status through the status pointer WSTAT. OPTIONS is - passed to the waitpid call. Return 0 if no event was found and - OPTIONS contains WNOHANG. Return -1 if no unwaited-for children - was found. Return the PID of the stopped child otherwise. */ - -static int -linux_wait_for_event (ptid_t ptid, int *wstatp, int options) -{ - return linux_wait_for_event_filtered (ptid, ptid, wstatp, options); -} - -/* Select one LWP out of those that have events pending. */ - -static void -select_event_lwp (struct lwp_info **orig_lp) -{ - struct thread_info *event_thread = NULL; - - /* In all-stop, give preference to the LWP that is being - single-stepped. There will be at most one, and it's the LWP that - the core is most interested in. If we didn't do this, then we'd - have to handle pending step SIGTRAPs somehow in case the core - later continues the previously-stepped thread, otherwise we'd - report the pending SIGTRAP, and the core, not having stepped the - thread, wouldn't understand what the trap was for, and therefore - would report it to the user as a random signal. */ - if (!non_stop) - { - event_thread = find_thread ([] (thread_info *thread) - { - lwp_info *lp = get_thread_lwp (thread); - - return (thread->last_status.kind == TARGET_WAITKIND_IGNORE - && thread->last_resume_kind == resume_step - && lp->status_pending_p); - }); - - if (event_thread != NULL) - { - if (debug_threads) - debug_printf ("SEL: Select single-step %s\n", - target_pid_to_str (ptid_of (event_thread))); - } - } - if (event_thread == NULL) - { - /* No single-stepping LWP. Select one at random, out of those - which have had events. */ - - event_thread = find_thread_in_random ([&] (thread_info *thread) - { - lwp_info *lp = get_thread_lwp (thread); - - /* Only resumed LWPs that have an event pending. */ - return (thread->last_status.kind == TARGET_WAITKIND_IGNORE - && lp->status_pending_p); - }); - } - - if (event_thread != NULL) - { - struct lwp_info *event_lp = get_thread_lwp (event_thread); - - /* Switch the event LWP. */ - *orig_lp = event_lp; - } -} - -/* Decrement the suspend count of all LWPs, except EXCEPT, if non - NULL. */ - -static void -unsuspend_all_lwps (struct lwp_info *except) -{ - for_each_thread ([&] (thread_info *thread) - { - lwp_info *lwp = get_thread_lwp (thread); - - if (lwp != except) - lwp_suspended_decr (lwp); - }); -} - -static void move_out_of_jump_pad_callback (thread_info *thread); -static bool stuck_in_jump_pad_callback (thread_info *thread); -static bool lwp_running (thread_info *thread); -static ptid_t linux_wait_1 (ptid_t ptid, - struct target_waitstatus *ourstatus, - int target_options); - -/* Stabilize threads (move out of jump pads). - - If a thread is midway collecting a fast tracepoint, we need to - finish the collection and move it out of the jump pad before - reporting the signal. - - This avoids recursion while collecting (when a signal arrives - midway, and the signal handler itself collects), which would trash - the trace buffer. In case the user set a breakpoint in a signal - handler, this avoids the backtrace showing the jump pad, etc.. - Most importantly, there are certain things we can't do safely if - threads are stopped in a jump pad (or in its callee's). For - example: - - - starting a new trace run. A thread still collecting the - previous run, could trash the trace buffer when resumed. The trace - buffer control structures would have been reset but the thread had - no way to tell. The thread could even midway memcpy'ing to the - buffer, which would mean that when resumed, it would clobber the - trace buffer that had been set for a new run. - - - we can't rewrite/reuse the jump pads for new tracepoints - safely. Say you do tstart while a thread is stopped midway while - collecting. When the thread is later resumed, it finishes the - collection, and returns to the jump pad, to execute the original - instruction that was under the tracepoint jump at the time the - older run had been started. If the jump pad had been rewritten - since for something else in the new run, the thread would now - execute the wrong / random instructions. */ - -static void -linux_stabilize_threads (void) -{ - thread_info *thread_stuck = find_thread (stuck_in_jump_pad_callback); - - if (thread_stuck != NULL) - { - if (debug_threads) - debug_printf ("can't stabilize, LWP %ld is stuck in jump pad\n", - lwpid_of (thread_stuck)); - return; - } - - thread_info *saved_thread = current_thread; - - stabilizing_threads = 1; - - /* Kick 'em all. */ - for_each_thread (move_out_of_jump_pad_callback); - - /* Loop until all are stopped out of the jump pads. */ - while (find_thread (lwp_running) != NULL) - { - struct target_waitstatus ourstatus; - struct lwp_info *lwp; - int wstat; - - /* Note that we go through the full wait even loop. While - moving threads out of jump pad, we need to be able to step - over internal breakpoints and such. */ - linux_wait_1 (minus_one_ptid, &ourstatus, 0); - - if (ourstatus.kind == TARGET_WAITKIND_STOPPED) - { - lwp = get_thread_lwp (current_thread); - - /* Lock it. */ - lwp_suspended_inc (lwp); - - if (ourstatus.value.sig != GDB_SIGNAL_0 - || current_thread->last_resume_kind == resume_stop) - { - wstat = W_STOPCODE (gdb_signal_to_host (ourstatus.value.sig)); - enqueue_one_deferred_signal (lwp, &wstat); - } - } - } - - unsuspend_all_lwps (NULL); - - stabilizing_threads = 0; - - current_thread = saved_thread; - - if (debug_threads) - { - thread_stuck = find_thread (stuck_in_jump_pad_callback); - - if (thread_stuck != NULL) - debug_printf ("couldn't stabilize, LWP %ld got stuck in jump pad\n", - lwpid_of (thread_stuck)); - } -} - -/* Convenience function that is called when the kernel reports an - event that is not passed out to GDB. */ - -static ptid_t -ignore_event (struct target_waitstatus *ourstatus) -{ - /* If we got an event, there may still be others, as a single - SIGCHLD can indicate more than one child stopped. This forces - another target_wait call. */ - async_file_mark (); - - ourstatus->kind = TARGET_WAITKIND_IGNORE; - return null_ptid; -} - -/* Convenience function that is called when the kernel reports an exit - event. This decides whether to report the event to GDB as a - process exit event, a thread exit event, or to suppress the - event. */ - -static ptid_t -filter_exit_event (struct lwp_info *event_child, - struct target_waitstatus *ourstatus) -{ - client_state &cs = get_client_state (); - struct thread_info *thread = get_lwp_thread (event_child); - ptid_t ptid = ptid_of (thread); - - if (!last_thread_of_process_p (pid_of (thread))) - { - if (cs.report_thread_events) - ourstatus->kind = TARGET_WAITKIND_THREAD_EXITED; - else - ourstatus->kind = TARGET_WAITKIND_IGNORE; - - delete_lwp (event_child); - } - return ptid; -} - -/* Returns 1 if GDB is interested in any event_child syscalls. */ - -static int -gdb_catching_syscalls_p (struct lwp_info *event_child) -{ - struct thread_info *thread = get_lwp_thread (event_child); - struct process_info *proc = get_thread_process (thread); - - return !proc->syscalls_to_catch.empty (); -} - -/* Returns 1 if GDB is interested in the event_child syscall. - Only to be called when stopped reason is SYSCALL_SIGTRAP. */ - -static int -gdb_catch_this_syscall_p (struct lwp_info *event_child) -{ - int sysno; - struct thread_info *thread = get_lwp_thread (event_child); - struct process_info *proc = get_thread_process (thread); - - if (proc->syscalls_to_catch.empty ()) - return 0; - - if (proc->syscalls_to_catch[0] == ANY_SYSCALL) - return 1; - - get_syscall_trapinfo (event_child, &sysno); - - for (int iter : proc->syscalls_to_catch) - if (iter == sysno) - return 1; - - return 0; -} - -/* Wait for process, returns status. */ - -static ptid_t -linux_wait_1 (ptid_t ptid, - struct target_waitstatus *ourstatus, int target_options) -{ - client_state &cs = get_client_state (); - int w; - struct lwp_info *event_child; - int options; - int pid; - int step_over_finished; - int bp_explains_trap; - int maybe_internal_trap; - int report_to_gdb; - int trace_event; - int in_step_range; - int any_resumed; - - if (debug_threads) - { - debug_enter (); - debug_printf ("linux_wait_1: [%s]\n", target_pid_to_str (ptid)); - } - - /* Translate generic target options into linux options. */ - options = __WALL; - if (target_options & TARGET_WNOHANG) - options |= WNOHANG; - - bp_explains_trap = 0; - trace_event = 0; - in_step_range = 0; - ourstatus->kind = TARGET_WAITKIND_IGNORE; - - auto status_pending_p_any = [&] (thread_info *thread) - { - return status_pending_p_callback (thread, minus_one_ptid); - }; - - auto not_stopped = [&] (thread_info *thread) - { - return not_stopped_callback (thread, minus_one_ptid); - }; - - /* Find a resumed LWP, if any. */ - if (find_thread (status_pending_p_any) != NULL) - any_resumed = 1; - else if (find_thread (not_stopped) != NULL) - any_resumed = 1; - else - any_resumed = 0; - - if (step_over_bkpt == null_ptid) - pid = linux_wait_for_event (ptid, &w, options); - else - { - if (debug_threads) - debug_printf ("step_over_bkpt set [%s], doing a blocking wait\n", - target_pid_to_str (step_over_bkpt)); - pid = linux_wait_for_event (step_over_bkpt, &w, options & ~WNOHANG); - } - - if (pid == 0 || (pid == -1 && !any_resumed)) - { - gdb_assert (target_options & TARGET_WNOHANG); - - if (debug_threads) - { - debug_printf ("linux_wait_1 ret = null_ptid, " - "TARGET_WAITKIND_IGNORE\n"); - debug_exit (); - } - - ourstatus->kind = TARGET_WAITKIND_IGNORE; - return null_ptid; - } - else if (pid == -1) - { - if (debug_threads) - { - debug_printf ("linux_wait_1 ret = null_ptid, " - "TARGET_WAITKIND_NO_RESUMED\n"); - debug_exit (); - } - - ourstatus->kind = TARGET_WAITKIND_NO_RESUMED; - return null_ptid; - } - - event_child = get_thread_lwp (current_thread); - - /* linux_wait_for_event only returns an exit status for the last - child of a process. Report it. */ - if (WIFEXITED (w) || WIFSIGNALED (w)) - { - if (WIFEXITED (w)) - { - ourstatus->kind = TARGET_WAITKIND_EXITED; - ourstatus->value.integer = WEXITSTATUS (w); - - if (debug_threads) - { - debug_printf ("linux_wait_1 ret = %s, exited with " - "retcode %d\n", - target_pid_to_str (ptid_of (current_thread)), - WEXITSTATUS (w)); - debug_exit (); - } - } - else - { - ourstatus->kind = TARGET_WAITKIND_SIGNALLED; - ourstatus->value.sig = gdb_signal_from_host (WTERMSIG (w)); - - if (debug_threads) - { - debug_printf ("linux_wait_1 ret = %s, terminated with " - "signal %d\n", - target_pid_to_str (ptid_of (current_thread)), - WTERMSIG (w)); - debug_exit (); - } - } - - if (ourstatus->kind == TARGET_WAITKIND_EXITED) - return filter_exit_event (event_child, ourstatus); - - return ptid_of (current_thread); - } - - /* If step-over executes a breakpoint instruction, in the case of a - hardware single step it means a gdb/gdbserver breakpoint had been - planted on top of a permanent breakpoint, in the case of a software - single step it may just mean that gdbserver hit the reinsert breakpoint. - The PC has been adjusted by save_stop_reason to point at - the breakpoint address. - So in the case of the hardware single step advance the PC manually - past the breakpoint and in the case of software single step advance only - if it's not the single_step_breakpoint we are hitting. - This avoids that a program would keep trapping a permanent breakpoint - forever. */ - if (step_over_bkpt != null_ptid - && event_child->stop_reason == TARGET_STOPPED_BY_SW_BREAKPOINT - && (event_child->stepping - || !single_step_breakpoint_inserted_here (event_child->stop_pc))) - { - int increment_pc = 0; - int breakpoint_kind = 0; - CORE_ADDR stop_pc = event_child->stop_pc; - - breakpoint_kind = - the_target->breakpoint_kind_from_current_state (&stop_pc); - the_target->sw_breakpoint_from_kind (breakpoint_kind, &increment_pc); - - if (debug_threads) - { - debug_printf ("step-over for %s executed software breakpoint\n", - target_pid_to_str (ptid_of (current_thread))); - } - - if (increment_pc != 0) - { - struct regcache *regcache - = get_thread_regcache (current_thread, 1); - - event_child->stop_pc += increment_pc; - (*the_low_target.set_pc) (regcache, event_child->stop_pc); - - if (!(*the_low_target.breakpoint_at) (event_child->stop_pc)) - event_child->stop_reason = TARGET_STOPPED_BY_NO_REASON; - } - } - - /* If this event was not handled before, and is not a SIGTRAP, we - report it. SIGILL and SIGSEGV are also treated as traps in case - a breakpoint is inserted at the current PC. If this target does - not support internal breakpoints at all, we also report the - SIGTRAP without further processing; it's of no concern to us. */ - maybe_internal_trap - = (supports_breakpoints () - && (WSTOPSIG (w) == SIGTRAP - || ((WSTOPSIG (w) == SIGILL - || WSTOPSIG (w) == SIGSEGV) - && (*the_low_target.breakpoint_at) (event_child->stop_pc)))); - - if (maybe_internal_trap) - { - /* Handle anything that requires bookkeeping before deciding to - report the event or continue waiting. */ - - /* First check if we can explain the SIGTRAP with an internal - breakpoint, or if we should possibly report the event to GDB. - Do this before anything that may remove or insert a - breakpoint. */ - bp_explains_trap = breakpoint_inserted_here (event_child->stop_pc); - - /* We have a SIGTRAP, possibly a step-over dance has just - finished. If so, tweak the state machine accordingly, - reinsert breakpoints and delete any single-step - breakpoints. */ - step_over_finished = finish_step_over (event_child); - - /* Now invoke the callbacks of any internal breakpoints there. */ - check_breakpoints (event_child->stop_pc); - - /* Handle tracepoint data collecting. This may overflow the - trace buffer, and cause a tracing stop, removing - breakpoints. */ - trace_event = handle_tracepoints (event_child); - - if (bp_explains_trap) - { - if (debug_threads) - debug_printf ("Hit a gdbserver breakpoint.\n"); - } - } - else - { - /* We have some other signal, possibly a step-over dance was in - progress, and it should be cancelled too. */ - step_over_finished = finish_step_over (event_child); - } - - /* We have all the data we need. Either report the event to GDB, or - resume threads and keep waiting for more. */ - - /* If we're collecting a fast tracepoint, finish the collection and - move out of the jump pad before delivering a signal. See - linux_stabilize_threads. */ - - if (WIFSTOPPED (w) - && WSTOPSIG (w) != SIGTRAP - && supports_fast_tracepoints () - && agent_loaded_p ()) - { - if (debug_threads) - debug_printf ("Got signal %d for LWP %ld. Check if we need " - "to defer or adjust it.\n", - WSTOPSIG (w), lwpid_of (current_thread)); - - /* Allow debugging the jump pad itself. */ - if (current_thread->last_resume_kind != resume_step - && maybe_move_out_of_jump_pad (event_child, &w)) - { - enqueue_one_deferred_signal (event_child, &w); - - if (debug_threads) - debug_printf ("Signal %d for LWP %ld deferred (in jump pad)\n", - WSTOPSIG (w), lwpid_of (current_thread)); - - linux_resume_one_lwp (event_child, 0, 0, NULL); - - if (debug_threads) - debug_exit (); - return ignore_event (ourstatus); - } - } - - if (event_child->collecting_fast_tracepoint - != fast_tpoint_collect_result::not_collecting) - { - if (debug_threads) - debug_printf ("LWP %ld was trying to move out of the jump pad (%d). " - "Check if we're already there.\n", - lwpid_of (current_thread), - (int) event_child->collecting_fast_tracepoint); - - trace_event = 1; - - event_child->collecting_fast_tracepoint - = linux_fast_tracepoint_collecting (event_child, NULL); - - if (event_child->collecting_fast_tracepoint - != fast_tpoint_collect_result::before_insn) - { - /* No longer need this breakpoint. */ - if (event_child->exit_jump_pad_bkpt != NULL) - { - if (debug_threads) - debug_printf ("No longer need exit-jump-pad bkpt; removing it." - "stopping all threads momentarily.\n"); - - /* Other running threads could hit this breakpoint. - We don't handle moribund locations like GDB does, - instead we always pause all threads when removing - breakpoints, so that any step-over or - decr_pc_after_break adjustment is always taken - care of while the breakpoint is still - inserted. */ - stop_all_lwps (1, event_child); - - delete_breakpoint (event_child->exit_jump_pad_bkpt); - event_child->exit_jump_pad_bkpt = NULL; - - unstop_all_lwps (1, event_child); - - gdb_assert (event_child->suspended >= 0); - } - } - - if (event_child->collecting_fast_tracepoint - == fast_tpoint_collect_result::not_collecting) - { - if (debug_threads) - debug_printf ("fast tracepoint finished " - "collecting successfully.\n"); - - /* We may have a deferred signal to report. */ - if (dequeue_one_deferred_signal (event_child, &w)) - { - if (debug_threads) - debug_printf ("dequeued one signal.\n"); - } - else - { - if (debug_threads) - debug_printf ("no deferred signals.\n"); - - if (stabilizing_threads) - { - ourstatus->kind = TARGET_WAITKIND_STOPPED; - ourstatus->value.sig = GDB_SIGNAL_0; - - if (debug_threads) - { - debug_printf ("linux_wait_1 ret = %s, stopped " - "while stabilizing threads\n", - target_pid_to_str (ptid_of (current_thread))); - debug_exit (); - } - - return ptid_of (current_thread); - } - } - } - } - - /* Check whether GDB would be interested in this event. */ - - /* Check if GDB is interested in this syscall. */ - if (WIFSTOPPED (w) - && WSTOPSIG (w) == SYSCALL_SIGTRAP - && !gdb_catch_this_syscall_p (event_child)) - { - if (debug_threads) - { - debug_printf ("Ignored syscall for LWP %ld.\n", - lwpid_of (current_thread)); - } - - linux_resume_one_lwp (event_child, event_child->stepping, - 0, NULL); - - if (debug_threads) - debug_exit (); - return ignore_event (ourstatus); - } - - /* If GDB is not interested in this signal, don't stop other - threads, and don't report it to GDB. Just resume the inferior - right away. We do this for threading-related signals as well as - any that GDB specifically requested we ignore. But never ignore - SIGSTOP if we sent it ourselves, and do not ignore signals when - stepping - they may require special handling to skip the signal - handler. Also never ignore signals that could be caused by a - breakpoint. */ - if (WIFSTOPPED (w) - && current_thread->last_resume_kind != resume_step - && ( -#if defined (USE_THREAD_DB) && !defined (__ANDROID__) - (current_process ()->priv->thread_db != NULL - && (WSTOPSIG (w) == __SIGRTMIN - || WSTOPSIG (w) == __SIGRTMIN + 1)) - || -#endif - (cs.pass_signals[gdb_signal_from_host (WSTOPSIG (w))] - && !(WSTOPSIG (w) == SIGSTOP - && current_thread->last_resume_kind == resume_stop) - && !linux_wstatus_maybe_breakpoint (w)))) - { - siginfo_t info, *info_p; - - if (debug_threads) - debug_printf ("Ignored signal %d for LWP %ld.\n", - WSTOPSIG (w), lwpid_of (current_thread)); - - if (ptrace (PTRACE_GETSIGINFO, lwpid_of (current_thread), - (PTRACE_TYPE_ARG3) 0, &info) == 0) - info_p = &info; - else - info_p = NULL; - - if (step_over_finished) - { - /* We cancelled this thread's step-over above. We still - need to unsuspend all other LWPs, and set them back - running again while the signal handler runs. */ - unsuspend_all_lwps (event_child); - - /* Enqueue the pending signal info so that proceed_all_lwps - doesn't lose it. */ - enqueue_pending_signal (event_child, WSTOPSIG (w), info_p); - - proceed_all_lwps (); - } - else - { - linux_resume_one_lwp (event_child, event_child->stepping, - WSTOPSIG (w), info_p); - } - - if (debug_threads) - debug_exit (); - - return ignore_event (ourstatus); - } - - /* Note that all addresses are always "out of the step range" when - there's no range to begin with. */ - in_step_range = lwp_in_step_range (event_child); - - /* If GDB wanted this thread to single step, and the thread is out - of the step range, we always want to report the SIGTRAP, and let - GDB handle it. Watchpoints should always be reported. So should - signals we can't explain. A SIGTRAP we can't explain could be a - GDB breakpoint --- we may or not support Z0 breakpoints. If we - do, we're be able to handle GDB breakpoints on top of internal - breakpoints, by handling the internal breakpoint and still - reporting the event to GDB. If we don't, we're out of luck, GDB - won't see the breakpoint hit. If we see a single-step event but - the thread should be continuing, don't pass the trap to gdb. - That indicates that we had previously finished a single-step but - left the single-step pending -- see - complete_ongoing_step_over. */ - report_to_gdb = (!maybe_internal_trap - || (current_thread->last_resume_kind == resume_step - && !in_step_range) - || event_child->stop_reason == TARGET_STOPPED_BY_WATCHPOINT - || (!in_step_range - && !bp_explains_trap - && !trace_event - && !step_over_finished - && !(current_thread->last_resume_kind == resume_continue - && event_child->stop_reason == TARGET_STOPPED_BY_SINGLE_STEP)) - || (gdb_breakpoint_here (event_child->stop_pc) - && gdb_condition_true_at_breakpoint (event_child->stop_pc) - && gdb_no_commands_at_breakpoint (event_child->stop_pc)) - || event_child->waitstatus.kind != TARGET_WAITKIND_IGNORE); - - run_breakpoint_commands (event_child->stop_pc); - - /* We found no reason GDB would want us to stop. We either hit one - of our own breakpoints, or finished an internal step GDB - shouldn't know about. */ - if (!report_to_gdb) - { - if (debug_threads) - { - if (bp_explains_trap) - debug_printf ("Hit a gdbserver breakpoint.\n"); - if (step_over_finished) - debug_printf ("Step-over finished.\n"); - if (trace_event) - debug_printf ("Tracepoint event.\n"); - if (lwp_in_step_range (event_child)) - debug_printf ("Range stepping pc 0x%s [0x%s, 0x%s).\n", - paddress (event_child->stop_pc), - paddress (event_child->step_range_start), - paddress (event_child->step_range_end)); - } - - /* We're not reporting this breakpoint to GDB, so apply the - decr_pc_after_break adjustment to the inferior's regcache - ourselves. */ - - if (the_low_target.set_pc != NULL) - { - struct regcache *regcache - = get_thread_regcache (current_thread, 1); - (*the_low_target.set_pc) (regcache, event_child->stop_pc); - } - - if (step_over_finished) - { - /* If we have finished stepping over a breakpoint, we've - stopped and suspended all LWPs momentarily except the - stepping one. This is where we resume them all again. - We're going to keep waiting, so use proceed, which - handles stepping over the next breakpoint. */ - unsuspend_all_lwps (event_child); - } - else - { - /* Remove the single-step breakpoints if any. Note that - there isn't single-step breakpoint if we finished stepping - over. */ - if (can_software_single_step () - && has_single_step_breakpoints (current_thread)) - { - stop_all_lwps (0, event_child); - delete_single_step_breakpoints (current_thread); - unstop_all_lwps (0, event_child); - } - } - - if (debug_threads) - debug_printf ("proceeding all threads.\n"); - proceed_all_lwps (); - - if (debug_threads) - debug_exit (); - - return ignore_event (ourstatus); - } - - if (debug_threads) - { - if (event_child->waitstatus.kind != TARGET_WAITKIND_IGNORE) - { - std::string str - = target_waitstatus_to_string (&event_child->waitstatus); - - debug_printf ("LWP %ld: extended event with waitstatus %s\n", - lwpid_of (get_lwp_thread (event_child)), str.c_str ()); - } - if (current_thread->last_resume_kind == resume_step) - { - if (event_child->step_range_start == event_child->step_range_end) - debug_printf ("GDB wanted to single-step, reporting event.\n"); - else if (!lwp_in_step_range (event_child)) - debug_printf ("Out of step range, reporting event.\n"); - } - if (event_child->stop_reason == TARGET_STOPPED_BY_WATCHPOINT) - debug_printf ("Stopped by watchpoint.\n"); - else if (gdb_breakpoint_here (event_child->stop_pc)) - debug_printf ("Stopped by GDB breakpoint.\n"); - if (debug_threads) - debug_printf ("Hit a non-gdbserver trap event.\n"); - } - - /* Alright, we're going to report a stop. */ - - /* Remove single-step breakpoints. */ - if (can_software_single_step ()) - { - /* Remove single-step breakpoints or not. It it is true, stop all - lwps, so that other threads won't hit the breakpoint in the - staled memory. */ - int remove_single_step_breakpoints_p = 0; - - if (non_stop) - { - remove_single_step_breakpoints_p - = has_single_step_breakpoints (current_thread); - } - else - { - /* In all-stop, a stop reply cancels all previous resume - requests. Delete all single-step breakpoints. */ - - find_thread ([&] (thread_info *thread) { - if (has_single_step_breakpoints (thread)) - { - remove_single_step_breakpoints_p = 1; - return true; - } - - return false; - }); - } - - if (remove_single_step_breakpoints_p) - { - /* If we remove single-step breakpoints from memory, stop all lwps, - so that other threads won't hit the breakpoint in the staled - memory. */ - stop_all_lwps (0, event_child); - - if (non_stop) - { - gdb_assert (has_single_step_breakpoints (current_thread)); - delete_single_step_breakpoints (current_thread); - } - else - { - for_each_thread ([] (thread_info *thread){ - if (has_single_step_breakpoints (thread)) - delete_single_step_breakpoints (thread); - }); - } - - unstop_all_lwps (0, event_child); - } - } - - if (!stabilizing_threads) - { - /* In all-stop, stop all threads. */ - if (!non_stop) - stop_all_lwps (0, NULL); - - if (step_over_finished) - { - if (!non_stop) - { - /* If we were doing a step-over, all other threads but - the stepping one had been paused in start_step_over, - with their suspend counts incremented. We don't want - to do a full unstop/unpause, because we're in - all-stop mode (so we want threads stopped), but we - still need to unsuspend the other threads, to - decrement their `suspended' count back. */ - unsuspend_all_lwps (event_child); - } - else - { - /* If we just finished a step-over, then all threads had - been momentarily paused. In all-stop, that's fine, - we want threads stopped by now anyway. In non-stop, - we need to re-resume threads that GDB wanted to be - running. */ - unstop_all_lwps (1, event_child); - } - } - - /* If we're not waiting for a specific LWP, choose an event LWP - from among those that have had events. Giving equal priority - to all LWPs that have had events helps prevent - starvation. */ - if (ptid == minus_one_ptid) - { - event_child->status_pending_p = 1; - event_child->status_pending = w; - - select_event_lwp (&event_child); - - /* current_thread and event_child must stay in sync. */ - current_thread = get_lwp_thread (event_child); - - event_child->status_pending_p = 0; - w = event_child->status_pending; - } - - - /* Stabilize threads (move out of jump pads). */ - if (!non_stop) - stabilize_threads (); - } - else - { - /* If we just finished a step-over, then all threads had been - momentarily paused. In all-stop, that's fine, we want - threads stopped by now anyway. In non-stop, we need to - re-resume threads that GDB wanted to be running. */ - if (step_over_finished) - unstop_all_lwps (1, event_child); - } - - if (event_child->waitstatus.kind != TARGET_WAITKIND_IGNORE) - { - /* If the reported event is an exit, fork, vfork or exec, let - GDB know. */ - - /* Break the unreported fork relationship chain. */ - if (event_child->waitstatus.kind == TARGET_WAITKIND_FORKED - || event_child->waitstatus.kind == TARGET_WAITKIND_VFORKED) - { - event_child->fork_relative->fork_relative = NULL; - event_child->fork_relative = NULL; - } - - *ourstatus = event_child->waitstatus; - /* Clear the event lwp's waitstatus since we handled it already. */ - event_child->waitstatus.kind = TARGET_WAITKIND_IGNORE; - } - else - ourstatus->kind = TARGET_WAITKIND_STOPPED; - - /* Now that we've selected our final event LWP, un-adjust its PC if - it was a software breakpoint, and the client doesn't know we can - adjust the breakpoint ourselves. */ - if (event_child->stop_reason == TARGET_STOPPED_BY_SW_BREAKPOINT - && !cs.swbreak_feature) - { - int decr_pc = the_low_target.decr_pc_after_break; - - if (decr_pc != 0) - { - struct regcache *regcache - = get_thread_regcache (current_thread, 1); - (*the_low_target.set_pc) (regcache, event_child->stop_pc + decr_pc); - } - } - - if (WSTOPSIG (w) == SYSCALL_SIGTRAP) - { - get_syscall_trapinfo (event_child, - &ourstatus->value.syscall_number); - ourstatus->kind = event_child->syscall_state; - } - else if (current_thread->last_resume_kind == resume_stop - && WSTOPSIG (w) == SIGSTOP) - { - /* A thread that has been requested to stop by GDB with vCont;t, - and it stopped cleanly, so report as SIG0. The use of - SIGSTOP is an implementation detail. */ - ourstatus->value.sig = GDB_SIGNAL_0; - } - else if (current_thread->last_resume_kind == resume_stop - && WSTOPSIG (w) != SIGSTOP) - { - /* A thread that has been requested to stop by GDB with vCont;t, - but, it stopped for other reasons. */ - ourstatus->value.sig = gdb_signal_from_host (WSTOPSIG (w)); - } - else if (ourstatus->kind == TARGET_WAITKIND_STOPPED) - { - ourstatus->value.sig = gdb_signal_from_host (WSTOPSIG (w)); - } - - gdb_assert (step_over_bkpt == null_ptid); - - if (debug_threads) - { - debug_printf ("linux_wait_1 ret = %s, %d, %d\n", - target_pid_to_str (ptid_of (current_thread)), - ourstatus->kind, ourstatus->value.sig); - debug_exit (); - } - - if (ourstatus->kind == TARGET_WAITKIND_EXITED) - return filter_exit_event (event_child, ourstatus); - - return ptid_of (current_thread); -} - -/* Get rid of any pending event in the pipe. */ -static void -async_file_flush (void) -{ - int ret; - char buf; - - do - ret = read (linux_event_pipe[0], &buf, 1); - while (ret >= 0 || (ret == -1 && errno == EINTR)); -} - -/* Put something in the pipe, so the event loop wakes up. */ -static void -async_file_mark (void) -{ - int ret; - - async_file_flush (); - - do - ret = write (linux_event_pipe[1], "+", 1); - while (ret == 0 || (ret == -1 && errno == EINTR)); - - /* Ignore EAGAIN. If the pipe is full, the event loop will already - be awakened anyway. */ -} - -static ptid_t -linux_wait (ptid_t ptid, - struct target_waitstatus *ourstatus, int target_options) -{ - ptid_t event_ptid; - - /* Flush the async file first. */ - if (target_is_async_p ()) - async_file_flush (); - - do - { - event_ptid = linux_wait_1 (ptid, ourstatus, target_options); - } - while ((target_options & TARGET_WNOHANG) == 0 - && event_ptid == null_ptid - && ourstatus->kind == TARGET_WAITKIND_IGNORE); - - /* If at least one stop was reported, there may be more. A single - SIGCHLD can signal more than one child stop. */ - if (target_is_async_p () - && (target_options & TARGET_WNOHANG) != 0 - && event_ptid != null_ptid) - async_file_mark (); - - return event_ptid; -} - -/* Send a signal to an LWP. */ - -static int -kill_lwp (unsigned long lwpid, int signo) -{ - int ret; - - errno = 0; - ret = syscall (__NR_tkill, lwpid, signo); - if (errno == ENOSYS) - { - /* If tkill fails, then we are not using nptl threads, a - configuration we no longer support. */ - perror_with_name (("tkill")); - } - return ret; -} - -void -linux_stop_lwp (struct lwp_info *lwp) -{ - send_sigstop (lwp); -} - -static void -send_sigstop (struct lwp_info *lwp) -{ - int pid; - - pid = lwpid_of (get_lwp_thread (lwp)); - - /* If we already have a pending stop signal for this process, don't - send another. */ - if (lwp->stop_expected) - { - if (debug_threads) - debug_printf ("Have pending sigstop for lwp %d\n", pid); - - return; - } - - if (debug_threads) - debug_printf ("Sending sigstop to lwp %d\n", pid); - - lwp->stop_expected = 1; - kill_lwp (pid, SIGSTOP); -} - -static void -send_sigstop (thread_info *thread, lwp_info *except) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - - /* Ignore EXCEPT. */ - if (lwp == except) - return; - - if (lwp->stopped) - return; - - send_sigstop (lwp); -} - -/* Increment the suspend count of an LWP, and stop it, if not stopped - yet. */ -static void -suspend_and_send_sigstop (thread_info *thread, lwp_info *except) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - - /* Ignore EXCEPT. */ - if (lwp == except) - return; - - lwp_suspended_inc (lwp); - - send_sigstop (thread, except); -} - -static void -mark_lwp_dead (struct lwp_info *lwp, int wstat) -{ - /* Store the exit status for later. */ - lwp->status_pending_p = 1; - lwp->status_pending = wstat; - - /* Store in waitstatus as well, as there's nothing else to process - for this event. */ - if (WIFEXITED (wstat)) - { - lwp->waitstatus.kind = TARGET_WAITKIND_EXITED; - lwp->waitstatus.value.integer = WEXITSTATUS (wstat); - } - else if (WIFSIGNALED (wstat)) - { - lwp->waitstatus.kind = TARGET_WAITKIND_SIGNALLED; - lwp->waitstatus.value.sig = gdb_signal_from_host (WTERMSIG (wstat)); - } - - /* Prevent trying to stop it. */ - lwp->stopped = 1; - - /* No further stops are expected from a dead lwp. */ - lwp->stop_expected = 0; -} - -/* Return true if LWP has exited already, and has a pending exit event - to report to GDB. */ - -static int -lwp_is_marked_dead (struct lwp_info *lwp) -{ - return (lwp->status_pending_p - && (WIFEXITED (lwp->status_pending) - || WIFSIGNALED (lwp->status_pending))); -} - -/* Wait for all children to stop for the SIGSTOPs we just queued. */ - -static void -wait_for_sigstop (void) -{ - struct thread_info *saved_thread; - ptid_t saved_tid; - int wstat; - int ret; - - saved_thread = current_thread; - if (saved_thread != NULL) - saved_tid = saved_thread->id; - else - saved_tid = null_ptid; /* avoid bogus unused warning */ - - if (debug_threads) - debug_printf ("wait_for_sigstop: pulling events\n"); - - /* Passing NULL_PTID as filter indicates we want all events to be - left pending. Eventually this returns when there are no - unwaited-for children left. */ - ret = linux_wait_for_event_filtered (minus_one_ptid, null_ptid, - &wstat, __WALL); - gdb_assert (ret == -1); - - if (saved_thread == NULL || linux_thread_alive (saved_tid)) - current_thread = saved_thread; - else - { - if (debug_threads) - debug_printf ("Previously current thread died.\n"); - - /* We can't change the current inferior behind GDB's back, - otherwise, a subsequent command may apply to the wrong - process. */ - current_thread = NULL; - } -} - -/* Returns true if THREAD is stopped in a jump pad, and we can't - move it out, because we need to report the stop event to GDB. For - example, if the user puts a breakpoint in the jump pad, it's - because she wants to debug it. */ - -static bool -stuck_in_jump_pad_callback (thread_info *thread) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - - if (lwp->suspended != 0) - { - internal_error (__FILE__, __LINE__, - "LWP %ld is suspended, suspended=%d\n", - lwpid_of (thread), lwp->suspended); - } - gdb_assert (lwp->stopped); - - /* Allow debugging the jump pad, gdb_collect, etc.. */ - return (supports_fast_tracepoints () - && agent_loaded_p () - && (gdb_breakpoint_here (lwp->stop_pc) - || lwp->stop_reason == TARGET_STOPPED_BY_WATCHPOINT - || thread->last_resume_kind == resume_step) - && (linux_fast_tracepoint_collecting (lwp, NULL) - != fast_tpoint_collect_result::not_collecting)); -} - -static void -move_out_of_jump_pad_callback (thread_info *thread) -{ - struct thread_info *saved_thread; - struct lwp_info *lwp = get_thread_lwp (thread); - int *wstat; - - if (lwp->suspended != 0) - { - internal_error (__FILE__, __LINE__, - "LWP %ld is suspended, suspended=%d\n", - lwpid_of (thread), lwp->suspended); - } - gdb_assert (lwp->stopped); - - /* For gdb_breakpoint_here. */ - saved_thread = current_thread; - current_thread = thread; - - wstat = lwp->status_pending_p ? &lwp->status_pending : NULL; - - /* Allow debugging the jump pad, gdb_collect, etc. */ - if (!gdb_breakpoint_here (lwp->stop_pc) - && lwp->stop_reason != TARGET_STOPPED_BY_WATCHPOINT - && thread->last_resume_kind != resume_step - && maybe_move_out_of_jump_pad (lwp, wstat)) - { - if (debug_threads) - debug_printf ("LWP %ld needs stabilizing (in jump pad)\n", - lwpid_of (thread)); - - if (wstat) - { - lwp->status_pending_p = 0; - enqueue_one_deferred_signal (lwp, wstat); - - if (debug_threads) - debug_printf ("Signal %d for LWP %ld deferred " - "(in jump pad)\n", - WSTOPSIG (*wstat), lwpid_of (thread)); - } - - linux_resume_one_lwp (lwp, 0, 0, NULL); - } - else - lwp_suspended_inc (lwp); - - current_thread = saved_thread; -} - -static bool -lwp_running (thread_info *thread) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - - if (lwp_is_marked_dead (lwp)) - return false; - - return !lwp->stopped; -} - -/* Stop all lwps that aren't stopped yet, except EXCEPT, if not NULL. - If SUSPEND, then also increase the suspend count of every LWP, - except EXCEPT. */ - -static void -stop_all_lwps (int suspend, struct lwp_info *except) -{ - /* Should not be called recursively. */ - gdb_assert (stopping_threads == NOT_STOPPING_THREADS); - - if (debug_threads) - { - debug_enter (); - debug_printf ("stop_all_lwps (%s, except=%s)\n", - suspend ? "stop-and-suspend" : "stop", - except != NULL - ? target_pid_to_str (ptid_of (get_lwp_thread (except))) - : "none"); - } - - stopping_threads = (suspend - ? STOPPING_AND_SUSPENDING_THREADS - : STOPPING_THREADS); - - if (suspend) - for_each_thread ([&] (thread_info *thread) - { - suspend_and_send_sigstop (thread, except); - }); - else - for_each_thread ([&] (thread_info *thread) - { - send_sigstop (thread, except); - }); - - wait_for_sigstop (); - stopping_threads = NOT_STOPPING_THREADS; - - if (debug_threads) - { - debug_printf ("stop_all_lwps done, setting stopping_threads " - "back to !stopping\n"); - debug_exit (); - } -} - -/* Enqueue one signal in the chain of signals which need to be - delivered to this process on next resume. */ - -static void -enqueue_pending_signal (struct lwp_info *lwp, int signal, siginfo_t *info) -{ - struct pending_signals *p_sig = XNEW (struct pending_signals); - - p_sig->prev = lwp->pending_signals; - p_sig->signal = signal; - if (info == NULL) - memset (&p_sig->info, 0, sizeof (siginfo_t)); - else - memcpy (&p_sig->info, info, sizeof (siginfo_t)); - lwp->pending_signals = p_sig; -} - -/* Install breakpoints for software single stepping. */ - -static void -install_software_single_step_breakpoints (struct lwp_info *lwp) -{ - struct thread_info *thread = get_lwp_thread (lwp); - struct regcache *regcache = get_thread_regcache (thread, 1); - - scoped_restore save_current_thread = make_scoped_restore (¤t_thread); - - current_thread = thread; - std::vector next_pcs = the_low_target.get_next_pcs (regcache); - - for (CORE_ADDR pc : next_pcs) - set_single_step_breakpoint (pc, current_ptid); -} - -/* Single step via hardware or software single step. - Return 1 if hardware single stepping, 0 if software single stepping - or can't single step. */ - -static int -single_step (struct lwp_info* lwp) -{ - int step = 0; - - if (can_hardware_single_step ()) - { - step = 1; - } - else if (can_software_single_step ()) - { - install_software_single_step_breakpoints (lwp); - step = 0; - } - else - { - if (debug_threads) - debug_printf ("stepping is not implemented on this target"); - } - - return step; -} - -/* The signal can be delivered to the inferior if we are not trying to - finish a fast tracepoint collect. Since signal can be delivered in - the step-over, the program may go to signal handler and trap again - after return from the signal handler. We can live with the spurious - double traps. */ - -static int -lwp_signal_can_be_delivered (struct lwp_info *lwp) -{ - return (lwp->collecting_fast_tracepoint - == fast_tpoint_collect_result::not_collecting); -} - -/* Resume execution of LWP. If STEP is nonzero, single-step it. If - SIGNAL is nonzero, give it that signal. */ - -static void -linux_resume_one_lwp_throw (struct lwp_info *lwp, - int step, int signal, siginfo_t *info) -{ - struct thread_info *thread = get_lwp_thread (lwp); - struct thread_info *saved_thread; - int ptrace_request; - struct process_info *proc = get_thread_process (thread); - - /* Note that target description may not be initialised - (proc->tdesc == NULL) at this point because the program hasn't - stopped at the first instruction yet. It means GDBserver skips - the extra traps from the wrapper program (see option --wrapper). - Code in this function that requires register access should be - guarded by proc->tdesc == NULL or something else. */ - - if (lwp->stopped == 0) - return; - - gdb_assert (lwp->waitstatus.kind == TARGET_WAITKIND_IGNORE); - - fast_tpoint_collect_result fast_tp_collecting - = lwp->collecting_fast_tracepoint; - - gdb_assert (!stabilizing_threads - || (fast_tp_collecting - != fast_tpoint_collect_result::not_collecting)); - - /* Cancel actions that rely on GDB not changing the PC (e.g., the - user used the "jump" command, or "set $pc = foo"). */ - if (thread->while_stepping != NULL && lwp->stop_pc != get_pc (lwp)) - { - /* Collecting 'while-stepping' actions doesn't make sense - anymore. */ - release_while_stepping_state_list (thread); - } - - /* If we have pending signals or status, and a new signal, enqueue the - signal. Also enqueue the signal if it can't be delivered to the - inferior right now. */ - if (signal != 0 - && (lwp->status_pending_p - || lwp->pending_signals != NULL - || !lwp_signal_can_be_delivered (lwp))) - { - enqueue_pending_signal (lwp, signal, info); - - /* Postpone any pending signal. It was enqueued above. */ - signal = 0; - } - - if (lwp->status_pending_p) - { - if (debug_threads) - debug_printf ("Not resuming lwp %ld (%s, stop %s);" - " has pending status\n", - lwpid_of (thread), step ? "step" : "continue", - lwp->stop_expected ? "expected" : "not expected"); - return; - } - - saved_thread = current_thread; - current_thread = thread; - - /* This bit needs some thinking about. If we get a signal that - we must report while a single-step reinsert is still pending, - we often end up resuming the thread. It might be better to - (ew) allow a stack of pending events; then we could be sure that - the reinsert happened right away and not lose any signals. - - Making this stack would also shrink the window in which breakpoints are - uninserted (see comment in linux_wait_for_lwp) but not enough for - complete correctness, so it won't solve that problem. It may be - worthwhile just to solve this one, however. */ - if (lwp->bp_reinsert != 0) - { - if (debug_threads) - debug_printf (" pending reinsert at 0x%s\n", - paddress (lwp->bp_reinsert)); - - if (can_hardware_single_step ()) - { - if (fast_tp_collecting == fast_tpoint_collect_result::not_collecting) - { - if (step == 0) - warning ("BAD - reinserting but not stepping."); - if (lwp->suspended) - warning ("BAD - reinserting and suspended(%d).", - lwp->suspended); - } - } - - step = maybe_hw_step (thread); - } - - if (fast_tp_collecting == fast_tpoint_collect_result::before_insn) - { - if (debug_threads) - debug_printf ("lwp %ld wants to get out of fast tracepoint jump pad" - " (exit-jump-pad-bkpt)\n", - lwpid_of (thread)); - } - else if (fast_tp_collecting == fast_tpoint_collect_result::at_insn) - { - if (debug_threads) - debug_printf ("lwp %ld wants to get out of fast tracepoint jump pad" - " single-stepping\n", - lwpid_of (thread)); - - if (can_hardware_single_step ()) - step = 1; - else - { - internal_error (__FILE__, __LINE__, - "moving out of jump pad single-stepping" - " not implemented on this target"); - } - } - - /* If we have while-stepping actions in this thread set it stepping. - If we have a signal to deliver, it may or may not be set to - SIG_IGN, we don't know. Assume so, and allow collecting - while-stepping into a signal handler. A possible smart thing to - do would be to set an internal breakpoint at the signal return - address, continue, and carry on catching this while-stepping - action only when that breakpoint is hit. A future - enhancement. */ - if (thread->while_stepping != NULL) - { - if (debug_threads) - debug_printf ("lwp %ld has a while-stepping action -> forcing step.\n", - lwpid_of (thread)); - - step = single_step (lwp); - } - - if (proc->tdesc != NULL && the_low_target.get_pc != NULL) - { - struct regcache *regcache = get_thread_regcache (current_thread, 1); - - lwp->stop_pc = (*the_low_target.get_pc) (regcache); - - if (debug_threads) - { - debug_printf (" %s from pc 0x%lx\n", step ? "step" : "continue", - (long) lwp->stop_pc); - } - } - - /* If we have pending signals, consume one if it can be delivered to - the inferior. */ - if (lwp->pending_signals != NULL && lwp_signal_can_be_delivered (lwp)) - { - struct pending_signals **p_sig; - - p_sig = &lwp->pending_signals; - while ((*p_sig)->prev != NULL) - p_sig = &(*p_sig)->prev; - - signal = (*p_sig)->signal; - if ((*p_sig)->info.si_signo != 0) - ptrace (PTRACE_SETSIGINFO, lwpid_of (thread), (PTRACE_TYPE_ARG3) 0, - &(*p_sig)->info); - - free (*p_sig); - *p_sig = NULL; - } - - if (debug_threads) - debug_printf ("Resuming lwp %ld (%s, signal %d, stop %s)\n", - lwpid_of (thread), step ? "step" : "continue", signal, - lwp->stop_expected ? "expected" : "not expected"); - - if (the_low_target.prepare_to_resume != NULL) - the_low_target.prepare_to_resume (lwp); - - regcache_invalidate_thread (thread); - errno = 0; - lwp->stepping = step; - if (step) - ptrace_request = PTRACE_SINGLESTEP; - else if (gdb_catching_syscalls_p (lwp)) - ptrace_request = PTRACE_SYSCALL; - else - ptrace_request = PTRACE_CONT; - ptrace (ptrace_request, - lwpid_of (thread), - (PTRACE_TYPE_ARG3) 0, - /* Coerce to a uintptr_t first to avoid potential gcc warning - of coercing an 8 byte integer to a 4 byte pointer. */ - (PTRACE_TYPE_ARG4) (uintptr_t) signal); - - current_thread = saved_thread; - if (errno) - perror_with_name ("resuming thread"); - - /* Successfully resumed. Clear state that no longer makes sense, - and mark the LWP as running. Must not do this before resuming - otherwise if that fails other code will be confused. E.g., we'd - later try to stop the LWP and hang forever waiting for a stop - status. Note that we must not throw after this is cleared, - otherwise handle_zombie_lwp_error would get confused. */ - lwp->stopped = 0; - lwp->stop_reason = TARGET_STOPPED_BY_NO_REASON; -} - -/* Called when we try to resume a stopped LWP and that errors out. If - the LWP is no longer in ptrace-stopped state (meaning it's zombie, - or about to become), discard the error, clear any pending status - the LWP may have, and return true (we'll collect the exit status - soon enough). Otherwise, return false. */ - -static int -check_ptrace_stopped_lwp_gone (struct lwp_info *lp) -{ - struct thread_info *thread = get_lwp_thread (lp); - - /* If we get an error after resuming the LWP successfully, we'd - confuse !T state for the LWP being gone. */ - gdb_assert (lp->stopped); - - /* We can't just check whether the LWP is in 'Z (Zombie)' state, - because even if ptrace failed with ESRCH, the tracee may be "not - yet fully dead", but already refusing ptrace requests. In that - case the tracee has 'R (Running)' state for a little bit - (observed in Linux 3.18). See also the note on ESRCH in the - ptrace(2) man page. Instead, check whether the LWP has any state - other than ptrace-stopped. */ - - /* Don't assume anything if /proc/PID/status can't be read. */ - if (linux_proc_pid_is_trace_stopped_nowarn (lwpid_of (thread)) == 0) - { - lp->stop_reason = TARGET_STOPPED_BY_NO_REASON; - lp->status_pending_p = 0; - return 1; - } - return 0; -} - -/* Like linux_resume_one_lwp_throw, but no error is thrown if the LWP - disappears while we try to resume it. */ - -static void -linux_resume_one_lwp (struct lwp_info *lwp, - int step, int signal, siginfo_t *info) -{ - try - { - linux_resume_one_lwp_throw (lwp, step, signal, info); - } - catch (const gdb_exception_error &ex) - { - if (!check_ptrace_stopped_lwp_gone (lwp)) - throw; - } -} - -/* This function is called once per thread via for_each_thread. - We look up which resume request applies to THREAD and mark it with a - pointer to the appropriate resume request. - - This algorithm is O(threads * resume elements), but resume elements - is small (and will remain small at least until GDB supports thread - suspension). */ - -static void -linux_set_resume_request (thread_info *thread, thread_resume *resume, size_t n) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - - for (int ndx = 0; ndx < n; ndx++) - { - ptid_t ptid = resume[ndx].thread; - if (ptid == minus_one_ptid - || ptid == thread->id - /* Handle both 'pPID' and 'pPID.-1' as meaning 'all threads - of PID'. */ - || (ptid.pid () == pid_of (thread) - && (ptid.is_pid () - || ptid.lwp () == -1))) - { - if (resume[ndx].kind == resume_stop - && thread->last_resume_kind == resume_stop) - { - if (debug_threads) - debug_printf ("already %s LWP %ld at GDB's request\n", - (thread->last_status.kind - == TARGET_WAITKIND_STOPPED) - ? "stopped" - : "stopping", - lwpid_of (thread)); - - continue; - } - - /* Ignore (wildcard) resume requests for already-resumed - threads. */ - if (resume[ndx].kind != resume_stop - && thread->last_resume_kind != resume_stop) - { - if (debug_threads) - debug_printf ("already %s LWP %ld at GDB's request\n", - (thread->last_resume_kind - == resume_step) - ? "stepping" - : "continuing", - lwpid_of (thread)); - continue; - } - - /* Don't let wildcard resumes resume fork children that GDB - does not yet know are new fork children. */ - if (lwp->fork_relative != NULL) - { - struct lwp_info *rel = lwp->fork_relative; - - if (rel->status_pending_p - && (rel->waitstatus.kind == TARGET_WAITKIND_FORKED - || rel->waitstatus.kind == TARGET_WAITKIND_VFORKED)) - { - if (debug_threads) - debug_printf ("not resuming LWP %ld: has queued stop reply\n", - lwpid_of (thread)); - continue; - } - } - - /* If the thread has a pending event that has already been - reported to GDBserver core, but GDB has not pulled the - event out of the vStopped queue yet, likewise, ignore the - (wildcard) resume request. */ - if (in_queued_stop_replies (thread->id)) - { - if (debug_threads) - debug_printf ("not resuming LWP %ld: has queued stop reply\n", - lwpid_of (thread)); - continue; - } - - lwp->resume = &resume[ndx]; - thread->last_resume_kind = lwp->resume->kind; - - lwp->step_range_start = lwp->resume->step_range_start; - lwp->step_range_end = lwp->resume->step_range_end; - - /* If we had a deferred signal to report, dequeue one now. - This can happen if LWP gets more than one signal while - trying to get out of a jump pad. */ - if (lwp->stopped - && !lwp->status_pending_p - && dequeue_one_deferred_signal (lwp, &lwp->status_pending)) - { - lwp->status_pending_p = 1; - - if (debug_threads) - debug_printf ("Dequeueing deferred signal %d for LWP %ld, " - "leaving status pending.\n", - WSTOPSIG (lwp->status_pending), - lwpid_of (thread)); - } - - return; - } - } - - /* No resume action for this thread. */ - lwp->resume = NULL; -} - -/* find_thread callback for linux_resume. Return true if this lwp has an - interesting status pending. */ - -static bool -resume_status_pending_p (thread_info *thread) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - - /* LWPs which will not be resumed are not interesting, because - we might not wait for them next time through linux_wait. */ - if (lwp->resume == NULL) - return false; - - return thread_still_has_status_pending_p (thread); -} - -/* Return 1 if this lwp that GDB wants running is stopped at an - internal breakpoint that we need to step over. It assumes that any - required STOP_PC adjustment has already been propagated to the - inferior's regcache. */ - -static bool -need_step_over_p (thread_info *thread) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - struct thread_info *saved_thread; - CORE_ADDR pc; - struct process_info *proc = get_thread_process (thread); - - /* GDBserver is skipping the extra traps from the wrapper program, - don't have to do step over. */ - if (proc->tdesc == NULL) - return false; - - /* LWPs which will not be resumed are not interesting, because we - might not wait for them next time through linux_wait. */ - - if (!lwp->stopped) - { - if (debug_threads) - debug_printf ("Need step over [LWP %ld]? Ignoring, not stopped\n", - lwpid_of (thread)); - return false; - } - - if (thread->last_resume_kind == resume_stop) - { - if (debug_threads) - debug_printf ("Need step over [LWP %ld]? Ignoring, should remain" - " stopped\n", - lwpid_of (thread)); - return false; - } - - gdb_assert (lwp->suspended >= 0); - - if (lwp->suspended) - { - if (debug_threads) - debug_printf ("Need step over [LWP %ld]? Ignoring, suspended\n", - lwpid_of (thread)); - return false; - } - - if (lwp->status_pending_p) - { - if (debug_threads) - debug_printf ("Need step over [LWP %ld]? Ignoring, has pending" - " status.\n", - lwpid_of (thread)); - return false; - } - - /* Note: PC, not STOP_PC. Either GDB has adjusted the PC already, - or we have. */ - pc = get_pc (lwp); - - /* If the PC has changed since we stopped, then don't do anything, - and let the breakpoint/tracepoint be hit. This happens if, for - instance, GDB handled the decr_pc_after_break subtraction itself, - GDB is OOL stepping this thread, or the user has issued a "jump" - command, or poked thread's registers herself. */ - if (pc != lwp->stop_pc) - { - if (debug_threads) - debug_printf ("Need step over [LWP %ld]? Cancelling, PC was changed. " - "Old stop_pc was 0x%s, PC is now 0x%s\n", - lwpid_of (thread), - paddress (lwp->stop_pc), paddress (pc)); - return false; - } - - /* On software single step target, resume the inferior with signal - rather than stepping over. */ - if (can_software_single_step () - && lwp->pending_signals != NULL - && lwp_signal_can_be_delivered (lwp)) - { - if (debug_threads) - debug_printf ("Need step over [LWP %ld]? Ignoring, has pending" - " signals.\n", - lwpid_of (thread)); - - return false; - } - - saved_thread = current_thread; - current_thread = thread; - - /* We can only step over breakpoints we know about. */ - if (breakpoint_here (pc) || fast_tracepoint_jump_here (pc)) - { - /* Don't step over a breakpoint that GDB expects to hit - though. If the condition is being evaluated on the target's side - and it evaluate to false, step over this breakpoint as well. */ - if (gdb_breakpoint_here (pc) - && gdb_condition_true_at_breakpoint (pc) - && gdb_no_commands_at_breakpoint (pc)) - { - if (debug_threads) - debug_printf ("Need step over [LWP %ld]? yes, but found" - " GDB breakpoint at 0x%s; skipping step over\n", - lwpid_of (thread), paddress (pc)); - - current_thread = saved_thread; - return false; - } - else - { - if (debug_threads) - debug_printf ("Need step over [LWP %ld]? yes, " - "found breakpoint at 0x%s\n", - lwpid_of (thread), paddress (pc)); - - /* We've found an lwp that needs stepping over --- return 1 so - that find_thread stops looking. */ - current_thread = saved_thread; - - return true; - } - } - - current_thread = saved_thread; - - if (debug_threads) - debug_printf ("Need step over [LWP %ld]? No, no breakpoint found" - " at 0x%s\n", - lwpid_of (thread), paddress (pc)); - - return false; -} - -/* Start a step-over operation on LWP. When LWP stopped at a - breakpoint, to make progress, we need to remove the breakpoint out - of the way. If we let other threads run while we do that, they may - pass by the breakpoint location and miss hitting it. To avoid - that, a step-over momentarily stops all threads while LWP is - single-stepped by either hardware or software while the breakpoint - is temporarily uninserted from the inferior. When the single-step - finishes, we reinsert the breakpoint, and let all threads that are - supposed to be running, run again. */ - -static int -start_step_over (struct lwp_info *lwp) -{ - struct thread_info *thread = get_lwp_thread (lwp); - struct thread_info *saved_thread; - CORE_ADDR pc; - int step; - - if (debug_threads) - debug_printf ("Starting step-over on LWP %ld. Stopping all threads\n", - lwpid_of (thread)); - - stop_all_lwps (1, lwp); - - if (lwp->suspended != 0) - { - internal_error (__FILE__, __LINE__, - "LWP %ld suspended=%d\n", lwpid_of (thread), - lwp->suspended); - } - - if (debug_threads) - debug_printf ("Done stopping all threads for step-over.\n"); - - /* Note, we should always reach here with an already adjusted PC, - either by GDB (if we're resuming due to GDB's request), or by our - caller, if we just finished handling an internal breakpoint GDB - shouldn't care about. */ - pc = get_pc (lwp); - - saved_thread = current_thread; - current_thread = thread; - - lwp->bp_reinsert = pc; - uninsert_breakpoints_at (pc); - uninsert_fast_tracepoint_jumps_at (pc); - - step = single_step (lwp); - - current_thread = saved_thread; - - linux_resume_one_lwp (lwp, step, 0, NULL); - - /* Require next event from this LWP. */ - step_over_bkpt = thread->id; - return 1; -} - -/* Finish a step-over. Reinsert the breakpoint we had uninserted in - start_step_over, if still there, and delete any single-step - breakpoints we've set, on non hardware single-step targets. */ - -static int -finish_step_over (struct lwp_info *lwp) -{ - if (lwp->bp_reinsert != 0) - { - struct thread_info *saved_thread = current_thread; - - if (debug_threads) - debug_printf ("Finished step over.\n"); - - current_thread = get_lwp_thread (lwp); - - /* Reinsert any breakpoint at LWP->BP_REINSERT. Note that there - may be no breakpoint to reinsert there by now. */ - reinsert_breakpoints_at (lwp->bp_reinsert); - reinsert_fast_tracepoint_jumps_at (lwp->bp_reinsert); - - lwp->bp_reinsert = 0; - - /* Delete any single-step breakpoints. No longer needed. We - don't have to worry about other threads hitting this trap, - and later not being able to explain it, because we were - stepping over a breakpoint, and we hold all threads but - LWP stopped while doing that. */ - if (!can_hardware_single_step ()) - { - gdb_assert (has_single_step_breakpoints (current_thread)); - delete_single_step_breakpoints (current_thread); - } - - step_over_bkpt = null_ptid; - current_thread = saved_thread; - return 1; - } - else - return 0; -} - -/* If there's a step over in progress, wait until all threads stop - (that is, until the stepping thread finishes its step), and - unsuspend all lwps. The stepping thread ends with its status - pending, which is processed later when we get back to processing - events. */ - -static void -complete_ongoing_step_over (void) -{ - if (step_over_bkpt != null_ptid) - { - struct lwp_info *lwp; - int wstat; - int ret; - - if (debug_threads) - debug_printf ("detach: step over in progress, finish it first\n"); - - /* Passing NULL_PTID as filter indicates we want all events to - be left pending. Eventually this returns when there are no - unwaited-for children left. */ - ret = linux_wait_for_event_filtered (minus_one_ptid, null_ptid, - &wstat, __WALL); - gdb_assert (ret == -1); - - lwp = find_lwp_pid (step_over_bkpt); - if (lwp != NULL) - finish_step_over (lwp); - step_over_bkpt = null_ptid; - unsuspend_all_lwps (lwp); - } -} - -/* This function is called once per thread. We check the thread's resume - request, which will tell us whether to resume, step, or leave the thread - stopped; and what signal, if any, it should be sent. - - For threads which we aren't explicitly told otherwise, we preserve - the stepping flag; this is used for stepping over gdbserver-placed - breakpoints. - - If pending_flags was set in any thread, we queue any needed - signals, since we won't actually resume. We already have a pending - event to report, so we don't need to preserve any step requests; - they should be re-issued if necessary. */ - -static void -linux_resume_one_thread (thread_info *thread, bool leave_all_stopped) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - int leave_pending; - - if (lwp->resume == NULL) - return; - - if (lwp->resume->kind == resume_stop) - { - if (debug_threads) - debug_printf ("resume_stop request for LWP %ld\n", lwpid_of (thread)); - - if (!lwp->stopped) - { - if (debug_threads) - debug_printf ("stopping LWP %ld\n", lwpid_of (thread)); - - /* Stop the thread, and wait for the event asynchronously, - through the event loop. */ - send_sigstop (lwp); - } - else - { - if (debug_threads) - debug_printf ("already stopped LWP %ld\n", - lwpid_of (thread)); - - /* The LWP may have been stopped in an internal event that - was not meant to be notified back to GDB (e.g., gdbserver - breakpoint), so we should be reporting a stop event in - this case too. */ - - /* If the thread already has a pending SIGSTOP, this is a - no-op. Otherwise, something later will presumably resume - the thread and this will cause it to cancel any pending - operation, due to last_resume_kind == resume_stop. If - the thread already has a pending status to report, we - will still report it the next time we wait - see - status_pending_p_callback. */ - - /* If we already have a pending signal to report, then - there's no need to queue a SIGSTOP, as this means we're - midway through moving the LWP out of the jumppad, and we - will report the pending signal as soon as that is - finished. */ - if (lwp->pending_signals_to_report == NULL) - send_sigstop (lwp); - } - - /* For stop requests, we're done. */ - lwp->resume = NULL; - thread->last_status.kind = TARGET_WAITKIND_IGNORE; - return; - } - - /* If this thread which is about to be resumed has a pending status, - then don't resume it - we can just report the pending status. - Likewise if it is suspended, because e.g., another thread is - stepping past a breakpoint. Make sure to queue any signals that - would otherwise be sent. In all-stop mode, we do this decision - based on if *any* thread has a pending status. If there's a - thread that needs the step-over-breakpoint dance, then don't - resume any other thread but that particular one. */ - leave_pending = (lwp->suspended - || lwp->status_pending_p - || leave_all_stopped); - - /* If we have a new signal, enqueue the signal. */ - if (lwp->resume->sig != 0) - { - siginfo_t info, *info_p; - - /* If this is the same signal we were previously stopped by, - make sure to queue its siginfo. */ - if (WIFSTOPPED (lwp->last_status) - && WSTOPSIG (lwp->last_status) == lwp->resume->sig - && ptrace (PTRACE_GETSIGINFO, lwpid_of (thread), - (PTRACE_TYPE_ARG3) 0, &info) == 0) - info_p = &info; - else - info_p = NULL; - - enqueue_pending_signal (lwp, lwp->resume->sig, info_p); - } - - if (!leave_pending) - { - if (debug_threads) - debug_printf ("resuming LWP %ld\n", lwpid_of (thread)); - - proceed_one_lwp (thread, NULL); - } - else - { - if (debug_threads) - debug_printf ("leaving LWP %ld stopped\n", lwpid_of (thread)); - } - - thread->last_status.kind = TARGET_WAITKIND_IGNORE; - lwp->resume = NULL; -} - -static void -linux_resume (struct thread_resume *resume_info, size_t n) -{ - struct thread_info *need_step_over = NULL; - - if (debug_threads) - { - debug_enter (); - debug_printf ("linux_resume:\n"); - } - - for_each_thread ([&] (thread_info *thread) - { - linux_set_resume_request (thread, resume_info, n); - }); - - /* If there is a thread which would otherwise be resumed, which has - a pending status, then don't resume any threads - we can just - report the pending status. Make sure to queue any signals that - would otherwise be sent. In non-stop mode, we'll apply this - logic to each thread individually. We consume all pending events - before considering to start a step-over (in all-stop). */ - bool any_pending = false; - if (!non_stop) - any_pending = find_thread (resume_status_pending_p) != NULL; - - /* If there is a thread which would otherwise be resumed, which is - stopped at a breakpoint that needs stepping over, then don't - resume any threads - have it step over the breakpoint with all - other threads stopped, then resume all threads again. Make sure - to queue any signals that would otherwise be delivered or - queued. */ - if (!any_pending && supports_breakpoints ()) - need_step_over = find_thread (need_step_over_p); - - bool leave_all_stopped = (need_step_over != NULL || any_pending); - - if (debug_threads) - { - if (need_step_over != NULL) - debug_printf ("Not resuming all, need step over\n"); - else if (any_pending) - debug_printf ("Not resuming, all-stop and found " - "an LWP with pending status\n"); - else - debug_printf ("Resuming, no pending status or step over needed\n"); - } - - /* Even if we're leaving threads stopped, queue all signals we'd - otherwise deliver. */ - for_each_thread ([&] (thread_info *thread) - { - linux_resume_one_thread (thread, leave_all_stopped); - }); - - if (need_step_over) - start_step_over (get_thread_lwp (need_step_over)); - - if (debug_threads) - { - debug_printf ("linux_resume done\n"); - debug_exit (); - } - - /* We may have events that were pending that can/should be sent to - the client now. Trigger a linux_wait call. */ - if (target_is_async_p ()) - async_file_mark (); -} - -/* This function is called once per thread. We check the thread's - last resume request, which will tell us whether to resume, step, or - leave the thread stopped. Any signal the client requested to be - delivered has already been enqueued at this point. - - If any thread that GDB wants running is stopped at an internal - breakpoint that needs stepping over, we start a step-over operation - on that particular thread, and leave all others stopped. */ - -static void -proceed_one_lwp (thread_info *thread, lwp_info *except) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - int step; - - if (lwp == except) - return; - - if (debug_threads) - debug_printf ("proceed_one_lwp: lwp %ld\n", lwpid_of (thread)); - - if (!lwp->stopped) - { - if (debug_threads) - debug_printf (" LWP %ld already running\n", lwpid_of (thread)); - return; - } - - if (thread->last_resume_kind == resume_stop - && thread->last_status.kind != TARGET_WAITKIND_IGNORE) - { - if (debug_threads) - debug_printf (" client wants LWP to remain %ld stopped\n", - lwpid_of (thread)); - return; - } - - if (lwp->status_pending_p) - { - if (debug_threads) - debug_printf (" LWP %ld has pending status, leaving stopped\n", - lwpid_of (thread)); - return; - } - - gdb_assert (lwp->suspended >= 0); - - if (lwp->suspended) - { - if (debug_threads) - debug_printf (" LWP %ld is suspended\n", lwpid_of (thread)); - return; - } - - if (thread->last_resume_kind == resume_stop - && lwp->pending_signals_to_report == NULL - && (lwp->collecting_fast_tracepoint - == fast_tpoint_collect_result::not_collecting)) - { - /* We haven't reported this LWP as stopped yet (otherwise, the - last_status.kind check above would catch it, and we wouldn't - reach here. This LWP may have been momentarily paused by a - stop_all_lwps call while handling for example, another LWP's - step-over. In that case, the pending expected SIGSTOP signal - that was queued at vCont;t handling time will have already - been consumed by wait_for_sigstop, and so we need to requeue - another one here. Note that if the LWP already has a SIGSTOP - pending, this is a no-op. */ - - if (debug_threads) - debug_printf ("Client wants LWP %ld to stop. " - "Making sure it has a SIGSTOP pending\n", - lwpid_of (thread)); - - send_sigstop (lwp); - } - - if (thread->last_resume_kind == resume_step) - { - if (debug_threads) - debug_printf (" stepping LWP %ld, client wants it stepping\n", - lwpid_of (thread)); - - /* If resume_step is requested by GDB, install single-step - breakpoints when the thread is about to be actually resumed if - the single-step breakpoints weren't removed. */ - if (can_software_single_step () - && !has_single_step_breakpoints (thread)) - install_software_single_step_breakpoints (lwp); - - step = maybe_hw_step (thread); - } - else if (lwp->bp_reinsert != 0) - { - if (debug_threads) - debug_printf (" stepping LWP %ld, reinsert set\n", - lwpid_of (thread)); - - step = maybe_hw_step (thread); - } - else - step = 0; - - linux_resume_one_lwp (lwp, step, 0, NULL); -} - -static void -unsuspend_and_proceed_one_lwp (thread_info *thread, lwp_info *except) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - - if (lwp == except) - return; - - lwp_suspended_decr (lwp); - - proceed_one_lwp (thread, except); -} - -/* When we finish a step-over, set threads running again. If there's - another thread that may need a step-over, now's the time to start - it. Eventually, we'll move all threads past their breakpoints. */ - -static void -proceed_all_lwps (void) -{ - struct thread_info *need_step_over; - - /* If there is a thread which would otherwise be resumed, which is - stopped at a breakpoint that needs stepping over, then don't - resume any threads - have it step over the breakpoint with all - other threads stopped, then resume all threads again. */ - - if (supports_breakpoints ()) - { - need_step_over = find_thread (need_step_over_p); - - if (need_step_over != NULL) - { - if (debug_threads) - debug_printf ("proceed_all_lwps: found " - "thread %ld needing a step-over\n", - lwpid_of (need_step_over)); - - start_step_over (get_thread_lwp (need_step_over)); - return; - } - } - - if (debug_threads) - debug_printf ("Proceeding, no step-over needed\n"); - - for_each_thread ([] (thread_info *thread) - { - proceed_one_lwp (thread, NULL); - }); -} - -/* Stopped LWPs that the client wanted to be running, that don't have - pending statuses, are set to run again, except for EXCEPT, if not - NULL. This undoes a stop_all_lwps call. */ - -static void -unstop_all_lwps (int unsuspend, struct lwp_info *except) -{ - if (debug_threads) - { - debug_enter (); - if (except) - debug_printf ("unstopping all lwps, except=(LWP %ld)\n", - lwpid_of (get_lwp_thread (except))); - else - debug_printf ("unstopping all lwps\n"); - } - - if (unsuspend) - for_each_thread ([&] (thread_info *thread) - { - unsuspend_and_proceed_one_lwp (thread, except); - }); - else - for_each_thread ([&] (thread_info *thread) - { - proceed_one_lwp (thread, except); - }); - - if (debug_threads) - { - debug_printf ("unstop_all_lwps done\n"); - debug_exit (); - } -} - - -#ifdef HAVE_LINUX_REGSETS - -#define use_linux_regsets 1 - -/* Returns true if REGSET has been disabled. */ - -static int -regset_disabled (struct regsets_info *info, struct regset_info *regset) -{ - return (info->disabled_regsets != NULL - && info->disabled_regsets[regset - info->regsets]); -} - -/* Disable REGSET. */ - -static void -disable_regset (struct regsets_info *info, struct regset_info *regset) -{ - int dr_offset; - - dr_offset = regset - info->regsets; - if (info->disabled_regsets == NULL) - info->disabled_regsets = (char *) xcalloc (1, info->num_regsets); - info->disabled_regsets[dr_offset] = 1; -} - -static int -regsets_fetch_inferior_registers (struct regsets_info *regsets_info, - struct regcache *regcache) -{ - struct regset_info *regset; - int saw_general_regs = 0; - int pid; - struct iovec iov; - - pid = lwpid_of (current_thread); - for (regset = regsets_info->regsets; regset->size >= 0; regset++) - { - void *buf, *data; - int nt_type, res; - - if (regset->size == 0 || regset_disabled (regsets_info, regset)) - continue; - - buf = xmalloc (regset->size); - - nt_type = regset->nt_type; - if (nt_type) - { - iov.iov_base = buf; - iov.iov_len = regset->size; - data = (void *) &iov; - } - else - data = buf; - -#ifndef __sparc__ - res = ptrace (regset->get_request, pid, - (PTRACE_TYPE_ARG3) (long) nt_type, data); -#else - res = ptrace (regset->get_request, pid, data, nt_type); -#endif - if (res < 0) - { - if (errno == EIO - || (errno == EINVAL && regset->type == OPTIONAL_REGS)) - { - /* If we get EIO on a regset, or an EINVAL and the regset is - optional, do not try it again for this process mode. */ - disable_regset (regsets_info, regset); - } - else if (errno == ENODATA) - { - /* ENODATA may be returned if the regset is currently - not "active". This can happen in normal operation, - so suppress the warning in this case. */ - } - else if (errno == ESRCH) - { - /* At this point, ESRCH should mean the process is - already gone, in which case we simply ignore attempts - to read its registers. */ - } - else - { - char s[256]; - sprintf (s, "ptrace(regsets_fetch_inferior_registers) PID=%d", - pid); - perror (s); - } - } - else - { - if (regset->type == GENERAL_REGS) - saw_general_regs = 1; - regset->store_function (regcache, buf); - } - free (buf); - } - if (saw_general_regs) - return 0; - else - return 1; -} - -static int -regsets_store_inferior_registers (struct regsets_info *regsets_info, - struct regcache *regcache) -{ - struct regset_info *regset; - int saw_general_regs = 0; - int pid; - struct iovec iov; - - pid = lwpid_of (current_thread); - for (regset = regsets_info->regsets; regset->size >= 0; regset++) - { - void *buf, *data; - int nt_type, res; - - if (regset->size == 0 || regset_disabled (regsets_info, regset) - || regset->fill_function == NULL) - continue; - - buf = xmalloc (regset->size); - - /* First fill the buffer with the current register set contents, - in case there are any items in the kernel's regset that are - not in gdbserver's regcache. */ - - nt_type = regset->nt_type; - if (nt_type) - { - iov.iov_base = buf; - iov.iov_len = regset->size; - data = (void *) &iov; - } - else - data = buf; - -#ifndef __sparc__ - res = ptrace (regset->get_request, pid, - (PTRACE_TYPE_ARG3) (long) nt_type, data); -#else - res = ptrace (regset->get_request, pid, data, nt_type); -#endif - - if (res == 0) - { - /* Then overlay our cached registers on that. */ - regset->fill_function (regcache, buf); - - /* Only now do we write the register set. */ -#ifndef __sparc__ - res = ptrace (regset->set_request, pid, - (PTRACE_TYPE_ARG3) (long) nt_type, data); -#else - res = ptrace (regset->set_request, pid, data, nt_type); -#endif - } - - if (res < 0) - { - if (errno == EIO - || (errno == EINVAL && regset->type == OPTIONAL_REGS)) - { - /* If we get EIO on a regset, or an EINVAL and the regset is - optional, do not try it again for this process mode. */ - disable_regset (regsets_info, regset); - } - else if (errno == ESRCH) - { - /* At this point, ESRCH should mean the process is - already gone, in which case we simply ignore attempts - to change its registers. See also the related - comment in linux_resume_one_lwp. */ - free (buf); - return 0; - } - else - { - perror ("Warning: ptrace(regsets_store_inferior_registers)"); - } - } - else if (regset->type == GENERAL_REGS) - saw_general_regs = 1; - free (buf); - } - if (saw_general_regs) - return 0; - else - return 1; -} - -#else /* !HAVE_LINUX_REGSETS */ - -#define use_linux_regsets 0 -#define regsets_fetch_inferior_registers(regsets_info, regcache) 1 -#define regsets_store_inferior_registers(regsets_info, regcache) 1 - -#endif - -/* Return 1 if register REGNO is supported by one of the regset ptrace - calls or 0 if it has to be transferred individually. */ - -static int -linux_register_in_regsets (const struct regs_info *regs_info, int regno) -{ - unsigned char mask = 1 << (regno % 8); - size_t index = regno / 8; - - return (use_linux_regsets - && (regs_info->regset_bitmap == NULL - || (regs_info->regset_bitmap[index] & mask) != 0)); -} - -#ifdef HAVE_LINUX_USRREGS - -static int -register_addr (const struct usrregs_info *usrregs, int regnum) -{ - int addr; - - if (regnum < 0 || regnum >= usrregs->num_regs) - error ("Invalid register number %d.", regnum); - - addr = usrregs->regmap[regnum]; - - return addr; -} - -/* Fetch one register. */ -static void -fetch_register (const struct usrregs_info *usrregs, - struct regcache *regcache, int regno) -{ - CORE_ADDR regaddr; - int i, size; - char *buf; - int pid; - - if (regno >= usrregs->num_regs) - return; - if ((*the_low_target.cannot_fetch_register) (regno)) - return; - - regaddr = register_addr (usrregs, regno); - if (regaddr == -1) - return; - - size = ((register_size (regcache->tdesc, regno) - + sizeof (PTRACE_XFER_TYPE) - 1) - & -sizeof (PTRACE_XFER_TYPE)); - buf = (char *) alloca (size); - - pid = lwpid_of (current_thread); - for (i = 0; i < size; i += sizeof (PTRACE_XFER_TYPE)) - { - errno = 0; - *(PTRACE_XFER_TYPE *) (buf + i) = - ptrace (PTRACE_PEEKUSER, pid, - /* Coerce to a uintptr_t first to avoid potential gcc warning - of coercing an 8 byte integer to a 4 byte pointer. */ - (PTRACE_TYPE_ARG3) (uintptr_t) regaddr, (PTRACE_TYPE_ARG4) 0); - regaddr += sizeof (PTRACE_XFER_TYPE); - if (errno != 0) - { - /* Mark register REGNO unavailable. */ - supply_register (regcache, regno, NULL); - return; - } - } - - if (the_low_target.supply_ptrace_register) - the_low_target.supply_ptrace_register (regcache, regno, buf); - else - supply_register (regcache, regno, buf); -} - -/* Store one register. */ -static void -store_register (const struct usrregs_info *usrregs, - struct regcache *regcache, int regno) -{ - CORE_ADDR regaddr; - int i, size; - char *buf; - int pid; - - if (regno >= usrregs->num_regs) - return; - if ((*the_low_target.cannot_store_register) (regno)) - return; - - regaddr = register_addr (usrregs, regno); - if (regaddr == -1) - return; - - size = ((register_size (regcache->tdesc, regno) - + sizeof (PTRACE_XFER_TYPE) - 1) - & -sizeof (PTRACE_XFER_TYPE)); - buf = (char *) alloca (size); - memset (buf, 0, size); - - if (the_low_target.collect_ptrace_register) - the_low_target.collect_ptrace_register (regcache, regno, buf); - else - collect_register (regcache, regno, buf); - - pid = lwpid_of (current_thread); - for (i = 0; i < size; i += sizeof (PTRACE_XFER_TYPE)) - { - errno = 0; - ptrace (PTRACE_POKEUSER, pid, - /* Coerce to a uintptr_t first to avoid potential gcc warning - about coercing an 8 byte integer to a 4 byte pointer. */ - (PTRACE_TYPE_ARG3) (uintptr_t) regaddr, - (PTRACE_TYPE_ARG4) *(PTRACE_XFER_TYPE *) (buf + i)); - if (errno != 0) - { - /* At this point, ESRCH should mean the process is - already gone, in which case we simply ignore attempts - to change its registers. See also the related - comment in linux_resume_one_lwp. */ - if (errno == ESRCH) - return; - - if ((*the_low_target.cannot_store_register) (regno) == 0) - error ("writing register %d: %s", regno, safe_strerror (errno)); - } - regaddr += sizeof (PTRACE_XFER_TYPE); - } -} - -/* Fetch all registers, or just one, from the child process. - If REGNO is -1, do this for all registers, skipping any that are - assumed to have been retrieved by regsets_fetch_inferior_registers, - unless ALL is non-zero. - Otherwise, REGNO specifies which register (so we can save time). */ -static void -usr_fetch_inferior_registers (const struct regs_info *regs_info, - struct regcache *regcache, int regno, int all) -{ - struct usrregs_info *usr = regs_info->usrregs; - - if (regno == -1) - { - for (regno = 0; regno < usr->num_regs; regno++) - if (all || !linux_register_in_regsets (regs_info, regno)) - fetch_register (usr, regcache, regno); - } - else - fetch_register (usr, regcache, regno); -} - -/* Store our register values back into the inferior. - If REGNO is -1, do this for all registers, skipping any that are - assumed to have been saved by regsets_store_inferior_registers, - unless ALL is non-zero. - Otherwise, REGNO specifies which register (so we can save time). */ -static void -usr_store_inferior_registers (const struct regs_info *regs_info, - struct regcache *regcache, int regno, int all) -{ - struct usrregs_info *usr = regs_info->usrregs; - - if (regno == -1) - { - for (regno = 0; regno < usr->num_regs; regno++) - if (all || !linux_register_in_regsets (regs_info, regno)) - store_register (usr, regcache, regno); - } - else - store_register (usr, regcache, regno); -} - -#else /* !HAVE_LINUX_USRREGS */ - -#define usr_fetch_inferior_registers(regs_info, regcache, regno, all) do {} while (0) -#define usr_store_inferior_registers(regs_info, regcache, regno, all) do {} while (0) - -#endif - - -static void -linux_fetch_registers (struct regcache *regcache, int regno) -{ - int use_regsets; - int all = 0; - const struct regs_info *regs_info = (*the_low_target.regs_info) (); - - if (regno == -1) - { - if (the_low_target.fetch_register != NULL - && regs_info->usrregs != NULL) - for (regno = 0; regno < regs_info->usrregs->num_regs; regno++) - (*the_low_target.fetch_register) (regcache, regno); - - all = regsets_fetch_inferior_registers (regs_info->regsets_info, regcache); - if (regs_info->usrregs != NULL) - usr_fetch_inferior_registers (regs_info, regcache, -1, all); - } - else - { - if (the_low_target.fetch_register != NULL - && (*the_low_target.fetch_register) (regcache, regno)) - return; - - use_regsets = linux_register_in_regsets (regs_info, regno); - if (use_regsets) - all = regsets_fetch_inferior_registers (regs_info->regsets_info, - regcache); - if ((!use_regsets || all) && regs_info->usrregs != NULL) - usr_fetch_inferior_registers (regs_info, regcache, regno, 1); - } -} - -static void -linux_store_registers (struct regcache *regcache, int regno) -{ - int use_regsets; - int all = 0; - const struct regs_info *regs_info = (*the_low_target.regs_info) (); - - if (regno == -1) - { - all = regsets_store_inferior_registers (regs_info->regsets_info, - regcache); - if (regs_info->usrregs != NULL) - usr_store_inferior_registers (regs_info, regcache, regno, all); - } - else - { - use_regsets = linux_register_in_regsets (regs_info, regno); - if (use_regsets) - all = regsets_store_inferior_registers (regs_info->regsets_info, - regcache); - if ((!use_regsets || all) && regs_info->usrregs != NULL) - usr_store_inferior_registers (regs_info, regcache, regno, 1); - } -} - - -/* Copy LEN bytes from inferior's memory starting at MEMADDR - to debugger memory starting at MYADDR. */ - -static int -linux_read_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) -{ - int pid = lwpid_of (current_thread); - PTRACE_XFER_TYPE *buffer; - CORE_ADDR addr; - int count; - char filename[64]; - int i; - int ret; - int fd; - - /* Try using /proc. Don't bother for one word. */ - if (len >= 3 * sizeof (long)) - { - int bytes; - - /* We could keep this file open and cache it - possibly one per - thread. That requires some juggling, but is even faster. */ - sprintf (filename, "/proc/%d/mem", pid); - fd = open (filename, O_RDONLY | O_LARGEFILE); - if (fd == -1) - goto no_proc; - - /* If pread64 is available, use it. It's faster if the kernel - supports it (only one syscall), and it's 64-bit safe even on - 32-bit platforms (for instance, SPARC debugging a SPARC64 - application). */ -#ifdef HAVE_PREAD64 - bytes = pread64 (fd, myaddr, len, memaddr); -#else - bytes = -1; - if (lseek (fd, memaddr, SEEK_SET) != -1) - bytes = read (fd, myaddr, len); -#endif - - close (fd); - if (bytes == len) - return 0; - - /* Some data was read, we'll try to get the rest with ptrace. */ - if (bytes > 0) - { - memaddr += bytes; - myaddr += bytes; - len -= bytes; - } - } - - no_proc: - /* Round starting address down to longword boundary. */ - addr = memaddr & -(CORE_ADDR) sizeof (PTRACE_XFER_TYPE); - /* Round ending address up; get number of longwords that makes. */ - count = ((((memaddr + len) - addr) + sizeof (PTRACE_XFER_TYPE) - 1) - / sizeof (PTRACE_XFER_TYPE)); - /* Allocate buffer of that many longwords. */ - buffer = XALLOCAVEC (PTRACE_XFER_TYPE, count); - - /* Read all the longwords */ - errno = 0; - for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE)) - { - /* Coerce the 3rd arg to a uintptr_t first to avoid potential gcc warning - about coercing an 8 byte integer to a 4 byte pointer. */ - buffer[i] = ptrace (PTRACE_PEEKTEXT, pid, - (PTRACE_TYPE_ARG3) (uintptr_t) addr, - (PTRACE_TYPE_ARG4) 0); - if (errno) - break; - } - ret = errno; - - /* Copy appropriate bytes out of the buffer. */ - if (i > 0) - { - i *= sizeof (PTRACE_XFER_TYPE); - i -= memaddr & (sizeof (PTRACE_XFER_TYPE) - 1); - memcpy (myaddr, - (char *) buffer + (memaddr & (sizeof (PTRACE_XFER_TYPE) - 1)), - i < len ? i : len); - } - - return ret; -} - -/* Copy LEN bytes of data from debugger memory at MYADDR to inferior's - memory at MEMADDR. On failure (cannot write to the inferior) - returns the value of errno. Always succeeds if LEN is zero. */ - -static int -linux_write_memory (CORE_ADDR memaddr, const unsigned char *myaddr, int len) -{ - int i; - /* Round starting address down to longword boundary. */ - CORE_ADDR addr = memaddr & -(CORE_ADDR) sizeof (PTRACE_XFER_TYPE); - /* Round ending address up; get number of longwords that makes. */ - int count - = (((memaddr + len) - addr) + sizeof (PTRACE_XFER_TYPE) - 1) - / sizeof (PTRACE_XFER_TYPE); - - /* Allocate buffer of that many longwords. */ - PTRACE_XFER_TYPE *buffer = XALLOCAVEC (PTRACE_XFER_TYPE, count); - - int pid = lwpid_of (current_thread); - - if (len == 0) - { - /* Zero length write always succeeds. */ - return 0; - } - - if (debug_threads) - { - /* Dump up to four bytes. */ - char str[4 * 2 + 1]; - char *p = str; - int dump = len < 4 ? len : 4; - - for (i = 0; i < dump; i++) - { - sprintf (p, "%02x", myaddr[i]); - p += 2; - } - *p = '\0'; - - debug_printf ("Writing %s to 0x%08lx in process %d\n", - str, (long) memaddr, pid); - } - - /* Fill start and end extra bytes of buffer with existing memory data. */ - - errno = 0; - /* Coerce the 3rd arg to a uintptr_t first to avoid potential gcc warning - about coercing an 8 byte integer to a 4 byte pointer. */ - buffer[0] = ptrace (PTRACE_PEEKTEXT, pid, - (PTRACE_TYPE_ARG3) (uintptr_t) addr, - (PTRACE_TYPE_ARG4) 0); - if (errno) - return errno; - - if (count > 1) - { - errno = 0; - buffer[count - 1] - = ptrace (PTRACE_PEEKTEXT, pid, - /* Coerce to a uintptr_t first to avoid potential gcc warning - about coercing an 8 byte integer to a 4 byte pointer. */ - (PTRACE_TYPE_ARG3) (uintptr_t) (addr + (count - 1) - * sizeof (PTRACE_XFER_TYPE)), - (PTRACE_TYPE_ARG4) 0); - if (errno) - return errno; - } - - /* Copy data to be written over corresponding part of buffer. */ - - memcpy ((char *) buffer + (memaddr & (sizeof (PTRACE_XFER_TYPE) - 1)), - myaddr, len); - - /* Write the entire buffer. */ - - for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE)) - { - errno = 0; - ptrace (PTRACE_POKETEXT, pid, - /* Coerce to a uintptr_t first to avoid potential gcc warning - about coercing an 8 byte integer to a 4 byte pointer. */ - (PTRACE_TYPE_ARG3) (uintptr_t) addr, - (PTRACE_TYPE_ARG4) buffer[i]); - if (errno) - return errno; - } - - return 0; -} - -static void -linux_look_up_symbols (void) -{ -#ifdef USE_THREAD_DB - struct process_info *proc = current_process (); - - if (proc->priv->thread_db != NULL) - return; - - thread_db_init (); -#endif -} - -static void -linux_request_interrupt (void) -{ - /* Send a SIGINT to the process group. This acts just like the user - typed a ^C on the controlling terminal. */ - kill (-signal_pid, SIGINT); -} - -/* Copy LEN bytes from inferior's auxiliary vector starting at OFFSET - to debugger memory starting at MYADDR. */ - -static int -linux_read_auxv (CORE_ADDR offset, unsigned char *myaddr, unsigned int len) -{ - char filename[PATH_MAX]; - int fd, n; - int pid = lwpid_of (current_thread); - - xsnprintf (filename, sizeof filename, "/proc/%d/auxv", pid); - - fd = open (filename, O_RDONLY); - if (fd < 0) - return -1; - - if (offset != (CORE_ADDR) 0 - && lseek (fd, (off_t) offset, SEEK_SET) != (off_t) offset) - n = -1; - else - n = read (fd, myaddr, len); - - close (fd); - - return n; -} - -/* These breakpoint and watchpoint related wrapper functions simply - pass on the function call if the target has registered a - corresponding function. */ - -static int -linux_supports_z_point_type (char z_type) -{ - return (the_low_target.supports_z_point_type != NULL - && the_low_target.supports_z_point_type (z_type)); -} - -static int -linux_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, - int size, struct raw_breakpoint *bp) -{ - if (type == raw_bkpt_type_sw) - return insert_memory_breakpoint (bp); - else if (the_low_target.insert_point != NULL) - return the_low_target.insert_point (type, addr, size, bp); - else - /* Unsupported (see target.h). */ - return 1; -} - -static int -linux_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, - int size, struct raw_breakpoint *bp) -{ - if (type == raw_bkpt_type_sw) - return remove_memory_breakpoint (bp); - else if (the_low_target.remove_point != NULL) - return the_low_target.remove_point (type, addr, size, bp); - else - /* Unsupported (see target.h). */ - return 1; -} - -/* Implement the to_stopped_by_sw_breakpoint target_ops - method. */ - -static int -linux_stopped_by_sw_breakpoint (void) -{ - struct lwp_info *lwp = get_thread_lwp (current_thread); - - return (lwp->stop_reason == TARGET_STOPPED_BY_SW_BREAKPOINT); -} - -/* Implement the to_supports_stopped_by_sw_breakpoint target_ops - method. */ - -static int -linux_supports_stopped_by_sw_breakpoint (void) -{ - return USE_SIGTRAP_SIGINFO; -} - -/* Implement the to_stopped_by_hw_breakpoint target_ops - method. */ - -static int -linux_stopped_by_hw_breakpoint (void) -{ - struct lwp_info *lwp = get_thread_lwp (current_thread); - - return (lwp->stop_reason == TARGET_STOPPED_BY_HW_BREAKPOINT); -} - -/* Implement the to_supports_stopped_by_hw_breakpoint target_ops - method. */ - -static int -linux_supports_stopped_by_hw_breakpoint (void) -{ - return USE_SIGTRAP_SIGINFO; -} - -/* Implement the supports_hardware_single_step target_ops method. */ - -static int -linux_supports_hardware_single_step (void) -{ - return can_hardware_single_step (); -} - -static int -linux_supports_software_single_step (void) -{ - return can_software_single_step (); -} - -static int -linux_stopped_by_watchpoint (void) -{ - struct lwp_info *lwp = get_thread_lwp (current_thread); - - return lwp->stop_reason == TARGET_STOPPED_BY_WATCHPOINT; -} - -static CORE_ADDR -linux_stopped_data_address (void) -{ - struct lwp_info *lwp = get_thread_lwp (current_thread); - - return lwp->stopped_data_address; -} - -#if defined(__UCLIBC__) && defined(HAS_NOMMU) \ - && defined(PT_TEXT_ADDR) && defined(PT_DATA_ADDR) \ - && defined(PT_TEXT_END_ADDR) - -/* This is only used for targets that define PT_TEXT_ADDR, - PT_DATA_ADDR and PT_TEXT_END_ADDR. If those are not defined, supposedly - the target has different ways of acquiring this information, like - loadmaps. */ - -/* Under uClinux, programs are loaded at non-zero offsets, which we need - to tell gdb about. */ - -static int -linux_read_offsets (CORE_ADDR *text_p, CORE_ADDR *data_p) -{ - unsigned long text, text_end, data; - int pid = lwpid_of (current_thread); - - errno = 0; - - text = ptrace (PTRACE_PEEKUSER, pid, (PTRACE_TYPE_ARG3) PT_TEXT_ADDR, - (PTRACE_TYPE_ARG4) 0); - text_end = ptrace (PTRACE_PEEKUSER, pid, (PTRACE_TYPE_ARG3) PT_TEXT_END_ADDR, - (PTRACE_TYPE_ARG4) 0); - data = ptrace (PTRACE_PEEKUSER, pid, (PTRACE_TYPE_ARG3) PT_DATA_ADDR, - (PTRACE_TYPE_ARG4) 0); - - if (errno == 0) - { - /* Both text and data offsets produced at compile-time (and so - used by gdb) are relative to the beginning of the program, - with the data segment immediately following the text segment. - However, the actual runtime layout in memory may put the data - somewhere else, so when we send gdb a data base-address, we - use the real data base address and subtract the compile-time - data base-address from it (which is just the length of the - text segment). BSS immediately follows data in both - cases. */ - *text_p = text; - *data_p = data - (text_end - text); - - return 1; - } - return 0; -} -#endif - -static int -linux_qxfer_osdata (const char *annex, - unsigned char *readbuf, unsigned const char *writebuf, - CORE_ADDR offset, int len) -{ - return linux_common_xfer_osdata (annex, readbuf, offset, len); -} - -/* Convert a native/host siginfo object, into/from the siginfo in the - layout of the inferiors' architecture. */ - -static void -siginfo_fixup (siginfo_t *siginfo, gdb_byte *inf_siginfo, int direction) -{ - int done = 0; - - if (the_low_target.siginfo_fixup != NULL) - done = the_low_target.siginfo_fixup (siginfo, inf_siginfo, direction); - - /* If there was no callback, or the callback didn't do anything, - then just do a straight memcpy. */ - if (!done) - { - if (direction == 1) - memcpy (siginfo, inf_siginfo, sizeof (siginfo_t)); - else - memcpy (inf_siginfo, siginfo, sizeof (siginfo_t)); - } -} - -static int -linux_xfer_siginfo (const char *annex, unsigned char *readbuf, - unsigned const char *writebuf, CORE_ADDR offset, int len) -{ - int pid; - siginfo_t siginfo; - gdb_byte inf_siginfo[sizeof (siginfo_t)]; - - if (current_thread == NULL) - return -1; - - pid = lwpid_of (current_thread); - - if (debug_threads) - debug_printf ("%s siginfo for lwp %d.\n", - readbuf != NULL ? "Reading" : "Writing", - pid); - - if (offset >= sizeof (siginfo)) - return -1; - - if (ptrace (PTRACE_GETSIGINFO, pid, (PTRACE_TYPE_ARG3) 0, &siginfo) != 0) - return -1; - - /* When GDBSERVER is built as a 64-bit application, ptrace writes into - SIGINFO an object with 64-bit layout. Since debugging a 32-bit - inferior with a 64-bit GDBSERVER should look the same as debugging it - with a 32-bit GDBSERVER, we need to convert it. */ - siginfo_fixup (&siginfo, inf_siginfo, 0); - - if (offset + len > sizeof (siginfo)) - len = sizeof (siginfo) - offset; - - if (readbuf != NULL) - memcpy (readbuf, inf_siginfo + offset, len); - else - { - memcpy (inf_siginfo + offset, writebuf, len); - - /* Convert back to ptrace layout before flushing it out. */ - siginfo_fixup (&siginfo, inf_siginfo, 1); - - if (ptrace (PTRACE_SETSIGINFO, pid, (PTRACE_TYPE_ARG3) 0, &siginfo) != 0) - return -1; - } - - return len; -} - -/* SIGCHLD handler that serves two purposes: In non-stop/async mode, - so we notice when children change state; as the handler for the - sigsuspend in my_waitpid. */ - -static void -sigchld_handler (int signo) -{ - int old_errno = errno; - - if (debug_threads) - { - do - { - /* Use the async signal safe debug function. */ - if (debug_write ("sigchld_handler\n", - sizeof ("sigchld_handler\n") - 1) < 0) - break; /* just ignore */ - } while (0); - } - - if (target_is_async_p ()) - async_file_mark (); /* trigger a linux_wait */ - - errno = old_errno; -} - -static int -linux_supports_non_stop (void) -{ - return 1; -} - -static int -linux_async (int enable) -{ - int previous = target_is_async_p (); - - if (debug_threads) - debug_printf ("linux_async (%d), previous=%d\n", - enable, previous); - - if (previous != enable) - { - sigset_t mask; - sigemptyset (&mask); - sigaddset (&mask, SIGCHLD); - - gdb_sigmask (SIG_BLOCK, &mask, NULL); - - if (enable) - { - if (pipe (linux_event_pipe) == -1) - { - linux_event_pipe[0] = -1; - linux_event_pipe[1] = -1; - gdb_sigmask (SIG_UNBLOCK, &mask, NULL); - - warning ("creating event pipe failed."); - return previous; - } - - fcntl (linux_event_pipe[0], F_SETFL, O_NONBLOCK); - fcntl (linux_event_pipe[1], F_SETFL, O_NONBLOCK); - - /* Register the event loop handler. */ - add_file_handler (linux_event_pipe[0], - handle_target_event, NULL); - - /* Always trigger a linux_wait. */ - async_file_mark (); - } - else - { - delete_file_handler (linux_event_pipe[0]); - - close (linux_event_pipe[0]); - close (linux_event_pipe[1]); - linux_event_pipe[0] = -1; - linux_event_pipe[1] = -1; - } - - gdb_sigmask (SIG_UNBLOCK, &mask, NULL); - } - - return previous; -} - -static int -linux_start_non_stop (int nonstop) -{ - /* Register or unregister from event-loop accordingly. */ - linux_async (nonstop); - - if (target_is_async_p () != (nonstop != 0)) - return -1; - - return 0; -} - -static int -linux_supports_multi_process (void) -{ - return 1; -} - -/* Check if fork events are supported. */ - -static int -linux_supports_fork_events (void) -{ - return linux_supports_tracefork (); -} - -/* Check if vfork events are supported. */ - -static int -linux_supports_vfork_events (void) -{ - return linux_supports_tracefork (); -} - -/* Check if exec events are supported. */ - -static int -linux_supports_exec_events (void) -{ - return linux_supports_traceexec (); -} - -/* Target hook for 'handle_new_gdb_connection'. Causes a reset of the - ptrace flags for all inferiors. This is in case the new GDB connection - doesn't support the same set of events that the previous one did. */ - -static void -linux_handle_new_gdb_connection (void) -{ - /* Request that all the lwps reset their ptrace options. */ - for_each_thread ([] (thread_info *thread) - { - struct lwp_info *lwp = get_thread_lwp (thread); - - if (!lwp->stopped) - { - /* Stop the lwp so we can modify its ptrace options. */ - lwp->must_set_ptrace_flags = 1; - linux_stop_lwp (lwp); - } - else - { - /* Already stopped; go ahead and set the ptrace options. */ - struct process_info *proc = find_process_pid (pid_of (thread)); - int options = linux_low_ptrace_options (proc->attached); - - linux_enable_event_reporting (lwpid_of (thread), options); - lwp->must_set_ptrace_flags = 0; - } - }); -} - -static int -linux_supports_disable_randomization (void) -{ -#ifdef HAVE_PERSONALITY - return 1; -#else - return 0; -#endif -} - -static int -linux_supports_agent (void) -{ - return 1; -} - -static int -linux_supports_range_stepping (void) -{ - if (can_software_single_step ()) - return 1; - if (*the_low_target.supports_range_stepping == NULL) - return 0; - - return (*the_low_target.supports_range_stepping) (); -} - -#if defined PT_GETDSBT || defined PTRACE_GETFDPIC -struct target_loadseg -{ - /* Core address to which the segment is mapped. */ - Elf32_Addr addr; - /* VMA recorded in the program header. */ - Elf32_Addr p_vaddr; - /* Size of this segment in memory. */ - Elf32_Word p_memsz; -}; - -# if defined PT_GETDSBT -struct target_loadmap -{ - /* Protocol version number, must be zero. */ - Elf32_Word version; - /* Pointer to the DSBT table, its size, and the DSBT index. */ - unsigned *dsbt_table; - unsigned dsbt_size, dsbt_index; - /* Number of segments in this map. */ - Elf32_Word nsegs; - /* The actual memory map. */ - struct target_loadseg segs[/*nsegs*/]; -}; -# define LINUX_LOADMAP PT_GETDSBT -# define LINUX_LOADMAP_EXEC PTRACE_GETDSBT_EXEC -# define LINUX_LOADMAP_INTERP PTRACE_GETDSBT_INTERP -# else -struct target_loadmap -{ - /* Protocol version number, must be zero. */ - Elf32_Half version; - /* Number of segments in this map. */ - Elf32_Half nsegs; - /* The actual memory map. */ - struct target_loadseg segs[/*nsegs*/]; -}; -# define LINUX_LOADMAP PTRACE_GETFDPIC -# define LINUX_LOADMAP_EXEC PTRACE_GETFDPIC_EXEC -# define LINUX_LOADMAP_INTERP PTRACE_GETFDPIC_INTERP -# endif - -static int -linux_read_loadmap (const char *annex, CORE_ADDR offset, - unsigned char *myaddr, unsigned int len) -{ - int pid = lwpid_of (current_thread); - int addr = -1; - struct target_loadmap *data = NULL; - unsigned int actual_length, copy_length; - - if (strcmp (annex, "exec") == 0) - addr = (int) LINUX_LOADMAP_EXEC; - else if (strcmp (annex, "interp") == 0) - addr = (int) LINUX_LOADMAP_INTERP; - else - return -1; - - if (ptrace (LINUX_LOADMAP, pid, addr, &data) != 0) - return -1; - - if (data == NULL) - return -1; - - actual_length = sizeof (struct target_loadmap) - + sizeof (struct target_loadseg) * data->nsegs; - - if (offset < 0 || offset > actual_length) - return -1; - - copy_length = actual_length - offset < len ? actual_length - offset : len; - memcpy (myaddr, (char *) data + offset, copy_length); - return copy_length; -} -#else -# define linux_read_loadmap NULL -#endif /* defined PT_GETDSBT || defined PTRACE_GETFDPIC */ - -static void -linux_process_qsupported (char **features, int count) -{ - if (the_low_target.process_qsupported != NULL) - the_low_target.process_qsupported (features, count); -} - -static int -linux_supports_catch_syscall (void) -{ - return (the_low_target.get_syscall_trapinfo != NULL - && linux_supports_tracesysgood ()); -} - -static int -linux_get_ipa_tdesc_idx (void) -{ - if (the_low_target.get_ipa_tdesc_idx == NULL) - return 0; - - return (*the_low_target.get_ipa_tdesc_idx) (); -} - -static int -linux_supports_tracepoints (void) -{ - if (*the_low_target.supports_tracepoints == NULL) - return 0; - - return (*the_low_target.supports_tracepoints) (); -} - -static CORE_ADDR -linux_read_pc (struct regcache *regcache) -{ - if (the_low_target.get_pc == NULL) - return 0; - - return (*the_low_target.get_pc) (regcache); -} - -static void -linux_write_pc (struct regcache *regcache, CORE_ADDR pc) -{ - gdb_assert (the_low_target.set_pc != NULL); - - (*the_low_target.set_pc) (regcache, pc); -} - -static int -linux_thread_stopped (struct thread_info *thread) -{ - return get_thread_lwp (thread)->stopped; -} - -/* This exposes stop-all-threads functionality to other modules. */ - -static void -linux_pause_all (int freeze) -{ - stop_all_lwps (freeze, NULL); -} - -/* This exposes unstop-all-threads functionality to other gdbserver - modules. */ - -static void -linux_unpause_all (int unfreeze) -{ - unstop_all_lwps (unfreeze, NULL); -} - -static int -linux_prepare_to_access_memory (void) -{ - /* Neither ptrace nor /proc/PID/mem allow accessing memory through a - running LWP. */ - if (non_stop) - linux_pause_all (1); - return 0; -} - -static void -linux_done_accessing_memory (void) -{ - /* Neither ptrace nor /proc/PID/mem allow accessing memory through a - running LWP. */ - if (non_stop) - linux_unpause_all (1); -} - -static int -linux_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, CORE_ADDR tpaddr, - CORE_ADDR collector, - CORE_ADDR lockaddr, - ULONGEST orig_size, - CORE_ADDR *jump_entry, - CORE_ADDR *trampoline, - ULONGEST *trampoline_size, - unsigned char *jjump_pad_insn, - ULONGEST *jjump_pad_insn_size, - CORE_ADDR *adjusted_insn_addr, - CORE_ADDR *adjusted_insn_addr_end, - char *err) -{ - return (*the_low_target.install_fast_tracepoint_jump_pad) - (tpoint, tpaddr, collector, lockaddr, orig_size, - jump_entry, trampoline, trampoline_size, - jjump_pad_insn, jjump_pad_insn_size, - adjusted_insn_addr, adjusted_insn_addr_end, - err); -} - -static struct emit_ops * -linux_emit_ops (void) -{ - if (the_low_target.emit_ops != NULL) - return (*the_low_target.emit_ops) (); - else - return NULL; -} - -static int -linux_get_min_fast_tracepoint_insn_len (void) -{ - return (*the_low_target.get_min_fast_tracepoint_insn_len) (); -} - -/* Extract &phdr and num_phdr in the inferior. Return 0 on success. */ - -static int -get_phdr_phnum_from_proc_auxv (const int pid, const int is_elf64, - CORE_ADDR *phdr_memaddr, int *num_phdr) -{ - char filename[PATH_MAX]; - int fd; - const int auxv_size = is_elf64 - ? sizeof (Elf64_auxv_t) : sizeof (Elf32_auxv_t); - char buf[sizeof (Elf64_auxv_t)]; /* The larger of the two. */ - - xsnprintf (filename, sizeof filename, "/proc/%d/auxv", pid); - - fd = open (filename, O_RDONLY); - if (fd < 0) - return 1; - - *phdr_memaddr = 0; - *num_phdr = 0; - while (read (fd, buf, auxv_size) == auxv_size - && (*phdr_memaddr == 0 || *num_phdr == 0)) - { - if (is_elf64) - { - Elf64_auxv_t *const aux = (Elf64_auxv_t *) buf; - - switch (aux->a_type) - { - case AT_PHDR: - *phdr_memaddr = aux->a_un.a_val; - break; - case AT_PHNUM: - *num_phdr = aux->a_un.a_val; - break; - } - } - else - { - Elf32_auxv_t *const aux = (Elf32_auxv_t *) buf; - - switch (aux->a_type) - { - case AT_PHDR: - *phdr_memaddr = aux->a_un.a_val; - break; - case AT_PHNUM: - *num_phdr = aux->a_un.a_val; - break; - } - } - } - - close (fd); - - if (*phdr_memaddr == 0 || *num_phdr == 0) - { - warning ("Unexpected missing AT_PHDR and/or AT_PHNUM: " - "phdr_memaddr = %ld, phdr_num = %d", - (long) *phdr_memaddr, *num_phdr); - return 2; - } - - return 0; -} - -/* Return &_DYNAMIC (via PT_DYNAMIC) in the inferior, or 0 if not present. */ - -static CORE_ADDR -get_dynamic (const int pid, const int is_elf64) -{ - CORE_ADDR phdr_memaddr, relocation; - int num_phdr, i; - unsigned char *phdr_buf; - const int phdr_size = is_elf64 ? sizeof (Elf64_Phdr) : sizeof (Elf32_Phdr); - - if (get_phdr_phnum_from_proc_auxv (pid, is_elf64, &phdr_memaddr, &num_phdr)) - return 0; - - gdb_assert (num_phdr < 100); /* Basic sanity check. */ - phdr_buf = (unsigned char *) alloca (num_phdr * phdr_size); - - if (linux_read_memory (phdr_memaddr, phdr_buf, num_phdr * phdr_size)) - return 0; - - /* Compute relocation: it is expected to be 0 for "regular" executables, - non-zero for PIE ones. */ - relocation = -1; - for (i = 0; relocation == -1 && i < num_phdr; i++) - if (is_elf64) - { - Elf64_Phdr *const p = (Elf64_Phdr *) (phdr_buf + i * phdr_size); - - if (p->p_type == PT_PHDR) - relocation = phdr_memaddr - p->p_vaddr; - } - else - { - Elf32_Phdr *const p = (Elf32_Phdr *) (phdr_buf + i * phdr_size); - - if (p->p_type == PT_PHDR) - relocation = phdr_memaddr - p->p_vaddr; - } - - if (relocation == -1) - { - /* PT_PHDR is optional, but necessary for PIE in general. Fortunately - any real world executables, including PIE executables, have always - PT_PHDR present. PT_PHDR is not present in some shared libraries or - in fpc (Free Pascal 2.4) binaries but neither of those have a need for - or present DT_DEBUG anyway (fpc binaries are statically linked). - - Therefore if there exists DT_DEBUG there is always also PT_PHDR. - - GDB could find RELOCATION also from AT_ENTRY - e_entry. */ - - return 0; - } - - for (i = 0; i < num_phdr; i++) - { - if (is_elf64) - { - Elf64_Phdr *const p = (Elf64_Phdr *) (phdr_buf + i * phdr_size); - - if (p->p_type == PT_DYNAMIC) - return p->p_vaddr + relocation; - } - else - { - Elf32_Phdr *const p = (Elf32_Phdr *) (phdr_buf + i * phdr_size); - - if (p->p_type == PT_DYNAMIC) - return p->p_vaddr + relocation; - } - } - - return 0; -} - -/* Return &_r_debug in the inferior, or -1 if not present. Return value - can be 0 if the inferior does not yet have the library list initialized. - We look for DT_MIPS_RLD_MAP first. MIPS executables use this instead of - DT_DEBUG, although they sometimes contain an unused DT_DEBUG entry too. */ - -static CORE_ADDR -get_r_debug (const int pid, const int is_elf64) -{ - CORE_ADDR dynamic_memaddr; - const int dyn_size = is_elf64 ? sizeof (Elf64_Dyn) : sizeof (Elf32_Dyn); - unsigned char buf[sizeof (Elf64_Dyn)]; /* The larger of the two. */ - CORE_ADDR map = -1; - - dynamic_memaddr = get_dynamic (pid, is_elf64); - if (dynamic_memaddr == 0) - return map; - - while (linux_read_memory (dynamic_memaddr, buf, dyn_size) == 0) - { - if (is_elf64) - { - Elf64_Dyn *const dyn = (Elf64_Dyn *) buf; -#if defined DT_MIPS_RLD_MAP || defined DT_MIPS_RLD_MAP_REL - union - { - Elf64_Xword map; - unsigned char buf[sizeof (Elf64_Xword)]; - } - rld_map; -#endif -#ifdef DT_MIPS_RLD_MAP - if (dyn->d_tag == DT_MIPS_RLD_MAP) - { - if (linux_read_memory (dyn->d_un.d_val, - rld_map.buf, sizeof (rld_map.buf)) == 0) - return rld_map.map; - else - break; - } -#endif /* DT_MIPS_RLD_MAP */ -#ifdef DT_MIPS_RLD_MAP_REL - if (dyn->d_tag == DT_MIPS_RLD_MAP_REL) - { - if (linux_read_memory (dyn->d_un.d_val + dynamic_memaddr, - rld_map.buf, sizeof (rld_map.buf)) == 0) - return rld_map.map; - else - break; - } -#endif /* DT_MIPS_RLD_MAP_REL */ - - if (dyn->d_tag == DT_DEBUG && map == -1) - map = dyn->d_un.d_val; - - if (dyn->d_tag == DT_NULL) - break; - } - else - { - Elf32_Dyn *const dyn = (Elf32_Dyn *) buf; -#if defined DT_MIPS_RLD_MAP || defined DT_MIPS_RLD_MAP_REL - union - { - Elf32_Word map; - unsigned char buf[sizeof (Elf32_Word)]; - } - rld_map; -#endif -#ifdef DT_MIPS_RLD_MAP - if (dyn->d_tag == DT_MIPS_RLD_MAP) - { - if (linux_read_memory (dyn->d_un.d_val, - rld_map.buf, sizeof (rld_map.buf)) == 0) - return rld_map.map; - else - break; - } -#endif /* DT_MIPS_RLD_MAP */ -#ifdef DT_MIPS_RLD_MAP_REL - if (dyn->d_tag == DT_MIPS_RLD_MAP_REL) - { - if (linux_read_memory (dyn->d_un.d_val + dynamic_memaddr, - rld_map.buf, sizeof (rld_map.buf)) == 0) - return rld_map.map; - else - break; - } -#endif /* DT_MIPS_RLD_MAP_REL */ - - if (dyn->d_tag == DT_DEBUG && map == -1) - map = dyn->d_un.d_val; - - if (dyn->d_tag == DT_NULL) - break; - } - - dynamic_memaddr += dyn_size; - } - - return map; -} - -/* Read one pointer from MEMADDR in the inferior. */ - -static int -read_one_ptr (CORE_ADDR memaddr, CORE_ADDR *ptr, int ptr_size) -{ - int ret; - - /* Go through a union so this works on either big or little endian - hosts, when the inferior's pointer size is smaller than the size - of CORE_ADDR. It is assumed the inferior's endianness is the - same of the superior's. */ - union - { - CORE_ADDR core_addr; - unsigned int ui; - unsigned char uc; - } addr; - - ret = linux_read_memory (memaddr, &addr.uc, ptr_size); - if (ret == 0) - { - if (ptr_size == sizeof (CORE_ADDR)) - *ptr = addr.core_addr; - else if (ptr_size == sizeof (unsigned int)) - *ptr = addr.ui; - else - gdb_assert_not_reached ("unhandled pointer size"); - } - return ret; -} - -struct link_map_offsets - { - /* Offset and size of r_debug.r_version. */ - int r_version_offset; - - /* Offset and size of r_debug.r_map. */ - int r_map_offset; - - /* Offset to l_addr field in struct link_map. */ - int l_addr_offset; - - /* Offset to l_name field in struct link_map. */ - int l_name_offset; - - /* Offset to l_ld field in struct link_map. */ - int l_ld_offset; - - /* Offset to l_next field in struct link_map. */ - int l_next_offset; - - /* Offset to l_prev field in struct link_map. */ - int l_prev_offset; - }; - -/* Construct qXfer:libraries-svr4:read reply. */ - -static int -linux_qxfer_libraries_svr4 (const char *annex, unsigned char *readbuf, - unsigned const char *writebuf, - CORE_ADDR offset, int len) -{ - struct process_info_private *const priv = current_process ()->priv; - char filename[PATH_MAX]; - int pid, is_elf64; - - static const struct link_map_offsets lmo_32bit_offsets = - { - 0, /* r_version offset. */ - 4, /* r_debug.r_map offset. */ - 0, /* l_addr offset in link_map. */ - 4, /* l_name offset in link_map. */ - 8, /* l_ld offset in link_map. */ - 12, /* l_next offset in link_map. */ - 16 /* l_prev offset in link_map. */ - }; - - static const struct link_map_offsets lmo_64bit_offsets = - { - 0, /* r_version offset. */ - 8, /* r_debug.r_map offset. */ - 0, /* l_addr offset in link_map. */ - 8, /* l_name offset in link_map. */ - 16, /* l_ld offset in link_map. */ - 24, /* l_next offset in link_map. */ - 32 /* l_prev offset in link_map. */ - }; - const struct link_map_offsets *lmo; - unsigned int machine; - int ptr_size; - CORE_ADDR lm_addr = 0, lm_prev = 0; - CORE_ADDR l_name, l_addr, l_ld, l_next, l_prev; - int header_done = 0; - - if (writebuf != NULL) - return -2; - if (readbuf == NULL) - return -1; - - pid = lwpid_of (current_thread); - xsnprintf (filename, sizeof filename, "/proc/%d/exe", pid); - is_elf64 = elf_64_file_p (filename, &machine); - lmo = is_elf64 ? &lmo_64bit_offsets : &lmo_32bit_offsets; - ptr_size = is_elf64 ? 8 : 4; - - while (annex[0] != '\0') - { - const char *sep; - CORE_ADDR *addrp; - int name_len; - - sep = strchr (annex, '='); - if (sep == NULL) - break; - - name_len = sep - annex; - if (name_len == 5 && startswith (annex, "start")) - addrp = &lm_addr; - else if (name_len == 4 && startswith (annex, "prev")) - addrp = &lm_prev; - else - { - annex = strchr (sep, ';'); - if (annex == NULL) - break; - annex++; - continue; - } - - annex = decode_address_to_semicolon (addrp, sep + 1); - } - - if (lm_addr == 0) - { - int r_version = 0; - - if (priv->r_debug == 0) - priv->r_debug = get_r_debug (pid, is_elf64); - - /* We failed to find DT_DEBUG. Such situation will not change - for this inferior - do not retry it. Report it to GDB as - E01, see for the reasons at the GDB solib-svr4.c side. */ - if (priv->r_debug == (CORE_ADDR) -1) - return -1; - - if (priv->r_debug != 0) - { - if (linux_read_memory (priv->r_debug + lmo->r_version_offset, - (unsigned char *) &r_version, - sizeof (r_version)) != 0 - || r_version != 1) - { - warning ("unexpected r_debug version %d", r_version); - } - else if (read_one_ptr (priv->r_debug + lmo->r_map_offset, - &lm_addr, ptr_size) != 0) - { - warning ("unable to read r_map from 0x%lx", - (long) priv->r_debug + lmo->r_map_offset); - } - } - } - - std::string document = "l_name_offset, - &l_name, ptr_size) == 0 - && read_one_ptr (lm_addr + lmo->l_addr_offset, - &l_addr, ptr_size) == 0 - && read_one_ptr (lm_addr + lmo->l_ld_offset, - &l_ld, ptr_size) == 0 - && read_one_ptr (lm_addr + lmo->l_prev_offset, - &l_prev, ptr_size) == 0 - && read_one_ptr (lm_addr + lmo->l_next_offset, - &l_next, ptr_size) == 0) - { - unsigned char libname[PATH_MAX]; - - if (lm_prev != l_prev) - { - warning ("Corrupted shared library list: 0x%lx != 0x%lx", - (long) lm_prev, (long) l_prev); - break; - } - - /* Ignore the first entry even if it has valid name as the first entry - corresponds to the main executable. The first entry should not be - skipped if the dynamic loader was loaded late by a static executable - (see solib-svr4.c parameter ignore_first). But in such case the main - executable does not have PT_DYNAMIC present and this function already - exited above due to failed get_r_debug. */ - if (lm_prev == 0) - string_appendf (document, " main-lm=\"0x%lx\"", (unsigned long) lm_addr); - else - { - /* Not checking for error because reading may stop before - we've got PATH_MAX worth of characters. */ - libname[0] = '\0'; - linux_read_memory (l_name, libname, sizeof (libname) - 1); - libname[sizeof (libname) - 1] = '\0'; - if (libname[0] != '\0') - { - if (!header_done) - { - /* Terminate `", - (unsigned long) lm_addr, (unsigned long) l_addr, - (unsigned long) l_ld); - } - } - - lm_prev = lm_addr; - lm_addr = l_next; - } - - if (!header_done) - { - /* Empty list; terminate ` document_len) - len = document_len; - - memcpy (readbuf, document.data () + offset, len); - - return len; -} - -#ifdef HAVE_LINUX_BTRACE - -/* See to_disable_btrace target method. */ - -static int -linux_low_disable_btrace (struct btrace_target_info *tinfo) -{ - enum btrace_error err; - - err = linux_disable_btrace (tinfo); - return (err == BTRACE_ERR_NONE ? 0 : -1); -} - -/* Encode an Intel Processor Trace configuration. */ - -static void -linux_low_encode_pt_config (struct buffer *buffer, - const struct btrace_data_pt_config *config) -{ - buffer_grow_str (buffer, "\n"); - - switch (config->cpu.vendor) - { - case CV_INTEL: - buffer_xml_printf (buffer, "\n", - config->cpu.family, config->cpu.model, - config->cpu.stepping); - break; - - default: - break; - } - - buffer_grow_str (buffer, "\n"); -} - -/* Encode a raw buffer. */ - -static void -linux_low_encode_raw (struct buffer *buffer, const gdb_byte *data, - unsigned int size) -{ - if (size == 0) - return; - - /* We use hex encoding - see gdbsupport/rsp-low.h. */ - buffer_grow_str (buffer, "\n"); - - while (size-- > 0) - { - char elem[2]; - - elem[0] = tohex ((*data >> 4) & 0xf); - elem[1] = tohex (*data++ & 0xf); - - buffer_grow (buffer, elem, 2); - } - - buffer_grow_str (buffer, "\n"); -} - -/* See to_read_btrace target method. */ - -static int -linux_low_read_btrace (struct btrace_target_info *tinfo, struct buffer *buffer, - enum btrace_read_type type) -{ - struct btrace_data btrace; - enum btrace_error err; - - err = linux_read_btrace (&btrace, tinfo, type); - if (err != BTRACE_ERR_NONE) - { - if (err == BTRACE_ERR_OVERFLOW) - buffer_grow_str0 (buffer, "E.Overflow."); - else - buffer_grow_str0 (buffer, "E.Generic Error."); - - return -1; - } - - switch (btrace.format) - { - case BTRACE_FORMAT_NONE: - buffer_grow_str0 (buffer, "E.No Trace."); - return -1; - - case BTRACE_FORMAT_BTS: - buffer_grow_str (buffer, "\n"); - buffer_grow_str (buffer, "\n"); - - for (const btrace_block &block : *btrace.variant.bts.blocks) - buffer_xml_printf (buffer, "\n", - paddress (block.begin), paddress (block.end)); - - buffer_grow_str0 (buffer, "\n"); - break; - - case BTRACE_FORMAT_PT: - buffer_grow_str (buffer, "\n"); - buffer_grow_str (buffer, "\n"); - buffer_grow_str (buffer, "\n"); - - linux_low_encode_pt_config (buffer, &btrace.variant.pt.config); - - linux_low_encode_raw (buffer, btrace.variant.pt.data, - btrace.variant.pt.size); - - buffer_grow_str (buffer, "\n"); - buffer_grow_str0 (buffer, "\n"); - break; - - default: - buffer_grow_str0 (buffer, "E.Unsupported Trace Format."); - return -1; - } - - return 0; -} - -/* See to_btrace_conf target method. */ - -static int -linux_low_btrace_conf (const struct btrace_target_info *tinfo, - struct buffer *buffer) -{ - const struct btrace_config *conf; - - buffer_grow_str (buffer, "\n"); - buffer_grow_str (buffer, "\n"); - - conf = linux_btrace_conf (tinfo); - if (conf != NULL) - { - switch (conf->format) - { - case BTRACE_FORMAT_NONE: - break; - - case BTRACE_FORMAT_BTS: - buffer_xml_printf (buffer, "bts.size); - buffer_xml_printf (buffer, " />\n"); - break; - - case BTRACE_FORMAT_PT: - buffer_xml_printf (buffer, "pt.size); - buffer_xml_printf (buffer, "/>\n"); - break; - } - } - - buffer_grow_str0 (buffer, "\n"); - return 0; -} -#endif /* HAVE_LINUX_BTRACE */ - -/* See nat/linux-nat.h. */ - -ptid_t -current_lwp_ptid (void) -{ - return ptid_of (current_thread); -} - -/* Implementation of the target_ops method "breakpoint_kind_from_pc". */ - -static int -linux_breakpoint_kind_from_pc (CORE_ADDR *pcptr) -{ - if (the_low_target.breakpoint_kind_from_pc != NULL) - return (*the_low_target.breakpoint_kind_from_pc) (pcptr); - else - return default_breakpoint_kind_from_pc (pcptr); -} - -/* Implementation of the target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -linux_sw_breakpoint_from_kind (int kind, int *size) -{ - gdb_assert (the_low_target.sw_breakpoint_from_kind != NULL); - - return (*the_low_target.sw_breakpoint_from_kind) (kind, size); -} - -/* Implementation of the target_ops method - "breakpoint_kind_from_current_state". */ - -static int -linux_breakpoint_kind_from_current_state (CORE_ADDR *pcptr) -{ - if (the_low_target.breakpoint_kind_from_current_state != NULL) - return (*the_low_target.breakpoint_kind_from_current_state) (pcptr); - else - return linux_breakpoint_kind_from_pc (pcptr); -} - -/* Default implementation of linux_target_ops method "set_pc" for - 32-bit pc register which is literally named "pc". */ - -void -linux_set_pc_32bit (struct regcache *regcache, CORE_ADDR pc) -{ - uint32_t newpc = pc; - - supply_register_by_name (regcache, "pc", &newpc); -} - -/* Default implementation of linux_target_ops method "get_pc" for - 32-bit pc register which is literally named "pc". */ - -CORE_ADDR -linux_get_pc_32bit (struct regcache *regcache) -{ - uint32_t pc; - - collect_register_by_name (regcache, "pc", &pc); - if (debug_threads) - debug_printf ("stop pc is 0x%" PRIx32 "\n", pc); - return pc; -} - -/* Default implementation of linux_target_ops method "set_pc" for - 64-bit pc register which is literally named "pc". */ - -void -linux_set_pc_64bit (struct regcache *regcache, CORE_ADDR pc) -{ - uint64_t newpc = pc; - - supply_register_by_name (regcache, "pc", &newpc); -} - -/* Default implementation of linux_target_ops method "get_pc" for - 64-bit pc register which is literally named "pc". */ - -CORE_ADDR -linux_get_pc_64bit (struct regcache *regcache) -{ - uint64_t pc; - - collect_register_by_name (regcache, "pc", &pc); - if (debug_threads) - debug_printf ("stop pc is 0x%" PRIx64 "\n", pc); - return pc; -} - -/* See linux-low.h. */ - -int -linux_get_auxv (int wordsize, CORE_ADDR match, CORE_ADDR *valp) -{ - gdb_byte *data = (gdb_byte *) alloca (2 * wordsize); - int offset = 0; - - gdb_assert (wordsize == 4 || wordsize == 8); - - while ((*the_target->read_auxv) (offset, data, 2 * wordsize) == 2 * wordsize) - { - if (wordsize == 4) - { - uint32_t *data_p = (uint32_t *) data; - if (data_p[0] == match) - { - *valp = data_p[1]; - return 1; - } - } - else - { - uint64_t *data_p = (uint64_t *) data; - if (data_p[0] == match) - { - *valp = data_p[1]; - return 1; - } - } - - offset += 2 * wordsize; - } - - return 0; -} - -/* See linux-low.h. */ - -CORE_ADDR -linux_get_hwcap (int wordsize) -{ - CORE_ADDR hwcap = 0; - linux_get_auxv (wordsize, AT_HWCAP, &hwcap); - return hwcap; -} - -/* See linux-low.h. */ - -CORE_ADDR -linux_get_hwcap2 (int wordsize) -{ - CORE_ADDR hwcap2 = 0; - linux_get_auxv (wordsize, AT_HWCAP2, &hwcap2); - return hwcap2; -} - -static process_stratum_target linux_target_ops = { - linux_create_inferior, - linux_post_create_inferior, - linux_attach, - linux_kill, - linux_detach, - linux_mourn, - linux_join, - linux_thread_alive, - linux_resume, - linux_wait, - linux_fetch_registers, - linux_store_registers, - linux_prepare_to_access_memory, - linux_done_accessing_memory, - linux_read_memory, - linux_write_memory, - linux_look_up_symbols, - linux_request_interrupt, - linux_read_auxv, - linux_supports_z_point_type, - linux_insert_point, - linux_remove_point, - linux_stopped_by_sw_breakpoint, - linux_supports_stopped_by_sw_breakpoint, - linux_stopped_by_hw_breakpoint, - linux_supports_stopped_by_hw_breakpoint, - linux_supports_hardware_single_step, - linux_stopped_by_watchpoint, - linux_stopped_data_address, -#if defined(__UCLIBC__) && defined(HAS_NOMMU) \ - && defined(PT_TEXT_ADDR) && defined(PT_DATA_ADDR) \ - && defined(PT_TEXT_END_ADDR) - linux_read_offsets, -#else - NULL, -#endif -#ifdef USE_THREAD_DB - thread_db_get_tls_address, -#else - NULL, -#endif - hostio_last_error_from_errno, - linux_qxfer_osdata, - linux_xfer_siginfo, - linux_supports_non_stop, - linux_async, - linux_start_non_stop, - linux_supports_multi_process, - linux_supports_fork_events, - linux_supports_vfork_events, - linux_supports_exec_events, - linux_handle_new_gdb_connection, -#ifdef USE_THREAD_DB - thread_db_handle_monitor_command, -#else - NULL, -#endif - linux_common_core_of_thread, - linux_read_loadmap, - linux_process_qsupported, - linux_supports_tracepoints, - linux_read_pc, - linux_write_pc, - linux_thread_stopped, - NULL, - linux_pause_all, - linux_unpause_all, - linux_stabilize_threads, - linux_install_fast_tracepoint_jump_pad, - linux_emit_ops, - linux_supports_disable_randomization, - linux_get_min_fast_tracepoint_insn_len, - linux_qxfer_libraries_svr4, - linux_supports_agent, -#ifdef HAVE_LINUX_BTRACE - linux_enable_btrace, - linux_low_disable_btrace, - linux_low_read_btrace, - linux_low_btrace_conf, -#else - NULL, - NULL, - NULL, - NULL, -#endif - linux_supports_range_stepping, - linux_proc_pid_to_exec_file, - linux_mntns_open_cloexec, - linux_mntns_unlink, - linux_mntns_readlink, - linux_breakpoint_kind_from_pc, - linux_sw_breakpoint_from_kind, - linux_proc_tid_get_name, - linux_breakpoint_kind_from_current_state, - linux_supports_software_single_step, - linux_supports_catch_syscall, - linux_get_ipa_tdesc_idx, -#if USE_THREAD_DB - thread_db_thread_handle, -#else - NULL, -#endif -}; - -#ifdef HAVE_LINUX_REGSETS -void -initialize_regsets_info (struct regsets_info *info) -{ - for (info->num_regsets = 0; - info->regsets[info->num_regsets].size >= 0; - info->num_regsets++) - ; -} -#endif - -void -initialize_low (void) -{ - struct sigaction sigchld_action; - - memset (&sigchld_action, 0, sizeof (sigchld_action)); - set_target_ops (&linux_target_ops); - - linux_ptrace_init_warnings (); - linux_proc_init_warnings (); - - sigchld_action.sa_handler = sigchld_handler; - sigemptyset (&sigchld_action.sa_mask); - sigchld_action.sa_flags = SA_RESTART; - sigaction (SIGCHLD, &sigchld_action, NULL); - - initialize_low_arch (); - - linux_check_ptrace_features (); -} diff --git a/gdbserver/linux-low.cc b/gdbserver/linux-low.cc new file mode 100644 index 00000000000..676dea26c63 --- /dev/null +++ b/gdbserver/linux-low.cc @@ -0,0 +1,7492 @@ +/* Low level interface to ptrace, for the remote server for GDB. + Copyright (C) 1995-2020 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 . */ + +#include "server.h" +#include "linux-low.h" +#include "nat/linux-osdata.h" +#include "gdbsupport/agent.h" +#include "tdesc.h" +#include "gdbsupport/rsp-low.h" +#include "gdbsupport/signals-state-save-restore.h" +#include "nat/linux-nat.h" +#include "nat/linux-waitpid.h" +#include "gdbsupport/gdb_wait.h" +#include "nat/gdb_ptrace.h" +#include "nat/linux-ptrace.h" +#include "nat/linux-procfs.h" +#include "nat/linux-personality.h" +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include "gdbsupport/filestuff.h" +#include "tracepoint.h" +#include "hostio.h" +#include +#include "gdbsupport/common-inferior.h" +#include "nat/fork-inferior.h" +#include "gdbsupport/environ.h" +#include "gdbsupport/gdb-sigmask.h" +#include "gdbsupport/scoped_restore.h" +#ifndef ELFMAG0 +/* Don't include here. If it got included by gdb_proc_service.h + then ELFMAG0 will have been defined. If it didn't get included by + gdb_proc_service.h then including it will likely introduce a duplicate + definition of elf_fpregset_t. */ +#include +#endif +#include "nat/linux-namespaces.h" + +#ifdef HAVE_PERSONALITY +# include +# if !HAVE_DECL_ADDR_NO_RANDOMIZE +# define ADDR_NO_RANDOMIZE 0x0040000 +# endif +#endif + +#ifndef O_LARGEFILE +#define O_LARGEFILE 0 +#endif + +#ifndef AT_HWCAP2 +#define AT_HWCAP2 26 +#endif + +/* Some targets did not define these ptrace constants from the start, + so gdbserver defines them locally here. In the future, these may + be removed after they are added to asm/ptrace.h. */ +#if !(defined(PT_TEXT_ADDR) \ + || defined(PT_DATA_ADDR) \ + || defined(PT_TEXT_END_ADDR)) +#if defined(__mcoldfire__) +/* These are still undefined in 3.10 kernels. */ +#define PT_TEXT_ADDR 49*4 +#define PT_DATA_ADDR 50*4 +#define PT_TEXT_END_ADDR 51*4 +/* BFIN already defines these since at least 2.6.32 kernels. */ +#elif defined(BFIN) +#define PT_TEXT_ADDR 220 +#define PT_TEXT_END_ADDR 224 +#define PT_DATA_ADDR 228 +/* These are still undefined in 3.10 kernels. */ +#elif defined(__TMS320C6X__) +#define PT_TEXT_ADDR (0x10000*4) +#define PT_DATA_ADDR (0x10004*4) +#define PT_TEXT_END_ADDR (0x10008*4) +#endif +#endif + +#ifdef HAVE_LINUX_BTRACE +# include "nat/linux-btrace.h" +# include "gdbsupport/btrace-common.h" +#endif + +#ifndef HAVE_ELF32_AUXV_T +/* Copied from glibc's elf.h. */ +typedef struct +{ + uint32_t a_type; /* Entry type */ + union + { + uint32_t a_val; /* Integer value */ + /* We use to have pointer elements added here. We cannot do that, + though, since it does not work when using 32-bit definitions + on 64-bit platforms and vice versa. */ + } a_un; +} Elf32_auxv_t; +#endif + +#ifndef HAVE_ELF64_AUXV_T +/* Copied from glibc's elf.h. */ +typedef struct +{ + uint64_t a_type; /* Entry type */ + union + { + uint64_t a_val; /* Integer value */ + /* We use to have pointer elements added here. We cannot do that, + though, since it does not work when using 32-bit definitions + on 64-bit platforms and vice versa. */ + } a_un; +} Elf64_auxv_t; +#endif + +/* Does the current host support PTRACE_GETREGSET? */ +int have_ptrace_getregset = -1; + +/* LWP accessors. */ + +/* See nat/linux-nat.h. */ + +ptid_t +ptid_of_lwp (struct lwp_info *lwp) +{ + return ptid_of (get_lwp_thread (lwp)); +} + +/* See nat/linux-nat.h. */ + +void +lwp_set_arch_private_info (struct lwp_info *lwp, + struct arch_lwp_info *info) +{ + lwp->arch_private = info; +} + +/* See nat/linux-nat.h. */ + +struct arch_lwp_info * +lwp_arch_private_info (struct lwp_info *lwp) +{ + return lwp->arch_private; +} + +/* See nat/linux-nat.h. */ + +int +lwp_is_stopped (struct lwp_info *lwp) +{ + return lwp->stopped; +} + +/* See nat/linux-nat.h. */ + +enum target_stop_reason +lwp_stop_reason (struct lwp_info *lwp) +{ + return lwp->stop_reason; +} + +/* See nat/linux-nat.h. */ + +int +lwp_is_stepping (struct lwp_info *lwp) +{ + return lwp->stepping; +} + +/* A list of all unknown processes which receive stop signals. Some + other process will presumably claim each of these as forked + children momentarily. */ + +struct simple_pid_list +{ + /* The process ID. */ + int pid; + + /* The status as reported by waitpid. */ + int status; + + /* Next in chain. */ + struct simple_pid_list *next; +}; +struct simple_pid_list *stopped_pids; + +/* Trivial list manipulation functions to keep track of a list of new + stopped processes. */ + +static void +add_to_pid_list (struct simple_pid_list **listp, int pid, int status) +{ + struct simple_pid_list *new_pid = XNEW (struct simple_pid_list); + + new_pid->pid = pid; + new_pid->status = status; + new_pid->next = *listp; + *listp = new_pid; +} + +static int +pull_pid_from_list (struct simple_pid_list **listp, int pid, int *statusp) +{ + struct simple_pid_list **p; + + for (p = listp; *p != NULL; p = &(*p)->next) + if ((*p)->pid == pid) + { + struct simple_pid_list *next = (*p)->next; + + *statusp = (*p)->status; + xfree (*p); + *p = next; + return 1; + } + return 0; +} + +enum stopping_threads_kind + { + /* Not stopping threads presently. */ + NOT_STOPPING_THREADS, + + /* Stopping threads. */ + STOPPING_THREADS, + + /* Stopping and suspending threads. */ + STOPPING_AND_SUSPENDING_THREADS + }; + +/* This is set while stop_all_lwps is in effect. */ +enum stopping_threads_kind stopping_threads = NOT_STOPPING_THREADS; + +/* FIXME make into a target method? */ +int using_threads = 1; + +/* True if we're presently stabilizing threads (moving them out of + jump pads). */ +static int stabilizing_threads; + +static void linux_resume_one_lwp (struct lwp_info *lwp, + int step, int signal, siginfo_t *info); +static void linux_resume (struct thread_resume *resume_info, size_t n); +static void stop_all_lwps (int suspend, struct lwp_info *except); +static void unstop_all_lwps (int unsuspend, struct lwp_info *except); +static void unsuspend_all_lwps (struct lwp_info *except); +static int linux_wait_for_event_filtered (ptid_t wait_ptid, ptid_t filter_ptid, + int *wstat, int options); +static int linux_wait_for_event (ptid_t ptid, int *wstat, int options); +static struct lwp_info *add_lwp (ptid_t ptid); +static void linux_mourn (struct process_info *process); +static int linux_stopped_by_watchpoint (void); +static void mark_lwp_dead (struct lwp_info *lwp, int wstat); +static int lwp_is_marked_dead (struct lwp_info *lwp); +static void proceed_all_lwps (void); +static int finish_step_over (struct lwp_info *lwp); +static int kill_lwp (unsigned long lwpid, int signo); +static void enqueue_pending_signal (struct lwp_info *lwp, int signal, siginfo_t *info); +static void complete_ongoing_step_over (void); +static int linux_low_ptrace_options (int attached); +static int check_ptrace_stopped_lwp_gone (struct lwp_info *lp); +static void proceed_one_lwp (thread_info *thread, lwp_info *except); + +/* When the event-loop is doing a step-over, this points at the thread + being stepped. */ +ptid_t step_over_bkpt; + +/* True if the low target can hardware single-step. */ + +static int +can_hardware_single_step (void) +{ + if (the_low_target.supports_hardware_single_step != NULL) + return the_low_target.supports_hardware_single_step (); + else + return 0; +} + +/* True if the low target can software single-step. Such targets + implement the GET_NEXT_PCS callback. */ + +static int +can_software_single_step (void) +{ + return (the_low_target.get_next_pcs != NULL); +} + +/* True if the low target supports memory breakpoints. If so, we'll + have a GET_PC implementation. */ + +static int +supports_breakpoints (void) +{ + return (the_low_target.get_pc != NULL); +} + +/* Returns true if this target can support fast tracepoints. This + does not mean that the in-process agent has been loaded in the + inferior. */ + +static int +supports_fast_tracepoints (void) +{ + return the_low_target.install_fast_tracepoint_jump_pad != NULL; +} + +/* True if LWP is stopped in its stepping range. */ + +static int +lwp_in_step_range (struct lwp_info *lwp) +{ + CORE_ADDR pc = lwp->stop_pc; + + return (pc >= lwp->step_range_start && pc < lwp->step_range_end); +} + +struct pending_signals +{ + int signal; + siginfo_t info; + struct pending_signals *prev; +}; + +/* The read/write ends of the pipe registered as waitable file in the + event loop. */ +static int linux_event_pipe[2] = { -1, -1 }; + +/* True if we're currently in async mode. */ +#define target_is_async_p() (linux_event_pipe[0] != -1) + +static void send_sigstop (struct lwp_info *lwp); +static void wait_for_sigstop (void); + +/* Return non-zero if HEADER is a 64-bit ELF file. */ + +static int +elf_64_header_p (const Elf64_Ehdr *header, unsigned int *machine) +{ + if (header->e_ident[EI_MAG0] == ELFMAG0 + && header->e_ident[EI_MAG1] == ELFMAG1 + && header->e_ident[EI_MAG2] == ELFMAG2 + && header->e_ident[EI_MAG3] == ELFMAG3) + { + *machine = header->e_machine; + return header->e_ident[EI_CLASS] == ELFCLASS64; + + } + *machine = EM_NONE; + return -1; +} + +/* Return non-zero if FILE is a 64-bit ELF file, + zero if the file is not a 64-bit ELF file, + and -1 if the file is not accessible or doesn't exist. */ + +static int +elf_64_file_p (const char *file, unsigned int *machine) +{ + Elf64_Ehdr header; + int fd; + + fd = open (file, O_RDONLY); + if (fd < 0) + return -1; + + if (read (fd, &header, sizeof (header)) != sizeof (header)) + { + close (fd); + return 0; + } + close (fd); + + return elf_64_header_p (&header, machine); +} + +/* Accepts an integer PID; Returns true if the executable PID is + running is a 64-bit ELF file.. */ + +int +linux_pid_exe_is_elf_64_file (int pid, unsigned int *machine) +{ + char file[PATH_MAX]; + + sprintf (file, "/proc/%d/exe", pid); + return elf_64_file_p (file, machine); +} + +static void +delete_lwp (struct lwp_info *lwp) +{ + struct thread_info *thr = get_lwp_thread (lwp); + + if (debug_threads) + debug_printf ("deleting %ld\n", lwpid_of (thr)); + + remove_thread (thr); + + if (the_low_target.delete_thread != NULL) + the_low_target.delete_thread (lwp->arch_private); + else + gdb_assert (lwp->arch_private == NULL); + + free (lwp); +} + +/* Add a process to the common process list, and set its private + data. */ + +static struct process_info * +linux_add_process (int pid, int attached) +{ + struct process_info *proc; + + proc = add_process (pid, attached); + proc->priv = XCNEW (struct process_info_private); + + if (the_low_target.new_process != NULL) + proc->priv->arch_private = the_low_target.new_process (); + + return proc; +} + +static CORE_ADDR get_pc (struct lwp_info *lwp); + +/* Call the target arch_setup function on the current thread. */ + +static void +linux_arch_setup (void) +{ + the_low_target.arch_setup (); +} + +/* Call the target arch_setup function on THREAD. */ + +static void +linux_arch_setup_thread (struct thread_info *thread) +{ + struct thread_info *saved_thread; + + saved_thread = current_thread; + current_thread = thread; + + linux_arch_setup (); + + current_thread = saved_thread; +} + +/* Handle a GNU/Linux extended wait response. If we see a clone, + fork, or vfork event, we need to add the new LWP to our list + (and return 0 so as not to report the trap to higher layers). + If we see an exec event, we will modify ORIG_EVENT_LWP to point + to a new LWP representing the new program. */ + +static int +handle_extended_wait (struct lwp_info **orig_event_lwp, int wstat) +{ + client_state &cs = get_client_state (); + struct lwp_info *event_lwp = *orig_event_lwp; + int event = linux_ptrace_get_extended_event (wstat); + struct thread_info *event_thr = get_lwp_thread (event_lwp); + struct lwp_info *new_lwp; + + gdb_assert (event_lwp->waitstatus.kind == TARGET_WAITKIND_IGNORE); + + /* All extended events we currently use are mid-syscall. Only + PTRACE_EVENT_STOP is delivered more like a signal-stop, but + you have to be using PTRACE_SEIZE to get that. */ + event_lwp->syscall_state = TARGET_WAITKIND_SYSCALL_ENTRY; + + if ((event == PTRACE_EVENT_FORK) || (event == PTRACE_EVENT_VFORK) + || (event == PTRACE_EVENT_CLONE)) + { + ptid_t ptid; + unsigned long new_pid; + int ret, status; + + /* Get the pid of the new lwp. */ + ptrace (PTRACE_GETEVENTMSG, lwpid_of (event_thr), (PTRACE_TYPE_ARG3) 0, + &new_pid); + + /* If we haven't already seen the new PID stop, wait for it now. */ + if (!pull_pid_from_list (&stopped_pids, new_pid, &status)) + { + /* The new child has a pending SIGSTOP. We can't affect it until it + hits the SIGSTOP, but we're already attached. */ + + ret = my_waitpid (new_pid, &status, __WALL); + + if (ret == -1) + perror_with_name ("waiting for new child"); + else if (ret != new_pid) + warning ("wait returned unexpected PID %d", ret); + else if (!WIFSTOPPED (status)) + warning ("wait returned unexpected status 0x%x", status); + } + + if (event == PTRACE_EVENT_FORK || event == PTRACE_EVENT_VFORK) + { + struct process_info *parent_proc; + struct process_info *child_proc; + struct lwp_info *child_lwp; + struct thread_info *child_thr; + struct target_desc *tdesc; + + ptid = ptid_t (new_pid, new_pid, 0); + + if (debug_threads) + { + debug_printf ("HEW: Got fork event from LWP %ld, " + "new child is %d\n", + ptid_of (event_thr).lwp (), + ptid.pid ()); + } + + /* Add the new process to the tables and clone the breakpoint + lists of the parent. We need to do this even if the new process + will be detached, since we will need the process object and the + breakpoints to remove any breakpoints from memory when we + detach, and the client side will access registers. */ + child_proc = linux_add_process (new_pid, 0); + gdb_assert (child_proc != NULL); + child_lwp = add_lwp (ptid); + gdb_assert (child_lwp != NULL); + child_lwp->stopped = 1; + child_lwp->must_set_ptrace_flags = 1; + child_lwp->status_pending_p = 0; + child_thr = get_lwp_thread (child_lwp); + child_thr->last_resume_kind = resume_stop; + child_thr->last_status.kind = TARGET_WAITKIND_STOPPED; + + /* If we're suspending all threads, leave this one suspended + too. If the fork/clone parent is stepping over a breakpoint, + all other threads have been suspended already. Leave the + child suspended too. */ + if (stopping_threads == STOPPING_AND_SUSPENDING_THREADS + || event_lwp->bp_reinsert != 0) + { + if (debug_threads) + debug_printf ("HEW: leaving child suspended\n"); + child_lwp->suspended = 1; + } + + parent_proc = get_thread_process (event_thr); + child_proc->attached = parent_proc->attached; + + if (event_lwp->bp_reinsert != 0 + && can_software_single_step () + && event == PTRACE_EVENT_VFORK) + { + /* If we leave single-step breakpoints there, child will + hit it, so uninsert single-step breakpoints from parent + (and child). Once vfork child is done, reinsert + them back to parent. */ + uninsert_single_step_breakpoints (event_thr); + } + + clone_all_breakpoints (child_thr, event_thr); + + tdesc = allocate_target_description (); + copy_target_description (tdesc, parent_proc->tdesc); + child_proc->tdesc = tdesc; + + /* Clone arch-specific process data. */ + if (the_low_target.new_fork != NULL) + the_low_target.new_fork (parent_proc, child_proc); + + /* Save fork info in the parent thread. */ + if (event == PTRACE_EVENT_FORK) + event_lwp->waitstatus.kind = TARGET_WAITKIND_FORKED; + else if (event == PTRACE_EVENT_VFORK) + event_lwp->waitstatus.kind = TARGET_WAITKIND_VFORKED; + + event_lwp->waitstatus.value.related_pid = ptid; + + /* The status_pending field contains bits denoting the + extended event, so when the pending event is handled, + the handler will look at lwp->waitstatus. */ + event_lwp->status_pending_p = 1; + event_lwp->status_pending = wstat; + + /* Link the threads until the parent event is passed on to + higher layers. */ + event_lwp->fork_relative = child_lwp; + child_lwp->fork_relative = event_lwp; + + /* If the parent thread is doing step-over with single-step + breakpoints, the list of single-step breakpoints are cloned + from the parent's. Remove them from the child process. + In case of vfork, we'll reinsert them back once vforked + child is done. */ + if (event_lwp->bp_reinsert != 0 + && can_software_single_step ()) + { + /* The child process is forked and stopped, so it is safe + to access its memory without stopping all other threads + from other processes. */ + delete_single_step_breakpoints (child_thr); + + gdb_assert (has_single_step_breakpoints (event_thr)); + gdb_assert (!has_single_step_breakpoints (child_thr)); + } + + /* Report the event. */ + return 0; + } + + if (debug_threads) + debug_printf ("HEW: Got clone event " + "from LWP %ld, new child is LWP %ld\n", + lwpid_of (event_thr), new_pid); + + ptid = ptid_t (pid_of (event_thr), new_pid, 0); + new_lwp = add_lwp (ptid); + + /* Either we're going to immediately resume the new thread + or leave it stopped. linux_resume_one_lwp is a nop if it + thinks the thread is currently running, so set this first + before calling linux_resume_one_lwp. */ + new_lwp->stopped = 1; + + /* If we're suspending all threads, leave this one suspended + too. If the fork/clone parent is stepping over a breakpoint, + all other threads have been suspended already. Leave the + child suspended too. */ + if (stopping_threads == STOPPING_AND_SUSPENDING_THREADS + || event_lwp->bp_reinsert != 0) + new_lwp->suspended = 1; + + /* Normally we will get the pending SIGSTOP. But in some cases + we might get another signal delivered to the group first. + If we do get another signal, be sure not to lose it. */ + if (WSTOPSIG (status) != SIGSTOP) + { + new_lwp->stop_expected = 1; + new_lwp->status_pending_p = 1; + new_lwp->status_pending = status; + } + else if (cs.report_thread_events) + { + new_lwp->waitstatus.kind = TARGET_WAITKIND_THREAD_CREATED; + new_lwp->status_pending_p = 1; + new_lwp->status_pending = status; + } + +#ifdef USE_THREAD_DB + thread_db_notice_clone (event_thr, ptid); +#endif + + /* Don't report the event. */ + return 1; + } + else if (event == PTRACE_EVENT_VFORK_DONE) + { + event_lwp->waitstatus.kind = TARGET_WAITKIND_VFORK_DONE; + + if (event_lwp->bp_reinsert != 0 && can_software_single_step ()) + { + reinsert_single_step_breakpoints (event_thr); + + gdb_assert (has_single_step_breakpoints (event_thr)); + } + + /* Report the event. */ + return 0; + } + else if (event == PTRACE_EVENT_EXEC && cs.report_exec_events) + { + struct process_info *proc; + std::vector syscalls_to_catch; + ptid_t event_ptid; + pid_t event_pid; + + if (debug_threads) + { + debug_printf ("HEW: Got exec event from LWP %ld\n", + lwpid_of (event_thr)); + } + + /* Get the event ptid. */ + event_ptid = ptid_of (event_thr); + event_pid = event_ptid.pid (); + + /* Save the syscall list from the execing process. */ + proc = get_thread_process (event_thr); + syscalls_to_catch = std::move (proc->syscalls_to_catch); + + /* Delete the execing process and all its threads. */ + linux_mourn (proc); + current_thread = NULL; + + /* Create a new process/lwp/thread. */ + proc = linux_add_process (event_pid, 0); + event_lwp = add_lwp (event_ptid); + event_thr = get_lwp_thread (event_lwp); + gdb_assert (current_thread == event_thr); + linux_arch_setup_thread (event_thr); + + /* Set the event status. */ + event_lwp->waitstatus.kind = TARGET_WAITKIND_EXECD; + event_lwp->waitstatus.value.execd_pathname + = xstrdup (linux_proc_pid_to_exec_file (lwpid_of (event_thr))); + + /* Mark the exec status as pending. */ + event_lwp->stopped = 1; + event_lwp->status_pending_p = 1; + event_lwp->status_pending = wstat; + event_thr->last_resume_kind = resume_continue; + event_thr->last_status.kind = TARGET_WAITKIND_IGNORE; + + /* Update syscall state in the new lwp, effectively mid-syscall too. */ + event_lwp->syscall_state = TARGET_WAITKIND_SYSCALL_ENTRY; + + /* Restore the list to catch. Don't rely on the client, which is free + to avoid sending a new list when the architecture doesn't change. + Also, for ANY_SYSCALL, the architecture doesn't really matter. */ + proc->syscalls_to_catch = std::move (syscalls_to_catch); + + /* Report the event. */ + *orig_event_lwp = event_lwp; + return 0; + } + + internal_error (__FILE__, __LINE__, _("unknown ptrace event %d"), event); +} + +/* Return the PC as read from the regcache of LWP, without any + adjustment. */ + +static CORE_ADDR +get_pc (struct lwp_info *lwp) +{ + struct thread_info *saved_thread; + struct regcache *regcache; + CORE_ADDR pc; + + if (the_low_target.get_pc == NULL) + return 0; + + saved_thread = current_thread; + current_thread = get_lwp_thread (lwp); + + regcache = get_thread_regcache (current_thread, 1); + pc = (*the_low_target.get_pc) (regcache); + + if (debug_threads) + debug_printf ("pc is 0x%lx\n", (long) pc); + + current_thread = saved_thread; + return pc; +} + +/* This function should only be called if LWP got a SYSCALL_SIGTRAP. + Fill *SYSNO with the syscall nr trapped. */ + +static void +get_syscall_trapinfo (struct lwp_info *lwp, int *sysno) +{ + struct thread_info *saved_thread; + struct regcache *regcache; + + if (the_low_target.get_syscall_trapinfo == NULL) + { + /* If we cannot get the syscall trapinfo, report an unknown + system call number. */ + *sysno = UNKNOWN_SYSCALL; + return; + } + + saved_thread = current_thread; + current_thread = get_lwp_thread (lwp); + + regcache = get_thread_regcache (current_thread, 1); + (*the_low_target.get_syscall_trapinfo) (regcache, sysno); + + if (debug_threads) + debug_printf ("get_syscall_trapinfo sysno %d\n", *sysno); + + current_thread = saved_thread; +} + +static int check_stopped_by_watchpoint (struct lwp_info *child); + +/* Called when the LWP stopped for a signal/trap. If it stopped for a + trap check what caused it (breakpoint, watchpoint, trace, etc.), + and save the result in the LWP's stop_reason field. If it stopped + for a breakpoint, decrement the PC if necessary on the lwp's + architecture. Returns true if we now have the LWP's stop PC. */ + +static int +save_stop_reason (struct lwp_info *lwp) +{ + CORE_ADDR pc; + CORE_ADDR sw_breakpoint_pc; + struct thread_info *saved_thread; +#if USE_SIGTRAP_SIGINFO + siginfo_t siginfo; +#endif + + if (the_low_target.get_pc == NULL) + return 0; + + pc = get_pc (lwp); + sw_breakpoint_pc = pc - the_low_target.decr_pc_after_break; + + /* breakpoint_at reads from the current thread. */ + saved_thread = current_thread; + current_thread = get_lwp_thread (lwp); + +#if USE_SIGTRAP_SIGINFO + if (ptrace (PTRACE_GETSIGINFO, lwpid_of (current_thread), + (PTRACE_TYPE_ARG3) 0, &siginfo) == 0) + { + if (siginfo.si_signo == SIGTRAP) + { + if (GDB_ARCH_IS_TRAP_BRKPT (siginfo.si_code) + && GDB_ARCH_IS_TRAP_HWBKPT (siginfo.si_code)) + { + /* The si_code is ambiguous on this arch -- check debug + registers. */ + if (!check_stopped_by_watchpoint (lwp)) + lwp->stop_reason = TARGET_STOPPED_BY_SW_BREAKPOINT; + } + else if (GDB_ARCH_IS_TRAP_BRKPT (siginfo.si_code)) + { + /* If we determine the LWP stopped for a SW breakpoint, + trust it. Particularly don't check watchpoint + registers, because at least on s390, we'd find + stopped-by-watchpoint as long as there's a watchpoint + set. */ + lwp->stop_reason = TARGET_STOPPED_BY_SW_BREAKPOINT; + } + else if (GDB_ARCH_IS_TRAP_HWBKPT (siginfo.si_code)) + { + /* This can indicate either a hardware breakpoint or + hardware watchpoint. Check debug registers. */ + if (!check_stopped_by_watchpoint (lwp)) + lwp->stop_reason = TARGET_STOPPED_BY_HW_BREAKPOINT; + } + else if (siginfo.si_code == TRAP_TRACE) + { + /* We may have single stepped an instruction that + triggered a watchpoint. In that case, on some + architectures (such as x86), instead of TRAP_HWBKPT, + si_code indicates TRAP_TRACE, and we need to check + the debug registers separately. */ + if (!check_stopped_by_watchpoint (lwp)) + lwp->stop_reason = TARGET_STOPPED_BY_SINGLE_STEP; + } + } + } +#else + /* We may have just stepped a breakpoint instruction. E.g., in + non-stop mode, GDB first tells the thread A to step a range, and + then the user inserts a breakpoint inside the range. In that + case we need to report the breakpoint PC. */ + if ((!lwp->stepping || lwp->stop_pc == sw_breakpoint_pc) + && (*the_low_target.breakpoint_at) (sw_breakpoint_pc)) + lwp->stop_reason = TARGET_STOPPED_BY_SW_BREAKPOINT; + + if (hardware_breakpoint_inserted_here (pc)) + lwp->stop_reason = TARGET_STOPPED_BY_HW_BREAKPOINT; + + if (lwp->stop_reason == TARGET_STOPPED_BY_NO_REASON) + check_stopped_by_watchpoint (lwp); +#endif + + if (lwp->stop_reason == TARGET_STOPPED_BY_SW_BREAKPOINT) + { + if (debug_threads) + { + struct thread_info *thr = get_lwp_thread (lwp); + + debug_printf ("CSBB: %s stopped by software breakpoint\n", + target_pid_to_str (ptid_of (thr))); + } + + /* Back up the PC if necessary. */ + if (pc != sw_breakpoint_pc) + { + struct regcache *regcache + = get_thread_regcache (current_thread, 1); + (*the_low_target.set_pc) (regcache, sw_breakpoint_pc); + } + + /* Update this so we record the correct stop PC below. */ + pc = sw_breakpoint_pc; + } + else if (lwp->stop_reason == TARGET_STOPPED_BY_HW_BREAKPOINT) + { + if (debug_threads) + { + struct thread_info *thr = get_lwp_thread (lwp); + + debug_printf ("CSBB: %s stopped by hardware breakpoint\n", + target_pid_to_str (ptid_of (thr))); + } + } + else if (lwp->stop_reason == TARGET_STOPPED_BY_WATCHPOINT) + { + if (debug_threads) + { + struct thread_info *thr = get_lwp_thread (lwp); + + debug_printf ("CSBB: %s stopped by hardware watchpoint\n", + target_pid_to_str (ptid_of (thr))); + } + } + else if (lwp->stop_reason == TARGET_STOPPED_BY_SINGLE_STEP) + { + if (debug_threads) + { + struct thread_info *thr = get_lwp_thread (lwp); + + debug_printf ("CSBB: %s stopped by trace\n", + target_pid_to_str (ptid_of (thr))); + } + } + + lwp->stop_pc = pc; + current_thread = saved_thread; + return 1; +} + +static struct lwp_info * +add_lwp (ptid_t ptid) +{ + struct lwp_info *lwp; + + lwp = XCNEW (struct lwp_info); + + lwp->waitstatus.kind = TARGET_WAITKIND_IGNORE; + + lwp->thread = add_thread (ptid, lwp); + + if (the_low_target.new_thread != NULL) + the_low_target.new_thread (lwp); + + return lwp; +} + +/* Callback to be used when calling fork_inferior, responsible for + actually initiating the tracing of the inferior. */ + +static void +linux_ptrace_fun () +{ + if (ptrace (PTRACE_TRACEME, 0, (PTRACE_TYPE_ARG3) 0, + (PTRACE_TYPE_ARG4) 0) < 0) + trace_start_error_with_name ("ptrace"); + + if (setpgid (0, 0) < 0) + trace_start_error_with_name ("setpgid"); + + /* If GDBserver is connected to gdb via stdio, redirect the inferior's + stdout to stderr so that inferior i/o doesn't corrupt the connection. + Also, redirect stdin to /dev/null. */ + if (remote_connection_is_stdio ()) + { + if (close (0) < 0) + trace_start_error_with_name ("close"); + if (open ("/dev/null", O_RDONLY) < 0) + trace_start_error_with_name ("open"); + if (dup2 (2, 1) < 0) + trace_start_error_with_name ("dup2"); + if (write (2, "stdin/stdout redirected\n", + sizeof ("stdin/stdout redirected\n") - 1) < 0) + { + /* Errors ignored. */; + } + } +} + +/* Start an inferior process and returns its pid. + PROGRAM is the name of the program to be started, and PROGRAM_ARGS + are its arguments. */ + +static int +linux_create_inferior (const char *program, + const std::vector &program_args) +{ + client_state &cs = get_client_state (); + struct lwp_info *new_lwp; + int pid; + ptid_t ptid; + + { + maybe_disable_address_space_randomization restore_personality + (cs.disable_randomization); + std::string str_program_args = stringify_argv (program_args); + + pid = fork_inferior (program, + str_program_args.c_str (), + get_environ ()->envp (), linux_ptrace_fun, + NULL, NULL, NULL, NULL); + } + + linux_add_process (pid, 0); + + ptid = ptid_t (pid, pid, 0); + new_lwp = add_lwp (ptid); + new_lwp->must_set_ptrace_flags = 1; + + post_fork_inferior (pid, program); + + return pid; +} + +/* Implement the post_create_inferior target_ops method. */ + +static void +linux_post_create_inferior (void) +{ + struct lwp_info *lwp = get_thread_lwp (current_thread); + + linux_arch_setup (); + + if (lwp->must_set_ptrace_flags) + { + struct process_info *proc = current_process (); + int options = linux_low_ptrace_options (proc->attached); + + linux_enable_event_reporting (lwpid_of (current_thread), options); + lwp->must_set_ptrace_flags = 0; + } +} + +/* Attach to an inferior process. Returns 0 on success, ERRNO on + error. */ + +int +linux_attach_lwp (ptid_t ptid) +{ + struct lwp_info *new_lwp; + int lwpid = ptid.lwp (); + + if (ptrace (PTRACE_ATTACH, lwpid, (PTRACE_TYPE_ARG3) 0, (PTRACE_TYPE_ARG4) 0) + != 0) + return errno; + + new_lwp = add_lwp (ptid); + + /* We need to wait for SIGSTOP before being able to make the next + ptrace call on this LWP. */ + new_lwp->must_set_ptrace_flags = 1; + + if (linux_proc_pid_is_stopped (lwpid)) + { + if (debug_threads) + debug_printf ("Attached to a stopped process\n"); + + /* The process is definitely stopped. It is in a job control + stop, unless the kernel predates the TASK_STOPPED / + TASK_TRACED distinction, in which case it might be in a + ptrace stop. Make sure it is in a ptrace stop; from there we + can kill it, signal it, et cetera. + + First make sure there is a pending SIGSTOP. Since we are + already attached, the process can not transition from stopped + to running without a PTRACE_CONT; so we know this signal will + go into the queue. The SIGSTOP generated by PTRACE_ATTACH is + probably already in the queue (unless this kernel is old + enough to use TASK_STOPPED for ptrace stops); but since + SIGSTOP is not an RT signal, it can only be queued once. */ + kill_lwp (lwpid, SIGSTOP); + + /* Finally, resume the stopped process. This will deliver the + SIGSTOP (or a higher priority signal, just like normal + PTRACE_ATTACH), which we'll catch later on. */ + ptrace (PTRACE_CONT, lwpid, (PTRACE_TYPE_ARG3) 0, (PTRACE_TYPE_ARG4) 0); + } + + /* The next time we wait for this LWP we'll see a SIGSTOP as PTRACE_ATTACH + brings it to a halt. + + There are several cases to consider here: + + 1) gdbserver has already attached to the process and is being notified + of a new thread that is being created. + In this case we should ignore that SIGSTOP and resume the + process. This is handled below by setting stop_expected = 1, + and the fact that add_thread sets last_resume_kind == + resume_continue. + + 2) This is the first thread (the process thread), and we're attaching + to it via attach_inferior. + In this case we want the process thread to stop. + This is handled by having linux_attach set last_resume_kind == + resume_stop after we return. + + If the pid we are attaching to is also the tgid, we attach to and + stop all the existing threads. Otherwise, we attach to pid and + ignore any other threads in the same group as this pid. + + 3) GDB is connecting to gdbserver and is requesting an enumeration of all + existing threads. + In this case we want the thread to stop. + FIXME: This case is currently not properly handled. + We should wait for the SIGSTOP but don't. Things work apparently + because enough time passes between when we ptrace (ATTACH) and when + gdb makes the next ptrace call on the thread. + + On the other hand, if we are currently trying to stop all threads, we + should treat the new thread as if we had sent it a SIGSTOP. This works + because we are guaranteed that the add_lwp call above added us to the + end of the list, and so the new thread has not yet reached + wait_for_sigstop (but will). */ + new_lwp->stop_expected = 1; + + return 0; +} + +/* Callback for linux_proc_attach_tgid_threads. Attach to PTID if not + already attached. Returns true if a new LWP is found, false + otherwise. */ + +static int +attach_proc_task_lwp_callback (ptid_t ptid) +{ + /* Is this a new thread? */ + if (find_thread_ptid (ptid) == NULL) + { + int lwpid = ptid.lwp (); + int err; + + if (debug_threads) + debug_printf ("Found new lwp %d\n", lwpid); + + err = linux_attach_lwp (ptid); + + /* Be quiet if we simply raced with the thread exiting. EPERM + is returned if the thread's task still exists, and is marked + as exited or zombie, as well as other conditions, so in that + case, confirm the status in /proc/PID/status. */ + if (err == ESRCH + || (err == EPERM && linux_proc_pid_is_gone (lwpid))) + { + if (debug_threads) + { + debug_printf ("Cannot attach to lwp %d: " + "thread is gone (%d: %s)\n", + lwpid, err, safe_strerror (err)); + } + } + else if (err != 0) + { + std::string reason + = linux_ptrace_attach_fail_reason_string (ptid, err); + + warning (_("Cannot attach to lwp %d: %s"), lwpid, reason.c_str ()); + } + + return 1; + } + return 0; +} + +static void async_file_mark (void); + +/* Attach to PID. If PID is the tgid, attach to it and all + of its threads. */ + +static int +linux_attach (unsigned long pid) +{ + struct process_info *proc; + struct thread_info *initial_thread; + ptid_t ptid = ptid_t (pid, pid, 0); + int err; + + proc = linux_add_process (pid, 1); + + /* Attach to PID. We will check for other threads + soon. */ + err = linux_attach_lwp (ptid); + if (err != 0) + { + remove_process (proc); + + std::string reason = linux_ptrace_attach_fail_reason_string (ptid, err); + error ("Cannot attach to process %ld: %s", pid, reason.c_str ()); + } + + /* Don't ignore the initial SIGSTOP if we just attached to this + process. It will be collected by wait shortly. */ + initial_thread = find_thread_ptid (ptid_t (pid, pid, 0)); + initial_thread->last_resume_kind = resume_stop; + + /* We must attach to every LWP. If /proc is mounted, use that to + find them now. On the one hand, the inferior may be using raw + clone instead of using pthreads. On the other hand, even if it + is using pthreads, GDB may not be connected yet (thread_db needs + to do symbol lookups, through qSymbol). Also, thread_db walks + structures in the inferior's address space to find the list of + threads/LWPs, and those structures may well be corrupted. Note + that once thread_db is loaded, we'll still use it to list threads + and associate pthread info with each LWP. */ + linux_proc_attach_tgid_threads (pid, attach_proc_task_lwp_callback); + + /* GDB will shortly read the xml target description for this + process, to figure out the process' architecture. But the target + description is only filled in when the first process/thread in + the thread group reports its initial PTRACE_ATTACH SIGSTOP. Do + that now, otherwise, if GDB is fast enough, it could read the + target description _before_ that initial stop. */ + if (non_stop) + { + struct lwp_info *lwp; + int wstat, lwpid; + ptid_t pid_ptid = ptid_t (pid); + + lwpid = linux_wait_for_event_filtered (pid_ptid, pid_ptid, + &wstat, __WALL); + gdb_assert (lwpid > 0); + + lwp = find_lwp_pid (ptid_t (lwpid)); + + if (!WIFSTOPPED (wstat) || WSTOPSIG (wstat) != SIGSTOP) + { + lwp->status_pending_p = 1; + lwp->status_pending = wstat; + } + + initial_thread->last_resume_kind = resume_continue; + + async_file_mark (); + + gdb_assert (proc->tdesc != NULL); + } + + return 0; +} + +static int +last_thread_of_process_p (int pid) +{ + bool seen_one = false; + + thread_info *thread = find_thread (pid, [&] (thread_info *thr_arg) + { + if (!seen_one) + { + /* This is the first thread of this process we see. */ + seen_one = true; + return false; + } + else + { + /* This is the second thread of this process we see. */ + return true; + } + }); + + return thread == NULL; +} + +/* Kill LWP. */ + +static void +linux_kill_one_lwp (struct lwp_info *lwp) +{ + struct thread_info *thr = get_lwp_thread (lwp); + int pid = lwpid_of (thr); + + /* PTRACE_KILL is unreliable. After stepping into a signal handler, + there is no signal context, and ptrace(PTRACE_KILL) (or + ptrace(PTRACE_CONT, SIGKILL), pretty much the same) acts like + ptrace(CONT, pid, 0,0) and just resumes the tracee. A better + alternative is to kill with SIGKILL. We only need one SIGKILL + per process, not one for each thread. But since we still support + support debugging programs using raw clone without CLONE_THREAD, + we send one for each thread. For years, we used PTRACE_KILL + only, so we're being a bit paranoid about some old kernels where + PTRACE_KILL might work better (dubious if there are any such, but + that's why it's paranoia), so we try SIGKILL first, PTRACE_KILL + second, and so we're fine everywhere. */ + + errno = 0; + kill_lwp (pid, SIGKILL); + if (debug_threads) + { + int save_errno = errno; + + debug_printf ("LKL: kill_lwp (SIGKILL) %s, 0, 0 (%s)\n", + target_pid_to_str (ptid_of (thr)), + save_errno ? safe_strerror (save_errno) : "OK"); + } + + errno = 0; + ptrace (PTRACE_KILL, pid, (PTRACE_TYPE_ARG3) 0, (PTRACE_TYPE_ARG4) 0); + if (debug_threads) + { + int save_errno = errno; + + debug_printf ("LKL: PTRACE_KILL %s, 0, 0 (%s)\n", + target_pid_to_str (ptid_of (thr)), + save_errno ? safe_strerror (save_errno) : "OK"); + } +} + +/* Kill LWP and wait for it to die. */ + +static void +kill_wait_lwp (struct lwp_info *lwp) +{ + struct thread_info *thr = get_lwp_thread (lwp); + int pid = ptid_of (thr).pid (); + int lwpid = ptid_of (thr).lwp (); + int wstat; + int res; + + if (debug_threads) + debug_printf ("kwl: killing lwp %d, for pid: %d\n", lwpid, pid); + + do + { + linux_kill_one_lwp (lwp); + + /* Make sure it died. Notes: + + - The loop is most likely unnecessary. + + - We don't use linux_wait_for_event as that could delete lwps + while we're iterating over them. We're not interested in + any pending status at this point, only in making sure all + wait status on the kernel side are collected until the + process is reaped. + + - We don't use __WALL here as the __WALL emulation relies on + SIGCHLD, and killing a stopped process doesn't generate + one, nor an exit status. + */ + res = my_waitpid (lwpid, &wstat, 0); + if (res == -1 && errno == ECHILD) + res = my_waitpid (lwpid, &wstat, __WCLONE); + } while (res > 0 && WIFSTOPPED (wstat)); + + /* Even if it was stopped, the child may have already disappeared. + E.g., if it was killed by SIGKILL. */ + if (res < 0 && errno != ECHILD) + perror_with_name ("kill_wait_lwp"); +} + +/* Callback for `for_each_thread'. Kills an lwp of a given process, + except the leader. */ + +static void +kill_one_lwp_callback (thread_info *thread, int pid) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + + /* We avoid killing the first thread here, because of a Linux kernel (at + least 2.6.0-test7 through 2.6.8-rc4) bug; if we kill the parent before + the children get a chance to be reaped, it will remain a zombie + forever. */ + + if (lwpid_of (thread) == pid) + { + if (debug_threads) + debug_printf ("lkop: is last of process %s\n", + target_pid_to_str (thread->id)); + return; + } + + kill_wait_lwp (lwp); +} + +static int +linux_kill (process_info *process) +{ + int pid = process->pid; + + /* If we're killing a running inferior, make sure it is stopped + first, as PTRACE_KILL will not work otherwise. */ + stop_all_lwps (0, NULL); + + for_each_thread (pid, [&] (thread_info *thread) + { + kill_one_lwp_callback (thread, pid); + }); + + /* See the comment in linux_kill_one_lwp. We did not kill the first + thread in the list, so do so now. */ + lwp_info *lwp = find_lwp_pid (ptid_t (pid)); + + if (lwp == NULL) + { + if (debug_threads) + debug_printf ("lk_1: cannot find lwp for pid: %d\n", + pid); + } + else + kill_wait_lwp (lwp); + + the_target->mourn (process); + + /* Since we presently can only stop all lwps of all processes, we + need to unstop lwps of other processes. */ + unstop_all_lwps (0, NULL); + return 0; +} + +/* Get pending signal of THREAD, for detaching purposes. This is the + signal the thread last stopped for, which we need to deliver to the + thread when detaching, otherwise, it'd be suppressed/lost. */ + +static int +get_detach_signal (struct thread_info *thread) +{ + client_state &cs = get_client_state (); + enum gdb_signal signo = GDB_SIGNAL_0; + int status; + struct lwp_info *lp = get_thread_lwp (thread); + + if (lp->status_pending_p) + status = lp->status_pending; + else + { + /* If the thread had been suspended by gdbserver, and it stopped + cleanly, then it'll have stopped with SIGSTOP. But we don't + want to deliver that SIGSTOP. */ + if (thread->last_status.kind != TARGET_WAITKIND_STOPPED + || thread->last_status.value.sig == GDB_SIGNAL_0) + return 0; + + /* Otherwise, we may need to deliver the signal we + intercepted. */ + status = lp->last_status; + } + + if (!WIFSTOPPED (status)) + { + if (debug_threads) + debug_printf ("GPS: lwp %s hasn't stopped: no pending signal\n", + target_pid_to_str (ptid_of (thread))); + return 0; + } + + /* Extended wait statuses aren't real SIGTRAPs. */ + if (WSTOPSIG (status) == SIGTRAP && linux_is_extended_waitstatus (status)) + { + if (debug_threads) + debug_printf ("GPS: lwp %s had stopped with extended " + "status: no pending signal\n", + target_pid_to_str (ptid_of (thread))); + return 0; + } + + signo = gdb_signal_from_host (WSTOPSIG (status)); + + if (cs.program_signals_p && !cs.program_signals[signo]) + { + if (debug_threads) + debug_printf ("GPS: lwp %s had signal %s, but it is in nopass state\n", + target_pid_to_str (ptid_of (thread)), + gdb_signal_to_string (signo)); + return 0; + } + else if (!cs.program_signals_p + /* If we have no way to know which signals GDB does not + want to have passed to the program, assume + SIGTRAP/SIGINT, which is GDB's default. */ + && (signo == GDB_SIGNAL_TRAP || signo == GDB_SIGNAL_INT)) + { + if (debug_threads) + debug_printf ("GPS: lwp %s had signal %s, " + "but we don't know if we should pass it. " + "Default to not.\n", + target_pid_to_str (ptid_of (thread)), + gdb_signal_to_string (signo)); + return 0; + } + else + { + if (debug_threads) + debug_printf ("GPS: lwp %s has pending signal %s: delivering it.\n", + target_pid_to_str (ptid_of (thread)), + gdb_signal_to_string (signo)); + + return WSTOPSIG (status); + } +} + +/* Detach from LWP. */ + +static void +linux_detach_one_lwp (struct lwp_info *lwp) +{ + struct thread_info *thread = get_lwp_thread (lwp); + int sig; + int lwpid; + + /* If there is a pending SIGSTOP, get rid of it. */ + if (lwp->stop_expected) + { + if (debug_threads) + debug_printf ("Sending SIGCONT to %s\n", + target_pid_to_str (ptid_of (thread))); + + kill_lwp (lwpid_of (thread), SIGCONT); + lwp->stop_expected = 0; + } + + /* Pass on any pending signal for this thread. */ + sig = get_detach_signal (thread); + + /* Preparing to resume may try to write registers, and fail if the + lwp is zombie. If that happens, ignore the error. We'll handle + it below, when detach fails with ESRCH. */ + try + { + /* Flush any pending changes to the process's registers. */ + regcache_invalidate_thread (thread); + + /* Finally, let it resume. */ + if (the_low_target.prepare_to_resume != NULL) + the_low_target.prepare_to_resume (lwp); + } + catch (const gdb_exception_error &ex) + { + if (!check_ptrace_stopped_lwp_gone (lwp)) + throw; + } + + lwpid = lwpid_of (thread); + if (ptrace (PTRACE_DETACH, lwpid, (PTRACE_TYPE_ARG3) 0, + (PTRACE_TYPE_ARG4) (long) sig) < 0) + { + int save_errno = errno; + + /* We know the thread exists, so ESRCH must mean the lwp is + zombie. This can happen if one of the already-detached + threads exits the whole thread group. In that case we're + still attached, and must reap the lwp. */ + if (save_errno == ESRCH) + { + int ret, status; + + ret = my_waitpid (lwpid, &status, __WALL); + if (ret == -1) + { + warning (_("Couldn't reap LWP %d while detaching: %s"), + lwpid, safe_strerror (errno)); + } + else if (!WIFEXITED (status) && !WIFSIGNALED (status)) + { + warning (_("Reaping LWP %d while detaching " + "returned unexpected status 0x%x"), + lwpid, status); + } + } + else + { + error (_("Can't detach %s: %s"), + target_pid_to_str (ptid_of (thread)), + safe_strerror (save_errno)); + } + } + else if (debug_threads) + { + debug_printf ("PTRACE_DETACH (%s, %s, 0) (OK)\n", + target_pid_to_str (ptid_of (thread)), + strsignal (sig)); + } + + delete_lwp (lwp); +} + +/* Callback for for_each_thread. Detaches from non-leader threads of a + given process. */ + +static void +linux_detach_lwp_callback (thread_info *thread) +{ + /* We don't actually detach from the thread group leader just yet. + If the thread group exits, we must reap the zombie clone lwps + before we're able to reap the leader. */ + if (thread->id.pid () == thread->id.lwp ()) + return; + + lwp_info *lwp = get_thread_lwp (thread); + linux_detach_one_lwp (lwp); +} + +static int +linux_detach (process_info *process) +{ + struct lwp_info *main_lwp; + + /* As there's a step over already in progress, let it finish first, + otherwise nesting a stabilize_threads operation on top gets real + messy. */ + complete_ongoing_step_over (); + + /* Stop all threads before detaching. First, ptrace requires that + the thread is stopped to successfully detach. Second, thread_db + may need to uninstall thread event breakpoints from memory, which + only works with a stopped process anyway. */ + stop_all_lwps (0, NULL); + +#ifdef USE_THREAD_DB + thread_db_detach (process); +#endif + + /* Stabilize threads (move out of jump pads). */ + stabilize_threads (); + + /* Detach from the clone lwps first. If the thread group exits just + while we're detaching, we must reap the clone lwps before we're + able to reap the leader. */ + for_each_thread (process->pid, linux_detach_lwp_callback); + + main_lwp = find_lwp_pid (ptid_t (process->pid)); + linux_detach_one_lwp (main_lwp); + + the_target->mourn (process); + + /* Since we presently can only stop all lwps of all processes, we + need to unstop lwps of other processes. */ + unstop_all_lwps (0, NULL); + return 0; +} + +/* Remove all LWPs that belong to process PROC from the lwp list. */ + +static void +linux_mourn (struct process_info *process) +{ + struct process_info_private *priv; + +#ifdef USE_THREAD_DB + thread_db_mourn (process); +#endif + + for_each_thread (process->pid, [] (thread_info *thread) + { + delete_lwp (get_thread_lwp (thread)); + }); + + /* Freeing all private data. */ + priv = process->priv; + if (the_low_target.delete_process != NULL) + the_low_target.delete_process (priv->arch_private); + else + gdb_assert (priv->arch_private == NULL); + free (priv); + process->priv = NULL; + + remove_process (process); +} + +static void +linux_join (int pid) +{ + int status, ret; + + do { + ret = my_waitpid (pid, &status, 0); + if (WIFEXITED (status) || WIFSIGNALED (status)) + break; + } while (ret != -1 || errno != ECHILD); +} + +/* Return nonzero if the given thread is still alive. */ +static int +linux_thread_alive (ptid_t ptid) +{ + struct lwp_info *lwp = find_lwp_pid (ptid); + + /* We assume we always know if a thread exits. If a whole process + exited but we still haven't been able to report it to GDB, we'll + hold on to the last lwp of the dead process. */ + if (lwp != NULL) + return !lwp_is_marked_dead (lwp); + else + return 0; +} + +/* Return 1 if this lwp still has an interesting status pending. If + not (e.g., it had stopped for a breakpoint that is gone), return + false. */ + +static int +thread_still_has_status_pending_p (struct thread_info *thread) +{ + struct lwp_info *lp = get_thread_lwp (thread); + + if (!lp->status_pending_p) + return 0; + + if (thread->last_resume_kind != resume_stop + && (lp->stop_reason == TARGET_STOPPED_BY_SW_BREAKPOINT + || lp->stop_reason == TARGET_STOPPED_BY_HW_BREAKPOINT)) + { + struct thread_info *saved_thread; + CORE_ADDR pc; + int discard = 0; + + gdb_assert (lp->last_status != 0); + + pc = get_pc (lp); + + saved_thread = current_thread; + current_thread = thread; + + if (pc != lp->stop_pc) + { + if (debug_threads) + debug_printf ("PC of %ld changed\n", + lwpid_of (thread)); + discard = 1; + } + +#if !USE_SIGTRAP_SIGINFO + else if (lp->stop_reason == TARGET_STOPPED_BY_SW_BREAKPOINT + && !(*the_low_target.breakpoint_at) (pc)) + { + if (debug_threads) + debug_printf ("previous SW breakpoint of %ld gone\n", + lwpid_of (thread)); + discard = 1; + } + else if (lp->stop_reason == TARGET_STOPPED_BY_HW_BREAKPOINT + && !hardware_breakpoint_inserted_here (pc)) + { + if (debug_threads) + debug_printf ("previous HW breakpoint of %ld gone\n", + lwpid_of (thread)); + discard = 1; + } +#endif + + current_thread = saved_thread; + + if (discard) + { + if (debug_threads) + debug_printf ("discarding pending breakpoint status\n"); + lp->status_pending_p = 0; + return 0; + } + } + + return 1; +} + +/* Returns true if LWP is resumed from the client's perspective. */ + +static int +lwp_resumed (struct lwp_info *lwp) +{ + struct thread_info *thread = get_lwp_thread (lwp); + + if (thread->last_resume_kind != resume_stop) + return 1; + + /* Did gdb send us a `vCont;t', but we haven't reported the + corresponding stop to gdb yet? If so, the thread is still + resumed/running from gdb's perspective. */ + if (thread->last_resume_kind == resume_stop + && thread->last_status.kind == TARGET_WAITKIND_IGNORE) + return 1; + + return 0; +} + +/* Return true if this lwp has an interesting status pending. */ +static bool +status_pending_p_callback (thread_info *thread, ptid_t ptid) +{ + struct lwp_info *lp = get_thread_lwp (thread); + + /* Check if we're only interested in events from a specific process + or a specific LWP. */ + if (!thread->id.matches (ptid)) + return 0; + + if (!lwp_resumed (lp)) + return 0; + + if (lp->status_pending_p + && !thread_still_has_status_pending_p (thread)) + { + linux_resume_one_lwp (lp, lp->stepping, GDB_SIGNAL_0, NULL); + return 0; + } + + return lp->status_pending_p; +} + +struct lwp_info * +find_lwp_pid (ptid_t ptid) +{ + thread_info *thread = find_thread ([&] (thread_info *thr_arg) + { + int lwp = ptid.lwp () != 0 ? ptid.lwp () : ptid.pid (); + return thr_arg->id.lwp () == lwp; + }); + + if (thread == NULL) + return NULL; + + return get_thread_lwp (thread); +} + +/* Return the number of known LWPs in the tgid given by PID. */ + +static int +num_lwps (int pid) +{ + int count = 0; + + for_each_thread (pid, [&] (thread_info *thread) + { + count++; + }); + + return count; +} + +/* See nat/linux-nat.h. */ + +struct lwp_info * +iterate_over_lwps (ptid_t filter, + gdb::function_view callback) +{ + thread_info *thread = find_thread (filter, [&] (thread_info *thr_arg) + { + lwp_info *lwp = get_thread_lwp (thr_arg); + + return callback (lwp); + }); + + if (thread == NULL) + return NULL; + + return get_thread_lwp (thread); +} + +/* Detect zombie thread group leaders, and "exit" them. We can't reap + their exits until all other threads in the group have exited. */ + +static void +check_zombie_leaders (void) +{ + for_each_process ([] (process_info *proc) { + pid_t leader_pid = pid_of (proc); + struct lwp_info *leader_lp; + + leader_lp = find_lwp_pid (ptid_t (leader_pid)); + + if (debug_threads) + debug_printf ("leader_pid=%d, leader_lp!=NULL=%d, " + "num_lwps=%d, zombie=%d\n", + leader_pid, leader_lp!= NULL, num_lwps (leader_pid), + linux_proc_pid_is_zombie (leader_pid)); + + if (leader_lp != NULL && !leader_lp->stopped + /* Check if there are other threads in the group, as we may + have raced with the inferior simply exiting. */ + && !last_thread_of_process_p (leader_pid) + && linux_proc_pid_is_zombie (leader_pid)) + { + /* A leader zombie can mean one of two things: + + - It exited, and there's an exit status pending + available, or only the leader exited (not the whole + program). In the latter case, we can't waitpid the + leader's exit status until all other threads are gone. + + - There are 3 or more threads in the group, and a thread + other than the leader exec'd. On an exec, the Linux + kernel destroys all other threads (except the execing + one) in the thread group, and resets the execing thread's + tid to the tgid. No exit notification is sent for the + execing thread -- from the ptracer's perspective, it + appears as though the execing thread just vanishes. + Until we reap all other threads except the leader and the + execing thread, the leader will be zombie, and the + execing thread will be in `D (disc sleep)'. As soon as + all other threads are reaped, the execing thread changes + it's tid to the tgid, and the previous (zombie) leader + vanishes, giving place to the "new" leader. We could try + distinguishing the exit and exec cases, by waiting once + more, and seeing if something comes out, but it doesn't + sound useful. The previous leader _does_ go away, and + we'll re-add the new one once we see the exec event + (which is just the same as what would happen if the + previous leader did exit voluntarily before some other + thread execs). */ + + if (debug_threads) + debug_printf ("CZL: Thread group leader %d zombie " + "(it exited, or another thread execd).\n", + leader_pid); + + delete_lwp (leader_lp); + } + }); +} + +/* Callback for `find_thread'. Returns the first LWP that is not + stopped. */ + +static bool +not_stopped_callback (thread_info *thread, ptid_t filter) +{ + if (!thread->id.matches (filter)) + return false; + + lwp_info *lwp = get_thread_lwp (thread); + + return !lwp->stopped; +} + +/* Increment LWP's suspend count. */ + +static void +lwp_suspended_inc (struct lwp_info *lwp) +{ + lwp->suspended++; + + if (debug_threads && lwp->suspended > 4) + { + struct thread_info *thread = get_lwp_thread (lwp); + + debug_printf ("LWP %ld has a suspiciously high suspend count," + " suspended=%d\n", lwpid_of (thread), lwp->suspended); + } +} + +/* Decrement LWP's suspend count. */ + +static void +lwp_suspended_decr (struct lwp_info *lwp) +{ + lwp->suspended--; + + if (lwp->suspended < 0) + { + struct thread_info *thread = get_lwp_thread (lwp); + + internal_error (__FILE__, __LINE__, + "unsuspend LWP %ld, suspended=%d\n", lwpid_of (thread), + lwp->suspended); + } +} + +/* This function should only be called if the LWP got a SIGTRAP. + + Handle any tracepoint steps or hits. Return true if a tracepoint + event was handled, 0 otherwise. */ + +static int +handle_tracepoints (struct lwp_info *lwp) +{ + struct thread_info *tinfo = get_lwp_thread (lwp); + int tpoint_related_event = 0; + + gdb_assert (lwp->suspended == 0); + + /* If this tracepoint hit causes a tracing stop, we'll immediately + uninsert tracepoints. To do this, we temporarily pause all + threads, unpatch away, and then unpause threads. We need to make + sure the unpausing doesn't resume LWP too. */ + lwp_suspended_inc (lwp); + + /* And we need to be sure that any all-threads-stopping doesn't try + to move threads out of the jump pads, as it could deadlock the + inferior (LWP could be in the jump pad, maybe even holding the + lock.) */ + + /* Do any necessary step collect actions. */ + tpoint_related_event |= tracepoint_finished_step (tinfo, lwp->stop_pc); + + tpoint_related_event |= handle_tracepoint_bkpts (tinfo, lwp->stop_pc); + + /* See if we just hit a tracepoint and do its main collect + actions. */ + tpoint_related_event |= tracepoint_was_hit (tinfo, lwp->stop_pc); + + lwp_suspended_decr (lwp); + + gdb_assert (lwp->suspended == 0); + gdb_assert (!stabilizing_threads + || (lwp->collecting_fast_tracepoint + != fast_tpoint_collect_result::not_collecting)); + + if (tpoint_related_event) + { + if (debug_threads) + debug_printf ("got a tracepoint event\n"); + return 1; + } + + return 0; +} + +/* Convenience wrapper. Returns information about LWP's fast tracepoint + collection status. */ + +static fast_tpoint_collect_result +linux_fast_tracepoint_collecting (struct lwp_info *lwp, + struct fast_tpoint_collect_status *status) +{ + CORE_ADDR thread_area; + struct thread_info *thread = get_lwp_thread (lwp); + + if (the_low_target.get_thread_area == NULL) + return fast_tpoint_collect_result::not_collecting; + + /* Get the thread area address. This is used to recognize which + thread is which when tracing with the in-process agent library. + We don't read anything from the address, and treat it as opaque; + it's the address itself that we assume is unique per-thread. */ + if ((*the_low_target.get_thread_area) (lwpid_of (thread), &thread_area) == -1) + return fast_tpoint_collect_result::not_collecting; + + return fast_tracepoint_collecting (thread_area, lwp->stop_pc, status); +} + +/* The reason we resume in the caller, is because we want to be able + to pass lwp->status_pending as WSTAT, and we need to clear + status_pending_p before resuming, otherwise, linux_resume_one_lwp + refuses to resume. */ + +static int +maybe_move_out_of_jump_pad (struct lwp_info *lwp, int *wstat) +{ + struct thread_info *saved_thread; + + saved_thread = current_thread; + current_thread = get_lwp_thread (lwp); + + if ((wstat == NULL + || (WIFSTOPPED (*wstat) && WSTOPSIG (*wstat) != SIGTRAP)) + && supports_fast_tracepoints () + && agent_loaded_p ()) + { + struct fast_tpoint_collect_status status; + + if (debug_threads) + debug_printf ("Checking whether LWP %ld needs to move out of the " + "jump pad.\n", + lwpid_of (current_thread)); + + fast_tpoint_collect_result r + = linux_fast_tracepoint_collecting (lwp, &status); + + if (wstat == NULL + || (WSTOPSIG (*wstat) != SIGILL + && WSTOPSIG (*wstat) != SIGFPE + && WSTOPSIG (*wstat) != SIGSEGV + && WSTOPSIG (*wstat) != SIGBUS)) + { + lwp->collecting_fast_tracepoint = r; + + if (r != fast_tpoint_collect_result::not_collecting) + { + if (r == fast_tpoint_collect_result::before_insn + && lwp->exit_jump_pad_bkpt == NULL) + { + /* Haven't executed the original instruction yet. + Set breakpoint there, and wait till it's hit, + then single-step until exiting the jump pad. */ + lwp->exit_jump_pad_bkpt + = set_breakpoint_at (status.adjusted_insn_addr, NULL); + } + + if (debug_threads) + debug_printf ("Checking whether LWP %ld needs to move out of " + "the jump pad...it does\n", + lwpid_of (current_thread)); + current_thread = saved_thread; + + return 1; + } + } + else + { + /* If we get a synchronous signal while collecting, *and* + while executing the (relocated) original instruction, + reset the PC to point at the tpoint address, before + reporting to GDB. Otherwise, it's an IPA lib bug: just + report the signal to GDB, and pray for the best. */ + + lwp->collecting_fast_tracepoint + = fast_tpoint_collect_result::not_collecting; + + if (r != fast_tpoint_collect_result::not_collecting + && (status.adjusted_insn_addr <= lwp->stop_pc + && lwp->stop_pc < status.adjusted_insn_addr_end)) + { + siginfo_t info; + struct regcache *regcache; + + /* The si_addr on a few signals references the address + of the faulting instruction. Adjust that as + well. */ + if ((WSTOPSIG (*wstat) == SIGILL + || WSTOPSIG (*wstat) == SIGFPE + || WSTOPSIG (*wstat) == SIGBUS + || WSTOPSIG (*wstat) == SIGSEGV) + && ptrace (PTRACE_GETSIGINFO, lwpid_of (current_thread), + (PTRACE_TYPE_ARG3) 0, &info) == 0 + /* Final check just to make sure we don't clobber + the siginfo of non-kernel-sent signals. */ + && (uintptr_t) info.si_addr == lwp->stop_pc) + { + info.si_addr = (void *) (uintptr_t) status.tpoint_addr; + ptrace (PTRACE_SETSIGINFO, lwpid_of (current_thread), + (PTRACE_TYPE_ARG3) 0, &info); + } + + regcache = get_thread_regcache (current_thread, 1); + (*the_low_target.set_pc) (regcache, status.tpoint_addr); + lwp->stop_pc = status.tpoint_addr; + + /* Cancel any fast tracepoint lock this thread was + holding. */ + force_unlock_trace_buffer (); + } + + if (lwp->exit_jump_pad_bkpt != NULL) + { + if (debug_threads) + debug_printf ("Cancelling fast exit-jump-pad: removing bkpt. " + "stopping all threads momentarily.\n"); + + stop_all_lwps (1, lwp); + + delete_breakpoint (lwp->exit_jump_pad_bkpt); + lwp->exit_jump_pad_bkpt = NULL; + + unstop_all_lwps (1, lwp); + + gdb_assert (lwp->suspended >= 0); + } + } + } + + if (debug_threads) + debug_printf ("Checking whether LWP %ld needs to move out of the " + "jump pad...no\n", + lwpid_of (current_thread)); + + current_thread = saved_thread; + return 0; +} + +/* Enqueue one signal in the "signals to report later when out of the + jump pad" list. */ + +static void +enqueue_one_deferred_signal (struct lwp_info *lwp, int *wstat) +{ + struct pending_signals *p_sig; + struct thread_info *thread = get_lwp_thread (lwp); + + if (debug_threads) + debug_printf ("Deferring signal %d for LWP %ld.\n", + WSTOPSIG (*wstat), lwpid_of (thread)); + + if (debug_threads) + { + struct pending_signals *sig; + + for (sig = lwp->pending_signals_to_report; + sig != NULL; + sig = sig->prev) + debug_printf (" Already queued %d\n", + sig->signal); + + debug_printf (" (no more currently queued signals)\n"); + } + + /* Don't enqueue non-RT signals if they are already in the deferred + queue. (SIGSTOP being the easiest signal to see ending up here + twice) */ + if (WSTOPSIG (*wstat) < __SIGRTMIN) + { + struct pending_signals *sig; + + for (sig = lwp->pending_signals_to_report; + sig != NULL; + sig = sig->prev) + { + if (sig->signal == WSTOPSIG (*wstat)) + { + if (debug_threads) + debug_printf ("Not requeuing already queued non-RT signal %d" + " for LWP %ld\n", + sig->signal, + lwpid_of (thread)); + return; + } + } + } + + p_sig = XCNEW (struct pending_signals); + p_sig->prev = lwp->pending_signals_to_report; + p_sig->signal = WSTOPSIG (*wstat); + + ptrace (PTRACE_GETSIGINFO, lwpid_of (thread), (PTRACE_TYPE_ARG3) 0, + &p_sig->info); + + lwp->pending_signals_to_report = p_sig; +} + +/* Dequeue one signal from the "signals to report later when out of + the jump pad" list. */ + +static int +dequeue_one_deferred_signal (struct lwp_info *lwp, int *wstat) +{ + struct thread_info *thread = get_lwp_thread (lwp); + + if (lwp->pending_signals_to_report != NULL) + { + struct pending_signals **p_sig; + + p_sig = &lwp->pending_signals_to_report; + while ((*p_sig)->prev != NULL) + p_sig = &(*p_sig)->prev; + + *wstat = W_STOPCODE ((*p_sig)->signal); + if ((*p_sig)->info.si_signo != 0) + ptrace (PTRACE_SETSIGINFO, lwpid_of (thread), (PTRACE_TYPE_ARG3) 0, + &(*p_sig)->info); + free (*p_sig); + *p_sig = NULL; + + if (debug_threads) + debug_printf ("Reporting deferred signal %d for LWP %ld.\n", + WSTOPSIG (*wstat), lwpid_of (thread)); + + if (debug_threads) + { + struct pending_signals *sig; + + for (sig = lwp->pending_signals_to_report; + sig != NULL; + sig = sig->prev) + debug_printf (" Still queued %d\n", + sig->signal); + + debug_printf (" (no more queued signals)\n"); + } + + return 1; + } + + return 0; +} + +/* Fetch the possibly triggered data watchpoint info and store it in + CHILD. + + On some archs, like x86, that use debug registers to set + watchpoints, it's possible that the way to know which watched + address trapped, is to check the register that is used to select + which address to watch. Problem is, between setting the watchpoint + and reading back which data address trapped, the user may change + the set of watchpoints, and, as a consequence, GDB changes the + debug registers in the inferior. To avoid reading back a stale + stopped-data-address when that happens, we cache in LP the fact + that a watchpoint trapped, and the corresponding data address, as + soon as we see CHILD stop with a SIGTRAP. If GDB changes the debug + registers meanwhile, we have the cached data we can rely on. */ + +static int +check_stopped_by_watchpoint (struct lwp_info *child) +{ + if (the_low_target.stopped_by_watchpoint != NULL) + { + struct thread_info *saved_thread; + + saved_thread = current_thread; + current_thread = get_lwp_thread (child); + + if (the_low_target.stopped_by_watchpoint ()) + { + child->stop_reason = TARGET_STOPPED_BY_WATCHPOINT; + + if (the_low_target.stopped_data_address != NULL) + child->stopped_data_address + = the_low_target.stopped_data_address (); + else + child->stopped_data_address = 0; + } + + current_thread = saved_thread; + } + + return child->stop_reason == TARGET_STOPPED_BY_WATCHPOINT; +} + +/* Return the ptrace options that we want to try to enable. */ + +static int +linux_low_ptrace_options (int attached) +{ + client_state &cs = get_client_state (); + int options = 0; + + if (!attached) + options |= PTRACE_O_EXITKILL; + + if (cs.report_fork_events) + options |= PTRACE_O_TRACEFORK; + + if (cs.report_vfork_events) + options |= (PTRACE_O_TRACEVFORK | PTRACE_O_TRACEVFORKDONE); + + if (cs.report_exec_events) + options |= PTRACE_O_TRACEEXEC; + + options |= PTRACE_O_TRACESYSGOOD; + + return options; +} + +/* Do low-level handling of the event, and check if we should go on + and pass it to caller code. Return the affected lwp if we are, or + NULL otherwise. */ + +static struct lwp_info * +linux_low_filter_event (int lwpid, int wstat) +{ + client_state &cs = get_client_state (); + struct lwp_info *child; + struct thread_info *thread; + int have_stop_pc = 0; + + child = find_lwp_pid (ptid_t (lwpid)); + + /* Check for stop events reported by a process we didn't already + know about - anything not already in our LWP list. + + If we're expecting to receive stopped processes after + fork, vfork, and clone events, then we'll just add the + new one to our list and go back to waiting for the event + to be reported - the stopped process might be returned + from waitpid before or after the event is. + + But note the case of a non-leader thread exec'ing after the + leader having exited, and gone from our lists (because + check_zombie_leaders deleted it). The non-leader thread + changes its tid to the tgid. */ + + if (WIFSTOPPED (wstat) && child == NULL && WSTOPSIG (wstat) == SIGTRAP + && linux_ptrace_get_extended_event (wstat) == PTRACE_EVENT_EXEC) + { + ptid_t child_ptid; + + /* A multi-thread exec after we had seen the leader exiting. */ + if (debug_threads) + { + debug_printf ("LLW: Re-adding thread group leader LWP %d" + "after exec.\n", lwpid); + } + + child_ptid = ptid_t (lwpid, lwpid, 0); + child = add_lwp (child_ptid); + child->stopped = 1; + current_thread = child->thread; + } + + /* If we didn't find a process, one of two things presumably happened: + - A process we started and then detached from has exited. Ignore it. + - A process we are controlling has forked and the new child's stop + was reported to us by the kernel. Save its PID. */ + if (child == NULL && WIFSTOPPED (wstat)) + { + add_to_pid_list (&stopped_pids, lwpid, wstat); + return NULL; + } + else if (child == NULL) + return NULL; + + thread = get_lwp_thread (child); + + child->stopped = 1; + + child->last_status = wstat; + + /* Check if the thread has exited. */ + if ((WIFEXITED (wstat) || WIFSIGNALED (wstat))) + { + if (debug_threads) + debug_printf ("LLFE: %d exited.\n", lwpid); + + if (finish_step_over (child)) + { + /* Unsuspend all other LWPs, and set them back running again. */ + unsuspend_all_lwps (child); + } + + /* If there is at least one more LWP, then the exit signal was + not the end of the debugged application and should be + ignored, unless GDB wants to hear about thread exits. */ + if (cs.report_thread_events + || last_thread_of_process_p (pid_of (thread))) + { + /* Since events are serialized to GDB core, and we can't + report this one right now. Leave the status pending for + the next time we're able to report it. */ + mark_lwp_dead (child, wstat); + return child; + } + else + { + delete_lwp (child); + return NULL; + } + } + + gdb_assert (WIFSTOPPED (wstat)); + + if (WIFSTOPPED (wstat)) + { + struct process_info *proc; + + /* Architecture-specific setup after inferior is running. */ + proc = find_process_pid (pid_of (thread)); + if (proc->tdesc == NULL) + { + if (proc->attached) + { + /* This needs to happen after we have attached to the + inferior and it is stopped for the first time, but + before we access any inferior registers. */ + linux_arch_setup_thread (thread); + } + else + { + /* The process is started, but GDBserver will do + architecture-specific setup after the program stops at + the first instruction. */ + child->status_pending_p = 1; + child->status_pending = wstat; + return child; + } + } + } + + if (WIFSTOPPED (wstat) && child->must_set_ptrace_flags) + { + struct process_info *proc = find_process_pid (pid_of (thread)); + int options = linux_low_ptrace_options (proc->attached); + + linux_enable_event_reporting (lwpid, options); + child->must_set_ptrace_flags = 0; + } + + /* Always update syscall_state, even if it will be filtered later. */ + if (WIFSTOPPED (wstat) && WSTOPSIG (wstat) == SYSCALL_SIGTRAP) + { + child->syscall_state + = (child->syscall_state == TARGET_WAITKIND_SYSCALL_ENTRY + ? TARGET_WAITKIND_SYSCALL_RETURN + : TARGET_WAITKIND_SYSCALL_ENTRY); + } + else + { + /* Almost all other ptrace-stops are known to be outside of system + calls, with further exceptions in handle_extended_wait. */ + child->syscall_state = TARGET_WAITKIND_IGNORE; + } + + /* Be careful to not overwrite stop_pc until save_stop_reason is + called. */ + if (WIFSTOPPED (wstat) && WSTOPSIG (wstat) == SIGTRAP + && linux_is_extended_waitstatus (wstat)) + { + child->stop_pc = get_pc (child); + if (handle_extended_wait (&child, wstat)) + { + /* The event has been handled, so just return without + reporting it. */ + return NULL; + } + } + + if (linux_wstatus_maybe_breakpoint (wstat)) + { + if (save_stop_reason (child)) + have_stop_pc = 1; + } + + if (!have_stop_pc) + child->stop_pc = get_pc (child); + + if (WIFSTOPPED (wstat) && WSTOPSIG (wstat) == SIGSTOP + && child->stop_expected) + { + if (debug_threads) + debug_printf ("Expected stop.\n"); + child->stop_expected = 0; + + if (thread->last_resume_kind == resume_stop) + { + /* We want to report the stop to the core. Treat the + SIGSTOP as a normal event. */ + if (debug_threads) + debug_printf ("LLW: resume_stop SIGSTOP caught for %s.\n", + target_pid_to_str (ptid_of (thread))); + } + else if (stopping_threads != NOT_STOPPING_THREADS) + { + /* Stopping threads. We don't want this SIGSTOP to end up + pending. */ + if (debug_threads) + debug_printf ("LLW: SIGSTOP caught for %s " + "while stopping threads.\n", + target_pid_to_str (ptid_of (thread))); + return NULL; + } + else + { + /* This is a delayed SIGSTOP. Filter out the event. */ + if (debug_threads) + debug_printf ("LLW: %s %s, 0, 0 (discard delayed SIGSTOP)\n", + child->stepping ? "step" : "continue", + target_pid_to_str (ptid_of (thread))); + + linux_resume_one_lwp (child, child->stepping, 0, NULL); + return NULL; + } + } + + child->status_pending_p = 1; + child->status_pending = wstat; + return child; +} + +/* Return true if THREAD is doing hardware single step. */ + +static int +maybe_hw_step (struct thread_info *thread) +{ + if (can_hardware_single_step ()) + return 1; + else + { + /* GDBserver must insert single-step breakpoint for software + single step. */ + gdb_assert (has_single_step_breakpoints (thread)); + return 0; + } +} + +/* Resume LWPs that are currently stopped without any pending status + to report, but are resumed from the core's perspective. */ + +static void +resume_stopped_resumed_lwps (thread_info *thread) +{ + struct lwp_info *lp = get_thread_lwp (thread); + + if (lp->stopped + && !lp->suspended + && !lp->status_pending_p + && thread->last_status.kind == TARGET_WAITKIND_IGNORE) + { + int step = 0; + + if (thread->last_resume_kind == resume_step) + step = maybe_hw_step (thread); + + if (debug_threads) + debug_printf ("RSRL: resuming stopped-resumed LWP %s at %s: step=%d\n", + target_pid_to_str (ptid_of (thread)), + paddress (lp->stop_pc), + step); + + linux_resume_one_lwp (lp, step, GDB_SIGNAL_0, NULL); + } +} + +/* Wait for an event from child(ren) WAIT_PTID, and return any that + match FILTER_PTID (leaving others pending). The PTIDs can be: + minus_one_ptid, to specify any child; a pid PTID, specifying all + lwps of a thread group; or a PTID representing a single lwp. Store + the stop status through the status pointer WSTAT. OPTIONS is + passed to the waitpid call. Return 0 if no event was found and + OPTIONS contains WNOHANG. Return -1 if no unwaited-for children + was found. Return the PID of the stopped child otherwise. */ + +static int +linux_wait_for_event_filtered (ptid_t wait_ptid, ptid_t filter_ptid, + int *wstatp, int options) +{ + struct thread_info *event_thread; + struct lwp_info *event_child, *requested_child; + sigset_t block_mask, prev_mask; + + retry: + /* N.B. event_thread points to the thread_info struct that contains + event_child. Keep them in sync. */ + event_thread = NULL; + event_child = NULL; + requested_child = NULL; + + /* Check for a lwp with a pending status. */ + + if (filter_ptid == minus_one_ptid || filter_ptid.is_pid ()) + { + event_thread = find_thread_in_random ([&] (thread_info *thread) + { + return status_pending_p_callback (thread, filter_ptid); + }); + + if (event_thread != NULL) + event_child = get_thread_lwp (event_thread); + if (debug_threads && event_thread) + debug_printf ("Got a pending child %ld\n", lwpid_of (event_thread)); + } + else if (filter_ptid != null_ptid) + { + requested_child = find_lwp_pid (filter_ptid); + + if (stopping_threads == NOT_STOPPING_THREADS + && requested_child->status_pending_p + && (requested_child->collecting_fast_tracepoint + != fast_tpoint_collect_result::not_collecting)) + { + enqueue_one_deferred_signal (requested_child, + &requested_child->status_pending); + requested_child->status_pending_p = 0; + requested_child->status_pending = 0; + linux_resume_one_lwp (requested_child, 0, 0, NULL); + } + + if (requested_child->suspended + && requested_child->status_pending_p) + { + internal_error (__FILE__, __LINE__, + "requesting an event out of a" + " suspended child?"); + } + + if (requested_child->status_pending_p) + { + event_child = requested_child; + event_thread = get_lwp_thread (event_child); + } + } + + if (event_child != NULL) + { + if (debug_threads) + debug_printf ("Got an event from pending child %ld (%04x)\n", + lwpid_of (event_thread), event_child->status_pending); + *wstatp = event_child->status_pending; + event_child->status_pending_p = 0; + event_child->status_pending = 0; + current_thread = event_thread; + return lwpid_of (event_thread); + } + + /* But if we don't find a pending event, we'll have to wait. + + We only enter this loop if no process has a pending wait status. + Thus any action taken in response to a wait status inside this + loop is responding as soon as we detect the status, not after any + pending events. */ + + /* Make sure SIGCHLD is blocked until the sigsuspend below. Block + all signals while here. */ + sigfillset (&block_mask); + gdb_sigmask (SIG_BLOCK, &block_mask, &prev_mask); + + /* Always pull all events out of the kernel. We'll randomly select + an event LWP out of all that have events, to prevent + starvation. */ + while (event_child == NULL) + { + pid_t ret = 0; + + /* Always use -1 and WNOHANG, due to couple of a kernel/ptrace + quirks: + + - If the thread group leader exits while other threads in the + thread group still exist, waitpid(TGID, ...) hangs. That + waitpid won't return an exit status until the other threads + in the group are reaped. + + - When a non-leader thread execs, that thread just vanishes + without reporting an exit (so we'd hang if we waited for it + explicitly in that case). The exec event is reported to + the TGID pid. */ + errno = 0; + ret = my_waitpid (-1, wstatp, options | WNOHANG); + + if (debug_threads) + debug_printf ("LWFE: waitpid(-1, ...) returned %d, %s\n", + ret, errno ? safe_strerror (errno) : "ERRNO-OK"); + + if (ret > 0) + { + if (debug_threads) + { + debug_printf ("LLW: waitpid %ld received %s\n", + (long) ret, status_to_str (*wstatp)); + } + + /* Filter all events. IOW, leave all events pending. We'll + randomly select an event LWP out of all that have events + below. */ + linux_low_filter_event (ret, *wstatp); + /* Retry until nothing comes out of waitpid. A single + SIGCHLD can indicate more than one child stopped. */ + continue; + } + + /* Now that we've pulled all events out of the kernel, resume + LWPs that don't have an interesting event to report. */ + if (stopping_threads == NOT_STOPPING_THREADS) + for_each_thread (resume_stopped_resumed_lwps); + + /* ... and find an LWP with a status to report to the core, if + any. */ + event_thread = find_thread_in_random ([&] (thread_info *thread) + { + return status_pending_p_callback (thread, filter_ptid); + }); + + if (event_thread != NULL) + { + event_child = get_thread_lwp (event_thread); + *wstatp = event_child->status_pending; + event_child->status_pending_p = 0; + event_child->status_pending = 0; + break; + } + + /* Check for zombie thread group leaders. Those can't be reaped + until all other threads in the thread group are. */ + check_zombie_leaders (); + + auto not_stopped = [&] (thread_info *thread) + { + return not_stopped_callback (thread, wait_ptid); + }; + + /* If there are no resumed children left in the set of LWPs we + want to wait for, bail. We can't just block in + waitpid/sigsuspend, because lwps might have been left stopped + in trace-stop state, and we'd be stuck forever waiting for + their status to change (which would only happen if we resumed + them). Even if WNOHANG is set, this return code is preferred + over 0 (below), as it is more detailed. */ + if (find_thread (not_stopped) == NULL) + { + if (debug_threads) + debug_printf ("LLW: exit (no unwaited-for LWP)\n"); + gdb_sigmask (SIG_SETMASK, &prev_mask, NULL); + return -1; + } + + /* No interesting event to report to the caller. */ + if ((options & WNOHANG)) + { + if (debug_threads) + debug_printf ("WNOHANG set, no event found\n"); + + gdb_sigmask (SIG_SETMASK, &prev_mask, NULL); + return 0; + } + + /* Block until we get an event reported with SIGCHLD. */ + if (debug_threads) + debug_printf ("sigsuspend'ing\n"); + + sigsuspend (&prev_mask); + gdb_sigmask (SIG_SETMASK, &prev_mask, NULL); + goto retry; + } + + gdb_sigmask (SIG_SETMASK, &prev_mask, NULL); + + current_thread = event_thread; + + return lwpid_of (event_thread); +} + +/* Wait for an event from child(ren) PTID. PTIDs can be: + minus_one_ptid, to specify any child; a pid PTID, specifying all + lwps of a thread group; or a PTID representing a single lwp. Store + the stop status through the status pointer WSTAT. OPTIONS is + passed to the waitpid call. Return 0 if no event was found and + OPTIONS contains WNOHANG. Return -1 if no unwaited-for children + was found. Return the PID of the stopped child otherwise. */ + +static int +linux_wait_for_event (ptid_t ptid, int *wstatp, int options) +{ + return linux_wait_for_event_filtered (ptid, ptid, wstatp, options); +} + +/* Select one LWP out of those that have events pending. */ + +static void +select_event_lwp (struct lwp_info **orig_lp) +{ + struct thread_info *event_thread = NULL; + + /* In all-stop, give preference to the LWP that is being + single-stepped. There will be at most one, and it's the LWP that + the core is most interested in. If we didn't do this, then we'd + have to handle pending step SIGTRAPs somehow in case the core + later continues the previously-stepped thread, otherwise we'd + report the pending SIGTRAP, and the core, not having stepped the + thread, wouldn't understand what the trap was for, and therefore + would report it to the user as a random signal. */ + if (!non_stop) + { + event_thread = find_thread ([] (thread_info *thread) + { + lwp_info *lp = get_thread_lwp (thread); + + return (thread->last_status.kind == TARGET_WAITKIND_IGNORE + && thread->last_resume_kind == resume_step + && lp->status_pending_p); + }); + + if (event_thread != NULL) + { + if (debug_threads) + debug_printf ("SEL: Select single-step %s\n", + target_pid_to_str (ptid_of (event_thread))); + } + } + if (event_thread == NULL) + { + /* No single-stepping LWP. Select one at random, out of those + which have had events. */ + + event_thread = find_thread_in_random ([&] (thread_info *thread) + { + lwp_info *lp = get_thread_lwp (thread); + + /* Only resumed LWPs that have an event pending. */ + return (thread->last_status.kind == TARGET_WAITKIND_IGNORE + && lp->status_pending_p); + }); + } + + if (event_thread != NULL) + { + struct lwp_info *event_lp = get_thread_lwp (event_thread); + + /* Switch the event LWP. */ + *orig_lp = event_lp; + } +} + +/* Decrement the suspend count of all LWPs, except EXCEPT, if non + NULL. */ + +static void +unsuspend_all_lwps (struct lwp_info *except) +{ + for_each_thread ([&] (thread_info *thread) + { + lwp_info *lwp = get_thread_lwp (thread); + + if (lwp != except) + lwp_suspended_decr (lwp); + }); +} + +static void move_out_of_jump_pad_callback (thread_info *thread); +static bool stuck_in_jump_pad_callback (thread_info *thread); +static bool lwp_running (thread_info *thread); +static ptid_t linux_wait_1 (ptid_t ptid, + struct target_waitstatus *ourstatus, + int target_options); + +/* Stabilize threads (move out of jump pads). + + If a thread is midway collecting a fast tracepoint, we need to + finish the collection and move it out of the jump pad before + reporting the signal. + + This avoids recursion while collecting (when a signal arrives + midway, and the signal handler itself collects), which would trash + the trace buffer. In case the user set a breakpoint in a signal + handler, this avoids the backtrace showing the jump pad, etc.. + Most importantly, there are certain things we can't do safely if + threads are stopped in a jump pad (or in its callee's). For + example: + + - starting a new trace run. A thread still collecting the + previous run, could trash the trace buffer when resumed. The trace + buffer control structures would have been reset but the thread had + no way to tell. The thread could even midway memcpy'ing to the + buffer, which would mean that when resumed, it would clobber the + trace buffer that had been set for a new run. + + - we can't rewrite/reuse the jump pads for new tracepoints + safely. Say you do tstart while a thread is stopped midway while + collecting. When the thread is later resumed, it finishes the + collection, and returns to the jump pad, to execute the original + instruction that was under the tracepoint jump at the time the + older run had been started. If the jump pad had been rewritten + since for something else in the new run, the thread would now + execute the wrong / random instructions. */ + +static void +linux_stabilize_threads (void) +{ + thread_info *thread_stuck = find_thread (stuck_in_jump_pad_callback); + + if (thread_stuck != NULL) + { + if (debug_threads) + debug_printf ("can't stabilize, LWP %ld is stuck in jump pad\n", + lwpid_of (thread_stuck)); + return; + } + + thread_info *saved_thread = current_thread; + + stabilizing_threads = 1; + + /* Kick 'em all. */ + for_each_thread (move_out_of_jump_pad_callback); + + /* Loop until all are stopped out of the jump pads. */ + while (find_thread (lwp_running) != NULL) + { + struct target_waitstatus ourstatus; + struct lwp_info *lwp; + int wstat; + + /* Note that we go through the full wait even loop. While + moving threads out of jump pad, we need to be able to step + over internal breakpoints and such. */ + linux_wait_1 (minus_one_ptid, &ourstatus, 0); + + if (ourstatus.kind == TARGET_WAITKIND_STOPPED) + { + lwp = get_thread_lwp (current_thread); + + /* Lock it. */ + lwp_suspended_inc (lwp); + + if (ourstatus.value.sig != GDB_SIGNAL_0 + || current_thread->last_resume_kind == resume_stop) + { + wstat = W_STOPCODE (gdb_signal_to_host (ourstatus.value.sig)); + enqueue_one_deferred_signal (lwp, &wstat); + } + } + } + + unsuspend_all_lwps (NULL); + + stabilizing_threads = 0; + + current_thread = saved_thread; + + if (debug_threads) + { + thread_stuck = find_thread (stuck_in_jump_pad_callback); + + if (thread_stuck != NULL) + debug_printf ("couldn't stabilize, LWP %ld got stuck in jump pad\n", + lwpid_of (thread_stuck)); + } +} + +/* Convenience function that is called when the kernel reports an + event that is not passed out to GDB. */ + +static ptid_t +ignore_event (struct target_waitstatus *ourstatus) +{ + /* If we got an event, there may still be others, as a single + SIGCHLD can indicate more than one child stopped. This forces + another target_wait call. */ + async_file_mark (); + + ourstatus->kind = TARGET_WAITKIND_IGNORE; + return null_ptid; +} + +/* Convenience function that is called when the kernel reports an exit + event. This decides whether to report the event to GDB as a + process exit event, a thread exit event, or to suppress the + event. */ + +static ptid_t +filter_exit_event (struct lwp_info *event_child, + struct target_waitstatus *ourstatus) +{ + client_state &cs = get_client_state (); + struct thread_info *thread = get_lwp_thread (event_child); + ptid_t ptid = ptid_of (thread); + + if (!last_thread_of_process_p (pid_of (thread))) + { + if (cs.report_thread_events) + ourstatus->kind = TARGET_WAITKIND_THREAD_EXITED; + else + ourstatus->kind = TARGET_WAITKIND_IGNORE; + + delete_lwp (event_child); + } + return ptid; +} + +/* Returns 1 if GDB is interested in any event_child syscalls. */ + +static int +gdb_catching_syscalls_p (struct lwp_info *event_child) +{ + struct thread_info *thread = get_lwp_thread (event_child); + struct process_info *proc = get_thread_process (thread); + + return !proc->syscalls_to_catch.empty (); +} + +/* Returns 1 if GDB is interested in the event_child syscall. + Only to be called when stopped reason is SYSCALL_SIGTRAP. */ + +static int +gdb_catch_this_syscall_p (struct lwp_info *event_child) +{ + int sysno; + struct thread_info *thread = get_lwp_thread (event_child); + struct process_info *proc = get_thread_process (thread); + + if (proc->syscalls_to_catch.empty ()) + return 0; + + if (proc->syscalls_to_catch[0] == ANY_SYSCALL) + return 1; + + get_syscall_trapinfo (event_child, &sysno); + + for (int iter : proc->syscalls_to_catch) + if (iter == sysno) + return 1; + + return 0; +} + +/* Wait for process, returns status. */ + +static ptid_t +linux_wait_1 (ptid_t ptid, + struct target_waitstatus *ourstatus, int target_options) +{ + client_state &cs = get_client_state (); + int w; + struct lwp_info *event_child; + int options; + int pid; + int step_over_finished; + int bp_explains_trap; + int maybe_internal_trap; + int report_to_gdb; + int trace_event; + int in_step_range; + int any_resumed; + + if (debug_threads) + { + debug_enter (); + debug_printf ("linux_wait_1: [%s]\n", target_pid_to_str (ptid)); + } + + /* Translate generic target options into linux options. */ + options = __WALL; + if (target_options & TARGET_WNOHANG) + options |= WNOHANG; + + bp_explains_trap = 0; + trace_event = 0; + in_step_range = 0; + ourstatus->kind = TARGET_WAITKIND_IGNORE; + + auto status_pending_p_any = [&] (thread_info *thread) + { + return status_pending_p_callback (thread, minus_one_ptid); + }; + + auto not_stopped = [&] (thread_info *thread) + { + return not_stopped_callback (thread, minus_one_ptid); + }; + + /* Find a resumed LWP, if any. */ + if (find_thread (status_pending_p_any) != NULL) + any_resumed = 1; + else if (find_thread (not_stopped) != NULL) + any_resumed = 1; + else + any_resumed = 0; + + if (step_over_bkpt == null_ptid) + pid = linux_wait_for_event (ptid, &w, options); + else + { + if (debug_threads) + debug_printf ("step_over_bkpt set [%s], doing a blocking wait\n", + target_pid_to_str (step_over_bkpt)); + pid = linux_wait_for_event (step_over_bkpt, &w, options & ~WNOHANG); + } + + if (pid == 0 || (pid == -1 && !any_resumed)) + { + gdb_assert (target_options & TARGET_WNOHANG); + + if (debug_threads) + { + debug_printf ("linux_wait_1 ret = null_ptid, " + "TARGET_WAITKIND_IGNORE\n"); + debug_exit (); + } + + ourstatus->kind = TARGET_WAITKIND_IGNORE; + return null_ptid; + } + else if (pid == -1) + { + if (debug_threads) + { + debug_printf ("linux_wait_1 ret = null_ptid, " + "TARGET_WAITKIND_NO_RESUMED\n"); + debug_exit (); + } + + ourstatus->kind = TARGET_WAITKIND_NO_RESUMED; + return null_ptid; + } + + event_child = get_thread_lwp (current_thread); + + /* linux_wait_for_event only returns an exit status for the last + child of a process. Report it. */ + if (WIFEXITED (w) || WIFSIGNALED (w)) + { + if (WIFEXITED (w)) + { + ourstatus->kind = TARGET_WAITKIND_EXITED; + ourstatus->value.integer = WEXITSTATUS (w); + + if (debug_threads) + { + debug_printf ("linux_wait_1 ret = %s, exited with " + "retcode %d\n", + target_pid_to_str (ptid_of (current_thread)), + WEXITSTATUS (w)); + debug_exit (); + } + } + else + { + ourstatus->kind = TARGET_WAITKIND_SIGNALLED; + ourstatus->value.sig = gdb_signal_from_host (WTERMSIG (w)); + + if (debug_threads) + { + debug_printf ("linux_wait_1 ret = %s, terminated with " + "signal %d\n", + target_pid_to_str (ptid_of (current_thread)), + WTERMSIG (w)); + debug_exit (); + } + } + + if (ourstatus->kind == TARGET_WAITKIND_EXITED) + return filter_exit_event (event_child, ourstatus); + + return ptid_of (current_thread); + } + + /* If step-over executes a breakpoint instruction, in the case of a + hardware single step it means a gdb/gdbserver breakpoint had been + planted on top of a permanent breakpoint, in the case of a software + single step it may just mean that gdbserver hit the reinsert breakpoint. + The PC has been adjusted by save_stop_reason to point at + the breakpoint address. + So in the case of the hardware single step advance the PC manually + past the breakpoint and in the case of software single step advance only + if it's not the single_step_breakpoint we are hitting. + This avoids that a program would keep trapping a permanent breakpoint + forever. */ + if (step_over_bkpt != null_ptid + && event_child->stop_reason == TARGET_STOPPED_BY_SW_BREAKPOINT + && (event_child->stepping + || !single_step_breakpoint_inserted_here (event_child->stop_pc))) + { + int increment_pc = 0; + int breakpoint_kind = 0; + CORE_ADDR stop_pc = event_child->stop_pc; + + breakpoint_kind = + the_target->breakpoint_kind_from_current_state (&stop_pc); + the_target->sw_breakpoint_from_kind (breakpoint_kind, &increment_pc); + + if (debug_threads) + { + debug_printf ("step-over for %s executed software breakpoint\n", + target_pid_to_str (ptid_of (current_thread))); + } + + if (increment_pc != 0) + { + struct regcache *regcache + = get_thread_regcache (current_thread, 1); + + event_child->stop_pc += increment_pc; + (*the_low_target.set_pc) (regcache, event_child->stop_pc); + + if (!(*the_low_target.breakpoint_at) (event_child->stop_pc)) + event_child->stop_reason = TARGET_STOPPED_BY_NO_REASON; + } + } + + /* If this event was not handled before, and is not a SIGTRAP, we + report it. SIGILL and SIGSEGV are also treated as traps in case + a breakpoint is inserted at the current PC. If this target does + not support internal breakpoints at all, we also report the + SIGTRAP without further processing; it's of no concern to us. */ + maybe_internal_trap + = (supports_breakpoints () + && (WSTOPSIG (w) == SIGTRAP + || ((WSTOPSIG (w) == SIGILL + || WSTOPSIG (w) == SIGSEGV) + && (*the_low_target.breakpoint_at) (event_child->stop_pc)))); + + if (maybe_internal_trap) + { + /* Handle anything that requires bookkeeping before deciding to + report the event or continue waiting. */ + + /* First check if we can explain the SIGTRAP with an internal + breakpoint, or if we should possibly report the event to GDB. + Do this before anything that may remove or insert a + breakpoint. */ + bp_explains_trap = breakpoint_inserted_here (event_child->stop_pc); + + /* We have a SIGTRAP, possibly a step-over dance has just + finished. If so, tweak the state machine accordingly, + reinsert breakpoints and delete any single-step + breakpoints. */ + step_over_finished = finish_step_over (event_child); + + /* Now invoke the callbacks of any internal breakpoints there. */ + check_breakpoints (event_child->stop_pc); + + /* Handle tracepoint data collecting. This may overflow the + trace buffer, and cause a tracing stop, removing + breakpoints. */ + trace_event = handle_tracepoints (event_child); + + if (bp_explains_trap) + { + if (debug_threads) + debug_printf ("Hit a gdbserver breakpoint.\n"); + } + } + else + { + /* We have some other signal, possibly a step-over dance was in + progress, and it should be cancelled too. */ + step_over_finished = finish_step_over (event_child); + } + + /* We have all the data we need. Either report the event to GDB, or + resume threads and keep waiting for more. */ + + /* If we're collecting a fast tracepoint, finish the collection and + move out of the jump pad before delivering a signal. See + linux_stabilize_threads. */ + + if (WIFSTOPPED (w) + && WSTOPSIG (w) != SIGTRAP + && supports_fast_tracepoints () + && agent_loaded_p ()) + { + if (debug_threads) + debug_printf ("Got signal %d for LWP %ld. Check if we need " + "to defer or adjust it.\n", + WSTOPSIG (w), lwpid_of (current_thread)); + + /* Allow debugging the jump pad itself. */ + if (current_thread->last_resume_kind != resume_step + && maybe_move_out_of_jump_pad (event_child, &w)) + { + enqueue_one_deferred_signal (event_child, &w); + + if (debug_threads) + debug_printf ("Signal %d for LWP %ld deferred (in jump pad)\n", + WSTOPSIG (w), lwpid_of (current_thread)); + + linux_resume_one_lwp (event_child, 0, 0, NULL); + + if (debug_threads) + debug_exit (); + return ignore_event (ourstatus); + } + } + + if (event_child->collecting_fast_tracepoint + != fast_tpoint_collect_result::not_collecting) + { + if (debug_threads) + debug_printf ("LWP %ld was trying to move out of the jump pad (%d). " + "Check if we're already there.\n", + lwpid_of (current_thread), + (int) event_child->collecting_fast_tracepoint); + + trace_event = 1; + + event_child->collecting_fast_tracepoint + = linux_fast_tracepoint_collecting (event_child, NULL); + + if (event_child->collecting_fast_tracepoint + != fast_tpoint_collect_result::before_insn) + { + /* No longer need this breakpoint. */ + if (event_child->exit_jump_pad_bkpt != NULL) + { + if (debug_threads) + debug_printf ("No longer need exit-jump-pad bkpt; removing it." + "stopping all threads momentarily.\n"); + + /* Other running threads could hit this breakpoint. + We don't handle moribund locations like GDB does, + instead we always pause all threads when removing + breakpoints, so that any step-over or + decr_pc_after_break adjustment is always taken + care of while the breakpoint is still + inserted. */ + stop_all_lwps (1, event_child); + + delete_breakpoint (event_child->exit_jump_pad_bkpt); + event_child->exit_jump_pad_bkpt = NULL; + + unstop_all_lwps (1, event_child); + + gdb_assert (event_child->suspended >= 0); + } + } + + if (event_child->collecting_fast_tracepoint + == fast_tpoint_collect_result::not_collecting) + { + if (debug_threads) + debug_printf ("fast tracepoint finished " + "collecting successfully.\n"); + + /* We may have a deferred signal to report. */ + if (dequeue_one_deferred_signal (event_child, &w)) + { + if (debug_threads) + debug_printf ("dequeued one signal.\n"); + } + else + { + if (debug_threads) + debug_printf ("no deferred signals.\n"); + + if (stabilizing_threads) + { + ourstatus->kind = TARGET_WAITKIND_STOPPED; + ourstatus->value.sig = GDB_SIGNAL_0; + + if (debug_threads) + { + debug_printf ("linux_wait_1 ret = %s, stopped " + "while stabilizing threads\n", + target_pid_to_str (ptid_of (current_thread))); + debug_exit (); + } + + return ptid_of (current_thread); + } + } + } + } + + /* Check whether GDB would be interested in this event. */ + + /* Check if GDB is interested in this syscall. */ + if (WIFSTOPPED (w) + && WSTOPSIG (w) == SYSCALL_SIGTRAP + && !gdb_catch_this_syscall_p (event_child)) + { + if (debug_threads) + { + debug_printf ("Ignored syscall for LWP %ld.\n", + lwpid_of (current_thread)); + } + + linux_resume_one_lwp (event_child, event_child->stepping, + 0, NULL); + + if (debug_threads) + debug_exit (); + return ignore_event (ourstatus); + } + + /* If GDB is not interested in this signal, don't stop other + threads, and don't report it to GDB. Just resume the inferior + right away. We do this for threading-related signals as well as + any that GDB specifically requested we ignore. But never ignore + SIGSTOP if we sent it ourselves, and do not ignore signals when + stepping - they may require special handling to skip the signal + handler. Also never ignore signals that could be caused by a + breakpoint. */ + if (WIFSTOPPED (w) + && current_thread->last_resume_kind != resume_step + && ( +#if defined (USE_THREAD_DB) && !defined (__ANDROID__) + (current_process ()->priv->thread_db != NULL + && (WSTOPSIG (w) == __SIGRTMIN + || WSTOPSIG (w) == __SIGRTMIN + 1)) + || +#endif + (cs.pass_signals[gdb_signal_from_host (WSTOPSIG (w))] + && !(WSTOPSIG (w) == SIGSTOP + && current_thread->last_resume_kind == resume_stop) + && !linux_wstatus_maybe_breakpoint (w)))) + { + siginfo_t info, *info_p; + + if (debug_threads) + debug_printf ("Ignored signal %d for LWP %ld.\n", + WSTOPSIG (w), lwpid_of (current_thread)); + + if (ptrace (PTRACE_GETSIGINFO, lwpid_of (current_thread), + (PTRACE_TYPE_ARG3) 0, &info) == 0) + info_p = &info; + else + info_p = NULL; + + if (step_over_finished) + { + /* We cancelled this thread's step-over above. We still + need to unsuspend all other LWPs, and set them back + running again while the signal handler runs. */ + unsuspend_all_lwps (event_child); + + /* Enqueue the pending signal info so that proceed_all_lwps + doesn't lose it. */ + enqueue_pending_signal (event_child, WSTOPSIG (w), info_p); + + proceed_all_lwps (); + } + else + { + linux_resume_one_lwp (event_child, event_child->stepping, + WSTOPSIG (w), info_p); + } + + if (debug_threads) + debug_exit (); + + return ignore_event (ourstatus); + } + + /* Note that all addresses are always "out of the step range" when + there's no range to begin with. */ + in_step_range = lwp_in_step_range (event_child); + + /* If GDB wanted this thread to single step, and the thread is out + of the step range, we always want to report the SIGTRAP, and let + GDB handle it. Watchpoints should always be reported. So should + signals we can't explain. A SIGTRAP we can't explain could be a + GDB breakpoint --- we may or not support Z0 breakpoints. If we + do, we're be able to handle GDB breakpoints on top of internal + breakpoints, by handling the internal breakpoint and still + reporting the event to GDB. If we don't, we're out of luck, GDB + won't see the breakpoint hit. If we see a single-step event but + the thread should be continuing, don't pass the trap to gdb. + That indicates that we had previously finished a single-step but + left the single-step pending -- see + complete_ongoing_step_over. */ + report_to_gdb = (!maybe_internal_trap + || (current_thread->last_resume_kind == resume_step + && !in_step_range) + || event_child->stop_reason == TARGET_STOPPED_BY_WATCHPOINT + || (!in_step_range + && !bp_explains_trap + && !trace_event + && !step_over_finished + && !(current_thread->last_resume_kind == resume_continue + && event_child->stop_reason == TARGET_STOPPED_BY_SINGLE_STEP)) + || (gdb_breakpoint_here (event_child->stop_pc) + && gdb_condition_true_at_breakpoint (event_child->stop_pc) + && gdb_no_commands_at_breakpoint (event_child->stop_pc)) + || event_child->waitstatus.kind != TARGET_WAITKIND_IGNORE); + + run_breakpoint_commands (event_child->stop_pc); + + /* We found no reason GDB would want us to stop. We either hit one + of our own breakpoints, or finished an internal step GDB + shouldn't know about. */ + if (!report_to_gdb) + { + if (debug_threads) + { + if (bp_explains_trap) + debug_printf ("Hit a gdbserver breakpoint.\n"); + if (step_over_finished) + debug_printf ("Step-over finished.\n"); + if (trace_event) + debug_printf ("Tracepoint event.\n"); + if (lwp_in_step_range (event_child)) + debug_printf ("Range stepping pc 0x%s [0x%s, 0x%s).\n", + paddress (event_child->stop_pc), + paddress (event_child->step_range_start), + paddress (event_child->step_range_end)); + } + + /* We're not reporting this breakpoint to GDB, so apply the + decr_pc_after_break adjustment to the inferior's regcache + ourselves. */ + + if (the_low_target.set_pc != NULL) + { + struct regcache *regcache + = get_thread_regcache (current_thread, 1); + (*the_low_target.set_pc) (regcache, event_child->stop_pc); + } + + if (step_over_finished) + { + /* If we have finished stepping over a breakpoint, we've + stopped and suspended all LWPs momentarily except the + stepping one. This is where we resume them all again. + We're going to keep waiting, so use proceed, which + handles stepping over the next breakpoint. */ + unsuspend_all_lwps (event_child); + } + else + { + /* Remove the single-step breakpoints if any. Note that + there isn't single-step breakpoint if we finished stepping + over. */ + if (can_software_single_step () + && has_single_step_breakpoints (current_thread)) + { + stop_all_lwps (0, event_child); + delete_single_step_breakpoints (current_thread); + unstop_all_lwps (0, event_child); + } + } + + if (debug_threads) + debug_printf ("proceeding all threads.\n"); + proceed_all_lwps (); + + if (debug_threads) + debug_exit (); + + return ignore_event (ourstatus); + } + + if (debug_threads) + { + if (event_child->waitstatus.kind != TARGET_WAITKIND_IGNORE) + { + std::string str + = target_waitstatus_to_string (&event_child->waitstatus); + + debug_printf ("LWP %ld: extended event with waitstatus %s\n", + lwpid_of (get_lwp_thread (event_child)), str.c_str ()); + } + if (current_thread->last_resume_kind == resume_step) + { + if (event_child->step_range_start == event_child->step_range_end) + debug_printf ("GDB wanted to single-step, reporting event.\n"); + else if (!lwp_in_step_range (event_child)) + debug_printf ("Out of step range, reporting event.\n"); + } + if (event_child->stop_reason == TARGET_STOPPED_BY_WATCHPOINT) + debug_printf ("Stopped by watchpoint.\n"); + else if (gdb_breakpoint_here (event_child->stop_pc)) + debug_printf ("Stopped by GDB breakpoint.\n"); + if (debug_threads) + debug_printf ("Hit a non-gdbserver trap event.\n"); + } + + /* Alright, we're going to report a stop. */ + + /* Remove single-step breakpoints. */ + if (can_software_single_step ()) + { + /* Remove single-step breakpoints or not. It it is true, stop all + lwps, so that other threads won't hit the breakpoint in the + staled memory. */ + int remove_single_step_breakpoints_p = 0; + + if (non_stop) + { + remove_single_step_breakpoints_p + = has_single_step_breakpoints (current_thread); + } + else + { + /* In all-stop, a stop reply cancels all previous resume + requests. Delete all single-step breakpoints. */ + + find_thread ([&] (thread_info *thread) { + if (has_single_step_breakpoints (thread)) + { + remove_single_step_breakpoints_p = 1; + return true; + } + + return false; + }); + } + + if (remove_single_step_breakpoints_p) + { + /* If we remove single-step breakpoints from memory, stop all lwps, + so that other threads won't hit the breakpoint in the staled + memory. */ + stop_all_lwps (0, event_child); + + if (non_stop) + { + gdb_assert (has_single_step_breakpoints (current_thread)); + delete_single_step_breakpoints (current_thread); + } + else + { + for_each_thread ([] (thread_info *thread){ + if (has_single_step_breakpoints (thread)) + delete_single_step_breakpoints (thread); + }); + } + + unstop_all_lwps (0, event_child); + } + } + + if (!stabilizing_threads) + { + /* In all-stop, stop all threads. */ + if (!non_stop) + stop_all_lwps (0, NULL); + + if (step_over_finished) + { + if (!non_stop) + { + /* If we were doing a step-over, all other threads but + the stepping one had been paused in start_step_over, + with their suspend counts incremented. We don't want + to do a full unstop/unpause, because we're in + all-stop mode (so we want threads stopped), but we + still need to unsuspend the other threads, to + decrement their `suspended' count back. */ + unsuspend_all_lwps (event_child); + } + else + { + /* If we just finished a step-over, then all threads had + been momentarily paused. In all-stop, that's fine, + we want threads stopped by now anyway. In non-stop, + we need to re-resume threads that GDB wanted to be + running. */ + unstop_all_lwps (1, event_child); + } + } + + /* If we're not waiting for a specific LWP, choose an event LWP + from among those that have had events. Giving equal priority + to all LWPs that have had events helps prevent + starvation. */ + if (ptid == minus_one_ptid) + { + event_child->status_pending_p = 1; + event_child->status_pending = w; + + select_event_lwp (&event_child); + + /* current_thread and event_child must stay in sync. */ + current_thread = get_lwp_thread (event_child); + + event_child->status_pending_p = 0; + w = event_child->status_pending; + } + + + /* Stabilize threads (move out of jump pads). */ + if (!non_stop) + stabilize_threads (); + } + else + { + /* If we just finished a step-over, then all threads had been + momentarily paused. In all-stop, that's fine, we want + threads stopped by now anyway. In non-stop, we need to + re-resume threads that GDB wanted to be running. */ + if (step_over_finished) + unstop_all_lwps (1, event_child); + } + + if (event_child->waitstatus.kind != TARGET_WAITKIND_IGNORE) + { + /* If the reported event is an exit, fork, vfork or exec, let + GDB know. */ + + /* Break the unreported fork relationship chain. */ + if (event_child->waitstatus.kind == TARGET_WAITKIND_FORKED + || event_child->waitstatus.kind == TARGET_WAITKIND_VFORKED) + { + event_child->fork_relative->fork_relative = NULL; + event_child->fork_relative = NULL; + } + + *ourstatus = event_child->waitstatus; + /* Clear the event lwp's waitstatus since we handled it already. */ + event_child->waitstatus.kind = TARGET_WAITKIND_IGNORE; + } + else + ourstatus->kind = TARGET_WAITKIND_STOPPED; + + /* Now that we've selected our final event LWP, un-adjust its PC if + it was a software breakpoint, and the client doesn't know we can + adjust the breakpoint ourselves. */ + if (event_child->stop_reason == TARGET_STOPPED_BY_SW_BREAKPOINT + && !cs.swbreak_feature) + { + int decr_pc = the_low_target.decr_pc_after_break; + + if (decr_pc != 0) + { + struct regcache *regcache + = get_thread_regcache (current_thread, 1); + (*the_low_target.set_pc) (regcache, event_child->stop_pc + decr_pc); + } + } + + if (WSTOPSIG (w) == SYSCALL_SIGTRAP) + { + get_syscall_trapinfo (event_child, + &ourstatus->value.syscall_number); + ourstatus->kind = event_child->syscall_state; + } + else if (current_thread->last_resume_kind == resume_stop + && WSTOPSIG (w) == SIGSTOP) + { + /* A thread that has been requested to stop by GDB with vCont;t, + and it stopped cleanly, so report as SIG0. The use of + SIGSTOP is an implementation detail. */ + ourstatus->value.sig = GDB_SIGNAL_0; + } + else if (current_thread->last_resume_kind == resume_stop + && WSTOPSIG (w) != SIGSTOP) + { + /* A thread that has been requested to stop by GDB with vCont;t, + but, it stopped for other reasons. */ + ourstatus->value.sig = gdb_signal_from_host (WSTOPSIG (w)); + } + else if (ourstatus->kind == TARGET_WAITKIND_STOPPED) + { + ourstatus->value.sig = gdb_signal_from_host (WSTOPSIG (w)); + } + + gdb_assert (step_over_bkpt == null_ptid); + + if (debug_threads) + { + debug_printf ("linux_wait_1 ret = %s, %d, %d\n", + target_pid_to_str (ptid_of (current_thread)), + ourstatus->kind, ourstatus->value.sig); + debug_exit (); + } + + if (ourstatus->kind == TARGET_WAITKIND_EXITED) + return filter_exit_event (event_child, ourstatus); + + return ptid_of (current_thread); +} + +/* Get rid of any pending event in the pipe. */ +static void +async_file_flush (void) +{ + int ret; + char buf; + + do + ret = read (linux_event_pipe[0], &buf, 1); + while (ret >= 0 || (ret == -1 && errno == EINTR)); +} + +/* Put something in the pipe, so the event loop wakes up. */ +static void +async_file_mark (void) +{ + int ret; + + async_file_flush (); + + do + ret = write (linux_event_pipe[1], "+", 1); + while (ret == 0 || (ret == -1 && errno == EINTR)); + + /* Ignore EAGAIN. If the pipe is full, the event loop will already + be awakened anyway. */ +} + +static ptid_t +linux_wait (ptid_t ptid, + struct target_waitstatus *ourstatus, int target_options) +{ + ptid_t event_ptid; + + /* Flush the async file first. */ + if (target_is_async_p ()) + async_file_flush (); + + do + { + event_ptid = linux_wait_1 (ptid, ourstatus, target_options); + } + while ((target_options & TARGET_WNOHANG) == 0 + && event_ptid == null_ptid + && ourstatus->kind == TARGET_WAITKIND_IGNORE); + + /* If at least one stop was reported, there may be more. A single + SIGCHLD can signal more than one child stop. */ + if (target_is_async_p () + && (target_options & TARGET_WNOHANG) != 0 + && event_ptid != null_ptid) + async_file_mark (); + + return event_ptid; +} + +/* Send a signal to an LWP. */ + +static int +kill_lwp (unsigned long lwpid, int signo) +{ + int ret; + + errno = 0; + ret = syscall (__NR_tkill, lwpid, signo); + if (errno == ENOSYS) + { + /* If tkill fails, then we are not using nptl threads, a + configuration we no longer support. */ + perror_with_name (("tkill")); + } + return ret; +} + +void +linux_stop_lwp (struct lwp_info *lwp) +{ + send_sigstop (lwp); +} + +static void +send_sigstop (struct lwp_info *lwp) +{ + int pid; + + pid = lwpid_of (get_lwp_thread (lwp)); + + /* If we already have a pending stop signal for this process, don't + send another. */ + if (lwp->stop_expected) + { + if (debug_threads) + debug_printf ("Have pending sigstop for lwp %d\n", pid); + + return; + } + + if (debug_threads) + debug_printf ("Sending sigstop to lwp %d\n", pid); + + lwp->stop_expected = 1; + kill_lwp (pid, SIGSTOP); +} + +static void +send_sigstop (thread_info *thread, lwp_info *except) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + + /* Ignore EXCEPT. */ + if (lwp == except) + return; + + if (lwp->stopped) + return; + + send_sigstop (lwp); +} + +/* Increment the suspend count of an LWP, and stop it, if not stopped + yet. */ +static void +suspend_and_send_sigstop (thread_info *thread, lwp_info *except) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + + /* Ignore EXCEPT. */ + if (lwp == except) + return; + + lwp_suspended_inc (lwp); + + send_sigstop (thread, except); +} + +static void +mark_lwp_dead (struct lwp_info *lwp, int wstat) +{ + /* Store the exit status for later. */ + lwp->status_pending_p = 1; + lwp->status_pending = wstat; + + /* Store in waitstatus as well, as there's nothing else to process + for this event. */ + if (WIFEXITED (wstat)) + { + lwp->waitstatus.kind = TARGET_WAITKIND_EXITED; + lwp->waitstatus.value.integer = WEXITSTATUS (wstat); + } + else if (WIFSIGNALED (wstat)) + { + lwp->waitstatus.kind = TARGET_WAITKIND_SIGNALLED; + lwp->waitstatus.value.sig = gdb_signal_from_host (WTERMSIG (wstat)); + } + + /* Prevent trying to stop it. */ + lwp->stopped = 1; + + /* No further stops are expected from a dead lwp. */ + lwp->stop_expected = 0; +} + +/* Return true if LWP has exited already, and has a pending exit event + to report to GDB. */ + +static int +lwp_is_marked_dead (struct lwp_info *lwp) +{ + return (lwp->status_pending_p + && (WIFEXITED (lwp->status_pending) + || WIFSIGNALED (lwp->status_pending))); +} + +/* Wait for all children to stop for the SIGSTOPs we just queued. */ + +static void +wait_for_sigstop (void) +{ + struct thread_info *saved_thread; + ptid_t saved_tid; + int wstat; + int ret; + + saved_thread = current_thread; + if (saved_thread != NULL) + saved_tid = saved_thread->id; + else + saved_tid = null_ptid; /* avoid bogus unused warning */ + + if (debug_threads) + debug_printf ("wait_for_sigstop: pulling events\n"); + + /* Passing NULL_PTID as filter indicates we want all events to be + left pending. Eventually this returns when there are no + unwaited-for children left. */ + ret = linux_wait_for_event_filtered (minus_one_ptid, null_ptid, + &wstat, __WALL); + gdb_assert (ret == -1); + + if (saved_thread == NULL || linux_thread_alive (saved_tid)) + current_thread = saved_thread; + else + { + if (debug_threads) + debug_printf ("Previously current thread died.\n"); + + /* We can't change the current inferior behind GDB's back, + otherwise, a subsequent command may apply to the wrong + process. */ + current_thread = NULL; + } +} + +/* Returns true if THREAD is stopped in a jump pad, and we can't + move it out, because we need to report the stop event to GDB. For + example, if the user puts a breakpoint in the jump pad, it's + because she wants to debug it. */ + +static bool +stuck_in_jump_pad_callback (thread_info *thread) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + + if (lwp->suspended != 0) + { + internal_error (__FILE__, __LINE__, + "LWP %ld is suspended, suspended=%d\n", + lwpid_of (thread), lwp->suspended); + } + gdb_assert (lwp->stopped); + + /* Allow debugging the jump pad, gdb_collect, etc.. */ + return (supports_fast_tracepoints () + && agent_loaded_p () + && (gdb_breakpoint_here (lwp->stop_pc) + || lwp->stop_reason == TARGET_STOPPED_BY_WATCHPOINT + || thread->last_resume_kind == resume_step) + && (linux_fast_tracepoint_collecting (lwp, NULL) + != fast_tpoint_collect_result::not_collecting)); +} + +static void +move_out_of_jump_pad_callback (thread_info *thread) +{ + struct thread_info *saved_thread; + struct lwp_info *lwp = get_thread_lwp (thread); + int *wstat; + + if (lwp->suspended != 0) + { + internal_error (__FILE__, __LINE__, + "LWP %ld is suspended, suspended=%d\n", + lwpid_of (thread), lwp->suspended); + } + gdb_assert (lwp->stopped); + + /* For gdb_breakpoint_here. */ + saved_thread = current_thread; + current_thread = thread; + + wstat = lwp->status_pending_p ? &lwp->status_pending : NULL; + + /* Allow debugging the jump pad, gdb_collect, etc. */ + if (!gdb_breakpoint_here (lwp->stop_pc) + && lwp->stop_reason != TARGET_STOPPED_BY_WATCHPOINT + && thread->last_resume_kind != resume_step + && maybe_move_out_of_jump_pad (lwp, wstat)) + { + if (debug_threads) + debug_printf ("LWP %ld needs stabilizing (in jump pad)\n", + lwpid_of (thread)); + + if (wstat) + { + lwp->status_pending_p = 0; + enqueue_one_deferred_signal (lwp, wstat); + + if (debug_threads) + debug_printf ("Signal %d for LWP %ld deferred " + "(in jump pad)\n", + WSTOPSIG (*wstat), lwpid_of (thread)); + } + + linux_resume_one_lwp (lwp, 0, 0, NULL); + } + else + lwp_suspended_inc (lwp); + + current_thread = saved_thread; +} + +static bool +lwp_running (thread_info *thread) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + + if (lwp_is_marked_dead (lwp)) + return false; + + return !lwp->stopped; +} + +/* Stop all lwps that aren't stopped yet, except EXCEPT, if not NULL. + If SUSPEND, then also increase the suspend count of every LWP, + except EXCEPT. */ + +static void +stop_all_lwps (int suspend, struct lwp_info *except) +{ + /* Should not be called recursively. */ + gdb_assert (stopping_threads == NOT_STOPPING_THREADS); + + if (debug_threads) + { + debug_enter (); + debug_printf ("stop_all_lwps (%s, except=%s)\n", + suspend ? "stop-and-suspend" : "stop", + except != NULL + ? target_pid_to_str (ptid_of (get_lwp_thread (except))) + : "none"); + } + + stopping_threads = (suspend + ? STOPPING_AND_SUSPENDING_THREADS + : STOPPING_THREADS); + + if (suspend) + for_each_thread ([&] (thread_info *thread) + { + suspend_and_send_sigstop (thread, except); + }); + else + for_each_thread ([&] (thread_info *thread) + { + send_sigstop (thread, except); + }); + + wait_for_sigstop (); + stopping_threads = NOT_STOPPING_THREADS; + + if (debug_threads) + { + debug_printf ("stop_all_lwps done, setting stopping_threads " + "back to !stopping\n"); + debug_exit (); + } +} + +/* Enqueue one signal in the chain of signals which need to be + delivered to this process on next resume. */ + +static void +enqueue_pending_signal (struct lwp_info *lwp, int signal, siginfo_t *info) +{ + struct pending_signals *p_sig = XNEW (struct pending_signals); + + p_sig->prev = lwp->pending_signals; + p_sig->signal = signal; + if (info == NULL) + memset (&p_sig->info, 0, sizeof (siginfo_t)); + else + memcpy (&p_sig->info, info, sizeof (siginfo_t)); + lwp->pending_signals = p_sig; +} + +/* Install breakpoints for software single stepping. */ + +static void +install_software_single_step_breakpoints (struct lwp_info *lwp) +{ + struct thread_info *thread = get_lwp_thread (lwp); + struct regcache *regcache = get_thread_regcache (thread, 1); + + scoped_restore save_current_thread = make_scoped_restore (¤t_thread); + + current_thread = thread; + std::vector next_pcs = the_low_target.get_next_pcs (regcache); + + for (CORE_ADDR pc : next_pcs) + set_single_step_breakpoint (pc, current_ptid); +} + +/* Single step via hardware or software single step. + Return 1 if hardware single stepping, 0 if software single stepping + or can't single step. */ + +static int +single_step (struct lwp_info* lwp) +{ + int step = 0; + + if (can_hardware_single_step ()) + { + step = 1; + } + else if (can_software_single_step ()) + { + install_software_single_step_breakpoints (lwp); + step = 0; + } + else + { + if (debug_threads) + debug_printf ("stepping is not implemented on this target"); + } + + return step; +} + +/* The signal can be delivered to the inferior if we are not trying to + finish a fast tracepoint collect. Since signal can be delivered in + the step-over, the program may go to signal handler and trap again + after return from the signal handler. We can live with the spurious + double traps. */ + +static int +lwp_signal_can_be_delivered (struct lwp_info *lwp) +{ + return (lwp->collecting_fast_tracepoint + == fast_tpoint_collect_result::not_collecting); +} + +/* Resume execution of LWP. If STEP is nonzero, single-step it. If + SIGNAL is nonzero, give it that signal. */ + +static void +linux_resume_one_lwp_throw (struct lwp_info *lwp, + int step, int signal, siginfo_t *info) +{ + struct thread_info *thread = get_lwp_thread (lwp); + struct thread_info *saved_thread; + int ptrace_request; + struct process_info *proc = get_thread_process (thread); + + /* Note that target description may not be initialised + (proc->tdesc == NULL) at this point because the program hasn't + stopped at the first instruction yet. It means GDBserver skips + the extra traps from the wrapper program (see option --wrapper). + Code in this function that requires register access should be + guarded by proc->tdesc == NULL or something else. */ + + if (lwp->stopped == 0) + return; + + gdb_assert (lwp->waitstatus.kind == TARGET_WAITKIND_IGNORE); + + fast_tpoint_collect_result fast_tp_collecting + = lwp->collecting_fast_tracepoint; + + gdb_assert (!stabilizing_threads + || (fast_tp_collecting + != fast_tpoint_collect_result::not_collecting)); + + /* Cancel actions that rely on GDB not changing the PC (e.g., the + user used the "jump" command, or "set $pc = foo"). */ + if (thread->while_stepping != NULL && lwp->stop_pc != get_pc (lwp)) + { + /* Collecting 'while-stepping' actions doesn't make sense + anymore. */ + release_while_stepping_state_list (thread); + } + + /* If we have pending signals or status, and a new signal, enqueue the + signal. Also enqueue the signal if it can't be delivered to the + inferior right now. */ + if (signal != 0 + && (lwp->status_pending_p + || lwp->pending_signals != NULL + || !lwp_signal_can_be_delivered (lwp))) + { + enqueue_pending_signal (lwp, signal, info); + + /* Postpone any pending signal. It was enqueued above. */ + signal = 0; + } + + if (lwp->status_pending_p) + { + if (debug_threads) + debug_printf ("Not resuming lwp %ld (%s, stop %s);" + " has pending status\n", + lwpid_of (thread), step ? "step" : "continue", + lwp->stop_expected ? "expected" : "not expected"); + return; + } + + saved_thread = current_thread; + current_thread = thread; + + /* This bit needs some thinking about. If we get a signal that + we must report while a single-step reinsert is still pending, + we often end up resuming the thread. It might be better to + (ew) allow a stack of pending events; then we could be sure that + the reinsert happened right away and not lose any signals. + + Making this stack would also shrink the window in which breakpoints are + uninserted (see comment in linux_wait_for_lwp) but not enough for + complete correctness, so it won't solve that problem. It may be + worthwhile just to solve this one, however. */ + if (lwp->bp_reinsert != 0) + { + if (debug_threads) + debug_printf (" pending reinsert at 0x%s\n", + paddress (lwp->bp_reinsert)); + + if (can_hardware_single_step ()) + { + if (fast_tp_collecting == fast_tpoint_collect_result::not_collecting) + { + if (step == 0) + warning ("BAD - reinserting but not stepping."); + if (lwp->suspended) + warning ("BAD - reinserting and suspended(%d).", + lwp->suspended); + } + } + + step = maybe_hw_step (thread); + } + + if (fast_tp_collecting == fast_tpoint_collect_result::before_insn) + { + if (debug_threads) + debug_printf ("lwp %ld wants to get out of fast tracepoint jump pad" + " (exit-jump-pad-bkpt)\n", + lwpid_of (thread)); + } + else if (fast_tp_collecting == fast_tpoint_collect_result::at_insn) + { + if (debug_threads) + debug_printf ("lwp %ld wants to get out of fast tracepoint jump pad" + " single-stepping\n", + lwpid_of (thread)); + + if (can_hardware_single_step ()) + step = 1; + else + { + internal_error (__FILE__, __LINE__, + "moving out of jump pad single-stepping" + " not implemented on this target"); + } + } + + /* If we have while-stepping actions in this thread set it stepping. + If we have a signal to deliver, it may or may not be set to + SIG_IGN, we don't know. Assume so, and allow collecting + while-stepping into a signal handler. A possible smart thing to + do would be to set an internal breakpoint at the signal return + address, continue, and carry on catching this while-stepping + action only when that breakpoint is hit. A future + enhancement. */ + if (thread->while_stepping != NULL) + { + if (debug_threads) + debug_printf ("lwp %ld has a while-stepping action -> forcing step.\n", + lwpid_of (thread)); + + step = single_step (lwp); + } + + if (proc->tdesc != NULL && the_low_target.get_pc != NULL) + { + struct regcache *regcache = get_thread_regcache (current_thread, 1); + + lwp->stop_pc = (*the_low_target.get_pc) (regcache); + + if (debug_threads) + { + debug_printf (" %s from pc 0x%lx\n", step ? "step" : "continue", + (long) lwp->stop_pc); + } + } + + /* If we have pending signals, consume one if it can be delivered to + the inferior. */ + if (lwp->pending_signals != NULL && lwp_signal_can_be_delivered (lwp)) + { + struct pending_signals **p_sig; + + p_sig = &lwp->pending_signals; + while ((*p_sig)->prev != NULL) + p_sig = &(*p_sig)->prev; + + signal = (*p_sig)->signal; + if ((*p_sig)->info.si_signo != 0) + ptrace (PTRACE_SETSIGINFO, lwpid_of (thread), (PTRACE_TYPE_ARG3) 0, + &(*p_sig)->info); + + free (*p_sig); + *p_sig = NULL; + } + + if (debug_threads) + debug_printf ("Resuming lwp %ld (%s, signal %d, stop %s)\n", + lwpid_of (thread), step ? "step" : "continue", signal, + lwp->stop_expected ? "expected" : "not expected"); + + if (the_low_target.prepare_to_resume != NULL) + the_low_target.prepare_to_resume (lwp); + + regcache_invalidate_thread (thread); + errno = 0; + lwp->stepping = step; + if (step) + ptrace_request = PTRACE_SINGLESTEP; + else if (gdb_catching_syscalls_p (lwp)) + ptrace_request = PTRACE_SYSCALL; + else + ptrace_request = PTRACE_CONT; + ptrace (ptrace_request, + lwpid_of (thread), + (PTRACE_TYPE_ARG3) 0, + /* Coerce to a uintptr_t first to avoid potential gcc warning + of coercing an 8 byte integer to a 4 byte pointer. */ + (PTRACE_TYPE_ARG4) (uintptr_t) signal); + + current_thread = saved_thread; + if (errno) + perror_with_name ("resuming thread"); + + /* Successfully resumed. Clear state that no longer makes sense, + and mark the LWP as running. Must not do this before resuming + otherwise if that fails other code will be confused. E.g., we'd + later try to stop the LWP and hang forever waiting for a stop + status. Note that we must not throw after this is cleared, + otherwise handle_zombie_lwp_error would get confused. */ + lwp->stopped = 0; + lwp->stop_reason = TARGET_STOPPED_BY_NO_REASON; +} + +/* Called when we try to resume a stopped LWP and that errors out. If + the LWP is no longer in ptrace-stopped state (meaning it's zombie, + or about to become), discard the error, clear any pending status + the LWP may have, and return true (we'll collect the exit status + soon enough). Otherwise, return false. */ + +static int +check_ptrace_stopped_lwp_gone (struct lwp_info *lp) +{ + struct thread_info *thread = get_lwp_thread (lp); + + /* If we get an error after resuming the LWP successfully, we'd + confuse !T state for the LWP being gone. */ + gdb_assert (lp->stopped); + + /* We can't just check whether the LWP is in 'Z (Zombie)' state, + because even if ptrace failed with ESRCH, the tracee may be "not + yet fully dead", but already refusing ptrace requests. In that + case the tracee has 'R (Running)' state for a little bit + (observed in Linux 3.18). See also the note on ESRCH in the + ptrace(2) man page. Instead, check whether the LWP has any state + other than ptrace-stopped. */ + + /* Don't assume anything if /proc/PID/status can't be read. */ + if (linux_proc_pid_is_trace_stopped_nowarn (lwpid_of (thread)) == 0) + { + lp->stop_reason = TARGET_STOPPED_BY_NO_REASON; + lp->status_pending_p = 0; + return 1; + } + return 0; +} + +/* Like linux_resume_one_lwp_throw, but no error is thrown if the LWP + disappears while we try to resume it. */ + +static void +linux_resume_one_lwp (struct lwp_info *lwp, + int step, int signal, siginfo_t *info) +{ + try + { + linux_resume_one_lwp_throw (lwp, step, signal, info); + } + catch (const gdb_exception_error &ex) + { + if (!check_ptrace_stopped_lwp_gone (lwp)) + throw; + } +} + +/* This function is called once per thread via for_each_thread. + We look up which resume request applies to THREAD and mark it with a + pointer to the appropriate resume request. + + This algorithm is O(threads * resume elements), but resume elements + is small (and will remain small at least until GDB supports thread + suspension). */ + +static void +linux_set_resume_request (thread_info *thread, thread_resume *resume, size_t n) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + + for (int ndx = 0; ndx < n; ndx++) + { + ptid_t ptid = resume[ndx].thread; + if (ptid == minus_one_ptid + || ptid == thread->id + /* Handle both 'pPID' and 'pPID.-1' as meaning 'all threads + of PID'. */ + || (ptid.pid () == pid_of (thread) + && (ptid.is_pid () + || ptid.lwp () == -1))) + { + if (resume[ndx].kind == resume_stop + && thread->last_resume_kind == resume_stop) + { + if (debug_threads) + debug_printf ("already %s LWP %ld at GDB's request\n", + (thread->last_status.kind + == TARGET_WAITKIND_STOPPED) + ? "stopped" + : "stopping", + lwpid_of (thread)); + + continue; + } + + /* Ignore (wildcard) resume requests for already-resumed + threads. */ + if (resume[ndx].kind != resume_stop + && thread->last_resume_kind != resume_stop) + { + if (debug_threads) + debug_printf ("already %s LWP %ld at GDB's request\n", + (thread->last_resume_kind + == resume_step) + ? "stepping" + : "continuing", + lwpid_of (thread)); + continue; + } + + /* Don't let wildcard resumes resume fork children that GDB + does not yet know are new fork children. */ + if (lwp->fork_relative != NULL) + { + struct lwp_info *rel = lwp->fork_relative; + + if (rel->status_pending_p + && (rel->waitstatus.kind == TARGET_WAITKIND_FORKED + || rel->waitstatus.kind == TARGET_WAITKIND_VFORKED)) + { + if (debug_threads) + debug_printf ("not resuming LWP %ld: has queued stop reply\n", + lwpid_of (thread)); + continue; + } + } + + /* If the thread has a pending event that has already been + reported to GDBserver core, but GDB has not pulled the + event out of the vStopped queue yet, likewise, ignore the + (wildcard) resume request. */ + if (in_queued_stop_replies (thread->id)) + { + if (debug_threads) + debug_printf ("not resuming LWP %ld: has queued stop reply\n", + lwpid_of (thread)); + continue; + } + + lwp->resume = &resume[ndx]; + thread->last_resume_kind = lwp->resume->kind; + + lwp->step_range_start = lwp->resume->step_range_start; + lwp->step_range_end = lwp->resume->step_range_end; + + /* If we had a deferred signal to report, dequeue one now. + This can happen if LWP gets more than one signal while + trying to get out of a jump pad. */ + if (lwp->stopped + && !lwp->status_pending_p + && dequeue_one_deferred_signal (lwp, &lwp->status_pending)) + { + lwp->status_pending_p = 1; + + if (debug_threads) + debug_printf ("Dequeueing deferred signal %d for LWP %ld, " + "leaving status pending.\n", + WSTOPSIG (lwp->status_pending), + lwpid_of (thread)); + } + + return; + } + } + + /* No resume action for this thread. */ + lwp->resume = NULL; +} + +/* find_thread callback for linux_resume. Return true if this lwp has an + interesting status pending. */ + +static bool +resume_status_pending_p (thread_info *thread) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + + /* LWPs which will not be resumed are not interesting, because + we might not wait for them next time through linux_wait. */ + if (lwp->resume == NULL) + return false; + + return thread_still_has_status_pending_p (thread); +} + +/* Return 1 if this lwp that GDB wants running is stopped at an + internal breakpoint that we need to step over. It assumes that any + required STOP_PC adjustment has already been propagated to the + inferior's regcache. */ + +static bool +need_step_over_p (thread_info *thread) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + struct thread_info *saved_thread; + CORE_ADDR pc; + struct process_info *proc = get_thread_process (thread); + + /* GDBserver is skipping the extra traps from the wrapper program, + don't have to do step over. */ + if (proc->tdesc == NULL) + return false; + + /* LWPs which will not be resumed are not interesting, because we + might not wait for them next time through linux_wait. */ + + if (!lwp->stopped) + { + if (debug_threads) + debug_printf ("Need step over [LWP %ld]? Ignoring, not stopped\n", + lwpid_of (thread)); + return false; + } + + if (thread->last_resume_kind == resume_stop) + { + if (debug_threads) + debug_printf ("Need step over [LWP %ld]? Ignoring, should remain" + " stopped\n", + lwpid_of (thread)); + return false; + } + + gdb_assert (lwp->suspended >= 0); + + if (lwp->suspended) + { + if (debug_threads) + debug_printf ("Need step over [LWP %ld]? Ignoring, suspended\n", + lwpid_of (thread)); + return false; + } + + if (lwp->status_pending_p) + { + if (debug_threads) + debug_printf ("Need step over [LWP %ld]? Ignoring, has pending" + " status.\n", + lwpid_of (thread)); + return false; + } + + /* Note: PC, not STOP_PC. Either GDB has adjusted the PC already, + or we have. */ + pc = get_pc (lwp); + + /* If the PC has changed since we stopped, then don't do anything, + and let the breakpoint/tracepoint be hit. This happens if, for + instance, GDB handled the decr_pc_after_break subtraction itself, + GDB is OOL stepping this thread, or the user has issued a "jump" + command, or poked thread's registers herself. */ + if (pc != lwp->stop_pc) + { + if (debug_threads) + debug_printf ("Need step over [LWP %ld]? Cancelling, PC was changed. " + "Old stop_pc was 0x%s, PC is now 0x%s\n", + lwpid_of (thread), + paddress (lwp->stop_pc), paddress (pc)); + return false; + } + + /* On software single step target, resume the inferior with signal + rather than stepping over. */ + if (can_software_single_step () + && lwp->pending_signals != NULL + && lwp_signal_can_be_delivered (lwp)) + { + if (debug_threads) + debug_printf ("Need step over [LWP %ld]? Ignoring, has pending" + " signals.\n", + lwpid_of (thread)); + + return false; + } + + saved_thread = current_thread; + current_thread = thread; + + /* We can only step over breakpoints we know about. */ + if (breakpoint_here (pc) || fast_tracepoint_jump_here (pc)) + { + /* Don't step over a breakpoint that GDB expects to hit + though. If the condition is being evaluated on the target's side + and it evaluate to false, step over this breakpoint as well. */ + if (gdb_breakpoint_here (pc) + && gdb_condition_true_at_breakpoint (pc) + && gdb_no_commands_at_breakpoint (pc)) + { + if (debug_threads) + debug_printf ("Need step over [LWP %ld]? yes, but found" + " GDB breakpoint at 0x%s; skipping step over\n", + lwpid_of (thread), paddress (pc)); + + current_thread = saved_thread; + return false; + } + else + { + if (debug_threads) + debug_printf ("Need step over [LWP %ld]? yes, " + "found breakpoint at 0x%s\n", + lwpid_of (thread), paddress (pc)); + + /* We've found an lwp that needs stepping over --- return 1 so + that find_thread stops looking. */ + current_thread = saved_thread; + + return true; + } + } + + current_thread = saved_thread; + + if (debug_threads) + debug_printf ("Need step over [LWP %ld]? No, no breakpoint found" + " at 0x%s\n", + lwpid_of (thread), paddress (pc)); + + return false; +} + +/* Start a step-over operation on LWP. When LWP stopped at a + breakpoint, to make progress, we need to remove the breakpoint out + of the way. If we let other threads run while we do that, they may + pass by the breakpoint location and miss hitting it. To avoid + that, a step-over momentarily stops all threads while LWP is + single-stepped by either hardware or software while the breakpoint + is temporarily uninserted from the inferior. When the single-step + finishes, we reinsert the breakpoint, and let all threads that are + supposed to be running, run again. */ + +static int +start_step_over (struct lwp_info *lwp) +{ + struct thread_info *thread = get_lwp_thread (lwp); + struct thread_info *saved_thread; + CORE_ADDR pc; + int step; + + if (debug_threads) + debug_printf ("Starting step-over on LWP %ld. Stopping all threads\n", + lwpid_of (thread)); + + stop_all_lwps (1, lwp); + + if (lwp->suspended != 0) + { + internal_error (__FILE__, __LINE__, + "LWP %ld suspended=%d\n", lwpid_of (thread), + lwp->suspended); + } + + if (debug_threads) + debug_printf ("Done stopping all threads for step-over.\n"); + + /* Note, we should always reach here with an already adjusted PC, + either by GDB (if we're resuming due to GDB's request), or by our + caller, if we just finished handling an internal breakpoint GDB + shouldn't care about. */ + pc = get_pc (lwp); + + saved_thread = current_thread; + current_thread = thread; + + lwp->bp_reinsert = pc; + uninsert_breakpoints_at (pc); + uninsert_fast_tracepoint_jumps_at (pc); + + step = single_step (lwp); + + current_thread = saved_thread; + + linux_resume_one_lwp (lwp, step, 0, NULL); + + /* Require next event from this LWP. */ + step_over_bkpt = thread->id; + return 1; +} + +/* Finish a step-over. Reinsert the breakpoint we had uninserted in + start_step_over, if still there, and delete any single-step + breakpoints we've set, on non hardware single-step targets. */ + +static int +finish_step_over (struct lwp_info *lwp) +{ + if (lwp->bp_reinsert != 0) + { + struct thread_info *saved_thread = current_thread; + + if (debug_threads) + debug_printf ("Finished step over.\n"); + + current_thread = get_lwp_thread (lwp); + + /* Reinsert any breakpoint at LWP->BP_REINSERT. Note that there + may be no breakpoint to reinsert there by now. */ + reinsert_breakpoints_at (lwp->bp_reinsert); + reinsert_fast_tracepoint_jumps_at (lwp->bp_reinsert); + + lwp->bp_reinsert = 0; + + /* Delete any single-step breakpoints. No longer needed. We + don't have to worry about other threads hitting this trap, + and later not being able to explain it, because we were + stepping over a breakpoint, and we hold all threads but + LWP stopped while doing that. */ + if (!can_hardware_single_step ()) + { + gdb_assert (has_single_step_breakpoints (current_thread)); + delete_single_step_breakpoints (current_thread); + } + + step_over_bkpt = null_ptid; + current_thread = saved_thread; + return 1; + } + else + return 0; +} + +/* If there's a step over in progress, wait until all threads stop + (that is, until the stepping thread finishes its step), and + unsuspend all lwps. The stepping thread ends with its status + pending, which is processed later when we get back to processing + events. */ + +static void +complete_ongoing_step_over (void) +{ + if (step_over_bkpt != null_ptid) + { + struct lwp_info *lwp; + int wstat; + int ret; + + if (debug_threads) + debug_printf ("detach: step over in progress, finish it first\n"); + + /* Passing NULL_PTID as filter indicates we want all events to + be left pending. Eventually this returns when there are no + unwaited-for children left. */ + ret = linux_wait_for_event_filtered (minus_one_ptid, null_ptid, + &wstat, __WALL); + gdb_assert (ret == -1); + + lwp = find_lwp_pid (step_over_bkpt); + if (lwp != NULL) + finish_step_over (lwp); + step_over_bkpt = null_ptid; + unsuspend_all_lwps (lwp); + } +} + +/* This function is called once per thread. We check the thread's resume + request, which will tell us whether to resume, step, or leave the thread + stopped; and what signal, if any, it should be sent. + + For threads which we aren't explicitly told otherwise, we preserve + the stepping flag; this is used for stepping over gdbserver-placed + breakpoints. + + If pending_flags was set in any thread, we queue any needed + signals, since we won't actually resume. We already have a pending + event to report, so we don't need to preserve any step requests; + they should be re-issued if necessary. */ + +static void +linux_resume_one_thread (thread_info *thread, bool leave_all_stopped) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + int leave_pending; + + if (lwp->resume == NULL) + return; + + if (lwp->resume->kind == resume_stop) + { + if (debug_threads) + debug_printf ("resume_stop request for LWP %ld\n", lwpid_of (thread)); + + if (!lwp->stopped) + { + if (debug_threads) + debug_printf ("stopping LWP %ld\n", lwpid_of (thread)); + + /* Stop the thread, and wait for the event asynchronously, + through the event loop. */ + send_sigstop (lwp); + } + else + { + if (debug_threads) + debug_printf ("already stopped LWP %ld\n", + lwpid_of (thread)); + + /* The LWP may have been stopped in an internal event that + was not meant to be notified back to GDB (e.g., gdbserver + breakpoint), so we should be reporting a stop event in + this case too. */ + + /* If the thread already has a pending SIGSTOP, this is a + no-op. Otherwise, something later will presumably resume + the thread and this will cause it to cancel any pending + operation, due to last_resume_kind == resume_stop. If + the thread already has a pending status to report, we + will still report it the next time we wait - see + status_pending_p_callback. */ + + /* If we already have a pending signal to report, then + there's no need to queue a SIGSTOP, as this means we're + midway through moving the LWP out of the jumppad, and we + will report the pending signal as soon as that is + finished. */ + if (lwp->pending_signals_to_report == NULL) + send_sigstop (lwp); + } + + /* For stop requests, we're done. */ + lwp->resume = NULL; + thread->last_status.kind = TARGET_WAITKIND_IGNORE; + return; + } + + /* If this thread which is about to be resumed has a pending status, + then don't resume it - we can just report the pending status. + Likewise if it is suspended, because e.g., another thread is + stepping past a breakpoint. Make sure to queue any signals that + would otherwise be sent. In all-stop mode, we do this decision + based on if *any* thread has a pending status. If there's a + thread that needs the step-over-breakpoint dance, then don't + resume any other thread but that particular one. */ + leave_pending = (lwp->suspended + || lwp->status_pending_p + || leave_all_stopped); + + /* If we have a new signal, enqueue the signal. */ + if (lwp->resume->sig != 0) + { + siginfo_t info, *info_p; + + /* If this is the same signal we were previously stopped by, + make sure to queue its siginfo. */ + if (WIFSTOPPED (lwp->last_status) + && WSTOPSIG (lwp->last_status) == lwp->resume->sig + && ptrace (PTRACE_GETSIGINFO, lwpid_of (thread), + (PTRACE_TYPE_ARG3) 0, &info) == 0) + info_p = &info; + else + info_p = NULL; + + enqueue_pending_signal (lwp, lwp->resume->sig, info_p); + } + + if (!leave_pending) + { + if (debug_threads) + debug_printf ("resuming LWP %ld\n", lwpid_of (thread)); + + proceed_one_lwp (thread, NULL); + } + else + { + if (debug_threads) + debug_printf ("leaving LWP %ld stopped\n", lwpid_of (thread)); + } + + thread->last_status.kind = TARGET_WAITKIND_IGNORE; + lwp->resume = NULL; +} + +static void +linux_resume (struct thread_resume *resume_info, size_t n) +{ + struct thread_info *need_step_over = NULL; + + if (debug_threads) + { + debug_enter (); + debug_printf ("linux_resume:\n"); + } + + for_each_thread ([&] (thread_info *thread) + { + linux_set_resume_request (thread, resume_info, n); + }); + + /* If there is a thread which would otherwise be resumed, which has + a pending status, then don't resume any threads - we can just + report the pending status. Make sure to queue any signals that + would otherwise be sent. In non-stop mode, we'll apply this + logic to each thread individually. We consume all pending events + before considering to start a step-over (in all-stop). */ + bool any_pending = false; + if (!non_stop) + any_pending = find_thread (resume_status_pending_p) != NULL; + + /* If there is a thread which would otherwise be resumed, which is + stopped at a breakpoint that needs stepping over, then don't + resume any threads - have it step over the breakpoint with all + other threads stopped, then resume all threads again. Make sure + to queue any signals that would otherwise be delivered or + queued. */ + if (!any_pending && supports_breakpoints ()) + need_step_over = find_thread (need_step_over_p); + + bool leave_all_stopped = (need_step_over != NULL || any_pending); + + if (debug_threads) + { + if (need_step_over != NULL) + debug_printf ("Not resuming all, need step over\n"); + else if (any_pending) + debug_printf ("Not resuming, all-stop and found " + "an LWP with pending status\n"); + else + debug_printf ("Resuming, no pending status or step over needed\n"); + } + + /* Even if we're leaving threads stopped, queue all signals we'd + otherwise deliver. */ + for_each_thread ([&] (thread_info *thread) + { + linux_resume_one_thread (thread, leave_all_stopped); + }); + + if (need_step_over) + start_step_over (get_thread_lwp (need_step_over)); + + if (debug_threads) + { + debug_printf ("linux_resume done\n"); + debug_exit (); + } + + /* We may have events that were pending that can/should be sent to + the client now. Trigger a linux_wait call. */ + if (target_is_async_p ()) + async_file_mark (); +} + +/* This function is called once per thread. We check the thread's + last resume request, which will tell us whether to resume, step, or + leave the thread stopped. Any signal the client requested to be + delivered has already been enqueued at this point. + + If any thread that GDB wants running is stopped at an internal + breakpoint that needs stepping over, we start a step-over operation + on that particular thread, and leave all others stopped. */ + +static void +proceed_one_lwp (thread_info *thread, lwp_info *except) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + int step; + + if (lwp == except) + return; + + if (debug_threads) + debug_printf ("proceed_one_lwp: lwp %ld\n", lwpid_of (thread)); + + if (!lwp->stopped) + { + if (debug_threads) + debug_printf (" LWP %ld already running\n", lwpid_of (thread)); + return; + } + + if (thread->last_resume_kind == resume_stop + && thread->last_status.kind != TARGET_WAITKIND_IGNORE) + { + if (debug_threads) + debug_printf (" client wants LWP to remain %ld stopped\n", + lwpid_of (thread)); + return; + } + + if (lwp->status_pending_p) + { + if (debug_threads) + debug_printf (" LWP %ld has pending status, leaving stopped\n", + lwpid_of (thread)); + return; + } + + gdb_assert (lwp->suspended >= 0); + + if (lwp->suspended) + { + if (debug_threads) + debug_printf (" LWP %ld is suspended\n", lwpid_of (thread)); + return; + } + + if (thread->last_resume_kind == resume_stop + && lwp->pending_signals_to_report == NULL + && (lwp->collecting_fast_tracepoint + == fast_tpoint_collect_result::not_collecting)) + { + /* We haven't reported this LWP as stopped yet (otherwise, the + last_status.kind check above would catch it, and we wouldn't + reach here. This LWP may have been momentarily paused by a + stop_all_lwps call while handling for example, another LWP's + step-over. In that case, the pending expected SIGSTOP signal + that was queued at vCont;t handling time will have already + been consumed by wait_for_sigstop, and so we need to requeue + another one here. Note that if the LWP already has a SIGSTOP + pending, this is a no-op. */ + + if (debug_threads) + debug_printf ("Client wants LWP %ld to stop. " + "Making sure it has a SIGSTOP pending\n", + lwpid_of (thread)); + + send_sigstop (lwp); + } + + if (thread->last_resume_kind == resume_step) + { + if (debug_threads) + debug_printf (" stepping LWP %ld, client wants it stepping\n", + lwpid_of (thread)); + + /* If resume_step is requested by GDB, install single-step + breakpoints when the thread is about to be actually resumed if + the single-step breakpoints weren't removed. */ + if (can_software_single_step () + && !has_single_step_breakpoints (thread)) + install_software_single_step_breakpoints (lwp); + + step = maybe_hw_step (thread); + } + else if (lwp->bp_reinsert != 0) + { + if (debug_threads) + debug_printf (" stepping LWP %ld, reinsert set\n", + lwpid_of (thread)); + + step = maybe_hw_step (thread); + } + else + step = 0; + + linux_resume_one_lwp (lwp, step, 0, NULL); +} + +static void +unsuspend_and_proceed_one_lwp (thread_info *thread, lwp_info *except) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + + if (lwp == except) + return; + + lwp_suspended_decr (lwp); + + proceed_one_lwp (thread, except); +} + +/* When we finish a step-over, set threads running again. If there's + another thread that may need a step-over, now's the time to start + it. Eventually, we'll move all threads past their breakpoints. */ + +static void +proceed_all_lwps (void) +{ + struct thread_info *need_step_over; + + /* If there is a thread which would otherwise be resumed, which is + stopped at a breakpoint that needs stepping over, then don't + resume any threads - have it step over the breakpoint with all + other threads stopped, then resume all threads again. */ + + if (supports_breakpoints ()) + { + need_step_over = find_thread (need_step_over_p); + + if (need_step_over != NULL) + { + if (debug_threads) + debug_printf ("proceed_all_lwps: found " + "thread %ld needing a step-over\n", + lwpid_of (need_step_over)); + + start_step_over (get_thread_lwp (need_step_over)); + return; + } + } + + if (debug_threads) + debug_printf ("Proceeding, no step-over needed\n"); + + for_each_thread ([] (thread_info *thread) + { + proceed_one_lwp (thread, NULL); + }); +} + +/* Stopped LWPs that the client wanted to be running, that don't have + pending statuses, are set to run again, except for EXCEPT, if not + NULL. This undoes a stop_all_lwps call. */ + +static void +unstop_all_lwps (int unsuspend, struct lwp_info *except) +{ + if (debug_threads) + { + debug_enter (); + if (except) + debug_printf ("unstopping all lwps, except=(LWP %ld)\n", + lwpid_of (get_lwp_thread (except))); + else + debug_printf ("unstopping all lwps\n"); + } + + if (unsuspend) + for_each_thread ([&] (thread_info *thread) + { + unsuspend_and_proceed_one_lwp (thread, except); + }); + else + for_each_thread ([&] (thread_info *thread) + { + proceed_one_lwp (thread, except); + }); + + if (debug_threads) + { + debug_printf ("unstop_all_lwps done\n"); + debug_exit (); + } +} + + +#ifdef HAVE_LINUX_REGSETS + +#define use_linux_regsets 1 + +/* Returns true if REGSET has been disabled. */ + +static int +regset_disabled (struct regsets_info *info, struct regset_info *regset) +{ + return (info->disabled_regsets != NULL + && info->disabled_regsets[regset - info->regsets]); +} + +/* Disable REGSET. */ + +static void +disable_regset (struct regsets_info *info, struct regset_info *regset) +{ + int dr_offset; + + dr_offset = regset - info->regsets; + if (info->disabled_regsets == NULL) + info->disabled_regsets = (char *) xcalloc (1, info->num_regsets); + info->disabled_regsets[dr_offset] = 1; +} + +static int +regsets_fetch_inferior_registers (struct regsets_info *regsets_info, + struct regcache *regcache) +{ + struct regset_info *regset; + int saw_general_regs = 0; + int pid; + struct iovec iov; + + pid = lwpid_of (current_thread); + for (regset = regsets_info->regsets; regset->size >= 0; regset++) + { + void *buf, *data; + int nt_type, res; + + if (regset->size == 0 || regset_disabled (regsets_info, regset)) + continue; + + buf = xmalloc (regset->size); + + nt_type = regset->nt_type; + if (nt_type) + { + iov.iov_base = buf; + iov.iov_len = regset->size; + data = (void *) &iov; + } + else + data = buf; + +#ifndef __sparc__ + res = ptrace (regset->get_request, pid, + (PTRACE_TYPE_ARG3) (long) nt_type, data); +#else + res = ptrace (regset->get_request, pid, data, nt_type); +#endif + if (res < 0) + { + if (errno == EIO + || (errno == EINVAL && regset->type == OPTIONAL_REGS)) + { + /* If we get EIO on a regset, or an EINVAL and the regset is + optional, do not try it again for this process mode. */ + disable_regset (regsets_info, regset); + } + else if (errno == ENODATA) + { + /* ENODATA may be returned if the regset is currently + not "active". This can happen in normal operation, + so suppress the warning in this case. */ + } + else if (errno == ESRCH) + { + /* At this point, ESRCH should mean the process is + already gone, in which case we simply ignore attempts + to read its registers. */ + } + else + { + char s[256]; + sprintf (s, "ptrace(regsets_fetch_inferior_registers) PID=%d", + pid); + perror (s); + } + } + else + { + if (regset->type == GENERAL_REGS) + saw_general_regs = 1; + regset->store_function (regcache, buf); + } + free (buf); + } + if (saw_general_regs) + return 0; + else + return 1; +} + +static int +regsets_store_inferior_registers (struct regsets_info *regsets_info, + struct regcache *regcache) +{ + struct regset_info *regset; + int saw_general_regs = 0; + int pid; + struct iovec iov; + + pid = lwpid_of (current_thread); + for (regset = regsets_info->regsets; regset->size >= 0; regset++) + { + void *buf, *data; + int nt_type, res; + + if (regset->size == 0 || regset_disabled (regsets_info, regset) + || regset->fill_function == NULL) + continue; + + buf = xmalloc (regset->size); + + /* First fill the buffer with the current register set contents, + in case there are any items in the kernel's regset that are + not in gdbserver's regcache. */ + + nt_type = regset->nt_type; + if (nt_type) + { + iov.iov_base = buf; + iov.iov_len = regset->size; + data = (void *) &iov; + } + else + data = buf; + +#ifndef __sparc__ + res = ptrace (regset->get_request, pid, + (PTRACE_TYPE_ARG3) (long) nt_type, data); +#else + res = ptrace (regset->get_request, pid, data, nt_type); +#endif + + if (res == 0) + { + /* Then overlay our cached registers on that. */ + regset->fill_function (regcache, buf); + + /* Only now do we write the register set. */ +#ifndef __sparc__ + res = ptrace (regset->set_request, pid, + (PTRACE_TYPE_ARG3) (long) nt_type, data); +#else + res = ptrace (regset->set_request, pid, data, nt_type); +#endif + } + + if (res < 0) + { + if (errno == EIO + || (errno == EINVAL && regset->type == OPTIONAL_REGS)) + { + /* If we get EIO on a regset, or an EINVAL and the regset is + optional, do not try it again for this process mode. */ + disable_regset (regsets_info, regset); + } + else if (errno == ESRCH) + { + /* At this point, ESRCH should mean the process is + already gone, in which case we simply ignore attempts + to change its registers. See also the related + comment in linux_resume_one_lwp. */ + free (buf); + return 0; + } + else + { + perror ("Warning: ptrace(regsets_store_inferior_registers)"); + } + } + else if (regset->type == GENERAL_REGS) + saw_general_regs = 1; + free (buf); + } + if (saw_general_regs) + return 0; + else + return 1; +} + +#else /* !HAVE_LINUX_REGSETS */ + +#define use_linux_regsets 0 +#define regsets_fetch_inferior_registers(regsets_info, regcache) 1 +#define regsets_store_inferior_registers(regsets_info, regcache) 1 + +#endif + +/* Return 1 if register REGNO is supported by one of the regset ptrace + calls or 0 if it has to be transferred individually. */ + +static int +linux_register_in_regsets (const struct regs_info *regs_info, int regno) +{ + unsigned char mask = 1 << (regno % 8); + size_t index = regno / 8; + + return (use_linux_regsets + && (regs_info->regset_bitmap == NULL + || (regs_info->regset_bitmap[index] & mask) != 0)); +} + +#ifdef HAVE_LINUX_USRREGS + +static int +register_addr (const struct usrregs_info *usrregs, int regnum) +{ + int addr; + + if (regnum < 0 || regnum >= usrregs->num_regs) + error ("Invalid register number %d.", regnum); + + addr = usrregs->regmap[regnum]; + + return addr; +} + +/* Fetch one register. */ +static void +fetch_register (const struct usrregs_info *usrregs, + struct regcache *regcache, int regno) +{ + CORE_ADDR regaddr; + int i, size; + char *buf; + int pid; + + if (regno >= usrregs->num_regs) + return; + if ((*the_low_target.cannot_fetch_register) (regno)) + return; + + regaddr = register_addr (usrregs, regno); + if (regaddr == -1) + return; + + size = ((register_size (regcache->tdesc, regno) + + sizeof (PTRACE_XFER_TYPE) - 1) + & -sizeof (PTRACE_XFER_TYPE)); + buf = (char *) alloca (size); + + pid = lwpid_of (current_thread); + for (i = 0; i < size; i += sizeof (PTRACE_XFER_TYPE)) + { + errno = 0; + *(PTRACE_XFER_TYPE *) (buf + i) = + ptrace (PTRACE_PEEKUSER, pid, + /* Coerce to a uintptr_t first to avoid potential gcc warning + of coercing an 8 byte integer to a 4 byte pointer. */ + (PTRACE_TYPE_ARG3) (uintptr_t) regaddr, (PTRACE_TYPE_ARG4) 0); + regaddr += sizeof (PTRACE_XFER_TYPE); + if (errno != 0) + { + /* Mark register REGNO unavailable. */ + supply_register (regcache, regno, NULL); + return; + } + } + + if (the_low_target.supply_ptrace_register) + the_low_target.supply_ptrace_register (regcache, regno, buf); + else + supply_register (regcache, regno, buf); +} + +/* Store one register. */ +static void +store_register (const struct usrregs_info *usrregs, + struct regcache *regcache, int regno) +{ + CORE_ADDR regaddr; + int i, size; + char *buf; + int pid; + + if (regno >= usrregs->num_regs) + return; + if ((*the_low_target.cannot_store_register) (regno)) + return; + + regaddr = register_addr (usrregs, regno); + if (regaddr == -1) + return; + + size = ((register_size (regcache->tdesc, regno) + + sizeof (PTRACE_XFER_TYPE) - 1) + & -sizeof (PTRACE_XFER_TYPE)); + buf = (char *) alloca (size); + memset (buf, 0, size); + + if (the_low_target.collect_ptrace_register) + the_low_target.collect_ptrace_register (regcache, regno, buf); + else + collect_register (regcache, regno, buf); + + pid = lwpid_of (current_thread); + for (i = 0; i < size; i += sizeof (PTRACE_XFER_TYPE)) + { + errno = 0; + ptrace (PTRACE_POKEUSER, pid, + /* Coerce to a uintptr_t first to avoid potential gcc warning + about coercing an 8 byte integer to a 4 byte pointer. */ + (PTRACE_TYPE_ARG3) (uintptr_t) regaddr, + (PTRACE_TYPE_ARG4) *(PTRACE_XFER_TYPE *) (buf + i)); + if (errno != 0) + { + /* At this point, ESRCH should mean the process is + already gone, in which case we simply ignore attempts + to change its registers. See also the related + comment in linux_resume_one_lwp. */ + if (errno == ESRCH) + return; + + if ((*the_low_target.cannot_store_register) (regno) == 0) + error ("writing register %d: %s", regno, safe_strerror (errno)); + } + regaddr += sizeof (PTRACE_XFER_TYPE); + } +} + +/* Fetch all registers, or just one, from the child process. + If REGNO is -1, do this for all registers, skipping any that are + assumed to have been retrieved by regsets_fetch_inferior_registers, + unless ALL is non-zero. + Otherwise, REGNO specifies which register (so we can save time). */ +static void +usr_fetch_inferior_registers (const struct regs_info *regs_info, + struct regcache *regcache, int regno, int all) +{ + struct usrregs_info *usr = regs_info->usrregs; + + if (regno == -1) + { + for (regno = 0; regno < usr->num_regs; regno++) + if (all || !linux_register_in_regsets (regs_info, regno)) + fetch_register (usr, regcache, regno); + } + else + fetch_register (usr, regcache, regno); +} + +/* Store our register values back into the inferior. + If REGNO is -1, do this for all registers, skipping any that are + assumed to have been saved by regsets_store_inferior_registers, + unless ALL is non-zero. + Otherwise, REGNO specifies which register (so we can save time). */ +static void +usr_store_inferior_registers (const struct regs_info *regs_info, + struct regcache *regcache, int regno, int all) +{ + struct usrregs_info *usr = regs_info->usrregs; + + if (regno == -1) + { + for (regno = 0; regno < usr->num_regs; regno++) + if (all || !linux_register_in_regsets (regs_info, regno)) + store_register (usr, regcache, regno); + } + else + store_register (usr, regcache, regno); +} + +#else /* !HAVE_LINUX_USRREGS */ + +#define usr_fetch_inferior_registers(regs_info, regcache, regno, all) do {} while (0) +#define usr_store_inferior_registers(regs_info, regcache, regno, all) do {} while (0) + +#endif + + +static void +linux_fetch_registers (struct regcache *regcache, int regno) +{ + int use_regsets; + int all = 0; + const struct regs_info *regs_info = (*the_low_target.regs_info) (); + + if (regno == -1) + { + if (the_low_target.fetch_register != NULL + && regs_info->usrregs != NULL) + for (regno = 0; regno < regs_info->usrregs->num_regs; regno++) + (*the_low_target.fetch_register) (regcache, regno); + + all = regsets_fetch_inferior_registers (regs_info->regsets_info, regcache); + if (regs_info->usrregs != NULL) + usr_fetch_inferior_registers (regs_info, regcache, -1, all); + } + else + { + if (the_low_target.fetch_register != NULL + && (*the_low_target.fetch_register) (regcache, regno)) + return; + + use_regsets = linux_register_in_regsets (regs_info, regno); + if (use_regsets) + all = regsets_fetch_inferior_registers (regs_info->regsets_info, + regcache); + if ((!use_regsets || all) && regs_info->usrregs != NULL) + usr_fetch_inferior_registers (regs_info, regcache, regno, 1); + } +} + +static void +linux_store_registers (struct regcache *regcache, int regno) +{ + int use_regsets; + int all = 0; + const struct regs_info *regs_info = (*the_low_target.regs_info) (); + + if (regno == -1) + { + all = regsets_store_inferior_registers (regs_info->regsets_info, + regcache); + if (regs_info->usrregs != NULL) + usr_store_inferior_registers (regs_info, regcache, regno, all); + } + else + { + use_regsets = linux_register_in_regsets (regs_info, regno); + if (use_regsets) + all = regsets_store_inferior_registers (regs_info->regsets_info, + regcache); + if ((!use_regsets || all) && regs_info->usrregs != NULL) + usr_store_inferior_registers (regs_info, regcache, regno, 1); + } +} + + +/* Copy LEN bytes from inferior's memory starting at MEMADDR + to debugger memory starting at MYADDR. */ + +static int +linux_read_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) +{ + int pid = lwpid_of (current_thread); + PTRACE_XFER_TYPE *buffer; + CORE_ADDR addr; + int count; + char filename[64]; + int i; + int ret; + int fd; + + /* Try using /proc. Don't bother for one word. */ + if (len >= 3 * sizeof (long)) + { + int bytes; + + /* We could keep this file open and cache it - possibly one per + thread. That requires some juggling, but is even faster. */ + sprintf (filename, "/proc/%d/mem", pid); + fd = open (filename, O_RDONLY | O_LARGEFILE); + if (fd == -1) + goto no_proc; + + /* If pread64 is available, use it. It's faster if the kernel + supports it (only one syscall), and it's 64-bit safe even on + 32-bit platforms (for instance, SPARC debugging a SPARC64 + application). */ +#ifdef HAVE_PREAD64 + bytes = pread64 (fd, myaddr, len, memaddr); +#else + bytes = -1; + if (lseek (fd, memaddr, SEEK_SET) != -1) + bytes = read (fd, myaddr, len); +#endif + + close (fd); + if (bytes == len) + return 0; + + /* Some data was read, we'll try to get the rest with ptrace. */ + if (bytes > 0) + { + memaddr += bytes; + myaddr += bytes; + len -= bytes; + } + } + + no_proc: + /* Round starting address down to longword boundary. */ + addr = memaddr & -(CORE_ADDR) sizeof (PTRACE_XFER_TYPE); + /* Round ending address up; get number of longwords that makes. */ + count = ((((memaddr + len) - addr) + sizeof (PTRACE_XFER_TYPE) - 1) + / sizeof (PTRACE_XFER_TYPE)); + /* Allocate buffer of that many longwords. */ + buffer = XALLOCAVEC (PTRACE_XFER_TYPE, count); + + /* Read all the longwords */ + errno = 0; + for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE)) + { + /* Coerce the 3rd arg to a uintptr_t first to avoid potential gcc warning + about coercing an 8 byte integer to a 4 byte pointer. */ + buffer[i] = ptrace (PTRACE_PEEKTEXT, pid, + (PTRACE_TYPE_ARG3) (uintptr_t) addr, + (PTRACE_TYPE_ARG4) 0); + if (errno) + break; + } + ret = errno; + + /* Copy appropriate bytes out of the buffer. */ + if (i > 0) + { + i *= sizeof (PTRACE_XFER_TYPE); + i -= memaddr & (sizeof (PTRACE_XFER_TYPE) - 1); + memcpy (myaddr, + (char *) buffer + (memaddr & (sizeof (PTRACE_XFER_TYPE) - 1)), + i < len ? i : len); + } + + return ret; +} + +/* Copy LEN bytes of data from debugger memory at MYADDR to inferior's + memory at MEMADDR. On failure (cannot write to the inferior) + returns the value of errno. Always succeeds if LEN is zero. */ + +static int +linux_write_memory (CORE_ADDR memaddr, const unsigned char *myaddr, int len) +{ + int i; + /* Round starting address down to longword boundary. */ + CORE_ADDR addr = memaddr & -(CORE_ADDR) sizeof (PTRACE_XFER_TYPE); + /* Round ending address up; get number of longwords that makes. */ + int count + = (((memaddr + len) - addr) + sizeof (PTRACE_XFER_TYPE) - 1) + / sizeof (PTRACE_XFER_TYPE); + + /* Allocate buffer of that many longwords. */ + PTRACE_XFER_TYPE *buffer = XALLOCAVEC (PTRACE_XFER_TYPE, count); + + int pid = lwpid_of (current_thread); + + if (len == 0) + { + /* Zero length write always succeeds. */ + return 0; + } + + if (debug_threads) + { + /* Dump up to four bytes. */ + char str[4 * 2 + 1]; + char *p = str; + int dump = len < 4 ? len : 4; + + for (i = 0; i < dump; i++) + { + sprintf (p, "%02x", myaddr[i]); + p += 2; + } + *p = '\0'; + + debug_printf ("Writing %s to 0x%08lx in process %d\n", + str, (long) memaddr, pid); + } + + /* Fill start and end extra bytes of buffer with existing memory data. */ + + errno = 0; + /* Coerce the 3rd arg to a uintptr_t first to avoid potential gcc warning + about coercing an 8 byte integer to a 4 byte pointer. */ + buffer[0] = ptrace (PTRACE_PEEKTEXT, pid, + (PTRACE_TYPE_ARG3) (uintptr_t) addr, + (PTRACE_TYPE_ARG4) 0); + if (errno) + return errno; + + if (count > 1) + { + errno = 0; + buffer[count - 1] + = ptrace (PTRACE_PEEKTEXT, pid, + /* Coerce to a uintptr_t first to avoid potential gcc warning + about coercing an 8 byte integer to a 4 byte pointer. */ + (PTRACE_TYPE_ARG3) (uintptr_t) (addr + (count - 1) + * sizeof (PTRACE_XFER_TYPE)), + (PTRACE_TYPE_ARG4) 0); + if (errno) + return errno; + } + + /* Copy data to be written over corresponding part of buffer. */ + + memcpy ((char *) buffer + (memaddr & (sizeof (PTRACE_XFER_TYPE) - 1)), + myaddr, len); + + /* Write the entire buffer. */ + + for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE)) + { + errno = 0; + ptrace (PTRACE_POKETEXT, pid, + /* Coerce to a uintptr_t first to avoid potential gcc warning + about coercing an 8 byte integer to a 4 byte pointer. */ + (PTRACE_TYPE_ARG3) (uintptr_t) addr, + (PTRACE_TYPE_ARG4) buffer[i]); + if (errno) + return errno; + } + + return 0; +} + +static void +linux_look_up_symbols (void) +{ +#ifdef USE_THREAD_DB + struct process_info *proc = current_process (); + + if (proc->priv->thread_db != NULL) + return; + + thread_db_init (); +#endif +} + +static void +linux_request_interrupt (void) +{ + /* Send a SIGINT to the process group. This acts just like the user + typed a ^C on the controlling terminal. */ + kill (-signal_pid, SIGINT); +} + +/* Copy LEN bytes from inferior's auxiliary vector starting at OFFSET + to debugger memory starting at MYADDR. */ + +static int +linux_read_auxv (CORE_ADDR offset, unsigned char *myaddr, unsigned int len) +{ + char filename[PATH_MAX]; + int fd, n; + int pid = lwpid_of (current_thread); + + xsnprintf (filename, sizeof filename, "/proc/%d/auxv", pid); + + fd = open (filename, O_RDONLY); + if (fd < 0) + return -1; + + if (offset != (CORE_ADDR) 0 + && lseek (fd, (off_t) offset, SEEK_SET) != (off_t) offset) + n = -1; + else + n = read (fd, myaddr, len); + + close (fd); + + return n; +} + +/* These breakpoint and watchpoint related wrapper functions simply + pass on the function call if the target has registered a + corresponding function. */ + +static int +linux_supports_z_point_type (char z_type) +{ + return (the_low_target.supports_z_point_type != NULL + && the_low_target.supports_z_point_type (z_type)); +} + +static int +linux_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, + int size, struct raw_breakpoint *bp) +{ + if (type == raw_bkpt_type_sw) + return insert_memory_breakpoint (bp); + else if (the_low_target.insert_point != NULL) + return the_low_target.insert_point (type, addr, size, bp); + else + /* Unsupported (see target.h). */ + return 1; +} + +static int +linux_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, + int size, struct raw_breakpoint *bp) +{ + if (type == raw_bkpt_type_sw) + return remove_memory_breakpoint (bp); + else if (the_low_target.remove_point != NULL) + return the_low_target.remove_point (type, addr, size, bp); + else + /* Unsupported (see target.h). */ + return 1; +} + +/* Implement the to_stopped_by_sw_breakpoint target_ops + method. */ + +static int +linux_stopped_by_sw_breakpoint (void) +{ + struct lwp_info *lwp = get_thread_lwp (current_thread); + + return (lwp->stop_reason == TARGET_STOPPED_BY_SW_BREAKPOINT); +} + +/* Implement the to_supports_stopped_by_sw_breakpoint target_ops + method. */ + +static int +linux_supports_stopped_by_sw_breakpoint (void) +{ + return USE_SIGTRAP_SIGINFO; +} + +/* Implement the to_stopped_by_hw_breakpoint target_ops + method. */ + +static int +linux_stopped_by_hw_breakpoint (void) +{ + struct lwp_info *lwp = get_thread_lwp (current_thread); + + return (lwp->stop_reason == TARGET_STOPPED_BY_HW_BREAKPOINT); +} + +/* Implement the to_supports_stopped_by_hw_breakpoint target_ops + method. */ + +static int +linux_supports_stopped_by_hw_breakpoint (void) +{ + return USE_SIGTRAP_SIGINFO; +} + +/* Implement the supports_hardware_single_step target_ops method. */ + +static int +linux_supports_hardware_single_step (void) +{ + return can_hardware_single_step (); +} + +static int +linux_supports_software_single_step (void) +{ + return can_software_single_step (); +} + +static int +linux_stopped_by_watchpoint (void) +{ + struct lwp_info *lwp = get_thread_lwp (current_thread); + + return lwp->stop_reason == TARGET_STOPPED_BY_WATCHPOINT; +} + +static CORE_ADDR +linux_stopped_data_address (void) +{ + struct lwp_info *lwp = get_thread_lwp (current_thread); + + return lwp->stopped_data_address; +} + +#if defined(__UCLIBC__) && defined(HAS_NOMMU) \ + && defined(PT_TEXT_ADDR) && defined(PT_DATA_ADDR) \ + && defined(PT_TEXT_END_ADDR) + +/* This is only used for targets that define PT_TEXT_ADDR, + PT_DATA_ADDR and PT_TEXT_END_ADDR. If those are not defined, supposedly + the target has different ways of acquiring this information, like + loadmaps. */ + +/* Under uClinux, programs are loaded at non-zero offsets, which we need + to tell gdb about. */ + +static int +linux_read_offsets (CORE_ADDR *text_p, CORE_ADDR *data_p) +{ + unsigned long text, text_end, data; + int pid = lwpid_of (current_thread); + + errno = 0; + + text = ptrace (PTRACE_PEEKUSER, pid, (PTRACE_TYPE_ARG3) PT_TEXT_ADDR, + (PTRACE_TYPE_ARG4) 0); + text_end = ptrace (PTRACE_PEEKUSER, pid, (PTRACE_TYPE_ARG3) PT_TEXT_END_ADDR, + (PTRACE_TYPE_ARG4) 0); + data = ptrace (PTRACE_PEEKUSER, pid, (PTRACE_TYPE_ARG3) PT_DATA_ADDR, + (PTRACE_TYPE_ARG4) 0); + + if (errno == 0) + { + /* Both text and data offsets produced at compile-time (and so + used by gdb) are relative to the beginning of the program, + with the data segment immediately following the text segment. + However, the actual runtime layout in memory may put the data + somewhere else, so when we send gdb a data base-address, we + use the real data base address and subtract the compile-time + data base-address from it (which is just the length of the + text segment). BSS immediately follows data in both + cases. */ + *text_p = text; + *data_p = data - (text_end - text); + + return 1; + } + return 0; +} +#endif + +static int +linux_qxfer_osdata (const char *annex, + unsigned char *readbuf, unsigned const char *writebuf, + CORE_ADDR offset, int len) +{ + return linux_common_xfer_osdata (annex, readbuf, offset, len); +} + +/* Convert a native/host siginfo object, into/from the siginfo in the + layout of the inferiors' architecture. */ + +static void +siginfo_fixup (siginfo_t *siginfo, gdb_byte *inf_siginfo, int direction) +{ + int done = 0; + + if (the_low_target.siginfo_fixup != NULL) + done = the_low_target.siginfo_fixup (siginfo, inf_siginfo, direction); + + /* If there was no callback, or the callback didn't do anything, + then just do a straight memcpy. */ + if (!done) + { + if (direction == 1) + memcpy (siginfo, inf_siginfo, sizeof (siginfo_t)); + else + memcpy (inf_siginfo, siginfo, sizeof (siginfo_t)); + } +} + +static int +linux_xfer_siginfo (const char *annex, unsigned char *readbuf, + unsigned const char *writebuf, CORE_ADDR offset, int len) +{ + int pid; + siginfo_t siginfo; + gdb_byte inf_siginfo[sizeof (siginfo_t)]; + + if (current_thread == NULL) + return -1; + + pid = lwpid_of (current_thread); + + if (debug_threads) + debug_printf ("%s siginfo for lwp %d.\n", + readbuf != NULL ? "Reading" : "Writing", + pid); + + if (offset >= sizeof (siginfo)) + return -1; + + if (ptrace (PTRACE_GETSIGINFO, pid, (PTRACE_TYPE_ARG3) 0, &siginfo) != 0) + return -1; + + /* When GDBSERVER is built as a 64-bit application, ptrace writes into + SIGINFO an object with 64-bit layout. Since debugging a 32-bit + inferior with a 64-bit GDBSERVER should look the same as debugging it + with a 32-bit GDBSERVER, we need to convert it. */ + siginfo_fixup (&siginfo, inf_siginfo, 0); + + if (offset + len > sizeof (siginfo)) + len = sizeof (siginfo) - offset; + + if (readbuf != NULL) + memcpy (readbuf, inf_siginfo + offset, len); + else + { + memcpy (inf_siginfo + offset, writebuf, len); + + /* Convert back to ptrace layout before flushing it out. */ + siginfo_fixup (&siginfo, inf_siginfo, 1); + + if (ptrace (PTRACE_SETSIGINFO, pid, (PTRACE_TYPE_ARG3) 0, &siginfo) != 0) + return -1; + } + + return len; +} + +/* SIGCHLD handler that serves two purposes: In non-stop/async mode, + so we notice when children change state; as the handler for the + sigsuspend in my_waitpid. */ + +static void +sigchld_handler (int signo) +{ + int old_errno = errno; + + if (debug_threads) + { + do + { + /* Use the async signal safe debug function. */ + if (debug_write ("sigchld_handler\n", + sizeof ("sigchld_handler\n") - 1) < 0) + break; /* just ignore */ + } while (0); + } + + if (target_is_async_p ()) + async_file_mark (); /* trigger a linux_wait */ + + errno = old_errno; +} + +static int +linux_supports_non_stop (void) +{ + return 1; +} + +static int +linux_async (int enable) +{ + int previous = target_is_async_p (); + + if (debug_threads) + debug_printf ("linux_async (%d), previous=%d\n", + enable, previous); + + if (previous != enable) + { + sigset_t mask; + sigemptyset (&mask); + sigaddset (&mask, SIGCHLD); + + gdb_sigmask (SIG_BLOCK, &mask, NULL); + + if (enable) + { + if (pipe (linux_event_pipe) == -1) + { + linux_event_pipe[0] = -1; + linux_event_pipe[1] = -1; + gdb_sigmask (SIG_UNBLOCK, &mask, NULL); + + warning ("creating event pipe failed."); + return previous; + } + + fcntl (linux_event_pipe[0], F_SETFL, O_NONBLOCK); + fcntl (linux_event_pipe[1], F_SETFL, O_NONBLOCK); + + /* Register the event loop handler. */ + add_file_handler (linux_event_pipe[0], + handle_target_event, NULL); + + /* Always trigger a linux_wait. */ + async_file_mark (); + } + else + { + delete_file_handler (linux_event_pipe[0]); + + close (linux_event_pipe[0]); + close (linux_event_pipe[1]); + linux_event_pipe[0] = -1; + linux_event_pipe[1] = -1; + } + + gdb_sigmask (SIG_UNBLOCK, &mask, NULL); + } + + return previous; +} + +static int +linux_start_non_stop (int nonstop) +{ + /* Register or unregister from event-loop accordingly. */ + linux_async (nonstop); + + if (target_is_async_p () != (nonstop != 0)) + return -1; + + return 0; +} + +static int +linux_supports_multi_process (void) +{ + return 1; +} + +/* Check if fork events are supported. */ + +static int +linux_supports_fork_events (void) +{ + return linux_supports_tracefork (); +} + +/* Check if vfork events are supported. */ + +static int +linux_supports_vfork_events (void) +{ + return linux_supports_tracefork (); +} + +/* Check if exec events are supported. */ + +static int +linux_supports_exec_events (void) +{ + return linux_supports_traceexec (); +} + +/* Target hook for 'handle_new_gdb_connection'. Causes a reset of the + ptrace flags for all inferiors. This is in case the new GDB connection + doesn't support the same set of events that the previous one did. */ + +static void +linux_handle_new_gdb_connection (void) +{ + /* Request that all the lwps reset their ptrace options. */ + for_each_thread ([] (thread_info *thread) + { + struct lwp_info *lwp = get_thread_lwp (thread); + + if (!lwp->stopped) + { + /* Stop the lwp so we can modify its ptrace options. */ + lwp->must_set_ptrace_flags = 1; + linux_stop_lwp (lwp); + } + else + { + /* Already stopped; go ahead and set the ptrace options. */ + struct process_info *proc = find_process_pid (pid_of (thread)); + int options = linux_low_ptrace_options (proc->attached); + + linux_enable_event_reporting (lwpid_of (thread), options); + lwp->must_set_ptrace_flags = 0; + } + }); +} + +static int +linux_supports_disable_randomization (void) +{ +#ifdef HAVE_PERSONALITY + return 1; +#else + return 0; +#endif +} + +static int +linux_supports_agent (void) +{ + return 1; +} + +static int +linux_supports_range_stepping (void) +{ + if (can_software_single_step ()) + return 1; + if (*the_low_target.supports_range_stepping == NULL) + return 0; + + return (*the_low_target.supports_range_stepping) (); +} + +#if defined PT_GETDSBT || defined PTRACE_GETFDPIC +struct target_loadseg +{ + /* Core address to which the segment is mapped. */ + Elf32_Addr addr; + /* VMA recorded in the program header. */ + Elf32_Addr p_vaddr; + /* Size of this segment in memory. */ + Elf32_Word p_memsz; +}; + +# if defined PT_GETDSBT +struct target_loadmap +{ + /* Protocol version number, must be zero. */ + Elf32_Word version; + /* Pointer to the DSBT table, its size, and the DSBT index. */ + unsigned *dsbt_table; + unsigned dsbt_size, dsbt_index; + /* Number of segments in this map. */ + Elf32_Word nsegs; + /* The actual memory map. */ + struct target_loadseg segs[/*nsegs*/]; +}; +# define LINUX_LOADMAP PT_GETDSBT +# define LINUX_LOADMAP_EXEC PTRACE_GETDSBT_EXEC +# define LINUX_LOADMAP_INTERP PTRACE_GETDSBT_INTERP +# else +struct target_loadmap +{ + /* Protocol version number, must be zero. */ + Elf32_Half version; + /* Number of segments in this map. */ + Elf32_Half nsegs; + /* The actual memory map. */ + struct target_loadseg segs[/*nsegs*/]; +}; +# define LINUX_LOADMAP PTRACE_GETFDPIC +# define LINUX_LOADMAP_EXEC PTRACE_GETFDPIC_EXEC +# define LINUX_LOADMAP_INTERP PTRACE_GETFDPIC_INTERP +# endif + +static int +linux_read_loadmap (const char *annex, CORE_ADDR offset, + unsigned char *myaddr, unsigned int len) +{ + int pid = lwpid_of (current_thread); + int addr = -1; + struct target_loadmap *data = NULL; + unsigned int actual_length, copy_length; + + if (strcmp (annex, "exec") == 0) + addr = (int) LINUX_LOADMAP_EXEC; + else if (strcmp (annex, "interp") == 0) + addr = (int) LINUX_LOADMAP_INTERP; + else + return -1; + + if (ptrace (LINUX_LOADMAP, pid, addr, &data) != 0) + return -1; + + if (data == NULL) + return -1; + + actual_length = sizeof (struct target_loadmap) + + sizeof (struct target_loadseg) * data->nsegs; + + if (offset < 0 || offset > actual_length) + return -1; + + copy_length = actual_length - offset < len ? actual_length - offset : len; + memcpy (myaddr, (char *) data + offset, copy_length); + return copy_length; +} +#else +# define linux_read_loadmap NULL +#endif /* defined PT_GETDSBT || defined PTRACE_GETFDPIC */ + +static void +linux_process_qsupported (char **features, int count) +{ + if (the_low_target.process_qsupported != NULL) + the_low_target.process_qsupported (features, count); +} + +static int +linux_supports_catch_syscall (void) +{ + return (the_low_target.get_syscall_trapinfo != NULL + && linux_supports_tracesysgood ()); +} + +static int +linux_get_ipa_tdesc_idx (void) +{ + if (the_low_target.get_ipa_tdesc_idx == NULL) + return 0; + + return (*the_low_target.get_ipa_tdesc_idx) (); +} + +static int +linux_supports_tracepoints (void) +{ + if (*the_low_target.supports_tracepoints == NULL) + return 0; + + return (*the_low_target.supports_tracepoints) (); +} + +static CORE_ADDR +linux_read_pc (struct regcache *regcache) +{ + if (the_low_target.get_pc == NULL) + return 0; + + return (*the_low_target.get_pc) (regcache); +} + +static void +linux_write_pc (struct regcache *regcache, CORE_ADDR pc) +{ + gdb_assert (the_low_target.set_pc != NULL); + + (*the_low_target.set_pc) (regcache, pc); +} + +static int +linux_thread_stopped (struct thread_info *thread) +{ + return get_thread_lwp (thread)->stopped; +} + +/* This exposes stop-all-threads functionality to other modules. */ + +static void +linux_pause_all (int freeze) +{ + stop_all_lwps (freeze, NULL); +} + +/* This exposes unstop-all-threads functionality to other gdbserver + modules. */ + +static void +linux_unpause_all (int unfreeze) +{ + unstop_all_lwps (unfreeze, NULL); +} + +static int +linux_prepare_to_access_memory (void) +{ + /* Neither ptrace nor /proc/PID/mem allow accessing memory through a + running LWP. */ + if (non_stop) + linux_pause_all (1); + return 0; +} + +static void +linux_done_accessing_memory (void) +{ + /* Neither ptrace nor /proc/PID/mem allow accessing memory through a + running LWP. */ + if (non_stop) + linux_unpause_all (1); +} + +static int +linux_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, CORE_ADDR tpaddr, + CORE_ADDR collector, + CORE_ADDR lockaddr, + ULONGEST orig_size, + CORE_ADDR *jump_entry, + CORE_ADDR *trampoline, + ULONGEST *trampoline_size, + unsigned char *jjump_pad_insn, + ULONGEST *jjump_pad_insn_size, + CORE_ADDR *adjusted_insn_addr, + CORE_ADDR *adjusted_insn_addr_end, + char *err) +{ + return (*the_low_target.install_fast_tracepoint_jump_pad) + (tpoint, tpaddr, collector, lockaddr, orig_size, + jump_entry, trampoline, trampoline_size, + jjump_pad_insn, jjump_pad_insn_size, + adjusted_insn_addr, adjusted_insn_addr_end, + err); +} + +static struct emit_ops * +linux_emit_ops (void) +{ + if (the_low_target.emit_ops != NULL) + return (*the_low_target.emit_ops) (); + else + return NULL; +} + +static int +linux_get_min_fast_tracepoint_insn_len (void) +{ + return (*the_low_target.get_min_fast_tracepoint_insn_len) (); +} + +/* Extract &phdr and num_phdr in the inferior. Return 0 on success. */ + +static int +get_phdr_phnum_from_proc_auxv (const int pid, const int is_elf64, + CORE_ADDR *phdr_memaddr, int *num_phdr) +{ + char filename[PATH_MAX]; + int fd; + const int auxv_size = is_elf64 + ? sizeof (Elf64_auxv_t) : sizeof (Elf32_auxv_t); + char buf[sizeof (Elf64_auxv_t)]; /* The larger of the two. */ + + xsnprintf (filename, sizeof filename, "/proc/%d/auxv", pid); + + fd = open (filename, O_RDONLY); + if (fd < 0) + return 1; + + *phdr_memaddr = 0; + *num_phdr = 0; + while (read (fd, buf, auxv_size) == auxv_size + && (*phdr_memaddr == 0 || *num_phdr == 0)) + { + if (is_elf64) + { + Elf64_auxv_t *const aux = (Elf64_auxv_t *) buf; + + switch (aux->a_type) + { + case AT_PHDR: + *phdr_memaddr = aux->a_un.a_val; + break; + case AT_PHNUM: + *num_phdr = aux->a_un.a_val; + break; + } + } + else + { + Elf32_auxv_t *const aux = (Elf32_auxv_t *) buf; + + switch (aux->a_type) + { + case AT_PHDR: + *phdr_memaddr = aux->a_un.a_val; + break; + case AT_PHNUM: + *num_phdr = aux->a_un.a_val; + break; + } + } + } + + close (fd); + + if (*phdr_memaddr == 0 || *num_phdr == 0) + { + warning ("Unexpected missing AT_PHDR and/or AT_PHNUM: " + "phdr_memaddr = %ld, phdr_num = %d", + (long) *phdr_memaddr, *num_phdr); + return 2; + } + + return 0; +} + +/* Return &_DYNAMIC (via PT_DYNAMIC) in the inferior, or 0 if not present. */ + +static CORE_ADDR +get_dynamic (const int pid, const int is_elf64) +{ + CORE_ADDR phdr_memaddr, relocation; + int num_phdr, i; + unsigned char *phdr_buf; + const int phdr_size = is_elf64 ? sizeof (Elf64_Phdr) : sizeof (Elf32_Phdr); + + if (get_phdr_phnum_from_proc_auxv (pid, is_elf64, &phdr_memaddr, &num_phdr)) + return 0; + + gdb_assert (num_phdr < 100); /* Basic sanity check. */ + phdr_buf = (unsigned char *) alloca (num_phdr * phdr_size); + + if (linux_read_memory (phdr_memaddr, phdr_buf, num_phdr * phdr_size)) + return 0; + + /* Compute relocation: it is expected to be 0 for "regular" executables, + non-zero for PIE ones. */ + relocation = -1; + for (i = 0; relocation == -1 && i < num_phdr; i++) + if (is_elf64) + { + Elf64_Phdr *const p = (Elf64_Phdr *) (phdr_buf + i * phdr_size); + + if (p->p_type == PT_PHDR) + relocation = phdr_memaddr - p->p_vaddr; + } + else + { + Elf32_Phdr *const p = (Elf32_Phdr *) (phdr_buf + i * phdr_size); + + if (p->p_type == PT_PHDR) + relocation = phdr_memaddr - p->p_vaddr; + } + + if (relocation == -1) + { + /* PT_PHDR is optional, but necessary for PIE in general. Fortunately + any real world executables, including PIE executables, have always + PT_PHDR present. PT_PHDR is not present in some shared libraries or + in fpc (Free Pascal 2.4) binaries but neither of those have a need for + or present DT_DEBUG anyway (fpc binaries are statically linked). + + Therefore if there exists DT_DEBUG there is always also PT_PHDR. + + GDB could find RELOCATION also from AT_ENTRY - e_entry. */ + + return 0; + } + + for (i = 0; i < num_phdr; i++) + { + if (is_elf64) + { + Elf64_Phdr *const p = (Elf64_Phdr *) (phdr_buf + i * phdr_size); + + if (p->p_type == PT_DYNAMIC) + return p->p_vaddr + relocation; + } + else + { + Elf32_Phdr *const p = (Elf32_Phdr *) (phdr_buf + i * phdr_size); + + if (p->p_type == PT_DYNAMIC) + return p->p_vaddr + relocation; + } + } + + return 0; +} + +/* Return &_r_debug in the inferior, or -1 if not present. Return value + can be 0 if the inferior does not yet have the library list initialized. + We look for DT_MIPS_RLD_MAP first. MIPS executables use this instead of + DT_DEBUG, although they sometimes contain an unused DT_DEBUG entry too. */ + +static CORE_ADDR +get_r_debug (const int pid, const int is_elf64) +{ + CORE_ADDR dynamic_memaddr; + const int dyn_size = is_elf64 ? sizeof (Elf64_Dyn) : sizeof (Elf32_Dyn); + unsigned char buf[sizeof (Elf64_Dyn)]; /* The larger of the two. */ + CORE_ADDR map = -1; + + dynamic_memaddr = get_dynamic (pid, is_elf64); + if (dynamic_memaddr == 0) + return map; + + while (linux_read_memory (dynamic_memaddr, buf, dyn_size) == 0) + { + if (is_elf64) + { + Elf64_Dyn *const dyn = (Elf64_Dyn *) buf; +#if defined DT_MIPS_RLD_MAP || defined DT_MIPS_RLD_MAP_REL + union + { + Elf64_Xword map; + unsigned char buf[sizeof (Elf64_Xword)]; + } + rld_map; +#endif +#ifdef DT_MIPS_RLD_MAP + if (dyn->d_tag == DT_MIPS_RLD_MAP) + { + if (linux_read_memory (dyn->d_un.d_val, + rld_map.buf, sizeof (rld_map.buf)) == 0) + return rld_map.map; + else + break; + } +#endif /* DT_MIPS_RLD_MAP */ +#ifdef DT_MIPS_RLD_MAP_REL + if (dyn->d_tag == DT_MIPS_RLD_MAP_REL) + { + if (linux_read_memory (dyn->d_un.d_val + dynamic_memaddr, + rld_map.buf, sizeof (rld_map.buf)) == 0) + return rld_map.map; + else + break; + } +#endif /* DT_MIPS_RLD_MAP_REL */ + + if (dyn->d_tag == DT_DEBUG && map == -1) + map = dyn->d_un.d_val; + + if (dyn->d_tag == DT_NULL) + break; + } + else + { + Elf32_Dyn *const dyn = (Elf32_Dyn *) buf; +#if defined DT_MIPS_RLD_MAP || defined DT_MIPS_RLD_MAP_REL + union + { + Elf32_Word map; + unsigned char buf[sizeof (Elf32_Word)]; + } + rld_map; +#endif +#ifdef DT_MIPS_RLD_MAP + if (dyn->d_tag == DT_MIPS_RLD_MAP) + { + if (linux_read_memory (dyn->d_un.d_val, + rld_map.buf, sizeof (rld_map.buf)) == 0) + return rld_map.map; + else + break; + } +#endif /* DT_MIPS_RLD_MAP */ +#ifdef DT_MIPS_RLD_MAP_REL + if (dyn->d_tag == DT_MIPS_RLD_MAP_REL) + { + if (linux_read_memory (dyn->d_un.d_val + dynamic_memaddr, + rld_map.buf, sizeof (rld_map.buf)) == 0) + return rld_map.map; + else + break; + } +#endif /* DT_MIPS_RLD_MAP_REL */ + + if (dyn->d_tag == DT_DEBUG && map == -1) + map = dyn->d_un.d_val; + + if (dyn->d_tag == DT_NULL) + break; + } + + dynamic_memaddr += dyn_size; + } + + return map; +} + +/* Read one pointer from MEMADDR in the inferior. */ + +static int +read_one_ptr (CORE_ADDR memaddr, CORE_ADDR *ptr, int ptr_size) +{ + int ret; + + /* Go through a union so this works on either big or little endian + hosts, when the inferior's pointer size is smaller than the size + of CORE_ADDR. It is assumed the inferior's endianness is the + same of the superior's. */ + union + { + CORE_ADDR core_addr; + unsigned int ui; + unsigned char uc; + } addr; + + ret = linux_read_memory (memaddr, &addr.uc, ptr_size); + if (ret == 0) + { + if (ptr_size == sizeof (CORE_ADDR)) + *ptr = addr.core_addr; + else if (ptr_size == sizeof (unsigned int)) + *ptr = addr.ui; + else + gdb_assert_not_reached ("unhandled pointer size"); + } + return ret; +} + +struct link_map_offsets + { + /* Offset and size of r_debug.r_version. */ + int r_version_offset; + + /* Offset and size of r_debug.r_map. */ + int r_map_offset; + + /* Offset to l_addr field in struct link_map. */ + int l_addr_offset; + + /* Offset to l_name field in struct link_map. */ + int l_name_offset; + + /* Offset to l_ld field in struct link_map. */ + int l_ld_offset; + + /* Offset to l_next field in struct link_map. */ + int l_next_offset; + + /* Offset to l_prev field in struct link_map. */ + int l_prev_offset; + }; + +/* Construct qXfer:libraries-svr4:read reply. */ + +static int +linux_qxfer_libraries_svr4 (const char *annex, unsigned char *readbuf, + unsigned const char *writebuf, + CORE_ADDR offset, int len) +{ + struct process_info_private *const priv = current_process ()->priv; + char filename[PATH_MAX]; + int pid, is_elf64; + + static const struct link_map_offsets lmo_32bit_offsets = + { + 0, /* r_version offset. */ + 4, /* r_debug.r_map offset. */ + 0, /* l_addr offset in link_map. */ + 4, /* l_name offset in link_map. */ + 8, /* l_ld offset in link_map. */ + 12, /* l_next offset in link_map. */ + 16 /* l_prev offset in link_map. */ + }; + + static const struct link_map_offsets lmo_64bit_offsets = + { + 0, /* r_version offset. */ + 8, /* r_debug.r_map offset. */ + 0, /* l_addr offset in link_map. */ + 8, /* l_name offset in link_map. */ + 16, /* l_ld offset in link_map. */ + 24, /* l_next offset in link_map. */ + 32 /* l_prev offset in link_map. */ + }; + const struct link_map_offsets *lmo; + unsigned int machine; + int ptr_size; + CORE_ADDR lm_addr = 0, lm_prev = 0; + CORE_ADDR l_name, l_addr, l_ld, l_next, l_prev; + int header_done = 0; + + if (writebuf != NULL) + return -2; + if (readbuf == NULL) + return -1; + + pid = lwpid_of (current_thread); + xsnprintf (filename, sizeof filename, "/proc/%d/exe", pid); + is_elf64 = elf_64_file_p (filename, &machine); + lmo = is_elf64 ? &lmo_64bit_offsets : &lmo_32bit_offsets; + ptr_size = is_elf64 ? 8 : 4; + + while (annex[0] != '\0') + { + const char *sep; + CORE_ADDR *addrp; + int name_len; + + sep = strchr (annex, '='); + if (sep == NULL) + break; + + name_len = sep - annex; + if (name_len == 5 && startswith (annex, "start")) + addrp = &lm_addr; + else if (name_len == 4 && startswith (annex, "prev")) + addrp = &lm_prev; + else + { + annex = strchr (sep, ';'); + if (annex == NULL) + break; + annex++; + continue; + } + + annex = decode_address_to_semicolon (addrp, sep + 1); + } + + if (lm_addr == 0) + { + int r_version = 0; + + if (priv->r_debug == 0) + priv->r_debug = get_r_debug (pid, is_elf64); + + /* We failed to find DT_DEBUG. Such situation will not change + for this inferior - do not retry it. Report it to GDB as + E01, see for the reasons at the GDB solib-svr4.c side. */ + if (priv->r_debug == (CORE_ADDR) -1) + return -1; + + if (priv->r_debug != 0) + { + if (linux_read_memory (priv->r_debug + lmo->r_version_offset, + (unsigned char *) &r_version, + sizeof (r_version)) != 0 + || r_version != 1) + { + warning ("unexpected r_debug version %d", r_version); + } + else if (read_one_ptr (priv->r_debug + lmo->r_map_offset, + &lm_addr, ptr_size) != 0) + { + warning ("unable to read r_map from 0x%lx", + (long) priv->r_debug + lmo->r_map_offset); + } + } + } + + std::string document = "l_name_offset, + &l_name, ptr_size) == 0 + && read_one_ptr (lm_addr + lmo->l_addr_offset, + &l_addr, ptr_size) == 0 + && read_one_ptr (lm_addr + lmo->l_ld_offset, + &l_ld, ptr_size) == 0 + && read_one_ptr (lm_addr + lmo->l_prev_offset, + &l_prev, ptr_size) == 0 + && read_one_ptr (lm_addr + lmo->l_next_offset, + &l_next, ptr_size) == 0) + { + unsigned char libname[PATH_MAX]; + + if (lm_prev != l_prev) + { + warning ("Corrupted shared library list: 0x%lx != 0x%lx", + (long) lm_prev, (long) l_prev); + break; + } + + /* Ignore the first entry even if it has valid name as the first entry + corresponds to the main executable. The first entry should not be + skipped if the dynamic loader was loaded late by a static executable + (see solib-svr4.c parameter ignore_first). But in such case the main + executable does not have PT_DYNAMIC present and this function already + exited above due to failed get_r_debug. */ + if (lm_prev == 0) + string_appendf (document, " main-lm=\"0x%lx\"", (unsigned long) lm_addr); + else + { + /* Not checking for error because reading may stop before + we've got PATH_MAX worth of characters. */ + libname[0] = '\0'; + linux_read_memory (l_name, libname, sizeof (libname) - 1); + libname[sizeof (libname) - 1] = '\0'; + if (libname[0] != '\0') + { + if (!header_done) + { + /* Terminate `", + (unsigned long) lm_addr, (unsigned long) l_addr, + (unsigned long) l_ld); + } + } + + lm_prev = lm_addr; + lm_addr = l_next; + } + + if (!header_done) + { + /* Empty list; terminate ` document_len) + len = document_len; + + memcpy (readbuf, document.data () + offset, len); + + return len; +} + +#ifdef HAVE_LINUX_BTRACE + +/* See to_disable_btrace target method. */ + +static int +linux_low_disable_btrace (struct btrace_target_info *tinfo) +{ + enum btrace_error err; + + err = linux_disable_btrace (tinfo); + return (err == BTRACE_ERR_NONE ? 0 : -1); +} + +/* Encode an Intel Processor Trace configuration. */ + +static void +linux_low_encode_pt_config (struct buffer *buffer, + const struct btrace_data_pt_config *config) +{ + buffer_grow_str (buffer, "\n"); + + switch (config->cpu.vendor) + { + case CV_INTEL: + buffer_xml_printf (buffer, "\n", + config->cpu.family, config->cpu.model, + config->cpu.stepping); + break; + + default: + break; + } + + buffer_grow_str (buffer, "\n"); +} + +/* Encode a raw buffer. */ + +static void +linux_low_encode_raw (struct buffer *buffer, const gdb_byte *data, + unsigned int size) +{ + if (size == 0) + return; + + /* We use hex encoding - see gdbsupport/rsp-low.h. */ + buffer_grow_str (buffer, "\n"); + + while (size-- > 0) + { + char elem[2]; + + elem[0] = tohex ((*data >> 4) & 0xf); + elem[1] = tohex (*data++ & 0xf); + + buffer_grow (buffer, elem, 2); + } + + buffer_grow_str (buffer, "\n"); +} + +/* See to_read_btrace target method. */ + +static int +linux_low_read_btrace (struct btrace_target_info *tinfo, struct buffer *buffer, + enum btrace_read_type type) +{ + struct btrace_data btrace; + enum btrace_error err; + + err = linux_read_btrace (&btrace, tinfo, type); + if (err != BTRACE_ERR_NONE) + { + if (err == BTRACE_ERR_OVERFLOW) + buffer_grow_str0 (buffer, "E.Overflow."); + else + buffer_grow_str0 (buffer, "E.Generic Error."); + + return -1; + } + + switch (btrace.format) + { + case BTRACE_FORMAT_NONE: + buffer_grow_str0 (buffer, "E.No Trace."); + return -1; + + case BTRACE_FORMAT_BTS: + buffer_grow_str (buffer, "\n"); + buffer_grow_str (buffer, "\n"); + + for (const btrace_block &block : *btrace.variant.bts.blocks) + buffer_xml_printf (buffer, "\n", + paddress (block.begin), paddress (block.end)); + + buffer_grow_str0 (buffer, "\n"); + break; + + case BTRACE_FORMAT_PT: + buffer_grow_str (buffer, "\n"); + buffer_grow_str (buffer, "\n"); + buffer_grow_str (buffer, "\n"); + + linux_low_encode_pt_config (buffer, &btrace.variant.pt.config); + + linux_low_encode_raw (buffer, btrace.variant.pt.data, + btrace.variant.pt.size); + + buffer_grow_str (buffer, "\n"); + buffer_grow_str0 (buffer, "\n"); + break; + + default: + buffer_grow_str0 (buffer, "E.Unsupported Trace Format."); + return -1; + } + + return 0; +} + +/* See to_btrace_conf target method. */ + +static int +linux_low_btrace_conf (const struct btrace_target_info *tinfo, + struct buffer *buffer) +{ + const struct btrace_config *conf; + + buffer_grow_str (buffer, "\n"); + buffer_grow_str (buffer, "\n"); + + conf = linux_btrace_conf (tinfo); + if (conf != NULL) + { + switch (conf->format) + { + case BTRACE_FORMAT_NONE: + break; + + case BTRACE_FORMAT_BTS: + buffer_xml_printf (buffer, "bts.size); + buffer_xml_printf (buffer, " />\n"); + break; + + case BTRACE_FORMAT_PT: + buffer_xml_printf (buffer, "pt.size); + buffer_xml_printf (buffer, "/>\n"); + break; + } + } + + buffer_grow_str0 (buffer, "\n"); + return 0; +} +#endif /* HAVE_LINUX_BTRACE */ + +/* See nat/linux-nat.h. */ + +ptid_t +current_lwp_ptid (void) +{ + return ptid_of (current_thread); +} + +/* Implementation of the target_ops method "breakpoint_kind_from_pc". */ + +static int +linux_breakpoint_kind_from_pc (CORE_ADDR *pcptr) +{ + if (the_low_target.breakpoint_kind_from_pc != NULL) + return (*the_low_target.breakpoint_kind_from_pc) (pcptr); + else + return default_breakpoint_kind_from_pc (pcptr); +} + +/* Implementation of the target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +linux_sw_breakpoint_from_kind (int kind, int *size) +{ + gdb_assert (the_low_target.sw_breakpoint_from_kind != NULL); + + return (*the_low_target.sw_breakpoint_from_kind) (kind, size); +} + +/* Implementation of the target_ops method + "breakpoint_kind_from_current_state". */ + +static int +linux_breakpoint_kind_from_current_state (CORE_ADDR *pcptr) +{ + if (the_low_target.breakpoint_kind_from_current_state != NULL) + return (*the_low_target.breakpoint_kind_from_current_state) (pcptr); + else + return linux_breakpoint_kind_from_pc (pcptr); +} + +/* Default implementation of linux_target_ops method "set_pc" for + 32-bit pc register which is literally named "pc". */ + +void +linux_set_pc_32bit (struct regcache *regcache, CORE_ADDR pc) +{ + uint32_t newpc = pc; + + supply_register_by_name (regcache, "pc", &newpc); +} + +/* Default implementation of linux_target_ops method "get_pc" for + 32-bit pc register which is literally named "pc". */ + +CORE_ADDR +linux_get_pc_32bit (struct regcache *regcache) +{ + uint32_t pc; + + collect_register_by_name (regcache, "pc", &pc); + if (debug_threads) + debug_printf ("stop pc is 0x%" PRIx32 "\n", pc); + return pc; +} + +/* Default implementation of linux_target_ops method "set_pc" for + 64-bit pc register which is literally named "pc". */ + +void +linux_set_pc_64bit (struct regcache *regcache, CORE_ADDR pc) +{ + uint64_t newpc = pc; + + supply_register_by_name (regcache, "pc", &newpc); +} + +/* Default implementation of linux_target_ops method "get_pc" for + 64-bit pc register which is literally named "pc". */ + +CORE_ADDR +linux_get_pc_64bit (struct regcache *regcache) +{ + uint64_t pc; + + collect_register_by_name (regcache, "pc", &pc); + if (debug_threads) + debug_printf ("stop pc is 0x%" PRIx64 "\n", pc); + return pc; +} + +/* See linux-low.h. */ + +int +linux_get_auxv (int wordsize, CORE_ADDR match, CORE_ADDR *valp) +{ + gdb_byte *data = (gdb_byte *) alloca (2 * wordsize); + int offset = 0; + + gdb_assert (wordsize == 4 || wordsize == 8); + + while ((*the_target->read_auxv) (offset, data, 2 * wordsize) == 2 * wordsize) + { + if (wordsize == 4) + { + uint32_t *data_p = (uint32_t *) data; + if (data_p[0] == match) + { + *valp = data_p[1]; + return 1; + } + } + else + { + uint64_t *data_p = (uint64_t *) data; + if (data_p[0] == match) + { + *valp = data_p[1]; + return 1; + } + } + + offset += 2 * wordsize; + } + + return 0; +} + +/* See linux-low.h. */ + +CORE_ADDR +linux_get_hwcap (int wordsize) +{ + CORE_ADDR hwcap = 0; + linux_get_auxv (wordsize, AT_HWCAP, &hwcap); + return hwcap; +} + +/* See linux-low.h. */ + +CORE_ADDR +linux_get_hwcap2 (int wordsize) +{ + CORE_ADDR hwcap2 = 0; + linux_get_auxv (wordsize, AT_HWCAP2, &hwcap2); + return hwcap2; +} + +static process_stratum_target linux_target_ops = { + linux_create_inferior, + linux_post_create_inferior, + linux_attach, + linux_kill, + linux_detach, + linux_mourn, + linux_join, + linux_thread_alive, + linux_resume, + linux_wait, + linux_fetch_registers, + linux_store_registers, + linux_prepare_to_access_memory, + linux_done_accessing_memory, + linux_read_memory, + linux_write_memory, + linux_look_up_symbols, + linux_request_interrupt, + linux_read_auxv, + linux_supports_z_point_type, + linux_insert_point, + linux_remove_point, + linux_stopped_by_sw_breakpoint, + linux_supports_stopped_by_sw_breakpoint, + linux_stopped_by_hw_breakpoint, + linux_supports_stopped_by_hw_breakpoint, + linux_supports_hardware_single_step, + linux_stopped_by_watchpoint, + linux_stopped_data_address, +#if defined(__UCLIBC__) && defined(HAS_NOMMU) \ + && defined(PT_TEXT_ADDR) && defined(PT_DATA_ADDR) \ + && defined(PT_TEXT_END_ADDR) + linux_read_offsets, +#else + NULL, +#endif +#ifdef USE_THREAD_DB + thread_db_get_tls_address, +#else + NULL, +#endif + hostio_last_error_from_errno, + linux_qxfer_osdata, + linux_xfer_siginfo, + linux_supports_non_stop, + linux_async, + linux_start_non_stop, + linux_supports_multi_process, + linux_supports_fork_events, + linux_supports_vfork_events, + linux_supports_exec_events, + linux_handle_new_gdb_connection, +#ifdef USE_THREAD_DB + thread_db_handle_monitor_command, +#else + NULL, +#endif + linux_common_core_of_thread, + linux_read_loadmap, + linux_process_qsupported, + linux_supports_tracepoints, + linux_read_pc, + linux_write_pc, + linux_thread_stopped, + NULL, + linux_pause_all, + linux_unpause_all, + linux_stabilize_threads, + linux_install_fast_tracepoint_jump_pad, + linux_emit_ops, + linux_supports_disable_randomization, + linux_get_min_fast_tracepoint_insn_len, + linux_qxfer_libraries_svr4, + linux_supports_agent, +#ifdef HAVE_LINUX_BTRACE + linux_enable_btrace, + linux_low_disable_btrace, + linux_low_read_btrace, + linux_low_btrace_conf, +#else + NULL, + NULL, + NULL, + NULL, +#endif + linux_supports_range_stepping, + linux_proc_pid_to_exec_file, + linux_mntns_open_cloexec, + linux_mntns_unlink, + linux_mntns_readlink, + linux_breakpoint_kind_from_pc, + linux_sw_breakpoint_from_kind, + linux_proc_tid_get_name, + linux_breakpoint_kind_from_current_state, + linux_supports_software_single_step, + linux_supports_catch_syscall, + linux_get_ipa_tdesc_idx, +#if USE_THREAD_DB + thread_db_thread_handle, +#else + NULL, +#endif +}; + +#ifdef HAVE_LINUX_REGSETS +void +initialize_regsets_info (struct regsets_info *info) +{ + for (info->num_regsets = 0; + info->regsets[info->num_regsets].size >= 0; + info->num_regsets++) + ; +} +#endif + +void +initialize_low (void) +{ + struct sigaction sigchld_action; + + memset (&sigchld_action, 0, sizeof (sigchld_action)); + set_target_ops (&linux_target_ops); + + linux_ptrace_init_warnings (); + linux_proc_init_warnings (); + + sigchld_action.sa_handler = sigchld_handler; + sigemptyset (&sigchld_action.sa_mask); + sigchld_action.sa_flags = SA_RESTART; + sigaction (SIGCHLD, &sigchld_action, NULL); + + initialize_low_arch (); + + linux_check_ptrace_features (); +} diff --git a/gdbserver/linux-m32r-low.c b/gdbserver/linux-m32r-low.c deleted file mode 100644 index c52e816e341..00000000000 --- a/gdbserver/linux-m32r-low.c +++ /dev/null @@ -1,157 +0,0 @@ -/* GNU/Linux/m32r specific low level interface, for the remote server for GDB. - Copyright (C) 2005-2020 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 . */ - -#include "server.h" -#include "linux-low.h" - -#ifdef HAVE_SYS_REG_H -#include -#endif - -/* Defined in auto-generated file reg-m32r.c. */ -void init_registers_m32r (void); -extern const struct target_desc *tdesc_m32r; - -#define m32r_num_regs 25 - -static int m32r_regmap[] = { -#ifdef PT_R0 - PT_R0, PT_R1, PT_R2, PT_R3, PT_R4, PT_R5, PT_R6, PT_R7, - PT_R8, PT_R9, PT_R10, PT_R11, PT_R12, PT_FP, PT_LR, PT_SPU, - PT_PSW, PT_CBR, PT_SPI, PT_SPU, PT_BPC, PT_PC, PT_ACCL, PT_ACCH, PT_EVB -#else - 4 * 4, 4 * 5, 4 * 6, 4 * 7, 4 * 0, 4 * 1, 4 * 2, 4 * 8, - 4 * 9, 4 * 10, 4 * 11, 4 * 12, 4 * 13, 4 * 24, 4 * 25, 4 * 23, - 4 * 19, 4 * 31, 4 * 26, 4 * 23, 4 * 20, 4 * 30, 4 * 16, 4 * 15, 4 * 32 -#endif -}; - -static int -m32r_cannot_store_register (int regno) -{ - return (regno >= m32r_num_regs); -} - -static int -m32r_cannot_fetch_register (int regno) -{ - return (regno >= m32r_num_regs); -} - -static const unsigned short m32r_breakpoint = 0x10f1; -#define m32r_breakpoint_len 2 - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -m32r_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = m32r_breakpoint_len; - return (const gdb_byte *) &m32r_breakpoint; -} - -static int -m32r_breakpoint_at (CORE_ADDR where) -{ - unsigned short insn; - - (*the_target->read_memory) (where, (unsigned char *) &insn, - m32r_breakpoint_len); - if (insn == m32r_breakpoint) - return 1; - - /* If necessary, recognize more trap instructions here. GDB only uses the - one. */ - return 0; -} - -static void -m32r_arch_setup (void) -{ - current_process ()->tdesc = tdesc_m32r; -} - -/* Support for hardware single step. */ - -static int -m32r_supports_hardware_single_step (void) -{ - return 1; -} - -static struct usrregs_info m32r_usrregs_info = - { - m32r_num_regs, - m32r_regmap, - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &m32r_usrregs_info, - }; - -static const struct regs_info * -m32r_regs_info (void) -{ - return ®s_info; -} - -struct linux_target_ops the_low_target = { - m32r_arch_setup, - m32r_regs_info, - m32r_cannot_fetch_register, - m32r_cannot_store_register, - NULL, /* fetch_register */ - linux_get_pc_32bit, - linux_set_pc_32bit, - NULL, /* breakpoint_from_pc */ - m32r_sw_breakpoint_from_kind, - NULL, - 0, - m32r_breakpoint_at, - NULL, /* supports_z_point_type */ - NULL, /* insert_point */ - NULL, /* remove_point */ - NULL, /* stopped_by_watchpoint */ - NULL, /* stopped_data_address */ - NULL, /* collect_ptrace_register */ - NULL, /* supply_ptrace_register */ - NULL, /* siginfo_fixup */ - NULL, /* new_process */ - NULL, /* delete_process */ - NULL, /* new_thread */ - NULL, /* delete_thread */ - NULL, /* new_fork */ - NULL, /* prepare_to_resume */ - NULL, /* process_qsupported */ - NULL, /* supports_tracepoints */ - NULL, /* get_thread_area */ - NULL, /* install_fast_tracepoint_jump_pad */ - NULL, /* emit_ops */ - NULL, /* get_min_fast_tracepoint_insn_len */ - NULL, /* supports_range_stepping */ - NULL, /* breakpoint_kind_from_current_state */ - m32r_supports_hardware_single_step, -}; - -void -initialize_low_arch (void) -{ - init_registers_m32r (); -} diff --git a/gdbserver/linux-m32r-low.cc b/gdbserver/linux-m32r-low.cc new file mode 100644 index 00000000000..c52e816e341 --- /dev/null +++ b/gdbserver/linux-m32r-low.cc @@ -0,0 +1,157 @@ +/* GNU/Linux/m32r specific low level interface, for the remote server for GDB. + Copyright (C) 2005-2020 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 . */ + +#include "server.h" +#include "linux-low.h" + +#ifdef HAVE_SYS_REG_H +#include +#endif + +/* Defined in auto-generated file reg-m32r.c. */ +void init_registers_m32r (void); +extern const struct target_desc *tdesc_m32r; + +#define m32r_num_regs 25 + +static int m32r_regmap[] = { +#ifdef PT_R0 + PT_R0, PT_R1, PT_R2, PT_R3, PT_R4, PT_R5, PT_R6, PT_R7, + PT_R8, PT_R9, PT_R10, PT_R11, PT_R12, PT_FP, PT_LR, PT_SPU, + PT_PSW, PT_CBR, PT_SPI, PT_SPU, PT_BPC, PT_PC, PT_ACCL, PT_ACCH, PT_EVB +#else + 4 * 4, 4 * 5, 4 * 6, 4 * 7, 4 * 0, 4 * 1, 4 * 2, 4 * 8, + 4 * 9, 4 * 10, 4 * 11, 4 * 12, 4 * 13, 4 * 24, 4 * 25, 4 * 23, + 4 * 19, 4 * 31, 4 * 26, 4 * 23, 4 * 20, 4 * 30, 4 * 16, 4 * 15, 4 * 32 +#endif +}; + +static int +m32r_cannot_store_register (int regno) +{ + return (regno >= m32r_num_regs); +} + +static int +m32r_cannot_fetch_register (int regno) +{ + return (regno >= m32r_num_regs); +} + +static const unsigned short m32r_breakpoint = 0x10f1; +#define m32r_breakpoint_len 2 + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +m32r_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = m32r_breakpoint_len; + return (const gdb_byte *) &m32r_breakpoint; +} + +static int +m32r_breakpoint_at (CORE_ADDR where) +{ + unsigned short insn; + + (*the_target->read_memory) (where, (unsigned char *) &insn, + m32r_breakpoint_len); + if (insn == m32r_breakpoint) + return 1; + + /* If necessary, recognize more trap instructions here. GDB only uses the + one. */ + return 0; +} + +static void +m32r_arch_setup (void) +{ + current_process ()->tdesc = tdesc_m32r; +} + +/* Support for hardware single step. */ + +static int +m32r_supports_hardware_single_step (void) +{ + return 1; +} + +static struct usrregs_info m32r_usrregs_info = + { + m32r_num_regs, + m32r_regmap, + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &m32r_usrregs_info, + }; + +static const struct regs_info * +m32r_regs_info (void) +{ + return ®s_info; +} + +struct linux_target_ops the_low_target = { + m32r_arch_setup, + m32r_regs_info, + m32r_cannot_fetch_register, + m32r_cannot_store_register, + NULL, /* fetch_register */ + linux_get_pc_32bit, + linux_set_pc_32bit, + NULL, /* breakpoint_from_pc */ + m32r_sw_breakpoint_from_kind, + NULL, + 0, + m32r_breakpoint_at, + NULL, /* supports_z_point_type */ + NULL, /* insert_point */ + NULL, /* remove_point */ + NULL, /* stopped_by_watchpoint */ + NULL, /* stopped_data_address */ + NULL, /* collect_ptrace_register */ + NULL, /* supply_ptrace_register */ + NULL, /* siginfo_fixup */ + NULL, /* new_process */ + NULL, /* delete_process */ + NULL, /* new_thread */ + NULL, /* delete_thread */ + NULL, /* new_fork */ + NULL, /* prepare_to_resume */ + NULL, /* process_qsupported */ + NULL, /* supports_tracepoints */ + NULL, /* get_thread_area */ + NULL, /* install_fast_tracepoint_jump_pad */ + NULL, /* emit_ops */ + NULL, /* get_min_fast_tracepoint_insn_len */ + NULL, /* supports_range_stepping */ + NULL, /* breakpoint_kind_from_current_state */ + m32r_supports_hardware_single_step, +}; + +void +initialize_low_arch (void) +{ + init_registers_m32r (); +} diff --git a/gdbserver/linux-m68k-low.c b/gdbserver/linux-m68k-low.c deleted file mode 100644 index 246b295a875..00000000000 --- a/gdbserver/linux-m68k-low.c +++ /dev/null @@ -1,255 +0,0 @@ -/* GNU/Linux/m68k specific low level interface, for the remote server for GDB. - Copyright (C) 1995-2020 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 . */ - -#include "server.h" -#include "linux-low.h" - -/* Defined in auto-generated file reg-m68k.c. */ -void init_registers_m68k (void); -extern const struct target_desc *tdesc_m68k; - -#ifdef HAVE_SYS_REG_H -#include -#endif - -#define m68k_num_regs 29 -#define m68k_num_gregs 18 - -/* This table must line up with REGISTER_NAMES in tm-m68k.h */ -static int m68k_regmap[] = -{ -#ifdef PT_D0 - PT_D0 * 4, PT_D1 * 4, PT_D2 * 4, PT_D3 * 4, - PT_D4 * 4, PT_D5 * 4, PT_D6 * 4, PT_D7 * 4, - PT_A0 * 4, PT_A1 * 4, PT_A2 * 4, PT_A3 * 4, - PT_A4 * 4, PT_A5 * 4, PT_A6 * 4, PT_USP * 4, - PT_SR * 4, PT_PC * 4, -#else - 14 * 4, 0 * 4, 1 * 4, 2 * 4, 3 * 4, 4 * 4, 5 * 4, 6 * 4, - 7 * 4, 8 * 4, 9 * 4, 10 * 4, 11 * 4, 12 * 4, 13 * 4, 15 * 4, - 17 * 4, 18 * 4, -#endif -#ifdef PT_FP0 - PT_FP0 * 4, PT_FP1 * 4, PT_FP2 * 4, PT_FP3 * 4, - PT_FP4 * 4, PT_FP5 * 4, PT_FP6 * 4, PT_FP7 * 4, - PT_FPCR * 4, PT_FPSR * 4, PT_FPIAR * 4 -#else - 21 * 4, 24 * 4, 27 * 4, 30 * 4, 33 * 4, 36 * 4, - 39 * 4, 42 * 4, 45 * 4, 46 * 4, 47 * 4 -#endif -}; - -static int -m68k_cannot_store_register (int regno) -{ - return (regno >= m68k_num_regs); -} - -static int -m68k_cannot_fetch_register (int regno) -{ - return (regno >= m68k_num_regs); -} - -#ifdef HAVE_PTRACE_GETREGS -#include -#include "nat/gdb_ptrace.h" - -static void -m68k_fill_gregset (struct regcache *regcache, void *buf) -{ - int i; - - for (i = 0; i < m68k_num_gregs; i++) - collect_register (regcache, i, (char *) buf + m68k_regmap[i]); -} - -static void -m68k_store_gregset (struct regcache *regcache, const void *buf) -{ - int i; - - for (i = 0; i < m68k_num_gregs; i++) - supply_register (regcache, i, (const char *) buf + m68k_regmap[i]); -} - -static void -m68k_fill_fpregset (struct regcache *regcache, void *buf) -{ - int i; - - for (i = m68k_num_gregs; i < m68k_num_regs; i++) - collect_register (regcache, i, ((char *) buf - + (m68k_regmap[i] - m68k_regmap[m68k_num_gregs]))); -} - -static void -m68k_store_fpregset (struct regcache *regcache, const void *buf) -{ - int i; - - for (i = m68k_num_gregs; i < m68k_num_regs; i++) - supply_register (regcache, i, ((const char *) buf - + (m68k_regmap[i] - m68k_regmap[m68k_num_gregs]))); -} - -#endif /* HAVE_PTRACE_GETREGS */ - -static struct regset_info m68k_regsets[] = { -#ifdef HAVE_PTRACE_GETREGS - { PTRACE_GETREGS, PTRACE_SETREGS, 0, sizeof (elf_gregset_t), - GENERAL_REGS, - m68k_fill_gregset, m68k_store_gregset }, - { PTRACE_GETFPREGS, PTRACE_SETFPREGS, 0, sizeof (elf_fpregset_t), - FP_REGS, - m68k_fill_fpregset, m68k_store_fpregset }, -#endif /* HAVE_PTRACE_GETREGS */ - NULL_REGSET -}; - -static const gdb_byte m68k_breakpoint[] = { 0x4E, 0x4F }; -#define m68k_breakpoint_len 2 - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -m68k_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = m68k_breakpoint_len; - return m68k_breakpoint; -} - -static int -m68k_breakpoint_at (CORE_ADDR pc) -{ - unsigned char c[2]; - - read_inferior_memory (pc, c, 2); - if (c[0] == 0x4E && c[1] == 0x4F) - return 1; - - return 0; -} - -#include - -#ifdef PTRACE_GET_THREAD_AREA -/* Fetch the thread-local storage pointer for libthread_db. */ - -ps_err_e -ps_get_thread_area (struct ps_prochandle *ph, - lwpid_t lwpid, int idx, void **base) -{ - if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0) - return PS_ERR; - - /* IDX is the bias from the thread pointer to the beginning of the - thread descriptor. It has to be subtracted due to implementation - quirks in libthread_db. */ - *base = (void *) ((char *)*base - idx); - - return PS_OK; -} -#endif /* PTRACE_GET_THREAD_AREA */ - -static struct regsets_info m68k_regsets_info = - { - m68k_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct usrregs_info m68k_usrregs_info = - { - m68k_num_regs, - m68k_regmap, - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &m68k_usrregs_info, - &m68k_regsets_info - }; - -static const struct regs_info * -m68k_regs_info (void) -{ - return ®s_info; -} - -static void -m68k_arch_setup (void) -{ - current_process ()->tdesc = tdesc_m68k; -} - -/* Support for hardware single step. */ - -static int -m68k_supports_hardware_single_step (void) -{ - return 1; -} - -struct linux_target_ops the_low_target = { - m68k_arch_setup, - m68k_regs_info, - m68k_cannot_fetch_register, - m68k_cannot_store_register, - NULL, /* fetch_register */ - linux_get_pc_32bit, - linux_set_pc_32bit, - NULL, /* breakpoint_kind_from_pc */ - m68k_sw_breakpoint_from_kind, - NULL, - 2, - m68k_breakpoint_at, - NULL, /* supports_z_point_type */ - NULL, /* insert_point */ - NULL, /* remove_point */ - NULL, /* stopped_by_watchpoint */ - NULL, /* stopped_data_address */ - NULL, /* collect_ptrace_register */ - NULL, /* supply_ptrace_register */ - NULL, /* siginfo_fixup */ - NULL, /* new_process */ - NULL, /* delete_process */ - NULL, /* new_thread */ - NULL, /* delete_thread */ - NULL, /* new_fork */ - NULL, /* prepare_to_resume */ - NULL, /* process_qsupported */ - NULL, /* supports_tracepoints */ - NULL, /* get_thread_area */ - NULL, /* install_fast_tracepoint_jump_pad */ - NULL, /* emit_ops */ - NULL, /* get_min_fast_tracepoint_insn_len */ - NULL, /* supports_range_stepping */ - NULL, /* breakpoint_kind_from_current_state */ - m68k_supports_hardware_single_step, -}; - -void -initialize_low_arch (void) -{ - /* Initialize the Linux target descriptions. */ - init_registers_m68k (); - - initialize_regsets_info (&m68k_regsets_info); -} diff --git a/gdbserver/linux-m68k-low.cc b/gdbserver/linux-m68k-low.cc new file mode 100644 index 00000000000..246b295a875 --- /dev/null +++ b/gdbserver/linux-m68k-low.cc @@ -0,0 +1,255 @@ +/* GNU/Linux/m68k specific low level interface, for the remote server for GDB. + Copyright (C) 1995-2020 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 . */ + +#include "server.h" +#include "linux-low.h" + +/* Defined in auto-generated file reg-m68k.c. */ +void init_registers_m68k (void); +extern const struct target_desc *tdesc_m68k; + +#ifdef HAVE_SYS_REG_H +#include +#endif + +#define m68k_num_regs 29 +#define m68k_num_gregs 18 + +/* This table must line up with REGISTER_NAMES in tm-m68k.h */ +static int m68k_regmap[] = +{ +#ifdef PT_D0 + PT_D0 * 4, PT_D1 * 4, PT_D2 * 4, PT_D3 * 4, + PT_D4 * 4, PT_D5 * 4, PT_D6 * 4, PT_D7 * 4, + PT_A0 * 4, PT_A1 * 4, PT_A2 * 4, PT_A3 * 4, + PT_A4 * 4, PT_A5 * 4, PT_A6 * 4, PT_USP * 4, + PT_SR * 4, PT_PC * 4, +#else + 14 * 4, 0 * 4, 1 * 4, 2 * 4, 3 * 4, 4 * 4, 5 * 4, 6 * 4, + 7 * 4, 8 * 4, 9 * 4, 10 * 4, 11 * 4, 12 * 4, 13 * 4, 15 * 4, + 17 * 4, 18 * 4, +#endif +#ifdef PT_FP0 + PT_FP0 * 4, PT_FP1 * 4, PT_FP2 * 4, PT_FP3 * 4, + PT_FP4 * 4, PT_FP5 * 4, PT_FP6 * 4, PT_FP7 * 4, + PT_FPCR * 4, PT_FPSR * 4, PT_FPIAR * 4 +#else + 21 * 4, 24 * 4, 27 * 4, 30 * 4, 33 * 4, 36 * 4, + 39 * 4, 42 * 4, 45 * 4, 46 * 4, 47 * 4 +#endif +}; + +static int +m68k_cannot_store_register (int regno) +{ + return (regno >= m68k_num_regs); +} + +static int +m68k_cannot_fetch_register (int regno) +{ + return (regno >= m68k_num_regs); +} + +#ifdef HAVE_PTRACE_GETREGS +#include +#include "nat/gdb_ptrace.h" + +static void +m68k_fill_gregset (struct regcache *regcache, void *buf) +{ + int i; + + for (i = 0; i < m68k_num_gregs; i++) + collect_register (regcache, i, (char *) buf + m68k_regmap[i]); +} + +static void +m68k_store_gregset (struct regcache *regcache, const void *buf) +{ + int i; + + for (i = 0; i < m68k_num_gregs; i++) + supply_register (regcache, i, (const char *) buf + m68k_regmap[i]); +} + +static void +m68k_fill_fpregset (struct regcache *regcache, void *buf) +{ + int i; + + for (i = m68k_num_gregs; i < m68k_num_regs; i++) + collect_register (regcache, i, ((char *) buf + + (m68k_regmap[i] - m68k_regmap[m68k_num_gregs]))); +} + +static void +m68k_store_fpregset (struct regcache *regcache, const void *buf) +{ + int i; + + for (i = m68k_num_gregs; i < m68k_num_regs; i++) + supply_register (regcache, i, ((const char *) buf + + (m68k_regmap[i] - m68k_regmap[m68k_num_gregs]))); +} + +#endif /* HAVE_PTRACE_GETREGS */ + +static struct regset_info m68k_regsets[] = { +#ifdef HAVE_PTRACE_GETREGS + { PTRACE_GETREGS, PTRACE_SETREGS, 0, sizeof (elf_gregset_t), + GENERAL_REGS, + m68k_fill_gregset, m68k_store_gregset }, + { PTRACE_GETFPREGS, PTRACE_SETFPREGS, 0, sizeof (elf_fpregset_t), + FP_REGS, + m68k_fill_fpregset, m68k_store_fpregset }, +#endif /* HAVE_PTRACE_GETREGS */ + NULL_REGSET +}; + +static const gdb_byte m68k_breakpoint[] = { 0x4E, 0x4F }; +#define m68k_breakpoint_len 2 + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +m68k_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = m68k_breakpoint_len; + return m68k_breakpoint; +} + +static int +m68k_breakpoint_at (CORE_ADDR pc) +{ + unsigned char c[2]; + + read_inferior_memory (pc, c, 2); + if (c[0] == 0x4E && c[1] == 0x4F) + return 1; + + return 0; +} + +#include + +#ifdef PTRACE_GET_THREAD_AREA +/* Fetch the thread-local storage pointer for libthread_db. */ + +ps_err_e +ps_get_thread_area (struct ps_prochandle *ph, + lwpid_t lwpid, int idx, void **base) +{ + if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0) + return PS_ERR; + + /* IDX is the bias from the thread pointer to the beginning of the + thread descriptor. It has to be subtracted due to implementation + quirks in libthread_db. */ + *base = (void *) ((char *)*base - idx); + + return PS_OK; +} +#endif /* PTRACE_GET_THREAD_AREA */ + +static struct regsets_info m68k_regsets_info = + { + m68k_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct usrregs_info m68k_usrregs_info = + { + m68k_num_regs, + m68k_regmap, + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &m68k_usrregs_info, + &m68k_regsets_info + }; + +static const struct regs_info * +m68k_regs_info (void) +{ + return ®s_info; +} + +static void +m68k_arch_setup (void) +{ + current_process ()->tdesc = tdesc_m68k; +} + +/* Support for hardware single step. */ + +static int +m68k_supports_hardware_single_step (void) +{ + return 1; +} + +struct linux_target_ops the_low_target = { + m68k_arch_setup, + m68k_regs_info, + m68k_cannot_fetch_register, + m68k_cannot_store_register, + NULL, /* fetch_register */ + linux_get_pc_32bit, + linux_set_pc_32bit, + NULL, /* breakpoint_kind_from_pc */ + m68k_sw_breakpoint_from_kind, + NULL, + 2, + m68k_breakpoint_at, + NULL, /* supports_z_point_type */ + NULL, /* insert_point */ + NULL, /* remove_point */ + NULL, /* stopped_by_watchpoint */ + NULL, /* stopped_data_address */ + NULL, /* collect_ptrace_register */ + NULL, /* supply_ptrace_register */ + NULL, /* siginfo_fixup */ + NULL, /* new_process */ + NULL, /* delete_process */ + NULL, /* new_thread */ + NULL, /* delete_thread */ + NULL, /* new_fork */ + NULL, /* prepare_to_resume */ + NULL, /* process_qsupported */ + NULL, /* supports_tracepoints */ + NULL, /* get_thread_area */ + NULL, /* install_fast_tracepoint_jump_pad */ + NULL, /* emit_ops */ + NULL, /* get_min_fast_tracepoint_insn_len */ + NULL, /* supports_range_stepping */ + NULL, /* breakpoint_kind_from_current_state */ + m68k_supports_hardware_single_step, +}; + +void +initialize_low_arch (void) +{ + /* Initialize the Linux target descriptions. */ + init_registers_m68k (); + + initialize_regsets_info (&m68k_regsets_info); +} diff --git a/gdbserver/linux-mips-low.c b/gdbserver/linux-mips-low.c deleted file mode 100644 index f94e141be79..00000000000 --- a/gdbserver/linux-mips-low.c +++ /dev/null @@ -1,978 +0,0 @@ -/* GNU/Linux/MIPS specific low level interface, for the remote server for GDB. - Copyright (C) 1995-2020 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 . */ - -#include "server.h" -#include "linux-low.h" - -#include "nat/gdb_ptrace.h" -#include - -#include "nat/mips-linux-watch.h" -#include "gdb_proc_service.h" - -/* Defined in auto-generated file mips-linux.c. */ -void init_registers_mips_linux (void); -extern const struct target_desc *tdesc_mips_linux; - -/* Defined in auto-generated file mips-dsp-linux.c. */ -void init_registers_mips_dsp_linux (void); -extern const struct target_desc *tdesc_mips_dsp_linux; - -/* Defined in auto-generated file mips64-linux.c. */ -void init_registers_mips64_linux (void); -extern const struct target_desc *tdesc_mips64_linux; - -/* Defined in auto-generated file mips64-dsp-linux.c. */ -void init_registers_mips64_dsp_linux (void); -extern const struct target_desc *tdesc_mips64_dsp_linux; - -#ifdef __mips64 -#define tdesc_mips_linux tdesc_mips64_linux -#define tdesc_mips_dsp_linux tdesc_mips64_dsp_linux -#endif - -#ifndef PTRACE_GET_THREAD_AREA -#define PTRACE_GET_THREAD_AREA 25 -#endif - -#ifdef HAVE_SYS_REG_H -#include -#endif - -#define mips_num_regs 73 -#define mips_dsp_num_regs 80 - -#include - -#ifndef DSP_BASE -#define DSP_BASE 71 -#define DSP_CONTROL 77 -#endif - -union mips_register -{ - unsigned char buf[8]; - - /* Deliberately signed, for proper sign extension. */ - int reg32; - long long reg64; -}; - -/* Return the ptrace ``address'' of register REGNO. */ - -#define mips_base_regs \ - -1, 1, 2, 3, 4, 5, 6, 7, \ - 8, 9, 10, 11, 12, 13, 14, 15, \ - 16, 17, 18, 19, 20, 21, 22, 23, \ - 24, 25, 26, 27, 28, 29, 30, 31, \ - \ - -1, MMLO, MMHI, BADVADDR, CAUSE, PC, \ - \ - FPR_BASE, FPR_BASE + 1, FPR_BASE + 2, FPR_BASE + 3, \ - FPR_BASE + 4, FPR_BASE + 5, FPR_BASE + 6, FPR_BASE + 7, \ - FPR_BASE + 8, FPR_BASE + 9, FPR_BASE + 10, FPR_BASE + 11, \ - FPR_BASE + 12, FPR_BASE + 13, FPR_BASE + 14, FPR_BASE + 15, \ - FPR_BASE + 16, FPR_BASE + 17, FPR_BASE + 18, FPR_BASE + 19, \ - FPR_BASE + 20, FPR_BASE + 21, FPR_BASE + 22, FPR_BASE + 23, \ - FPR_BASE + 24, FPR_BASE + 25, FPR_BASE + 26, FPR_BASE + 27, \ - FPR_BASE + 28, FPR_BASE + 29, FPR_BASE + 30, FPR_BASE + 31, \ - FPC_CSR, FPC_EIR - -#define mips_dsp_regs \ - DSP_BASE, DSP_BASE + 1, DSP_BASE + 2, DSP_BASE + 3, \ - DSP_BASE + 4, DSP_BASE + 5, \ - DSP_CONTROL - -static int mips_regmap[mips_num_regs] = { - mips_base_regs, - 0 -}; - -static int mips_dsp_regmap[mips_dsp_num_regs] = { - mips_base_regs, - mips_dsp_regs, - 0 -}; - -/* DSP registers are not in any regset and can only be accessed - individually. */ - -static unsigned char mips_dsp_regset_bitmap[(mips_dsp_num_regs + 7) / 8] = { - 0xfe, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff, 0xff, 0x80 -}; - -static int have_dsp = -1; - -/* Try peeking at an arbitrarily chosen DSP register and pick the available - user register set accordingly. */ - -static const struct target_desc * -mips_read_description (void) -{ - if (have_dsp < 0) - { - int pid = lwpid_of (current_thread); - - errno = 0; - ptrace (PTRACE_PEEKUSER, pid, DSP_CONTROL, 0); - switch (errno) - { - case 0: - have_dsp = 1; - break; - case EIO: - have_dsp = 0; - break; - default: - perror_with_name ("ptrace"); - break; - } - } - - return have_dsp ? tdesc_mips_dsp_linux : tdesc_mips_linux; -} - -static void -mips_arch_setup (void) -{ - current_process ()->tdesc = mips_read_description (); -} - -static struct usrregs_info * -get_usrregs_info (void) -{ - const struct regs_info *regs_info = the_low_target.regs_info (); - - return regs_info->usrregs; -} - -/* Per-process arch-specific data we want to keep. */ - -struct arch_process_info -{ - /* -1 if the kernel and/or CPU do not support watch registers. - 1 if watch_readback is valid and we can read style, num_valid - and the masks. - 0 if we need to read the watch_readback. */ - - int watch_readback_valid; - - /* Cached watch register read values. */ - - struct pt_watch_regs watch_readback; - - /* Current watchpoint requests for this process. */ - - struct mips_watchpoint *current_watches; - - /* The current set of watch register values for writing the - registers. */ - - struct pt_watch_regs watch_mirror; -}; - -/* Per-thread arch-specific data we want to keep. */ - -struct arch_lwp_info -{ - /* Non-zero if our copy differs from what's recorded in the thread. */ - int watch_registers_changed; -}; - -/* From mips-linux-nat.c. */ - -/* Pseudo registers can not be read. ptrace does not provide a way to - read (or set) PS_REGNUM, and there's no point in reading or setting - ZERO_REGNUM, it's always 0. We also can not set BADVADDR, CAUSE, - or FCRIR via ptrace(). */ - -static int -mips_cannot_fetch_register (int regno) -{ - const struct target_desc *tdesc; - - if (get_usrregs_info ()->regmap[regno] == -1) - return 1; - - tdesc = current_process ()->tdesc; - - /* On n32 we can't access 64-bit registers via PTRACE_PEEKUSR. */ - if (register_size (tdesc, regno) > sizeof (PTRACE_XFER_TYPE)) - return 1; - - if (find_regno (tdesc, "r0") == regno) - return 1; - - return 0; -} - -static int -mips_cannot_store_register (int regno) -{ - const struct target_desc *tdesc; - - if (get_usrregs_info ()->regmap[regno] == -1) - return 1; - - tdesc = current_process ()->tdesc; - - /* On n32 we can't access 64-bit registers via PTRACE_POKEUSR. */ - if (register_size (tdesc, regno) > sizeof (PTRACE_XFER_TYPE)) - return 1; - - if (find_regno (tdesc, "r0") == regno) - return 1; - - if (find_regno (tdesc, "cause") == regno) - return 1; - - if (find_regno (tdesc, "badvaddr") == regno) - return 1; - - if (find_regno (tdesc, "fir") == regno) - return 1; - - return 0; -} - -static int -mips_fetch_register (struct regcache *regcache, int regno) -{ - const struct target_desc *tdesc = current_process ()->tdesc; - - if (find_regno (tdesc, "r0") == regno) - { - supply_register_zeroed (regcache, regno); - return 1; - } - - return 0; -} - -static CORE_ADDR -mips_get_pc (struct regcache *regcache) -{ - union mips_register pc; - collect_register_by_name (regcache, "pc", pc.buf); - return register_size (regcache->tdesc, 0) == 4 ? pc.reg32 : pc.reg64; -} - -static void -mips_set_pc (struct regcache *regcache, CORE_ADDR pc) -{ - union mips_register newpc; - if (register_size (regcache->tdesc, 0) == 4) - newpc.reg32 = pc; - else - newpc.reg64 = pc; - - supply_register_by_name (regcache, "pc", newpc.buf); -} - -/* Correct in either endianness. */ -static const unsigned int mips_breakpoint = 0x0005000d; -#define mips_breakpoint_len 4 - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -mips_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = mips_breakpoint_len; - return (const gdb_byte *) &mips_breakpoint; -} - -static int -mips_breakpoint_at (CORE_ADDR where) -{ - unsigned int insn; - - (*the_target->read_memory) (where, (unsigned char *) &insn, 4); - if (insn == mips_breakpoint) - return 1; - - /* If necessary, recognize more trap instructions here. GDB only uses the - one. */ - return 0; -} - -/* Mark the watch registers of lwp, represented by ENTRY, as changed. */ - -static void -update_watch_registers_callback (thread_info *thread) -{ - struct lwp_info *lwp = get_thread_lwp (thread); - - /* The actual update is done later just before resuming the lwp, - we just mark that the registers need updating. */ - lwp->arch_private->watch_registers_changed = 1; - - /* If the lwp isn't stopped, force it to momentarily pause, so - we can update its watch registers. */ - if (!lwp->stopped) - linux_stop_lwp (lwp); -} - -/* This is the implementation of linux_target_ops method - new_process. */ - -static struct arch_process_info * -mips_linux_new_process (void) -{ - struct arch_process_info *info = XCNEW (struct arch_process_info); - - return info; -} - -/* This is the implementation of linux_target_ops method - delete_process. */ - -static void -mips_linux_delete_process (struct arch_process_info *info) -{ - xfree (info); -} - -/* This is the implementation of linux_target_ops method new_thread. - Mark the watch registers as changed, so the threads' copies will - be updated. */ - -static void -mips_linux_new_thread (struct lwp_info *lwp) -{ - struct arch_lwp_info *info = XCNEW (struct arch_lwp_info); - - info->watch_registers_changed = 1; - - lwp->arch_private = info; -} - -/* Function to call when a thread is being deleted. */ - -static void -mips_linux_delete_thread (struct arch_lwp_info *arch_lwp) -{ - xfree (arch_lwp); -} - -/* Create a new mips_watchpoint and add it to the list. */ - -static void -mips_add_watchpoint (struct arch_process_info *priv, CORE_ADDR addr, int len, - enum target_hw_bp_type watch_type) -{ - struct mips_watchpoint *new_watch; - struct mips_watchpoint **pw; - - new_watch = XNEW (struct mips_watchpoint); - new_watch->addr = addr; - new_watch->len = len; - new_watch->type = watch_type; - new_watch->next = NULL; - - pw = &priv->current_watches; - while (*pw != NULL) - pw = &(*pw)->next; - *pw = new_watch; -} - -/* Hook to call when a new fork is attached. */ - -static void -mips_linux_new_fork (struct process_info *parent, - struct process_info *child) -{ - struct arch_process_info *parent_private; - struct arch_process_info *child_private; - struct mips_watchpoint *wp; - - /* These are allocated by linux_add_process. */ - gdb_assert (parent->priv != NULL - && parent->priv->arch_private != NULL); - gdb_assert (child->priv != NULL - && child->priv->arch_private != NULL); - - /* Linux kernel before 2.6.33 commit - 72f674d203cd230426437cdcf7dd6f681dad8b0d - will inherit hardware debug registers from parent - on fork/vfork/clone. Newer Linux kernels create such tasks with - zeroed debug registers. - - GDB core assumes the child inherits the watchpoints/hw - breakpoints of the parent, and will remove them all from the - forked off process. Copy the debug registers mirrors into the - new process so that all breakpoints and watchpoints can be - removed together. The debug registers mirror will become zeroed - in the end before detaching the forked off process, thus making - this compatible with older Linux kernels too. */ - - parent_private = parent->priv->arch_private; - child_private = child->priv->arch_private; - - child_private->watch_readback_valid = parent_private->watch_readback_valid; - child_private->watch_readback = parent_private->watch_readback; - - for (wp = parent_private->current_watches; wp != NULL; wp = wp->next) - mips_add_watchpoint (child_private, wp->addr, wp->len, wp->type); - - child_private->watch_mirror = parent_private->watch_mirror; -} -/* This is the implementation of linux_target_ops method - prepare_to_resume. If the watch regs have changed, update the - thread's copies. */ - -static void -mips_linux_prepare_to_resume (struct lwp_info *lwp) -{ - ptid_t ptid = ptid_of (get_lwp_thread (lwp)); - struct process_info *proc = find_process_pid (ptid.pid ()); - struct arch_process_info *priv = proc->priv->arch_private; - - if (lwp->arch_private->watch_registers_changed) - { - /* Only update the watch registers if we have set or unset a - watchpoint already. */ - if (mips_linux_watch_get_num_valid (&priv->watch_mirror) > 0) - { - /* Write the mirrored watch register values. */ - int tid = ptid.lwp (); - - if (-1 == ptrace (PTRACE_SET_WATCH_REGS, tid, - &priv->watch_mirror, NULL)) - perror_with_name ("Couldn't write watch register"); - } - - lwp->arch_private->watch_registers_changed = 0; - } -} - -static int -mips_supports_z_point_type (char z_type) -{ - switch (z_type) - { - case Z_PACKET_WRITE_WP: - case Z_PACKET_READ_WP: - case Z_PACKET_ACCESS_WP: - return 1; - default: - return 0; - } -} - -/* This is the implementation of linux_target_ops method - insert_point. */ - -static int -mips_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, - int len, struct raw_breakpoint *bp) -{ - struct process_info *proc = current_process (); - struct arch_process_info *priv = proc->priv->arch_private; - struct pt_watch_regs regs; - long lwpid; - enum target_hw_bp_type watch_type; - uint32_t irw; - - lwpid = lwpid_of (current_thread); - if (!mips_linux_read_watch_registers (lwpid, - &priv->watch_readback, - &priv->watch_readback_valid, - 0)) - return -1; - - if (len <= 0) - return -1; - - regs = priv->watch_readback; - /* Add the current watches. */ - mips_linux_watch_populate_regs (priv->current_watches, ®s); - - /* Now try to add the new watch. */ - watch_type = raw_bkpt_type_to_target_hw_bp_type (type); - irw = mips_linux_watch_type_to_irw (watch_type); - if (!mips_linux_watch_try_one_watch (®s, addr, len, irw)) - return -1; - - /* It fit. Stick it on the end of the list. */ - mips_add_watchpoint (priv, addr, len, watch_type); - - priv->watch_mirror = regs; - - /* Only update the threads of this process. */ - for_each_thread (proc->pid, update_watch_registers_callback); - - return 0; -} - -/* This is the implementation of linux_target_ops method - remove_point. */ - -static int -mips_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, - int len, struct raw_breakpoint *bp) -{ - struct process_info *proc = current_process (); - struct arch_process_info *priv = proc->priv->arch_private; - - int deleted_one; - enum target_hw_bp_type watch_type; - - struct mips_watchpoint **pw; - struct mips_watchpoint *w; - - /* Search for a known watch that matches. Then unlink and free it. */ - watch_type = raw_bkpt_type_to_target_hw_bp_type (type); - deleted_one = 0; - pw = &priv->current_watches; - while ((w = *pw)) - { - if (w->addr == addr && w->len == len && w->type == watch_type) - { - *pw = w->next; - free (w); - deleted_one = 1; - break; - } - pw = &(w->next); - } - - if (!deleted_one) - return -1; /* We don't know about it, fail doing nothing. */ - - /* At this point watch_readback is known to be valid because we - could not have added the watch without reading it. */ - gdb_assert (priv->watch_readback_valid == 1); - - priv->watch_mirror = priv->watch_readback; - mips_linux_watch_populate_regs (priv->current_watches, - &priv->watch_mirror); - - /* Only update the threads of this process. */ - for_each_thread (proc->pid, update_watch_registers_callback); - - return 0; -} - -/* This is the implementation of linux_target_ops method - stopped_by_watchpoint. The watchhi R and W bits indicate - the watch register triggered. */ - -static int -mips_stopped_by_watchpoint (void) -{ - struct process_info *proc = current_process (); - struct arch_process_info *priv = proc->priv->arch_private; - int n; - int num_valid; - long lwpid = lwpid_of (current_thread); - - if (!mips_linux_read_watch_registers (lwpid, - &priv->watch_readback, - &priv->watch_readback_valid, - 1)) - return 0; - - num_valid = mips_linux_watch_get_num_valid (&priv->watch_readback); - - for (n = 0; n < MAX_DEBUG_REGISTER && n < num_valid; n++) - if (mips_linux_watch_get_watchhi (&priv->watch_readback, n) - & (R_MASK | W_MASK)) - return 1; - - return 0; -} - -/* This is the implementation of linux_target_ops method - stopped_data_address. */ - -static CORE_ADDR -mips_stopped_data_address (void) -{ - struct process_info *proc = current_process (); - struct arch_process_info *priv = proc->priv->arch_private; - int n; - int num_valid; - long lwpid = lwpid_of (current_thread); - - /* On MIPS we don't know the low order 3 bits of the data address. - GDB does not support remote targets that can't report the - watchpoint address. So, make our best guess; return the starting - address of a watchpoint request which overlaps the one that - triggered. */ - - if (!mips_linux_read_watch_registers (lwpid, - &priv->watch_readback, - &priv->watch_readback_valid, - 0)) - return 0; - - num_valid = mips_linux_watch_get_num_valid (&priv->watch_readback); - - for (n = 0; n < MAX_DEBUG_REGISTER && n < num_valid; n++) - if (mips_linux_watch_get_watchhi (&priv->watch_readback, n) - & (R_MASK | W_MASK)) - { - CORE_ADDR t_low, t_hi; - int t_irw; - struct mips_watchpoint *watch; - - t_low = mips_linux_watch_get_watchlo (&priv->watch_readback, n); - t_irw = t_low & IRW_MASK; - t_hi = (mips_linux_watch_get_watchhi (&priv->watch_readback, n) - | IRW_MASK); - t_low &= ~(CORE_ADDR)t_hi; - - for (watch = priv->current_watches; - watch != NULL; - watch = watch->next) - { - CORE_ADDR addr = watch->addr; - CORE_ADDR last_byte = addr + watch->len - 1; - - if ((t_irw & mips_linux_watch_type_to_irw (watch->type)) == 0) - { - /* Different type. */ - continue; - } - /* Check for overlap of even a single byte. */ - if (last_byte >= t_low && addr <= t_low + t_hi) - return addr; - } - } - - /* Shouldn't happen. */ - return 0; -} - -/* Fetch the thread-local storage pointer for libthread_db. */ - -ps_err_e -ps_get_thread_area (struct ps_prochandle *ph, - lwpid_t lwpid, int idx, void **base) -{ - if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0) - return PS_ERR; - - /* IDX is the bias from the thread pointer to the beginning of the - thread descriptor. It has to be subtracted due to implementation - quirks in libthread_db. */ - *base = (void *) ((char *)*base - idx); - - return PS_OK; -} - -static void -mips_collect_register (struct regcache *regcache, - int use_64bit, int regno, union mips_register *reg) -{ - union mips_register tmp_reg; - - if (use_64bit) - { - collect_register (regcache, regno, &tmp_reg.reg64); - *reg = tmp_reg; - } - else - { - collect_register (regcache, regno, &tmp_reg.reg32); - reg->reg64 = tmp_reg.reg32; - } -} - -static void -mips_supply_register (struct regcache *regcache, - int use_64bit, int regno, const union mips_register *reg) -{ - int offset = 0; - - /* For big-endian 32-bit targets, ignore the high four bytes of each - eight-byte slot. */ - if (__BYTE_ORDER == __BIG_ENDIAN && !use_64bit) - offset = 4; - - supply_register (regcache, regno, reg->buf + offset); -} - -#ifdef HAVE_PTRACE_GETREGS - -static void -mips_collect_register_32bit (struct regcache *regcache, - int use_64bit, int regno, unsigned char *buf) -{ - union mips_register tmp_reg; - int reg32; - - mips_collect_register (regcache, use_64bit, regno, &tmp_reg); - reg32 = tmp_reg.reg64; - memcpy (buf, ®32, 4); -} - -static void -mips_supply_register_32bit (struct regcache *regcache, - int use_64bit, int regno, const unsigned char *buf) -{ - union mips_register tmp_reg; - int reg32; - - memcpy (®32, buf, 4); - tmp_reg.reg64 = reg32; - mips_supply_register (regcache, use_64bit, regno, &tmp_reg); -} - -static void -mips_fill_gregset (struct regcache *regcache, void *buf) -{ - union mips_register *regset = (union mips_register *) buf; - int i, use_64bit; - const struct target_desc *tdesc = regcache->tdesc; - - use_64bit = (register_size (tdesc, 0) == 8); - - for (i = 1; i < 32; i++) - mips_collect_register (regcache, use_64bit, i, regset + i); - - mips_collect_register (regcache, use_64bit, - find_regno (tdesc, "lo"), regset + 32); - mips_collect_register (regcache, use_64bit, - find_regno (tdesc, "hi"), regset + 33); - mips_collect_register (regcache, use_64bit, - find_regno (tdesc, "pc"), regset + 34); - mips_collect_register (regcache, use_64bit, - find_regno (tdesc, "badvaddr"), regset + 35); - mips_collect_register (regcache, use_64bit, - find_regno (tdesc, "status"), regset + 36); - mips_collect_register (regcache, use_64bit, - find_regno (tdesc, "cause"), regset + 37); - - mips_collect_register (regcache, use_64bit, - find_regno (tdesc, "restart"), regset + 0); -} - -static void -mips_store_gregset (struct regcache *regcache, const void *buf) -{ - const union mips_register *regset = (const union mips_register *) buf; - int i, use_64bit; - - use_64bit = (register_size (regcache->tdesc, 0) == 8); - - supply_register_by_name_zeroed (regcache, "r0"); - - for (i = 1; i < 32; i++) - mips_supply_register (regcache, use_64bit, i, regset + i); - - mips_supply_register (regcache, use_64bit, - find_regno (regcache->tdesc, "lo"), regset + 32); - mips_supply_register (regcache, use_64bit, - find_regno (regcache->tdesc, "hi"), regset + 33); - mips_supply_register (regcache, use_64bit, - find_regno (regcache->tdesc, "pc"), regset + 34); - mips_supply_register (regcache, use_64bit, - find_regno (regcache->tdesc, "badvaddr"), regset + 35); - mips_supply_register (regcache, use_64bit, - find_regno (regcache->tdesc, "status"), regset + 36); - mips_supply_register (regcache, use_64bit, - find_regno (regcache->tdesc, "cause"), regset + 37); - - mips_supply_register (regcache, use_64bit, - find_regno (regcache->tdesc, "restart"), regset + 0); -} - -static void -mips_fill_fpregset (struct regcache *regcache, void *buf) -{ - union mips_register *regset = (union mips_register *) buf; - int i, use_64bit, first_fp, big_endian; - - use_64bit = (register_size (regcache->tdesc, 0) == 8); - first_fp = find_regno (regcache->tdesc, "f0"); - big_endian = (__BYTE_ORDER == __BIG_ENDIAN); - - /* See GDB for a discussion of this peculiar layout. */ - for (i = 0; i < 32; i++) - if (use_64bit) - collect_register (regcache, first_fp + i, regset[i].buf); - else - collect_register (regcache, first_fp + i, - regset[i & ~1].buf + 4 * (big_endian != (i & 1))); - - mips_collect_register_32bit (regcache, use_64bit, - find_regno (regcache->tdesc, "fcsr"), regset[32].buf); - mips_collect_register_32bit (regcache, use_64bit, - find_regno (regcache->tdesc, "fir"), - regset[32].buf + 4); -} - -static void -mips_store_fpregset (struct regcache *regcache, const void *buf) -{ - const union mips_register *regset = (const union mips_register *) buf; - int i, use_64bit, first_fp, big_endian; - - use_64bit = (register_size (regcache->tdesc, 0) == 8); - first_fp = find_regno (regcache->tdesc, "f0"); - big_endian = (__BYTE_ORDER == __BIG_ENDIAN); - - /* See GDB for a discussion of this peculiar layout. */ - for (i = 0; i < 32; i++) - if (use_64bit) - supply_register (regcache, first_fp + i, regset[i].buf); - else - supply_register (regcache, first_fp + i, - regset[i & ~1].buf + 4 * (big_endian != (i & 1))); - - mips_supply_register_32bit (regcache, use_64bit, - find_regno (regcache->tdesc, "fcsr"), - regset[32].buf); - mips_supply_register_32bit (regcache, use_64bit, - find_regno (regcache->tdesc, "fir"), - regset[32].buf + 4); -} -#endif /* HAVE_PTRACE_GETREGS */ - -/* Take care of 32-bit registers with 64-bit ptrace, POKEUSER side. */ - -static void -mips_collect_ptrace_register (struct regcache *regcache, - int regno, char *buf) -{ - int use_64bit = sizeof (PTRACE_XFER_TYPE) == 8; - - if (use_64bit && register_size (regcache->tdesc, regno) == 4) - { - union mips_register reg; - - mips_collect_register (regcache, 0, regno, ®); - memcpy (buf, ®, sizeof (reg)); - } - else - collect_register (regcache, regno, buf); -} - -/* Take care of 32-bit registers with 64-bit ptrace, PEEKUSER side. */ - -static void -mips_supply_ptrace_register (struct regcache *regcache, - int regno, const char *buf) -{ - int use_64bit = sizeof (PTRACE_XFER_TYPE) == 8; - - if (use_64bit && register_size (regcache->tdesc, regno) == 4) - { - union mips_register reg; - - memcpy (®, buf, sizeof (reg)); - mips_supply_register (regcache, 0, regno, ®); - } - else - supply_register (regcache, regno, buf); -} - -static struct regset_info mips_regsets[] = { -#ifdef HAVE_PTRACE_GETREGS - { PTRACE_GETREGS, PTRACE_SETREGS, 0, 38 * 8, GENERAL_REGS, - mips_fill_gregset, mips_store_gregset }, - { PTRACE_GETFPREGS, PTRACE_SETFPREGS, 0, 33 * 8, FP_REGS, - mips_fill_fpregset, mips_store_fpregset }, -#endif /* HAVE_PTRACE_GETREGS */ - NULL_REGSET -}; - -static struct regsets_info mips_regsets_info = - { - mips_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct usrregs_info mips_dsp_usrregs_info = - { - mips_dsp_num_regs, - mips_dsp_regmap, - }; - -static struct usrregs_info mips_usrregs_info = - { - mips_num_regs, - mips_regmap, - }; - -static struct regs_info dsp_regs_info = - { - mips_dsp_regset_bitmap, - &mips_dsp_usrregs_info, - &mips_regsets_info - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &mips_usrregs_info, - &mips_regsets_info - }; - -static const struct regs_info * -mips_regs_info (void) -{ - if (have_dsp) - return &dsp_regs_info; - else - return ®s_info; -} - -struct linux_target_ops the_low_target = { - mips_arch_setup, - mips_regs_info, - mips_cannot_fetch_register, - mips_cannot_store_register, - mips_fetch_register, - mips_get_pc, - mips_set_pc, - NULL, /* breakpoint_kind_from_pc */ - mips_sw_breakpoint_from_kind, - NULL, /* get_next_pcs */ - 0, - mips_breakpoint_at, - mips_supports_z_point_type, - mips_insert_point, - mips_remove_point, - mips_stopped_by_watchpoint, - mips_stopped_data_address, - mips_collect_ptrace_register, - mips_supply_ptrace_register, - NULL, /* siginfo_fixup */ - mips_linux_new_process, - mips_linux_delete_process, - mips_linux_new_thread, - mips_linux_delete_thread, - mips_linux_new_fork, - mips_linux_prepare_to_resume -}; - -void -initialize_low_arch (void) -{ - /* Initialize the Linux target descriptions. */ - init_registers_mips_linux (); - init_registers_mips_dsp_linux (); - init_registers_mips64_linux (); - init_registers_mips64_dsp_linux (); - - initialize_regsets_info (&mips_regsets_info); -} diff --git a/gdbserver/linux-mips-low.cc b/gdbserver/linux-mips-low.cc new file mode 100644 index 00000000000..f94e141be79 --- /dev/null +++ b/gdbserver/linux-mips-low.cc @@ -0,0 +1,978 @@ +/* GNU/Linux/MIPS specific low level interface, for the remote server for GDB. + Copyright (C) 1995-2020 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 . */ + +#include "server.h" +#include "linux-low.h" + +#include "nat/gdb_ptrace.h" +#include + +#include "nat/mips-linux-watch.h" +#include "gdb_proc_service.h" + +/* Defined in auto-generated file mips-linux.c. */ +void init_registers_mips_linux (void); +extern const struct target_desc *tdesc_mips_linux; + +/* Defined in auto-generated file mips-dsp-linux.c. */ +void init_registers_mips_dsp_linux (void); +extern const struct target_desc *tdesc_mips_dsp_linux; + +/* Defined in auto-generated file mips64-linux.c. */ +void init_registers_mips64_linux (void); +extern const struct target_desc *tdesc_mips64_linux; + +/* Defined in auto-generated file mips64-dsp-linux.c. */ +void init_registers_mips64_dsp_linux (void); +extern const struct target_desc *tdesc_mips64_dsp_linux; + +#ifdef __mips64 +#define tdesc_mips_linux tdesc_mips64_linux +#define tdesc_mips_dsp_linux tdesc_mips64_dsp_linux +#endif + +#ifndef PTRACE_GET_THREAD_AREA +#define PTRACE_GET_THREAD_AREA 25 +#endif + +#ifdef HAVE_SYS_REG_H +#include +#endif + +#define mips_num_regs 73 +#define mips_dsp_num_regs 80 + +#include + +#ifndef DSP_BASE +#define DSP_BASE 71 +#define DSP_CONTROL 77 +#endif + +union mips_register +{ + unsigned char buf[8]; + + /* Deliberately signed, for proper sign extension. */ + int reg32; + long long reg64; +}; + +/* Return the ptrace ``address'' of register REGNO. */ + +#define mips_base_regs \ + -1, 1, 2, 3, 4, 5, 6, 7, \ + 8, 9, 10, 11, 12, 13, 14, 15, \ + 16, 17, 18, 19, 20, 21, 22, 23, \ + 24, 25, 26, 27, 28, 29, 30, 31, \ + \ + -1, MMLO, MMHI, BADVADDR, CAUSE, PC, \ + \ + FPR_BASE, FPR_BASE + 1, FPR_BASE + 2, FPR_BASE + 3, \ + FPR_BASE + 4, FPR_BASE + 5, FPR_BASE + 6, FPR_BASE + 7, \ + FPR_BASE + 8, FPR_BASE + 9, FPR_BASE + 10, FPR_BASE + 11, \ + FPR_BASE + 12, FPR_BASE + 13, FPR_BASE + 14, FPR_BASE + 15, \ + FPR_BASE + 16, FPR_BASE + 17, FPR_BASE + 18, FPR_BASE + 19, \ + FPR_BASE + 20, FPR_BASE + 21, FPR_BASE + 22, FPR_BASE + 23, \ + FPR_BASE + 24, FPR_BASE + 25, FPR_BASE + 26, FPR_BASE + 27, \ + FPR_BASE + 28, FPR_BASE + 29, FPR_BASE + 30, FPR_BASE + 31, \ + FPC_CSR, FPC_EIR + +#define mips_dsp_regs \ + DSP_BASE, DSP_BASE + 1, DSP_BASE + 2, DSP_BASE + 3, \ + DSP_BASE + 4, DSP_BASE + 5, \ + DSP_CONTROL + +static int mips_regmap[mips_num_regs] = { + mips_base_regs, + 0 +}; + +static int mips_dsp_regmap[mips_dsp_num_regs] = { + mips_base_regs, + mips_dsp_regs, + 0 +}; + +/* DSP registers are not in any regset and can only be accessed + individually. */ + +static unsigned char mips_dsp_regset_bitmap[(mips_dsp_num_regs + 7) / 8] = { + 0xfe, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff, 0xff, 0x80 +}; + +static int have_dsp = -1; + +/* Try peeking at an arbitrarily chosen DSP register and pick the available + user register set accordingly. */ + +static const struct target_desc * +mips_read_description (void) +{ + if (have_dsp < 0) + { + int pid = lwpid_of (current_thread); + + errno = 0; + ptrace (PTRACE_PEEKUSER, pid, DSP_CONTROL, 0); + switch (errno) + { + case 0: + have_dsp = 1; + break; + case EIO: + have_dsp = 0; + break; + default: + perror_with_name ("ptrace"); + break; + } + } + + return have_dsp ? tdesc_mips_dsp_linux : tdesc_mips_linux; +} + +static void +mips_arch_setup (void) +{ + current_process ()->tdesc = mips_read_description (); +} + +static struct usrregs_info * +get_usrregs_info (void) +{ + const struct regs_info *regs_info = the_low_target.regs_info (); + + return regs_info->usrregs; +} + +/* Per-process arch-specific data we want to keep. */ + +struct arch_process_info +{ + /* -1 if the kernel and/or CPU do not support watch registers. + 1 if watch_readback is valid and we can read style, num_valid + and the masks. + 0 if we need to read the watch_readback. */ + + int watch_readback_valid; + + /* Cached watch register read values. */ + + struct pt_watch_regs watch_readback; + + /* Current watchpoint requests for this process. */ + + struct mips_watchpoint *current_watches; + + /* The current set of watch register values for writing the + registers. */ + + struct pt_watch_regs watch_mirror; +}; + +/* Per-thread arch-specific data we want to keep. */ + +struct arch_lwp_info +{ + /* Non-zero if our copy differs from what's recorded in the thread. */ + int watch_registers_changed; +}; + +/* From mips-linux-nat.c. */ + +/* Pseudo registers can not be read. ptrace does not provide a way to + read (or set) PS_REGNUM, and there's no point in reading or setting + ZERO_REGNUM, it's always 0. We also can not set BADVADDR, CAUSE, + or FCRIR via ptrace(). */ + +static int +mips_cannot_fetch_register (int regno) +{ + const struct target_desc *tdesc; + + if (get_usrregs_info ()->regmap[regno] == -1) + return 1; + + tdesc = current_process ()->tdesc; + + /* On n32 we can't access 64-bit registers via PTRACE_PEEKUSR. */ + if (register_size (tdesc, regno) > sizeof (PTRACE_XFER_TYPE)) + return 1; + + if (find_regno (tdesc, "r0") == regno) + return 1; + + return 0; +} + +static int +mips_cannot_store_register (int regno) +{ + const struct target_desc *tdesc; + + if (get_usrregs_info ()->regmap[regno] == -1) + return 1; + + tdesc = current_process ()->tdesc; + + /* On n32 we can't access 64-bit registers via PTRACE_POKEUSR. */ + if (register_size (tdesc, regno) > sizeof (PTRACE_XFER_TYPE)) + return 1; + + if (find_regno (tdesc, "r0") == regno) + return 1; + + if (find_regno (tdesc, "cause") == regno) + return 1; + + if (find_regno (tdesc, "badvaddr") == regno) + return 1; + + if (find_regno (tdesc, "fir") == regno) + return 1; + + return 0; +} + +static int +mips_fetch_register (struct regcache *regcache, int regno) +{ + const struct target_desc *tdesc = current_process ()->tdesc; + + if (find_regno (tdesc, "r0") == regno) + { + supply_register_zeroed (regcache, regno); + return 1; + } + + return 0; +} + +static CORE_ADDR +mips_get_pc (struct regcache *regcache) +{ + union mips_register pc; + collect_register_by_name (regcache, "pc", pc.buf); + return register_size (regcache->tdesc, 0) == 4 ? pc.reg32 : pc.reg64; +} + +static void +mips_set_pc (struct regcache *regcache, CORE_ADDR pc) +{ + union mips_register newpc; + if (register_size (regcache->tdesc, 0) == 4) + newpc.reg32 = pc; + else + newpc.reg64 = pc; + + supply_register_by_name (regcache, "pc", newpc.buf); +} + +/* Correct in either endianness. */ +static const unsigned int mips_breakpoint = 0x0005000d; +#define mips_breakpoint_len 4 + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +mips_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = mips_breakpoint_len; + return (const gdb_byte *) &mips_breakpoint; +} + +static int +mips_breakpoint_at (CORE_ADDR where) +{ + unsigned int insn; + + (*the_target->read_memory) (where, (unsigned char *) &insn, 4); + if (insn == mips_breakpoint) + return 1; + + /* If necessary, recognize more trap instructions here. GDB only uses the + one. */ + return 0; +} + +/* Mark the watch registers of lwp, represented by ENTRY, as changed. */ + +static void +update_watch_registers_callback (thread_info *thread) +{ + struct lwp_info *lwp = get_thread_lwp (thread); + + /* The actual update is done later just before resuming the lwp, + we just mark that the registers need updating. */ + lwp->arch_private->watch_registers_changed = 1; + + /* If the lwp isn't stopped, force it to momentarily pause, so + we can update its watch registers. */ + if (!lwp->stopped) + linux_stop_lwp (lwp); +} + +/* This is the implementation of linux_target_ops method + new_process. */ + +static struct arch_process_info * +mips_linux_new_process (void) +{ + struct arch_process_info *info = XCNEW (struct arch_process_info); + + return info; +} + +/* This is the implementation of linux_target_ops method + delete_process. */ + +static void +mips_linux_delete_process (struct arch_process_info *info) +{ + xfree (info); +} + +/* This is the implementation of linux_target_ops method new_thread. + Mark the watch registers as changed, so the threads' copies will + be updated. */ + +static void +mips_linux_new_thread (struct lwp_info *lwp) +{ + struct arch_lwp_info *info = XCNEW (struct arch_lwp_info); + + info->watch_registers_changed = 1; + + lwp->arch_private = info; +} + +/* Function to call when a thread is being deleted. */ + +static void +mips_linux_delete_thread (struct arch_lwp_info *arch_lwp) +{ + xfree (arch_lwp); +} + +/* Create a new mips_watchpoint and add it to the list. */ + +static void +mips_add_watchpoint (struct arch_process_info *priv, CORE_ADDR addr, int len, + enum target_hw_bp_type watch_type) +{ + struct mips_watchpoint *new_watch; + struct mips_watchpoint **pw; + + new_watch = XNEW (struct mips_watchpoint); + new_watch->addr = addr; + new_watch->len = len; + new_watch->type = watch_type; + new_watch->next = NULL; + + pw = &priv->current_watches; + while (*pw != NULL) + pw = &(*pw)->next; + *pw = new_watch; +} + +/* Hook to call when a new fork is attached. */ + +static void +mips_linux_new_fork (struct process_info *parent, + struct process_info *child) +{ + struct arch_process_info *parent_private; + struct arch_process_info *child_private; + struct mips_watchpoint *wp; + + /* These are allocated by linux_add_process. */ + gdb_assert (parent->priv != NULL + && parent->priv->arch_private != NULL); + gdb_assert (child->priv != NULL + && child->priv->arch_private != NULL); + + /* Linux kernel before 2.6.33 commit + 72f674d203cd230426437cdcf7dd6f681dad8b0d + will inherit hardware debug registers from parent + on fork/vfork/clone. Newer Linux kernels create such tasks with + zeroed debug registers. + + GDB core assumes the child inherits the watchpoints/hw + breakpoints of the parent, and will remove them all from the + forked off process. Copy the debug registers mirrors into the + new process so that all breakpoints and watchpoints can be + removed together. The debug registers mirror will become zeroed + in the end before detaching the forked off process, thus making + this compatible with older Linux kernels too. */ + + parent_private = parent->priv->arch_private; + child_private = child->priv->arch_private; + + child_private->watch_readback_valid = parent_private->watch_readback_valid; + child_private->watch_readback = parent_private->watch_readback; + + for (wp = parent_private->current_watches; wp != NULL; wp = wp->next) + mips_add_watchpoint (child_private, wp->addr, wp->len, wp->type); + + child_private->watch_mirror = parent_private->watch_mirror; +} +/* This is the implementation of linux_target_ops method + prepare_to_resume. If the watch regs have changed, update the + thread's copies. */ + +static void +mips_linux_prepare_to_resume (struct lwp_info *lwp) +{ + ptid_t ptid = ptid_of (get_lwp_thread (lwp)); + struct process_info *proc = find_process_pid (ptid.pid ()); + struct arch_process_info *priv = proc->priv->arch_private; + + if (lwp->arch_private->watch_registers_changed) + { + /* Only update the watch registers if we have set or unset a + watchpoint already. */ + if (mips_linux_watch_get_num_valid (&priv->watch_mirror) > 0) + { + /* Write the mirrored watch register values. */ + int tid = ptid.lwp (); + + if (-1 == ptrace (PTRACE_SET_WATCH_REGS, tid, + &priv->watch_mirror, NULL)) + perror_with_name ("Couldn't write watch register"); + } + + lwp->arch_private->watch_registers_changed = 0; + } +} + +static int +mips_supports_z_point_type (char z_type) +{ + switch (z_type) + { + case Z_PACKET_WRITE_WP: + case Z_PACKET_READ_WP: + case Z_PACKET_ACCESS_WP: + return 1; + default: + return 0; + } +} + +/* This is the implementation of linux_target_ops method + insert_point. */ + +static int +mips_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, + int len, struct raw_breakpoint *bp) +{ + struct process_info *proc = current_process (); + struct arch_process_info *priv = proc->priv->arch_private; + struct pt_watch_regs regs; + long lwpid; + enum target_hw_bp_type watch_type; + uint32_t irw; + + lwpid = lwpid_of (current_thread); + if (!mips_linux_read_watch_registers (lwpid, + &priv->watch_readback, + &priv->watch_readback_valid, + 0)) + return -1; + + if (len <= 0) + return -1; + + regs = priv->watch_readback; + /* Add the current watches. */ + mips_linux_watch_populate_regs (priv->current_watches, ®s); + + /* Now try to add the new watch. */ + watch_type = raw_bkpt_type_to_target_hw_bp_type (type); + irw = mips_linux_watch_type_to_irw (watch_type); + if (!mips_linux_watch_try_one_watch (®s, addr, len, irw)) + return -1; + + /* It fit. Stick it on the end of the list. */ + mips_add_watchpoint (priv, addr, len, watch_type); + + priv->watch_mirror = regs; + + /* Only update the threads of this process. */ + for_each_thread (proc->pid, update_watch_registers_callback); + + return 0; +} + +/* This is the implementation of linux_target_ops method + remove_point. */ + +static int +mips_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, + int len, struct raw_breakpoint *bp) +{ + struct process_info *proc = current_process (); + struct arch_process_info *priv = proc->priv->arch_private; + + int deleted_one; + enum target_hw_bp_type watch_type; + + struct mips_watchpoint **pw; + struct mips_watchpoint *w; + + /* Search for a known watch that matches. Then unlink and free it. */ + watch_type = raw_bkpt_type_to_target_hw_bp_type (type); + deleted_one = 0; + pw = &priv->current_watches; + while ((w = *pw)) + { + if (w->addr == addr && w->len == len && w->type == watch_type) + { + *pw = w->next; + free (w); + deleted_one = 1; + break; + } + pw = &(w->next); + } + + if (!deleted_one) + return -1; /* We don't know about it, fail doing nothing. */ + + /* At this point watch_readback is known to be valid because we + could not have added the watch without reading it. */ + gdb_assert (priv->watch_readback_valid == 1); + + priv->watch_mirror = priv->watch_readback; + mips_linux_watch_populate_regs (priv->current_watches, + &priv->watch_mirror); + + /* Only update the threads of this process. */ + for_each_thread (proc->pid, update_watch_registers_callback); + + return 0; +} + +/* This is the implementation of linux_target_ops method + stopped_by_watchpoint. The watchhi R and W bits indicate + the watch register triggered. */ + +static int +mips_stopped_by_watchpoint (void) +{ + struct process_info *proc = current_process (); + struct arch_process_info *priv = proc->priv->arch_private; + int n; + int num_valid; + long lwpid = lwpid_of (current_thread); + + if (!mips_linux_read_watch_registers (lwpid, + &priv->watch_readback, + &priv->watch_readback_valid, + 1)) + return 0; + + num_valid = mips_linux_watch_get_num_valid (&priv->watch_readback); + + for (n = 0; n < MAX_DEBUG_REGISTER && n < num_valid; n++) + if (mips_linux_watch_get_watchhi (&priv->watch_readback, n) + & (R_MASK | W_MASK)) + return 1; + + return 0; +} + +/* This is the implementation of linux_target_ops method + stopped_data_address. */ + +static CORE_ADDR +mips_stopped_data_address (void) +{ + struct process_info *proc = current_process (); + struct arch_process_info *priv = proc->priv->arch_private; + int n; + int num_valid; + long lwpid = lwpid_of (current_thread); + + /* On MIPS we don't know the low order 3 bits of the data address. + GDB does not support remote targets that can't report the + watchpoint address. So, make our best guess; return the starting + address of a watchpoint request which overlaps the one that + triggered. */ + + if (!mips_linux_read_watch_registers (lwpid, + &priv->watch_readback, + &priv->watch_readback_valid, + 0)) + return 0; + + num_valid = mips_linux_watch_get_num_valid (&priv->watch_readback); + + for (n = 0; n < MAX_DEBUG_REGISTER && n < num_valid; n++) + if (mips_linux_watch_get_watchhi (&priv->watch_readback, n) + & (R_MASK | W_MASK)) + { + CORE_ADDR t_low, t_hi; + int t_irw; + struct mips_watchpoint *watch; + + t_low = mips_linux_watch_get_watchlo (&priv->watch_readback, n); + t_irw = t_low & IRW_MASK; + t_hi = (mips_linux_watch_get_watchhi (&priv->watch_readback, n) + | IRW_MASK); + t_low &= ~(CORE_ADDR)t_hi; + + for (watch = priv->current_watches; + watch != NULL; + watch = watch->next) + { + CORE_ADDR addr = watch->addr; + CORE_ADDR last_byte = addr + watch->len - 1; + + if ((t_irw & mips_linux_watch_type_to_irw (watch->type)) == 0) + { + /* Different type. */ + continue; + } + /* Check for overlap of even a single byte. */ + if (last_byte >= t_low && addr <= t_low + t_hi) + return addr; + } + } + + /* Shouldn't happen. */ + return 0; +} + +/* Fetch the thread-local storage pointer for libthread_db. */ + +ps_err_e +ps_get_thread_area (struct ps_prochandle *ph, + lwpid_t lwpid, int idx, void **base) +{ + if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0) + return PS_ERR; + + /* IDX is the bias from the thread pointer to the beginning of the + thread descriptor. It has to be subtracted due to implementation + quirks in libthread_db. */ + *base = (void *) ((char *)*base - idx); + + return PS_OK; +} + +static void +mips_collect_register (struct regcache *regcache, + int use_64bit, int regno, union mips_register *reg) +{ + union mips_register tmp_reg; + + if (use_64bit) + { + collect_register (regcache, regno, &tmp_reg.reg64); + *reg = tmp_reg; + } + else + { + collect_register (regcache, regno, &tmp_reg.reg32); + reg->reg64 = tmp_reg.reg32; + } +} + +static void +mips_supply_register (struct regcache *regcache, + int use_64bit, int regno, const union mips_register *reg) +{ + int offset = 0; + + /* For big-endian 32-bit targets, ignore the high four bytes of each + eight-byte slot. */ + if (__BYTE_ORDER == __BIG_ENDIAN && !use_64bit) + offset = 4; + + supply_register (regcache, regno, reg->buf + offset); +} + +#ifdef HAVE_PTRACE_GETREGS + +static void +mips_collect_register_32bit (struct regcache *regcache, + int use_64bit, int regno, unsigned char *buf) +{ + union mips_register tmp_reg; + int reg32; + + mips_collect_register (regcache, use_64bit, regno, &tmp_reg); + reg32 = tmp_reg.reg64; + memcpy (buf, ®32, 4); +} + +static void +mips_supply_register_32bit (struct regcache *regcache, + int use_64bit, int regno, const unsigned char *buf) +{ + union mips_register tmp_reg; + int reg32; + + memcpy (®32, buf, 4); + tmp_reg.reg64 = reg32; + mips_supply_register (regcache, use_64bit, regno, &tmp_reg); +} + +static void +mips_fill_gregset (struct regcache *regcache, void *buf) +{ + union mips_register *regset = (union mips_register *) buf; + int i, use_64bit; + const struct target_desc *tdesc = regcache->tdesc; + + use_64bit = (register_size (tdesc, 0) == 8); + + for (i = 1; i < 32; i++) + mips_collect_register (regcache, use_64bit, i, regset + i); + + mips_collect_register (regcache, use_64bit, + find_regno (tdesc, "lo"), regset + 32); + mips_collect_register (regcache, use_64bit, + find_regno (tdesc, "hi"), regset + 33); + mips_collect_register (regcache, use_64bit, + find_regno (tdesc, "pc"), regset + 34); + mips_collect_register (regcache, use_64bit, + find_regno (tdesc, "badvaddr"), regset + 35); + mips_collect_register (regcache, use_64bit, + find_regno (tdesc, "status"), regset + 36); + mips_collect_register (regcache, use_64bit, + find_regno (tdesc, "cause"), regset + 37); + + mips_collect_register (regcache, use_64bit, + find_regno (tdesc, "restart"), regset + 0); +} + +static void +mips_store_gregset (struct regcache *regcache, const void *buf) +{ + const union mips_register *regset = (const union mips_register *) buf; + int i, use_64bit; + + use_64bit = (register_size (regcache->tdesc, 0) == 8); + + supply_register_by_name_zeroed (regcache, "r0"); + + for (i = 1; i < 32; i++) + mips_supply_register (regcache, use_64bit, i, regset + i); + + mips_supply_register (regcache, use_64bit, + find_regno (regcache->tdesc, "lo"), regset + 32); + mips_supply_register (regcache, use_64bit, + find_regno (regcache->tdesc, "hi"), regset + 33); + mips_supply_register (regcache, use_64bit, + find_regno (regcache->tdesc, "pc"), regset + 34); + mips_supply_register (regcache, use_64bit, + find_regno (regcache->tdesc, "badvaddr"), regset + 35); + mips_supply_register (regcache, use_64bit, + find_regno (regcache->tdesc, "status"), regset + 36); + mips_supply_register (regcache, use_64bit, + find_regno (regcache->tdesc, "cause"), regset + 37); + + mips_supply_register (regcache, use_64bit, + find_regno (regcache->tdesc, "restart"), regset + 0); +} + +static void +mips_fill_fpregset (struct regcache *regcache, void *buf) +{ + union mips_register *regset = (union mips_register *) buf; + int i, use_64bit, first_fp, big_endian; + + use_64bit = (register_size (regcache->tdesc, 0) == 8); + first_fp = find_regno (regcache->tdesc, "f0"); + big_endian = (__BYTE_ORDER == __BIG_ENDIAN); + + /* See GDB for a discussion of this peculiar layout. */ + for (i = 0; i < 32; i++) + if (use_64bit) + collect_register (regcache, first_fp + i, regset[i].buf); + else + collect_register (regcache, first_fp + i, + regset[i & ~1].buf + 4 * (big_endian != (i & 1))); + + mips_collect_register_32bit (regcache, use_64bit, + find_regno (regcache->tdesc, "fcsr"), regset[32].buf); + mips_collect_register_32bit (regcache, use_64bit, + find_regno (regcache->tdesc, "fir"), + regset[32].buf + 4); +} + +static void +mips_store_fpregset (struct regcache *regcache, const void *buf) +{ + const union mips_register *regset = (const union mips_register *) buf; + int i, use_64bit, first_fp, big_endian; + + use_64bit = (register_size (regcache->tdesc, 0) == 8); + first_fp = find_regno (regcache->tdesc, "f0"); + big_endian = (__BYTE_ORDER == __BIG_ENDIAN); + + /* See GDB for a discussion of this peculiar layout. */ + for (i = 0; i < 32; i++) + if (use_64bit) + supply_register (regcache, first_fp + i, regset[i].buf); + else + supply_register (regcache, first_fp + i, + regset[i & ~1].buf + 4 * (big_endian != (i & 1))); + + mips_supply_register_32bit (regcache, use_64bit, + find_regno (regcache->tdesc, "fcsr"), + regset[32].buf); + mips_supply_register_32bit (regcache, use_64bit, + find_regno (regcache->tdesc, "fir"), + regset[32].buf + 4); +} +#endif /* HAVE_PTRACE_GETREGS */ + +/* Take care of 32-bit registers with 64-bit ptrace, POKEUSER side. */ + +static void +mips_collect_ptrace_register (struct regcache *regcache, + int regno, char *buf) +{ + int use_64bit = sizeof (PTRACE_XFER_TYPE) == 8; + + if (use_64bit && register_size (regcache->tdesc, regno) == 4) + { + union mips_register reg; + + mips_collect_register (regcache, 0, regno, ®); + memcpy (buf, ®, sizeof (reg)); + } + else + collect_register (regcache, regno, buf); +} + +/* Take care of 32-bit registers with 64-bit ptrace, PEEKUSER side. */ + +static void +mips_supply_ptrace_register (struct regcache *regcache, + int regno, const char *buf) +{ + int use_64bit = sizeof (PTRACE_XFER_TYPE) == 8; + + if (use_64bit && register_size (regcache->tdesc, regno) == 4) + { + union mips_register reg; + + memcpy (®, buf, sizeof (reg)); + mips_supply_register (regcache, 0, regno, ®); + } + else + supply_register (regcache, regno, buf); +} + +static struct regset_info mips_regsets[] = { +#ifdef HAVE_PTRACE_GETREGS + { PTRACE_GETREGS, PTRACE_SETREGS, 0, 38 * 8, GENERAL_REGS, + mips_fill_gregset, mips_store_gregset }, + { PTRACE_GETFPREGS, PTRACE_SETFPREGS, 0, 33 * 8, FP_REGS, + mips_fill_fpregset, mips_store_fpregset }, +#endif /* HAVE_PTRACE_GETREGS */ + NULL_REGSET +}; + +static struct regsets_info mips_regsets_info = + { + mips_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct usrregs_info mips_dsp_usrregs_info = + { + mips_dsp_num_regs, + mips_dsp_regmap, + }; + +static struct usrregs_info mips_usrregs_info = + { + mips_num_regs, + mips_regmap, + }; + +static struct regs_info dsp_regs_info = + { + mips_dsp_regset_bitmap, + &mips_dsp_usrregs_info, + &mips_regsets_info + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &mips_usrregs_info, + &mips_regsets_info + }; + +static const struct regs_info * +mips_regs_info (void) +{ + if (have_dsp) + return &dsp_regs_info; + else + return ®s_info; +} + +struct linux_target_ops the_low_target = { + mips_arch_setup, + mips_regs_info, + mips_cannot_fetch_register, + mips_cannot_store_register, + mips_fetch_register, + mips_get_pc, + mips_set_pc, + NULL, /* breakpoint_kind_from_pc */ + mips_sw_breakpoint_from_kind, + NULL, /* get_next_pcs */ + 0, + mips_breakpoint_at, + mips_supports_z_point_type, + mips_insert_point, + mips_remove_point, + mips_stopped_by_watchpoint, + mips_stopped_data_address, + mips_collect_ptrace_register, + mips_supply_ptrace_register, + NULL, /* siginfo_fixup */ + mips_linux_new_process, + mips_linux_delete_process, + mips_linux_new_thread, + mips_linux_delete_thread, + mips_linux_new_fork, + mips_linux_prepare_to_resume +}; + +void +initialize_low_arch (void) +{ + /* Initialize the Linux target descriptions. */ + init_registers_mips_linux (); + init_registers_mips_dsp_linux (); + init_registers_mips64_linux (); + init_registers_mips64_dsp_linux (); + + initialize_regsets_info (&mips_regsets_info); +} diff --git a/gdbserver/linux-nios2-low.c b/gdbserver/linux-nios2-low.c deleted file mode 100644 index bfc5aee165d..00000000000 --- a/gdbserver/linux-nios2-low.c +++ /dev/null @@ -1,259 +0,0 @@ -/* GNU/Linux/Nios II specific low level interface, for the remote server for - GDB. - Copyright (C) 2008-2020 Free Software Foundation, Inc. - - Contributed by Mentor Graphics, 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 . */ - -#include "server.h" -#include "linux-low.h" -#include "elf/common.h" -#include "nat/gdb_ptrace.h" -#include -#include "gdb_proc_service.h" -#include - -#ifndef PTRACE_GET_THREAD_AREA -#define PTRACE_GET_THREAD_AREA 25 -#endif - -/* The following definition must agree with the number of registers - defined in "struct user_regs" in GLIBC - (sysdeps/unix/sysv/linux/nios2/sys/user.h), and also with - NIOS2_NUM_REGS in GDB proper. */ - -#define nios2_num_regs 49 - -/* Defined in auto-generated file nios2-linux.c. */ - -void init_registers_nios2_linux (void); -extern const struct target_desc *tdesc_nios2_linux; - -/* This union is used to convert between int and byte buffer - representations of register contents. */ - -union nios2_register -{ - unsigned char buf[4]; - int reg32; -}; - -/* Return the ptrace ``address'' of register REGNO. */ - -static int nios2_regmap[] = { - -1, 1, 2, 3, 4, 5, 6, 7, - 8, 9, 10, 11, 12, 13, 14, 15, - 16, 17, 18, 19, 20, 21, 22, 23, - 24, 25, 26, 27, 28, 29, 30, 31, - 32, 33, 34, 35, 36, 37, 38, 39, - 40, 41, 42, 43, 44, 45, 46, 47, - 48, - 0 -}; - -/* Implement the arch_setup linux_target_ops method. */ - -static void -nios2_arch_setup (void) -{ - current_process ()->tdesc = tdesc_nios2_linux; -} - -/* Implement the cannot_fetch_register linux_target_ops method. */ - -static int -nios2_cannot_fetch_register (int regno) -{ - if (nios2_regmap[regno] == -1) - return 1; - - return 0; -} - -/* Implement the cannot_store_register linux_target_ops method. */ - -static int -nios2_cannot_store_register (int regno) -{ - if (nios2_regmap[regno] == -1) - return 1; - - return 0; -} - -/* Breakpoint support. Also see comments on nios2_breakpoint_from_pc - in nios2-tdep.c. */ - -#if defined(__nios2_arch__) && __nios2_arch__ == 2 -#define NIOS2_BREAKPOINT 0xb7fd0020 -#define CDX_BREAKPOINT 0xd7c9 -#else -#define NIOS2_BREAKPOINT 0x003b6ffa -#endif - -/* We only register the 4-byte breakpoint, even on R2 targets which also - support 2-byte breakpoints. Since there is no supports_z_point_type - function provided, gdbserver never inserts software breakpoints itself - and instead relies on GDB to insert the breakpoint of the correct length - via a memory write. */ -static const unsigned int nios2_breakpoint = NIOS2_BREAKPOINT; -#define nios2_breakpoint_len 4 - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -nios2_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = nios2_breakpoint_len; - return (const gdb_byte *) &nios2_breakpoint; -} - -/* Implement the breakpoint_at linux_target_ops method. */ - -static int -nios2_breakpoint_at (CORE_ADDR where) -{ - unsigned int insn; - - /* For R2, first check for the 2-byte CDX trap.n breakpoint encoding. */ -#if defined(__nios2_arch__) && __nios2_arch__ == 2 - (*the_target->read_memory) (where, (unsigned char *) &insn, 2); - if (insn == CDX_BREAKPOINT) - return 1; -#endif - - (*the_target->read_memory) (where, (unsigned char *) &insn, 4); - if (insn == nios2_breakpoint) - return 1; - return 0; -} - -/* Fetch the thread-local storage pointer for libthread_db. */ - -ps_err_e -ps_get_thread_area (struct ps_prochandle *ph, - lwpid_t lwpid, int idx, void **base) -{ - if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0) - return PS_ERR; - - /* IDX is the bias from the thread pointer to the beginning of the - thread descriptor. It has to be subtracted due to implementation - quirks in libthread_db. */ - *base = (void *) ((char *) *base - idx); - - return PS_OK; -} - -/* Helper functions to collect/supply a single register REGNO. */ - -static void -nios2_collect_register (struct regcache *regcache, int regno, - union nios2_register *reg) -{ - union nios2_register tmp_reg; - - collect_register (regcache, regno, &tmp_reg.reg32); - reg->reg32 = tmp_reg.reg32; -} - -static void -nios2_supply_register (struct regcache *regcache, int regno, - const union nios2_register *reg) -{ - supply_register (regcache, regno, reg->buf); -} - -/* We have only a single register set on Nios II. */ - -static void -nios2_fill_gregset (struct regcache *regcache, void *buf) -{ - union nios2_register *regset = (union nios2_register *) buf; - int i; - - for (i = 1; i < nios2_num_regs; i++) - nios2_collect_register (regcache, i, regset + i); -} - -static void -nios2_store_gregset (struct regcache *regcache, const void *buf) -{ - const union nios2_register *regset = (union nios2_register *) buf; - int i; - - for (i = 0; i < nios2_num_regs; i++) - nios2_supply_register (regcache, i, regset + i); -} - -static struct regset_info nios2_regsets[] = -{ - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PRSTATUS, - nios2_num_regs * 4, GENERAL_REGS, - nios2_fill_gregset, nios2_store_gregset }, - NULL_REGSET -}; - -static struct regsets_info nios2_regsets_info = - { - nios2_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct usrregs_info nios2_usrregs_info = - { - nios2_num_regs, - nios2_regmap, - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &nios2_usrregs_info, - &nios2_regsets_info - }; - -static const struct regs_info * -nios2_regs_info (void) -{ - return ®s_info; -} - -struct linux_target_ops the_low_target = -{ - nios2_arch_setup, - nios2_regs_info, - nios2_cannot_fetch_register, - nios2_cannot_store_register, - NULL, - linux_get_pc_32bit, - linux_set_pc_32bit, - NULL, /* breakpoint_kind_from_pc */ - nios2_sw_breakpoint_from_kind, - NULL, /* get_next_pcs */ - 0, - nios2_breakpoint_at, -}; - -void -initialize_low_arch (void) -{ - init_registers_nios2_linux (); - - initialize_regsets_info (&nios2_regsets_info); -} diff --git a/gdbserver/linux-nios2-low.cc b/gdbserver/linux-nios2-low.cc new file mode 100644 index 00000000000..bfc5aee165d --- /dev/null +++ b/gdbserver/linux-nios2-low.cc @@ -0,0 +1,259 @@ +/* GNU/Linux/Nios II specific low level interface, for the remote server for + GDB. + Copyright (C) 2008-2020 Free Software Foundation, Inc. + + Contributed by Mentor Graphics, 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 . */ + +#include "server.h" +#include "linux-low.h" +#include "elf/common.h" +#include "nat/gdb_ptrace.h" +#include +#include "gdb_proc_service.h" +#include + +#ifndef PTRACE_GET_THREAD_AREA +#define PTRACE_GET_THREAD_AREA 25 +#endif + +/* The following definition must agree with the number of registers + defined in "struct user_regs" in GLIBC + (sysdeps/unix/sysv/linux/nios2/sys/user.h), and also with + NIOS2_NUM_REGS in GDB proper. */ + +#define nios2_num_regs 49 + +/* Defined in auto-generated file nios2-linux.c. */ + +void init_registers_nios2_linux (void); +extern const struct target_desc *tdesc_nios2_linux; + +/* This union is used to convert between int and byte buffer + representations of register contents. */ + +union nios2_register +{ + unsigned char buf[4]; + int reg32; +}; + +/* Return the ptrace ``address'' of register REGNO. */ + +static int nios2_regmap[] = { + -1, 1, 2, 3, 4, 5, 6, 7, + 8, 9, 10, 11, 12, 13, 14, 15, + 16, 17, 18, 19, 20, 21, 22, 23, + 24, 25, 26, 27, 28, 29, 30, 31, + 32, 33, 34, 35, 36, 37, 38, 39, + 40, 41, 42, 43, 44, 45, 46, 47, + 48, + 0 +}; + +/* Implement the arch_setup linux_target_ops method. */ + +static void +nios2_arch_setup (void) +{ + current_process ()->tdesc = tdesc_nios2_linux; +} + +/* Implement the cannot_fetch_register linux_target_ops method. */ + +static int +nios2_cannot_fetch_register (int regno) +{ + if (nios2_regmap[regno] == -1) + return 1; + + return 0; +} + +/* Implement the cannot_store_register linux_target_ops method. */ + +static int +nios2_cannot_store_register (int regno) +{ + if (nios2_regmap[regno] == -1) + return 1; + + return 0; +} + +/* Breakpoint support. Also see comments on nios2_breakpoint_from_pc + in nios2-tdep.c. */ + +#if defined(__nios2_arch__) && __nios2_arch__ == 2 +#define NIOS2_BREAKPOINT 0xb7fd0020 +#define CDX_BREAKPOINT 0xd7c9 +#else +#define NIOS2_BREAKPOINT 0x003b6ffa +#endif + +/* We only register the 4-byte breakpoint, even on R2 targets which also + support 2-byte breakpoints. Since there is no supports_z_point_type + function provided, gdbserver never inserts software breakpoints itself + and instead relies on GDB to insert the breakpoint of the correct length + via a memory write. */ +static const unsigned int nios2_breakpoint = NIOS2_BREAKPOINT; +#define nios2_breakpoint_len 4 + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +nios2_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = nios2_breakpoint_len; + return (const gdb_byte *) &nios2_breakpoint; +} + +/* Implement the breakpoint_at linux_target_ops method. */ + +static int +nios2_breakpoint_at (CORE_ADDR where) +{ + unsigned int insn; + + /* For R2, first check for the 2-byte CDX trap.n breakpoint encoding. */ +#if defined(__nios2_arch__) && __nios2_arch__ == 2 + (*the_target->read_memory) (where, (unsigned char *) &insn, 2); + if (insn == CDX_BREAKPOINT) + return 1; +#endif + + (*the_target->read_memory) (where, (unsigned char *) &insn, 4); + if (insn == nios2_breakpoint) + return 1; + return 0; +} + +/* Fetch the thread-local storage pointer for libthread_db. */ + +ps_err_e +ps_get_thread_area (struct ps_prochandle *ph, + lwpid_t lwpid, int idx, void **base) +{ + if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0) + return PS_ERR; + + /* IDX is the bias from the thread pointer to the beginning of the + thread descriptor. It has to be subtracted due to implementation + quirks in libthread_db. */ + *base = (void *) ((char *) *base - idx); + + return PS_OK; +} + +/* Helper functions to collect/supply a single register REGNO. */ + +static void +nios2_collect_register (struct regcache *regcache, int regno, + union nios2_register *reg) +{ + union nios2_register tmp_reg; + + collect_register (regcache, regno, &tmp_reg.reg32); + reg->reg32 = tmp_reg.reg32; +} + +static void +nios2_supply_register (struct regcache *regcache, int regno, + const union nios2_register *reg) +{ + supply_register (regcache, regno, reg->buf); +} + +/* We have only a single register set on Nios II. */ + +static void +nios2_fill_gregset (struct regcache *regcache, void *buf) +{ + union nios2_register *regset = (union nios2_register *) buf; + int i; + + for (i = 1; i < nios2_num_regs; i++) + nios2_collect_register (regcache, i, regset + i); +} + +static void +nios2_store_gregset (struct regcache *regcache, const void *buf) +{ + const union nios2_register *regset = (union nios2_register *) buf; + int i; + + for (i = 0; i < nios2_num_regs; i++) + nios2_supply_register (regcache, i, regset + i); +} + +static struct regset_info nios2_regsets[] = +{ + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PRSTATUS, + nios2_num_regs * 4, GENERAL_REGS, + nios2_fill_gregset, nios2_store_gregset }, + NULL_REGSET +}; + +static struct regsets_info nios2_regsets_info = + { + nios2_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct usrregs_info nios2_usrregs_info = + { + nios2_num_regs, + nios2_regmap, + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &nios2_usrregs_info, + &nios2_regsets_info + }; + +static const struct regs_info * +nios2_regs_info (void) +{ + return ®s_info; +} + +struct linux_target_ops the_low_target = +{ + nios2_arch_setup, + nios2_regs_info, + nios2_cannot_fetch_register, + nios2_cannot_store_register, + NULL, + linux_get_pc_32bit, + linux_set_pc_32bit, + NULL, /* breakpoint_kind_from_pc */ + nios2_sw_breakpoint_from_kind, + NULL, /* get_next_pcs */ + 0, + nios2_breakpoint_at, +}; + +void +initialize_low_arch (void) +{ + init_registers_nios2_linux (); + + initialize_regsets_info (&nios2_regsets_info); +} diff --git a/gdbserver/linux-ppc-ipa.c b/gdbserver/linux-ppc-ipa.c deleted file mode 100644 index 42d668f7d37..00000000000 --- a/gdbserver/linux-ppc-ipa.c +++ /dev/null @@ -1,259 +0,0 @@ -/* GNU/Linux/PowerPC specific low level interface, for the in-process - agent library for GDB. - - Copyright (C) 2016-2020 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 . */ - -#include "server.h" -#include -#include "tracepoint.h" -#include "arch/ppc-linux-tdesc.h" -#include "linux-ppc-tdesc-init.h" -#include -#ifdef HAVE_GETAUXVAL -#include -#endif - -/* These macros define the position of registers in the buffer collected - by the fast tracepoint jump pad. */ -#define FT_CR_R0 0 -#define FT_CR_CR 32 -#define FT_CR_XER 33 -#define FT_CR_LR 34 -#define FT_CR_CTR 35 -#define FT_CR_PC 36 -#define FT_CR_GPR(n) (FT_CR_R0 + (n)) - -static const int ppc_ft_collect_regmap[] = { - /* GPRs */ - FT_CR_GPR (0), FT_CR_GPR (1), FT_CR_GPR (2), - FT_CR_GPR (3), FT_CR_GPR (4), FT_CR_GPR (5), - FT_CR_GPR (6), FT_CR_GPR (7), FT_CR_GPR (8), - FT_CR_GPR (9), FT_CR_GPR (10), FT_CR_GPR (11), - FT_CR_GPR (12), FT_CR_GPR (13), FT_CR_GPR (14), - FT_CR_GPR (15), FT_CR_GPR (16), FT_CR_GPR (17), - FT_CR_GPR (18), FT_CR_GPR (19), FT_CR_GPR (20), - FT_CR_GPR (21), FT_CR_GPR (22), FT_CR_GPR (23), - FT_CR_GPR (24), FT_CR_GPR (25), FT_CR_GPR (26), - FT_CR_GPR (27), FT_CR_GPR (28), FT_CR_GPR (29), - FT_CR_GPR (30), FT_CR_GPR (31), - /* FPRs - not collected. */ - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - FT_CR_PC, /* PC */ - -1, /* MSR */ - FT_CR_CR, /* CR */ - FT_CR_LR, /* LR */ - FT_CR_CTR, /* CTR */ - FT_CR_XER, /* XER */ - -1, /* FPSCR */ -}; - -#define PPC_NUM_FT_COLLECT_GREGS \ - (sizeof (ppc_ft_collect_regmap) / sizeof(ppc_ft_collect_regmap[0])) - -/* Supply registers collected by the fast tracepoint jump pad. - BUF is the second argument we pass to gdb_collect in jump pad. */ - -void -supply_fast_tracepoint_registers (struct regcache *regcache, - const unsigned char *buf) -{ - int i; - - for (i = 0; i < PPC_NUM_FT_COLLECT_GREGS; i++) - { - if (ppc_ft_collect_regmap[i] == -1) - continue; - supply_register (regcache, i, - ((char *) buf) - + ppc_ft_collect_regmap[i] * sizeof (long)); - } -} - -/* Return the value of register REGNUM. RAW_REGS is collected buffer - by jump pad. This function is called by emit_reg. */ - -ULONGEST -get_raw_reg (const unsigned char *raw_regs, int regnum) -{ - if (regnum >= PPC_NUM_FT_COLLECT_GREGS) - return 0; - if (ppc_ft_collect_regmap[regnum] == -1) - return 0; - - return *(unsigned long *) (raw_regs - + ppc_ft_collect_regmap[regnum] * sizeof (long)); -} - -/* Allocate buffer for the jump pads. The branch instruction has a reach - of +/- 32MiB, and the executable is loaded at 0x10000000 (256MiB). - - 64-bit: To maximize the area of executable that can use tracepoints, - try allocating at 0x10000000 - size initially, decreasing until we hit - a free area. - - 32-bit: ld.so loads dynamic libraries right below the executable, so - we cannot depend on that area (dynamic libraries can be quite large). - Instead, aim right after the executable - at sbrk(0). This will - cause future brk to fail, and malloc will fallback to mmap. */ - -void * -alloc_jump_pad_buffer (size_t size) -{ -#ifdef __powerpc64__ - uintptr_t addr; - uintptr_t exec_base = getauxval (AT_PHDR); - int pagesize; - void *res; - - if (exec_base == 0) - exec_base = 0x10000000; - - pagesize = sysconf (_SC_PAGE_SIZE); - if (pagesize == -1) - perror_with_name ("sysconf"); - - addr = exec_base - size; - - /* size should already be page-aligned, but this can't hurt. */ - addr &= ~(pagesize - 1); - - /* Search for a free area. If we hit 0, we're out of luck. */ - for (; addr; addr -= pagesize) - { - /* No MAP_FIXED - we don't want to zap someone's mapping. */ - res = mmap ((void *) addr, size, - PROT_READ | PROT_WRITE | PROT_EXEC, - MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); - - /* If we got what we wanted, return. */ - if ((uintptr_t) res == addr) - return res; - - /* If we got a mapping, but at a wrong address, undo it. */ - if (res != MAP_FAILED) - munmap (res, size); - } - - return NULL; -#else - void *target = sbrk (0); - void *res = mmap (target, size, PROT_READ | PROT_WRITE | PROT_EXEC, - MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); - - if (res == target) - return res; - - if (res != MAP_FAILED) - munmap (res, size); - - return NULL; -#endif -} - -/* Return target_desc to use for IPA, given the tdesc index passed by - gdbserver. */ - -const struct target_desc * -get_ipa_tdesc (int idx) -{ - switch (idx) - { -#ifdef __powerpc64__ - case PPC_TDESC_BASE: - return tdesc_powerpc_64l; - case PPC_TDESC_ALTIVEC: - return tdesc_powerpc_altivec64l; - case PPC_TDESC_VSX: - return tdesc_powerpc_vsx64l; - case PPC_TDESC_ISA205: - return tdesc_powerpc_isa205_64l; - case PPC_TDESC_ISA205_ALTIVEC: - return tdesc_powerpc_isa205_altivec64l; - case PPC_TDESC_ISA205_VSX: - return tdesc_powerpc_isa205_vsx64l; - case PPC_TDESC_ISA205_PPR_DSCR_VSX: - return tdesc_powerpc_isa205_ppr_dscr_vsx64l; - case PPC_TDESC_ISA207_VSX: - return tdesc_powerpc_isa207_vsx64l; - case PPC_TDESC_ISA207_HTM_VSX: - return tdesc_powerpc_isa207_htm_vsx64l; -#else - case PPC_TDESC_BASE: - return tdesc_powerpc_32l; - case PPC_TDESC_ALTIVEC: - return tdesc_powerpc_altivec32l; - case PPC_TDESC_VSX: - return tdesc_powerpc_vsx32l; - case PPC_TDESC_ISA205: - return tdesc_powerpc_isa205_32l; - case PPC_TDESC_ISA205_ALTIVEC: - return tdesc_powerpc_isa205_altivec32l; - case PPC_TDESC_ISA205_VSX: - return tdesc_powerpc_isa205_vsx32l; - case PPC_TDESC_ISA205_PPR_DSCR_VSX: - return tdesc_powerpc_isa205_ppr_dscr_vsx32l; - case PPC_TDESC_ISA207_VSX: - return tdesc_powerpc_isa207_vsx32l; - case PPC_TDESC_ISA207_HTM_VSX: - return tdesc_powerpc_isa207_htm_vsx32l; - case PPC_TDESC_E500: - return tdesc_powerpc_e500l; -#endif - default: - internal_error (__FILE__, __LINE__, - "unknown ipa tdesc index: %d", idx); -#ifdef __powerpc64__ - return tdesc_powerpc_64l; -#else - return tdesc_powerpc_32l; -#endif - } -} - - -/* Initialize ipa_tdesc and others. */ - -void -initialize_low_tracepoint (void) -{ -#ifdef __powerpc64__ - init_registers_powerpc_64l (); - init_registers_powerpc_altivec64l (); - init_registers_powerpc_vsx64l (); - init_registers_powerpc_isa205_64l (); - init_registers_powerpc_isa205_altivec64l (); - init_registers_powerpc_isa205_vsx64l (); - init_registers_powerpc_isa205_ppr_dscr_vsx64l (); - init_registers_powerpc_isa207_vsx64l (); - init_registers_powerpc_isa207_htm_vsx64l (); -#else - init_registers_powerpc_32l (); - init_registers_powerpc_altivec32l (); - init_registers_powerpc_vsx32l (); - init_registers_powerpc_isa205_32l (); - init_registers_powerpc_isa205_altivec32l (); - init_registers_powerpc_isa205_vsx32l (); - init_registers_powerpc_isa205_ppr_dscr_vsx32l (); - init_registers_powerpc_isa207_vsx32l (); - init_registers_powerpc_isa207_htm_vsx32l (); - init_registers_powerpc_e500l (); -#endif -} diff --git a/gdbserver/linux-ppc-ipa.cc b/gdbserver/linux-ppc-ipa.cc new file mode 100644 index 00000000000..42d668f7d37 --- /dev/null +++ b/gdbserver/linux-ppc-ipa.cc @@ -0,0 +1,259 @@ +/* GNU/Linux/PowerPC specific low level interface, for the in-process + agent library for GDB. + + Copyright (C) 2016-2020 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 . */ + +#include "server.h" +#include +#include "tracepoint.h" +#include "arch/ppc-linux-tdesc.h" +#include "linux-ppc-tdesc-init.h" +#include +#ifdef HAVE_GETAUXVAL +#include +#endif + +/* These macros define the position of registers in the buffer collected + by the fast tracepoint jump pad. */ +#define FT_CR_R0 0 +#define FT_CR_CR 32 +#define FT_CR_XER 33 +#define FT_CR_LR 34 +#define FT_CR_CTR 35 +#define FT_CR_PC 36 +#define FT_CR_GPR(n) (FT_CR_R0 + (n)) + +static const int ppc_ft_collect_regmap[] = { + /* GPRs */ + FT_CR_GPR (0), FT_CR_GPR (1), FT_CR_GPR (2), + FT_CR_GPR (3), FT_CR_GPR (4), FT_CR_GPR (5), + FT_CR_GPR (6), FT_CR_GPR (7), FT_CR_GPR (8), + FT_CR_GPR (9), FT_CR_GPR (10), FT_CR_GPR (11), + FT_CR_GPR (12), FT_CR_GPR (13), FT_CR_GPR (14), + FT_CR_GPR (15), FT_CR_GPR (16), FT_CR_GPR (17), + FT_CR_GPR (18), FT_CR_GPR (19), FT_CR_GPR (20), + FT_CR_GPR (21), FT_CR_GPR (22), FT_CR_GPR (23), + FT_CR_GPR (24), FT_CR_GPR (25), FT_CR_GPR (26), + FT_CR_GPR (27), FT_CR_GPR (28), FT_CR_GPR (29), + FT_CR_GPR (30), FT_CR_GPR (31), + /* FPRs - not collected. */ + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + FT_CR_PC, /* PC */ + -1, /* MSR */ + FT_CR_CR, /* CR */ + FT_CR_LR, /* LR */ + FT_CR_CTR, /* CTR */ + FT_CR_XER, /* XER */ + -1, /* FPSCR */ +}; + +#define PPC_NUM_FT_COLLECT_GREGS \ + (sizeof (ppc_ft_collect_regmap) / sizeof(ppc_ft_collect_regmap[0])) + +/* Supply registers collected by the fast tracepoint jump pad. + BUF is the second argument we pass to gdb_collect in jump pad. */ + +void +supply_fast_tracepoint_registers (struct regcache *regcache, + const unsigned char *buf) +{ + int i; + + for (i = 0; i < PPC_NUM_FT_COLLECT_GREGS; i++) + { + if (ppc_ft_collect_regmap[i] == -1) + continue; + supply_register (regcache, i, + ((char *) buf) + + ppc_ft_collect_regmap[i] * sizeof (long)); + } +} + +/* Return the value of register REGNUM. RAW_REGS is collected buffer + by jump pad. This function is called by emit_reg. */ + +ULONGEST +get_raw_reg (const unsigned char *raw_regs, int regnum) +{ + if (regnum >= PPC_NUM_FT_COLLECT_GREGS) + return 0; + if (ppc_ft_collect_regmap[regnum] == -1) + return 0; + + return *(unsigned long *) (raw_regs + + ppc_ft_collect_regmap[regnum] * sizeof (long)); +} + +/* Allocate buffer for the jump pads. The branch instruction has a reach + of +/- 32MiB, and the executable is loaded at 0x10000000 (256MiB). + + 64-bit: To maximize the area of executable that can use tracepoints, + try allocating at 0x10000000 - size initially, decreasing until we hit + a free area. + + 32-bit: ld.so loads dynamic libraries right below the executable, so + we cannot depend on that area (dynamic libraries can be quite large). + Instead, aim right after the executable - at sbrk(0). This will + cause future brk to fail, and malloc will fallback to mmap. */ + +void * +alloc_jump_pad_buffer (size_t size) +{ +#ifdef __powerpc64__ + uintptr_t addr; + uintptr_t exec_base = getauxval (AT_PHDR); + int pagesize; + void *res; + + if (exec_base == 0) + exec_base = 0x10000000; + + pagesize = sysconf (_SC_PAGE_SIZE); + if (pagesize == -1) + perror_with_name ("sysconf"); + + addr = exec_base - size; + + /* size should already be page-aligned, but this can't hurt. */ + addr &= ~(pagesize - 1); + + /* Search for a free area. If we hit 0, we're out of luck. */ + for (; addr; addr -= pagesize) + { + /* No MAP_FIXED - we don't want to zap someone's mapping. */ + res = mmap ((void *) addr, size, + PROT_READ | PROT_WRITE | PROT_EXEC, + MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); + + /* If we got what we wanted, return. */ + if ((uintptr_t) res == addr) + return res; + + /* If we got a mapping, but at a wrong address, undo it. */ + if (res != MAP_FAILED) + munmap (res, size); + } + + return NULL; +#else + void *target = sbrk (0); + void *res = mmap (target, size, PROT_READ | PROT_WRITE | PROT_EXEC, + MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); + + if (res == target) + return res; + + if (res != MAP_FAILED) + munmap (res, size); + + return NULL; +#endif +} + +/* Return target_desc to use for IPA, given the tdesc index passed by + gdbserver. */ + +const struct target_desc * +get_ipa_tdesc (int idx) +{ + switch (idx) + { +#ifdef __powerpc64__ + case PPC_TDESC_BASE: + return tdesc_powerpc_64l; + case PPC_TDESC_ALTIVEC: + return tdesc_powerpc_altivec64l; + case PPC_TDESC_VSX: + return tdesc_powerpc_vsx64l; + case PPC_TDESC_ISA205: + return tdesc_powerpc_isa205_64l; + case PPC_TDESC_ISA205_ALTIVEC: + return tdesc_powerpc_isa205_altivec64l; + case PPC_TDESC_ISA205_VSX: + return tdesc_powerpc_isa205_vsx64l; + case PPC_TDESC_ISA205_PPR_DSCR_VSX: + return tdesc_powerpc_isa205_ppr_dscr_vsx64l; + case PPC_TDESC_ISA207_VSX: + return tdesc_powerpc_isa207_vsx64l; + case PPC_TDESC_ISA207_HTM_VSX: + return tdesc_powerpc_isa207_htm_vsx64l; +#else + case PPC_TDESC_BASE: + return tdesc_powerpc_32l; + case PPC_TDESC_ALTIVEC: + return tdesc_powerpc_altivec32l; + case PPC_TDESC_VSX: + return tdesc_powerpc_vsx32l; + case PPC_TDESC_ISA205: + return tdesc_powerpc_isa205_32l; + case PPC_TDESC_ISA205_ALTIVEC: + return tdesc_powerpc_isa205_altivec32l; + case PPC_TDESC_ISA205_VSX: + return tdesc_powerpc_isa205_vsx32l; + case PPC_TDESC_ISA205_PPR_DSCR_VSX: + return tdesc_powerpc_isa205_ppr_dscr_vsx32l; + case PPC_TDESC_ISA207_VSX: + return tdesc_powerpc_isa207_vsx32l; + case PPC_TDESC_ISA207_HTM_VSX: + return tdesc_powerpc_isa207_htm_vsx32l; + case PPC_TDESC_E500: + return tdesc_powerpc_e500l; +#endif + default: + internal_error (__FILE__, __LINE__, + "unknown ipa tdesc index: %d", idx); +#ifdef __powerpc64__ + return tdesc_powerpc_64l; +#else + return tdesc_powerpc_32l; +#endif + } +} + + +/* Initialize ipa_tdesc and others. */ + +void +initialize_low_tracepoint (void) +{ +#ifdef __powerpc64__ + init_registers_powerpc_64l (); + init_registers_powerpc_altivec64l (); + init_registers_powerpc_vsx64l (); + init_registers_powerpc_isa205_64l (); + init_registers_powerpc_isa205_altivec64l (); + init_registers_powerpc_isa205_vsx64l (); + init_registers_powerpc_isa205_ppr_dscr_vsx64l (); + init_registers_powerpc_isa207_vsx64l (); + init_registers_powerpc_isa207_htm_vsx64l (); +#else + init_registers_powerpc_32l (); + init_registers_powerpc_altivec32l (); + init_registers_powerpc_vsx32l (); + init_registers_powerpc_isa205_32l (); + init_registers_powerpc_isa205_altivec32l (); + init_registers_powerpc_isa205_vsx32l (); + init_registers_powerpc_isa205_ppr_dscr_vsx32l (); + init_registers_powerpc_isa207_vsx32l (); + init_registers_powerpc_isa207_htm_vsx32l (); + init_registers_powerpc_e500l (); +#endif +} diff --git a/gdbserver/linux-ppc-low.c b/gdbserver/linux-ppc-low.c deleted file mode 100644 index 5d8d67bec2f..00000000000 --- a/gdbserver/linux-ppc-low.c +++ /dev/null @@ -1,3441 +0,0 @@ -/* GNU/Linux/PowerPC specific low level interface, for the remote server for - GDB. - Copyright (C) 1995-2020 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 . */ - -#include "server.h" -#include "linux-low.h" - -#include "elf/common.h" -#include -#include -#include - -#include "arch/ppc-linux-common.h" -#include "arch/ppc-linux-tdesc.h" -#include "nat/ppc-linux.h" -#include "nat/linux-ptrace.h" -#include "linux-ppc-tdesc-init.h" -#include "ax.h" -#include "tracepoint.h" - -#define PPC_FIELD(value, from, len) \ - (((value) >> (32 - (from) - (len))) & ((1 << (len)) - 1)) -#define PPC_SEXT(v, bs) \ - ((((CORE_ADDR) (v) & (((CORE_ADDR) 1 << (bs)) - 1)) \ - ^ ((CORE_ADDR) 1 << ((bs) - 1))) \ - - ((CORE_ADDR) 1 << ((bs) - 1))) -#define PPC_OP6(insn) PPC_FIELD (insn, 0, 6) -#define PPC_BO(insn) PPC_FIELD (insn, 6, 5) -#define PPC_LI(insn) (PPC_SEXT (PPC_FIELD (insn, 6, 24), 24) << 2) -#define PPC_BD(insn) (PPC_SEXT (PPC_FIELD (insn, 16, 14), 14) << 2) - -/* Holds the AT_HWCAP auxv entry. */ - -static unsigned long ppc_hwcap; - -/* Holds the AT_HWCAP2 auxv entry. */ - -static unsigned long ppc_hwcap2; - - -#define ppc_num_regs 73 - -#ifdef __powerpc64__ -/* We use a constant for FPSCR instead of PT_FPSCR, because - many shipped PPC64 kernels had the wrong value in ptrace.h. */ -static int ppc_regmap[] = - {PT_R0 * 8, PT_R1 * 8, PT_R2 * 8, PT_R3 * 8, - PT_R4 * 8, PT_R5 * 8, PT_R6 * 8, PT_R7 * 8, - PT_R8 * 8, PT_R9 * 8, PT_R10 * 8, PT_R11 * 8, - PT_R12 * 8, PT_R13 * 8, PT_R14 * 8, PT_R15 * 8, - PT_R16 * 8, PT_R17 * 8, PT_R18 * 8, PT_R19 * 8, - PT_R20 * 8, PT_R21 * 8, PT_R22 * 8, PT_R23 * 8, - PT_R24 * 8, PT_R25 * 8, PT_R26 * 8, PT_R27 * 8, - PT_R28 * 8, PT_R29 * 8, PT_R30 * 8, PT_R31 * 8, - PT_FPR0*8, PT_FPR0*8 + 8, PT_FPR0*8+16, PT_FPR0*8+24, - PT_FPR0*8+32, PT_FPR0*8+40, PT_FPR0*8+48, PT_FPR0*8+56, - PT_FPR0*8+64, PT_FPR0*8+72, PT_FPR0*8+80, PT_FPR0*8+88, - PT_FPR0*8+96, PT_FPR0*8+104, PT_FPR0*8+112, PT_FPR0*8+120, - PT_FPR0*8+128, PT_FPR0*8+136, PT_FPR0*8+144, PT_FPR0*8+152, - PT_FPR0*8+160, PT_FPR0*8+168, PT_FPR0*8+176, PT_FPR0*8+184, - PT_FPR0*8+192, PT_FPR0*8+200, PT_FPR0*8+208, PT_FPR0*8+216, - PT_FPR0*8+224, PT_FPR0*8+232, PT_FPR0*8+240, PT_FPR0*8+248, - PT_NIP * 8, PT_MSR * 8, PT_CCR * 8, PT_LNK * 8, - PT_CTR * 8, PT_XER * 8, PT_FPR0*8 + 256, - PT_ORIG_R3 * 8, PT_TRAP * 8 }; -#else -/* Currently, don't check/send MQ. */ -static int ppc_regmap[] = - {PT_R0 * 4, PT_R1 * 4, PT_R2 * 4, PT_R3 * 4, - PT_R4 * 4, PT_R5 * 4, PT_R6 * 4, PT_R7 * 4, - PT_R8 * 4, PT_R9 * 4, PT_R10 * 4, PT_R11 * 4, - PT_R12 * 4, PT_R13 * 4, PT_R14 * 4, PT_R15 * 4, - PT_R16 * 4, PT_R17 * 4, PT_R18 * 4, PT_R19 * 4, - PT_R20 * 4, PT_R21 * 4, PT_R22 * 4, PT_R23 * 4, - PT_R24 * 4, PT_R25 * 4, PT_R26 * 4, PT_R27 * 4, - PT_R28 * 4, PT_R29 * 4, PT_R30 * 4, PT_R31 * 4, - PT_FPR0*4, PT_FPR0*4 + 8, PT_FPR0*4+16, PT_FPR0*4+24, - PT_FPR0*4+32, PT_FPR0*4+40, PT_FPR0*4+48, PT_FPR0*4+56, - PT_FPR0*4+64, PT_FPR0*4+72, PT_FPR0*4+80, PT_FPR0*4+88, - PT_FPR0*4+96, PT_FPR0*4+104, PT_FPR0*4+112, PT_FPR0*4+120, - PT_FPR0*4+128, PT_FPR0*4+136, PT_FPR0*4+144, PT_FPR0*4+152, - PT_FPR0*4+160, PT_FPR0*4+168, PT_FPR0*4+176, PT_FPR0*4+184, - PT_FPR0*4+192, PT_FPR0*4+200, PT_FPR0*4+208, PT_FPR0*4+216, - PT_FPR0*4+224, PT_FPR0*4+232, PT_FPR0*4+240, PT_FPR0*4+248, - PT_NIP * 4, PT_MSR * 4, PT_CCR * 4, PT_LNK * 4, - PT_CTR * 4, PT_XER * 4, PT_FPSCR * 4, - PT_ORIG_R3 * 4, PT_TRAP * 4 - }; - -static int ppc_regmap_e500[] = - {PT_R0 * 4, PT_R1 * 4, PT_R2 * 4, PT_R3 * 4, - PT_R4 * 4, PT_R5 * 4, PT_R6 * 4, PT_R7 * 4, - PT_R8 * 4, PT_R9 * 4, PT_R10 * 4, PT_R11 * 4, - PT_R12 * 4, PT_R13 * 4, PT_R14 * 4, PT_R15 * 4, - PT_R16 * 4, PT_R17 * 4, PT_R18 * 4, PT_R19 * 4, - PT_R20 * 4, PT_R21 * 4, PT_R22 * 4, PT_R23 * 4, - PT_R24 * 4, PT_R25 * 4, PT_R26 * 4, PT_R27 * 4, - PT_R28 * 4, PT_R29 * 4, PT_R30 * 4, PT_R31 * 4, - -1, -1, -1, -1, - -1, -1, -1, -1, - -1, -1, -1, -1, - -1, -1, -1, -1, - -1, -1, -1, -1, - -1, -1, -1, -1, - -1, -1, -1, -1, - -1, -1, -1, -1, - PT_NIP * 4, PT_MSR * 4, PT_CCR * 4, PT_LNK * 4, - PT_CTR * 4, PT_XER * 4, -1, - PT_ORIG_R3 * 4, PT_TRAP * 4 - }; -#endif - -/* Check whether the kernel provides a register set with number - REGSET_ID of size REGSETSIZE for process/thread TID. */ - -static int -ppc_check_regset (int tid, int regset_id, int regsetsize) -{ - void *buf = alloca (regsetsize); - struct iovec iov; - - iov.iov_base = buf; - iov.iov_len = regsetsize; - - if (ptrace (PTRACE_GETREGSET, tid, regset_id, &iov) >= 0 - || errno == ENODATA) - return 1; - return 0; -} - -static int -ppc_cannot_store_register (int regno) -{ - const struct target_desc *tdesc = current_process ()->tdesc; - -#ifndef __powerpc64__ - /* Some kernels do not allow us to store fpscr. */ - if (!(ppc_hwcap & PPC_FEATURE_HAS_SPE) - && regno == find_regno (tdesc, "fpscr")) - return 2; -#endif - - /* Some kernels do not allow us to store orig_r3 or trap. */ - if (regno == find_regno (tdesc, "orig_r3") - || regno == find_regno (tdesc, "trap")) - return 2; - - return 0; -} - -static int -ppc_cannot_fetch_register (int regno) -{ - return 0; -} - -static void -ppc_collect_ptrace_register (struct regcache *regcache, int regno, char *buf) -{ - memset (buf, 0, sizeof (long)); - - if (__BYTE_ORDER == __LITTLE_ENDIAN) - { - /* Little-endian values always sit at the left end of the buffer. */ - collect_register (regcache, regno, buf); - } - else if (__BYTE_ORDER == __BIG_ENDIAN) - { - /* Big-endian values sit at the right end of the buffer. In case of - registers whose sizes are smaller than sizeof (long), we must use a - padding to access them correctly. */ - int size = register_size (regcache->tdesc, regno); - - if (size < sizeof (long)) - collect_register (regcache, regno, buf + sizeof (long) - size); - else - collect_register (regcache, regno, buf); - } - else - perror_with_name ("Unexpected byte order"); -} - -static void -ppc_supply_ptrace_register (struct regcache *regcache, - int regno, const char *buf) -{ - if (__BYTE_ORDER == __LITTLE_ENDIAN) - { - /* Little-endian values always sit at the left end of the buffer. */ - supply_register (regcache, regno, buf); - } - else if (__BYTE_ORDER == __BIG_ENDIAN) - { - /* Big-endian values sit at the right end of the buffer. In case of - registers whose sizes are smaller than sizeof (long), we must use a - padding to access them correctly. */ - int size = register_size (regcache->tdesc, regno); - - if (size < sizeof (long)) - supply_register (regcache, regno, buf + sizeof (long) - size); - else - supply_register (regcache, regno, buf); - } - else - perror_with_name ("Unexpected byte order"); -} - -static CORE_ADDR -ppc_get_pc (struct regcache *regcache) -{ - if (register_size (regcache->tdesc, 0) == 4) - { - unsigned int pc; - collect_register_by_name (regcache, "pc", &pc); - return (CORE_ADDR) pc; - } - else - { - unsigned long pc; - collect_register_by_name (regcache, "pc", &pc); - return (CORE_ADDR) pc; - } -} - -static void -ppc_set_pc (struct regcache *regcache, CORE_ADDR pc) -{ - if (register_size (regcache->tdesc, 0) == 4) - { - unsigned int newpc = pc; - supply_register_by_name (regcache, "pc", &newpc); - } - else - { - unsigned long newpc = pc; - supply_register_by_name (regcache, "pc", &newpc); - } -} - -#ifndef __powerpc64__ -static int ppc_regmap_adjusted; -#endif - - -/* Correct in either endianness. - This instruction is "twge r2, r2", which GDB uses as a software - breakpoint. */ -static const unsigned int ppc_breakpoint = 0x7d821008; -#define ppc_breakpoint_len 4 - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -ppc_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = ppc_breakpoint_len; - return (const gdb_byte *) &ppc_breakpoint; -} - -static int -ppc_breakpoint_at (CORE_ADDR where) -{ - unsigned int insn; - - (*the_target->read_memory) (where, (unsigned char *) &insn, 4); - if (insn == ppc_breakpoint) - return 1; - /* If necessary, recognize more trap instructions here. GDB only uses - the one. */ - - return 0; -} - -/* Implement supports_z_point_type target-ops. - Returns true if type Z_TYPE breakpoint is supported. - - Handling software breakpoint at server side, so tracepoints - and breakpoints can be inserted at the same location. */ - -static int -ppc_supports_z_point_type (char z_type) -{ - switch (z_type) - { - case Z_PACKET_SW_BP: - return 1; - case Z_PACKET_HW_BP: - case Z_PACKET_WRITE_WP: - case Z_PACKET_ACCESS_WP: - default: - return 0; - } -} - -/* Implement insert_point target-ops. - Returns 0 on success, -1 on failure and 1 on unsupported. */ - -static int -ppc_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, - int size, struct raw_breakpoint *bp) -{ - switch (type) - { - case raw_bkpt_type_sw: - return insert_memory_breakpoint (bp); - - case raw_bkpt_type_hw: - case raw_bkpt_type_write_wp: - case raw_bkpt_type_access_wp: - default: - /* Unsupported. */ - return 1; - } -} - -/* Implement remove_point target-ops. - Returns 0 on success, -1 on failure and 1 on unsupported. */ - -static int -ppc_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, - int size, struct raw_breakpoint *bp) -{ - switch (type) - { - case raw_bkpt_type_sw: - return remove_memory_breakpoint (bp); - - case raw_bkpt_type_hw: - case raw_bkpt_type_write_wp: - case raw_bkpt_type_access_wp: - default: - /* Unsupported. */ - return 1; - } -} - -/* Provide only a fill function for the general register set. ps_lgetregs - will use this for NPTL support. */ - -static void ppc_fill_gregset (struct regcache *regcache, void *buf) -{ - int i; - - for (i = 0; i < 32; i++) - ppc_collect_ptrace_register (regcache, i, (char *) buf + ppc_regmap[i]); - - for (i = 64; i < 70; i++) - ppc_collect_ptrace_register (regcache, i, (char *) buf + ppc_regmap[i]); - - for (i = 71; i < 73; i++) - ppc_collect_ptrace_register (regcache, i, (char *) buf + ppc_regmap[i]); -} - -/* Program Priority Register regset fill function. */ - -static void -ppc_fill_pprregset (struct regcache *regcache, void *buf) -{ - char *ppr = (char *) buf; - - collect_register_by_name (regcache, "ppr", ppr); -} - -/* Program Priority Register regset store function. */ - -static void -ppc_store_pprregset (struct regcache *regcache, const void *buf) -{ - const char *ppr = (const char *) buf; - - supply_register_by_name (regcache, "ppr", ppr); -} - -/* Data Stream Control Register regset fill function. */ - -static void -ppc_fill_dscrregset (struct regcache *regcache, void *buf) -{ - char *dscr = (char *) buf; - - collect_register_by_name (regcache, "dscr", dscr); -} - -/* Data Stream Control Register regset store function. */ - -static void -ppc_store_dscrregset (struct regcache *regcache, const void *buf) -{ - const char *dscr = (const char *) buf; - - supply_register_by_name (regcache, "dscr", dscr); -} - -/* Target Address Register regset fill function. */ - -static void -ppc_fill_tarregset (struct regcache *regcache, void *buf) -{ - char *tar = (char *) buf; - - collect_register_by_name (regcache, "tar", tar); -} - -/* Target Address Register regset store function. */ - -static void -ppc_store_tarregset (struct regcache *regcache, const void *buf) -{ - const char *tar = (const char *) buf; - - supply_register_by_name (regcache, "tar", tar); -} - -/* Event-Based Branching regset store function. Unless the inferior - has a perf event open, ptrace can return in error when reading and - writing to the regset, with ENODATA. For reading, the registers - will correctly show as unavailable. For writing, gdbserver - currently only caches any register writes from P and G packets and - the stub always tries to write all the regsets when resuming the - inferior, which would result in frequent warnings. For this - reason, we don't define a fill function. This also means that the - client-side regcache will be dirty if the user tries to write to - the EBB registers. G packets that the client sends to write to - unrelated registers will also include data for EBB registers, even - if they are unavailable. */ - -static void -ppc_store_ebbregset (struct regcache *regcache, const void *buf) -{ - const char *regset = (const char *) buf; - - /* The order in the kernel regset is: EBBRR, EBBHR, BESCR. In the - .dat file is BESCR, EBBHR, EBBRR. */ - supply_register_by_name (regcache, "ebbrr", ®set[0]); - supply_register_by_name (regcache, "ebbhr", ®set[8]); - supply_register_by_name (regcache, "bescr", ®set[16]); -} - -/* Performance Monitoring Unit regset fill function. */ - -static void -ppc_fill_pmuregset (struct regcache *regcache, void *buf) -{ - char *regset = (char *) buf; - - /* The order in the kernel regset is SIAR, SDAR, SIER, MMCR2, MMCR0. - In the .dat file is MMCR0, MMCR2, SIAR, SDAR, SIER. */ - collect_register_by_name (regcache, "siar", ®set[0]); - collect_register_by_name (regcache, "sdar", ®set[8]); - collect_register_by_name (regcache, "sier", ®set[16]); - collect_register_by_name (regcache, "mmcr2", ®set[24]); - collect_register_by_name (regcache, "mmcr0", ®set[32]); -} - -/* Performance Monitoring Unit regset store function. */ - -static void -ppc_store_pmuregset (struct regcache *regcache, const void *buf) -{ - const char *regset = (const char *) buf; - - supply_register_by_name (regcache, "siar", ®set[0]); - supply_register_by_name (regcache, "sdar", ®set[8]); - supply_register_by_name (regcache, "sier", ®set[16]); - supply_register_by_name (regcache, "mmcr2", ®set[24]); - supply_register_by_name (regcache, "mmcr0", ®set[32]); -} - -/* Hardware Transactional Memory special-purpose register regset fill - function. */ - -static void -ppc_fill_tm_sprregset (struct regcache *regcache, void *buf) -{ - int i, base; - char *regset = (char *) buf; - - base = find_regno (regcache->tdesc, "tfhar"); - for (i = 0; i < 3; i++) - collect_register (regcache, base + i, ®set[i * 8]); -} - -/* Hardware Transactional Memory special-purpose register regset store - function. */ - -static void -ppc_store_tm_sprregset (struct regcache *regcache, const void *buf) -{ - int i, base; - const char *regset = (const char *) buf; - - base = find_regno (regcache->tdesc, "tfhar"); - for (i = 0; i < 3; i++) - supply_register (regcache, base + i, ®set[i * 8]); -} - -/* For the same reasons as the EBB regset, none of the HTM - checkpointed regsets have a fill function. These registers are - only available if the inferior is in a transaction. */ - -/* Hardware Transactional Memory checkpointed general-purpose regset - store function. */ - -static void -ppc_store_tm_cgprregset (struct regcache *regcache, const void *buf) -{ - int i, base, size, endian_offset; - const char *regset = (const char *) buf; - - base = find_regno (regcache->tdesc, "cr0"); - size = register_size (regcache->tdesc, base); - - gdb_assert (size == 4 || size == 8); - - for (i = 0; i < 32; i++) - supply_register (regcache, base + i, ®set[i * size]); - - endian_offset = 0; - - if ((size == 8) && (__BYTE_ORDER == __BIG_ENDIAN)) - endian_offset = 4; - - supply_register_by_name (regcache, "ccr", - ®set[PT_CCR * size + endian_offset]); - - supply_register_by_name (regcache, "cxer", - ®set[PT_XER * size + endian_offset]); - - supply_register_by_name (regcache, "clr", ®set[PT_LNK * size]); - supply_register_by_name (regcache, "cctr", ®set[PT_CTR * size]); -} - -/* Hardware Transactional Memory checkpointed floating-point regset - store function. */ - -static void -ppc_store_tm_cfprregset (struct regcache *regcache, const void *buf) -{ - int i, base; - const char *regset = (const char *) buf; - - base = find_regno (regcache->tdesc, "cf0"); - - for (i = 0; i < 32; i++) - supply_register (regcache, base + i, ®set[i * 8]); - - supply_register_by_name (regcache, "cfpscr", ®set[32 * 8]); -} - -/* Hardware Transactional Memory checkpointed vector regset store - function. */ - -static void -ppc_store_tm_cvrregset (struct regcache *regcache, const void *buf) -{ - int i, base; - const char *regset = (const char *) buf; - int vscr_offset = 0; - - base = find_regno (regcache->tdesc, "cvr0"); - - for (i = 0; i < 32; i++) - supply_register (regcache, base + i, ®set[i * 16]); - - if (__BYTE_ORDER == __BIG_ENDIAN) - vscr_offset = 12; - - supply_register_by_name (regcache, "cvscr", - ®set[32 * 16 + vscr_offset]); - - supply_register_by_name (regcache, "cvrsave", ®set[33 * 16]); -} - -/* Hardware Transactional Memory checkpointed vector-scalar regset - store function. */ - -static void -ppc_store_tm_cvsxregset (struct regcache *regcache, const void *buf) -{ - int i, base; - const char *regset = (const char *) buf; - - base = find_regno (regcache->tdesc, "cvs0h"); - for (i = 0; i < 32; i++) - supply_register (regcache, base + i, ®set[i * 8]); -} - -/* Hardware Transactional Memory checkpointed Program Priority - Register regset store function. */ - -static void -ppc_store_tm_cpprregset (struct regcache *regcache, const void *buf) -{ - const char *cppr = (const char *) buf; - - supply_register_by_name (regcache, "cppr", cppr); -} - -/* Hardware Transactional Memory checkpointed Data Stream Control - Register regset store function. */ - -static void -ppc_store_tm_cdscrregset (struct regcache *regcache, const void *buf) -{ - const char *cdscr = (const char *) buf; - - supply_register_by_name (regcache, "cdscr", cdscr); -} - -/* Hardware Transactional Memory checkpointed Target Address Register - regset store function. */ - -static void -ppc_store_tm_ctarregset (struct regcache *regcache, const void *buf) -{ - const char *ctar = (const char *) buf; - - supply_register_by_name (regcache, "ctar", ctar); -} - -static void -ppc_fill_vsxregset (struct regcache *regcache, void *buf) -{ - int i, base; - char *regset = (char *) buf; - - base = find_regno (regcache->tdesc, "vs0h"); - for (i = 0; i < 32; i++) - collect_register (regcache, base + i, ®set[i * 8]); -} - -static void -ppc_store_vsxregset (struct regcache *regcache, const void *buf) -{ - int i, base; - const char *regset = (const char *) buf; - - base = find_regno (regcache->tdesc, "vs0h"); - for (i = 0; i < 32; i++) - supply_register (regcache, base + i, ®set[i * 8]); -} - -static void -ppc_fill_vrregset (struct regcache *regcache, void *buf) -{ - int i, base; - char *regset = (char *) buf; - int vscr_offset = 0; - - base = find_regno (regcache->tdesc, "vr0"); - for (i = 0; i < 32; i++) - collect_register (regcache, base + i, ®set[i * 16]); - - if (__BYTE_ORDER == __BIG_ENDIAN) - vscr_offset = 12; - - collect_register_by_name (regcache, "vscr", - ®set[32 * 16 + vscr_offset]); - - collect_register_by_name (regcache, "vrsave", ®set[33 * 16]); -} - -static void -ppc_store_vrregset (struct regcache *regcache, const void *buf) -{ - int i, base; - const char *regset = (const char *) buf; - int vscr_offset = 0; - - base = find_regno (regcache->tdesc, "vr0"); - for (i = 0; i < 32; i++) - supply_register (regcache, base + i, ®set[i * 16]); - - if (__BYTE_ORDER == __BIG_ENDIAN) - vscr_offset = 12; - - supply_register_by_name (regcache, "vscr", - ®set[32 * 16 + vscr_offset]); - supply_register_by_name (regcache, "vrsave", ®set[33 * 16]); -} - -struct gdb_evrregset_t -{ - unsigned long evr[32]; - unsigned long long acc; - unsigned long spefscr; -}; - -static void -ppc_fill_evrregset (struct regcache *regcache, void *buf) -{ - int i, ev0; - struct gdb_evrregset_t *regset = (struct gdb_evrregset_t *) buf; - - ev0 = find_regno (regcache->tdesc, "ev0h"); - for (i = 0; i < 32; i++) - collect_register (regcache, ev0 + i, ®set->evr[i]); - - collect_register_by_name (regcache, "acc", ®set->acc); - collect_register_by_name (regcache, "spefscr", ®set->spefscr); -} - -static void -ppc_store_evrregset (struct regcache *regcache, const void *buf) -{ - int i, ev0; - const struct gdb_evrregset_t *regset = (const struct gdb_evrregset_t *) buf; - - ev0 = find_regno (regcache->tdesc, "ev0h"); - for (i = 0; i < 32; i++) - supply_register (regcache, ev0 + i, ®set->evr[i]); - - supply_register_by_name (regcache, "acc", ®set->acc); - supply_register_by_name (regcache, "spefscr", ®set->spefscr); -} - -/* Support for hardware single step. */ - -static int -ppc_supports_hardware_single_step (void) -{ - return 1; -} - -static struct regset_info ppc_regsets[] = { - /* List the extra register sets before GENERAL_REGS. That way we will - fetch them every time, but still fall back to PTRACE_PEEKUSER for the - general registers. Some kernels support these, but not the newer - PPC_PTRACE_GETREGS. */ - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CTAR, 0, EXTENDED_REGS, - NULL, ppc_store_tm_ctarregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CDSCR, 0, EXTENDED_REGS, - NULL, ppc_store_tm_cdscrregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CPPR, 0, EXTENDED_REGS, - NULL, ppc_store_tm_cpprregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CVSX, 0, EXTENDED_REGS, - NULL, ppc_store_tm_cvsxregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CVMX, 0, EXTENDED_REGS, - NULL, ppc_store_tm_cvrregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CFPR, 0, EXTENDED_REGS, - NULL, ppc_store_tm_cfprregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CGPR, 0, EXTENDED_REGS, - NULL, ppc_store_tm_cgprregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_SPR, 0, EXTENDED_REGS, - ppc_fill_tm_sprregset, ppc_store_tm_sprregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_EBB, 0, EXTENDED_REGS, - NULL, ppc_store_ebbregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_PMU, 0, EXTENDED_REGS, - ppc_fill_pmuregset, ppc_store_pmuregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TAR, 0, EXTENDED_REGS, - ppc_fill_tarregset, ppc_store_tarregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_PPR, 0, EXTENDED_REGS, - ppc_fill_pprregset, ppc_store_pprregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_DSCR, 0, EXTENDED_REGS, - ppc_fill_dscrregset, ppc_store_dscrregset }, - { PTRACE_GETVSXREGS, PTRACE_SETVSXREGS, 0, 0, EXTENDED_REGS, - ppc_fill_vsxregset, ppc_store_vsxregset }, - { PTRACE_GETVRREGS, PTRACE_SETVRREGS, 0, 0, EXTENDED_REGS, - ppc_fill_vrregset, ppc_store_vrregset }, - { PTRACE_GETEVRREGS, PTRACE_SETEVRREGS, 0, 0, EXTENDED_REGS, - ppc_fill_evrregset, ppc_store_evrregset }, - { 0, 0, 0, 0, GENERAL_REGS, ppc_fill_gregset, NULL }, - NULL_REGSET -}; - -static struct usrregs_info ppc_usrregs_info = - { - ppc_num_regs, - ppc_regmap, - }; - -static struct regsets_info ppc_regsets_info = - { - ppc_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &ppc_usrregs_info, - &ppc_regsets_info - }; - -static const struct regs_info * -ppc_regs_info (void) -{ - return ®s_info; -} - -static void -ppc_arch_setup (void) -{ - const struct target_desc *tdesc; - struct regset_info *regset; - struct ppc_linux_features features = ppc_linux_no_features; - - int tid = lwpid_of (current_thread); - - features.wordsize = ppc_linux_target_wordsize (tid); - - if (features.wordsize == 4) - tdesc = tdesc_powerpc_32l; - else - tdesc = tdesc_powerpc_64l; - - current_process ()->tdesc = tdesc; - - /* The value of current_process ()->tdesc needs to be set for this - call. */ - ppc_hwcap = linux_get_hwcap (features.wordsize); - ppc_hwcap2 = linux_get_hwcap2 (features.wordsize); - - features.isa205 = ppc_linux_has_isa205 (ppc_hwcap); - - if (ppc_hwcap & PPC_FEATURE_HAS_VSX) - features.vsx = true; - - if (ppc_hwcap & PPC_FEATURE_HAS_ALTIVEC) - features.altivec = true; - - if ((ppc_hwcap2 & PPC_FEATURE2_DSCR) - && ppc_check_regset (tid, NT_PPC_DSCR, PPC_LINUX_SIZEOF_DSCRREGSET) - && ppc_check_regset (tid, NT_PPC_PPR, PPC_LINUX_SIZEOF_PPRREGSET)) - { - features.ppr_dscr = true; - if ((ppc_hwcap2 & PPC_FEATURE2_ARCH_2_07) - && (ppc_hwcap2 & PPC_FEATURE2_TAR) - && (ppc_hwcap2 & PPC_FEATURE2_EBB) - && ppc_check_regset (tid, NT_PPC_TAR, - PPC_LINUX_SIZEOF_TARREGSET) - && ppc_check_regset (tid, NT_PPC_EBB, - PPC_LINUX_SIZEOF_EBBREGSET) - && ppc_check_regset (tid, NT_PPC_PMU, - PPC_LINUX_SIZEOF_PMUREGSET)) - { - features.isa207 = true; - if ((ppc_hwcap2 & PPC_FEATURE2_HTM) - && ppc_check_regset (tid, NT_PPC_TM_SPR, - PPC_LINUX_SIZEOF_TM_SPRREGSET)) - features.htm = true; - } - } - - tdesc = ppc_linux_match_description (features); - - /* On 32-bit machines, check for SPE registers. - Set the low target's regmap field as appropriately. */ -#ifndef __powerpc64__ - if (ppc_hwcap & PPC_FEATURE_HAS_SPE) - tdesc = tdesc_powerpc_e500l; - - if (!ppc_regmap_adjusted) - { - if (ppc_hwcap & PPC_FEATURE_HAS_SPE) - ppc_usrregs_info.regmap = ppc_regmap_e500; - - /* If the FPSCR is 64-bit wide, we need to fetch the whole - 64-bit slot and not just its second word. The PT_FPSCR - supplied in a 32-bit GDB compilation doesn't reflect - this. */ - if (register_size (tdesc, 70) == 8) - ppc_regmap[70] = (48 + 2*32) * sizeof (long); - - ppc_regmap_adjusted = 1; - } -#endif - - current_process ()->tdesc = tdesc; - - for (regset = ppc_regsets; regset->size >= 0; regset++) - switch (regset->get_request) - { - case PTRACE_GETVRREGS: - regset->size = features.altivec ? PPC_LINUX_SIZEOF_VRREGSET : 0; - break; - case PTRACE_GETVSXREGS: - regset->size = features.vsx ? PPC_LINUX_SIZEOF_VSXREGSET : 0; - break; - case PTRACE_GETEVRREGS: - if (ppc_hwcap & PPC_FEATURE_HAS_SPE) - regset->size = 32 * 4 + 8 + 4; - else - regset->size = 0; - break; - case PTRACE_GETREGSET: - switch (regset->nt_type) - { - case NT_PPC_PPR: - regset->size = (features.ppr_dscr ? - PPC_LINUX_SIZEOF_PPRREGSET : 0); - break; - case NT_PPC_DSCR: - regset->size = (features.ppr_dscr ? - PPC_LINUX_SIZEOF_DSCRREGSET : 0); - break; - case NT_PPC_TAR: - regset->size = (features.isa207 ? - PPC_LINUX_SIZEOF_TARREGSET : 0); - break; - case NT_PPC_EBB: - regset->size = (features.isa207 ? - PPC_LINUX_SIZEOF_EBBREGSET : 0); - break; - case NT_PPC_PMU: - regset->size = (features.isa207 ? - PPC_LINUX_SIZEOF_PMUREGSET : 0); - break; - case NT_PPC_TM_SPR: - regset->size = (features.htm ? - PPC_LINUX_SIZEOF_TM_SPRREGSET : 0); - break; - case NT_PPC_TM_CGPR: - if (features.wordsize == 4) - regset->size = (features.htm ? - PPC32_LINUX_SIZEOF_CGPRREGSET : 0); - else - regset->size = (features.htm ? - PPC64_LINUX_SIZEOF_CGPRREGSET : 0); - break; - case NT_PPC_TM_CFPR: - regset->size = (features.htm ? - PPC_LINUX_SIZEOF_CFPRREGSET : 0); - break; - case NT_PPC_TM_CVMX: - regset->size = (features.htm ? - PPC_LINUX_SIZEOF_CVMXREGSET : 0); - break; - case NT_PPC_TM_CVSX: - regset->size = (features.htm ? - PPC_LINUX_SIZEOF_CVSXREGSET : 0); - break; - case NT_PPC_TM_CPPR: - regset->size = (features.htm ? - PPC_LINUX_SIZEOF_CPPRREGSET : 0); - break; - case NT_PPC_TM_CDSCR: - regset->size = (features.htm ? - PPC_LINUX_SIZEOF_CDSCRREGSET : 0); - break; - case NT_PPC_TM_CTAR: - regset->size = (features.htm ? - PPC_LINUX_SIZEOF_CTARREGSET : 0); - break; - default: - break; - } - break; - default: - break; - } -} - -/* Implementation of linux_target_ops method "supports_tracepoints". */ - -static int -ppc_supports_tracepoints (void) -{ - return 1; -} - -/* Get the thread area address. This is used to recognize which - thread is which when tracing with the in-process agent library. We - don't read anything from the address, and treat it as opaque; it's - the address itself that we assume is unique per-thread. */ - -static int -ppc_get_thread_area (int lwpid, CORE_ADDR *addr) -{ - struct lwp_info *lwp = find_lwp_pid (ptid_t (lwpid)); - struct thread_info *thr = get_lwp_thread (lwp); - struct regcache *regcache = get_thread_regcache (thr, 1); - ULONGEST tp = 0; - -#ifdef __powerpc64__ - if (register_size (regcache->tdesc, 0) == 8) - collect_register_by_name (regcache, "r13", &tp); - else -#endif - collect_register_by_name (regcache, "r2", &tp); - - *addr = tp; - - return 0; -} - -#ifdef __powerpc64__ - -/* Older glibc doesn't provide this. */ - -#ifndef EF_PPC64_ABI -#define EF_PPC64_ABI 3 -#endif - -/* Returns 1 if inferior is using ELFv2 ABI. Undefined for 32-bit - inferiors. */ - -static int -is_elfv2_inferior (void) -{ - /* To be used as fallback if we're unable to determine the right result - - assume inferior uses the same ABI as gdbserver. */ -#if _CALL_ELF == 2 - const int def_res = 1; -#else - const int def_res = 0; -#endif - CORE_ADDR phdr; - Elf64_Ehdr ehdr; - - const struct target_desc *tdesc = current_process ()->tdesc; - int wordsize = register_size (tdesc, 0); - - if (!linux_get_auxv (wordsize, AT_PHDR, &phdr)) - return def_res; - - /* Assume ELF header is at the beginning of the page where program headers - are located. If it doesn't look like one, bail. */ - - read_inferior_memory (phdr & ~0xfff, (unsigned char *) &ehdr, sizeof ehdr); - if (memcmp(ehdr.e_ident, ELFMAG, SELFMAG)) - return def_res; - - return (ehdr.e_flags & EF_PPC64_ABI) == 2; -} - -#endif - -/* Generate a ds-form instruction in BUF and return the number of bytes written - - 0 6 11 16 30 32 - | OPCD | RST | RA | DS |XO| */ - -__attribute__((unused)) /* Maybe unused due to conditional compilation. */ -static int -gen_ds_form (uint32_t *buf, int opcd, int rst, int ra, int ds, int xo) -{ - uint32_t insn; - - gdb_assert ((opcd & ~0x3f) == 0); - gdb_assert ((rst & ~0x1f) == 0); - gdb_assert ((ra & ~0x1f) == 0); - gdb_assert ((xo & ~0x3) == 0); - - insn = (rst << 21) | (ra << 16) | (ds & 0xfffc) | (xo & 0x3); - *buf = (opcd << 26) | insn; - return 1; -} - -/* Followings are frequently used ds-form instructions. */ - -#define GEN_STD(buf, rs, ra, offset) gen_ds_form (buf, 62, rs, ra, offset, 0) -#define GEN_STDU(buf, rs, ra, offset) gen_ds_form (buf, 62, rs, ra, offset, 1) -#define GEN_LD(buf, rt, ra, offset) gen_ds_form (buf, 58, rt, ra, offset, 0) -#define GEN_LDU(buf, rt, ra, offset) gen_ds_form (buf, 58, rt, ra, offset, 1) - -/* Generate a d-form instruction in BUF. - - 0 6 11 16 32 - | OPCD | RST | RA | D | */ - -static int -gen_d_form (uint32_t *buf, int opcd, int rst, int ra, int si) -{ - uint32_t insn; - - gdb_assert ((opcd & ~0x3f) == 0); - gdb_assert ((rst & ~0x1f) == 0); - gdb_assert ((ra & ~0x1f) == 0); - - insn = (rst << 21) | (ra << 16) | (si & 0xffff); - *buf = (opcd << 26) | insn; - return 1; -} - -/* Followings are frequently used d-form instructions. */ - -#define GEN_ADDI(buf, rt, ra, si) gen_d_form (buf, 14, rt, ra, si) -#define GEN_ADDIS(buf, rt, ra, si) gen_d_form (buf, 15, rt, ra, si) -#define GEN_LI(buf, rt, si) GEN_ADDI (buf, rt, 0, si) -#define GEN_LIS(buf, rt, si) GEN_ADDIS (buf, rt, 0, si) -#define GEN_ORI(buf, rt, ra, si) gen_d_form (buf, 24, rt, ra, si) -#define GEN_ORIS(buf, rt, ra, si) gen_d_form (buf, 25, rt, ra, si) -#define GEN_LWZ(buf, rt, ra, si) gen_d_form (buf, 32, rt, ra, si) -#define GEN_STW(buf, rt, ra, si) gen_d_form (buf, 36, rt, ra, si) -#define GEN_STWU(buf, rt, ra, si) gen_d_form (buf, 37, rt, ra, si) - -/* Generate a xfx-form instruction in BUF and return the number of bytes - written. - - 0 6 11 21 31 32 - | OPCD | RST | RI | XO |/| */ - -static int -gen_xfx_form (uint32_t *buf, int opcd, int rst, int ri, int xo) -{ - uint32_t insn; - unsigned int n = ((ri & 0x1f) << 5) | ((ri >> 5) & 0x1f); - - gdb_assert ((opcd & ~0x3f) == 0); - gdb_assert ((rst & ~0x1f) == 0); - gdb_assert ((xo & ~0x3ff) == 0); - - insn = (rst << 21) | (n << 11) | (xo << 1); - *buf = (opcd << 26) | insn; - return 1; -} - -/* Followings are frequently used xfx-form instructions. */ - -#define GEN_MFSPR(buf, rt, spr) gen_xfx_form (buf, 31, rt, spr, 339) -#define GEN_MTSPR(buf, rt, spr) gen_xfx_form (buf, 31, rt, spr, 467) -#define GEN_MFCR(buf, rt) gen_xfx_form (buf, 31, rt, 0, 19) -#define GEN_MTCR(buf, rt) gen_xfx_form (buf, 31, rt, 0x3cf, 144) -#define GEN_SYNC(buf, L, E) gen_xfx_form (buf, 31, L & 0x3, \ - E & 0xf, 598) -#define GEN_LWSYNC(buf) GEN_SYNC (buf, 1, 0) - - -/* Generate a x-form instruction in BUF and return the number of bytes written. - - 0 6 11 16 21 31 32 - | OPCD | RST | RA | RB | XO |RC| */ - -static int -gen_x_form (uint32_t *buf, int opcd, int rst, int ra, int rb, int xo, int rc) -{ - uint32_t insn; - - gdb_assert ((opcd & ~0x3f) == 0); - gdb_assert ((rst & ~0x1f) == 0); - gdb_assert ((ra & ~0x1f) == 0); - gdb_assert ((rb & ~0x1f) == 0); - gdb_assert ((xo & ~0x3ff) == 0); - gdb_assert ((rc & ~1) == 0); - - insn = (rst << 21) | (ra << 16) | (rb << 11) | (xo << 1) | rc; - *buf = (opcd << 26) | insn; - return 1; -} - -/* Followings are frequently used x-form instructions. */ - -#define GEN_OR(buf, ra, rs, rb) gen_x_form (buf, 31, rs, ra, rb, 444, 0) -#define GEN_MR(buf, ra, rs) GEN_OR (buf, ra, rs, rs) -#define GEN_LWARX(buf, rt, ra, rb) gen_x_form (buf, 31, rt, ra, rb, 20, 0) -#define GEN_STWCX(buf, rs, ra, rb) gen_x_form (buf, 31, rs, ra, rb, 150, 1) -/* Assume bf = cr7. */ -#define GEN_CMPW(buf, ra, rb) gen_x_form (buf, 31, 28, ra, rb, 0, 0) - - -/* Generate a md-form instruction in BUF and return the number of bytes written. - - 0 6 11 16 21 27 30 31 32 - | OPCD | RS | RA | sh | mb | XO |sh|Rc| */ - -static int -gen_md_form (uint32_t *buf, int opcd, int rs, int ra, int sh, int mb, - int xo, int rc) -{ - uint32_t insn; - unsigned int n = ((mb & 0x1f) << 1) | ((mb >> 5) & 0x1); - unsigned int sh0_4 = sh & 0x1f; - unsigned int sh5 = (sh >> 5) & 1; - - gdb_assert ((opcd & ~0x3f) == 0); - gdb_assert ((rs & ~0x1f) == 0); - gdb_assert ((ra & ~0x1f) == 0); - gdb_assert ((sh & ~0x3f) == 0); - gdb_assert ((mb & ~0x3f) == 0); - gdb_assert ((xo & ~0x7) == 0); - gdb_assert ((rc & ~0x1) == 0); - - insn = (rs << 21) | (ra << 16) | (sh0_4 << 11) | (n << 5) - | (sh5 << 1) | (xo << 2) | (rc & 1); - *buf = (opcd << 26) | insn; - return 1; -} - -/* The following are frequently used md-form instructions. */ - -#define GEN_RLDICL(buf, ra, rs ,sh, mb) \ - gen_md_form (buf, 30, rs, ra, sh, mb, 0, 0) -#define GEN_RLDICR(buf, ra, rs ,sh, mb) \ - gen_md_form (buf, 30, rs, ra, sh, mb, 1, 0) - -/* Generate a i-form instruction in BUF and return the number of bytes written. - - 0 6 30 31 32 - | OPCD | LI |AA|LK| */ - -static int -gen_i_form (uint32_t *buf, int opcd, int li, int aa, int lk) -{ - uint32_t insn; - - gdb_assert ((opcd & ~0x3f) == 0); - - insn = (li & 0x3fffffc) | (aa & 1) | (lk & 1); - *buf = (opcd << 26) | insn; - return 1; -} - -/* The following are frequently used i-form instructions. */ - -#define GEN_B(buf, li) gen_i_form (buf, 18, li, 0, 0) -#define GEN_BL(buf, li) gen_i_form (buf, 18, li, 0, 1) - -/* Generate a b-form instruction in BUF and return the number of bytes written. - - 0 6 11 16 30 31 32 - | OPCD | BO | BI | BD |AA|LK| */ - -static int -gen_b_form (uint32_t *buf, int opcd, int bo, int bi, int bd, - int aa, int lk) -{ - uint32_t insn; - - gdb_assert ((opcd & ~0x3f) == 0); - gdb_assert ((bo & ~0x1f) == 0); - gdb_assert ((bi & ~0x1f) == 0); - - insn = (bo << 21) | (bi << 16) | (bd & 0xfffc) | (aa & 1) | (lk & 1); - *buf = (opcd << 26) | insn; - return 1; -} - -/* The following are frequently used b-form instructions. */ -/* Assume bi = cr7. */ -#define GEN_BNE(buf, bd) gen_b_form (buf, 16, 0x4, (7 << 2) | 2, bd, 0 ,0) - -/* GEN_LOAD and GEN_STORE generate 64- or 32-bit load/store for ppc64 or ppc32 - respectively. They are primary used for save/restore GPRs in jump-pad, - not used for bytecode compiling. */ - -#ifdef __powerpc64__ -#define GEN_LOAD(buf, rt, ra, si, is_64) (is_64 ? \ - GEN_LD (buf, rt, ra, si) : \ - GEN_LWZ (buf, rt, ra, si)) -#define GEN_STORE(buf, rt, ra, si, is_64) (is_64 ? \ - GEN_STD (buf, rt, ra, si) : \ - GEN_STW (buf, rt, ra, si)) -#else -#define GEN_LOAD(buf, rt, ra, si, is_64) GEN_LWZ (buf, rt, ra, si) -#define GEN_STORE(buf, rt, ra, si, is_64) GEN_STW (buf, rt, ra, si) -#endif - -/* Generate a sequence of instructions to load IMM in the register REG. - Write the instructions in BUF and return the number of bytes written. */ - -static int -gen_limm (uint32_t *buf, int reg, uint64_t imm, int is_64) -{ - uint32_t *p = buf; - - if ((imm + 32768) < 65536) - { - /* li reg, imm[15:0] */ - p += GEN_LI (p, reg, imm); - } - else if ((imm >> 32) == 0) - { - /* lis reg, imm[31:16] - ori reg, reg, imm[15:0] - rldicl reg, reg, 0, 32 */ - p += GEN_LIS (p, reg, (imm >> 16) & 0xffff); - if ((imm & 0xffff) != 0) - p += GEN_ORI (p, reg, reg, imm & 0xffff); - /* Clear upper 32-bit if sign-bit is set. */ - if (imm & (1u << 31) && is_64) - p += GEN_RLDICL (p, reg, reg, 0, 32); - } - else - { - gdb_assert (is_64); - /* lis reg, - ori reg, reg, - rldicr reg, reg, 32, 31 - oris reg, reg, - ori reg, reg, */ - p += GEN_LIS (p, reg, ((imm >> 48) & 0xffff)); - if (((imm >> 32) & 0xffff) != 0) - p += GEN_ORI (p, reg, reg, ((imm >> 32) & 0xffff)); - p += GEN_RLDICR (p, reg, reg, 32, 31); - if (((imm >> 16) & 0xffff) != 0) - p += GEN_ORIS (p, reg, reg, ((imm >> 16) & 0xffff)); - if ((imm & 0xffff) != 0) - p += GEN_ORI (p, reg, reg, (imm & 0xffff)); - } - - return p - buf; -} - -/* Generate a sequence for atomically exchange at location LOCK. - This code sequence clobbers r6, r7, r8. LOCK is the location for - the atomic-xchg, OLD_VALUE is expected old value stored in the - location, and R_NEW is a register for the new value. */ - -static int -gen_atomic_xchg (uint32_t *buf, CORE_ADDR lock, int old_value, int r_new, - int is_64) -{ - const int r_lock = 6; - const int r_old = 7; - const int r_tmp = 8; - uint32_t *p = buf; - - /* - 1: lwarx TMP, 0, LOCK - cmpwi TMP, OLD - bne 1b - stwcx. NEW, 0, LOCK - bne 1b */ - - p += gen_limm (p, r_lock, lock, is_64); - p += gen_limm (p, r_old, old_value, is_64); - - p += GEN_LWARX (p, r_tmp, 0, r_lock); - p += GEN_CMPW (p, r_tmp, r_old); - p += GEN_BNE (p, -8); - p += GEN_STWCX (p, r_new, 0, r_lock); - p += GEN_BNE (p, -16); - - return p - buf; -} - -/* Generate a sequence of instructions for calling a function - at address of FN. Return the number of bytes are written in BUF. */ - -static int -gen_call (uint32_t *buf, CORE_ADDR fn, int is_64, int is_opd) -{ - uint32_t *p = buf; - - /* Must be called by r12 for caller to calculate TOC address. */ - p += gen_limm (p, 12, fn, is_64); - if (is_opd) - { - p += GEN_LOAD (p, 11, 12, 16, is_64); - p += GEN_LOAD (p, 2, 12, 8, is_64); - p += GEN_LOAD (p, 12, 12, 0, is_64); - } - p += GEN_MTSPR (p, 12, 9); /* mtctr r12 */ - *p++ = 0x4e800421; /* bctrl */ - - return p - buf; -} - -/* Copy the instruction from OLDLOC to *TO, and update *TO to *TO + size - of instruction. This function is used to adjust pc-relative instructions - when copying. */ - -static void -ppc_relocate_instruction (CORE_ADDR *to, CORE_ADDR oldloc) -{ - uint32_t insn, op6; - long rel, newrel; - - read_inferior_memory (oldloc, (unsigned char *) &insn, 4); - op6 = PPC_OP6 (insn); - - if (op6 == 18 && (insn & 2) == 0) - { - /* branch && AA = 0 */ - rel = PPC_LI (insn); - newrel = (oldloc - *to) + rel; - - /* Out of range. Cannot relocate instruction. */ - if (newrel >= (1 << 25) || newrel < -(1 << 25)) - return; - - insn = (insn & ~0x3fffffc) | (newrel & 0x3fffffc); - } - else if (op6 == 16 && (insn & 2) == 0) - { - /* conditional branch && AA = 0 */ - - /* If the new relocation is too big for even a 26-bit unconditional - branch, there is nothing we can do. Just abort. - - Otherwise, if it can be fit in 16-bit conditional branch, just - copy the instruction and relocate the address. - - If the it's big for conditional-branch (16-bit), try to invert the - condition and jump with 26-bit branch. For example, - - beq .Lgoto - INSN1 - - => - - bne 1f (+8) - b .Lgoto - 1:INSN1 - - After this transform, we are actually jump from *TO+4 instead of *TO, - so check the relocation again because it will be 1-insn farther then - before if *TO is after OLDLOC. - - - For BDNZT (or so) is transformed from - - bdnzt eq, .Lgoto - INSN1 - - => - - bdz 1f (+12) - bf eq, 1f (+8) - b .Lgoto - 1:INSN1 - - See also "BO field encodings". */ - - rel = PPC_BD (insn); - newrel = (oldloc - *to) + rel; - - if (newrel < (1 << 15) && newrel >= -(1 << 15)) - insn = (insn & ~0xfffc) | (newrel & 0xfffc); - else if ((PPC_BO (insn) & 0x14) == 0x4 || (PPC_BO (insn) & 0x14) == 0x10) - { - newrel -= 4; - - /* Out of range. Cannot relocate instruction. */ - if (newrel >= (1 << 25) || newrel < -(1 << 25)) - return; - - if ((PPC_BO (insn) & 0x14) == 0x4) - insn ^= (1 << 24); - else if ((PPC_BO (insn) & 0x14) == 0x10) - insn ^= (1 << 22); - - /* Jump over the unconditional branch. */ - insn = (insn & ~0xfffc) | 0x8; - target_write_memory (*to, (unsigned char *) &insn, 4); - *to += 4; - - /* Build a unconditional branch and copy LK bit. */ - insn = (18 << 26) | (0x3fffffc & newrel) | (insn & 0x3); - target_write_memory (*to, (unsigned char *) &insn, 4); - *to += 4; - - return; - } - else if ((PPC_BO (insn) & 0x14) == 0) - { - uint32_t bdnz_insn = (16 << 26) | (0x10 << 21) | 12; - uint32_t bf_insn = (16 << 26) | (0x4 << 21) | 8; - - newrel -= 8; - - /* Out of range. Cannot relocate instruction. */ - if (newrel >= (1 << 25) || newrel < -(1 << 25)) - return; - - /* Copy BI field. */ - bf_insn |= (insn & 0x1f0000); - - /* Invert condition. */ - bdnz_insn |= (insn ^ (1 << 22)) & (1 << 22); - bf_insn |= (insn ^ (1 << 24)) & (1 << 24); - - target_write_memory (*to, (unsigned char *) &bdnz_insn, 4); - *to += 4; - target_write_memory (*to, (unsigned char *) &bf_insn, 4); - *to += 4; - - /* Build a unconditional branch and copy LK bit. */ - insn = (18 << 26) | (0x3fffffc & newrel) | (insn & 0x3); - target_write_memory (*to, (unsigned char *) &insn, 4); - *to += 4; - - return; - } - else /* (BO & 0x14) == 0x14, branch always. */ - { - /* Out of range. Cannot relocate instruction. */ - if (newrel >= (1 << 25) || newrel < -(1 << 25)) - return; - - /* Build a unconditional branch and copy LK bit. */ - insn = (18 << 26) | (0x3fffffc & newrel) | (insn & 0x3); - target_write_memory (*to, (unsigned char *) &insn, 4); - *to += 4; - - return; - } - } - - target_write_memory (*to, (unsigned char *) &insn, 4); - *to += 4; -} - -/* Implement install_fast_tracepoint_jump_pad of target_ops. - See target.h for details. */ - -static int -ppc_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, CORE_ADDR tpaddr, - CORE_ADDR collector, - CORE_ADDR lockaddr, - ULONGEST orig_size, - CORE_ADDR *jump_entry, - CORE_ADDR *trampoline, - ULONGEST *trampoline_size, - unsigned char *jjump_pad_insn, - ULONGEST *jjump_pad_insn_size, - CORE_ADDR *adjusted_insn_addr, - CORE_ADDR *adjusted_insn_addr_end, - char *err) -{ - uint32_t buf[256]; - uint32_t *p = buf; - int j, offset; - CORE_ADDR buildaddr = *jump_entry; - const CORE_ADDR entryaddr = *jump_entry; - int rsz, min_frame, frame_size, tp_reg; -#ifdef __powerpc64__ - struct regcache *regcache = get_thread_regcache (current_thread, 0); - int is_64 = register_size (regcache->tdesc, 0) == 8; - int is_opd = is_64 && !is_elfv2_inferior (); -#else - int is_64 = 0, is_opd = 0; -#endif - -#ifdef __powerpc64__ - if (is_64) - { - /* Minimum frame size is 32 bytes for ELFv2, and 112 bytes for ELFv1. */ - rsz = 8; - min_frame = 112; - frame_size = (40 * rsz) + min_frame; - tp_reg = 13; - } - else - { -#endif - rsz = 4; - min_frame = 16; - frame_size = (40 * rsz) + min_frame; - tp_reg = 2; -#ifdef __powerpc64__ - } -#endif - - /* Stack frame layout for this jump pad, - - High thread_area (r13/r2) | - tpoint - collecting_t obj - PC/ | +36 - CTR | +35 - LR | +34 - XER | +33 - CR | +32 - R31 | - R29 | - ... | - R1 | +1 - R0 - collected registers - ... | - ... | - Low Back-chain - - - - The code flow of this jump pad, - - 1. Adjust SP - 2. Save GPR and SPR - 3. Prepare argument - 4. Call gdb_collector - 5. Restore GPR and SPR - 6. Restore SP - 7. Build a jump for back to the program - 8. Copy/relocate original instruction - 9. Build a jump for replacing original instruction. */ - - /* Adjust stack pointer. */ - if (is_64) - p += GEN_STDU (p, 1, 1, -frame_size); /* stdu r1,-frame_size(r1) */ - else - p += GEN_STWU (p, 1, 1, -frame_size); /* stwu r1,-frame_size(r1) */ - - /* Store GPRs. Save R1 later, because it had just been modified, but - we want the original value. */ - for (j = 2; j < 32; j++) - p += GEN_STORE (p, j, 1, min_frame + j * rsz, is_64); - p += GEN_STORE (p, 0, 1, min_frame + 0 * rsz, is_64); - /* Set r0 to the original value of r1 before adjusting stack frame, - and then save it. */ - p += GEN_ADDI (p, 0, 1, frame_size); - p += GEN_STORE (p, 0, 1, min_frame + 1 * rsz, is_64); - - /* Save CR, XER, LR, and CTR. */ - p += GEN_MFCR (p, 3); /* mfcr r3 */ - p += GEN_MFSPR (p, 4, 1); /* mfxer r4 */ - p += GEN_MFSPR (p, 5, 8); /* mflr r5 */ - p += GEN_MFSPR (p, 6, 9); /* mfctr r6 */ - p += GEN_STORE (p, 3, 1, min_frame + 32 * rsz, is_64);/* std r3, 32(r1) */ - p += GEN_STORE (p, 4, 1, min_frame + 33 * rsz, is_64);/* std r4, 33(r1) */ - p += GEN_STORE (p, 5, 1, min_frame + 34 * rsz, is_64);/* std r5, 34(r1) */ - p += GEN_STORE (p, 6, 1, min_frame + 35 * rsz, is_64);/* std r6, 35(r1) */ - - /* Save PC */ - p += gen_limm (p, 3, tpaddr, is_64); - p += GEN_STORE (p, 3, 1, min_frame + 36 * rsz, is_64); - - - /* Setup arguments to collector. */ - /* Set r4 to collected registers. */ - p += GEN_ADDI (p, 4, 1, min_frame); - /* Set r3 to TPOINT. */ - p += gen_limm (p, 3, tpoint, is_64); - - /* Prepare collecting_t object for lock. */ - p += GEN_STORE (p, 3, 1, min_frame + 37 * rsz, is_64); - p += GEN_STORE (p, tp_reg, 1, min_frame + 38 * rsz, is_64); - /* Set R5 to collecting object. */ - p += GEN_ADDI (p, 5, 1, 37 * rsz); - - p += GEN_LWSYNC (p); - p += gen_atomic_xchg (p, lockaddr, 0, 5, is_64); - p += GEN_LWSYNC (p); - - /* Call to collector. */ - p += gen_call (p, collector, is_64, is_opd); - - /* Simply write 0 to release the lock. */ - p += gen_limm (p, 3, lockaddr, is_64); - p += gen_limm (p, 4, 0, is_64); - p += GEN_LWSYNC (p); - p += GEN_STORE (p, 4, 3, 0, is_64); - - /* Restore stack and registers. */ - p += GEN_LOAD (p, 3, 1, min_frame + 32 * rsz, is_64); /* ld r3, 32(r1) */ - p += GEN_LOAD (p, 4, 1, min_frame + 33 * rsz, is_64); /* ld r4, 33(r1) */ - p += GEN_LOAD (p, 5, 1, min_frame + 34 * rsz, is_64); /* ld r5, 34(r1) */ - p += GEN_LOAD (p, 6, 1, min_frame + 35 * rsz, is_64); /* ld r6, 35(r1) */ - p += GEN_MTCR (p, 3); /* mtcr r3 */ - p += GEN_MTSPR (p, 4, 1); /* mtxer r4 */ - p += GEN_MTSPR (p, 5, 8); /* mtlr r5 */ - p += GEN_MTSPR (p, 6, 9); /* mtctr r6 */ - - /* Restore GPRs. */ - for (j = 2; j < 32; j++) - p += GEN_LOAD (p, j, 1, min_frame + j * rsz, is_64); - p += GEN_LOAD (p, 0, 1, min_frame + 0 * rsz, is_64); - /* Restore SP. */ - p += GEN_ADDI (p, 1, 1, frame_size); - - /* Flush instructions to inferior memory. */ - target_write_memory (buildaddr, (unsigned char *) buf, (p - buf) * 4); - - /* Now, insert the original instruction to execute in the jump pad. */ - *adjusted_insn_addr = buildaddr + (p - buf) * 4; - *adjusted_insn_addr_end = *adjusted_insn_addr; - ppc_relocate_instruction (adjusted_insn_addr_end, tpaddr); - - /* Verify the relocation size. If should be 4 for normal copy, - 8 or 12 for some conditional branch. */ - if ((*adjusted_insn_addr_end - *adjusted_insn_addr == 0) - || (*adjusted_insn_addr_end - *adjusted_insn_addr > 12)) - { - sprintf (err, "E.Unexpected instruction length = %d" - "when relocate instruction.", - (int) (*adjusted_insn_addr_end - *adjusted_insn_addr)); - return 1; - } - - buildaddr = *adjusted_insn_addr_end; - p = buf; - /* Finally, write a jump back to the program. */ - offset = (tpaddr + 4) - buildaddr; - if (offset >= (1 << 25) || offset < -(1 << 25)) - { - sprintf (err, "E.Jump back from jump pad too far from tracepoint " - "(offset 0x%x > 26-bit).", offset); - return 1; - } - /* b */ - p += GEN_B (p, offset); - target_write_memory (buildaddr, (unsigned char *) buf, (p - buf) * 4); - *jump_entry = buildaddr + (p - buf) * 4; - - /* The jump pad is now built. Wire in a jump to our jump pad. This - is always done last (by our caller actually), so that we can - install fast tracepoints with threads running. This relies on - the agent's atomic write support. */ - offset = entryaddr - tpaddr; - if (offset >= (1 << 25) || offset < -(1 << 25)) - { - sprintf (err, "E.Jump back from jump pad too far from tracepoint " - "(offset 0x%x > 26-bit).", offset); - return 1; - } - /* b */ - GEN_B ((uint32_t *) jjump_pad_insn, offset); - *jjump_pad_insn_size = 4; - - return 0; -} - -/* Returns the minimum instruction length for installing a tracepoint. */ - -static int -ppc_get_min_fast_tracepoint_insn_len (void) -{ - return 4; -} - -/* Emits a given buffer into the target at current_insn_ptr. Length - is in units of 32-bit words. */ - -static void -emit_insns (uint32_t *buf, int n) -{ - n = n * sizeof (uint32_t); - target_write_memory (current_insn_ptr, (unsigned char *) buf, n); - current_insn_ptr += n; -} - -#define __EMIT_ASM(NAME, INSNS) \ - do \ - { \ - extern uint32_t start_bcax_ ## NAME []; \ - extern uint32_t end_bcax_ ## NAME []; \ - emit_insns (start_bcax_ ## NAME, \ - end_bcax_ ## NAME - start_bcax_ ## NAME); \ - __asm__ (".section .text.__ppcbcax\n\t" \ - "start_bcax_" #NAME ":\n\t" \ - INSNS "\n\t" \ - "end_bcax_" #NAME ":\n\t" \ - ".previous\n\t"); \ - } while (0) - -#define _EMIT_ASM(NAME, INSNS) __EMIT_ASM (NAME, INSNS) -#define EMIT_ASM(INSNS) _EMIT_ASM (__LINE__, INSNS) - -/* - - Bytecode execution stack frame - 32-bit - - | LR save area (SP + 4) - SP' -> +- Back chain (SP + 0) - | Save r31 for access saved arguments - | Save r30 for bytecode stack pointer - | Save r4 for incoming argument *value - | Save r3 for incoming argument regs - r30 -> +- Bytecode execution stack - | - | 64-byte (8 doublewords) at initial. - | Expand stack as needed. - | - +- - | Some padding for minimum stack frame and 16-byte alignment. - | 16 bytes. - SP +- Back-chain (SP') - - initial frame size - = 16 + (4 * 4) + 64 - = 96 - - r30 is the stack-pointer for bytecode machine. - It should point to next-empty, so we can use LDU for pop. - r3 is used for cache of the high part of TOP value. - It was the first argument, pointer to regs. - r4 is used for cache of the low part of TOP value. - It was the second argument, pointer to the result. - We should set *result = TOP after leaving this function. - - Note: - * To restore stack at epilogue - => sp = r31 - * To check stack is big enough for bytecode execution. - => r30 - 8 > SP + 8 - * To return execution result. - => 0(r4) = TOP - - */ - -/* Regardless of endian, register 3 is always high part, 4 is low part. - These defines are used when the register pair is stored/loaded. - Likewise, to simplify code, have a similiar define for 5:6. */ - -#if __BYTE_ORDER == __LITTLE_ENDIAN -#define TOP_FIRST "4" -#define TOP_SECOND "3" -#define TMP_FIRST "6" -#define TMP_SECOND "5" -#else -#define TOP_FIRST "3" -#define TOP_SECOND "4" -#define TMP_FIRST "5" -#define TMP_SECOND "6" -#endif - -/* Emit prologue in inferior memory. See above comments. */ - -static void -ppc_emit_prologue (void) -{ - EMIT_ASM (/* Save return address. */ - "mflr 0 \n" - "stw 0, 4(1) \n" - /* Adjust SP. 96 is the initial frame size. */ - "stwu 1, -96(1) \n" - /* Save r30 and incoming arguments. */ - "stw 31, 96-4(1) \n" - "stw 30, 96-8(1) \n" - "stw 4, 96-12(1) \n" - "stw 3, 96-16(1) \n" - /* Point r31 to original r1 for access arguments. */ - "addi 31, 1, 96 \n" - /* Set r30 to pointing stack-top. */ - "addi 30, 1, 64 \n" - /* Initial r3/TOP to 0. */ - "li 3, 0 \n" - "li 4, 0 \n"); -} - -/* Emit epilogue in inferior memory. See above comments. */ - -static void -ppc_emit_epilogue (void) -{ - EMIT_ASM (/* *result = TOP */ - "lwz 5, -12(31) \n" - "stw " TOP_FIRST ", 0(5) \n" - "stw " TOP_SECOND ", 4(5) \n" - /* Restore registers. */ - "lwz 31, -4(31) \n" - "lwz 30, -8(31) \n" - /* Restore SP. */ - "lwz 1, 0(1) \n" - /* Restore LR. */ - "lwz 0, 4(1) \n" - /* Return 0 for no-error. */ - "li 3, 0 \n" - "mtlr 0 \n" - "blr \n"); -} - -/* TOP = stack[--sp] + TOP */ - -static void -ppc_emit_add (void) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30)\n" - "addc 4, 6, 4 \n" - "adde 3, 5, 3 \n"); -} - -/* TOP = stack[--sp] - TOP */ - -static void -ppc_emit_sub (void) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "subfc 4, 4, 6 \n" - "subfe 3, 3, 5 \n"); -} - -/* TOP = stack[--sp] * TOP */ - -static void -ppc_emit_mul (void) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "mulhwu 7, 6, 4 \n" - "mullw 3, 6, 3 \n" - "mullw 5, 4, 5 \n" - "mullw 4, 6, 4 \n" - "add 3, 5, 3 \n" - "add 3, 7, 3 \n"); -} - -/* TOP = stack[--sp] << TOP */ - -static void -ppc_emit_lsh (void) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "subfic 3, 4, 32\n" /* r3 = 32 - TOP */ - "addi 7, 4, -32\n" /* r7 = TOP - 32 */ - "slw 5, 5, 4\n" /* Shift high part left */ - "slw 4, 6, 4\n" /* Shift low part left */ - "srw 3, 6, 3\n" /* Shift low to high if shift < 32 */ - "slw 7, 6, 7\n" /* Shift low to high if shift >= 32 */ - "or 3, 5, 3\n" - "or 3, 7, 3\n"); /* Assemble high part */ -} - -/* Top = stack[--sp] >> TOP - (Arithmetic shift right) */ - -static void -ppc_emit_rsh_signed (void) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "addi 7, 4, -32\n" /* r7 = TOP - 32 */ - "sraw 3, 5, 4\n" /* Shift high part right */ - "cmpwi 7, 1\n" - "blt 0, 1f\n" /* If shift <= 32, goto 1: */ - "sraw 4, 5, 7\n" /* Shift high to low */ - "b 2f\n" - "1:\n" - "subfic 7, 4, 32\n" /* r7 = 32 - TOP */ - "srw 4, 6, 4\n" /* Shift low part right */ - "slw 5, 5, 7\n" /* Shift high to low */ - "or 4, 4, 5\n" /* Assemble low part */ - "2:\n"); -} - -/* Top = stack[--sp] >> TOP - (Logical shift right) */ - -static void -ppc_emit_rsh_unsigned (void) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "subfic 3, 4, 32\n" /* r3 = 32 - TOP */ - "addi 7, 4, -32\n" /* r7 = TOP - 32 */ - "srw 6, 6, 4\n" /* Shift low part right */ - "slw 3, 5, 3\n" /* Shift high to low if shift < 32 */ - "srw 7, 5, 7\n" /* Shift high to low if shift >= 32 */ - "or 6, 6, 3\n" - "srw 3, 5, 4\n" /* Shift high part right */ - "or 4, 6, 7\n"); /* Assemble low part */ -} - -/* Emit code for signed-extension specified by ARG. */ - -static void -ppc_emit_ext (int arg) -{ - switch (arg) - { - case 8: - EMIT_ASM ("extsb 4, 4\n" - "srawi 3, 4, 31"); - break; - case 16: - EMIT_ASM ("extsh 4, 4\n" - "srawi 3, 4, 31"); - break; - case 32: - EMIT_ASM ("srawi 3, 4, 31"); - break; - default: - emit_error = 1; - } -} - -/* Emit code for zero-extension specified by ARG. */ - -static void -ppc_emit_zero_ext (int arg) -{ - switch (arg) - { - case 8: - EMIT_ASM ("clrlwi 4,4,24\n" - "li 3, 0\n"); - break; - case 16: - EMIT_ASM ("clrlwi 4,4,16\n" - "li 3, 0\n"); - break; - case 32: - EMIT_ASM ("li 3, 0"); - break; - default: - emit_error = 1; - } -} - -/* TOP = !TOP - i.e., TOP = (TOP == 0) ? 1 : 0; */ - -static void -ppc_emit_log_not (void) -{ - EMIT_ASM ("or 4, 3, 4 \n" - "cntlzw 4, 4 \n" - "srwi 4, 4, 5 \n" - "li 3, 0 \n"); -} - -/* TOP = stack[--sp] & TOP */ - -static void -ppc_emit_bit_and (void) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "and 4, 6, 4 \n" - "and 3, 5, 3 \n"); -} - -/* TOP = stack[--sp] | TOP */ - -static void -ppc_emit_bit_or (void) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "or 4, 6, 4 \n" - "or 3, 5, 3 \n"); -} - -/* TOP = stack[--sp] ^ TOP */ - -static void -ppc_emit_bit_xor (void) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "xor 4, 6, 4 \n" - "xor 3, 5, 3 \n"); -} - -/* TOP = ~TOP - i.e., TOP = ~(TOP | TOP) */ - -static void -ppc_emit_bit_not (void) -{ - EMIT_ASM ("nor 3, 3, 3 \n" - "nor 4, 4, 4 \n"); -} - -/* TOP = stack[--sp] == TOP */ - -static void -ppc_emit_equal (void) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "xor 4, 6, 4 \n" - "xor 3, 5, 3 \n" - "or 4, 3, 4 \n" - "cntlzw 4, 4 \n" - "srwi 4, 4, 5 \n" - "li 3, 0 \n"); -} - -/* TOP = stack[--sp] < TOP - (Signed comparison) */ - -static void -ppc_emit_less_signed (void) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "cmplw 6, 6, 4 \n" - "cmpw 7, 5, 3 \n" - /* CR6 bit 0 = low less and high equal */ - "crand 6*4+0, 6*4+0, 7*4+2\n" - /* CR7 bit 0 = (low less and high equal) or high less */ - "cror 7*4+0, 7*4+0, 6*4+0\n" - "mfcr 4 \n" - "rlwinm 4, 4, 29, 31, 31 \n" - "li 3, 0 \n"); -} - -/* TOP = stack[--sp] < TOP - (Unsigned comparison) */ - -static void -ppc_emit_less_unsigned (void) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "cmplw 6, 6, 4 \n" - "cmplw 7, 5, 3 \n" - /* CR6 bit 0 = low less and high equal */ - "crand 6*4+0, 6*4+0, 7*4+2\n" - /* CR7 bit 0 = (low less and high equal) or high less */ - "cror 7*4+0, 7*4+0, 6*4+0\n" - "mfcr 4 \n" - "rlwinm 4, 4, 29, 31, 31 \n" - "li 3, 0 \n"); -} - -/* Access the memory address in TOP in size of SIZE. - Zero-extend the read value. */ - -static void -ppc_emit_ref (int size) -{ - switch (size) - { - case 1: - EMIT_ASM ("lbz 4, 0(4)\n" - "li 3, 0"); - break; - case 2: - EMIT_ASM ("lhz 4, 0(4)\n" - "li 3, 0"); - break; - case 4: - EMIT_ASM ("lwz 4, 0(4)\n" - "li 3, 0"); - break; - case 8: - if (__BYTE_ORDER == __LITTLE_ENDIAN) - EMIT_ASM ("lwz 3, 4(4)\n" - "lwz 4, 0(4)"); - else - EMIT_ASM ("lwz 3, 0(4)\n" - "lwz 4, 4(4)"); - break; - } -} - -/* TOP = NUM */ - -static void -ppc_emit_const (LONGEST num) -{ - uint32_t buf[10]; - uint32_t *p = buf; - - p += gen_limm (p, 3, num >> 32 & 0xffffffff, 0); - p += gen_limm (p, 4, num & 0xffffffff, 0); - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* Set TOP to the value of register REG by calling get_raw_reg function - with two argument, collected buffer and register number. */ - -static void -ppc_emit_reg (int reg) -{ - uint32_t buf[13]; - uint32_t *p = buf; - - /* fctx->regs is passed in r3 and then saved in -16(31). */ - p += GEN_LWZ (p, 3, 31, -16); - p += GEN_LI (p, 4, reg); /* li r4, reg */ - p += gen_call (p, get_raw_reg_func_addr (), 0, 0); - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); - - if (__BYTE_ORDER == __LITTLE_ENDIAN) - { - EMIT_ASM ("mr 5, 4\n" - "mr 4, 3\n" - "mr 3, 5\n"); - } -} - -/* TOP = stack[--sp] */ - -static void -ppc_emit_pop (void) -{ - EMIT_ASM ("lwzu " TOP_FIRST ", 8(30) \n" - "lwz " TOP_SECOND ", 4(30) \n"); -} - -/* stack[sp++] = TOP - - Because we may use up bytecode stack, expand 8 doublewords more - if needed. */ - -static void -ppc_emit_stack_flush (void) -{ - /* Make sure bytecode stack is big enough before push. - Otherwise, expand 64-byte more. */ - - EMIT_ASM (" stw " TOP_FIRST ", 0(30) \n" - " stw " TOP_SECOND ", 4(30)\n" - " addi 5, 30, -(8 + 8) \n" - " cmpw 7, 5, 1 \n" - " bgt 7, 1f \n" - " stwu 31, -64(1) \n" - "1:addi 30, 30, -8 \n"); -} - -/* Swap TOP and stack[sp-1] */ - -static void -ppc_emit_swap (void) -{ - EMIT_ASM ("lwz " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 12(30) \n" - "stw " TOP_FIRST ", 8(30) \n" - "stw " TOP_SECOND ", 12(30) \n" - "mr 3, 5 \n" - "mr 4, 6 \n"); -} - -/* Discard N elements in the stack. Also used for ppc64. */ - -static void -ppc_emit_stack_adjust (int n) -{ - uint32_t buf[6]; - uint32_t *p = buf; - - n = n << 3; - if ((n >> 15) != 0) - { - emit_error = 1; - return; - } - - p += GEN_ADDI (p, 30, 30, n); - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* Call function FN. */ - -static void -ppc_emit_call (CORE_ADDR fn) -{ - uint32_t buf[11]; - uint32_t *p = buf; - - p += gen_call (p, fn, 0, 0); - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* FN's prototype is `LONGEST(*fn)(int)'. - TOP = fn (arg1) - */ - -static void -ppc_emit_int_call_1 (CORE_ADDR fn, int arg1) -{ - uint32_t buf[15]; - uint32_t *p = buf; - - /* Setup argument. arg1 is a 16-bit value. */ - p += gen_limm (p, 3, (uint32_t) arg1, 0); - p += gen_call (p, fn, 0, 0); - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); - - if (__BYTE_ORDER == __LITTLE_ENDIAN) - { - EMIT_ASM ("mr 5, 4\n" - "mr 4, 3\n" - "mr 3, 5\n"); - } -} - -/* FN's prototype is `void(*fn)(int,LONGEST)'. - fn (arg1, TOP) - - TOP should be preserved/restored before/after the call. */ - -static void -ppc_emit_void_call_2 (CORE_ADDR fn, int arg1) -{ - uint32_t buf[21]; - uint32_t *p = buf; - - /* Save TOP. 0(30) is next-empty. */ - p += GEN_STW (p, 3, 30, 0); - p += GEN_STW (p, 4, 30, 4); - - /* Setup argument. arg1 is a 16-bit value. */ - if (__BYTE_ORDER == __LITTLE_ENDIAN) - { - p += GEN_MR (p, 5, 4); - p += GEN_MR (p, 6, 3); - } - else - { - p += GEN_MR (p, 5, 3); - p += GEN_MR (p, 6, 4); - } - p += gen_limm (p, 3, (uint32_t) arg1, 0); - p += gen_call (p, fn, 0, 0); - - /* Restore TOP */ - p += GEN_LWZ (p, 3, 30, 0); - p += GEN_LWZ (p, 4, 30, 4); - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* Note in the following goto ops: - - When emitting goto, the target address is later relocated by - write_goto_address. OFFSET_P is the offset of the branch instruction - in the code sequence, and SIZE_P is how to relocate the instruction, - recognized by ppc_write_goto_address. In current implementation, - SIZE can be either 24 or 14 for branch of conditional-branch instruction. - */ - -/* If TOP is true, goto somewhere. Otherwise, just fall-through. */ - -static void -ppc_emit_if_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("or. 3, 3, 4 \n" - "lwzu " TOP_FIRST ", 8(30) \n" - "lwz " TOP_SECOND ", 4(30) \n" - "1:bne 0, 1b \n"); - - if (offset_p) - *offset_p = 12; - if (size_p) - *size_p = 14; -} - -/* Unconditional goto. Also used for ppc64. */ - -static void -ppc_emit_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("1:b 1b"); - - if (offset_p) - *offset_p = 0; - if (size_p) - *size_p = 24; -} - -/* Goto if stack[--sp] == TOP */ - -static void -ppc_emit_eq_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "xor 4, 6, 4 \n" - "xor 3, 5, 3 \n" - "or. 3, 3, 4 \n" - "lwzu " TOP_FIRST ", 8(30) \n" - "lwz " TOP_SECOND ", 4(30) \n" - "1:beq 0, 1b \n"); - - if (offset_p) - *offset_p = 28; - if (size_p) - *size_p = 14; -} - -/* Goto if stack[--sp] != TOP */ - -static void -ppc_emit_ne_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "xor 4, 6, 4 \n" - "xor 3, 5, 3 \n" - "or. 3, 3, 4 \n" - "lwzu " TOP_FIRST ", 8(30) \n" - "lwz " TOP_SECOND ", 4(30) \n" - "1:bne 0, 1b \n"); - - if (offset_p) - *offset_p = 28; - if (size_p) - *size_p = 14; -} - -/* Goto if stack[--sp] < TOP */ - -static void -ppc_emit_lt_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "cmplw 6, 6, 4 \n" - "cmpw 7, 5, 3 \n" - /* CR6 bit 0 = low less and high equal */ - "crand 6*4+0, 6*4+0, 7*4+2\n" - /* CR7 bit 0 = (low less and high equal) or high less */ - "cror 7*4+0, 7*4+0, 6*4+0\n" - "lwzu " TOP_FIRST ", 8(30) \n" - "lwz " TOP_SECOND ", 4(30)\n" - "1:blt 7, 1b \n"); - - if (offset_p) - *offset_p = 32; - if (size_p) - *size_p = 14; -} - -/* Goto if stack[--sp] <= TOP */ - -static void -ppc_emit_le_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "cmplw 6, 6, 4 \n" - "cmpw 7, 5, 3 \n" - /* CR6 bit 0 = low less/equal and high equal */ - "crandc 6*4+0, 7*4+2, 6*4+1\n" - /* CR7 bit 0 = (low less/eq and high equal) or high less */ - "cror 7*4+0, 7*4+0, 6*4+0\n" - "lwzu " TOP_FIRST ", 8(30) \n" - "lwz " TOP_SECOND ", 4(30)\n" - "1:blt 7, 1b \n"); - - if (offset_p) - *offset_p = 32; - if (size_p) - *size_p = 14; -} - -/* Goto if stack[--sp] > TOP */ - -static void -ppc_emit_gt_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "cmplw 6, 6, 4 \n" - "cmpw 7, 5, 3 \n" - /* CR6 bit 0 = low greater and high equal */ - "crand 6*4+0, 6*4+1, 7*4+2\n" - /* CR7 bit 0 = (low greater and high equal) or high greater */ - "cror 7*4+0, 7*4+1, 6*4+0\n" - "lwzu " TOP_FIRST ", 8(30) \n" - "lwz " TOP_SECOND ", 4(30)\n" - "1:blt 7, 1b \n"); - - if (offset_p) - *offset_p = 32; - if (size_p) - *size_p = 14; -} - -/* Goto if stack[--sp] >= TOP */ - -static void -ppc_emit_ge_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" - "lwz " TMP_SECOND ", 4(30) \n" - "cmplw 6, 6, 4 \n" - "cmpw 7, 5, 3 \n" - /* CR6 bit 0 = low ge and high equal */ - "crandc 6*4+0, 7*4+2, 6*4+0\n" - /* CR7 bit 0 = (low ge and high equal) or high greater */ - "cror 7*4+0, 7*4+1, 6*4+0\n" - "lwzu " TOP_FIRST ", 8(30)\n" - "lwz " TOP_SECOND ", 4(30)\n" - "1:blt 7, 1b \n"); - - if (offset_p) - *offset_p = 32; - if (size_p) - *size_p = 14; -} - -/* Relocate previous emitted branch instruction. FROM is the address - of the branch instruction, TO is the goto target address, and SIZE - if the value we set by *SIZE_P before. Currently, it is either - 24 or 14 of branch and conditional-branch instruction. - Also used for ppc64. */ - -static void -ppc_write_goto_address (CORE_ADDR from, CORE_ADDR to, int size) -{ - long rel = to - from; - uint32_t insn; - int opcd; - - read_inferior_memory (from, (unsigned char *) &insn, 4); - opcd = (insn >> 26) & 0x3f; - - switch (size) - { - case 14: - if (opcd != 16 - || (rel >= (1 << 15) || rel < -(1 << 15))) - emit_error = 1; - insn = (insn & ~0xfffc) | (rel & 0xfffc); - break; - case 24: - if (opcd != 18 - || (rel >= (1 << 25) || rel < -(1 << 25))) - emit_error = 1; - insn = (insn & ~0x3fffffc) | (rel & 0x3fffffc); - break; - default: - emit_error = 1; - } - - if (!emit_error) - target_write_memory (from, (unsigned char *) &insn, 4); -} - -/* Table of emit ops for 32-bit. */ - -static struct emit_ops ppc_emit_ops_impl = -{ - ppc_emit_prologue, - ppc_emit_epilogue, - ppc_emit_add, - ppc_emit_sub, - ppc_emit_mul, - ppc_emit_lsh, - ppc_emit_rsh_signed, - ppc_emit_rsh_unsigned, - ppc_emit_ext, - ppc_emit_log_not, - ppc_emit_bit_and, - ppc_emit_bit_or, - ppc_emit_bit_xor, - ppc_emit_bit_not, - ppc_emit_equal, - ppc_emit_less_signed, - ppc_emit_less_unsigned, - ppc_emit_ref, - ppc_emit_if_goto, - ppc_emit_goto, - ppc_write_goto_address, - ppc_emit_const, - ppc_emit_call, - ppc_emit_reg, - ppc_emit_pop, - ppc_emit_stack_flush, - ppc_emit_zero_ext, - ppc_emit_swap, - ppc_emit_stack_adjust, - ppc_emit_int_call_1, - ppc_emit_void_call_2, - ppc_emit_eq_goto, - ppc_emit_ne_goto, - ppc_emit_lt_goto, - ppc_emit_le_goto, - ppc_emit_gt_goto, - ppc_emit_ge_goto -}; - -#ifdef __powerpc64__ - -/* - - Bytecode execution stack frame - 64-bit - - | LR save area (SP + 16) - | CR save area (SP + 8) - SP' -> +- Back chain (SP + 0) - | Save r31 for access saved arguments - | Save r30 for bytecode stack pointer - | Save r4 for incoming argument *value - | Save r3 for incoming argument regs - r30 -> +- Bytecode execution stack - | - | 64-byte (8 doublewords) at initial. - | Expand stack as needed. - | - +- - | Some padding for minimum stack frame. - | 112 for ELFv1. - SP +- Back-chain (SP') - - initial frame size - = 112 + (4 * 8) + 64 - = 208 - - r30 is the stack-pointer for bytecode machine. - It should point to next-empty, so we can use LDU for pop. - r3 is used for cache of TOP value. - It was the first argument, pointer to regs. - r4 is the second argument, pointer to the result. - We should set *result = TOP after leaving this function. - - Note: - * To restore stack at epilogue - => sp = r31 - * To check stack is big enough for bytecode execution. - => r30 - 8 > SP + 112 - * To return execution result. - => 0(r4) = TOP - - */ - -/* Emit prologue in inferior memory. See above comments. */ - -static void -ppc64v1_emit_prologue (void) -{ - /* On ELFv1, function pointers really point to function descriptor, - so emit one here. We don't care about contents of words 1 and 2, - so let them just overlap out code. */ - uint64_t opd = current_insn_ptr + 8; - uint32_t buf[2]; - - /* Mind the strict aliasing rules. */ - memcpy (buf, &opd, sizeof buf); - emit_insns(buf, 2); - EMIT_ASM (/* Save return address. */ - "mflr 0 \n" - "std 0, 16(1) \n" - /* Save r30 and incoming arguments. */ - "std 31, -8(1) \n" - "std 30, -16(1) \n" - "std 4, -24(1) \n" - "std 3, -32(1) \n" - /* Point r31 to current r1 for access arguments. */ - "mr 31, 1 \n" - /* Adjust SP. 208 is the initial frame size. */ - "stdu 1, -208(1) \n" - /* Set r30 to pointing stack-top. */ - "addi 30, 1, 168 \n" - /* Initial r3/TOP to 0. */ - "li 3, 0 \n"); -} - -/* Emit prologue in inferior memory. See above comments. */ - -static void -ppc64v2_emit_prologue (void) -{ - EMIT_ASM (/* Save return address. */ - "mflr 0 \n" - "std 0, 16(1) \n" - /* Save r30 and incoming arguments. */ - "std 31, -8(1) \n" - "std 30, -16(1) \n" - "std 4, -24(1) \n" - "std 3, -32(1) \n" - /* Point r31 to current r1 for access arguments. */ - "mr 31, 1 \n" - /* Adjust SP. 208 is the initial frame size. */ - "stdu 1, -208(1) \n" - /* Set r30 to pointing stack-top. */ - "addi 30, 1, 168 \n" - /* Initial r3/TOP to 0. */ - "li 3, 0 \n"); -} - -/* Emit epilogue in inferior memory. See above comments. */ - -static void -ppc64_emit_epilogue (void) -{ - EMIT_ASM (/* Restore SP. */ - "ld 1, 0(1) \n" - /* *result = TOP */ - "ld 4, -24(1) \n" - "std 3, 0(4) \n" - /* Restore registers. */ - "ld 31, -8(1) \n" - "ld 30, -16(1) \n" - /* Restore LR. */ - "ld 0, 16(1) \n" - /* Return 0 for no-error. */ - "li 3, 0 \n" - "mtlr 0 \n" - "blr \n"); -} - -/* TOP = stack[--sp] + TOP */ - -static void -ppc64_emit_add (void) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "add 3, 4, 3 \n"); -} - -/* TOP = stack[--sp] - TOP */ - -static void -ppc64_emit_sub (void) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "sub 3, 4, 3 \n"); -} - -/* TOP = stack[--sp] * TOP */ - -static void -ppc64_emit_mul (void) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "mulld 3, 4, 3 \n"); -} - -/* TOP = stack[--sp] << TOP */ - -static void -ppc64_emit_lsh (void) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "sld 3, 4, 3 \n"); -} - -/* Top = stack[--sp] >> TOP - (Arithmetic shift right) */ - -static void -ppc64_emit_rsh_signed (void) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "srad 3, 4, 3 \n"); -} - -/* Top = stack[--sp] >> TOP - (Logical shift right) */ - -static void -ppc64_emit_rsh_unsigned (void) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "srd 3, 4, 3 \n"); -} - -/* Emit code for signed-extension specified by ARG. */ - -static void -ppc64_emit_ext (int arg) -{ - switch (arg) - { - case 8: - EMIT_ASM ("extsb 3, 3"); - break; - case 16: - EMIT_ASM ("extsh 3, 3"); - break; - case 32: - EMIT_ASM ("extsw 3, 3"); - break; - default: - emit_error = 1; - } -} - -/* Emit code for zero-extension specified by ARG. */ - -static void -ppc64_emit_zero_ext (int arg) -{ - switch (arg) - { - case 8: - EMIT_ASM ("rldicl 3,3,0,56"); - break; - case 16: - EMIT_ASM ("rldicl 3,3,0,48"); - break; - case 32: - EMIT_ASM ("rldicl 3,3,0,32"); - break; - default: - emit_error = 1; - } -} - -/* TOP = !TOP - i.e., TOP = (TOP == 0) ? 1 : 0; */ - -static void -ppc64_emit_log_not (void) -{ - EMIT_ASM ("cntlzd 3, 3 \n" - "srdi 3, 3, 6 \n"); -} - -/* TOP = stack[--sp] & TOP */ - -static void -ppc64_emit_bit_and (void) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "and 3, 4, 3 \n"); -} - -/* TOP = stack[--sp] | TOP */ - -static void -ppc64_emit_bit_or (void) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "or 3, 4, 3 \n"); -} - -/* TOP = stack[--sp] ^ TOP */ - -static void -ppc64_emit_bit_xor (void) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "xor 3, 4, 3 \n"); -} - -/* TOP = ~TOP - i.e., TOP = ~(TOP | TOP) */ - -static void -ppc64_emit_bit_not (void) -{ - EMIT_ASM ("nor 3, 3, 3 \n"); -} - -/* TOP = stack[--sp] == TOP */ - -static void -ppc64_emit_equal (void) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "xor 3, 3, 4 \n" - "cntlzd 3, 3 \n" - "srdi 3, 3, 6 \n"); -} - -/* TOP = stack[--sp] < TOP - (Signed comparison) */ - -static void -ppc64_emit_less_signed (void) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "cmpd 7, 4, 3 \n" - "mfcr 3 \n" - "rlwinm 3, 3, 29, 31, 31 \n"); -} - -/* TOP = stack[--sp] < TOP - (Unsigned comparison) */ - -static void -ppc64_emit_less_unsigned (void) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "cmpld 7, 4, 3 \n" - "mfcr 3 \n" - "rlwinm 3, 3, 29, 31, 31 \n"); -} - -/* Access the memory address in TOP in size of SIZE. - Zero-extend the read value. */ - -static void -ppc64_emit_ref (int size) -{ - switch (size) - { - case 1: - EMIT_ASM ("lbz 3, 0(3)"); - break; - case 2: - EMIT_ASM ("lhz 3, 0(3)"); - break; - case 4: - EMIT_ASM ("lwz 3, 0(3)"); - break; - case 8: - EMIT_ASM ("ld 3, 0(3)"); - break; - } -} - -/* TOP = NUM */ - -static void -ppc64_emit_const (LONGEST num) -{ - uint32_t buf[5]; - uint32_t *p = buf; - - p += gen_limm (p, 3, num, 1); - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* Set TOP to the value of register REG by calling get_raw_reg function - with two argument, collected buffer and register number. */ - -static void -ppc64v1_emit_reg (int reg) -{ - uint32_t buf[15]; - uint32_t *p = buf; - - /* fctx->regs is passed in r3 and then saved in 176(1). */ - p += GEN_LD (p, 3, 31, -32); - p += GEN_LI (p, 4, reg); - p += GEN_STD (p, 2, 1, 40); /* Save TOC. */ - p += gen_call (p, get_raw_reg_func_addr (), 1, 1); - p += GEN_LD (p, 2, 1, 40); /* Restore TOC. */ - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* Likewise, for ELFv2. */ - -static void -ppc64v2_emit_reg (int reg) -{ - uint32_t buf[12]; - uint32_t *p = buf; - - /* fctx->regs is passed in r3 and then saved in 176(1). */ - p += GEN_LD (p, 3, 31, -32); - p += GEN_LI (p, 4, reg); - p += GEN_STD (p, 2, 1, 24); /* Save TOC. */ - p += gen_call (p, get_raw_reg_func_addr (), 1, 0); - p += GEN_LD (p, 2, 1, 24); /* Restore TOC. */ - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* TOP = stack[--sp] */ - -static void -ppc64_emit_pop (void) -{ - EMIT_ASM ("ldu 3, 8(30)"); -} - -/* stack[sp++] = TOP - - Because we may use up bytecode stack, expand 8 doublewords more - if needed. */ - -static void -ppc64_emit_stack_flush (void) -{ - /* Make sure bytecode stack is big enough before push. - Otherwise, expand 64-byte more. */ - - EMIT_ASM (" std 3, 0(30) \n" - " addi 4, 30, -(112 + 8) \n" - " cmpd 7, 4, 1 \n" - " bgt 7, 1f \n" - " stdu 31, -64(1) \n" - "1:addi 30, 30, -8 \n"); -} - -/* Swap TOP and stack[sp-1] */ - -static void -ppc64_emit_swap (void) -{ - EMIT_ASM ("ld 4, 8(30) \n" - "std 3, 8(30) \n" - "mr 3, 4 \n"); -} - -/* Call function FN - ELFv1. */ - -static void -ppc64v1_emit_call (CORE_ADDR fn) -{ - uint32_t buf[13]; - uint32_t *p = buf; - - p += GEN_STD (p, 2, 1, 40); /* Save TOC. */ - p += gen_call (p, fn, 1, 1); - p += GEN_LD (p, 2, 1, 40); /* Restore TOC. */ - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* Call function FN - ELFv2. */ - -static void -ppc64v2_emit_call (CORE_ADDR fn) -{ - uint32_t buf[10]; - uint32_t *p = buf; - - p += GEN_STD (p, 2, 1, 24); /* Save TOC. */ - p += gen_call (p, fn, 1, 0); - p += GEN_LD (p, 2, 1, 24); /* Restore TOC. */ - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* FN's prototype is `LONGEST(*fn)(int)'. - TOP = fn (arg1) - */ - -static void -ppc64v1_emit_int_call_1 (CORE_ADDR fn, int arg1) -{ - uint32_t buf[13]; - uint32_t *p = buf; - - /* Setup argument. arg1 is a 16-bit value. */ - p += gen_limm (p, 3, arg1, 1); - p += GEN_STD (p, 2, 1, 40); /* Save TOC. */ - p += gen_call (p, fn, 1, 1); - p += GEN_LD (p, 2, 1, 40); /* Restore TOC. */ - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* Likewise for ELFv2. */ - -static void -ppc64v2_emit_int_call_1 (CORE_ADDR fn, int arg1) -{ - uint32_t buf[10]; - uint32_t *p = buf; - - /* Setup argument. arg1 is a 16-bit value. */ - p += gen_limm (p, 3, arg1, 1); - p += GEN_STD (p, 2, 1, 24); /* Save TOC. */ - p += gen_call (p, fn, 1, 0); - p += GEN_LD (p, 2, 1, 24); /* Restore TOC. */ - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* FN's prototype is `void(*fn)(int,LONGEST)'. - fn (arg1, TOP) - - TOP should be preserved/restored before/after the call. */ - -static void -ppc64v1_emit_void_call_2 (CORE_ADDR fn, int arg1) -{ - uint32_t buf[17]; - uint32_t *p = buf; - - /* Save TOP. 0(30) is next-empty. */ - p += GEN_STD (p, 3, 30, 0); - - /* Setup argument. arg1 is a 16-bit value. */ - p += GEN_MR (p, 4, 3); /* mr r4, r3 */ - p += gen_limm (p, 3, arg1, 1); - p += GEN_STD (p, 2, 1, 40); /* Save TOC. */ - p += gen_call (p, fn, 1, 1); - p += GEN_LD (p, 2, 1, 40); /* Restore TOC. */ - - /* Restore TOP */ - p += GEN_LD (p, 3, 30, 0); - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* Likewise for ELFv2. */ - -static void -ppc64v2_emit_void_call_2 (CORE_ADDR fn, int arg1) -{ - uint32_t buf[14]; - uint32_t *p = buf; - - /* Save TOP. 0(30) is next-empty. */ - p += GEN_STD (p, 3, 30, 0); - - /* Setup argument. arg1 is a 16-bit value. */ - p += GEN_MR (p, 4, 3); /* mr r4, r3 */ - p += gen_limm (p, 3, arg1, 1); - p += GEN_STD (p, 2, 1, 24); /* Save TOC. */ - p += gen_call (p, fn, 1, 0); - p += GEN_LD (p, 2, 1, 24); /* Restore TOC. */ - - /* Restore TOP */ - p += GEN_LD (p, 3, 30, 0); - - emit_insns (buf, p - buf); - gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); -} - -/* If TOP is true, goto somewhere. Otherwise, just fall-through. */ - -static void -ppc64_emit_if_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("cmpdi 7, 3, 0 \n" - "ldu 3, 8(30) \n" - "1:bne 7, 1b \n"); - - if (offset_p) - *offset_p = 8; - if (size_p) - *size_p = 14; -} - -/* Goto if stack[--sp] == TOP */ - -static void -ppc64_emit_eq_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "cmpd 7, 4, 3 \n" - "ldu 3, 8(30) \n" - "1:beq 7, 1b \n"); - - if (offset_p) - *offset_p = 12; - if (size_p) - *size_p = 14; -} - -/* Goto if stack[--sp] != TOP */ - -static void -ppc64_emit_ne_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "cmpd 7, 4, 3 \n" - "ldu 3, 8(30) \n" - "1:bne 7, 1b \n"); - - if (offset_p) - *offset_p = 12; - if (size_p) - *size_p = 14; -} - -/* Goto if stack[--sp] < TOP */ - -static void -ppc64_emit_lt_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "cmpd 7, 4, 3 \n" - "ldu 3, 8(30) \n" - "1:blt 7, 1b \n"); - - if (offset_p) - *offset_p = 12; - if (size_p) - *size_p = 14; -} - -/* Goto if stack[--sp] <= TOP */ - -static void -ppc64_emit_le_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "cmpd 7, 4, 3 \n" - "ldu 3, 8(30) \n" - "1:ble 7, 1b \n"); - - if (offset_p) - *offset_p = 12; - if (size_p) - *size_p = 14; -} - -/* Goto if stack[--sp] > TOP */ - -static void -ppc64_emit_gt_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "cmpd 7, 4, 3 \n" - "ldu 3, 8(30) \n" - "1:bgt 7, 1b \n"); - - if (offset_p) - *offset_p = 12; - if (size_p) - *size_p = 14; -} - -/* Goto if stack[--sp] >= TOP */ - -static void -ppc64_emit_ge_goto (int *offset_p, int *size_p) -{ - EMIT_ASM ("ldu 4, 8(30) \n" - "cmpd 7, 4, 3 \n" - "ldu 3, 8(30) \n" - "1:bge 7, 1b \n"); - - if (offset_p) - *offset_p = 12; - if (size_p) - *size_p = 14; -} - -/* Table of emit ops for 64-bit ELFv1. */ - -static struct emit_ops ppc64v1_emit_ops_impl = -{ - ppc64v1_emit_prologue, - ppc64_emit_epilogue, - ppc64_emit_add, - ppc64_emit_sub, - ppc64_emit_mul, - ppc64_emit_lsh, - ppc64_emit_rsh_signed, - ppc64_emit_rsh_unsigned, - ppc64_emit_ext, - ppc64_emit_log_not, - ppc64_emit_bit_and, - ppc64_emit_bit_or, - ppc64_emit_bit_xor, - ppc64_emit_bit_not, - ppc64_emit_equal, - ppc64_emit_less_signed, - ppc64_emit_less_unsigned, - ppc64_emit_ref, - ppc64_emit_if_goto, - ppc_emit_goto, - ppc_write_goto_address, - ppc64_emit_const, - ppc64v1_emit_call, - ppc64v1_emit_reg, - ppc64_emit_pop, - ppc64_emit_stack_flush, - ppc64_emit_zero_ext, - ppc64_emit_swap, - ppc_emit_stack_adjust, - ppc64v1_emit_int_call_1, - ppc64v1_emit_void_call_2, - ppc64_emit_eq_goto, - ppc64_emit_ne_goto, - ppc64_emit_lt_goto, - ppc64_emit_le_goto, - ppc64_emit_gt_goto, - ppc64_emit_ge_goto -}; - -/* Table of emit ops for 64-bit ELFv2. */ - -static struct emit_ops ppc64v2_emit_ops_impl = -{ - ppc64v2_emit_prologue, - ppc64_emit_epilogue, - ppc64_emit_add, - ppc64_emit_sub, - ppc64_emit_mul, - ppc64_emit_lsh, - ppc64_emit_rsh_signed, - ppc64_emit_rsh_unsigned, - ppc64_emit_ext, - ppc64_emit_log_not, - ppc64_emit_bit_and, - ppc64_emit_bit_or, - ppc64_emit_bit_xor, - ppc64_emit_bit_not, - ppc64_emit_equal, - ppc64_emit_less_signed, - ppc64_emit_less_unsigned, - ppc64_emit_ref, - ppc64_emit_if_goto, - ppc_emit_goto, - ppc_write_goto_address, - ppc64_emit_const, - ppc64v2_emit_call, - ppc64v2_emit_reg, - ppc64_emit_pop, - ppc64_emit_stack_flush, - ppc64_emit_zero_ext, - ppc64_emit_swap, - ppc_emit_stack_adjust, - ppc64v2_emit_int_call_1, - ppc64v2_emit_void_call_2, - ppc64_emit_eq_goto, - ppc64_emit_ne_goto, - ppc64_emit_lt_goto, - ppc64_emit_le_goto, - ppc64_emit_gt_goto, - ppc64_emit_ge_goto -}; - -#endif - -/* Implementation of linux_target_ops method "emit_ops". */ - -static struct emit_ops * -ppc_emit_ops (void) -{ -#ifdef __powerpc64__ - struct regcache *regcache = get_thread_regcache (current_thread, 0); - - if (register_size (regcache->tdesc, 0) == 8) - { - if (is_elfv2_inferior ()) - return &ppc64v2_emit_ops_impl; - else - return &ppc64v1_emit_ops_impl; - } -#endif - return &ppc_emit_ops_impl; -} - -/* Implementation of linux_target_ops method "get_ipa_tdesc_idx". */ - -static int -ppc_get_ipa_tdesc_idx (void) -{ - struct regcache *regcache = get_thread_regcache (current_thread, 0); - const struct target_desc *tdesc = regcache->tdesc; - -#ifdef __powerpc64__ - if (tdesc == tdesc_powerpc_64l) - return PPC_TDESC_BASE; - if (tdesc == tdesc_powerpc_altivec64l) - return PPC_TDESC_ALTIVEC; - if (tdesc == tdesc_powerpc_vsx64l) - return PPC_TDESC_VSX; - if (tdesc == tdesc_powerpc_isa205_64l) - return PPC_TDESC_ISA205; - if (tdesc == tdesc_powerpc_isa205_altivec64l) - return PPC_TDESC_ISA205_ALTIVEC; - if (tdesc == tdesc_powerpc_isa205_vsx64l) - return PPC_TDESC_ISA205_VSX; - if (tdesc == tdesc_powerpc_isa205_ppr_dscr_vsx64l) - return PPC_TDESC_ISA205_PPR_DSCR_VSX; - if (tdesc == tdesc_powerpc_isa207_vsx64l) - return PPC_TDESC_ISA207_VSX; - if (tdesc == tdesc_powerpc_isa207_htm_vsx64l) - return PPC_TDESC_ISA207_HTM_VSX; -#endif - - if (tdesc == tdesc_powerpc_32l) - return PPC_TDESC_BASE; - if (tdesc == tdesc_powerpc_altivec32l) - return PPC_TDESC_ALTIVEC; - if (tdesc == tdesc_powerpc_vsx32l) - return PPC_TDESC_VSX; - if (tdesc == tdesc_powerpc_isa205_32l) - return PPC_TDESC_ISA205; - if (tdesc == tdesc_powerpc_isa205_altivec32l) - return PPC_TDESC_ISA205_ALTIVEC; - if (tdesc == tdesc_powerpc_isa205_vsx32l) - return PPC_TDESC_ISA205_VSX; - if (tdesc == tdesc_powerpc_isa205_ppr_dscr_vsx32l) - return PPC_TDESC_ISA205_PPR_DSCR_VSX; - if (tdesc == tdesc_powerpc_isa207_vsx32l) - return PPC_TDESC_ISA207_VSX; - if (tdesc == tdesc_powerpc_isa207_htm_vsx32l) - return PPC_TDESC_ISA207_HTM_VSX; - if (tdesc == tdesc_powerpc_e500l) - return PPC_TDESC_E500; - - return 0; -} - -struct linux_target_ops the_low_target = { - ppc_arch_setup, - ppc_regs_info, - ppc_cannot_fetch_register, - ppc_cannot_store_register, - NULL, /* fetch_register */ - ppc_get_pc, - ppc_set_pc, - NULL, /* breakpoint_kind_from_pc */ - ppc_sw_breakpoint_from_kind, - NULL, - 0, - ppc_breakpoint_at, - ppc_supports_z_point_type, - ppc_insert_point, - ppc_remove_point, - NULL, - NULL, - ppc_collect_ptrace_register, - ppc_supply_ptrace_register, - NULL, /* siginfo_fixup */ - NULL, /* new_process */ - NULL, /* delete_process */ - NULL, /* new_thread */ - NULL, /* delete_thread */ - NULL, /* new_fork */ - NULL, /* prepare_to_resume */ - NULL, /* process_qsupported */ - ppc_supports_tracepoints, - ppc_get_thread_area, - ppc_install_fast_tracepoint_jump_pad, - ppc_emit_ops, - ppc_get_min_fast_tracepoint_insn_len, - NULL, /* supports_range_stepping */ - NULL, /* breakpoint_kind_from_current_state */ - ppc_supports_hardware_single_step, - NULL, /* get_syscall_trapinfo */ - ppc_get_ipa_tdesc_idx, -}; - -void -initialize_low_arch (void) -{ - /* Initialize the Linux target descriptions. */ - - init_registers_powerpc_32l (); - init_registers_powerpc_altivec32l (); - init_registers_powerpc_vsx32l (); - init_registers_powerpc_isa205_32l (); - init_registers_powerpc_isa205_altivec32l (); - init_registers_powerpc_isa205_vsx32l (); - init_registers_powerpc_isa205_ppr_dscr_vsx32l (); - init_registers_powerpc_isa207_vsx32l (); - init_registers_powerpc_isa207_htm_vsx32l (); - init_registers_powerpc_e500l (); -#if __powerpc64__ - init_registers_powerpc_64l (); - init_registers_powerpc_altivec64l (); - init_registers_powerpc_vsx64l (); - init_registers_powerpc_isa205_64l (); - init_registers_powerpc_isa205_altivec64l (); - init_registers_powerpc_isa205_vsx64l (); - init_registers_powerpc_isa205_ppr_dscr_vsx64l (); - init_registers_powerpc_isa207_vsx64l (); - init_registers_powerpc_isa207_htm_vsx64l (); -#endif - - initialize_regsets_info (&ppc_regsets_info); -} diff --git a/gdbserver/linux-ppc-low.cc b/gdbserver/linux-ppc-low.cc new file mode 100644 index 00000000000..5d8d67bec2f --- /dev/null +++ b/gdbserver/linux-ppc-low.cc @@ -0,0 +1,3441 @@ +/* GNU/Linux/PowerPC specific low level interface, for the remote server for + GDB. + Copyright (C) 1995-2020 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 . */ + +#include "server.h" +#include "linux-low.h" + +#include "elf/common.h" +#include +#include +#include + +#include "arch/ppc-linux-common.h" +#include "arch/ppc-linux-tdesc.h" +#include "nat/ppc-linux.h" +#include "nat/linux-ptrace.h" +#include "linux-ppc-tdesc-init.h" +#include "ax.h" +#include "tracepoint.h" + +#define PPC_FIELD(value, from, len) \ + (((value) >> (32 - (from) - (len))) & ((1 << (len)) - 1)) +#define PPC_SEXT(v, bs) \ + ((((CORE_ADDR) (v) & (((CORE_ADDR) 1 << (bs)) - 1)) \ + ^ ((CORE_ADDR) 1 << ((bs) - 1))) \ + - ((CORE_ADDR) 1 << ((bs) - 1))) +#define PPC_OP6(insn) PPC_FIELD (insn, 0, 6) +#define PPC_BO(insn) PPC_FIELD (insn, 6, 5) +#define PPC_LI(insn) (PPC_SEXT (PPC_FIELD (insn, 6, 24), 24) << 2) +#define PPC_BD(insn) (PPC_SEXT (PPC_FIELD (insn, 16, 14), 14) << 2) + +/* Holds the AT_HWCAP auxv entry. */ + +static unsigned long ppc_hwcap; + +/* Holds the AT_HWCAP2 auxv entry. */ + +static unsigned long ppc_hwcap2; + + +#define ppc_num_regs 73 + +#ifdef __powerpc64__ +/* We use a constant for FPSCR instead of PT_FPSCR, because + many shipped PPC64 kernels had the wrong value in ptrace.h. */ +static int ppc_regmap[] = + {PT_R0 * 8, PT_R1 * 8, PT_R2 * 8, PT_R3 * 8, + PT_R4 * 8, PT_R5 * 8, PT_R6 * 8, PT_R7 * 8, + PT_R8 * 8, PT_R9 * 8, PT_R10 * 8, PT_R11 * 8, + PT_R12 * 8, PT_R13 * 8, PT_R14 * 8, PT_R15 * 8, + PT_R16 * 8, PT_R17 * 8, PT_R18 * 8, PT_R19 * 8, + PT_R20 * 8, PT_R21 * 8, PT_R22 * 8, PT_R23 * 8, + PT_R24 * 8, PT_R25 * 8, PT_R26 * 8, PT_R27 * 8, + PT_R28 * 8, PT_R29 * 8, PT_R30 * 8, PT_R31 * 8, + PT_FPR0*8, PT_FPR0*8 + 8, PT_FPR0*8+16, PT_FPR0*8+24, + PT_FPR0*8+32, PT_FPR0*8+40, PT_FPR0*8+48, PT_FPR0*8+56, + PT_FPR0*8+64, PT_FPR0*8+72, PT_FPR0*8+80, PT_FPR0*8+88, + PT_FPR0*8+96, PT_FPR0*8+104, PT_FPR0*8+112, PT_FPR0*8+120, + PT_FPR0*8+128, PT_FPR0*8+136, PT_FPR0*8+144, PT_FPR0*8+152, + PT_FPR0*8+160, PT_FPR0*8+168, PT_FPR0*8+176, PT_FPR0*8+184, + PT_FPR0*8+192, PT_FPR0*8+200, PT_FPR0*8+208, PT_FPR0*8+216, + PT_FPR0*8+224, PT_FPR0*8+232, PT_FPR0*8+240, PT_FPR0*8+248, + PT_NIP * 8, PT_MSR * 8, PT_CCR * 8, PT_LNK * 8, + PT_CTR * 8, PT_XER * 8, PT_FPR0*8 + 256, + PT_ORIG_R3 * 8, PT_TRAP * 8 }; +#else +/* Currently, don't check/send MQ. */ +static int ppc_regmap[] = + {PT_R0 * 4, PT_R1 * 4, PT_R2 * 4, PT_R3 * 4, + PT_R4 * 4, PT_R5 * 4, PT_R6 * 4, PT_R7 * 4, + PT_R8 * 4, PT_R9 * 4, PT_R10 * 4, PT_R11 * 4, + PT_R12 * 4, PT_R13 * 4, PT_R14 * 4, PT_R15 * 4, + PT_R16 * 4, PT_R17 * 4, PT_R18 * 4, PT_R19 * 4, + PT_R20 * 4, PT_R21 * 4, PT_R22 * 4, PT_R23 * 4, + PT_R24 * 4, PT_R25 * 4, PT_R26 * 4, PT_R27 * 4, + PT_R28 * 4, PT_R29 * 4, PT_R30 * 4, PT_R31 * 4, + PT_FPR0*4, PT_FPR0*4 + 8, PT_FPR0*4+16, PT_FPR0*4+24, + PT_FPR0*4+32, PT_FPR0*4+40, PT_FPR0*4+48, PT_FPR0*4+56, + PT_FPR0*4+64, PT_FPR0*4+72, PT_FPR0*4+80, PT_FPR0*4+88, + PT_FPR0*4+96, PT_FPR0*4+104, PT_FPR0*4+112, PT_FPR0*4+120, + PT_FPR0*4+128, PT_FPR0*4+136, PT_FPR0*4+144, PT_FPR0*4+152, + PT_FPR0*4+160, PT_FPR0*4+168, PT_FPR0*4+176, PT_FPR0*4+184, + PT_FPR0*4+192, PT_FPR0*4+200, PT_FPR0*4+208, PT_FPR0*4+216, + PT_FPR0*4+224, PT_FPR0*4+232, PT_FPR0*4+240, PT_FPR0*4+248, + PT_NIP * 4, PT_MSR * 4, PT_CCR * 4, PT_LNK * 4, + PT_CTR * 4, PT_XER * 4, PT_FPSCR * 4, + PT_ORIG_R3 * 4, PT_TRAP * 4 + }; + +static int ppc_regmap_e500[] = + {PT_R0 * 4, PT_R1 * 4, PT_R2 * 4, PT_R3 * 4, + PT_R4 * 4, PT_R5 * 4, PT_R6 * 4, PT_R7 * 4, + PT_R8 * 4, PT_R9 * 4, PT_R10 * 4, PT_R11 * 4, + PT_R12 * 4, PT_R13 * 4, PT_R14 * 4, PT_R15 * 4, + PT_R16 * 4, PT_R17 * 4, PT_R18 * 4, PT_R19 * 4, + PT_R20 * 4, PT_R21 * 4, PT_R22 * 4, PT_R23 * 4, + PT_R24 * 4, PT_R25 * 4, PT_R26 * 4, PT_R27 * 4, + PT_R28 * 4, PT_R29 * 4, PT_R30 * 4, PT_R31 * 4, + -1, -1, -1, -1, + -1, -1, -1, -1, + -1, -1, -1, -1, + -1, -1, -1, -1, + -1, -1, -1, -1, + -1, -1, -1, -1, + -1, -1, -1, -1, + -1, -1, -1, -1, + PT_NIP * 4, PT_MSR * 4, PT_CCR * 4, PT_LNK * 4, + PT_CTR * 4, PT_XER * 4, -1, + PT_ORIG_R3 * 4, PT_TRAP * 4 + }; +#endif + +/* Check whether the kernel provides a register set with number + REGSET_ID of size REGSETSIZE for process/thread TID. */ + +static int +ppc_check_regset (int tid, int regset_id, int regsetsize) +{ + void *buf = alloca (regsetsize); + struct iovec iov; + + iov.iov_base = buf; + iov.iov_len = regsetsize; + + if (ptrace (PTRACE_GETREGSET, tid, regset_id, &iov) >= 0 + || errno == ENODATA) + return 1; + return 0; +} + +static int +ppc_cannot_store_register (int regno) +{ + const struct target_desc *tdesc = current_process ()->tdesc; + +#ifndef __powerpc64__ + /* Some kernels do not allow us to store fpscr. */ + if (!(ppc_hwcap & PPC_FEATURE_HAS_SPE) + && regno == find_regno (tdesc, "fpscr")) + return 2; +#endif + + /* Some kernels do not allow us to store orig_r3 or trap. */ + if (regno == find_regno (tdesc, "orig_r3") + || regno == find_regno (tdesc, "trap")) + return 2; + + return 0; +} + +static int +ppc_cannot_fetch_register (int regno) +{ + return 0; +} + +static void +ppc_collect_ptrace_register (struct regcache *regcache, int regno, char *buf) +{ + memset (buf, 0, sizeof (long)); + + if (__BYTE_ORDER == __LITTLE_ENDIAN) + { + /* Little-endian values always sit at the left end of the buffer. */ + collect_register (regcache, regno, buf); + } + else if (__BYTE_ORDER == __BIG_ENDIAN) + { + /* Big-endian values sit at the right end of the buffer. In case of + registers whose sizes are smaller than sizeof (long), we must use a + padding to access them correctly. */ + int size = register_size (regcache->tdesc, regno); + + if (size < sizeof (long)) + collect_register (regcache, regno, buf + sizeof (long) - size); + else + collect_register (regcache, regno, buf); + } + else + perror_with_name ("Unexpected byte order"); +} + +static void +ppc_supply_ptrace_register (struct regcache *regcache, + int regno, const char *buf) +{ + if (__BYTE_ORDER == __LITTLE_ENDIAN) + { + /* Little-endian values always sit at the left end of the buffer. */ + supply_register (regcache, regno, buf); + } + else if (__BYTE_ORDER == __BIG_ENDIAN) + { + /* Big-endian values sit at the right end of the buffer. In case of + registers whose sizes are smaller than sizeof (long), we must use a + padding to access them correctly. */ + int size = register_size (regcache->tdesc, regno); + + if (size < sizeof (long)) + supply_register (regcache, regno, buf + sizeof (long) - size); + else + supply_register (regcache, regno, buf); + } + else + perror_with_name ("Unexpected byte order"); +} + +static CORE_ADDR +ppc_get_pc (struct regcache *regcache) +{ + if (register_size (regcache->tdesc, 0) == 4) + { + unsigned int pc; + collect_register_by_name (regcache, "pc", &pc); + return (CORE_ADDR) pc; + } + else + { + unsigned long pc; + collect_register_by_name (regcache, "pc", &pc); + return (CORE_ADDR) pc; + } +} + +static void +ppc_set_pc (struct regcache *regcache, CORE_ADDR pc) +{ + if (register_size (regcache->tdesc, 0) == 4) + { + unsigned int newpc = pc; + supply_register_by_name (regcache, "pc", &newpc); + } + else + { + unsigned long newpc = pc; + supply_register_by_name (regcache, "pc", &newpc); + } +} + +#ifndef __powerpc64__ +static int ppc_regmap_adjusted; +#endif + + +/* Correct in either endianness. + This instruction is "twge r2, r2", which GDB uses as a software + breakpoint. */ +static const unsigned int ppc_breakpoint = 0x7d821008; +#define ppc_breakpoint_len 4 + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +ppc_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = ppc_breakpoint_len; + return (const gdb_byte *) &ppc_breakpoint; +} + +static int +ppc_breakpoint_at (CORE_ADDR where) +{ + unsigned int insn; + + (*the_target->read_memory) (where, (unsigned char *) &insn, 4); + if (insn == ppc_breakpoint) + return 1; + /* If necessary, recognize more trap instructions here. GDB only uses + the one. */ + + return 0; +} + +/* Implement supports_z_point_type target-ops. + Returns true if type Z_TYPE breakpoint is supported. + + Handling software breakpoint at server side, so tracepoints + and breakpoints can be inserted at the same location. */ + +static int +ppc_supports_z_point_type (char z_type) +{ + switch (z_type) + { + case Z_PACKET_SW_BP: + return 1; + case Z_PACKET_HW_BP: + case Z_PACKET_WRITE_WP: + case Z_PACKET_ACCESS_WP: + default: + return 0; + } +} + +/* Implement insert_point target-ops. + Returns 0 on success, -1 on failure and 1 on unsupported. */ + +static int +ppc_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, + int size, struct raw_breakpoint *bp) +{ + switch (type) + { + case raw_bkpt_type_sw: + return insert_memory_breakpoint (bp); + + case raw_bkpt_type_hw: + case raw_bkpt_type_write_wp: + case raw_bkpt_type_access_wp: + default: + /* Unsupported. */ + return 1; + } +} + +/* Implement remove_point target-ops. + Returns 0 on success, -1 on failure and 1 on unsupported. */ + +static int +ppc_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, + int size, struct raw_breakpoint *bp) +{ + switch (type) + { + case raw_bkpt_type_sw: + return remove_memory_breakpoint (bp); + + case raw_bkpt_type_hw: + case raw_bkpt_type_write_wp: + case raw_bkpt_type_access_wp: + default: + /* Unsupported. */ + return 1; + } +} + +/* Provide only a fill function for the general register set. ps_lgetregs + will use this for NPTL support. */ + +static void ppc_fill_gregset (struct regcache *regcache, void *buf) +{ + int i; + + for (i = 0; i < 32; i++) + ppc_collect_ptrace_register (regcache, i, (char *) buf + ppc_regmap[i]); + + for (i = 64; i < 70; i++) + ppc_collect_ptrace_register (regcache, i, (char *) buf + ppc_regmap[i]); + + for (i = 71; i < 73; i++) + ppc_collect_ptrace_register (regcache, i, (char *) buf + ppc_regmap[i]); +} + +/* Program Priority Register regset fill function. */ + +static void +ppc_fill_pprregset (struct regcache *regcache, void *buf) +{ + char *ppr = (char *) buf; + + collect_register_by_name (regcache, "ppr", ppr); +} + +/* Program Priority Register regset store function. */ + +static void +ppc_store_pprregset (struct regcache *regcache, const void *buf) +{ + const char *ppr = (const char *) buf; + + supply_register_by_name (regcache, "ppr", ppr); +} + +/* Data Stream Control Register regset fill function. */ + +static void +ppc_fill_dscrregset (struct regcache *regcache, void *buf) +{ + char *dscr = (char *) buf; + + collect_register_by_name (regcache, "dscr", dscr); +} + +/* Data Stream Control Register regset store function. */ + +static void +ppc_store_dscrregset (struct regcache *regcache, const void *buf) +{ + const char *dscr = (const char *) buf; + + supply_register_by_name (regcache, "dscr", dscr); +} + +/* Target Address Register regset fill function. */ + +static void +ppc_fill_tarregset (struct regcache *regcache, void *buf) +{ + char *tar = (char *) buf; + + collect_register_by_name (regcache, "tar", tar); +} + +/* Target Address Register regset store function. */ + +static void +ppc_store_tarregset (struct regcache *regcache, const void *buf) +{ + const char *tar = (const char *) buf; + + supply_register_by_name (regcache, "tar", tar); +} + +/* Event-Based Branching regset store function. Unless the inferior + has a perf event open, ptrace can return in error when reading and + writing to the regset, with ENODATA. For reading, the registers + will correctly show as unavailable. For writing, gdbserver + currently only caches any register writes from P and G packets and + the stub always tries to write all the regsets when resuming the + inferior, which would result in frequent warnings. For this + reason, we don't define a fill function. This also means that the + client-side regcache will be dirty if the user tries to write to + the EBB registers. G packets that the client sends to write to + unrelated registers will also include data for EBB registers, even + if they are unavailable. */ + +static void +ppc_store_ebbregset (struct regcache *regcache, const void *buf) +{ + const char *regset = (const char *) buf; + + /* The order in the kernel regset is: EBBRR, EBBHR, BESCR. In the + .dat file is BESCR, EBBHR, EBBRR. */ + supply_register_by_name (regcache, "ebbrr", ®set[0]); + supply_register_by_name (regcache, "ebbhr", ®set[8]); + supply_register_by_name (regcache, "bescr", ®set[16]); +} + +/* Performance Monitoring Unit regset fill function. */ + +static void +ppc_fill_pmuregset (struct regcache *regcache, void *buf) +{ + char *regset = (char *) buf; + + /* The order in the kernel regset is SIAR, SDAR, SIER, MMCR2, MMCR0. + In the .dat file is MMCR0, MMCR2, SIAR, SDAR, SIER. */ + collect_register_by_name (regcache, "siar", ®set[0]); + collect_register_by_name (regcache, "sdar", ®set[8]); + collect_register_by_name (regcache, "sier", ®set[16]); + collect_register_by_name (regcache, "mmcr2", ®set[24]); + collect_register_by_name (regcache, "mmcr0", ®set[32]); +} + +/* Performance Monitoring Unit regset store function. */ + +static void +ppc_store_pmuregset (struct regcache *regcache, const void *buf) +{ + const char *regset = (const char *) buf; + + supply_register_by_name (regcache, "siar", ®set[0]); + supply_register_by_name (regcache, "sdar", ®set[8]); + supply_register_by_name (regcache, "sier", ®set[16]); + supply_register_by_name (regcache, "mmcr2", ®set[24]); + supply_register_by_name (regcache, "mmcr0", ®set[32]); +} + +/* Hardware Transactional Memory special-purpose register regset fill + function. */ + +static void +ppc_fill_tm_sprregset (struct regcache *regcache, void *buf) +{ + int i, base; + char *regset = (char *) buf; + + base = find_regno (regcache->tdesc, "tfhar"); + for (i = 0; i < 3; i++) + collect_register (regcache, base + i, ®set[i * 8]); +} + +/* Hardware Transactional Memory special-purpose register regset store + function. */ + +static void +ppc_store_tm_sprregset (struct regcache *regcache, const void *buf) +{ + int i, base; + const char *regset = (const char *) buf; + + base = find_regno (regcache->tdesc, "tfhar"); + for (i = 0; i < 3; i++) + supply_register (regcache, base + i, ®set[i * 8]); +} + +/* For the same reasons as the EBB regset, none of the HTM + checkpointed regsets have a fill function. These registers are + only available if the inferior is in a transaction. */ + +/* Hardware Transactional Memory checkpointed general-purpose regset + store function. */ + +static void +ppc_store_tm_cgprregset (struct regcache *regcache, const void *buf) +{ + int i, base, size, endian_offset; + const char *regset = (const char *) buf; + + base = find_regno (regcache->tdesc, "cr0"); + size = register_size (regcache->tdesc, base); + + gdb_assert (size == 4 || size == 8); + + for (i = 0; i < 32; i++) + supply_register (regcache, base + i, ®set[i * size]); + + endian_offset = 0; + + if ((size == 8) && (__BYTE_ORDER == __BIG_ENDIAN)) + endian_offset = 4; + + supply_register_by_name (regcache, "ccr", + ®set[PT_CCR * size + endian_offset]); + + supply_register_by_name (regcache, "cxer", + ®set[PT_XER * size + endian_offset]); + + supply_register_by_name (regcache, "clr", ®set[PT_LNK * size]); + supply_register_by_name (regcache, "cctr", ®set[PT_CTR * size]); +} + +/* Hardware Transactional Memory checkpointed floating-point regset + store function. */ + +static void +ppc_store_tm_cfprregset (struct regcache *regcache, const void *buf) +{ + int i, base; + const char *regset = (const char *) buf; + + base = find_regno (regcache->tdesc, "cf0"); + + for (i = 0; i < 32; i++) + supply_register (regcache, base + i, ®set[i * 8]); + + supply_register_by_name (regcache, "cfpscr", ®set[32 * 8]); +} + +/* Hardware Transactional Memory checkpointed vector regset store + function. */ + +static void +ppc_store_tm_cvrregset (struct regcache *regcache, const void *buf) +{ + int i, base; + const char *regset = (const char *) buf; + int vscr_offset = 0; + + base = find_regno (regcache->tdesc, "cvr0"); + + for (i = 0; i < 32; i++) + supply_register (regcache, base + i, ®set[i * 16]); + + if (__BYTE_ORDER == __BIG_ENDIAN) + vscr_offset = 12; + + supply_register_by_name (regcache, "cvscr", + ®set[32 * 16 + vscr_offset]); + + supply_register_by_name (regcache, "cvrsave", ®set[33 * 16]); +} + +/* Hardware Transactional Memory checkpointed vector-scalar regset + store function. */ + +static void +ppc_store_tm_cvsxregset (struct regcache *regcache, const void *buf) +{ + int i, base; + const char *regset = (const char *) buf; + + base = find_regno (regcache->tdesc, "cvs0h"); + for (i = 0; i < 32; i++) + supply_register (regcache, base + i, ®set[i * 8]); +} + +/* Hardware Transactional Memory checkpointed Program Priority + Register regset store function. */ + +static void +ppc_store_tm_cpprregset (struct regcache *regcache, const void *buf) +{ + const char *cppr = (const char *) buf; + + supply_register_by_name (regcache, "cppr", cppr); +} + +/* Hardware Transactional Memory checkpointed Data Stream Control + Register regset store function. */ + +static void +ppc_store_tm_cdscrregset (struct regcache *regcache, const void *buf) +{ + const char *cdscr = (const char *) buf; + + supply_register_by_name (regcache, "cdscr", cdscr); +} + +/* Hardware Transactional Memory checkpointed Target Address Register + regset store function. */ + +static void +ppc_store_tm_ctarregset (struct regcache *regcache, const void *buf) +{ + const char *ctar = (const char *) buf; + + supply_register_by_name (regcache, "ctar", ctar); +} + +static void +ppc_fill_vsxregset (struct regcache *regcache, void *buf) +{ + int i, base; + char *regset = (char *) buf; + + base = find_regno (regcache->tdesc, "vs0h"); + for (i = 0; i < 32; i++) + collect_register (regcache, base + i, ®set[i * 8]); +} + +static void +ppc_store_vsxregset (struct regcache *regcache, const void *buf) +{ + int i, base; + const char *regset = (const char *) buf; + + base = find_regno (regcache->tdesc, "vs0h"); + for (i = 0; i < 32; i++) + supply_register (regcache, base + i, ®set[i * 8]); +} + +static void +ppc_fill_vrregset (struct regcache *regcache, void *buf) +{ + int i, base; + char *regset = (char *) buf; + int vscr_offset = 0; + + base = find_regno (regcache->tdesc, "vr0"); + for (i = 0; i < 32; i++) + collect_register (regcache, base + i, ®set[i * 16]); + + if (__BYTE_ORDER == __BIG_ENDIAN) + vscr_offset = 12; + + collect_register_by_name (regcache, "vscr", + ®set[32 * 16 + vscr_offset]); + + collect_register_by_name (regcache, "vrsave", ®set[33 * 16]); +} + +static void +ppc_store_vrregset (struct regcache *regcache, const void *buf) +{ + int i, base; + const char *regset = (const char *) buf; + int vscr_offset = 0; + + base = find_regno (regcache->tdesc, "vr0"); + for (i = 0; i < 32; i++) + supply_register (regcache, base + i, ®set[i * 16]); + + if (__BYTE_ORDER == __BIG_ENDIAN) + vscr_offset = 12; + + supply_register_by_name (regcache, "vscr", + ®set[32 * 16 + vscr_offset]); + supply_register_by_name (regcache, "vrsave", ®set[33 * 16]); +} + +struct gdb_evrregset_t +{ + unsigned long evr[32]; + unsigned long long acc; + unsigned long spefscr; +}; + +static void +ppc_fill_evrregset (struct regcache *regcache, void *buf) +{ + int i, ev0; + struct gdb_evrregset_t *regset = (struct gdb_evrregset_t *) buf; + + ev0 = find_regno (regcache->tdesc, "ev0h"); + for (i = 0; i < 32; i++) + collect_register (regcache, ev0 + i, ®set->evr[i]); + + collect_register_by_name (regcache, "acc", ®set->acc); + collect_register_by_name (regcache, "spefscr", ®set->spefscr); +} + +static void +ppc_store_evrregset (struct regcache *regcache, const void *buf) +{ + int i, ev0; + const struct gdb_evrregset_t *regset = (const struct gdb_evrregset_t *) buf; + + ev0 = find_regno (regcache->tdesc, "ev0h"); + for (i = 0; i < 32; i++) + supply_register (regcache, ev0 + i, ®set->evr[i]); + + supply_register_by_name (regcache, "acc", ®set->acc); + supply_register_by_name (regcache, "spefscr", ®set->spefscr); +} + +/* Support for hardware single step. */ + +static int +ppc_supports_hardware_single_step (void) +{ + return 1; +} + +static struct regset_info ppc_regsets[] = { + /* List the extra register sets before GENERAL_REGS. That way we will + fetch them every time, but still fall back to PTRACE_PEEKUSER for the + general registers. Some kernels support these, but not the newer + PPC_PTRACE_GETREGS. */ + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CTAR, 0, EXTENDED_REGS, + NULL, ppc_store_tm_ctarregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CDSCR, 0, EXTENDED_REGS, + NULL, ppc_store_tm_cdscrregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CPPR, 0, EXTENDED_REGS, + NULL, ppc_store_tm_cpprregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CVSX, 0, EXTENDED_REGS, + NULL, ppc_store_tm_cvsxregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CVMX, 0, EXTENDED_REGS, + NULL, ppc_store_tm_cvrregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CFPR, 0, EXTENDED_REGS, + NULL, ppc_store_tm_cfprregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_CGPR, 0, EXTENDED_REGS, + NULL, ppc_store_tm_cgprregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TM_SPR, 0, EXTENDED_REGS, + ppc_fill_tm_sprregset, ppc_store_tm_sprregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_EBB, 0, EXTENDED_REGS, + NULL, ppc_store_ebbregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_PMU, 0, EXTENDED_REGS, + ppc_fill_pmuregset, ppc_store_pmuregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_TAR, 0, EXTENDED_REGS, + ppc_fill_tarregset, ppc_store_tarregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_PPR, 0, EXTENDED_REGS, + ppc_fill_pprregset, ppc_store_pprregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_PPC_DSCR, 0, EXTENDED_REGS, + ppc_fill_dscrregset, ppc_store_dscrregset }, + { PTRACE_GETVSXREGS, PTRACE_SETVSXREGS, 0, 0, EXTENDED_REGS, + ppc_fill_vsxregset, ppc_store_vsxregset }, + { PTRACE_GETVRREGS, PTRACE_SETVRREGS, 0, 0, EXTENDED_REGS, + ppc_fill_vrregset, ppc_store_vrregset }, + { PTRACE_GETEVRREGS, PTRACE_SETEVRREGS, 0, 0, EXTENDED_REGS, + ppc_fill_evrregset, ppc_store_evrregset }, + { 0, 0, 0, 0, GENERAL_REGS, ppc_fill_gregset, NULL }, + NULL_REGSET +}; + +static struct usrregs_info ppc_usrregs_info = + { + ppc_num_regs, + ppc_regmap, + }; + +static struct regsets_info ppc_regsets_info = + { + ppc_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &ppc_usrregs_info, + &ppc_regsets_info + }; + +static const struct regs_info * +ppc_regs_info (void) +{ + return ®s_info; +} + +static void +ppc_arch_setup (void) +{ + const struct target_desc *tdesc; + struct regset_info *regset; + struct ppc_linux_features features = ppc_linux_no_features; + + int tid = lwpid_of (current_thread); + + features.wordsize = ppc_linux_target_wordsize (tid); + + if (features.wordsize == 4) + tdesc = tdesc_powerpc_32l; + else + tdesc = tdesc_powerpc_64l; + + current_process ()->tdesc = tdesc; + + /* The value of current_process ()->tdesc needs to be set for this + call. */ + ppc_hwcap = linux_get_hwcap (features.wordsize); + ppc_hwcap2 = linux_get_hwcap2 (features.wordsize); + + features.isa205 = ppc_linux_has_isa205 (ppc_hwcap); + + if (ppc_hwcap & PPC_FEATURE_HAS_VSX) + features.vsx = true; + + if (ppc_hwcap & PPC_FEATURE_HAS_ALTIVEC) + features.altivec = true; + + if ((ppc_hwcap2 & PPC_FEATURE2_DSCR) + && ppc_check_regset (tid, NT_PPC_DSCR, PPC_LINUX_SIZEOF_DSCRREGSET) + && ppc_check_regset (tid, NT_PPC_PPR, PPC_LINUX_SIZEOF_PPRREGSET)) + { + features.ppr_dscr = true; + if ((ppc_hwcap2 & PPC_FEATURE2_ARCH_2_07) + && (ppc_hwcap2 & PPC_FEATURE2_TAR) + && (ppc_hwcap2 & PPC_FEATURE2_EBB) + && ppc_check_regset (tid, NT_PPC_TAR, + PPC_LINUX_SIZEOF_TARREGSET) + && ppc_check_regset (tid, NT_PPC_EBB, + PPC_LINUX_SIZEOF_EBBREGSET) + && ppc_check_regset (tid, NT_PPC_PMU, + PPC_LINUX_SIZEOF_PMUREGSET)) + { + features.isa207 = true; + if ((ppc_hwcap2 & PPC_FEATURE2_HTM) + && ppc_check_regset (tid, NT_PPC_TM_SPR, + PPC_LINUX_SIZEOF_TM_SPRREGSET)) + features.htm = true; + } + } + + tdesc = ppc_linux_match_description (features); + + /* On 32-bit machines, check for SPE registers. + Set the low target's regmap field as appropriately. */ +#ifndef __powerpc64__ + if (ppc_hwcap & PPC_FEATURE_HAS_SPE) + tdesc = tdesc_powerpc_e500l; + + if (!ppc_regmap_adjusted) + { + if (ppc_hwcap & PPC_FEATURE_HAS_SPE) + ppc_usrregs_info.regmap = ppc_regmap_e500; + + /* If the FPSCR is 64-bit wide, we need to fetch the whole + 64-bit slot and not just its second word. The PT_FPSCR + supplied in a 32-bit GDB compilation doesn't reflect + this. */ + if (register_size (tdesc, 70) == 8) + ppc_regmap[70] = (48 + 2*32) * sizeof (long); + + ppc_regmap_adjusted = 1; + } +#endif + + current_process ()->tdesc = tdesc; + + for (regset = ppc_regsets; regset->size >= 0; regset++) + switch (regset->get_request) + { + case PTRACE_GETVRREGS: + regset->size = features.altivec ? PPC_LINUX_SIZEOF_VRREGSET : 0; + break; + case PTRACE_GETVSXREGS: + regset->size = features.vsx ? PPC_LINUX_SIZEOF_VSXREGSET : 0; + break; + case PTRACE_GETEVRREGS: + if (ppc_hwcap & PPC_FEATURE_HAS_SPE) + regset->size = 32 * 4 + 8 + 4; + else + regset->size = 0; + break; + case PTRACE_GETREGSET: + switch (regset->nt_type) + { + case NT_PPC_PPR: + regset->size = (features.ppr_dscr ? + PPC_LINUX_SIZEOF_PPRREGSET : 0); + break; + case NT_PPC_DSCR: + regset->size = (features.ppr_dscr ? + PPC_LINUX_SIZEOF_DSCRREGSET : 0); + break; + case NT_PPC_TAR: + regset->size = (features.isa207 ? + PPC_LINUX_SIZEOF_TARREGSET : 0); + break; + case NT_PPC_EBB: + regset->size = (features.isa207 ? + PPC_LINUX_SIZEOF_EBBREGSET : 0); + break; + case NT_PPC_PMU: + regset->size = (features.isa207 ? + PPC_LINUX_SIZEOF_PMUREGSET : 0); + break; + case NT_PPC_TM_SPR: + regset->size = (features.htm ? + PPC_LINUX_SIZEOF_TM_SPRREGSET : 0); + break; + case NT_PPC_TM_CGPR: + if (features.wordsize == 4) + regset->size = (features.htm ? + PPC32_LINUX_SIZEOF_CGPRREGSET : 0); + else + regset->size = (features.htm ? + PPC64_LINUX_SIZEOF_CGPRREGSET : 0); + break; + case NT_PPC_TM_CFPR: + regset->size = (features.htm ? + PPC_LINUX_SIZEOF_CFPRREGSET : 0); + break; + case NT_PPC_TM_CVMX: + regset->size = (features.htm ? + PPC_LINUX_SIZEOF_CVMXREGSET : 0); + break; + case NT_PPC_TM_CVSX: + regset->size = (features.htm ? + PPC_LINUX_SIZEOF_CVSXREGSET : 0); + break; + case NT_PPC_TM_CPPR: + regset->size = (features.htm ? + PPC_LINUX_SIZEOF_CPPRREGSET : 0); + break; + case NT_PPC_TM_CDSCR: + regset->size = (features.htm ? + PPC_LINUX_SIZEOF_CDSCRREGSET : 0); + break; + case NT_PPC_TM_CTAR: + regset->size = (features.htm ? + PPC_LINUX_SIZEOF_CTARREGSET : 0); + break; + default: + break; + } + break; + default: + break; + } +} + +/* Implementation of linux_target_ops method "supports_tracepoints". */ + +static int +ppc_supports_tracepoints (void) +{ + return 1; +} + +/* Get the thread area address. This is used to recognize which + thread is which when tracing with the in-process agent library. We + don't read anything from the address, and treat it as opaque; it's + the address itself that we assume is unique per-thread. */ + +static int +ppc_get_thread_area (int lwpid, CORE_ADDR *addr) +{ + struct lwp_info *lwp = find_lwp_pid (ptid_t (lwpid)); + struct thread_info *thr = get_lwp_thread (lwp); + struct regcache *regcache = get_thread_regcache (thr, 1); + ULONGEST tp = 0; + +#ifdef __powerpc64__ + if (register_size (regcache->tdesc, 0) == 8) + collect_register_by_name (regcache, "r13", &tp); + else +#endif + collect_register_by_name (regcache, "r2", &tp); + + *addr = tp; + + return 0; +} + +#ifdef __powerpc64__ + +/* Older glibc doesn't provide this. */ + +#ifndef EF_PPC64_ABI +#define EF_PPC64_ABI 3 +#endif + +/* Returns 1 if inferior is using ELFv2 ABI. Undefined for 32-bit + inferiors. */ + +static int +is_elfv2_inferior (void) +{ + /* To be used as fallback if we're unable to determine the right result - + assume inferior uses the same ABI as gdbserver. */ +#if _CALL_ELF == 2 + const int def_res = 1; +#else + const int def_res = 0; +#endif + CORE_ADDR phdr; + Elf64_Ehdr ehdr; + + const struct target_desc *tdesc = current_process ()->tdesc; + int wordsize = register_size (tdesc, 0); + + if (!linux_get_auxv (wordsize, AT_PHDR, &phdr)) + return def_res; + + /* Assume ELF header is at the beginning of the page where program headers + are located. If it doesn't look like one, bail. */ + + read_inferior_memory (phdr & ~0xfff, (unsigned char *) &ehdr, sizeof ehdr); + if (memcmp(ehdr.e_ident, ELFMAG, SELFMAG)) + return def_res; + + return (ehdr.e_flags & EF_PPC64_ABI) == 2; +} + +#endif + +/* Generate a ds-form instruction in BUF and return the number of bytes written + + 0 6 11 16 30 32 + | OPCD | RST | RA | DS |XO| */ + +__attribute__((unused)) /* Maybe unused due to conditional compilation. */ +static int +gen_ds_form (uint32_t *buf, int opcd, int rst, int ra, int ds, int xo) +{ + uint32_t insn; + + gdb_assert ((opcd & ~0x3f) == 0); + gdb_assert ((rst & ~0x1f) == 0); + gdb_assert ((ra & ~0x1f) == 0); + gdb_assert ((xo & ~0x3) == 0); + + insn = (rst << 21) | (ra << 16) | (ds & 0xfffc) | (xo & 0x3); + *buf = (opcd << 26) | insn; + return 1; +} + +/* Followings are frequently used ds-form instructions. */ + +#define GEN_STD(buf, rs, ra, offset) gen_ds_form (buf, 62, rs, ra, offset, 0) +#define GEN_STDU(buf, rs, ra, offset) gen_ds_form (buf, 62, rs, ra, offset, 1) +#define GEN_LD(buf, rt, ra, offset) gen_ds_form (buf, 58, rt, ra, offset, 0) +#define GEN_LDU(buf, rt, ra, offset) gen_ds_form (buf, 58, rt, ra, offset, 1) + +/* Generate a d-form instruction in BUF. + + 0 6 11 16 32 + | OPCD | RST | RA | D | */ + +static int +gen_d_form (uint32_t *buf, int opcd, int rst, int ra, int si) +{ + uint32_t insn; + + gdb_assert ((opcd & ~0x3f) == 0); + gdb_assert ((rst & ~0x1f) == 0); + gdb_assert ((ra & ~0x1f) == 0); + + insn = (rst << 21) | (ra << 16) | (si & 0xffff); + *buf = (opcd << 26) | insn; + return 1; +} + +/* Followings are frequently used d-form instructions. */ + +#define GEN_ADDI(buf, rt, ra, si) gen_d_form (buf, 14, rt, ra, si) +#define GEN_ADDIS(buf, rt, ra, si) gen_d_form (buf, 15, rt, ra, si) +#define GEN_LI(buf, rt, si) GEN_ADDI (buf, rt, 0, si) +#define GEN_LIS(buf, rt, si) GEN_ADDIS (buf, rt, 0, si) +#define GEN_ORI(buf, rt, ra, si) gen_d_form (buf, 24, rt, ra, si) +#define GEN_ORIS(buf, rt, ra, si) gen_d_form (buf, 25, rt, ra, si) +#define GEN_LWZ(buf, rt, ra, si) gen_d_form (buf, 32, rt, ra, si) +#define GEN_STW(buf, rt, ra, si) gen_d_form (buf, 36, rt, ra, si) +#define GEN_STWU(buf, rt, ra, si) gen_d_form (buf, 37, rt, ra, si) + +/* Generate a xfx-form instruction in BUF and return the number of bytes + written. + + 0 6 11 21 31 32 + | OPCD | RST | RI | XO |/| */ + +static int +gen_xfx_form (uint32_t *buf, int opcd, int rst, int ri, int xo) +{ + uint32_t insn; + unsigned int n = ((ri & 0x1f) << 5) | ((ri >> 5) & 0x1f); + + gdb_assert ((opcd & ~0x3f) == 0); + gdb_assert ((rst & ~0x1f) == 0); + gdb_assert ((xo & ~0x3ff) == 0); + + insn = (rst << 21) | (n << 11) | (xo << 1); + *buf = (opcd << 26) | insn; + return 1; +} + +/* Followings are frequently used xfx-form instructions. */ + +#define GEN_MFSPR(buf, rt, spr) gen_xfx_form (buf, 31, rt, spr, 339) +#define GEN_MTSPR(buf, rt, spr) gen_xfx_form (buf, 31, rt, spr, 467) +#define GEN_MFCR(buf, rt) gen_xfx_form (buf, 31, rt, 0, 19) +#define GEN_MTCR(buf, rt) gen_xfx_form (buf, 31, rt, 0x3cf, 144) +#define GEN_SYNC(buf, L, E) gen_xfx_form (buf, 31, L & 0x3, \ + E & 0xf, 598) +#define GEN_LWSYNC(buf) GEN_SYNC (buf, 1, 0) + + +/* Generate a x-form instruction in BUF and return the number of bytes written. + + 0 6 11 16 21 31 32 + | OPCD | RST | RA | RB | XO |RC| */ + +static int +gen_x_form (uint32_t *buf, int opcd, int rst, int ra, int rb, int xo, int rc) +{ + uint32_t insn; + + gdb_assert ((opcd & ~0x3f) == 0); + gdb_assert ((rst & ~0x1f) == 0); + gdb_assert ((ra & ~0x1f) == 0); + gdb_assert ((rb & ~0x1f) == 0); + gdb_assert ((xo & ~0x3ff) == 0); + gdb_assert ((rc & ~1) == 0); + + insn = (rst << 21) | (ra << 16) | (rb << 11) | (xo << 1) | rc; + *buf = (opcd << 26) | insn; + return 1; +} + +/* Followings are frequently used x-form instructions. */ + +#define GEN_OR(buf, ra, rs, rb) gen_x_form (buf, 31, rs, ra, rb, 444, 0) +#define GEN_MR(buf, ra, rs) GEN_OR (buf, ra, rs, rs) +#define GEN_LWARX(buf, rt, ra, rb) gen_x_form (buf, 31, rt, ra, rb, 20, 0) +#define GEN_STWCX(buf, rs, ra, rb) gen_x_form (buf, 31, rs, ra, rb, 150, 1) +/* Assume bf = cr7. */ +#define GEN_CMPW(buf, ra, rb) gen_x_form (buf, 31, 28, ra, rb, 0, 0) + + +/* Generate a md-form instruction in BUF and return the number of bytes written. + + 0 6 11 16 21 27 30 31 32 + | OPCD | RS | RA | sh | mb | XO |sh|Rc| */ + +static int +gen_md_form (uint32_t *buf, int opcd, int rs, int ra, int sh, int mb, + int xo, int rc) +{ + uint32_t insn; + unsigned int n = ((mb & 0x1f) << 1) | ((mb >> 5) & 0x1); + unsigned int sh0_4 = sh & 0x1f; + unsigned int sh5 = (sh >> 5) & 1; + + gdb_assert ((opcd & ~0x3f) == 0); + gdb_assert ((rs & ~0x1f) == 0); + gdb_assert ((ra & ~0x1f) == 0); + gdb_assert ((sh & ~0x3f) == 0); + gdb_assert ((mb & ~0x3f) == 0); + gdb_assert ((xo & ~0x7) == 0); + gdb_assert ((rc & ~0x1) == 0); + + insn = (rs << 21) | (ra << 16) | (sh0_4 << 11) | (n << 5) + | (sh5 << 1) | (xo << 2) | (rc & 1); + *buf = (opcd << 26) | insn; + return 1; +} + +/* The following are frequently used md-form instructions. */ + +#define GEN_RLDICL(buf, ra, rs ,sh, mb) \ + gen_md_form (buf, 30, rs, ra, sh, mb, 0, 0) +#define GEN_RLDICR(buf, ra, rs ,sh, mb) \ + gen_md_form (buf, 30, rs, ra, sh, mb, 1, 0) + +/* Generate a i-form instruction in BUF and return the number of bytes written. + + 0 6 30 31 32 + | OPCD | LI |AA|LK| */ + +static int +gen_i_form (uint32_t *buf, int opcd, int li, int aa, int lk) +{ + uint32_t insn; + + gdb_assert ((opcd & ~0x3f) == 0); + + insn = (li & 0x3fffffc) | (aa & 1) | (lk & 1); + *buf = (opcd << 26) | insn; + return 1; +} + +/* The following are frequently used i-form instructions. */ + +#define GEN_B(buf, li) gen_i_form (buf, 18, li, 0, 0) +#define GEN_BL(buf, li) gen_i_form (buf, 18, li, 0, 1) + +/* Generate a b-form instruction in BUF and return the number of bytes written. + + 0 6 11 16 30 31 32 + | OPCD | BO | BI | BD |AA|LK| */ + +static int +gen_b_form (uint32_t *buf, int opcd, int bo, int bi, int bd, + int aa, int lk) +{ + uint32_t insn; + + gdb_assert ((opcd & ~0x3f) == 0); + gdb_assert ((bo & ~0x1f) == 0); + gdb_assert ((bi & ~0x1f) == 0); + + insn = (bo << 21) | (bi << 16) | (bd & 0xfffc) | (aa & 1) | (lk & 1); + *buf = (opcd << 26) | insn; + return 1; +} + +/* The following are frequently used b-form instructions. */ +/* Assume bi = cr7. */ +#define GEN_BNE(buf, bd) gen_b_form (buf, 16, 0x4, (7 << 2) | 2, bd, 0 ,0) + +/* GEN_LOAD and GEN_STORE generate 64- or 32-bit load/store for ppc64 or ppc32 + respectively. They are primary used for save/restore GPRs in jump-pad, + not used for bytecode compiling. */ + +#ifdef __powerpc64__ +#define GEN_LOAD(buf, rt, ra, si, is_64) (is_64 ? \ + GEN_LD (buf, rt, ra, si) : \ + GEN_LWZ (buf, rt, ra, si)) +#define GEN_STORE(buf, rt, ra, si, is_64) (is_64 ? \ + GEN_STD (buf, rt, ra, si) : \ + GEN_STW (buf, rt, ra, si)) +#else +#define GEN_LOAD(buf, rt, ra, si, is_64) GEN_LWZ (buf, rt, ra, si) +#define GEN_STORE(buf, rt, ra, si, is_64) GEN_STW (buf, rt, ra, si) +#endif + +/* Generate a sequence of instructions to load IMM in the register REG. + Write the instructions in BUF and return the number of bytes written. */ + +static int +gen_limm (uint32_t *buf, int reg, uint64_t imm, int is_64) +{ + uint32_t *p = buf; + + if ((imm + 32768) < 65536) + { + /* li reg, imm[15:0] */ + p += GEN_LI (p, reg, imm); + } + else if ((imm >> 32) == 0) + { + /* lis reg, imm[31:16] + ori reg, reg, imm[15:0] + rldicl reg, reg, 0, 32 */ + p += GEN_LIS (p, reg, (imm >> 16) & 0xffff); + if ((imm & 0xffff) != 0) + p += GEN_ORI (p, reg, reg, imm & 0xffff); + /* Clear upper 32-bit if sign-bit is set. */ + if (imm & (1u << 31) && is_64) + p += GEN_RLDICL (p, reg, reg, 0, 32); + } + else + { + gdb_assert (is_64); + /* lis reg, + ori reg, reg, + rldicr reg, reg, 32, 31 + oris reg, reg, + ori reg, reg, */ + p += GEN_LIS (p, reg, ((imm >> 48) & 0xffff)); + if (((imm >> 32) & 0xffff) != 0) + p += GEN_ORI (p, reg, reg, ((imm >> 32) & 0xffff)); + p += GEN_RLDICR (p, reg, reg, 32, 31); + if (((imm >> 16) & 0xffff) != 0) + p += GEN_ORIS (p, reg, reg, ((imm >> 16) & 0xffff)); + if ((imm & 0xffff) != 0) + p += GEN_ORI (p, reg, reg, (imm & 0xffff)); + } + + return p - buf; +} + +/* Generate a sequence for atomically exchange at location LOCK. + This code sequence clobbers r6, r7, r8. LOCK is the location for + the atomic-xchg, OLD_VALUE is expected old value stored in the + location, and R_NEW is a register for the new value. */ + +static int +gen_atomic_xchg (uint32_t *buf, CORE_ADDR lock, int old_value, int r_new, + int is_64) +{ + const int r_lock = 6; + const int r_old = 7; + const int r_tmp = 8; + uint32_t *p = buf; + + /* + 1: lwarx TMP, 0, LOCK + cmpwi TMP, OLD + bne 1b + stwcx. NEW, 0, LOCK + bne 1b */ + + p += gen_limm (p, r_lock, lock, is_64); + p += gen_limm (p, r_old, old_value, is_64); + + p += GEN_LWARX (p, r_tmp, 0, r_lock); + p += GEN_CMPW (p, r_tmp, r_old); + p += GEN_BNE (p, -8); + p += GEN_STWCX (p, r_new, 0, r_lock); + p += GEN_BNE (p, -16); + + return p - buf; +} + +/* Generate a sequence of instructions for calling a function + at address of FN. Return the number of bytes are written in BUF. */ + +static int +gen_call (uint32_t *buf, CORE_ADDR fn, int is_64, int is_opd) +{ + uint32_t *p = buf; + + /* Must be called by r12 for caller to calculate TOC address. */ + p += gen_limm (p, 12, fn, is_64); + if (is_opd) + { + p += GEN_LOAD (p, 11, 12, 16, is_64); + p += GEN_LOAD (p, 2, 12, 8, is_64); + p += GEN_LOAD (p, 12, 12, 0, is_64); + } + p += GEN_MTSPR (p, 12, 9); /* mtctr r12 */ + *p++ = 0x4e800421; /* bctrl */ + + return p - buf; +} + +/* Copy the instruction from OLDLOC to *TO, and update *TO to *TO + size + of instruction. This function is used to adjust pc-relative instructions + when copying. */ + +static void +ppc_relocate_instruction (CORE_ADDR *to, CORE_ADDR oldloc) +{ + uint32_t insn, op6; + long rel, newrel; + + read_inferior_memory (oldloc, (unsigned char *) &insn, 4); + op6 = PPC_OP6 (insn); + + if (op6 == 18 && (insn & 2) == 0) + { + /* branch && AA = 0 */ + rel = PPC_LI (insn); + newrel = (oldloc - *to) + rel; + + /* Out of range. Cannot relocate instruction. */ + if (newrel >= (1 << 25) || newrel < -(1 << 25)) + return; + + insn = (insn & ~0x3fffffc) | (newrel & 0x3fffffc); + } + else if (op6 == 16 && (insn & 2) == 0) + { + /* conditional branch && AA = 0 */ + + /* If the new relocation is too big for even a 26-bit unconditional + branch, there is nothing we can do. Just abort. + + Otherwise, if it can be fit in 16-bit conditional branch, just + copy the instruction and relocate the address. + + If the it's big for conditional-branch (16-bit), try to invert the + condition and jump with 26-bit branch. For example, + + beq .Lgoto + INSN1 + + => + + bne 1f (+8) + b .Lgoto + 1:INSN1 + + After this transform, we are actually jump from *TO+4 instead of *TO, + so check the relocation again because it will be 1-insn farther then + before if *TO is after OLDLOC. + + + For BDNZT (or so) is transformed from + + bdnzt eq, .Lgoto + INSN1 + + => + + bdz 1f (+12) + bf eq, 1f (+8) + b .Lgoto + 1:INSN1 + + See also "BO field encodings". */ + + rel = PPC_BD (insn); + newrel = (oldloc - *to) + rel; + + if (newrel < (1 << 15) && newrel >= -(1 << 15)) + insn = (insn & ~0xfffc) | (newrel & 0xfffc); + else if ((PPC_BO (insn) & 0x14) == 0x4 || (PPC_BO (insn) & 0x14) == 0x10) + { + newrel -= 4; + + /* Out of range. Cannot relocate instruction. */ + if (newrel >= (1 << 25) || newrel < -(1 << 25)) + return; + + if ((PPC_BO (insn) & 0x14) == 0x4) + insn ^= (1 << 24); + else if ((PPC_BO (insn) & 0x14) == 0x10) + insn ^= (1 << 22); + + /* Jump over the unconditional branch. */ + insn = (insn & ~0xfffc) | 0x8; + target_write_memory (*to, (unsigned char *) &insn, 4); + *to += 4; + + /* Build a unconditional branch and copy LK bit. */ + insn = (18 << 26) | (0x3fffffc & newrel) | (insn & 0x3); + target_write_memory (*to, (unsigned char *) &insn, 4); + *to += 4; + + return; + } + else if ((PPC_BO (insn) & 0x14) == 0) + { + uint32_t bdnz_insn = (16 << 26) | (0x10 << 21) | 12; + uint32_t bf_insn = (16 << 26) | (0x4 << 21) | 8; + + newrel -= 8; + + /* Out of range. Cannot relocate instruction. */ + if (newrel >= (1 << 25) || newrel < -(1 << 25)) + return; + + /* Copy BI field. */ + bf_insn |= (insn & 0x1f0000); + + /* Invert condition. */ + bdnz_insn |= (insn ^ (1 << 22)) & (1 << 22); + bf_insn |= (insn ^ (1 << 24)) & (1 << 24); + + target_write_memory (*to, (unsigned char *) &bdnz_insn, 4); + *to += 4; + target_write_memory (*to, (unsigned char *) &bf_insn, 4); + *to += 4; + + /* Build a unconditional branch and copy LK bit. */ + insn = (18 << 26) | (0x3fffffc & newrel) | (insn & 0x3); + target_write_memory (*to, (unsigned char *) &insn, 4); + *to += 4; + + return; + } + else /* (BO & 0x14) == 0x14, branch always. */ + { + /* Out of range. Cannot relocate instruction. */ + if (newrel >= (1 << 25) || newrel < -(1 << 25)) + return; + + /* Build a unconditional branch and copy LK bit. */ + insn = (18 << 26) | (0x3fffffc & newrel) | (insn & 0x3); + target_write_memory (*to, (unsigned char *) &insn, 4); + *to += 4; + + return; + } + } + + target_write_memory (*to, (unsigned char *) &insn, 4); + *to += 4; +} + +/* Implement install_fast_tracepoint_jump_pad of target_ops. + See target.h for details. */ + +static int +ppc_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, CORE_ADDR tpaddr, + CORE_ADDR collector, + CORE_ADDR lockaddr, + ULONGEST orig_size, + CORE_ADDR *jump_entry, + CORE_ADDR *trampoline, + ULONGEST *trampoline_size, + unsigned char *jjump_pad_insn, + ULONGEST *jjump_pad_insn_size, + CORE_ADDR *adjusted_insn_addr, + CORE_ADDR *adjusted_insn_addr_end, + char *err) +{ + uint32_t buf[256]; + uint32_t *p = buf; + int j, offset; + CORE_ADDR buildaddr = *jump_entry; + const CORE_ADDR entryaddr = *jump_entry; + int rsz, min_frame, frame_size, tp_reg; +#ifdef __powerpc64__ + struct regcache *regcache = get_thread_regcache (current_thread, 0); + int is_64 = register_size (regcache->tdesc, 0) == 8; + int is_opd = is_64 && !is_elfv2_inferior (); +#else + int is_64 = 0, is_opd = 0; +#endif + +#ifdef __powerpc64__ + if (is_64) + { + /* Minimum frame size is 32 bytes for ELFv2, and 112 bytes for ELFv1. */ + rsz = 8; + min_frame = 112; + frame_size = (40 * rsz) + min_frame; + tp_reg = 13; + } + else + { +#endif + rsz = 4; + min_frame = 16; + frame_size = (40 * rsz) + min_frame; + tp_reg = 2; +#ifdef __powerpc64__ + } +#endif + + /* Stack frame layout for this jump pad, + + High thread_area (r13/r2) | + tpoint - collecting_t obj + PC/ | +36 + CTR | +35 + LR | +34 + XER | +33 + CR | +32 + R31 | + R29 | + ... | + R1 | +1 + R0 - collected registers + ... | + ... | + Low Back-chain - + + + The code flow of this jump pad, + + 1. Adjust SP + 2. Save GPR and SPR + 3. Prepare argument + 4. Call gdb_collector + 5. Restore GPR and SPR + 6. Restore SP + 7. Build a jump for back to the program + 8. Copy/relocate original instruction + 9. Build a jump for replacing original instruction. */ + + /* Adjust stack pointer. */ + if (is_64) + p += GEN_STDU (p, 1, 1, -frame_size); /* stdu r1,-frame_size(r1) */ + else + p += GEN_STWU (p, 1, 1, -frame_size); /* stwu r1,-frame_size(r1) */ + + /* Store GPRs. Save R1 later, because it had just been modified, but + we want the original value. */ + for (j = 2; j < 32; j++) + p += GEN_STORE (p, j, 1, min_frame + j * rsz, is_64); + p += GEN_STORE (p, 0, 1, min_frame + 0 * rsz, is_64); + /* Set r0 to the original value of r1 before adjusting stack frame, + and then save it. */ + p += GEN_ADDI (p, 0, 1, frame_size); + p += GEN_STORE (p, 0, 1, min_frame + 1 * rsz, is_64); + + /* Save CR, XER, LR, and CTR. */ + p += GEN_MFCR (p, 3); /* mfcr r3 */ + p += GEN_MFSPR (p, 4, 1); /* mfxer r4 */ + p += GEN_MFSPR (p, 5, 8); /* mflr r5 */ + p += GEN_MFSPR (p, 6, 9); /* mfctr r6 */ + p += GEN_STORE (p, 3, 1, min_frame + 32 * rsz, is_64);/* std r3, 32(r1) */ + p += GEN_STORE (p, 4, 1, min_frame + 33 * rsz, is_64);/* std r4, 33(r1) */ + p += GEN_STORE (p, 5, 1, min_frame + 34 * rsz, is_64);/* std r5, 34(r1) */ + p += GEN_STORE (p, 6, 1, min_frame + 35 * rsz, is_64);/* std r6, 35(r1) */ + + /* Save PC */ + p += gen_limm (p, 3, tpaddr, is_64); + p += GEN_STORE (p, 3, 1, min_frame + 36 * rsz, is_64); + + + /* Setup arguments to collector. */ + /* Set r4 to collected registers. */ + p += GEN_ADDI (p, 4, 1, min_frame); + /* Set r3 to TPOINT. */ + p += gen_limm (p, 3, tpoint, is_64); + + /* Prepare collecting_t object for lock. */ + p += GEN_STORE (p, 3, 1, min_frame + 37 * rsz, is_64); + p += GEN_STORE (p, tp_reg, 1, min_frame + 38 * rsz, is_64); + /* Set R5 to collecting object. */ + p += GEN_ADDI (p, 5, 1, 37 * rsz); + + p += GEN_LWSYNC (p); + p += gen_atomic_xchg (p, lockaddr, 0, 5, is_64); + p += GEN_LWSYNC (p); + + /* Call to collector. */ + p += gen_call (p, collector, is_64, is_opd); + + /* Simply write 0 to release the lock. */ + p += gen_limm (p, 3, lockaddr, is_64); + p += gen_limm (p, 4, 0, is_64); + p += GEN_LWSYNC (p); + p += GEN_STORE (p, 4, 3, 0, is_64); + + /* Restore stack and registers. */ + p += GEN_LOAD (p, 3, 1, min_frame + 32 * rsz, is_64); /* ld r3, 32(r1) */ + p += GEN_LOAD (p, 4, 1, min_frame + 33 * rsz, is_64); /* ld r4, 33(r1) */ + p += GEN_LOAD (p, 5, 1, min_frame + 34 * rsz, is_64); /* ld r5, 34(r1) */ + p += GEN_LOAD (p, 6, 1, min_frame + 35 * rsz, is_64); /* ld r6, 35(r1) */ + p += GEN_MTCR (p, 3); /* mtcr r3 */ + p += GEN_MTSPR (p, 4, 1); /* mtxer r4 */ + p += GEN_MTSPR (p, 5, 8); /* mtlr r5 */ + p += GEN_MTSPR (p, 6, 9); /* mtctr r6 */ + + /* Restore GPRs. */ + for (j = 2; j < 32; j++) + p += GEN_LOAD (p, j, 1, min_frame + j * rsz, is_64); + p += GEN_LOAD (p, 0, 1, min_frame + 0 * rsz, is_64); + /* Restore SP. */ + p += GEN_ADDI (p, 1, 1, frame_size); + + /* Flush instructions to inferior memory. */ + target_write_memory (buildaddr, (unsigned char *) buf, (p - buf) * 4); + + /* Now, insert the original instruction to execute in the jump pad. */ + *adjusted_insn_addr = buildaddr + (p - buf) * 4; + *adjusted_insn_addr_end = *adjusted_insn_addr; + ppc_relocate_instruction (adjusted_insn_addr_end, tpaddr); + + /* Verify the relocation size. If should be 4 for normal copy, + 8 or 12 for some conditional branch. */ + if ((*adjusted_insn_addr_end - *adjusted_insn_addr == 0) + || (*adjusted_insn_addr_end - *adjusted_insn_addr > 12)) + { + sprintf (err, "E.Unexpected instruction length = %d" + "when relocate instruction.", + (int) (*adjusted_insn_addr_end - *adjusted_insn_addr)); + return 1; + } + + buildaddr = *adjusted_insn_addr_end; + p = buf; + /* Finally, write a jump back to the program. */ + offset = (tpaddr + 4) - buildaddr; + if (offset >= (1 << 25) || offset < -(1 << 25)) + { + sprintf (err, "E.Jump back from jump pad too far from tracepoint " + "(offset 0x%x > 26-bit).", offset); + return 1; + } + /* b */ + p += GEN_B (p, offset); + target_write_memory (buildaddr, (unsigned char *) buf, (p - buf) * 4); + *jump_entry = buildaddr + (p - buf) * 4; + + /* The jump pad is now built. Wire in a jump to our jump pad. This + is always done last (by our caller actually), so that we can + install fast tracepoints with threads running. This relies on + the agent's atomic write support. */ + offset = entryaddr - tpaddr; + if (offset >= (1 << 25) || offset < -(1 << 25)) + { + sprintf (err, "E.Jump back from jump pad too far from tracepoint " + "(offset 0x%x > 26-bit).", offset); + return 1; + } + /* b */ + GEN_B ((uint32_t *) jjump_pad_insn, offset); + *jjump_pad_insn_size = 4; + + return 0; +} + +/* Returns the minimum instruction length for installing a tracepoint. */ + +static int +ppc_get_min_fast_tracepoint_insn_len (void) +{ + return 4; +} + +/* Emits a given buffer into the target at current_insn_ptr. Length + is in units of 32-bit words. */ + +static void +emit_insns (uint32_t *buf, int n) +{ + n = n * sizeof (uint32_t); + target_write_memory (current_insn_ptr, (unsigned char *) buf, n); + current_insn_ptr += n; +} + +#define __EMIT_ASM(NAME, INSNS) \ + do \ + { \ + extern uint32_t start_bcax_ ## NAME []; \ + extern uint32_t end_bcax_ ## NAME []; \ + emit_insns (start_bcax_ ## NAME, \ + end_bcax_ ## NAME - start_bcax_ ## NAME); \ + __asm__ (".section .text.__ppcbcax\n\t" \ + "start_bcax_" #NAME ":\n\t" \ + INSNS "\n\t" \ + "end_bcax_" #NAME ":\n\t" \ + ".previous\n\t"); \ + } while (0) + +#define _EMIT_ASM(NAME, INSNS) __EMIT_ASM (NAME, INSNS) +#define EMIT_ASM(INSNS) _EMIT_ASM (__LINE__, INSNS) + +/* + + Bytecode execution stack frame - 32-bit + + | LR save area (SP + 4) + SP' -> +- Back chain (SP + 0) + | Save r31 for access saved arguments + | Save r30 for bytecode stack pointer + | Save r4 for incoming argument *value + | Save r3 for incoming argument regs + r30 -> +- Bytecode execution stack + | + | 64-byte (8 doublewords) at initial. + | Expand stack as needed. + | + +- + | Some padding for minimum stack frame and 16-byte alignment. + | 16 bytes. + SP +- Back-chain (SP') + + initial frame size + = 16 + (4 * 4) + 64 + = 96 + + r30 is the stack-pointer for bytecode machine. + It should point to next-empty, so we can use LDU for pop. + r3 is used for cache of the high part of TOP value. + It was the first argument, pointer to regs. + r4 is used for cache of the low part of TOP value. + It was the second argument, pointer to the result. + We should set *result = TOP after leaving this function. + + Note: + * To restore stack at epilogue + => sp = r31 + * To check stack is big enough for bytecode execution. + => r30 - 8 > SP + 8 + * To return execution result. + => 0(r4) = TOP + + */ + +/* Regardless of endian, register 3 is always high part, 4 is low part. + These defines are used when the register pair is stored/loaded. + Likewise, to simplify code, have a similiar define for 5:6. */ + +#if __BYTE_ORDER == __LITTLE_ENDIAN +#define TOP_FIRST "4" +#define TOP_SECOND "3" +#define TMP_FIRST "6" +#define TMP_SECOND "5" +#else +#define TOP_FIRST "3" +#define TOP_SECOND "4" +#define TMP_FIRST "5" +#define TMP_SECOND "6" +#endif + +/* Emit prologue in inferior memory. See above comments. */ + +static void +ppc_emit_prologue (void) +{ + EMIT_ASM (/* Save return address. */ + "mflr 0 \n" + "stw 0, 4(1) \n" + /* Adjust SP. 96 is the initial frame size. */ + "stwu 1, -96(1) \n" + /* Save r30 and incoming arguments. */ + "stw 31, 96-4(1) \n" + "stw 30, 96-8(1) \n" + "stw 4, 96-12(1) \n" + "stw 3, 96-16(1) \n" + /* Point r31 to original r1 for access arguments. */ + "addi 31, 1, 96 \n" + /* Set r30 to pointing stack-top. */ + "addi 30, 1, 64 \n" + /* Initial r3/TOP to 0. */ + "li 3, 0 \n" + "li 4, 0 \n"); +} + +/* Emit epilogue in inferior memory. See above comments. */ + +static void +ppc_emit_epilogue (void) +{ + EMIT_ASM (/* *result = TOP */ + "lwz 5, -12(31) \n" + "stw " TOP_FIRST ", 0(5) \n" + "stw " TOP_SECOND ", 4(5) \n" + /* Restore registers. */ + "lwz 31, -4(31) \n" + "lwz 30, -8(31) \n" + /* Restore SP. */ + "lwz 1, 0(1) \n" + /* Restore LR. */ + "lwz 0, 4(1) \n" + /* Return 0 for no-error. */ + "li 3, 0 \n" + "mtlr 0 \n" + "blr \n"); +} + +/* TOP = stack[--sp] + TOP */ + +static void +ppc_emit_add (void) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30)\n" + "addc 4, 6, 4 \n" + "adde 3, 5, 3 \n"); +} + +/* TOP = stack[--sp] - TOP */ + +static void +ppc_emit_sub (void) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "subfc 4, 4, 6 \n" + "subfe 3, 3, 5 \n"); +} + +/* TOP = stack[--sp] * TOP */ + +static void +ppc_emit_mul (void) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "mulhwu 7, 6, 4 \n" + "mullw 3, 6, 3 \n" + "mullw 5, 4, 5 \n" + "mullw 4, 6, 4 \n" + "add 3, 5, 3 \n" + "add 3, 7, 3 \n"); +} + +/* TOP = stack[--sp] << TOP */ + +static void +ppc_emit_lsh (void) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "subfic 3, 4, 32\n" /* r3 = 32 - TOP */ + "addi 7, 4, -32\n" /* r7 = TOP - 32 */ + "slw 5, 5, 4\n" /* Shift high part left */ + "slw 4, 6, 4\n" /* Shift low part left */ + "srw 3, 6, 3\n" /* Shift low to high if shift < 32 */ + "slw 7, 6, 7\n" /* Shift low to high if shift >= 32 */ + "or 3, 5, 3\n" + "or 3, 7, 3\n"); /* Assemble high part */ +} + +/* Top = stack[--sp] >> TOP + (Arithmetic shift right) */ + +static void +ppc_emit_rsh_signed (void) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "addi 7, 4, -32\n" /* r7 = TOP - 32 */ + "sraw 3, 5, 4\n" /* Shift high part right */ + "cmpwi 7, 1\n" + "blt 0, 1f\n" /* If shift <= 32, goto 1: */ + "sraw 4, 5, 7\n" /* Shift high to low */ + "b 2f\n" + "1:\n" + "subfic 7, 4, 32\n" /* r7 = 32 - TOP */ + "srw 4, 6, 4\n" /* Shift low part right */ + "slw 5, 5, 7\n" /* Shift high to low */ + "or 4, 4, 5\n" /* Assemble low part */ + "2:\n"); +} + +/* Top = stack[--sp] >> TOP + (Logical shift right) */ + +static void +ppc_emit_rsh_unsigned (void) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "subfic 3, 4, 32\n" /* r3 = 32 - TOP */ + "addi 7, 4, -32\n" /* r7 = TOP - 32 */ + "srw 6, 6, 4\n" /* Shift low part right */ + "slw 3, 5, 3\n" /* Shift high to low if shift < 32 */ + "srw 7, 5, 7\n" /* Shift high to low if shift >= 32 */ + "or 6, 6, 3\n" + "srw 3, 5, 4\n" /* Shift high part right */ + "or 4, 6, 7\n"); /* Assemble low part */ +} + +/* Emit code for signed-extension specified by ARG. */ + +static void +ppc_emit_ext (int arg) +{ + switch (arg) + { + case 8: + EMIT_ASM ("extsb 4, 4\n" + "srawi 3, 4, 31"); + break; + case 16: + EMIT_ASM ("extsh 4, 4\n" + "srawi 3, 4, 31"); + break; + case 32: + EMIT_ASM ("srawi 3, 4, 31"); + break; + default: + emit_error = 1; + } +} + +/* Emit code for zero-extension specified by ARG. */ + +static void +ppc_emit_zero_ext (int arg) +{ + switch (arg) + { + case 8: + EMIT_ASM ("clrlwi 4,4,24\n" + "li 3, 0\n"); + break; + case 16: + EMIT_ASM ("clrlwi 4,4,16\n" + "li 3, 0\n"); + break; + case 32: + EMIT_ASM ("li 3, 0"); + break; + default: + emit_error = 1; + } +} + +/* TOP = !TOP + i.e., TOP = (TOP == 0) ? 1 : 0; */ + +static void +ppc_emit_log_not (void) +{ + EMIT_ASM ("or 4, 3, 4 \n" + "cntlzw 4, 4 \n" + "srwi 4, 4, 5 \n" + "li 3, 0 \n"); +} + +/* TOP = stack[--sp] & TOP */ + +static void +ppc_emit_bit_and (void) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "and 4, 6, 4 \n" + "and 3, 5, 3 \n"); +} + +/* TOP = stack[--sp] | TOP */ + +static void +ppc_emit_bit_or (void) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "or 4, 6, 4 \n" + "or 3, 5, 3 \n"); +} + +/* TOP = stack[--sp] ^ TOP */ + +static void +ppc_emit_bit_xor (void) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "xor 4, 6, 4 \n" + "xor 3, 5, 3 \n"); +} + +/* TOP = ~TOP + i.e., TOP = ~(TOP | TOP) */ + +static void +ppc_emit_bit_not (void) +{ + EMIT_ASM ("nor 3, 3, 3 \n" + "nor 4, 4, 4 \n"); +} + +/* TOP = stack[--sp] == TOP */ + +static void +ppc_emit_equal (void) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "xor 4, 6, 4 \n" + "xor 3, 5, 3 \n" + "or 4, 3, 4 \n" + "cntlzw 4, 4 \n" + "srwi 4, 4, 5 \n" + "li 3, 0 \n"); +} + +/* TOP = stack[--sp] < TOP + (Signed comparison) */ + +static void +ppc_emit_less_signed (void) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "cmplw 6, 6, 4 \n" + "cmpw 7, 5, 3 \n" + /* CR6 bit 0 = low less and high equal */ + "crand 6*4+0, 6*4+0, 7*4+2\n" + /* CR7 bit 0 = (low less and high equal) or high less */ + "cror 7*4+0, 7*4+0, 6*4+0\n" + "mfcr 4 \n" + "rlwinm 4, 4, 29, 31, 31 \n" + "li 3, 0 \n"); +} + +/* TOP = stack[--sp] < TOP + (Unsigned comparison) */ + +static void +ppc_emit_less_unsigned (void) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "cmplw 6, 6, 4 \n" + "cmplw 7, 5, 3 \n" + /* CR6 bit 0 = low less and high equal */ + "crand 6*4+0, 6*4+0, 7*4+2\n" + /* CR7 bit 0 = (low less and high equal) or high less */ + "cror 7*4+0, 7*4+0, 6*4+0\n" + "mfcr 4 \n" + "rlwinm 4, 4, 29, 31, 31 \n" + "li 3, 0 \n"); +} + +/* Access the memory address in TOP in size of SIZE. + Zero-extend the read value. */ + +static void +ppc_emit_ref (int size) +{ + switch (size) + { + case 1: + EMIT_ASM ("lbz 4, 0(4)\n" + "li 3, 0"); + break; + case 2: + EMIT_ASM ("lhz 4, 0(4)\n" + "li 3, 0"); + break; + case 4: + EMIT_ASM ("lwz 4, 0(4)\n" + "li 3, 0"); + break; + case 8: + if (__BYTE_ORDER == __LITTLE_ENDIAN) + EMIT_ASM ("lwz 3, 4(4)\n" + "lwz 4, 0(4)"); + else + EMIT_ASM ("lwz 3, 0(4)\n" + "lwz 4, 4(4)"); + break; + } +} + +/* TOP = NUM */ + +static void +ppc_emit_const (LONGEST num) +{ + uint32_t buf[10]; + uint32_t *p = buf; + + p += gen_limm (p, 3, num >> 32 & 0xffffffff, 0); + p += gen_limm (p, 4, num & 0xffffffff, 0); + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* Set TOP to the value of register REG by calling get_raw_reg function + with two argument, collected buffer and register number. */ + +static void +ppc_emit_reg (int reg) +{ + uint32_t buf[13]; + uint32_t *p = buf; + + /* fctx->regs is passed in r3 and then saved in -16(31). */ + p += GEN_LWZ (p, 3, 31, -16); + p += GEN_LI (p, 4, reg); /* li r4, reg */ + p += gen_call (p, get_raw_reg_func_addr (), 0, 0); + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); + + if (__BYTE_ORDER == __LITTLE_ENDIAN) + { + EMIT_ASM ("mr 5, 4\n" + "mr 4, 3\n" + "mr 3, 5\n"); + } +} + +/* TOP = stack[--sp] */ + +static void +ppc_emit_pop (void) +{ + EMIT_ASM ("lwzu " TOP_FIRST ", 8(30) \n" + "lwz " TOP_SECOND ", 4(30) \n"); +} + +/* stack[sp++] = TOP + + Because we may use up bytecode stack, expand 8 doublewords more + if needed. */ + +static void +ppc_emit_stack_flush (void) +{ + /* Make sure bytecode stack is big enough before push. + Otherwise, expand 64-byte more. */ + + EMIT_ASM (" stw " TOP_FIRST ", 0(30) \n" + " stw " TOP_SECOND ", 4(30)\n" + " addi 5, 30, -(8 + 8) \n" + " cmpw 7, 5, 1 \n" + " bgt 7, 1f \n" + " stwu 31, -64(1) \n" + "1:addi 30, 30, -8 \n"); +} + +/* Swap TOP and stack[sp-1] */ + +static void +ppc_emit_swap (void) +{ + EMIT_ASM ("lwz " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 12(30) \n" + "stw " TOP_FIRST ", 8(30) \n" + "stw " TOP_SECOND ", 12(30) \n" + "mr 3, 5 \n" + "mr 4, 6 \n"); +} + +/* Discard N elements in the stack. Also used for ppc64. */ + +static void +ppc_emit_stack_adjust (int n) +{ + uint32_t buf[6]; + uint32_t *p = buf; + + n = n << 3; + if ((n >> 15) != 0) + { + emit_error = 1; + return; + } + + p += GEN_ADDI (p, 30, 30, n); + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* Call function FN. */ + +static void +ppc_emit_call (CORE_ADDR fn) +{ + uint32_t buf[11]; + uint32_t *p = buf; + + p += gen_call (p, fn, 0, 0); + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* FN's prototype is `LONGEST(*fn)(int)'. + TOP = fn (arg1) + */ + +static void +ppc_emit_int_call_1 (CORE_ADDR fn, int arg1) +{ + uint32_t buf[15]; + uint32_t *p = buf; + + /* Setup argument. arg1 is a 16-bit value. */ + p += gen_limm (p, 3, (uint32_t) arg1, 0); + p += gen_call (p, fn, 0, 0); + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); + + if (__BYTE_ORDER == __LITTLE_ENDIAN) + { + EMIT_ASM ("mr 5, 4\n" + "mr 4, 3\n" + "mr 3, 5\n"); + } +} + +/* FN's prototype is `void(*fn)(int,LONGEST)'. + fn (arg1, TOP) + + TOP should be preserved/restored before/after the call. */ + +static void +ppc_emit_void_call_2 (CORE_ADDR fn, int arg1) +{ + uint32_t buf[21]; + uint32_t *p = buf; + + /* Save TOP. 0(30) is next-empty. */ + p += GEN_STW (p, 3, 30, 0); + p += GEN_STW (p, 4, 30, 4); + + /* Setup argument. arg1 is a 16-bit value. */ + if (__BYTE_ORDER == __LITTLE_ENDIAN) + { + p += GEN_MR (p, 5, 4); + p += GEN_MR (p, 6, 3); + } + else + { + p += GEN_MR (p, 5, 3); + p += GEN_MR (p, 6, 4); + } + p += gen_limm (p, 3, (uint32_t) arg1, 0); + p += gen_call (p, fn, 0, 0); + + /* Restore TOP */ + p += GEN_LWZ (p, 3, 30, 0); + p += GEN_LWZ (p, 4, 30, 4); + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* Note in the following goto ops: + + When emitting goto, the target address is later relocated by + write_goto_address. OFFSET_P is the offset of the branch instruction + in the code sequence, and SIZE_P is how to relocate the instruction, + recognized by ppc_write_goto_address. In current implementation, + SIZE can be either 24 or 14 for branch of conditional-branch instruction. + */ + +/* If TOP is true, goto somewhere. Otherwise, just fall-through. */ + +static void +ppc_emit_if_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("or. 3, 3, 4 \n" + "lwzu " TOP_FIRST ", 8(30) \n" + "lwz " TOP_SECOND ", 4(30) \n" + "1:bne 0, 1b \n"); + + if (offset_p) + *offset_p = 12; + if (size_p) + *size_p = 14; +} + +/* Unconditional goto. Also used for ppc64. */ + +static void +ppc_emit_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("1:b 1b"); + + if (offset_p) + *offset_p = 0; + if (size_p) + *size_p = 24; +} + +/* Goto if stack[--sp] == TOP */ + +static void +ppc_emit_eq_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "xor 4, 6, 4 \n" + "xor 3, 5, 3 \n" + "or. 3, 3, 4 \n" + "lwzu " TOP_FIRST ", 8(30) \n" + "lwz " TOP_SECOND ", 4(30) \n" + "1:beq 0, 1b \n"); + + if (offset_p) + *offset_p = 28; + if (size_p) + *size_p = 14; +} + +/* Goto if stack[--sp] != TOP */ + +static void +ppc_emit_ne_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "xor 4, 6, 4 \n" + "xor 3, 5, 3 \n" + "or. 3, 3, 4 \n" + "lwzu " TOP_FIRST ", 8(30) \n" + "lwz " TOP_SECOND ", 4(30) \n" + "1:bne 0, 1b \n"); + + if (offset_p) + *offset_p = 28; + if (size_p) + *size_p = 14; +} + +/* Goto if stack[--sp] < TOP */ + +static void +ppc_emit_lt_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "cmplw 6, 6, 4 \n" + "cmpw 7, 5, 3 \n" + /* CR6 bit 0 = low less and high equal */ + "crand 6*4+0, 6*4+0, 7*4+2\n" + /* CR7 bit 0 = (low less and high equal) or high less */ + "cror 7*4+0, 7*4+0, 6*4+0\n" + "lwzu " TOP_FIRST ", 8(30) \n" + "lwz " TOP_SECOND ", 4(30)\n" + "1:blt 7, 1b \n"); + + if (offset_p) + *offset_p = 32; + if (size_p) + *size_p = 14; +} + +/* Goto if stack[--sp] <= TOP */ + +static void +ppc_emit_le_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "cmplw 6, 6, 4 \n" + "cmpw 7, 5, 3 \n" + /* CR6 bit 0 = low less/equal and high equal */ + "crandc 6*4+0, 7*4+2, 6*4+1\n" + /* CR7 bit 0 = (low less/eq and high equal) or high less */ + "cror 7*4+0, 7*4+0, 6*4+0\n" + "lwzu " TOP_FIRST ", 8(30) \n" + "lwz " TOP_SECOND ", 4(30)\n" + "1:blt 7, 1b \n"); + + if (offset_p) + *offset_p = 32; + if (size_p) + *size_p = 14; +} + +/* Goto if stack[--sp] > TOP */ + +static void +ppc_emit_gt_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "cmplw 6, 6, 4 \n" + "cmpw 7, 5, 3 \n" + /* CR6 bit 0 = low greater and high equal */ + "crand 6*4+0, 6*4+1, 7*4+2\n" + /* CR7 bit 0 = (low greater and high equal) or high greater */ + "cror 7*4+0, 7*4+1, 6*4+0\n" + "lwzu " TOP_FIRST ", 8(30) \n" + "lwz " TOP_SECOND ", 4(30)\n" + "1:blt 7, 1b \n"); + + if (offset_p) + *offset_p = 32; + if (size_p) + *size_p = 14; +} + +/* Goto if stack[--sp] >= TOP */ + +static void +ppc_emit_ge_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("lwzu " TMP_FIRST ", 8(30) \n" + "lwz " TMP_SECOND ", 4(30) \n" + "cmplw 6, 6, 4 \n" + "cmpw 7, 5, 3 \n" + /* CR6 bit 0 = low ge and high equal */ + "crandc 6*4+0, 7*4+2, 6*4+0\n" + /* CR7 bit 0 = (low ge and high equal) or high greater */ + "cror 7*4+0, 7*4+1, 6*4+0\n" + "lwzu " TOP_FIRST ", 8(30)\n" + "lwz " TOP_SECOND ", 4(30)\n" + "1:blt 7, 1b \n"); + + if (offset_p) + *offset_p = 32; + if (size_p) + *size_p = 14; +} + +/* Relocate previous emitted branch instruction. FROM is the address + of the branch instruction, TO is the goto target address, and SIZE + if the value we set by *SIZE_P before. Currently, it is either + 24 or 14 of branch and conditional-branch instruction. + Also used for ppc64. */ + +static void +ppc_write_goto_address (CORE_ADDR from, CORE_ADDR to, int size) +{ + long rel = to - from; + uint32_t insn; + int opcd; + + read_inferior_memory (from, (unsigned char *) &insn, 4); + opcd = (insn >> 26) & 0x3f; + + switch (size) + { + case 14: + if (opcd != 16 + || (rel >= (1 << 15) || rel < -(1 << 15))) + emit_error = 1; + insn = (insn & ~0xfffc) | (rel & 0xfffc); + break; + case 24: + if (opcd != 18 + || (rel >= (1 << 25) || rel < -(1 << 25))) + emit_error = 1; + insn = (insn & ~0x3fffffc) | (rel & 0x3fffffc); + break; + default: + emit_error = 1; + } + + if (!emit_error) + target_write_memory (from, (unsigned char *) &insn, 4); +} + +/* Table of emit ops for 32-bit. */ + +static struct emit_ops ppc_emit_ops_impl = +{ + ppc_emit_prologue, + ppc_emit_epilogue, + ppc_emit_add, + ppc_emit_sub, + ppc_emit_mul, + ppc_emit_lsh, + ppc_emit_rsh_signed, + ppc_emit_rsh_unsigned, + ppc_emit_ext, + ppc_emit_log_not, + ppc_emit_bit_and, + ppc_emit_bit_or, + ppc_emit_bit_xor, + ppc_emit_bit_not, + ppc_emit_equal, + ppc_emit_less_signed, + ppc_emit_less_unsigned, + ppc_emit_ref, + ppc_emit_if_goto, + ppc_emit_goto, + ppc_write_goto_address, + ppc_emit_const, + ppc_emit_call, + ppc_emit_reg, + ppc_emit_pop, + ppc_emit_stack_flush, + ppc_emit_zero_ext, + ppc_emit_swap, + ppc_emit_stack_adjust, + ppc_emit_int_call_1, + ppc_emit_void_call_2, + ppc_emit_eq_goto, + ppc_emit_ne_goto, + ppc_emit_lt_goto, + ppc_emit_le_goto, + ppc_emit_gt_goto, + ppc_emit_ge_goto +}; + +#ifdef __powerpc64__ + +/* + + Bytecode execution stack frame - 64-bit + + | LR save area (SP + 16) + | CR save area (SP + 8) + SP' -> +- Back chain (SP + 0) + | Save r31 for access saved arguments + | Save r30 for bytecode stack pointer + | Save r4 for incoming argument *value + | Save r3 for incoming argument regs + r30 -> +- Bytecode execution stack + | + | 64-byte (8 doublewords) at initial. + | Expand stack as needed. + | + +- + | Some padding for minimum stack frame. + | 112 for ELFv1. + SP +- Back-chain (SP') + + initial frame size + = 112 + (4 * 8) + 64 + = 208 + + r30 is the stack-pointer for bytecode machine. + It should point to next-empty, so we can use LDU for pop. + r3 is used for cache of TOP value. + It was the first argument, pointer to regs. + r4 is the second argument, pointer to the result. + We should set *result = TOP after leaving this function. + + Note: + * To restore stack at epilogue + => sp = r31 + * To check stack is big enough for bytecode execution. + => r30 - 8 > SP + 112 + * To return execution result. + => 0(r4) = TOP + + */ + +/* Emit prologue in inferior memory. See above comments. */ + +static void +ppc64v1_emit_prologue (void) +{ + /* On ELFv1, function pointers really point to function descriptor, + so emit one here. We don't care about contents of words 1 and 2, + so let them just overlap out code. */ + uint64_t opd = current_insn_ptr + 8; + uint32_t buf[2]; + + /* Mind the strict aliasing rules. */ + memcpy (buf, &opd, sizeof buf); + emit_insns(buf, 2); + EMIT_ASM (/* Save return address. */ + "mflr 0 \n" + "std 0, 16(1) \n" + /* Save r30 and incoming arguments. */ + "std 31, -8(1) \n" + "std 30, -16(1) \n" + "std 4, -24(1) \n" + "std 3, -32(1) \n" + /* Point r31 to current r1 for access arguments. */ + "mr 31, 1 \n" + /* Adjust SP. 208 is the initial frame size. */ + "stdu 1, -208(1) \n" + /* Set r30 to pointing stack-top. */ + "addi 30, 1, 168 \n" + /* Initial r3/TOP to 0. */ + "li 3, 0 \n"); +} + +/* Emit prologue in inferior memory. See above comments. */ + +static void +ppc64v2_emit_prologue (void) +{ + EMIT_ASM (/* Save return address. */ + "mflr 0 \n" + "std 0, 16(1) \n" + /* Save r30 and incoming arguments. */ + "std 31, -8(1) \n" + "std 30, -16(1) \n" + "std 4, -24(1) \n" + "std 3, -32(1) \n" + /* Point r31 to current r1 for access arguments. */ + "mr 31, 1 \n" + /* Adjust SP. 208 is the initial frame size. */ + "stdu 1, -208(1) \n" + /* Set r30 to pointing stack-top. */ + "addi 30, 1, 168 \n" + /* Initial r3/TOP to 0. */ + "li 3, 0 \n"); +} + +/* Emit epilogue in inferior memory. See above comments. */ + +static void +ppc64_emit_epilogue (void) +{ + EMIT_ASM (/* Restore SP. */ + "ld 1, 0(1) \n" + /* *result = TOP */ + "ld 4, -24(1) \n" + "std 3, 0(4) \n" + /* Restore registers. */ + "ld 31, -8(1) \n" + "ld 30, -16(1) \n" + /* Restore LR. */ + "ld 0, 16(1) \n" + /* Return 0 for no-error. */ + "li 3, 0 \n" + "mtlr 0 \n" + "blr \n"); +} + +/* TOP = stack[--sp] + TOP */ + +static void +ppc64_emit_add (void) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "add 3, 4, 3 \n"); +} + +/* TOP = stack[--sp] - TOP */ + +static void +ppc64_emit_sub (void) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "sub 3, 4, 3 \n"); +} + +/* TOP = stack[--sp] * TOP */ + +static void +ppc64_emit_mul (void) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "mulld 3, 4, 3 \n"); +} + +/* TOP = stack[--sp] << TOP */ + +static void +ppc64_emit_lsh (void) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "sld 3, 4, 3 \n"); +} + +/* Top = stack[--sp] >> TOP + (Arithmetic shift right) */ + +static void +ppc64_emit_rsh_signed (void) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "srad 3, 4, 3 \n"); +} + +/* Top = stack[--sp] >> TOP + (Logical shift right) */ + +static void +ppc64_emit_rsh_unsigned (void) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "srd 3, 4, 3 \n"); +} + +/* Emit code for signed-extension specified by ARG. */ + +static void +ppc64_emit_ext (int arg) +{ + switch (arg) + { + case 8: + EMIT_ASM ("extsb 3, 3"); + break; + case 16: + EMIT_ASM ("extsh 3, 3"); + break; + case 32: + EMIT_ASM ("extsw 3, 3"); + break; + default: + emit_error = 1; + } +} + +/* Emit code for zero-extension specified by ARG. */ + +static void +ppc64_emit_zero_ext (int arg) +{ + switch (arg) + { + case 8: + EMIT_ASM ("rldicl 3,3,0,56"); + break; + case 16: + EMIT_ASM ("rldicl 3,3,0,48"); + break; + case 32: + EMIT_ASM ("rldicl 3,3,0,32"); + break; + default: + emit_error = 1; + } +} + +/* TOP = !TOP + i.e., TOP = (TOP == 0) ? 1 : 0; */ + +static void +ppc64_emit_log_not (void) +{ + EMIT_ASM ("cntlzd 3, 3 \n" + "srdi 3, 3, 6 \n"); +} + +/* TOP = stack[--sp] & TOP */ + +static void +ppc64_emit_bit_and (void) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "and 3, 4, 3 \n"); +} + +/* TOP = stack[--sp] | TOP */ + +static void +ppc64_emit_bit_or (void) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "or 3, 4, 3 \n"); +} + +/* TOP = stack[--sp] ^ TOP */ + +static void +ppc64_emit_bit_xor (void) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "xor 3, 4, 3 \n"); +} + +/* TOP = ~TOP + i.e., TOP = ~(TOP | TOP) */ + +static void +ppc64_emit_bit_not (void) +{ + EMIT_ASM ("nor 3, 3, 3 \n"); +} + +/* TOP = stack[--sp] == TOP */ + +static void +ppc64_emit_equal (void) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "xor 3, 3, 4 \n" + "cntlzd 3, 3 \n" + "srdi 3, 3, 6 \n"); +} + +/* TOP = stack[--sp] < TOP + (Signed comparison) */ + +static void +ppc64_emit_less_signed (void) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "cmpd 7, 4, 3 \n" + "mfcr 3 \n" + "rlwinm 3, 3, 29, 31, 31 \n"); +} + +/* TOP = stack[--sp] < TOP + (Unsigned comparison) */ + +static void +ppc64_emit_less_unsigned (void) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "cmpld 7, 4, 3 \n" + "mfcr 3 \n" + "rlwinm 3, 3, 29, 31, 31 \n"); +} + +/* Access the memory address in TOP in size of SIZE. + Zero-extend the read value. */ + +static void +ppc64_emit_ref (int size) +{ + switch (size) + { + case 1: + EMIT_ASM ("lbz 3, 0(3)"); + break; + case 2: + EMIT_ASM ("lhz 3, 0(3)"); + break; + case 4: + EMIT_ASM ("lwz 3, 0(3)"); + break; + case 8: + EMIT_ASM ("ld 3, 0(3)"); + break; + } +} + +/* TOP = NUM */ + +static void +ppc64_emit_const (LONGEST num) +{ + uint32_t buf[5]; + uint32_t *p = buf; + + p += gen_limm (p, 3, num, 1); + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* Set TOP to the value of register REG by calling get_raw_reg function + with two argument, collected buffer and register number. */ + +static void +ppc64v1_emit_reg (int reg) +{ + uint32_t buf[15]; + uint32_t *p = buf; + + /* fctx->regs is passed in r3 and then saved in 176(1). */ + p += GEN_LD (p, 3, 31, -32); + p += GEN_LI (p, 4, reg); + p += GEN_STD (p, 2, 1, 40); /* Save TOC. */ + p += gen_call (p, get_raw_reg_func_addr (), 1, 1); + p += GEN_LD (p, 2, 1, 40); /* Restore TOC. */ + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* Likewise, for ELFv2. */ + +static void +ppc64v2_emit_reg (int reg) +{ + uint32_t buf[12]; + uint32_t *p = buf; + + /* fctx->regs is passed in r3 and then saved in 176(1). */ + p += GEN_LD (p, 3, 31, -32); + p += GEN_LI (p, 4, reg); + p += GEN_STD (p, 2, 1, 24); /* Save TOC. */ + p += gen_call (p, get_raw_reg_func_addr (), 1, 0); + p += GEN_LD (p, 2, 1, 24); /* Restore TOC. */ + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* TOP = stack[--sp] */ + +static void +ppc64_emit_pop (void) +{ + EMIT_ASM ("ldu 3, 8(30)"); +} + +/* stack[sp++] = TOP + + Because we may use up bytecode stack, expand 8 doublewords more + if needed. */ + +static void +ppc64_emit_stack_flush (void) +{ + /* Make sure bytecode stack is big enough before push. + Otherwise, expand 64-byte more. */ + + EMIT_ASM (" std 3, 0(30) \n" + " addi 4, 30, -(112 + 8) \n" + " cmpd 7, 4, 1 \n" + " bgt 7, 1f \n" + " stdu 31, -64(1) \n" + "1:addi 30, 30, -8 \n"); +} + +/* Swap TOP and stack[sp-1] */ + +static void +ppc64_emit_swap (void) +{ + EMIT_ASM ("ld 4, 8(30) \n" + "std 3, 8(30) \n" + "mr 3, 4 \n"); +} + +/* Call function FN - ELFv1. */ + +static void +ppc64v1_emit_call (CORE_ADDR fn) +{ + uint32_t buf[13]; + uint32_t *p = buf; + + p += GEN_STD (p, 2, 1, 40); /* Save TOC. */ + p += gen_call (p, fn, 1, 1); + p += GEN_LD (p, 2, 1, 40); /* Restore TOC. */ + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* Call function FN - ELFv2. */ + +static void +ppc64v2_emit_call (CORE_ADDR fn) +{ + uint32_t buf[10]; + uint32_t *p = buf; + + p += GEN_STD (p, 2, 1, 24); /* Save TOC. */ + p += gen_call (p, fn, 1, 0); + p += GEN_LD (p, 2, 1, 24); /* Restore TOC. */ + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* FN's prototype is `LONGEST(*fn)(int)'. + TOP = fn (arg1) + */ + +static void +ppc64v1_emit_int_call_1 (CORE_ADDR fn, int arg1) +{ + uint32_t buf[13]; + uint32_t *p = buf; + + /* Setup argument. arg1 is a 16-bit value. */ + p += gen_limm (p, 3, arg1, 1); + p += GEN_STD (p, 2, 1, 40); /* Save TOC. */ + p += gen_call (p, fn, 1, 1); + p += GEN_LD (p, 2, 1, 40); /* Restore TOC. */ + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* Likewise for ELFv2. */ + +static void +ppc64v2_emit_int_call_1 (CORE_ADDR fn, int arg1) +{ + uint32_t buf[10]; + uint32_t *p = buf; + + /* Setup argument. arg1 is a 16-bit value. */ + p += gen_limm (p, 3, arg1, 1); + p += GEN_STD (p, 2, 1, 24); /* Save TOC. */ + p += gen_call (p, fn, 1, 0); + p += GEN_LD (p, 2, 1, 24); /* Restore TOC. */ + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* FN's prototype is `void(*fn)(int,LONGEST)'. + fn (arg1, TOP) + + TOP should be preserved/restored before/after the call. */ + +static void +ppc64v1_emit_void_call_2 (CORE_ADDR fn, int arg1) +{ + uint32_t buf[17]; + uint32_t *p = buf; + + /* Save TOP. 0(30) is next-empty. */ + p += GEN_STD (p, 3, 30, 0); + + /* Setup argument. arg1 is a 16-bit value. */ + p += GEN_MR (p, 4, 3); /* mr r4, r3 */ + p += gen_limm (p, 3, arg1, 1); + p += GEN_STD (p, 2, 1, 40); /* Save TOC. */ + p += gen_call (p, fn, 1, 1); + p += GEN_LD (p, 2, 1, 40); /* Restore TOC. */ + + /* Restore TOP */ + p += GEN_LD (p, 3, 30, 0); + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* Likewise for ELFv2. */ + +static void +ppc64v2_emit_void_call_2 (CORE_ADDR fn, int arg1) +{ + uint32_t buf[14]; + uint32_t *p = buf; + + /* Save TOP. 0(30) is next-empty. */ + p += GEN_STD (p, 3, 30, 0); + + /* Setup argument. arg1 is a 16-bit value. */ + p += GEN_MR (p, 4, 3); /* mr r4, r3 */ + p += gen_limm (p, 3, arg1, 1); + p += GEN_STD (p, 2, 1, 24); /* Save TOC. */ + p += gen_call (p, fn, 1, 0); + p += GEN_LD (p, 2, 1, 24); /* Restore TOC. */ + + /* Restore TOP */ + p += GEN_LD (p, 3, 30, 0); + + emit_insns (buf, p - buf); + gdb_assert ((p - buf) <= (sizeof (buf) / sizeof (*buf))); +} + +/* If TOP is true, goto somewhere. Otherwise, just fall-through. */ + +static void +ppc64_emit_if_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("cmpdi 7, 3, 0 \n" + "ldu 3, 8(30) \n" + "1:bne 7, 1b \n"); + + if (offset_p) + *offset_p = 8; + if (size_p) + *size_p = 14; +} + +/* Goto if stack[--sp] == TOP */ + +static void +ppc64_emit_eq_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "cmpd 7, 4, 3 \n" + "ldu 3, 8(30) \n" + "1:beq 7, 1b \n"); + + if (offset_p) + *offset_p = 12; + if (size_p) + *size_p = 14; +} + +/* Goto if stack[--sp] != TOP */ + +static void +ppc64_emit_ne_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "cmpd 7, 4, 3 \n" + "ldu 3, 8(30) \n" + "1:bne 7, 1b \n"); + + if (offset_p) + *offset_p = 12; + if (size_p) + *size_p = 14; +} + +/* Goto if stack[--sp] < TOP */ + +static void +ppc64_emit_lt_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "cmpd 7, 4, 3 \n" + "ldu 3, 8(30) \n" + "1:blt 7, 1b \n"); + + if (offset_p) + *offset_p = 12; + if (size_p) + *size_p = 14; +} + +/* Goto if stack[--sp] <= TOP */ + +static void +ppc64_emit_le_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "cmpd 7, 4, 3 \n" + "ldu 3, 8(30) \n" + "1:ble 7, 1b \n"); + + if (offset_p) + *offset_p = 12; + if (size_p) + *size_p = 14; +} + +/* Goto if stack[--sp] > TOP */ + +static void +ppc64_emit_gt_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "cmpd 7, 4, 3 \n" + "ldu 3, 8(30) \n" + "1:bgt 7, 1b \n"); + + if (offset_p) + *offset_p = 12; + if (size_p) + *size_p = 14; +} + +/* Goto if stack[--sp] >= TOP */ + +static void +ppc64_emit_ge_goto (int *offset_p, int *size_p) +{ + EMIT_ASM ("ldu 4, 8(30) \n" + "cmpd 7, 4, 3 \n" + "ldu 3, 8(30) \n" + "1:bge 7, 1b \n"); + + if (offset_p) + *offset_p = 12; + if (size_p) + *size_p = 14; +} + +/* Table of emit ops for 64-bit ELFv1. */ + +static struct emit_ops ppc64v1_emit_ops_impl = +{ + ppc64v1_emit_prologue, + ppc64_emit_epilogue, + ppc64_emit_add, + ppc64_emit_sub, + ppc64_emit_mul, + ppc64_emit_lsh, + ppc64_emit_rsh_signed, + ppc64_emit_rsh_unsigned, + ppc64_emit_ext, + ppc64_emit_log_not, + ppc64_emit_bit_and, + ppc64_emit_bit_or, + ppc64_emit_bit_xor, + ppc64_emit_bit_not, + ppc64_emit_equal, + ppc64_emit_less_signed, + ppc64_emit_less_unsigned, + ppc64_emit_ref, + ppc64_emit_if_goto, + ppc_emit_goto, + ppc_write_goto_address, + ppc64_emit_const, + ppc64v1_emit_call, + ppc64v1_emit_reg, + ppc64_emit_pop, + ppc64_emit_stack_flush, + ppc64_emit_zero_ext, + ppc64_emit_swap, + ppc_emit_stack_adjust, + ppc64v1_emit_int_call_1, + ppc64v1_emit_void_call_2, + ppc64_emit_eq_goto, + ppc64_emit_ne_goto, + ppc64_emit_lt_goto, + ppc64_emit_le_goto, + ppc64_emit_gt_goto, + ppc64_emit_ge_goto +}; + +/* Table of emit ops for 64-bit ELFv2. */ + +static struct emit_ops ppc64v2_emit_ops_impl = +{ + ppc64v2_emit_prologue, + ppc64_emit_epilogue, + ppc64_emit_add, + ppc64_emit_sub, + ppc64_emit_mul, + ppc64_emit_lsh, + ppc64_emit_rsh_signed, + ppc64_emit_rsh_unsigned, + ppc64_emit_ext, + ppc64_emit_log_not, + ppc64_emit_bit_and, + ppc64_emit_bit_or, + ppc64_emit_bit_xor, + ppc64_emit_bit_not, + ppc64_emit_equal, + ppc64_emit_less_signed, + ppc64_emit_less_unsigned, + ppc64_emit_ref, + ppc64_emit_if_goto, + ppc_emit_goto, + ppc_write_goto_address, + ppc64_emit_const, + ppc64v2_emit_call, + ppc64v2_emit_reg, + ppc64_emit_pop, + ppc64_emit_stack_flush, + ppc64_emit_zero_ext, + ppc64_emit_swap, + ppc_emit_stack_adjust, + ppc64v2_emit_int_call_1, + ppc64v2_emit_void_call_2, + ppc64_emit_eq_goto, + ppc64_emit_ne_goto, + ppc64_emit_lt_goto, + ppc64_emit_le_goto, + ppc64_emit_gt_goto, + ppc64_emit_ge_goto +}; + +#endif + +/* Implementation of linux_target_ops method "emit_ops". */ + +static struct emit_ops * +ppc_emit_ops (void) +{ +#ifdef __powerpc64__ + struct regcache *regcache = get_thread_regcache (current_thread, 0); + + if (register_size (regcache->tdesc, 0) == 8) + { + if (is_elfv2_inferior ()) + return &ppc64v2_emit_ops_impl; + else + return &ppc64v1_emit_ops_impl; + } +#endif + return &ppc_emit_ops_impl; +} + +/* Implementation of linux_target_ops method "get_ipa_tdesc_idx". */ + +static int +ppc_get_ipa_tdesc_idx (void) +{ + struct regcache *regcache = get_thread_regcache (current_thread, 0); + const struct target_desc *tdesc = regcache->tdesc; + +#ifdef __powerpc64__ + if (tdesc == tdesc_powerpc_64l) + return PPC_TDESC_BASE; + if (tdesc == tdesc_powerpc_altivec64l) + return PPC_TDESC_ALTIVEC; + if (tdesc == tdesc_powerpc_vsx64l) + return PPC_TDESC_VSX; + if (tdesc == tdesc_powerpc_isa205_64l) + return PPC_TDESC_ISA205; + if (tdesc == tdesc_powerpc_isa205_altivec64l) + return PPC_TDESC_ISA205_ALTIVEC; + if (tdesc == tdesc_powerpc_isa205_vsx64l) + return PPC_TDESC_ISA205_VSX; + if (tdesc == tdesc_powerpc_isa205_ppr_dscr_vsx64l) + return PPC_TDESC_ISA205_PPR_DSCR_VSX; + if (tdesc == tdesc_powerpc_isa207_vsx64l) + return PPC_TDESC_ISA207_VSX; + if (tdesc == tdesc_powerpc_isa207_htm_vsx64l) + return PPC_TDESC_ISA207_HTM_VSX; +#endif + + if (tdesc == tdesc_powerpc_32l) + return PPC_TDESC_BASE; + if (tdesc == tdesc_powerpc_altivec32l) + return PPC_TDESC_ALTIVEC; + if (tdesc == tdesc_powerpc_vsx32l) + return PPC_TDESC_VSX; + if (tdesc == tdesc_powerpc_isa205_32l) + return PPC_TDESC_ISA205; + if (tdesc == tdesc_powerpc_isa205_altivec32l) + return PPC_TDESC_ISA205_ALTIVEC; + if (tdesc == tdesc_powerpc_isa205_vsx32l) + return PPC_TDESC_ISA205_VSX; + if (tdesc == tdesc_powerpc_isa205_ppr_dscr_vsx32l) + return PPC_TDESC_ISA205_PPR_DSCR_VSX; + if (tdesc == tdesc_powerpc_isa207_vsx32l) + return PPC_TDESC_ISA207_VSX; + if (tdesc == tdesc_powerpc_isa207_htm_vsx32l) + return PPC_TDESC_ISA207_HTM_VSX; + if (tdesc == tdesc_powerpc_e500l) + return PPC_TDESC_E500; + + return 0; +} + +struct linux_target_ops the_low_target = { + ppc_arch_setup, + ppc_regs_info, + ppc_cannot_fetch_register, + ppc_cannot_store_register, + NULL, /* fetch_register */ + ppc_get_pc, + ppc_set_pc, + NULL, /* breakpoint_kind_from_pc */ + ppc_sw_breakpoint_from_kind, + NULL, + 0, + ppc_breakpoint_at, + ppc_supports_z_point_type, + ppc_insert_point, + ppc_remove_point, + NULL, + NULL, + ppc_collect_ptrace_register, + ppc_supply_ptrace_register, + NULL, /* siginfo_fixup */ + NULL, /* new_process */ + NULL, /* delete_process */ + NULL, /* new_thread */ + NULL, /* delete_thread */ + NULL, /* new_fork */ + NULL, /* prepare_to_resume */ + NULL, /* process_qsupported */ + ppc_supports_tracepoints, + ppc_get_thread_area, + ppc_install_fast_tracepoint_jump_pad, + ppc_emit_ops, + ppc_get_min_fast_tracepoint_insn_len, + NULL, /* supports_range_stepping */ + NULL, /* breakpoint_kind_from_current_state */ + ppc_supports_hardware_single_step, + NULL, /* get_syscall_trapinfo */ + ppc_get_ipa_tdesc_idx, +}; + +void +initialize_low_arch (void) +{ + /* Initialize the Linux target descriptions. */ + + init_registers_powerpc_32l (); + init_registers_powerpc_altivec32l (); + init_registers_powerpc_vsx32l (); + init_registers_powerpc_isa205_32l (); + init_registers_powerpc_isa205_altivec32l (); + init_registers_powerpc_isa205_vsx32l (); + init_registers_powerpc_isa205_ppr_dscr_vsx32l (); + init_registers_powerpc_isa207_vsx32l (); + init_registers_powerpc_isa207_htm_vsx32l (); + init_registers_powerpc_e500l (); +#if __powerpc64__ + init_registers_powerpc_64l (); + init_registers_powerpc_altivec64l (); + init_registers_powerpc_vsx64l (); + init_registers_powerpc_isa205_64l (); + init_registers_powerpc_isa205_altivec64l (); + init_registers_powerpc_isa205_vsx64l (); + init_registers_powerpc_isa205_ppr_dscr_vsx64l (); + init_registers_powerpc_isa207_vsx64l (); + init_registers_powerpc_isa207_htm_vsx64l (); +#endif + + initialize_regsets_info (&ppc_regsets_info); +} diff --git a/gdbserver/linux-s390-ipa.c b/gdbserver/linux-s390-ipa.c deleted file mode 100644 index 5b90302b1eb..00000000000 --- a/gdbserver/linux-s390-ipa.c +++ /dev/null @@ -1,463 +0,0 @@ -/* GNU/Linux S/390 specific low level interface, for the in-process - agent library for GDB. - - Copyright (C) 2016-2020 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 . */ - -#include "server.h" -#include -#include "tracepoint.h" -#include "linux-s390-tdesc.h" -#include -#ifdef HAVE_GETAUXVAL -#include -#endif - -#define FT_FPR(x) (0x000 + (x) * 0x10) -#define FT_VR(x) (0x000 + (x) * 0x10) -#define FT_VR_L(x) (0x008 + (x) * 0x10) -#define FT_GPR(x) (0x200 + (x) * 8) -#define FT_GPR_U(x) (0x200 + (x) * 8) -#define FT_GPR_L(x) (0x204 + (x) * 8) -#define FT_GPR(x) (0x200 + (x) * 8) -#define FT_ACR(x) (0x280 + (x) * 4) -#define FT_PSWM 0x2c0 -#define FT_PSWM_U 0x2c0 -#define FT_PSWA 0x2c8 -#define FT_PSWA_L 0x2cc -#define FT_FPC 0x2d0 - -/* Mappings between registers collected by the jump pad and GDB's register - array layout used by regcache. - - See linux-s390-low.c (s390_install_fast_tracepoint_jump_pad) for more - details. */ - -#ifndef __s390x__ - -/* Used for s390-linux32, s390-linux32v1, s390-linux32v2. */ - -static const int s390_linux32_ft_collect_regmap[] = { - /* 32-bit PSWA and PSWM. */ - FT_PSWM_U, FT_PSWA_L, - /* 32-bit GPRs (mapped to lower halves of 64-bit slots). */ - FT_GPR_L (0), FT_GPR_L (1), FT_GPR_L (2), FT_GPR_L (3), - FT_GPR_L (4), FT_GPR_L (5), FT_GPR_L (6), FT_GPR_L (7), - FT_GPR_L (8), FT_GPR_L (9), FT_GPR_L (10), FT_GPR_L (11), - FT_GPR_L (12), FT_GPR_L (13), FT_GPR_L (14), FT_GPR_L (15), - /* ACRs */ - FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3), - FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7), - FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11), - FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15), - /* FPRs (mapped to upper halves of 128-bit VR slots). */ - FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3), - FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7), - FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11), - FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15), - /* orig_r2, last_break, system_call */ - -1, -1, -1, -}; - -/* Used for s390-linux64, s390-linux64v1, s390-linux64v2, s390-vx-linux64. */ - -static const int s390_linux64_ft_collect_regmap[] = { - /* 32-bit PSWA and PSWM. */ - FT_PSWM_U, FT_PSWA_L, - /* 32-bit halves of 64-bit GPRs. */ - FT_GPR_U (0), FT_GPR_L (0), - FT_GPR_U (1), FT_GPR_L (1), - FT_GPR_U (2), FT_GPR_L (2), - FT_GPR_U (3), FT_GPR_L (3), - FT_GPR_U (4), FT_GPR_L (4), - FT_GPR_U (5), FT_GPR_L (5), - FT_GPR_U (6), FT_GPR_L (6), - FT_GPR_U (7), FT_GPR_L (7), - FT_GPR_U (8), FT_GPR_L (8), - FT_GPR_U (9), FT_GPR_L (9), - FT_GPR_U (10), FT_GPR_L (10), - FT_GPR_U (11), FT_GPR_L (11), - FT_GPR_U (12), FT_GPR_L (12), - FT_GPR_U (13), FT_GPR_L (13), - FT_GPR_U (14), FT_GPR_L (14), - FT_GPR_U (15), FT_GPR_L (15), - /* ACRs */ - FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3), - FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7), - FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11), - FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15), - /* FPRs (mapped to upper halves of 128-bit VR slots). */ - FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3), - FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7), - FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11), - FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15), - /* orig_r2, last_break, system_call */ - -1, -1, -1, - /* Lower halves of 128-bit VRs. */ - FT_VR_L (0), FT_VR_L (1), FT_VR_L (2), FT_VR_L (3), - FT_VR_L (4), FT_VR_L (5), FT_VR_L (6), FT_VR_L (7), - FT_VR_L (8), FT_VR_L (9), FT_VR_L (10), FT_VR_L (11), - FT_VR_L (12), FT_VR_L (13), FT_VR_L (14), FT_VR_L (15), - /* And the next 16 VRs. */ - FT_VR (16), FT_VR (17), FT_VR (18), FT_VR (19), - FT_VR (20), FT_VR (21), FT_VR (22), FT_VR (23), - FT_VR (24), FT_VR (25), FT_VR (26), FT_VR (27), - FT_VR (28), FT_VR (29), FT_VR (30), FT_VR (31), -}; - -/* Used for s390-te-linux64, s390-tevx-linux64, and s390-gs-linux64. */ - -static const int s390_te_linux64_ft_collect_regmap[] = { - /* 32-bit PSWA and PSWM. */ - FT_PSWM_U, FT_PSWA_L, - /* 32-bit halves of 64-bit GPRs. */ - FT_GPR_U (0), FT_GPR_L (0), - FT_GPR_U (1), FT_GPR_L (1), - FT_GPR_U (2), FT_GPR_L (2), - FT_GPR_U (3), FT_GPR_L (3), - FT_GPR_U (4), FT_GPR_L (4), - FT_GPR_U (5), FT_GPR_L (5), - FT_GPR_U (6), FT_GPR_L (6), - FT_GPR_U (7), FT_GPR_L (7), - FT_GPR_U (8), FT_GPR_L (8), - FT_GPR_U (9), FT_GPR_L (9), - FT_GPR_U (10), FT_GPR_L (10), - FT_GPR_U (11), FT_GPR_L (11), - FT_GPR_U (12), FT_GPR_L (12), - FT_GPR_U (13), FT_GPR_L (13), - FT_GPR_U (14), FT_GPR_L (14), - FT_GPR_U (15), FT_GPR_L (15), - /* ACRs */ - FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3), - FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7), - FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11), - FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15), - /* FPRs (mapped to upper halves of 128-bit VR slots). */ - FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3), - FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7), - FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11), - FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15), - /* orig_r2, last_break, system_call */ - -1, -1, -1, - /* TDB */ - -1, -1, -1, -1, - -1, -1, -1, -1, - -1, -1, -1, -1, - -1, -1, -1, -1, - -1, -1, -1, -1, - /* Lower halves of 128-bit VRs. */ - FT_VR_L (0), FT_VR_L (1), FT_VR_L (2), FT_VR_L (3), - FT_VR_L (4), FT_VR_L (5), FT_VR_L (6), FT_VR_L (7), - FT_VR_L (8), FT_VR_L (9), FT_VR_L (10), FT_VR_L (11), - FT_VR_L (12), FT_VR_L (13), FT_VR_L (14), FT_VR_L (15), - /* And the next 16 VRs. */ - FT_VR (16), FT_VR (17), FT_VR (18), FT_VR (19), - FT_VR (20), FT_VR (21), FT_VR (22), FT_VR (23), - FT_VR (24), FT_VR (25), FT_VR (26), FT_VR (27), - FT_VR (28), FT_VR (29), FT_VR (30), FT_VR (31), -}; - -#else /* __s390x__ */ - -/* Used for s390x-linux64, s390x-linux64v1, s390x-linux64v2, s390x-vx-linux64. */ - -static const int s390x_ft_collect_regmap[] = { - /* 64-bit PSWA and PSWM. */ - FT_PSWM, FT_PSWA, - /* 64-bit GPRs. */ - FT_GPR (0), FT_GPR (1), FT_GPR (2), FT_GPR (3), - FT_GPR (4), FT_GPR (5), FT_GPR (6), FT_GPR (7), - FT_GPR (8), FT_GPR (9), FT_GPR (10), FT_GPR (11), - FT_GPR (12), FT_GPR (13), FT_GPR (14), FT_GPR (15), - /* ACRs */ - FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3), - FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7), - FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11), - FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15), - /* FPRs (mapped to upper halves of 128-bit VR slots). */ - FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3), - FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7), - FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11), - FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15), - /* orig_r2, last_break, system_call */ - -1, -1, -1, - /* Lower halves of 128-bit VRs. */ - FT_VR_L (0), FT_VR_L (1), FT_VR_L (2), FT_VR_L (3), - FT_VR_L (4), FT_VR_L (5), FT_VR_L (6), FT_VR_L (7), - FT_VR_L (8), FT_VR_L (9), FT_VR_L (10), FT_VR_L (11), - FT_VR_L (12), FT_VR_L (13), FT_VR_L (14), FT_VR_L (15), - /* And the next 16 VRs. */ - FT_VR (16), FT_VR (17), FT_VR (18), FT_VR (19), - FT_VR (20), FT_VR (21), FT_VR (22), FT_VR (23), - FT_VR (24), FT_VR (25), FT_VR (26), FT_VR (27), - FT_VR (28), FT_VR (29), FT_VR (30), FT_VR (31), -}; - -/* Used for s390x-te-linux64, s390x-tevx-linux64, and - s390x-gs-linux64. */ - -static const int s390x_te_ft_collect_regmap[] = { - /* 64-bit PSWA and PSWM. */ - FT_PSWM, FT_PSWA, - /* 64-bit GPRs. */ - FT_GPR (0), FT_GPR (1), FT_GPR (2), FT_GPR (3), - FT_GPR (4), FT_GPR (5), FT_GPR (6), FT_GPR (7), - FT_GPR (8), FT_GPR (9), FT_GPR (10), FT_GPR (11), - FT_GPR (12), FT_GPR (13), FT_GPR (14), FT_GPR (15), - /* ACRs */ - FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3), - FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7), - FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11), - FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15), - /* FPRs (mapped to upper halves of 128-bit VR slots). */ - FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3), - FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7), - FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11), - FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15), - /* orig_r2, last_break, system_call */ - -1, -1, -1, - /* TDB */ - -1, -1, -1, -1, - -1, -1, -1, -1, - -1, -1, -1, -1, - -1, -1, -1, -1, - -1, -1, -1, -1, - /* Lower halves of 128-bit VRs. */ - FT_VR_L (0), FT_VR_L (1), FT_VR_L (2), FT_VR_L (3), - FT_VR_L (4), FT_VR_L (5), FT_VR_L (6), FT_VR_L (7), - FT_VR_L (8), FT_VR_L (9), FT_VR_L (10), FT_VR_L (11), - FT_VR_L (12), FT_VR_L (13), FT_VR_L (14), FT_VR_L (15), - /* And the next 16 VRs. */ - FT_VR (16), FT_VR (17), FT_VR (18), FT_VR (19), - FT_VR (20), FT_VR (21), FT_VR (22), FT_VR (23), - FT_VR (24), FT_VR (25), FT_VR (26), FT_VR (27), - FT_VR (28), FT_VR (29), FT_VR (30), FT_VR (31), -}; - -#endif - -/* Initialized by get_ipa_tdesc according to the tdesc in use. */ - -static const int *s390_regmap; -static int s390_regnum; - -/* Fill in REGCACHE with registers saved by the jump pad in BUF. */ - -void -supply_fast_tracepoint_registers (struct regcache *regcache, - const unsigned char *buf) -{ - int i; - for (i = 0; i < s390_regnum; i++) - if (s390_regmap[i] != -1) - supply_register (regcache, i, ((char *) buf) + s390_regmap[i]); -} - -ULONGEST -get_raw_reg (const unsigned char *raw_regs, int regnum) -{ - int offset; - if (regnum >= s390_regnum) - return 0; - offset = s390_regmap[regnum]; - if (offset == -1) - return 0; - - /* The regnums are variable, better to figure out size by FT offset. */ - - /* 64-bit ones. */ - if (offset < FT_VR(16) -#ifdef __s390x__ - || (offset >= FT_GPR(0) && offset < FT_ACR(0)) - || offset == FT_PSWM - || offset == FT_PSWA -#endif - ) - return *(uint64_t *) (raw_regs + offset); - - if (offset >= FT_ACR(0 && offset < FT_PSWM) - || offset == FT_FPC -#ifndef __s390x__ - || (offset >= FT_GPR(0) && offset < FT_ACR(0)) - || offset == FT_PSWM_U - || offset == FT_PSWA_L -#endif - ) - return *(uint32_t *) (raw_regs + offset); - - /* This leaves 128-bit VX. No way to return them. */ - return 0; -} - -/* Return target_desc to use for IPA, given the tdesc index passed by - gdbserver. For s390, it also sets s390_regmap and s390_regnum. */ - -const struct target_desc * -get_ipa_tdesc (int idx) -{ -#define SET_REGMAP(regmap, skip_last) \ - do { \ - s390_regmap = regmap; \ - s390_regnum = (sizeof regmap / sizeof regmap[0]) - skip_last; \ - } while(0) - switch (idx) - { -#ifdef __s390x__ - case S390_TDESC_64: - /* Subtract number of VX regs. */ - SET_REGMAP(s390x_ft_collect_regmap, 32); - return tdesc_s390x_linux64; - case S390_TDESC_64V1: - SET_REGMAP(s390x_ft_collect_regmap, 32); - return tdesc_s390x_linux64v1; - case S390_TDESC_64V2: - SET_REGMAP(s390x_ft_collect_regmap, 32); - return tdesc_s390x_linux64v2; - case S390_TDESC_TE: - SET_REGMAP(s390x_te_ft_collect_regmap, 32); - return tdesc_s390x_te_linux64; - case S390_TDESC_VX: - SET_REGMAP(s390x_ft_collect_regmap, 0); - return tdesc_s390x_vx_linux64; - case S390_TDESC_TEVX: - SET_REGMAP(s390x_te_ft_collect_regmap, 0); - return tdesc_s390x_tevx_linux64; - case S390_TDESC_GS: - SET_REGMAP(s390x_te_ft_collect_regmap, 0); - return tdesc_s390x_gs_linux64; -#else - case S390_TDESC_32: - SET_REGMAP(s390_linux32_ft_collect_regmap, 0); - return tdesc_s390_linux32; - case S390_TDESC_32V1: - SET_REGMAP(s390_linux32_ft_collect_regmap, 0); - return tdesc_s390_linux32v1; - case S390_TDESC_32V2: - SET_REGMAP(s390_linux32_ft_collect_regmap, 0); - return tdesc_s390_linux32v2; - case S390_TDESC_64: - SET_REGMAP(s390_linux64_ft_collect_regmap, 32); - return tdesc_s390_linux64; - case S390_TDESC_64V1: - SET_REGMAP(s390_linux64_ft_collect_regmap, 32); - return tdesc_s390_linux64v1; - case S390_TDESC_64V2: - SET_REGMAP(s390_linux64_ft_collect_regmap, 32); - return tdesc_s390_linux64v2; - case S390_TDESC_TE: - SET_REGMAP(s390_te_linux64_ft_collect_regmap, 32); - return tdesc_s390_te_linux64; - case S390_TDESC_VX: - SET_REGMAP(s390_linux64_ft_collect_regmap, 0); - return tdesc_s390_vx_linux64; - case S390_TDESC_TEVX: - SET_REGMAP(s390_te_linux64_ft_collect_regmap, 0); - return tdesc_s390_tevx_linux64; - case S390_TDESC_GS: - SET_REGMAP(s390_te_linux64_ft_collect_regmap, 0); - return tdesc_s390_gs_linux64; -#endif - default: - internal_error (__FILE__, __LINE__, - "unknown ipa tdesc index: %d", idx); -#ifdef __s390x__ - return tdesc_s390x_linux64; -#else - return tdesc_s390_linux32; -#endif - } -} - -/* Allocate buffer for the jump pads. On 31-bit, JG reaches everywhere, - so just allocate normally. On 64-bit, we have +/-4GiB of reach, and - the executable is usually mapped at 0x80000000 - aim for somewhere - below it. */ - -void * -alloc_jump_pad_buffer (size_t size) -{ -#ifdef __s390x__ - uintptr_t addr; - uintptr_t exec_base = getauxval (AT_PHDR); - int pagesize; - void *res; - - if (exec_base == 0) - exec_base = 0x80000000; - - pagesize = sysconf (_SC_PAGE_SIZE); - if (pagesize == -1) - perror_with_name ("sysconf"); - - addr = exec_base - size; - - /* size should already be page-aligned, but this can't hurt. */ - addr &= ~(pagesize - 1); - - /* Search for a free area. If we hit 0, we're out of luck. */ - for (; addr; addr -= pagesize) - { - /* No MAP_FIXED - we don't want to zap someone's mapping. */ - res = mmap ((void *) addr, size, - PROT_READ | PROT_WRITE | PROT_EXEC, - MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); - - /* If we got what we wanted, return. */ - if ((uintptr_t) res == addr) - return res; - - /* If we got a mapping, but at a wrong address, undo it. */ - if (res != MAP_FAILED) - munmap (res, size); - } - - return NULL; -#else - void *res = mmap (NULL, size, PROT_READ | PROT_WRITE | PROT_EXEC, - MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); - - if (res == MAP_FAILED) - return NULL; - - return res; -#endif -} - -void -initialize_low_tracepoint (void) -{ -#ifdef __s390x__ - init_registers_s390x_linux64 (); - init_registers_s390x_linux64v1 (); - init_registers_s390x_linux64v2 (); - init_registers_s390x_te_linux64 (); - init_registers_s390x_vx_linux64 (); - init_registers_s390x_tevx_linux64 (); - init_registers_s390x_gs_linux64 (); -#else - init_registers_s390_linux32 (); - init_registers_s390_linux32v1 (); - init_registers_s390_linux32v2 (); - init_registers_s390_linux64 (); - init_registers_s390_linux64v1 (); - init_registers_s390_linux64v2 (); - init_registers_s390_te_linux64 (); - init_registers_s390_vx_linux64 (); - init_registers_s390_tevx_linux64 (); - init_registers_s390_gs_linux64 (); -#endif -} diff --git a/gdbserver/linux-s390-ipa.cc b/gdbserver/linux-s390-ipa.cc new file mode 100644 index 00000000000..5b90302b1eb --- /dev/null +++ b/gdbserver/linux-s390-ipa.cc @@ -0,0 +1,463 @@ +/* GNU/Linux S/390 specific low level interface, for the in-process + agent library for GDB. + + Copyright (C) 2016-2020 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 . */ + +#include "server.h" +#include +#include "tracepoint.h" +#include "linux-s390-tdesc.h" +#include +#ifdef HAVE_GETAUXVAL +#include +#endif + +#define FT_FPR(x) (0x000 + (x) * 0x10) +#define FT_VR(x) (0x000 + (x) * 0x10) +#define FT_VR_L(x) (0x008 + (x) * 0x10) +#define FT_GPR(x) (0x200 + (x) * 8) +#define FT_GPR_U(x) (0x200 + (x) * 8) +#define FT_GPR_L(x) (0x204 + (x) * 8) +#define FT_GPR(x) (0x200 + (x) * 8) +#define FT_ACR(x) (0x280 + (x) * 4) +#define FT_PSWM 0x2c0 +#define FT_PSWM_U 0x2c0 +#define FT_PSWA 0x2c8 +#define FT_PSWA_L 0x2cc +#define FT_FPC 0x2d0 + +/* Mappings between registers collected by the jump pad and GDB's register + array layout used by regcache. + + See linux-s390-low.c (s390_install_fast_tracepoint_jump_pad) for more + details. */ + +#ifndef __s390x__ + +/* Used for s390-linux32, s390-linux32v1, s390-linux32v2. */ + +static const int s390_linux32_ft_collect_regmap[] = { + /* 32-bit PSWA and PSWM. */ + FT_PSWM_U, FT_PSWA_L, + /* 32-bit GPRs (mapped to lower halves of 64-bit slots). */ + FT_GPR_L (0), FT_GPR_L (1), FT_GPR_L (2), FT_GPR_L (3), + FT_GPR_L (4), FT_GPR_L (5), FT_GPR_L (6), FT_GPR_L (7), + FT_GPR_L (8), FT_GPR_L (9), FT_GPR_L (10), FT_GPR_L (11), + FT_GPR_L (12), FT_GPR_L (13), FT_GPR_L (14), FT_GPR_L (15), + /* ACRs */ + FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3), + FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7), + FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11), + FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15), + /* FPRs (mapped to upper halves of 128-bit VR slots). */ + FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3), + FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7), + FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11), + FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15), + /* orig_r2, last_break, system_call */ + -1, -1, -1, +}; + +/* Used for s390-linux64, s390-linux64v1, s390-linux64v2, s390-vx-linux64. */ + +static const int s390_linux64_ft_collect_regmap[] = { + /* 32-bit PSWA and PSWM. */ + FT_PSWM_U, FT_PSWA_L, + /* 32-bit halves of 64-bit GPRs. */ + FT_GPR_U (0), FT_GPR_L (0), + FT_GPR_U (1), FT_GPR_L (1), + FT_GPR_U (2), FT_GPR_L (2), + FT_GPR_U (3), FT_GPR_L (3), + FT_GPR_U (4), FT_GPR_L (4), + FT_GPR_U (5), FT_GPR_L (5), + FT_GPR_U (6), FT_GPR_L (6), + FT_GPR_U (7), FT_GPR_L (7), + FT_GPR_U (8), FT_GPR_L (8), + FT_GPR_U (9), FT_GPR_L (9), + FT_GPR_U (10), FT_GPR_L (10), + FT_GPR_U (11), FT_GPR_L (11), + FT_GPR_U (12), FT_GPR_L (12), + FT_GPR_U (13), FT_GPR_L (13), + FT_GPR_U (14), FT_GPR_L (14), + FT_GPR_U (15), FT_GPR_L (15), + /* ACRs */ + FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3), + FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7), + FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11), + FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15), + /* FPRs (mapped to upper halves of 128-bit VR slots). */ + FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3), + FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7), + FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11), + FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15), + /* orig_r2, last_break, system_call */ + -1, -1, -1, + /* Lower halves of 128-bit VRs. */ + FT_VR_L (0), FT_VR_L (1), FT_VR_L (2), FT_VR_L (3), + FT_VR_L (4), FT_VR_L (5), FT_VR_L (6), FT_VR_L (7), + FT_VR_L (8), FT_VR_L (9), FT_VR_L (10), FT_VR_L (11), + FT_VR_L (12), FT_VR_L (13), FT_VR_L (14), FT_VR_L (15), + /* And the next 16 VRs. */ + FT_VR (16), FT_VR (17), FT_VR (18), FT_VR (19), + FT_VR (20), FT_VR (21), FT_VR (22), FT_VR (23), + FT_VR (24), FT_VR (25), FT_VR (26), FT_VR (27), + FT_VR (28), FT_VR (29), FT_VR (30), FT_VR (31), +}; + +/* Used for s390-te-linux64, s390-tevx-linux64, and s390-gs-linux64. */ + +static const int s390_te_linux64_ft_collect_regmap[] = { + /* 32-bit PSWA and PSWM. */ + FT_PSWM_U, FT_PSWA_L, + /* 32-bit halves of 64-bit GPRs. */ + FT_GPR_U (0), FT_GPR_L (0), + FT_GPR_U (1), FT_GPR_L (1), + FT_GPR_U (2), FT_GPR_L (2), + FT_GPR_U (3), FT_GPR_L (3), + FT_GPR_U (4), FT_GPR_L (4), + FT_GPR_U (5), FT_GPR_L (5), + FT_GPR_U (6), FT_GPR_L (6), + FT_GPR_U (7), FT_GPR_L (7), + FT_GPR_U (8), FT_GPR_L (8), + FT_GPR_U (9), FT_GPR_L (9), + FT_GPR_U (10), FT_GPR_L (10), + FT_GPR_U (11), FT_GPR_L (11), + FT_GPR_U (12), FT_GPR_L (12), + FT_GPR_U (13), FT_GPR_L (13), + FT_GPR_U (14), FT_GPR_L (14), + FT_GPR_U (15), FT_GPR_L (15), + /* ACRs */ + FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3), + FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7), + FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11), + FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15), + /* FPRs (mapped to upper halves of 128-bit VR slots). */ + FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3), + FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7), + FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11), + FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15), + /* orig_r2, last_break, system_call */ + -1, -1, -1, + /* TDB */ + -1, -1, -1, -1, + -1, -1, -1, -1, + -1, -1, -1, -1, + -1, -1, -1, -1, + -1, -1, -1, -1, + /* Lower halves of 128-bit VRs. */ + FT_VR_L (0), FT_VR_L (1), FT_VR_L (2), FT_VR_L (3), + FT_VR_L (4), FT_VR_L (5), FT_VR_L (6), FT_VR_L (7), + FT_VR_L (8), FT_VR_L (9), FT_VR_L (10), FT_VR_L (11), + FT_VR_L (12), FT_VR_L (13), FT_VR_L (14), FT_VR_L (15), + /* And the next 16 VRs. */ + FT_VR (16), FT_VR (17), FT_VR (18), FT_VR (19), + FT_VR (20), FT_VR (21), FT_VR (22), FT_VR (23), + FT_VR (24), FT_VR (25), FT_VR (26), FT_VR (27), + FT_VR (28), FT_VR (29), FT_VR (30), FT_VR (31), +}; + +#else /* __s390x__ */ + +/* Used for s390x-linux64, s390x-linux64v1, s390x-linux64v2, s390x-vx-linux64. */ + +static const int s390x_ft_collect_regmap[] = { + /* 64-bit PSWA and PSWM. */ + FT_PSWM, FT_PSWA, + /* 64-bit GPRs. */ + FT_GPR (0), FT_GPR (1), FT_GPR (2), FT_GPR (3), + FT_GPR (4), FT_GPR (5), FT_GPR (6), FT_GPR (7), + FT_GPR (8), FT_GPR (9), FT_GPR (10), FT_GPR (11), + FT_GPR (12), FT_GPR (13), FT_GPR (14), FT_GPR (15), + /* ACRs */ + FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3), + FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7), + FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11), + FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15), + /* FPRs (mapped to upper halves of 128-bit VR slots). */ + FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3), + FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7), + FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11), + FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15), + /* orig_r2, last_break, system_call */ + -1, -1, -1, + /* Lower halves of 128-bit VRs. */ + FT_VR_L (0), FT_VR_L (1), FT_VR_L (2), FT_VR_L (3), + FT_VR_L (4), FT_VR_L (5), FT_VR_L (6), FT_VR_L (7), + FT_VR_L (8), FT_VR_L (9), FT_VR_L (10), FT_VR_L (11), + FT_VR_L (12), FT_VR_L (13), FT_VR_L (14), FT_VR_L (15), + /* And the next 16 VRs. */ + FT_VR (16), FT_VR (17), FT_VR (18), FT_VR (19), + FT_VR (20), FT_VR (21), FT_VR (22), FT_VR (23), + FT_VR (24), FT_VR (25), FT_VR (26), FT_VR (27), + FT_VR (28), FT_VR (29), FT_VR (30), FT_VR (31), +}; + +/* Used for s390x-te-linux64, s390x-tevx-linux64, and + s390x-gs-linux64. */ + +static const int s390x_te_ft_collect_regmap[] = { + /* 64-bit PSWA and PSWM. */ + FT_PSWM, FT_PSWA, + /* 64-bit GPRs. */ + FT_GPR (0), FT_GPR (1), FT_GPR (2), FT_GPR (3), + FT_GPR (4), FT_GPR (5), FT_GPR (6), FT_GPR (7), + FT_GPR (8), FT_GPR (9), FT_GPR (10), FT_GPR (11), + FT_GPR (12), FT_GPR (13), FT_GPR (14), FT_GPR (15), + /* ACRs */ + FT_ACR (0), FT_ACR (1), FT_ACR (2), FT_ACR (3), + FT_ACR (4), FT_ACR (5), FT_ACR (6), FT_ACR (7), + FT_ACR (8), FT_ACR (9), FT_ACR (10), FT_ACR (11), + FT_ACR (12), FT_ACR (13), FT_ACR (14), FT_ACR (15), + /* FPRs (mapped to upper halves of 128-bit VR slots). */ + FT_FPR (0), FT_FPR (1), FT_FPR (2), FT_FPR (3), + FT_FPR (4), FT_FPR (5), FT_FPR (6), FT_FPR (7), + FT_FPR (8), FT_FPR (9), FT_FPR (10), FT_FPR (11), + FT_FPR (12), FT_FPR (13), FT_FPR (14), FT_FPR (15), + /* orig_r2, last_break, system_call */ + -1, -1, -1, + /* TDB */ + -1, -1, -1, -1, + -1, -1, -1, -1, + -1, -1, -1, -1, + -1, -1, -1, -1, + -1, -1, -1, -1, + /* Lower halves of 128-bit VRs. */ + FT_VR_L (0), FT_VR_L (1), FT_VR_L (2), FT_VR_L (3), + FT_VR_L (4), FT_VR_L (5), FT_VR_L (6), FT_VR_L (7), + FT_VR_L (8), FT_VR_L (9), FT_VR_L (10), FT_VR_L (11), + FT_VR_L (12), FT_VR_L (13), FT_VR_L (14), FT_VR_L (15), + /* And the next 16 VRs. */ + FT_VR (16), FT_VR (17), FT_VR (18), FT_VR (19), + FT_VR (20), FT_VR (21), FT_VR (22), FT_VR (23), + FT_VR (24), FT_VR (25), FT_VR (26), FT_VR (27), + FT_VR (28), FT_VR (29), FT_VR (30), FT_VR (31), +}; + +#endif + +/* Initialized by get_ipa_tdesc according to the tdesc in use. */ + +static const int *s390_regmap; +static int s390_regnum; + +/* Fill in REGCACHE with registers saved by the jump pad in BUF. */ + +void +supply_fast_tracepoint_registers (struct regcache *regcache, + const unsigned char *buf) +{ + int i; + for (i = 0; i < s390_regnum; i++) + if (s390_regmap[i] != -1) + supply_register (regcache, i, ((char *) buf) + s390_regmap[i]); +} + +ULONGEST +get_raw_reg (const unsigned char *raw_regs, int regnum) +{ + int offset; + if (regnum >= s390_regnum) + return 0; + offset = s390_regmap[regnum]; + if (offset == -1) + return 0; + + /* The regnums are variable, better to figure out size by FT offset. */ + + /* 64-bit ones. */ + if (offset < FT_VR(16) +#ifdef __s390x__ + || (offset >= FT_GPR(0) && offset < FT_ACR(0)) + || offset == FT_PSWM + || offset == FT_PSWA +#endif + ) + return *(uint64_t *) (raw_regs + offset); + + if (offset >= FT_ACR(0 && offset < FT_PSWM) + || offset == FT_FPC +#ifndef __s390x__ + || (offset >= FT_GPR(0) && offset < FT_ACR(0)) + || offset == FT_PSWM_U + || offset == FT_PSWA_L +#endif + ) + return *(uint32_t *) (raw_regs + offset); + + /* This leaves 128-bit VX. No way to return them. */ + return 0; +} + +/* Return target_desc to use for IPA, given the tdesc index passed by + gdbserver. For s390, it also sets s390_regmap and s390_regnum. */ + +const struct target_desc * +get_ipa_tdesc (int idx) +{ +#define SET_REGMAP(regmap, skip_last) \ + do { \ + s390_regmap = regmap; \ + s390_regnum = (sizeof regmap / sizeof regmap[0]) - skip_last; \ + } while(0) + switch (idx) + { +#ifdef __s390x__ + case S390_TDESC_64: + /* Subtract number of VX regs. */ + SET_REGMAP(s390x_ft_collect_regmap, 32); + return tdesc_s390x_linux64; + case S390_TDESC_64V1: + SET_REGMAP(s390x_ft_collect_regmap, 32); + return tdesc_s390x_linux64v1; + case S390_TDESC_64V2: + SET_REGMAP(s390x_ft_collect_regmap, 32); + return tdesc_s390x_linux64v2; + case S390_TDESC_TE: + SET_REGMAP(s390x_te_ft_collect_regmap, 32); + return tdesc_s390x_te_linux64; + case S390_TDESC_VX: + SET_REGMAP(s390x_ft_collect_regmap, 0); + return tdesc_s390x_vx_linux64; + case S390_TDESC_TEVX: + SET_REGMAP(s390x_te_ft_collect_regmap, 0); + return tdesc_s390x_tevx_linux64; + case S390_TDESC_GS: + SET_REGMAP(s390x_te_ft_collect_regmap, 0); + return tdesc_s390x_gs_linux64; +#else + case S390_TDESC_32: + SET_REGMAP(s390_linux32_ft_collect_regmap, 0); + return tdesc_s390_linux32; + case S390_TDESC_32V1: + SET_REGMAP(s390_linux32_ft_collect_regmap, 0); + return tdesc_s390_linux32v1; + case S390_TDESC_32V2: + SET_REGMAP(s390_linux32_ft_collect_regmap, 0); + return tdesc_s390_linux32v2; + case S390_TDESC_64: + SET_REGMAP(s390_linux64_ft_collect_regmap, 32); + return tdesc_s390_linux64; + case S390_TDESC_64V1: + SET_REGMAP(s390_linux64_ft_collect_regmap, 32); + return tdesc_s390_linux64v1; + case S390_TDESC_64V2: + SET_REGMAP(s390_linux64_ft_collect_regmap, 32); + return tdesc_s390_linux64v2; + case S390_TDESC_TE: + SET_REGMAP(s390_te_linux64_ft_collect_regmap, 32); + return tdesc_s390_te_linux64; + case S390_TDESC_VX: + SET_REGMAP(s390_linux64_ft_collect_regmap, 0); + return tdesc_s390_vx_linux64; + case S390_TDESC_TEVX: + SET_REGMAP(s390_te_linux64_ft_collect_regmap, 0); + return tdesc_s390_tevx_linux64; + case S390_TDESC_GS: + SET_REGMAP(s390_te_linux64_ft_collect_regmap, 0); + return tdesc_s390_gs_linux64; +#endif + default: + internal_error (__FILE__, __LINE__, + "unknown ipa tdesc index: %d", idx); +#ifdef __s390x__ + return tdesc_s390x_linux64; +#else + return tdesc_s390_linux32; +#endif + } +} + +/* Allocate buffer for the jump pads. On 31-bit, JG reaches everywhere, + so just allocate normally. On 64-bit, we have +/-4GiB of reach, and + the executable is usually mapped at 0x80000000 - aim for somewhere + below it. */ + +void * +alloc_jump_pad_buffer (size_t size) +{ +#ifdef __s390x__ + uintptr_t addr; + uintptr_t exec_base = getauxval (AT_PHDR); + int pagesize; + void *res; + + if (exec_base == 0) + exec_base = 0x80000000; + + pagesize = sysconf (_SC_PAGE_SIZE); + if (pagesize == -1) + perror_with_name ("sysconf"); + + addr = exec_base - size; + + /* size should already be page-aligned, but this can't hurt. */ + addr &= ~(pagesize - 1); + + /* Search for a free area. If we hit 0, we're out of luck. */ + for (; addr; addr -= pagesize) + { + /* No MAP_FIXED - we don't want to zap someone's mapping. */ + res = mmap ((void *) addr, size, + PROT_READ | PROT_WRITE | PROT_EXEC, + MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); + + /* If we got what we wanted, return. */ + if ((uintptr_t) res == addr) + return res; + + /* If we got a mapping, but at a wrong address, undo it. */ + if (res != MAP_FAILED) + munmap (res, size); + } + + return NULL; +#else + void *res = mmap (NULL, size, PROT_READ | PROT_WRITE | PROT_EXEC, + MAP_PRIVATE | MAP_ANONYMOUS, -1, 0); + + if (res == MAP_FAILED) + return NULL; + + return res; +#endif +} + +void +initialize_low_tracepoint (void) +{ +#ifdef __s390x__ + init_registers_s390x_linux64 (); + init_registers_s390x_linux64v1 (); + init_registers_s390x_linux64v2 (); + init_registers_s390x_te_linux64 (); + init_registers_s390x_vx_linux64 (); + init_registers_s390x_tevx_linux64 (); + init_registers_s390x_gs_linux64 (); +#else + init_registers_s390_linux32 (); + init_registers_s390_linux32v1 (); + init_registers_s390_linux32v2 (); + init_registers_s390_linux64 (); + init_registers_s390_linux64v1 (); + init_registers_s390_linux64v2 (); + init_registers_s390_te_linux64 (); + init_registers_s390_vx_linux64 (); + init_registers_s390_tevx_linux64 (); + init_registers_s390_gs_linux64 (); +#endif +} diff --git a/gdbserver/linux-s390-low.c b/gdbserver/linux-s390-low.c deleted file mode 100644 index f3d6f093099..00000000000 --- a/gdbserver/linux-s390-low.c +++ /dev/null @@ -1,2860 +0,0 @@ -/* GNU/Linux S/390 specific low level interface, for the remote server - for GDB. - Copyright (C) 2001-2020 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 . */ - -/* This file is used for both 31-bit and 64-bit S/390 systems. */ - -#include "server.h" -#include "linux-low.h" -#include "elf/common.h" -#include "ax.h" -#include "tracepoint.h" - -#include -#include "nat/gdb_ptrace.h" -#include -#include -#include - -#include "linux-s390-tdesc.h" - -#ifndef HWCAP_S390_HIGH_GPRS -#define HWCAP_S390_HIGH_GPRS 512 -#endif - -#ifndef HWCAP_S390_TE -#define HWCAP_S390_TE 1024 -#endif - -#ifndef HWCAP_S390_VX -#define HWCAP_S390_VX 2048 -#endif - -#ifndef HWCAP_S390_GS -#define HWCAP_S390_GS 16384 -#endif - -#define s390_num_regs 52 - -static int s390_regmap[] = { - PT_PSWMASK, PT_PSWADDR, - - PT_GPR0, PT_GPR1, PT_GPR2, PT_GPR3, - PT_GPR4, PT_GPR5, PT_GPR6, PT_GPR7, - PT_GPR8, PT_GPR9, PT_GPR10, PT_GPR11, - PT_GPR12, PT_GPR13, PT_GPR14, PT_GPR15, - - PT_ACR0, PT_ACR1, PT_ACR2, PT_ACR3, - PT_ACR4, PT_ACR5, PT_ACR6, PT_ACR7, - PT_ACR8, PT_ACR9, PT_ACR10, PT_ACR11, - PT_ACR12, PT_ACR13, PT_ACR14, PT_ACR15, - - PT_FPC, - -#ifndef __s390x__ - PT_FPR0_HI, PT_FPR1_HI, PT_FPR2_HI, PT_FPR3_HI, - PT_FPR4_HI, PT_FPR5_HI, PT_FPR6_HI, PT_FPR7_HI, - PT_FPR8_HI, PT_FPR9_HI, PT_FPR10_HI, PT_FPR11_HI, - PT_FPR12_HI, PT_FPR13_HI, PT_FPR14_HI, PT_FPR15_HI, -#else - PT_FPR0, PT_FPR1, PT_FPR2, PT_FPR3, - PT_FPR4, PT_FPR5, PT_FPR6, PT_FPR7, - PT_FPR8, PT_FPR9, PT_FPR10, PT_FPR11, - PT_FPR12, PT_FPR13, PT_FPR14, PT_FPR15, -#endif - - PT_ORIGGPR2, -}; - -#define s390_num_regs_3264 68 - -#ifdef __s390x__ -static int s390_regmap_3264[] = { - PT_PSWMASK, PT_PSWADDR, - - PT_GPR0, PT_GPR0, PT_GPR1, PT_GPR1, - PT_GPR2, PT_GPR2, PT_GPR3, PT_GPR3, - PT_GPR4, PT_GPR4, PT_GPR5, PT_GPR5, - PT_GPR6, PT_GPR6, PT_GPR7, PT_GPR7, - PT_GPR8, PT_GPR8, PT_GPR9, PT_GPR9, - PT_GPR10, PT_GPR10, PT_GPR11, PT_GPR11, - PT_GPR12, PT_GPR12, PT_GPR13, PT_GPR13, - PT_GPR14, PT_GPR14, PT_GPR15, PT_GPR15, - - PT_ACR0, PT_ACR1, PT_ACR2, PT_ACR3, - PT_ACR4, PT_ACR5, PT_ACR6, PT_ACR7, - PT_ACR8, PT_ACR9, PT_ACR10, PT_ACR11, - PT_ACR12, PT_ACR13, PT_ACR14, PT_ACR15, - - PT_FPC, - - PT_FPR0, PT_FPR1, PT_FPR2, PT_FPR3, - PT_FPR4, PT_FPR5, PT_FPR6, PT_FPR7, - PT_FPR8, PT_FPR9, PT_FPR10, PT_FPR11, - PT_FPR12, PT_FPR13, PT_FPR14, PT_FPR15, - - PT_ORIGGPR2, -}; -#else -static int s390_regmap_3264[] = { - PT_PSWMASK, PT_PSWADDR, - - -1, PT_GPR0, -1, PT_GPR1, - -1, PT_GPR2, -1, PT_GPR3, - -1, PT_GPR4, -1, PT_GPR5, - -1, PT_GPR6, -1, PT_GPR7, - -1, PT_GPR8, -1, PT_GPR9, - -1, PT_GPR10, -1, PT_GPR11, - -1, PT_GPR12, -1, PT_GPR13, - -1, PT_GPR14, -1, PT_GPR15, - - PT_ACR0, PT_ACR1, PT_ACR2, PT_ACR3, - PT_ACR4, PT_ACR5, PT_ACR6, PT_ACR7, - PT_ACR8, PT_ACR9, PT_ACR10, PT_ACR11, - PT_ACR12, PT_ACR13, PT_ACR14, PT_ACR15, - - PT_FPC, - - PT_FPR0_HI, PT_FPR1_HI, PT_FPR2_HI, PT_FPR3_HI, - PT_FPR4_HI, PT_FPR5_HI, PT_FPR6_HI, PT_FPR7_HI, - PT_FPR8_HI, PT_FPR9_HI, PT_FPR10_HI, PT_FPR11_HI, - PT_FPR12_HI, PT_FPR13_HI, PT_FPR14_HI, PT_FPR15_HI, - - PT_ORIGGPR2, -}; -#endif - - -static int -s390_cannot_fetch_register (int regno) -{ - return 0; -} - -static int -s390_cannot_store_register (int regno) -{ - return 0; -} - -static void -s390_collect_ptrace_register (struct regcache *regcache, int regno, char *buf) -{ - int size = register_size (regcache->tdesc, regno); - const struct regs_info *regs_info = (*the_low_target.regs_info) (); - struct usrregs_info *usr = regs_info->usrregs; - int regaddr = usr->regmap[regno]; - - if (size < sizeof (long)) - { - memset (buf, 0, sizeof (long)); - - if ((regno ^ 1) < usr->num_regs - && usr->regmap[regno ^ 1] == regaddr) - { - collect_register (regcache, regno & ~1, buf); - collect_register (regcache, (regno & ~1) + 1, - buf + sizeof (long) - size); - } - else if (regaddr == PT_PSWMASK) - { - /* Convert 4-byte PSW mask to 8 bytes by clearing bit 12 and copying - the basic addressing mode bit from the PSW address. */ - gdb_byte *addr = (gdb_byte *) alloca (register_size (regcache->tdesc, regno ^ 1)); - collect_register (regcache, regno, buf); - collect_register (regcache, regno ^ 1, addr); - buf[1] &= ~0x8; - buf[size] |= (addr[0] & 0x80); - } - else if (regaddr == PT_PSWADDR) - { - /* Convert 4-byte PSW address to 8 bytes by clearing the addressing - mode bit (which gets copied to the PSW mask instead). */ - collect_register (regcache, regno, buf + sizeof (long) - size); - buf[sizeof (long) - size] &= ~0x80; - } - else if ((regaddr >= PT_GPR0 && regaddr <= PT_GPR15) - || regaddr == PT_ORIGGPR2) - collect_register (regcache, regno, buf + sizeof (long) - size); - else - collect_register (regcache, regno, buf); - } - else if (regaddr != -1) - collect_register (regcache, regno, buf); -} - -static void -s390_supply_ptrace_register (struct regcache *regcache, - int regno, const char *buf) -{ - int size = register_size (regcache->tdesc, regno); - const struct regs_info *regs_info = (*the_low_target.regs_info) (); - struct usrregs_info *usr = regs_info->usrregs; - int regaddr = usr->regmap[regno]; - - if (size < sizeof (long)) - { - if ((regno ^ 1) < usr->num_regs - && usr->regmap[regno ^ 1] == regaddr) - { - supply_register (regcache, regno & ~1, buf); - supply_register (regcache, (regno & ~1) + 1, - buf + sizeof (long) - size); - } - else if (regaddr == PT_PSWMASK) - { - /* Convert 8-byte PSW mask to 4 bytes by setting bit 12 and copying - the basic addressing mode into the PSW address. */ - gdb_byte *mask = (gdb_byte *) alloca (size); - gdb_byte *addr = (gdb_byte *) alloca (register_size (regcache->tdesc, regno ^ 1)); - memcpy (mask, buf, size); - mask[1] |= 0x8; - supply_register (regcache, regno, mask); - - collect_register (regcache, regno ^ 1, addr); - addr[0] &= ~0x80; - addr[0] |= (buf[size] & 0x80); - supply_register (regcache, regno ^ 1, addr); - } - else if (regaddr == PT_PSWADDR) - { - /* Convert 8-byte PSW address to 4 bytes by truncating, but - keeping the addressing mode bit (which was set from the mask). */ - gdb_byte *addr = (gdb_byte *) alloca (size); - char amode; - collect_register (regcache, regno, addr); - amode = addr[0] & 0x80; - memcpy (addr, buf + sizeof (long) - size, size); - addr[0] &= ~0x80; - addr[0] |= amode; - supply_register (regcache, regno, addr); - } - else if ((regaddr >= PT_GPR0 && regaddr <= PT_GPR15) - || regaddr == PT_ORIGGPR2) - supply_register (regcache, regno, buf + sizeof (long) - size); - else - supply_register (regcache, regno, buf); - } - else if (regaddr != -1) - supply_register (regcache, regno, buf); -} - -/* Provide only a fill function for the general register set. ps_lgetregs - will use this for NPTL support. */ - -static void -s390_fill_gregset (struct regcache *regcache, void *buf) -{ - int i; - const struct regs_info *regs_info = (*the_low_target.regs_info) (); - struct usrregs_info *usr = regs_info->usrregs; - - for (i = 0; i < usr->num_regs; i++) - { - if (usr->regmap[i] < PT_PSWMASK - || usr->regmap[i] > PT_ACR15) - continue; - - s390_collect_ptrace_register (regcache, i, - (char *) buf + usr->regmap[i]); - } -} - -/* Fill and store functions for extended register sets. */ - -#ifndef __s390x__ -static void -s390_fill_gprs_high (struct regcache *regcache, void *buf) -{ - int r0h = find_regno (regcache->tdesc, "r0h"); - int i; - - for (i = 0; i < 16; i++) - collect_register (regcache, r0h + 2 * i, (char *) buf + 4 * i); -} - -static void -s390_store_gprs_high (struct regcache *regcache, const void *buf) -{ - int r0h = find_regno (regcache->tdesc, "r0h"); - int i; - - for (i = 0; i < 16; i++) - supply_register (regcache, r0h + 2 * i, (const char *) buf + 4 * i); -} -#endif - -static void -s390_store_last_break (struct regcache *regcache, const void *buf) -{ - const char *p; - - p = (const char *) buf + 8 - register_size (regcache->tdesc, 0); - supply_register_by_name (regcache, "last_break", p); -} - -static void -s390_fill_system_call (struct regcache *regcache, void *buf) -{ - collect_register_by_name (regcache, "system_call", buf); -} - -static void -s390_store_system_call (struct regcache *regcache, const void *buf) -{ - supply_register_by_name (regcache, "system_call", buf); -} - -static void -s390_store_tdb (struct regcache *regcache, const void *buf) -{ - int tdb0 = find_regno (regcache->tdesc, "tdb0"); - int tr0 = find_regno (regcache->tdesc, "tr0"); - int i; - - for (i = 0; i < 4; i++) - supply_register (regcache, tdb0 + i, (const char *) buf + 8 * i); - - for (i = 0; i < 16; i++) - supply_register (regcache, tr0 + i, (const char *) buf + 8 * (16 + i)); -} - -static void -s390_fill_vxrs_low (struct regcache *regcache, void *buf) -{ - int v0 = find_regno (regcache->tdesc, "v0l"); - int i; - - for (i = 0; i < 16; i++) - collect_register (regcache, v0 + i, (char *) buf + 8 * i); -} - -static void -s390_store_vxrs_low (struct regcache *regcache, const void *buf) -{ - int v0 = find_regno (regcache->tdesc, "v0l"); - int i; - - for (i = 0; i < 16; i++) - supply_register (regcache, v0 + i, (const char *) buf + 8 * i); -} - -static void -s390_fill_vxrs_high (struct regcache *regcache, void *buf) -{ - int v16 = find_regno (regcache->tdesc, "v16"); - int i; - - for (i = 0; i < 16; i++) - collect_register (regcache, v16 + i, (char *) buf + 16 * i); -} - -static void -s390_store_vxrs_high (struct regcache *regcache, const void *buf) -{ - int v16 = find_regno (regcache->tdesc, "v16"); - int i; - - for (i = 0; i < 16; i++) - supply_register (regcache, v16 + i, (const char *) buf + 16 * i); -} - -static void -s390_store_gs (struct regcache *regcache, const void *buf) -{ - int gsd = find_regno (regcache->tdesc, "gsd"); - int i; - - for (i = 0; i < 3; i++) - supply_register (regcache, gsd + i, (const char *) buf + 8 * (i + 1)); -} - -static void -s390_store_gsbc (struct regcache *regcache, const void *buf) -{ - int bc_gsd = find_regno (regcache->tdesc, "bc_gsd"); - int i; - - for (i = 0; i < 3; i++) - supply_register (regcache, bc_gsd + i, (const char *) buf + 8 * (i + 1)); -} - -static struct regset_info s390_regsets[] = { - { 0, 0, 0, 0, GENERAL_REGS, s390_fill_gregset, NULL }, -#ifndef __s390x__ - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_S390_HIGH_GPRS, 0, - EXTENDED_REGS, s390_fill_gprs_high, s390_store_gprs_high }, -#endif - /* Last break address is read-only; no fill function. */ - { PTRACE_GETREGSET, -1, NT_S390_LAST_BREAK, 0, EXTENDED_REGS, - NULL, s390_store_last_break }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_S390_SYSTEM_CALL, 0, - EXTENDED_REGS, s390_fill_system_call, s390_store_system_call }, - /* TDB is read-only. */ - { PTRACE_GETREGSET, -1, NT_S390_TDB, 0, EXTENDED_REGS, - NULL, s390_store_tdb }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_S390_VXRS_LOW, 0, - EXTENDED_REGS, s390_fill_vxrs_low, s390_store_vxrs_low }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_S390_VXRS_HIGH, 0, - EXTENDED_REGS, s390_fill_vxrs_high, s390_store_vxrs_high }, - /* Guarded storage registers are read-only. */ - { PTRACE_GETREGSET, -1, NT_S390_GS_CB, 0, EXTENDED_REGS, - NULL, s390_store_gs }, - { PTRACE_GETREGSET, -1, NT_S390_GS_BC, 0, EXTENDED_REGS, - NULL, s390_store_gsbc }, - NULL_REGSET -}; - - -static const gdb_byte s390_breakpoint[] = { 0, 1 }; -#define s390_breakpoint_len 2 - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -s390_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = s390_breakpoint_len; - return s390_breakpoint; -} - -static CORE_ADDR -s390_get_pc (struct regcache *regcache) -{ - if (register_size (regcache->tdesc, 0) == 4) - { - unsigned int pswa; - collect_register_by_name (regcache, "pswa", &pswa); - return pswa & 0x7fffffff; - } - else - { - unsigned long pc; - collect_register_by_name (regcache, "pswa", &pc); - return pc; - } -} - -static void -s390_set_pc (struct regcache *regcache, CORE_ADDR newpc) -{ - if (register_size (regcache->tdesc, 0) == 4) - { - unsigned int pswa; - collect_register_by_name (regcache, "pswa", &pswa); - pswa = (pswa & 0x80000000) | (newpc & 0x7fffffff); - supply_register_by_name (regcache, "pswa", &pswa); - } - else - { - unsigned long pc = newpc; - supply_register_by_name (regcache, "pswa", &pc); - } -} - -/* Determine the word size for the given PID, in bytes. */ - -#ifdef __s390x__ -static int -s390_get_wordsize (int pid) -{ - errno = 0; - PTRACE_XFER_TYPE pswm = ptrace (PTRACE_PEEKUSER, pid, - (PTRACE_TYPE_ARG3) 0, - (PTRACE_TYPE_ARG4) 0); - if (errno != 0) - { - warning (_("Couldn't determine word size, assuming 64-bit.")); - return 8; - } - /* Derive word size from extended addressing mode (PSW bit 31). */ - return pswm & (1L << 32) ? 8 : 4; -} -#else -#define s390_get_wordsize(pid) 4 -#endif - -static int -s390_check_regset (int pid, int regset, int regsize) -{ - void *buf = alloca (regsize); - struct iovec iov; - - iov.iov_base = buf; - iov.iov_len = regsize; - - if (ptrace (PTRACE_GETREGSET, pid, (long) regset, (long) &iov) >= 0 - || errno == ENODATA) - return 1; - return 0; -} - -/* For a 31-bit inferior, whether the kernel supports using the full - 64-bit GPRs. */ -static int have_hwcap_s390_high_gprs = 0; -static int have_hwcap_s390_vx = 0; - -static void -s390_arch_setup (void) -{ - const struct target_desc *tdesc; - struct regset_info *regset; - - /* Determine word size and HWCAP. */ - int pid = pid_of (current_thread); - int wordsize = s390_get_wordsize (pid); - unsigned long hwcap = linux_get_hwcap (wordsize); - - /* Check whether the kernel supports extra register sets. */ - int have_regset_last_break - = s390_check_regset (pid, NT_S390_LAST_BREAK, 8); - int have_regset_system_call - = s390_check_regset (pid, NT_S390_SYSTEM_CALL, 4); - int have_regset_tdb - = (s390_check_regset (pid, NT_S390_TDB, 256) - && (hwcap & HWCAP_S390_TE) != 0); - int have_regset_vxrs - = (s390_check_regset (pid, NT_S390_VXRS_LOW, 128) - && s390_check_regset (pid, NT_S390_VXRS_HIGH, 256) - && (hwcap & HWCAP_S390_VX) != 0); - int have_regset_gs - = (s390_check_regset (pid, NT_S390_GS_CB, 32) - && s390_check_regset (pid, NT_S390_GS_BC, 32) - && (hwcap & HWCAP_S390_GS) != 0); - - { -#ifdef __s390x__ - if (wordsize == 8) - { - if (have_regset_gs) - tdesc = tdesc_s390x_gs_linux64; - else if (have_regset_vxrs) - tdesc = (have_regset_tdb ? tdesc_s390x_tevx_linux64 : - tdesc_s390x_vx_linux64); - else if (have_regset_tdb) - tdesc = tdesc_s390x_te_linux64; - else if (have_regset_system_call) - tdesc = tdesc_s390x_linux64v2; - else if (have_regset_last_break) - tdesc = tdesc_s390x_linux64v1; - else - tdesc = tdesc_s390x_linux64; - } - - /* For a 31-bit inferior, check whether the kernel supports - using the full 64-bit GPRs. */ - else -#endif - if (hwcap & HWCAP_S390_HIGH_GPRS) - { - have_hwcap_s390_high_gprs = 1; - if (have_regset_gs) - tdesc = tdesc_s390_gs_linux64; - else if (have_regset_vxrs) - tdesc = (have_regset_tdb ? tdesc_s390_tevx_linux64 : - tdesc_s390_vx_linux64); - else if (have_regset_tdb) - tdesc = tdesc_s390_te_linux64; - else if (have_regset_system_call) - tdesc = tdesc_s390_linux64v2; - else if (have_regset_last_break) - tdesc = tdesc_s390_linux64v1; - else - tdesc = tdesc_s390_linux64; - } - else - { - /* Assume 31-bit inferior process. */ - if (have_regset_system_call) - tdesc = tdesc_s390_linux32v2; - else if (have_regset_last_break) - tdesc = tdesc_s390_linux32v1; - else - tdesc = tdesc_s390_linux32; - } - - have_hwcap_s390_vx = have_regset_vxrs; - } - - /* Update target_regsets according to available register sets. */ - for (regset = s390_regsets; regset->size >= 0; regset++) - if (regset->get_request == PTRACE_GETREGSET) - switch (regset->nt_type) - { -#ifndef __s390x__ - case NT_S390_HIGH_GPRS: - regset->size = have_hwcap_s390_high_gprs ? 64 : 0; - break; -#endif - case NT_S390_LAST_BREAK: - regset->size = have_regset_last_break ? 8 : 0; - break; - case NT_S390_SYSTEM_CALL: - regset->size = have_regset_system_call ? 4 : 0; - break; - case NT_S390_TDB: - regset->size = have_regset_tdb ? 256 : 0; - break; - case NT_S390_VXRS_LOW: - regset->size = have_regset_vxrs ? 128 : 0; - break; - case NT_S390_VXRS_HIGH: - regset->size = have_regset_vxrs ? 256 : 0; - break; - case NT_S390_GS_CB: - case NT_S390_GS_BC: - regset->size = have_regset_gs ? 32 : 0; - default: - break; - } - - current_process ()->tdesc = tdesc; -} - - -static int -s390_breakpoint_at (CORE_ADDR pc) -{ - unsigned char c[s390_breakpoint_len]; - read_inferior_memory (pc, c, s390_breakpoint_len); - return memcmp (c, s390_breakpoint, s390_breakpoint_len) == 0; -} - -/* Breakpoint/Watchpoint support. */ - -/* The "supports_z_point_type" linux_target_ops method. */ - -static int -s390_supports_z_point_type (char z_type) -{ - switch (z_type) - { - case Z_PACKET_SW_BP: - return 1; - default: - return 0; - } -} - -/* Support for hardware single step. */ - -static int -s390_supports_hardware_single_step (void) -{ - return 1; -} - -static struct usrregs_info s390_usrregs_info = - { - s390_num_regs, - s390_regmap, - }; - -static struct regsets_info s390_regsets_info = - { - s390_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &s390_usrregs_info, - &s390_regsets_info - }; - -static struct usrregs_info s390_usrregs_info_3264 = - { - s390_num_regs_3264, - s390_regmap_3264 - }; - -static struct regsets_info s390_regsets_info_3264 = - { - s390_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct regs_info regs_info_3264 = - { - NULL, /* regset_bitmap */ - &s390_usrregs_info_3264, - &s390_regsets_info_3264 - }; - -static const struct regs_info * -s390_regs_info (void) -{ - if (have_hwcap_s390_high_gprs) - { -#ifdef __s390x__ - const struct target_desc *tdesc = current_process ()->tdesc; - - if (register_size (tdesc, 0) == 4) - return ®s_info_3264; -#else - return ®s_info_3264; -#endif - } - return ®s_info; -} - -/* The "supports_tracepoints" linux_target_ops method. */ - -static int -s390_supports_tracepoints (void) -{ - return 1; -} - -/* Implementation of linux_target_ops method "get_thread_area". */ - -static int -s390_get_thread_area (int lwpid, CORE_ADDR *addrp) -{ - CORE_ADDR res = ptrace (PTRACE_PEEKUSER, lwpid, (long) PT_ACR0, (long) 0); -#ifdef __s390x__ - struct regcache *regcache = get_thread_regcache (current_thread, 0); - - if (register_size (regcache->tdesc, 0) == 4) - res &= 0xffffffffull; -#endif - *addrp = res; - return 0; -} - - -/* Fast tracepoint support. - - The register save area on stack is identical for all targets: - - 0x000+i*0x10: VR0-VR31 - 0x200+i*8: GR0-GR15 - 0x280+i*4: AR0-AR15 - 0x2c0: PSWM [64-bit] - 0x2c8: PSWA [64-bit] - 0x2d0: FPC - - If we're on 31-bit linux, we just don't store the high parts of the GPRs. - Likewise, if there's no VX support, we just store the FRs into the slots - of low VR halves. The agent code is responsible for rearranging that - into regcache. */ - -/* Code sequence saving GPRs for 31-bit target with no high GPRs. There's - one trick used at the very beginning: since there's no way to allocate - stack space without destroying CC (lay instruction can do it, but it's - only supported on later CPUs), we take 4 different execution paths for - every possible value of CC, allocate stack space, save %r0, stuff the - CC value in %r0 (shifted to match its position in PSWM high word), - then branch to common path. */ - -static const unsigned char s390_ft_entry_gpr_esa[] = { - 0xa7, 0x14, 0x00, 0x1e, /* jo .Lcc3 */ - 0xa7, 0x24, 0x00, 0x14, /* jh .Lcc2 */ - 0xa7, 0x44, 0x00, 0x0a, /* jl .Lcc1 */ - /* CC = 0 */ - 0xa7, 0xfa, 0xfd, 0x00, /* ahi %r15, -0x300 */ - 0x50, 0x00, 0xf2, 0x04, /* st %r0, 0x204(%r15) */ - 0xa7, 0x08, 0x00, 0x00, /* lhi %r0, 0 */ - 0xa7, 0xf4, 0x00, 0x18, /* j .Lccdone */ - /* .Lcc1: */ - 0xa7, 0xfa, 0xfd, 0x00, /* ahi %r15, -0x300 */ - 0x50, 0x00, 0xf2, 0x04, /* st %r0, 0x204(%r15) */ - 0xa7, 0x08, 0x10, 0x00, /* lhi %r0, 0x1000 */ - 0xa7, 0xf4, 0x00, 0x10, /* j .Lccdone */ - /* .Lcc2: */ - 0xa7, 0xfa, 0xfd, 0x00, /* ahi %r15, -0x300 */ - 0x50, 0x00, 0xf2, 0x04, /* st %r0, 0x204(%r15) */ - 0xa7, 0x08, 0x20, 0x00, /* lhi %r0, 0x2000 */ - 0xa7, 0xf4, 0x00, 0x08, /* j .Lccdone */ - /* .Lcc3: */ - 0xa7, 0xfa, 0xfd, 0x00, /* ahi %r15, -0x300 */ - 0x50, 0x00, 0xf2, 0x04, /* st %r0, 0x204(%r15) */ - 0xa7, 0x08, 0x30, 0x00, /* lhi %r0, 0x3000 */ - /* .Lccdone: */ - 0x50, 0x10, 0xf2, 0x0c, /* st %r1, 0x20c(%r15) */ - 0x50, 0x20, 0xf2, 0x14, /* st %r2, 0x214(%r15) */ - 0x50, 0x30, 0xf2, 0x1c, /* st %r3, 0x21c(%r15) */ - 0x50, 0x40, 0xf2, 0x24, /* st %r4, 0x224(%r15) */ - 0x50, 0x50, 0xf2, 0x2c, /* st %r5, 0x22c(%r15) */ - 0x50, 0x60, 0xf2, 0x34, /* st %r6, 0x234(%r15) */ - 0x50, 0x70, 0xf2, 0x3c, /* st %r7, 0x23c(%r15) */ - 0x50, 0x80, 0xf2, 0x44, /* st %r8, 0x244(%r15) */ - 0x50, 0x90, 0xf2, 0x4c, /* st %r9, 0x24c(%r15) */ - 0x50, 0xa0, 0xf2, 0x54, /* st %r10, 0x254(%r15) */ - 0x50, 0xb0, 0xf2, 0x5c, /* st %r11, 0x25c(%r15) */ - 0x50, 0xc0, 0xf2, 0x64, /* st %r12, 0x264(%r15) */ - 0x50, 0xd0, 0xf2, 0x6c, /* st %r13, 0x26c(%r15) */ - 0x50, 0xe0, 0xf2, 0x74, /* st %r14, 0x274(%r15) */ - /* Compute original value of %r15 and store it. We use ahi instead - of la to preserve the whole value, and not just the low 31 bits. - This is not particularly important here, but essential in the - zarch case where someone might be using the high word of %r15 - as an extra register. */ - 0x18, 0x1f, /* lr %r1, %r15 */ - 0xa7, 0x1a, 0x03, 0x00, /* ahi %r1, 0x300 */ - 0x50, 0x10, 0xf2, 0x7c, /* st %r1, 0x27c(%r15) */ -}; - -/* Code sequence saving GPRs for 31-bit target with high GPRs and for 64-bit - target. Same as above, except this time we can use load/store multiple, - since the 64-bit regs are tightly packed. */ - -static const unsigned char s390_ft_entry_gpr_zarch[] = { - 0xa7, 0x14, 0x00, 0x21, /* jo .Lcc3 */ - 0xa7, 0x24, 0x00, 0x16, /* jh .Lcc2 */ - 0xa7, 0x44, 0x00, 0x0b, /* jl .Lcc1 */ - /* CC = 0 */ - 0xa7, 0xfb, 0xfd, 0x00, /* aghi %r15, -0x300 */ - 0xeb, 0x0e, 0xf2, 0x00, 0x00, 0x24, /* stmg %r0, %r14, 0x200(%r15) */ - 0xa7, 0x08, 0x00, 0x00, /* lhi %r0, 0 */ - 0xa7, 0xf4, 0x00, 0x1b, /* j .Lccdone */ - /* .Lcc1: */ - 0xa7, 0xfb, 0xfd, 0x00, /* aghi %r15, -0x300 */ - 0xeb, 0x0e, 0xf2, 0x00, 0x00, 0x24, /* stmg %r0, %r14, 0x200(%r15) */ - 0xa7, 0x08, 0x10, 0x00, /* lhi %r0, 0x1000 */ - 0xa7, 0xf4, 0x00, 0x12, /* j .Lccdone */ - /* .Lcc2: */ - 0xa7, 0xfb, 0xfd, 0x00, /* aghi %r15, -0x300 */ - 0xeb, 0x0e, 0xf2, 0x00, 0x00, 0x24, /* stmg %r0, %r14, 0x200(%r15) */ - 0xa7, 0x08, 0x20, 0x00, /* lhi %r0, 0x2000 */ - 0xa7, 0xf4, 0x00, 0x09, /* j .Lccdone */ - /* .Lcc3: */ - 0xa7, 0xfb, 0xfd, 0x00, /* aghi %r15, -0x300 */ - 0xeb, 0x0e, 0xf2, 0x00, 0x00, 0x24, /* stmg %r0, %r14, 0x200(%r15) */ - 0xa7, 0x08, 0x30, 0x00, /* lhi %r0, 0x3000 */ - /* .Lccdone: */ - 0xb9, 0x04, 0x00, 0x1f, /* lgr %r1, %r15 */ - 0xa7, 0x1b, 0x03, 0x00, /* aghi %r1, 0x300 */ - 0xe3, 0x10, 0xf2, 0x78, 0x00, 0x24, /* stg %r1, 0x278(%r15) */ -}; - -/* Code sequence saving ARs, PSWM and FPC. PSWM has to be assembled from - current PSWM (read by epsw) and CC from entry (in %r0). */ - -static const unsigned char s390_ft_entry_misc[] = { - 0x9b, 0x0f, 0xf2, 0x80, /* stam %a0, %a15, 0x20(%%r15) */ - 0xb9, 0x8d, 0x00, 0x23, /* epsw %r2, %r3 */ - 0xa7, 0x18, 0xcf, 0xff, /* lhi %r1, ~0x3000 */ - 0x14, 0x21, /* nr %r2, %r1 */ - 0x16, 0x20, /* or %r2, %r0 */ - 0x50, 0x20, 0xf2, 0xc0, /* st %r2, 0x2c0(%r15) */ - 0x50, 0x30, 0xf2, 0xc4, /* st %r3, 0x2c4(%r15) */ - 0xb2, 0x9c, 0xf2, 0xd0, /* stfpc 0x2d0(%r15) */ -}; - -/* Code sequence saving FRs, used if VX not supported. */ - -static const unsigned char s390_ft_entry_fr[] = { - 0x60, 0x00, 0xf0, 0x00, /* std %f0, 0x000(%r15) */ - 0x60, 0x10, 0xf0, 0x10, /* std %f1, 0x010(%r15) */ - 0x60, 0x20, 0xf0, 0x20, /* std %f2, 0x020(%r15) */ - 0x60, 0x30, 0xf0, 0x30, /* std %f3, 0x030(%r15) */ - 0x60, 0x40, 0xf0, 0x40, /* std %f4, 0x040(%r15) */ - 0x60, 0x50, 0xf0, 0x50, /* std %f5, 0x050(%r15) */ - 0x60, 0x60, 0xf0, 0x60, /* std %f6, 0x060(%r15) */ - 0x60, 0x70, 0xf0, 0x70, /* std %f7, 0x070(%r15) */ - 0x60, 0x80, 0xf0, 0x80, /* std %f8, 0x080(%r15) */ - 0x60, 0x90, 0xf0, 0x90, /* std %f9, 0x090(%r15) */ - 0x60, 0xa0, 0xf0, 0xa0, /* std %f10, 0x0a0(%r15) */ - 0x60, 0xb0, 0xf0, 0xb0, /* std %f11, 0x0b0(%r15) */ - 0x60, 0xc0, 0xf0, 0xc0, /* std %f12, 0x0c0(%r15) */ - 0x60, 0xd0, 0xf0, 0xd0, /* std %f13, 0x0d0(%r15) */ - 0x60, 0xe0, 0xf0, 0xe0, /* std %f14, 0x0e0(%r15) */ - 0x60, 0xf0, 0xf0, 0xf0, /* std %f15, 0x0f0(%r15) */ -}; - -/* Code sequence saving VRs, used if VX not supported. */ - -static const unsigned char s390_ft_entry_vr[] = { - 0xe7, 0x0f, 0xf0, 0x00, 0x00, 0x3e, /* vstm %v0, %v15, 0x000(%r15) */ - 0xe7, 0x0f, 0xf1, 0x00, 0x0c, 0x3e, /* vstm %v16, %v31, 0x100(%r15) */ -}; - -/* Code sequence doing the collection call for 31-bit target. %r1 contains - the address of the literal pool. */ - -static const unsigned char s390_ft_main_31[] = { - /* Load the literals into registers. */ - 0x58, 0x50, 0x10, 0x00, /* l %r5, 0x0(%r1) */ - 0x58, 0x20, 0x10, 0x04, /* l %r2, 0x4(%r1) */ - 0x58, 0x40, 0x10, 0x08, /* l %r4, 0x8(%r1) */ - 0x58, 0x60, 0x10, 0x0c, /* l %r6, 0xc(%r1) */ - /* Save original PSWA (tracepoint address | 0x80000000). */ - 0x50, 0x50, 0xf2, 0xcc, /* st %r5, 0x2cc(%r15) */ - /* Construct a collecting_t object at %r15+0x2e0. */ - 0x50, 0x20, 0xf2, 0xe0, /* st %r2, 0x2e0(%r15) */ - 0x9b, 0x00, 0xf2, 0xe4, /* stam %a0, %a0, 0x2e4(%r15) */ - /* Move its address to %r0. */ - 0x41, 0x00, 0xf2, 0xe0, /* la %r0, 0x2e0(%r15) */ - /* Take the lock. */ - /* .Lloop: */ - 0xa7, 0x18, 0x00, 0x00, /* lhi %r1, 0 */ - 0xba, 0x10, 0x60, 0x00, /* cs %r1, %r0, 0(%r6) */ - 0xa7, 0x74, 0xff, 0xfc, /* jne .Lloop */ - /* Address of the register save block to %r3. */ - 0x18, 0x3f, /* lr %r3, %r15 */ - /* Make a stack frame, so that we can call the collector. */ - 0xa7, 0xfa, 0xff, 0xa0, /* ahi %r15, -0x60 */ - /* Call it. */ - 0x0d, 0xe4, /* basr %r14, %r4 */ - /* And get rid of the stack frame again. */ - 0x41, 0xf0, 0xf0, 0x60, /* la %r15, 0x60(%r15) */ - /* Leave the lock. */ - 0x07, 0xf0, /* br %r0 */ - 0xa7, 0x18, 0x00, 0x00, /* lhi %r1, 0 */ - 0x50, 0x10, 0x60, 0x00, /* st %t1, 0(%r6) */ -}; - -/* Code sequence doing the collection call for 64-bit target. %r1 contains - the address of the literal pool. */ - -static const unsigned char s390_ft_main_64[] = { - /* Load the literals into registers. */ - 0xe3, 0x50, 0x10, 0x00, 0x00, 0x04, /* lg %r5, 0x00(%r1) */ - 0xe3, 0x20, 0x10, 0x08, 0x00, 0x04, /* lg %r2, 0x08(%r1) */ - 0xe3, 0x40, 0x10, 0x10, 0x00, 0x04, /* lg %r4, 0x10(%r1) */ - 0xe3, 0x60, 0x10, 0x18, 0x00, 0x04, /* lg %r6, 0x18(%r1) */ - /* Save original PSWA (tracepoint address). */ - 0xe3, 0x50, 0xf2, 0xc8, 0x00, 0x24, /* stg %r5, 0x2c8(%r15) */ - /* Construct a collecting_t object at %r15+0x2e0. */ - 0xe3, 0x20, 0xf2, 0xe0, 0x00, 0x24, /* stg %r2, 0x2e0(%r15) */ - 0x9b, 0x01, 0xf2, 0xe8, /* stam %a0, %a1, 0x2e8(%r15) */ - /* Move its address to %r0. */ - 0x41, 0x00, 0xf2, 0xe0, /* la %r0, 0x2e0(%r15) */ - /* Take the lock. */ - /* .Lloop: */ - 0xa7, 0x19, 0x00, 0x00, /* lghi %r1, 0 */ - 0xeb, 0x10, 0x60, 0x00, 0x00, 0x30, /* csg %r1, %r0, 0(%r6) */ - 0xa7, 0x74, 0xff, 0xfb, /* jne .Lloop */ - /* Address of the register save block to %r3. */ - 0xb9, 0x04, 0x00, 0x3f, /* lgr %r3, %r15 */ - /* Make a stack frame, so that we can call the collector. */ - 0xa7, 0xfb, 0xff, 0x60, /* aghi %r15, -0xa0 */ - /* Call it. */ - 0x0d, 0xe4, /* basr %r14, %r4 */ - /* And get rid of the stack frame again. */ - 0x41, 0xf0, 0xf0, 0xa0, /* la %r15, 0xa0(%r15) */ - /* Leave the lock. */ - 0x07, 0xf0, /* br %r0 */ - 0xa7, 0x19, 0x00, 0x00, /* lghi %r1, 0 */ - 0xe3, 0x10, 0x60, 0x00, 0x00, 0x24, /* stg %t1, 0(%r6) */ -}; - -/* Code sequence restoring FRs, for targets with no VX support. */ - -static const unsigned char s390_ft_exit_fr[] = { - 0x68, 0x00, 0xf0, 0x00, /* ld %f0, 0x000(%r15) */ - 0x68, 0x10, 0xf0, 0x10, /* ld %f1, 0x010(%r15) */ - 0x68, 0x20, 0xf0, 0x20, /* ld %f2, 0x020(%r15) */ - 0x68, 0x30, 0xf0, 0x30, /* ld %f3, 0x030(%r15) */ - 0x68, 0x40, 0xf0, 0x40, /* ld %f4, 0x040(%r15) */ - 0x68, 0x50, 0xf0, 0x50, /* ld %f5, 0x050(%r15) */ - 0x68, 0x60, 0xf0, 0x60, /* ld %f6, 0x060(%r15) */ - 0x68, 0x70, 0xf0, 0x70, /* ld %f7, 0x070(%r15) */ - 0x68, 0x80, 0xf0, 0x80, /* ld %f8, 0x080(%r15) */ - 0x68, 0x90, 0xf0, 0x90, /* ld %f9, 0x090(%r15) */ - 0x68, 0xa0, 0xf0, 0xa0, /* ld %f10, 0x0a0(%r15) */ - 0x68, 0xb0, 0xf0, 0xb0, /* ld %f11, 0x0b0(%r15) */ - 0x68, 0xc0, 0xf0, 0xc0, /* ld %f12, 0x0c0(%r15) */ - 0x68, 0xd0, 0xf0, 0xd0, /* ld %f13, 0x0d0(%r15) */ - 0x68, 0xe0, 0xf0, 0xe0, /* ld %f14, 0x0e0(%r15) */ - 0x68, 0xf0, 0xf0, 0xf0, /* ld %f15, 0x0f0(%r15) */ -}; - -/* Code sequence restoring VRs. */ - -static const unsigned char s390_ft_exit_vr[] = { - 0xe7, 0x0f, 0xf0, 0x00, 0x00, 0x36, /* vlm %v0, %v15, 0x000(%r15) */ - 0xe7, 0x0f, 0xf1, 0x00, 0x0c, 0x36, /* vlm %v16, %v31, 0x100(%r15) */ -}; - -/* Code sequence restoring misc registers. As for PSWM, only CC should be - modified by C code, so we use the alr instruction to restore it by - manufacturing an operand that'll result in the original flags. */ - -static const unsigned char s390_ft_exit_misc[] = { - 0xb2, 0x9d, 0xf2, 0xd0, /* lfpc 0x2d0(%r15) */ - 0x58, 0x00, 0xf2, 0xc0, /* l %r0, 0x2c0(%r15) */ - /* Extract CC to high 2 bits of %r0. */ - 0x88, 0x00, 0x00, 0x0c, /* srl %r0, 12 */ - 0x89, 0x00, 0x00, 0x1e, /* sll %r0, 30 */ - /* Add %r0 to itself. Result will be nonzero iff CC bit 0 is set, and - will have carry iff CC bit 1 is set - resulting in the same flags - as the original. */ - 0x1e, 0x00, /* alr %r0, %r0 */ - 0x9a, 0x0f, 0xf2, 0x80, /* lam %a0, %a15, 0x280(%r15) */ -}; - -/* Code sequence restoring GPRs, for 31-bit targets with no high GPRs. */ - -static const unsigned char s390_ft_exit_gpr_esa[] = { - 0x58, 0x00, 0xf2, 0x04, /* l %r0, 0x204(%r15) */ - 0x58, 0x10, 0xf2, 0x0c, /* l %r1, 0x20c(%r15) */ - 0x58, 0x20, 0xf2, 0x14, /* l %r2, 0x214(%r15) */ - 0x58, 0x30, 0xf2, 0x1c, /* l %r3, 0x21c(%r15) */ - 0x58, 0x40, 0xf2, 0x24, /* l %r4, 0x224(%r15) */ - 0x58, 0x50, 0xf2, 0x2c, /* l %r5, 0x22c(%r15) */ - 0x58, 0x60, 0xf2, 0x34, /* l %r6, 0x234(%r15) */ - 0x58, 0x70, 0xf2, 0x3c, /* l %r7, 0x23c(%r15) */ - 0x58, 0x80, 0xf2, 0x44, /* l %r8, 0x244(%r15) */ - 0x58, 0x90, 0xf2, 0x4c, /* l %r9, 0x24c(%r15) */ - 0x58, 0xa0, 0xf2, 0x54, /* l %r10, 0x254(%r15) */ - 0x58, 0xb0, 0xf2, 0x5c, /* l %r11, 0x25c(%r15) */ - 0x58, 0xc0, 0xf2, 0x64, /* l %r12, 0x264(%r15) */ - 0x58, 0xd0, 0xf2, 0x6c, /* l %r13, 0x26c(%r15) */ - 0x58, 0xe0, 0xf2, 0x74, /* l %r14, 0x274(%r15) */ - 0x58, 0xf0, 0xf2, 0x7c, /* l %r15, 0x27c(%r15) */ -}; - -/* Code sequence restoring GPRs, for 64-bit targets and 31-bit targets - with high GPRs. */ - -static const unsigned char s390_ft_exit_gpr_zarch[] = { - 0xeb, 0x0f, 0xf2, 0x00, 0x00, 0x04, /* lmg %r0, %r15, 0x200(%r15) */ -}; - -/* Writes instructions to target, updating the to pointer. */ - -static void -append_insns (CORE_ADDR *to, size_t len, const unsigned char *buf) -{ - target_write_memory (*to, buf, len); - *to += len; -} - -/* Relocates an instruction from oldloc to *to, updating to. */ - -static int -s390_relocate_instruction (CORE_ADDR *to, CORE_ADDR oldloc, int is_64) -{ - gdb_byte buf[6]; - int ilen; - int op2; - /* 0: no fixup, 1: PC16DBL fixup, 2: PC32DBL fixup. */ - int mode = 0; - int is_bras = 0; - read_inferior_memory (oldloc, buf, sizeof buf); - if (buf[0] < 0x40) - ilen = 2; - else if (buf[0] < 0xc0) - ilen = 4; - else - ilen = 6; - switch (buf[0]) - { - case 0x05: /* BALR */ - case 0x0c: /* BASSM */ - case 0x0d: /* BASR */ - case 0x45: /* BAL */ - case 0x4d: /* BAS */ - /* These save a return address and mess around with registers. - We can't relocate them. */ - return 1; - case 0x84: /* BRXH */ - case 0x85: /* BRXLE */ - mode = 1; - break; - case 0xa7: - op2 = buf[1] & 0xf; - /* BRC, BRAS, BRCT, BRCTG */ - if (op2 >= 4 && op2 <= 7) - mode = 1; - /* BRAS */ - if (op2 == 5) - is_bras = 1; - break; - case 0xc0: - op2 = buf[1] & 0xf; - /* LARL, BRCL, BRASL */ - if (op2 == 0 || op2 == 4 || op2 == 5) - mode = 2; - /* BRASL */ - if (op2 == 5) - is_bras = 1; - break; - case 0xc4: - case 0xc6: - /* PC-relative addressing instructions. */ - mode = 2; - break; - case 0xc5: /* BPRP */ - case 0xc7: /* BPP */ - /* Branch prediction - just skip it. */ - return 0; - case 0xcc: - op2 = buf[1] & 0xf; - /* BRCTH */ - if (op2 == 6) - mode = 2; - break; - case 0xec: - op2 = buf[5]; - switch (op2) - { - case 0x44: /* BRXHG */ - case 0x45: /* BRXLG */ - case 0x64: /* CGRJ */ - case 0x65: /* CLGRJ */ - case 0x76: /* CRJ */ - case 0x77: /* CLRJ */ - mode = 1; - break; - } - break; - } - - if (mode != 0) - { - /* We'll have to relocate an instruction with a PC-relative field. - First, compute the target. */ - int64_t loffset = 0; - CORE_ADDR target; - if (mode == 1) - { - int16_t soffset = 0; - memcpy (&soffset, buf + 2, 2); - loffset = soffset; - } - else if (mode == 2) - { - int32_t soffset = 0; - memcpy (&soffset, buf + 2, 4); - loffset = soffset; - } - target = oldloc + loffset * 2; - if (!is_64) - target &= 0x7fffffff; - - if (is_bras) - { - /* BRAS or BRASL was used. We cannot just relocate those, since - they save the return address in a register. We can, however, - replace them with a LARL+JG sequence. */ - - /* Make the LARL. */ - int32_t soffset; - buf[0] = 0xc0; - buf[1] &= 0xf0; - loffset = oldloc + ilen - *to; - loffset >>= 1; - soffset = loffset; - if (soffset != loffset && is_64) - return 1; - memcpy (buf + 2, &soffset, 4); - append_insns (to, 6, buf); - - /* Note: this is not fully correct. In 31-bit mode, LARL will write - an address with the top bit 0, while BRAS/BRASL will write it - with top bit 1. It should not matter much, since linux compilers - use BR and not BSM to return from functions, but it could confuse - some poor stack unwinder. */ - - /* We'll now be writing a JG. */ - mode = 2; - buf[0] = 0xc0; - buf[1] = 0xf4; - ilen = 6; - } - - /* Compute the new offset and write it to the buffer. */ - loffset = target - *to; - loffset >>= 1; - - if (mode == 1) - { - int16_t soffset = loffset; - if (soffset != loffset) - return 1; - memcpy (buf + 2, &soffset, 2); - } - else if (mode == 2) - { - int32_t soffset = loffset; - if (soffset != loffset && is_64) - return 1; - memcpy (buf + 2, &soffset, 4); - } - } - append_insns (to, ilen, buf); - return 0; -} - -/* Implementation of linux_target_ops method - "install_fast_tracepoint_jump_pad". */ - -static int -s390_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, - CORE_ADDR tpaddr, - CORE_ADDR collector, - CORE_ADDR lockaddr, - ULONGEST orig_size, - CORE_ADDR *jump_entry, - CORE_ADDR *trampoline, - ULONGEST *trampoline_size, - unsigned char *jjump_pad_insn, - ULONGEST *jjump_pad_insn_size, - CORE_ADDR *adjusted_insn_addr, - CORE_ADDR *adjusted_insn_addr_end, - char *err) -{ - int i; - int64_t loffset; - int32_t offset; - unsigned char jbuf[6] = { 0xc0, 0xf4, 0, 0, 0, 0 }; /* jg ... */ - CORE_ADDR buildaddr = *jump_entry; -#ifdef __s390x__ - struct regcache *regcache = get_thread_regcache (current_thread, 0); - int is_64 = register_size (regcache->tdesc, 0) == 8; - int is_zarch = is_64 || have_hwcap_s390_high_gprs; - int has_vx = have_hwcap_s390_vx; -#else - int is_64 = 0, is_zarch = 0, has_vx = 0; -#endif - CORE_ADDR literals[4] = { - tpaddr, - tpoint, - collector, - lockaddr, - }; - - /* First, store the GPRs. */ - if (is_zarch) - append_insns (&buildaddr, sizeof s390_ft_entry_gpr_zarch, - s390_ft_entry_gpr_zarch); - else - append_insns (&buildaddr, sizeof s390_ft_entry_gpr_esa, - s390_ft_entry_gpr_esa); - - /* Second, misc registers (ARs, PSWM, FPC). PSWA will be stored below. */ - append_insns (&buildaddr, sizeof s390_ft_entry_misc, s390_ft_entry_misc); - - /* Third, FRs or VRs. */ - if (has_vx) - append_insns (&buildaddr, sizeof s390_ft_entry_vr, s390_ft_entry_vr); - else - append_insns (&buildaddr, sizeof s390_ft_entry_fr, s390_ft_entry_fr); - - /* Now, the main part of code - store PSWA, take lock, call collector, - leave lock. First, we'll need to fetch 4 literals. */ - if (is_64) { - unsigned char buf[] = { - 0x07, 0x07, /* nopr %r7 */ - 0x07, 0x07, /* nopr %r7 */ - 0x07, 0x07, /* nopr %r7 */ - 0xa7, 0x15, 0x00, 0x12, /* bras %r1, .Lend */ - 0, 0, 0, 0, 0, 0, 0, 0, /* tpaddr */ - 0, 0, 0, 0, 0, 0, 0, 0, /* tpoint */ - 0, 0, 0, 0, 0, 0, 0, 0, /* collector */ - 0, 0, 0, 0, 0, 0, 0, 0, /* lockaddr */ - /* .Lend: */ - }; - /* Find the proper start place in buf, so that literals will be - aligned. */ - int bufpos = (buildaddr + 2) & 7; - /* Stuff the literals into the buffer. */ - for (i = 0; i < 4; i++) { - uint64_t lit = literals[i]; - memcpy (&buf[sizeof buf - 32 + i * 8], &lit, 8); - } - append_insns (&buildaddr, sizeof buf - bufpos, buf + bufpos); - append_insns (&buildaddr, sizeof s390_ft_main_64, s390_ft_main_64); - } else { - unsigned char buf[] = { - 0x07, 0x07, /* nopr %r7 */ - 0xa7, 0x15, 0x00, 0x0a, /* bras %r1, .Lend */ - 0, 0, 0, 0, /* tpaddr */ - 0, 0, 0, 0, /* tpoint */ - 0, 0, 0, 0, /* collector */ - 0, 0, 0, 0, /* lockaddr */ - /* .Lend: */ - }; - /* Find the proper start place in buf, so that literals will be - aligned. */ - int bufpos = (buildaddr + 2) & 3; - /* First literal will be saved as the PSWA, make sure it has the high bit - set. */ - literals[0] |= 0x80000000; - /* Stuff the literals into the buffer. */ - for (i = 0; i < 4; i++) { - uint32_t lit = literals[i]; - memcpy (&buf[sizeof buf - 16 + i * 4], &lit, 4); - } - append_insns (&buildaddr, sizeof buf - bufpos, buf + bufpos); - append_insns (&buildaddr, sizeof s390_ft_main_31, s390_ft_main_31); - } - - /* Restore FRs or VRs. */ - if (has_vx) - append_insns (&buildaddr, sizeof s390_ft_exit_vr, s390_ft_exit_vr); - else - append_insns (&buildaddr, sizeof s390_ft_exit_fr, s390_ft_exit_fr); - - /* Restore misc registers. */ - append_insns (&buildaddr, sizeof s390_ft_exit_misc, s390_ft_exit_misc); - - /* Restore the GPRs. */ - if (is_zarch) - append_insns (&buildaddr, sizeof s390_ft_exit_gpr_zarch, - s390_ft_exit_gpr_zarch); - else - append_insns (&buildaddr, sizeof s390_ft_exit_gpr_esa, - s390_ft_exit_gpr_esa); - - /* Now, adjust the original instruction to execute in the jump - pad. */ - *adjusted_insn_addr = buildaddr; - if (s390_relocate_instruction (&buildaddr, tpaddr, is_64)) - { - sprintf (err, "E.Could not relocate instruction for tracepoint."); - return 1; - } - *adjusted_insn_addr_end = buildaddr; - - /* Finally, write a jump back to the program. */ - - loffset = (tpaddr + orig_size) - buildaddr; - loffset >>= 1; - offset = loffset; - if (is_64 && offset != loffset) - { - sprintf (err, - "E.Jump back from jump pad too far from tracepoint " - "(offset 0x%" PRIx64 " > int33).", loffset); - return 1; - } - memcpy (jbuf + 2, &offset, 4); - append_insns (&buildaddr, sizeof jbuf, jbuf); - - /* The jump pad is now built. Wire in a jump to our jump pad. This - is always done last (by our caller actually), so that we can - install fast tracepoints with threads running. This relies on - the agent's atomic write support. */ - loffset = *jump_entry - tpaddr; - loffset >>= 1; - offset = loffset; - if (is_64 && offset != loffset) - { - sprintf (err, - "E.Jump back from jump pad too far from tracepoint " - "(offset 0x%" PRIx64 " > int33).", loffset); - return 1; - } - memcpy (jbuf + 2, &offset, 4); - memcpy (jjump_pad_insn, jbuf, sizeof jbuf); - *jjump_pad_insn_size = sizeof jbuf; - - /* Return the end address of our pad. */ - *jump_entry = buildaddr; - - return 0; -} - -/* Implementation of linux_target_ops method - "get_min_fast_tracepoint_insn_len". */ - -static int -s390_get_min_fast_tracepoint_insn_len (void) -{ - /* We only support using 6-byte jumps to reach the tracepoint code. - If the tracepoint buffer were allocated sufficiently close (64kiB) - to the executable code, and the traced instruction itself was close - enough to the beginning, we could use 4-byte jumps, but this doesn't - seem to be worth the effort. */ - return 6; -} - -/* Implementation of linux_target_ops method "get_ipa_tdesc_idx". */ - -static int -s390_get_ipa_tdesc_idx (void) -{ - struct regcache *regcache = get_thread_regcache (current_thread, 0); - const struct target_desc *tdesc = regcache->tdesc; - -#ifdef __s390x__ - if (tdesc == tdesc_s390x_linux64) - return S390_TDESC_64; - if (tdesc == tdesc_s390x_linux64v1) - return S390_TDESC_64V1; - if (tdesc == tdesc_s390x_linux64v2) - return S390_TDESC_64V2; - if (tdesc == tdesc_s390x_te_linux64) - return S390_TDESC_TE; - if (tdesc == tdesc_s390x_vx_linux64) - return S390_TDESC_VX; - if (tdesc == tdesc_s390x_tevx_linux64) - return S390_TDESC_TEVX; - if (tdesc == tdesc_s390x_gs_linux64) - return S390_TDESC_GS; -#endif - - if (tdesc == tdesc_s390_linux32) - return S390_TDESC_32; - if (tdesc == tdesc_s390_linux32v1) - return S390_TDESC_32V1; - if (tdesc == tdesc_s390_linux32v2) - return S390_TDESC_32V2; - if (tdesc == tdesc_s390_linux64) - return S390_TDESC_64; - if (tdesc == tdesc_s390_linux64v1) - return S390_TDESC_64V1; - if (tdesc == tdesc_s390_linux64v2) - return S390_TDESC_64V2; - if (tdesc == tdesc_s390_te_linux64) - return S390_TDESC_TE; - if (tdesc == tdesc_s390_vx_linux64) - return S390_TDESC_VX; - if (tdesc == tdesc_s390_tevx_linux64) - return S390_TDESC_TEVX; - if (tdesc == tdesc_s390_gs_linux64) - return S390_TDESC_GS; - - return 0; -} - -/* Appends given buffer to current_insn_ptr in the target. */ - -static void -add_insns (const unsigned char *start, int len) -{ - CORE_ADDR buildaddr = current_insn_ptr; - - if (debug_threads) - debug_printf ("Adding %d bytes of insn at %s\n", - len, paddress (buildaddr)); - - append_insns (&buildaddr, len, start); - current_insn_ptr = buildaddr; -} - -/* Register usage in emit: - - - %r0, %r1: temp - - %r2: top of stack (high word for 31-bit) - - %r3: low word of top of stack (for 31-bit) - - %r4, %r5: temp - - %r6, %r7, %r8: don't use - - %r9: saved arg1 - - %r10: saved arg2 - - %r11: frame pointer - - %r12: saved top of stack for void_call_2 (high word for 31-bit) - - %r13: low word of saved top of stack (for 31-bit) - - %r14: return address for calls - - %r15: stack pointer - - */ - -/* The "emit_prologue" emit_ops method for s390. */ - -static void -s390_emit_prologue (void) -{ - static const unsigned char buf[] = { - 0x90, 0x9f, 0xf0, 0x24, /* stm %r9, %r15, 0x24(%r15) */ - 0x18, 0x92, /* lr %r9, %r2 */ - 0x18, 0xa3, /* lr %r10, %r3 */ - 0x18, 0xbf, /* lr %r11, %r15 */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_epilogue" emit_ops method for s390. */ - -static void -s390_emit_epilogue (void) -{ - static const unsigned char buf[] = { - 0x90, 0x23, 0xa0, 0x00, /* stm %r2, %r3, 0(%r10) */ - 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ - 0x98, 0x9f, 0xb0, 0x24, /* lm %r9, %r15, 0x24(%r11) */ - 0x07, 0xfe, /* br %r14 */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_add" emit_ops method for s390. */ - -static void -s390_emit_add (void) -{ - static const unsigned char buf[] = { - 0x5e, 0x30, 0xf0, 0x04, /* al %r3, 4(%r15) */ - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x98, /* al %r2, 0(%r15) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_sub" emit_ops method for s390. */ - -static void -s390_emit_sub (void) -{ - static const unsigned char buf[] = { - 0x98, 0x45, 0xf0, 0x00, /* lm %r4, %r5, 0(%r15) */ - 0x1f, 0x53, /* slr %r5, %r3 */ - 0xb9, 0x99, 0x00, 0x42, /* slbr %r4, %r2 */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - 0x18, 0x35, /* lr %r3, %r5 */ - 0x18, 0x24, /* lr %r2, %r4 */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_mul" emit_ops method for s390. */ - -static void -s390_emit_mul (void) -{ - emit_error = 1; -} - -/* The "emit_lsh" emit_ops method for s390. */ - -static void -s390_emit_lsh (void) -{ - static const unsigned char buf[] = { - 0x18, 0x43, /* lr %r4, %r3 */ - 0x98, 0x23, 0xf0, 0x00, /* lm %r2, %r3, 0(%r15) */ - 0x8d, 0x20, 0x40, 0x00, /* sldl %r2, 0(%r4) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_rsh_signed" emit_ops method for s390. */ - -static void -s390_emit_rsh_signed (void) -{ - static const unsigned char buf[] = { - 0x18, 0x43, /* lr %r4, %r3 */ - 0x98, 0x23, 0xf0, 0x00, /* lm %r2, %r3, 0(%r15) */ - 0x8e, 0x20, 0x40, 0x00, /* srda %r2, 0(%r4) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_rsh_unsigned" emit_ops method for s390. */ - -static void -s390_emit_rsh_unsigned (void) -{ - static const unsigned char buf[] = { - 0x18, 0x43, /* lr %r4, %r3 */ - 0x98, 0x23, 0xf0, 0x00, /* lm %r2, %r3, 0(%r15) */ - 0x8c, 0x20, 0x40, 0x00, /* srdl %r2, 0(%r4) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_ext" emit_ops method for s390. */ - -static void -s390_emit_ext (int arg) -{ - unsigned char buf[] = { - 0x8d, 0x20, 0x00, (unsigned char) (64 - arg), /* sldl %r2, <64-arg> */ - 0x8e, 0x20, 0x00, (unsigned char) (64 - arg), /* srda %r2, <64-arg> */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_log_not" emit_ops method for s390. */ - -static void -s390_emit_log_not (void) -{ - static const unsigned char buf[] = { - 0x16, 0x23, /* or %r2, %r3 */ - 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ - 0xa7, 0x38, 0x00, 0x00, /* lhi %r3, 0 */ - 0xa7, 0x74, 0x00, 0x04, /* jne .Lskip */ - 0xa7, 0x38, 0x00, 0x01, /* lhi %r3, 1 */ - /* .Lskip: */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_bit_and" emit_ops method for s390. */ - -static void -s390_emit_bit_and (void) -{ - static const unsigned char buf[] = { - 0x54, 0x20, 0xf0, 0x00, /* n %r2, 0(%r15) */ - 0x54, 0x30, 0xf0, 0x04, /* n %r3, 4(%r15) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_bit_or" emit_ops method for s390. */ - -static void -s390_emit_bit_or (void) -{ - static const unsigned char buf[] = { - 0x56, 0x20, 0xf0, 0x00, /* o %r2, 0(%r15) */ - 0x56, 0x30, 0xf0, 0x04, /* o %r3, 4(%r15) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_bit_xor" emit_ops method for s390. */ - -static void -s390_emit_bit_xor (void) -{ - static const unsigned char buf[] = { - 0x57, 0x20, 0xf0, 0x00, /* x %r2, 0(%r15) */ - 0x57, 0x30, 0xf0, 0x04, /* x %r3, 4(%r15) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_bit_not" emit_ops method for s390. */ - -static void -s390_emit_bit_not (void) -{ - static const unsigned char buf[] = { - 0xa7, 0x48, 0xff, 0xff, /* lhi %r4, -1 */ - 0x17, 0x24, /* xr %r2, %r4 */ - 0x17, 0x34, /* xr %r3, %r4 */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_equal" emit_ops method for s390. */ - -static void -s390_emit_equal (void) -{ - s390_emit_bit_xor (); - s390_emit_log_not (); -} - -/* The "emit_less_signed" emit_ops method for s390. */ - -static void -s390_emit_less_signed (void) -{ - static const unsigned char buf[] = { - 0x59, 0x20, 0xf0, 0x00, /* c %r2, 0(%r15) */ - 0xa7, 0x24, 0x00, 0x0c, /* jh .Lless */ - 0xa7, 0x44, 0x00, 0x06, /* jl .Lhigh */ - 0x55, 0x30, 0xf0, 0x04, /* cl %r3, 4(%r15) */ - 0xa7, 0x24, 0x00, 0x06, /* jh .Lless */ - /* .Lhigh: */ - 0xa7, 0x38, 0x00, 0x00, /* lhi %r3, 0 */ - 0xa7, 0xf4, 0x00, 0x04, /* j .Lend */ - /* .Lless: */ - 0xa7, 0x38, 0x00, 0x01, /* lhi %r3, 1 */ - /* .Lend: */ - 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_less_unsigned" emit_ops method for s390. */ - -static void -s390_emit_less_unsigned (void) -{ - static const unsigned char buf[] = { - 0x55, 0x20, 0xf0, 0x00, /* cl %r2, 0(%r15) */ - 0xa7, 0x24, 0x00, 0x0c, /* jh .Lless */ - 0xa7, 0x44, 0x00, 0x06, /* jl .Lhigh */ - 0x55, 0x30, 0xf0, 0x04, /* cl %r3, 4(%r15) */ - 0xa7, 0x24, 0x00, 0x06, /* jh .Lless */ - /* .Lhigh: */ - 0xa7, 0x38, 0x00, 0x00, /* lhi %r3, 0 */ - 0xa7, 0xf4, 0x00, 0x04, /* j .Lend */ - /* .Lless: */ - 0xa7, 0x38, 0x00, 0x01, /* lhi %r3, 1 */ - /* .Lend: */ - 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_ref" emit_ops method for s390. */ - -static void -s390_emit_ref (int size) -{ - static const unsigned char buf1[] = { - 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ - 0x43, 0x30, 0x30, 0x00, /* ic %r3, 0(%r3) */ - }; - static const unsigned char buf2[] = { - 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ - 0x48, 0x30, 0x30, 0x00, /* lh %r3, 0(%r3) */ - }; - static const unsigned char buf4[] = { - 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ - 0x58, 0x30, 0x30, 0x00, /* l %r3, 0(%r3) */ - }; - static const unsigned char buf8[] = { - 0x98, 0x23, 0x30, 0x00, /* lm %r2, %r3, 0(%r3) */ - }; - switch (size) - { - case 1: - add_insns (buf1, sizeof buf1); - break; - case 2: - add_insns (buf2, sizeof buf2); - break; - case 4: - add_insns (buf4, sizeof buf4); - break; - case 8: - add_insns (buf8, sizeof buf8); - break; - default: - emit_error = 1; - } -} - -/* The "emit_if_goto" emit_ops method for s390. */ - -static void -s390_emit_if_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0x16, 0x23, /* or %r2, %r3 */ - 0x98, 0x23, 0xf0, 0x00, /* lm %r2, %r3, 0(%r15) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - 0xc0, 0x74, 0x00, 0x00, 0x00, 0x00 /* jgne */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 12; - if (size_p) - *size_p = 4; -} - -/* The "emit_goto" emit_ops method for s390 and s390x. */ - -static void -s390_emit_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0xc0, 0xf4, 0x00, 0x00, 0x00, 0x00, /* jg */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 2; - if (size_p) - *size_p = 4; -} - -/* The "write_goto_address" emit_ops method for s390 and s390x. */ - -static void -s390_write_goto_address (CORE_ADDR from, CORE_ADDR to, int size) -{ - long diff = ((long) (to - (from - 2))) / 2; - int sdiff = diff; - unsigned char buf[sizeof sdiff]; - - /* We're only doing 4-byte sizes at the moment. */ - if (size != sizeof sdiff || sdiff != diff) - { - emit_error = 1; - return; - } - - memcpy (buf, &sdiff, sizeof sdiff); - target_write_memory (from, buf, sizeof sdiff); -} - -/* Preparation for emitting a literal pool of given size. Loads the address - of the pool into %r1, and jumps over it. Called should emit the pool data - immediately afterwards. Used for both s390 and s390x. */ - -static void -s390_emit_litpool (int size) -{ - static const unsigned char nop[] = { - 0x07, 0x07, - }; - unsigned char buf[] = { - 0xa7, 0x15, 0x00, - (unsigned char) ((size + 4) / 2), /* bras %r1, .Lend+size */ - /* .Lend: */ - }; - if (size == 4) - { - /* buf needs to start at even halfword for litpool to be aligned */ - if (current_insn_ptr & 2) - add_insns (nop, sizeof nop); - } - else - { - while ((current_insn_ptr & 6) != 4) - add_insns (nop, sizeof nop); - } - add_insns (buf, sizeof buf); -} - -/* The "emit_const" emit_ops method for s390. */ - -static void -s390_emit_const (LONGEST num) -{ - unsigned long long n = num; - unsigned char buf_s[] = { - /* lhi %r3, */ - 0xa7, 0x38, - (unsigned char) (num >> 8), (unsigned char) num, - /* xr %r2, %r2 */ - 0x17, 0x22, - }; - static const unsigned char buf_l[] = { - 0x98, 0x23, 0x10, 0x00, /* lm %r2, %r3, 0(%r1) */ - }; - if (num < 0x8000 && num >= 0) - { - add_insns (buf_s, sizeof buf_s); - } - else - { - s390_emit_litpool (8); - add_insns ((unsigned char *) &n, sizeof n); - add_insns (buf_l, sizeof buf_l); - } -} - -/* The "emit_call" emit_ops method for s390. */ - -static void -s390_emit_call (CORE_ADDR fn) -{ - unsigned int n = fn; - static const unsigned char buf[] = { - 0x58, 0x10, 0x10, 0x00, /* l %r1, 0(%r1) */ - 0xa7, 0xfa, 0xff, 0xa0, /* ahi %r15, -0x60 */ - 0x0d, 0xe1, /* basr %r14, %r1 */ - 0xa7, 0xfa, 0x00, 0x60, /* ahi %r15, 0x60 */ - }; - s390_emit_litpool (4); - add_insns ((unsigned char *) &n, sizeof n); - add_insns (buf, sizeof buf); -} - -/* The "emit_reg" emit_ops method for s390. */ - -static void -s390_emit_reg (int reg) -{ - unsigned char bufpre[] = { - /* lr %r2, %r9 */ - 0x18, 0x29, - /* lhi %r3, */ - 0xa7, 0x38, (unsigned char) (reg >> 8), (unsigned char) reg, - }; - add_insns (bufpre, sizeof bufpre); - s390_emit_call (get_raw_reg_func_addr ()); -} - -/* The "emit_pop" emit_ops method for s390. */ - -static void -s390_emit_pop (void) -{ - static const unsigned char buf[] = { - 0x98, 0x23, 0xf0, 0x00, /* lm %r2, %r3, 0(%r15) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_stack_flush" emit_ops method for s390. */ - -static void -s390_emit_stack_flush (void) -{ - static const unsigned char buf[] = { - 0xa7, 0xfa, 0xff, 0xf8, /* ahi %r15, -8 */ - 0x90, 0x23, 0xf0, 0x00, /* stm %r2, %r3, 0(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_zero_ext" emit_ops method for s390. */ - -static void -s390_emit_zero_ext (int arg) -{ - unsigned char buf[] = { - 0x8d, 0x20, 0x00, (unsigned char) (64 - arg), /* sldl %r2, <64-arg> */ - 0x8c, 0x20, 0x00, (unsigned char) (64 - arg), /* srdl %r2, <64-arg> */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_swap" emit_ops method for s390. */ - -static void -s390_emit_swap (void) -{ - static const unsigned char buf[] = { - 0x98, 0x45, 0xf0, 0x00, /* lm %r4, %r5, 0(%r15) */ - 0x90, 0x23, 0xf0, 0x00, /* stm %r2, %r3, 0(%r15) */ - 0x18, 0x24, /* lr %r2, %r4 */ - 0x18, 0x35, /* lr %r3, %r5 */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_stack_adjust" emit_ops method for s390. */ - -static void -s390_emit_stack_adjust (int n) -{ - unsigned char buf[] = { - /* ahi %r15, 8*n */ - 0xa7, 0xfa, - (unsigned char ) (n * 8 >> 8), (unsigned char) (n * 8), - }; - add_insns (buf, sizeof buf); -} - -/* Sets %r2 to a 32-bit constant. */ - -static void -s390_emit_set_r2 (int arg1) -{ - unsigned char buf_s[] = { - /* lhi %r2, */ - 0xa7, 0x28, (unsigned char) (arg1 >> 8), (unsigned char) arg1, - }; - static const unsigned char buf_l[] = { - 0x58, 0x20, 0x10, 0x00, /* l %r2, 0(%r1) */ - }; - if (arg1 < 0x8000 && arg1 >= -0x8000) - { - add_insns (buf_s, sizeof buf_s); - } - else - { - s390_emit_litpool (4); - add_insns ((unsigned char *) &arg1, sizeof arg1); - add_insns (buf_l, sizeof buf_l); - } -} - -/* The "emit_int_call_1" emit_ops method for s390. */ - -static void -s390_emit_int_call_1 (CORE_ADDR fn, int arg1) -{ - /* FN's prototype is `LONGEST(*fn)(int)'. */ - s390_emit_set_r2 (arg1); - s390_emit_call (fn); -} - -/* The "emit_void_call_2" emit_ops method for s390. */ - -static void -s390_emit_void_call_2 (CORE_ADDR fn, int arg1) -{ - /* FN's prototype is `void(*fn)(int,LONGEST)'. */ - static const unsigned char buf[] = { - 0x18, 0xc2, /* lr %r12, %r2 */ - 0x18, 0xd3, /* lr %r13, %r3 */ - 0x18, 0x43, /* lr %r4, %r3 */ - 0x18, 0x32, /* lr %r3, %r2 */ - }; - static const unsigned char buf2[] = { - 0x18, 0x2c, /* lr %r2, %r12 */ - 0x18, 0x3d, /* lr %r3, %r13 */ - }; - add_insns (buf, sizeof buf); - s390_emit_set_r2 (arg1); - s390_emit_call (fn); - add_insns (buf2, sizeof buf2); -} - -/* The "emit_eq_goto" emit_ops method for s390. */ - -static void -s390_emit_eq_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0x57, 0x20, 0xf0, 0x00, /* x %r2, 0(%r15) */ - 0x57, 0x30, 0xf0, 0x04, /* x %r3, 4(%r15) */ - 0x16, 0x23, /* or %r2, %r3 */ - 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xc0, 0x84, 0x00, 0x00, 0x00, 0x00, /* jge */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 20; - if (size_p) - *size_p = 4; -} - -/* The "emit_ne_goto" emit_ops method for s390. */ - -static void -s390_emit_ne_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0x57, 0x20, 0xf0, 0x00, /* x %r2, 0(%r15) */ - 0x57, 0x30, 0xf0, 0x04, /* x %r3, 4(%r15) */ - 0x16, 0x23, /* or %r2, %r3 */ - 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xc0, 0x74, 0x00, 0x00, 0x00, 0x00, /* jgne */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 20; - if (size_p) - *size_p = 4; -} - -/* The "emit_lt_goto" emit_ops method for s390. */ - -static void -s390_emit_lt_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0x59, 0x20, 0xf0, 0x00, /* c %r2, 0(%r15) */ - 0xa7, 0x24, 0x00, 0x0e, /* jh .Ltrue */ - 0xa7, 0x44, 0x00, 0x06, /* jl .Lfalse */ - 0x55, 0x30, 0xf0, 0x04, /* cl %r3, 4(%r15) */ - 0xa7, 0x24, 0x00, 0x08, /* jh .Ltrue */ - /* .Lfalse: */ - 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xa7, 0xf4, 0x00, 0x09, /* j .Lend */ - /* .Ltrue: */ - 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xc0, 0xf4, 0x00, 0x00, 0x00, 0x00, /* jg */ - /* .Lend: */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 42; - if (size_p) - *size_p = 4; -} - -/* The "emit_le_goto" emit_ops method for s390. */ - -static void -s390_emit_le_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0x59, 0x20, 0xf0, 0x00, /* c %r2, 0(%r15) */ - 0xa7, 0x24, 0x00, 0x0e, /* jh .Ltrue */ - 0xa7, 0x44, 0x00, 0x06, /* jl .Lfalse */ - 0x55, 0x30, 0xf0, 0x04, /* cl %r3, 4(%r15) */ - 0xa7, 0xa4, 0x00, 0x08, /* jhe .Ltrue */ - /* .Lfalse: */ - 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xa7, 0xf4, 0x00, 0x09, /* j .Lend */ - /* .Ltrue: */ - 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xc0, 0xf4, 0x00, 0x00, 0x00, 0x00, /* jg */ - /* .Lend: */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 42; - if (size_p) - *size_p = 4; -} - -/* The "emit_gt_goto" emit_ops method for s390. */ - -static void -s390_emit_gt_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0x59, 0x20, 0xf0, 0x00, /* c %r2, 0(%r15) */ - 0xa7, 0x44, 0x00, 0x0e, /* jl .Ltrue */ - 0xa7, 0x24, 0x00, 0x06, /* jh .Lfalse */ - 0x55, 0x30, 0xf0, 0x04, /* cl %r3, 4(%r15) */ - 0xa7, 0x44, 0x00, 0x08, /* jl .Ltrue */ - /* .Lfalse: */ - 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xa7, 0xf4, 0x00, 0x09, /* j .Lend */ - /* .Ltrue: */ - 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xc0, 0xf4, 0x00, 0x00, 0x00, 0x00, /* jg */ - /* .Lend: */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 42; - if (size_p) - *size_p = 4; -} - -/* The "emit_ge_goto" emit_ops method for s390. */ - -static void -s390_emit_ge_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0x59, 0x20, 0xf0, 0x00, /* c %r2, 0(%r15) */ - 0xa7, 0x44, 0x00, 0x0e, /* jl .Ltrue */ - 0xa7, 0x24, 0x00, 0x06, /* jh .Lfalse */ - 0x55, 0x30, 0xf0, 0x04, /* cl %r3, 4(%r15) */ - 0xa7, 0xc4, 0x00, 0x08, /* jle .Ltrue */ - /* .Lfalse: */ - 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xa7, 0xf4, 0x00, 0x09, /* j .Lend */ - /* .Ltrue: */ - 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xc0, 0xf4, 0x00, 0x00, 0x00, 0x00, /* jg */ - /* .Lend: */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 42; - if (size_p) - *size_p = 4; -} - -/* The "emit_ops" structure for s390. Named _impl to avoid name - collision with s390_emit_ops function. */ - -static struct emit_ops s390_emit_ops_impl = - { - s390_emit_prologue, - s390_emit_epilogue, - s390_emit_add, - s390_emit_sub, - s390_emit_mul, - s390_emit_lsh, - s390_emit_rsh_signed, - s390_emit_rsh_unsigned, - s390_emit_ext, - s390_emit_log_not, - s390_emit_bit_and, - s390_emit_bit_or, - s390_emit_bit_xor, - s390_emit_bit_not, - s390_emit_equal, - s390_emit_less_signed, - s390_emit_less_unsigned, - s390_emit_ref, - s390_emit_if_goto, - s390_emit_goto, - s390_write_goto_address, - s390_emit_const, - s390_emit_call, - s390_emit_reg, - s390_emit_pop, - s390_emit_stack_flush, - s390_emit_zero_ext, - s390_emit_swap, - s390_emit_stack_adjust, - s390_emit_int_call_1, - s390_emit_void_call_2, - s390_emit_eq_goto, - s390_emit_ne_goto, - s390_emit_lt_goto, - s390_emit_le_goto, - s390_emit_gt_goto, - s390_emit_ge_goto - }; - -#ifdef __s390x__ - -/* The "emit_prologue" emit_ops method for s390x. */ - -static void -s390x_emit_prologue (void) -{ - static const unsigned char buf[] = { - 0xeb, 0x9f, 0xf0, 0x48, 0x00, 0x24, /* stmg %r9, %r15, 0x48(%r15) */ - 0xb9, 0x04, 0x00, 0x92, /* lgr %r9, %r2 */ - 0xb9, 0x04, 0x00, 0xa3, /* lgr %r10, %r3 */ - 0xb9, 0x04, 0x00, 0xbf, /* lgr %r11, %r15 */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_epilogue" emit_ops method for s390x. */ - -static void -s390x_emit_epilogue (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xa0, 0x00, 0x00, 0x24, /* stg %r2, 0(%r10) */ - 0xa7, 0x29, 0x00, 0x00, /* lghi %r2, 0 */ - 0xeb, 0x9f, 0xf0, 0x48, 0x00, 0x04, /* lmg %r9, %r15, 0x48(%r15) */ - 0x07, 0xfe, /* br %r14 */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_add" emit_ops method for s390x. */ - -static void -s390x_emit_add (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x0a, /* alg %r2, 0(%r15) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_sub" emit_ops method for s390x. */ - -static void -s390x_emit_sub (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x30, 0xf0, 0x00, 0x00, 0x04, /* lg %r3, 0(%r15) */ - 0xb9, 0x0b, 0x00, 0x32, /* slgr %r3, %r2 */ - 0xb9, 0x04, 0x00, 0x23, /* lgr %r2, %r3 */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_mul" emit_ops method for s390x. */ - -static void -s390x_emit_mul (void) -{ - emit_error = 1; -} - -/* The "emit_lsh" emit_ops method for s390x. */ - -static void -s390x_emit_lsh (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x30, 0xf0, 0x00, 0x00, 0x04, /* lg %r3, 0(%r15) */ - 0xeb, 0x23, 0x20, 0x00, 0x00, 0x0d, /* sllg %r2, %r3, 0(%r2) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_rsh_signed" emit_ops method for s390x. */ - -static void -s390x_emit_rsh_signed (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x30, 0xf0, 0x00, 0x00, 0x04, /* lg %r3, 0(%r15) */ - 0xeb, 0x23, 0x20, 0x00, 0x00, 0x0a, /* srag %r2, %r3, 0(%r2) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_rsh_unsigned" emit_ops method for s390x. */ - -static void -s390x_emit_rsh_unsigned (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x30, 0xf0, 0x00, 0x00, 0x04, /* lg %r3, 0(%r15) */ - 0xeb, 0x23, 0x20, 0x00, 0x00, 0x0c, /* srlg %r2, %r3, 0(%r2) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_ext" emit_ops method for s390x. */ - -static void -s390x_emit_ext (int arg) -{ - unsigned char buf[] = { - /* sllg %r2, %r2, <64-arg> */ - 0xeb, 0x22, 0x00, (unsigned char) (64 - arg), 0x00, 0x0d, - /* srag %r2, %r2, <64-arg> */ - 0xeb, 0x22, 0x00, (unsigned char) (64 - arg), 0x00, 0x0a, - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_log_not" emit_ops method for s390x. */ - -static void -s390x_emit_log_not (void) -{ - static const unsigned char buf[] = { - 0xb9, 0x00, 0x00, 0x22, /* lpgr %r2, %r2 */ - 0xa7, 0x2b, 0xff, 0xff, /* aghi %r2, -1 */ - 0xeb, 0x22, 0x00, 0x3f, 0x00, 0x0c, /* srlg %r2, %r2, 63 */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_bit_and" emit_ops method for s390x. */ - -static void -s390x_emit_bit_and (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x80, /* ng %r2, 0(%r15) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_bit_or" emit_ops method for s390x. */ - -static void -s390x_emit_bit_or (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x81, /* og %r2, 0(%r15) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_bit_xor" emit_ops method for s390x. */ - -static void -s390x_emit_bit_xor (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x82, /* xg %r2, 0(%r15) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_bit_not" emit_ops method for s390x. */ - -static void -s390x_emit_bit_not (void) -{ - static const unsigned char buf[] = { - 0xa7, 0x39, 0xff, 0xff, /* lghi %r3, -1 */ - 0xb9, 0x82, 0x00, 0x23, /* xgr %r2, %r3 */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_equal" emit_ops method for s390x. */ - -static void -s390x_emit_equal (void) -{ - s390x_emit_bit_xor (); - s390x_emit_log_not (); -} - -/* The "emit_less_signed" emit_ops method for s390x. */ - -static void -s390x_emit_less_signed (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ - 0xa7, 0x29, 0x00, 0x01, /* lghi %r2, 1 */ - 0xa7, 0x24, 0x00, 0x04, /* jh .Lend */ - 0xa7, 0x29, 0x00, 0x00, /* lghi %r2, 0 */ - /* .Lend: */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_less_unsigned" emit_ops method for s390x. */ - -static void -s390x_emit_less_unsigned (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x21, /* clg %r2, 0(%r15) */ - 0xa7, 0x29, 0x00, 0x01, /* lghi %r2, 1 */ - 0xa7, 0x24, 0x00, 0x04, /* jh .Lend */ - 0xa7, 0x29, 0x00, 0x00, /* lghi %r2, 0 */ - /* .Lend: */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_ref" emit_ops method for s390x. */ - -static void -s390x_emit_ref (int size) -{ - static const unsigned char buf1[] = { - 0xe3, 0x20, 0x20, 0x00, 0x00, 0x90, /* llgc %r2, 0(%r2) */ - }; - static const unsigned char buf2[] = { - 0xe3, 0x20, 0x20, 0x00, 0x00, 0x91 /* llgh %r2, 0(%r2) */ - }; - static const unsigned char buf4[] = { - 0xe3, 0x20, 0x20, 0x00, 0x00, 0x16, /* llgf %r2, 0(%r2) */ - }; - static const unsigned char buf8[] = { - 0xe3, 0x20, 0x20, 0x00, 0x00, 0x04, /* lg %r2, 0(%r2) */ - }; - switch (size) - { - case 1: - add_insns (buf1, sizeof buf1); - break; - case 2: - add_insns (buf2, sizeof buf2); - break; - case 4: - add_insns (buf4, sizeof buf4); - break; - case 8: - add_insns (buf8, sizeof buf8); - break; - default: - emit_error = 1; - } -} - -/* The "emit_if_goto" emit_ops method for s390x. */ - -static void -s390x_emit_if_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0xb9, 0x02, 0x00, 0x22, /* ltgr %r2, %r2 */ - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x04, /* lg %r2, 0(%r15) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - 0xc0, 0x74, 0x00, 0x00, 0x00, 0x00, /* jgne */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 16; - if (size_p) - *size_p = 4; -} - -/* The "emit_const" emit_ops method for s390x. */ - -static void -s390x_emit_const (LONGEST num) -{ - unsigned long long n = num; - unsigned char buf_s[] = { - /* lghi %r2, */ - 0xa7, 0x29, (unsigned char) (num >> 8), (unsigned char) num, - }; - static const unsigned char buf_l[] = { - 0xe3, 0x20, 0x10, 0x00, 0x00, 0x04, /* lg %r2, 0(%r1) */ - }; - if (num < 0x8000 && num >= -0x8000) - { - add_insns (buf_s, sizeof buf_s); - } - else - { - s390_emit_litpool (8); - add_insns ((unsigned char *) &n, sizeof n); - add_insns (buf_l, sizeof buf_l); - } -} - -/* The "emit_call" emit_ops method for s390x. */ - -static void -s390x_emit_call (CORE_ADDR fn) -{ - unsigned long n = fn; - static const unsigned char buf[] = { - 0xe3, 0x10, 0x10, 0x00, 0x00, 0x04, /* lg %r1, 0(%r1) */ - 0xa7, 0xfb, 0xff, 0x60, /* aghi %r15, -0xa0 */ - 0x0d, 0xe1, /* basr %r14, %r1 */ - 0xa7, 0xfb, 0x00, 0xa0, /* aghi %r15, 0xa0 */ - }; - s390_emit_litpool (8); - add_insns ((unsigned char *) &n, sizeof n); - add_insns (buf, sizeof buf); -} - -/* The "emit_reg" emit_ops method for s390x. */ - -static void -s390x_emit_reg (int reg) -{ - unsigned char buf[] = { - /* lgr %r2, %r9 */ - 0xb9, 0x04, 0x00, 0x29, - /* lghi %r3, */ - 0xa7, 0x39, (unsigned char) (reg >> 8), (unsigned char) reg, - }; - add_insns (buf, sizeof buf); - s390x_emit_call (get_raw_reg_func_addr ()); -} - -/* The "emit_pop" emit_ops method for s390x. */ - -static void -s390x_emit_pop (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x04, /* lg %r2, 0(%r15) */ - 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_stack_flush" emit_ops method for s390x. */ - -static void -s390x_emit_stack_flush (void) -{ - static const unsigned char buf[] = { - 0xa7, 0xfb, 0xff, 0xf8, /* aghi %r15, -8 */ - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x24, /* stg %r2, 0(%r15) */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_zero_ext" emit_ops method for s390x. */ - -static void -s390x_emit_zero_ext (int arg) -{ - unsigned char buf[] = { - /* sllg %r2, %r2, <64-arg> */ - 0xeb, 0x22, 0x00, (unsigned char) (64 - arg), 0x00, 0x0d, - /* srlg %r2, %r2, <64-arg> */ - 0xeb, 0x22, 0x00, (unsigned char) (64 - arg), 0x00, 0x0c, - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_swap" emit_ops method for s390x. */ - -static void -s390x_emit_swap (void) -{ - static const unsigned char buf[] = { - 0xe3, 0x30, 0xf0, 0x00, 0x00, 0x04, /* lg %r3, 0(%r15) */ - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x24, /* stg %r2, 0(%r15) */ - 0xb9, 0x04, 0x00, 0x23, /* lgr %r2, %r3 */ - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_stack_adjust" emit_ops method for s390x. */ - -static void -s390x_emit_stack_adjust (int n) -{ - unsigned char buf[] = { - /* aghi %r15, 8*n */ - 0xa7, 0xfb, - (unsigned char) (n * 8 >> 8), (unsigned char) (n * 8), - }; - add_insns (buf, sizeof buf); -} - -/* The "emit_int_call_1" emit_ops method for s390x. */ - -static void -s390x_emit_int_call_1 (CORE_ADDR fn, int arg1) -{ - /* FN's prototype is `LONGEST(*fn)(int)'. */ - s390x_emit_const (arg1); - s390x_emit_call (fn); -} - -/* The "emit_void_call_2" emit_ops method for s390x. */ - -static void -s390x_emit_void_call_2 (CORE_ADDR fn, int arg1) -{ - /* FN's prototype is `void(*fn)(int,LONGEST)'. */ - static const unsigned char buf[] = { - 0xb9, 0x04, 0x00, 0x32, /* lgr %r3, %r2 */ - 0xb9, 0x04, 0x00, 0xc2, /* lgr %r12, %r2 */ - }; - static const unsigned char buf2[] = { - 0xb9, 0x04, 0x00, 0x2c, /* lgr %r2, %r12 */ - }; - add_insns (buf, sizeof buf); - s390x_emit_const (arg1); - s390x_emit_call (fn); - add_insns (buf2, sizeof buf2); -} - -/* The "emit_eq_goto" emit_ops method for s390x. */ - -static void -s390x_emit_eq_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ - 0xe3, 0x20, 0xf0, 0x08, 0x00, 0x04, /* lg %r2, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xc0, 0x84, 0x00, 0x00, 0x00, 0x00, /* jge */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 18; - if (size_p) - *size_p = 4; -} - -/* The "emit_ne_goto" emit_ops method for s390x. */ - -static void -s390x_emit_ne_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ - 0xe3, 0x20, 0xf0, 0x08, 0x00, 0x04, /* lg %r2, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xc0, 0x74, 0x00, 0x00, 0x00, 0x00, /* jgne */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 18; - if (size_p) - *size_p = 4; -} - -/* The "emit_lt_goto" emit_ops method for s390x. */ - -static void -s390x_emit_lt_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ - 0xe3, 0x20, 0xf0, 0x08, 0x00, 0x04, /* lg %r2, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xc0, 0x24, 0x00, 0x00, 0x00, 0x00, /* jgh */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 18; - if (size_p) - *size_p = 4; -} - -/* The "emit_le_goto" emit_ops method for s390x. */ - -static void -s390x_emit_le_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ - 0xe3, 0x20, 0xf0, 0x08, 0x00, 0x04, /* lg %r2, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xc0, 0xa4, 0x00, 0x00, 0x00, 0x00, /* jghe */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 18; - if (size_p) - *size_p = 4; -} - -/* The "emit_gt_goto" emit_ops method for s390x. */ - -static void -s390x_emit_gt_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ - 0xe3, 0x20, 0xf0, 0x08, 0x00, 0x04, /* lg %r2, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xc0, 0x44, 0x00, 0x00, 0x00, 0x00, /* jgl */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 18; - if (size_p) - *size_p = 4; -} - -/* The "emit_ge_goto" emit_ops method for s390x. */ - -static void -s390x_emit_ge_goto (int *offset_p, int *size_p) -{ - static const unsigned char buf[] = { - 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ - 0xe3, 0x20, 0xf0, 0x08, 0x00, 0x04, /* lg %r2, 8(%r15) */ - 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ - 0xc0, 0xc4, 0x00, 0x00, 0x00, 0x00, /* jgle */ - }; - add_insns (buf, sizeof buf); - if (offset_p) - *offset_p = 18; - if (size_p) - *size_p = 4; -} - -/* The "emit_ops" structure for s390x. */ - -static struct emit_ops s390x_emit_ops = - { - s390x_emit_prologue, - s390x_emit_epilogue, - s390x_emit_add, - s390x_emit_sub, - s390x_emit_mul, - s390x_emit_lsh, - s390x_emit_rsh_signed, - s390x_emit_rsh_unsigned, - s390x_emit_ext, - s390x_emit_log_not, - s390x_emit_bit_and, - s390x_emit_bit_or, - s390x_emit_bit_xor, - s390x_emit_bit_not, - s390x_emit_equal, - s390x_emit_less_signed, - s390x_emit_less_unsigned, - s390x_emit_ref, - s390x_emit_if_goto, - s390_emit_goto, - s390_write_goto_address, - s390x_emit_const, - s390x_emit_call, - s390x_emit_reg, - s390x_emit_pop, - s390x_emit_stack_flush, - s390x_emit_zero_ext, - s390x_emit_swap, - s390x_emit_stack_adjust, - s390x_emit_int_call_1, - s390x_emit_void_call_2, - s390x_emit_eq_goto, - s390x_emit_ne_goto, - s390x_emit_lt_goto, - s390x_emit_le_goto, - s390x_emit_gt_goto, - s390x_emit_ge_goto - }; -#endif - -/* The "emit_ops" linux_target_ops method. */ - -static struct emit_ops * -s390_emit_ops (void) -{ -#ifdef __s390x__ - struct regcache *regcache = get_thread_regcache (current_thread, 0); - - if (register_size (regcache->tdesc, 0) == 8) - return &s390x_emit_ops; - else -#endif - return &s390_emit_ops_impl; -} - -struct linux_target_ops the_low_target = { - s390_arch_setup, - s390_regs_info, - s390_cannot_fetch_register, - s390_cannot_store_register, - NULL, /* fetch_register */ - s390_get_pc, - s390_set_pc, - NULL, /* breakpoint_kind_from_pc */ - s390_sw_breakpoint_from_kind, - NULL, - s390_breakpoint_len, - s390_breakpoint_at, - s390_supports_z_point_type, - NULL, - NULL, - NULL, - NULL, - s390_collect_ptrace_register, - s390_supply_ptrace_register, - NULL, /* siginfo_fixup */ - NULL, /* new_process */ - NULL, /* delete_process */ - NULL, /* new_thread */ - NULL, /* delete_thread */ - NULL, /* new_fork */ - NULL, /* prepare_to_resume */ - NULL, /* process_qsupported */ - s390_supports_tracepoints, - s390_get_thread_area, - s390_install_fast_tracepoint_jump_pad, - s390_emit_ops, - s390_get_min_fast_tracepoint_insn_len, - NULL, /* supports_range_stepping */ - NULL, /* breakpoint_kind_from_current_state */ - s390_supports_hardware_single_step, - NULL, /* get_syscall_trapinfo */ - s390_get_ipa_tdesc_idx, -}; - -void -initialize_low_arch (void) -{ - /* Initialize the Linux target descriptions. */ - - init_registers_s390_linux32 (); - init_registers_s390_linux32v1 (); - init_registers_s390_linux32v2 (); - init_registers_s390_linux64 (); - init_registers_s390_linux64v1 (); - init_registers_s390_linux64v2 (); - init_registers_s390_te_linux64 (); - init_registers_s390_vx_linux64 (); - init_registers_s390_tevx_linux64 (); - init_registers_s390_gs_linux64 (); -#ifdef __s390x__ - init_registers_s390x_linux64 (); - init_registers_s390x_linux64v1 (); - init_registers_s390x_linux64v2 (); - init_registers_s390x_te_linux64 (); - init_registers_s390x_vx_linux64 (); - init_registers_s390x_tevx_linux64 (); - init_registers_s390x_gs_linux64 (); -#endif - - initialize_regsets_info (&s390_regsets_info); - initialize_regsets_info (&s390_regsets_info_3264); -} diff --git a/gdbserver/linux-s390-low.cc b/gdbserver/linux-s390-low.cc new file mode 100644 index 00000000000..f3d6f093099 --- /dev/null +++ b/gdbserver/linux-s390-low.cc @@ -0,0 +1,2860 @@ +/* GNU/Linux S/390 specific low level interface, for the remote server + for GDB. + Copyright (C) 2001-2020 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 . */ + +/* This file is used for both 31-bit and 64-bit S/390 systems. */ + +#include "server.h" +#include "linux-low.h" +#include "elf/common.h" +#include "ax.h" +#include "tracepoint.h" + +#include +#include "nat/gdb_ptrace.h" +#include +#include +#include + +#include "linux-s390-tdesc.h" + +#ifndef HWCAP_S390_HIGH_GPRS +#define HWCAP_S390_HIGH_GPRS 512 +#endif + +#ifndef HWCAP_S390_TE +#define HWCAP_S390_TE 1024 +#endif + +#ifndef HWCAP_S390_VX +#define HWCAP_S390_VX 2048 +#endif + +#ifndef HWCAP_S390_GS +#define HWCAP_S390_GS 16384 +#endif + +#define s390_num_regs 52 + +static int s390_regmap[] = { + PT_PSWMASK, PT_PSWADDR, + + PT_GPR0, PT_GPR1, PT_GPR2, PT_GPR3, + PT_GPR4, PT_GPR5, PT_GPR6, PT_GPR7, + PT_GPR8, PT_GPR9, PT_GPR10, PT_GPR11, + PT_GPR12, PT_GPR13, PT_GPR14, PT_GPR15, + + PT_ACR0, PT_ACR1, PT_ACR2, PT_ACR3, + PT_ACR4, PT_ACR5, PT_ACR6, PT_ACR7, + PT_ACR8, PT_ACR9, PT_ACR10, PT_ACR11, + PT_ACR12, PT_ACR13, PT_ACR14, PT_ACR15, + + PT_FPC, + +#ifndef __s390x__ + PT_FPR0_HI, PT_FPR1_HI, PT_FPR2_HI, PT_FPR3_HI, + PT_FPR4_HI, PT_FPR5_HI, PT_FPR6_HI, PT_FPR7_HI, + PT_FPR8_HI, PT_FPR9_HI, PT_FPR10_HI, PT_FPR11_HI, + PT_FPR12_HI, PT_FPR13_HI, PT_FPR14_HI, PT_FPR15_HI, +#else + PT_FPR0, PT_FPR1, PT_FPR2, PT_FPR3, + PT_FPR4, PT_FPR5, PT_FPR6, PT_FPR7, + PT_FPR8, PT_FPR9, PT_FPR10, PT_FPR11, + PT_FPR12, PT_FPR13, PT_FPR14, PT_FPR15, +#endif + + PT_ORIGGPR2, +}; + +#define s390_num_regs_3264 68 + +#ifdef __s390x__ +static int s390_regmap_3264[] = { + PT_PSWMASK, PT_PSWADDR, + + PT_GPR0, PT_GPR0, PT_GPR1, PT_GPR1, + PT_GPR2, PT_GPR2, PT_GPR3, PT_GPR3, + PT_GPR4, PT_GPR4, PT_GPR5, PT_GPR5, + PT_GPR6, PT_GPR6, PT_GPR7, PT_GPR7, + PT_GPR8, PT_GPR8, PT_GPR9, PT_GPR9, + PT_GPR10, PT_GPR10, PT_GPR11, PT_GPR11, + PT_GPR12, PT_GPR12, PT_GPR13, PT_GPR13, + PT_GPR14, PT_GPR14, PT_GPR15, PT_GPR15, + + PT_ACR0, PT_ACR1, PT_ACR2, PT_ACR3, + PT_ACR4, PT_ACR5, PT_ACR6, PT_ACR7, + PT_ACR8, PT_ACR9, PT_ACR10, PT_ACR11, + PT_ACR12, PT_ACR13, PT_ACR14, PT_ACR15, + + PT_FPC, + + PT_FPR0, PT_FPR1, PT_FPR2, PT_FPR3, + PT_FPR4, PT_FPR5, PT_FPR6, PT_FPR7, + PT_FPR8, PT_FPR9, PT_FPR10, PT_FPR11, + PT_FPR12, PT_FPR13, PT_FPR14, PT_FPR15, + + PT_ORIGGPR2, +}; +#else +static int s390_regmap_3264[] = { + PT_PSWMASK, PT_PSWADDR, + + -1, PT_GPR0, -1, PT_GPR1, + -1, PT_GPR2, -1, PT_GPR3, + -1, PT_GPR4, -1, PT_GPR5, + -1, PT_GPR6, -1, PT_GPR7, + -1, PT_GPR8, -1, PT_GPR9, + -1, PT_GPR10, -1, PT_GPR11, + -1, PT_GPR12, -1, PT_GPR13, + -1, PT_GPR14, -1, PT_GPR15, + + PT_ACR0, PT_ACR1, PT_ACR2, PT_ACR3, + PT_ACR4, PT_ACR5, PT_ACR6, PT_ACR7, + PT_ACR8, PT_ACR9, PT_ACR10, PT_ACR11, + PT_ACR12, PT_ACR13, PT_ACR14, PT_ACR15, + + PT_FPC, + + PT_FPR0_HI, PT_FPR1_HI, PT_FPR2_HI, PT_FPR3_HI, + PT_FPR4_HI, PT_FPR5_HI, PT_FPR6_HI, PT_FPR7_HI, + PT_FPR8_HI, PT_FPR9_HI, PT_FPR10_HI, PT_FPR11_HI, + PT_FPR12_HI, PT_FPR13_HI, PT_FPR14_HI, PT_FPR15_HI, + + PT_ORIGGPR2, +}; +#endif + + +static int +s390_cannot_fetch_register (int regno) +{ + return 0; +} + +static int +s390_cannot_store_register (int regno) +{ + return 0; +} + +static void +s390_collect_ptrace_register (struct regcache *regcache, int regno, char *buf) +{ + int size = register_size (regcache->tdesc, regno); + const struct regs_info *regs_info = (*the_low_target.regs_info) (); + struct usrregs_info *usr = regs_info->usrregs; + int regaddr = usr->regmap[regno]; + + if (size < sizeof (long)) + { + memset (buf, 0, sizeof (long)); + + if ((regno ^ 1) < usr->num_regs + && usr->regmap[regno ^ 1] == regaddr) + { + collect_register (regcache, regno & ~1, buf); + collect_register (regcache, (regno & ~1) + 1, + buf + sizeof (long) - size); + } + else if (regaddr == PT_PSWMASK) + { + /* Convert 4-byte PSW mask to 8 bytes by clearing bit 12 and copying + the basic addressing mode bit from the PSW address. */ + gdb_byte *addr = (gdb_byte *) alloca (register_size (regcache->tdesc, regno ^ 1)); + collect_register (regcache, regno, buf); + collect_register (regcache, regno ^ 1, addr); + buf[1] &= ~0x8; + buf[size] |= (addr[0] & 0x80); + } + else if (regaddr == PT_PSWADDR) + { + /* Convert 4-byte PSW address to 8 bytes by clearing the addressing + mode bit (which gets copied to the PSW mask instead). */ + collect_register (regcache, regno, buf + sizeof (long) - size); + buf[sizeof (long) - size] &= ~0x80; + } + else if ((regaddr >= PT_GPR0 && regaddr <= PT_GPR15) + || regaddr == PT_ORIGGPR2) + collect_register (regcache, regno, buf + sizeof (long) - size); + else + collect_register (regcache, regno, buf); + } + else if (regaddr != -1) + collect_register (regcache, regno, buf); +} + +static void +s390_supply_ptrace_register (struct regcache *regcache, + int regno, const char *buf) +{ + int size = register_size (regcache->tdesc, regno); + const struct regs_info *regs_info = (*the_low_target.regs_info) (); + struct usrregs_info *usr = regs_info->usrregs; + int regaddr = usr->regmap[regno]; + + if (size < sizeof (long)) + { + if ((regno ^ 1) < usr->num_regs + && usr->regmap[regno ^ 1] == regaddr) + { + supply_register (regcache, regno & ~1, buf); + supply_register (regcache, (regno & ~1) + 1, + buf + sizeof (long) - size); + } + else if (regaddr == PT_PSWMASK) + { + /* Convert 8-byte PSW mask to 4 bytes by setting bit 12 and copying + the basic addressing mode into the PSW address. */ + gdb_byte *mask = (gdb_byte *) alloca (size); + gdb_byte *addr = (gdb_byte *) alloca (register_size (regcache->tdesc, regno ^ 1)); + memcpy (mask, buf, size); + mask[1] |= 0x8; + supply_register (regcache, regno, mask); + + collect_register (regcache, regno ^ 1, addr); + addr[0] &= ~0x80; + addr[0] |= (buf[size] & 0x80); + supply_register (regcache, regno ^ 1, addr); + } + else if (regaddr == PT_PSWADDR) + { + /* Convert 8-byte PSW address to 4 bytes by truncating, but + keeping the addressing mode bit (which was set from the mask). */ + gdb_byte *addr = (gdb_byte *) alloca (size); + char amode; + collect_register (regcache, regno, addr); + amode = addr[0] & 0x80; + memcpy (addr, buf + sizeof (long) - size, size); + addr[0] &= ~0x80; + addr[0] |= amode; + supply_register (regcache, regno, addr); + } + else if ((regaddr >= PT_GPR0 && regaddr <= PT_GPR15) + || regaddr == PT_ORIGGPR2) + supply_register (regcache, regno, buf + sizeof (long) - size); + else + supply_register (regcache, regno, buf); + } + else if (regaddr != -1) + supply_register (regcache, regno, buf); +} + +/* Provide only a fill function for the general register set. ps_lgetregs + will use this for NPTL support. */ + +static void +s390_fill_gregset (struct regcache *regcache, void *buf) +{ + int i; + const struct regs_info *regs_info = (*the_low_target.regs_info) (); + struct usrregs_info *usr = regs_info->usrregs; + + for (i = 0; i < usr->num_regs; i++) + { + if (usr->regmap[i] < PT_PSWMASK + || usr->regmap[i] > PT_ACR15) + continue; + + s390_collect_ptrace_register (regcache, i, + (char *) buf + usr->regmap[i]); + } +} + +/* Fill and store functions for extended register sets. */ + +#ifndef __s390x__ +static void +s390_fill_gprs_high (struct regcache *regcache, void *buf) +{ + int r0h = find_regno (regcache->tdesc, "r0h"); + int i; + + for (i = 0; i < 16; i++) + collect_register (regcache, r0h + 2 * i, (char *) buf + 4 * i); +} + +static void +s390_store_gprs_high (struct regcache *regcache, const void *buf) +{ + int r0h = find_regno (regcache->tdesc, "r0h"); + int i; + + for (i = 0; i < 16; i++) + supply_register (regcache, r0h + 2 * i, (const char *) buf + 4 * i); +} +#endif + +static void +s390_store_last_break (struct regcache *regcache, const void *buf) +{ + const char *p; + + p = (const char *) buf + 8 - register_size (regcache->tdesc, 0); + supply_register_by_name (regcache, "last_break", p); +} + +static void +s390_fill_system_call (struct regcache *regcache, void *buf) +{ + collect_register_by_name (regcache, "system_call", buf); +} + +static void +s390_store_system_call (struct regcache *regcache, const void *buf) +{ + supply_register_by_name (regcache, "system_call", buf); +} + +static void +s390_store_tdb (struct regcache *regcache, const void *buf) +{ + int tdb0 = find_regno (regcache->tdesc, "tdb0"); + int tr0 = find_regno (regcache->tdesc, "tr0"); + int i; + + for (i = 0; i < 4; i++) + supply_register (regcache, tdb0 + i, (const char *) buf + 8 * i); + + for (i = 0; i < 16; i++) + supply_register (regcache, tr0 + i, (const char *) buf + 8 * (16 + i)); +} + +static void +s390_fill_vxrs_low (struct regcache *regcache, void *buf) +{ + int v0 = find_regno (regcache->tdesc, "v0l"); + int i; + + for (i = 0; i < 16; i++) + collect_register (regcache, v0 + i, (char *) buf + 8 * i); +} + +static void +s390_store_vxrs_low (struct regcache *regcache, const void *buf) +{ + int v0 = find_regno (regcache->tdesc, "v0l"); + int i; + + for (i = 0; i < 16; i++) + supply_register (regcache, v0 + i, (const char *) buf + 8 * i); +} + +static void +s390_fill_vxrs_high (struct regcache *regcache, void *buf) +{ + int v16 = find_regno (regcache->tdesc, "v16"); + int i; + + for (i = 0; i < 16; i++) + collect_register (regcache, v16 + i, (char *) buf + 16 * i); +} + +static void +s390_store_vxrs_high (struct regcache *regcache, const void *buf) +{ + int v16 = find_regno (regcache->tdesc, "v16"); + int i; + + for (i = 0; i < 16; i++) + supply_register (regcache, v16 + i, (const char *) buf + 16 * i); +} + +static void +s390_store_gs (struct regcache *regcache, const void *buf) +{ + int gsd = find_regno (regcache->tdesc, "gsd"); + int i; + + for (i = 0; i < 3; i++) + supply_register (regcache, gsd + i, (const char *) buf + 8 * (i + 1)); +} + +static void +s390_store_gsbc (struct regcache *regcache, const void *buf) +{ + int bc_gsd = find_regno (regcache->tdesc, "bc_gsd"); + int i; + + for (i = 0; i < 3; i++) + supply_register (regcache, bc_gsd + i, (const char *) buf + 8 * (i + 1)); +} + +static struct regset_info s390_regsets[] = { + { 0, 0, 0, 0, GENERAL_REGS, s390_fill_gregset, NULL }, +#ifndef __s390x__ + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_S390_HIGH_GPRS, 0, + EXTENDED_REGS, s390_fill_gprs_high, s390_store_gprs_high }, +#endif + /* Last break address is read-only; no fill function. */ + { PTRACE_GETREGSET, -1, NT_S390_LAST_BREAK, 0, EXTENDED_REGS, + NULL, s390_store_last_break }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_S390_SYSTEM_CALL, 0, + EXTENDED_REGS, s390_fill_system_call, s390_store_system_call }, + /* TDB is read-only. */ + { PTRACE_GETREGSET, -1, NT_S390_TDB, 0, EXTENDED_REGS, + NULL, s390_store_tdb }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_S390_VXRS_LOW, 0, + EXTENDED_REGS, s390_fill_vxrs_low, s390_store_vxrs_low }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_S390_VXRS_HIGH, 0, + EXTENDED_REGS, s390_fill_vxrs_high, s390_store_vxrs_high }, + /* Guarded storage registers are read-only. */ + { PTRACE_GETREGSET, -1, NT_S390_GS_CB, 0, EXTENDED_REGS, + NULL, s390_store_gs }, + { PTRACE_GETREGSET, -1, NT_S390_GS_BC, 0, EXTENDED_REGS, + NULL, s390_store_gsbc }, + NULL_REGSET +}; + + +static const gdb_byte s390_breakpoint[] = { 0, 1 }; +#define s390_breakpoint_len 2 + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +s390_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = s390_breakpoint_len; + return s390_breakpoint; +} + +static CORE_ADDR +s390_get_pc (struct regcache *regcache) +{ + if (register_size (regcache->tdesc, 0) == 4) + { + unsigned int pswa; + collect_register_by_name (regcache, "pswa", &pswa); + return pswa & 0x7fffffff; + } + else + { + unsigned long pc; + collect_register_by_name (regcache, "pswa", &pc); + return pc; + } +} + +static void +s390_set_pc (struct regcache *regcache, CORE_ADDR newpc) +{ + if (register_size (regcache->tdesc, 0) == 4) + { + unsigned int pswa; + collect_register_by_name (regcache, "pswa", &pswa); + pswa = (pswa & 0x80000000) | (newpc & 0x7fffffff); + supply_register_by_name (regcache, "pswa", &pswa); + } + else + { + unsigned long pc = newpc; + supply_register_by_name (regcache, "pswa", &pc); + } +} + +/* Determine the word size for the given PID, in bytes. */ + +#ifdef __s390x__ +static int +s390_get_wordsize (int pid) +{ + errno = 0; + PTRACE_XFER_TYPE pswm = ptrace (PTRACE_PEEKUSER, pid, + (PTRACE_TYPE_ARG3) 0, + (PTRACE_TYPE_ARG4) 0); + if (errno != 0) + { + warning (_("Couldn't determine word size, assuming 64-bit.")); + return 8; + } + /* Derive word size from extended addressing mode (PSW bit 31). */ + return pswm & (1L << 32) ? 8 : 4; +} +#else +#define s390_get_wordsize(pid) 4 +#endif + +static int +s390_check_regset (int pid, int regset, int regsize) +{ + void *buf = alloca (regsize); + struct iovec iov; + + iov.iov_base = buf; + iov.iov_len = regsize; + + if (ptrace (PTRACE_GETREGSET, pid, (long) regset, (long) &iov) >= 0 + || errno == ENODATA) + return 1; + return 0; +} + +/* For a 31-bit inferior, whether the kernel supports using the full + 64-bit GPRs. */ +static int have_hwcap_s390_high_gprs = 0; +static int have_hwcap_s390_vx = 0; + +static void +s390_arch_setup (void) +{ + const struct target_desc *tdesc; + struct regset_info *regset; + + /* Determine word size and HWCAP. */ + int pid = pid_of (current_thread); + int wordsize = s390_get_wordsize (pid); + unsigned long hwcap = linux_get_hwcap (wordsize); + + /* Check whether the kernel supports extra register sets. */ + int have_regset_last_break + = s390_check_regset (pid, NT_S390_LAST_BREAK, 8); + int have_regset_system_call + = s390_check_regset (pid, NT_S390_SYSTEM_CALL, 4); + int have_regset_tdb + = (s390_check_regset (pid, NT_S390_TDB, 256) + && (hwcap & HWCAP_S390_TE) != 0); + int have_regset_vxrs + = (s390_check_regset (pid, NT_S390_VXRS_LOW, 128) + && s390_check_regset (pid, NT_S390_VXRS_HIGH, 256) + && (hwcap & HWCAP_S390_VX) != 0); + int have_regset_gs + = (s390_check_regset (pid, NT_S390_GS_CB, 32) + && s390_check_regset (pid, NT_S390_GS_BC, 32) + && (hwcap & HWCAP_S390_GS) != 0); + + { +#ifdef __s390x__ + if (wordsize == 8) + { + if (have_regset_gs) + tdesc = tdesc_s390x_gs_linux64; + else if (have_regset_vxrs) + tdesc = (have_regset_tdb ? tdesc_s390x_tevx_linux64 : + tdesc_s390x_vx_linux64); + else if (have_regset_tdb) + tdesc = tdesc_s390x_te_linux64; + else if (have_regset_system_call) + tdesc = tdesc_s390x_linux64v2; + else if (have_regset_last_break) + tdesc = tdesc_s390x_linux64v1; + else + tdesc = tdesc_s390x_linux64; + } + + /* For a 31-bit inferior, check whether the kernel supports + using the full 64-bit GPRs. */ + else +#endif + if (hwcap & HWCAP_S390_HIGH_GPRS) + { + have_hwcap_s390_high_gprs = 1; + if (have_regset_gs) + tdesc = tdesc_s390_gs_linux64; + else if (have_regset_vxrs) + tdesc = (have_regset_tdb ? tdesc_s390_tevx_linux64 : + tdesc_s390_vx_linux64); + else if (have_regset_tdb) + tdesc = tdesc_s390_te_linux64; + else if (have_regset_system_call) + tdesc = tdesc_s390_linux64v2; + else if (have_regset_last_break) + tdesc = tdesc_s390_linux64v1; + else + tdesc = tdesc_s390_linux64; + } + else + { + /* Assume 31-bit inferior process. */ + if (have_regset_system_call) + tdesc = tdesc_s390_linux32v2; + else if (have_regset_last_break) + tdesc = tdesc_s390_linux32v1; + else + tdesc = tdesc_s390_linux32; + } + + have_hwcap_s390_vx = have_regset_vxrs; + } + + /* Update target_regsets according to available register sets. */ + for (regset = s390_regsets; regset->size >= 0; regset++) + if (regset->get_request == PTRACE_GETREGSET) + switch (regset->nt_type) + { +#ifndef __s390x__ + case NT_S390_HIGH_GPRS: + regset->size = have_hwcap_s390_high_gprs ? 64 : 0; + break; +#endif + case NT_S390_LAST_BREAK: + regset->size = have_regset_last_break ? 8 : 0; + break; + case NT_S390_SYSTEM_CALL: + regset->size = have_regset_system_call ? 4 : 0; + break; + case NT_S390_TDB: + regset->size = have_regset_tdb ? 256 : 0; + break; + case NT_S390_VXRS_LOW: + regset->size = have_regset_vxrs ? 128 : 0; + break; + case NT_S390_VXRS_HIGH: + regset->size = have_regset_vxrs ? 256 : 0; + break; + case NT_S390_GS_CB: + case NT_S390_GS_BC: + regset->size = have_regset_gs ? 32 : 0; + default: + break; + } + + current_process ()->tdesc = tdesc; +} + + +static int +s390_breakpoint_at (CORE_ADDR pc) +{ + unsigned char c[s390_breakpoint_len]; + read_inferior_memory (pc, c, s390_breakpoint_len); + return memcmp (c, s390_breakpoint, s390_breakpoint_len) == 0; +} + +/* Breakpoint/Watchpoint support. */ + +/* The "supports_z_point_type" linux_target_ops method. */ + +static int +s390_supports_z_point_type (char z_type) +{ + switch (z_type) + { + case Z_PACKET_SW_BP: + return 1; + default: + return 0; + } +} + +/* Support for hardware single step. */ + +static int +s390_supports_hardware_single_step (void) +{ + return 1; +} + +static struct usrregs_info s390_usrregs_info = + { + s390_num_regs, + s390_regmap, + }; + +static struct regsets_info s390_regsets_info = + { + s390_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &s390_usrregs_info, + &s390_regsets_info + }; + +static struct usrregs_info s390_usrregs_info_3264 = + { + s390_num_regs_3264, + s390_regmap_3264 + }; + +static struct regsets_info s390_regsets_info_3264 = + { + s390_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct regs_info regs_info_3264 = + { + NULL, /* regset_bitmap */ + &s390_usrregs_info_3264, + &s390_regsets_info_3264 + }; + +static const struct regs_info * +s390_regs_info (void) +{ + if (have_hwcap_s390_high_gprs) + { +#ifdef __s390x__ + const struct target_desc *tdesc = current_process ()->tdesc; + + if (register_size (tdesc, 0) == 4) + return ®s_info_3264; +#else + return ®s_info_3264; +#endif + } + return ®s_info; +} + +/* The "supports_tracepoints" linux_target_ops method. */ + +static int +s390_supports_tracepoints (void) +{ + return 1; +} + +/* Implementation of linux_target_ops method "get_thread_area". */ + +static int +s390_get_thread_area (int lwpid, CORE_ADDR *addrp) +{ + CORE_ADDR res = ptrace (PTRACE_PEEKUSER, lwpid, (long) PT_ACR0, (long) 0); +#ifdef __s390x__ + struct regcache *regcache = get_thread_regcache (current_thread, 0); + + if (register_size (regcache->tdesc, 0) == 4) + res &= 0xffffffffull; +#endif + *addrp = res; + return 0; +} + + +/* Fast tracepoint support. + + The register save area on stack is identical for all targets: + + 0x000+i*0x10: VR0-VR31 + 0x200+i*8: GR0-GR15 + 0x280+i*4: AR0-AR15 + 0x2c0: PSWM [64-bit] + 0x2c8: PSWA [64-bit] + 0x2d0: FPC + + If we're on 31-bit linux, we just don't store the high parts of the GPRs. + Likewise, if there's no VX support, we just store the FRs into the slots + of low VR halves. The agent code is responsible for rearranging that + into regcache. */ + +/* Code sequence saving GPRs for 31-bit target with no high GPRs. There's + one trick used at the very beginning: since there's no way to allocate + stack space without destroying CC (lay instruction can do it, but it's + only supported on later CPUs), we take 4 different execution paths for + every possible value of CC, allocate stack space, save %r0, stuff the + CC value in %r0 (shifted to match its position in PSWM high word), + then branch to common path. */ + +static const unsigned char s390_ft_entry_gpr_esa[] = { + 0xa7, 0x14, 0x00, 0x1e, /* jo .Lcc3 */ + 0xa7, 0x24, 0x00, 0x14, /* jh .Lcc2 */ + 0xa7, 0x44, 0x00, 0x0a, /* jl .Lcc1 */ + /* CC = 0 */ + 0xa7, 0xfa, 0xfd, 0x00, /* ahi %r15, -0x300 */ + 0x50, 0x00, 0xf2, 0x04, /* st %r0, 0x204(%r15) */ + 0xa7, 0x08, 0x00, 0x00, /* lhi %r0, 0 */ + 0xa7, 0xf4, 0x00, 0x18, /* j .Lccdone */ + /* .Lcc1: */ + 0xa7, 0xfa, 0xfd, 0x00, /* ahi %r15, -0x300 */ + 0x50, 0x00, 0xf2, 0x04, /* st %r0, 0x204(%r15) */ + 0xa7, 0x08, 0x10, 0x00, /* lhi %r0, 0x1000 */ + 0xa7, 0xf4, 0x00, 0x10, /* j .Lccdone */ + /* .Lcc2: */ + 0xa7, 0xfa, 0xfd, 0x00, /* ahi %r15, -0x300 */ + 0x50, 0x00, 0xf2, 0x04, /* st %r0, 0x204(%r15) */ + 0xa7, 0x08, 0x20, 0x00, /* lhi %r0, 0x2000 */ + 0xa7, 0xf4, 0x00, 0x08, /* j .Lccdone */ + /* .Lcc3: */ + 0xa7, 0xfa, 0xfd, 0x00, /* ahi %r15, -0x300 */ + 0x50, 0x00, 0xf2, 0x04, /* st %r0, 0x204(%r15) */ + 0xa7, 0x08, 0x30, 0x00, /* lhi %r0, 0x3000 */ + /* .Lccdone: */ + 0x50, 0x10, 0xf2, 0x0c, /* st %r1, 0x20c(%r15) */ + 0x50, 0x20, 0xf2, 0x14, /* st %r2, 0x214(%r15) */ + 0x50, 0x30, 0xf2, 0x1c, /* st %r3, 0x21c(%r15) */ + 0x50, 0x40, 0xf2, 0x24, /* st %r4, 0x224(%r15) */ + 0x50, 0x50, 0xf2, 0x2c, /* st %r5, 0x22c(%r15) */ + 0x50, 0x60, 0xf2, 0x34, /* st %r6, 0x234(%r15) */ + 0x50, 0x70, 0xf2, 0x3c, /* st %r7, 0x23c(%r15) */ + 0x50, 0x80, 0xf2, 0x44, /* st %r8, 0x244(%r15) */ + 0x50, 0x90, 0xf2, 0x4c, /* st %r9, 0x24c(%r15) */ + 0x50, 0xa0, 0xf2, 0x54, /* st %r10, 0x254(%r15) */ + 0x50, 0xb0, 0xf2, 0x5c, /* st %r11, 0x25c(%r15) */ + 0x50, 0xc0, 0xf2, 0x64, /* st %r12, 0x264(%r15) */ + 0x50, 0xd0, 0xf2, 0x6c, /* st %r13, 0x26c(%r15) */ + 0x50, 0xe0, 0xf2, 0x74, /* st %r14, 0x274(%r15) */ + /* Compute original value of %r15 and store it. We use ahi instead + of la to preserve the whole value, and not just the low 31 bits. + This is not particularly important here, but essential in the + zarch case where someone might be using the high word of %r15 + as an extra register. */ + 0x18, 0x1f, /* lr %r1, %r15 */ + 0xa7, 0x1a, 0x03, 0x00, /* ahi %r1, 0x300 */ + 0x50, 0x10, 0xf2, 0x7c, /* st %r1, 0x27c(%r15) */ +}; + +/* Code sequence saving GPRs for 31-bit target with high GPRs and for 64-bit + target. Same as above, except this time we can use load/store multiple, + since the 64-bit regs are tightly packed. */ + +static const unsigned char s390_ft_entry_gpr_zarch[] = { + 0xa7, 0x14, 0x00, 0x21, /* jo .Lcc3 */ + 0xa7, 0x24, 0x00, 0x16, /* jh .Lcc2 */ + 0xa7, 0x44, 0x00, 0x0b, /* jl .Lcc1 */ + /* CC = 0 */ + 0xa7, 0xfb, 0xfd, 0x00, /* aghi %r15, -0x300 */ + 0xeb, 0x0e, 0xf2, 0x00, 0x00, 0x24, /* stmg %r0, %r14, 0x200(%r15) */ + 0xa7, 0x08, 0x00, 0x00, /* lhi %r0, 0 */ + 0xa7, 0xf4, 0x00, 0x1b, /* j .Lccdone */ + /* .Lcc1: */ + 0xa7, 0xfb, 0xfd, 0x00, /* aghi %r15, -0x300 */ + 0xeb, 0x0e, 0xf2, 0x00, 0x00, 0x24, /* stmg %r0, %r14, 0x200(%r15) */ + 0xa7, 0x08, 0x10, 0x00, /* lhi %r0, 0x1000 */ + 0xa7, 0xf4, 0x00, 0x12, /* j .Lccdone */ + /* .Lcc2: */ + 0xa7, 0xfb, 0xfd, 0x00, /* aghi %r15, -0x300 */ + 0xeb, 0x0e, 0xf2, 0x00, 0x00, 0x24, /* stmg %r0, %r14, 0x200(%r15) */ + 0xa7, 0x08, 0x20, 0x00, /* lhi %r0, 0x2000 */ + 0xa7, 0xf4, 0x00, 0x09, /* j .Lccdone */ + /* .Lcc3: */ + 0xa7, 0xfb, 0xfd, 0x00, /* aghi %r15, -0x300 */ + 0xeb, 0x0e, 0xf2, 0x00, 0x00, 0x24, /* stmg %r0, %r14, 0x200(%r15) */ + 0xa7, 0x08, 0x30, 0x00, /* lhi %r0, 0x3000 */ + /* .Lccdone: */ + 0xb9, 0x04, 0x00, 0x1f, /* lgr %r1, %r15 */ + 0xa7, 0x1b, 0x03, 0x00, /* aghi %r1, 0x300 */ + 0xe3, 0x10, 0xf2, 0x78, 0x00, 0x24, /* stg %r1, 0x278(%r15) */ +}; + +/* Code sequence saving ARs, PSWM and FPC. PSWM has to be assembled from + current PSWM (read by epsw) and CC from entry (in %r0). */ + +static const unsigned char s390_ft_entry_misc[] = { + 0x9b, 0x0f, 0xf2, 0x80, /* stam %a0, %a15, 0x20(%%r15) */ + 0xb9, 0x8d, 0x00, 0x23, /* epsw %r2, %r3 */ + 0xa7, 0x18, 0xcf, 0xff, /* lhi %r1, ~0x3000 */ + 0x14, 0x21, /* nr %r2, %r1 */ + 0x16, 0x20, /* or %r2, %r0 */ + 0x50, 0x20, 0xf2, 0xc0, /* st %r2, 0x2c0(%r15) */ + 0x50, 0x30, 0xf2, 0xc4, /* st %r3, 0x2c4(%r15) */ + 0xb2, 0x9c, 0xf2, 0xd0, /* stfpc 0x2d0(%r15) */ +}; + +/* Code sequence saving FRs, used if VX not supported. */ + +static const unsigned char s390_ft_entry_fr[] = { + 0x60, 0x00, 0xf0, 0x00, /* std %f0, 0x000(%r15) */ + 0x60, 0x10, 0xf0, 0x10, /* std %f1, 0x010(%r15) */ + 0x60, 0x20, 0xf0, 0x20, /* std %f2, 0x020(%r15) */ + 0x60, 0x30, 0xf0, 0x30, /* std %f3, 0x030(%r15) */ + 0x60, 0x40, 0xf0, 0x40, /* std %f4, 0x040(%r15) */ + 0x60, 0x50, 0xf0, 0x50, /* std %f5, 0x050(%r15) */ + 0x60, 0x60, 0xf0, 0x60, /* std %f6, 0x060(%r15) */ + 0x60, 0x70, 0xf0, 0x70, /* std %f7, 0x070(%r15) */ + 0x60, 0x80, 0xf0, 0x80, /* std %f8, 0x080(%r15) */ + 0x60, 0x90, 0xf0, 0x90, /* std %f9, 0x090(%r15) */ + 0x60, 0xa0, 0xf0, 0xa0, /* std %f10, 0x0a0(%r15) */ + 0x60, 0xb0, 0xf0, 0xb0, /* std %f11, 0x0b0(%r15) */ + 0x60, 0xc0, 0xf0, 0xc0, /* std %f12, 0x0c0(%r15) */ + 0x60, 0xd0, 0xf0, 0xd0, /* std %f13, 0x0d0(%r15) */ + 0x60, 0xe0, 0xf0, 0xe0, /* std %f14, 0x0e0(%r15) */ + 0x60, 0xf0, 0xf0, 0xf0, /* std %f15, 0x0f0(%r15) */ +}; + +/* Code sequence saving VRs, used if VX not supported. */ + +static const unsigned char s390_ft_entry_vr[] = { + 0xe7, 0x0f, 0xf0, 0x00, 0x00, 0x3e, /* vstm %v0, %v15, 0x000(%r15) */ + 0xe7, 0x0f, 0xf1, 0x00, 0x0c, 0x3e, /* vstm %v16, %v31, 0x100(%r15) */ +}; + +/* Code sequence doing the collection call for 31-bit target. %r1 contains + the address of the literal pool. */ + +static const unsigned char s390_ft_main_31[] = { + /* Load the literals into registers. */ + 0x58, 0x50, 0x10, 0x00, /* l %r5, 0x0(%r1) */ + 0x58, 0x20, 0x10, 0x04, /* l %r2, 0x4(%r1) */ + 0x58, 0x40, 0x10, 0x08, /* l %r4, 0x8(%r1) */ + 0x58, 0x60, 0x10, 0x0c, /* l %r6, 0xc(%r1) */ + /* Save original PSWA (tracepoint address | 0x80000000). */ + 0x50, 0x50, 0xf2, 0xcc, /* st %r5, 0x2cc(%r15) */ + /* Construct a collecting_t object at %r15+0x2e0. */ + 0x50, 0x20, 0xf2, 0xe0, /* st %r2, 0x2e0(%r15) */ + 0x9b, 0x00, 0xf2, 0xe4, /* stam %a0, %a0, 0x2e4(%r15) */ + /* Move its address to %r0. */ + 0x41, 0x00, 0xf2, 0xe0, /* la %r0, 0x2e0(%r15) */ + /* Take the lock. */ + /* .Lloop: */ + 0xa7, 0x18, 0x00, 0x00, /* lhi %r1, 0 */ + 0xba, 0x10, 0x60, 0x00, /* cs %r1, %r0, 0(%r6) */ + 0xa7, 0x74, 0xff, 0xfc, /* jne .Lloop */ + /* Address of the register save block to %r3. */ + 0x18, 0x3f, /* lr %r3, %r15 */ + /* Make a stack frame, so that we can call the collector. */ + 0xa7, 0xfa, 0xff, 0xa0, /* ahi %r15, -0x60 */ + /* Call it. */ + 0x0d, 0xe4, /* basr %r14, %r4 */ + /* And get rid of the stack frame again. */ + 0x41, 0xf0, 0xf0, 0x60, /* la %r15, 0x60(%r15) */ + /* Leave the lock. */ + 0x07, 0xf0, /* br %r0 */ + 0xa7, 0x18, 0x00, 0x00, /* lhi %r1, 0 */ + 0x50, 0x10, 0x60, 0x00, /* st %t1, 0(%r6) */ +}; + +/* Code sequence doing the collection call for 64-bit target. %r1 contains + the address of the literal pool. */ + +static const unsigned char s390_ft_main_64[] = { + /* Load the literals into registers. */ + 0xe3, 0x50, 0x10, 0x00, 0x00, 0x04, /* lg %r5, 0x00(%r1) */ + 0xe3, 0x20, 0x10, 0x08, 0x00, 0x04, /* lg %r2, 0x08(%r1) */ + 0xe3, 0x40, 0x10, 0x10, 0x00, 0x04, /* lg %r4, 0x10(%r1) */ + 0xe3, 0x60, 0x10, 0x18, 0x00, 0x04, /* lg %r6, 0x18(%r1) */ + /* Save original PSWA (tracepoint address). */ + 0xe3, 0x50, 0xf2, 0xc8, 0x00, 0x24, /* stg %r5, 0x2c8(%r15) */ + /* Construct a collecting_t object at %r15+0x2e0. */ + 0xe3, 0x20, 0xf2, 0xe0, 0x00, 0x24, /* stg %r2, 0x2e0(%r15) */ + 0x9b, 0x01, 0xf2, 0xe8, /* stam %a0, %a1, 0x2e8(%r15) */ + /* Move its address to %r0. */ + 0x41, 0x00, 0xf2, 0xe0, /* la %r0, 0x2e0(%r15) */ + /* Take the lock. */ + /* .Lloop: */ + 0xa7, 0x19, 0x00, 0x00, /* lghi %r1, 0 */ + 0xeb, 0x10, 0x60, 0x00, 0x00, 0x30, /* csg %r1, %r0, 0(%r6) */ + 0xa7, 0x74, 0xff, 0xfb, /* jne .Lloop */ + /* Address of the register save block to %r3. */ + 0xb9, 0x04, 0x00, 0x3f, /* lgr %r3, %r15 */ + /* Make a stack frame, so that we can call the collector. */ + 0xa7, 0xfb, 0xff, 0x60, /* aghi %r15, -0xa0 */ + /* Call it. */ + 0x0d, 0xe4, /* basr %r14, %r4 */ + /* And get rid of the stack frame again. */ + 0x41, 0xf0, 0xf0, 0xa0, /* la %r15, 0xa0(%r15) */ + /* Leave the lock. */ + 0x07, 0xf0, /* br %r0 */ + 0xa7, 0x19, 0x00, 0x00, /* lghi %r1, 0 */ + 0xe3, 0x10, 0x60, 0x00, 0x00, 0x24, /* stg %t1, 0(%r6) */ +}; + +/* Code sequence restoring FRs, for targets with no VX support. */ + +static const unsigned char s390_ft_exit_fr[] = { + 0x68, 0x00, 0xf0, 0x00, /* ld %f0, 0x000(%r15) */ + 0x68, 0x10, 0xf0, 0x10, /* ld %f1, 0x010(%r15) */ + 0x68, 0x20, 0xf0, 0x20, /* ld %f2, 0x020(%r15) */ + 0x68, 0x30, 0xf0, 0x30, /* ld %f3, 0x030(%r15) */ + 0x68, 0x40, 0xf0, 0x40, /* ld %f4, 0x040(%r15) */ + 0x68, 0x50, 0xf0, 0x50, /* ld %f5, 0x050(%r15) */ + 0x68, 0x60, 0xf0, 0x60, /* ld %f6, 0x060(%r15) */ + 0x68, 0x70, 0xf0, 0x70, /* ld %f7, 0x070(%r15) */ + 0x68, 0x80, 0xf0, 0x80, /* ld %f8, 0x080(%r15) */ + 0x68, 0x90, 0xf0, 0x90, /* ld %f9, 0x090(%r15) */ + 0x68, 0xa0, 0xf0, 0xa0, /* ld %f10, 0x0a0(%r15) */ + 0x68, 0xb0, 0xf0, 0xb0, /* ld %f11, 0x0b0(%r15) */ + 0x68, 0xc0, 0xf0, 0xc0, /* ld %f12, 0x0c0(%r15) */ + 0x68, 0xd0, 0xf0, 0xd0, /* ld %f13, 0x0d0(%r15) */ + 0x68, 0xe0, 0xf0, 0xe0, /* ld %f14, 0x0e0(%r15) */ + 0x68, 0xf0, 0xf0, 0xf0, /* ld %f15, 0x0f0(%r15) */ +}; + +/* Code sequence restoring VRs. */ + +static const unsigned char s390_ft_exit_vr[] = { + 0xe7, 0x0f, 0xf0, 0x00, 0x00, 0x36, /* vlm %v0, %v15, 0x000(%r15) */ + 0xe7, 0x0f, 0xf1, 0x00, 0x0c, 0x36, /* vlm %v16, %v31, 0x100(%r15) */ +}; + +/* Code sequence restoring misc registers. As for PSWM, only CC should be + modified by C code, so we use the alr instruction to restore it by + manufacturing an operand that'll result in the original flags. */ + +static const unsigned char s390_ft_exit_misc[] = { + 0xb2, 0x9d, 0xf2, 0xd0, /* lfpc 0x2d0(%r15) */ + 0x58, 0x00, 0xf2, 0xc0, /* l %r0, 0x2c0(%r15) */ + /* Extract CC to high 2 bits of %r0. */ + 0x88, 0x00, 0x00, 0x0c, /* srl %r0, 12 */ + 0x89, 0x00, 0x00, 0x1e, /* sll %r0, 30 */ + /* Add %r0 to itself. Result will be nonzero iff CC bit 0 is set, and + will have carry iff CC bit 1 is set - resulting in the same flags + as the original. */ + 0x1e, 0x00, /* alr %r0, %r0 */ + 0x9a, 0x0f, 0xf2, 0x80, /* lam %a0, %a15, 0x280(%r15) */ +}; + +/* Code sequence restoring GPRs, for 31-bit targets with no high GPRs. */ + +static const unsigned char s390_ft_exit_gpr_esa[] = { + 0x58, 0x00, 0xf2, 0x04, /* l %r0, 0x204(%r15) */ + 0x58, 0x10, 0xf2, 0x0c, /* l %r1, 0x20c(%r15) */ + 0x58, 0x20, 0xf2, 0x14, /* l %r2, 0x214(%r15) */ + 0x58, 0x30, 0xf2, 0x1c, /* l %r3, 0x21c(%r15) */ + 0x58, 0x40, 0xf2, 0x24, /* l %r4, 0x224(%r15) */ + 0x58, 0x50, 0xf2, 0x2c, /* l %r5, 0x22c(%r15) */ + 0x58, 0x60, 0xf2, 0x34, /* l %r6, 0x234(%r15) */ + 0x58, 0x70, 0xf2, 0x3c, /* l %r7, 0x23c(%r15) */ + 0x58, 0x80, 0xf2, 0x44, /* l %r8, 0x244(%r15) */ + 0x58, 0x90, 0xf2, 0x4c, /* l %r9, 0x24c(%r15) */ + 0x58, 0xa0, 0xf2, 0x54, /* l %r10, 0x254(%r15) */ + 0x58, 0xb0, 0xf2, 0x5c, /* l %r11, 0x25c(%r15) */ + 0x58, 0xc0, 0xf2, 0x64, /* l %r12, 0x264(%r15) */ + 0x58, 0xd0, 0xf2, 0x6c, /* l %r13, 0x26c(%r15) */ + 0x58, 0xe0, 0xf2, 0x74, /* l %r14, 0x274(%r15) */ + 0x58, 0xf0, 0xf2, 0x7c, /* l %r15, 0x27c(%r15) */ +}; + +/* Code sequence restoring GPRs, for 64-bit targets and 31-bit targets + with high GPRs. */ + +static const unsigned char s390_ft_exit_gpr_zarch[] = { + 0xeb, 0x0f, 0xf2, 0x00, 0x00, 0x04, /* lmg %r0, %r15, 0x200(%r15) */ +}; + +/* Writes instructions to target, updating the to pointer. */ + +static void +append_insns (CORE_ADDR *to, size_t len, const unsigned char *buf) +{ + target_write_memory (*to, buf, len); + *to += len; +} + +/* Relocates an instruction from oldloc to *to, updating to. */ + +static int +s390_relocate_instruction (CORE_ADDR *to, CORE_ADDR oldloc, int is_64) +{ + gdb_byte buf[6]; + int ilen; + int op2; + /* 0: no fixup, 1: PC16DBL fixup, 2: PC32DBL fixup. */ + int mode = 0; + int is_bras = 0; + read_inferior_memory (oldloc, buf, sizeof buf); + if (buf[0] < 0x40) + ilen = 2; + else if (buf[0] < 0xc0) + ilen = 4; + else + ilen = 6; + switch (buf[0]) + { + case 0x05: /* BALR */ + case 0x0c: /* BASSM */ + case 0x0d: /* BASR */ + case 0x45: /* BAL */ + case 0x4d: /* BAS */ + /* These save a return address and mess around with registers. + We can't relocate them. */ + return 1; + case 0x84: /* BRXH */ + case 0x85: /* BRXLE */ + mode = 1; + break; + case 0xa7: + op2 = buf[1] & 0xf; + /* BRC, BRAS, BRCT, BRCTG */ + if (op2 >= 4 && op2 <= 7) + mode = 1; + /* BRAS */ + if (op2 == 5) + is_bras = 1; + break; + case 0xc0: + op2 = buf[1] & 0xf; + /* LARL, BRCL, BRASL */ + if (op2 == 0 || op2 == 4 || op2 == 5) + mode = 2; + /* BRASL */ + if (op2 == 5) + is_bras = 1; + break; + case 0xc4: + case 0xc6: + /* PC-relative addressing instructions. */ + mode = 2; + break; + case 0xc5: /* BPRP */ + case 0xc7: /* BPP */ + /* Branch prediction - just skip it. */ + return 0; + case 0xcc: + op2 = buf[1] & 0xf; + /* BRCTH */ + if (op2 == 6) + mode = 2; + break; + case 0xec: + op2 = buf[5]; + switch (op2) + { + case 0x44: /* BRXHG */ + case 0x45: /* BRXLG */ + case 0x64: /* CGRJ */ + case 0x65: /* CLGRJ */ + case 0x76: /* CRJ */ + case 0x77: /* CLRJ */ + mode = 1; + break; + } + break; + } + + if (mode != 0) + { + /* We'll have to relocate an instruction with a PC-relative field. + First, compute the target. */ + int64_t loffset = 0; + CORE_ADDR target; + if (mode == 1) + { + int16_t soffset = 0; + memcpy (&soffset, buf + 2, 2); + loffset = soffset; + } + else if (mode == 2) + { + int32_t soffset = 0; + memcpy (&soffset, buf + 2, 4); + loffset = soffset; + } + target = oldloc + loffset * 2; + if (!is_64) + target &= 0x7fffffff; + + if (is_bras) + { + /* BRAS or BRASL was used. We cannot just relocate those, since + they save the return address in a register. We can, however, + replace them with a LARL+JG sequence. */ + + /* Make the LARL. */ + int32_t soffset; + buf[0] = 0xc0; + buf[1] &= 0xf0; + loffset = oldloc + ilen - *to; + loffset >>= 1; + soffset = loffset; + if (soffset != loffset && is_64) + return 1; + memcpy (buf + 2, &soffset, 4); + append_insns (to, 6, buf); + + /* Note: this is not fully correct. In 31-bit mode, LARL will write + an address with the top bit 0, while BRAS/BRASL will write it + with top bit 1. It should not matter much, since linux compilers + use BR and not BSM to return from functions, but it could confuse + some poor stack unwinder. */ + + /* We'll now be writing a JG. */ + mode = 2; + buf[0] = 0xc0; + buf[1] = 0xf4; + ilen = 6; + } + + /* Compute the new offset and write it to the buffer. */ + loffset = target - *to; + loffset >>= 1; + + if (mode == 1) + { + int16_t soffset = loffset; + if (soffset != loffset) + return 1; + memcpy (buf + 2, &soffset, 2); + } + else if (mode == 2) + { + int32_t soffset = loffset; + if (soffset != loffset && is_64) + return 1; + memcpy (buf + 2, &soffset, 4); + } + } + append_insns (to, ilen, buf); + return 0; +} + +/* Implementation of linux_target_ops method + "install_fast_tracepoint_jump_pad". */ + +static int +s390_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, + CORE_ADDR tpaddr, + CORE_ADDR collector, + CORE_ADDR lockaddr, + ULONGEST orig_size, + CORE_ADDR *jump_entry, + CORE_ADDR *trampoline, + ULONGEST *trampoline_size, + unsigned char *jjump_pad_insn, + ULONGEST *jjump_pad_insn_size, + CORE_ADDR *adjusted_insn_addr, + CORE_ADDR *adjusted_insn_addr_end, + char *err) +{ + int i; + int64_t loffset; + int32_t offset; + unsigned char jbuf[6] = { 0xc0, 0xf4, 0, 0, 0, 0 }; /* jg ... */ + CORE_ADDR buildaddr = *jump_entry; +#ifdef __s390x__ + struct regcache *regcache = get_thread_regcache (current_thread, 0); + int is_64 = register_size (regcache->tdesc, 0) == 8; + int is_zarch = is_64 || have_hwcap_s390_high_gprs; + int has_vx = have_hwcap_s390_vx; +#else + int is_64 = 0, is_zarch = 0, has_vx = 0; +#endif + CORE_ADDR literals[4] = { + tpaddr, + tpoint, + collector, + lockaddr, + }; + + /* First, store the GPRs. */ + if (is_zarch) + append_insns (&buildaddr, sizeof s390_ft_entry_gpr_zarch, + s390_ft_entry_gpr_zarch); + else + append_insns (&buildaddr, sizeof s390_ft_entry_gpr_esa, + s390_ft_entry_gpr_esa); + + /* Second, misc registers (ARs, PSWM, FPC). PSWA will be stored below. */ + append_insns (&buildaddr, sizeof s390_ft_entry_misc, s390_ft_entry_misc); + + /* Third, FRs or VRs. */ + if (has_vx) + append_insns (&buildaddr, sizeof s390_ft_entry_vr, s390_ft_entry_vr); + else + append_insns (&buildaddr, sizeof s390_ft_entry_fr, s390_ft_entry_fr); + + /* Now, the main part of code - store PSWA, take lock, call collector, + leave lock. First, we'll need to fetch 4 literals. */ + if (is_64) { + unsigned char buf[] = { + 0x07, 0x07, /* nopr %r7 */ + 0x07, 0x07, /* nopr %r7 */ + 0x07, 0x07, /* nopr %r7 */ + 0xa7, 0x15, 0x00, 0x12, /* bras %r1, .Lend */ + 0, 0, 0, 0, 0, 0, 0, 0, /* tpaddr */ + 0, 0, 0, 0, 0, 0, 0, 0, /* tpoint */ + 0, 0, 0, 0, 0, 0, 0, 0, /* collector */ + 0, 0, 0, 0, 0, 0, 0, 0, /* lockaddr */ + /* .Lend: */ + }; + /* Find the proper start place in buf, so that literals will be + aligned. */ + int bufpos = (buildaddr + 2) & 7; + /* Stuff the literals into the buffer. */ + for (i = 0; i < 4; i++) { + uint64_t lit = literals[i]; + memcpy (&buf[sizeof buf - 32 + i * 8], &lit, 8); + } + append_insns (&buildaddr, sizeof buf - bufpos, buf + bufpos); + append_insns (&buildaddr, sizeof s390_ft_main_64, s390_ft_main_64); + } else { + unsigned char buf[] = { + 0x07, 0x07, /* nopr %r7 */ + 0xa7, 0x15, 0x00, 0x0a, /* bras %r1, .Lend */ + 0, 0, 0, 0, /* tpaddr */ + 0, 0, 0, 0, /* tpoint */ + 0, 0, 0, 0, /* collector */ + 0, 0, 0, 0, /* lockaddr */ + /* .Lend: */ + }; + /* Find the proper start place in buf, so that literals will be + aligned. */ + int bufpos = (buildaddr + 2) & 3; + /* First literal will be saved as the PSWA, make sure it has the high bit + set. */ + literals[0] |= 0x80000000; + /* Stuff the literals into the buffer. */ + for (i = 0; i < 4; i++) { + uint32_t lit = literals[i]; + memcpy (&buf[sizeof buf - 16 + i * 4], &lit, 4); + } + append_insns (&buildaddr, sizeof buf - bufpos, buf + bufpos); + append_insns (&buildaddr, sizeof s390_ft_main_31, s390_ft_main_31); + } + + /* Restore FRs or VRs. */ + if (has_vx) + append_insns (&buildaddr, sizeof s390_ft_exit_vr, s390_ft_exit_vr); + else + append_insns (&buildaddr, sizeof s390_ft_exit_fr, s390_ft_exit_fr); + + /* Restore misc registers. */ + append_insns (&buildaddr, sizeof s390_ft_exit_misc, s390_ft_exit_misc); + + /* Restore the GPRs. */ + if (is_zarch) + append_insns (&buildaddr, sizeof s390_ft_exit_gpr_zarch, + s390_ft_exit_gpr_zarch); + else + append_insns (&buildaddr, sizeof s390_ft_exit_gpr_esa, + s390_ft_exit_gpr_esa); + + /* Now, adjust the original instruction to execute in the jump + pad. */ + *adjusted_insn_addr = buildaddr; + if (s390_relocate_instruction (&buildaddr, tpaddr, is_64)) + { + sprintf (err, "E.Could not relocate instruction for tracepoint."); + return 1; + } + *adjusted_insn_addr_end = buildaddr; + + /* Finally, write a jump back to the program. */ + + loffset = (tpaddr + orig_size) - buildaddr; + loffset >>= 1; + offset = loffset; + if (is_64 && offset != loffset) + { + sprintf (err, + "E.Jump back from jump pad too far from tracepoint " + "(offset 0x%" PRIx64 " > int33).", loffset); + return 1; + } + memcpy (jbuf + 2, &offset, 4); + append_insns (&buildaddr, sizeof jbuf, jbuf); + + /* The jump pad is now built. Wire in a jump to our jump pad. This + is always done last (by our caller actually), so that we can + install fast tracepoints with threads running. This relies on + the agent's atomic write support. */ + loffset = *jump_entry - tpaddr; + loffset >>= 1; + offset = loffset; + if (is_64 && offset != loffset) + { + sprintf (err, + "E.Jump back from jump pad too far from tracepoint " + "(offset 0x%" PRIx64 " > int33).", loffset); + return 1; + } + memcpy (jbuf + 2, &offset, 4); + memcpy (jjump_pad_insn, jbuf, sizeof jbuf); + *jjump_pad_insn_size = sizeof jbuf; + + /* Return the end address of our pad. */ + *jump_entry = buildaddr; + + return 0; +} + +/* Implementation of linux_target_ops method + "get_min_fast_tracepoint_insn_len". */ + +static int +s390_get_min_fast_tracepoint_insn_len (void) +{ + /* We only support using 6-byte jumps to reach the tracepoint code. + If the tracepoint buffer were allocated sufficiently close (64kiB) + to the executable code, and the traced instruction itself was close + enough to the beginning, we could use 4-byte jumps, but this doesn't + seem to be worth the effort. */ + return 6; +} + +/* Implementation of linux_target_ops method "get_ipa_tdesc_idx". */ + +static int +s390_get_ipa_tdesc_idx (void) +{ + struct regcache *regcache = get_thread_regcache (current_thread, 0); + const struct target_desc *tdesc = regcache->tdesc; + +#ifdef __s390x__ + if (tdesc == tdesc_s390x_linux64) + return S390_TDESC_64; + if (tdesc == tdesc_s390x_linux64v1) + return S390_TDESC_64V1; + if (tdesc == tdesc_s390x_linux64v2) + return S390_TDESC_64V2; + if (tdesc == tdesc_s390x_te_linux64) + return S390_TDESC_TE; + if (tdesc == tdesc_s390x_vx_linux64) + return S390_TDESC_VX; + if (tdesc == tdesc_s390x_tevx_linux64) + return S390_TDESC_TEVX; + if (tdesc == tdesc_s390x_gs_linux64) + return S390_TDESC_GS; +#endif + + if (tdesc == tdesc_s390_linux32) + return S390_TDESC_32; + if (tdesc == tdesc_s390_linux32v1) + return S390_TDESC_32V1; + if (tdesc == tdesc_s390_linux32v2) + return S390_TDESC_32V2; + if (tdesc == tdesc_s390_linux64) + return S390_TDESC_64; + if (tdesc == tdesc_s390_linux64v1) + return S390_TDESC_64V1; + if (tdesc == tdesc_s390_linux64v2) + return S390_TDESC_64V2; + if (tdesc == tdesc_s390_te_linux64) + return S390_TDESC_TE; + if (tdesc == tdesc_s390_vx_linux64) + return S390_TDESC_VX; + if (tdesc == tdesc_s390_tevx_linux64) + return S390_TDESC_TEVX; + if (tdesc == tdesc_s390_gs_linux64) + return S390_TDESC_GS; + + return 0; +} + +/* Appends given buffer to current_insn_ptr in the target. */ + +static void +add_insns (const unsigned char *start, int len) +{ + CORE_ADDR buildaddr = current_insn_ptr; + + if (debug_threads) + debug_printf ("Adding %d bytes of insn at %s\n", + len, paddress (buildaddr)); + + append_insns (&buildaddr, len, start); + current_insn_ptr = buildaddr; +} + +/* Register usage in emit: + + - %r0, %r1: temp + - %r2: top of stack (high word for 31-bit) + - %r3: low word of top of stack (for 31-bit) + - %r4, %r5: temp + - %r6, %r7, %r8: don't use + - %r9: saved arg1 + - %r10: saved arg2 + - %r11: frame pointer + - %r12: saved top of stack for void_call_2 (high word for 31-bit) + - %r13: low word of saved top of stack (for 31-bit) + - %r14: return address for calls + - %r15: stack pointer + + */ + +/* The "emit_prologue" emit_ops method for s390. */ + +static void +s390_emit_prologue (void) +{ + static const unsigned char buf[] = { + 0x90, 0x9f, 0xf0, 0x24, /* stm %r9, %r15, 0x24(%r15) */ + 0x18, 0x92, /* lr %r9, %r2 */ + 0x18, 0xa3, /* lr %r10, %r3 */ + 0x18, 0xbf, /* lr %r11, %r15 */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_epilogue" emit_ops method for s390. */ + +static void +s390_emit_epilogue (void) +{ + static const unsigned char buf[] = { + 0x90, 0x23, 0xa0, 0x00, /* stm %r2, %r3, 0(%r10) */ + 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ + 0x98, 0x9f, 0xb0, 0x24, /* lm %r9, %r15, 0x24(%r11) */ + 0x07, 0xfe, /* br %r14 */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_add" emit_ops method for s390. */ + +static void +s390_emit_add (void) +{ + static const unsigned char buf[] = { + 0x5e, 0x30, 0xf0, 0x04, /* al %r3, 4(%r15) */ + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x98, /* al %r2, 0(%r15) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_sub" emit_ops method for s390. */ + +static void +s390_emit_sub (void) +{ + static const unsigned char buf[] = { + 0x98, 0x45, 0xf0, 0x00, /* lm %r4, %r5, 0(%r15) */ + 0x1f, 0x53, /* slr %r5, %r3 */ + 0xb9, 0x99, 0x00, 0x42, /* slbr %r4, %r2 */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + 0x18, 0x35, /* lr %r3, %r5 */ + 0x18, 0x24, /* lr %r2, %r4 */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_mul" emit_ops method for s390. */ + +static void +s390_emit_mul (void) +{ + emit_error = 1; +} + +/* The "emit_lsh" emit_ops method for s390. */ + +static void +s390_emit_lsh (void) +{ + static const unsigned char buf[] = { + 0x18, 0x43, /* lr %r4, %r3 */ + 0x98, 0x23, 0xf0, 0x00, /* lm %r2, %r3, 0(%r15) */ + 0x8d, 0x20, 0x40, 0x00, /* sldl %r2, 0(%r4) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_rsh_signed" emit_ops method for s390. */ + +static void +s390_emit_rsh_signed (void) +{ + static const unsigned char buf[] = { + 0x18, 0x43, /* lr %r4, %r3 */ + 0x98, 0x23, 0xf0, 0x00, /* lm %r2, %r3, 0(%r15) */ + 0x8e, 0x20, 0x40, 0x00, /* srda %r2, 0(%r4) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_rsh_unsigned" emit_ops method for s390. */ + +static void +s390_emit_rsh_unsigned (void) +{ + static const unsigned char buf[] = { + 0x18, 0x43, /* lr %r4, %r3 */ + 0x98, 0x23, 0xf0, 0x00, /* lm %r2, %r3, 0(%r15) */ + 0x8c, 0x20, 0x40, 0x00, /* srdl %r2, 0(%r4) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_ext" emit_ops method for s390. */ + +static void +s390_emit_ext (int arg) +{ + unsigned char buf[] = { + 0x8d, 0x20, 0x00, (unsigned char) (64 - arg), /* sldl %r2, <64-arg> */ + 0x8e, 0x20, 0x00, (unsigned char) (64 - arg), /* srda %r2, <64-arg> */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_log_not" emit_ops method for s390. */ + +static void +s390_emit_log_not (void) +{ + static const unsigned char buf[] = { + 0x16, 0x23, /* or %r2, %r3 */ + 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ + 0xa7, 0x38, 0x00, 0x00, /* lhi %r3, 0 */ + 0xa7, 0x74, 0x00, 0x04, /* jne .Lskip */ + 0xa7, 0x38, 0x00, 0x01, /* lhi %r3, 1 */ + /* .Lskip: */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_bit_and" emit_ops method for s390. */ + +static void +s390_emit_bit_and (void) +{ + static const unsigned char buf[] = { + 0x54, 0x20, 0xf0, 0x00, /* n %r2, 0(%r15) */ + 0x54, 0x30, 0xf0, 0x04, /* n %r3, 4(%r15) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_bit_or" emit_ops method for s390. */ + +static void +s390_emit_bit_or (void) +{ + static const unsigned char buf[] = { + 0x56, 0x20, 0xf0, 0x00, /* o %r2, 0(%r15) */ + 0x56, 0x30, 0xf0, 0x04, /* o %r3, 4(%r15) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_bit_xor" emit_ops method for s390. */ + +static void +s390_emit_bit_xor (void) +{ + static const unsigned char buf[] = { + 0x57, 0x20, 0xf0, 0x00, /* x %r2, 0(%r15) */ + 0x57, 0x30, 0xf0, 0x04, /* x %r3, 4(%r15) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_bit_not" emit_ops method for s390. */ + +static void +s390_emit_bit_not (void) +{ + static const unsigned char buf[] = { + 0xa7, 0x48, 0xff, 0xff, /* lhi %r4, -1 */ + 0x17, 0x24, /* xr %r2, %r4 */ + 0x17, 0x34, /* xr %r3, %r4 */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_equal" emit_ops method for s390. */ + +static void +s390_emit_equal (void) +{ + s390_emit_bit_xor (); + s390_emit_log_not (); +} + +/* The "emit_less_signed" emit_ops method for s390. */ + +static void +s390_emit_less_signed (void) +{ + static const unsigned char buf[] = { + 0x59, 0x20, 0xf0, 0x00, /* c %r2, 0(%r15) */ + 0xa7, 0x24, 0x00, 0x0c, /* jh .Lless */ + 0xa7, 0x44, 0x00, 0x06, /* jl .Lhigh */ + 0x55, 0x30, 0xf0, 0x04, /* cl %r3, 4(%r15) */ + 0xa7, 0x24, 0x00, 0x06, /* jh .Lless */ + /* .Lhigh: */ + 0xa7, 0x38, 0x00, 0x00, /* lhi %r3, 0 */ + 0xa7, 0xf4, 0x00, 0x04, /* j .Lend */ + /* .Lless: */ + 0xa7, 0x38, 0x00, 0x01, /* lhi %r3, 1 */ + /* .Lend: */ + 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_less_unsigned" emit_ops method for s390. */ + +static void +s390_emit_less_unsigned (void) +{ + static const unsigned char buf[] = { + 0x55, 0x20, 0xf0, 0x00, /* cl %r2, 0(%r15) */ + 0xa7, 0x24, 0x00, 0x0c, /* jh .Lless */ + 0xa7, 0x44, 0x00, 0x06, /* jl .Lhigh */ + 0x55, 0x30, 0xf0, 0x04, /* cl %r3, 4(%r15) */ + 0xa7, 0x24, 0x00, 0x06, /* jh .Lless */ + /* .Lhigh: */ + 0xa7, 0x38, 0x00, 0x00, /* lhi %r3, 0 */ + 0xa7, 0xf4, 0x00, 0x04, /* j .Lend */ + /* .Lless: */ + 0xa7, 0x38, 0x00, 0x01, /* lhi %r3, 1 */ + /* .Lend: */ + 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_ref" emit_ops method for s390. */ + +static void +s390_emit_ref (int size) +{ + static const unsigned char buf1[] = { + 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ + 0x43, 0x30, 0x30, 0x00, /* ic %r3, 0(%r3) */ + }; + static const unsigned char buf2[] = { + 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ + 0x48, 0x30, 0x30, 0x00, /* lh %r3, 0(%r3) */ + }; + static const unsigned char buf4[] = { + 0xa7, 0x28, 0x00, 0x00, /* lhi %r2, 0 */ + 0x58, 0x30, 0x30, 0x00, /* l %r3, 0(%r3) */ + }; + static const unsigned char buf8[] = { + 0x98, 0x23, 0x30, 0x00, /* lm %r2, %r3, 0(%r3) */ + }; + switch (size) + { + case 1: + add_insns (buf1, sizeof buf1); + break; + case 2: + add_insns (buf2, sizeof buf2); + break; + case 4: + add_insns (buf4, sizeof buf4); + break; + case 8: + add_insns (buf8, sizeof buf8); + break; + default: + emit_error = 1; + } +} + +/* The "emit_if_goto" emit_ops method for s390. */ + +static void +s390_emit_if_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0x16, 0x23, /* or %r2, %r3 */ + 0x98, 0x23, 0xf0, 0x00, /* lm %r2, %r3, 0(%r15) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + 0xc0, 0x74, 0x00, 0x00, 0x00, 0x00 /* jgne */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 12; + if (size_p) + *size_p = 4; +} + +/* The "emit_goto" emit_ops method for s390 and s390x. */ + +static void +s390_emit_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0xc0, 0xf4, 0x00, 0x00, 0x00, 0x00, /* jg */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 2; + if (size_p) + *size_p = 4; +} + +/* The "write_goto_address" emit_ops method for s390 and s390x. */ + +static void +s390_write_goto_address (CORE_ADDR from, CORE_ADDR to, int size) +{ + long diff = ((long) (to - (from - 2))) / 2; + int sdiff = diff; + unsigned char buf[sizeof sdiff]; + + /* We're only doing 4-byte sizes at the moment. */ + if (size != sizeof sdiff || sdiff != diff) + { + emit_error = 1; + return; + } + + memcpy (buf, &sdiff, sizeof sdiff); + target_write_memory (from, buf, sizeof sdiff); +} + +/* Preparation for emitting a literal pool of given size. Loads the address + of the pool into %r1, and jumps over it. Called should emit the pool data + immediately afterwards. Used for both s390 and s390x. */ + +static void +s390_emit_litpool (int size) +{ + static const unsigned char nop[] = { + 0x07, 0x07, + }; + unsigned char buf[] = { + 0xa7, 0x15, 0x00, + (unsigned char) ((size + 4) / 2), /* bras %r1, .Lend+size */ + /* .Lend: */ + }; + if (size == 4) + { + /* buf needs to start at even halfword for litpool to be aligned */ + if (current_insn_ptr & 2) + add_insns (nop, sizeof nop); + } + else + { + while ((current_insn_ptr & 6) != 4) + add_insns (nop, sizeof nop); + } + add_insns (buf, sizeof buf); +} + +/* The "emit_const" emit_ops method for s390. */ + +static void +s390_emit_const (LONGEST num) +{ + unsigned long long n = num; + unsigned char buf_s[] = { + /* lhi %r3, */ + 0xa7, 0x38, + (unsigned char) (num >> 8), (unsigned char) num, + /* xr %r2, %r2 */ + 0x17, 0x22, + }; + static const unsigned char buf_l[] = { + 0x98, 0x23, 0x10, 0x00, /* lm %r2, %r3, 0(%r1) */ + }; + if (num < 0x8000 && num >= 0) + { + add_insns (buf_s, sizeof buf_s); + } + else + { + s390_emit_litpool (8); + add_insns ((unsigned char *) &n, sizeof n); + add_insns (buf_l, sizeof buf_l); + } +} + +/* The "emit_call" emit_ops method for s390. */ + +static void +s390_emit_call (CORE_ADDR fn) +{ + unsigned int n = fn; + static const unsigned char buf[] = { + 0x58, 0x10, 0x10, 0x00, /* l %r1, 0(%r1) */ + 0xa7, 0xfa, 0xff, 0xa0, /* ahi %r15, -0x60 */ + 0x0d, 0xe1, /* basr %r14, %r1 */ + 0xa7, 0xfa, 0x00, 0x60, /* ahi %r15, 0x60 */ + }; + s390_emit_litpool (4); + add_insns ((unsigned char *) &n, sizeof n); + add_insns (buf, sizeof buf); +} + +/* The "emit_reg" emit_ops method for s390. */ + +static void +s390_emit_reg (int reg) +{ + unsigned char bufpre[] = { + /* lr %r2, %r9 */ + 0x18, 0x29, + /* lhi %r3, */ + 0xa7, 0x38, (unsigned char) (reg >> 8), (unsigned char) reg, + }; + add_insns (bufpre, sizeof bufpre); + s390_emit_call (get_raw_reg_func_addr ()); +} + +/* The "emit_pop" emit_ops method for s390. */ + +static void +s390_emit_pop (void) +{ + static const unsigned char buf[] = { + 0x98, 0x23, 0xf0, 0x00, /* lm %r2, %r3, 0(%r15) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_stack_flush" emit_ops method for s390. */ + +static void +s390_emit_stack_flush (void) +{ + static const unsigned char buf[] = { + 0xa7, 0xfa, 0xff, 0xf8, /* ahi %r15, -8 */ + 0x90, 0x23, 0xf0, 0x00, /* stm %r2, %r3, 0(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_zero_ext" emit_ops method for s390. */ + +static void +s390_emit_zero_ext (int arg) +{ + unsigned char buf[] = { + 0x8d, 0x20, 0x00, (unsigned char) (64 - arg), /* sldl %r2, <64-arg> */ + 0x8c, 0x20, 0x00, (unsigned char) (64 - arg), /* srdl %r2, <64-arg> */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_swap" emit_ops method for s390. */ + +static void +s390_emit_swap (void) +{ + static const unsigned char buf[] = { + 0x98, 0x45, 0xf0, 0x00, /* lm %r4, %r5, 0(%r15) */ + 0x90, 0x23, 0xf0, 0x00, /* stm %r2, %r3, 0(%r15) */ + 0x18, 0x24, /* lr %r2, %r4 */ + 0x18, 0x35, /* lr %r3, %r5 */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_stack_adjust" emit_ops method for s390. */ + +static void +s390_emit_stack_adjust (int n) +{ + unsigned char buf[] = { + /* ahi %r15, 8*n */ + 0xa7, 0xfa, + (unsigned char ) (n * 8 >> 8), (unsigned char) (n * 8), + }; + add_insns (buf, sizeof buf); +} + +/* Sets %r2 to a 32-bit constant. */ + +static void +s390_emit_set_r2 (int arg1) +{ + unsigned char buf_s[] = { + /* lhi %r2, */ + 0xa7, 0x28, (unsigned char) (arg1 >> 8), (unsigned char) arg1, + }; + static const unsigned char buf_l[] = { + 0x58, 0x20, 0x10, 0x00, /* l %r2, 0(%r1) */ + }; + if (arg1 < 0x8000 && arg1 >= -0x8000) + { + add_insns (buf_s, sizeof buf_s); + } + else + { + s390_emit_litpool (4); + add_insns ((unsigned char *) &arg1, sizeof arg1); + add_insns (buf_l, sizeof buf_l); + } +} + +/* The "emit_int_call_1" emit_ops method for s390. */ + +static void +s390_emit_int_call_1 (CORE_ADDR fn, int arg1) +{ + /* FN's prototype is `LONGEST(*fn)(int)'. */ + s390_emit_set_r2 (arg1); + s390_emit_call (fn); +} + +/* The "emit_void_call_2" emit_ops method for s390. */ + +static void +s390_emit_void_call_2 (CORE_ADDR fn, int arg1) +{ + /* FN's prototype is `void(*fn)(int,LONGEST)'. */ + static const unsigned char buf[] = { + 0x18, 0xc2, /* lr %r12, %r2 */ + 0x18, 0xd3, /* lr %r13, %r3 */ + 0x18, 0x43, /* lr %r4, %r3 */ + 0x18, 0x32, /* lr %r3, %r2 */ + }; + static const unsigned char buf2[] = { + 0x18, 0x2c, /* lr %r2, %r12 */ + 0x18, 0x3d, /* lr %r3, %r13 */ + }; + add_insns (buf, sizeof buf); + s390_emit_set_r2 (arg1); + s390_emit_call (fn); + add_insns (buf2, sizeof buf2); +} + +/* The "emit_eq_goto" emit_ops method for s390. */ + +static void +s390_emit_eq_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0x57, 0x20, 0xf0, 0x00, /* x %r2, 0(%r15) */ + 0x57, 0x30, 0xf0, 0x04, /* x %r3, 4(%r15) */ + 0x16, 0x23, /* or %r2, %r3 */ + 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xc0, 0x84, 0x00, 0x00, 0x00, 0x00, /* jge */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 20; + if (size_p) + *size_p = 4; +} + +/* The "emit_ne_goto" emit_ops method for s390. */ + +static void +s390_emit_ne_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0x57, 0x20, 0xf0, 0x00, /* x %r2, 0(%r15) */ + 0x57, 0x30, 0xf0, 0x04, /* x %r3, 4(%r15) */ + 0x16, 0x23, /* or %r2, %r3 */ + 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xc0, 0x74, 0x00, 0x00, 0x00, 0x00, /* jgne */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 20; + if (size_p) + *size_p = 4; +} + +/* The "emit_lt_goto" emit_ops method for s390. */ + +static void +s390_emit_lt_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0x59, 0x20, 0xf0, 0x00, /* c %r2, 0(%r15) */ + 0xa7, 0x24, 0x00, 0x0e, /* jh .Ltrue */ + 0xa7, 0x44, 0x00, 0x06, /* jl .Lfalse */ + 0x55, 0x30, 0xf0, 0x04, /* cl %r3, 4(%r15) */ + 0xa7, 0x24, 0x00, 0x08, /* jh .Ltrue */ + /* .Lfalse: */ + 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xa7, 0xf4, 0x00, 0x09, /* j .Lend */ + /* .Ltrue: */ + 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xc0, 0xf4, 0x00, 0x00, 0x00, 0x00, /* jg */ + /* .Lend: */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 42; + if (size_p) + *size_p = 4; +} + +/* The "emit_le_goto" emit_ops method for s390. */ + +static void +s390_emit_le_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0x59, 0x20, 0xf0, 0x00, /* c %r2, 0(%r15) */ + 0xa7, 0x24, 0x00, 0x0e, /* jh .Ltrue */ + 0xa7, 0x44, 0x00, 0x06, /* jl .Lfalse */ + 0x55, 0x30, 0xf0, 0x04, /* cl %r3, 4(%r15) */ + 0xa7, 0xa4, 0x00, 0x08, /* jhe .Ltrue */ + /* .Lfalse: */ + 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xa7, 0xf4, 0x00, 0x09, /* j .Lend */ + /* .Ltrue: */ + 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xc0, 0xf4, 0x00, 0x00, 0x00, 0x00, /* jg */ + /* .Lend: */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 42; + if (size_p) + *size_p = 4; +} + +/* The "emit_gt_goto" emit_ops method for s390. */ + +static void +s390_emit_gt_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0x59, 0x20, 0xf0, 0x00, /* c %r2, 0(%r15) */ + 0xa7, 0x44, 0x00, 0x0e, /* jl .Ltrue */ + 0xa7, 0x24, 0x00, 0x06, /* jh .Lfalse */ + 0x55, 0x30, 0xf0, 0x04, /* cl %r3, 4(%r15) */ + 0xa7, 0x44, 0x00, 0x08, /* jl .Ltrue */ + /* .Lfalse: */ + 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xa7, 0xf4, 0x00, 0x09, /* j .Lend */ + /* .Ltrue: */ + 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xc0, 0xf4, 0x00, 0x00, 0x00, 0x00, /* jg */ + /* .Lend: */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 42; + if (size_p) + *size_p = 4; +} + +/* The "emit_ge_goto" emit_ops method for s390. */ + +static void +s390_emit_ge_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0x59, 0x20, 0xf0, 0x00, /* c %r2, 0(%r15) */ + 0xa7, 0x44, 0x00, 0x0e, /* jl .Ltrue */ + 0xa7, 0x24, 0x00, 0x06, /* jh .Lfalse */ + 0x55, 0x30, 0xf0, 0x04, /* cl %r3, 4(%r15) */ + 0xa7, 0xc4, 0x00, 0x08, /* jle .Ltrue */ + /* .Lfalse: */ + 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xa7, 0xf4, 0x00, 0x09, /* j .Lend */ + /* .Ltrue: */ + 0x98, 0x23, 0xf0, 0x08, /* lm %r2, %r3, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xc0, 0xf4, 0x00, 0x00, 0x00, 0x00, /* jg */ + /* .Lend: */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 42; + if (size_p) + *size_p = 4; +} + +/* The "emit_ops" structure for s390. Named _impl to avoid name + collision with s390_emit_ops function. */ + +static struct emit_ops s390_emit_ops_impl = + { + s390_emit_prologue, + s390_emit_epilogue, + s390_emit_add, + s390_emit_sub, + s390_emit_mul, + s390_emit_lsh, + s390_emit_rsh_signed, + s390_emit_rsh_unsigned, + s390_emit_ext, + s390_emit_log_not, + s390_emit_bit_and, + s390_emit_bit_or, + s390_emit_bit_xor, + s390_emit_bit_not, + s390_emit_equal, + s390_emit_less_signed, + s390_emit_less_unsigned, + s390_emit_ref, + s390_emit_if_goto, + s390_emit_goto, + s390_write_goto_address, + s390_emit_const, + s390_emit_call, + s390_emit_reg, + s390_emit_pop, + s390_emit_stack_flush, + s390_emit_zero_ext, + s390_emit_swap, + s390_emit_stack_adjust, + s390_emit_int_call_1, + s390_emit_void_call_2, + s390_emit_eq_goto, + s390_emit_ne_goto, + s390_emit_lt_goto, + s390_emit_le_goto, + s390_emit_gt_goto, + s390_emit_ge_goto + }; + +#ifdef __s390x__ + +/* The "emit_prologue" emit_ops method for s390x. */ + +static void +s390x_emit_prologue (void) +{ + static const unsigned char buf[] = { + 0xeb, 0x9f, 0xf0, 0x48, 0x00, 0x24, /* stmg %r9, %r15, 0x48(%r15) */ + 0xb9, 0x04, 0x00, 0x92, /* lgr %r9, %r2 */ + 0xb9, 0x04, 0x00, 0xa3, /* lgr %r10, %r3 */ + 0xb9, 0x04, 0x00, 0xbf, /* lgr %r11, %r15 */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_epilogue" emit_ops method for s390x. */ + +static void +s390x_emit_epilogue (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xa0, 0x00, 0x00, 0x24, /* stg %r2, 0(%r10) */ + 0xa7, 0x29, 0x00, 0x00, /* lghi %r2, 0 */ + 0xeb, 0x9f, 0xf0, 0x48, 0x00, 0x04, /* lmg %r9, %r15, 0x48(%r15) */ + 0x07, 0xfe, /* br %r14 */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_add" emit_ops method for s390x. */ + +static void +s390x_emit_add (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x0a, /* alg %r2, 0(%r15) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_sub" emit_ops method for s390x. */ + +static void +s390x_emit_sub (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x30, 0xf0, 0x00, 0x00, 0x04, /* lg %r3, 0(%r15) */ + 0xb9, 0x0b, 0x00, 0x32, /* slgr %r3, %r2 */ + 0xb9, 0x04, 0x00, 0x23, /* lgr %r2, %r3 */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_mul" emit_ops method for s390x. */ + +static void +s390x_emit_mul (void) +{ + emit_error = 1; +} + +/* The "emit_lsh" emit_ops method for s390x. */ + +static void +s390x_emit_lsh (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x30, 0xf0, 0x00, 0x00, 0x04, /* lg %r3, 0(%r15) */ + 0xeb, 0x23, 0x20, 0x00, 0x00, 0x0d, /* sllg %r2, %r3, 0(%r2) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_rsh_signed" emit_ops method for s390x. */ + +static void +s390x_emit_rsh_signed (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x30, 0xf0, 0x00, 0x00, 0x04, /* lg %r3, 0(%r15) */ + 0xeb, 0x23, 0x20, 0x00, 0x00, 0x0a, /* srag %r2, %r3, 0(%r2) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_rsh_unsigned" emit_ops method for s390x. */ + +static void +s390x_emit_rsh_unsigned (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x30, 0xf0, 0x00, 0x00, 0x04, /* lg %r3, 0(%r15) */ + 0xeb, 0x23, 0x20, 0x00, 0x00, 0x0c, /* srlg %r2, %r3, 0(%r2) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_ext" emit_ops method for s390x. */ + +static void +s390x_emit_ext (int arg) +{ + unsigned char buf[] = { + /* sllg %r2, %r2, <64-arg> */ + 0xeb, 0x22, 0x00, (unsigned char) (64 - arg), 0x00, 0x0d, + /* srag %r2, %r2, <64-arg> */ + 0xeb, 0x22, 0x00, (unsigned char) (64 - arg), 0x00, 0x0a, + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_log_not" emit_ops method for s390x. */ + +static void +s390x_emit_log_not (void) +{ + static const unsigned char buf[] = { + 0xb9, 0x00, 0x00, 0x22, /* lpgr %r2, %r2 */ + 0xa7, 0x2b, 0xff, 0xff, /* aghi %r2, -1 */ + 0xeb, 0x22, 0x00, 0x3f, 0x00, 0x0c, /* srlg %r2, %r2, 63 */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_bit_and" emit_ops method for s390x. */ + +static void +s390x_emit_bit_and (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x80, /* ng %r2, 0(%r15) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_bit_or" emit_ops method for s390x. */ + +static void +s390x_emit_bit_or (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x81, /* og %r2, 0(%r15) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_bit_xor" emit_ops method for s390x. */ + +static void +s390x_emit_bit_xor (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x82, /* xg %r2, 0(%r15) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_bit_not" emit_ops method for s390x. */ + +static void +s390x_emit_bit_not (void) +{ + static const unsigned char buf[] = { + 0xa7, 0x39, 0xff, 0xff, /* lghi %r3, -1 */ + 0xb9, 0x82, 0x00, 0x23, /* xgr %r2, %r3 */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_equal" emit_ops method for s390x. */ + +static void +s390x_emit_equal (void) +{ + s390x_emit_bit_xor (); + s390x_emit_log_not (); +} + +/* The "emit_less_signed" emit_ops method for s390x. */ + +static void +s390x_emit_less_signed (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ + 0xa7, 0x29, 0x00, 0x01, /* lghi %r2, 1 */ + 0xa7, 0x24, 0x00, 0x04, /* jh .Lend */ + 0xa7, 0x29, 0x00, 0x00, /* lghi %r2, 0 */ + /* .Lend: */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_less_unsigned" emit_ops method for s390x. */ + +static void +s390x_emit_less_unsigned (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x21, /* clg %r2, 0(%r15) */ + 0xa7, 0x29, 0x00, 0x01, /* lghi %r2, 1 */ + 0xa7, 0x24, 0x00, 0x04, /* jh .Lend */ + 0xa7, 0x29, 0x00, 0x00, /* lghi %r2, 0 */ + /* .Lend: */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_ref" emit_ops method for s390x. */ + +static void +s390x_emit_ref (int size) +{ + static const unsigned char buf1[] = { + 0xe3, 0x20, 0x20, 0x00, 0x00, 0x90, /* llgc %r2, 0(%r2) */ + }; + static const unsigned char buf2[] = { + 0xe3, 0x20, 0x20, 0x00, 0x00, 0x91 /* llgh %r2, 0(%r2) */ + }; + static const unsigned char buf4[] = { + 0xe3, 0x20, 0x20, 0x00, 0x00, 0x16, /* llgf %r2, 0(%r2) */ + }; + static const unsigned char buf8[] = { + 0xe3, 0x20, 0x20, 0x00, 0x00, 0x04, /* lg %r2, 0(%r2) */ + }; + switch (size) + { + case 1: + add_insns (buf1, sizeof buf1); + break; + case 2: + add_insns (buf2, sizeof buf2); + break; + case 4: + add_insns (buf4, sizeof buf4); + break; + case 8: + add_insns (buf8, sizeof buf8); + break; + default: + emit_error = 1; + } +} + +/* The "emit_if_goto" emit_ops method for s390x. */ + +static void +s390x_emit_if_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0xb9, 0x02, 0x00, 0x22, /* ltgr %r2, %r2 */ + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x04, /* lg %r2, 0(%r15) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + 0xc0, 0x74, 0x00, 0x00, 0x00, 0x00, /* jgne */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 16; + if (size_p) + *size_p = 4; +} + +/* The "emit_const" emit_ops method for s390x. */ + +static void +s390x_emit_const (LONGEST num) +{ + unsigned long long n = num; + unsigned char buf_s[] = { + /* lghi %r2, */ + 0xa7, 0x29, (unsigned char) (num >> 8), (unsigned char) num, + }; + static const unsigned char buf_l[] = { + 0xe3, 0x20, 0x10, 0x00, 0x00, 0x04, /* lg %r2, 0(%r1) */ + }; + if (num < 0x8000 && num >= -0x8000) + { + add_insns (buf_s, sizeof buf_s); + } + else + { + s390_emit_litpool (8); + add_insns ((unsigned char *) &n, sizeof n); + add_insns (buf_l, sizeof buf_l); + } +} + +/* The "emit_call" emit_ops method for s390x. */ + +static void +s390x_emit_call (CORE_ADDR fn) +{ + unsigned long n = fn; + static const unsigned char buf[] = { + 0xe3, 0x10, 0x10, 0x00, 0x00, 0x04, /* lg %r1, 0(%r1) */ + 0xa7, 0xfb, 0xff, 0x60, /* aghi %r15, -0xa0 */ + 0x0d, 0xe1, /* basr %r14, %r1 */ + 0xa7, 0xfb, 0x00, 0xa0, /* aghi %r15, 0xa0 */ + }; + s390_emit_litpool (8); + add_insns ((unsigned char *) &n, sizeof n); + add_insns (buf, sizeof buf); +} + +/* The "emit_reg" emit_ops method for s390x. */ + +static void +s390x_emit_reg (int reg) +{ + unsigned char buf[] = { + /* lgr %r2, %r9 */ + 0xb9, 0x04, 0x00, 0x29, + /* lghi %r3, */ + 0xa7, 0x39, (unsigned char) (reg >> 8), (unsigned char) reg, + }; + add_insns (buf, sizeof buf); + s390x_emit_call (get_raw_reg_func_addr ()); +} + +/* The "emit_pop" emit_ops method for s390x. */ + +static void +s390x_emit_pop (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x04, /* lg %r2, 0(%r15) */ + 0x41, 0xf0, 0xf0, 0x08, /* la %r15, 8(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_stack_flush" emit_ops method for s390x. */ + +static void +s390x_emit_stack_flush (void) +{ + static const unsigned char buf[] = { + 0xa7, 0xfb, 0xff, 0xf8, /* aghi %r15, -8 */ + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x24, /* stg %r2, 0(%r15) */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_zero_ext" emit_ops method for s390x. */ + +static void +s390x_emit_zero_ext (int arg) +{ + unsigned char buf[] = { + /* sllg %r2, %r2, <64-arg> */ + 0xeb, 0x22, 0x00, (unsigned char) (64 - arg), 0x00, 0x0d, + /* srlg %r2, %r2, <64-arg> */ + 0xeb, 0x22, 0x00, (unsigned char) (64 - arg), 0x00, 0x0c, + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_swap" emit_ops method for s390x. */ + +static void +s390x_emit_swap (void) +{ + static const unsigned char buf[] = { + 0xe3, 0x30, 0xf0, 0x00, 0x00, 0x04, /* lg %r3, 0(%r15) */ + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x24, /* stg %r2, 0(%r15) */ + 0xb9, 0x04, 0x00, 0x23, /* lgr %r2, %r3 */ + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_stack_adjust" emit_ops method for s390x. */ + +static void +s390x_emit_stack_adjust (int n) +{ + unsigned char buf[] = { + /* aghi %r15, 8*n */ + 0xa7, 0xfb, + (unsigned char) (n * 8 >> 8), (unsigned char) (n * 8), + }; + add_insns (buf, sizeof buf); +} + +/* The "emit_int_call_1" emit_ops method for s390x. */ + +static void +s390x_emit_int_call_1 (CORE_ADDR fn, int arg1) +{ + /* FN's prototype is `LONGEST(*fn)(int)'. */ + s390x_emit_const (arg1); + s390x_emit_call (fn); +} + +/* The "emit_void_call_2" emit_ops method for s390x. */ + +static void +s390x_emit_void_call_2 (CORE_ADDR fn, int arg1) +{ + /* FN's prototype is `void(*fn)(int,LONGEST)'. */ + static const unsigned char buf[] = { + 0xb9, 0x04, 0x00, 0x32, /* lgr %r3, %r2 */ + 0xb9, 0x04, 0x00, 0xc2, /* lgr %r12, %r2 */ + }; + static const unsigned char buf2[] = { + 0xb9, 0x04, 0x00, 0x2c, /* lgr %r2, %r12 */ + }; + add_insns (buf, sizeof buf); + s390x_emit_const (arg1); + s390x_emit_call (fn); + add_insns (buf2, sizeof buf2); +} + +/* The "emit_eq_goto" emit_ops method for s390x. */ + +static void +s390x_emit_eq_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ + 0xe3, 0x20, 0xf0, 0x08, 0x00, 0x04, /* lg %r2, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xc0, 0x84, 0x00, 0x00, 0x00, 0x00, /* jge */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 18; + if (size_p) + *size_p = 4; +} + +/* The "emit_ne_goto" emit_ops method for s390x. */ + +static void +s390x_emit_ne_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ + 0xe3, 0x20, 0xf0, 0x08, 0x00, 0x04, /* lg %r2, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xc0, 0x74, 0x00, 0x00, 0x00, 0x00, /* jgne */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 18; + if (size_p) + *size_p = 4; +} + +/* The "emit_lt_goto" emit_ops method for s390x. */ + +static void +s390x_emit_lt_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ + 0xe3, 0x20, 0xf0, 0x08, 0x00, 0x04, /* lg %r2, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xc0, 0x24, 0x00, 0x00, 0x00, 0x00, /* jgh */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 18; + if (size_p) + *size_p = 4; +} + +/* The "emit_le_goto" emit_ops method for s390x. */ + +static void +s390x_emit_le_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ + 0xe3, 0x20, 0xf0, 0x08, 0x00, 0x04, /* lg %r2, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xc0, 0xa4, 0x00, 0x00, 0x00, 0x00, /* jghe */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 18; + if (size_p) + *size_p = 4; +} + +/* The "emit_gt_goto" emit_ops method for s390x. */ + +static void +s390x_emit_gt_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ + 0xe3, 0x20, 0xf0, 0x08, 0x00, 0x04, /* lg %r2, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xc0, 0x44, 0x00, 0x00, 0x00, 0x00, /* jgl */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 18; + if (size_p) + *size_p = 4; +} + +/* The "emit_ge_goto" emit_ops method for s390x. */ + +static void +s390x_emit_ge_goto (int *offset_p, int *size_p) +{ + static const unsigned char buf[] = { + 0xe3, 0x20, 0xf0, 0x00, 0x00, 0x20, /* cg %r2, 0(%r15) */ + 0xe3, 0x20, 0xf0, 0x08, 0x00, 0x04, /* lg %r2, 8(%r15) */ + 0x41, 0xf0, 0xf0, 0x10, /* la %r15, 16(%r15) */ + 0xc0, 0xc4, 0x00, 0x00, 0x00, 0x00, /* jgle */ + }; + add_insns (buf, sizeof buf); + if (offset_p) + *offset_p = 18; + if (size_p) + *size_p = 4; +} + +/* The "emit_ops" structure for s390x. */ + +static struct emit_ops s390x_emit_ops = + { + s390x_emit_prologue, + s390x_emit_epilogue, + s390x_emit_add, + s390x_emit_sub, + s390x_emit_mul, + s390x_emit_lsh, + s390x_emit_rsh_signed, + s390x_emit_rsh_unsigned, + s390x_emit_ext, + s390x_emit_log_not, + s390x_emit_bit_and, + s390x_emit_bit_or, + s390x_emit_bit_xor, + s390x_emit_bit_not, + s390x_emit_equal, + s390x_emit_less_signed, + s390x_emit_less_unsigned, + s390x_emit_ref, + s390x_emit_if_goto, + s390_emit_goto, + s390_write_goto_address, + s390x_emit_const, + s390x_emit_call, + s390x_emit_reg, + s390x_emit_pop, + s390x_emit_stack_flush, + s390x_emit_zero_ext, + s390x_emit_swap, + s390x_emit_stack_adjust, + s390x_emit_int_call_1, + s390x_emit_void_call_2, + s390x_emit_eq_goto, + s390x_emit_ne_goto, + s390x_emit_lt_goto, + s390x_emit_le_goto, + s390x_emit_gt_goto, + s390x_emit_ge_goto + }; +#endif + +/* The "emit_ops" linux_target_ops method. */ + +static struct emit_ops * +s390_emit_ops (void) +{ +#ifdef __s390x__ + struct regcache *regcache = get_thread_regcache (current_thread, 0); + + if (register_size (regcache->tdesc, 0) == 8) + return &s390x_emit_ops; + else +#endif + return &s390_emit_ops_impl; +} + +struct linux_target_ops the_low_target = { + s390_arch_setup, + s390_regs_info, + s390_cannot_fetch_register, + s390_cannot_store_register, + NULL, /* fetch_register */ + s390_get_pc, + s390_set_pc, + NULL, /* breakpoint_kind_from_pc */ + s390_sw_breakpoint_from_kind, + NULL, + s390_breakpoint_len, + s390_breakpoint_at, + s390_supports_z_point_type, + NULL, + NULL, + NULL, + NULL, + s390_collect_ptrace_register, + s390_supply_ptrace_register, + NULL, /* siginfo_fixup */ + NULL, /* new_process */ + NULL, /* delete_process */ + NULL, /* new_thread */ + NULL, /* delete_thread */ + NULL, /* new_fork */ + NULL, /* prepare_to_resume */ + NULL, /* process_qsupported */ + s390_supports_tracepoints, + s390_get_thread_area, + s390_install_fast_tracepoint_jump_pad, + s390_emit_ops, + s390_get_min_fast_tracepoint_insn_len, + NULL, /* supports_range_stepping */ + NULL, /* breakpoint_kind_from_current_state */ + s390_supports_hardware_single_step, + NULL, /* get_syscall_trapinfo */ + s390_get_ipa_tdesc_idx, +}; + +void +initialize_low_arch (void) +{ + /* Initialize the Linux target descriptions. */ + + init_registers_s390_linux32 (); + init_registers_s390_linux32v1 (); + init_registers_s390_linux32v2 (); + init_registers_s390_linux64 (); + init_registers_s390_linux64v1 (); + init_registers_s390_linux64v2 (); + init_registers_s390_te_linux64 (); + init_registers_s390_vx_linux64 (); + init_registers_s390_tevx_linux64 (); + init_registers_s390_gs_linux64 (); +#ifdef __s390x__ + init_registers_s390x_linux64 (); + init_registers_s390x_linux64v1 (); + init_registers_s390x_linux64v2 (); + init_registers_s390x_te_linux64 (); + init_registers_s390x_vx_linux64 (); + init_registers_s390x_tevx_linux64 (); + init_registers_s390x_gs_linux64 (); +#endif + + initialize_regsets_info (&s390_regsets_info); + initialize_regsets_info (&s390_regsets_info_3264); +} diff --git a/gdbserver/linux-sh-low.c b/gdbserver/linux-sh-low.c deleted file mode 100644 index abe71ff4766..00000000000 --- a/gdbserver/linux-sh-low.c +++ /dev/null @@ -1,189 +0,0 @@ -/* GNU/Linux/SH specific low level interface, for the remote server for GDB. - Copyright (C) 1995-2020 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 . */ - -#include "server.h" -#include "linux-low.h" - -/* Defined in auto-generated file reg-sh.c. */ -void init_registers_sh (void); -extern const struct target_desc *tdesc_sh; - -#ifdef HAVE_SYS_REG_H -#include -#endif - -#include - -#define sh_num_regs 41 - -/* Currently, don't check/send MQ. */ -static int sh_regmap[] = { - 0, 4, 8, 12, 16, 20, 24, 28, - 32, 36, 40, 44, 48, 52, 56, 60, - - REG_PC*4, REG_PR*4, REG_GBR*4, -1, - REG_MACH*4, REG_MACL*4, REG_SR*4, - REG_FPUL*4, REG_FPSCR*4, - - REG_FPREG0*4+0, REG_FPREG0*4+4, REG_FPREG0*4+8, REG_FPREG0*4+12, - REG_FPREG0*4+16, REG_FPREG0*4+20, REG_FPREG0*4+24, REG_FPREG0*4+28, - REG_FPREG0*4+32, REG_FPREG0*4+36, REG_FPREG0*4+40, REG_FPREG0*4+44, - REG_FPREG0*4+48, REG_FPREG0*4+52, REG_FPREG0*4+56, REG_FPREG0*4+60, -}; - -static int -sh_cannot_store_register (int regno) -{ - return 0; -} - -static int -sh_cannot_fetch_register (int regno) -{ - return 0; -} - -/* Correct in either endianness, obviously. */ -static const unsigned short sh_breakpoint = 0xc3c3; -#define sh_breakpoint_len 2 - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -sh_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = sh_breakpoint_len; - return (const gdb_byte *) &sh_breakpoint; -} - -static int -sh_breakpoint_at (CORE_ADDR where) -{ - unsigned short insn; - - (*the_target->read_memory) (where, (unsigned char *) &insn, 2); - if (insn == sh_breakpoint) - return 1; - - /* If necessary, recognize more trap instructions here. GDB only uses the - one. */ - return 0; -} - -/* Support for hardware single step. */ - -static int -sh_supports_hardware_single_step (void) -{ - return 1; -} - -/* Provide only a fill function for the general register set. ps_lgetregs - will use this for NPTL support. */ - -static void sh_fill_gregset (struct regcache *regcache, void *buf) -{ - int i; - - for (i = 0; i < 23; i++) - if (sh_regmap[i] != -1) - collect_register (regcache, i, (char *) buf + sh_regmap[i]); -} - -static struct regset_info sh_regsets[] = { - { 0, 0, 0, 0, GENERAL_REGS, sh_fill_gregset, NULL }, - NULL_REGSET -}; - -static struct regsets_info sh_regsets_info = - { - sh_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct usrregs_info sh_usrregs_info = - { - sh_num_regs, - sh_regmap, - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &sh_usrregs_info, - &sh_regsets_info - }; - -static const struct regs_info * -sh_regs_info (void) -{ - return ®s_info; -} - -static void -sh_arch_setup (void) -{ - current_process ()->tdesc = tdesc_sh; -} - -struct linux_target_ops the_low_target = { - sh_arch_setup, - sh_regs_info, - sh_cannot_fetch_register, - sh_cannot_store_register, - NULL, /* fetch_register */ - linux_get_pc_32bit, - linux_set_pc_32bit, - NULL, /* breakpoint_kind_from_pc */ - sh_sw_breakpoint_from_kind, - NULL, - 0, - sh_breakpoint_at, - NULL, /* supports_z_point_type */ - NULL, /* insert_point */ - NULL, /* remove_point */ - NULL, /* stopped_by_watchpoint */ - NULL, /* stopped_data_address */ - NULL, /* collect_ptrace_register */ - NULL, /* supply_ptrace_register */ - NULL, /* siginfo_fixup */ - NULL, /* new_process */ - NULL, /* delete_process */ - NULL, /* new_thread */ - NULL, /* delete_thread */ - NULL, /* new_fork */ - NULL, /* prepare_to_resume */ - NULL, /* process_qsupported */ - NULL, /* supports_tracepoints */ - NULL, /* get_thread_area */ - NULL, /* install_fast_tracepoint_jump_pad */ - NULL, /* emit_ops */ - NULL, /* get_min_fast_tracepoint_insn_len */ - NULL, /* supports_range_stepping */ - NULL, /* breakpoint_kind_from_current_state */ - sh_supports_hardware_single_step, -}; - -void -initialize_low_arch (void) -{ - init_registers_sh (); - - initialize_regsets_info (&sh_regsets_info); -} diff --git a/gdbserver/linux-sh-low.cc b/gdbserver/linux-sh-low.cc new file mode 100644 index 00000000000..abe71ff4766 --- /dev/null +++ b/gdbserver/linux-sh-low.cc @@ -0,0 +1,189 @@ +/* GNU/Linux/SH specific low level interface, for the remote server for GDB. + Copyright (C) 1995-2020 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 . */ + +#include "server.h" +#include "linux-low.h" + +/* Defined in auto-generated file reg-sh.c. */ +void init_registers_sh (void); +extern const struct target_desc *tdesc_sh; + +#ifdef HAVE_SYS_REG_H +#include +#endif + +#include + +#define sh_num_regs 41 + +/* Currently, don't check/send MQ. */ +static int sh_regmap[] = { + 0, 4, 8, 12, 16, 20, 24, 28, + 32, 36, 40, 44, 48, 52, 56, 60, + + REG_PC*4, REG_PR*4, REG_GBR*4, -1, + REG_MACH*4, REG_MACL*4, REG_SR*4, + REG_FPUL*4, REG_FPSCR*4, + + REG_FPREG0*4+0, REG_FPREG0*4+4, REG_FPREG0*4+8, REG_FPREG0*4+12, + REG_FPREG0*4+16, REG_FPREG0*4+20, REG_FPREG0*4+24, REG_FPREG0*4+28, + REG_FPREG0*4+32, REG_FPREG0*4+36, REG_FPREG0*4+40, REG_FPREG0*4+44, + REG_FPREG0*4+48, REG_FPREG0*4+52, REG_FPREG0*4+56, REG_FPREG0*4+60, +}; + +static int +sh_cannot_store_register (int regno) +{ + return 0; +} + +static int +sh_cannot_fetch_register (int regno) +{ + return 0; +} + +/* Correct in either endianness, obviously. */ +static const unsigned short sh_breakpoint = 0xc3c3; +#define sh_breakpoint_len 2 + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +sh_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = sh_breakpoint_len; + return (const gdb_byte *) &sh_breakpoint; +} + +static int +sh_breakpoint_at (CORE_ADDR where) +{ + unsigned short insn; + + (*the_target->read_memory) (where, (unsigned char *) &insn, 2); + if (insn == sh_breakpoint) + return 1; + + /* If necessary, recognize more trap instructions here. GDB only uses the + one. */ + return 0; +} + +/* Support for hardware single step. */ + +static int +sh_supports_hardware_single_step (void) +{ + return 1; +} + +/* Provide only a fill function for the general register set. ps_lgetregs + will use this for NPTL support. */ + +static void sh_fill_gregset (struct regcache *regcache, void *buf) +{ + int i; + + for (i = 0; i < 23; i++) + if (sh_regmap[i] != -1) + collect_register (regcache, i, (char *) buf + sh_regmap[i]); +} + +static struct regset_info sh_regsets[] = { + { 0, 0, 0, 0, GENERAL_REGS, sh_fill_gregset, NULL }, + NULL_REGSET +}; + +static struct regsets_info sh_regsets_info = + { + sh_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct usrregs_info sh_usrregs_info = + { + sh_num_regs, + sh_regmap, + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &sh_usrregs_info, + &sh_regsets_info + }; + +static const struct regs_info * +sh_regs_info (void) +{ + return ®s_info; +} + +static void +sh_arch_setup (void) +{ + current_process ()->tdesc = tdesc_sh; +} + +struct linux_target_ops the_low_target = { + sh_arch_setup, + sh_regs_info, + sh_cannot_fetch_register, + sh_cannot_store_register, + NULL, /* fetch_register */ + linux_get_pc_32bit, + linux_set_pc_32bit, + NULL, /* breakpoint_kind_from_pc */ + sh_sw_breakpoint_from_kind, + NULL, + 0, + sh_breakpoint_at, + NULL, /* supports_z_point_type */ + NULL, /* insert_point */ + NULL, /* remove_point */ + NULL, /* stopped_by_watchpoint */ + NULL, /* stopped_data_address */ + NULL, /* collect_ptrace_register */ + NULL, /* supply_ptrace_register */ + NULL, /* siginfo_fixup */ + NULL, /* new_process */ + NULL, /* delete_process */ + NULL, /* new_thread */ + NULL, /* delete_thread */ + NULL, /* new_fork */ + NULL, /* prepare_to_resume */ + NULL, /* process_qsupported */ + NULL, /* supports_tracepoints */ + NULL, /* get_thread_area */ + NULL, /* install_fast_tracepoint_jump_pad */ + NULL, /* emit_ops */ + NULL, /* get_min_fast_tracepoint_insn_len */ + NULL, /* supports_range_stepping */ + NULL, /* breakpoint_kind_from_current_state */ + sh_supports_hardware_single_step, +}; + +void +initialize_low_arch (void) +{ + init_registers_sh (); + + initialize_regsets_info (&sh_regsets_info); +} diff --git a/gdbserver/linux-sparc-low.c b/gdbserver/linux-sparc-low.c deleted file mode 100644 index cfa76c0b8e6..00000000000 --- a/gdbserver/linux-sparc-low.c +++ /dev/null @@ -1,326 +0,0 @@ -/* Low level interface to ptrace, for the remote server for GDB. - Copyright (C) 1995-2020 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 . */ - -#include "server.h" -#include "linux-low.h" - -#include "nat/gdb_ptrace.h" - -#include "gdb_proc_service.h" - -/* The stack pointer is offset from the stack frame by a BIAS of 2047 - (0x7ff) for 64-bit code. BIAS is likely to be defined on SPARC - hosts, so undefine it first. */ -#undef BIAS -#define BIAS 2047 - -#ifdef HAVE_SYS_REG_H -#include -#endif - -#define INSN_SIZE 4 - -#define SPARC_R_REGS_NUM 32 -#define SPARC_F_REGS_NUM 48 -#define SPARC_CONTROL_REGS_NUM 6 - -#define sparc_num_regs \ - (SPARC_R_REGS_NUM + SPARC_F_REGS_NUM + SPARC_CONTROL_REGS_NUM) - -/* Each offset is multiplied by 8, because of the register size. - These offsets apply to the buffer sent/filled by ptrace. - Additionally, the array elements order corresponds to the .dat file, and the - gdb's registers enumeration order. */ - -static int sparc_regmap[] = { - /* These offsets correspond to GET/SETREGSET. */ - -1, 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, /* g0 .. g7 */ - 7*8, 8*8, 9*8, 10*8, 11*8, 12*8, 13*8, 14*8, /* o0 .. o5, sp, o7 */ - -1, -1, -1, -1, -1, -1, -1, -1, /* l0 .. l7 */ - -1, -1, -1, -1, -1, -1, -1, -1, /* i0 .. i5, fp, i7 */ - - /* Floating point registers offsets correspond to GET/SETFPREGSET. */ - 0*4, 1*4, 2*4, 3*4, 4*4, 5*4, 6*4, 7*4, /* f0 .. f7 */ - 8*4, 9*4, 10*4, 11*4, 12*4, 13*4, 14*4, 15*4, /* f8 .. f15 */ - 16*4, 17*4, 18*4, 19*4, 20*4, 21*4, 22*4, 23*4, /* f16 .. f23 */ - 24*4, 25*4, 26*4, 27*4, 28*4, 29*4, 30*4, 31*4, /* f24 .. f31 */ - - /* F32 offset starts next to f31: 31*4+4 = 16 * 8. */ - 16*8, 17*8, 18*8, 19*8, 20*8, 21*8, 22*8, 23*8, /* f32 .. f46 */ - 24*8, 25*8, 26*8, 27*8, 28*8, 29*8, 30*8, 31*8, /* f48 .. f62 */ - - 17 *8, /* pc */ - 18 *8, /* npc */ - 16 *8, /* state */ - /* FSR offset also corresponds to GET/SETFPREGSET, ans is placed - next to f62. */ - 32 *8, /* fsr */ - -1, /* fprs */ - /* Y register is 32-bits length, but gdb takes care of that. */ - 19 *8, /* y */ - -}; - - -struct regs_range_t -{ - int regno_start; - int regno_end; -}; - -static const struct regs_range_t gregs_ranges[] = { - { 0, 31 }, /* g0 .. i7 */ - { 80, 82 }, /* pc .. state */ - { 84, 85 } /* fprs .. y */ -}; - -#define N_GREGS_RANGES (sizeof (gregs_ranges) / sizeof (struct regs_range_t)) - -static const struct regs_range_t fpregs_ranges[] = { - { 32, 79 }, /* f0 .. f62 */ - { 83, 83 } /* fsr */ -}; - -#define N_FPREGS_RANGES (sizeof (fpregs_ranges) / sizeof (struct regs_range_t)) - -/* Defined in auto-generated file reg-sparc64.c. */ -void init_registers_sparc64 (void); -extern const struct target_desc *tdesc_sparc64; - -static int -sparc_cannot_store_register (int regno) -{ - return (regno >= sparc_num_regs || sparc_regmap[regno] == -1); -} - -static int -sparc_cannot_fetch_register (int regno) -{ - return (regno >= sparc_num_regs || sparc_regmap[regno] == -1); -} - -static void -sparc_fill_gregset_to_stack (struct regcache *regcache, const void *buf) -{ - int i; - CORE_ADDR addr = 0; - unsigned char tmp_reg_buf[8]; - const int l0_regno = find_regno (regcache->tdesc, "l0"); - const int i7_regno = l0_regno + 15; - - /* These registers have to be stored in the stack. */ - memcpy (&addr, - ((char *) buf) + sparc_regmap[find_regno (regcache->tdesc, "sp")], - sizeof (addr)); - - addr += BIAS; - - for (i = l0_regno; i <= i7_regno; i++) - { - collect_register (regcache, i, tmp_reg_buf); - (*the_target->write_memory) (addr, tmp_reg_buf, sizeof (tmp_reg_buf)); - addr += sizeof (tmp_reg_buf); - } -} - -static void -sparc_fill_gregset (struct regcache *regcache, void *buf) -{ - int i; - int range; - - for (range = 0; range < N_GREGS_RANGES; range++) - for (i = gregs_ranges[range].regno_start; - i <= gregs_ranges[range].regno_end; i++) - if (sparc_regmap[i] != -1) - collect_register (regcache, i, ((char *) buf) + sparc_regmap[i]); - - sparc_fill_gregset_to_stack (regcache, buf); -} - -static void -sparc_fill_fpregset (struct regcache *regcache, void *buf) -{ - int i; - int range; - - for (range = 0; range < N_FPREGS_RANGES; range++) - for (i = fpregs_ranges[range].regno_start; - i <= fpregs_ranges[range].regno_end; i++) - collect_register (regcache, i, ((char *) buf) + sparc_regmap[i]); - -} - -static void -sparc_store_gregset_from_stack (struct regcache *regcache, const void *buf) -{ - int i; - CORE_ADDR addr = 0; - unsigned char tmp_reg_buf[8]; - const int l0_regno = find_regno (regcache->tdesc, "l0"); - const int i7_regno = l0_regno + 15; - - /* These registers have to be obtained from the stack. */ - memcpy (&addr, - ((char *) buf) + sparc_regmap[find_regno (regcache->tdesc, "sp")], - sizeof (addr)); - - addr += BIAS; - - for (i = l0_regno; i <= i7_regno; i++) - { - (*the_target->read_memory) (addr, tmp_reg_buf, sizeof (tmp_reg_buf)); - supply_register (regcache, i, tmp_reg_buf); - addr += sizeof (tmp_reg_buf); - } -} - -static void -sparc_store_gregset (struct regcache *regcache, const void *buf) -{ - int i; - char zerobuf[8]; - int range; - - memset (zerobuf, 0, sizeof (zerobuf)); - - for (range = 0; range < N_GREGS_RANGES; range++) - for (i = gregs_ranges[range].regno_start; - i <= gregs_ranges[range].regno_end; i++) - if (sparc_regmap[i] != -1) - supply_register (regcache, i, ((char *) buf) + sparc_regmap[i]); - else - supply_register (regcache, i, zerobuf); - - sparc_store_gregset_from_stack (regcache, buf); -} - -static void -sparc_store_fpregset (struct regcache *regcache, const void *buf) -{ - int i; - int range; - - for (range = 0; range < N_FPREGS_RANGES; range++) - for (i = fpregs_ranges[range].regno_start; - i <= fpregs_ranges[range].regno_end; - i++) - supply_register (regcache, i, ((char *) buf) + sparc_regmap[i]); -} - -static const gdb_byte sparc_breakpoint[INSN_SIZE] = { - 0x91, 0xd0, 0x20, 0x01 -}; -#define sparc_breakpoint_len INSN_SIZE - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const unsigned char * -sparc_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = sparc_breakpoint_len; - return sparc_breakpoint; -} - -static int -sparc_breakpoint_at (CORE_ADDR where) -{ - unsigned char insn[INSN_SIZE]; - - (*the_target->read_memory) (where, (unsigned char *) insn, sizeof (insn)); - - if (memcmp (sparc_breakpoint, insn, sizeof (insn)) == 0) - return 1; - - /* If necessary, recognize more trap instructions here. GDB only - uses TRAP Always. */ - - return 0; -} - -static void -sparc_arch_setup (void) -{ - current_process ()->tdesc = tdesc_sparc64; -} - -static struct regset_info sparc_regsets[] = { - { PTRACE_GETREGS, PTRACE_SETREGS, 0, sizeof (elf_gregset_t), - GENERAL_REGS, - sparc_fill_gregset, sparc_store_gregset }, - { PTRACE_GETFPREGS, PTRACE_SETFPREGS, 0, sizeof (fpregset_t), - FP_REGS, - sparc_fill_fpregset, sparc_store_fpregset }, - NULL_REGSET -}; - -static struct regsets_info sparc_regsets_info = - { - sparc_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct usrregs_info sparc_usrregs_info = - { - sparc_num_regs, - /* No regmap needs to be provided since this impl. doesn't use - USRREGS. */ - NULL - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &sparc_usrregs_info, - &sparc_regsets_info - }; - -static const struct regs_info * -sparc_regs_info (void) -{ - return ®s_info; -} - -struct linux_target_ops the_low_target = { - sparc_arch_setup, - sparc_regs_info, - sparc_cannot_fetch_register, - sparc_cannot_store_register, - NULL, /* fetch_register */ - linux_get_pc_64bit, - /* No sparc_set_pc is needed. */ - NULL, - NULL, /* breakpoint_kind_from_pc */ - sparc_sw_breakpoint_from_kind, - NULL, /* get_next_pcs */ - 0, - sparc_breakpoint_at, - NULL, /* supports_z_point_type */ - NULL, NULL, NULL, NULL, - NULL, NULL -}; - -void -initialize_low_arch (void) -{ - /* Initialize the Linux target descriptions. */ - init_registers_sparc64 (); - - initialize_regsets_info (&sparc_regsets_info); -} diff --git a/gdbserver/linux-sparc-low.cc b/gdbserver/linux-sparc-low.cc new file mode 100644 index 00000000000..cfa76c0b8e6 --- /dev/null +++ b/gdbserver/linux-sparc-low.cc @@ -0,0 +1,326 @@ +/* Low level interface to ptrace, for the remote server for GDB. + Copyright (C) 1995-2020 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 . */ + +#include "server.h" +#include "linux-low.h" + +#include "nat/gdb_ptrace.h" + +#include "gdb_proc_service.h" + +/* The stack pointer is offset from the stack frame by a BIAS of 2047 + (0x7ff) for 64-bit code. BIAS is likely to be defined on SPARC + hosts, so undefine it first. */ +#undef BIAS +#define BIAS 2047 + +#ifdef HAVE_SYS_REG_H +#include +#endif + +#define INSN_SIZE 4 + +#define SPARC_R_REGS_NUM 32 +#define SPARC_F_REGS_NUM 48 +#define SPARC_CONTROL_REGS_NUM 6 + +#define sparc_num_regs \ + (SPARC_R_REGS_NUM + SPARC_F_REGS_NUM + SPARC_CONTROL_REGS_NUM) + +/* Each offset is multiplied by 8, because of the register size. + These offsets apply to the buffer sent/filled by ptrace. + Additionally, the array elements order corresponds to the .dat file, and the + gdb's registers enumeration order. */ + +static int sparc_regmap[] = { + /* These offsets correspond to GET/SETREGSET. */ + -1, 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, /* g0 .. g7 */ + 7*8, 8*8, 9*8, 10*8, 11*8, 12*8, 13*8, 14*8, /* o0 .. o5, sp, o7 */ + -1, -1, -1, -1, -1, -1, -1, -1, /* l0 .. l7 */ + -1, -1, -1, -1, -1, -1, -1, -1, /* i0 .. i5, fp, i7 */ + + /* Floating point registers offsets correspond to GET/SETFPREGSET. */ + 0*4, 1*4, 2*4, 3*4, 4*4, 5*4, 6*4, 7*4, /* f0 .. f7 */ + 8*4, 9*4, 10*4, 11*4, 12*4, 13*4, 14*4, 15*4, /* f8 .. f15 */ + 16*4, 17*4, 18*4, 19*4, 20*4, 21*4, 22*4, 23*4, /* f16 .. f23 */ + 24*4, 25*4, 26*4, 27*4, 28*4, 29*4, 30*4, 31*4, /* f24 .. f31 */ + + /* F32 offset starts next to f31: 31*4+4 = 16 * 8. */ + 16*8, 17*8, 18*8, 19*8, 20*8, 21*8, 22*8, 23*8, /* f32 .. f46 */ + 24*8, 25*8, 26*8, 27*8, 28*8, 29*8, 30*8, 31*8, /* f48 .. f62 */ + + 17 *8, /* pc */ + 18 *8, /* npc */ + 16 *8, /* state */ + /* FSR offset also corresponds to GET/SETFPREGSET, ans is placed + next to f62. */ + 32 *8, /* fsr */ + -1, /* fprs */ + /* Y register is 32-bits length, but gdb takes care of that. */ + 19 *8, /* y */ + +}; + + +struct regs_range_t +{ + int regno_start; + int regno_end; +}; + +static const struct regs_range_t gregs_ranges[] = { + { 0, 31 }, /* g0 .. i7 */ + { 80, 82 }, /* pc .. state */ + { 84, 85 } /* fprs .. y */ +}; + +#define N_GREGS_RANGES (sizeof (gregs_ranges) / sizeof (struct regs_range_t)) + +static const struct regs_range_t fpregs_ranges[] = { + { 32, 79 }, /* f0 .. f62 */ + { 83, 83 } /* fsr */ +}; + +#define N_FPREGS_RANGES (sizeof (fpregs_ranges) / sizeof (struct regs_range_t)) + +/* Defined in auto-generated file reg-sparc64.c. */ +void init_registers_sparc64 (void); +extern const struct target_desc *tdesc_sparc64; + +static int +sparc_cannot_store_register (int regno) +{ + return (regno >= sparc_num_regs || sparc_regmap[regno] == -1); +} + +static int +sparc_cannot_fetch_register (int regno) +{ + return (regno >= sparc_num_regs || sparc_regmap[regno] == -1); +} + +static void +sparc_fill_gregset_to_stack (struct regcache *regcache, const void *buf) +{ + int i; + CORE_ADDR addr = 0; + unsigned char tmp_reg_buf[8]; + const int l0_regno = find_regno (regcache->tdesc, "l0"); + const int i7_regno = l0_regno + 15; + + /* These registers have to be stored in the stack. */ + memcpy (&addr, + ((char *) buf) + sparc_regmap[find_regno (regcache->tdesc, "sp")], + sizeof (addr)); + + addr += BIAS; + + for (i = l0_regno; i <= i7_regno; i++) + { + collect_register (regcache, i, tmp_reg_buf); + (*the_target->write_memory) (addr, tmp_reg_buf, sizeof (tmp_reg_buf)); + addr += sizeof (tmp_reg_buf); + } +} + +static void +sparc_fill_gregset (struct regcache *regcache, void *buf) +{ + int i; + int range; + + for (range = 0; range < N_GREGS_RANGES; range++) + for (i = gregs_ranges[range].regno_start; + i <= gregs_ranges[range].regno_end; i++) + if (sparc_regmap[i] != -1) + collect_register (regcache, i, ((char *) buf) + sparc_regmap[i]); + + sparc_fill_gregset_to_stack (regcache, buf); +} + +static void +sparc_fill_fpregset (struct regcache *regcache, void *buf) +{ + int i; + int range; + + for (range = 0; range < N_FPREGS_RANGES; range++) + for (i = fpregs_ranges[range].regno_start; + i <= fpregs_ranges[range].regno_end; i++) + collect_register (regcache, i, ((char *) buf) + sparc_regmap[i]); + +} + +static void +sparc_store_gregset_from_stack (struct regcache *regcache, const void *buf) +{ + int i; + CORE_ADDR addr = 0; + unsigned char tmp_reg_buf[8]; + const int l0_regno = find_regno (regcache->tdesc, "l0"); + const int i7_regno = l0_regno + 15; + + /* These registers have to be obtained from the stack. */ + memcpy (&addr, + ((char *) buf) + sparc_regmap[find_regno (regcache->tdesc, "sp")], + sizeof (addr)); + + addr += BIAS; + + for (i = l0_regno; i <= i7_regno; i++) + { + (*the_target->read_memory) (addr, tmp_reg_buf, sizeof (tmp_reg_buf)); + supply_register (regcache, i, tmp_reg_buf); + addr += sizeof (tmp_reg_buf); + } +} + +static void +sparc_store_gregset (struct regcache *regcache, const void *buf) +{ + int i; + char zerobuf[8]; + int range; + + memset (zerobuf, 0, sizeof (zerobuf)); + + for (range = 0; range < N_GREGS_RANGES; range++) + for (i = gregs_ranges[range].regno_start; + i <= gregs_ranges[range].regno_end; i++) + if (sparc_regmap[i] != -1) + supply_register (regcache, i, ((char *) buf) + sparc_regmap[i]); + else + supply_register (regcache, i, zerobuf); + + sparc_store_gregset_from_stack (regcache, buf); +} + +static void +sparc_store_fpregset (struct regcache *regcache, const void *buf) +{ + int i; + int range; + + for (range = 0; range < N_FPREGS_RANGES; range++) + for (i = fpregs_ranges[range].regno_start; + i <= fpregs_ranges[range].regno_end; + i++) + supply_register (regcache, i, ((char *) buf) + sparc_regmap[i]); +} + +static const gdb_byte sparc_breakpoint[INSN_SIZE] = { + 0x91, 0xd0, 0x20, 0x01 +}; +#define sparc_breakpoint_len INSN_SIZE + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const unsigned char * +sparc_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = sparc_breakpoint_len; + return sparc_breakpoint; +} + +static int +sparc_breakpoint_at (CORE_ADDR where) +{ + unsigned char insn[INSN_SIZE]; + + (*the_target->read_memory) (where, (unsigned char *) insn, sizeof (insn)); + + if (memcmp (sparc_breakpoint, insn, sizeof (insn)) == 0) + return 1; + + /* If necessary, recognize more trap instructions here. GDB only + uses TRAP Always. */ + + return 0; +} + +static void +sparc_arch_setup (void) +{ + current_process ()->tdesc = tdesc_sparc64; +} + +static struct regset_info sparc_regsets[] = { + { PTRACE_GETREGS, PTRACE_SETREGS, 0, sizeof (elf_gregset_t), + GENERAL_REGS, + sparc_fill_gregset, sparc_store_gregset }, + { PTRACE_GETFPREGS, PTRACE_SETFPREGS, 0, sizeof (fpregset_t), + FP_REGS, + sparc_fill_fpregset, sparc_store_fpregset }, + NULL_REGSET +}; + +static struct regsets_info sparc_regsets_info = + { + sparc_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct usrregs_info sparc_usrregs_info = + { + sparc_num_regs, + /* No regmap needs to be provided since this impl. doesn't use + USRREGS. */ + NULL + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &sparc_usrregs_info, + &sparc_regsets_info + }; + +static const struct regs_info * +sparc_regs_info (void) +{ + return ®s_info; +} + +struct linux_target_ops the_low_target = { + sparc_arch_setup, + sparc_regs_info, + sparc_cannot_fetch_register, + sparc_cannot_store_register, + NULL, /* fetch_register */ + linux_get_pc_64bit, + /* No sparc_set_pc is needed. */ + NULL, + NULL, /* breakpoint_kind_from_pc */ + sparc_sw_breakpoint_from_kind, + NULL, /* get_next_pcs */ + 0, + sparc_breakpoint_at, + NULL, /* supports_z_point_type */ + NULL, NULL, NULL, NULL, + NULL, NULL +}; + +void +initialize_low_arch (void) +{ + /* Initialize the Linux target descriptions. */ + init_registers_sparc64 (); + + initialize_regsets_info (&sparc_regsets_info); +} diff --git a/gdbserver/linux-tic6x-low.c b/gdbserver/linux-tic6x-low.c deleted file mode 100644 index 51a31c7876a..00000000000 --- a/gdbserver/linux-tic6x-low.c +++ /dev/null @@ -1,455 +0,0 @@ -/* Target dependent code for GDB on TI C6x systems. - - Copyright (C) 2010-2020 Free Software Foundation, Inc. - Contributed by Andrew Jenner - Contributed by Yao Qi - - 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 . */ - -#include "server.h" -#include "linux-low.h" -#include "arch/tic6x.h" -#include "tdesc.h" - -#include "nat/gdb_ptrace.h" -#include - -#include "gdb_proc_service.h" - -#ifndef PTRACE_GET_THREAD_AREA -#define PTRACE_GET_THREAD_AREA 25 -#endif - -/* There are at most 69 registers accessible in ptrace. */ -#define TIC6X_NUM_REGS 69 - -#include - -/* Defined in auto-generated file tic6x-c64xp-linux.c. */ -void init_registers_tic6x_c64xp_linux (void); -extern const struct target_desc *tdesc_tic6x_c64xp_linux; - -/* Defined in auto-generated file tic6x-c64x-linux.c. */ -void init_registers_tic6x_c64x_linux (void); -extern const struct target_desc *tdesc_tic6x_c64x_linux; - -/* Defined in auto-generated file tic62x-c6xp-linux.c. */ -void init_registers_tic6x_c62x_linux (void); -extern const struct target_desc *tdesc_tic6x_c62x_linux; - -union tic6x_register -{ - unsigned char buf[4]; - - int reg32; -}; - -/* Return the ptrace ``address'' of register REGNO. */ - -#if __BYTE_ORDER == __BIG_ENDIAN -static int tic6x_regmap_c64xp[] = { - /* A0 - A15 */ - 53, 52, 55, 54, 57, 56, 59, 58, - 61, 60, 63, 62, 65, 64, 67, 66, - /* B0 - B15 */ - 23, 22, 25, 24, 27, 26, 29, 28, - 31, 30, 33, 32, 35, 34, 69, 68, - /* CSR PC */ - 5, 4, - /* A16 - A31 */ - 37, 36, 39, 38, 41, 40, 43, 42, - 45, 44, 47, 46, 49, 48, 51, 50, - /* B16 - B31 */ - 7, 6, 9, 8, 11, 10, 13, 12, - 15, 14, 17, 16, 19, 18, 21, 20, - /* TSR, ILC, RILC */ - 1, 2, 3 -}; - -static int tic6x_regmap_c64x[] = { - /* A0 - A15 */ - 51, 50, 53, 52, 55, 54, 57, 56, - 59, 58, 61, 60, 63, 62, 65, 64, - /* B0 - B15 */ - 21, 20, 23, 22, 25, 24, 27, 26, - 29, 28, 31, 30, 33, 32, 67, 66, - /* CSR PC */ - 3, 2, - /* A16 - A31 */ - 35, 34, 37, 36, 39, 38, 41, 40, - 43, 42, 45, 44, 47, 46, 49, 48, - /* B16 - B31 */ - 5, 4, 7, 6, 9, 8, 11, 10, - 13, 12, 15, 14, 17, 16, 19, 18, - -1, -1, -1 -}; - -static int tic6x_regmap_c62x[] = { - /* A0 - A15 */ - 19, 18, 21, 20, 23, 22, 25, 24, - 27, 26, 29, 28, 31, 30, 33, 32, - /* B0 - B15 */ - 5, 4, 7, 6, 9, 8, 11, 10, - 13, 12, 15, 14, 17, 16, 35, 34, - /* CSR, PC */ - 3, 2, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1 -}; - -#else -static int tic6x_regmap_c64xp[] = { - /* A0 - A15 */ - 52, 53, 54, 55, 56, 57, 58, 59, - 60, 61, 62, 63, 64, 65, 66, 67, - /* B0 - B15 */ - 22, 23, 24, 25, 26, 27, 28, 29, - 30, 31, 32, 33, 34, 35, 68, 69, - /* CSR PC */ - 4, 5, - /* A16 - A31 */ - 36, 37, 38, 39, 40, 41, 42, 43, - 44, 45, 46, 47, 48, 49, 50, 51, - /* B16 -B31 */ - 6, 7, 8, 9, 10, 11, 12, 13, - 14, 15, 16, 17, 18, 19, 20, 31, - /* TSR, ILC, RILC */ - 0, 3, 2 -}; - -static int tic6x_regmap_c64x[] = { - /* A0 - A15 */ - 50, 51, 52, 53, 54, 55, 56, 57, - 58, 59, 60, 61, 62, 63, 64, 65, - /* B0 - B15 */ - 20, 21, 22, 23, 24, 25, 26, 27, - 28, 29, 30, 31, 32, 33, 66, 67, - /* CSR PC */ - 2, 3, - /* A16 - A31 */ - 34, 35, 36, 37, 38, 39, 40, 41, - 42, 43, 44, 45, 46, 47, 48, 49, - /* B16 - B31 */ - 4, 5, 6, 7, 8, 9, 10, 11, - 12, 13, 14, 15, 16, 17, 18, 19, - -1, -1, -1 -}; - -static int tic6x_regmap_c62x[] = { - /* A0 - A15 */ - 18, 19, 20, 21, 22, 23, 24, 25, - 26, 27, 28, 29, 30, 31, 32, 33, - /* B0 - B15 */ - 4, 5, 6, 7, 8, 9, 10, 11, - 12, 13, 14, 15, 16, 17, 34, 35, - /* CSR PC */ - 2, 3, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1 -}; - -#endif - -extern struct linux_target_ops the_low_target; - -static int *tic6x_regmap; -static unsigned int tic6x_breakpoint; -#define tic6x_breakpoint_len 4 - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -tic6x_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = tic6x_breakpoint_len; - return (const gdb_byte *) &tic6x_breakpoint; -} - -static struct usrregs_info tic6x_usrregs_info = - { - TIC6X_NUM_REGS, - NULL, /* Set in tic6x_read_description. */ - }; - -static const struct target_desc * -tic6x_read_description (enum c6x_feature feature) -{ - static target_desc *tdescs[C6X_LAST] = { }; - struct target_desc **tdesc = &tdescs[feature]; - - if (*tdesc == NULL) - { - *tdesc = tic6x_create_target_description (feature); - static const char *expedite_regs[] = { "A15", "PC", NULL }; - init_target_desc (*tdesc, expedite_regs); - } - - return *tdesc; -} - -static int -tic6x_cannot_fetch_register (int regno) -{ - return (tic6x_regmap[regno] == -1); -} - -static int -tic6x_cannot_store_register (int regno) -{ - return (tic6x_regmap[regno] == -1); -} - -static CORE_ADDR -tic6x_get_pc (struct regcache *regcache) -{ - union tic6x_register pc; - - collect_register_by_name (regcache, "PC", pc.buf); - return pc.reg32; -} - -static void -tic6x_set_pc (struct regcache *regcache, CORE_ADDR pc) -{ - union tic6x_register newpc; - - newpc.reg32 = pc; - supply_register_by_name (regcache, "PC", newpc.buf); -} - -static int -tic6x_breakpoint_at (CORE_ADDR where) -{ - unsigned int insn; - - (*the_target->read_memory) (where, (unsigned char *) &insn, 4); - if (insn == tic6x_breakpoint) - return 1; - - /* If necessary, recognize more trap instructions here. GDB only uses the - one. */ - return 0; -} - -/* Fetch the thread-local storage pointer for libthread_db. */ - -ps_err_e -ps_get_thread_area (struct ps_prochandle *ph, - lwpid_t lwpid, int idx, void **base) -{ - if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0) - return PS_ERR; - - /* IDX is the bias from the thread pointer to the beginning of the - thread descriptor. It has to be subtracted due to implementation - quirks in libthread_db. */ - *base = (void *) ((char *) *base - idx); - - return PS_OK; -} - -static void -tic6x_collect_register (struct regcache *regcache, int regno, - union tic6x_register *reg) -{ - union tic6x_register tmp_reg; - - collect_register (regcache, regno, &tmp_reg.reg32); - reg->reg32 = tmp_reg.reg32; -} - -static void -tic6x_supply_register (struct regcache *regcache, int regno, - const union tic6x_register *reg) -{ - int offset = 0; - - supply_register (regcache, regno, reg->buf + offset); -} - -static void -tic6x_fill_gregset (struct regcache *regcache, void *buf) -{ - auto regset = static_cast (buf); - int i; - - for (i = 0; i < TIC6X_NUM_REGS; i++) - if (tic6x_regmap[i] != -1) - tic6x_collect_register (regcache, i, regset + tic6x_regmap[i]); -} - -static void -tic6x_store_gregset (struct regcache *regcache, const void *buf) -{ - const auto regset = static_cast (buf); - int i; - - for (i = 0; i < TIC6X_NUM_REGS; i++) - if (tic6x_regmap[i] != -1) - tic6x_supply_register (regcache, i, regset + tic6x_regmap[i]); -} - -static struct regset_info tic6x_regsets[] = { - { PTRACE_GETREGS, PTRACE_SETREGS, 0, TIC6X_NUM_REGS * 4, GENERAL_REGS, - tic6x_fill_gregset, tic6x_store_gregset }, - NULL_REGSET -}; - -static void -tic6x_arch_setup (void) -{ - register unsigned int csr asm ("B2"); - unsigned int cpuid; - enum c6x_feature feature = C6X_CORE; - - /* Determine the CPU we're running on to find the register order. */ - __asm__ ("MVC .S2 CSR,%0" : "=r" (csr) :); - cpuid = csr >> 24; - switch (cpuid) - { - case 0x00: /* C62x */ - case 0x02: /* C67x */ - tic6x_regmap = tic6x_regmap_c62x; - tic6x_breakpoint = 0x0000a122; /* BNOP .S2 0,5 */ - feature = C6X_CORE; - break; - case 0x03: /* C67x+ */ - tic6x_regmap = tic6x_regmap_c64x; - tic6x_breakpoint = 0x0000a122; /* BNOP .S2 0,5 */ - feature = C6X_GP; - break; - case 0x0c: /* C64x */ - tic6x_regmap = tic6x_regmap_c64x; - tic6x_breakpoint = 0x0000a122; /* BNOP .S2 0,5 */ - feature = C6X_GP; - break; - case 0x10: /* C64x+ */ - case 0x14: /* C674x */ - case 0x15: /* C66x */ - tic6x_regmap = tic6x_regmap_c64xp; - tic6x_breakpoint = 0x56454314; /* illegal opcode */ - feature = C6X_C6XP; - break; - default: - error ("Unknown CPU ID 0x%02x", cpuid); - } - tic6x_usrregs_info.regmap = tic6x_regmap; - - current_process ()->tdesc = tic6x_read_description (feature); -} - -/* Support for hardware single step. */ - -static int -tic6x_supports_hardware_single_step (void) -{ - return 1; -} - -static struct regsets_info tic6x_regsets_info = - { - tic6x_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &tic6x_usrregs_info, - &tic6x_regsets_info - }; - -static const struct regs_info * -tic6x_regs_info (void) -{ - return ®s_info; -} - -struct linux_target_ops the_low_target = { - tic6x_arch_setup, - tic6x_regs_info, - tic6x_cannot_fetch_register, - tic6x_cannot_store_register, - NULL, /* fetch_register */ - tic6x_get_pc, - tic6x_set_pc, - NULL, /* breakpoint_kind_from_pc */ - tic6x_sw_breakpoint_from_kind, - NULL, - 0, - tic6x_breakpoint_at, - NULL, /* supports_z_point_type */ - NULL, /* insert_point */ - NULL, /* remove_point */ - NULL, /* stopped_by_watchpoint */ - NULL, /* stopped_data_address */ - NULL, /* collect_ptrace_register */ - NULL, /* supply_ptrace_register */ - NULL, /* siginfo_fixup */ - NULL, /* new_process */ - NULL, /* delete_process */ - NULL, /* new_thread */ - NULL, /* delete_thread */ - NULL, /* new_fork */ - NULL, /* prepare_to_resume */ - NULL, /* process_qsupported */ - NULL, /* supports_tracepoints */ - NULL, /* get_thread_area */ - NULL, /* install_fast_tracepoint_jump_pad */ - NULL, /* emit_ops */ - NULL, /* get_min_fast_tracepoint_insn_len */ - NULL, /* supports_range_stepping */ - NULL, /* breakpoint_kind_from_current_state */ - tic6x_supports_hardware_single_step, -}; - -#if GDB_SELF_TEST -#include "gdbsupport/selftest.h" - -namespace selftests { -namespace tdesc { -static void -tic6x_tdesc_test () -{ - SELF_CHECK (*tdesc_tic6x_c62x_linux == *tic6x_read_description (C6X_CORE)); - SELF_CHECK (*tdesc_tic6x_c64x_linux == *tic6x_read_description (C6X_GP)); - SELF_CHECK (*tdesc_tic6x_c64xp_linux == *tic6x_read_description (C6X_C6XP)); -} -} -} -#endif - -void -initialize_low_arch (void) -{ -#if GDB_SELF_TEST - /* Initialize the Linux target descriptions. */ - init_registers_tic6x_c64xp_linux (); - init_registers_tic6x_c64x_linux (); - init_registers_tic6x_c62x_linux (); - - selftests::register_test ("tic6x-tdesc", selftests::tdesc::tic6x_tdesc_test); -#endif - - initialize_regsets_info (&tic6x_regsets_info); -} diff --git a/gdbserver/linux-tic6x-low.cc b/gdbserver/linux-tic6x-low.cc new file mode 100644 index 00000000000..51a31c7876a --- /dev/null +++ b/gdbserver/linux-tic6x-low.cc @@ -0,0 +1,455 @@ +/* Target dependent code for GDB on TI C6x systems. + + Copyright (C) 2010-2020 Free Software Foundation, Inc. + Contributed by Andrew Jenner + Contributed by Yao Qi + + 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 . */ + +#include "server.h" +#include "linux-low.h" +#include "arch/tic6x.h" +#include "tdesc.h" + +#include "nat/gdb_ptrace.h" +#include + +#include "gdb_proc_service.h" + +#ifndef PTRACE_GET_THREAD_AREA +#define PTRACE_GET_THREAD_AREA 25 +#endif + +/* There are at most 69 registers accessible in ptrace. */ +#define TIC6X_NUM_REGS 69 + +#include + +/* Defined in auto-generated file tic6x-c64xp-linux.c. */ +void init_registers_tic6x_c64xp_linux (void); +extern const struct target_desc *tdesc_tic6x_c64xp_linux; + +/* Defined in auto-generated file tic6x-c64x-linux.c. */ +void init_registers_tic6x_c64x_linux (void); +extern const struct target_desc *tdesc_tic6x_c64x_linux; + +/* Defined in auto-generated file tic62x-c6xp-linux.c. */ +void init_registers_tic6x_c62x_linux (void); +extern const struct target_desc *tdesc_tic6x_c62x_linux; + +union tic6x_register +{ + unsigned char buf[4]; + + int reg32; +}; + +/* Return the ptrace ``address'' of register REGNO. */ + +#if __BYTE_ORDER == __BIG_ENDIAN +static int tic6x_regmap_c64xp[] = { + /* A0 - A15 */ + 53, 52, 55, 54, 57, 56, 59, 58, + 61, 60, 63, 62, 65, 64, 67, 66, + /* B0 - B15 */ + 23, 22, 25, 24, 27, 26, 29, 28, + 31, 30, 33, 32, 35, 34, 69, 68, + /* CSR PC */ + 5, 4, + /* A16 - A31 */ + 37, 36, 39, 38, 41, 40, 43, 42, + 45, 44, 47, 46, 49, 48, 51, 50, + /* B16 - B31 */ + 7, 6, 9, 8, 11, 10, 13, 12, + 15, 14, 17, 16, 19, 18, 21, 20, + /* TSR, ILC, RILC */ + 1, 2, 3 +}; + +static int tic6x_regmap_c64x[] = { + /* A0 - A15 */ + 51, 50, 53, 52, 55, 54, 57, 56, + 59, 58, 61, 60, 63, 62, 65, 64, + /* B0 - B15 */ + 21, 20, 23, 22, 25, 24, 27, 26, + 29, 28, 31, 30, 33, 32, 67, 66, + /* CSR PC */ + 3, 2, + /* A16 - A31 */ + 35, 34, 37, 36, 39, 38, 41, 40, + 43, 42, 45, 44, 47, 46, 49, 48, + /* B16 - B31 */ + 5, 4, 7, 6, 9, 8, 11, 10, + 13, 12, 15, 14, 17, 16, 19, 18, + -1, -1, -1 +}; + +static int tic6x_regmap_c62x[] = { + /* A0 - A15 */ + 19, 18, 21, 20, 23, 22, 25, 24, + 27, 26, 29, 28, 31, 30, 33, 32, + /* B0 - B15 */ + 5, 4, 7, 6, 9, 8, 11, 10, + 13, 12, 15, 14, 17, 16, 35, 34, + /* CSR, PC */ + 3, 2, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1 +}; + +#else +static int tic6x_regmap_c64xp[] = { + /* A0 - A15 */ + 52, 53, 54, 55, 56, 57, 58, 59, + 60, 61, 62, 63, 64, 65, 66, 67, + /* B0 - B15 */ + 22, 23, 24, 25, 26, 27, 28, 29, + 30, 31, 32, 33, 34, 35, 68, 69, + /* CSR PC */ + 4, 5, + /* A16 - A31 */ + 36, 37, 38, 39, 40, 41, 42, 43, + 44, 45, 46, 47, 48, 49, 50, 51, + /* B16 -B31 */ + 6, 7, 8, 9, 10, 11, 12, 13, + 14, 15, 16, 17, 18, 19, 20, 31, + /* TSR, ILC, RILC */ + 0, 3, 2 +}; + +static int tic6x_regmap_c64x[] = { + /* A0 - A15 */ + 50, 51, 52, 53, 54, 55, 56, 57, + 58, 59, 60, 61, 62, 63, 64, 65, + /* B0 - B15 */ + 20, 21, 22, 23, 24, 25, 26, 27, + 28, 29, 30, 31, 32, 33, 66, 67, + /* CSR PC */ + 2, 3, + /* A16 - A31 */ + 34, 35, 36, 37, 38, 39, 40, 41, + 42, 43, 44, 45, 46, 47, 48, 49, + /* B16 - B31 */ + 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, + -1, -1, -1 +}; + +static int tic6x_regmap_c62x[] = { + /* A0 - A15 */ + 18, 19, 20, 21, 22, 23, 24, 25, + 26, 27, 28, 29, 30, 31, 32, 33, + /* B0 - B15 */ + 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 34, 35, + /* CSR PC */ + 2, 3, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1 +}; + +#endif + +extern struct linux_target_ops the_low_target; + +static int *tic6x_regmap; +static unsigned int tic6x_breakpoint; +#define tic6x_breakpoint_len 4 + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +tic6x_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = tic6x_breakpoint_len; + return (const gdb_byte *) &tic6x_breakpoint; +} + +static struct usrregs_info tic6x_usrregs_info = + { + TIC6X_NUM_REGS, + NULL, /* Set in tic6x_read_description. */ + }; + +static const struct target_desc * +tic6x_read_description (enum c6x_feature feature) +{ + static target_desc *tdescs[C6X_LAST] = { }; + struct target_desc **tdesc = &tdescs[feature]; + + if (*tdesc == NULL) + { + *tdesc = tic6x_create_target_description (feature); + static const char *expedite_regs[] = { "A15", "PC", NULL }; + init_target_desc (*tdesc, expedite_regs); + } + + return *tdesc; +} + +static int +tic6x_cannot_fetch_register (int regno) +{ + return (tic6x_regmap[regno] == -1); +} + +static int +tic6x_cannot_store_register (int regno) +{ + return (tic6x_regmap[regno] == -1); +} + +static CORE_ADDR +tic6x_get_pc (struct regcache *regcache) +{ + union tic6x_register pc; + + collect_register_by_name (regcache, "PC", pc.buf); + return pc.reg32; +} + +static void +tic6x_set_pc (struct regcache *regcache, CORE_ADDR pc) +{ + union tic6x_register newpc; + + newpc.reg32 = pc; + supply_register_by_name (regcache, "PC", newpc.buf); +} + +static int +tic6x_breakpoint_at (CORE_ADDR where) +{ + unsigned int insn; + + (*the_target->read_memory) (where, (unsigned char *) &insn, 4); + if (insn == tic6x_breakpoint) + return 1; + + /* If necessary, recognize more trap instructions here. GDB only uses the + one. */ + return 0; +} + +/* Fetch the thread-local storage pointer for libthread_db. */ + +ps_err_e +ps_get_thread_area (struct ps_prochandle *ph, + lwpid_t lwpid, int idx, void **base) +{ + if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0) + return PS_ERR; + + /* IDX is the bias from the thread pointer to the beginning of the + thread descriptor. It has to be subtracted due to implementation + quirks in libthread_db. */ + *base = (void *) ((char *) *base - idx); + + return PS_OK; +} + +static void +tic6x_collect_register (struct regcache *regcache, int regno, + union tic6x_register *reg) +{ + union tic6x_register tmp_reg; + + collect_register (regcache, regno, &tmp_reg.reg32); + reg->reg32 = tmp_reg.reg32; +} + +static void +tic6x_supply_register (struct regcache *regcache, int regno, + const union tic6x_register *reg) +{ + int offset = 0; + + supply_register (regcache, regno, reg->buf + offset); +} + +static void +tic6x_fill_gregset (struct regcache *regcache, void *buf) +{ + auto regset = static_cast (buf); + int i; + + for (i = 0; i < TIC6X_NUM_REGS; i++) + if (tic6x_regmap[i] != -1) + tic6x_collect_register (regcache, i, regset + tic6x_regmap[i]); +} + +static void +tic6x_store_gregset (struct regcache *regcache, const void *buf) +{ + const auto regset = static_cast (buf); + int i; + + for (i = 0; i < TIC6X_NUM_REGS; i++) + if (tic6x_regmap[i] != -1) + tic6x_supply_register (regcache, i, regset + tic6x_regmap[i]); +} + +static struct regset_info tic6x_regsets[] = { + { PTRACE_GETREGS, PTRACE_SETREGS, 0, TIC6X_NUM_REGS * 4, GENERAL_REGS, + tic6x_fill_gregset, tic6x_store_gregset }, + NULL_REGSET +}; + +static void +tic6x_arch_setup (void) +{ + register unsigned int csr asm ("B2"); + unsigned int cpuid; + enum c6x_feature feature = C6X_CORE; + + /* Determine the CPU we're running on to find the register order. */ + __asm__ ("MVC .S2 CSR,%0" : "=r" (csr) :); + cpuid = csr >> 24; + switch (cpuid) + { + case 0x00: /* C62x */ + case 0x02: /* C67x */ + tic6x_regmap = tic6x_regmap_c62x; + tic6x_breakpoint = 0x0000a122; /* BNOP .S2 0,5 */ + feature = C6X_CORE; + break; + case 0x03: /* C67x+ */ + tic6x_regmap = tic6x_regmap_c64x; + tic6x_breakpoint = 0x0000a122; /* BNOP .S2 0,5 */ + feature = C6X_GP; + break; + case 0x0c: /* C64x */ + tic6x_regmap = tic6x_regmap_c64x; + tic6x_breakpoint = 0x0000a122; /* BNOP .S2 0,5 */ + feature = C6X_GP; + break; + case 0x10: /* C64x+ */ + case 0x14: /* C674x */ + case 0x15: /* C66x */ + tic6x_regmap = tic6x_regmap_c64xp; + tic6x_breakpoint = 0x56454314; /* illegal opcode */ + feature = C6X_C6XP; + break; + default: + error ("Unknown CPU ID 0x%02x", cpuid); + } + tic6x_usrregs_info.regmap = tic6x_regmap; + + current_process ()->tdesc = tic6x_read_description (feature); +} + +/* Support for hardware single step. */ + +static int +tic6x_supports_hardware_single_step (void) +{ + return 1; +} + +static struct regsets_info tic6x_regsets_info = + { + tic6x_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &tic6x_usrregs_info, + &tic6x_regsets_info + }; + +static const struct regs_info * +tic6x_regs_info (void) +{ + return ®s_info; +} + +struct linux_target_ops the_low_target = { + tic6x_arch_setup, + tic6x_regs_info, + tic6x_cannot_fetch_register, + tic6x_cannot_store_register, + NULL, /* fetch_register */ + tic6x_get_pc, + tic6x_set_pc, + NULL, /* breakpoint_kind_from_pc */ + tic6x_sw_breakpoint_from_kind, + NULL, + 0, + tic6x_breakpoint_at, + NULL, /* supports_z_point_type */ + NULL, /* insert_point */ + NULL, /* remove_point */ + NULL, /* stopped_by_watchpoint */ + NULL, /* stopped_data_address */ + NULL, /* collect_ptrace_register */ + NULL, /* supply_ptrace_register */ + NULL, /* siginfo_fixup */ + NULL, /* new_process */ + NULL, /* delete_process */ + NULL, /* new_thread */ + NULL, /* delete_thread */ + NULL, /* new_fork */ + NULL, /* prepare_to_resume */ + NULL, /* process_qsupported */ + NULL, /* supports_tracepoints */ + NULL, /* get_thread_area */ + NULL, /* install_fast_tracepoint_jump_pad */ + NULL, /* emit_ops */ + NULL, /* get_min_fast_tracepoint_insn_len */ + NULL, /* supports_range_stepping */ + NULL, /* breakpoint_kind_from_current_state */ + tic6x_supports_hardware_single_step, +}; + +#if GDB_SELF_TEST +#include "gdbsupport/selftest.h" + +namespace selftests { +namespace tdesc { +static void +tic6x_tdesc_test () +{ + SELF_CHECK (*tdesc_tic6x_c62x_linux == *tic6x_read_description (C6X_CORE)); + SELF_CHECK (*tdesc_tic6x_c64x_linux == *tic6x_read_description (C6X_GP)); + SELF_CHECK (*tdesc_tic6x_c64xp_linux == *tic6x_read_description (C6X_C6XP)); +} +} +} +#endif + +void +initialize_low_arch (void) +{ +#if GDB_SELF_TEST + /* Initialize the Linux target descriptions. */ + init_registers_tic6x_c64xp_linux (); + init_registers_tic6x_c64x_linux (); + init_registers_tic6x_c62x_linux (); + + selftests::register_test ("tic6x-tdesc", selftests::tdesc::tic6x_tdesc_test); +#endif + + initialize_regsets_info (&tic6x_regsets_info); +} diff --git a/gdbserver/linux-tile-low.c b/gdbserver/linux-tile-low.c deleted file mode 100644 index cd85e945a46..00000000000 --- a/gdbserver/linux-tile-low.c +++ /dev/null @@ -1,222 +0,0 @@ -/* GNU/Linux/TILE-Gx specific low level interface, GDBserver. - - Copyright (C) 2012-2020 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 . */ - -#include "server.h" -#include "linux-low.h" - -#include -#include "nat/gdb_ptrace.h" - -/* Defined in auto-generated file reg-tilegx.c. */ -void init_registers_tilegx (void); -extern const struct target_desc *tdesc_tilegx; - -/* Defined in auto-generated file reg-tilegx32.c. */ -void init_registers_tilegx32 (void); -extern const struct target_desc *tdesc_tilegx32; - -#define tile_num_regs 65 - -static int tile_regmap[] = -{ - 0, 1, 2, 3, 4, 5, 6, 7, - 8, 9, 10, 11, 12, 13, 14, 15, - 16, 17, 18, 19, 20, 21, 22, 23, - 24, 25, 26, 27, 28, 29, 30, 31, - 32, 33, 34, 35, 36, 37, 38, 39, - 40, 41, 42, 43, 44, 45, 46, 47, - 48, 49, 50, 51, 52, 53, 54, 55, - -1, -1, -1, -1, -1, -1, -1, -1, - 56 -}; - -static int -tile_cannot_fetch_register (int regno) -{ - if (regno >= 0 && regno < 56) - return 0; - else if (regno == 64) - return 0; - else - return 1; -} - -static int -tile_cannot_store_register (int regno) -{ - if (regno >= 0 && regno < 56) - return 0; - else if (regno == 64) - return 0; - else - return 1; -} - -static uint64_t tile_breakpoint = 0x400b3cae70166000ULL; -#define tile_breakpoint_len 8 - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -tile_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = tile_breakpoint_len; - return (const gdb_byte *) &tile_breakpoint; -} - -static int -tile_breakpoint_at (CORE_ADDR where) -{ - uint64_t insn; - - (*the_target->read_memory) (where, (unsigned char *) &insn, 8); - if (insn == tile_breakpoint) - return 1; - - /* If necessary, recognize more trap instructions here. GDB only uses the - one. */ - return 0; -} - -static void -tile_fill_gregset (struct regcache *regcache, void *buf) -{ - int i; - - for (i = 0; i < tile_num_regs; i++) - if (tile_regmap[i] != -1) - collect_register (regcache, i, ((uint_reg_t *) buf) + tile_regmap[i]); -} - -static void -tile_store_gregset (struct regcache *regcache, const void *buf) -{ - int i; - - for (i = 0; i < tile_num_regs; i++) - if (tile_regmap[i] != -1) - supply_register (regcache, i, ((uint_reg_t *) buf) + tile_regmap[i]); -} - -static struct regset_info tile_regsets[] = -{ - { PTRACE_GETREGS, PTRACE_SETREGS, 0, tile_num_regs * 8, - GENERAL_REGS, tile_fill_gregset, tile_store_gregset }, - NULL_REGSET -}; - -static struct regsets_info tile_regsets_info = - { - tile_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct usrregs_info tile_usrregs_info = - { - tile_num_regs, - tile_regmap, - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - &tile_usrregs_info, - &tile_regsets_info, - }; - -static const struct regs_info * -tile_regs_info (void) -{ - return ®s_info; -} - -static void -tile_arch_setup (void) -{ - int pid = pid_of (current_thread); - unsigned int machine; - int is_elf64 = linux_pid_exe_is_elf_64_file (pid, &machine); - - if (sizeof (void *) == 4) - if (is_elf64 > 0) - error (_("Can't debug 64-bit process with 32-bit GDBserver")); - - if (!is_elf64) - current_process ()->tdesc = tdesc_tilegx32; - else - current_process ()->tdesc = tdesc_tilegx; -} - -/* Support for hardware single step. */ - -static int -tile_supports_hardware_single_step (void) -{ - return 1; -} - - -struct linux_target_ops the_low_target = -{ - tile_arch_setup, - tile_regs_info, - tile_cannot_fetch_register, - tile_cannot_store_register, - NULL, - linux_get_pc_64bit, - linux_set_pc_64bit, - NULL, /* breakpoint_kind_from_pc */ - tile_sw_breakpoint_from_kind, - NULL, - 0, - tile_breakpoint_at, - NULL, /* supports_z_point_type */ - NULL, /* insert_point */ - NULL, /* remove_point */ - NULL, /* stopped_by_watchpoint */ - NULL, /* stopped_data_address */ - NULL, /* collect_ptrace_register */ - NULL, /* supply_ptrace_register */ - NULL, /* siginfo_fixup */ - NULL, /* new_process */ - NULL, /* delete_process */ - NULL, /* new_thread */ - NULL, /* delete_thread */ - NULL, /* new_fork */ - NULL, /* prepare_to_resume */ - NULL, /* process_qsupported */ - NULL, /* supports_tracepoints */ - NULL, /* get_thread_area */ - NULL, /* install_fast_tracepoint_jump_pad */ - NULL, /* emit_ops */ - NULL, /* get_min_fast_tracepoint_insn_len */ - NULL, /* supports_range_stepping */ - NULL, /* breakpoint_kind_from_current_state */ - tile_supports_hardware_single_step, -}; - -void -initialize_low_arch (void) -{ - init_registers_tilegx32(); - init_registers_tilegx(); - - initialize_regsets_info (&tile_regsets_info); -} diff --git a/gdbserver/linux-tile-low.cc b/gdbserver/linux-tile-low.cc new file mode 100644 index 00000000000..cd85e945a46 --- /dev/null +++ b/gdbserver/linux-tile-low.cc @@ -0,0 +1,222 @@ +/* GNU/Linux/TILE-Gx specific low level interface, GDBserver. + + Copyright (C) 2012-2020 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 . */ + +#include "server.h" +#include "linux-low.h" + +#include +#include "nat/gdb_ptrace.h" + +/* Defined in auto-generated file reg-tilegx.c. */ +void init_registers_tilegx (void); +extern const struct target_desc *tdesc_tilegx; + +/* Defined in auto-generated file reg-tilegx32.c. */ +void init_registers_tilegx32 (void); +extern const struct target_desc *tdesc_tilegx32; + +#define tile_num_regs 65 + +static int tile_regmap[] = +{ + 0, 1, 2, 3, 4, 5, 6, 7, + 8, 9, 10, 11, 12, 13, 14, 15, + 16, 17, 18, 19, 20, 21, 22, 23, + 24, 25, 26, 27, 28, 29, 30, 31, + 32, 33, 34, 35, 36, 37, 38, 39, + 40, 41, 42, 43, 44, 45, 46, 47, + 48, 49, 50, 51, 52, 53, 54, 55, + -1, -1, -1, -1, -1, -1, -1, -1, + 56 +}; + +static int +tile_cannot_fetch_register (int regno) +{ + if (regno >= 0 && regno < 56) + return 0; + else if (regno == 64) + return 0; + else + return 1; +} + +static int +tile_cannot_store_register (int regno) +{ + if (regno >= 0 && regno < 56) + return 0; + else if (regno == 64) + return 0; + else + return 1; +} + +static uint64_t tile_breakpoint = 0x400b3cae70166000ULL; +#define tile_breakpoint_len 8 + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +tile_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = tile_breakpoint_len; + return (const gdb_byte *) &tile_breakpoint; +} + +static int +tile_breakpoint_at (CORE_ADDR where) +{ + uint64_t insn; + + (*the_target->read_memory) (where, (unsigned char *) &insn, 8); + if (insn == tile_breakpoint) + return 1; + + /* If necessary, recognize more trap instructions here. GDB only uses the + one. */ + return 0; +} + +static void +tile_fill_gregset (struct regcache *regcache, void *buf) +{ + int i; + + for (i = 0; i < tile_num_regs; i++) + if (tile_regmap[i] != -1) + collect_register (regcache, i, ((uint_reg_t *) buf) + tile_regmap[i]); +} + +static void +tile_store_gregset (struct regcache *regcache, const void *buf) +{ + int i; + + for (i = 0; i < tile_num_regs; i++) + if (tile_regmap[i] != -1) + supply_register (regcache, i, ((uint_reg_t *) buf) + tile_regmap[i]); +} + +static struct regset_info tile_regsets[] = +{ + { PTRACE_GETREGS, PTRACE_SETREGS, 0, tile_num_regs * 8, + GENERAL_REGS, tile_fill_gregset, tile_store_gregset }, + NULL_REGSET +}; + +static struct regsets_info tile_regsets_info = + { + tile_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct usrregs_info tile_usrregs_info = + { + tile_num_regs, + tile_regmap, + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + &tile_usrregs_info, + &tile_regsets_info, + }; + +static const struct regs_info * +tile_regs_info (void) +{ + return ®s_info; +} + +static void +tile_arch_setup (void) +{ + int pid = pid_of (current_thread); + unsigned int machine; + int is_elf64 = linux_pid_exe_is_elf_64_file (pid, &machine); + + if (sizeof (void *) == 4) + if (is_elf64 > 0) + error (_("Can't debug 64-bit process with 32-bit GDBserver")); + + if (!is_elf64) + current_process ()->tdesc = tdesc_tilegx32; + else + current_process ()->tdesc = tdesc_tilegx; +} + +/* Support for hardware single step. */ + +static int +tile_supports_hardware_single_step (void) +{ + return 1; +} + + +struct linux_target_ops the_low_target = +{ + tile_arch_setup, + tile_regs_info, + tile_cannot_fetch_register, + tile_cannot_store_register, + NULL, + linux_get_pc_64bit, + linux_set_pc_64bit, + NULL, /* breakpoint_kind_from_pc */ + tile_sw_breakpoint_from_kind, + NULL, + 0, + tile_breakpoint_at, + NULL, /* supports_z_point_type */ + NULL, /* insert_point */ + NULL, /* remove_point */ + NULL, /* stopped_by_watchpoint */ + NULL, /* stopped_data_address */ + NULL, /* collect_ptrace_register */ + NULL, /* supply_ptrace_register */ + NULL, /* siginfo_fixup */ + NULL, /* new_process */ + NULL, /* delete_process */ + NULL, /* new_thread */ + NULL, /* delete_thread */ + NULL, /* new_fork */ + NULL, /* prepare_to_resume */ + NULL, /* process_qsupported */ + NULL, /* supports_tracepoints */ + NULL, /* get_thread_area */ + NULL, /* install_fast_tracepoint_jump_pad */ + NULL, /* emit_ops */ + NULL, /* get_min_fast_tracepoint_insn_len */ + NULL, /* supports_range_stepping */ + NULL, /* breakpoint_kind_from_current_state */ + tile_supports_hardware_single_step, +}; + +void +initialize_low_arch (void) +{ + init_registers_tilegx32(); + init_registers_tilegx(); + + initialize_regsets_info (&tile_regsets_info); +} diff --git a/gdbserver/linux-x86-low.c b/gdbserver/linux-x86-low.c deleted file mode 100644 index 09ec22ff678..00000000000 --- a/gdbserver/linux-x86-low.c +++ /dev/null @@ -1,2922 +0,0 @@ -/* GNU/Linux/x86-64 specific low level interface, for the remote server - for GDB. - Copyright (C) 2002-2020 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 . */ - -#include "server.h" -#include -#include -#include -#include "linux-low.h" -#include "i387-fp.h" -#include "x86-low.h" -#include "gdbsupport/x86-xstate.h" -#include "nat/gdb_ptrace.h" - -#ifdef __x86_64__ -#include "nat/amd64-linux-siginfo.h" -#endif - -#include "gdb_proc_service.h" -/* Don't include elf/common.h if linux/elf.h got included by - gdb_proc_service.h. */ -#ifndef ELFMAG0 -#include "elf/common.h" -#endif - -#include "gdbsupport/agent.h" -#include "tdesc.h" -#include "tracepoint.h" -#include "ax.h" -#include "nat/linux-nat.h" -#include "nat/x86-linux.h" -#include "nat/x86-linux-dregs.h" -#include "linux-x86-tdesc.h" - -#ifdef __x86_64__ -static struct target_desc *tdesc_amd64_linux_no_xml; -#endif -static struct target_desc *tdesc_i386_linux_no_xml; - - -static unsigned char jump_insn[] = { 0xe9, 0, 0, 0, 0 }; -static unsigned char small_jump_insn[] = { 0x66, 0xe9, 0, 0 }; - -/* Backward compatibility for gdb without XML support. */ - -static const char *xmltarget_i386_linux_no_xml = "@\ -i386\ -GNU/Linux\ -"; - -#ifdef __x86_64__ -static const char *xmltarget_amd64_linux_no_xml = "@\ -i386:x86-64\ -GNU/Linux\ -"; -#endif - -#include -#include -#include - -#ifndef PTRACE_GET_THREAD_AREA -#define PTRACE_GET_THREAD_AREA 25 -#endif - -/* This definition comes from prctl.h, but some kernels may not have it. */ -#ifndef PTRACE_ARCH_PRCTL -#define PTRACE_ARCH_PRCTL 30 -#endif - -/* The following definitions come from prctl.h, but may be absent - for certain configurations. */ -#ifndef ARCH_GET_FS -#define ARCH_SET_GS 0x1001 -#define ARCH_SET_FS 0x1002 -#define ARCH_GET_FS 0x1003 -#define ARCH_GET_GS 0x1004 -#endif - -/* Per-process arch-specific data we want to keep. */ - -struct arch_process_info -{ - struct x86_debug_reg_state debug_reg_state; -}; - -#ifdef __x86_64__ - -/* Mapping between the general-purpose registers in `struct user' - format and GDB's register array layout. - Note that the transfer layout uses 64-bit regs. */ -static /*const*/ int i386_regmap[] = -{ - RAX * 8, RCX * 8, RDX * 8, RBX * 8, - RSP * 8, RBP * 8, RSI * 8, RDI * 8, - RIP * 8, EFLAGS * 8, CS * 8, SS * 8, - DS * 8, ES * 8, FS * 8, GS * 8 -}; - -#define I386_NUM_REGS (sizeof (i386_regmap) / sizeof (i386_regmap[0])) - -/* So code below doesn't have to care, i386 or amd64. */ -#define ORIG_EAX ORIG_RAX -#define REGSIZE 8 - -static const int x86_64_regmap[] = -{ - RAX * 8, RBX * 8, RCX * 8, RDX * 8, - RSI * 8, RDI * 8, RBP * 8, RSP * 8, - R8 * 8, R9 * 8, R10 * 8, R11 * 8, - R12 * 8, R13 * 8, R14 * 8, R15 * 8, - RIP * 8, EFLAGS * 8, CS * 8, SS * 8, - DS * 8, ES * 8, FS * 8, GS * 8, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, - -1, -1, -1, -1, -1, -1, -1, -1, - ORIG_RAX * 8, -#ifdef HAVE_STRUCT_USER_REGS_STRUCT_FS_BASE - 21 * 8, 22 * 8, -#else - -1, -1, -#endif - -1, -1, -1, -1, /* MPX registers BND0 ... BND3. */ - -1, -1, /* MPX registers BNDCFGU, BNDSTATUS. */ - -1, -1, -1, -1, -1, -1, -1, -1, /* xmm16 ... xmm31 (AVX512) */ - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, /* ymm16 ... ymm31 (AVX512) */ - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, /* k0 ... k7 (AVX512) */ - -1, -1, -1, -1, -1, -1, -1, -1, /* zmm0 ... zmm31 (AVX512) */ - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, - -1 /* pkru */ -}; - -#define X86_64_NUM_REGS (sizeof (x86_64_regmap) / sizeof (x86_64_regmap[0])) -#define X86_64_USER_REGS (GS + 1) - -#else /* ! __x86_64__ */ - -/* Mapping between the general-purpose registers in `struct user' - format and GDB's register array layout. */ -static /*const*/ int i386_regmap[] = -{ - EAX * 4, ECX * 4, EDX * 4, EBX * 4, - UESP * 4, EBP * 4, ESI * 4, EDI * 4, - EIP * 4, EFL * 4, CS * 4, SS * 4, - DS * 4, ES * 4, FS * 4, GS * 4 -}; - -#define I386_NUM_REGS (sizeof (i386_regmap) / sizeof (i386_regmap[0])) - -#define REGSIZE 4 - -#endif - -#ifdef __x86_64__ - -/* Returns true if the current inferior belongs to a x86-64 process, - per the tdesc. */ - -static int -is_64bit_tdesc (void) -{ - struct regcache *regcache = get_thread_regcache (current_thread, 0); - - return register_size (regcache->tdesc, 0) == 8; -} - -#endif - - -/* Called by libthread_db. */ - -ps_err_e -ps_get_thread_area (struct ps_prochandle *ph, - lwpid_t lwpid, int idx, void **base) -{ -#ifdef __x86_64__ - int use_64bit = is_64bit_tdesc (); - - if (use_64bit) - { - switch (idx) - { - case FS: - if (ptrace (PTRACE_ARCH_PRCTL, lwpid, base, ARCH_GET_FS) == 0) - return PS_OK; - break; - case GS: - if (ptrace (PTRACE_ARCH_PRCTL, lwpid, base, ARCH_GET_GS) == 0) - return PS_OK; - break; - default: - return PS_BADADDR; - } - return PS_ERR; - } -#endif - - { - unsigned int desc[4]; - - if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, - (void *) (intptr_t) idx, (unsigned long) &desc) < 0) - return PS_ERR; - - /* Ensure we properly extend the value to 64-bits for x86_64. */ - *base = (void *) (uintptr_t) desc[1]; - return PS_OK; - } -} - -/* Get the thread area address. This is used to recognize which - thread is which when tracing with the in-process agent library. We - don't read anything from the address, and treat it as opaque; it's - the address itself that we assume is unique per-thread. */ - -static int -x86_get_thread_area (int lwpid, CORE_ADDR *addr) -{ -#ifdef __x86_64__ - int use_64bit = is_64bit_tdesc (); - - if (use_64bit) - { - void *base; - if (ptrace (PTRACE_ARCH_PRCTL, lwpid, &base, ARCH_GET_FS) == 0) - { - *addr = (CORE_ADDR) (uintptr_t) base; - return 0; - } - - return -1; - } -#endif - - { - struct lwp_info *lwp = find_lwp_pid (ptid_t (lwpid)); - struct thread_info *thr = get_lwp_thread (lwp); - struct regcache *regcache = get_thread_regcache (thr, 1); - unsigned int desc[4]; - ULONGEST gs = 0; - const int reg_thread_area = 3; /* bits to scale down register value. */ - int idx; - - collect_register_by_name (regcache, "gs", &gs); - - idx = gs >> reg_thread_area; - - if (ptrace (PTRACE_GET_THREAD_AREA, - lwpid_of (thr), - (void *) (long) idx, (unsigned long) &desc) < 0) - return -1; - - *addr = desc[1]; - return 0; - } -} - - - -static int -x86_cannot_store_register (int regno) -{ -#ifdef __x86_64__ - if (is_64bit_tdesc ()) - return 0; -#endif - - return regno >= I386_NUM_REGS; -} - -static int -x86_cannot_fetch_register (int regno) -{ -#ifdef __x86_64__ - if (is_64bit_tdesc ()) - return 0; -#endif - - return regno >= I386_NUM_REGS; -} - -static void -x86_fill_gregset (struct regcache *regcache, void *buf) -{ - int i; - -#ifdef __x86_64__ - if (register_size (regcache->tdesc, 0) == 8) - { - for (i = 0; i < X86_64_NUM_REGS; i++) - if (x86_64_regmap[i] != -1) - collect_register (regcache, i, ((char *) buf) + x86_64_regmap[i]); - -#ifndef HAVE_STRUCT_USER_REGS_STRUCT_FS_BASE - { - unsigned long base; - int lwpid = lwpid_of (current_thread); - - collect_register_by_name (regcache, "fs_base", &base); - ptrace (PTRACE_ARCH_PRCTL, lwpid, &base, ARCH_SET_FS); - - collect_register_by_name (regcache, "gs_base", &base); - ptrace (PTRACE_ARCH_PRCTL, lwpid, &base, ARCH_SET_GS); - } -#endif - - return; - } - - /* 32-bit inferior registers need to be zero-extended. - Callers would read uninitialized memory otherwise. */ - memset (buf, 0x00, X86_64_USER_REGS * 8); -#endif - - for (i = 0; i < I386_NUM_REGS; i++) - collect_register (regcache, i, ((char *) buf) + i386_regmap[i]); - - collect_register_by_name (regcache, "orig_eax", - ((char *) buf) + ORIG_EAX * REGSIZE); - -#ifdef __x86_64__ - /* Sign extend EAX value to avoid potential syscall restart - problems. - - See amd64_linux_collect_native_gregset() in gdb/amd64-linux-nat.c - for a detailed explanation. */ - if (register_size (regcache->tdesc, 0) == 4) - { - void *ptr = ((gdb_byte *) buf - + i386_regmap[find_regno (regcache->tdesc, "eax")]); - - *(int64_t *) ptr = *(int32_t *) ptr; - } -#endif -} - -static void -x86_store_gregset (struct regcache *regcache, const void *buf) -{ - int i; - -#ifdef __x86_64__ - if (register_size (regcache->tdesc, 0) == 8) - { - for (i = 0; i < X86_64_NUM_REGS; i++) - if (x86_64_regmap[i] != -1) - supply_register (regcache, i, ((char *) buf) + x86_64_regmap[i]); - -#ifndef HAVE_STRUCT_USER_REGS_STRUCT_FS_BASE - { - unsigned long base; - int lwpid = lwpid_of (current_thread); - - if (ptrace (PTRACE_ARCH_PRCTL, lwpid, &base, ARCH_GET_FS) == 0) - supply_register_by_name (regcache, "fs_base", &base); - - if (ptrace (PTRACE_ARCH_PRCTL, lwpid, &base, ARCH_GET_GS) == 0) - supply_register_by_name (regcache, "gs_base", &base); - } -#endif - return; - } -#endif - - for (i = 0; i < I386_NUM_REGS; i++) - supply_register (regcache, i, ((char *) buf) + i386_regmap[i]); - - supply_register_by_name (regcache, "orig_eax", - ((char *) buf) + ORIG_EAX * REGSIZE); -} - -static void -x86_fill_fpregset (struct regcache *regcache, void *buf) -{ -#ifdef __x86_64__ - i387_cache_to_fxsave (regcache, buf); -#else - i387_cache_to_fsave (regcache, buf); -#endif -} - -static void -x86_store_fpregset (struct regcache *regcache, const void *buf) -{ -#ifdef __x86_64__ - i387_fxsave_to_cache (regcache, buf); -#else - i387_fsave_to_cache (regcache, buf); -#endif -} - -#ifndef __x86_64__ - -static void -x86_fill_fpxregset (struct regcache *regcache, void *buf) -{ - i387_cache_to_fxsave (regcache, buf); -} - -static void -x86_store_fpxregset (struct regcache *regcache, const void *buf) -{ - i387_fxsave_to_cache (regcache, buf); -} - -#endif - -static void -x86_fill_xstateregset (struct regcache *regcache, void *buf) -{ - i387_cache_to_xsave (regcache, buf); -} - -static void -x86_store_xstateregset (struct regcache *regcache, const void *buf) -{ - i387_xsave_to_cache (regcache, buf); -} - -/* ??? The non-biarch i386 case stores all the i387 regs twice. - Once in i387_.*fsave.* and once in i387_.*fxsave.*. - This is, presumably, to handle the case where PTRACE_[GS]ETFPXREGS - doesn't work. IWBN to avoid the duplication in the case where it - does work. Maybe the arch_setup routine could check whether it works - and update the supported regsets accordingly. */ - -static struct regset_info x86_regsets[] = -{ -#ifdef HAVE_PTRACE_GETREGS - { PTRACE_GETREGS, PTRACE_SETREGS, 0, sizeof (elf_gregset_t), - GENERAL_REGS, - x86_fill_gregset, x86_store_gregset }, - { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_X86_XSTATE, 0, - EXTENDED_REGS, x86_fill_xstateregset, x86_store_xstateregset }, -# ifndef __x86_64__ -# ifdef HAVE_PTRACE_GETFPXREGS - { PTRACE_GETFPXREGS, PTRACE_SETFPXREGS, 0, sizeof (elf_fpxregset_t), - EXTENDED_REGS, - x86_fill_fpxregset, x86_store_fpxregset }, -# endif -# endif - { PTRACE_GETFPREGS, PTRACE_SETFPREGS, 0, sizeof (elf_fpregset_t), - FP_REGS, - x86_fill_fpregset, x86_store_fpregset }, -#endif /* HAVE_PTRACE_GETREGS */ - NULL_REGSET -}; - -static CORE_ADDR -x86_get_pc (struct regcache *regcache) -{ - int use_64bit = register_size (regcache->tdesc, 0) == 8; - - if (use_64bit) - { - uint64_t pc; - - collect_register_by_name (regcache, "rip", &pc); - return (CORE_ADDR) pc; - } - else - { - uint32_t pc; - - collect_register_by_name (regcache, "eip", &pc); - return (CORE_ADDR) pc; - } -} - -static void -x86_set_pc (struct regcache *regcache, CORE_ADDR pc) -{ - int use_64bit = register_size (regcache->tdesc, 0) == 8; - - if (use_64bit) - { - uint64_t newpc = pc; - - supply_register_by_name (regcache, "rip", &newpc); - } - else - { - uint32_t newpc = pc; - - supply_register_by_name (regcache, "eip", &newpc); - } -} - -static const gdb_byte x86_breakpoint[] = { 0xCC }; -#define x86_breakpoint_len 1 - -static int -x86_breakpoint_at (CORE_ADDR pc) -{ - unsigned char c; - - (*the_target->read_memory) (pc, &c, 1); - if (c == 0xCC) - return 1; - - return 0; -} - -/* Low-level function vector. */ -struct x86_dr_low_type x86_dr_low = - { - x86_linux_dr_set_control, - x86_linux_dr_set_addr, - x86_linux_dr_get_addr, - x86_linux_dr_get_status, - x86_linux_dr_get_control, - sizeof (void *), - }; - -/* Breakpoint/Watchpoint support. */ - -static int -x86_supports_z_point_type (char z_type) -{ - switch (z_type) - { - case Z_PACKET_SW_BP: - case Z_PACKET_HW_BP: - case Z_PACKET_WRITE_WP: - case Z_PACKET_ACCESS_WP: - return 1; - default: - return 0; - } -} - -static int -x86_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, - int size, struct raw_breakpoint *bp) -{ - struct process_info *proc = current_process (); - - switch (type) - { - case raw_bkpt_type_hw: - case raw_bkpt_type_write_wp: - case raw_bkpt_type_access_wp: - { - enum target_hw_bp_type hw_type - = raw_bkpt_type_to_target_hw_bp_type (type); - struct x86_debug_reg_state *state - = &proc->priv->arch_private->debug_reg_state; - - return x86_dr_insert_watchpoint (state, hw_type, addr, size); - } - - default: - /* Unsupported. */ - return 1; - } -} - -static int -x86_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, - int size, struct raw_breakpoint *bp) -{ - struct process_info *proc = current_process (); - - switch (type) - { - case raw_bkpt_type_hw: - case raw_bkpt_type_write_wp: - case raw_bkpt_type_access_wp: - { - enum target_hw_bp_type hw_type - = raw_bkpt_type_to_target_hw_bp_type (type); - struct x86_debug_reg_state *state - = &proc->priv->arch_private->debug_reg_state; - - return x86_dr_remove_watchpoint (state, hw_type, addr, size); - } - default: - /* Unsupported. */ - return 1; - } -} - -static int -x86_stopped_by_watchpoint (void) -{ - struct process_info *proc = current_process (); - return x86_dr_stopped_by_watchpoint (&proc->priv->arch_private->debug_reg_state); -} - -static CORE_ADDR -x86_stopped_data_address (void) -{ - struct process_info *proc = current_process (); - CORE_ADDR addr; - if (x86_dr_stopped_data_address (&proc->priv->arch_private->debug_reg_state, - &addr)) - return addr; - return 0; -} - -/* Called when a new process is created. */ - -static struct arch_process_info * -x86_linux_new_process (void) -{ - struct arch_process_info *info = XCNEW (struct arch_process_info); - - x86_low_init_dregs (&info->debug_reg_state); - - return info; -} - -/* Called when a process is being deleted. */ - -static void -x86_linux_delete_process (struct arch_process_info *info) -{ - xfree (info); -} - -/* Target routine for linux_new_fork. */ - -static void -x86_linux_new_fork (struct process_info *parent, struct process_info *child) -{ - /* These are allocated by linux_add_process. */ - gdb_assert (parent->priv != NULL - && parent->priv->arch_private != NULL); - gdb_assert (child->priv != NULL - && child->priv->arch_private != NULL); - - /* Linux kernel before 2.6.33 commit - 72f674d203cd230426437cdcf7dd6f681dad8b0d - will inherit hardware debug registers from parent - on fork/vfork/clone. Newer Linux kernels create such tasks with - zeroed debug registers. - - GDB core assumes the child inherits the watchpoints/hw - breakpoints of the parent, and will remove them all from the - forked off process. Copy the debug registers mirrors into the - new process so that all breakpoints and watchpoints can be - removed together. The debug registers mirror will become zeroed - in the end before detaching the forked off process, thus making - this compatible with older Linux kernels too. */ - - *child->priv->arch_private = *parent->priv->arch_private; -} - -/* See nat/x86-dregs.h. */ - -struct x86_debug_reg_state * -x86_debug_reg_state (pid_t pid) -{ - struct process_info *proc = find_process_pid (pid); - - return &proc->priv->arch_private->debug_reg_state; -} - -/* When GDBSERVER is built as a 64-bit application on linux, the - PTRACE_GETSIGINFO data is always presented in 64-bit layout. Since - debugging a 32-bit inferior with a 64-bit GDBSERVER should look the same - as debugging it with a 32-bit GDBSERVER, we do the 32-bit <-> 64-bit - conversion in-place ourselves. */ - -/* Convert a ptrace/host siginfo object, into/from the siginfo in the - layout of the inferiors' architecture. Returns true if any - conversion was done; false otherwise. If DIRECTION is 1, then copy - from INF to PTRACE. If DIRECTION is 0, copy from PTRACE to - INF. */ - -static int -x86_siginfo_fixup (siginfo_t *ptrace, gdb_byte *inf, int direction) -{ -#ifdef __x86_64__ - unsigned int machine; - int tid = lwpid_of (current_thread); - int is_elf64 = linux_pid_exe_is_elf_64_file (tid, &machine); - - /* Is the inferior 32-bit? If so, then fixup the siginfo object. */ - if (!is_64bit_tdesc ()) - return amd64_linux_siginfo_fixup_common (ptrace, inf, direction, - FIXUP_32); - /* No fixup for native x32 GDB. */ - else if (!is_elf64 && sizeof (void *) == 8) - return amd64_linux_siginfo_fixup_common (ptrace, inf, direction, - FIXUP_X32); -#endif - - return 0; -} - -static int use_xml; - -/* Format of XSAVE extended state is: - struct - { - fxsave_bytes[0..463] - sw_usable_bytes[464..511] - xstate_hdr_bytes[512..575] - avx_bytes[576..831] - future_state etc - }; - - Same memory layout will be used for the coredump NT_X86_XSTATE - representing the XSAVE extended state registers. - - The first 8 bytes of the sw_usable_bytes[464..467] is the OS enabled - extended state mask, which is the same as the extended control register - 0 (the XFEATURE_ENABLED_MASK register), XCR0. We can use this mask - together with the mask saved in the xstate_hdr_bytes to determine what - states the processor/OS supports and what state, used or initialized, - the process/thread is in. */ -#define I386_LINUX_XSAVE_XCR0_OFFSET 464 - -/* Does the current host support the GETFPXREGS request? The header - file may or may not define it, and even if it is defined, the - kernel will return EIO if it's running on a pre-SSE processor. */ -int have_ptrace_getfpxregs = -#ifdef HAVE_PTRACE_GETFPXREGS - -1 -#else - 0 -#endif -; - -/* Get Linux/x86 target description from running target. */ - -static const struct target_desc * -x86_linux_read_description (void) -{ - unsigned int machine; - int is_elf64; - int xcr0_features; - int tid; - static uint64_t xcr0; - struct regset_info *regset; - - tid = lwpid_of (current_thread); - - is_elf64 = linux_pid_exe_is_elf_64_file (tid, &machine); - - if (sizeof (void *) == 4) - { - if (is_elf64 > 0) - error (_("Can't debug 64-bit process with 32-bit GDBserver")); -#ifndef __x86_64__ - else if (machine == EM_X86_64) - error (_("Can't debug x86-64 process with 32-bit GDBserver")); -#endif - } - -#if !defined __x86_64__ && defined HAVE_PTRACE_GETFPXREGS - if (machine == EM_386 && have_ptrace_getfpxregs == -1) - { - elf_fpxregset_t fpxregs; - - if (ptrace (PTRACE_GETFPXREGS, tid, 0, (long) &fpxregs) < 0) - { - have_ptrace_getfpxregs = 0; - have_ptrace_getregset = 0; - return i386_linux_read_description (X86_XSTATE_X87); - } - else - have_ptrace_getfpxregs = 1; - } -#endif - - if (!use_xml) - { - x86_xcr0 = X86_XSTATE_SSE_MASK; - - /* Don't use XML. */ -#ifdef __x86_64__ - if (machine == EM_X86_64) - return tdesc_amd64_linux_no_xml; - else -#endif - return tdesc_i386_linux_no_xml; - } - - if (have_ptrace_getregset == -1) - { - uint64_t xstateregs[(X86_XSTATE_SSE_SIZE / sizeof (uint64_t))]; - struct iovec iov; - - iov.iov_base = xstateregs; - iov.iov_len = sizeof (xstateregs); - - /* Check if PTRACE_GETREGSET works. */ - if (ptrace (PTRACE_GETREGSET, tid, - (unsigned int) NT_X86_XSTATE, (long) &iov) < 0) - have_ptrace_getregset = 0; - else - { - have_ptrace_getregset = 1; - - /* Get XCR0 from XSAVE extended state. */ - xcr0 = xstateregs[(I386_LINUX_XSAVE_XCR0_OFFSET - / sizeof (uint64_t))]; - - /* Use PTRACE_GETREGSET if it is available. */ - for (regset = x86_regsets; - regset->fill_function != NULL; regset++) - if (regset->get_request == PTRACE_GETREGSET) - regset->size = X86_XSTATE_SIZE (xcr0); - else if (regset->type != GENERAL_REGS) - regset->size = 0; - } - } - - /* Check the native XCR0 only if PTRACE_GETREGSET is available. */ - xcr0_features = (have_ptrace_getregset - && (xcr0 & X86_XSTATE_ALL_MASK)); - - if (xcr0_features) - x86_xcr0 = xcr0; - - if (machine == EM_X86_64) - { -#ifdef __x86_64__ - const target_desc *tdesc = NULL; - - if (xcr0_features) - { - tdesc = amd64_linux_read_description (xcr0 & X86_XSTATE_ALL_MASK, - !is_elf64); - } - - if (tdesc == NULL) - tdesc = amd64_linux_read_description (X86_XSTATE_SSE_MASK, !is_elf64); - return tdesc; -#endif - } - else - { - const target_desc *tdesc = NULL; - - if (xcr0_features) - tdesc = i386_linux_read_description (xcr0 & X86_XSTATE_ALL_MASK); - - if (tdesc == NULL) - tdesc = i386_linux_read_description (X86_XSTATE_SSE); - - return tdesc; - } - - gdb_assert_not_reached ("failed to return tdesc"); -} - -/* Update all the target description of all processes; a new GDB - connected, and it may or not support xml target descriptions. */ - -static void -x86_linux_update_xmltarget (void) -{ - struct thread_info *saved_thread = current_thread; - - /* Before changing the register cache's internal layout, flush the - contents of the current valid caches back to the threads, and - release the current regcache objects. */ - regcache_release (); - - for_each_process ([] (process_info *proc) { - int pid = proc->pid; - - /* Look up any thread of this process. */ - current_thread = find_any_thread_of_pid (pid); - - the_low_target.arch_setup (); - }); - - current_thread = saved_thread; -} - -/* Process qSupported query, "xmlRegisters=". Update the buffer size for - PTRACE_GETREGSET. */ - -static void -x86_linux_process_qsupported (char **features, int count) -{ - int i; - - /* Return if gdb doesn't support XML. If gdb sends "xmlRegisters=" - with "i386" in qSupported query, it supports x86 XML target - descriptions. */ - use_xml = 0; - for (i = 0; i < count; i++) - { - const char *feature = features[i]; - - if (startswith (feature, "xmlRegisters=")) - { - char *copy = xstrdup (feature + 13); - - char *saveptr; - for (char *p = strtok_r (copy, ",", &saveptr); - p != NULL; - p = strtok_r (NULL, ",", &saveptr)) - { - if (strcmp (p, "i386") == 0) - { - use_xml = 1; - break; - } - } - - free (copy); - } - } - x86_linux_update_xmltarget (); -} - -/* Common for x86/x86-64. */ - -static struct regsets_info x86_regsets_info = - { - x86_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -#ifdef __x86_64__ -static struct regs_info amd64_linux_regs_info = - { - NULL, /* regset_bitmap */ - NULL, /* usrregs_info */ - &x86_regsets_info - }; -#endif -static struct usrregs_info i386_linux_usrregs_info = - { - I386_NUM_REGS, - i386_regmap, - }; - -static struct regs_info i386_linux_regs_info = - { - NULL, /* regset_bitmap */ - &i386_linux_usrregs_info, - &x86_regsets_info - }; - -static const struct regs_info * -x86_linux_regs_info (void) -{ -#ifdef __x86_64__ - if (is_64bit_tdesc ()) - return &amd64_linux_regs_info; - else -#endif - return &i386_linux_regs_info; -} - -/* Initialize the target description for the architecture of the - inferior. */ - -static void -x86_arch_setup (void) -{ - current_process ()->tdesc = x86_linux_read_description (); -} - -/* Fill *SYSNO and *SYSRET with the syscall nr trapped and the syscall return - code. This should only be called if LWP got a SYSCALL_SIGTRAP. */ - -static void -x86_get_syscall_trapinfo (struct regcache *regcache, int *sysno) -{ - int use_64bit = register_size (regcache->tdesc, 0) == 8; - - if (use_64bit) - { - long l_sysno; - - collect_register_by_name (regcache, "orig_rax", &l_sysno); - *sysno = (int) l_sysno; - } - else - collect_register_by_name (regcache, "orig_eax", sysno); -} - -static int -x86_supports_tracepoints (void) -{ - return 1; -} - -static void -append_insns (CORE_ADDR *to, size_t len, const unsigned char *buf) -{ - target_write_memory (*to, buf, len); - *to += len; -} - -static int -push_opcode (unsigned char *buf, const char *op) -{ - unsigned char *buf_org = buf; - - while (1) - { - char *endptr; - unsigned long ul = strtoul (op, &endptr, 16); - - if (endptr == op) - break; - - *buf++ = ul; - op = endptr; - } - - return buf - buf_org; -} - -#ifdef __x86_64__ - -/* Build a jump pad that saves registers and calls a collection - function. Writes a jump instruction to the jump pad to - JJUMPAD_INSN. The caller is responsible to write it in at the - tracepoint address. */ - -static int -amd64_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, CORE_ADDR tpaddr, - CORE_ADDR collector, - CORE_ADDR lockaddr, - ULONGEST orig_size, - CORE_ADDR *jump_entry, - CORE_ADDR *trampoline, - ULONGEST *trampoline_size, - unsigned char *jjump_pad_insn, - ULONGEST *jjump_pad_insn_size, - CORE_ADDR *adjusted_insn_addr, - CORE_ADDR *adjusted_insn_addr_end, - char *err) -{ - unsigned char buf[40]; - int i, offset; - int64_t loffset; - - CORE_ADDR buildaddr = *jump_entry; - - /* Build the jump pad. */ - - /* First, do tracepoint data collection. Save registers. */ - i = 0; - /* Need to ensure stack pointer saved first. */ - buf[i++] = 0x54; /* push %rsp */ - buf[i++] = 0x55; /* push %rbp */ - buf[i++] = 0x57; /* push %rdi */ - buf[i++] = 0x56; /* push %rsi */ - buf[i++] = 0x52; /* push %rdx */ - buf[i++] = 0x51; /* push %rcx */ - buf[i++] = 0x53; /* push %rbx */ - buf[i++] = 0x50; /* push %rax */ - buf[i++] = 0x41; buf[i++] = 0x57; /* push %r15 */ - buf[i++] = 0x41; buf[i++] = 0x56; /* push %r14 */ - buf[i++] = 0x41; buf[i++] = 0x55; /* push %r13 */ - buf[i++] = 0x41; buf[i++] = 0x54; /* push %r12 */ - buf[i++] = 0x41; buf[i++] = 0x53; /* push %r11 */ - buf[i++] = 0x41; buf[i++] = 0x52; /* push %r10 */ - buf[i++] = 0x41; buf[i++] = 0x51; /* push %r9 */ - buf[i++] = 0x41; buf[i++] = 0x50; /* push %r8 */ - buf[i++] = 0x9c; /* pushfq */ - buf[i++] = 0x48; /* movabs ,%rdi */ - buf[i++] = 0xbf; - memcpy (buf + i, &tpaddr, 8); - i += 8; - buf[i++] = 0x57; /* push %rdi */ - append_insns (&buildaddr, i, buf); - - /* Stack space for the collecting_t object. */ - i = 0; - i += push_opcode (&buf[i], "48 83 ec 18"); /* sub $0x18,%rsp */ - i += push_opcode (&buf[i], "48 b8"); /* mov ,%rax */ - memcpy (buf + i, &tpoint, 8); - i += 8; - i += push_opcode (&buf[i], "48 89 04 24"); /* mov %rax,(%rsp) */ - i += push_opcode (&buf[i], - "64 48 8b 04 25 00 00 00 00"); /* mov %fs:0x0,%rax */ - i += push_opcode (&buf[i], "48 89 44 24 08"); /* mov %rax,0x8(%rsp) */ - append_insns (&buildaddr, i, buf); - - /* spin-lock. */ - i = 0; - i += push_opcode (&buf[i], "48 be"); /* movl ,%rsi */ - memcpy (&buf[i], (void *) &lockaddr, 8); - i += 8; - i += push_opcode (&buf[i], "48 89 e1"); /* mov %rsp,%rcx */ - i += push_opcode (&buf[i], "31 c0"); /* xor %eax,%eax */ - i += push_opcode (&buf[i], "f0 48 0f b1 0e"); /* lock cmpxchg %rcx,(%rsi) */ - i += push_opcode (&buf[i], "48 85 c0"); /* test %rax,%rax */ - i += push_opcode (&buf[i], "75 f4"); /* jne */ - append_insns (&buildaddr, i, buf); - - /* Set up the gdb_collect call. */ - /* At this point, (stack pointer + 0x18) is the base of our saved - register block. */ - - i = 0; - i += push_opcode (&buf[i], "48 89 e6"); /* mov %rsp,%rsi */ - i += push_opcode (&buf[i], "48 83 c6 18"); /* add $0x18,%rsi */ - - /* tpoint address may be 64-bit wide. */ - i += push_opcode (&buf[i], "48 bf"); /* movl ,%rdi */ - memcpy (buf + i, &tpoint, 8); - i += 8; - append_insns (&buildaddr, i, buf); - - /* The collector function being in the shared library, may be - >31-bits away off the jump pad. */ - i = 0; - i += push_opcode (&buf[i], "48 b8"); /* mov $collector,%rax */ - memcpy (buf + i, &collector, 8); - i += 8; - i += push_opcode (&buf[i], "ff d0"); /* callq *%rax */ - append_insns (&buildaddr, i, buf); - - /* Clear the spin-lock. */ - i = 0; - i += push_opcode (&buf[i], "31 c0"); /* xor %eax,%eax */ - i += push_opcode (&buf[i], "48 a3"); /* mov %rax, lockaddr */ - memcpy (buf + i, &lockaddr, 8); - i += 8; - append_insns (&buildaddr, i, buf); - - /* Remove stack that had been used for the collect_t object. */ - i = 0; - i += push_opcode (&buf[i], "48 83 c4 18"); /* add $0x18,%rsp */ - append_insns (&buildaddr, i, buf); - - /* Restore register state. */ - i = 0; - buf[i++] = 0x48; /* add $0x8,%rsp */ - buf[i++] = 0x83; - buf[i++] = 0xc4; - buf[i++] = 0x08; - buf[i++] = 0x9d; /* popfq */ - buf[i++] = 0x41; buf[i++] = 0x58; /* pop %r8 */ - buf[i++] = 0x41; buf[i++] = 0x59; /* pop %r9 */ - buf[i++] = 0x41; buf[i++] = 0x5a; /* pop %r10 */ - buf[i++] = 0x41; buf[i++] = 0x5b; /* pop %r11 */ - buf[i++] = 0x41; buf[i++] = 0x5c; /* pop %r12 */ - buf[i++] = 0x41; buf[i++] = 0x5d; /* pop %r13 */ - buf[i++] = 0x41; buf[i++] = 0x5e; /* pop %r14 */ - buf[i++] = 0x41; buf[i++] = 0x5f; /* pop %r15 */ - buf[i++] = 0x58; /* pop %rax */ - buf[i++] = 0x5b; /* pop %rbx */ - buf[i++] = 0x59; /* pop %rcx */ - buf[i++] = 0x5a; /* pop %rdx */ - buf[i++] = 0x5e; /* pop %rsi */ - buf[i++] = 0x5f; /* pop %rdi */ - buf[i++] = 0x5d; /* pop %rbp */ - buf[i++] = 0x5c; /* pop %rsp */ - append_insns (&buildaddr, i, buf); - - /* Now, adjust the original instruction to execute in the jump - pad. */ - *adjusted_insn_addr = buildaddr; - relocate_instruction (&buildaddr, tpaddr); - *adjusted_insn_addr_end = buildaddr; - - /* Finally, write a jump back to the program. */ - - loffset = (tpaddr + orig_size) - (buildaddr + sizeof (jump_insn)); - if (loffset > INT_MAX || loffset < INT_MIN) - { - sprintf (err, - "E.Jump back from jump pad too far from tracepoint " - "(offset 0x%" PRIx64 " > int32).", loffset); - return 1; - } - - offset = (int) loffset; - memcpy (buf, jump_insn, sizeof (jump_insn)); - memcpy (buf + 1, &offset, 4); - append_insns (&buildaddr, sizeof (jump_insn), buf); - - /* The jump pad is now built. Wire in a jump to our jump pad. This - is always done last (by our caller actually), so that we can - install fast tracepoints with threads running. This relies on - the agent's atomic write support. */ - loffset = *jump_entry - (tpaddr + sizeof (jump_insn)); - if (loffset > INT_MAX || loffset < INT_MIN) - { - sprintf (err, - "E.Jump pad too far from tracepoint " - "(offset 0x%" PRIx64 " > int32).", loffset); - return 1; - } - - offset = (int) loffset; - - memcpy (buf, jump_insn, sizeof (jump_insn)); - memcpy (buf + 1, &offset, 4); - memcpy (jjump_pad_insn, buf, sizeof (jump_insn)); - *jjump_pad_insn_size = sizeof (jump_insn); - - /* Return the end address of our pad. */ - *jump_entry = buildaddr; - - return 0; -} - -#endif /* __x86_64__ */ - -/* Build a jump pad that saves registers and calls a collection - function. Writes a jump instruction to the jump pad to - JJUMPAD_INSN. The caller is responsible to write it in at the - tracepoint address. */ - -static int -i386_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, CORE_ADDR tpaddr, - CORE_ADDR collector, - CORE_ADDR lockaddr, - ULONGEST orig_size, - CORE_ADDR *jump_entry, - CORE_ADDR *trampoline, - ULONGEST *trampoline_size, - unsigned char *jjump_pad_insn, - ULONGEST *jjump_pad_insn_size, - CORE_ADDR *adjusted_insn_addr, - CORE_ADDR *adjusted_insn_addr_end, - char *err) -{ - unsigned char buf[0x100]; - int i, offset; - CORE_ADDR buildaddr = *jump_entry; - - /* Build the jump pad. */ - - /* First, do tracepoint data collection. Save registers. */ - i = 0; - buf[i++] = 0x60; /* pushad */ - buf[i++] = 0x68; /* push tpaddr aka $pc */ - *((int *)(buf + i)) = (int) tpaddr; - i += 4; - buf[i++] = 0x9c; /* pushf */ - buf[i++] = 0x1e; /* push %ds */ - buf[i++] = 0x06; /* push %es */ - buf[i++] = 0x0f; /* push %fs */ - buf[i++] = 0xa0; - buf[i++] = 0x0f; /* push %gs */ - buf[i++] = 0xa8; - buf[i++] = 0x16; /* push %ss */ - buf[i++] = 0x0e; /* push %cs */ - append_insns (&buildaddr, i, buf); - - /* Stack space for the collecting_t object. */ - i = 0; - i += push_opcode (&buf[i], "83 ec 08"); /* sub $0x8,%esp */ - - /* Build the object. */ - i += push_opcode (&buf[i], "b8"); /* mov ,%eax */ - memcpy (buf + i, &tpoint, 4); - i += 4; - i += push_opcode (&buf[i], "89 04 24"); /* mov %eax,(%esp) */ - - i += push_opcode (&buf[i], "65 a1 00 00 00 00"); /* mov %gs:0x0,%eax */ - i += push_opcode (&buf[i], "89 44 24 04"); /* mov %eax,0x4(%esp) */ - append_insns (&buildaddr, i, buf); - - /* spin-lock. Note this is using cmpxchg, which leaves i386 behind. - If we cared for it, this could be using xchg alternatively. */ - - i = 0; - i += push_opcode (&buf[i], "31 c0"); /* xor %eax,%eax */ - i += push_opcode (&buf[i], "f0 0f b1 25"); /* lock cmpxchg - %esp, */ - memcpy (&buf[i], (void *) &lockaddr, 4); - i += 4; - i += push_opcode (&buf[i], "85 c0"); /* test %eax,%eax */ - i += push_opcode (&buf[i], "75 f2"); /* jne */ - append_insns (&buildaddr, i, buf); - - - /* Set up arguments to the gdb_collect call. */ - i = 0; - i += push_opcode (&buf[i], "89 e0"); /* mov %esp,%eax */ - i += push_opcode (&buf[i], "83 c0 08"); /* add $0x08,%eax */ - i += push_opcode (&buf[i], "89 44 24 fc"); /* mov %eax,-0x4(%esp) */ - append_insns (&buildaddr, i, buf); - - i = 0; - i += push_opcode (&buf[i], "83 ec 08"); /* sub $0x8,%esp */ - append_insns (&buildaddr, i, buf); - - i = 0; - i += push_opcode (&buf[i], "c7 04 24"); /* movl ,(%esp) */ - memcpy (&buf[i], (void *) &tpoint, 4); - i += 4; - append_insns (&buildaddr, i, buf); - - buf[0] = 0xe8; /* call */ - offset = collector - (buildaddr + sizeof (jump_insn)); - memcpy (buf + 1, &offset, 4); - append_insns (&buildaddr, 5, buf); - /* Clean up after the call. */ - buf[0] = 0x83; /* add $0x8,%esp */ - buf[1] = 0xc4; - buf[2] = 0x08; - append_insns (&buildaddr, 3, buf); - - - /* Clear the spin-lock. This would need the LOCK prefix on older - broken archs. */ - i = 0; - i += push_opcode (&buf[i], "31 c0"); /* xor %eax,%eax */ - i += push_opcode (&buf[i], "a3"); /* mov %eax, lockaddr */ - memcpy (buf + i, &lockaddr, 4); - i += 4; - append_insns (&buildaddr, i, buf); - - - /* Remove stack that had been used for the collect_t object. */ - i = 0; - i += push_opcode (&buf[i], "83 c4 08"); /* add $0x08,%esp */ - append_insns (&buildaddr, i, buf); - - i = 0; - buf[i++] = 0x83; /* add $0x4,%esp (no pop of %cs, assume unchanged) */ - buf[i++] = 0xc4; - buf[i++] = 0x04; - buf[i++] = 0x17; /* pop %ss */ - buf[i++] = 0x0f; /* pop %gs */ - buf[i++] = 0xa9; - buf[i++] = 0x0f; /* pop %fs */ - buf[i++] = 0xa1; - buf[i++] = 0x07; /* pop %es */ - buf[i++] = 0x1f; /* pop %ds */ - buf[i++] = 0x9d; /* popf */ - buf[i++] = 0x83; /* add $0x4,%esp (pop of tpaddr aka $pc) */ - buf[i++] = 0xc4; - buf[i++] = 0x04; - buf[i++] = 0x61; /* popad */ - append_insns (&buildaddr, i, buf); - - /* Now, adjust the original instruction to execute in the jump - pad. */ - *adjusted_insn_addr = buildaddr; - relocate_instruction (&buildaddr, tpaddr); - *adjusted_insn_addr_end = buildaddr; - - /* Write the jump back to the program. */ - offset = (tpaddr + orig_size) - (buildaddr + sizeof (jump_insn)); - memcpy (buf, jump_insn, sizeof (jump_insn)); - memcpy (buf + 1, &offset, 4); - append_insns (&buildaddr, sizeof (jump_insn), buf); - - /* The jump pad is now built. Wire in a jump to our jump pad. This - is always done last (by our caller actually), so that we can - install fast tracepoints with threads running. This relies on - the agent's atomic write support. */ - if (orig_size == 4) - { - /* Create a trampoline. */ - *trampoline_size = sizeof (jump_insn); - if (!claim_trampoline_space (*trampoline_size, trampoline)) - { - /* No trampoline space available. */ - strcpy (err, - "E.Cannot allocate trampoline space needed for fast " - "tracepoints on 4-byte instructions."); - return 1; - } - - offset = *jump_entry - (*trampoline + sizeof (jump_insn)); - memcpy (buf, jump_insn, sizeof (jump_insn)); - memcpy (buf + 1, &offset, 4); - target_write_memory (*trampoline, buf, sizeof (jump_insn)); - - /* Use a 16-bit relative jump instruction to jump to the trampoline. */ - offset = (*trampoline - (tpaddr + sizeof (small_jump_insn))) & 0xffff; - memcpy (buf, small_jump_insn, sizeof (small_jump_insn)); - memcpy (buf + 2, &offset, 2); - memcpy (jjump_pad_insn, buf, sizeof (small_jump_insn)); - *jjump_pad_insn_size = sizeof (small_jump_insn); - } - else - { - /* Else use a 32-bit relative jump instruction. */ - offset = *jump_entry - (tpaddr + sizeof (jump_insn)); - memcpy (buf, jump_insn, sizeof (jump_insn)); - memcpy (buf + 1, &offset, 4); - memcpy (jjump_pad_insn, buf, sizeof (jump_insn)); - *jjump_pad_insn_size = sizeof (jump_insn); - } - - /* Return the end address of our pad. */ - *jump_entry = buildaddr; - - return 0; -} - -static int -x86_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, CORE_ADDR tpaddr, - CORE_ADDR collector, - CORE_ADDR lockaddr, - ULONGEST orig_size, - CORE_ADDR *jump_entry, - CORE_ADDR *trampoline, - ULONGEST *trampoline_size, - unsigned char *jjump_pad_insn, - ULONGEST *jjump_pad_insn_size, - CORE_ADDR *adjusted_insn_addr, - CORE_ADDR *adjusted_insn_addr_end, - char *err) -{ -#ifdef __x86_64__ - if (is_64bit_tdesc ()) - return amd64_install_fast_tracepoint_jump_pad (tpoint, tpaddr, - collector, lockaddr, - orig_size, jump_entry, - trampoline, trampoline_size, - jjump_pad_insn, - jjump_pad_insn_size, - adjusted_insn_addr, - adjusted_insn_addr_end, - err); -#endif - - return i386_install_fast_tracepoint_jump_pad (tpoint, tpaddr, - collector, lockaddr, - orig_size, jump_entry, - trampoline, trampoline_size, - jjump_pad_insn, - jjump_pad_insn_size, - adjusted_insn_addr, - adjusted_insn_addr_end, - err); -} - -/* Return the minimum instruction length for fast tracepoints on x86/x86-64 - architectures. */ - -static int -x86_get_min_fast_tracepoint_insn_len (void) -{ - static int warned_about_fast_tracepoints = 0; - -#ifdef __x86_64__ - /* On x86-64, 5-byte jump instructions with a 4-byte offset are always - used for fast tracepoints. */ - if (is_64bit_tdesc ()) - return 5; -#endif - - if (agent_loaded_p ()) - { - char errbuf[IPA_BUFSIZ]; - - errbuf[0] = '\0'; - - /* On x86, if trampolines are available, then 4-byte jump instructions - with a 2-byte offset may be used, otherwise 5-byte jump instructions - with a 4-byte offset are used instead. */ - if (have_fast_tracepoint_trampoline_buffer (errbuf)) - return 4; - else - { - /* GDB has no channel to explain to user why a shorter fast - tracepoint is not possible, but at least make GDBserver - mention that something has gone awry. */ - if (!warned_about_fast_tracepoints) - { - warning ("4-byte fast tracepoints not available; %s", errbuf); - warned_about_fast_tracepoints = 1; - } - return 5; - } - } - else - { - /* Indicate that the minimum length is currently unknown since the IPA - has not loaded yet. */ - return 0; - } -} - -static void -add_insns (unsigned char *start, int len) -{ - CORE_ADDR buildaddr = current_insn_ptr; - - if (debug_threads) - debug_printf ("Adding %d bytes of insn at %s\n", - len, paddress (buildaddr)); - - append_insns (&buildaddr, len, start); - current_insn_ptr = buildaddr; -} - -/* Our general strategy for emitting code is to avoid specifying raw - bytes whenever possible, and instead copy a block of inline asm - that is embedded in the function. This is a little messy, because - we need to keep the compiler from discarding what looks like dead - code, plus suppress various warnings. */ - -#define EMIT_ASM(NAME, INSNS) \ - do \ - { \ - extern unsigned char start_ ## NAME, end_ ## NAME; \ - add_insns (&start_ ## NAME, &end_ ## NAME - &start_ ## NAME); \ - __asm__ ("jmp end_" #NAME "\n" \ - "\t" "start_" #NAME ":" \ - "\t" INSNS "\n" \ - "\t" "end_" #NAME ":"); \ - } while (0) - -#ifdef __x86_64__ - -#define EMIT_ASM32(NAME,INSNS) \ - do \ - { \ - extern unsigned char start_ ## NAME, end_ ## NAME; \ - add_insns (&start_ ## NAME, &end_ ## NAME - &start_ ## NAME); \ - __asm__ (".code32\n" \ - "\t" "jmp end_" #NAME "\n" \ - "\t" "start_" #NAME ":\n" \ - "\t" INSNS "\n" \ - "\t" "end_" #NAME ":\n" \ - ".code64\n"); \ - } while (0) - -#else - -#define EMIT_ASM32(NAME,INSNS) EMIT_ASM(NAME,INSNS) - -#endif - -#ifdef __x86_64__ - -static void -amd64_emit_prologue (void) -{ - EMIT_ASM (amd64_prologue, - "pushq %rbp\n\t" - "movq %rsp,%rbp\n\t" - "sub $0x20,%rsp\n\t" - "movq %rdi,-8(%rbp)\n\t" - "movq %rsi,-16(%rbp)"); -} - - -static void -amd64_emit_epilogue (void) -{ - EMIT_ASM (amd64_epilogue, - "movq -16(%rbp),%rdi\n\t" - "movq %rax,(%rdi)\n\t" - "xor %rax,%rax\n\t" - "leave\n\t" - "ret"); -} - -static void -amd64_emit_add (void) -{ - EMIT_ASM (amd64_add, - "add (%rsp),%rax\n\t" - "lea 0x8(%rsp),%rsp"); -} - -static void -amd64_emit_sub (void) -{ - EMIT_ASM (amd64_sub, - "sub %rax,(%rsp)\n\t" - "pop %rax"); -} - -static void -amd64_emit_mul (void) -{ - emit_error = 1; -} - -static void -amd64_emit_lsh (void) -{ - emit_error = 1; -} - -static void -amd64_emit_rsh_signed (void) -{ - emit_error = 1; -} - -static void -amd64_emit_rsh_unsigned (void) -{ - emit_error = 1; -} - -static void -amd64_emit_ext (int arg) -{ - switch (arg) - { - case 8: - EMIT_ASM (amd64_ext_8, - "cbtw\n\t" - "cwtl\n\t" - "cltq"); - break; - case 16: - EMIT_ASM (amd64_ext_16, - "cwtl\n\t" - "cltq"); - break; - case 32: - EMIT_ASM (amd64_ext_32, - "cltq"); - break; - default: - emit_error = 1; - } -} - -static void -amd64_emit_log_not (void) -{ - EMIT_ASM (amd64_log_not, - "test %rax,%rax\n\t" - "sete %cl\n\t" - "movzbq %cl,%rax"); -} - -static void -amd64_emit_bit_and (void) -{ - EMIT_ASM (amd64_and, - "and (%rsp),%rax\n\t" - "lea 0x8(%rsp),%rsp"); -} - -static void -amd64_emit_bit_or (void) -{ - EMIT_ASM (amd64_or, - "or (%rsp),%rax\n\t" - "lea 0x8(%rsp),%rsp"); -} - -static void -amd64_emit_bit_xor (void) -{ - EMIT_ASM (amd64_xor, - "xor (%rsp),%rax\n\t" - "lea 0x8(%rsp),%rsp"); -} - -static void -amd64_emit_bit_not (void) -{ - EMIT_ASM (amd64_bit_not, - "xorq $0xffffffffffffffff,%rax"); -} - -static void -amd64_emit_equal (void) -{ - EMIT_ASM (amd64_equal, - "cmp %rax,(%rsp)\n\t" - "je .Lamd64_equal_true\n\t" - "xor %rax,%rax\n\t" - "jmp .Lamd64_equal_end\n\t" - ".Lamd64_equal_true:\n\t" - "mov $0x1,%rax\n\t" - ".Lamd64_equal_end:\n\t" - "lea 0x8(%rsp),%rsp"); -} - -static void -amd64_emit_less_signed (void) -{ - EMIT_ASM (amd64_less_signed, - "cmp %rax,(%rsp)\n\t" - "jl .Lamd64_less_signed_true\n\t" - "xor %rax,%rax\n\t" - "jmp .Lamd64_less_signed_end\n\t" - ".Lamd64_less_signed_true:\n\t" - "mov $1,%rax\n\t" - ".Lamd64_less_signed_end:\n\t" - "lea 0x8(%rsp),%rsp"); -} - -static void -amd64_emit_less_unsigned (void) -{ - EMIT_ASM (amd64_less_unsigned, - "cmp %rax,(%rsp)\n\t" - "jb .Lamd64_less_unsigned_true\n\t" - "xor %rax,%rax\n\t" - "jmp .Lamd64_less_unsigned_end\n\t" - ".Lamd64_less_unsigned_true:\n\t" - "mov $1,%rax\n\t" - ".Lamd64_less_unsigned_end:\n\t" - "lea 0x8(%rsp),%rsp"); -} - -static void -amd64_emit_ref (int size) -{ - switch (size) - { - case 1: - EMIT_ASM (amd64_ref1, - "movb (%rax),%al"); - break; - case 2: - EMIT_ASM (amd64_ref2, - "movw (%rax),%ax"); - break; - case 4: - EMIT_ASM (amd64_ref4, - "movl (%rax),%eax"); - break; - case 8: - EMIT_ASM (amd64_ref8, - "movq (%rax),%rax"); - break; - } -} - -static void -amd64_emit_if_goto (int *offset_p, int *size_p) -{ - EMIT_ASM (amd64_if_goto, - "mov %rax,%rcx\n\t" - "pop %rax\n\t" - "cmp $0,%rcx\n\t" - ".byte 0x0f, 0x85, 0x0, 0x0, 0x0, 0x0"); - if (offset_p) - *offset_p = 10; - if (size_p) - *size_p = 4; -} - -static void -amd64_emit_goto (int *offset_p, int *size_p) -{ - EMIT_ASM (amd64_goto, - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0"); - if (offset_p) - *offset_p = 1; - if (size_p) - *size_p = 4; -} - -static void -amd64_write_goto_address (CORE_ADDR from, CORE_ADDR to, int size) -{ - int diff = (to - (from + size)); - unsigned char buf[sizeof (int)]; - - if (size != 4) - { - emit_error = 1; - return; - } - - memcpy (buf, &diff, sizeof (int)); - target_write_memory (from, buf, sizeof (int)); -} - -static void -amd64_emit_const (LONGEST num) -{ - unsigned char buf[16]; - int i; - CORE_ADDR buildaddr = current_insn_ptr; - - i = 0; - buf[i++] = 0x48; buf[i++] = 0xb8; /* mov $,%rax */ - memcpy (&buf[i], &num, sizeof (num)); - i += 8; - append_insns (&buildaddr, i, buf); - current_insn_ptr = buildaddr; -} - -static void -amd64_emit_call (CORE_ADDR fn) -{ - unsigned char buf[16]; - int i; - CORE_ADDR buildaddr; - LONGEST offset64; - - /* The destination function being in the shared library, may be - >31-bits away off the compiled code pad. */ - - buildaddr = current_insn_ptr; - - offset64 = fn - (buildaddr + 1 /* call op */ + 4 /* 32-bit offset */); - - i = 0; - - if (offset64 > INT_MAX || offset64 < INT_MIN) - { - /* Offset is too large for a call. Use callq, but that requires - a register, so avoid it if possible. Use r10, since it is - call-clobbered, we don't have to push/pop it. */ - buf[i++] = 0x48; /* mov $fn,%r10 */ - buf[i++] = 0xba; - memcpy (buf + i, &fn, 8); - i += 8; - buf[i++] = 0xff; /* callq *%r10 */ - buf[i++] = 0xd2; - } - else - { - int offset32 = offset64; /* we know we can't overflow here. */ - - buf[i++] = 0xe8; /* call */ - memcpy (buf + i, &offset32, 4); - i += 4; - } - - append_insns (&buildaddr, i, buf); - current_insn_ptr = buildaddr; -} - -static void -amd64_emit_reg (int reg) -{ - unsigned char buf[16]; - int i; - CORE_ADDR buildaddr; - - /* Assume raw_regs is still in %rdi. */ - buildaddr = current_insn_ptr; - i = 0; - buf[i++] = 0xbe; /* mov $,%esi */ - memcpy (&buf[i], ®, sizeof (reg)); - i += 4; - append_insns (&buildaddr, i, buf); - current_insn_ptr = buildaddr; - amd64_emit_call (get_raw_reg_func_addr ()); -} - -static void -amd64_emit_pop (void) -{ - EMIT_ASM (amd64_pop, - "pop %rax"); -} - -static void -amd64_emit_stack_flush (void) -{ - EMIT_ASM (amd64_stack_flush, - "push %rax"); -} - -static void -amd64_emit_zero_ext (int arg) -{ - switch (arg) - { - case 8: - EMIT_ASM (amd64_zero_ext_8, - "and $0xff,%rax"); - break; - case 16: - EMIT_ASM (amd64_zero_ext_16, - "and $0xffff,%rax"); - break; - case 32: - EMIT_ASM (amd64_zero_ext_32, - "mov $0xffffffff,%rcx\n\t" - "and %rcx,%rax"); - break; - default: - emit_error = 1; - } -} - -static void -amd64_emit_swap (void) -{ - EMIT_ASM (amd64_swap, - "mov %rax,%rcx\n\t" - "pop %rax\n\t" - "push %rcx"); -} - -static void -amd64_emit_stack_adjust (int n) -{ - unsigned char buf[16]; - int i; - CORE_ADDR buildaddr = current_insn_ptr; - - i = 0; - buf[i++] = 0x48; /* lea $(%rsp),%rsp */ - buf[i++] = 0x8d; - buf[i++] = 0x64; - buf[i++] = 0x24; - /* This only handles adjustments up to 16, but we don't expect any more. */ - buf[i++] = n * 8; - append_insns (&buildaddr, i, buf); - current_insn_ptr = buildaddr; -} - -/* FN's prototype is `LONGEST(*fn)(int)'. */ - -static void -amd64_emit_int_call_1 (CORE_ADDR fn, int arg1) -{ - unsigned char buf[16]; - int i; - CORE_ADDR buildaddr; - - buildaddr = current_insn_ptr; - i = 0; - buf[i++] = 0xbf; /* movl $,%edi */ - memcpy (&buf[i], &arg1, sizeof (arg1)); - i += 4; - append_insns (&buildaddr, i, buf); - current_insn_ptr = buildaddr; - amd64_emit_call (fn); -} - -/* FN's prototype is `void(*fn)(int,LONGEST)'. */ - -static void -amd64_emit_void_call_2 (CORE_ADDR fn, int arg1) -{ - unsigned char buf[16]; - int i; - CORE_ADDR buildaddr; - - buildaddr = current_insn_ptr; - i = 0; - buf[i++] = 0xbf; /* movl $,%edi */ - memcpy (&buf[i], &arg1, sizeof (arg1)); - i += 4; - append_insns (&buildaddr, i, buf); - current_insn_ptr = buildaddr; - EMIT_ASM (amd64_void_call_2_a, - /* Save away a copy of the stack top. */ - "push %rax\n\t" - /* Also pass top as the second argument. */ - "mov %rax,%rsi"); - amd64_emit_call (fn); - EMIT_ASM (amd64_void_call_2_b, - /* Restore the stack top, %rax may have been trashed. */ - "pop %rax"); -} - -static void -amd64_emit_eq_goto (int *offset_p, int *size_p) -{ - EMIT_ASM (amd64_eq, - "cmp %rax,(%rsp)\n\t" - "jne .Lamd64_eq_fallthru\n\t" - "lea 0x8(%rsp),%rsp\n\t" - "pop %rax\n\t" - /* jmp, but don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" - ".Lamd64_eq_fallthru:\n\t" - "lea 0x8(%rsp),%rsp\n\t" - "pop %rax"); - - if (offset_p) - *offset_p = 13; - if (size_p) - *size_p = 4; -} - -static void -amd64_emit_ne_goto (int *offset_p, int *size_p) -{ - EMIT_ASM (amd64_ne, - "cmp %rax,(%rsp)\n\t" - "je .Lamd64_ne_fallthru\n\t" - "lea 0x8(%rsp),%rsp\n\t" - "pop %rax\n\t" - /* jmp, but don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" - ".Lamd64_ne_fallthru:\n\t" - "lea 0x8(%rsp),%rsp\n\t" - "pop %rax"); - - if (offset_p) - *offset_p = 13; - if (size_p) - *size_p = 4; -} - -static void -amd64_emit_lt_goto (int *offset_p, int *size_p) -{ - EMIT_ASM (amd64_lt, - "cmp %rax,(%rsp)\n\t" - "jnl .Lamd64_lt_fallthru\n\t" - "lea 0x8(%rsp),%rsp\n\t" - "pop %rax\n\t" - /* jmp, but don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" - ".Lamd64_lt_fallthru:\n\t" - "lea 0x8(%rsp),%rsp\n\t" - "pop %rax"); - - if (offset_p) - *offset_p = 13; - if (size_p) - *size_p = 4; -} - -static void -amd64_emit_le_goto (int *offset_p, int *size_p) -{ - EMIT_ASM (amd64_le, - "cmp %rax,(%rsp)\n\t" - "jnle .Lamd64_le_fallthru\n\t" - "lea 0x8(%rsp),%rsp\n\t" - "pop %rax\n\t" - /* jmp, but don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" - ".Lamd64_le_fallthru:\n\t" - "lea 0x8(%rsp),%rsp\n\t" - "pop %rax"); - - if (offset_p) - *offset_p = 13; - if (size_p) - *size_p = 4; -} - -static void -amd64_emit_gt_goto (int *offset_p, int *size_p) -{ - EMIT_ASM (amd64_gt, - "cmp %rax,(%rsp)\n\t" - "jng .Lamd64_gt_fallthru\n\t" - "lea 0x8(%rsp),%rsp\n\t" - "pop %rax\n\t" - /* jmp, but don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" - ".Lamd64_gt_fallthru:\n\t" - "lea 0x8(%rsp),%rsp\n\t" - "pop %rax"); - - if (offset_p) - *offset_p = 13; - if (size_p) - *size_p = 4; -} - -static void -amd64_emit_ge_goto (int *offset_p, int *size_p) -{ - EMIT_ASM (amd64_ge, - "cmp %rax,(%rsp)\n\t" - "jnge .Lamd64_ge_fallthru\n\t" - ".Lamd64_ge_jump:\n\t" - "lea 0x8(%rsp),%rsp\n\t" - "pop %rax\n\t" - /* jmp, but don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" - ".Lamd64_ge_fallthru:\n\t" - "lea 0x8(%rsp),%rsp\n\t" - "pop %rax"); - - if (offset_p) - *offset_p = 13; - if (size_p) - *size_p = 4; -} - -struct emit_ops amd64_emit_ops = - { - amd64_emit_prologue, - amd64_emit_epilogue, - amd64_emit_add, - amd64_emit_sub, - amd64_emit_mul, - amd64_emit_lsh, - amd64_emit_rsh_signed, - amd64_emit_rsh_unsigned, - amd64_emit_ext, - amd64_emit_log_not, - amd64_emit_bit_and, - amd64_emit_bit_or, - amd64_emit_bit_xor, - amd64_emit_bit_not, - amd64_emit_equal, - amd64_emit_less_signed, - amd64_emit_less_unsigned, - amd64_emit_ref, - amd64_emit_if_goto, - amd64_emit_goto, - amd64_write_goto_address, - amd64_emit_const, - amd64_emit_call, - amd64_emit_reg, - amd64_emit_pop, - amd64_emit_stack_flush, - amd64_emit_zero_ext, - amd64_emit_swap, - amd64_emit_stack_adjust, - amd64_emit_int_call_1, - amd64_emit_void_call_2, - amd64_emit_eq_goto, - amd64_emit_ne_goto, - amd64_emit_lt_goto, - amd64_emit_le_goto, - amd64_emit_gt_goto, - amd64_emit_ge_goto - }; - -#endif /* __x86_64__ */ - -static void -i386_emit_prologue (void) -{ - EMIT_ASM32 (i386_prologue, - "push %ebp\n\t" - "mov %esp,%ebp\n\t" - "push %ebx"); - /* At this point, the raw regs base address is at 8(%ebp), and the - value pointer is at 12(%ebp). */ -} - -static void -i386_emit_epilogue (void) -{ - EMIT_ASM32 (i386_epilogue, - "mov 12(%ebp),%ecx\n\t" - "mov %eax,(%ecx)\n\t" - "mov %ebx,0x4(%ecx)\n\t" - "xor %eax,%eax\n\t" - "pop %ebx\n\t" - "pop %ebp\n\t" - "ret"); -} - -static void -i386_emit_add (void) -{ - EMIT_ASM32 (i386_add, - "add (%esp),%eax\n\t" - "adc 0x4(%esp),%ebx\n\t" - "lea 0x8(%esp),%esp"); -} - -static void -i386_emit_sub (void) -{ - EMIT_ASM32 (i386_sub, - "subl %eax,(%esp)\n\t" - "sbbl %ebx,4(%esp)\n\t" - "pop %eax\n\t" - "pop %ebx\n\t"); -} - -static void -i386_emit_mul (void) -{ - emit_error = 1; -} - -static void -i386_emit_lsh (void) -{ - emit_error = 1; -} - -static void -i386_emit_rsh_signed (void) -{ - emit_error = 1; -} - -static void -i386_emit_rsh_unsigned (void) -{ - emit_error = 1; -} - -static void -i386_emit_ext (int arg) -{ - switch (arg) - { - case 8: - EMIT_ASM32 (i386_ext_8, - "cbtw\n\t" - "cwtl\n\t" - "movl %eax,%ebx\n\t" - "sarl $31,%ebx"); - break; - case 16: - EMIT_ASM32 (i386_ext_16, - "cwtl\n\t" - "movl %eax,%ebx\n\t" - "sarl $31,%ebx"); - break; - case 32: - EMIT_ASM32 (i386_ext_32, - "movl %eax,%ebx\n\t" - "sarl $31,%ebx"); - break; - default: - emit_error = 1; - } -} - -static void -i386_emit_log_not (void) -{ - EMIT_ASM32 (i386_log_not, - "or %ebx,%eax\n\t" - "test %eax,%eax\n\t" - "sete %cl\n\t" - "xor %ebx,%ebx\n\t" - "movzbl %cl,%eax"); -} - -static void -i386_emit_bit_and (void) -{ - EMIT_ASM32 (i386_and, - "and (%esp),%eax\n\t" - "and 0x4(%esp),%ebx\n\t" - "lea 0x8(%esp),%esp"); -} - -static void -i386_emit_bit_or (void) -{ - EMIT_ASM32 (i386_or, - "or (%esp),%eax\n\t" - "or 0x4(%esp),%ebx\n\t" - "lea 0x8(%esp),%esp"); -} - -static void -i386_emit_bit_xor (void) -{ - EMIT_ASM32 (i386_xor, - "xor (%esp),%eax\n\t" - "xor 0x4(%esp),%ebx\n\t" - "lea 0x8(%esp),%esp"); -} - -static void -i386_emit_bit_not (void) -{ - EMIT_ASM32 (i386_bit_not, - "xor $0xffffffff,%eax\n\t" - "xor $0xffffffff,%ebx\n\t"); -} - -static void -i386_emit_equal (void) -{ - EMIT_ASM32 (i386_equal, - "cmpl %ebx,4(%esp)\n\t" - "jne .Li386_equal_false\n\t" - "cmpl %eax,(%esp)\n\t" - "je .Li386_equal_true\n\t" - ".Li386_equal_false:\n\t" - "xor %eax,%eax\n\t" - "jmp .Li386_equal_end\n\t" - ".Li386_equal_true:\n\t" - "mov $1,%eax\n\t" - ".Li386_equal_end:\n\t" - "xor %ebx,%ebx\n\t" - "lea 0x8(%esp),%esp"); -} - -static void -i386_emit_less_signed (void) -{ - EMIT_ASM32 (i386_less_signed, - "cmpl %ebx,4(%esp)\n\t" - "jl .Li386_less_signed_true\n\t" - "jne .Li386_less_signed_false\n\t" - "cmpl %eax,(%esp)\n\t" - "jl .Li386_less_signed_true\n\t" - ".Li386_less_signed_false:\n\t" - "xor %eax,%eax\n\t" - "jmp .Li386_less_signed_end\n\t" - ".Li386_less_signed_true:\n\t" - "mov $1,%eax\n\t" - ".Li386_less_signed_end:\n\t" - "xor %ebx,%ebx\n\t" - "lea 0x8(%esp),%esp"); -} - -static void -i386_emit_less_unsigned (void) -{ - EMIT_ASM32 (i386_less_unsigned, - "cmpl %ebx,4(%esp)\n\t" - "jb .Li386_less_unsigned_true\n\t" - "jne .Li386_less_unsigned_false\n\t" - "cmpl %eax,(%esp)\n\t" - "jb .Li386_less_unsigned_true\n\t" - ".Li386_less_unsigned_false:\n\t" - "xor %eax,%eax\n\t" - "jmp .Li386_less_unsigned_end\n\t" - ".Li386_less_unsigned_true:\n\t" - "mov $1,%eax\n\t" - ".Li386_less_unsigned_end:\n\t" - "xor %ebx,%ebx\n\t" - "lea 0x8(%esp),%esp"); -} - -static void -i386_emit_ref (int size) -{ - switch (size) - { - case 1: - EMIT_ASM32 (i386_ref1, - "movb (%eax),%al"); - break; - case 2: - EMIT_ASM32 (i386_ref2, - "movw (%eax),%ax"); - break; - case 4: - EMIT_ASM32 (i386_ref4, - "movl (%eax),%eax"); - break; - case 8: - EMIT_ASM32 (i386_ref8, - "movl 4(%eax),%ebx\n\t" - "movl (%eax),%eax"); - break; - } -} - -static void -i386_emit_if_goto (int *offset_p, int *size_p) -{ - EMIT_ASM32 (i386_if_goto, - "mov %eax,%ecx\n\t" - "or %ebx,%ecx\n\t" - "pop %eax\n\t" - "pop %ebx\n\t" - "cmpl $0,%ecx\n\t" - /* Don't trust the assembler to choose the right jump */ - ".byte 0x0f, 0x85, 0x0, 0x0, 0x0, 0x0"); - - if (offset_p) - *offset_p = 11; /* be sure that this matches the sequence above */ - if (size_p) - *size_p = 4; -} - -static void -i386_emit_goto (int *offset_p, int *size_p) -{ - EMIT_ASM32 (i386_goto, - /* Don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0"); - if (offset_p) - *offset_p = 1; - if (size_p) - *size_p = 4; -} - -static void -i386_write_goto_address (CORE_ADDR from, CORE_ADDR to, int size) -{ - int diff = (to - (from + size)); - unsigned char buf[sizeof (int)]; - - /* We're only doing 4-byte sizes at the moment. */ - if (size != 4) - { - emit_error = 1; - return; - } - - memcpy (buf, &diff, sizeof (int)); - target_write_memory (from, buf, sizeof (int)); -} - -static void -i386_emit_const (LONGEST num) -{ - unsigned char buf[16]; - int i, hi, lo; - CORE_ADDR buildaddr = current_insn_ptr; - - i = 0; - buf[i++] = 0xb8; /* mov $,%eax */ - lo = num & 0xffffffff; - memcpy (&buf[i], &lo, sizeof (lo)); - i += 4; - hi = ((num >> 32) & 0xffffffff); - if (hi) - { - buf[i++] = 0xbb; /* mov $,%ebx */ - memcpy (&buf[i], &hi, sizeof (hi)); - i += 4; - } - else - { - buf[i++] = 0x31; buf[i++] = 0xdb; /* xor %ebx,%ebx */ - } - append_insns (&buildaddr, i, buf); - current_insn_ptr = buildaddr; -} - -static void -i386_emit_call (CORE_ADDR fn) -{ - unsigned char buf[16]; - int i, offset; - CORE_ADDR buildaddr; - - buildaddr = current_insn_ptr; - i = 0; - buf[i++] = 0xe8; /* call */ - offset = ((int) fn) - (buildaddr + 5); - memcpy (buf + 1, &offset, 4); - append_insns (&buildaddr, 5, buf); - current_insn_ptr = buildaddr; -} - -static void -i386_emit_reg (int reg) -{ - unsigned char buf[16]; - int i; - CORE_ADDR buildaddr; - - EMIT_ASM32 (i386_reg_a, - "sub $0x8,%esp"); - buildaddr = current_insn_ptr; - i = 0; - buf[i++] = 0xb8; /* mov $,%eax */ - memcpy (&buf[i], ®, sizeof (reg)); - i += 4; - append_insns (&buildaddr, i, buf); - current_insn_ptr = buildaddr; - EMIT_ASM32 (i386_reg_b, - "mov %eax,4(%esp)\n\t" - "mov 8(%ebp),%eax\n\t" - "mov %eax,(%esp)"); - i386_emit_call (get_raw_reg_func_addr ()); - EMIT_ASM32 (i386_reg_c, - "xor %ebx,%ebx\n\t" - "lea 0x8(%esp),%esp"); -} - -static void -i386_emit_pop (void) -{ - EMIT_ASM32 (i386_pop, - "pop %eax\n\t" - "pop %ebx"); -} - -static void -i386_emit_stack_flush (void) -{ - EMIT_ASM32 (i386_stack_flush, - "push %ebx\n\t" - "push %eax"); -} - -static void -i386_emit_zero_ext (int arg) -{ - switch (arg) - { - case 8: - EMIT_ASM32 (i386_zero_ext_8, - "and $0xff,%eax\n\t" - "xor %ebx,%ebx"); - break; - case 16: - EMIT_ASM32 (i386_zero_ext_16, - "and $0xffff,%eax\n\t" - "xor %ebx,%ebx"); - break; - case 32: - EMIT_ASM32 (i386_zero_ext_32, - "xor %ebx,%ebx"); - break; - default: - emit_error = 1; - } -} - -static void -i386_emit_swap (void) -{ - EMIT_ASM32 (i386_swap, - "mov %eax,%ecx\n\t" - "mov %ebx,%edx\n\t" - "pop %eax\n\t" - "pop %ebx\n\t" - "push %edx\n\t" - "push %ecx"); -} - -static void -i386_emit_stack_adjust (int n) -{ - unsigned char buf[16]; - int i; - CORE_ADDR buildaddr = current_insn_ptr; - - i = 0; - buf[i++] = 0x8d; /* lea $(%esp),%esp */ - buf[i++] = 0x64; - buf[i++] = 0x24; - buf[i++] = n * 8; - append_insns (&buildaddr, i, buf); - current_insn_ptr = buildaddr; -} - -/* FN's prototype is `LONGEST(*fn)(int)'. */ - -static void -i386_emit_int_call_1 (CORE_ADDR fn, int arg1) -{ - unsigned char buf[16]; - int i; - CORE_ADDR buildaddr; - - EMIT_ASM32 (i386_int_call_1_a, - /* Reserve a bit of stack space. */ - "sub $0x8,%esp"); - /* Put the one argument on the stack. */ - buildaddr = current_insn_ptr; - i = 0; - buf[i++] = 0xc7; /* movl $,(%esp) */ - buf[i++] = 0x04; - buf[i++] = 0x24; - memcpy (&buf[i], &arg1, sizeof (arg1)); - i += 4; - append_insns (&buildaddr, i, buf); - current_insn_ptr = buildaddr; - i386_emit_call (fn); - EMIT_ASM32 (i386_int_call_1_c, - "mov %edx,%ebx\n\t" - "lea 0x8(%esp),%esp"); -} - -/* FN's prototype is `void(*fn)(int,LONGEST)'. */ - -static void -i386_emit_void_call_2 (CORE_ADDR fn, int arg1) -{ - unsigned char buf[16]; - int i; - CORE_ADDR buildaddr; - - EMIT_ASM32 (i386_void_call_2_a, - /* Preserve %eax only; we don't have to worry about %ebx. */ - "push %eax\n\t" - /* Reserve a bit of stack space for arguments. */ - "sub $0x10,%esp\n\t" - /* Copy "top" to the second argument position. (Note that - we can't assume function won't scribble on its - arguments, so don't try to restore from this.) */ - "mov %eax,4(%esp)\n\t" - "mov %ebx,8(%esp)"); - /* Put the first argument on the stack. */ - buildaddr = current_insn_ptr; - i = 0; - buf[i++] = 0xc7; /* movl $,(%esp) */ - buf[i++] = 0x04; - buf[i++] = 0x24; - memcpy (&buf[i], &arg1, sizeof (arg1)); - i += 4; - append_insns (&buildaddr, i, buf); - current_insn_ptr = buildaddr; - i386_emit_call (fn); - EMIT_ASM32 (i386_void_call_2_b, - "lea 0x10(%esp),%esp\n\t" - /* Restore original stack top. */ - "pop %eax"); -} - - -static void -i386_emit_eq_goto (int *offset_p, int *size_p) -{ - EMIT_ASM32 (eq, - /* Check low half first, more likely to be decider */ - "cmpl %eax,(%esp)\n\t" - "jne .Leq_fallthru\n\t" - "cmpl %ebx,4(%esp)\n\t" - "jne .Leq_fallthru\n\t" - "lea 0x8(%esp),%esp\n\t" - "pop %eax\n\t" - "pop %ebx\n\t" - /* jmp, but don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" - ".Leq_fallthru:\n\t" - "lea 0x8(%esp),%esp\n\t" - "pop %eax\n\t" - "pop %ebx"); - - if (offset_p) - *offset_p = 18; - if (size_p) - *size_p = 4; -} - -static void -i386_emit_ne_goto (int *offset_p, int *size_p) -{ - EMIT_ASM32 (ne, - /* Check low half first, more likely to be decider */ - "cmpl %eax,(%esp)\n\t" - "jne .Lne_jump\n\t" - "cmpl %ebx,4(%esp)\n\t" - "je .Lne_fallthru\n\t" - ".Lne_jump:\n\t" - "lea 0x8(%esp),%esp\n\t" - "pop %eax\n\t" - "pop %ebx\n\t" - /* jmp, but don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" - ".Lne_fallthru:\n\t" - "lea 0x8(%esp),%esp\n\t" - "pop %eax\n\t" - "pop %ebx"); - - if (offset_p) - *offset_p = 18; - if (size_p) - *size_p = 4; -} - -static void -i386_emit_lt_goto (int *offset_p, int *size_p) -{ - EMIT_ASM32 (lt, - "cmpl %ebx,4(%esp)\n\t" - "jl .Llt_jump\n\t" - "jne .Llt_fallthru\n\t" - "cmpl %eax,(%esp)\n\t" - "jnl .Llt_fallthru\n\t" - ".Llt_jump:\n\t" - "lea 0x8(%esp),%esp\n\t" - "pop %eax\n\t" - "pop %ebx\n\t" - /* jmp, but don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" - ".Llt_fallthru:\n\t" - "lea 0x8(%esp),%esp\n\t" - "pop %eax\n\t" - "pop %ebx"); - - if (offset_p) - *offset_p = 20; - if (size_p) - *size_p = 4; -} - -static void -i386_emit_le_goto (int *offset_p, int *size_p) -{ - EMIT_ASM32 (le, - "cmpl %ebx,4(%esp)\n\t" - "jle .Lle_jump\n\t" - "jne .Lle_fallthru\n\t" - "cmpl %eax,(%esp)\n\t" - "jnle .Lle_fallthru\n\t" - ".Lle_jump:\n\t" - "lea 0x8(%esp),%esp\n\t" - "pop %eax\n\t" - "pop %ebx\n\t" - /* jmp, but don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" - ".Lle_fallthru:\n\t" - "lea 0x8(%esp),%esp\n\t" - "pop %eax\n\t" - "pop %ebx"); - - if (offset_p) - *offset_p = 20; - if (size_p) - *size_p = 4; -} - -static void -i386_emit_gt_goto (int *offset_p, int *size_p) -{ - EMIT_ASM32 (gt, - "cmpl %ebx,4(%esp)\n\t" - "jg .Lgt_jump\n\t" - "jne .Lgt_fallthru\n\t" - "cmpl %eax,(%esp)\n\t" - "jng .Lgt_fallthru\n\t" - ".Lgt_jump:\n\t" - "lea 0x8(%esp),%esp\n\t" - "pop %eax\n\t" - "pop %ebx\n\t" - /* jmp, but don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" - ".Lgt_fallthru:\n\t" - "lea 0x8(%esp),%esp\n\t" - "pop %eax\n\t" - "pop %ebx"); - - if (offset_p) - *offset_p = 20; - if (size_p) - *size_p = 4; -} - -static void -i386_emit_ge_goto (int *offset_p, int *size_p) -{ - EMIT_ASM32 (ge, - "cmpl %ebx,4(%esp)\n\t" - "jge .Lge_jump\n\t" - "jne .Lge_fallthru\n\t" - "cmpl %eax,(%esp)\n\t" - "jnge .Lge_fallthru\n\t" - ".Lge_jump:\n\t" - "lea 0x8(%esp),%esp\n\t" - "pop %eax\n\t" - "pop %ebx\n\t" - /* jmp, but don't trust the assembler to choose the right jump */ - ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" - ".Lge_fallthru:\n\t" - "lea 0x8(%esp),%esp\n\t" - "pop %eax\n\t" - "pop %ebx"); - - if (offset_p) - *offset_p = 20; - if (size_p) - *size_p = 4; -} - -struct emit_ops i386_emit_ops = - { - i386_emit_prologue, - i386_emit_epilogue, - i386_emit_add, - i386_emit_sub, - i386_emit_mul, - i386_emit_lsh, - i386_emit_rsh_signed, - i386_emit_rsh_unsigned, - i386_emit_ext, - i386_emit_log_not, - i386_emit_bit_and, - i386_emit_bit_or, - i386_emit_bit_xor, - i386_emit_bit_not, - i386_emit_equal, - i386_emit_less_signed, - i386_emit_less_unsigned, - i386_emit_ref, - i386_emit_if_goto, - i386_emit_goto, - i386_write_goto_address, - i386_emit_const, - i386_emit_call, - i386_emit_reg, - i386_emit_pop, - i386_emit_stack_flush, - i386_emit_zero_ext, - i386_emit_swap, - i386_emit_stack_adjust, - i386_emit_int_call_1, - i386_emit_void_call_2, - i386_emit_eq_goto, - i386_emit_ne_goto, - i386_emit_lt_goto, - i386_emit_le_goto, - i386_emit_gt_goto, - i386_emit_ge_goto - }; - - -static struct emit_ops * -x86_emit_ops (void) -{ -#ifdef __x86_64__ - if (is_64bit_tdesc ()) - return &amd64_emit_ops; - else -#endif - return &i386_emit_ops; -} - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -x86_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = x86_breakpoint_len; - return x86_breakpoint; -} - -static int -x86_supports_range_stepping (void) -{ - return 1; -} - -/* Implementation of linux_target_ops method "supports_hardware_single_step". - */ - -static int -x86_supports_hardware_single_step (void) -{ - return 1; -} - -static int -x86_get_ipa_tdesc_idx (void) -{ - struct regcache *regcache = get_thread_regcache (current_thread, 0); - const struct target_desc *tdesc = regcache->tdesc; - -#ifdef __x86_64__ - return amd64_get_ipa_tdesc_idx (tdesc); -#endif - - if (tdesc == tdesc_i386_linux_no_xml) - return X86_TDESC_SSE; - - return i386_get_ipa_tdesc_idx (tdesc); -} - -/* This is initialized assuming an amd64 target. - x86_arch_setup will correct it for i386 or amd64 targets. */ - -struct linux_target_ops the_low_target = -{ - x86_arch_setup, - x86_linux_regs_info, - x86_cannot_fetch_register, - x86_cannot_store_register, - NULL, /* fetch_register */ - x86_get_pc, - x86_set_pc, - NULL, /* breakpoint_kind_from_pc */ - x86_sw_breakpoint_from_kind, - NULL, - 1, - x86_breakpoint_at, - x86_supports_z_point_type, - x86_insert_point, - x86_remove_point, - x86_stopped_by_watchpoint, - x86_stopped_data_address, - /* collect_ptrace_register/supply_ptrace_register are not needed in the - native i386 case (no registers smaller than an xfer unit), and are not - used in the biarch case (HAVE_LINUX_USRREGS is not defined). */ - NULL, - NULL, - /* need to fix up i386 siginfo if host is amd64 */ - x86_siginfo_fixup, - x86_linux_new_process, - x86_linux_delete_process, - x86_linux_new_thread, - x86_linux_delete_thread, - x86_linux_new_fork, - x86_linux_prepare_to_resume, - x86_linux_process_qsupported, - x86_supports_tracepoints, - x86_get_thread_area, - x86_install_fast_tracepoint_jump_pad, - x86_emit_ops, - x86_get_min_fast_tracepoint_insn_len, - x86_supports_range_stepping, - NULL, /* breakpoint_kind_from_current_state */ - x86_supports_hardware_single_step, - x86_get_syscall_trapinfo, - x86_get_ipa_tdesc_idx, -}; - -void -initialize_low_arch (void) -{ - /* Initialize the Linux target descriptions. */ -#ifdef __x86_64__ - tdesc_amd64_linux_no_xml = allocate_target_description (); - copy_target_description (tdesc_amd64_linux_no_xml, - amd64_linux_read_description (X86_XSTATE_SSE_MASK, - false)); - tdesc_amd64_linux_no_xml->xmltarget = xmltarget_amd64_linux_no_xml; -#endif - - tdesc_i386_linux_no_xml = allocate_target_description (); - copy_target_description (tdesc_i386_linux_no_xml, - i386_linux_read_description (X86_XSTATE_SSE_MASK)); - tdesc_i386_linux_no_xml->xmltarget = xmltarget_i386_linux_no_xml; - - initialize_regsets_info (&x86_regsets_info); -} diff --git a/gdbserver/linux-x86-low.cc b/gdbserver/linux-x86-low.cc new file mode 100644 index 00000000000..09ec22ff678 --- /dev/null +++ b/gdbserver/linux-x86-low.cc @@ -0,0 +1,2922 @@ +/* GNU/Linux/x86-64 specific low level interface, for the remote server + for GDB. + Copyright (C) 2002-2020 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 . */ + +#include "server.h" +#include +#include +#include +#include "linux-low.h" +#include "i387-fp.h" +#include "x86-low.h" +#include "gdbsupport/x86-xstate.h" +#include "nat/gdb_ptrace.h" + +#ifdef __x86_64__ +#include "nat/amd64-linux-siginfo.h" +#endif + +#include "gdb_proc_service.h" +/* Don't include elf/common.h if linux/elf.h got included by + gdb_proc_service.h. */ +#ifndef ELFMAG0 +#include "elf/common.h" +#endif + +#include "gdbsupport/agent.h" +#include "tdesc.h" +#include "tracepoint.h" +#include "ax.h" +#include "nat/linux-nat.h" +#include "nat/x86-linux.h" +#include "nat/x86-linux-dregs.h" +#include "linux-x86-tdesc.h" + +#ifdef __x86_64__ +static struct target_desc *tdesc_amd64_linux_no_xml; +#endif +static struct target_desc *tdesc_i386_linux_no_xml; + + +static unsigned char jump_insn[] = { 0xe9, 0, 0, 0, 0 }; +static unsigned char small_jump_insn[] = { 0x66, 0xe9, 0, 0 }; + +/* Backward compatibility for gdb without XML support. */ + +static const char *xmltarget_i386_linux_no_xml = "@\ +i386\ +GNU/Linux\ +"; + +#ifdef __x86_64__ +static const char *xmltarget_amd64_linux_no_xml = "@\ +i386:x86-64\ +GNU/Linux\ +"; +#endif + +#include +#include +#include + +#ifndef PTRACE_GET_THREAD_AREA +#define PTRACE_GET_THREAD_AREA 25 +#endif + +/* This definition comes from prctl.h, but some kernels may not have it. */ +#ifndef PTRACE_ARCH_PRCTL +#define PTRACE_ARCH_PRCTL 30 +#endif + +/* The following definitions come from prctl.h, but may be absent + for certain configurations. */ +#ifndef ARCH_GET_FS +#define ARCH_SET_GS 0x1001 +#define ARCH_SET_FS 0x1002 +#define ARCH_GET_FS 0x1003 +#define ARCH_GET_GS 0x1004 +#endif + +/* Per-process arch-specific data we want to keep. */ + +struct arch_process_info +{ + struct x86_debug_reg_state debug_reg_state; +}; + +#ifdef __x86_64__ + +/* Mapping between the general-purpose registers in `struct user' + format and GDB's register array layout. + Note that the transfer layout uses 64-bit regs. */ +static /*const*/ int i386_regmap[] = +{ + RAX * 8, RCX * 8, RDX * 8, RBX * 8, + RSP * 8, RBP * 8, RSI * 8, RDI * 8, + RIP * 8, EFLAGS * 8, CS * 8, SS * 8, + DS * 8, ES * 8, FS * 8, GS * 8 +}; + +#define I386_NUM_REGS (sizeof (i386_regmap) / sizeof (i386_regmap[0])) + +/* So code below doesn't have to care, i386 or amd64. */ +#define ORIG_EAX ORIG_RAX +#define REGSIZE 8 + +static const int x86_64_regmap[] = +{ + RAX * 8, RBX * 8, RCX * 8, RDX * 8, + RSI * 8, RDI * 8, RBP * 8, RSP * 8, + R8 * 8, R9 * 8, R10 * 8, R11 * 8, + R12 * 8, R13 * 8, R14 * 8, R15 * 8, + RIP * 8, EFLAGS * 8, CS * 8, SS * 8, + DS * 8, ES * 8, FS * 8, GS * 8, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, + -1, -1, -1, -1, -1, -1, -1, -1, + ORIG_RAX * 8, +#ifdef HAVE_STRUCT_USER_REGS_STRUCT_FS_BASE + 21 * 8, 22 * 8, +#else + -1, -1, +#endif + -1, -1, -1, -1, /* MPX registers BND0 ... BND3. */ + -1, -1, /* MPX registers BNDCFGU, BNDSTATUS. */ + -1, -1, -1, -1, -1, -1, -1, -1, /* xmm16 ... xmm31 (AVX512) */ + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, /* ymm16 ... ymm31 (AVX512) */ + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, /* k0 ... k7 (AVX512) */ + -1, -1, -1, -1, -1, -1, -1, -1, /* zmm0 ... zmm31 (AVX512) */ + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, + -1 /* pkru */ +}; + +#define X86_64_NUM_REGS (sizeof (x86_64_regmap) / sizeof (x86_64_regmap[0])) +#define X86_64_USER_REGS (GS + 1) + +#else /* ! __x86_64__ */ + +/* Mapping between the general-purpose registers in `struct user' + format and GDB's register array layout. */ +static /*const*/ int i386_regmap[] = +{ + EAX * 4, ECX * 4, EDX * 4, EBX * 4, + UESP * 4, EBP * 4, ESI * 4, EDI * 4, + EIP * 4, EFL * 4, CS * 4, SS * 4, + DS * 4, ES * 4, FS * 4, GS * 4 +}; + +#define I386_NUM_REGS (sizeof (i386_regmap) / sizeof (i386_regmap[0])) + +#define REGSIZE 4 + +#endif + +#ifdef __x86_64__ + +/* Returns true if the current inferior belongs to a x86-64 process, + per the tdesc. */ + +static int +is_64bit_tdesc (void) +{ + struct regcache *regcache = get_thread_regcache (current_thread, 0); + + return register_size (regcache->tdesc, 0) == 8; +} + +#endif + + +/* Called by libthread_db. */ + +ps_err_e +ps_get_thread_area (struct ps_prochandle *ph, + lwpid_t lwpid, int idx, void **base) +{ +#ifdef __x86_64__ + int use_64bit = is_64bit_tdesc (); + + if (use_64bit) + { + switch (idx) + { + case FS: + if (ptrace (PTRACE_ARCH_PRCTL, lwpid, base, ARCH_GET_FS) == 0) + return PS_OK; + break; + case GS: + if (ptrace (PTRACE_ARCH_PRCTL, lwpid, base, ARCH_GET_GS) == 0) + return PS_OK; + break; + default: + return PS_BADADDR; + } + return PS_ERR; + } +#endif + + { + unsigned int desc[4]; + + if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, + (void *) (intptr_t) idx, (unsigned long) &desc) < 0) + return PS_ERR; + + /* Ensure we properly extend the value to 64-bits for x86_64. */ + *base = (void *) (uintptr_t) desc[1]; + return PS_OK; + } +} + +/* Get the thread area address. This is used to recognize which + thread is which when tracing with the in-process agent library. We + don't read anything from the address, and treat it as opaque; it's + the address itself that we assume is unique per-thread. */ + +static int +x86_get_thread_area (int lwpid, CORE_ADDR *addr) +{ +#ifdef __x86_64__ + int use_64bit = is_64bit_tdesc (); + + if (use_64bit) + { + void *base; + if (ptrace (PTRACE_ARCH_PRCTL, lwpid, &base, ARCH_GET_FS) == 0) + { + *addr = (CORE_ADDR) (uintptr_t) base; + return 0; + } + + return -1; + } +#endif + + { + struct lwp_info *lwp = find_lwp_pid (ptid_t (lwpid)); + struct thread_info *thr = get_lwp_thread (lwp); + struct regcache *regcache = get_thread_regcache (thr, 1); + unsigned int desc[4]; + ULONGEST gs = 0; + const int reg_thread_area = 3; /* bits to scale down register value. */ + int idx; + + collect_register_by_name (regcache, "gs", &gs); + + idx = gs >> reg_thread_area; + + if (ptrace (PTRACE_GET_THREAD_AREA, + lwpid_of (thr), + (void *) (long) idx, (unsigned long) &desc) < 0) + return -1; + + *addr = desc[1]; + return 0; + } +} + + + +static int +x86_cannot_store_register (int regno) +{ +#ifdef __x86_64__ + if (is_64bit_tdesc ()) + return 0; +#endif + + return regno >= I386_NUM_REGS; +} + +static int +x86_cannot_fetch_register (int regno) +{ +#ifdef __x86_64__ + if (is_64bit_tdesc ()) + return 0; +#endif + + return regno >= I386_NUM_REGS; +} + +static void +x86_fill_gregset (struct regcache *regcache, void *buf) +{ + int i; + +#ifdef __x86_64__ + if (register_size (regcache->tdesc, 0) == 8) + { + for (i = 0; i < X86_64_NUM_REGS; i++) + if (x86_64_regmap[i] != -1) + collect_register (regcache, i, ((char *) buf) + x86_64_regmap[i]); + +#ifndef HAVE_STRUCT_USER_REGS_STRUCT_FS_BASE + { + unsigned long base; + int lwpid = lwpid_of (current_thread); + + collect_register_by_name (regcache, "fs_base", &base); + ptrace (PTRACE_ARCH_PRCTL, lwpid, &base, ARCH_SET_FS); + + collect_register_by_name (regcache, "gs_base", &base); + ptrace (PTRACE_ARCH_PRCTL, lwpid, &base, ARCH_SET_GS); + } +#endif + + return; + } + + /* 32-bit inferior registers need to be zero-extended. + Callers would read uninitialized memory otherwise. */ + memset (buf, 0x00, X86_64_USER_REGS * 8); +#endif + + for (i = 0; i < I386_NUM_REGS; i++) + collect_register (regcache, i, ((char *) buf) + i386_regmap[i]); + + collect_register_by_name (regcache, "orig_eax", + ((char *) buf) + ORIG_EAX * REGSIZE); + +#ifdef __x86_64__ + /* Sign extend EAX value to avoid potential syscall restart + problems. + + See amd64_linux_collect_native_gregset() in gdb/amd64-linux-nat.c + for a detailed explanation. */ + if (register_size (regcache->tdesc, 0) == 4) + { + void *ptr = ((gdb_byte *) buf + + i386_regmap[find_regno (regcache->tdesc, "eax")]); + + *(int64_t *) ptr = *(int32_t *) ptr; + } +#endif +} + +static void +x86_store_gregset (struct regcache *regcache, const void *buf) +{ + int i; + +#ifdef __x86_64__ + if (register_size (regcache->tdesc, 0) == 8) + { + for (i = 0; i < X86_64_NUM_REGS; i++) + if (x86_64_regmap[i] != -1) + supply_register (regcache, i, ((char *) buf) + x86_64_regmap[i]); + +#ifndef HAVE_STRUCT_USER_REGS_STRUCT_FS_BASE + { + unsigned long base; + int lwpid = lwpid_of (current_thread); + + if (ptrace (PTRACE_ARCH_PRCTL, lwpid, &base, ARCH_GET_FS) == 0) + supply_register_by_name (regcache, "fs_base", &base); + + if (ptrace (PTRACE_ARCH_PRCTL, lwpid, &base, ARCH_GET_GS) == 0) + supply_register_by_name (regcache, "gs_base", &base); + } +#endif + return; + } +#endif + + for (i = 0; i < I386_NUM_REGS; i++) + supply_register (regcache, i, ((char *) buf) + i386_regmap[i]); + + supply_register_by_name (regcache, "orig_eax", + ((char *) buf) + ORIG_EAX * REGSIZE); +} + +static void +x86_fill_fpregset (struct regcache *regcache, void *buf) +{ +#ifdef __x86_64__ + i387_cache_to_fxsave (regcache, buf); +#else + i387_cache_to_fsave (regcache, buf); +#endif +} + +static void +x86_store_fpregset (struct regcache *regcache, const void *buf) +{ +#ifdef __x86_64__ + i387_fxsave_to_cache (regcache, buf); +#else + i387_fsave_to_cache (regcache, buf); +#endif +} + +#ifndef __x86_64__ + +static void +x86_fill_fpxregset (struct regcache *regcache, void *buf) +{ + i387_cache_to_fxsave (regcache, buf); +} + +static void +x86_store_fpxregset (struct regcache *regcache, const void *buf) +{ + i387_fxsave_to_cache (regcache, buf); +} + +#endif + +static void +x86_fill_xstateregset (struct regcache *regcache, void *buf) +{ + i387_cache_to_xsave (regcache, buf); +} + +static void +x86_store_xstateregset (struct regcache *regcache, const void *buf) +{ + i387_xsave_to_cache (regcache, buf); +} + +/* ??? The non-biarch i386 case stores all the i387 regs twice. + Once in i387_.*fsave.* and once in i387_.*fxsave.*. + This is, presumably, to handle the case where PTRACE_[GS]ETFPXREGS + doesn't work. IWBN to avoid the duplication in the case where it + does work. Maybe the arch_setup routine could check whether it works + and update the supported regsets accordingly. */ + +static struct regset_info x86_regsets[] = +{ +#ifdef HAVE_PTRACE_GETREGS + { PTRACE_GETREGS, PTRACE_SETREGS, 0, sizeof (elf_gregset_t), + GENERAL_REGS, + x86_fill_gregset, x86_store_gregset }, + { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_X86_XSTATE, 0, + EXTENDED_REGS, x86_fill_xstateregset, x86_store_xstateregset }, +# ifndef __x86_64__ +# ifdef HAVE_PTRACE_GETFPXREGS + { PTRACE_GETFPXREGS, PTRACE_SETFPXREGS, 0, sizeof (elf_fpxregset_t), + EXTENDED_REGS, + x86_fill_fpxregset, x86_store_fpxregset }, +# endif +# endif + { PTRACE_GETFPREGS, PTRACE_SETFPREGS, 0, sizeof (elf_fpregset_t), + FP_REGS, + x86_fill_fpregset, x86_store_fpregset }, +#endif /* HAVE_PTRACE_GETREGS */ + NULL_REGSET +}; + +static CORE_ADDR +x86_get_pc (struct regcache *regcache) +{ + int use_64bit = register_size (regcache->tdesc, 0) == 8; + + if (use_64bit) + { + uint64_t pc; + + collect_register_by_name (regcache, "rip", &pc); + return (CORE_ADDR) pc; + } + else + { + uint32_t pc; + + collect_register_by_name (regcache, "eip", &pc); + return (CORE_ADDR) pc; + } +} + +static void +x86_set_pc (struct regcache *regcache, CORE_ADDR pc) +{ + int use_64bit = register_size (regcache->tdesc, 0) == 8; + + if (use_64bit) + { + uint64_t newpc = pc; + + supply_register_by_name (regcache, "rip", &newpc); + } + else + { + uint32_t newpc = pc; + + supply_register_by_name (regcache, "eip", &newpc); + } +} + +static const gdb_byte x86_breakpoint[] = { 0xCC }; +#define x86_breakpoint_len 1 + +static int +x86_breakpoint_at (CORE_ADDR pc) +{ + unsigned char c; + + (*the_target->read_memory) (pc, &c, 1); + if (c == 0xCC) + return 1; + + return 0; +} + +/* Low-level function vector. */ +struct x86_dr_low_type x86_dr_low = + { + x86_linux_dr_set_control, + x86_linux_dr_set_addr, + x86_linux_dr_get_addr, + x86_linux_dr_get_status, + x86_linux_dr_get_control, + sizeof (void *), + }; + +/* Breakpoint/Watchpoint support. */ + +static int +x86_supports_z_point_type (char z_type) +{ + switch (z_type) + { + case Z_PACKET_SW_BP: + case Z_PACKET_HW_BP: + case Z_PACKET_WRITE_WP: + case Z_PACKET_ACCESS_WP: + return 1; + default: + return 0; + } +} + +static int +x86_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, + int size, struct raw_breakpoint *bp) +{ + struct process_info *proc = current_process (); + + switch (type) + { + case raw_bkpt_type_hw: + case raw_bkpt_type_write_wp: + case raw_bkpt_type_access_wp: + { + enum target_hw_bp_type hw_type + = raw_bkpt_type_to_target_hw_bp_type (type); + struct x86_debug_reg_state *state + = &proc->priv->arch_private->debug_reg_state; + + return x86_dr_insert_watchpoint (state, hw_type, addr, size); + } + + default: + /* Unsupported. */ + return 1; + } +} + +static int +x86_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, + int size, struct raw_breakpoint *bp) +{ + struct process_info *proc = current_process (); + + switch (type) + { + case raw_bkpt_type_hw: + case raw_bkpt_type_write_wp: + case raw_bkpt_type_access_wp: + { + enum target_hw_bp_type hw_type + = raw_bkpt_type_to_target_hw_bp_type (type); + struct x86_debug_reg_state *state + = &proc->priv->arch_private->debug_reg_state; + + return x86_dr_remove_watchpoint (state, hw_type, addr, size); + } + default: + /* Unsupported. */ + return 1; + } +} + +static int +x86_stopped_by_watchpoint (void) +{ + struct process_info *proc = current_process (); + return x86_dr_stopped_by_watchpoint (&proc->priv->arch_private->debug_reg_state); +} + +static CORE_ADDR +x86_stopped_data_address (void) +{ + struct process_info *proc = current_process (); + CORE_ADDR addr; + if (x86_dr_stopped_data_address (&proc->priv->arch_private->debug_reg_state, + &addr)) + return addr; + return 0; +} + +/* Called when a new process is created. */ + +static struct arch_process_info * +x86_linux_new_process (void) +{ + struct arch_process_info *info = XCNEW (struct arch_process_info); + + x86_low_init_dregs (&info->debug_reg_state); + + return info; +} + +/* Called when a process is being deleted. */ + +static void +x86_linux_delete_process (struct arch_process_info *info) +{ + xfree (info); +} + +/* Target routine for linux_new_fork. */ + +static void +x86_linux_new_fork (struct process_info *parent, struct process_info *child) +{ + /* These are allocated by linux_add_process. */ + gdb_assert (parent->priv != NULL + && parent->priv->arch_private != NULL); + gdb_assert (child->priv != NULL + && child->priv->arch_private != NULL); + + /* Linux kernel before 2.6.33 commit + 72f674d203cd230426437cdcf7dd6f681dad8b0d + will inherit hardware debug registers from parent + on fork/vfork/clone. Newer Linux kernels create such tasks with + zeroed debug registers. + + GDB core assumes the child inherits the watchpoints/hw + breakpoints of the parent, and will remove them all from the + forked off process. Copy the debug registers mirrors into the + new process so that all breakpoints and watchpoints can be + removed together. The debug registers mirror will become zeroed + in the end before detaching the forked off process, thus making + this compatible with older Linux kernels too. */ + + *child->priv->arch_private = *parent->priv->arch_private; +} + +/* See nat/x86-dregs.h. */ + +struct x86_debug_reg_state * +x86_debug_reg_state (pid_t pid) +{ + struct process_info *proc = find_process_pid (pid); + + return &proc->priv->arch_private->debug_reg_state; +} + +/* When GDBSERVER is built as a 64-bit application on linux, the + PTRACE_GETSIGINFO data is always presented in 64-bit layout. Since + debugging a 32-bit inferior with a 64-bit GDBSERVER should look the same + as debugging it with a 32-bit GDBSERVER, we do the 32-bit <-> 64-bit + conversion in-place ourselves. */ + +/* Convert a ptrace/host siginfo object, into/from the siginfo in the + layout of the inferiors' architecture. Returns true if any + conversion was done; false otherwise. If DIRECTION is 1, then copy + from INF to PTRACE. If DIRECTION is 0, copy from PTRACE to + INF. */ + +static int +x86_siginfo_fixup (siginfo_t *ptrace, gdb_byte *inf, int direction) +{ +#ifdef __x86_64__ + unsigned int machine; + int tid = lwpid_of (current_thread); + int is_elf64 = linux_pid_exe_is_elf_64_file (tid, &machine); + + /* Is the inferior 32-bit? If so, then fixup the siginfo object. */ + if (!is_64bit_tdesc ()) + return amd64_linux_siginfo_fixup_common (ptrace, inf, direction, + FIXUP_32); + /* No fixup for native x32 GDB. */ + else if (!is_elf64 && sizeof (void *) == 8) + return amd64_linux_siginfo_fixup_common (ptrace, inf, direction, + FIXUP_X32); +#endif + + return 0; +} + +static int use_xml; + +/* Format of XSAVE extended state is: + struct + { + fxsave_bytes[0..463] + sw_usable_bytes[464..511] + xstate_hdr_bytes[512..575] + avx_bytes[576..831] + future_state etc + }; + + Same memory layout will be used for the coredump NT_X86_XSTATE + representing the XSAVE extended state registers. + + The first 8 bytes of the sw_usable_bytes[464..467] is the OS enabled + extended state mask, which is the same as the extended control register + 0 (the XFEATURE_ENABLED_MASK register), XCR0. We can use this mask + together with the mask saved in the xstate_hdr_bytes to determine what + states the processor/OS supports and what state, used or initialized, + the process/thread is in. */ +#define I386_LINUX_XSAVE_XCR0_OFFSET 464 + +/* Does the current host support the GETFPXREGS request? The header + file may or may not define it, and even if it is defined, the + kernel will return EIO if it's running on a pre-SSE processor. */ +int have_ptrace_getfpxregs = +#ifdef HAVE_PTRACE_GETFPXREGS + -1 +#else + 0 +#endif +; + +/* Get Linux/x86 target description from running target. */ + +static const struct target_desc * +x86_linux_read_description (void) +{ + unsigned int machine; + int is_elf64; + int xcr0_features; + int tid; + static uint64_t xcr0; + struct regset_info *regset; + + tid = lwpid_of (current_thread); + + is_elf64 = linux_pid_exe_is_elf_64_file (tid, &machine); + + if (sizeof (void *) == 4) + { + if (is_elf64 > 0) + error (_("Can't debug 64-bit process with 32-bit GDBserver")); +#ifndef __x86_64__ + else if (machine == EM_X86_64) + error (_("Can't debug x86-64 process with 32-bit GDBserver")); +#endif + } + +#if !defined __x86_64__ && defined HAVE_PTRACE_GETFPXREGS + if (machine == EM_386 && have_ptrace_getfpxregs == -1) + { + elf_fpxregset_t fpxregs; + + if (ptrace (PTRACE_GETFPXREGS, tid, 0, (long) &fpxregs) < 0) + { + have_ptrace_getfpxregs = 0; + have_ptrace_getregset = 0; + return i386_linux_read_description (X86_XSTATE_X87); + } + else + have_ptrace_getfpxregs = 1; + } +#endif + + if (!use_xml) + { + x86_xcr0 = X86_XSTATE_SSE_MASK; + + /* Don't use XML. */ +#ifdef __x86_64__ + if (machine == EM_X86_64) + return tdesc_amd64_linux_no_xml; + else +#endif + return tdesc_i386_linux_no_xml; + } + + if (have_ptrace_getregset == -1) + { + uint64_t xstateregs[(X86_XSTATE_SSE_SIZE / sizeof (uint64_t))]; + struct iovec iov; + + iov.iov_base = xstateregs; + iov.iov_len = sizeof (xstateregs); + + /* Check if PTRACE_GETREGSET works. */ + if (ptrace (PTRACE_GETREGSET, tid, + (unsigned int) NT_X86_XSTATE, (long) &iov) < 0) + have_ptrace_getregset = 0; + else + { + have_ptrace_getregset = 1; + + /* Get XCR0 from XSAVE extended state. */ + xcr0 = xstateregs[(I386_LINUX_XSAVE_XCR0_OFFSET + / sizeof (uint64_t))]; + + /* Use PTRACE_GETREGSET if it is available. */ + for (regset = x86_regsets; + regset->fill_function != NULL; regset++) + if (regset->get_request == PTRACE_GETREGSET) + regset->size = X86_XSTATE_SIZE (xcr0); + else if (regset->type != GENERAL_REGS) + regset->size = 0; + } + } + + /* Check the native XCR0 only if PTRACE_GETREGSET is available. */ + xcr0_features = (have_ptrace_getregset + && (xcr0 & X86_XSTATE_ALL_MASK)); + + if (xcr0_features) + x86_xcr0 = xcr0; + + if (machine == EM_X86_64) + { +#ifdef __x86_64__ + const target_desc *tdesc = NULL; + + if (xcr0_features) + { + tdesc = amd64_linux_read_description (xcr0 & X86_XSTATE_ALL_MASK, + !is_elf64); + } + + if (tdesc == NULL) + tdesc = amd64_linux_read_description (X86_XSTATE_SSE_MASK, !is_elf64); + return tdesc; +#endif + } + else + { + const target_desc *tdesc = NULL; + + if (xcr0_features) + tdesc = i386_linux_read_description (xcr0 & X86_XSTATE_ALL_MASK); + + if (tdesc == NULL) + tdesc = i386_linux_read_description (X86_XSTATE_SSE); + + return tdesc; + } + + gdb_assert_not_reached ("failed to return tdesc"); +} + +/* Update all the target description of all processes; a new GDB + connected, and it may or not support xml target descriptions. */ + +static void +x86_linux_update_xmltarget (void) +{ + struct thread_info *saved_thread = current_thread; + + /* Before changing the register cache's internal layout, flush the + contents of the current valid caches back to the threads, and + release the current regcache objects. */ + regcache_release (); + + for_each_process ([] (process_info *proc) { + int pid = proc->pid; + + /* Look up any thread of this process. */ + current_thread = find_any_thread_of_pid (pid); + + the_low_target.arch_setup (); + }); + + current_thread = saved_thread; +} + +/* Process qSupported query, "xmlRegisters=". Update the buffer size for + PTRACE_GETREGSET. */ + +static void +x86_linux_process_qsupported (char **features, int count) +{ + int i; + + /* Return if gdb doesn't support XML. If gdb sends "xmlRegisters=" + with "i386" in qSupported query, it supports x86 XML target + descriptions. */ + use_xml = 0; + for (i = 0; i < count; i++) + { + const char *feature = features[i]; + + if (startswith (feature, "xmlRegisters=")) + { + char *copy = xstrdup (feature + 13); + + char *saveptr; + for (char *p = strtok_r (copy, ",", &saveptr); + p != NULL; + p = strtok_r (NULL, ",", &saveptr)) + { + if (strcmp (p, "i386") == 0) + { + use_xml = 1; + break; + } + } + + free (copy); + } + } + x86_linux_update_xmltarget (); +} + +/* Common for x86/x86-64. */ + +static struct regsets_info x86_regsets_info = + { + x86_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +#ifdef __x86_64__ +static struct regs_info amd64_linux_regs_info = + { + NULL, /* regset_bitmap */ + NULL, /* usrregs_info */ + &x86_regsets_info + }; +#endif +static struct usrregs_info i386_linux_usrregs_info = + { + I386_NUM_REGS, + i386_regmap, + }; + +static struct regs_info i386_linux_regs_info = + { + NULL, /* regset_bitmap */ + &i386_linux_usrregs_info, + &x86_regsets_info + }; + +static const struct regs_info * +x86_linux_regs_info (void) +{ +#ifdef __x86_64__ + if (is_64bit_tdesc ()) + return &amd64_linux_regs_info; + else +#endif + return &i386_linux_regs_info; +} + +/* Initialize the target description for the architecture of the + inferior. */ + +static void +x86_arch_setup (void) +{ + current_process ()->tdesc = x86_linux_read_description (); +} + +/* Fill *SYSNO and *SYSRET with the syscall nr trapped and the syscall return + code. This should only be called if LWP got a SYSCALL_SIGTRAP. */ + +static void +x86_get_syscall_trapinfo (struct regcache *regcache, int *sysno) +{ + int use_64bit = register_size (regcache->tdesc, 0) == 8; + + if (use_64bit) + { + long l_sysno; + + collect_register_by_name (regcache, "orig_rax", &l_sysno); + *sysno = (int) l_sysno; + } + else + collect_register_by_name (regcache, "orig_eax", sysno); +} + +static int +x86_supports_tracepoints (void) +{ + return 1; +} + +static void +append_insns (CORE_ADDR *to, size_t len, const unsigned char *buf) +{ + target_write_memory (*to, buf, len); + *to += len; +} + +static int +push_opcode (unsigned char *buf, const char *op) +{ + unsigned char *buf_org = buf; + + while (1) + { + char *endptr; + unsigned long ul = strtoul (op, &endptr, 16); + + if (endptr == op) + break; + + *buf++ = ul; + op = endptr; + } + + return buf - buf_org; +} + +#ifdef __x86_64__ + +/* Build a jump pad that saves registers and calls a collection + function. Writes a jump instruction to the jump pad to + JJUMPAD_INSN. The caller is responsible to write it in at the + tracepoint address. */ + +static int +amd64_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, CORE_ADDR tpaddr, + CORE_ADDR collector, + CORE_ADDR lockaddr, + ULONGEST orig_size, + CORE_ADDR *jump_entry, + CORE_ADDR *trampoline, + ULONGEST *trampoline_size, + unsigned char *jjump_pad_insn, + ULONGEST *jjump_pad_insn_size, + CORE_ADDR *adjusted_insn_addr, + CORE_ADDR *adjusted_insn_addr_end, + char *err) +{ + unsigned char buf[40]; + int i, offset; + int64_t loffset; + + CORE_ADDR buildaddr = *jump_entry; + + /* Build the jump pad. */ + + /* First, do tracepoint data collection. Save registers. */ + i = 0; + /* Need to ensure stack pointer saved first. */ + buf[i++] = 0x54; /* push %rsp */ + buf[i++] = 0x55; /* push %rbp */ + buf[i++] = 0x57; /* push %rdi */ + buf[i++] = 0x56; /* push %rsi */ + buf[i++] = 0x52; /* push %rdx */ + buf[i++] = 0x51; /* push %rcx */ + buf[i++] = 0x53; /* push %rbx */ + buf[i++] = 0x50; /* push %rax */ + buf[i++] = 0x41; buf[i++] = 0x57; /* push %r15 */ + buf[i++] = 0x41; buf[i++] = 0x56; /* push %r14 */ + buf[i++] = 0x41; buf[i++] = 0x55; /* push %r13 */ + buf[i++] = 0x41; buf[i++] = 0x54; /* push %r12 */ + buf[i++] = 0x41; buf[i++] = 0x53; /* push %r11 */ + buf[i++] = 0x41; buf[i++] = 0x52; /* push %r10 */ + buf[i++] = 0x41; buf[i++] = 0x51; /* push %r9 */ + buf[i++] = 0x41; buf[i++] = 0x50; /* push %r8 */ + buf[i++] = 0x9c; /* pushfq */ + buf[i++] = 0x48; /* movabs ,%rdi */ + buf[i++] = 0xbf; + memcpy (buf + i, &tpaddr, 8); + i += 8; + buf[i++] = 0x57; /* push %rdi */ + append_insns (&buildaddr, i, buf); + + /* Stack space for the collecting_t object. */ + i = 0; + i += push_opcode (&buf[i], "48 83 ec 18"); /* sub $0x18,%rsp */ + i += push_opcode (&buf[i], "48 b8"); /* mov ,%rax */ + memcpy (buf + i, &tpoint, 8); + i += 8; + i += push_opcode (&buf[i], "48 89 04 24"); /* mov %rax,(%rsp) */ + i += push_opcode (&buf[i], + "64 48 8b 04 25 00 00 00 00"); /* mov %fs:0x0,%rax */ + i += push_opcode (&buf[i], "48 89 44 24 08"); /* mov %rax,0x8(%rsp) */ + append_insns (&buildaddr, i, buf); + + /* spin-lock. */ + i = 0; + i += push_opcode (&buf[i], "48 be"); /* movl ,%rsi */ + memcpy (&buf[i], (void *) &lockaddr, 8); + i += 8; + i += push_opcode (&buf[i], "48 89 e1"); /* mov %rsp,%rcx */ + i += push_opcode (&buf[i], "31 c0"); /* xor %eax,%eax */ + i += push_opcode (&buf[i], "f0 48 0f b1 0e"); /* lock cmpxchg %rcx,(%rsi) */ + i += push_opcode (&buf[i], "48 85 c0"); /* test %rax,%rax */ + i += push_opcode (&buf[i], "75 f4"); /* jne */ + append_insns (&buildaddr, i, buf); + + /* Set up the gdb_collect call. */ + /* At this point, (stack pointer + 0x18) is the base of our saved + register block. */ + + i = 0; + i += push_opcode (&buf[i], "48 89 e6"); /* mov %rsp,%rsi */ + i += push_opcode (&buf[i], "48 83 c6 18"); /* add $0x18,%rsi */ + + /* tpoint address may be 64-bit wide. */ + i += push_opcode (&buf[i], "48 bf"); /* movl ,%rdi */ + memcpy (buf + i, &tpoint, 8); + i += 8; + append_insns (&buildaddr, i, buf); + + /* The collector function being in the shared library, may be + >31-bits away off the jump pad. */ + i = 0; + i += push_opcode (&buf[i], "48 b8"); /* mov $collector,%rax */ + memcpy (buf + i, &collector, 8); + i += 8; + i += push_opcode (&buf[i], "ff d0"); /* callq *%rax */ + append_insns (&buildaddr, i, buf); + + /* Clear the spin-lock. */ + i = 0; + i += push_opcode (&buf[i], "31 c0"); /* xor %eax,%eax */ + i += push_opcode (&buf[i], "48 a3"); /* mov %rax, lockaddr */ + memcpy (buf + i, &lockaddr, 8); + i += 8; + append_insns (&buildaddr, i, buf); + + /* Remove stack that had been used for the collect_t object. */ + i = 0; + i += push_opcode (&buf[i], "48 83 c4 18"); /* add $0x18,%rsp */ + append_insns (&buildaddr, i, buf); + + /* Restore register state. */ + i = 0; + buf[i++] = 0x48; /* add $0x8,%rsp */ + buf[i++] = 0x83; + buf[i++] = 0xc4; + buf[i++] = 0x08; + buf[i++] = 0x9d; /* popfq */ + buf[i++] = 0x41; buf[i++] = 0x58; /* pop %r8 */ + buf[i++] = 0x41; buf[i++] = 0x59; /* pop %r9 */ + buf[i++] = 0x41; buf[i++] = 0x5a; /* pop %r10 */ + buf[i++] = 0x41; buf[i++] = 0x5b; /* pop %r11 */ + buf[i++] = 0x41; buf[i++] = 0x5c; /* pop %r12 */ + buf[i++] = 0x41; buf[i++] = 0x5d; /* pop %r13 */ + buf[i++] = 0x41; buf[i++] = 0x5e; /* pop %r14 */ + buf[i++] = 0x41; buf[i++] = 0x5f; /* pop %r15 */ + buf[i++] = 0x58; /* pop %rax */ + buf[i++] = 0x5b; /* pop %rbx */ + buf[i++] = 0x59; /* pop %rcx */ + buf[i++] = 0x5a; /* pop %rdx */ + buf[i++] = 0x5e; /* pop %rsi */ + buf[i++] = 0x5f; /* pop %rdi */ + buf[i++] = 0x5d; /* pop %rbp */ + buf[i++] = 0x5c; /* pop %rsp */ + append_insns (&buildaddr, i, buf); + + /* Now, adjust the original instruction to execute in the jump + pad. */ + *adjusted_insn_addr = buildaddr; + relocate_instruction (&buildaddr, tpaddr); + *adjusted_insn_addr_end = buildaddr; + + /* Finally, write a jump back to the program. */ + + loffset = (tpaddr + orig_size) - (buildaddr + sizeof (jump_insn)); + if (loffset > INT_MAX || loffset < INT_MIN) + { + sprintf (err, + "E.Jump back from jump pad too far from tracepoint " + "(offset 0x%" PRIx64 " > int32).", loffset); + return 1; + } + + offset = (int) loffset; + memcpy (buf, jump_insn, sizeof (jump_insn)); + memcpy (buf + 1, &offset, 4); + append_insns (&buildaddr, sizeof (jump_insn), buf); + + /* The jump pad is now built. Wire in a jump to our jump pad. This + is always done last (by our caller actually), so that we can + install fast tracepoints with threads running. This relies on + the agent's atomic write support. */ + loffset = *jump_entry - (tpaddr + sizeof (jump_insn)); + if (loffset > INT_MAX || loffset < INT_MIN) + { + sprintf (err, + "E.Jump pad too far from tracepoint " + "(offset 0x%" PRIx64 " > int32).", loffset); + return 1; + } + + offset = (int) loffset; + + memcpy (buf, jump_insn, sizeof (jump_insn)); + memcpy (buf + 1, &offset, 4); + memcpy (jjump_pad_insn, buf, sizeof (jump_insn)); + *jjump_pad_insn_size = sizeof (jump_insn); + + /* Return the end address of our pad. */ + *jump_entry = buildaddr; + + return 0; +} + +#endif /* __x86_64__ */ + +/* Build a jump pad that saves registers and calls a collection + function. Writes a jump instruction to the jump pad to + JJUMPAD_INSN. The caller is responsible to write it in at the + tracepoint address. */ + +static int +i386_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, CORE_ADDR tpaddr, + CORE_ADDR collector, + CORE_ADDR lockaddr, + ULONGEST orig_size, + CORE_ADDR *jump_entry, + CORE_ADDR *trampoline, + ULONGEST *trampoline_size, + unsigned char *jjump_pad_insn, + ULONGEST *jjump_pad_insn_size, + CORE_ADDR *adjusted_insn_addr, + CORE_ADDR *adjusted_insn_addr_end, + char *err) +{ + unsigned char buf[0x100]; + int i, offset; + CORE_ADDR buildaddr = *jump_entry; + + /* Build the jump pad. */ + + /* First, do tracepoint data collection. Save registers. */ + i = 0; + buf[i++] = 0x60; /* pushad */ + buf[i++] = 0x68; /* push tpaddr aka $pc */ + *((int *)(buf + i)) = (int) tpaddr; + i += 4; + buf[i++] = 0x9c; /* pushf */ + buf[i++] = 0x1e; /* push %ds */ + buf[i++] = 0x06; /* push %es */ + buf[i++] = 0x0f; /* push %fs */ + buf[i++] = 0xa0; + buf[i++] = 0x0f; /* push %gs */ + buf[i++] = 0xa8; + buf[i++] = 0x16; /* push %ss */ + buf[i++] = 0x0e; /* push %cs */ + append_insns (&buildaddr, i, buf); + + /* Stack space for the collecting_t object. */ + i = 0; + i += push_opcode (&buf[i], "83 ec 08"); /* sub $0x8,%esp */ + + /* Build the object. */ + i += push_opcode (&buf[i], "b8"); /* mov ,%eax */ + memcpy (buf + i, &tpoint, 4); + i += 4; + i += push_opcode (&buf[i], "89 04 24"); /* mov %eax,(%esp) */ + + i += push_opcode (&buf[i], "65 a1 00 00 00 00"); /* mov %gs:0x0,%eax */ + i += push_opcode (&buf[i], "89 44 24 04"); /* mov %eax,0x4(%esp) */ + append_insns (&buildaddr, i, buf); + + /* spin-lock. Note this is using cmpxchg, which leaves i386 behind. + If we cared for it, this could be using xchg alternatively. */ + + i = 0; + i += push_opcode (&buf[i], "31 c0"); /* xor %eax,%eax */ + i += push_opcode (&buf[i], "f0 0f b1 25"); /* lock cmpxchg + %esp, */ + memcpy (&buf[i], (void *) &lockaddr, 4); + i += 4; + i += push_opcode (&buf[i], "85 c0"); /* test %eax,%eax */ + i += push_opcode (&buf[i], "75 f2"); /* jne */ + append_insns (&buildaddr, i, buf); + + + /* Set up arguments to the gdb_collect call. */ + i = 0; + i += push_opcode (&buf[i], "89 e0"); /* mov %esp,%eax */ + i += push_opcode (&buf[i], "83 c0 08"); /* add $0x08,%eax */ + i += push_opcode (&buf[i], "89 44 24 fc"); /* mov %eax,-0x4(%esp) */ + append_insns (&buildaddr, i, buf); + + i = 0; + i += push_opcode (&buf[i], "83 ec 08"); /* sub $0x8,%esp */ + append_insns (&buildaddr, i, buf); + + i = 0; + i += push_opcode (&buf[i], "c7 04 24"); /* movl ,(%esp) */ + memcpy (&buf[i], (void *) &tpoint, 4); + i += 4; + append_insns (&buildaddr, i, buf); + + buf[0] = 0xe8; /* call */ + offset = collector - (buildaddr + sizeof (jump_insn)); + memcpy (buf + 1, &offset, 4); + append_insns (&buildaddr, 5, buf); + /* Clean up after the call. */ + buf[0] = 0x83; /* add $0x8,%esp */ + buf[1] = 0xc4; + buf[2] = 0x08; + append_insns (&buildaddr, 3, buf); + + + /* Clear the spin-lock. This would need the LOCK prefix on older + broken archs. */ + i = 0; + i += push_opcode (&buf[i], "31 c0"); /* xor %eax,%eax */ + i += push_opcode (&buf[i], "a3"); /* mov %eax, lockaddr */ + memcpy (buf + i, &lockaddr, 4); + i += 4; + append_insns (&buildaddr, i, buf); + + + /* Remove stack that had been used for the collect_t object. */ + i = 0; + i += push_opcode (&buf[i], "83 c4 08"); /* add $0x08,%esp */ + append_insns (&buildaddr, i, buf); + + i = 0; + buf[i++] = 0x83; /* add $0x4,%esp (no pop of %cs, assume unchanged) */ + buf[i++] = 0xc4; + buf[i++] = 0x04; + buf[i++] = 0x17; /* pop %ss */ + buf[i++] = 0x0f; /* pop %gs */ + buf[i++] = 0xa9; + buf[i++] = 0x0f; /* pop %fs */ + buf[i++] = 0xa1; + buf[i++] = 0x07; /* pop %es */ + buf[i++] = 0x1f; /* pop %ds */ + buf[i++] = 0x9d; /* popf */ + buf[i++] = 0x83; /* add $0x4,%esp (pop of tpaddr aka $pc) */ + buf[i++] = 0xc4; + buf[i++] = 0x04; + buf[i++] = 0x61; /* popad */ + append_insns (&buildaddr, i, buf); + + /* Now, adjust the original instruction to execute in the jump + pad. */ + *adjusted_insn_addr = buildaddr; + relocate_instruction (&buildaddr, tpaddr); + *adjusted_insn_addr_end = buildaddr; + + /* Write the jump back to the program. */ + offset = (tpaddr + orig_size) - (buildaddr + sizeof (jump_insn)); + memcpy (buf, jump_insn, sizeof (jump_insn)); + memcpy (buf + 1, &offset, 4); + append_insns (&buildaddr, sizeof (jump_insn), buf); + + /* The jump pad is now built. Wire in a jump to our jump pad. This + is always done last (by our caller actually), so that we can + install fast tracepoints with threads running. This relies on + the agent's atomic write support. */ + if (orig_size == 4) + { + /* Create a trampoline. */ + *trampoline_size = sizeof (jump_insn); + if (!claim_trampoline_space (*trampoline_size, trampoline)) + { + /* No trampoline space available. */ + strcpy (err, + "E.Cannot allocate trampoline space needed for fast " + "tracepoints on 4-byte instructions."); + return 1; + } + + offset = *jump_entry - (*trampoline + sizeof (jump_insn)); + memcpy (buf, jump_insn, sizeof (jump_insn)); + memcpy (buf + 1, &offset, 4); + target_write_memory (*trampoline, buf, sizeof (jump_insn)); + + /* Use a 16-bit relative jump instruction to jump to the trampoline. */ + offset = (*trampoline - (tpaddr + sizeof (small_jump_insn))) & 0xffff; + memcpy (buf, small_jump_insn, sizeof (small_jump_insn)); + memcpy (buf + 2, &offset, 2); + memcpy (jjump_pad_insn, buf, sizeof (small_jump_insn)); + *jjump_pad_insn_size = sizeof (small_jump_insn); + } + else + { + /* Else use a 32-bit relative jump instruction. */ + offset = *jump_entry - (tpaddr + sizeof (jump_insn)); + memcpy (buf, jump_insn, sizeof (jump_insn)); + memcpy (buf + 1, &offset, 4); + memcpy (jjump_pad_insn, buf, sizeof (jump_insn)); + *jjump_pad_insn_size = sizeof (jump_insn); + } + + /* Return the end address of our pad. */ + *jump_entry = buildaddr; + + return 0; +} + +static int +x86_install_fast_tracepoint_jump_pad (CORE_ADDR tpoint, CORE_ADDR tpaddr, + CORE_ADDR collector, + CORE_ADDR lockaddr, + ULONGEST orig_size, + CORE_ADDR *jump_entry, + CORE_ADDR *trampoline, + ULONGEST *trampoline_size, + unsigned char *jjump_pad_insn, + ULONGEST *jjump_pad_insn_size, + CORE_ADDR *adjusted_insn_addr, + CORE_ADDR *adjusted_insn_addr_end, + char *err) +{ +#ifdef __x86_64__ + if (is_64bit_tdesc ()) + return amd64_install_fast_tracepoint_jump_pad (tpoint, tpaddr, + collector, lockaddr, + orig_size, jump_entry, + trampoline, trampoline_size, + jjump_pad_insn, + jjump_pad_insn_size, + adjusted_insn_addr, + adjusted_insn_addr_end, + err); +#endif + + return i386_install_fast_tracepoint_jump_pad (tpoint, tpaddr, + collector, lockaddr, + orig_size, jump_entry, + trampoline, trampoline_size, + jjump_pad_insn, + jjump_pad_insn_size, + adjusted_insn_addr, + adjusted_insn_addr_end, + err); +} + +/* Return the minimum instruction length for fast tracepoints on x86/x86-64 + architectures. */ + +static int +x86_get_min_fast_tracepoint_insn_len (void) +{ + static int warned_about_fast_tracepoints = 0; + +#ifdef __x86_64__ + /* On x86-64, 5-byte jump instructions with a 4-byte offset are always + used for fast tracepoints. */ + if (is_64bit_tdesc ()) + return 5; +#endif + + if (agent_loaded_p ()) + { + char errbuf[IPA_BUFSIZ]; + + errbuf[0] = '\0'; + + /* On x86, if trampolines are available, then 4-byte jump instructions + with a 2-byte offset may be used, otherwise 5-byte jump instructions + with a 4-byte offset are used instead. */ + if (have_fast_tracepoint_trampoline_buffer (errbuf)) + return 4; + else + { + /* GDB has no channel to explain to user why a shorter fast + tracepoint is not possible, but at least make GDBserver + mention that something has gone awry. */ + if (!warned_about_fast_tracepoints) + { + warning ("4-byte fast tracepoints not available; %s", errbuf); + warned_about_fast_tracepoints = 1; + } + return 5; + } + } + else + { + /* Indicate that the minimum length is currently unknown since the IPA + has not loaded yet. */ + return 0; + } +} + +static void +add_insns (unsigned char *start, int len) +{ + CORE_ADDR buildaddr = current_insn_ptr; + + if (debug_threads) + debug_printf ("Adding %d bytes of insn at %s\n", + len, paddress (buildaddr)); + + append_insns (&buildaddr, len, start); + current_insn_ptr = buildaddr; +} + +/* Our general strategy for emitting code is to avoid specifying raw + bytes whenever possible, and instead copy a block of inline asm + that is embedded in the function. This is a little messy, because + we need to keep the compiler from discarding what looks like dead + code, plus suppress various warnings. */ + +#define EMIT_ASM(NAME, INSNS) \ + do \ + { \ + extern unsigned char start_ ## NAME, end_ ## NAME; \ + add_insns (&start_ ## NAME, &end_ ## NAME - &start_ ## NAME); \ + __asm__ ("jmp end_" #NAME "\n" \ + "\t" "start_" #NAME ":" \ + "\t" INSNS "\n" \ + "\t" "end_" #NAME ":"); \ + } while (0) + +#ifdef __x86_64__ + +#define EMIT_ASM32(NAME,INSNS) \ + do \ + { \ + extern unsigned char start_ ## NAME, end_ ## NAME; \ + add_insns (&start_ ## NAME, &end_ ## NAME - &start_ ## NAME); \ + __asm__ (".code32\n" \ + "\t" "jmp end_" #NAME "\n" \ + "\t" "start_" #NAME ":\n" \ + "\t" INSNS "\n" \ + "\t" "end_" #NAME ":\n" \ + ".code64\n"); \ + } while (0) + +#else + +#define EMIT_ASM32(NAME,INSNS) EMIT_ASM(NAME,INSNS) + +#endif + +#ifdef __x86_64__ + +static void +amd64_emit_prologue (void) +{ + EMIT_ASM (amd64_prologue, + "pushq %rbp\n\t" + "movq %rsp,%rbp\n\t" + "sub $0x20,%rsp\n\t" + "movq %rdi,-8(%rbp)\n\t" + "movq %rsi,-16(%rbp)"); +} + + +static void +amd64_emit_epilogue (void) +{ + EMIT_ASM (amd64_epilogue, + "movq -16(%rbp),%rdi\n\t" + "movq %rax,(%rdi)\n\t" + "xor %rax,%rax\n\t" + "leave\n\t" + "ret"); +} + +static void +amd64_emit_add (void) +{ + EMIT_ASM (amd64_add, + "add (%rsp),%rax\n\t" + "lea 0x8(%rsp),%rsp"); +} + +static void +amd64_emit_sub (void) +{ + EMIT_ASM (amd64_sub, + "sub %rax,(%rsp)\n\t" + "pop %rax"); +} + +static void +amd64_emit_mul (void) +{ + emit_error = 1; +} + +static void +amd64_emit_lsh (void) +{ + emit_error = 1; +} + +static void +amd64_emit_rsh_signed (void) +{ + emit_error = 1; +} + +static void +amd64_emit_rsh_unsigned (void) +{ + emit_error = 1; +} + +static void +amd64_emit_ext (int arg) +{ + switch (arg) + { + case 8: + EMIT_ASM (amd64_ext_8, + "cbtw\n\t" + "cwtl\n\t" + "cltq"); + break; + case 16: + EMIT_ASM (amd64_ext_16, + "cwtl\n\t" + "cltq"); + break; + case 32: + EMIT_ASM (amd64_ext_32, + "cltq"); + break; + default: + emit_error = 1; + } +} + +static void +amd64_emit_log_not (void) +{ + EMIT_ASM (amd64_log_not, + "test %rax,%rax\n\t" + "sete %cl\n\t" + "movzbq %cl,%rax"); +} + +static void +amd64_emit_bit_and (void) +{ + EMIT_ASM (amd64_and, + "and (%rsp),%rax\n\t" + "lea 0x8(%rsp),%rsp"); +} + +static void +amd64_emit_bit_or (void) +{ + EMIT_ASM (amd64_or, + "or (%rsp),%rax\n\t" + "lea 0x8(%rsp),%rsp"); +} + +static void +amd64_emit_bit_xor (void) +{ + EMIT_ASM (amd64_xor, + "xor (%rsp),%rax\n\t" + "lea 0x8(%rsp),%rsp"); +} + +static void +amd64_emit_bit_not (void) +{ + EMIT_ASM (amd64_bit_not, + "xorq $0xffffffffffffffff,%rax"); +} + +static void +amd64_emit_equal (void) +{ + EMIT_ASM (amd64_equal, + "cmp %rax,(%rsp)\n\t" + "je .Lamd64_equal_true\n\t" + "xor %rax,%rax\n\t" + "jmp .Lamd64_equal_end\n\t" + ".Lamd64_equal_true:\n\t" + "mov $0x1,%rax\n\t" + ".Lamd64_equal_end:\n\t" + "lea 0x8(%rsp),%rsp"); +} + +static void +amd64_emit_less_signed (void) +{ + EMIT_ASM (amd64_less_signed, + "cmp %rax,(%rsp)\n\t" + "jl .Lamd64_less_signed_true\n\t" + "xor %rax,%rax\n\t" + "jmp .Lamd64_less_signed_end\n\t" + ".Lamd64_less_signed_true:\n\t" + "mov $1,%rax\n\t" + ".Lamd64_less_signed_end:\n\t" + "lea 0x8(%rsp),%rsp"); +} + +static void +amd64_emit_less_unsigned (void) +{ + EMIT_ASM (amd64_less_unsigned, + "cmp %rax,(%rsp)\n\t" + "jb .Lamd64_less_unsigned_true\n\t" + "xor %rax,%rax\n\t" + "jmp .Lamd64_less_unsigned_end\n\t" + ".Lamd64_less_unsigned_true:\n\t" + "mov $1,%rax\n\t" + ".Lamd64_less_unsigned_end:\n\t" + "lea 0x8(%rsp),%rsp"); +} + +static void +amd64_emit_ref (int size) +{ + switch (size) + { + case 1: + EMIT_ASM (amd64_ref1, + "movb (%rax),%al"); + break; + case 2: + EMIT_ASM (amd64_ref2, + "movw (%rax),%ax"); + break; + case 4: + EMIT_ASM (amd64_ref4, + "movl (%rax),%eax"); + break; + case 8: + EMIT_ASM (amd64_ref8, + "movq (%rax),%rax"); + break; + } +} + +static void +amd64_emit_if_goto (int *offset_p, int *size_p) +{ + EMIT_ASM (amd64_if_goto, + "mov %rax,%rcx\n\t" + "pop %rax\n\t" + "cmp $0,%rcx\n\t" + ".byte 0x0f, 0x85, 0x0, 0x0, 0x0, 0x0"); + if (offset_p) + *offset_p = 10; + if (size_p) + *size_p = 4; +} + +static void +amd64_emit_goto (int *offset_p, int *size_p) +{ + EMIT_ASM (amd64_goto, + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0"); + if (offset_p) + *offset_p = 1; + if (size_p) + *size_p = 4; +} + +static void +amd64_write_goto_address (CORE_ADDR from, CORE_ADDR to, int size) +{ + int diff = (to - (from + size)); + unsigned char buf[sizeof (int)]; + + if (size != 4) + { + emit_error = 1; + return; + } + + memcpy (buf, &diff, sizeof (int)); + target_write_memory (from, buf, sizeof (int)); +} + +static void +amd64_emit_const (LONGEST num) +{ + unsigned char buf[16]; + int i; + CORE_ADDR buildaddr = current_insn_ptr; + + i = 0; + buf[i++] = 0x48; buf[i++] = 0xb8; /* mov $,%rax */ + memcpy (&buf[i], &num, sizeof (num)); + i += 8; + append_insns (&buildaddr, i, buf); + current_insn_ptr = buildaddr; +} + +static void +amd64_emit_call (CORE_ADDR fn) +{ + unsigned char buf[16]; + int i; + CORE_ADDR buildaddr; + LONGEST offset64; + + /* The destination function being in the shared library, may be + >31-bits away off the compiled code pad. */ + + buildaddr = current_insn_ptr; + + offset64 = fn - (buildaddr + 1 /* call op */ + 4 /* 32-bit offset */); + + i = 0; + + if (offset64 > INT_MAX || offset64 < INT_MIN) + { + /* Offset is too large for a call. Use callq, but that requires + a register, so avoid it if possible. Use r10, since it is + call-clobbered, we don't have to push/pop it. */ + buf[i++] = 0x48; /* mov $fn,%r10 */ + buf[i++] = 0xba; + memcpy (buf + i, &fn, 8); + i += 8; + buf[i++] = 0xff; /* callq *%r10 */ + buf[i++] = 0xd2; + } + else + { + int offset32 = offset64; /* we know we can't overflow here. */ + + buf[i++] = 0xe8; /* call */ + memcpy (buf + i, &offset32, 4); + i += 4; + } + + append_insns (&buildaddr, i, buf); + current_insn_ptr = buildaddr; +} + +static void +amd64_emit_reg (int reg) +{ + unsigned char buf[16]; + int i; + CORE_ADDR buildaddr; + + /* Assume raw_regs is still in %rdi. */ + buildaddr = current_insn_ptr; + i = 0; + buf[i++] = 0xbe; /* mov $,%esi */ + memcpy (&buf[i], ®, sizeof (reg)); + i += 4; + append_insns (&buildaddr, i, buf); + current_insn_ptr = buildaddr; + amd64_emit_call (get_raw_reg_func_addr ()); +} + +static void +amd64_emit_pop (void) +{ + EMIT_ASM (amd64_pop, + "pop %rax"); +} + +static void +amd64_emit_stack_flush (void) +{ + EMIT_ASM (amd64_stack_flush, + "push %rax"); +} + +static void +amd64_emit_zero_ext (int arg) +{ + switch (arg) + { + case 8: + EMIT_ASM (amd64_zero_ext_8, + "and $0xff,%rax"); + break; + case 16: + EMIT_ASM (amd64_zero_ext_16, + "and $0xffff,%rax"); + break; + case 32: + EMIT_ASM (amd64_zero_ext_32, + "mov $0xffffffff,%rcx\n\t" + "and %rcx,%rax"); + break; + default: + emit_error = 1; + } +} + +static void +amd64_emit_swap (void) +{ + EMIT_ASM (amd64_swap, + "mov %rax,%rcx\n\t" + "pop %rax\n\t" + "push %rcx"); +} + +static void +amd64_emit_stack_adjust (int n) +{ + unsigned char buf[16]; + int i; + CORE_ADDR buildaddr = current_insn_ptr; + + i = 0; + buf[i++] = 0x48; /* lea $(%rsp),%rsp */ + buf[i++] = 0x8d; + buf[i++] = 0x64; + buf[i++] = 0x24; + /* This only handles adjustments up to 16, but we don't expect any more. */ + buf[i++] = n * 8; + append_insns (&buildaddr, i, buf); + current_insn_ptr = buildaddr; +} + +/* FN's prototype is `LONGEST(*fn)(int)'. */ + +static void +amd64_emit_int_call_1 (CORE_ADDR fn, int arg1) +{ + unsigned char buf[16]; + int i; + CORE_ADDR buildaddr; + + buildaddr = current_insn_ptr; + i = 0; + buf[i++] = 0xbf; /* movl $,%edi */ + memcpy (&buf[i], &arg1, sizeof (arg1)); + i += 4; + append_insns (&buildaddr, i, buf); + current_insn_ptr = buildaddr; + amd64_emit_call (fn); +} + +/* FN's prototype is `void(*fn)(int,LONGEST)'. */ + +static void +amd64_emit_void_call_2 (CORE_ADDR fn, int arg1) +{ + unsigned char buf[16]; + int i; + CORE_ADDR buildaddr; + + buildaddr = current_insn_ptr; + i = 0; + buf[i++] = 0xbf; /* movl $,%edi */ + memcpy (&buf[i], &arg1, sizeof (arg1)); + i += 4; + append_insns (&buildaddr, i, buf); + current_insn_ptr = buildaddr; + EMIT_ASM (amd64_void_call_2_a, + /* Save away a copy of the stack top. */ + "push %rax\n\t" + /* Also pass top as the second argument. */ + "mov %rax,%rsi"); + amd64_emit_call (fn); + EMIT_ASM (amd64_void_call_2_b, + /* Restore the stack top, %rax may have been trashed. */ + "pop %rax"); +} + +static void +amd64_emit_eq_goto (int *offset_p, int *size_p) +{ + EMIT_ASM (amd64_eq, + "cmp %rax,(%rsp)\n\t" + "jne .Lamd64_eq_fallthru\n\t" + "lea 0x8(%rsp),%rsp\n\t" + "pop %rax\n\t" + /* jmp, but don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" + ".Lamd64_eq_fallthru:\n\t" + "lea 0x8(%rsp),%rsp\n\t" + "pop %rax"); + + if (offset_p) + *offset_p = 13; + if (size_p) + *size_p = 4; +} + +static void +amd64_emit_ne_goto (int *offset_p, int *size_p) +{ + EMIT_ASM (amd64_ne, + "cmp %rax,(%rsp)\n\t" + "je .Lamd64_ne_fallthru\n\t" + "lea 0x8(%rsp),%rsp\n\t" + "pop %rax\n\t" + /* jmp, but don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" + ".Lamd64_ne_fallthru:\n\t" + "lea 0x8(%rsp),%rsp\n\t" + "pop %rax"); + + if (offset_p) + *offset_p = 13; + if (size_p) + *size_p = 4; +} + +static void +amd64_emit_lt_goto (int *offset_p, int *size_p) +{ + EMIT_ASM (amd64_lt, + "cmp %rax,(%rsp)\n\t" + "jnl .Lamd64_lt_fallthru\n\t" + "lea 0x8(%rsp),%rsp\n\t" + "pop %rax\n\t" + /* jmp, but don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" + ".Lamd64_lt_fallthru:\n\t" + "lea 0x8(%rsp),%rsp\n\t" + "pop %rax"); + + if (offset_p) + *offset_p = 13; + if (size_p) + *size_p = 4; +} + +static void +amd64_emit_le_goto (int *offset_p, int *size_p) +{ + EMIT_ASM (amd64_le, + "cmp %rax,(%rsp)\n\t" + "jnle .Lamd64_le_fallthru\n\t" + "lea 0x8(%rsp),%rsp\n\t" + "pop %rax\n\t" + /* jmp, but don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" + ".Lamd64_le_fallthru:\n\t" + "lea 0x8(%rsp),%rsp\n\t" + "pop %rax"); + + if (offset_p) + *offset_p = 13; + if (size_p) + *size_p = 4; +} + +static void +amd64_emit_gt_goto (int *offset_p, int *size_p) +{ + EMIT_ASM (amd64_gt, + "cmp %rax,(%rsp)\n\t" + "jng .Lamd64_gt_fallthru\n\t" + "lea 0x8(%rsp),%rsp\n\t" + "pop %rax\n\t" + /* jmp, but don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" + ".Lamd64_gt_fallthru:\n\t" + "lea 0x8(%rsp),%rsp\n\t" + "pop %rax"); + + if (offset_p) + *offset_p = 13; + if (size_p) + *size_p = 4; +} + +static void +amd64_emit_ge_goto (int *offset_p, int *size_p) +{ + EMIT_ASM (amd64_ge, + "cmp %rax,(%rsp)\n\t" + "jnge .Lamd64_ge_fallthru\n\t" + ".Lamd64_ge_jump:\n\t" + "lea 0x8(%rsp),%rsp\n\t" + "pop %rax\n\t" + /* jmp, but don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" + ".Lamd64_ge_fallthru:\n\t" + "lea 0x8(%rsp),%rsp\n\t" + "pop %rax"); + + if (offset_p) + *offset_p = 13; + if (size_p) + *size_p = 4; +} + +struct emit_ops amd64_emit_ops = + { + amd64_emit_prologue, + amd64_emit_epilogue, + amd64_emit_add, + amd64_emit_sub, + amd64_emit_mul, + amd64_emit_lsh, + amd64_emit_rsh_signed, + amd64_emit_rsh_unsigned, + amd64_emit_ext, + amd64_emit_log_not, + amd64_emit_bit_and, + amd64_emit_bit_or, + amd64_emit_bit_xor, + amd64_emit_bit_not, + amd64_emit_equal, + amd64_emit_less_signed, + amd64_emit_less_unsigned, + amd64_emit_ref, + amd64_emit_if_goto, + amd64_emit_goto, + amd64_write_goto_address, + amd64_emit_const, + amd64_emit_call, + amd64_emit_reg, + amd64_emit_pop, + amd64_emit_stack_flush, + amd64_emit_zero_ext, + amd64_emit_swap, + amd64_emit_stack_adjust, + amd64_emit_int_call_1, + amd64_emit_void_call_2, + amd64_emit_eq_goto, + amd64_emit_ne_goto, + amd64_emit_lt_goto, + amd64_emit_le_goto, + amd64_emit_gt_goto, + amd64_emit_ge_goto + }; + +#endif /* __x86_64__ */ + +static void +i386_emit_prologue (void) +{ + EMIT_ASM32 (i386_prologue, + "push %ebp\n\t" + "mov %esp,%ebp\n\t" + "push %ebx"); + /* At this point, the raw regs base address is at 8(%ebp), and the + value pointer is at 12(%ebp). */ +} + +static void +i386_emit_epilogue (void) +{ + EMIT_ASM32 (i386_epilogue, + "mov 12(%ebp),%ecx\n\t" + "mov %eax,(%ecx)\n\t" + "mov %ebx,0x4(%ecx)\n\t" + "xor %eax,%eax\n\t" + "pop %ebx\n\t" + "pop %ebp\n\t" + "ret"); +} + +static void +i386_emit_add (void) +{ + EMIT_ASM32 (i386_add, + "add (%esp),%eax\n\t" + "adc 0x4(%esp),%ebx\n\t" + "lea 0x8(%esp),%esp"); +} + +static void +i386_emit_sub (void) +{ + EMIT_ASM32 (i386_sub, + "subl %eax,(%esp)\n\t" + "sbbl %ebx,4(%esp)\n\t" + "pop %eax\n\t" + "pop %ebx\n\t"); +} + +static void +i386_emit_mul (void) +{ + emit_error = 1; +} + +static void +i386_emit_lsh (void) +{ + emit_error = 1; +} + +static void +i386_emit_rsh_signed (void) +{ + emit_error = 1; +} + +static void +i386_emit_rsh_unsigned (void) +{ + emit_error = 1; +} + +static void +i386_emit_ext (int arg) +{ + switch (arg) + { + case 8: + EMIT_ASM32 (i386_ext_8, + "cbtw\n\t" + "cwtl\n\t" + "movl %eax,%ebx\n\t" + "sarl $31,%ebx"); + break; + case 16: + EMIT_ASM32 (i386_ext_16, + "cwtl\n\t" + "movl %eax,%ebx\n\t" + "sarl $31,%ebx"); + break; + case 32: + EMIT_ASM32 (i386_ext_32, + "movl %eax,%ebx\n\t" + "sarl $31,%ebx"); + break; + default: + emit_error = 1; + } +} + +static void +i386_emit_log_not (void) +{ + EMIT_ASM32 (i386_log_not, + "or %ebx,%eax\n\t" + "test %eax,%eax\n\t" + "sete %cl\n\t" + "xor %ebx,%ebx\n\t" + "movzbl %cl,%eax"); +} + +static void +i386_emit_bit_and (void) +{ + EMIT_ASM32 (i386_and, + "and (%esp),%eax\n\t" + "and 0x4(%esp),%ebx\n\t" + "lea 0x8(%esp),%esp"); +} + +static void +i386_emit_bit_or (void) +{ + EMIT_ASM32 (i386_or, + "or (%esp),%eax\n\t" + "or 0x4(%esp),%ebx\n\t" + "lea 0x8(%esp),%esp"); +} + +static void +i386_emit_bit_xor (void) +{ + EMIT_ASM32 (i386_xor, + "xor (%esp),%eax\n\t" + "xor 0x4(%esp),%ebx\n\t" + "lea 0x8(%esp),%esp"); +} + +static void +i386_emit_bit_not (void) +{ + EMIT_ASM32 (i386_bit_not, + "xor $0xffffffff,%eax\n\t" + "xor $0xffffffff,%ebx\n\t"); +} + +static void +i386_emit_equal (void) +{ + EMIT_ASM32 (i386_equal, + "cmpl %ebx,4(%esp)\n\t" + "jne .Li386_equal_false\n\t" + "cmpl %eax,(%esp)\n\t" + "je .Li386_equal_true\n\t" + ".Li386_equal_false:\n\t" + "xor %eax,%eax\n\t" + "jmp .Li386_equal_end\n\t" + ".Li386_equal_true:\n\t" + "mov $1,%eax\n\t" + ".Li386_equal_end:\n\t" + "xor %ebx,%ebx\n\t" + "lea 0x8(%esp),%esp"); +} + +static void +i386_emit_less_signed (void) +{ + EMIT_ASM32 (i386_less_signed, + "cmpl %ebx,4(%esp)\n\t" + "jl .Li386_less_signed_true\n\t" + "jne .Li386_less_signed_false\n\t" + "cmpl %eax,(%esp)\n\t" + "jl .Li386_less_signed_true\n\t" + ".Li386_less_signed_false:\n\t" + "xor %eax,%eax\n\t" + "jmp .Li386_less_signed_end\n\t" + ".Li386_less_signed_true:\n\t" + "mov $1,%eax\n\t" + ".Li386_less_signed_end:\n\t" + "xor %ebx,%ebx\n\t" + "lea 0x8(%esp),%esp"); +} + +static void +i386_emit_less_unsigned (void) +{ + EMIT_ASM32 (i386_less_unsigned, + "cmpl %ebx,4(%esp)\n\t" + "jb .Li386_less_unsigned_true\n\t" + "jne .Li386_less_unsigned_false\n\t" + "cmpl %eax,(%esp)\n\t" + "jb .Li386_less_unsigned_true\n\t" + ".Li386_less_unsigned_false:\n\t" + "xor %eax,%eax\n\t" + "jmp .Li386_less_unsigned_end\n\t" + ".Li386_less_unsigned_true:\n\t" + "mov $1,%eax\n\t" + ".Li386_less_unsigned_end:\n\t" + "xor %ebx,%ebx\n\t" + "lea 0x8(%esp),%esp"); +} + +static void +i386_emit_ref (int size) +{ + switch (size) + { + case 1: + EMIT_ASM32 (i386_ref1, + "movb (%eax),%al"); + break; + case 2: + EMIT_ASM32 (i386_ref2, + "movw (%eax),%ax"); + break; + case 4: + EMIT_ASM32 (i386_ref4, + "movl (%eax),%eax"); + break; + case 8: + EMIT_ASM32 (i386_ref8, + "movl 4(%eax),%ebx\n\t" + "movl (%eax),%eax"); + break; + } +} + +static void +i386_emit_if_goto (int *offset_p, int *size_p) +{ + EMIT_ASM32 (i386_if_goto, + "mov %eax,%ecx\n\t" + "or %ebx,%ecx\n\t" + "pop %eax\n\t" + "pop %ebx\n\t" + "cmpl $0,%ecx\n\t" + /* Don't trust the assembler to choose the right jump */ + ".byte 0x0f, 0x85, 0x0, 0x0, 0x0, 0x0"); + + if (offset_p) + *offset_p = 11; /* be sure that this matches the sequence above */ + if (size_p) + *size_p = 4; +} + +static void +i386_emit_goto (int *offset_p, int *size_p) +{ + EMIT_ASM32 (i386_goto, + /* Don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0"); + if (offset_p) + *offset_p = 1; + if (size_p) + *size_p = 4; +} + +static void +i386_write_goto_address (CORE_ADDR from, CORE_ADDR to, int size) +{ + int diff = (to - (from + size)); + unsigned char buf[sizeof (int)]; + + /* We're only doing 4-byte sizes at the moment. */ + if (size != 4) + { + emit_error = 1; + return; + } + + memcpy (buf, &diff, sizeof (int)); + target_write_memory (from, buf, sizeof (int)); +} + +static void +i386_emit_const (LONGEST num) +{ + unsigned char buf[16]; + int i, hi, lo; + CORE_ADDR buildaddr = current_insn_ptr; + + i = 0; + buf[i++] = 0xb8; /* mov $,%eax */ + lo = num & 0xffffffff; + memcpy (&buf[i], &lo, sizeof (lo)); + i += 4; + hi = ((num >> 32) & 0xffffffff); + if (hi) + { + buf[i++] = 0xbb; /* mov $,%ebx */ + memcpy (&buf[i], &hi, sizeof (hi)); + i += 4; + } + else + { + buf[i++] = 0x31; buf[i++] = 0xdb; /* xor %ebx,%ebx */ + } + append_insns (&buildaddr, i, buf); + current_insn_ptr = buildaddr; +} + +static void +i386_emit_call (CORE_ADDR fn) +{ + unsigned char buf[16]; + int i, offset; + CORE_ADDR buildaddr; + + buildaddr = current_insn_ptr; + i = 0; + buf[i++] = 0xe8; /* call */ + offset = ((int) fn) - (buildaddr + 5); + memcpy (buf + 1, &offset, 4); + append_insns (&buildaddr, 5, buf); + current_insn_ptr = buildaddr; +} + +static void +i386_emit_reg (int reg) +{ + unsigned char buf[16]; + int i; + CORE_ADDR buildaddr; + + EMIT_ASM32 (i386_reg_a, + "sub $0x8,%esp"); + buildaddr = current_insn_ptr; + i = 0; + buf[i++] = 0xb8; /* mov $,%eax */ + memcpy (&buf[i], ®, sizeof (reg)); + i += 4; + append_insns (&buildaddr, i, buf); + current_insn_ptr = buildaddr; + EMIT_ASM32 (i386_reg_b, + "mov %eax,4(%esp)\n\t" + "mov 8(%ebp),%eax\n\t" + "mov %eax,(%esp)"); + i386_emit_call (get_raw_reg_func_addr ()); + EMIT_ASM32 (i386_reg_c, + "xor %ebx,%ebx\n\t" + "lea 0x8(%esp),%esp"); +} + +static void +i386_emit_pop (void) +{ + EMIT_ASM32 (i386_pop, + "pop %eax\n\t" + "pop %ebx"); +} + +static void +i386_emit_stack_flush (void) +{ + EMIT_ASM32 (i386_stack_flush, + "push %ebx\n\t" + "push %eax"); +} + +static void +i386_emit_zero_ext (int arg) +{ + switch (arg) + { + case 8: + EMIT_ASM32 (i386_zero_ext_8, + "and $0xff,%eax\n\t" + "xor %ebx,%ebx"); + break; + case 16: + EMIT_ASM32 (i386_zero_ext_16, + "and $0xffff,%eax\n\t" + "xor %ebx,%ebx"); + break; + case 32: + EMIT_ASM32 (i386_zero_ext_32, + "xor %ebx,%ebx"); + break; + default: + emit_error = 1; + } +} + +static void +i386_emit_swap (void) +{ + EMIT_ASM32 (i386_swap, + "mov %eax,%ecx\n\t" + "mov %ebx,%edx\n\t" + "pop %eax\n\t" + "pop %ebx\n\t" + "push %edx\n\t" + "push %ecx"); +} + +static void +i386_emit_stack_adjust (int n) +{ + unsigned char buf[16]; + int i; + CORE_ADDR buildaddr = current_insn_ptr; + + i = 0; + buf[i++] = 0x8d; /* lea $(%esp),%esp */ + buf[i++] = 0x64; + buf[i++] = 0x24; + buf[i++] = n * 8; + append_insns (&buildaddr, i, buf); + current_insn_ptr = buildaddr; +} + +/* FN's prototype is `LONGEST(*fn)(int)'. */ + +static void +i386_emit_int_call_1 (CORE_ADDR fn, int arg1) +{ + unsigned char buf[16]; + int i; + CORE_ADDR buildaddr; + + EMIT_ASM32 (i386_int_call_1_a, + /* Reserve a bit of stack space. */ + "sub $0x8,%esp"); + /* Put the one argument on the stack. */ + buildaddr = current_insn_ptr; + i = 0; + buf[i++] = 0xc7; /* movl $,(%esp) */ + buf[i++] = 0x04; + buf[i++] = 0x24; + memcpy (&buf[i], &arg1, sizeof (arg1)); + i += 4; + append_insns (&buildaddr, i, buf); + current_insn_ptr = buildaddr; + i386_emit_call (fn); + EMIT_ASM32 (i386_int_call_1_c, + "mov %edx,%ebx\n\t" + "lea 0x8(%esp),%esp"); +} + +/* FN's prototype is `void(*fn)(int,LONGEST)'. */ + +static void +i386_emit_void_call_2 (CORE_ADDR fn, int arg1) +{ + unsigned char buf[16]; + int i; + CORE_ADDR buildaddr; + + EMIT_ASM32 (i386_void_call_2_a, + /* Preserve %eax only; we don't have to worry about %ebx. */ + "push %eax\n\t" + /* Reserve a bit of stack space for arguments. */ + "sub $0x10,%esp\n\t" + /* Copy "top" to the second argument position. (Note that + we can't assume function won't scribble on its + arguments, so don't try to restore from this.) */ + "mov %eax,4(%esp)\n\t" + "mov %ebx,8(%esp)"); + /* Put the first argument on the stack. */ + buildaddr = current_insn_ptr; + i = 0; + buf[i++] = 0xc7; /* movl $,(%esp) */ + buf[i++] = 0x04; + buf[i++] = 0x24; + memcpy (&buf[i], &arg1, sizeof (arg1)); + i += 4; + append_insns (&buildaddr, i, buf); + current_insn_ptr = buildaddr; + i386_emit_call (fn); + EMIT_ASM32 (i386_void_call_2_b, + "lea 0x10(%esp),%esp\n\t" + /* Restore original stack top. */ + "pop %eax"); +} + + +static void +i386_emit_eq_goto (int *offset_p, int *size_p) +{ + EMIT_ASM32 (eq, + /* Check low half first, more likely to be decider */ + "cmpl %eax,(%esp)\n\t" + "jne .Leq_fallthru\n\t" + "cmpl %ebx,4(%esp)\n\t" + "jne .Leq_fallthru\n\t" + "lea 0x8(%esp),%esp\n\t" + "pop %eax\n\t" + "pop %ebx\n\t" + /* jmp, but don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" + ".Leq_fallthru:\n\t" + "lea 0x8(%esp),%esp\n\t" + "pop %eax\n\t" + "pop %ebx"); + + if (offset_p) + *offset_p = 18; + if (size_p) + *size_p = 4; +} + +static void +i386_emit_ne_goto (int *offset_p, int *size_p) +{ + EMIT_ASM32 (ne, + /* Check low half first, more likely to be decider */ + "cmpl %eax,(%esp)\n\t" + "jne .Lne_jump\n\t" + "cmpl %ebx,4(%esp)\n\t" + "je .Lne_fallthru\n\t" + ".Lne_jump:\n\t" + "lea 0x8(%esp),%esp\n\t" + "pop %eax\n\t" + "pop %ebx\n\t" + /* jmp, but don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" + ".Lne_fallthru:\n\t" + "lea 0x8(%esp),%esp\n\t" + "pop %eax\n\t" + "pop %ebx"); + + if (offset_p) + *offset_p = 18; + if (size_p) + *size_p = 4; +} + +static void +i386_emit_lt_goto (int *offset_p, int *size_p) +{ + EMIT_ASM32 (lt, + "cmpl %ebx,4(%esp)\n\t" + "jl .Llt_jump\n\t" + "jne .Llt_fallthru\n\t" + "cmpl %eax,(%esp)\n\t" + "jnl .Llt_fallthru\n\t" + ".Llt_jump:\n\t" + "lea 0x8(%esp),%esp\n\t" + "pop %eax\n\t" + "pop %ebx\n\t" + /* jmp, but don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" + ".Llt_fallthru:\n\t" + "lea 0x8(%esp),%esp\n\t" + "pop %eax\n\t" + "pop %ebx"); + + if (offset_p) + *offset_p = 20; + if (size_p) + *size_p = 4; +} + +static void +i386_emit_le_goto (int *offset_p, int *size_p) +{ + EMIT_ASM32 (le, + "cmpl %ebx,4(%esp)\n\t" + "jle .Lle_jump\n\t" + "jne .Lle_fallthru\n\t" + "cmpl %eax,(%esp)\n\t" + "jnle .Lle_fallthru\n\t" + ".Lle_jump:\n\t" + "lea 0x8(%esp),%esp\n\t" + "pop %eax\n\t" + "pop %ebx\n\t" + /* jmp, but don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" + ".Lle_fallthru:\n\t" + "lea 0x8(%esp),%esp\n\t" + "pop %eax\n\t" + "pop %ebx"); + + if (offset_p) + *offset_p = 20; + if (size_p) + *size_p = 4; +} + +static void +i386_emit_gt_goto (int *offset_p, int *size_p) +{ + EMIT_ASM32 (gt, + "cmpl %ebx,4(%esp)\n\t" + "jg .Lgt_jump\n\t" + "jne .Lgt_fallthru\n\t" + "cmpl %eax,(%esp)\n\t" + "jng .Lgt_fallthru\n\t" + ".Lgt_jump:\n\t" + "lea 0x8(%esp),%esp\n\t" + "pop %eax\n\t" + "pop %ebx\n\t" + /* jmp, but don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" + ".Lgt_fallthru:\n\t" + "lea 0x8(%esp),%esp\n\t" + "pop %eax\n\t" + "pop %ebx"); + + if (offset_p) + *offset_p = 20; + if (size_p) + *size_p = 4; +} + +static void +i386_emit_ge_goto (int *offset_p, int *size_p) +{ + EMIT_ASM32 (ge, + "cmpl %ebx,4(%esp)\n\t" + "jge .Lge_jump\n\t" + "jne .Lge_fallthru\n\t" + "cmpl %eax,(%esp)\n\t" + "jnge .Lge_fallthru\n\t" + ".Lge_jump:\n\t" + "lea 0x8(%esp),%esp\n\t" + "pop %eax\n\t" + "pop %ebx\n\t" + /* jmp, but don't trust the assembler to choose the right jump */ + ".byte 0xe9, 0x0, 0x0, 0x0, 0x0\n\t" + ".Lge_fallthru:\n\t" + "lea 0x8(%esp),%esp\n\t" + "pop %eax\n\t" + "pop %ebx"); + + if (offset_p) + *offset_p = 20; + if (size_p) + *size_p = 4; +} + +struct emit_ops i386_emit_ops = + { + i386_emit_prologue, + i386_emit_epilogue, + i386_emit_add, + i386_emit_sub, + i386_emit_mul, + i386_emit_lsh, + i386_emit_rsh_signed, + i386_emit_rsh_unsigned, + i386_emit_ext, + i386_emit_log_not, + i386_emit_bit_and, + i386_emit_bit_or, + i386_emit_bit_xor, + i386_emit_bit_not, + i386_emit_equal, + i386_emit_less_signed, + i386_emit_less_unsigned, + i386_emit_ref, + i386_emit_if_goto, + i386_emit_goto, + i386_write_goto_address, + i386_emit_const, + i386_emit_call, + i386_emit_reg, + i386_emit_pop, + i386_emit_stack_flush, + i386_emit_zero_ext, + i386_emit_swap, + i386_emit_stack_adjust, + i386_emit_int_call_1, + i386_emit_void_call_2, + i386_emit_eq_goto, + i386_emit_ne_goto, + i386_emit_lt_goto, + i386_emit_le_goto, + i386_emit_gt_goto, + i386_emit_ge_goto + }; + + +static struct emit_ops * +x86_emit_ops (void) +{ +#ifdef __x86_64__ + if (is_64bit_tdesc ()) + return &amd64_emit_ops; + else +#endif + return &i386_emit_ops; +} + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +x86_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = x86_breakpoint_len; + return x86_breakpoint; +} + +static int +x86_supports_range_stepping (void) +{ + return 1; +} + +/* Implementation of linux_target_ops method "supports_hardware_single_step". + */ + +static int +x86_supports_hardware_single_step (void) +{ + return 1; +} + +static int +x86_get_ipa_tdesc_idx (void) +{ + struct regcache *regcache = get_thread_regcache (current_thread, 0); + const struct target_desc *tdesc = regcache->tdesc; + +#ifdef __x86_64__ + return amd64_get_ipa_tdesc_idx (tdesc); +#endif + + if (tdesc == tdesc_i386_linux_no_xml) + return X86_TDESC_SSE; + + return i386_get_ipa_tdesc_idx (tdesc); +} + +/* This is initialized assuming an amd64 target. + x86_arch_setup will correct it for i386 or amd64 targets. */ + +struct linux_target_ops the_low_target = +{ + x86_arch_setup, + x86_linux_regs_info, + x86_cannot_fetch_register, + x86_cannot_store_register, + NULL, /* fetch_register */ + x86_get_pc, + x86_set_pc, + NULL, /* breakpoint_kind_from_pc */ + x86_sw_breakpoint_from_kind, + NULL, + 1, + x86_breakpoint_at, + x86_supports_z_point_type, + x86_insert_point, + x86_remove_point, + x86_stopped_by_watchpoint, + x86_stopped_data_address, + /* collect_ptrace_register/supply_ptrace_register are not needed in the + native i386 case (no registers smaller than an xfer unit), and are not + used in the biarch case (HAVE_LINUX_USRREGS is not defined). */ + NULL, + NULL, + /* need to fix up i386 siginfo if host is amd64 */ + x86_siginfo_fixup, + x86_linux_new_process, + x86_linux_delete_process, + x86_linux_new_thread, + x86_linux_delete_thread, + x86_linux_new_fork, + x86_linux_prepare_to_resume, + x86_linux_process_qsupported, + x86_supports_tracepoints, + x86_get_thread_area, + x86_install_fast_tracepoint_jump_pad, + x86_emit_ops, + x86_get_min_fast_tracepoint_insn_len, + x86_supports_range_stepping, + NULL, /* breakpoint_kind_from_current_state */ + x86_supports_hardware_single_step, + x86_get_syscall_trapinfo, + x86_get_ipa_tdesc_idx, +}; + +void +initialize_low_arch (void) +{ + /* Initialize the Linux target descriptions. */ +#ifdef __x86_64__ + tdesc_amd64_linux_no_xml = allocate_target_description (); + copy_target_description (tdesc_amd64_linux_no_xml, + amd64_linux_read_description (X86_XSTATE_SSE_MASK, + false)); + tdesc_amd64_linux_no_xml->xmltarget = xmltarget_amd64_linux_no_xml; +#endif + + tdesc_i386_linux_no_xml = allocate_target_description (); + copy_target_description (tdesc_i386_linux_no_xml, + i386_linux_read_description (X86_XSTATE_SSE_MASK)); + tdesc_i386_linux_no_xml->xmltarget = xmltarget_i386_linux_no_xml; + + initialize_regsets_info (&x86_regsets_info); +} diff --git a/gdbserver/linux-x86-tdesc.c b/gdbserver/linux-x86-tdesc.c deleted file mode 100644 index 96097eecc5e..00000000000 --- a/gdbserver/linux-x86-tdesc.c +++ /dev/null @@ -1,164 +0,0 @@ -/* GNU/Linux/x86-64 specific target description, for the remote server - for GDB. - Copyright (C) 2017-2020 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 . */ - -#include "server.h" -#include "tdesc.h" -#include "linux-x86-tdesc.h" -#include "arch/i386.h" -#include "gdbsupport/x86-xstate.h" -#ifdef __x86_64__ -#include "arch/amd64.h" -#endif -#include "x86-tdesc.h" - -/* Return the right x86_linux_tdesc index for a given XCR0. Return - X86_TDESC_LAST if can't find a match. */ - -static enum x86_linux_tdesc -xcr0_to_tdesc_idx (uint64_t xcr0, bool is_x32) -{ - if (xcr0 & X86_XSTATE_PKRU) - { - if (is_x32) - { - /* No x32 MPX and PKU, fall back to avx_avx512. */ - return X86_TDESC_AVX_AVX512; - } - else - return X86_TDESC_AVX_MPX_AVX512_PKU; - } - else if (xcr0 & X86_XSTATE_AVX512) - return X86_TDESC_AVX_AVX512; - else if ((xcr0 & X86_XSTATE_AVX_MPX_MASK) == X86_XSTATE_AVX_MPX_MASK) - { - if (is_x32) /* No MPX on x32. */ - return X86_TDESC_AVX; - else - return X86_TDESC_AVX_MPX; - } - else if (xcr0 & X86_XSTATE_MPX) - { - if (is_x32) /* No MPX on x32. */ - return X86_TDESC_AVX; - else - return X86_TDESC_MPX; - } - else if (xcr0 & X86_XSTATE_AVX) - return X86_TDESC_AVX; - else if (xcr0 & X86_XSTATE_SSE) - return X86_TDESC_SSE; - else if (xcr0 & X86_XSTATE_X87) - return X86_TDESC_MMX; - else - return X86_TDESC_LAST; -} - -#if defined __i386__ || !defined IN_PROCESS_AGENT - -static struct target_desc *i386_tdescs[X86_TDESC_LAST] = { }; - -/* Return the target description according to XCR0. */ - -const struct target_desc * -i386_linux_read_description (uint64_t xcr0) -{ - enum x86_linux_tdesc idx = xcr0_to_tdesc_idx (xcr0, false); - - if (idx == X86_TDESC_LAST) - return NULL; - - struct target_desc **tdesc = &i386_tdescs[idx]; - - if (*tdesc == NULL) - { - *tdesc = i386_create_target_description (xcr0, true, false); - - init_target_desc (*tdesc, i386_expedite_regs); - } - - return *tdesc;; -} -#endif - -#ifdef __x86_64__ - -static target_desc *amd64_tdescs[X86_TDESC_LAST] = { }; -static target_desc *x32_tdescs[X86_TDESC_LAST] = { }; - -const struct target_desc * -amd64_linux_read_description (uint64_t xcr0, bool is_x32) -{ - enum x86_linux_tdesc idx = xcr0_to_tdesc_idx (xcr0, is_x32); - - if (idx == X86_TDESC_LAST) - return NULL; - - struct target_desc **tdesc = NULL; - - if (is_x32) - tdesc = &x32_tdescs[idx]; - else - tdesc = &amd64_tdescs[idx]; - - if (*tdesc == NULL) - { - *tdesc = amd64_create_target_description (xcr0, is_x32, true, true); - - init_target_desc (*tdesc, amd64_expedite_regs); - } - return *tdesc; -} - -#endif - -#ifndef IN_PROCESS_AGENT - -int -i386_get_ipa_tdesc_idx (const struct target_desc *tdesc) -{ - for (int i = 0; i < X86_TDESC_LAST; i++) - { - if (tdesc == i386_tdescs[i]) - return i; - } - - /* If none tdesc is found, return the one with minimum features. */ - return X86_TDESC_MMX; -} - -#if defined __x86_64__ -int -amd64_get_ipa_tdesc_idx (const struct target_desc *tdesc) -{ - for (int i = 0; i < X86_TDESC_LAST; i++) - { - if (tdesc == amd64_tdescs[i]) - return i; - } - for (int i = 0; i < X86_TDESC_LAST; i++) - { - if (tdesc == x32_tdescs[i]) - return i; - } - - return X86_TDESC_SSE; -} - -#endif -#endif diff --git a/gdbserver/linux-x86-tdesc.cc b/gdbserver/linux-x86-tdesc.cc new file mode 100644 index 00000000000..96097eecc5e --- /dev/null +++ b/gdbserver/linux-x86-tdesc.cc @@ -0,0 +1,164 @@ +/* GNU/Linux/x86-64 specific target description, for the remote server + for GDB. + Copyright (C) 2017-2020 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 . */ + +#include "server.h" +#include "tdesc.h" +#include "linux-x86-tdesc.h" +#include "arch/i386.h" +#include "gdbsupport/x86-xstate.h" +#ifdef __x86_64__ +#include "arch/amd64.h" +#endif +#include "x86-tdesc.h" + +/* Return the right x86_linux_tdesc index for a given XCR0. Return + X86_TDESC_LAST if can't find a match. */ + +static enum x86_linux_tdesc +xcr0_to_tdesc_idx (uint64_t xcr0, bool is_x32) +{ + if (xcr0 & X86_XSTATE_PKRU) + { + if (is_x32) + { + /* No x32 MPX and PKU, fall back to avx_avx512. */ + return X86_TDESC_AVX_AVX512; + } + else + return X86_TDESC_AVX_MPX_AVX512_PKU; + } + else if (xcr0 & X86_XSTATE_AVX512) + return X86_TDESC_AVX_AVX512; + else if ((xcr0 & X86_XSTATE_AVX_MPX_MASK) == X86_XSTATE_AVX_MPX_MASK) + { + if (is_x32) /* No MPX on x32. */ + return X86_TDESC_AVX; + else + return X86_TDESC_AVX_MPX; + } + else if (xcr0 & X86_XSTATE_MPX) + { + if (is_x32) /* No MPX on x32. */ + return X86_TDESC_AVX; + else + return X86_TDESC_MPX; + } + else if (xcr0 & X86_XSTATE_AVX) + return X86_TDESC_AVX; + else if (xcr0 & X86_XSTATE_SSE) + return X86_TDESC_SSE; + else if (xcr0 & X86_XSTATE_X87) + return X86_TDESC_MMX; + else + return X86_TDESC_LAST; +} + +#if defined __i386__ || !defined IN_PROCESS_AGENT + +static struct target_desc *i386_tdescs[X86_TDESC_LAST] = { }; + +/* Return the target description according to XCR0. */ + +const struct target_desc * +i386_linux_read_description (uint64_t xcr0) +{ + enum x86_linux_tdesc idx = xcr0_to_tdesc_idx (xcr0, false); + + if (idx == X86_TDESC_LAST) + return NULL; + + struct target_desc **tdesc = &i386_tdescs[idx]; + + if (*tdesc == NULL) + { + *tdesc = i386_create_target_description (xcr0, true, false); + + init_target_desc (*tdesc, i386_expedite_regs); + } + + return *tdesc;; +} +#endif + +#ifdef __x86_64__ + +static target_desc *amd64_tdescs[X86_TDESC_LAST] = { }; +static target_desc *x32_tdescs[X86_TDESC_LAST] = { }; + +const struct target_desc * +amd64_linux_read_description (uint64_t xcr0, bool is_x32) +{ + enum x86_linux_tdesc idx = xcr0_to_tdesc_idx (xcr0, is_x32); + + if (idx == X86_TDESC_LAST) + return NULL; + + struct target_desc **tdesc = NULL; + + if (is_x32) + tdesc = &x32_tdescs[idx]; + else + tdesc = &amd64_tdescs[idx]; + + if (*tdesc == NULL) + { + *tdesc = amd64_create_target_description (xcr0, is_x32, true, true); + + init_target_desc (*tdesc, amd64_expedite_regs); + } + return *tdesc; +} + +#endif + +#ifndef IN_PROCESS_AGENT + +int +i386_get_ipa_tdesc_idx (const struct target_desc *tdesc) +{ + for (int i = 0; i < X86_TDESC_LAST; i++) + { + if (tdesc == i386_tdescs[i]) + return i; + } + + /* If none tdesc is found, return the one with minimum features. */ + return X86_TDESC_MMX; +} + +#if defined __x86_64__ +int +amd64_get_ipa_tdesc_idx (const struct target_desc *tdesc) +{ + for (int i = 0; i < X86_TDESC_LAST; i++) + { + if (tdesc == amd64_tdescs[i]) + return i; + } + for (int i = 0; i < X86_TDESC_LAST; i++) + { + if (tdesc == x32_tdescs[i]) + return i; + } + + return X86_TDESC_SSE; +} + +#endif +#endif diff --git a/gdbserver/linux-xtensa-low.c b/gdbserver/linux-xtensa-low.c deleted file mode 100644 index 83af11e11dc..00000000000 --- a/gdbserver/linux-xtensa-low.c +++ /dev/null @@ -1,315 +0,0 @@ -/* GNU/Linux/Xtensa specific low level interface, for the remote server for GDB. - Copyright (C) 2007-2020 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 . */ - - -#include "server.h" -#include "linux-low.h" - -/* Defined in auto-generated file reg-xtensa.c. */ -void init_registers_xtensa (void); -extern const struct target_desc *tdesc_xtensa; - -#include -#include -#include "arch/xtensa.h" -#include "gdb_proc_service.h" - -#include "xtensa-xtregs.c" - -enum regnum { - R_PC=0, R_PS, - R_LBEG, R_LEND, R_LCOUNT, - R_SAR, - R_WS, R_WB, - R_THREADPTR, - R_A0 = 64 -}; - -static void -xtensa_fill_gregset (struct regcache *regcache, void *buf) -{ - elf_greg_t* rset = (elf_greg_t*)buf; - const struct target_desc *tdesc = regcache->tdesc; - int ar0_regnum; - char *ptr; - int i; - - /* Take care of AR registers. */ - - ar0_regnum = find_regno (tdesc, "ar0"); - ptr = (char*)&rset[R_A0]; - - for (i = ar0_regnum; i < ar0_regnum + XCHAL_NUM_AREGS; i++) - { - collect_register (regcache, i, ptr); - ptr += register_size (tdesc, i); - } - - if (XSHAL_ABI == XTHAL_ABI_CALL0) - { - int a0_regnum = find_regno (tdesc, "a0"); - ptr = (char *) &rset[R_A0 + 4 * rset[R_WB]]; - - for (i = a0_regnum; i < a0_regnum + C0_NREGS; i++) - { - if ((4 * rset[R_WB] + i - a0_regnum) == XCHAL_NUM_AREGS) - ptr = (char *) &rset[R_A0]; - collect_register (regcache, i, ptr); - ptr += register_size (tdesc, i); - } - } - - /* Loop registers, if hardware has it. */ - -#if XCHAL_HAVE_LOOPS - collect_register_by_name (regcache, "lbeg", (char*)&rset[R_LBEG]); - collect_register_by_name (regcache, "lend", (char*)&rset[R_LEND]); - collect_register_by_name (regcache, "lcount", (char*)&rset[R_LCOUNT]); -#endif - - collect_register_by_name (regcache, "sar", (char*)&rset[R_SAR]); - collect_register_by_name (regcache, "pc", (char*)&rset[R_PC]); - collect_register_by_name (regcache, "ps", (char*)&rset[R_PS]); - collect_register_by_name (regcache, "windowbase", (char*)&rset[R_WB]); - collect_register_by_name (regcache, "windowstart", (char*)&rset[R_WS]); - -#if XCHAL_HAVE_THREADPTR - collect_register_by_name (regcache, "threadptr", - (char *) &rset[R_THREADPTR]); -#endif -} - -static void -xtensa_store_gregset (struct regcache *regcache, const void *buf) -{ - const elf_greg_t* rset = (const elf_greg_t*)buf; - const struct target_desc *tdesc = regcache->tdesc; - int ar0_regnum; - char *ptr; - int i; - - /* Take care of AR registers. */ - - ar0_regnum = find_regno (tdesc, "ar0"); - ptr = (char *)&rset[R_A0]; - - for (i = ar0_regnum; i < ar0_regnum + XCHAL_NUM_AREGS; i++) - { - supply_register (regcache, i, ptr); - ptr += register_size (tdesc, i); - } - - if (XSHAL_ABI == XTHAL_ABI_CALL0) - { - int a0_regnum = find_regno (tdesc, "a0"); - ptr = (char *) &rset[R_A0 + (4 * rset[R_WB]) % XCHAL_NUM_AREGS]; - - for (i = a0_regnum; i < a0_regnum + C0_NREGS; i++) - { - if ((4 * rset[R_WB] + i - a0_regnum) == XCHAL_NUM_AREGS) - ptr = (char *) &rset[R_A0]; - supply_register (regcache, i, ptr); - ptr += register_size (tdesc, i); - } - } - - /* Loop registers, if hardware has it. */ - -#if XCHAL_HAVE_LOOPS - supply_register_by_name (regcache, "lbeg", (char*)&rset[R_LBEG]); - supply_register_by_name (regcache, "lend", (char*)&rset[R_LEND]); - supply_register_by_name (regcache, "lcount", (char*)&rset[R_LCOUNT]); -#endif - - supply_register_by_name (regcache, "sar", (char*)&rset[R_SAR]); - supply_register_by_name (regcache, "pc", (char*)&rset[R_PC]); - supply_register_by_name (regcache, "ps", (char*)&rset[R_PS]); - supply_register_by_name (regcache, "windowbase", (char*)&rset[R_WB]); - supply_register_by_name (regcache, "windowstart", (char*)&rset[R_WS]); - -#if XCHAL_HAVE_THREADPTR - supply_register_by_name (regcache, "threadptr", - (char *) &rset[R_THREADPTR]); -#endif -} - -/* Xtensa GNU/Linux PTRACE interface includes extended register set. */ - -static void -xtensa_fill_xtregset (struct regcache *regcache, void *buf) -{ - const xtensa_regtable_t *ptr; - - for (ptr = xtensa_regmap_table; ptr->name; ptr++) - { - collect_register_by_name (regcache, ptr->name, - (char*)buf + ptr->ptrace_offset); - } -} - -static void -xtensa_store_xtregset (struct regcache *regcache, const void *buf) -{ - const xtensa_regtable_t *ptr; - - for (ptr = xtensa_regmap_table; ptr->name; ptr++) - { - supply_register_by_name (regcache, ptr->name, - (char*)buf + ptr->ptrace_offset); - } -} - -static struct regset_info xtensa_regsets[] = { - { PTRACE_GETREGS, PTRACE_SETREGS, 0, sizeof (elf_gregset_t), - GENERAL_REGS, - xtensa_fill_gregset, xtensa_store_gregset }, - { PTRACE_GETXTREGS, PTRACE_SETXTREGS, 0, XTENSA_ELF_XTREG_SIZE, - EXTENDED_REGS, - xtensa_fill_xtregset, xtensa_store_xtregset }, - NULL_REGSET -}; - -#if XCHAL_HAVE_BE -#define XTENSA_BREAKPOINT {0xd2,0x0f} -#else -#define XTENSA_BREAKPOINT {0x2d,0xf0} -#endif - -static const gdb_byte xtensa_breakpoint[] = XTENSA_BREAKPOINT; -#define xtensa_breakpoint_len 2 - -/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -xtensa_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = xtensa_breakpoint_len; - return xtensa_breakpoint; -} - -static int -xtensa_breakpoint_at (CORE_ADDR where) -{ - unsigned long insn; - - (*the_target->read_memory) (where, (unsigned char *) &insn, - xtensa_breakpoint_len); - return memcmp((char *) &insn, - xtensa_breakpoint, xtensa_breakpoint_len) == 0; -} - -/* Called by libthread_db. */ - -ps_err_e -ps_get_thread_area (struct ps_prochandle *ph, - lwpid_t lwpid, int idx, void **base) -{ - xtensa_elf_gregset_t regs; - - if (ptrace (PTRACE_GETREGS, lwpid, NULL, ®s) != 0) - return PS_ERR; - - /* IDX is the bias from the thread pointer to the beginning of the - thread descriptor. It has to be subtracted due to implementation - quirks in libthread_db. */ - *base = (void *) ((char *) regs.threadptr - idx); - - return PS_OK; -} - -static struct regsets_info xtensa_regsets_info = - { - xtensa_regsets, /* regsets */ - 0, /* num_regsets */ - NULL, /* disabled_regsets */ - }; - -static struct regs_info regs_info = - { - NULL, /* regset_bitmap */ - NULL, /* usrregs */ - &xtensa_regsets_info - }; - -static void -xtensa_arch_setup (void) -{ - current_process ()->tdesc = tdesc_xtensa; -} - -/* Support for hardware single step. */ - -static int -xtensa_supports_hardware_single_step (void) -{ - return 1; -} - -static const struct regs_info * -xtensa_regs_info (void) -{ - return ®s_info; -} - -struct linux_target_ops the_low_target = { - xtensa_arch_setup, - xtensa_regs_info, - 0, - 0, - NULL, /* fetch_register */ - linux_get_pc_32bit, - linux_set_pc_32bit, - NULL, /* breakpoint_kind_from_pc */ - xtensa_sw_breakpoint_from_kind, - NULL, - 0, - xtensa_breakpoint_at, - NULL, /* supports_z_point_type */ - NULL, /* insert_point */ - NULL, /* remove_point */ - NULL, /* stopped_by_watchpoint */ - NULL, /* stopped_data_address */ - NULL, /* collect_ptrace_register */ - NULL, /* supply_ptrace_register */ - NULL, /* siginfo_fixup */ - NULL, /* new_process */ - NULL, /* delete_process */ - NULL, /* new_thread */ - NULL, /* delete_thread */ - NULL, /* new_fork */ - NULL, /* prepare_to_resume */ - NULL, /* process_qsupported */ - NULL, /* supports_tracepoints */ - NULL, /* get_thread_area */ - NULL, /* install_fast_tracepoint_jump_pad */ - NULL, /* emit_ops */ - NULL, /* get_min_fast_tracepoint_insn_len */ - NULL, /* supports_range_stepping */ - NULL, /* breakpoint_kind_from_current_state */ - xtensa_supports_hardware_single_step, -}; - - -void -initialize_low_arch (void) -{ - /* Initialize the Linux target descriptions. */ - init_registers_xtensa (); - - initialize_regsets_info (&xtensa_regsets_info); -} diff --git a/gdbserver/linux-xtensa-low.cc b/gdbserver/linux-xtensa-low.cc new file mode 100644 index 00000000000..83af11e11dc --- /dev/null +++ b/gdbserver/linux-xtensa-low.cc @@ -0,0 +1,315 @@ +/* GNU/Linux/Xtensa specific low level interface, for the remote server for GDB. + Copyright (C) 2007-2020 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 . */ + + +#include "server.h" +#include "linux-low.h" + +/* Defined in auto-generated file reg-xtensa.c. */ +void init_registers_xtensa (void); +extern const struct target_desc *tdesc_xtensa; + +#include +#include +#include "arch/xtensa.h" +#include "gdb_proc_service.h" + +#include "xtensa-xtregs.c" + +enum regnum { + R_PC=0, R_PS, + R_LBEG, R_LEND, R_LCOUNT, + R_SAR, + R_WS, R_WB, + R_THREADPTR, + R_A0 = 64 +}; + +static void +xtensa_fill_gregset (struct regcache *regcache, void *buf) +{ + elf_greg_t* rset = (elf_greg_t*)buf; + const struct target_desc *tdesc = regcache->tdesc; + int ar0_regnum; + char *ptr; + int i; + + /* Take care of AR registers. */ + + ar0_regnum = find_regno (tdesc, "ar0"); + ptr = (char*)&rset[R_A0]; + + for (i = ar0_regnum; i < ar0_regnum + XCHAL_NUM_AREGS; i++) + { + collect_register (regcache, i, ptr); + ptr += register_size (tdesc, i); + } + + if (XSHAL_ABI == XTHAL_ABI_CALL0) + { + int a0_regnum = find_regno (tdesc, "a0"); + ptr = (char *) &rset[R_A0 + 4 * rset[R_WB]]; + + for (i = a0_regnum; i < a0_regnum + C0_NREGS; i++) + { + if ((4 * rset[R_WB] + i - a0_regnum) == XCHAL_NUM_AREGS) + ptr = (char *) &rset[R_A0]; + collect_register (regcache, i, ptr); + ptr += register_size (tdesc, i); + } + } + + /* Loop registers, if hardware has it. */ + +#if XCHAL_HAVE_LOOPS + collect_register_by_name (regcache, "lbeg", (char*)&rset[R_LBEG]); + collect_register_by_name (regcache, "lend", (char*)&rset[R_LEND]); + collect_register_by_name (regcache, "lcount", (char*)&rset[R_LCOUNT]); +#endif + + collect_register_by_name (regcache, "sar", (char*)&rset[R_SAR]); + collect_register_by_name (regcache, "pc", (char*)&rset[R_PC]); + collect_register_by_name (regcache, "ps", (char*)&rset[R_PS]); + collect_register_by_name (regcache, "windowbase", (char*)&rset[R_WB]); + collect_register_by_name (regcache, "windowstart", (char*)&rset[R_WS]); + +#if XCHAL_HAVE_THREADPTR + collect_register_by_name (regcache, "threadptr", + (char *) &rset[R_THREADPTR]); +#endif +} + +static void +xtensa_store_gregset (struct regcache *regcache, const void *buf) +{ + const elf_greg_t* rset = (const elf_greg_t*)buf; + const struct target_desc *tdesc = regcache->tdesc; + int ar0_regnum; + char *ptr; + int i; + + /* Take care of AR registers. */ + + ar0_regnum = find_regno (tdesc, "ar0"); + ptr = (char *)&rset[R_A0]; + + for (i = ar0_regnum; i < ar0_regnum + XCHAL_NUM_AREGS; i++) + { + supply_register (regcache, i, ptr); + ptr += register_size (tdesc, i); + } + + if (XSHAL_ABI == XTHAL_ABI_CALL0) + { + int a0_regnum = find_regno (tdesc, "a0"); + ptr = (char *) &rset[R_A0 + (4 * rset[R_WB]) % XCHAL_NUM_AREGS]; + + for (i = a0_regnum; i < a0_regnum + C0_NREGS; i++) + { + if ((4 * rset[R_WB] + i - a0_regnum) == XCHAL_NUM_AREGS) + ptr = (char *) &rset[R_A0]; + supply_register (regcache, i, ptr); + ptr += register_size (tdesc, i); + } + } + + /* Loop registers, if hardware has it. */ + +#if XCHAL_HAVE_LOOPS + supply_register_by_name (regcache, "lbeg", (char*)&rset[R_LBEG]); + supply_register_by_name (regcache, "lend", (char*)&rset[R_LEND]); + supply_register_by_name (regcache, "lcount", (char*)&rset[R_LCOUNT]); +#endif + + supply_register_by_name (regcache, "sar", (char*)&rset[R_SAR]); + supply_register_by_name (regcache, "pc", (char*)&rset[R_PC]); + supply_register_by_name (regcache, "ps", (char*)&rset[R_PS]); + supply_register_by_name (regcache, "windowbase", (char*)&rset[R_WB]); + supply_register_by_name (regcache, "windowstart", (char*)&rset[R_WS]); + +#if XCHAL_HAVE_THREADPTR + supply_register_by_name (regcache, "threadptr", + (char *) &rset[R_THREADPTR]); +#endif +} + +/* Xtensa GNU/Linux PTRACE interface includes extended register set. */ + +static void +xtensa_fill_xtregset (struct regcache *regcache, void *buf) +{ + const xtensa_regtable_t *ptr; + + for (ptr = xtensa_regmap_table; ptr->name; ptr++) + { + collect_register_by_name (regcache, ptr->name, + (char*)buf + ptr->ptrace_offset); + } +} + +static void +xtensa_store_xtregset (struct regcache *regcache, const void *buf) +{ + const xtensa_regtable_t *ptr; + + for (ptr = xtensa_regmap_table; ptr->name; ptr++) + { + supply_register_by_name (regcache, ptr->name, + (char*)buf + ptr->ptrace_offset); + } +} + +static struct regset_info xtensa_regsets[] = { + { PTRACE_GETREGS, PTRACE_SETREGS, 0, sizeof (elf_gregset_t), + GENERAL_REGS, + xtensa_fill_gregset, xtensa_store_gregset }, + { PTRACE_GETXTREGS, PTRACE_SETXTREGS, 0, XTENSA_ELF_XTREG_SIZE, + EXTENDED_REGS, + xtensa_fill_xtregset, xtensa_store_xtregset }, + NULL_REGSET +}; + +#if XCHAL_HAVE_BE +#define XTENSA_BREAKPOINT {0xd2,0x0f} +#else +#define XTENSA_BREAKPOINT {0x2d,0xf0} +#endif + +static const gdb_byte xtensa_breakpoint[] = XTENSA_BREAKPOINT; +#define xtensa_breakpoint_len 2 + +/* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +xtensa_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = xtensa_breakpoint_len; + return xtensa_breakpoint; +} + +static int +xtensa_breakpoint_at (CORE_ADDR where) +{ + unsigned long insn; + + (*the_target->read_memory) (where, (unsigned char *) &insn, + xtensa_breakpoint_len); + return memcmp((char *) &insn, + xtensa_breakpoint, xtensa_breakpoint_len) == 0; +} + +/* Called by libthread_db. */ + +ps_err_e +ps_get_thread_area (struct ps_prochandle *ph, + lwpid_t lwpid, int idx, void **base) +{ + xtensa_elf_gregset_t regs; + + if (ptrace (PTRACE_GETREGS, lwpid, NULL, ®s) != 0) + return PS_ERR; + + /* IDX is the bias from the thread pointer to the beginning of the + thread descriptor. It has to be subtracted due to implementation + quirks in libthread_db. */ + *base = (void *) ((char *) regs.threadptr - idx); + + return PS_OK; +} + +static struct regsets_info xtensa_regsets_info = + { + xtensa_regsets, /* regsets */ + 0, /* num_regsets */ + NULL, /* disabled_regsets */ + }; + +static struct regs_info regs_info = + { + NULL, /* regset_bitmap */ + NULL, /* usrregs */ + &xtensa_regsets_info + }; + +static void +xtensa_arch_setup (void) +{ + current_process ()->tdesc = tdesc_xtensa; +} + +/* Support for hardware single step. */ + +static int +xtensa_supports_hardware_single_step (void) +{ + return 1; +} + +static const struct regs_info * +xtensa_regs_info (void) +{ + return ®s_info; +} + +struct linux_target_ops the_low_target = { + xtensa_arch_setup, + xtensa_regs_info, + 0, + 0, + NULL, /* fetch_register */ + linux_get_pc_32bit, + linux_set_pc_32bit, + NULL, /* breakpoint_kind_from_pc */ + xtensa_sw_breakpoint_from_kind, + NULL, + 0, + xtensa_breakpoint_at, + NULL, /* supports_z_point_type */ + NULL, /* insert_point */ + NULL, /* remove_point */ + NULL, /* stopped_by_watchpoint */ + NULL, /* stopped_data_address */ + NULL, /* collect_ptrace_register */ + NULL, /* supply_ptrace_register */ + NULL, /* siginfo_fixup */ + NULL, /* new_process */ + NULL, /* delete_process */ + NULL, /* new_thread */ + NULL, /* delete_thread */ + NULL, /* new_fork */ + NULL, /* prepare_to_resume */ + NULL, /* process_qsupported */ + NULL, /* supports_tracepoints */ + NULL, /* get_thread_area */ + NULL, /* install_fast_tracepoint_jump_pad */ + NULL, /* emit_ops */ + NULL, /* get_min_fast_tracepoint_insn_len */ + NULL, /* supports_range_stepping */ + NULL, /* breakpoint_kind_from_current_state */ + xtensa_supports_hardware_single_step, +}; + + +void +initialize_low_arch (void) +{ + /* Initialize the Linux target descriptions. */ + init_registers_xtensa (); + + initialize_regsets_info (&xtensa_regsets_info); +} diff --git a/gdbserver/lynx-i386-low.c b/gdbserver/lynx-i386-low.c deleted file mode 100644 index d00e1a16771..00000000000 --- a/gdbserver/lynx-i386-low.c +++ /dev/null @@ -1,358 +0,0 @@ -/* Copyright (C) 2010-2020 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 . */ - -#include "server.h" -#include "lynx-low.h" -#include -#include -#include "gdbsupport/x86-xstate.h" -#include "arch/i386.h" -#include "x86-tdesc.h" - -/* The following two typedefs are defined in a .h file which is not - in the standard include path (/sys/include/family/x86/ucontext.h), - so we just duplicate them here. - - Unfortunately for us, the definition of this structure differs between - LynxOS 5.x and LynxOS 178. Rather than duplicate the code, we use - different definitions depending on the target. */ - -#ifdef VMOS_DEV -#define LYNXOS_178 -#endif - -/* General register context */ -typedef struct usr_econtext { - - uint32_t uec_fault; - uint32_t uec_es; - uint32_t uec_ds; - uint32_t uec_edi; - uint32_t uec_esi; - uint32_t uec_ebp; - uint32_t uec_temp; - uint32_t uec_ebx; - uint32_t uec_edx; - uint32_t uec_ecx; - uint32_t uec_eax; - uint32_t uec_inum; - uint32_t uec_ecode; - uint32_t uec_eip; - uint32_t uec_cs; - uint32_t uec_eflags; - uint32_t uec_esp; - uint32_t uec_ss; - uint32_t uec_fs; - uint32_t uec_gs; -} usr_econtext_t; - -#if defined(LYNXOS_178) - -/* Floating point register context */ -typedef struct usr_fcontext { - uint32_t ufc_control; - uint32_t ufc_status; - uint32_t ufc_tag; - uint8_t *ufc_inst_off; - uint32_t ufc_inst_sel; - uint8_t *ufc_data_off; - uint32_t ufc_data_sel; - struct ufp387_real { - uint16_t umant4; - uint16_t umant3; - uint16_t umant2; - uint16_t umant1; - uint16_t us_and_e; - } ufc_reg[8]; -} usr_fcontext_t; - -#else /* This is LynxOS 5.x. */ - -/* Floating point and SIMD register context */ -typedef struct usr_fcontext { - uint16_t ufc_control; - uint16_t ufc_status; - uint16_t ufc_tag; - uint16_t ufc_opcode; - uint8_t *ufc_inst_off; - uint32_t ufc_inst_sel; - uint8_t *ufc_data_off; - uint32_t ufc_data_sel; - uint32_t usse_mxcsr; - uint32_t usse_mxcsr_mask; - struct ufp387_real { - uint16_t umant4; - uint16_t umant3; - uint16_t umant2; - uint16_t umant1; - uint16_t us_and_e; - uint16_t ureserved_1; - uint16_t ureserved_2; - uint16_t ureserved_3; - } ufc_reg[8]; - struct uxmm_register { - uint16_t uchunk_1; - uint16_t uchunk_2; - uint16_t uchunk_3; - uint16_t uchunk_4; - uint16_t uchunk_5; - uint16_t uchunk_6; - uint16_t uchunk_7; - uint16_t uchunk_8; - } uxmm_reg[8]; - char ureserved[16][14]; -} usr_fcontext_t; - -#endif - -/* The index of various registers inside the regcache. */ - -enum lynx_i386_gdb_regnum -{ - I386_EAX_REGNUM, - I386_ECX_REGNUM, - I386_EDX_REGNUM, - I386_EBX_REGNUM, - I386_ESP_REGNUM, - I386_EBP_REGNUM, - I386_ESI_REGNUM, - I386_EDI_REGNUM, - I386_EIP_REGNUM, - I386_EFLAGS_REGNUM, - I386_CS_REGNUM, - I386_SS_REGNUM, - I386_DS_REGNUM, - I386_ES_REGNUM, - I386_FS_REGNUM, - I386_GS_REGNUM, - I386_ST0_REGNUM, - I386_FCTRL_REGNUM = I386_ST0_REGNUM + 8, - I386_FSTAT_REGNUM, - I386_FTAG_REGNUM, - I386_FISEG_REGNUM, - I386_FIOFF_REGNUM, - I386_FOSEG_REGNUM, - I386_FOOFF_REGNUM, - I386_FOP_REGNUM, - I386_XMM0_REGNUM = 32, - I386_MXCSR_REGNUM = I386_XMM0_REGNUM + 8, - I386_SENTINEL_REGUM -}; - -/* The fill_function for the general-purpose register set. */ - -static void -lynx_i386_fill_gregset (struct regcache *regcache, char *buf) -{ -#define lynx_i386_collect_gp(regnum, fld) \ - collect_register (regcache, regnum, \ - buf + offsetof (usr_econtext_t, uec_##fld)) - - lynx_i386_collect_gp (I386_EAX_REGNUM, eax); - lynx_i386_collect_gp (I386_ECX_REGNUM, ecx); - lynx_i386_collect_gp (I386_EDX_REGNUM, edx); - lynx_i386_collect_gp (I386_EBX_REGNUM, ebx); - lynx_i386_collect_gp (I386_ESP_REGNUM, esp); - lynx_i386_collect_gp (I386_EBP_REGNUM, ebp); - lynx_i386_collect_gp (I386_ESI_REGNUM, esi); - lynx_i386_collect_gp (I386_EDI_REGNUM, edi); - lynx_i386_collect_gp (I386_EIP_REGNUM, eip); - lynx_i386_collect_gp (I386_EFLAGS_REGNUM, eflags); - lynx_i386_collect_gp (I386_CS_REGNUM, cs); - lynx_i386_collect_gp (I386_SS_REGNUM, ss); - lynx_i386_collect_gp (I386_DS_REGNUM, ds); - lynx_i386_collect_gp (I386_ES_REGNUM, es); - lynx_i386_collect_gp (I386_FS_REGNUM, fs); - lynx_i386_collect_gp (I386_GS_REGNUM, gs); -} - -/* The store_function for the general-purpose register set. */ - -static void -lynx_i386_store_gregset (struct regcache *regcache, const char *buf) -{ -#define lynx_i386_supply_gp(regnum, fld) \ - supply_register (regcache, regnum, \ - buf + offsetof (usr_econtext_t, uec_##fld)) - - lynx_i386_supply_gp (I386_EAX_REGNUM, eax); - lynx_i386_supply_gp (I386_ECX_REGNUM, ecx); - lynx_i386_supply_gp (I386_EDX_REGNUM, edx); - lynx_i386_supply_gp (I386_EBX_REGNUM, ebx); - lynx_i386_supply_gp (I386_ESP_REGNUM, esp); - lynx_i386_supply_gp (I386_EBP_REGNUM, ebp); - lynx_i386_supply_gp (I386_ESI_REGNUM, esi); - lynx_i386_supply_gp (I386_EDI_REGNUM, edi); - lynx_i386_supply_gp (I386_EIP_REGNUM, eip); - lynx_i386_supply_gp (I386_EFLAGS_REGNUM, eflags); - lynx_i386_supply_gp (I386_CS_REGNUM, cs); - lynx_i386_supply_gp (I386_SS_REGNUM, ss); - lynx_i386_supply_gp (I386_DS_REGNUM, ds); - lynx_i386_supply_gp (I386_ES_REGNUM, es); - lynx_i386_supply_gp (I386_FS_REGNUM, fs); - lynx_i386_supply_gp (I386_GS_REGNUM, gs); -} - -/* Extract the first 16 bits of register REGNUM in the REGCACHE, - and store these 2 bytes at DEST. - - This is useful to collect certain 16bit registers which are known - by GDBserver as 32bit registers (such as the Control Register - for instance). */ - -static void -collect_16bit_register (struct regcache *regcache, int regnum, char *dest) -{ - gdb_byte word[4]; - - collect_register (regcache, regnum, word); - memcpy (dest, word, 2); -} - -/* The fill_function for the floating-point register set. */ - -static void -lynx_i386_fill_fpregset (struct regcache *regcache, char *buf) -{ - int i; - - /* Collect %st0 .. %st7. */ - for (i = 0; i < 8; i++) - collect_register (regcache, I386_ST0_REGNUM + i, - buf + offsetof (usr_fcontext_t, ufc_reg) - + i * sizeof (struct ufp387_real)); - - /* Collect the other FPU registers. */ - collect_16bit_register (regcache, I386_FCTRL_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_control)); - collect_16bit_register (regcache, I386_FSTAT_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_status)); - collect_16bit_register (regcache, I386_FTAG_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_tag)); - collect_register (regcache, I386_FISEG_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_inst_sel)); - collect_register (regcache, I386_FIOFF_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_inst_off)); - collect_register (regcache, I386_FOSEG_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_data_sel)); - collect_register (regcache, I386_FOOFF_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_data_off)); -#if !defined(LYNXOS_178) - collect_16bit_register (regcache, I386_FOP_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_opcode)); - - /* Collect the XMM registers. */ - for (i = 0; i < 8; i++) - collect_register (regcache, I386_XMM0_REGNUM + i, - buf + offsetof (usr_fcontext_t, uxmm_reg) - + i * sizeof (struct uxmm_register)); - collect_register (regcache, I386_MXCSR_REGNUM, - buf + offsetof (usr_fcontext_t, usse_mxcsr)); -#endif -} - -/* This is the supply counterpart for collect_16bit_register: - It extracts a 2byte value from BUF, and uses that value to - set REGNUM's value in the regcache. - - This is useful to supply the value of certain 16bit registers - which are known by GDBserver as 32bit registers (such as the Control - Register for instance). */ - -static void -supply_16bit_register (struct regcache *regcache, int regnum, const char *buf) -{ - gdb_byte word[4]; - - memcpy (word, buf, 2); - memset (word + 2, 0, 2); - supply_register (regcache, regnum, word); -} - -/* The store_function for the floating-point register set. */ - -static void -lynx_i386_store_fpregset (struct regcache *regcache, const char *buf) -{ - int i; - - /* Store the %st0 .. %st7 registers. */ - for (i = 0; i < 8; i++) - supply_register (regcache, I386_ST0_REGNUM + i, - buf + offsetof (usr_fcontext_t, ufc_reg) - + i * sizeof (struct ufp387_real)); - - /* Store the other FPU registers. */ - supply_16bit_register (regcache, I386_FCTRL_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_control)); - supply_16bit_register (regcache, I386_FSTAT_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_status)); - supply_16bit_register (regcache, I386_FTAG_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_tag)); - supply_register (regcache, I386_FISEG_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_inst_sel)); - supply_register (regcache, I386_FIOFF_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_inst_off)); - supply_register (regcache, I386_FOSEG_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_data_sel)); - supply_register (regcache, I386_FOOFF_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_data_off)); -#if !defined(LYNXOS_178) - supply_16bit_register (regcache, I386_FOP_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_opcode)); - - /* Store the XMM registers. */ - for (i = 0; i < 8; i++) - supply_register (regcache, I386_XMM0_REGNUM + i, - buf + offsetof (usr_fcontext_t, uxmm_reg) - + i * sizeof (struct uxmm_register)); - supply_register (regcache, I386_MXCSR_REGNUM, - buf + offsetof (usr_fcontext_t, usse_mxcsr)); -#endif -} - -/* Implements the lynx_target_ops.arch_setup routine. */ - -static void -lynx_i386_arch_setup (void) -{ - struct target_desc *tdesc - = i386_create_target_description (X86_XSTATE_SSE_MASK, false, false); - - init_target_desc (tdesc, i386_expedite_regs); - - lynx_tdesc = tdesc; -} - -/* Description of all the x86-lynx register sets. */ - -struct lynx_regset_info lynx_target_regsets[] = { - /* General Purpose Registers. */ - {PTRACE_GETREGS, PTRACE_SETREGS, sizeof(usr_econtext_t), - lynx_i386_fill_gregset, lynx_i386_store_gregset}, - /* Floating Point Registers. */ - { PTRACE_GETFPREGS, PTRACE_SETFPREGS, sizeof(usr_fcontext_t), - lynx_i386_fill_fpregset, lynx_i386_store_fpregset }, - /* End of list marker. */ - {0, 0, -1, NULL, NULL } -}; - -/* The lynx_target_ops vector for x86-lynx. */ - -struct lynx_target_ops the_low_target = { - lynx_i386_arch_setup, -}; diff --git a/gdbserver/lynx-i386-low.cc b/gdbserver/lynx-i386-low.cc new file mode 100644 index 00000000000..d00e1a16771 --- /dev/null +++ b/gdbserver/lynx-i386-low.cc @@ -0,0 +1,358 @@ +/* Copyright (C) 2010-2020 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 . */ + +#include "server.h" +#include "lynx-low.h" +#include +#include +#include "gdbsupport/x86-xstate.h" +#include "arch/i386.h" +#include "x86-tdesc.h" + +/* The following two typedefs are defined in a .h file which is not + in the standard include path (/sys/include/family/x86/ucontext.h), + so we just duplicate them here. + + Unfortunately for us, the definition of this structure differs between + LynxOS 5.x and LynxOS 178. Rather than duplicate the code, we use + different definitions depending on the target. */ + +#ifdef VMOS_DEV +#define LYNXOS_178 +#endif + +/* General register context */ +typedef struct usr_econtext { + + uint32_t uec_fault; + uint32_t uec_es; + uint32_t uec_ds; + uint32_t uec_edi; + uint32_t uec_esi; + uint32_t uec_ebp; + uint32_t uec_temp; + uint32_t uec_ebx; + uint32_t uec_edx; + uint32_t uec_ecx; + uint32_t uec_eax; + uint32_t uec_inum; + uint32_t uec_ecode; + uint32_t uec_eip; + uint32_t uec_cs; + uint32_t uec_eflags; + uint32_t uec_esp; + uint32_t uec_ss; + uint32_t uec_fs; + uint32_t uec_gs; +} usr_econtext_t; + +#if defined(LYNXOS_178) + +/* Floating point register context */ +typedef struct usr_fcontext { + uint32_t ufc_control; + uint32_t ufc_status; + uint32_t ufc_tag; + uint8_t *ufc_inst_off; + uint32_t ufc_inst_sel; + uint8_t *ufc_data_off; + uint32_t ufc_data_sel; + struct ufp387_real { + uint16_t umant4; + uint16_t umant3; + uint16_t umant2; + uint16_t umant1; + uint16_t us_and_e; + } ufc_reg[8]; +} usr_fcontext_t; + +#else /* This is LynxOS 5.x. */ + +/* Floating point and SIMD register context */ +typedef struct usr_fcontext { + uint16_t ufc_control; + uint16_t ufc_status; + uint16_t ufc_tag; + uint16_t ufc_opcode; + uint8_t *ufc_inst_off; + uint32_t ufc_inst_sel; + uint8_t *ufc_data_off; + uint32_t ufc_data_sel; + uint32_t usse_mxcsr; + uint32_t usse_mxcsr_mask; + struct ufp387_real { + uint16_t umant4; + uint16_t umant3; + uint16_t umant2; + uint16_t umant1; + uint16_t us_and_e; + uint16_t ureserved_1; + uint16_t ureserved_2; + uint16_t ureserved_3; + } ufc_reg[8]; + struct uxmm_register { + uint16_t uchunk_1; + uint16_t uchunk_2; + uint16_t uchunk_3; + uint16_t uchunk_4; + uint16_t uchunk_5; + uint16_t uchunk_6; + uint16_t uchunk_7; + uint16_t uchunk_8; + } uxmm_reg[8]; + char ureserved[16][14]; +} usr_fcontext_t; + +#endif + +/* The index of various registers inside the regcache. */ + +enum lynx_i386_gdb_regnum +{ + I386_EAX_REGNUM, + I386_ECX_REGNUM, + I386_EDX_REGNUM, + I386_EBX_REGNUM, + I386_ESP_REGNUM, + I386_EBP_REGNUM, + I386_ESI_REGNUM, + I386_EDI_REGNUM, + I386_EIP_REGNUM, + I386_EFLAGS_REGNUM, + I386_CS_REGNUM, + I386_SS_REGNUM, + I386_DS_REGNUM, + I386_ES_REGNUM, + I386_FS_REGNUM, + I386_GS_REGNUM, + I386_ST0_REGNUM, + I386_FCTRL_REGNUM = I386_ST0_REGNUM + 8, + I386_FSTAT_REGNUM, + I386_FTAG_REGNUM, + I386_FISEG_REGNUM, + I386_FIOFF_REGNUM, + I386_FOSEG_REGNUM, + I386_FOOFF_REGNUM, + I386_FOP_REGNUM, + I386_XMM0_REGNUM = 32, + I386_MXCSR_REGNUM = I386_XMM0_REGNUM + 8, + I386_SENTINEL_REGUM +}; + +/* The fill_function for the general-purpose register set. */ + +static void +lynx_i386_fill_gregset (struct regcache *regcache, char *buf) +{ +#define lynx_i386_collect_gp(regnum, fld) \ + collect_register (regcache, regnum, \ + buf + offsetof (usr_econtext_t, uec_##fld)) + + lynx_i386_collect_gp (I386_EAX_REGNUM, eax); + lynx_i386_collect_gp (I386_ECX_REGNUM, ecx); + lynx_i386_collect_gp (I386_EDX_REGNUM, edx); + lynx_i386_collect_gp (I386_EBX_REGNUM, ebx); + lynx_i386_collect_gp (I386_ESP_REGNUM, esp); + lynx_i386_collect_gp (I386_EBP_REGNUM, ebp); + lynx_i386_collect_gp (I386_ESI_REGNUM, esi); + lynx_i386_collect_gp (I386_EDI_REGNUM, edi); + lynx_i386_collect_gp (I386_EIP_REGNUM, eip); + lynx_i386_collect_gp (I386_EFLAGS_REGNUM, eflags); + lynx_i386_collect_gp (I386_CS_REGNUM, cs); + lynx_i386_collect_gp (I386_SS_REGNUM, ss); + lynx_i386_collect_gp (I386_DS_REGNUM, ds); + lynx_i386_collect_gp (I386_ES_REGNUM, es); + lynx_i386_collect_gp (I386_FS_REGNUM, fs); + lynx_i386_collect_gp (I386_GS_REGNUM, gs); +} + +/* The store_function for the general-purpose register set. */ + +static void +lynx_i386_store_gregset (struct regcache *regcache, const char *buf) +{ +#define lynx_i386_supply_gp(regnum, fld) \ + supply_register (regcache, regnum, \ + buf + offsetof (usr_econtext_t, uec_##fld)) + + lynx_i386_supply_gp (I386_EAX_REGNUM, eax); + lynx_i386_supply_gp (I386_ECX_REGNUM, ecx); + lynx_i386_supply_gp (I386_EDX_REGNUM, edx); + lynx_i386_supply_gp (I386_EBX_REGNUM, ebx); + lynx_i386_supply_gp (I386_ESP_REGNUM, esp); + lynx_i386_supply_gp (I386_EBP_REGNUM, ebp); + lynx_i386_supply_gp (I386_ESI_REGNUM, esi); + lynx_i386_supply_gp (I386_EDI_REGNUM, edi); + lynx_i386_supply_gp (I386_EIP_REGNUM, eip); + lynx_i386_supply_gp (I386_EFLAGS_REGNUM, eflags); + lynx_i386_supply_gp (I386_CS_REGNUM, cs); + lynx_i386_supply_gp (I386_SS_REGNUM, ss); + lynx_i386_supply_gp (I386_DS_REGNUM, ds); + lynx_i386_supply_gp (I386_ES_REGNUM, es); + lynx_i386_supply_gp (I386_FS_REGNUM, fs); + lynx_i386_supply_gp (I386_GS_REGNUM, gs); +} + +/* Extract the first 16 bits of register REGNUM in the REGCACHE, + and store these 2 bytes at DEST. + + This is useful to collect certain 16bit registers which are known + by GDBserver as 32bit registers (such as the Control Register + for instance). */ + +static void +collect_16bit_register (struct regcache *regcache, int regnum, char *dest) +{ + gdb_byte word[4]; + + collect_register (regcache, regnum, word); + memcpy (dest, word, 2); +} + +/* The fill_function for the floating-point register set. */ + +static void +lynx_i386_fill_fpregset (struct regcache *regcache, char *buf) +{ + int i; + + /* Collect %st0 .. %st7. */ + for (i = 0; i < 8; i++) + collect_register (regcache, I386_ST0_REGNUM + i, + buf + offsetof (usr_fcontext_t, ufc_reg) + + i * sizeof (struct ufp387_real)); + + /* Collect the other FPU registers. */ + collect_16bit_register (regcache, I386_FCTRL_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_control)); + collect_16bit_register (regcache, I386_FSTAT_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_status)); + collect_16bit_register (regcache, I386_FTAG_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_tag)); + collect_register (regcache, I386_FISEG_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_inst_sel)); + collect_register (regcache, I386_FIOFF_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_inst_off)); + collect_register (regcache, I386_FOSEG_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_data_sel)); + collect_register (regcache, I386_FOOFF_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_data_off)); +#if !defined(LYNXOS_178) + collect_16bit_register (regcache, I386_FOP_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_opcode)); + + /* Collect the XMM registers. */ + for (i = 0; i < 8; i++) + collect_register (regcache, I386_XMM0_REGNUM + i, + buf + offsetof (usr_fcontext_t, uxmm_reg) + + i * sizeof (struct uxmm_register)); + collect_register (regcache, I386_MXCSR_REGNUM, + buf + offsetof (usr_fcontext_t, usse_mxcsr)); +#endif +} + +/* This is the supply counterpart for collect_16bit_register: + It extracts a 2byte value from BUF, and uses that value to + set REGNUM's value in the regcache. + + This is useful to supply the value of certain 16bit registers + which are known by GDBserver as 32bit registers (such as the Control + Register for instance). */ + +static void +supply_16bit_register (struct regcache *regcache, int regnum, const char *buf) +{ + gdb_byte word[4]; + + memcpy (word, buf, 2); + memset (word + 2, 0, 2); + supply_register (regcache, regnum, word); +} + +/* The store_function for the floating-point register set. */ + +static void +lynx_i386_store_fpregset (struct regcache *regcache, const char *buf) +{ + int i; + + /* Store the %st0 .. %st7 registers. */ + for (i = 0; i < 8; i++) + supply_register (regcache, I386_ST0_REGNUM + i, + buf + offsetof (usr_fcontext_t, ufc_reg) + + i * sizeof (struct ufp387_real)); + + /* Store the other FPU registers. */ + supply_16bit_register (regcache, I386_FCTRL_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_control)); + supply_16bit_register (regcache, I386_FSTAT_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_status)); + supply_16bit_register (regcache, I386_FTAG_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_tag)); + supply_register (regcache, I386_FISEG_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_inst_sel)); + supply_register (regcache, I386_FIOFF_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_inst_off)); + supply_register (regcache, I386_FOSEG_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_data_sel)); + supply_register (regcache, I386_FOOFF_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_data_off)); +#if !defined(LYNXOS_178) + supply_16bit_register (regcache, I386_FOP_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_opcode)); + + /* Store the XMM registers. */ + for (i = 0; i < 8; i++) + supply_register (regcache, I386_XMM0_REGNUM + i, + buf + offsetof (usr_fcontext_t, uxmm_reg) + + i * sizeof (struct uxmm_register)); + supply_register (regcache, I386_MXCSR_REGNUM, + buf + offsetof (usr_fcontext_t, usse_mxcsr)); +#endif +} + +/* Implements the lynx_target_ops.arch_setup routine. */ + +static void +lynx_i386_arch_setup (void) +{ + struct target_desc *tdesc + = i386_create_target_description (X86_XSTATE_SSE_MASK, false, false); + + init_target_desc (tdesc, i386_expedite_regs); + + lynx_tdesc = tdesc; +} + +/* Description of all the x86-lynx register sets. */ + +struct lynx_regset_info lynx_target_regsets[] = { + /* General Purpose Registers. */ + {PTRACE_GETREGS, PTRACE_SETREGS, sizeof(usr_econtext_t), + lynx_i386_fill_gregset, lynx_i386_store_gregset}, + /* Floating Point Registers. */ + { PTRACE_GETFPREGS, PTRACE_SETFPREGS, sizeof(usr_fcontext_t), + lynx_i386_fill_fpregset, lynx_i386_store_fpregset }, + /* End of list marker. */ + {0, 0, -1, NULL, NULL } +}; + +/* The lynx_target_ops vector for x86-lynx. */ + +struct lynx_target_ops the_low_target = { + lynx_i386_arch_setup, +}; diff --git a/gdbserver/lynx-low.c b/gdbserver/lynx-low.c deleted file mode 100644 index a5b019396fa..00000000000 --- a/gdbserver/lynx-low.c +++ /dev/null @@ -1,776 +0,0 @@ -/* Copyright (C) 2009-2020 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 . */ - -#include "server.h" -#include "target.h" -#include "lynx-low.h" - -#include -#include -#include /* Provides PIDGET, TIDGET, BUILDPID, etc. */ -#include -#include -#include -#include "gdbsupport/gdb_wait.h" -#include -#include "gdbsupport/filestuff.h" -#include "gdbsupport/common-inferior.h" -#include "nat/fork-inferior.h" - -int using_threads = 1; - -const struct target_desc *lynx_tdesc; - -/* Per-process private data. */ - -struct process_info_private -{ - /* The PTID obtained from the last wait performed on this process. - Initialized to null_ptid until the first wait is performed. */ - ptid_t last_wait_event_ptid; -}; - -/* Print a debug trace on standard output if debug_threads is set. */ - -static void -lynx_debug (char *string, ...) -{ - va_list args; - - if (!debug_threads) - return; - - va_start (args, string); - fprintf (stderr, "DEBUG(lynx): "); - vfprintf (stderr, string, args); - fprintf (stderr, "\n"); - va_end (args); -} - -/* Build a ptid_t given a PID and a LynxOS TID. */ - -static ptid_t -lynx_ptid_t (int pid, long tid) -{ - /* brobecker/2010-06-21: It looks like the LWP field in ptids - should be distinct for each thread (see write_ptid where it - writes the thread ID from the LWP). So instead of storing - the LynxOS tid in the tid field of the ptid, we store it in - the lwp field. */ - return ptid_t (pid, tid, 0); -} - -/* Return the process ID of the given PTID. - - This function has little reason to exist, it's just a wrapper around - ptid_get_pid. But since we have a getter function for the lynxos - ptid, it feels cleaner to have a getter for the pid as well. */ - -static int -lynx_ptid_get_pid (ptid_t ptid) -{ - return ptid.pid (); -} - -/* Return the LynxOS tid of the given PTID. */ - -static long -lynx_ptid_get_tid (ptid_t ptid) -{ - /* See lynx_ptid_t: The LynxOS tid is stored inside the lwp field - of the ptid. */ - return ptid.lwp (); -} - -/* For a given PTID, return the associated PID as known by the LynxOS - ptrace layer. */ - -static int -lynx_ptrace_pid_from_ptid (ptid_t ptid) -{ - return BUILDPID (lynx_ptid_get_pid (ptid), lynx_ptid_get_tid (ptid)); -} - -/* Return a string image of the ptrace REQUEST number. */ - -static char * -ptrace_request_to_str (int request) -{ -#define CASE(X) case X: return #X - switch (request) - { - CASE(PTRACE_TRACEME); - CASE(PTRACE_PEEKTEXT); - CASE(PTRACE_PEEKDATA); - CASE(PTRACE_PEEKUSER); - CASE(PTRACE_POKETEXT); - CASE(PTRACE_POKEDATA); - CASE(PTRACE_POKEUSER); - CASE(PTRACE_CONT); - CASE(PTRACE_KILL); - CASE(PTRACE_SINGLESTEP); - CASE(PTRACE_ATTACH); - CASE(PTRACE_DETACH); - CASE(PTRACE_GETREGS); - CASE(PTRACE_SETREGS); - CASE(PTRACE_GETFPREGS); - CASE(PTRACE_SETFPREGS); - CASE(PTRACE_READDATA); - CASE(PTRACE_WRITEDATA); - CASE(PTRACE_READTEXT); - CASE(PTRACE_WRITETEXT); - CASE(PTRACE_GETFPAREGS); - CASE(PTRACE_SETFPAREGS); - CASE(PTRACE_GETWINDOW); - CASE(PTRACE_SETWINDOW); - CASE(PTRACE_SYSCALL); - CASE(PTRACE_DUMPCORE); - CASE(PTRACE_SETWRBKPT); - CASE(PTRACE_SETACBKPT); - CASE(PTRACE_CLRBKPT); - CASE(PTRACE_GET_UCODE); -#ifdef PT_READ_GPR - CASE(PT_READ_GPR); -#endif -#ifdef PT_WRITE_GPR - CASE(PT_WRITE_GPR); -#endif -#ifdef PT_READ_FPR - CASE(PT_READ_FPR); -#endif -#ifdef PT_WRITE_FPR - CASE(PT_WRITE_FPR); -#endif -#ifdef PT_READ_VPR - CASE(PT_READ_VPR); -#endif -#ifdef PT_WRITE_VPR - CASE(PT_WRITE_VPR); -#endif -#ifdef PTRACE_PEEKUSP - CASE(PTRACE_PEEKUSP); -#endif -#ifdef PTRACE_POKEUSP - CASE(PTRACE_POKEUSP); -#endif - CASE(PTRACE_PEEKTHREAD); - CASE(PTRACE_THREADUSER); - CASE(PTRACE_FPREAD); - CASE(PTRACE_FPWRITE); - CASE(PTRACE_SETSIG); - CASE(PTRACE_CONT_ONE); - CASE(PTRACE_KILL_ONE); - CASE(PTRACE_SINGLESTEP_ONE); - CASE(PTRACE_GETLOADINFO); - CASE(PTRACE_GETTRACESIG); -#ifdef PTRACE_GETTHREADLIST - CASE(PTRACE_GETTHREADLIST); -#endif - } -#undef CASE - - return ""; -} - -/* A wrapper around ptrace that allows us to print debug traces of - ptrace calls if debug traces are activated. */ - -static int -lynx_ptrace (int request, ptid_t ptid, int addr, int data, int addr2) -{ - int result; - const int pid = lynx_ptrace_pid_from_ptid (ptid); - int saved_errno; - - if (debug_threads) - fprintf (stderr, "PTRACE (%s, pid=%d(pid=%d, tid=%d), addr=0x%x, " - "data=0x%x, addr2=0x%x)", - ptrace_request_to_str (request), pid, PIDGET (pid), TIDGET (pid), - addr, data, addr2); - result = ptrace (request, pid, addr, data, addr2); - saved_errno = errno; - if (debug_threads) - fprintf (stderr, " -> %d (=0x%x)\n", result, result); - - errno = saved_errno; - return result; -} - -/* Call add_process with the given parameters, and initializes - the process' private data. */ - -static struct process_info * -lynx_add_process (int pid, int attached) -{ - struct process_info *proc; - - proc = add_process (pid, attached); - proc->tdesc = lynx_tdesc; - proc->priv = XCNEW (struct process_info_private); - proc->priv->last_wait_event_ptid = null_ptid; - - return proc; -} - -/* Callback used by fork_inferior to start tracing the inferior. */ - -static void -lynx_ptrace_fun () -{ - int pgrp; - - /* Switch child to its own process group so that signals won't - directly affect GDBserver. */ - pgrp = getpid(); - if (pgrp < 0) - trace_start_error_with_name ("pgrp"); - if (setpgid (0, pgrp) < 0) - trace_start_error_with_name ("setpgid"); - if (ioctl (0, TIOCSPGRP, &pgrp) < 0) - trace_start_error_with_name ("ioctl"); - if (lynx_ptrace (PTRACE_TRACEME, null_ptid, 0, 0, 0) < 0) - trace_start_error_with_name ("lynx_ptrace"); -} - -/* Implement the create_inferior method of the target_ops vector. */ - -static int -lynx_create_inferior (const char *program, - const std::vector &program_args) -{ - int pid; - std::string str_program_args = stringify_argv (program_args); - - lynx_debug ("lynx_create_inferior ()"); - - pid = fork_inferior (program, - str_program_args.c_str (), - get_environ ()->envp (), lynx_ptrace_fun, - NULL, NULL, NULL, NULL); - - post_fork_inferior (pid, program); - - lynx_add_process (pid, 0); - /* Do not add the process thread just yet, as we do not know its tid. - We will add it later, during the wait for the STOP event corresponding - to the lynx_ptrace (PTRACE_TRACEME) call above. */ - return pid; -} - -/* Assuming we've just attached to a running inferior whose pid is PID, - add all threads running in that process. */ - -static void -lynx_add_threads_after_attach (int pid) -{ - /* Ugh! There appears to be no way to get the list of threads - in the program we just attached to. So get the list by calling - the "ps" command. This is only needed now, as we will then - keep the thread list up to date thanks to thread creation and - exit notifications. */ - FILE *f; - char buf[256]; - int thread_pid, thread_tid; - - f = popen ("ps atx", "r"); - if (f == NULL) - perror_with_name ("Cannot get thread list"); - - while (fgets (buf, sizeof (buf), f) != NULL) - if ((sscanf (buf, "%d %d", &thread_pid, &thread_tid) == 2 - && thread_pid == pid)) - { - ptid_t thread_ptid = lynx_ptid_t (pid, thread_tid); - - if (!find_thread_ptid (thread_ptid)) - { - lynx_debug ("New thread: (pid = %d, tid = %d)", - pid, thread_tid); - add_thread (thread_ptid, NULL); - } - } - - pclose (f); -} - -/* Implement the attach target_ops method. */ - -static int -lynx_attach (unsigned long pid) -{ - ptid_t ptid = lynx_ptid_t (pid, 0); - - if (lynx_ptrace (PTRACE_ATTACH, ptid, 0, 0, 0) != 0) - error ("Cannot attach to process %lu: %s (%d)\n", pid, - safe_strerror (errno), errno); - - lynx_add_process (pid, 1); - lynx_add_threads_after_attach (pid); - - return 0; -} - -/* Implement the resume target_ops method. */ - -static void -lynx_resume (struct thread_resume *resume_info, size_t n) -{ - ptid_t ptid = resume_info[0].thread; - const int request - = (resume_info[0].kind == resume_step - ? (n == 1 ? PTRACE_SINGLESTEP_ONE : PTRACE_SINGLESTEP) - : PTRACE_CONT); - const int signal = resume_info[0].sig; - - /* If given a minus_one_ptid, then try using the current_process' - private->last_wait_event_ptid. On most LynxOS versions, - using any of the process' thread works well enough, but - LynxOS 178 is a little more sensitive, and triggers some - unexpected signals (Eg SIG61) when we resume the inferior - using a different thread. */ - if (ptid == minus_one_ptid) - ptid = current_process()->priv->last_wait_event_ptid; - - /* The ptid might still be minus_one_ptid; this can happen between - the moment we create the inferior or attach to a process, and - the moment we resume its execution for the first time. It is - fine to use the current_thread's ptid in those cases. */ - if (ptid == minus_one_ptid) - ptid = ptid_of (current_thread); - - regcache_invalidate_pid (ptid.pid ()); - - errno = 0; - lynx_ptrace (request, ptid, 1, signal, 0); - if (errno) - perror_with_name ("ptrace"); -} - -/* Resume the execution of the given PTID. */ - -static void -lynx_continue (ptid_t ptid) -{ - struct thread_resume resume_info; - - resume_info.thread = ptid; - resume_info.kind = resume_continue; - resume_info.sig = 0; - - lynx_resume (&resume_info, 1); -} - -/* A wrapper around waitpid that handles the various idiosyncrasies - of LynxOS' waitpid. */ - -static int -lynx_waitpid (int pid, int *stat_loc) -{ - int ret = 0; - - while (1) - { - ret = waitpid (pid, stat_loc, WNOHANG); - if (ret < 0) - { - /* An ECHILD error is not indicative of a real problem. - It happens for instance while waiting for the inferior - to stop after attaching to it. */ - if (errno != ECHILD) - perror_with_name ("waitpid (WNOHANG)"); - } - if (ret > 0) - break; - /* No event with WNOHANG. See if there is one with WUNTRACED. */ - ret = waitpid (pid, stat_loc, WNOHANG | WUNTRACED); - if (ret < 0) - { - /* An ECHILD error is not indicative of a real problem. - It happens for instance while waiting for the inferior - to stop after attaching to it. */ - if (errno != ECHILD) - perror_with_name ("waitpid (WNOHANG|WUNTRACED)"); - } - if (ret > 0) - break; - usleep (1000); - } - return ret; -} - -/* Implement the wait target_ops method. */ - -static ptid_t -lynx_wait_1 (ptid_t ptid, struct target_waitstatus *status, int options) -{ - int pid; - int ret; - int wstat; - ptid_t new_ptid; - - if (ptid == minus_one_ptid) - pid = lynx_ptid_get_pid (ptid_of (current_thread)); - else - pid = BUILDPID (lynx_ptid_get_pid (ptid), lynx_ptid_get_tid (ptid)); - -retry: - - ret = lynx_waitpid (pid, &wstat); - new_ptid = lynx_ptid_t (ret, ((union wait *) &wstat)->w_tid); - find_process_pid (ret)->priv->last_wait_event_ptid = new_ptid; - - /* If this is a new thread, then add it now. The reason why we do - this here instead of when handling new-thread events is because - we need to add the thread associated to the "main" thread - even - for non-threaded applications where the new-thread events are not - generated. */ - if (!find_thread_ptid (new_ptid)) - { - lynx_debug ("New thread: (pid = %d, tid = %d)", - lynx_ptid_get_pid (new_ptid), lynx_ptid_get_tid (new_ptid)); - add_thread (new_ptid, NULL); - } - - if (WIFSTOPPED (wstat)) - { - status->kind = TARGET_WAITKIND_STOPPED; - status->value.integer = gdb_signal_from_host (WSTOPSIG (wstat)); - lynx_debug ("process stopped with signal: %d", - status->value.integer); - } - else if (WIFEXITED (wstat)) - { - status->kind = TARGET_WAITKIND_EXITED; - status->value.integer = WEXITSTATUS (wstat); - lynx_debug ("process exited with code: %d", status->value.integer); - } - else if (WIFSIGNALED (wstat)) - { - status->kind = TARGET_WAITKIND_SIGNALLED; - status->value.integer = gdb_signal_from_host (WTERMSIG (wstat)); - lynx_debug ("process terminated with code: %d", - status->value.integer); - } - else - { - /* Not sure what happened if we get here, or whether we can - in fact get here. But if we do, handle the event the best - we can. */ - status->kind = TARGET_WAITKIND_STOPPED; - status->value.integer = gdb_signal_from_host (0); - lynx_debug ("unknown event ????"); - } - - /* SIGTRAP events are generated for situations other than single-step/ - breakpoint events (Eg. new-thread events). Handle those other types - of events, and resume the execution if necessary. */ - if (status->kind == TARGET_WAITKIND_STOPPED - && status->value.integer == GDB_SIGNAL_TRAP) - { - const int realsig = lynx_ptrace (PTRACE_GETTRACESIG, new_ptid, 0, 0, 0); - - lynx_debug ("(realsig = %d)", realsig); - switch (realsig) - { - case SIGNEWTHREAD: - /* We just added the new thread above. No need to do anything - further. Just resume the execution again. */ - lynx_continue (new_ptid); - goto retry; - - case SIGTHREADEXIT: - remove_thread (find_thread_ptid (new_ptid)); - lynx_continue (new_ptid); - goto retry; - } - } - - return new_ptid; -} - -/* A wrapper around lynx_wait_1 that also prints debug traces when - such debug traces have been activated. */ - -static ptid_t -lynx_wait (ptid_t ptid, struct target_waitstatus *status, int options) -{ - ptid_t new_ptid; - - lynx_debug ("lynx_wait (pid = %d, tid = %ld)", - lynx_ptid_get_pid (ptid), lynx_ptid_get_tid (ptid)); - new_ptid = lynx_wait_1 (ptid, status, options); - lynx_debug (" -> (pid=%d, tid=%ld, status->kind = %d)", - lynx_ptid_get_pid (new_ptid), lynx_ptid_get_tid (new_ptid), - status->kind); - return new_ptid; -} - -/* Implement the kill target_ops method. */ - -static int -lynx_kill (process_info *process) -{ - ptid_t ptid = lynx_ptid_t (process->pid, 0); - struct target_waitstatus status; - - lynx_ptrace (PTRACE_KILL, ptid, 0, 0, 0); - lynx_wait (ptid, &status, 0); - the_target->mourn (process); - return 0; -} - -/* Implement the detach target_ops method. */ - -static int -lynx_detach (process_info *process) -{ - ptid_t ptid = lynx_ptid_t (process->pid, 0); - - lynx_ptrace (PTRACE_DETACH, ptid, 0, 0, 0); - the_target->mourn (process); - return 0; -} - -/* Implement the mourn target_ops method. */ - -static void -lynx_mourn (struct process_info *proc) -{ - for_each_thread (proc->pid, remove_thread); - - /* Free our private data. */ - free (proc->priv); - proc->priv = NULL; - - remove_process (proc); -} - -/* Implement the join target_ops method. */ - -static void -lynx_join (int pid) -{ - /* The PTRACE_DETACH is sufficient to detach from the process. - So no need to do anything extra. */ -} - -/* Implement the thread_alive target_ops method. */ - -static int -lynx_thread_alive (ptid_t ptid) -{ - /* The list of threads is updated at the end of each wait, so it - should be up to date. No need to re-fetch it. */ - return (find_thread_ptid (ptid) != NULL); -} - -/* Implement the fetch_registers target_ops method. */ - -static void -lynx_fetch_registers (struct regcache *regcache, int regno) -{ - struct lynx_regset_info *regset = lynx_target_regsets; - ptid_t inferior_ptid = ptid_of (current_thread); - - lynx_debug ("lynx_fetch_registers (regno = %d)", regno); - - while (regset->size >= 0) - { - char *buf; - int res; - - buf = xmalloc (regset->size); - res = lynx_ptrace (regset->get_request, inferior_ptid, (int) buf, 0, 0); - if (res < 0) - perror ("ptrace"); - regset->store_function (regcache, buf); - free (buf); - regset++; - } -} - -/* Implement the store_registers target_ops method. */ - -static void -lynx_store_registers (struct regcache *regcache, int regno) -{ - struct lynx_regset_info *regset = lynx_target_regsets; - ptid_t inferior_ptid = ptid_of (current_thread); - - lynx_debug ("lynx_store_registers (regno = %d)", regno); - - while (regset->size >= 0) - { - char *buf; - int res; - - buf = xmalloc (regset->size); - res = lynx_ptrace (regset->get_request, inferior_ptid, (int) buf, 0, 0); - if (res == 0) - { - /* Then overlay our cached registers on that. */ - regset->fill_function (regcache, buf); - /* Only now do we write the register set. */ - res = lynx_ptrace (regset->set_request, inferior_ptid, (int) buf, - 0, 0); - } - if (res < 0) - perror ("ptrace"); - free (buf); - regset++; - } -} - -/* Implement the read_memory target_ops method. */ - -static int -lynx_read_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) -{ - /* On LynxOS, memory reads needs to be performed in chunks the size - of int types, and they should also be aligned accordingly. */ - int buf; - const int xfer_size = sizeof (buf); - CORE_ADDR addr = memaddr & -(CORE_ADDR) xfer_size; - ptid_t inferior_ptid = ptid_of (current_thread); - - while (addr < memaddr + len) - { - int skip = 0; - int truncate = 0; - - errno = 0; - if (addr < memaddr) - skip = memaddr - addr; - if (addr + xfer_size > memaddr + len) - truncate = addr + xfer_size - memaddr - len; - buf = lynx_ptrace (PTRACE_PEEKTEXT, inferior_ptid, addr, 0, 0); - if (errno) - return errno; - memcpy (myaddr + (addr - memaddr) + skip, (gdb_byte *) &buf + skip, - xfer_size - skip - truncate); - addr += xfer_size; - } - - return 0; -} - -/* Implement the write_memory target_ops method. */ - -static int -lynx_write_memory (CORE_ADDR memaddr, const unsigned char *myaddr, int len) -{ - /* On LynxOS, memory writes needs to be performed in chunks the size - of int types, and they should also be aligned accordingly. */ - int buf; - const int xfer_size = sizeof (buf); - CORE_ADDR addr = memaddr & -(CORE_ADDR) xfer_size; - ptid_t inferior_ptid = ptid_of (current_thread); - - while (addr < memaddr + len) - { - int skip = 0; - int truncate = 0; - - if (addr < memaddr) - skip = memaddr - addr; - if (addr + xfer_size > memaddr + len) - truncate = addr + xfer_size - memaddr - len; - if (skip > 0 || truncate > 0) - { - /* We need to read the memory at this address in order to preserve - the data that we are not overwriting. */ - lynx_read_memory (addr, (unsigned char *) &buf, xfer_size); - if (errno) - return errno; - } - memcpy ((gdb_byte *) &buf + skip, myaddr + (addr - memaddr) + skip, - xfer_size - skip - truncate); - errno = 0; - lynx_ptrace (PTRACE_POKETEXT, inferior_ptid, addr, buf, 0); - if (errno) - return errno; - addr += xfer_size; - } - - return 0; -} - -/* Implement the kill_request target_ops method. */ - -static void -lynx_request_interrupt (void) -{ - ptid_t inferior_ptid = ptid_of (get_first_thread ()); - - kill (lynx_ptid_get_pid (inferior_ptid), SIGINT); -} - -/* The LynxOS target_ops vector. */ - -static process_stratum_target lynx_target_ops = { - lynx_create_inferior, - NULL, /* post_create_inferior */ - lynx_attach, - lynx_kill, - lynx_detach, - lynx_mourn, - lynx_join, - lynx_thread_alive, - lynx_resume, - lynx_wait, - lynx_fetch_registers, - lynx_store_registers, - NULL, /* prepare_to_access_memory */ - NULL, /* done_accessing_memory */ - lynx_read_memory, - lynx_write_memory, - NULL, /* look_up_symbols */ - lynx_request_interrupt, - NULL, /* read_auxv */ - NULL, /* supports_z_point_type */ - NULL, /* insert_point */ - NULL, /* remove_point */ - NULL, /* stopped_by_sw_breakpoint */ - NULL, /* supports_stopped_by_sw_breakpoint */ - NULL, /* stopped_by_hw_breakpoint */ - NULL, /* supports_stopped_by_hw_breakpoint */ - target_can_do_hardware_single_step, - NULL, /* stopped_by_watchpoint */ - NULL, /* stopped_data_address */ - NULL, /* read_offsets */ - NULL, /* get_tls_address */ - NULL, /* hostio_last_error */ - NULL, /* qxfer_osdata */ - NULL, /* qxfer_siginfo */ - NULL, /* supports_non_stop */ - NULL, /* async */ - NULL, /* start_non_stop */ - NULL, /* supports_multi_process */ - NULL, /* supports_fork_events */ - NULL, /* supports_vfork_events */ - NULL, /* supports_exec_events */ - NULL, /* handle_new_gdb_connection */ - NULL, /* handle_monitor_command */ -}; - -void -initialize_low (void) -{ - set_target_ops (&lynx_target_ops); - the_low_target.arch_setup (); -} - diff --git a/gdbserver/lynx-low.cc b/gdbserver/lynx-low.cc new file mode 100644 index 00000000000..a5b019396fa --- /dev/null +++ b/gdbserver/lynx-low.cc @@ -0,0 +1,776 @@ +/* Copyright (C) 2009-2020 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 . */ + +#include "server.h" +#include "target.h" +#include "lynx-low.h" + +#include +#include +#include /* Provides PIDGET, TIDGET, BUILDPID, etc. */ +#include +#include +#include +#include "gdbsupport/gdb_wait.h" +#include +#include "gdbsupport/filestuff.h" +#include "gdbsupport/common-inferior.h" +#include "nat/fork-inferior.h" + +int using_threads = 1; + +const struct target_desc *lynx_tdesc; + +/* Per-process private data. */ + +struct process_info_private +{ + /* The PTID obtained from the last wait performed on this process. + Initialized to null_ptid until the first wait is performed. */ + ptid_t last_wait_event_ptid; +}; + +/* Print a debug trace on standard output if debug_threads is set. */ + +static void +lynx_debug (char *string, ...) +{ + va_list args; + + if (!debug_threads) + return; + + va_start (args, string); + fprintf (stderr, "DEBUG(lynx): "); + vfprintf (stderr, string, args); + fprintf (stderr, "\n"); + va_end (args); +} + +/* Build a ptid_t given a PID and a LynxOS TID. */ + +static ptid_t +lynx_ptid_t (int pid, long tid) +{ + /* brobecker/2010-06-21: It looks like the LWP field in ptids + should be distinct for each thread (see write_ptid where it + writes the thread ID from the LWP). So instead of storing + the LynxOS tid in the tid field of the ptid, we store it in + the lwp field. */ + return ptid_t (pid, tid, 0); +} + +/* Return the process ID of the given PTID. + + This function has little reason to exist, it's just a wrapper around + ptid_get_pid. But since we have a getter function for the lynxos + ptid, it feels cleaner to have a getter for the pid as well. */ + +static int +lynx_ptid_get_pid (ptid_t ptid) +{ + return ptid.pid (); +} + +/* Return the LynxOS tid of the given PTID. */ + +static long +lynx_ptid_get_tid (ptid_t ptid) +{ + /* See lynx_ptid_t: The LynxOS tid is stored inside the lwp field + of the ptid. */ + return ptid.lwp (); +} + +/* For a given PTID, return the associated PID as known by the LynxOS + ptrace layer. */ + +static int +lynx_ptrace_pid_from_ptid (ptid_t ptid) +{ + return BUILDPID (lynx_ptid_get_pid (ptid), lynx_ptid_get_tid (ptid)); +} + +/* Return a string image of the ptrace REQUEST number. */ + +static char * +ptrace_request_to_str (int request) +{ +#define CASE(X) case X: return #X + switch (request) + { + CASE(PTRACE_TRACEME); + CASE(PTRACE_PEEKTEXT); + CASE(PTRACE_PEEKDATA); + CASE(PTRACE_PEEKUSER); + CASE(PTRACE_POKETEXT); + CASE(PTRACE_POKEDATA); + CASE(PTRACE_POKEUSER); + CASE(PTRACE_CONT); + CASE(PTRACE_KILL); + CASE(PTRACE_SINGLESTEP); + CASE(PTRACE_ATTACH); + CASE(PTRACE_DETACH); + CASE(PTRACE_GETREGS); + CASE(PTRACE_SETREGS); + CASE(PTRACE_GETFPREGS); + CASE(PTRACE_SETFPREGS); + CASE(PTRACE_READDATA); + CASE(PTRACE_WRITEDATA); + CASE(PTRACE_READTEXT); + CASE(PTRACE_WRITETEXT); + CASE(PTRACE_GETFPAREGS); + CASE(PTRACE_SETFPAREGS); + CASE(PTRACE_GETWINDOW); + CASE(PTRACE_SETWINDOW); + CASE(PTRACE_SYSCALL); + CASE(PTRACE_DUMPCORE); + CASE(PTRACE_SETWRBKPT); + CASE(PTRACE_SETACBKPT); + CASE(PTRACE_CLRBKPT); + CASE(PTRACE_GET_UCODE); +#ifdef PT_READ_GPR + CASE(PT_READ_GPR); +#endif +#ifdef PT_WRITE_GPR + CASE(PT_WRITE_GPR); +#endif +#ifdef PT_READ_FPR + CASE(PT_READ_FPR); +#endif +#ifdef PT_WRITE_FPR + CASE(PT_WRITE_FPR); +#endif +#ifdef PT_READ_VPR + CASE(PT_READ_VPR); +#endif +#ifdef PT_WRITE_VPR + CASE(PT_WRITE_VPR); +#endif +#ifdef PTRACE_PEEKUSP + CASE(PTRACE_PEEKUSP); +#endif +#ifdef PTRACE_POKEUSP + CASE(PTRACE_POKEUSP); +#endif + CASE(PTRACE_PEEKTHREAD); + CASE(PTRACE_THREADUSER); + CASE(PTRACE_FPREAD); + CASE(PTRACE_FPWRITE); + CASE(PTRACE_SETSIG); + CASE(PTRACE_CONT_ONE); + CASE(PTRACE_KILL_ONE); + CASE(PTRACE_SINGLESTEP_ONE); + CASE(PTRACE_GETLOADINFO); + CASE(PTRACE_GETTRACESIG); +#ifdef PTRACE_GETTHREADLIST + CASE(PTRACE_GETTHREADLIST); +#endif + } +#undef CASE + + return ""; +} + +/* A wrapper around ptrace that allows us to print debug traces of + ptrace calls if debug traces are activated. */ + +static int +lynx_ptrace (int request, ptid_t ptid, int addr, int data, int addr2) +{ + int result; + const int pid = lynx_ptrace_pid_from_ptid (ptid); + int saved_errno; + + if (debug_threads) + fprintf (stderr, "PTRACE (%s, pid=%d(pid=%d, tid=%d), addr=0x%x, " + "data=0x%x, addr2=0x%x)", + ptrace_request_to_str (request), pid, PIDGET (pid), TIDGET (pid), + addr, data, addr2); + result = ptrace (request, pid, addr, data, addr2); + saved_errno = errno; + if (debug_threads) + fprintf (stderr, " -> %d (=0x%x)\n", result, result); + + errno = saved_errno; + return result; +} + +/* Call add_process with the given parameters, and initializes + the process' private data. */ + +static struct process_info * +lynx_add_process (int pid, int attached) +{ + struct process_info *proc; + + proc = add_process (pid, attached); + proc->tdesc = lynx_tdesc; + proc->priv = XCNEW (struct process_info_private); + proc->priv->last_wait_event_ptid = null_ptid; + + return proc; +} + +/* Callback used by fork_inferior to start tracing the inferior. */ + +static void +lynx_ptrace_fun () +{ + int pgrp; + + /* Switch child to its own process group so that signals won't + directly affect GDBserver. */ + pgrp = getpid(); + if (pgrp < 0) + trace_start_error_with_name ("pgrp"); + if (setpgid (0, pgrp) < 0) + trace_start_error_with_name ("setpgid"); + if (ioctl (0, TIOCSPGRP, &pgrp) < 0) + trace_start_error_with_name ("ioctl"); + if (lynx_ptrace (PTRACE_TRACEME, null_ptid, 0, 0, 0) < 0) + trace_start_error_with_name ("lynx_ptrace"); +} + +/* Implement the create_inferior method of the target_ops vector. */ + +static int +lynx_create_inferior (const char *program, + const std::vector &program_args) +{ + int pid; + std::string str_program_args = stringify_argv (program_args); + + lynx_debug ("lynx_create_inferior ()"); + + pid = fork_inferior (program, + str_program_args.c_str (), + get_environ ()->envp (), lynx_ptrace_fun, + NULL, NULL, NULL, NULL); + + post_fork_inferior (pid, program); + + lynx_add_process (pid, 0); + /* Do not add the process thread just yet, as we do not know its tid. + We will add it later, during the wait for the STOP event corresponding + to the lynx_ptrace (PTRACE_TRACEME) call above. */ + return pid; +} + +/* Assuming we've just attached to a running inferior whose pid is PID, + add all threads running in that process. */ + +static void +lynx_add_threads_after_attach (int pid) +{ + /* Ugh! There appears to be no way to get the list of threads + in the program we just attached to. So get the list by calling + the "ps" command. This is only needed now, as we will then + keep the thread list up to date thanks to thread creation and + exit notifications. */ + FILE *f; + char buf[256]; + int thread_pid, thread_tid; + + f = popen ("ps atx", "r"); + if (f == NULL) + perror_with_name ("Cannot get thread list"); + + while (fgets (buf, sizeof (buf), f) != NULL) + if ((sscanf (buf, "%d %d", &thread_pid, &thread_tid) == 2 + && thread_pid == pid)) + { + ptid_t thread_ptid = lynx_ptid_t (pid, thread_tid); + + if (!find_thread_ptid (thread_ptid)) + { + lynx_debug ("New thread: (pid = %d, tid = %d)", + pid, thread_tid); + add_thread (thread_ptid, NULL); + } + } + + pclose (f); +} + +/* Implement the attach target_ops method. */ + +static int +lynx_attach (unsigned long pid) +{ + ptid_t ptid = lynx_ptid_t (pid, 0); + + if (lynx_ptrace (PTRACE_ATTACH, ptid, 0, 0, 0) != 0) + error ("Cannot attach to process %lu: %s (%d)\n", pid, + safe_strerror (errno), errno); + + lynx_add_process (pid, 1); + lynx_add_threads_after_attach (pid); + + return 0; +} + +/* Implement the resume target_ops method. */ + +static void +lynx_resume (struct thread_resume *resume_info, size_t n) +{ + ptid_t ptid = resume_info[0].thread; + const int request + = (resume_info[0].kind == resume_step + ? (n == 1 ? PTRACE_SINGLESTEP_ONE : PTRACE_SINGLESTEP) + : PTRACE_CONT); + const int signal = resume_info[0].sig; + + /* If given a minus_one_ptid, then try using the current_process' + private->last_wait_event_ptid. On most LynxOS versions, + using any of the process' thread works well enough, but + LynxOS 178 is a little more sensitive, and triggers some + unexpected signals (Eg SIG61) when we resume the inferior + using a different thread. */ + if (ptid == minus_one_ptid) + ptid = current_process()->priv->last_wait_event_ptid; + + /* The ptid might still be minus_one_ptid; this can happen between + the moment we create the inferior or attach to a process, and + the moment we resume its execution for the first time. It is + fine to use the current_thread's ptid in those cases. */ + if (ptid == minus_one_ptid) + ptid = ptid_of (current_thread); + + regcache_invalidate_pid (ptid.pid ()); + + errno = 0; + lynx_ptrace (request, ptid, 1, signal, 0); + if (errno) + perror_with_name ("ptrace"); +} + +/* Resume the execution of the given PTID. */ + +static void +lynx_continue (ptid_t ptid) +{ + struct thread_resume resume_info; + + resume_info.thread = ptid; + resume_info.kind = resume_continue; + resume_info.sig = 0; + + lynx_resume (&resume_info, 1); +} + +/* A wrapper around waitpid that handles the various idiosyncrasies + of LynxOS' waitpid. */ + +static int +lynx_waitpid (int pid, int *stat_loc) +{ + int ret = 0; + + while (1) + { + ret = waitpid (pid, stat_loc, WNOHANG); + if (ret < 0) + { + /* An ECHILD error is not indicative of a real problem. + It happens for instance while waiting for the inferior + to stop after attaching to it. */ + if (errno != ECHILD) + perror_with_name ("waitpid (WNOHANG)"); + } + if (ret > 0) + break; + /* No event with WNOHANG. See if there is one with WUNTRACED. */ + ret = waitpid (pid, stat_loc, WNOHANG | WUNTRACED); + if (ret < 0) + { + /* An ECHILD error is not indicative of a real problem. + It happens for instance while waiting for the inferior + to stop after attaching to it. */ + if (errno != ECHILD) + perror_with_name ("waitpid (WNOHANG|WUNTRACED)"); + } + if (ret > 0) + break; + usleep (1000); + } + return ret; +} + +/* Implement the wait target_ops method. */ + +static ptid_t +lynx_wait_1 (ptid_t ptid, struct target_waitstatus *status, int options) +{ + int pid; + int ret; + int wstat; + ptid_t new_ptid; + + if (ptid == minus_one_ptid) + pid = lynx_ptid_get_pid (ptid_of (current_thread)); + else + pid = BUILDPID (lynx_ptid_get_pid (ptid), lynx_ptid_get_tid (ptid)); + +retry: + + ret = lynx_waitpid (pid, &wstat); + new_ptid = lynx_ptid_t (ret, ((union wait *) &wstat)->w_tid); + find_process_pid (ret)->priv->last_wait_event_ptid = new_ptid; + + /* If this is a new thread, then add it now. The reason why we do + this here instead of when handling new-thread events is because + we need to add the thread associated to the "main" thread - even + for non-threaded applications where the new-thread events are not + generated. */ + if (!find_thread_ptid (new_ptid)) + { + lynx_debug ("New thread: (pid = %d, tid = %d)", + lynx_ptid_get_pid (new_ptid), lynx_ptid_get_tid (new_ptid)); + add_thread (new_ptid, NULL); + } + + if (WIFSTOPPED (wstat)) + { + status->kind = TARGET_WAITKIND_STOPPED; + status->value.integer = gdb_signal_from_host (WSTOPSIG (wstat)); + lynx_debug ("process stopped with signal: %d", + status->value.integer); + } + else if (WIFEXITED (wstat)) + { + status->kind = TARGET_WAITKIND_EXITED; + status->value.integer = WEXITSTATUS (wstat); + lynx_debug ("process exited with code: %d", status->value.integer); + } + else if (WIFSIGNALED (wstat)) + { + status->kind = TARGET_WAITKIND_SIGNALLED; + status->value.integer = gdb_signal_from_host (WTERMSIG (wstat)); + lynx_debug ("process terminated with code: %d", + status->value.integer); + } + else + { + /* Not sure what happened if we get here, or whether we can + in fact get here. But if we do, handle the event the best + we can. */ + status->kind = TARGET_WAITKIND_STOPPED; + status->value.integer = gdb_signal_from_host (0); + lynx_debug ("unknown event ????"); + } + + /* SIGTRAP events are generated for situations other than single-step/ + breakpoint events (Eg. new-thread events). Handle those other types + of events, and resume the execution if necessary. */ + if (status->kind == TARGET_WAITKIND_STOPPED + && status->value.integer == GDB_SIGNAL_TRAP) + { + const int realsig = lynx_ptrace (PTRACE_GETTRACESIG, new_ptid, 0, 0, 0); + + lynx_debug ("(realsig = %d)", realsig); + switch (realsig) + { + case SIGNEWTHREAD: + /* We just added the new thread above. No need to do anything + further. Just resume the execution again. */ + lynx_continue (new_ptid); + goto retry; + + case SIGTHREADEXIT: + remove_thread (find_thread_ptid (new_ptid)); + lynx_continue (new_ptid); + goto retry; + } + } + + return new_ptid; +} + +/* A wrapper around lynx_wait_1 that also prints debug traces when + such debug traces have been activated. */ + +static ptid_t +lynx_wait (ptid_t ptid, struct target_waitstatus *status, int options) +{ + ptid_t new_ptid; + + lynx_debug ("lynx_wait (pid = %d, tid = %ld)", + lynx_ptid_get_pid (ptid), lynx_ptid_get_tid (ptid)); + new_ptid = lynx_wait_1 (ptid, status, options); + lynx_debug (" -> (pid=%d, tid=%ld, status->kind = %d)", + lynx_ptid_get_pid (new_ptid), lynx_ptid_get_tid (new_ptid), + status->kind); + return new_ptid; +} + +/* Implement the kill target_ops method. */ + +static int +lynx_kill (process_info *process) +{ + ptid_t ptid = lynx_ptid_t (process->pid, 0); + struct target_waitstatus status; + + lynx_ptrace (PTRACE_KILL, ptid, 0, 0, 0); + lynx_wait (ptid, &status, 0); + the_target->mourn (process); + return 0; +} + +/* Implement the detach target_ops method. */ + +static int +lynx_detach (process_info *process) +{ + ptid_t ptid = lynx_ptid_t (process->pid, 0); + + lynx_ptrace (PTRACE_DETACH, ptid, 0, 0, 0); + the_target->mourn (process); + return 0; +} + +/* Implement the mourn target_ops method. */ + +static void +lynx_mourn (struct process_info *proc) +{ + for_each_thread (proc->pid, remove_thread); + + /* Free our private data. */ + free (proc->priv); + proc->priv = NULL; + + remove_process (proc); +} + +/* Implement the join target_ops method. */ + +static void +lynx_join (int pid) +{ + /* The PTRACE_DETACH is sufficient to detach from the process. + So no need to do anything extra. */ +} + +/* Implement the thread_alive target_ops method. */ + +static int +lynx_thread_alive (ptid_t ptid) +{ + /* The list of threads is updated at the end of each wait, so it + should be up to date. No need to re-fetch it. */ + return (find_thread_ptid (ptid) != NULL); +} + +/* Implement the fetch_registers target_ops method. */ + +static void +lynx_fetch_registers (struct regcache *regcache, int regno) +{ + struct lynx_regset_info *regset = lynx_target_regsets; + ptid_t inferior_ptid = ptid_of (current_thread); + + lynx_debug ("lynx_fetch_registers (regno = %d)", regno); + + while (regset->size >= 0) + { + char *buf; + int res; + + buf = xmalloc (regset->size); + res = lynx_ptrace (regset->get_request, inferior_ptid, (int) buf, 0, 0); + if (res < 0) + perror ("ptrace"); + regset->store_function (regcache, buf); + free (buf); + regset++; + } +} + +/* Implement the store_registers target_ops method. */ + +static void +lynx_store_registers (struct regcache *regcache, int regno) +{ + struct lynx_regset_info *regset = lynx_target_regsets; + ptid_t inferior_ptid = ptid_of (current_thread); + + lynx_debug ("lynx_store_registers (regno = %d)", regno); + + while (regset->size >= 0) + { + char *buf; + int res; + + buf = xmalloc (regset->size); + res = lynx_ptrace (regset->get_request, inferior_ptid, (int) buf, 0, 0); + if (res == 0) + { + /* Then overlay our cached registers on that. */ + regset->fill_function (regcache, buf); + /* Only now do we write the register set. */ + res = lynx_ptrace (regset->set_request, inferior_ptid, (int) buf, + 0, 0); + } + if (res < 0) + perror ("ptrace"); + free (buf); + regset++; + } +} + +/* Implement the read_memory target_ops method. */ + +static int +lynx_read_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) +{ + /* On LynxOS, memory reads needs to be performed in chunks the size + of int types, and they should also be aligned accordingly. */ + int buf; + const int xfer_size = sizeof (buf); + CORE_ADDR addr = memaddr & -(CORE_ADDR) xfer_size; + ptid_t inferior_ptid = ptid_of (current_thread); + + while (addr < memaddr + len) + { + int skip = 0; + int truncate = 0; + + errno = 0; + if (addr < memaddr) + skip = memaddr - addr; + if (addr + xfer_size > memaddr + len) + truncate = addr + xfer_size - memaddr - len; + buf = lynx_ptrace (PTRACE_PEEKTEXT, inferior_ptid, addr, 0, 0); + if (errno) + return errno; + memcpy (myaddr + (addr - memaddr) + skip, (gdb_byte *) &buf + skip, + xfer_size - skip - truncate); + addr += xfer_size; + } + + return 0; +} + +/* Implement the write_memory target_ops method. */ + +static int +lynx_write_memory (CORE_ADDR memaddr, const unsigned char *myaddr, int len) +{ + /* On LynxOS, memory writes needs to be performed in chunks the size + of int types, and they should also be aligned accordingly. */ + int buf; + const int xfer_size = sizeof (buf); + CORE_ADDR addr = memaddr & -(CORE_ADDR) xfer_size; + ptid_t inferior_ptid = ptid_of (current_thread); + + while (addr < memaddr + len) + { + int skip = 0; + int truncate = 0; + + if (addr < memaddr) + skip = memaddr - addr; + if (addr + xfer_size > memaddr + len) + truncate = addr + xfer_size - memaddr - len; + if (skip > 0 || truncate > 0) + { + /* We need to read the memory at this address in order to preserve + the data that we are not overwriting. */ + lynx_read_memory (addr, (unsigned char *) &buf, xfer_size); + if (errno) + return errno; + } + memcpy ((gdb_byte *) &buf + skip, myaddr + (addr - memaddr) + skip, + xfer_size - skip - truncate); + errno = 0; + lynx_ptrace (PTRACE_POKETEXT, inferior_ptid, addr, buf, 0); + if (errno) + return errno; + addr += xfer_size; + } + + return 0; +} + +/* Implement the kill_request target_ops method. */ + +static void +lynx_request_interrupt (void) +{ + ptid_t inferior_ptid = ptid_of (get_first_thread ()); + + kill (lynx_ptid_get_pid (inferior_ptid), SIGINT); +} + +/* The LynxOS target_ops vector. */ + +static process_stratum_target lynx_target_ops = { + lynx_create_inferior, + NULL, /* post_create_inferior */ + lynx_attach, + lynx_kill, + lynx_detach, + lynx_mourn, + lynx_join, + lynx_thread_alive, + lynx_resume, + lynx_wait, + lynx_fetch_registers, + lynx_store_registers, + NULL, /* prepare_to_access_memory */ + NULL, /* done_accessing_memory */ + lynx_read_memory, + lynx_write_memory, + NULL, /* look_up_symbols */ + lynx_request_interrupt, + NULL, /* read_auxv */ + NULL, /* supports_z_point_type */ + NULL, /* insert_point */ + NULL, /* remove_point */ + NULL, /* stopped_by_sw_breakpoint */ + NULL, /* supports_stopped_by_sw_breakpoint */ + NULL, /* stopped_by_hw_breakpoint */ + NULL, /* supports_stopped_by_hw_breakpoint */ + target_can_do_hardware_single_step, + NULL, /* stopped_by_watchpoint */ + NULL, /* stopped_data_address */ + NULL, /* read_offsets */ + NULL, /* get_tls_address */ + NULL, /* hostio_last_error */ + NULL, /* qxfer_osdata */ + NULL, /* qxfer_siginfo */ + NULL, /* supports_non_stop */ + NULL, /* async */ + NULL, /* start_non_stop */ + NULL, /* supports_multi_process */ + NULL, /* supports_fork_events */ + NULL, /* supports_vfork_events */ + NULL, /* supports_exec_events */ + NULL, /* handle_new_gdb_connection */ + NULL, /* handle_monitor_command */ +}; + +void +initialize_low (void) +{ + set_target_ops (&lynx_target_ops); + the_low_target.arch_setup (); +} + diff --git a/gdbserver/lynx-ppc-low.c b/gdbserver/lynx-ppc-low.c deleted file mode 100644 index f93fc1d8d87..00000000000 --- a/gdbserver/lynx-ppc-low.c +++ /dev/null @@ -1,185 +0,0 @@ -/* Copyright (C) 2009-2020 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 . */ - -#include "server.h" -#include "lynx-low.h" -#include -#include - -/* The following two typedefs are defined in a .h file which is not - in the standard include path (/sys/include/family/ppc/ucontext.h), - so we just duplicate them here. */ - -/* General register context */ -typedef struct usr_econtext_s -{ - uint32_t uec_iregs[32]; - uint32_t uec_inum; - uint32_t uec_srr0; - uint32_t uec_srr1; - uint32_t uec_lr; - uint32_t uec_ctr; - uint32_t uec_cr; - uint32_t uec_xer; - uint32_t uec_dar; - uint32_t uec_mq; - uint32_t uec_msr; - uint32_t uec_sregs[16]; - uint32_t uec_ss_count; - uint32_t uec_ss_addr1; - uint32_t uec_ss_addr2; - uint32_t uec_ss_code1; - uint32_t uec_ss_code2; -} usr_econtext_t; - -/* Floating point register context */ -typedef struct usr_fcontext_s -{ - uint64_t ufc_freg[32]; - uint32_t ufc_fpscr[2]; -} usr_fcontext_t; - -/* Index of for various registers inside the regcache. */ -#define R0_REGNUM 0 -#define F0_REGNUM 32 -#define PC_REGNUM 64 -#define MSR_REGNUM 65 -#define CR_REGNUM 66 -#define LR_REGNUM 67 -#define CTR_REGNUM 68 -#define XER_REGNUM 69 -#define FPSCR_REGNUM 70 - -/* Defined in auto-generated file powerpc-32.c. */ -extern void init_registers_powerpc_32 (void); -extern const struct target_desc *tdesc_powerpc_32; - -/* The fill_function for the general-purpose register set. */ - -static void -lynx_ppc_fill_gregset (struct regcache *regcache, char *buf) -{ - int i; - - /* r0 - r31 */ - for (i = 0; i < 32; i++) - collect_register (regcache, R0_REGNUM + i, - buf + offsetof (usr_econtext_t, uec_iregs[i])); - - /* The other registers provided in the GP register context. */ - collect_register (regcache, PC_REGNUM, - buf + offsetof (usr_econtext_t, uec_srr0)); - collect_register (regcache, MSR_REGNUM, - buf + offsetof (usr_econtext_t, uec_srr1)); - collect_register (regcache, CR_REGNUM, - buf + offsetof (usr_econtext_t, uec_cr)); - collect_register (regcache, LR_REGNUM, - buf + offsetof (usr_econtext_t, uec_lr)); - collect_register (regcache, CTR_REGNUM, - buf + offsetof (usr_econtext_t, uec_ctr)); - collect_register (regcache, XER_REGNUM, - buf + offsetof (usr_econtext_t, uec_xer)); -} - -/* The store_function for the general-purpose register set. */ - -static void -lynx_ppc_store_gregset (struct regcache *regcache, const char *buf) -{ - int i; - - /* r0 - r31 */ - for (i = 0; i < 32; i++) - supply_register (regcache, R0_REGNUM + i, - buf + offsetof (usr_econtext_t, uec_iregs[i])); - - /* The other registers provided in the GP register context. */ - supply_register (regcache, PC_REGNUM, - buf + offsetof (usr_econtext_t, uec_srr0)); - supply_register (regcache, MSR_REGNUM, - buf + offsetof (usr_econtext_t, uec_srr1)); - supply_register (regcache, CR_REGNUM, - buf + offsetof (usr_econtext_t, uec_cr)); - supply_register (regcache, LR_REGNUM, - buf + offsetof (usr_econtext_t, uec_lr)); - supply_register (regcache, CTR_REGNUM, - buf + offsetof (usr_econtext_t, uec_ctr)); - supply_register (regcache, XER_REGNUM, - buf + offsetof (usr_econtext_t, uec_xer)); -} - -/* The fill_function for the floating-point register set. */ - -static void -lynx_ppc_fill_fpregset (struct regcache *regcache, char *buf) -{ - int i; - - /* f0 - f31 */ - for (i = 0; i < 32; i++) - collect_register (regcache, F0_REGNUM + i, - buf + offsetof (usr_fcontext_t, ufc_freg[i])); - - /* fpscr */ - collect_register (regcache, FPSCR_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_fpscr)); -} - -/* The store_function for the floating-point register set. */ - -static void -lynx_ppc_store_fpregset (struct regcache *regcache, const char *buf) -{ - int i; - - /* f0 - f31 */ - for (i = 0; i < 32; i++) - supply_register (regcache, F0_REGNUM + i, - buf + offsetof (usr_fcontext_t, ufc_freg[i])); - - /* fpscr */ - supply_register (regcache, FPSCR_REGNUM, - buf + offsetof (usr_fcontext_t, ufc_fpscr)); -} - -/* Implements the lynx_target_ops.arch_setup routine. */ - -static void -lynx_ppc_arch_setup (void) -{ - init_registers_powerpc_32 (); - lynx_tdesc = tdesc_powerpc_32; -} - -/* Description of all the powerpc-lynx register sets. */ - -struct lynx_regset_info lynx_target_regsets[] = { - /* General Purpose Registers. */ - {PTRACE_GETREGS, PTRACE_SETREGS, sizeof(usr_econtext_t), - lynx_ppc_fill_gregset, lynx_ppc_store_gregset}, - /* Floating Point Registers. */ - { PTRACE_GETFPREGS, PTRACE_SETFPREGS, sizeof(usr_fcontext_t), - lynx_ppc_fill_fpregset, lynx_ppc_store_fpregset }, - /* End of list marker. */ - {0, 0, -1, NULL, NULL } -}; - -/* The lynx_target_ops vector for powerpc-lynxos. */ - -struct lynx_target_ops the_low_target = { - lynx_ppc_arch_setup, -}; diff --git a/gdbserver/lynx-ppc-low.cc b/gdbserver/lynx-ppc-low.cc new file mode 100644 index 00000000000..f93fc1d8d87 --- /dev/null +++ b/gdbserver/lynx-ppc-low.cc @@ -0,0 +1,185 @@ +/* Copyright (C) 2009-2020 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 . */ + +#include "server.h" +#include "lynx-low.h" +#include +#include + +/* The following two typedefs are defined in a .h file which is not + in the standard include path (/sys/include/family/ppc/ucontext.h), + so we just duplicate them here. */ + +/* General register context */ +typedef struct usr_econtext_s +{ + uint32_t uec_iregs[32]; + uint32_t uec_inum; + uint32_t uec_srr0; + uint32_t uec_srr1; + uint32_t uec_lr; + uint32_t uec_ctr; + uint32_t uec_cr; + uint32_t uec_xer; + uint32_t uec_dar; + uint32_t uec_mq; + uint32_t uec_msr; + uint32_t uec_sregs[16]; + uint32_t uec_ss_count; + uint32_t uec_ss_addr1; + uint32_t uec_ss_addr2; + uint32_t uec_ss_code1; + uint32_t uec_ss_code2; +} usr_econtext_t; + +/* Floating point register context */ +typedef struct usr_fcontext_s +{ + uint64_t ufc_freg[32]; + uint32_t ufc_fpscr[2]; +} usr_fcontext_t; + +/* Index of for various registers inside the regcache. */ +#define R0_REGNUM 0 +#define F0_REGNUM 32 +#define PC_REGNUM 64 +#define MSR_REGNUM 65 +#define CR_REGNUM 66 +#define LR_REGNUM 67 +#define CTR_REGNUM 68 +#define XER_REGNUM 69 +#define FPSCR_REGNUM 70 + +/* Defined in auto-generated file powerpc-32.c. */ +extern void init_registers_powerpc_32 (void); +extern const struct target_desc *tdesc_powerpc_32; + +/* The fill_function for the general-purpose register set. */ + +static void +lynx_ppc_fill_gregset (struct regcache *regcache, char *buf) +{ + int i; + + /* r0 - r31 */ + for (i = 0; i < 32; i++) + collect_register (regcache, R0_REGNUM + i, + buf + offsetof (usr_econtext_t, uec_iregs[i])); + + /* The other registers provided in the GP register context. */ + collect_register (regcache, PC_REGNUM, + buf + offsetof (usr_econtext_t, uec_srr0)); + collect_register (regcache, MSR_REGNUM, + buf + offsetof (usr_econtext_t, uec_srr1)); + collect_register (regcache, CR_REGNUM, + buf + offsetof (usr_econtext_t, uec_cr)); + collect_register (regcache, LR_REGNUM, + buf + offsetof (usr_econtext_t, uec_lr)); + collect_register (regcache, CTR_REGNUM, + buf + offsetof (usr_econtext_t, uec_ctr)); + collect_register (regcache, XER_REGNUM, + buf + offsetof (usr_econtext_t, uec_xer)); +} + +/* The store_function for the general-purpose register set. */ + +static void +lynx_ppc_store_gregset (struct regcache *regcache, const char *buf) +{ + int i; + + /* r0 - r31 */ + for (i = 0; i < 32; i++) + supply_register (regcache, R0_REGNUM + i, + buf + offsetof (usr_econtext_t, uec_iregs[i])); + + /* The other registers provided in the GP register context. */ + supply_register (regcache, PC_REGNUM, + buf + offsetof (usr_econtext_t, uec_srr0)); + supply_register (regcache, MSR_REGNUM, + buf + offsetof (usr_econtext_t, uec_srr1)); + supply_register (regcache, CR_REGNUM, + buf + offsetof (usr_econtext_t, uec_cr)); + supply_register (regcache, LR_REGNUM, + buf + offsetof (usr_econtext_t, uec_lr)); + supply_register (regcache, CTR_REGNUM, + buf + offsetof (usr_econtext_t, uec_ctr)); + supply_register (regcache, XER_REGNUM, + buf + offsetof (usr_econtext_t, uec_xer)); +} + +/* The fill_function for the floating-point register set. */ + +static void +lynx_ppc_fill_fpregset (struct regcache *regcache, char *buf) +{ + int i; + + /* f0 - f31 */ + for (i = 0; i < 32; i++) + collect_register (regcache, F0_REGNUM + i, + buf + offsetof (usr_fcontext_t, ufc_freg[i])); + + /* fpscr */ + collect_register (regcache, FPSCR_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_fpscr)); +} + +/* The store_function for the floating-point register set. */ + +static void +lynx_ppc_store_fpregset (struct regcache *regcache, const char *buf) +{ + int i; + + /* f0 - f31 */ + for (i = 0; i < 32; i++) + supply_register (regcache, F0_REGNUM + i, + buf + offsetof (usr_fcontext_t, ufc_freg[i])); + + /* fpscr */ + supply_register (regcache, FPSCR_REGNUM, + buf + offsetof (usr_fcontext_t, ufc_fpscr)); +} + +/* Implements the lynx_target_ops.arch_setup routine. */ + +static void +lynx_ppc_arch_setup (void) +{ + init_registers_powerpc_32 (); + lynx_tdesc = tdesc_powerpc_32; +} + +/* Description of all the powerpc-lynx register sets. */ + +struct lynx_regset_info lynx_target_regsets[] = { + /* General Purpose Registers. */ + {PTRACE_GETREGS, PTRACE_SETREGS, sizeof(usr_econtext_t), + lynx_ppc_fill_gregset, lynx_ppc_store_gregset}, + /* Floating Point Registers. */ + { PTRACE_GETFPREGS, PTRACE_SETFPREGS, sizeof(usr_fcontext_t), + lynx_ppc_fill_fpregset, lynx_ppc_store_fpregset }, + /* End of list marker. */ + {0, 0, -1, NULL, NULL } +}; + +/* The lynx_target_ops vector for powerpc-lynxos. */ + +struct lynx_target_ops the_low_target = { + lynx_ppc_arch_setup, +}; diff --git a/gdbserver/mem-break.c b/gdbserver/mem-break.c deleted file mode 100644 index 1b6f2365814..00000000000 --- a/gdbserver/mem-break.c +++ /dev/null @@ -1,2237 +0,0 @@ -/* Memory breakpoint operations for the remote server for GDB. - Copyright (C) 2002-2020 Free Software Foundation, Inc. - - Contributed by MontaVista Software. - - 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 . */ - -#include "server.h" -#include "regcache.h" -#include "ax.h" - -#define MAX_BREAKPOINT_LEN 8 - -/* Helper macro used in loops that append multiple items to a singly-linked - list instead of inserting items at the head of the list, as, say, in the - breakpoint lists. LISTPP is a pointer to the pointer that is the head of - the new list. ITEMP is a pointer to the item to be added to the list. - TAILP must be defined to be the same type as ITEMP, and initialized to - NULL. */ - -#define APPEND_TO_LIST(listpp, itemp, tailp) \ - do \ - { \ - if ((tailp) == NULL) \ - *(listpp) = (itemp); \ - else \ - (tailp)->next = (itemp); \ - (tailp) = (itemp); \ - } \ - while (0) - -/* GDB will never try to install multiple breakpoints at the same - address. However, we can see GDB requesting to insert a breakpoint - at an address is had already inserted one previously in a few - situations. - - - The RSP documentation on Z packets says that to avoid potential - problems with duplicate packets, the operations should be - implemented in an idempotent way. - - - A breakpoint is set at ADDR, an address in a shared library. - Then the shared library is unloaded. And then another, unrelated, - breakpoint at ADDR is set. There is not breakpoint removal request - between the first and the second breakpoint. - - - When GDB wants to update the target-side breakpoint conditions or - commands, it re-inserts the breakpoint, with updated - conditions/commands associated. - - Also, we need to keep track of internal breakpoints too, so we do - need to be able to install multiple breakpoints at the same address - transparently. - - We keep track of two different, and closely related structures. A - raw breakpoint, which manages the low level, close to the metal - aspect of a breakpoint. It holds the breakpoint address, and for - software breakpoints, a buffer holding a copy of the instructions - that would be in memory had not been a breakpoint there (we call - that the shadow memory of the breakpoint). We occasionally need to - temporarilly uninsert a breakpoint without the client knowing about - it (e.g., to step over an internal breakpoint), so we keep an - `inserted' state associated with this low level breakpoint - structure. There can only be one such object for a given address. - Then, we have (a bit higher level) breakpoints. This structure - holds a callback to be called whenever a breakpoint is hit, a - high-level type, and a link to a low level raw breakpoint. There - can be many high-level breakpoints at the same address, and all of - them will point to the same raw breakpoint, which is reference - counted. */ - -/* The low level, physical, raw breakpoint. */ -struct raw_breakpoint -{ - struct raw_breakpoint *next; - - /* The low level type of the breakpoint (software breakpoint, - watchpoint, etc.) */ - enum raw_bkpt_type raw_type; - - /* A reference count. Each high level breakpoint referencing this - raw breakpoint accounts for one reference. */ - int refcount; - - /* The breakpoint's insertion address. There can only be one raw - breakpoint for a given PC. */ - CORE_ADDR pc; - - /* The breakpoint's kind. This is target specific. Most - architectures only use one specific instruction for breakpoints, while - others may use more than one. E.g., on ARM, we need to use different - breakpoint instructions on Thumb, Thumb-2, and ARM code. Likewise for - hardware breakpoints -- some architectures (including ARM) need to - setup debug registers differently depending on mode. */ - int kind; - - /* The breakpoint's shadow memory. */ - unsigned char old_data[MAX_BREAKPOINT_LEN]; - - /* Positive if this breakpoint is currently inserted in the - inferior. Negative if it was, but we've detected that it's now - gone. Zero if not inserted. */ - int inserted; -}; - -/* The type of a breakpoint. */ -enum bkpt_type - { - /* A GDB breakpoint, requested with a Z0 packet. */ - gdb_breakpoint_Z0, - - /* A GDB hardware breakpoint, requested with a Z1 packet. */ - gdb_breakpoint_Z1, - - /* A GDB write watchpoint, requested with a Z2 packet. */ - gdb_breakpoint_Z2, - - /* A GDB read watchpoint, requested with a Z3 packet. */ - gdb_breakpoint_Z3, - - /* A GDB access watchpoint, requested with a Z4 packet. */ - gdb_breakpoint_Z4, - - /* A software single-step breakpoint. */ - single_step_breakpoint, - - /* Any other breakpoint type that doesn't require specific - treatment goes here. E.g., an event breakpoint. */ - other_breakpoint, - }; - -struct point_cond_list -{ - /* Pointer to the agent expression that is the breakpoint's - conditional. */ - struct agent_expr *cond; - - /* Pointer to the next condition. */ - struct point_cond_list *next; -}; - -struct point_command_list -{ - /* Pointer to the agent expression that is the breakpoint's - commands. */ - struct agent_expr *cmd; - - /* Flag that is true if this command should run even while GDB is - disconnected. */ - int persistence; - - /* Pointer to the next command. */ - struct point_command_list *next; -}; - -/* A high level (in gdbserver's perspective) breakpoint. */ -struct breakpoint -{ - struct breakpoint *next; - - /* The breakpoint's type. */ - enum bkpt_type type; - - /* Link to this breakpoint's raw breakpoint. This is always - non-NULL. */ - struct raw_breakpoint *raw; -}; - -/* Breakpoint requested by GDB. */ - -struct gdb_breakpoint -{ - struct breakpoint base; - - /* Pointer to the condition list that should be evaluated on - the target or NULL if the breakpoint is unconditional or - if GDB doesn't want us to evaluate the conditionals on the - target's side. */ - struct point_cond_list *cond_list; - - /* Point to the list of commands to run when this is hit. */ - struct point_command_list *command_list; -}; - -/* Breakpoint used by GDBserver. */ - -struct other_breakpoint -{ - struct breakpoint base; - - /* Function to call when we hit this breakpoint. If it returns 1, - the breakpoint shall be deleted; 0 or if this callback is NULL, - it will be left inserted. */ - int (*handler) (CORE_ADDR); -}; - -/* Breakpoint for single step. */ - -struct single_step_breakpoint -{ - struct breakpoint base; - - /* Thread the reinsert breakpoint belongs to. */ - ptid_t ptid; -}; - -/* Return the breakpoint size from its kind. */ - -static int -bp_size (struct raw_breakpoint *bp) -{ - int size = 0; - - the_target->sw_breakpoint_from_kind (bp->kind, &size); - return size; -} - -/* Return the breakpoint opcode from its kind. */ - -static const gdb_byte * -bp_opcode (struct raw_breakpoint *bp) -{ - int size = 0; - - return the_target->sw_breakpoint_from_kind (bp->kind, &size); -} - -/* See mem-break.h. */ - -enum target_hw_bp_type -raw_bkpt_type_to_target_hw_bp_type (enum raw_bkpt_type raw_type) -{ - switch (raw_type) - { - case raw_bkpt_type_hw: - return hw_execute; - case raw_bkpt_type_write_wp: - return hw_write; - case raw_bkpt_type_read_wp: - return hw_read; - case raw_bkpt_type_access_wp: - return hw_access; - default: - internal_error (__FILE__, __LINE__, - "bad raw breakpoint type %d", (int) raw_type); - } -} - -/* See mem-break.h. */ - -static enum bkpt_type -Z_packet_to_bkpt_type (char z_type) -{ - gdb_assert ('0' <= z_type && z_type <= '4'); - - return (enum bkpt_type) (gdb_breakpoint_Z0 + (z_type - '0')); -} - -/* See mem-break.h. */ - -enum raw_bkpt_type -Z_packet_to_raw_bkpt_type (char z_type) -{ - switch (z_type) - { - case Z_PACKET_SW_BP: - return raw_bkpt_type_sw; - case Z_PACKET_HW_BP: - return raw_bkpt_type_hw; - case Z_PACKET_WRITE_WP: - return raw_bkpt_type_write_wp; - case Z_PACKET_READ_WP: - return raw_bkpt_type_read_wp; - case Z_PACKET_ACCESS_WP: - return raw_bkpt_type_access_wp; - default: - gdb_assert_not_reached ("unhandled Z packet type."); - } -} - -/* Return true if breakpoint TYPE is a GDB breakpoint. */ - -static int -is_gdb_breakpoint (enum bkpt_type type) -{ - return (type == gdb_breakpoint_Z0 - || type == gdb_breakpoint_Z1 - || type == gdb_breakpoint_Z2 - || type == gdb_breakpoint_Z3 - || type == gdb_breakpoint_Z4); -} - -bool -any_persistent_commands (process_info *proc) -{ - struct breakpoint *bp; - struct point_command_list *cl; - - for (bp = proc->breakpoints; bp != NULL; bp = bp->next) - { - if (is_gdb_breakpoint (bp->type)) - { - struct gdb_breakpoint *gdb_bp = (struct gdb_breakpoint *) bp; - - for (cl = gdb_bp->command_list; cl != NULL; cl = cl->next) - if (cl->persistence) - return true; - } - } - - return false; -} - -/* Find low-level breakpoint of type TYPE at address ADDR that is not - insert-disabled. Returns NULL if not found. */ - -static struct raw_breakpoint * -find_enabled_raw_code_breakpoint_at (CORE_ADDR addr, enum raw_bkpt_type type) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp; - - for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) - if (bp->pc == addr - && bp->raw_type == type - && bp->inserted >= 0) - return bp; - - return NULL; -} - -/* Find low-level breakpoint of type TYPE at address ADDR. Returns - NULL if not found. */ - -static struct raw_breakpoint * -find_raw_breakpoint_at (CORE_ADDR addr, enum raw_bkpt_type type, int kind) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp; - - for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) - if (bp->pc == addr && bp->raw_type == type && bp->kind == kind) - return bp; - - return NULL; -} - -/* See mem-break.h. */ - -int -insert_memory_breakpoint (struct raw_breakpoint *bp) -{ - unsigned char buf[MAX_BREAKPOINT_LEN]; - int err; - - /* Note that there can be fast tracepoint jumps installed in the - same memory range, so to get at the original memory, we need to - use read_inferior_memory, which masks those out. */ - err = read_inferior_memory (bp->pc, buf, bp_size (bp)); - if (err != 0) - { - if (debug_threads) - debug_printf ("Failed to read shadow memory of" - " breakpoint at 0x%s (%s).\n", - paddress (bp->pc), safe_strerror (err)); - } - else - { - memcpy (bp->old_data, buf, bp_size (bp)); - - err = (*the_target->write_memory) (bp->pc, bp_opcode (bp), - bp_size (bp)); - if (err != 0) - { - if (debug_threads) - debug_printf ("Failed to insert breakpoint at 0x%s (%s).\n", - paddress (bp->pc), safe_strerror (err)); - } - } - return err != 0 ? -1 : 0; -} - -/* See mem-break.h */ - -int -remove_memory_breakpoint (struct raw_breakpoint *bp) -{ - unsigned char buf[MAX_BREAKPOINT_LEN]; - int err; - - /* Since there can be trap breakpoints inserted in the same address - range, we use `target_write_memory', which takes care of - layering breakpoints on top of fast tracepoints, and on top of - the buffer we pass it. This works because the caller has already - either unlinked the breakpoint or marked it uninserted. Also - note that we need to pass the current shadow contents, because - target_write_memory updates any shadow memory with what we pass - here, and we want that to be a nop. */ - memcpy (buf, bp->old_data, bp_size (bp)); - err = target_write_memory (bp->pc, buf, bp_size (bp)); - if (err != 0) - { - if (debug_threads) - debug_printf ("Failed to uninsert raw breakpoint " - "at 0x%s (%s) while deleting it.\n", - paddress (bp->pc), safe_strerror (err)); - } - return err != 0 ? -1 : 0; -} - -/* Set a RAW breakpoint of type TYPE and kind KIND at WHERE. On - success, a pointer to the new breakpoint is returned. On failure, - returns NULL and writes the error code to *ERR. */ - -static struct raw_breakpoint * -set_raw_breakpoint_at (enum raw_bkpt_type type, CORE_ADDR where, int kind, - int *err) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp; - - if (type == raw_bkpt_type_sw || type == raw_bkpt_type_hw) - { - bp = find_enabled_raw_code_breakpoint_at (where, type); - if (bp != NULL && bp->kind != kind) - { - /* A different kind than previously seen. The previous - breakpoint must be gone then. */ - if (debug_threads) - debug_printf ("Inconsistent breakpoint kind? Was %d, now %d.\n", - bp->kind, kind); - bp->inserted = -1; - bp = NULL; - } - } - else - bp = find_raw_breakpoint_at (where, type, kind); - - gdb::unique_xmalloc_ptr bp_holder; - if (bp == NULL) - { - bp_holder.reset (XCNEW (struct raw_breakpoint)); - bp = bp_holder.get (); - bp->pc = where; - bp->kind = kind; - bp->raw_type = type; - } - - if (!bp->inserted) - { - *err = the_target->insert_point (bp->raw_type, bp->pc, bp->kind, bp); - if (*err != 0) - { - if (debug_threads) - debug_printf ("Failed to insert breakpoint at 0x%s (%d).\n", - paddress (where), *err); - - return NULL; - } - - bp->inserted = 1; - } - - /* If the breakpoint was allocated above, we know we want to keep it - now. */ - bp_holder.release (); - - /* Link the breakpoint in, if this is the first reference. */ - if (++bp->refcount == 1) - { - bp->next = proc->raw_breakpoints; - proc->raw_breakpoints = bp; - } - return bp; -} - -/* Notice that breakpoint traps are always installed on top of fast - tracepoint jumps. This is even if the fast tracepoint is installed - at a later time compared to when the breakpoint was installed. - This means that a stopping breakpoint or tracepoint has higher - "priority". In turn, this allows having fast and slow tracepoints - (and breakpoints) at the same address behave correctly. */ - - -/* A fast tracepoint jump. */ - -struct fast_tracepoint_jump -{ - struct fast_tracepoint_jump *next; - - /* A reference count. GDB can install more than one fast tracepoint - at the same address (each with its own action list, for - example). */ - int refcount; - - /* The fast tracepoint's insertion address. There can only be one - of these for a given PC. */ - CORE_ADDR pc; - - /* Non-zero if this fast tracepoint jump is currently inserted in - the inferior. */ - int inserted; - - /* The length of the jump instruction. */ - int length; - - /* A poor-man's flexible array member, holding both the jump - instruction to insert, and a copy of the instruction that would - be in memory had not been a jump there (the shadow memory of the - tracepoint jump). */ - unsigned char insn_and_shadow[0]; -}; - -/* Fast tracepoint FP's jump instruction to insert. */ -#define fast_tracepoint_jump_insn(fp) \ - ((fp)->insn_and_shadow + 0) - -/* The shadow memory of fast tracepoint jump FP. */ -#define fast_tracepoint_jump_shadow(fp) \ - ((fp)->insn_and_shadow + (fp)->length) - - -/* Return the fast tracepoint jump set at WHERE. */ - -static struct fast_tracepoint_jump * -find_fast_tracepoint_jump_at (CORE_ADDR where) -{ - struct process_info *proc = current_process (); - struct fast_tracepoint_jump *jp; - - for (jp = proc->fast_tracepoint_jumps; jp != NULL; jp = jp->next) - if (jp->pc == where) - return jp; - - return NULL; -} - -int -fast_tracepoint_jump_here (CORE_ADDR where) -{ - struct fast_tracepoint_jump *jp = find_fast_tracepoint_jump_at (where); - - return (jp != NULL); -} - -int -delete_fast_tracepoint_jump (struct fast_tracepoint_jump *todel) -{ - struct fast_tracepoint_jump *bp, **bp_link; - int ret; - struct process_info *proc = current_process (); - - bp = proc->fast_tracepoint_jumps; - bp_link = &proc->fast_tracepoint_jumps; - - while (bp) - { - if (bp == todel) - { - if (--bp->refcount == 0) - { - struct fast_tracepoint_jump *prev_bp_link = *bp_link; - unsigned char *buf; - - /* Unlink it. */ - *bp_link = bp->next; - - /* Since there can be breakpoints inserted in the same - address range, we use `target_write_memory', which - takes care of layering breakpoints on top of fast - tracepoints, and on top of the buffer we pass it. - This works because we've already unlinked the fast - tracepoint jump above. Also note that we need to - pass the current shadow contents, because - target_write_memory updates any shadow memory with - what we pass here, and we want that to be a nop. */ - buf = (unsigned char *) alloca (bp->length); - memcpy (buf, fast_tracepoint_jump_shadow (bp), bp->length); - ret = target_write_memory (bp->pc, buf, bp->length); - if (ret != 0) - { - /* Something went wrong, relink the jump. */ - *bp_link = prev_bp_link; - - if (debug_threads) - debug_printf ("Failed to uninsert fast tracepoint jump " - "at 0x%s (%s) while deleting it.\n", - paddress (bp->pc), safe_strerror (ret)); - return ret; - } - - free (bp); - } - - return 0; - } - else - { - bp_link = &bp->next; - bp = *bp_link; - } - } - - warning ("Could not find fast tracepoint jump in list."); - return ENOENT; -} - -void -inc_ref_fast_tracepoint_jump (struct fast_tracepoint_jump *jp) -{ - jp->refcount++; -} - -struct fast_tracepoint_jump * -set_fast_tracepoint_jump (CORE_ADDR where, - unsigned char *insn, ULONGEST length) -{ - struct process_info *proc = current_process (); - struct fast_tracepoint_jump *jp; - int err; - unsigned char *buf; - - /* We refcount fast tracepoint jumps. Check if we already know - about a jump at this address. */ - jp = find_fast_tracepoint_jump_at (where); - if (jp != NULL) - { - jp->refcount++; - return jp; - } - - /* We don't, so create a new object. Double the length, because the - flexible array member holds both the jump insn, and the - shadow. */ - jp = (struct fast_tracepoint_jump *) xcalloc (1, sizeof (*jp) + (length * 2)); - jp->pc = where; - jp->length = length; - memcpy (fast_tracepoint_jump_insn (jp), insn, length); - jp->refcount = 1; - buf = (unsigned char *) alloca (length); - - /* Note that there can be trap breakpoints inserted in the same - address range. To access the original memory contents, we use - `read_inferior_memory', which masks out breakpoints. */ - err = read_inferior_memory (where, buf, length); - if (err != 0) - { - if (debug_threads) - debug_printf ("Failed to read shadow memory of" - " fast tracepoint at 0x%s (%s).\n", - paddress (where), safe_strerror (err)); - free (jp); - return NULL; - } - memcpy (fast_tracepoint_jump_shadow (jp), buf, length); - - /* Link the jump in. */ - jp->inserted = 1; - jp->next = proc->fast_tracepoint_jumps; - proc->fast_tracepoint_jumps = jp; - - /* Since there can be trap breakpoints inserted in the same address - range, we use use `target_write_memory', which takes care of - layering breakpoints on top of fast tracepoints, on top of the - buffer we pass it. This works because we've already linked in - the fast tracepoint jump above. Also note that we need to pass - the current shadow contents, because target_write_memory - updates any shadow memory with what we pass here, and we want - that to be a nop. */ - err = target_write_memory (where, buf, length); - if (err != 0) - { - if (debug_threads) - debug_printf ("Failed to insert fast tracepoint jump at 0x%s (%s).\n", - paddress (where), safe_strerror (err)); - - /* Unlink it. */ - proc->fast_tracepoint_jumps = jp->next; - free (jp); - - return NULL; - } - - return jp; -} - -void -uninsert_fast_tracepoint_jumps_at (CORE_ADDR pc) -{ - struct fast_tracepoint_jump *jp; - int err; - - jp = find_fast_tracepoint_jump_at (pc); - if (jp == NULL) - { - /* This can happen when we remove all breakpoints while handling - a step-over. */ - if (debug_threads) - debug_printf ("Could not find fast tracepoint jump at 0x%s " - "in list (uninserting).\n", - paddress (pc)); - return; - } - - if (jp->inserted) - { - unsigned char *buf; - - jp->inserted = 0; - - /* Since there can be trap breakpoints inserted in the same - address range, we use use `target_write_memory', which - takes care of layering breakpoints on top of fast - tracepoints, and on top of the buffer we pass it. This works - because we've already marked the fast tracepoint fast - tracepoint jump uninserted above. Also note that we need to - pass the current shadow contents, because - target_write_memory updates any shadow memory with what we - pass here, and we want that to be a nop. */ - buf = (unsigned char *) alloca (jp->length); - memcpy (buf, fast_tracepoint_jump_shadow (jp), jp->length); - err = target_write_memory (jp->pc, buf, jp->length); - if (err != 0) - { - jp->inserted = 1; - - if (debug_threads) - debug_printf ("Failed to uninsert fast tracepoint jump at" - " 0x%s (%s).\n", - paddress (pc), safe_strerror (err)); - } - } -} - -void -reinsert_fast_tracepoint_jumps_at (CORE_ADDR where) -{ - struct fast_tracepoint_jump *jp; - int err; - unsigned char *buf; - - jp = find_fast_tracepoint_jump_at (where); - if (jp == NULL) - { - /* This can happen when we remove breakpoints when a tracepoint - hit causes a tracing stop, while handling a step-over. */ - if (debug_threads) - debug_printf ("Could not find fast tracepoint jump at 0x%s " - "in list (reinserting).\n", - paddress (where)); - return; - } - - if (jp->inserted) - error ("Jump already inserted at reinsert time."); - - jp->inserted = 1; - - /* Since there can be trap breakpoints inserted in the same address - range, we use `target_write_memory', which takes care of - layering breakpoints on top of fast tracepoints, and on top of - the buffer we pass it. This works because we've already marked - the fast tracepoint jump inserted above. Also note that we need - to pass the current shadow contents, because - target_write_memory updates any shadow memory with what we pass - here, and we want that to be a nop. */ - buf = (unsigned char *) alloca (jp->length); - memcpy (buf, fast_tracepoint_jump_shadow (jp), jp->length); - err = target_write_memory (where, buf, jp->length); - if (err != 0) - { - jp->inserted = 0; - - if (debug_threads) - debug_printf ("Failed to reinsert fast tracepoint jump at" - " 0x%s (%s).\n", - paddress (where), safe_strerror (err)); - } -} - -/* Set a high-level breakpoint of type TYPE, with low level type - RAW_TYPE and kind KIND, at WHERE. On success, a pointer to the new - breakpoint is returned. On failure, returns NULL and writes the - error code to *ERR. HANDLER is called when the breakpoint is hit. - HANDLER should return 1 if the breakpoint should be deleted, 0 - otherwise. */ - -static struct breakpoint * -set_breakpoint (enum bkpt_type type, enum raw_bkpt_type raw_type, - CORE_ADDR where, int kind, - int (*handler) (CORE_ADDR), int *err) -{ - struct process_info *proc = current_process (); - struct breakpoint *bp; - struct raw_breakpoint *raw; - - raw = set_raw_breakpoint_at (raw_type, where, kind, err); - - if (raw == NULL) - { - /* warn? */ - return NULL; - } - - if (is_gdb_breakpoint (type)) - { - struct gdb_breakpoint *gdb_bp = XCNEW (struct gdb_breakpoint); - - bp = (struct breakpoint *) gdb_bp; - gdb_assert (handler == NULL); - } - else if (type == other_breakpoint) - { - struct other_breakpoint *other_bp = XCNEW (struct other_breakpoint); - - other_bp->handler = handler; - bp = (struct breakpoint *) other_bp; - } - else if (type == single_step_breakpoint) - { - struct single_step_breakpoint *ss_bp - = XCNEW (struct single_step_breakpoint); - - bp = (struct breakpoint *) ss_bp; - } - else - gdb_assert_not_reached ("unhandled breakpoint type"); - - bp->type = type; - bp->raw = raw; - - bp->next = proc->breakpoints; - proc->breakpoints = bp; - - return bp; -} - -/* Set breakpoint of TYPE on address WHERE with handler HANDLER. */ - -static struct breakpoint * -set_breakpoint_type_at (enum bkpt_type type, CORE_ADDR where, - int (*handler) (CORE_ADDR)) -{ - int err_ignored; - CORE_ADDR placed_address = where; - int breakpoint_kind = target_breakpoint_kind_from_pc (&placed_address); - - return set_breakpoint (type, raw_bkpt_type_sw, - placed_address, breakpoint_kind, handler, - &err_ignored); -} - -/* See mem-break.h */ - -struct breakpoint * -set_breakpoint_at (CORE_ADDR where, int (*handler) (CORE_ADDR)) -{ - return set_breakpoint_type_at (other_breakpoint, where, handler); -} - - -static int -delete_raw_breakpoint (struct process_info *proc, struct raw_breakpoint *todel) -{ - struct raw_breakpoint *bp, **bp_link; - int ret; - - bp = proc->raw_breakpoints; - bp_link = &proc->raw_breakpoints; - - while (bp) - { - if (bp == todel) - { - if (bp->inserted > 0) - { - struct raw_breakpoint *prev_bp_link = *bp_link; - - *bp_link = bp->next; - - ret = the_target->remove_point (bp->raw_type, bp->pc, bp->kind, - bp); - if (ret != 0) - { - /* Something went wrong, relink the breakpoint. */ - *bp_link = prev_bp_link; - - if (debug_threads) - debug_printf ("Failed to uninsert raw breakpoint " - "at 0x%s while deleting it.\n", - paddress (bp->pc)); - return ret; - } - } - else - *bp_link = bp->next; - - free (bp); - return 0; - } - else - { - bp_link = &bp->next; - bp = *bp_link; - } - } - - warning ("Could not find raw breakpoint in list."); - return ENOENT; -} - -static int -release_breakpoint (struct process_info *proc, struct breakpoint *bp) -{ - int newrefcount; - int ret; - - newrefcount = bp->raw->refcount - 1; - if (newrefcount == 0) - { - ret = delete_raw_breakpoint (proc, bp->raw); - if (ret != 0) - return ret; - } - else - bp->raw->refcount = newrefcount; - - free (bp); - - return 0; -} - -static int -delete_breakpoint_1 (struct process_info *proc, struct breakpoint *todel) -{ - struct breakpoint *bp, **bp_link; - int err; - - bp = proc->breakpoints; - bp_link = &proc->breakpoints; - - while (bp) - { - if (bp == todel) - { - *bp_link = bp->next; - - err = release_breakpoint (proc, bp); - if (err != 0) - return err; - - bp = *bp_link; - return 0; - } - else - { - bp_link = &bp->next; - bp = *bp_link; - } - } - - warning ("Could not find breakpoint in list."); - return ENOENT; -} - -int -delete_breakpoint (struct breakpoint *todel) -{ - struct process_info *proc = current_process (); - return delete_breakpoint_1 (proc, todel); -} - -/* Locate a GDB breakpoint of type Z_TYPE and kind KIND placed at - address ADDR and return a pointer to its structure. If KIND is -1, - the breakpoint's kind is ignored. */ - -static struct gdb_breakpoint * -find_gdb_breakpoint (char z_type, CORE_ADDR addr, int kind) -{ - struct process_info *proc = current_process (); - struct breakpoint *bp; - enum bkpt_type type = Z_packet_to_bkpt_type (z_type); - - for (bp = proc->breakpoints; bp != NULL; bp = bp->next) - if (bp->type == type && bp->raw->pc == addr - && (kind == -1 || bp->raw->kind == kind)) - return (struct gdb_breakpoint *) bp; - - return NULL; -} - -static int -z_type_supported (char z_type) -{ - return (z_type >= '0' && z_type <= '4' - && the_target->supports_z_point_type != NULL - && the_target->supports_z_point_type (z_type)); -} - -/* Create a new GDB breakpoint of type Z_TYPE at ADDR with kind KIND. - Returns a pointer to the newly created breakpoint on success. On - failure returns NULL and sets *ERR to either -1 for error, or 1 if - Z_TYPE breakpoints are not supported on this target. */ - -static struct gdb_breakpoint * -set_gdb_breakpoint_1 (char z_type, CORE_ADDR addr, int kind, int *err) -{ - struct gdb_breakpoint *bp; - enum bkpt_type type; - enum raw_bkpt_type raw_type; - - /* If we see GDB inserting a second code breakpoint at the same - address, then either: GDB is updating the breakpoint's conditions - or commands; or, the first breakpoint must have disappeared due - to a shared library unload. On targets where the shared - libraries are handled by userspace, like SVR4, for example, - GDBserver can't tell if a library was loaded or unloaded. Since - we refcount raw breakpoints, we must be careful to make sure GDB - breakpoints never contribute more than one reference. if we - didn't do this, in case the previous breakpoint is gone due to a - shared library unload, we'd just increase the refcount of the - previous breakpoint at this address, but the trap was not planted - in the inferior anymore, thus the breakpoint would never be hit. - Note this must be careful to not create a window where - breakpoints are removed from the target, for non-stop, in case - the target can poke at memory while the program is running. */ - if (z_type == Z_PACKET_SW_BP - || z_type == Z_PACKET_HW_BP) - { - bp = find_gdb_breakpoint (z_type, addr, -1); - - if (bp != NULL) - { - if (bp->base.raw->kind != kind) - { - /* A different kind than previously seen. The previous - breakpoint must be gone then. */ - bp->base.raw->inserted = -1; - delete_breakpoint ((struct breakpoint *) bp); - bp = NULL; - } - else if (z_type == Z_PACKET_SW_BP) - { - /* Check if the breakpoint is actually gone from the - target, due to an solib unload, for example. Might - as well validate _all_ breakpoints. */ - validate_breakpoints (); - - /* Breakpoints that don't pass validation are - deleted. */ - bp = find_gdb_breakpoint (z_type, addr, -1); - } - } - } - else - { - /* Data breakpoints for the same address but different kind are - expected. GDB doesn't merge these. The backend gets to do - that if it wants/can. */ - bp = find_gdb_breakpoint (z_type, addr, kind); - } - - if (bp != NULL) - { - /* We already know about this breakpoint, there's nothing else - to do - GDB's reference is already accounted for. Note that - whether the breakpoint inserted is left as is - we may be - stepping over it, for example, in which case we don't want to - force-reinsert it. */ - return bp; - } - - raw_type = Z_packet_to_raw_bkpt_type (z_type); - type = Z_packet_to_bkpt_type (z_type); - return (struct gdb_breakpoint *) set_breakpoint (type, raw_type, addr, - kind, NULL, err); -} - -static int -check_gdb_bp_preconditions (char z_type, int *err) -{ - /* As software/memory breakpoints work by poking at memory, we need - to prepare to access memory. If that operation fails, we need to - return error. Seeing an error, if this is the first breakpoint - of that type that GDB tries to insert, GDB would then assume the - breakpoint type is supported, but it may actually not be. So we - need to check whether the type is supported at all before - preparing to access memory. */ - if (!z_type_supported (z_type)) - { - *err = 1; - return 0; - } - - return 1; -} - -/* See mem-break.h. This is a wrapper for set_gdb_breakpoint_1 that - knows to prepare to access memory for Z0 breakpoints. */ - -struct gdb_breakpoint * -set_gdb_breakpoint (char z_type, CORE_ADDR addr, int kind, int *err) -{ - struct gdb_breakpoint *bp; - - if (!check_gdb_bp_preconditions (z_type, err)) - return NULL; - - /* If inserting a software/memory breakpoint, need to prepare to - access memory. */ - if (z_type == Z_PACKET_SW_BP) - { - if (prepare_to_access_memory () != 0) - { - *err = -1; - return NULL; - } - } - - bp = set_gdb_breakpoint_1 (z_type, addr, kind, err); - - if (z_type == Z_PACKET_SW_BP) - done_accessing_memory (); - - return bp; -} - -/* Delete a GDB breakpoint of type Z_TYPE and kind KIND previously - inserted at ADDR with set_gdb_breakpoint_at. Returns 0 on success, - -1 on error, and 1 if Z_TYPE breakpoints are not supported on this - target. */ - -static int -delete_gdb_breakpoint_1 (char z_type, CORE_ADDR addr, int kind) -{ - struct gdb_breakpoint *bp; - int err; - - bp = find_gdb_breakpoint (z_type, addr, kind); - if (bp == NULL) - return -1; - - /* Before deleting the breakpoint, make sure to free its condition - and command lists. */ - clear_breakpoint_conditions_and_commands (bp); - err = delete_breakpoint ((struct breakpoint *) bp); - if (err != 0) - return -1; - - return 0; -} - -/* See mem-break.h. This is a wrapper for delete_gdb_breakpoint that - knows to prepare to access memory for Z0 breakpoints. */ - -int -delete_gdb_breakpoint (char z_type, CORE_ADDR addr, int kind) -{ - int ret; - - if (!check_gdb_bp_preconditions (z_type, &ret)) - return ret; - - /* If inserting a software/memory breakpoint, need to prepare to - access memory. */ - if (z_type == Z_PACKET_SW_BP) - { - int err; - - err = prepare_to_access_memory (); - if (err != 0) - return -1; - } - - ret = delete_gdb_breakpoint_1 (z_type, addr, kind); - - if (z_type == Z_PACKET_SW_BP) - done_accessing_memory (); - - return ret; -} - -/* Clear all conditions associated with a breakpoint. */ - -static void -clear_breakpoint_conditions (struct gdb_breakpoint *bp) -{ - struct point_cond_list *cond; - - if (bp->cond_list == NULL) - return; - - cond = bp->cond_list; - - while (cond != NULL) - { - struct point_cond_list *cond_next; - - cond_next = cond->next; - gdb_free_agent_expr (cond->cond); - free (cond); - cond = cond_next; - } - - bp->cond_list = NULL; -} - -/* Clear all commands associated with a breakpoint. */ - -static void -clear_breakpoint_commands (struct gdb_breakpoint *bp) -{ - struct point_command_list *cmd; - - if (bp->command_list == NULL) - return; - - cmd = bp->command_list; - - while (cmd != NULL) - { - struct point_command_list *cmd_next; - - cmd_next = cmd->next; - gdb_free_agent_expr (cmd->cmd); - free (cmd); - cmd = cmd_next; - } - - bp->command_list = NULL; -} - -void -clear_breakpoint_conditions_and_commands (struct gdb_breakpoint *bp) -{ - clear_breakpoint_conditions (bp); - clear_breakpoint_commands (bp); -} - -/* Add condition CONDITION to GDBserver's breakpoint BP. */ - -static void -add_condition_to_breakpoint (struct gdb_breakpoint *bp, - struct agent_expr *condition) -{ - struct point_cond_list *new_cond; - - /* Create new condition. */ - new_cond = XCNEW (struct point_cond_list); - new_cond->cond = condition; - - /* Add condition to the list. */ - new_cond->next = bp->cond_list; - bp->cond_list = new_cond; -} - -/* Add a target-side condition CONDITION to a breakpoint. */ - -int -add_breakpoint_condition (struct gdb_breakpoint *bp, const char **condition) -{ - const char *actparm = *condition; - struct agent_expr *cond; - - if (condition == NULL) - return 1; - - if (bp == NULL) - return 0; - - cond = gdb_parse_agent_expr (&actparm); - - if (cond == NULL) - { - warning ("Condition evaluation failed. Assuming unconditional."); - return 0; - } - - add_condition_to_breakpoint (bp, cond); - - *condition = actparm; - - return 1; -} - -/* Evaluate condition (if any) at breakpoint BP. Return 1 if - true and 0 otherwise. */ - -static int -gdb_condition_true_at_breakpoint_z_type (char z_type, CORE_ADDR addr) -{ - /* Fetch registers for the current inferior. */ - struct gdb_breakpoint *bp = find_gdb_breakpoint (z_type, addr, -1); - ULONGEST value = 0; - struct point_cond_list *cl; - int err = 0; - struct eval_agent_expr_context ctx; - - if (bp == NULL) - return 0; - - /* Check if the breakpoint is unconditional. If it is, - the condition always evaluates to TRUE. */ - if (bp->cond_list == NULL) - return 1; - - ctx.regcache = get_thread_regcache (current_thread, 1); - ctx.tframe = NULL; - ctx.tpoint = NULL; - - /* Evaluate each condition in the breakpoint's list of conditions. - Return true if any of the conditions evaluates to TRUE. - - If we failed to evaluate the expression, TRUE is returned. This - forces GDB to reevaluate the conditions. */ - for (cl = bp->cond_list; - cl && !value && !err; cl = cl->next) - { - /* Evaluate the condition. */ - err = gdb_eval_agent_expr (&ctx, cl->cond, &value); - } - - if (err) - return 1; - - return (value != 0); -} - -int -gdb_condition_true_at_breakpoint (CORE_ADDR where) -{ - /* Only check code (software or hardware) breakpoints. */ - return (gdb_condition_true_at_breakpoint_z_type (Z_PACKET_SW_BP, where) - || gdb_condition_true_at_breakpoint_z_type (Z_PACKET_HW_BP, where)); -} - -/* Add commands COMMANDS to GDBserver's breakpoint BP. */ - -static void -add_commands_to_breakpoint (struct gdb_breakpoint *bp, - struct agent_expr *commands, int persist) -{ - struct point_command_list *new_cmd; - - /* Create new command. */ - new_cmd = XCNEW (struct point_command_list); - new_cmd->cmd = commands; - new_cmd->persistence = persist; - - /* Add commands to the list. */ - new_cmd->next = bp->command_list; - bp->command_list = new_cmd; -} - -/* Add a target-side command COMMAND to the breakpoint at ADDR. */ - -int -add_breakpoint_commands (struct gdb_breakpoint *bp, const char **command, - int persist) -{ - const char *actparm = *command; - struct agent_expr *cmd; - - if (command == NULL) - return 1; - - if (bp == NULL) - return 0; - - cmd = gdb_parse_agent_expr (&actparm); - - if (cmd == NULL) - { - warning ("Command evaluation failed. Disabling."); - return 0; - } - - add_commands_to_breakpoint (bp, cmd, persist); - - *command = actparm; - - return 1; -} - -/* Return true if there are no commands to run at this location, - which likely means we want to report back to GDB. */ - -static int -gdb_no_commands_at_breakpoint_z_type (char z_type, CORE_ADDR addr) -{ - struct gdb_breakpoint *bp = find_gdb_breakpoint (z_type, addr, -1); - - if (bp == NULL) - return 1; - - if (debug_threads) - debug_printf ("at 0x%s, type Z%c, bp command_list is 0x%s\n", - paddress (addr), z_type, - phex_nz ((uintptr_t) bp->command_list, 0)); - return (bp->command_list == NULL); -} - -/* Return true if there are no commands to run at this location, - which likely means we want to report back to GDB. */ - -int -gdb_no_commands_at_breakpoint (CORE_ADDR where) -{ - /* Only check code (software or hardware) breakpoints. */ - return (gdb_no_commands_at_breakpoint_z_type (Z_PACKET_SW_BP, where) - && gdb_no_commands_at_breakpoint_z_type (Z_PACKET_HW_BP, where)); -} - -/* Run a breakpoint's commands. Returns 0 if there was a problem - running any command, 1 otherwise. */ - -static int -run_breakpoint_commands_z_type (char z_type, CORE_ADDR addr) -{ - /* Fetch registers for the current inferior. */ - struct gdb_breakpoint *bp = find_gdb_breakpoint (z_type, addr, -1); - ULONGEST value = 0; - struct point_command_list *cl; - int err = 0; - struct eval_agent_expr_context ctx; - - if (bp == NULL) - return 1; - - ctx.regcache = get_thread_regcache (current_thread, 1); - ctx.tframe = NULL; - ctx.tpoint = NULL; - - for (cl = bp->command_list; - cl && !value && !err; cl = cl->next) - { - /* Run the command. */ - err = gdb_eval_agent_expr (&ctx, cl->cmd, &value); - - /* If one command has a problem, stop digging the hole deeper. */ - if (err) - return 0; - } - - return 1; -} - -void -run_breakpoint_commands (CORE_ADDR where) -{ - /* Only check code (software or hardware) breakpoints. If one - command has a problem, stop digging the hole deeper. */ - if (run_breakpoint_commands_z_type (Z_PACKET_SW_BP, where)) - run_breakpoint_commands_z_type (Z_PACKET_HW_BP, where); -} - -/* See mem-break.h. */ - -int -gdb_breakpoint_here (CORE_ADDR where) -{ - /* Only check code (software or hardware) breakpoints. */ - return (find_gdb_breakpoint (Z_PACKET_SW_BP, where, -1) != NULL - || find_gdb_breakpoint (Z_PACKET_HW_BP, where, -1) != NULL); -} - -void -set_single_step_breakpoint (CORE_ADDR stop_at, ptid_t ptid) -{ - struct single_step_breakpoint *bp; - - gdb_assert (current_ptid.pid () == ptid.pid ()); - - bp = (struct single_step_breakpoint *) set_breakpoint_type_at (single_step_breakpoint, - stop_at, NULL); - bp->ptid = ptid; -} - -void -delete_single_step_breakpoints (struct thread_info *thread) -{ - struct process_info *proc = get_thread_process (thread); - struct breakpoint *bp, **bp_link; - - bp = proc->breakpoints; - bp_link = &proc->breakpoints; - - while (bp) - { - if (bp->type == single_step_breakpoint - && ((struct single_step_breakpoint *) bp)->ptid == ptid_of (thread)) - { - struct thread_info *saved_thread = current_thread; - - current_thread = thread; - *bp_link = bp->next; - release_breakpoint (proc, bp); - bp = *bp_link; - current_thread = saved_thread; - } - else - { - bp_link = &bp->next; - bp = *bp_link; - } - } -} - -static void -uninsert_raw_breakpoint (struct raw_breakpoint *bp) -{ - if (bp->inserted < 0) - { - if (debug_threads) - debug_printf ("Breakpoint at %s is marked insert-disabled.\n", - paddress (bp->pc)); - } - else if (bp->inserted > 0) - { - int err; - - bp->inserted = 0; - - err = the_target->remove_point (bp->raw_type, bp->pc, bp->kind, bp); - if (err != 0) - { - bp->inserted = 1; - - if (debug_threads) - debug_printf ("Failed to uninsert raw breakpoint at 0x%s.\n", - paddress (bp->pc)); - } - } -} - -void -uninsert_breakpoints_at (CORE_ADDR pc) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp; - int found = 0; - - for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) - if ((bp->raw_type == raw_bkpt_type_sw - || bp->raw_type == raw_bkpt_type_hw) - && bp->pc == pc) - { - found = 1; - - if (bp->inserted) - uninsert_raw_breakpoint (bp); - } - - if (!found) - { - /* This can happen when we remove all breakpoints while handling - a step-over. */ - if (debug_threads) - debug_printf ("Could not find breakpoint at 0x%s " - "in list (uninserting).\n", - paddress (pc)); - } -} - -void -uninsert_all_breakpoints (void) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp; - - for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) - if ((bp->raw_type == raw_bkpt_type_sw - || bp->raw_type == raw_bkpt_type_hw) - && bp->inserted) - uninsert_raw_breakpoint (bp); -} - -void -uninsert_single_step_breakpoints (struct thread_info *thread) -{ - struct process_info *proc = get_thread_process (thread); - struct breakpoint *bp; - - for (bp = proc->breakpoints; bp != NULL; bp = bp->next) - { - if (bp->type == single_step_breakpoint - && ((struct single_step_breakpoint *) bp)->ptid == ptid_of (thread)) - { - gdb_assert (bp->raw->inserted > 0); - - /* Only uninsert the raw breakpoint if it only belongs to a - reinsert breakpoint. */ - if (bp->raw->refcount == 1) - { - struct thread_info *saved_thread = current_thread; - - current_thread = thread; - uninsert_raw_breakpoint (bp->raw); - current_thread = saved_thread; - } - } - } -} - -static void -reinsert_raw_breakpoint (struct raw_breakpoint *bp) -{ - int err; - - if (bp->inserted) - return; - - err = the_target->insert_point (bp->raw_type, bp->pc, bp->kind, bp); - if (err == 0) - bp->inserted = 1; - else if (debug_threads) - debug_printf ("Failed to reinsert breakpoint at 0x%s (%d).\n", - paddress (bp->pc), err); -} - -void -reinsert_breakpoints_at (CORE_ADDR pc) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp; - int found = 0; - - for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) - if ((bp->raw_type == raw_bkpt_type_sw - || bp->raw_type == raw_bkpt_type_hw) - && bp->pc == pc) - { - found = 1; - - reinsert_raw_breakpoint (bp); - } - - if (!found) - { - /* This can happen when we remove all breakpoints while handling - a step-over. */ - if (debug_threads) - debug_printf ("Could not find raw breakpoint at 0x%s " - "in list (reinserting).\n", - paddress (pc)); - } -} - -int -has_single_step_breakpoints (struct thread_info *thread) -{ - struct process_info *proc = get_thread_process (thread); - struct breakpoint *bp, **bp_link; - - bp = proc->breakpoints; - bp_link = &proc->breakpoints; - - while (bp) - { - if (bp->type == single_step_breakpoint - && ((struct single_step_breakpoint *) bp)->ptid == ptid_of (thread)) - return 1; - else - { - bp_link = &bp->next; - bp = *bp_link; - } - } - - return 0; -} - -void -reinsert_all_breakpoints (void) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp; - - for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) - if ((bp->raw_type == raw_bkpt_type_sw - || bp->raw_type == raw_bkpt_type_hw) - && !bp->inserted) - reinsert_raw_breakpoint (bp); -} - -void -reinsert_single_step_breakpoints (struct thread_info *thread) -{ - struct process_info *proc = get_thread_process (thread); - struct breakpoint *bp; - - for (bp = proc->breakpoints; bp != NULL; bp = bp->next) - { - if (bp->type == single_step_breakpoint - && ((struct single_step_breakpoint *) bp)->ptid == ptid_of (thread)) - { - gdb_assert (bp->raw->inserted > 0); - - if (bp->raw->refcount == 1) - { - struct thread_info *saved_thread = current_thread; - - current_thread = thread; - reinsert_raw_breakpoint (bp->raw); - current_thread = saved_thread; - } - } - } -} - -void -check_breakpoints (CORE_ADDR stop_pc) -{ - struct process_info *proc = current_process (); - struct breakpoint *bp, **bp_link; - - bp = proc->breakpoints; - bp_link = &proc->breakpoints; - - while (bp) - { - struct raw_breakpoint *raw = bp->raw; - - if ((raw->raw_type == raw_bkpt_type_sw - || raw->raw_type == raw_bkpt_type_hw) - && raw->pc == stop_pc) - { - if (!raw->inserted) - { - warning ("Hit a removed breakpoint?"); - return; - } - - if (bp->type == other_breakpoint) - { - struct other_breakpoint *other_bp - = (struct other_breakpoint *) bp; - - if (other_bp->handler != NULL && (*other_bp->handler) (stop_pc)) - { - *bp_link = bp->next; - - release_breakpoint (proc, bp); - - bp = *bp_link; - continue; - } - } - } - - bp_link = &bp->next; - bp = *bp_link; - } -} - -int -breakpoint_here (CORE_ADDR addr) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp; - - for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) - if ((bp->raw_type == raw_bkpt_type_sw - || bp->raw_type == raw_bkpt_type_hw) - && bp->pc == addr) - return 1; - - return 0; -} - -int -breakpoint_inserted_here (CORE_ADDR addr) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp; - - for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) - if ((bp->raw_type == raw_bkpt_type_sw - || bp->raw_type == raw_bkpt_type_hw) - && bp->pc == addr - && bp->inserted) - return 1; - - return 0; -} - -/* See mem-break.h. */ - -int -software_breakpoint_inserted_here (CORE_ADDR addr) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp; - - for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) - if (bp->raw_type == raw_bkpt_type_sw - && bp->pc == addr - && bp->inserted) - return 1; - - return 0; -} - -/* See mem-break.h. */ - -int -hardware_breakpoint_inserted_here (CORE_ADDR addr) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp; - - for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) - if (bp->raw_type == raw_bkpt_type_hw - && bp->pc == addr - && bp->inserted) - return 1; - - return 0; -} - -/* See mem-break.h. */ - -int -single_step_breakpoint_inserted_here (CORE_ADDR addr) -{ - struct process_info *proc = current_process (); - struct breakpoint *bp; - - for (bp = proc->breakpoints; bp != NULL; bp = bp->next) - if (bp->type == single_step_breakpoint - && bp->raw->pc == addr - && bp->raw->inserted) - return 1; - - return 0; -} - -static int -validate_inserted_breakpoint (struct raw_breakpoint *bp) -{ - unsigned char *buf; - int err; - - gdb_assert (bp->inserted); - gdb_assert (bp->raw_type == raw_bkpt_type_sw); - - buf = (unsigned char *) alloca (bp_size (bp)); - err = (*the_target->read_memory) (bp->pc, buf, bp_size (bp)); - if (err || memcmp (buf, bp_opcode (bp), bp_size (bp)) != 0) - { - /* Tag it as gone. */ - bp->inserted = -1; - return 0; - } - - return 1; -} - -static void -delete_disabled_breakpoints (void) -{ - struct process_info *proc = current_process (); - struct breakpoint *bp, *next; - - for (bp = proc->breakpoints; bp != NULL; bp = next) - { - next = bp->next; - if (bp->raw->inserted < 0) - { - /* If single_step_breakpoints become disabled, that means the - manipulations (insertion and removal) of them are wrong. */ - gdb_assert (bp->type != single_step_breakpoint); - delete_breakpoint_1 (proc, bp); - } - } -} - -/* Check if breakpoints we inserted still appear to be inserted. They - may disappear due to a shared library unload, and worse, a new - shared library may be reloaded at the same address as the - previously unloaded one. If that happens, we should make sure that - the shadow memory of the old breakpoints isn't used when reading or - writing memory. */ - -void -validate_breakpoints (void) -{ - struct process_info *proc = current_process (); - struct breakpoint *bp; - - for (bp = proc->breakpoints; bp != NULL; bp = bp->next) - { - struct raw_breakpoint *raw = bp->raw; - - if (raw->raw_type == raw_bkpt_type_sw && raw->inserted > 0) - validate_inserted_breakpoint (raw); - } - - delete_disabled_breakpoints (); -} - -void -check_mem_read (CORE_ADDR mem_addr, unsigned char *buf, int mem_len) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp = proc->raw_breakpoints; - struct fast_tracepoint_jump *jp = proc->fast_tracepoint_jumps; - CORE_ADDR mem_end = mem_addr + mem_len; - int disabled_one = 0; - - for (; jp != NULL; jp = jp->next) - { - CORE_ADDR bp_end = jp->pc + jp->length; - CORE_ADDR start, end; - int copy_offset, copy_len, buf_offset; - - gdb_assert (fast_tracepoint_jump_shadow (jp) >= buf + mem_len - || buf >= fast_tracepoint_jump_shadow (jp) + (jp)->length); - - if (mem_addr >= bp_end) - continue; - if (jp->pc >= mem_end) - continue; - - start = jp->pc; - if (mem_addr > start) - start = mem_addr; - - end = bp_end; - if (end > mem_end) - end = mem_end; - - copy_len = end - start; - copy_offset = start - jp->pc; - buf_offset = start - mem_addr; - - if (jp->inserted) - memcpy (buf + buf_offset, - fast_tracepoint_jump_shadow (jp) + copy_offset, - copy_len); - } - - for (; bp != NULL; bp = bp->next) - { - CORE_ADDR bp_end = bp->pc + bp_size (bp); - CORE_ADDR start, end; - int copy_offset, copy_len, buf_offset; - - if (bp->raw_type != raw_bkpt_type_sw) - continue; - - gdb_assert (bp->old_data >= buf + mem_len - || buf >= &bp->old_data[sizeof (bp->old_data)]); - - if (mem_addr >= bp_end) - continue; - if (bp->pc >= mem_end) - continue; - - start = bp->pc; - if (mem_addr > start) - start = mem_addr; - - end = bp_end; - if (end > mem_end) - end = mem_end; - - copy_len = end - start; - copy_offset = start - bp->pc; - buf_offset = start - mem_addr; - - if (bp->inserted > 0) - { - if (validate_inserted_breakpoint (bp)) - memcpy (buf + buf_offset, bp->old_data + copy_offset, copy_len); - else - disabled_one = 1; - } - } - - if (disabled_one) - delete_disabled_breakpoints (); -} - -void -check_mem_write (CORE_ADDR mem_addr, unsigned char *buf, - const unsigned char *myaddr, int mem_len) -{ - struct process_info *proc = current_process (); - struct raw_breakpoint *bp = proc->raw_breakpoints; - struct fast_tracepoint_jump *jp = proc->fast_tracepoint_jumps; - CORE_ADDR mem_end = mem_addr + mem_len; - int disabled_one = 0; - - /* First fast tracepoint jumps, then breakpoint traps on top. */ - - for (; jp != NULL; jp = jp->next) - { - CORE_ADDR jp_end = jp->pc + jp->length; - CORE_ADDR start, end; - int copy_offset, copy_len, buf_offset; - - gdb_assert (fast_tracepoint_jump_shadow (jp) >= myaddr + mem_len - || myaddr >= fast_tracepoint_jump_shadow (jp) + (jp)->length); - gdb_assert (fast_tracepoint_jump_insn (jp) >= buf + mem_len - || buf >= fast_tracepoint_jump_insn (jp) + (jp)->length); - - if (mem_addr >= jp_end) - continue; - if (jp->pc >= mem_end) - continue; - - start = jp->pc; - if (mem_addr > start) - start = mem_addr; - - end = jp_end; - if (end > mem_end) - end = mem_end; - - copy_len = end - start; - copy_offset = start - jp->pc; - buf_offset = start - mem_addr; - - memcpy (fast_tracepoint_jump_shadow (jp) + copy_offset, - myaddr + buf_offset, copy_len); - if (jp->inserted) - memcpy (buf + buf_offset, - fast_tracepoint_jump_insn (jp) + copy_offset, copy_len); - } - - for (; bp != NULL; bp = bp->next) - { - CORE_ADDR bp_end = bp->pc + bp_size (bp); - CORE_ADDR start, end; - int copy_offset, copy_len, buf_offset; - - if (bp->raw_type != raw_bkpt_type_sw) - continue; - - gdb_assert (bp->old_data >= myaddr + mem_len - || myaddr >= &bp->old_data[sizeof (bp->old_data)]); - - if (mem_addr >= bp_end) - continue; - if (bp->pc >= mem_end) - continue; - - start = bp->pc; - if (mem_addr > start) - start = mem_addr; - - end = bp_end; - if (end > mem_end) - end = mem_end; - - copy_len = end - start; - copy_offset = start - bp->pc; - buf_offset = start - mem_addr; - - memcpy (bp->old_data + copy_offset, myaddr + buf_offset, copy_len); - if (bp->inserted > 0) - { - if (validate_inserted_breakpoint (bp)) - memcpy (buf + buf_offset, bp_opcode (bp) + copy_offset, copy_len); - else - disabled_one = 1; - } - } - - if (disabled_one) - delete_disabled_breakpoints (); -} - -/* Delete all breakpoints, and un-insert them from the inferior. */ - -void -delete_all_breakpoints (void) -{ - struct process_info *proc = current_process (); - - while (proc->breakpoints) - delete_breakpoint_1 (proc, proc->breakpoints); -} - -/* Clear the "inserted" flag in all breakpoints. */ - -void -mark_breakpoints_out (struct process_info *proc) -{ - struct raw_breakpoint *raw_bp; - - for (raw_bp = proc->raw_breakpoints; raw_bp != NULL; raw_bp = raw_bp->next) - raw_bp->inserted = 0; -} - -/* Release all breakpoints, but do not try to un-insert them from the - inferior. */ - -void -free_all_breakpoints (struct process_info *proc) -{ - mark_breakpoints_out (proc); - - /* Note: use PROC explicitly instead of deferring to - delete_all_breakpoints --- CURRENT_INFERIOR may already have been - released when we get here. There should be no call to - current_process from here on. */ - while (proc->breakpoints) - delete_breakpoint_1 (proc, proc->breakpoints); -} - -/* Clone an agent expression. */ - -static struct agent_expr * -clone_agent_expr (const struct agent_expr *src_ax) -{ - struct agent_expr *ax; - - ax = XCNEW (struct agent_expr); - ax->length = src_ax->length; - ax->bytes = (unsigned char *) xcalloc (ax->length, 1); - memcpy (ax->bytes, src_ax->bytes, ax->length); - return ax; -} - -/* Deep-copy the contents of one breakpoint to another. */ - -static struct breakpoint * -clone_one_breakpoint (const struct breakpoint *src, ptid_t ptid) -{ - struct breakpoint *dest; - struct raw_breakpoint *dest_raw; - - /* Clone the raw breakpoint. */ - dest_raw = XCNEW (struct raw_breakpoint); - dest_raw->raw_type = src->raw->raw_type; - dest_raw->refcount = src->raw->refcount; - dest_raw->pc = src->raw->pc; - dest_raw->kind = src->raw->kind; - memcpy (dest_raw->old_data, src->raw->old_data, MAX_BREAKPOINT_LEN); - dest_raw->inserted = src->raw->inserted; - - /* Clone the high-level breakpoint. */ - if (is_gdb_breakpoint (src->type)) - { - struct gdb_breakpoint *gdb_dest = XCNEW (struct gdb_breakpoint); - struct point_cond_list *current_cond; - struct point_cond_list *new_cond; - struct point_cond_list *cond_tail = NULL; - struct point_command_list *current_cmd; - struct point_command_list *new_cmd; - struct point_command_list *cmd_tail = NULL; - - /* Clone the condition list. */ - for (current_cond = ((struct gdb_breakpoint *) src)->cond_list; - current_cond != NULL; - current_cond = current_cond->next) - { - new_cond = XCNEW (struct point_cond_list); - new_cond->cond = clone_agent_expr (current_cond->cond); - APPEND_TO_LIST (&gdb_dest->cond_list, new_cond, cond_tail); - } - - /* Clone the command list. */ - for (current_cmd = ((struct gdb_breakpoint *) src)->command_list; - current_cmd != NULL; - current_cmd = current_cmd->next) - { - new_cmd = XCNEW (struct point_command_list); - new_cmd->cmd = clone_agent_expr (current_cmd->cmd); - new_cmd->persistence = current_cmd->persistence; - APPEND_TO_LIST (&gdb_dest->command_list, new_cmd, cmd_tail); - } - - dest = (struct breakpoint *) gdb_dest; - } - else if (src->type == other_breakpoint) - { - struct other_breakpoint *other_dest = XCNEW (struct other_breakpoint); - - other_dest->handler = ((struct other_breakpoint *) src)->handler; - dest = (struct breakpoint *) other_dest; - } - else if (src->type == single_step_breakpoint) - { - struct single_step_breakpoint *ss_dest - = XCNEW (struct single_step_breakpoint); - - dest = (struct breakpoint *) ss_dest; - /* Since single-step breakpoint is thread specific, don't copy - thread id from SRC, use ID instead. */ - ss_dest->ptid = ptid; - } - else - gdb_assert_not_reached ("unhandled breakpoint type"); - - dest->type = src->type; - dest->raw = dest_raw; - - return dest; -} - -/* See mem-break.h. */ - -void -clone_all_breakpoints (struct thread_info *child_thread, - const struct thread_info *parent_thread) -{ - const struct breakpoint *bp; - struct breakpoint *new_bkpt; - struct breakpoint *bkpt_tail = NULL; - struct raw_breakpoint *raw_bkpt_tail = NULL; - struct process_info *child_proc = get_thread_process (child_thread); - struct process_info *parent_proc = get_thread_process (parent_thread); - struct breakpoint **new_list = &child_proc->breakpoints; - struct raw_breakpoint **new_raw_list = &child_proc->raw_breakpoints; - - for (bp = parent_proc->breakpoints; bp != NULL; bp = bp->next) - { - new_bkpt = clone_one_breakpoint (bp, ptid_of (child_thread)); - APPEND_TO_LIST (new_list, new_bkpt, bkpt_tail); - APPEND_TO_LIST (new_raw_list, new_bkpt->raw, raw_bkpt_tail); - } -} diff --git a/gdbserver/mem-break.cc b/gdbserver/mem-break.cc new file mode 100644 index 00000000000..1b6f2365814 --- /dev/null +++ b/gdbserver/mem-break.cc @@ -0,0 +1,2237 @@ +/* Memory breakpoint operations for the remote server for GDB. + Copyright (C) 2002-2020 Free Software Foundation, Inc. + + Contributed by MontaVista Software. + + 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 . */ + +#include "server.h" +#include "regcache.h" +#include "ax.h" + +#define MAX_BREAKPOINT_LEN 8 + +/* Helper macro used in loops that append multiple items to a singly-linked + list instead of inserting items at the head of the list, as, say, in the + breakpoint lists. LISTPP is a pointer to the pointer that is the head of + the new list. ITEMP is a pointer to the item to be added to the list. + TAILP must be defined to be the same type as ITEMP, and initialized to + NULL. */ + +#define APPEND_TO_LIST(listpp, itemp, tailp) \ + do \ + { \ + if ((tailp) == NULL) \ + *(listpp) = (itemp); \ + else \ + (tailp)->next = (itemp); \ + (tailp) = (itemp); \ + } \ + while (0) + +/* GDB will never try to install multiple breakpoints at the same + address. However, we can see GDB requesting to insert a breakpoint + at an address is had already inserted one previously in a few + situations. + + - The RSP documentation on Z packets says that to avoid potential + problems with duplicate packets, the operations should be + implemented in an idempotent way. + + - A breakpoint is set at ADDR, an address in a shared library. + Then the shared library is unloaded. And then another, unrelated, + breakpoint at ADDR is set. There is not breakpoint removal request + between the first and the second breakpoint. + + - When GDB wants to update the target-side breakpoint conditions or + commands, it re-inserts the breakpoint, with updated + conditions/commands associated. + + Also, we need to keep track of internal breakpoints too, so we do + need to be able to install multiple breakpoints at the same address + transparently. + + We keep track of two different, and closely related structures. A + raw breakpoint, which manages the low level, close to the metal + aspect of a breakpoint. It holds the breakpoint address, and for + software breakpoints, a buffer holding a copy of the instructions + that would be in memory had not been a breakpoint there (we call + that the shadow memory of the breakpoint). We occasionally need to + temporarilly uninsert a breakpoint without the client knowing about + it (e.g., to step over an internal breakpoint), so we keep an + `inserted' state associated with this low level breakpoint + structure. There can only be one such object for a given address. + Then, we have (a bit higher level) breakpoints. This structure + holds a callback to be called whenever a breakpoint is hit, a + high-level type, and a link to a low level raw breakpoint. There + can be many high-level breakpoints at the same address, and all of + them will point to the same raw breakpoint, which is reference + counted. */ + +/* The low level, physical, raw breakpoint. */ +struct raw_breakpoint +{ + struct raw_breakpoint *next; + + /* The low level type of the breakpoint (software breakpoint, + watchpoint, etc.) */ + enum raw_bkpt_type raw_type; + + /* A reference count. Each high level breakpoint referencing this + raw breakpoint accounts for one reference. */ + int refcount; + + /* The breakpoint's insertion address. There can only be one raw + breakpoint for a given PC. */ + CORE_ADDR pc; + + /* The breakpoint's kind. This is target specific. Most + architectures only use one specific instruction for breakpoints, while + others may use more than one. E.g., on ARM, we need to use different + breakpoint instructions on Thumb, Thumb-2, and ARM code. Likewise for + hardware breakpoints -- some architectures (including ARM) need to + setup debug registers differently depending on mode. */ + int kind; + + /* The breakpoint's shadow memory. */ + unsigned char old_data[MAX_BREAKPOINT_LEN]; + + /* Positive if this breakpoint is currently inserted in the + inferior. Negative if it was, but we've detected that it's now + gone. Zero if not inserted. */ + int inserted; +}; + +/* The type of a breakpoint. */ +enum bkpt_type + { + /* A GDB breakpoint, requested with a Z0 packet. */ + gdb_breakpoint_Z0, + + /* A GDB hardware breakpoint, requested with a Z1 packet. */ + gdb_breakpoint_Z1, + + /* A GDB write watchpoint, requested with a Z2 packet. */ + gdb_breakpoint_Z2, + + /* A GDB read watchpoint, requested with a Z3 packet. */ + gdb_breakpoint_Z3, + + /* A GDB access watchpoint, requested with a Z4 packet. */ + gdb_breakpoint_Z4, + + /* A software single-step breakpoint. */ + single_step_breakpoint, + + /* Any other breakpoint type that doesn't require specific + treatment goes here. E.g., an event breakpoint. */ + other_breakpoint, + }; + +struct point_cond_list +{ + /* Pointer to the agent expression that is the breakpoint's + conditional. */ + struct agent_expr *cond; + + /* Pointer to the next condition. */ + struct point_cond_list *next; +}; + +struct point_command_list +{ + /* Pointer to the agent expression that is the breakpoint's + commands. */ + struct agent_expr *cmd; + + /* Flag that is true if this command should run even while GDB is + disconnected. */ + int persistence; + + /* Pointer to the next command. */ + struct point_command_list *next; +}; + +/* A high level (in gdbserver's perspective) breakpoint. */ +struct breakpoint +{ + struct breakpoint *next; + + /* The breakpoint's type. */ + enum bkpt_type type; + + /* Link to this breakpoint's raw breakpoint. This is always + non-NULL. */ + struct raw_breakpoint *raw; +}; + +/* Breakpoint requested by GDB. */ + +struct gdb_breakpoint +{ + struct breakpoint base; + + /* Pointer to the condition list that should be evaluated on + the target or NULL if the breakpoint is unconditional or + if GDB doesn't want us to evaluate the conditionals on the + target's side. */ + struct point_cond_list *cond_list; + + /* Point to the list of commands to run when this is hit. */ + struct point_command_list *command_list; +}; + +/* Breakpoint used by GDBserver. */ + +struct other_breakpoint +{ + struct breakpoint base; + + /* Function to call when we hit this breakpoint. If it returns 1, + the breakpoint shall be deleted; 0 or if this callback is NULL, + it will be left inserted. */ + int (*handler) (CORE_ADDR); +}; + +/* Breakpoint for single step. */ + +struct single_step_breakpoint +{ + struct breakpoint base; + + /* Thread the reinsert breakpoint belongs to. */ + ptid_t ptid; +}; + +/* Return the breakpoint size from its kind. */ + +static int +bp_size (struct raw_breakpoint *bp) +{ + int size = 0; + + the_target->sw_breakpoint_from_kind (bp->kind, &size); + return size; +} + +/* Return the breakpoint opcode from its kind. */ + +static const gdb_byte * +bp_opcode (struct raw_breakpoint *bp) +{ + int size = 0; + + return the_target->sw_breakpoint_from_kind (bp->kind, &size); +} + +/* See mem-break.h. */ + +enum target_hw_bp_type +raw_bkpt_type_to_target_hw_bp_type (enum raw_bkpt_type raw_type) +{ + switch (raw_type) + { + case raw_bkpt_type_hw: + return hw_execute; + case raw_bkpt_type_write_wp: + return hw_write; + case raw_bkpt_type_read_wp: + return hw_read; + case raw_bkpt_type_access_wp: + return hw_access; + default: + internal_error (__FILE__, __LINE__, + "bad raw breakpoint type %d", (int) raw_type); + } +} + +/* See mem-break.h. */ + +static enum bkpt_type +Z_packet_to_bkpt_type (char z_type) +{ + gdb_assert ('0' <= z_type && z_type <= '4'); + + return (enum bkpt_type) (gdb_breakpoint_Z0 + (z_type - '0')); +} + +/* See mem-break.h. */ + +enum raw_bkpt_type +Z_packet_to_raw_bkpt_type (char z_type) +{ + switch (z_type) + { + case Z_PACKET_SW_BP: + return raw_bkpt_type_sw; + case Z_PACKET_HW_BP: + return raw_bkpt_type_hw; + case Z_PACKET_WRITE_WP: + return raw_bkpt_type_write_wp; + case Z_PACKET_READ_WP: + return raw_bkpt_type_read_wp; + case Z_PACKET_ACCESS_WP: + return raw_bkpt_type_access_wp; + default: + gdb_assert_not_reached ("unhandled Z packet type."); + } +} + +/* Return true if breakpoint TYPE is a GDB breakpoint. */ + +static int +is_gdb_breakpoint (enum bkpt_type type) +{ + return (type == gdb_breakpoint_Z0 + || type == gdb_breakpoint_Z1 + || type == gdb_breakpoint_Z2 + || type == gdb_breakpoint_Z3 + || type == gdb_breakpoint_Z4); +} + +bool +any_persistent_commands (process_info *proc) +{ + struct breakpoint *bp; + struct point_command_list *cl; + + for (bp = proc->breakpoints; bp != NULL; bp = bp->next) + { + if (is_gdb_breakpoint (bp->type)) + { + struct gdb_breakpoint *gdb_bp = (struct gdb_breakpoint *) bp; + + for (cl = gdb_bp->command_list; cl != NULL; cl = cl->next) + if (cl->persistence) + return true; + } + } + + return false; +} + +/* Find low-level breakpoint of type TYPE at address ADDR that is not + insert-disabled. Returns NULL if not found. */ + +static struct raw_breakpoint * +find_enabled_raw_code_breakpoint_at (CORE_ADDR addr, enum raw_bkpt_type type) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp; + + for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) + if (bp->pc == addr + && bp->raw_type == type + && bp->inserted >= 0) + return bp; + + return NULL; +} + +/* Find low-level breakpoint of type TYPE at address ADDR. Returns + NULL if not found. */ + +static struct raw_breakpoint * +find_raw_breakpoint_at (CORE_ADDR addr, enum raw_bkpt_type type, int kind) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp; + + for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) + if (bp->pc == addr && bp->raw_type == type && bp->kind == kind) + return bp; + + return NULL; +} + +/* See mem-break.h. */ + +int +insert_memory_breakpoint (struct raw_breakpoint *bp) +{ + unsigned char buf[MAX_BREAKPOINT_LEN]; + int err; + + /* Note that there can be fast tracepoint jumps installed in the + same memory range, so to get at the original memory, we need to + use read_inferior_memory, which masks those out. */ + err = read_inferior_memory (bp->pc, buf, bp_size (bp)); + if (err != 0) + { + if (debug_threads) + debug_printf ("Failed to read shadow memory of" + " breakpoint at 0x%s (%s).\n", + paddress (bp->pc), safe_strerror (err)); + } + else + { + memcpy (bp->old_data, buf, bp_size (bp)); + + err = (*the_target->write_memory) (bp->pc, bp_opcode (bp), + bp_size (bp)); + if (err != 0) + { + if (debug_threads) + debug_printf ("Failed to insert breakpoint at 0x%s (%s).\n", + paddress (bp->pc), safe_strerror (err)); + } + } + return err != 0 ? -1 : 0; +} + +/* See mem-break.h */ + +int +remove_memory_breakpoint (struct raw_breakpoint *bp) +{ + unsigned char buf[MAX_BREAKPOINT_LEN]; + int err; + + /* Since there can be trap breakpoints inserted in the same address + range, we use `target_write_memory', which takes care of + layering breakpoints on top of fast tracepoints, and on top of + the buffer we pass it. This works because the caller has already + either unlinked the breakpoint or marked it uninserted. Also + note that we need to pass the current shadow contents, because + target_write_memory updates any shadow memory with what we pass + here, and we want that to be a nop. */ + memcpy (buf, bp->old_data, bp_size (bp)); + err = target_write_memory (bp->pc, buf, bp_size (bp)); + if (err != 0) + { + if (debug_threads) + debug_printf ("Failed to uninsert raw breakpoint " + "at 0x%s (%s) while deleting it.\n", + paddress (bp->pc), safe_strerror (err)); + } + return err != 0 ? -1 : 0; +} + +/* Set a RAW breakpoint of type TYPE and kind KIND at WHERE. On + success, a pointer to the new breakpoint is returned. On failure, + returns NULL and writes the error code to *ERR. */ + +static struct raw_breakpoint * +set_raw_breakpoint_at (enum raw_bkpt_type type, CORE_ADDR where, int kind, + int *err) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp; + + if (type == raw_bkpt_type_sw || type == raw_bkpt_type_hw) + { + bp = find_enabled_raw_code_breakpoint_at (where, type); + if (bp != NULL && bp->kind != kind) + { + /* A different kind than previously seen. The previous + breakpoint must be gone then. */ + if (debug_threads) + debug_printf ("Inconsistent breakpoint kind? Was %d, now %d.\n", + bp->kind, kind); + bp->inserted = -1; + bp = NULL; + } + } + else + bp = find_raw_breakpoint_at (where, type, kind); + + gdb::unique_xmalloc_ptr bp_holder; + if (bp == NULL) + { + bp_holder.reset (XCNEW (struct raw_breakpoint)); + bp = bp_holder.get (); + bp->pc = where; + bp->kind = kind; + bp->raw_type = type; + } + + if (!bp->inserted) + { + *err = the_target->insert_point (bp->raw_type, bp->pc, bp->kind, bp); + if (*err != 0) + { + if (debug_threads) + debug_printf ("Failed to insert breakpoint at 0x%s (%d).\n", + paddress (where), *err); + + return NULL; + } + + bp->inserted = 1; + } + + /* If the breakpoint was allocated above, we know we want to keep it + now. */ + bp_holder.release (); + + /* Link the breakpoint in, if this is the first reference. */ + if (++bp->refcount == 1) + { + bp->next = proc->raw_breakpoints; + proc->raw_breakpoints = bp; + } + return bp; +} + +/* Notice that breakpoint traps are always installed on top of fast + tracepoint jumps. This is even if the fast tracepoint is installed + at a later time compared to when the breakpoint was installed. + This means that a stopping breakpoint or tracepoint has higher + "priority". In turn, this allows having fast and slow tracepoints + (and breakpoints) at the same address behave correctly. */ + + +/* A fast tracepoint jump. */ + +struct fast_tracepoint_jump +{ + struct fast_tracepoint_jump *next; + + /* A reference count. GDB can install more than one fast tracepoint + at the same address (each with its own action list, for + example). */ + int refcount; + + /* The fast tracepoint's insertion address. There can only be one + of these for a given PC. */ + CORE_ADDR pc; + + /* Non-zero if this fast tracepoint jump is currently inserted in + the inferior. */ + int inserted; + + /* The length of the jump instruction. */ + int length; + + /* A poor-man's flexible array member, holding both the jump + instruction to insert, and a copy of the instruction that would + be in memory had not been a jump there (the shadow memory of the + tracepoint jump). */ + unsigned char insn_and_shadow[0]; +}; + +/* Fast tracepoint FP's jump instruction to insert. */ +#define fast_tracepoint_jump_insn(fp) \ + ((fp)->insn_and_shadow + 0) + +/* The shadow memory of fast tracepoint jump FP. */ +#define fast_tracepoint_jump_shadow(fp) \ + ((fp)->insn_and_shadow + (fp)->length) + + +/* Return the fast tracepoint jump set at WHERE. */ + +static struct fast_tracepoint_jump * +find_fast_tracepoint_jump_at (CORE_ADDR where) +{ + struct process_info *proc = current_process (); + struct fast_tracepoint_jump *jp; + + for (jp = proc->fast_tracepoint_jumps; jp != NULL; jp = jp->next) + if (jp->pc == where) + return jp; + + return NULL; +} + +int +fast_tracepoint_jump_here (CORE_ADDR where) +{ + struct fast_tracepoint_jump *jp = find_fast_tracepoint_jump_at (where); + + return (jp != NULL); +} + +int +delete_fast_tracepoint_jump (struct fast_tracepoint_jump *todel) +{ + struct fast_tracepoint_jump *bp, **bp_link; + int ret; + struct process_info *proc = current_process (); + + bp = proc->fast_tracepoint_jumps; + bp_link = &proc->fast_tracepoint_jumps; + + while (bp) + { + if (bp == todel) + { + if (--bp->refcount == 0) + { + struct fast_tracepoint_jump *prev_bp_link = *bp_link; + unsigned char *buf; + + /* Unlink it. */ + *bp_link = bp->next; + + /* Since there can be breakpoints inserted in the same + address range, we use `target_write_memory', which + takes care of layering breakpoints on top of fast + tracepoints, and on top of the buffer we pass it. + This works because we've already unlinked the fast + tracepoint jump above. Also note that we need to + pass the current shadow contents, because + target_write_memory updates any shadow memory with + what we pass here, and we want that to be a nop. */ + buf = (unsigned char *) alloca (bp->length); + memcpy (buf, fast_tracepoint_jump_shadow (bp), bp->length); + ret = target_write_memory (bp->pc, buf, bp->length); + if (ret != 0) + { + /* Something went wrong, relink the jump. */ + *bp_link = prev_bp_link; + + if (debug_threads) + debug_printf ("Failed to uninsert fast tracepoint jump " + "at 0x%s (%s) while deleting it.\n", + paddress (bp->pc), safe_strerror (ret)); + return ret; + } + + free (bp); + } + + return 0; + } + else + { + bp_link = &bp->next; + bp = *bp_link; + } + } + + warning ("Could not find fast tracepoint jump in list."); + return ENOENT; +} + +void +inc_ref_fast_tracepoint_jump (struct fast_tracepoint_jump *jp) +{ + jp->refcount++; +} + +struct fast_tracepoint_jump * +set_fast_tracepoint_jump (CORE_ADDR where, + unsigned char *insn, ULONGEST length) +{ + struct process_info *proc = current_process (); + struct fast_tracepoint_jump *jp; + int err; + unsigned char *buf; + + /* We refcount fast tracepoint jumps. Check if we already know + about a jump at this address. */ + jp = find_fast_tracepoint_jump_at (where); + if (jp != NULL) + { + jp->refcount++; + return jp; + } + + /* We don't, so create a new object. Double the length, because the + flexible array member holds both the jump insn, and the + shadow. */ + jp = (struct fast_tracepoint_jump *) xcalloc (1, sizeof (*jp) + (length * 2)); + jp->pc = where; + jp->length = length; + memcpy (fast_tracepoint_jump_insn (jp), insn, length); + jp->refcount = 1; + buf = (unsigned char *) alloca (length); + + /* Note that there can be trap breakpoints inserted in the same + address range. To access the original memory contents, we use + `read_inferior_memory', which masks out breakpoints. */ + err = read_inferior_memory (where, buf, length); + if (err != 0) + { + if (debug_threads) + debug_printf ("Failed to read shadow memory of" + " fast tracepoint at 0x%s (%s).\n", + paddress (where), safe_strerror (err)); + free (jp); + return NULL; + } + memcpy (fast_tracepoint_jump_shadow (jp), buf, length); + + /* Link the jump in. */ + jp->inserted = 1; + jp->next = proc->fast_tracepoint_jumps; + proc->fast_tracepoint_jumps = jp; + + /* Since there can be trap breakpoints inserted in the same address + range, we use use `target_write_memory', which takes care of + layering breakpoints on top of fast tracepoints, on top of the + buffer we pass it. This works because we've already linked in + the fast tracepoint jump above. Also note that we need to pass + the current shadow contents, because target_write_memory + updates any shadow memory with what we pass here, and we want + that to be a nop. */ + err = target_write_memory (where, buf, length); + if (err != 0) + { + if (debug_threads) + debug_printf ("Failed to insert fast tracepoint jump at 0x%s (%s).\n", + paddress (where), safe_strerror (err)); + + /* Unlink it. */ + proc->fast_tracepoint_jumps = jp->next; + free (jp); + + return NULL; + } + + return jp; +} + +void +uninsert_fast_tracepoint_jumps_at (CORE_ADDR pc) +{ + struct fast_tracepoint_jump *jp; + int err; + + jp = find_fast_tracepoint_jump_at (pc); + if (jp == NULL) + { + /* This can happen when we remove all breakpoints while handling + a step-over. */ + if (debug_threads) + debug_printf ("Could not find fast tracepoint jump at 0x%s " + "in list (uninserting).\n", + paddress (pc)); + return; + } + + if (jp->inserted) + { + unsigned char *buf; + + jp->inserted = 0; + + /* Since there can be trap breakpoints inserted in the same + address range, we use use `target_write_memory', which + takes care of layering breakpoints on top of fast + tracepoints, and on top of the buffer we pass it. This works + because we've already marked the fast tracepoint fast + tracepoint jump uninserted above. Also note that we need to + pass the current shadow contents, because + target_write_memory updates any shadow memory with what we + pass here, and we want that to be a nop. */ + buf = (unsigned char *) alloca (jp->length); + memcpy (buf, fast_tracepoint_jump_shadow (jp), jp->length); + err = target_write_memory (jp->pc, buf, jp->length); + if (err != 0) + { + jp->inserted = 1; + + if (debug_threads) + debug_printf ("Failed to uninsert fast tracepoint jump at" + " 0x%s (%s).\n", + paddress (pc), safe_strerror (err)); + } + } +} + +void +reinsert_fast_tracepoint_jumps_at (CORE_ADDR where) +{ + struct fast_tracepoint_jump *jp; + int err; + unsigned char *buf; + + jp = find_fast_tracepoint_jump_at (where); + if (jp == NULL) + { + /* This can happen when we remove breakpoints when a tracepoint + hit causes a tracing stop, while handling a step-over. */ + if (debug_threads) + debug_printf ("Could not find fast tracepoint jump at 0x%s " + "in list (reinserting).\n", + paddress (where)); + return; + } + + if (jp->inserted) + error ("Jump already inserted at reinsert time."); + + jp->inserted = 1; + + /* Since there can be trap breakpoints inserted in the same address + range, we use `target_write_memory', which takes care of + layering breakpoints on top of fast tracepoints, and on top of + the buffer we pass it. This works because we've already marked + the fast tracepoint jump inserted above. Also note that we need + to pass the current shadow contents, because + target_write_memory updates any shadow memory with what we pass + here, and we want that to be a nop. */ + buf = (unsigned char *) alloca (jp->length); + memcpy (buf, fast_tracepoint_jump_shadow (jp), jp->length); + err = target_write_memory (where, buf, jp->length); + if (err != 0) + { + jp->inserted = 0; + + if (debug_threads) + debug_printf ("Failed to reinsert fast tracepoint jump at" + " 0x%s (%s).\n", + paddress (where), safe_strerror (err)); + } +} + +/* Set a high-level breakpoint of type TYPE, with low level type + RAW_TYPE and kind KIND, at WHERE. On success, a pointer to the new + breakpoint is returned. On failure, returns NULL and writes the + error code to *ERR. HANDLER is called when the breakpoint is hit. + HANDLER should return 1 if the breakpoint should be deleted, 0 + otherwise. */ + +static struct breakpoint * +set_breakpoint (enum bkpt_type type, enum raw_bkpt_type raw_type, + CORE_ADDR where, int kind, + int (*handler) (CORE_ADDR), int *err) +{ + struct process_info *proc = current_process (); + struct breakpoint *bp; + struct raw_breakpoint *raw; + + raw = set_raw_breakpoint_at (raw_type, where, kind, err); + + if (raw == NULL) + { + /* warn? */ + return NULL; + } + + if (is_gdb_breakpoint (type)) + { + struct gdb_breakpoint *gdb_bp = XCNEW (struct gdb_breakpoint); + + bp = (struct breakpoint *) gdb_bp; + gdb_assert (handler == NULL); + } + else if (type == other_breakpoint) + { + struct other_breakpoint *other_bp = XCNEW (struct other_breakpoint); + + other_bp->handler = handler; + bp = (struct breakpoint *) other_bp; + } + else if (type == single_step_breakpoint) + { + struct single_step_breakpoint *ss_bp + = XCNEW (struct single_step_breakpoint); + + bp = (struct breakpoint *) ss_bp; + } + else + gdb_assert_not_reached ("unhandled breakpoint type"); + + bp->type = type; + bp->raw = raw; + + bp->next = proc->breakpoints; + proc->breakpoints = bp; + + return bp; +} + +/* Set breakpoint of TYPE on address WHERE with handler HANDLER. */ + +static struct breakpoint * +set_breakpoint_type_at (enum bkpt_type type, CORE_ADDR where, + int (*handler) (CORE_ADDR)) +{ + int err_ignored; + CORE_ADDR placed_address = where; + int breakpoint_kind = target_breakpoint_kind_from_pc (&placed_address); + + return set_breakpoint (type, raw_bkpt_type_sw, + placed_address, breakpoint_kind, handler, + &err_ignored); +} + +/* See mem-break.h */ + +struct breakpoint * +set_breakpoint_at (CORE_ADDR where, int (*handler) (CORE_ADDR)) +{ + return set_breakpoint_type_at (other_breakpoint, where, handler); +} + + +static int +delete_raw_breakpoint (struct process_info *proc, struct raw_breakpoint *todel) +{ + struct raw_breakpoint *bp, **bp_link; + int ret; + + bp = proc->raw_breakpoints; + bp_link = &proc->raw_breakpoints; + + while (bp) + { + if (bp == todel) + { + if (bp->inserted > 0) + { + struct raw_breakpoint *prev_bp_link = *bp_link; + + *bp_link = bp->next; + + ret = the_target->remove_point (bp->raw_type, bp->pc, bp->kind, + bp); + if (ret != 0) + { + /* Something went wrong, relink the breakpoint. */ + *bp_link = prev_bp_link; + + if (debug_threads) + debug_printf ("Failed to uninsert raw breakpoint " + "at 0x%s while deleting it.\n", + paddress (bp->pc)); + return ret; + } + } + else + *bp_link = bp->next; + + free (bp); + return 0; + } + else + { + bp_link = &bp->next; + bp = *bp_link; + } + } + + warning ("Could not find raw breakpoint in list."); + return ENOENT; +} + +static int +release_breakpoint (struct process_info *proc, struct breakpoint *bp) +{ + int newrefcount; + int ret; + + newrefcount = bp->raw->refcount - 1; + if (newrefcount == 0) + { + ret = delete_raw_breakpoint (proc, bp->raw); + if (ret != 0) + return ret; + } + else + bp->raw->refcount = newrefcount; + + free (bp); + + return 0; +} + +static int +delete_breakpoint_1 (struct process_info *proc, struct breakpoint *todel) +{ + struct breakpoint *bp, **bp_link; + int err; + + bp = proc->breakpoints; + bp_link = &proc->breakpoints; + + while (bp) + { + if (bp == todel) + { + *bp_link = bp->next; + + err = release_breakpoint (proc, bp); + if (err != 0) + return err; + + bp = *bp_link; + return 0; + } + else + { + bp_link = &bp->next; + bp = *bp_link; + } + } + + warning ("Could not find breakpoint in list."); + return ENOENT; +} + +int +delete_breakpoint (struct breakpoint *todel) +{ + struct process_info *proc = current_process (); + return delete_breakpoint_1 (proc, todel); +} + +/* Locate a GDB breakpoint of type Z_TYPE and kind KIND placed at + address ADDR and return a pointer to its structure. If KIND is -1, + the breakpoint's kind is ignored. */ + +static struct gdb_breakpoint * +find_gdb_breakpoint (char z_type, CORE_ADDR addr, int kind) +{ + struct process_info *proc = current_process (); + struct breakpoint *bp; + enum bkpt_type type = Z_packet_to_bkpt_type (z_type); + + for (bp = proc->breakpoints; bp != NULL; bp = bp->next) + if (bp->type == type && bp->raw->pc == addr + && (kind == -1 || bp->raw->kind == kind)) + return (struct gdb_breakpoint *) bp; + + return NULL; +} + +static int +z_type_supported (char z_type) +{ + return (z_type >= '0' && z_type <= '4' + && the_target->supports_z_point_type != NULL + && the_target->supports_z_point_type (z_type)); +} + +/* Create a new GDB breakpoint of type Z_TYPE at ADDR with kind KIND. + Returns a pointer to the newly created breakpoint on success. On + failure returns NULL and sets *ERR to either -1 for error, or 1 if + Z_TYPE breakpoints are not supported on this target. */ + +static struct gdb_breakpoint * +set_gdb_breakpoint_1 (char z_type, CORE_ADDR addr, int kind, int *err) +{ + struct gdb_breakpoint *bp; + enum bkpt_type type; + enum raw_bkpt_type raw_type; + + /* If we see GDB inserting a second code breakpoint at the same + address, then either: GDB is updating the breakpoint's conditions + or commands; or, the first breakpoint must have disappeared due + to a shared library unload. On targets where the shared + libraries are handled by userspace, like SVR4, for example, + GDBserver can't tell if a library was loaded or unloaded. Since + we refcount raw breakpoints, we must be careful to make sure GDB + breakpoints never contribute more than one reference. if we + didn't do this, in case the previous breakpoint is gone due to a + shared library unload, we'd just increase the refcount of the + previous breakpoint at this address, but the trap was not planted + in the inferior anymore, thus the breakpoint would never be hit. + Note this must be careful to not create a window where + breakpoints are removed from the target, for non-stop, in case + the target can poke at memory while the program is running. */ + if (z_type == Z_PACKET_SW_BP + || z_type == Z_PACKET_HW_BP) + { + bp = find_gdb_breakpoint (z_type, addr, -1); + + if (bp != NULL) + { + if (bp->base.raw->kind != kind) + { + /* A different kind than previously seen. The previous + breakpoint must be gone then. */ + bp->base.raw->inserted = -1; + delete_breakpoint ((struct breakpoint *) bp); + bp = NULL; + } + else if (z_type == Z_PACKET_SW_BP) + { + /* Check if the breakpoint is actually gone from the + target, due to an solib unload, for example. Might + as well validate _all_ breakpoints. */ + validate_breakpoints (); + + /* Breakpoints that don't pass validation are + deleted. */ + bp = find_gdb_breakpoint (z_type, addr, -1); + } + } + } + else + { + /* Data breakpoints for the same address but different kind are + expected. GDB doesn't merge these. The backend gets to do + that if it wants/can. */ + bp = find_gdb_breakpoint (z_type, addr, kind); + } + + if (bp != NULL) + { + /* We already know about this breakpoint, there's nothing else + to do - GDB's reference is already accounted for. Note that + whether the breakpoint inserted is left as is - we may be + stepping over it, for example, in which case we don't want to + force-reinsert it. */ + return bp; + } + + raw_type = Z_packet_to_raw_bkpt_type (z_type); + type = Z_packet_to_bkpt_type (z_type); + return (struct gdb_breakpoint *) set_breakpoint (type, raw_type, addr, + kind, NULL, err); +} + +static int +check_gdb_bp_preconditions (char z_type, int *err) +{ + /* As software/memory breakpoints work by poking at memory, we need + to prepare to access memory. If that operation fails, we need to + return error. Seeing an error, if this is the first breakpoint + of that type that GDB tries to insert, GDB would then assume the + breakpoint type is supported, but it may actually not be. So we + need to check whether the type is supported at all before + preparing to access memory. */ + if (!z_type_supported (z_type)) + { + *err = 1; + return 0; + } + + return 1; +} + +/* See mem-break.h. This is a wrapper for set_gdb_breakpoint_1 that + knows to prepare to access memory for Z0 breakpoints. */ + +struct gdb_breakpoint * +set_gdb_breakpoint (char z_type, CORE_ADDR addr, int kind, int *err) +{ + struct gdb_breakpoint *bp; + + if (!check_gdb_bp_preconditions (z_type, err)) + return NULL; + + /* If inserting a software/memory breakpoint, need to prepare to + access memory. */ + if (z_type == Z_PACKET_SW_BP) + { + if (prepare_to_access_memory () != 0) + { + *err = -1; + return NULL; + } + } + + bp = set_gdb_breakpoint_1 (z_type, addr, kind, err); + + if (z_type == Z_PACKET_SW_BP) + done_accessing_memory (); + + return bp; +} + +/* Delete a GDB breakpoint of type Z_TYPE and kind KIND previously + inserted at ADDR with set_gdb_breakpoint_at. Returns 0 on success, + -1 on error, and 1 if Z_TYPE breakpoints are not supported on this + target. */ + +static int +delete_gdb_breakpoint_1 (char z_type, CORE_ADDR addr, int kind) +{ + struct gdb_breakpoint *bp; + int err; + + bp = find_gdb_breakpoint (z_type, addr, kind); + if (bp == NULL) + return -1; + + /* Before deleting the breakpoint, make sure to free its condition + and command lists. */ + clear_breakpoint_conditions_and_commands (bp); + err = delete_breakpoint ((struct breakpoint *) bp); + if (err != 0) + return -1; + + return 0; +} + +/* See mem-break.h. This is a wrapper for delete_gdb_breakpoint that + knows to prepare to access memory for Z0 breakpoints. */ + +int +delete_gdb_breakpoint (char z_type, CORE_ADDR addr, int kind) +{ + int ret; + + if (!check_gdb_bp_preconditions (z_type, &ret)) + return ret; + + /* If inserting a software/memory breakpoint, need to prepare to + access memory. */ + if (z_type == Z_PACKET_SW_BP) + { + int err; + + err = prepare_to_access_memory (); + if (err != 0) + return -1; + } + + ret = delete_gdb_breakpoint_1 (z_type, addr, kind); + + if (z_type == Z_PACKET_SW_BP) + done_accessing_memory (); + + return ret; +} + +/* Clear all conditions associated with a breakpoint. */ + +static void +clear_breakpoint_conditions (struct gdb_breakpoint *bp) +{ + struct point_cond_list *cond; + + if (bp->cond_list == NULL) + return; + + cond = bp->cond_list; + + while (cond != NULL) + { + struct point_cond_list *cond_next; + + cond_next = cond->next; + gdb_free_agent_expr (cond->cond); + free (cond); + cond = cond_next; + } + + bp->cond_list = NULL; +} + +/* Clear all commands associated with a breakpoint. */ + +static void +clear_breakpoint_commands (struct gdb_breakpoint *bp) +{ + struct point_command_list *cmd; + + if (bp->command_list == NULL) + return; + + cmd = bp->command_list; + + while (cmd != NULL) + { + struct point_command_list *cmd_next; + + cmd_next = cmd->next; + gdb_free_agent_expr (cmd->cmd); + free (cmd); + cmd = cmd_next; + } + + bp->command_list = NULL; +} + +void +clear_breakpoint_conditions_and_commands (struct gdb_breakpoint *bp) +{ + clear_breakpoint_conditions (bp); + clear_breakpoint_commands (bp); +} + +/* Add condition CONDITION to GDBserver's breakpoint BP. */ + +static void +add_condition_to_breakpoint (struct gdb_breakpoint *bp, + struct agent_expr *condition) +{ + struct point_cond_list *new_cond; + + /* Create new condition. */ + new_cond = XCNEW (struct point_cond_list); + new_cond->cond = condition; + + /* Add condition to the list. */ + new_cond->next = bp->cond_list; + bp->cond_list = new_cond; +} + +/* Add a target-side condition CONDITION to a breakpoint. */ + +int +add_breakpoint_condition (struct gdb_breakpoint *bp, const char **condition) +{ + const char *actparm = *condition; + struct agent_expr *cond; + + if (condition == NULL) + return 1; + + if (bp == NULL) + return 0; + + cond = gdb_parse_agent_expr (&actparm); + + if (cond == NULL) + { + warning ("Condition evaluation failed. Assuming unconditional."); + return 0; + } + + add_condition_to_breakpoint (bp, cond); + + *condition = actparm; + + return 1; +} + +/* Evaluate condition (if any) at breakpoint BP. Return 1 if + true and 0 otherwise. */ + +static int +gdb_condition_true_at_breakpoint_z_type (char z_type, CORE_ADDR addr) +{ + /* Fetch registers for the current inferior. */ + struct gdb_breakpoint *bp = find_gdb_breakpoint (z_type, addr, -1); + ULONGEST value = 0; + struct point_cond_list *cl; + int err = 0; + struct eval_agent_expr_context ctx; + + if (bp == NULL) + return 0; + + /* Check if the breakpoint is unconditional. If it is, + the condition always evaluates to TRUE. */ + if (bp->cond_list == NULL) + return 1; + + ctx.regcache = get_thread_regcache (current_thread, 1); + ctx.tframe = NULL; + ctx.tpoint = NULL; + + /* Evaluate each condition in the breakpoint's list of conditions. + Return true if any of the conditions evaluates to TRUE. + + If we failed to evaluate the expression, TRUE is returned. This + forces GDB to reevaluate the conditions. */ + for (cl = bp->cond_list; + cl && !value && !err; cl = cl->next) + { + /* Evaluate the condition. */ + err = gdb_eval_agent_expr (&ctx, cl->cond, &value); + } + + if (err) + return 1; + + return (value != 0); +} + +int +gdb_condition_true_at_breakpoint (CORE_ADDR where) +{ + /* Only check code (software or hardware) breakpoints. */ + return (gdb_condition_true_at_breakpoint_z_type (Z_PACKET_SW_BP, where) + || gdb_condition_true_at_breakpoint_z_type (Z_PACKET_HW_BP, where)); +} + +/* Add commands COMMANDS to GDBserver's breakpoint BP. */ + +static void +add_commands_to_breakpoint (struct gdb_breakpoint *bp, + struct agent_expr *commands, int persist) +{ + struct point_command_list *new_cmd; + + /* Create new command. */ + new_cmd = XCNEW (struct point_command_list); + new_cmd->cmd = commands; + new_cmd->persistence = persist; + + /* Add commands to the list. */ + new_cmd->next = bp->command_list; + bp->command_list = new_cmd; +} + +/* Add a target-side command COMMAND to the breakpoint at ADDR. */ + +int +add_breakpoint_commands (struct gdb_breakpoint *bp, const char **command, + int persist) +{ + const char *actparm = *command; + struct agent_expr *cmd; + + if (command == NULL) + return 1; + + if (bp == NULL) + return 0; + + cmd = gdb_parse_agent_expr (&actparm); + + if (cmd == NULL) + { + warning ("Command evaluation failed. Disabling."); + return 0; + } + + add_commands_to_breakpoint (bp, cmd, persist); + + *command = actparm; + + return 1; +} + +/* Return true if there are no commands to run at this location, + which likely means we want to report back to GDB. */ + +static int +gdb_no_commands_at_breakpoint_z_type (char z_type, CORE_ADDR addr) +{ + struct gdb_breakpoint *bp = find_gdb_breakpoint (z_type, addr, -1); + + if (bp == NULL) + return 1; + + if (debug_threads) + debug_printf ("at 0x%s, type Z%c, bp command_list is 0x%s\n", + paddress (addr), z_type, + phex_nz ((uintptr_t) bp->command_list, 0)); + return (bp->command_list == NULL); +} + +/* Return true if there are no commands to run at this location, + which likely means we want to report back to GDB. */ + +int +gdb_no_commands_at_breakpoint (CORE_ADDR where) +{ + /* Only check code (software or hardware) breakpoints. */ + return (gdb_no_commands_at_breakpoint_z_type (Z_PACKET_SW_BP, where) + && gdb_no_commands_at_breakpoint_z_type (Z_PACKET_HW_BP, where)); +} + +/* Run a breakpoint's commands. Returns 0 if there was a problem + running any command, 1 otherwise. */ + +static int +run_breakpoint_commands_z_type (char z_type, CORE_ADDR addr) +{ + /* Fetch registers for the current inferior. */ + struct gdb_breakpoint *bp = find_gdb_breakpoint (z_type, addr, -1); + ULONGEST value = 0; + struct point_command_list *cl; + int err = 0; + struct eval_agent_expr_context ctx; + + if (bp == NULL) + return 1; + + ctx.regcache = get_thread_regcache (current_thread, 1); + ctx.tframe = NULL; + ctx.tpoint = NULL; + + for (cl = bp->command_list; + cl && !value && !err; cl = cl->next) + { + /* Run the command. */ + err = gdb_eval_agent_expr (&ctx, cl->cmd, &value); + + /* If one command has a problem, stop digging the hole deeper. */ + if (err) + return 0; + } + + return 1; +} + +void +run_breakpoint_commands (CORE_ADDR where) +{ + /* Only check code (software or hardware) breakpoints. If one + command has a problem, stop digging the hole deeper. */ + if (run_breakpoint_commands_z_type (Z_PACKET_SW_BP, where)) + run_breakpoint_commands_z_type (Z_PACKET_HW_BP, where); +} + +/* See mem-break.h. */ + +int +gdb_breakpoint_here (CORE_ADDR where) +{ + /* Only check code (software or hardware) breakpoints. */ + return (find_gdb_breakpoint (Z_PACKET_SW_BP, where, -1) != NULL + || find_gdb_breakpoint (Z_PACKET_HW_BP, where, -1) != NULL); +} + +void +set_single_step_breakpoint (CORE_ADDR stop_at, ptid_t ptid) +{ + struct single_step_breakpoint *bp; + + gdb_assert (current_ptid.pid () == ptid.pid ()); + + bp = (struct single_step_breakpoint *) set_breakpoint_type_at (single_step_breakpoint, + stop_at, NULL); + bp->ptid = ptid; +} + +void +delete_single_step_breakpoints (struct thread_info *thread) +{ + struct process_info *proc = get_thread_process (thread); + struct breakpoint *bp, **bp_link; + + bp = proc->breakpoints; + bp_link = &proc->breakpoints; + + while (bp) + { + if (bp->type == single_step_breakpoint + && ((struct single_step_breakpoint *) bp)->ptid == ptid_of (thread)) + { + struct thread_info *saved_thread = current_thread; + + current_thread = thread; + *bp_link = bp->next; + release_breakpoint (proc, bp); + bp = *bp_link; + current_thread = saved_thread; + } + else + { + bp_link = &bp->next; + bp = *bp_link; + } + } +} + +static void +uninsert_raw_breakpoint (struct raw_breakpoint *bp) +{ + if (bp->inserted < 0) + { + if (debug_threads) + debug_printf ("Breakpoint at %s is marked insert-disabled.\n", + paddress (bp->pc)); + } + else if (bp->inserted > 0) + { + int err; + + bp->inserted = 0; + + err = the_target->remove_point (bp->raw_type, bp->pc, bp->kind, bp); + if (err != 0) + { + bp->inserted = 1; + + if (debug_threads) + debug_printf ("Failed to uninsert raw breakpoint at 0x%s.\n", + paddress (bp->pc)); + } + } +} + +void +uninsert_breakpoints_at (CORE_ADDR pc) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp; + int found = 0; + + for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) + if ((bp->raw_type == raw_bkpt_type_sw + || bp->raw_type == raw_bkpt_type_hw) + && bp->pc == pc) + { + found = 1; + + if (bp->inserted) + uninsert_raw_breakpoint (bp); + } + + if (!found) + { + /* This can happen when we remove all breakpoints while handling + a step-over. */ + if (debug_threads) + debug_printf ("Could not find breakpoint at 0x%s " + "in list (uninserting).\n", + paddress (pc)); + } +} + +void +uninsert_all_breakpoints (void) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp; + + for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) + if ((bp->raw_type == raw_bkpt_type_sw + || bp->raw_type == raw_bkpt_type_hw) + && bp->inserted) + uninsert_raw_breakpoint (bp); +} + +void +uninsert_single_step_breakpoints (struct thread_info *thread) +{ + struct process_info *proc = get_thread_process (thread); + struct breakpoint *bp; + + for (bp = proc->breakpoints; bp != NULL; bp = bp->next) + { + if (bp->type == single_step_breakpoint + && ((struct single_step_breakpoint *) bp)->ptid == ptid_of (thread)) + { + gdb_assert (bp->raw->inserted > 0); + + /* Only uninsert the raw breakpoint if it only belongs to a + reinsert breakpoint. */ + if (bp->raw->refcount == 1) + { + struct thread_info *saved_thread = current_thread; + + current_thread = thread; + uninsert_raw_breakpoint (bp->raw); + current_thread = saved_thread; + } + } + } +} + +static void +reinsert_raw_breakpoint (struct raw_breakpoint *bp) +{ + int err; + + if (bp->inserted) + return; + + err = the_target->insert_point (bp->raw_type, bp->pc, bp->kind, bp); + if (err == 0) + bp->inserted = 1; + else if (debug_threads) + debug_printf ("Failed to reinsert breakpoint at 0x%s (%d).\n", + paddress (bp->pc), err); +} + +void +reinsert_breakpoints_at (CORE_ADDR pc) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp; + int found = 0; + + for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) + if ((bp->raw_type == raw_bkpt_type_sw + || bp->raw_type == raw_bkpt_type_hw) + && bp->pc == pc) + { + found = 1; + + reinsert_raw_breakpoint (bp); + } + + if (!found) + { + /* This can happen when we remove all breakpoints while handling + a step-over. */ + if (debug_threads) + debug_printf ("Could not find raw breakpoint at 0x%s " + "in list (reinserting).\n", + paddress (pc)); + } +} + +int +has_single_step_breakpoints (struct thread_info *thread) +{ + struct process_info *proc = get_thread_process (thread); + struct breakpoint *bp, **bp_link; + + bp = proc->breakpoints; + bp_link = &proc->breakpoints; + + while (bp) + { + if (bp->type == single_step_breakpoint + && ((struct single_step_breakpoint *) bp)->ptid == ptid_of (thread)) + return 1; + else + { + bp_link = &bp->next; + bp = *bp_link; + } + } + + return 0; +} + +void +reinsert_all_breakpoints (void) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp; + + for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) + if ((bp->raw_type == raw_bkpt_type_sw + || bp->raw_type == raw_bkpt_type_hw) + && !bp->inserted) + reinsert_raw_breakpoint (bp); +} + +void +reinsert_single_step_breakpoints (struct thread_info *thread) +{ + struct process_info *proc = get_thread_process (thread); + struct breakpoint *bp; + + for (bp = proc->breakpoints; bp != NULL; bp = bp->next) + { + if (bp->type == single_step_breakpoint + && ((struct single_step_breakpoint *) bp)->ptid == ptid_of (thread)) + { + gdb_assert (bp->raw->inserted > 0); + + if (bp->raw->refcount == 1) + { + struct thread_info *saved_thread = current_thread; + + current_thread = thread; + reinsert_raw_breakpoint (bp->raw); + current_thread = saved_thread; + } + } + } +} + +void +check_breakpoints (CORE_ADDR stop_pc) +{ + struct process_info *proc = current_process (); + struct breakpoint *bp, **bp_link; + + bp = proc->breakpoints; + bp_link = &proc->breakpoints; + + while (bp) + { + struct raw_breakpoint *raw = bp->raw; + + if ((raw->raw_type == raw_bkpt_type_sw + || raw->raw_type == raw_bkpt_type_hw) + && raw->pc == stop_pc) + { + if (!raw->inserted) + { + warning ("Hit a removed breakpoint?"); + return; + } + + if (bp->type == other_breakpoint) + { + struct other_breakpoint *other_bp + = (struct other_breakpoint *) bp; + + if (other_bp->handler != NULL && (*other_bp->handler) (stop_pc)) + { + *bp_link = bp->next; + + release_breakpoint (proc, bp); + + bp = *bp_link; + continue; + } + } + } + + bp_link = &bp->next; + bp = *bp_link; + } +} + +int +breakpoint_here (CORE_ADDR addr) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp; + + for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) + if ((bp->raw_type == raw_bkpt_type_sw + || bp->raw_type == raw_bkpt_type_hw) + && bp->pc == addr) + return 1; + + return 0; +} + +int +breakpoint_inserted_here (CORE_ADDR addr) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp; + + for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) + if ((bp->raw_type == raw_bkpt_type_sw + || bp->raw_type == raw_bkpt_type_hw) + && bp->pc == addr + && bp->inserted) + return 1; + + return 0; +} + +/* See mem-break.h. */ + +int +software_breakpoint_inserted_here (CORE_ADDR addr) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp; + + for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) + if (bp->raw_type == raw_bkpt_type_sw + && bp->pc == addr + && bp->inserted) + return 1; + + return 0; +} + +/* See mem-break.h. */ + +int +hardware_breakpoint_inserted_here (CORE_ADDR addr) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp; + + for (bp = proc->raw_breakpoints; bp != NULL; bp = bp->next) + if (bp->raw_type == raw_bkpt_type_hw + && bp->pc == addr + && bp->inserted) + return 1; + + return 0; +} + +/* See mem-break.h. */ + +int +single_step_breakpoint_inserted_here (CORE_ADDR addr) +{ + struct process_info *proc = current_process (); + struct breakpoint *bp; + + for (bp = proc->breakpoints; bp != NULL; bp = bp->next) + if (bp->type == single_step_breakpoint + && bp->raw->pc == addr + && bp->raw->inserted) + return 1; + + return 0; +} + +static int +validate_inserted_breakpoint (struct raw_breakpoint *bp) +{ + unsigned char *buf; + int err; + + gdb_assert (bp->inserted); + gdb_assert (bp->raw_type == raw_bkpt_type_sw); + + buf = (unsigned char *) alloca (bp_size (bp)); + err = (*the_target->read_memory) (bp->pc, buf, bp_size (bp)); + if (err || memcmp (buf, bp_opcode (bp), bp_size (bp)) != 0) + { + /* Tag it as gone. */ + bp->inserted = -1; + return 0; + } + + return 1; +} + +static void +delete_disabled_breakpoints (void) +{ + struct process_info *proc = current_process (); + struct breakpoint *bp, *next; + + for (bp = proc->breakpoints; bp != NULL; bp = next) + { + next = bp->next; + if (bp->raw->inserted < 0) + { + /* If single_step_breakpoints become disabled, that means the + manipulations (insertion and removal) of them are wrong. */ + gdb_assert (bp->type != single_step_breakpoint); + delete_breakpoint_1 (proc, bp); + } + } +} + +/* Check if breakpoints we inserted still appear to be inserted. They + may disappear due to a shared library unload, and worse, a new + shared library may be reloaded at the same address as the + previously unloaded one. If that happens, we should make sure that + the shadow memory of the old breakpoints isn't used when reading or + writing memory. */ + +void +validate_breakpoints (void) +{ + struct process_info *proc = current_process (); + struct breakpoint *bp; + + for (bp = proc->breakpoints; bp != NULL; bp = bp->next) + { + struct raw_breakpoint *raw = bp->raw; + + if (raw->raw_type == raw_bkpt_type_sw && raw->inserted > 0) + validate_inserted_breakpoint (raw); + } + + delete_disabled_breakpoints (); +} + +void +check_mem_read (CORE_ADDR mem_addr, unsigned char *buf, int mem_len) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp = proc->raw_breakpoints; + struct fast_tracepoint_jump *jp = proc->fast_tracepoint_jumps; + CORE_ADDR mem_end = mem_addr + mem_len; + int disabled_one = 0; + + for (; jp != NULL; jp = jp->next) + { + CORE_ADDR bp_end = jp->pc + jp->length; + CORE_ADDR start, end; + int copy_offset, copy_len, buf_offset; + + gdb_assert (fast_tracepoint_jump_shadow (jp) >= buf + mem_len + || buf >= fast_tracepoint_jump_shadow (jp) + (jp)->length); + + if (mem_addr >= bp_end) + continue; + if (jp->pc >= mem_end) + continue; + + start = jp->pc; + if (mem_addr > start) + start = mem_addr; + + end = bp_end; + if (end > mem_end) + end = mem_end; + + copy_len = end - start; + copy_offset = start - jp->pc; + buf_offset = start - mem_addr; + + if (jp->inserted) + memcpy (buf + buf_offset, + fast_tracepoint_jump_shadow (jp) + copy_offset, + copy_len); + } + + for (; bp != NULL; bp = bp->next) + { + CORE_ADDR bp_end = bp->pc + bp_size (bp); + CORE_ADDR start, end; + int copy_offset, copy_len, buf_offset; + + if (bp->raw_type != raw_bkpt_type_sw) + continue; + + gdb_assert (bp->old_data >= buf + mem_len + || buf >= &bp->old_data[sizeof (bp->old_data)]); + + if (mem_addr >= bp_end) + continue; + if (bp->pc >= mem_end) + continue; + + start = bp->pc; + if (mem_addr > start) + start = mem_addr; + + end = bp_end; + if (end > mem_end) + end = mem_end; + + copy_len = end - start; + copy_offset = start - bp->pc; + buf_offset = start - mem_addr; + + if (bp->inserted > 0) + { + if (validate_inserted_breakpoint (bp)) + memcpy (buf + buf_offset, bp->old_data + copy_offset, copy_len); + else + disabled_one = 1; + } + } + + if (disabled_one) + delete_disabled_breakpoints (); +} + +void +check_mem_write (CORE_ADDR mem_addr, unsigned char *buf, + const unsigned char *myaddr, int mem_len) +{ + struct process_info *proc = current_process (); + struct raw_breakpoint *bp = proc->raw_breakpoints; + struct fast_tracepoint_jump *jp = proc->fast_tracepoint_jumps; + CORE_ADDR mem_end = mem_addr + mem_len; + int disabled_one = 0; + + /* First fast tracepoint jumps, then breakpoint traps on top. */ + + for (; jp != NULL; jp = jp->next) + { + CORE_ADDR jp_end = jp->pc + jp->length; + CORE_ADDR start, end; + int copy_offset, copy_len, buf_offset; + + gdb_assert (fast_tracepoint_jump_shadow (jp) >= myaddr + mem_len + || myaddr >= fast_tracepoint_jump_shadow (jp) + (jp)->length); + gdb_assert (fast_tracepoint_jump_insn (jp) >= buf + mem_len + || buf >= fast_tracepoint_jump_insn (jp) + (jp)->length); + + if (mem_addr >= jp_end) + continue; + if (jp->pc >= mem_end) + continue; + + start = jp->pc; + if (mem_addr > start) + start = mem_addr; + + end = jp_end; + if (end > mem_end) + end = mem_end; + + copy_len = end - start; + copy_offset = start - jp->pc; + buf_offset = start - mem_addr; + + memcpy (fast_tracepoint_jump_shadow (jp) + copy_offset, + myaddr + buf_offset, copy_len); + if (jp->inserted) + memcpy (buf + buf_offset, + fast_tracepoint_jump_insn (jp) + copy_offset, copy_len); + } + + for (; bp != NULL; bp = bp->next) + { + CORE_ADDR bp_end = bp->pc + bp_size (bp); + CORE_ADDR start, end; + int copy_offset, copy_len, buf_offset; + + if (bp->raw_type != raw_bkpt_type_sw) + continue; + + gdb_assert (bp->old_data >= myaddr + mem_len + || myaddr >= &bp->old_data[sizeof (bp->old_data)]); + + if (mem_addr >= bp_end) + continue; + if (bp->pc >= mem_end) + continue; + + start = bp->pc; + if (mem_addr > start) + start = mem_addr; + + end = bp_end; + if (end > mem_end) + end = mem_end; + + copy_len = end - start; + copy_offset = start - bp->pc; + buf_offset = start - mem_addr; + + memcpy (bp->old_data + copy_offset, myaddr + buf_offset, copy_len); + if (bp->inserted > 0) + { + if (validate_inserted_breakpoint (bp)) + memcpy (buf + buf_offset, bp_opcode (bp) + copy_offset, copy_len); + else + disabled_one = 1; + } + } + + if (disabled_one) + delete_disabled_breakpoints (); +} + +/* Delete all breakpoints, and un-insert them from the inferior. */ + +void +delete_all_breakpoints (void) +{ + struct process_info *proc = current_process (); + + while (proc->breakpoints) + delete_breakpoint_1 (proc, proc->breakpoints); +} + +/* Clear the "inserted" flag in all breakpoints. */ + +void +mark_breakpoints_out (struct process_info *proc) +{ + struct raw_breakpoint *raw_bp; + + for (raw_bp = proc->raw_breakpoints; raw_bp != NULL; raw_bp = raw_bp->next) + raw_bp->inserted = 0; +} + +/* Release all breakpoints, but do not try to un-insert them from the + inferior. */ + +void +free_all_breakpoints (struct process_info *proc) +{ + mark_breakpoints_out (proc); + + /* Note: use PROC explicitly instead of deferring to + delete_all_breakpoints --- CURRENT_INFERIOR may already have been + released when we get here. There should be no call to + current_process from here on. */ + while (proc->breakpoints) + delete_breakpoint_1 (proc, proc->breakpoints); +} + +/* Clone an agent expression. */ + +static struct agent_expr * +clone_agent_expr (const struct agent_expr *src_ax) +{ + struct agent_expr *ax; + + ax = XCNEW (struct agent_expr); + ax->length = src_ax->length; + ax->bytes = (unsigned char *) xcalloc (ax->length, 1); + memcpy (ax->bytes, src_ax->bytes, ax->length); + return ax; +} + +/* Deep-copy the contents of one breakpoint to another. */ + +static struct breakpoint * +clone_one_breakpoint (const struct breakpoint *src, ptid_t ptid) +{ + struct breakpoint *dest; + struct raw_breakpoint *dest_raw; + + /* Clone the raw breakpoint. */ + dest_raw = XCNEW (struct raw_breakpoint); + dest_raw->raw_type = src->raw->raw_type; + dest_raw->refcount = src->raw->refcount; + dest_raw->pc = src->raw->pc; + dest_raw->kind = src->raw->kind; + memcpy (dest_raw->old_data, src->raw->old_data, MAX_BREAKPOINT_LEN); + dest_raw->inserted = src->raw->inserted; + + /* Clone the high-level breakpoint. */ + if (is_gdb_breakpoint (src->type)) + { + struct gdb_breakpoint *gdb_dest = XCNEW (struct gdb_breakpoint); + struct point_cond_list *current_cond; + struct point_cond_list *new_cond; + struct point_cond_list *cond_tail = NULL; + struct point_command_list *current_cmd; + struct point_command_list *new_cmd; + struct point_command_list *cmd_tail = NULL; + + /* Clone the condition list. */ + for (current_cond = ((struct gdb_breakpoint *) src)->cond_list; + current_cond != NULL; + current_cond = current_cond->next) + { + new_cond = XCNEW (struct point_cond_list); + new_cond->cond = clone_agent_expr (current_cond->cond); + APPEND_TO_LIST (&gdb_dest->cond_list, new_cond, cond_tail); + } + + /* Clone the command list. */ + for (current_cmd = ((struct gdb_breakpoint *) src)->command_list; + current_cmd != NULL; + current_cmd = current_cmd->next) + { + new_cmd = XCNEW (struct point_command_list); + new_cmd->cmd = clone_agent_expr (current_cmd->cmd); + new_cmd->persistence = current_cmd->persistence; + APPEND_TO_LIST (&gdb_dest->command_list, new_cmd, cmd_tail); + } + + dest = (struct breakpoint *) gdb_dest; + } + else if (src->type == other_breakpoint) + { + struct other_breakpoint *other_dest = XCNEW (struct other_breakpoint); + + other_dest->handler = ((struct other_breakpoint *) src)->handler; + dest = (struct breakpoint *) other_dest; + } + else if (src->type == single_step_breakpoint) + { + struct single_step_breakpoint *ss_dest + = XCNEW (struct single_step_breakpoint); + + dest = (struct breakpoint *) ss_dest; + /* Since single-step breakpoint is thread specific, don't copy + thread id from SRC, use ID instead. */ + ss_dest->ptid = ptid; + } + else + gdb_assert_not_reached ("unhandled breakpoint type"); + + dest->type = src->type; + dest->raw = dest_raw; + + return dest; +} + +/* See mem-break.h. */ + +void +clone_all_breakpoints (struct thread_info *child_thread, + const struct thread_info *parent_thread) +{ + const struct breakpoint *bp; + struct breakpoint *new_bkpt; + struct breakpoint *bkpt_tail = NULL; + struct raw_breakpoint *raw_bkpt_tail = NULL; + struct process_info *child_proc = get_thread_process (child_thread); + struct process_info *parent_proc = get_thread_process (parent_thread); + struct breakpoint **new_list = &child_proc->breakpoints; + struct raw_breakpoint **new_raw_list = &child_proc->raw_breakpoints; + + for (bp = parent_proc->breakpoints; bp != NULL; bp = bp->next) + { + new_bkpt = clone_one_breakpoint (bp, ptid_of (child_thread)); + APPEND_TO_LIST (new_list, new_bkpt, bkpt_tail); + APPEND_TO_LIST (new_raw_list, new_bkpt->raw, raw_bkpt_tail); + } +} diff --git a/gdbserver/notif.c b/gdbserver/notif.c deleted file mode 100644 index e18cecde53b..00000000000 --- a/gdbserver/notif.c +++ /dev/null @@ -1,154 +0,0 @@ -/* Notification to GDB. - Copyright (C) 1989-2020 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 . */ - -/* Async notifications to GDB. When the state of remote target is - changed or something interesting to GDB happened, async - notifications are used to tell GDB. - - Each type of notification is represented by an object - 'struct notif_server', in which there is a queue for events to GDB - represented by 'struct notif_event'. GDBserver writes (by means of - 'write' field) each event in the queue into the buffer and send the - contents in buffer to GDB. The contents in buffer is specified in - RSP. See more in the comments to field 'queue' of - 'struct notif_server'. - - Here is the workflow of sending events and managing queue: - 1. At any time, when something interesting FOO happens, a object - of 'struct notif_event' or its sub-class EVENT is created for FOO. - - 2. Enque EVENT to the 'queue' field of 'struct notif_server' for - FOO and send corresponding notification packet to GDB if EVENT is - the first one. - #1 and #2 are done by function 'notif_push'. - - 3. EVENT is not deque'ed until the ack of FOO from GDB arrives. - Before ack of FOO arrives, FOO happens again, a new object of - EVENT is created and enque EVENT silently. - Once GDB has a chance to ack to FOO, it sends an ack to GDBserver, - and GDBserver repeatedly sends events to GDB and gets ack of FOO, - until queue is empty. Then, GDBserver sends 'OK' to GDB that all - queued notification events are done. - - # 3 is done by function 'handle_notif_ack'. */ - -#include "server.h" -#include "notif.h" - -static struct notif_server *notifs[] = -{ - ¬if_stop, -}; - -/* Write another event or an OK, if there are no more left, to - OWN_BUF. */ - -void -notif_write_event (struct notif_server *notif, char *own_buf) -{ - if (!notif->queue.empty ()) - { - struct notif_event *event = notif->queue.front (); - - notif->write (event, own_buf); - } - else - write_ok (own_buf); -} - -/* Handle the ack in buffer OWN_BUF,and packet length is PACKET_LEN. - Return 1 if the ack is handled, and return 0 if the contents - in OWN_BUF is not a ack. */ - -int -handle_notif_ack (char *own_buf, int packet_len) -{ - size_t i; - struct notif_server *np; - - for (i = 0; i < ARRAY_SIZE (notifs); i++) - { - const char *ack_name = notifs[i]->ack_name; - - if (startswith (own_buf, ack_name) - && packet_len == strlen (ack_name)) - break; - } - - if (i == ARRAY_SIZE (notifs)) - return 0; - - np = notifs[i]; - - /* If we're waiting for GDB to acknowledge a pending event, - consider that done. */ - if (!np->queue.empty ()) - { - struct notif_event *head = np->queue.front (); - np->queue.pop_front (); - - if (remote_debug) - debug_printf ("%s: acking %d\n", np->ack_name, - (int) np->queue.size ()); - - delete head; - } - - notif_write_event (np, own_buf); - - return 1; -} - -/* Put EVENT to the queue of NOTIF. */ - -void -notif_event_enque (struct notif_server *notif, - struct notif_event *event) -{ - notif->queue.push_back (event); - - if (remote_debug) - debug_printf ("pending events: %s %d\n", notif->notif_name, - (int) notif->queue.size ()); - -} - -/* Push one event NEW_EVENT of notification NP into NP->queue. */ - -void -notif_push (struct notif_server *np, struct notif_event *new_event) -{ - bool is_first_event = np->queue.empty (); - - /* Something interesting. Tell GDB about it. */ - notif_event_enque (np, new_event); - - /* If this is the first stop reply in the queue, then inform GDB - about it, by sending a corresponding notification. */ - if (is_first_event) - { - char buf[PBUFSIZ]; - char *p = buf; - - xsnprintf (p, PBUFSIZ, "%s:", np->notif_name); - p += strlen (p); - - np->write (new_event, p); - putpkt_notif (buf); - } -} diff --git a/gdbserver/notif.cc b/gdbserver/notif.cc new file mode 100644 index 00000000000..e18cecde53b --- /dev/null +++ b/gdbserver/notif.cc @@ -0,0 +1,154 @@ +/* Notification to GDB. + Copyright (C) 1989-2020 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 . */ + +/* Async notifications to GDB. When the state of remote target is + changed or something interesting to GDB happened, async + notifications are used to tell GDB. + + Each type of notification is represented by an object + 'struct notif_server', in which there is a queue for events to GDB + represented by 'struct notif_event'. GDBserver writes (by means of + 'write' field) each event in the queue into the buffer and send the + contents in buffer to GDB. The contents in buffer is specified in + RSP. See more in the comments to field 'queue' of + 'struct notif_server'. + + Here is the workflow of sending events and managing queue: + 1. At any time, when something interesting FOO happens, a object + of 'struct notif_event' or its sub-class EVENT is created for FOO. + + 2. Enque EVENT to the 'queue' field of 'struct notif_server' for + FOO and send corresponding notification packet to GDB if EVENT is + the first one. + #1 and #2 are done by function 'notif_push'. + + 3. EVENT is not deque'ed until the ack of FOO from GDB arrives. + Before ack of FOO arrives, FOO happens again, a new object of + EVENT is created and enque EVENT silently. + Once GDB has a chance to ack to FOO, it sends an ack to GDBserver, + and GDBserver repeatedly sends events to GDB and gets ack of FOO, + until queue is empty. Then, GDBserver sends 'OK' to GDB that all + queued notification events are done. + + # 3 is done by function 'handle_notif_ack'. */ + +#include "server.h" +#include "notif.h" + +static struct notif_server *notifs[] = +{ + ¬if_stop, +}; + +/* Write another event or an OK, if there are no more left, to + OWN_BUF. */ + +void +notif_write_event (struct notif_server *notif, char *own_buf) +{ + if (!notif->queue.empty ()) + { + struct notif_event *event = notif->queue.front (); + + notif->write (event, own_buf); + } + else + write_ok (own_buf); +} + +/* Handle the ack in buffer OWN_BUF,and packet length is PACKET_LEN. + Return 1 if the ack is handled, and return 0 if the contents + in OWN_BUF is not a ack. */ + +int +handle_notif_ack (char *own_buf, int packet_len) +{ + size_t i; + struct notif_server *np; + + for (i = 0; i < ARRAY_SIZE (notifs); i++) + { + const char *ack_name = notifs[i]->ack_name; + + if (startswith (own_buf, ack_name) + && packet_len == strlen (ack_name)) + break; + } + + if (i == ARRAY_SIZE (notifs)) + return 0; + + np = notifs[i]; + + /* If we're waiting for GDB to acknowledge a pending event, + consider that done. */ + if (!np->queue.empty ()) + { + struct notif_event *head = np->queue.front (); + np->queue.pop_front (); + + if (remote_debug) + debug_printf ("%s: acking %d\n", np->ack_name, + (int) np->queue.size ()); + + delete head; + } + + notif_write_event (np, own_buf); + + return 1; +} + +/* Put EVENT to the queue of NOTIF. */ + +void +notif_event_enque (struct notif_server *notif, + struct notif_event *event) +{ + notif->queue.push_back (event); + + if (remote_debug) + debug_printf ("pending events: %s %d\n", notif->notif_name, + (int) notif->queue.size ()); + +} + +/* Push one event NEW_EVENT of notification NP into NP->queue. */ + +void +notif_push (struct notif_server *np, struct notif_event *new_event) +{ + bool is_first_event = np->queue.empty (); + + /* Something interesting. Tell GDB about it. */ + notif_event_enque (np, new_event); + + /* If this is the first stop reply in the queue, then inform GDB + about it, by sending a corresponding notification. */ + if (is_first_event) + { + char buf[PBUFSIZ]; + char *p = buf; + + xsnprintf (p, PBUFSIZ, "%s:", np->notif_name); + p += strlen (p); + + np->write (new_event, p); + putpkt_notif (buf); + } +} diff --git a/gdbserver/nto-low.c b/gdbserver/nto-low.c deleted file mode 100644 index b4dea479b9c..00000000000 --- a/gdbserver/nto-low.c +++ /dev/null @@ -1,1026 +0,0 @@ -/* QNX Neutrino specific low level interface, for the remote server - for GDB. - Copyright (C) 2009-2020 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 . */ - - -#include "server.h" -#include "gdbthread.h" -#include "nto-low.h" -#include "hostio.h" -#include "debug.h" - -#include -#include -#include -#include -#include -#include -#include - - -int using_threads = 1; - -const struct target_desc *nto_tdesc; - -static void -nto_trace (const char *fmt, ...) -{ - va_list arg_list; - - if (debug_threads == 0) - return; - fprintf (stderr, "nto:"); - va_start (arg_list, fmt); - vfprintf (stderr, fmt, arg_list); - va_end (arg_list); -} - -#define TRACE nto_trace - -/* Structure holding neutrino specific information about - inferior. */ - -struct nto_inferior -{ - char nto_procfs_path[PATH_MAX]; - int ctl_fd; - pid_t pid; - int exit_signo; /* For tracking exit status. */ -}; - -static struct nto_inferior nto_inferior; - -static void -init_nto_inferior (struct nto_inferior *nto_inferior) -{ - memset (nto_inferior, 0, sizeof (struct nto_inferior)); - nto_inferior->ctl_fd = -1; - nto_inferior->pid = -1; -} - -static void -do_detach (void) -{ - if (nto_inferior.ctl_fd != -1) - { - nto_trace ("Closing fd\n"); - close (nto_inferior.ctl_fd); - init_nto_inferior (&nto_inferior); - } -} - -/* Set current thread. Return 1 on success, 0 otherwise. */ - -static int -nto_set_thread (ptid_t ptid) -{ - int res = 0; - - TRACE ("%s pid: %d tid: %ld\n", __func__, ptid.pid (), - ptid.lwp ()); - if (nto_inferior.ctl_fd != -1 - && ptid != null_ptid - && ptid != minus_one_ptid) - { - pthread_t tid = ptid.lwp (); - - if (EOK == devctl (nto_inferior.ctl_fd, DCMD_PROC_CURTHREAD, &tid, - sizeof (tid), 0)) - res = 1; - else - TRACE ("%s: Error: failed to set current thread\n", __func__); - } - return res; -} - -/* This function will determine all alive threads. Note that we do not list - dead but unjoined threads even though they are still in the process' thread - list. - - NTO_INFERIOR must not be NULL. */ - -static void -nto_find_new_threads (struct nto_inferior *nto_inferior) -{ - pthread_t tid; - - TRACE ("%s pid:%d\n", __func__, nto_inferior->pid); - - if (nto_inferior->ctl_fd == -1) - return; - - for (tid = 1;; ++tid) - { - procfs_status status; - ptid_t ptid; - int err; - - status.tid = tid; - err = devctl (nto_inferior->ctl_fd, DCMD_PROC_TIDSTATUS, &status, - sizeof (status), 0); - - if (err != EOK || status.tid == 0) - break; - - /* All threads in between are gone. */ - while (tid != status.tid || status.state == STATE_DEAD) - { - struct thread_info *ti; - - ptid = ptid_t (nto_inferior->pid, tid, 0); - ti = find_thread_ptid (ptid); - if (ti != NULL) - { - TRACE ("Removing thread %d\n", tid); - remove_thread (ti); - } - if (tid == status.tid) - break; - ++tid; - } - - if (status.state != STATE_DEAD) - { - TRACE ("Adding thread %d\n", tid); - ptid = ptid_t (nto_inferior->pid, tid, 0); - if (!find_thread_ptid (ptid)) - add_thread (ptid, NULL); - } - } -} - -/* Given pid, open procfs path. */ - -static pid_t -do_attach (pid_t pid) -{ - procfs_status status; - struct sigevent event; - - if (nto_inferior.ctl_fd != -1) - { - close (nto_inferior.ctl_fd); - init_nto_inferior (&nto_inferior); - } - xsnprintf (nto_inferior.nto_procfs_path, PATH_MAX - 1, "/proc/%d/as", pid); - nto_inferior.ctl_fd = open (nto_inferior.nto_procfs_path, O_RDWR); - if (nto_inferior.ctl_fd == -1) - { - TRACE ("Failed to open %s\n", nto_inferior.nto_procfs_path); - init_nto_inferior (&nto_inferior); - return -1; - } - if (devctl (nto_inferior.ctl_fd, DCMD_PROC_STOP, &status, sizeof (status), 0) - != EOK) - { - do_detach (); - return -1; - } - nto_inferior.pid = pid; - /* Define a sigevent for process stopped notification. */ - event.sigev_notify = SIGEV_SIGNAL_THREAD; - event.sigev_signo = SIGUSR1; - event.sigev_code = 0; - event.sigev_value.sival_ptr = NULL; - event.sigev_priority = -1; - devctl (nto_inferior.ctl_fd, DCMD_PROC_EVENT, &event, sizeof (event), 0); - - if (devctl (nto_inferior.ctl_fd, DCMD_PROC_STATUS, &status, sizeof (status), - 0) == EOK - && (status.flags & _DEBUG_FLAG_STOPPED)) - { - ptid_t ptid; - struct process_info *proc; - - kill (pid, SIGCONT); - ptid = ptid_t (status.pid, status.tid, 0); - the_low_target.arch_setup (); - proc = add_process (status.pid, 1); - proc->tdesc = nto_tdesc; - TRACE ("Adding thread: pid=%d tid=%ld\n", status.pid, - ptid.lwp ()); - nto_find_new_threads (&nto_inferior); - } - else - { - do_detach (); - return -1; - } - - return pid; -} - -/* Read or write LEN bytes from/to inferior's MEMADDR memory address - into gdbservers's MYADDR buffer. Return number of bytes actually - transfered. */ - -static int -nto_xfer_memory (off_t memaddr, unsigned char *myaddr, int len, - int dowrite) -{ - int nbytes = 0; - - if (lseek (nto_inferior.ctl_fd, memaddr, SEEK_SET) == memaddr) - { - if (dowrite) - nbytes = write (nto_inferior.ctl_fd, myaddr, len); - else - nbytes = read (nto_inferior.ctl_fd, myaddr, len); - if (nbytes < 0) - nbytes = 0; - } - if (nbytes == 0) - { - int e = errno; - TRACE ("Error in %s : errno=%d (%s)\n", __func__, e, safe_strerror (e)); - } - return nbytes; -} - -/* Insert or remove breakpoint or watchpoint at address ADDR. - TYPE can be one of Neutrino breakpoint types. SIZE must be 0 for - inserting the point, -1 for removing it. - - Return 0 on success, 1 otherwise. */ - -static int -nto_breakpoint (CORE_ADDR addr, int type, int size) -{ - procfs_break brk; - - brk.type = type; - brk.addr = addr; - brk.size = size; - if (devctl (nto_inferior.ctl_fd, DCMD_PROC_BREAK, &brk, sizeof (brk), 0) - != EOK) - return 1; - return 0; -} - -/* Read auxiliary vector from inferior's initial stack into gdbserver's - MYADDR buffer, up to LEN bytes. - - Return number of bytes read. */ - -static int -nto_read_auxv_from_initial_stack (CORE_ADDR initial_stack, - unsigned char *myaddr, - unsigned int len) -{ - int data_ofs = 0; - int anint; - unsigned int len_read = 0; - - /* Skip over argc, argv and envp... Comment from ldd.c: - - The startup frame is set-up so that we have: - auxv - NULL - ... - envp2 - envp1 <----- void *frame + (argc + 2) * sizeof(char *) - NULL - ... - argv2 - argv1 - argc <------ void * frame - - On entry to ldd, frame gives the address of argc on the stack. */ - if (nto_xfer_memory (initial_stack, (unsigned char *)&anint, - sizeof (anint), 0) != sizeof (anint)) - return 0; - - /* Size of pointer is assumed to be 4 bytes (32 bit arch. ) */ - data_ofs += (anint + 2) * sizeof (void *); /* + 2 comes from argc itself and - NULL terminating pointer in - argv. */ - - /* Now loop over env table: */ - while (nto_xfer_memory (initial_stack + data_ofs, - (unsigned char *)&anint, sizeof (anint), 0) - == sizeof (anint)) - { - data_ofs += sizeof (anint); - if (anint == 0) - break; - } - initial_stack += data_ofs; - - memset (myaddr, 0, len); - while (len_read <= len - sizeof (auxv_t)) - { - auxv_t *auxv = (auxv_t *)myaddr; - - /* Search backwards until we have read AT_PHDR (num. 3), - AT_PHENT (num 4), AT_PHNUM (num 5) */ - if (nto_xfer_memory (initial_stack, (unsigned char *)auxv, - sizeof (auxv_t), 0) == sizeof (auxv_t)) - { - if (auxv->a_type != AT_NULL) - { - auxv++; - len_read += sizeof (auxv_t); - } - if (auxv->a_type == AT_PHNUM) /* That's all we need. */ - break; - initial_stack += sizeof (auxv_t); - } - else - break; - } - TRACE ("auxv: len_read: %d\n", len_read); - return len_read; -} - -/* Start inferior specified by PROGRAM, using PROGRAM_ARGS as its - arguments. */ - -static int -nto_create_inferior (const char *program, - const std::vector &program_args) -{ - struct inheritance inherit; - pid_t pid; - sigset_t set; - std::string str_program_args = stringify_argv (program_args); - - TRACE ("%s %s\n", __func__, program); - /* Clear any pending SIGUSR1's but keep the behavior the same. */ - signal (SIGUSR1, signal (SIGUSR1, SIG_IGN)); - - sigemptyset (&set); - sigaddset (&set, SIGUSR1); - sigprocmask (SIG_UNBLOCK, &set, NULL); - - memset (&inherit, 0, sizeof (inherit)); - inherit.flags |= SPAWN_SETGROUP | SPAWN_HOLD; - inherit.pgroup = SPAWN_NEWPGROUP; - pid = spawnp (program, 0, NULL, &inherit, - (char *) str_program_args.c_str (), 0); - sigprocmask (SIG_BLOCK, &set, NULL); - - if (pid == -1) - return -1; - - if (do_attach (pid) != pid) - return -1; - - return pid; -} - -/* Attach to process PID. */ - -static int -nto_attach (unsigned long pid) -{ - TRACE ("%s %ld\n", __func__, pid); - if (do_attach (pid) != pid) - error ("Unable to attach to %ld\n", pid); - return 0; -} - -/* Send signal to process PID. */ - -static int -nto_kill (process_info *proc) -{ - int pid = proc->pid; - - TRACE ("%s %d\n", __func__, pid); - kill (pid, SIGKILL); - do_detach (); - return 0; -} - -/* Detach from process PID. */ - -static int -nto_detach (process_info *proc) -{ - TRACE ("%s %d\n", __func__, proc->pid); - do_detach (); - return 0; -} - -static void -nto_mourn (struct process_info *process) -{ - remove_process (process); -} - -/* Check if the given thread is alive. - - Return 1 if alive, 0 otherwise. */ - -static int -nto_thread_alive (ptid_t ptid) -{ - int res; - - TRACE ("%s pid:%d tid:%d\n", __func__, ptid.pid (), - ptid.lwp ()); - if (SignalKill (0, ptid.pid (), ptid.lwp (), - 0, 0, 0) == -1) - res = 0; - else - res = 1; - TRACE ("%s: %s\n", __func__, res ? "yes" : "no"); - return res; -} - -/* Resume inferior's execution. */ - -static void -nto_resume (struct thread_resume *resume_info, size_t n) -{ - /* We can only work in all-stop mode. */ - procfs_status status; - procfs_run run; - int err; - - TRACE ("%s\n", __func__); - /* Workaround for aliasing rules violation. */ - sigset_t *run_fault = (sigset_t *) (void *) &run.fault; - - nto_set_thread (resume_info->thread); - - run.flags = _DEBUG_RUN_FAULT | _DEBUG_RUN_TRACE; - if (resume_info->kind == resume_step) - run.flags |= _DEBUG_RUN_STEP; - run.flags |= _DEBUG_RUN_ARM; - - sigemptyset (run_fault); - sigaddset (run_fault, FLTBPT); - sigaddset (run_fault, FLTTRACE); - sigaddset (run_fault, FLTILL); - sigaddset (run_fault, FLTPRIV); - sigaddset (run_fault, FLTBOUNDS); - sigaddset (run_fault, FLTIOVF); - sigaddset (run_fault, FLTIZDIV); - sigaddset (run_fault, FLTFPE); - sigaddset (run_fault, FLTPAGE); - sigaddset (run_fault, FLTSTACK); - sigaddset (run_fault, FLTACCESS); - - sigemptyset (&run.trace); - if (resume_info->sig) - { - int signal_to_pass; - - devctl (nto_inferior.ctl_fd, DCMD_PROC_STATUS, &status, sizeof (status), - 0); - signal_to_pass = resume_info->sig; - if (status.why & (_DEBUG_WHY_SIGNALLED | _DEBUG_WHY_FAULTED)) - { - if (signal_to_pass != status.info.si_signo) - { - kill (status.pid, signal_to_pass); - run.flags |= _DEBUG_RUN_CLRFLT | _DEBUG_RUN_CLRSIG; - } - else /* Let it kill the program without telling us. */ - sigdelset (&run.trace, signal_to_pass); - } - } - else - run.flags |= _DEBUG_RUN_CLRSIG | _DEBUG_RUN_CLRFLT; - - sigfillset (&run.trace); - - regcache_invalidate (); - - err = devctl (nto_inferior.ctl_fd, DCMD_PROC_RUN, &run, sizeof (run), 0); - if (err != EOK) - TRACE ("Error: %d \"%s\"\n", err, safe_strerror (err)); -} - -/* Wait for inferior's event. - - Return ptid of thread that caused the event. */ - -static ptid_t -nto_wait (ptid_t ptid, - struct target_waitstatus *ourstatus, int target_options) -{ - sigset_t set; - siginfo_t info; - procfs_status status; - const int trace_mask = (_DEBUG_FLAG_TRACE_EXEC | _DEBUG_FLAG_TRACE_RD - | _DEBUG_FLAG_TRACE_WR | _DEBUG_FLAG_TRACE_MODIFY); - - TRACE ("%s\n", __func__); - - ourstatus->kind = TARGET_WAITKIND_SPURIOUS; - - sigemptyset (&set); - sigaddset (&set, SIGUSR1); - - devctl (nto_inferior.ctl_fd, DCMD_PROC_STATUS, &status, sizeof (status), 0); - while (!(status.flags & _DEBUG_FLAG_ISTOP)) - { - sigwaitinfo (&set, &info); - devctl (nto_inferior.ctl_fd, DCMD_PROC_STATUS, &status, sizeof (status), - 0); - } - nto_find_new_threads (&nto_inferior); - - if (status.flags & _DEBUG_FLAG_SSTEP) - { - TRACE ("SSTEP\n"); - ourstatus->kind = TARGET_WAITKIND_STOPPED; - ourstatus->value.sig = GDB_SIGNAL_TRAP; - } - /* Was it a breakpoint? */ - else if (status.flags & trace_mask) - { - TRACE ("STOPPED\n"); - ourstatus->kind = TARGET_WAITKIND_STOPPED; - ourstatus->value.sig = GDB_SIGNAL_TRAP; - } - else if (status.flags & _DEBUG_FLAG_ISTOP) - { - TRACE ("ISTOP\n"); - switch (status.why) - { - case _DEBUG_WHY_SIGNALLED: - TRACE (" SIGNALLED\n"); - ourstatus->kind = TARGET_WAITKIND_STOPPED; - ourstatus->value.sig = - gdb_signal_from_host (status.info.si_signo); - nto_inferior.exit_signo = ourstatus->value.sig; - break; - case _DEBUG_WHY_FAULTED: - TRACE (" FAULTED\n"); - ourstatus->kind = TARGET_WAITKIND_STOPPED; - if (status.info.si_signo == SIGTRAP) - { - ourstatus->value.sig = 0; - nto_inferior.exit_signo = 0; - } - else - { - ourstatus->value.sig = - gdb_signal_from_host (status.info.si_signo); - nto_inferior.exit_signo = ourstatus->value.sig; - } - break; - - case _DEBUG_WHY_TERMINATED: - { - int waitval = 0; - - TRACE (" TERMINATED\n"); - waitpid (ptid.pid (), &waitval, WNOHANG); - if (nto_inferior.exit_signo) - { - /* Abnormal death. */ - ourstatus->kind = TARGET_WAITKIND_SIGNALLED; - ourstatus->value.sig = nto_inferior.exit_signo; - } - else - { - /* Normal death. */ - ourstatus->kind = TARGET_WAITKIND_EXITED; - ourstatus->value.integer = WEXITSTATUS (waitval); - } - nto_inferior.exit_signo = 0; - break; - } - - case _DEBUG_WHY_REQUESTED: - TRACE ("REQUESTED\n"); - /* We are assuming a requested stop is due to a SIGINT. */ - ourstatus->kind = TARGET_WAITKIND_STOPPED; - ourstatus->value.sig = GDB_SIGNAL_INT; - nto_inferior.exit_signo = 0; - break; - } - } - - return ptid_t (status.pid, status.tid, 0); -} - -/* Fetch inferior's registers for currently selected thread (CURRENT_INFERIOR). - If REGNO is -1, fetch all registers, or REGNO register only otherwise. */ - -static void -nto_fetch_registers (struct regcache *regcache, int regno) -{ - int regsize; - procfs_greg greg; - - TRACE ("%s (regno=%d)\n", __func__, regno); - if (regno >= the_low_target.num_regs) - return; - - if (current_thread == NULL) - { - TRACE ("current_thread is NULL\n"); - return; - } - ptid_t ptid = ptid_of (current_thread); - if (!nto_set_thread (ptid)) - return; - - if (devctl (nto_inferior.ctl_fd, DCMD_PROC_GETGREG, &greg, sizeof (greg), - ®size) == EOK) - { - if (regno == -1) /* All registers. */ - { - for (regno = 0; regno != the_low_target.num_regs; ++regno) - { - const unsigned int registeroffset - = the_low_target.register_offset (regno); - supply_register (regcache, regno, - ((char *)&greg) + registeroffset); - } - } - else - { - const unsigned int registeroffset - = the_low_target.register_offset (regno); - if (registeroffset == -1) - return; - supply_register (regcache, regno, ((char *)&greg) + registeroffset); - } - } - else - TRACE ("ERROR reading registers from inferior.\n"); -} - -/* Store registers for currently selected thread (CURRENT_INFERIOR). - We always store all registers, regardless of REGNO. */ - -static void -nto_store_registers (struct regcache *regcache, int regno) -{ - procfs_greg greg; - int err; - - TRACE ("%s (regno:%d)\n", __func__, regno); - - if (current_thread == NULL) - { - TRACE ("current_thread is NULL\n"); - return; - } - ptid_t ptid = ptid_of (current_thread); - if (!nto_set_thread (ptid)) - return; - - memset (&greg, 0, sizeof (greg)); - for (regno = 0; regno != the_low_target.num_regs; ++regno) - { - const unsigned int regoffset - = the_low_target.register_offset (regno); - collect_register (regcache, regno, ((char *)&greg) + regoffset); - } - err = devctl (nto_inferior.ctl_fd, DCMD_PROC_SETGREG, &greg, sizeof (greg), - 0); - if (err != EOK) - TRACE ("Error: setting registers.\n"); -} - -/* Read LEN bytes from inferior's memory address MEMADDR into - gdbserver's MYADDR buffer. - - Return 0 on success -1 otherwise. */ - -static int -nto_read_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) -{ - TRACE ("%s memaddr:0x%08lx, len:%d\n", __func__, memaddr, len); - - if (nto_xfer_memory (memaddr, myaddr, len, 0) != len) - { - TRACE ("Failed to read memory\n"); - return -1; - } - - return 0; -} - -/* Write LEN bytes from gdbserver's buffer MYADDR into inferior's - memory at address MEMADDR. - - Return 0 on success -1 otherwise. */ - -static int -nto_write_memory (CORE_ADDR memaddr, const unsigned char *myaddr, int len) -{ - int len_written; - - TRACE ("%s memaddr: 0x%08llx len: %d\n", __func__, memaddr, len); - if ((len_written = nto_xfer_memory (memaddr, (unsigned char *)myaddr, len, - 1)) - != len) - { - TRACE ("Wanted to write: %d but written: %d\n", len, len_written); - return -1; - } - - return 0; -} - -/* Stop inferior. We always stop all threads. */ - -static void -nto_request_interrupt (void) -{ - TRACE ("%s\n", __func__); - nto_set_thread (ptid_t (nto_inferior.pid, 1, 0)); - if (EOK != devctl (nto_inferior.ctl_fd, DCMD_PROC_STOP, NULL, 0, 0)) - TRACE ("Error stopping inferior.\n"); -} - -/* Read auxiliary vector from inferior's memory into gdbserver's buffer - MYADDR. We always read whole auxv. - - Return number of bytes stored in MYADDR buffer, 0 if OFFSET > 0 - or -1 on error. */ - -static int -nto_read_auxv (CORE_ADDR offset, unsigned char *myaddr, unsigned int len) -{ - int err; - CORE_ADDR initial_stack; - procfs_info procinfo; - - TRACE ("%s\n", __func__); - if (offset > 0) - return 0; - - err = devctl (nto_inferior.ctl_fd, DCMD_PROC_INFO, &procinfo, - sizeof procinfo, 0); - if (err != EOK) - return -1; - - initial_stack = procinfo.initial_stack; - - return nto_read_auxv_from_initial_stack (initial_stack, myaddr, len); -} - -static int -nto_supports_z_point_type (char z_type) -{ - switch (z_type) - { - case Z_PACKET_SW_BP: - case Z_PACKET_HW_BP: - case Z_PACKET_WRITE_WP: - case Z_PACKET_READ_WP: - case Z_PACKET_ACCESS_WP: - return 1; - default: - return 0; - } -} - -/* Insert {break/watch}point at address ADDR. SIZE is not used. */ - -static int -nto_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, - int size, struct raw_breakpoint *bp) -{ - int wtype = _DEBUG_BREAK_HW; /* Always request HW. */ - - TRACE ("%s type:%c addr: 0x%08lx len:%d\n", __func__, (int)type, addr, size); - switch (type) - { - case raw_bkpt_type_sw: - wtype = _DEBUG_BREAK_EXEC; - break; - case raw_bkpt_type_hw: - wtype |= _DEBUG_BREAK_EXEC; - break; - case raw_bkpt_type_write_wp: - wtype |= _DEBUG_BREAK_RW; - break; - case raw_bkpt_type_read_wp: - wtype |= _DEBUG_BREAK_RD; - break; - case raw_bkpt_type_access_wp: - wtype |= _DEBUG_BREAK_RW; - break; - default: - return 1; /* Not supported. */ - } - return nto_breakpoint (addr, wtype, 0); -} - -/* Remove {break/watch}point at address ADDR. SIZE is not used. */ - -static int -nto_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, - int size, struct raw_breakpoint *bp) -{ - int wtype = _DEBUG_BREAK_HW; /* Always request HW. */ - - TRACE ("%s type:%c addr: 0x%08lx len:%d\n", __func__, (int)type, addr, size); - switch (type) - { - case raw_bkpt_type_sw: - wtype = _DEBUG_BREAK_EXEC; - break; - case raw_bkpt_type_hw: - wtype |= _DEBUG_BREAK_EXEC; - break; - case raw_bkpt_type_write_wp: - wtype |= _DEBUG_BREAK_RW; - break; - case raw_bkpt_type_read_wp: - wtype |= _DEBUG_BREAK_RD; - break; - case raw_bkpt_type_access_wp: - wtype |= _DEBUG_BREAK_RW; - break; - default: - return 1; /* Not supported. */ - } - return nto_breakpoint (addr, wtype, -1); -} - -/* Check if the reason of stop for current thread (CURRENT_INFERIOR) is - a watchpoint. - - Return 1 if stopped by watchpoint, 0 otherwise. */ - -static int -nto_stopped_by_watchpoint (void) -{ - int ret = 0; - - TRACE ("%s\n", __func__); - if (nto_inferior.ctl_fd != -1 && current_thread != NULL) - { - ptid_t ptid = ptid_of (current_thread); - if (nto_set_thread (ptid)) - { - const int watchmask = _DEBUG_FLAG_TRACE_RD | _DEBUG_FLAG_TRACE_WR - | _DEBUG_FLAG_TRACE_MODIFY; - procfs_status status; - int err; - - err = devctl (nto_inferior.ctl_fd, DCMD_PROC_STATUS, &status, - sizeof (status), 0); - if (err == EOK && (status.flags & watchmask)) - ret = 1; - } - } - TRACE ("%s: %s\n", __func__, ret ? "yes" : "no"); - return ret; -} - -/* Get instruction pointer for CURRENT_INFERIOR thread. - - Return inferior's instruction pointer value, or 0 on error. */ - -static CORE_ADDR -nto_stopped_data_address (void) -{ - CORE_ADDR ret = (CORE_ADDR)0; - - TRACE ("%s\n", __func__); - if (nto_inferior.ctl_fd != -1 && current_thread != NULL) - { - ptid_t ptid = ptid_of (current_thread); - - if (nto_set_thread (ptid)) - { - procfs_status status; - - if (devctl (nto_inferior.ctl_fd, DCMD_PROC_STATUS, &status, - sizeof (status), 0) == EOK) - ret = status.ip; - } - } - TRACE ("%s: 0x%08lx\n", __func__, ret); - return ret; -} - -/* We do not currently support non-stop. */ - -static int -nto_supports_non_stop (void) -{ - TRACE ("%s\n", __func__); - return 0; -} - -/* Implementation of the target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -nto_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = the_low_target.breakpoint_len; - return the_low_target.breakpoint; -} - - -static process_stratum_target nto_target_ops = { - nto_create_inferior, - NULL, /* post_create_inferior */ - nto_attach, - nto_kill, - nto_detach, - nto_mourn, - NULL, /* nto_join */ - nto_thread_alive, - nto_resume, - nto_wait, - nto_fetch_registers, - nto_store_registers, - NULL, /* prepare_to_access_memory */ - NULL, /* done_accessing_memory */ - nto_read_memory, - nto_write_memory, - NULL, /* nto_look_up_symbols */ - nto_request_interrupt, - nto_read_auxv, - nto_supports_z_point_type, - nto_insert_point, - nto_remove_point, - NULL, /* stopped_by_sw_breakpoint */ - NULL, /* supports_stopped_by_sw_breakpoint */ - NULL, /* stopped_by_hw_breakpoint */ - NULL, /* supports_stopped_by_hw_breakpoint */ - target_can_do_hardware_single_step, - nto_stopped_by_watchpoint, - nto_stopped_data_address, - NULL, /* nto_read_offsets */ - NULL, /* thread_db_set_tls_address */ - hostio_last_error_from_errno, - NULL, /* nto_qxfer_osdata */ - NULL, /* xfer_siginfo */ - nto_supports_non_stop, - NULL, /* async */ - NULL, /* start_non_stop */ - NULL, /* supports_multi_process */ - NULL, /* supports_fork_events */ - NULL, /* supports_vfork_events */ - NULL, /* supports_exec_events */ - NULL, /* handle_new_gdb_connection */ - NULL, /* handle_monitor_command */ - NULL, /* core_of_thread */ - NULL, /* read_loadmap */ - NULL, /* process_qsupported */ - NULL, /* supports_tracepoints */ - NULL, /* read_pc */ - NULL, /* write_pc */ - NULL, /* thread_stopped */ - NULL, /* get_tib_address */ - NULL, /* pause_all */ - NULL, /* unpause_all */ - NULL, /* stabilize_threads */ - NULL, /* install_fast_tracepoint_jump_pad */ - NULL, /* emit_ops */ - NULL, /* supports_disable_randomization */ - NULL, /* get_min_fast_tracepoint_insn_len */ - NULL, /* qxfer_libraries_svr4 */ - NULL, /* support_agent */ - NULL, /* enable_btrace */ - NULL, /* disable_btrace */ - NULL, /* read_btrace */ - NULL, /* read_btrace_conf */ - NULL, /* supports_range_stepping */ - NULL, /* pid_to_exec_file */ - NULL, /* multifs_open */ - NULL, /* multifs_unlink */ - NULL, /* multifs_readlink */ - NULL, /* breakpoint_kind_from_pc */ - nto_sw_breakpoint_from_kind, -}; - - -/* Global function called by server.c. Initializes QNX Neutrino - gdbserver. */ - -void -initialize_low (void) -{ - sigset_t set; - - TRACE ("%s\n", __func__); - set_target_ops (&nto_target_ops); - - /* We use SIGUSR1 to gain control after we block waiting for a process. - We use sigwaitevent to wait. */ - sigemptyset (&set); - sigaddset (&set, SIGUSR1); - sigprocmask (SIG_BLOCK, &set, NULL); -} - diff --git a/gdbserver/nto-low.cc b/gdbserver/nto-low.cc new file mode 100644 index 00000000000..b4dea479b9c --- /dev/null +++ b/gdbserver/nto-low.cc @@ -0,0 +1,1026 @@ +/* QNX Neutrino specific low level interface, for the remote server + for GDB. + Copyright (C) 2009-2020 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 . */ + + +#include "server.h" +#include "gdbthread.h" +#include "nto-low.h" +#include "hostio.h" +#include "debug.h" + +#include +#include +#include +#include +#include +#include +#include + + +int using_threads = 1; + +const struct target_desc *nto_tdesc; + +static void +nto_trace (const char *fmt, ...) +{ + va_list arg_list; + + if (debug_threads == 0) + return; + fprintf (stderr, "nto:"); + va_start (arg_list, fmt); + vfprintf (stderr, fmt, arg_list); + va_end (arg_list); +} + +#define TRACE nto_trace + +/* Structure holding neutrino specific information about + inferior. */ + +struct nto_inferior +{ + char nto_procfs_path[PATH_MAX]; + int ctl_fd; + pid_t pid; + int exit_signo; /* For tracking exit status. */ +}; + +static struct nto_inferior nto_inferior; + +static void +init_nto_inferior (struct nto_inferior *nto_inferior) +{ + memset (nto_inferior, 0, sizeof (struct nto_inferior)); + nto_inferior->ctl_fd = -1; + nto_inferior->pid = -1; +} + +static void +do_detach (void) +{ + if (nto_inferior.ctl_fd != -1) + { + nto_trace ("Closing fd\n"); + close (nto_inferior.ctl_fd); + init_nto_inferior (&nto_inferior); + } +} + +/* Set current thread. Return 1 on success, 0 otherwise. */ + +static int +nto_set_thread (ptid_t ptid) +{ + int res = 0; + + TRACE ("%s pid: %d tid: %ld\n", __func__, ptid.pid (), + ptid.lwp ()); + if (nto_inferior.ctl_fd != -1 + && ptid != null_ptid + && ptid != minus_one_ptid) + { + pthread_t tid = ptid.lwp (); + + if (EOK == devctl (nto_inferior.ctl_fd, DCMD_PROC_CURTHREAD, &tid, + sizeof (tid), 0)) + res = 1; + else + TRACE ("%s: Error: failed to set current thread\n", __func__); + } + return res; +} + +/* This function will determine all alive threads. Note that we do not list + dead but unjoined threads even though they are still in the process' thread + list. + + NTO_INFERIOR must not be NULL. */ + +static void +nto_find_new_threads (struct nto_inferior *nto_inferior) +{ + pthread_t tid; + + TRACE ("%s pid:%d\n", __func__, nto_inferior->pid); + + if (nto_inferior->ctl_fd == -1) + return; + + for (tid = 1;; ++tid) + { + procfs_status status; + ptid_t ptid; + int err; + + status.tid = tid; + err = devctl (nto_inferior->ctl_fd, DCMD_PROC_TIDSTATUS, &status, + sizeof (status), 0); + + if (err != EOK || status.tid == 0) + break; + + /* All threads in between are gone. */ + while (tid != status.tid || status.state == STATE_DEAD) + { + struct thread_info *ti; + + ptid = ptid_t (nto_inferior->pid, tid, 0); + ti = find_thread_ptid (ptid); + if (ti != NULL) + { + TRACE ("Removing thread %d\n", tid); + remove_thread (ti); + } + if (tid == status.tid) + break; + ++tid; + } + + if (status.state != STATE_DEAD) + { + TRACE ("Adding thread %d\n", tid); + ptid = ptid_t (nto_inferior->pid, tid, 0); + if (!find_thread_ptid (ptid)) + add_thread (ptid, NULL); + } + } +} + +/* Given pid, open procfs path. */ + +static pid_t +do_attach (pid_t pid) +{ + procfs_status status; + struct sigevent event; + + if (nto_inferior.ctl_fd != -1) + { + close (nto_inferior.ctl_fd); + init_nto_inferior (&nto_inferior); + } + xsnprintf (nto_inferior.nto_procfs_path, PATH_MAX - 1, "/proc/%d/as", pid); + nto_inferior.ctl_fd = open (nto_inferior.nto_procfs_path, O_RDWR); + if (nto_inferior.ctl_fd == -1) + { + TRACE ("Failed to open %s\n", nto_inferior.nto_procfs_path); + init_nto_inferior (&nto_inferior); + return -1; + } + if (devctl (nto_inferior.ctl_fd, DCMD_PROC_STOP, &status, sizeof (status), 0) + != EOK) + { + do_detach (); + return -1; + } + nto_inferior.pid = pid; + /* Define a sigevent for process stopped notification. */ + event.sigev_notify = SIGEV_SIGNAL_THREAD; + event.sigev_signo = SIGUSR1; + event.sigev_code = 0; + event.sigev_value.sival_ptr = NULL; + event.sigev_priority = -1; + devctl (nto_inferior.ctl_fd, DCMD_PROC_EVENT, &event, sizeof (event), 0); + + if (devctl (nto_inferior.ctl_fd, DCMD_PROC_STATUS, &status, sizeof (status), + 0) == EOK + && (status.flags & _DEBUG_FLAG_STOPPED)) + { + ptid_t ptid; + struct process_info *proc; + + kill (pid, SIGCONT); + ptid = ptid_t (status.pid, status.tid, 0); + the_low_target.arch_setup (); + proc = add_process (status.pid, 1); + proc->tdesc = nto_tdesc; + TRACE ("Adding thread: pid=%d tid=%ld\n", status.pid, + ptid.lwp ()); + nto_find_new_threads (&nto_inferior); + } + else + { + do_detach (); + return -1; + } + + return pid; +} + +/* Read or write LEN bytes from/to inferior's MEMADDR memory address + into gdbservers's MYADDR buffer. Return number of bytes actually + transfered. */ + +static int +nto_xfer_memory (off_t memaddr, unsigned char *myaddr, int len, + int dowrite) +{ + int nbytes = 0; + + if (lseek (nto_inferior.ctl_fd, memaddr, SEEK_SET) == memaddr) + { + if (dowrite) + nbytes = write (nto_inferior.ctl_fd, myaddr, len); + else + nbytes = read (nto_inferior.ctl_fd, myaddr, len); + if (nbytes < 0) + nbytes = 0; + } + if (nbytes == 0) + { + int e = errno; + TRACE ("Error in %s : errno=%d (%s)\n", __func__, e, safe_strerror (e)); + } + return nbytes; +} + +/* Insert or remove breakpoint or watchpoint at address ADDR. + TYPE can be one of Neutrino breakpoint types. SIZE must be 0 for + inserting the point, -1 for removing it. + + Return 0 on success, 1 otherwise. */ + +static int +nto_breakpoint (CORE_ADDR addr, int type, int size) +{ + procfs_break brk; + + brk.type = type; + brk.addr = addr; + brk.size = size; + if (devctl (nto_inferior.ctl_fd, DCMD_PROC_BREAK, &brk, sizeof (brk), 0) + != EOK) + return 1; + return 0; +} + +/* Read auxiliary vector from inferior's initial stack into gdbserver's + MYADDR buffer, up to LEN bytes. + + Return number of bytes read. */ + +static int +nto_read_auxv_from_initial_stack (CORE_ADDR initial_stack, + unsigned char *myaddr, + unsigned int len) +{ + int data_ofs = 0; + int anint; + unsigned int len_read = 0; + + /* Skip over argc, argv and envp... Comment from ldd.c: + + The startup frame is set-up so that we have: + auxv + NULL + ... + envp2 + envp1 <----- void *frame + (argc + 2) * sizeof(char *) + NULL + ... + argv2 + argv1 + argc <------ void * frame + + On entry to ldd, frame gives the address of argc on the stack. */ + if (nto_xfer_memory (initial_stack, (unsigned char *)&anint, + sizeof (anint), 0) != sizeof (anint)) + return 0; + + /* Size of pointer is assumed to be 4 bytes (32 bit arch. ) */ + data_ofs += (anint + 2) * sizeof (void *); /* + 2 comes from argc itself and + NULL terminating pointer in + argv. */ + + /* Now loop over env table: */ + while (nto_xfer_memory (initial_stack + data_ofs, + (unsigned char *)&anint, sizeof (anint), 0) + == sizeof (anint)) + { + data_ofs += sizeof (anint); + if (anint == 0) + break; + } + initial_stack += data_ofs; + + memset (myaddr, 0, len); + while (len_read <= len - sizeof (auxv_t)) + { + auxv_t *auxv = (auxv_t *)myaddr; + + /* Search backwards until we have read AT_PHDR (num. 3), + AT_PHENT (num 4), AT_PHNUM (num 5) */ + if (nto_xfer_memory (initial_stack, (unsigned char *)auxv, + sizeof (auxv_t), 0) == sizeof (auxv_t)) + { + if (auxv->a_type != AT_NULL) + { + auxv++; + len_read += sizeof (auxv_t); + } + if (auxv->a_type == AT_PHNUM) /* That's all we need. */ + break; + initial_stack += sizeof (auxv_t); + } + else + break; + } + TRACE ("auxv: len_read: %d\n", len_read); + return len_read; +} + +/* Start inferior specified by PROGRAM, using PROGRAM_ARGS as its + arguments. */ + +static int +nto_create_inferior (const char *program, + const std::vector &program_args) +{ + struct inheritance inherit; + pid_t pid; + sigset_t set; + std::string str_program_args = stringify_argv (program_args); + + TRACE ("%s %s\n", __func__, program); + /* Clear any pending SIGUSR1's but keep the behavior the same. */ + signal (SIGUSR1, signal (SIGUSR1, SIG_IGN)); + + sigemptyset (&set); + sigaddset (&set, SIGUSR1); + sigprocmask (SIG_UNBLOCK, &set, NULL); + + memset (&inherit, 0, sizeof (inherit)); + inherit.flags |= SPAWN_SETGROUP | SPAWN_HOLD; + inherit.pgroup = SPAWN_NEWPGROUP; + pid = spawnp (program, 0, NULL, &inherit, + (char *) str_program_args.c_str (), 0); + sigprocmask (SIG_BLOCK, &set, NULL); + + if (pid == -1) + return -1; + + if (do_attach (pid) != pid) + return -1; + + return pid; +} + +/* Attach to process PID. */ + +static int +nto_attach (unsigned long pid) +{ + TRACE ("%s %ld\n", __func__, pid); + if (do_attach (pid) != pid) + error ("Unable to attach to %ld\n", pid); + return 0; +} + +/* Send signal to process PID. */ + +static int +nto_kill (process_info *proc) +{ + int pid = proc->pid; + + TRACE ("%s %d\n", __func__, pid); + kill (pid, SIGKILL); + do_detach (); + return 0; +} + +/* Detach from process PID. */ + +static int +nto_detach (process_info *proc) +{ + TRACE ("%s %d\n", __func__, proc->pid); + do_detach (); + return 0; +} + +static void +nto_mourn (struct process_info *process) +{ + remove_process (process); +} + +/* Check if the given thread is alive. + + Return 1 if alive, 0 otherwise. */ + +static int +nto_thread_alive (ptid_t ptid) +{ + int res; + + TRACE ("%s pid:%d tid:%d\n", __func__, ptid.pid (), + ptid.lwp ()); + if (SignalKill (0, ptid.pid (), ptid.lwp (), + 0, 0, 0) == -1) + res = 0; + else + res = 1; + TRACE ("%s: %s\n", __func__, res ? "yes" : "no"); + return res; +} + +/* Resume inferior's execution. */ + +static void +nto_resume (struct thread_resume *resume_info, size_t n) +{ + /* We can only work in all-stop mode. */ + procfs_status status; + procfs_run run; + int err; + + TRACE ("%s\n", __func__); + /* Workaround for aliasing rules violation. */ + sigset_t *run_fault = (sigset_t *) (void *) &run.fault; + + nto_set_thread (resume_info->thread); + + run.flags = _DEBUG_RUN_FAULT | _DEBUG_RUN_TRACE; + if (resume_info->kind == resume_step) + run.flags |= _DEBUG_RUN_STEP; + run.flags |= _DEBUG_RUN_ARM; + + sigemptyset (run_fault); + sigaddset (run_fault, FLTBPT); + sigaddset (run_fault, FLTTRACE); + sigaddset (run_fault, FLTILL); + sigaddset (run_fault, FLTPRIV); + sigaddset (run_fault, FLTBOUNDS); + sigaddset (run_fault, FLTIOVF); + sigaddset (run_fault, FLTIZDIV); + sigaddset (run_fault, FLTFPE); + sigaddset (run_fault, FLTPAGE); + sigaddset (run_fault, FLTSTACK); + sigaddset (run_fault, FLTACCESS); + + sigemptyset (&run.trace); + if (resume_info->sig) + { + int signal_to_pass; + + devctl (nto_inferior.ctl_fd, DCMD_PROC_STATUS, &status, sizeof (status), + 0); + signal_to_pass = resume_info->sig; + if (status.why & (_DEBUG_WHY_SIGNALLED | _DEBUG_WHY_FAULTED)) + { + if (signal_to_pass != status.info.si_signo) + { + kill (status.pid, signal_to_pass); + run.flags |= _DEBUG_RUN_CLRFLT | _DEBUG_RUN_CLRSIG; + } + else /* Let it kill the program without telling us. */ + sigdelset (&run.trace, signal_to_pass); + } + } + else + run.flags |= _DEBUG_RUN_CLRSIG | _DEBUG_RUN_CLRFLT; + + sigfillset (&run.trace); + + regcache_invalidate (); + + err = devctl (nto_inferior.ctl_fd, DCMD_PROC_RUN, &run, sizeof (run), 0); + if (err != EOK) + TRACE ("Error: %d \"%s\"\n", err, safe_strerror (err)); +} + +/* Wait for inferior's event. + + Return ptid of thread that caused the event. */ + +static ptid_t +nto_wait (ptid_t ptid, + struct target_waitstatus *ourstatus, int target_options) +{ + sigset_t set; + siginfo_t info; + procfs_status status; + const int trace_mask = (_DEBUG_FLAG_TRACE_EXEC | _DEBUG_FLAG_TRACE_RD + | _DEBUG_FLAG_TRACE_WR | _DEBUG_FLAG_TRACE_MODIFY); + + TRACE ("%s\n", __func__); + + ourstatus->kind = TARGET_WAITKIND_SPURIOUS; + + sigemptyset (&set); + sigaddset (&set, SIGUSR1); + + devctl (nto_inferior.ctl_fd, DCMD_PROC_STATUS, &status, sizeof (status), 0); + while (!(status.flags & _DEBUG_FLAG_ISTOP)) + { + sigwaitinfo (&set, &info); + devctl (nto_inferior.ctl_fd, DCMD_PROC_STATUS, &status, sizeof (status), + 0); + } + nto_find_new_threads (&nto_inferior); + + if (status.flags & _DEBUG_FLAG_SSTEP) + { + TRACE ("SSTEP\n"); + ourstatus->kind = TARGET_WAITKIND_STOPPED; + ourstatus->value.sig = GDB_SIGNAL_TRAP; + } + /* Was it a breakpoint? */ + else if (status.flags & trace_mask) + { + TRACE ("STOPPED\n"); + ourstatus->kind = TARGET_WAITKIND_STOPPED; + ourstatus->value.sig = GDB_SIGNAL_TRAP; + } + else if (status.flags & _DEBUG_FLAG_ISTOP) + { + TRACE ("ISTOP\n"); + switch (status.why) + { + case _DEBUG_WHY_SIGNALLED: + TRACE (" SIGNALLED\n"); + ourstatus->kind = TARGET_WAITKIND_STOPPED; + ourstatus->value.sig = + gdb_signal_from_host (status.info.si_signo); + nto_inferior.exit_signo = ourstatus->value.sig; + break; + case _DEBUG_WHY_FAULTED: + TRACE (" FAULTED\n"); + ourstatus->kind = TARGET_WAITKIND_STOPPED; + if (status.info.si_signo == SIGTRAP) + { + ourstatus->value.sig = 0; + nto_inferior.exit_signo = 0; + } + else + { + ourstatus->value.sig = + gdb_signal_from_host (status.info.si_signo); + nto_inferior.exit_signo = ourstatus->value.sig; + } + break; + + case _DEBUG_WHY_TERMINATED: + { + int waitval = 0; + + TRACE (" TERMINATED\n"); + waitpid (ptid.pid (), &waitval, WNOHANG); + if (nto_inferior.exit_signo) + { + /* Abnormal death. */ + ourstatus->kind = TARGET_WAITKIND_SIGNALLED; + ourstatus->value.sig = nto_inferior.exit_signo; + } + else + { + /* Normal death. */ + ourstatus->kind = TARGET_WAITKIND_EXITED; + ourstatus->value.integer = WEXITSTATUS (waitval); + } + nto_inferior.exit_signo = 0; + break; + } + + case _DEBUG_WHY_REQUESTED: + TRACE ("REQUESTED\n"); + /* We are assuming a requested stop is due to a SIGINT. */ + ourstatus->kind = TARGET_WAITKIND_STOPPED; + ourstatus->value.sig = GDB_SIGNAL_INT; + nto_inferior.exit_signo = 0; + break; + } + } + + return ptid_t (status.pid, status.tid, 0); +} + +/* Fetch inferior's registers for currently selected thread (CURRENT_INFERIOR). + If REGNO is -1, fetch all registers, or REGNO register only otherwise. */ + +static void +nto_fetch_registers (struct regcache *regcache, int regno) +{ + int regsize; + procfs_greg greg; + + TRACE ("%s (regno=%d)\n", __func__, regno); + if (regno >= the_low_target.num_regs) + return; + + if (current_thread == NULL) + { + TRACE ("current_thread is NULL\n"); + return; + } + ptid_t ptid = ptid_of (current_thread); + if (!nto_set_thread (ptid)) + return; + + if (devctl (nto_inferior.ctl_fd, DCMD_PROC_GETGREG, &greg, sizeof (greg), + ®size) == EOK) + { + if (regno == -1) /* All registers. */ + { + for (regno = 0; regno != the_low_target.num_regs; ++regno) + { + const unsigned int registeroffset + = the_low_target.register_offset (regno); + supply_register (regcache, regno, + ((char *)&greg) + registeroffset); + } + } + else + { + const unsigned int registeroffset + = the_low_target.register_offset (regno); + if (registeroffset == -1) + return; + supply_register (regcache, regno, ((char *)&greg) + registeroffset); + } + } + else + TRACE ("ERROR reading registers from inferior.\n"); +} + +/* Store registers for currently selected thread (CURRENT_INFERIOR). + We always store all registers, regardless of REGNO. */ + +static void +nto_store_registers (struct regcache *regcache, int regno) +{ + procfs_greg greg; + int err; + + TRACE ("%s (regno:%d)\n", __func__, regno); + + if (current_thread == NULL) + { + TRACE ("current_thread is NULL\n"); + return; + } + ptid_t ptid = ptid_of (current_thread); + if (!nto_set_thread (ptid)) + return; + + memset (&greg, 0, sizeof (greg)); + for (regno = 0; regno != the_low_target.num_regs; ++regno) + { + const unsigned int regoffset + = the_low_target.register_offset (regno); + collect_register (regcache, regno, ((char *)&greg) + regoffset); + } + err = devctl (nto_inferior.ctl_fd, DCMD_PROC_SETGREG, &greg, sizeof (greg), + 0); + if (err != EOK) + TRACE ("Error: setting registers.\n"); +} + +/* Read LEN bytes from inferior's memory address MEMADDR into + gdbserver's MYADDR buffer. + + Return 0 on success -1 otherwise. */ + +static int +nto_read_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) +{ + TRACE ("%s memaddr:0x%08lx, len:%d\n", __func__, memaddr, len); + + if (nto_xfer_memory (memaddr, myaddr, len, 0) != len) + { + TRACE ("Failed to read memory\n"); + return -1; + } + + return 0; +} + +/* Write LEN bytes from gdbserver's buffer MYADDR into inferior's + memory at address MEMADDR. + + Return 0 on success -1 otherwise. */ + +static int +nto_write_memory (CORE_ADDR memaddr, const unsigned char *myaddr, int len) +{ + int len_written; + + TRACE ("%s memaddr: 0x%08llx len: %d\n", __func__, memaddr, len); + if ((len_written = nto_xfer_memory (memaddr, (unsigned char *)myaddr, len, + 1)) + != len) + { + TRACE ("Wanted to write: %d but written: %d\n", len, len_written); + return -1; + } + + return 0; +} + +/* Stop inferior. We always stop all threads. */ + +static void +nto_request_interrupt (void) +{ + TRACE ("%s\n", __func__); + nto_set_thread (ptid_t (nto_inferior.pid, 1, 0)); + if (EOK != devctl (nto_inferior.ctl_fd, DCMD_PROC_STOP, NULL, 0, 0)) + TRACE ("Error stopping inferior.\n"); +} + +/* Read auxiliary vector from inferior's memory into gdbserver's buffer + MYADDR. We always read whole auxv. + + Return number of bytes stored in MYADDR buffer, 0 if OFFSET > 0 + or -1 on error. */ + +static int +nto_read_auxv (CORE_ADDR offset, unsigned char *myaddr, unsigned int len) +{ + int err; + CORE_ADDR initial_stack; + procfs_info procinfo; + + TRACE ("%s\n", __func__); + if (offset > 0) + return 0; + + err = devctl (nto_inferior.ctl_fd, DCMD_PROC_INFO, &procinfo, + sizeof procinfo, 0); + if (err != EOK) + return -1; + + initial_stack = procinfo.initial_stack; + + return nto_read_auxv_from_initial_stack (initial_stack, myaddr, len); +} + +static int +nto_supports_z_point_type (char z_type) +{ + switch (z_type) + { + case Z_PACKET_SW_BP: + case Z_PACKET_HW_BP: + case Z_PACKET_WRITE_WP: + case Z_PACKET_READ_WP: + case Z_PACKET_ACCESS_WP: + return 1; + default: + return 0; + } +} + +/* Insert {break/watch}point at address ADDR. SIZE is not used. */ + +static int +nto_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, + int size, struct raw_breakpoint *bp) +{ + int wtype = _DEBUG_BREAK_HW; /* Always request HW. */ + + TRACE ("%s type:%c addr: 0x%08lx len:%d\n", __func__, (int)type, addr, size); + switch (type) + { + case raw_bkpt_type_sw: + wtype = _DEBUG_BREAK_EXEC; + break; + case raw_bkpt_type_hw: + wtype |= _DEBUG_BREAK_EXEC; + break; + case raw_bkpt_type_write_wp: + wtype |= _DEBUG_BREAK_RW; + break; + case raw_bkpt_type_read_wp: + wtype |= _DEBUG_BREAK_RD; + break; + case raw_bkpt_type_access_wp: + wtype |= _DEBUG_BREAK_RW; + break; + default: + return 1; /* Not supported. */ + } + return nto_breakpoint (addr, wtype, 0); +} + +/* Remove {break/watch}point at address ADDR. SIZE is not used. */ + +static int +nto_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, + int size, struct raw_breakpoint *bp) +{ + int wtype = _DEBUG_BREAK_HW; /* Always request HW. */ + + TRACE ("%s type:%c addr: 0x%08lx len:%d\n", __func__, (int)type, addr, size); + switch (type) + { + case raw_bkpt_type_sw: + wtype = _DEBUG_BREAK_EXEC; + break; + case raw_bkpt_type_hw: + wtype |= _DEBUG_BREAK_EXEC; + break; + case raw_bkpt_type_write_wp: + wtype |= _DEBUG_BREAK_RW; + break; + case raw_bkpt_type_read_wp: + wtype |= _DEBUG_BREAK_RD; + break; + case raw_bkpt_type_access_wp: + wtype |= _DEBUG_BREAK_RW; + break; + default: + return 1; /* Not supported. */ + } + return nto_breakpoint (addr, wtype, -1); +} + +/* Check if the reason of stop for current thread (CURRENT_INFERIOR) is + a watchpoint. + + Return 1 if stopped by watchpoint, 0 otherwise. */ + +static int +nto_stopped_by_watchpoint (void) +{ + int ret = 0; + + TRACE ("%s\n", __func__); + if (nto_inferior.ctl_fd != -1 && current_thread != NULL) + { + ptid_t ptid = ptid_of (current_thread); + if (nto_set_thread (ptid)) + { + const int watchmask = _DEBUG_FLAG_TRACE_RD | _DEBUG_FLAG_TRACE_WR + | _DEBUG_FLAG_TRACE_MODIFY; + procfs_status status; + int err; + + err = devctl (nto_inferior.ctl_fd, DCMD_PROC_STATUS, &status, + sizeof (status), 0); + if (err == EOK && (status.flags & watchmask)) + ret = 1; + } + } + TRACE ("%s: %s\n", __func__, ret ? "yes" : "no"); + return ret; +} + +/* Get instruction pointer for CURRENT_INFERIOR thread. + + Return inferior's instruction pointer value, or 0 on error. */ + +static CORE_ADDR +nto_stopped_data_address (void) +{ + CORE_ADDR ret = (CORE_ADDR)0; + + TRACE ("%s\n", __func__); + if (nto_inferior.ctl_fd != -1 && current_thread != NULL) + { + ptid_t ptid = ptid_of (current_thread); + + if (nto_set_thread (ptid)) + { + procfs_status status; + + if (devctl (nto_inferior.ctl_fd, DCMD_PROC_STATUS, &status, + sizeof (status), 0) == EOK) + ret = status.ip; + } + } + TRACE ("%s: 0x%08lx\n", __func__, ret); + return ret; +} + +/* We do not currently support non-stop. */ + +static int +nto_supports_non_stop (void) +{ + TRACE ("%s\n", __func__); + return 0; +} + +/* Implementation of the target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +nto_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = the_low_target.breakpoint_len; + return the_low_target.breakpoint; +} + + +static process_stratum_target nto_target_ops = { + nto_create_inferior, + NULL, /* post_create_inferior */ + nto_attach, + nto_kill, + nto_detach, + nto_mourn, + NULL, /* nto_join */ + nto_thread_alive, + nto_resume, + nto_wait, + nto_fetch_registers, + nto_store_registers, + NULL, /* prepare_to_access_memory */ + NULL, /* done_accessing_memory */ + nto_read_memory, + nto_write_memory, + NULL, /* nto_look_up_symbols */ + nto_request_interrupt, + nto_read_auxv, + nto_supports_z_point_type, + nto_insert_point, + nto_remove_point, + NULL, /* stopped_by_sw_breakpoint */ + NULL, /* supports_stopped_by_sw_breakpoint */ + NULL, /* stopped_by_hw_breakpoint */ + NULL, /* supports_stopped_by_hw_breakpoint */ + target_can_do_hardware_single_step, + nto_stopped_by_watchpoint, + nto_stopped_data_address, + NULL, /* nto_read_offsets */ + NULL, /* thread_db_set_tls_address */ + hostio_last_error_from_errno, + NULL, /* nto_qxfer_osdata */ + NULL, /* xfer_siginfo */ + nto_supports_non_stop, + NULL, /* async */ + NULL, /* start_non_stop */ + NULL, /* supports_multi_process */ + NULL, /* supports_fork_events */ + NULL, /* supports_vfork_events */ + NULL, /* supports_exec_events */ + NULL, /* handle_new_gdb_connection */ + NULL, /* handle_monitor_command */ + NULL, /* core_of_thread */ + NULL, /* read_loadmap */ + NULL, /* process_qsupported */ + NULL, /* supports_tracepoints */ + NULL, /* read_pc */ + NULL, /* write_pc */ + NULL, /* thread_stopped */ + NULL, /* get_tib_address */ + NULL, /* pause_all */ + NULL, /* unpause_all */ + NULL, /* stabilize_threads */ + NULL, /* install_fast_tracepoint_jump_pad */ + NULL, /* emit_ops */ + NULL, /* supports_disable_randomization */ + NULL, /* get_min_fast_tracepoint_insn_len */ + NULL, /* qxfer_libraries_svr4 */ + NULL, /* support_agent */ + NULL, /* enable_btrace */ + NULL, /* disable_btrace */ + NULL, /* read_btrace */ + NULL, /* read_btrace_conf */ + NULL, /* supports_range_stepping */ + NULL, /* pid_to_exec_file */ + NULL, /* multifs_open */ + NULL, /* multifs_unlink */ + NULL, /* multifs_readlink */ + NULL, /* breakpoint_kind_from_pc */ + nto_sw_breakpoint_from_kind, +}; + + +/* Global function called by server.c. Initializes QNX Neutrino + gdbserver. */ + +void +initialize_low (void) +{ + sigset_t set; + + TRACE ("%s\n", __func__); + set_target_ops (&nto_target_ops); + + /* We use SIGUSR1 to gain control after we block waiting for a process. + We use sigwaitevent to wait. */ + sigemptyset (&set); + sigaddset (&set, SIGUSR1); + sigprocmask (SIG_BLOCK, &set, NULL); +} + diff --git a/gdbserver/nto-x86-low.c b/gdbserver/nto-x86-low.c deleted file mode 100644 index efee9573622..00000000000 --- a/gdbserver/nto-x86-low.c +++ /dev/null @@ -1,109 +0,0 @@ -/* QNX Neutrino specific low level interface, for the remote server - for GDB. - Copyright (C) 2009-2020 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 . */ - -#include "server.h" -#include "nto-low.h" -#include "regdef.h" -#include "regcache.h" - -#include -#include "gdbsupport/x86-xstate.h" -#include "arch/i386.h" -#include "x86-tdesc.h" - -const unsigned char x86_breakpoint[] = { 0xCC }; -#define x86_breakpoint_len 1 - -/* Returns offset in appropriate Neutrino's context structure. - Defined in x86/context.h. - GDBREGNO is index into regs_i386 array. It is autogenerated and - hopefully doesn't change. */ -static int -nto_x86_register_offset (int gdbregno) -{ - if (gdbregno >= 0 && gdbregno < 16) - { - X86_CPU_REGISTERS *dummy = (void*)0; - /* GPRs */ - switch (gdbregno) - { - case 0: - return (int)&(dummy->eax); - case 1: - return (int)&(dummy->ecx); - case 2: - return (int)&(dummy->edx); - case 3: - return (int)&(dummy->ebx); - case 4: - return (int)&(dummy->esp); - case 5: - return (int)&(dummy->ebp); - case 6: - return (int)&(dummy->esi); - case 7: - return (int)&(dummy->edi); - case 8: - return (int)&(dummy->eip); - case 9: - return (int)&(dummy->efl); - case 10: - return (int)&(dummy->cs); - case 11: - return (int)&(dummy->ss); -#ifdef __SEGMENTS__ - case 12: - return (int)&(dummy->ds); - case 13: - return (int)&(dummy->es); - case 14: - return (int)&(dummy->fs); - case 15: - return (int)&(dummy->gs); -#endif - default: - return -1; - } - } - return -1; -} - -static void -nto_x86_arch_setup (void) -{ - the_low_target.num_regs = 16; - struct target_desc *tdesc - = i386_create_target_description (X86_XSTATE_SSE_MASK, false, false); - - init_target_desc (tdesc, i386_expedite_regs); - - nto_tdesc = tdesc; -} - -struct nto_target_ops the_low_target = -{ - nto_x86_arch_setup, - 0, /* num_regs */ - nto_x86_register_offset, - x86_breakpoint, - x86_breakpoint_len -}; - - - diff --git a/gdbserver/nto-x86-low.cc b/gdbserver/nto-x86-low.cc new file mode 100644 index 00000000000..efee9573622 --- /dev/null +++ b/gdbserver/nto-x86-low.cc @@ -0,0 +1,109 @@ +/* QNX Neutrino specific low level interface, for the remote server + for GDB. + Copyright (C) 2009-2020 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 . */ + +#include "server.h" +#include "nto-low.h" +#include "regdef.h" +#include "regcache.h" + +#include +#include "gdbsupport/x86-xstate.h" +#include "arch/i386.h" +#include "x86-tdesc.h" + +const unsigned char x86_breakpoint[] = { 0xCC }; +#define x86_breakpoint_len 1 + +/* Returns offset in appropriate Neutrino's context structure. + Defined in x86/context.h. + GDBREGNO is index into regs_i386 array. It is autogenerated and + hopefully doesn't change. */ +static int +nto_x86_register_offset (int gdbregno) +{ + if (gdbregno >= 0 && gdbregno < 16) + { + X86_CPU_REGISTERS *dummy = (void*)0; + /* GPRs */ + switch (gdbregno) + { + case 0: + return (int)&(dummy->eax); + case 1: + return (int)&(dummy->ecx); + case 2: + return (int)&(dummy->edx); + case 3: + return (int)&(dummy->ebx); + case 4: + return (int)&(dummy->esp); + case 5: + return (int)&(dummy->ebp); + case 6: + return (int)&(dummy->esi); + case 7: + return (int)&(dummy->edi); + case 8: + return (int)&(dummy->eip); + case 9: + return (int)&(dummy->efl); + case 10: + return (int)&(dummy->cs); + case 11: + return (int)&(dummy->ss); +#ifdef __SEGMENTS__ + case 12: + return (int)&(dummy->ds); + case 13: + return (int)&(dummy->es); + case 14: + return (int)&(dummy->fs); + case 15: + return (int)&(dummy->gs); +#endif + default: + return -1; + } + } + return -1; +} + +static void +nto_x86_arch_setup (void) +{ + the_low_target.num_regs = 16; + struct target_desc *tdesc + = i386_create_target_description (X86_XSTATE_SSE_MASK, false, false); + + init_target_desc (tdesc, i386_expedite_regs); + + nto_tdesc = tdesc; +} + +struct nto_target_ops the_low_target = +{ + nto_x86_arch_setup, + 0, /* num_regs */ + nto_x86_register_offset, + x86_breakpoint, + x86_breakpoint_len +}; + + + diff --git a/gdbserver/proc-service.c b/gdbserver/proc-service.c deleted file mode 100644 index 9c8885ea912..00000000000 --- a/gdbserver/proc-service.c +++ /dev/null @@ -1,165 +0,0 @@ -/* libthread_db helper functions for the remote server for GDB. - Copyright (C) 2002-2020 Free Software Foundation, Inc. - - Contributed by MontaVista Software. - - 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 . */ - -#include "server.h" - -/* This file is currently tied to GNU/Linux. It should scale well to - another libthread_db implementation, with the appropriate gdbserver - hooks, but for now this means we can use GNU/Linux's target data. */ - -#include "linux-low.h" - -#include "gdb_proc_service.h" - -typedef struct ps_prochandle *gdb_ps_prochandle_t; -typedef void *gdb_ps_read_buf_t; -typedef const void *gdb_ps_write_buf_t; -typedef size_t gdb_ps_size_t; - -#ifdef HAVE_LINUX_REGSETS -#define HAVE_REGSETS -#endif - -#ifdef HAVE_REGSETS -static struct regset_info * -gregset_info (void) -{ - int i = 0; - const struct regs_info *regs_info = (*the_low_target.regs_info) (); - struct regsets_info *regsets_info = regs_info->regsets_info; - - while (regsets_info->regsets[i].size != -1) - { - if (regsets_info->regsets[i].type == GENERAL_REGS) - break; - i++; - } - - return ®sets_info->regsets[i]; -} -#endif - -/* Search for the symbol named NAME within the object named OBJ within - the target process PH. If the symbol is found the address of the - symbol is stored in SYM_ADDR. */ - -ps_err_e -ps_pglobal_lookup (gdb_ps_prochandle_t ph, const char *obj, - const char *name, psaddr_t *sym_addr) -{ - CORE_ADDR addr; - - if (thread_db_look_up_one_symbol (name, &addr) == 0) - return PS_NOSYM; - - *sym_addr = (psaddr_t) (unsigned long) addr; - return PS_OK; -} - -/* Read SIZE bytes from the target process PH at address ADDR and copy - them into BUF. */ - -ps_err_e -ps_pdread (gdb_ps_prochandle_t ph, psaddr_t addr, - gdb_ps_read_buf_t buf, gdb_ps_size_t size) -{ - if (read_inferior_memory ((uintptr_t) addr, (gdb_byte *) buf, size) != 0) - return PS_ERR; - return PS_OK; -} - -/* Write SIZE bytes from BUF into the target process PH at address ADDR. */ - -ps_err_e -ps_pdwrite (gdb_ps_prochandle_t ph, psaddr_t addr, - gdb_ps_write_buf_t buf, gdb_ps_size_t size) -{ - if (target_write_memory ((uintptr_t) addr, (const gdb_byte *) buf, size) - != 0) - return PS_ERR; - return PS_OK; -} - -/* Get the general registers of LWP LWPID within the target process PH - and store them in GREGSET. */ - -ps_err_e -ps_lgetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, prgregset_t gregset) -{ -#ifdef HAVE_REGSETS - struct lwp_info *lwp; - struct thread_info *reg_thread, *saved_thread; - struct regcache *regcache; - - lwp = find_lwp_pid (ptid_t (lwpid)); - if (lwp == NULL) - return PS_ERR; - - reg_thread = get_lwp_thread (lwp); - saved_thread = current_thread; - current_thread = reg_thread; - regcache = get_thread_regcache (current_thread, 1); - gregset_info ()->fill_function (regcache, gregset); - - current_thread = saved_thread; - return PS_OK; -#else - return PS_ERR; -#endif -} - -/* Set the general registers of LWP LWPID within the target process PH - from GREGSET. */ - -ps_err_e -ps_lsetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, const prgregset_t gregset) -{ - /* Unneeded. */ - return PS_ERR; -} - -/* Get the floating-point registers of LWP LWPID within the target - process PH and store them in FPREGSET. */ - -ps_err_e -ps_lgetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, prfpregset_t *fpregset) -{ - /* Unneeded. */ - return PS_ERR; -} - -/* Set the floating-point registers of LWP LWPID within the target - process PH from FPREGSET. */ - -ps_err_e -ps_lsetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, const prfpregset_t *fpregset) -{ - /* Unneeded. */ - return PS_ERR; -} - -/* Return overall process id of the target PH. Special for GNU/Linux - -- not used on Solaris. */ - -pid_t -ps_getpid (gdb_ps_prochandle_t ph) -{ - return pid_of (current_thread); -} diff --git a/gdbserver/proc-service.cc b/gdbserver/proc-service.cc new file mode 100644 index 00000000000..9c8885ea912 --- /dev/null +++ b/gdbserver/proc-service.cc @@ -0,0 +1,165 @@ +/* libthread_db helper functions for the remote server for GDB. + Copyright (C) 2002-2020 Free Software Foundation, Inc. + + Contributed by MontaVista Software. + + 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 . */ + +#include "server.h" + +/* This file is currently tied to GNU/Linux. It should scale well to + another libthread_db implementation, with the appropriate gdbserver + hooks, but for now this means we can use GNU/Linux's target data. */ + +#include "linux-low.h" + +#include "gdb_proc_service.h" + +typedef struct ps_prochandle *gdb_ps_prochandle_t; +typedef void *gdb_ps_read_buf_t; +typedef const void *gdb_ps_write_buf_t; +typedef size_t gdb_ps_size_t; + +#ifdef HAVE_LINUX_REGSETS +#define HAVE_REGSETS +#endif + +#ifdef HAVE_REGSETS +static struct regset_info * +gregset_info (void) +{ + int i = 0; + const struct regs_info *regs_info = (*the_low_target.regs_info) (); + struct regsets_info *regsets_info = regs_info->regsets_info; + + while (regsets_info->regsets[i].size != -1) + { + if (regsets_info->regsets[i].type == GENERAL_REGS) + break; + i++; + } + + return ®sets_info->regsets[i]; +} +#endif + +/* Search for the symbol named NAME within the object named OBJ within + the target process PH. If the symbol is found the address of the + symbol is stored in SYM_ADDR. */ + +ps_err_e +ps_pglobal_lookup (gdb_ps_prochandle_t ph, const char *obj, + const char *name, psaddr_t *sym_addr) +{ + CORE_ADDR addr; + + if (thread_db_look_up_one_symbol (name, &addr) == 0) + return PS_NOSYM; + + *sym_addr = (psaddr_t) (unsigned long) addr; + return PS_OK; +} + +/* Read SIZE bytes from the target process PH at address ADDR and copy + them into BUF. */ + +ps_err_e +ps_pdread (gdb_ps_prochandle_t ph, psaddr_t addr, + gdb_ps_read_buf_t buf, gdb_ps_size_t size) +{ + if (read_inferior_memory ((uintptr_t) addr, (gdb_byte *) buf, size) != 0) + return PS_ERR; + return PS_OK; +} + +/* Write SIZE bytes from BUF into the target process PH at address ADDR. */ + +ps_err_e +ps_pdwrite (gdb_ps_prochandle_t ph, psaddr_t addr, + gdb_ps_write_buf_t buf, gdb_ps_size_t size) +{ + if (target_write_memory ((uintptr_t) addr, (const gdb_byte *) buf, size) + != 0) + return PS_ERR; + return PS_OK; +} + +/* Get the general registers of LWP LWPID within the target process PH + and store them in GREGSET. */ + +ps_err_e +ps_lgetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, prgregset_t gregset) +{ +#ifdef HAVE_REGSETS + struct lwp_info *lwp; + struct thread_info *reg_thread, *saved_thread; + struct regcache *regcache; + + lwp = find_lwp_pid (ptid_t (lwpid)); + if (lwp == NULL) + return PS_ERR; + + reg_thread = get_lwp_thread (lwp); + saved_thread = current_thread; + current_thread = reg_thread; + regcache = get_thread_regcache (current_thread, 1); + gregset_info ()->fill_function (regcache, gregset); + + current_thread = saved_thread; + return PS_OK; +#else + return PS_ERR; +#endif +} + +/* Set the general registers of LWP LWPID within the target process PH + from GREGSET. */ + +ps_err_e +ps_lsetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, const prgregset_t gregset) +{ + /* Unneeded. */ + return PS_ERR; +} + +/* Get the floating-point registers of LWP LWPID within the target + process PH and store them in FPREGSET. */ + +ps_err_e +ps_lgetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, prfpregset_t *fpregset) +{ + /* Unneeded. */ + return PS_ERR; +} + +/* Set the floating-point registers of LWP LWPID within the target + process PH from FPREGSET. */ + +ps_err_e +ps_lsetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, const prfpregset_t *fpregset) +{ + /* Unneeded. */ + return PS_ERR; +} + +/* Return overall process id of the target PH. Special for GNU/Linux + -- not used on Solaris. */ + +pid_t +ps_getpid (gdb_ps_prochandle_t ph) +{ + return pid_of (current_thread); +} diff --git a/gdbserver/regcache.c b/gdbserver/regcache.c deleted file mode 100644 index f63463344af..00000000000 --- a/gdbserver/regcache.c +++ /dev/null @@ -1,528 +0,0 @@ -/* Register support routines for the remote server for GDB. - Copyright (C) 2001-2020 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 . */ - -#include "server.h" -#include "regdef.h" -#include "gdbthread.h" -#include "tdesc.h" -#include "gdbsupport/rsp-low.h" -#ifndef IN_PROCESS_AGENT - -struct regcache * -get_thread_regcache (struct thread_info *thread, int fetch) -{ - struct regcache *regcache; - - regcache = thread_regcache_data (thread); - - /* Threads' regcaches are created lazily, because biarch targets add - the main thread/lwp before seeing it stop for the first time, and - it is only after the target sees the thread stop for the first - time that the target has a chance of determining the process's - architecture. IOW, when we first add the process's main thread - we don't know which architecture/tdesc its regcache should - have. */ - if (regcache == NULL) - { - struct process_info *proc = get_thread_process (thread); - - gdb_assert (proc->tdesc != NULL); - - regcache = new_register_cache (proc->tdesc); - set_thread_regcache_data (thread, regcache); - } - - if (fetch && regcache->registers_valid == 0) - { - struct thread_info *saved_thread = current_thread; - - current_thread = thread; - /* Invalidate all registers, to prevent stale left-overs. */ - memset (regcache->register_status, REG_UNAVAILABLE, - regcache->tdesc->reg_defs.size ()); - fetch_inferior_registers (regcache, -1); - current_thread = saved_thread; - regcache->registers_valid = 1; - } - - return regcache; -} - -/* See gdbsupport/common-regcache.h. */ - -struct regcache * -get_thread_regcache_for_ptid (ptid_t ptid) -{ - return get_thread_regcache (find_thread_ptid (ptid), 1); -} - -void -regcache_invalidate_thread (struct thread_info *thread) -{ - struct regcache *regcache; - - regcache = thread_regcache_data (thread); - - if (regcache == NULL) - return; - - if (regcache->registers_valid) - { - struct thread_info *saved_thread = current_thread; - - current_thread = thread; - store_inferior_registers (regcache, -1); - current_thread = saved_thread; - } - - regcache->registers_valid = 0; -} - -/* See regcache.h. */ - -void -regcache_invalidate_pid (int pid) -{ - /* Only invalidate the regcaches of threads of this process. */ - for_each_thread (pid, regcache_invalidate_thread); -} - -/* See regcache.h. */ - -void -regcache_invalidate (void) -{ - /* Only update the threads of the current process. */ - int pid = current_thread->id.pid (); - - regcache_invalidate_pid (pid); -} - -#endif - -struct regcache * -init_register_cache (struct regcache *regcache, - const struct target_desc *tdesc, - unsigned char *regbuf) -{ - if (regbuf == NULL) - { -#ifndef IN_PROCESS_AGENT - /* Make sure to zero-initialize the register cache when it is - created, in case there are registers the target never - fetches. This way they'll read as zero instead of - garbage. */ - regcache->tdesc = tdesc; - regcache->registers - = (unsigned char *) xcalloc (1, tdesc->registers_size); - regcache->registers_owned = 1; - regcache->register_status - = (unsigned char *) xmalloc (tdesc->reg_defs.size ()); - memset ((void *) regcache->register_status, REG_UNAVAILABLE, - tdesc->reg_defs.size ()); -#else - gdb_assert_not_reached ("can't allocate memory from the heap"); -#endif - } - else - { - regcache->tdesc = tdesc; - regcache->registers = regbuf; - regcache->registers_owned = 0; -#ifndef IN_PROCESS_AGENT - regcache->register_status = NULL; -#endif - } - - regcache->registers_valid = 0; - - return regcache; -} - -#ifndef IN_PROCESS_AGENT - -struct regcache * -new_register_cache (const struct target_desc *tdesc) -{ - struct regcache *regcache = new struct regcache; - - gdb_assert (tdesc->registers_size != 0); - - return init_register_cache (regcache, tdesc, NULL); -} - -void -free_register_cache (struct regcache *regcache) -{ - if (regcache) - { - if (regcache->registers_owned) - free (regcache->registers); - free (regcache->register_status); - delete regcache; - } -} - -#endif - -void -regcache_cpy (struct regcache *dst, struct regcache *src) -{ - gdb_assert (src != NULL && dst != NULL); - gdb_assert (src->tdesc == dst->tdesc); - gdb_assert (src != dst); - - memcpy (dst->registers, src->registers, src->tdesc->registers_size); -#ifndef IN_PROCESS_AGENT - if (dst->register_status != NULL && src->register_status != NULL) - memcpy (dst->register_status, src->register_status, - src->tdesc->reg_defs.size ()); -#endif - dst->registers_valid = src->registers_valid; -} - -/* Return a reference to the description of register N. */ - -static const struct reg & -find_register_by_number (const struct target_desc *tdesc, int n) -{ - return tdesc->reg_defs[n]; -} - -#ifndef IN_PROCESS_AGENT - -void -registers_to_string (struct regcache *regcache, char *buf) -{ - unsigned char *registers = regcache->registers; - const struct target_desc *tdesc = regcache->tdesc; - - for (int i = 0; i < tdesc->reg_defs.size (); ++i) - { - if (regcache->register_status[i] == REG_VALID) - { - bin2hex (registers, buf, register_size (tdesc, i)); - buf += register_size (tdesc, i) * 2; - } - else - { - memset (buf, 'x', register_size (tdesc, i) * 2); - buf += register_size (tdesc, i) * 2; - } - registers += register_size (tdesc, i); - } - *buf = '\0'; -} - -void -registers_from_string (struct regcache *regcache, char *buf) -{ - int len = strlen (buf); - unsigned char *registers = regcache->registers; - const struct target_desc *tdesc = regcache->tdesc; - - if (len != tdesc->registers_size * 2) - { - warning ("Wrong sized register packet (expected %d bytes, got %d)", - 2 * tdesc->registers_size, len); - if (len > tdesc->registers_size * 2) - len = tdesc->registers_size * 2; - } - hex2bin (buf, registers, len / 2); -} - -int -find_regno (const struct target_desc *tdesc, const char *name) -{ - for (int i = 0; i < tdesc->reg_defs.size (); ++i) - { - if (strcmp (name, find_register_by_number (tdesc, i).name) == 0) - return i; - } - internal_error (__FILE__, __LINE__, "Unknown register %s requested", - name); -} - -static void -free_register_cache_thread (struct thread_info *thread) -{ - struct regcache *regcache = thread_regcache_data (thread); - - if (regcache != NULL) - { - regcache_invalidate_thread (thread); - free_register_cache (regcache); - set_thread_regcache_data (thread, NULL); - } -} - -void -regcache_release (void) -{ - /* Flush and release all pre-existing register caches. */ - for_each_thread (free_register_cache_thread); -} -#endif - -int -register_cache_size (const struct target_desc *tdesc) -{ - return tdesc->registers_size; -} - -int -register_size (const struct target_desc *tdesc, int n) -{ - return find_register_by_number (tdesc, n).size / 8; -} - -/* See gdbsupport/common-regcache.h. */ - -int -regcache_register_size (const struct regcache *regcache, int n) -{ - return register_size (regcache->tdesc, n); -} - -static unsigned char * -register_data (const struct regcache *regcache, int n, int fetch) -{ - return (regcache->registers - + find_register_by_number (regcache->tdesc, n).offset / 8); -} - -void -supply_register (struct regcache *regcache, int n, const void *buf) -{ - return regcache->raw_supply (n, buf); -} - -/* See gdbsupport/common-regcache.h. */ - -void -regcache::raw_supply (int n, const void *buf) -{ - if (buf) - { - memcpy (register_data (this, n, 0), buf, register_size (tdesc, n)); -#ifndef IN_PROCESS_AGENT - if (register_status != NULL) - register_status[n] = REG_VALID; -#endif - } - else - { - memset (register_data (this, n, 0), 0, register_size (tdesc, n)); -#ifndef IN_PROCESS_AGENT - if (register_status != NULL) - register_status[n] = REG_UNAVAILABLE; -#endif - } -} - -/* Supply register N with value zero to REGCACHE. */ - -void -supply_register_zeroed (struct regcache *regcache, int n) -{ - memset (register_data (regcache, n, 0), 0, - register_size (regcache->tdesc, n)); -#ifndef IN_PROCESS_AGENT - if (regcache->register_status != NULL) - regcache->register_status[n] = REG_VALID; -#endif -} - -#ifndef IN_PROCESS_AGENT - -/* Supply register called NAME with value zero to REGCACHE. */ - -void -supply_register_by_name_zeroed (struct regcache *regcache, - const char *name) -{ - supply_register_zeroed (regcache, find_regno (regcache->tdesc, name)); -} - -#endif - -/* Supply the whole register set whose contents are stored in BUF, to - REGCACHE. If BUF is NULL, all the registers' values are recorded - as unavailable. */ - -void -supply_regblock (struct regcache *regcache, const void *buf) -{ - if (buf) - { - const struct target_desc *tdesc = regcache->tdesc; - - memcpy (regcache->registers, buf, tdesc->registers_size); -#ifndef IN_PROCESS_AGENT - { - int i; - - for (i = 0; i < tdesc->reg_defs.size (); i++) - regcache->register_status[i] = REG_VALID; - } -#endif - } - else - { - const struct target_desc *tdesc = regcache->tdesc; - - memset (regcache->registers, 0, tdesc->registers_size); -#ifndef IN_PROCESS_AGENT - { - int i; - - for (i = 0; i < tdesc->reg_defs.size (); i++) - regcache->register_status[i] = REG_UNAVAILABLE; - } -#endif - } -} - -#ifndef IN_PROCESS_AGENT - -void -supply_register_by_name (struct regcache *regcache, - const char *name, const void *buf) -{ - supply_register (regcache, find_regno (regcache->tdesc, name), buf); -} - -#endif - -void -collect_register (struct regcache *regcache, int n, void *buf) -{ - regcache->raw_collect (n, buf); -} - -/* See gdbsupport/common-regcache.h. */ - -void -regcache::raw_collect (int n, void *buf) const -{ - memcpy (buf, register_data (this, n, 1), register_size (tdesc, n)); -} - -enum register_status -regcache_raw_read_unsigned (struct regcache *regcache, int regnum, - ULONGEST *val) -{ - int size; - - gdb_assert (regcache != NULL); - gdb_assert (regnum >= 0 - && regnum < regcache->tdesc->reg_defs.size ()); - - size = register_size (regcache->tdesc, regnum); - - if (size > (int) sizeof (ULONGEST)) - error (_("That operation is not available on integers of more than" - "%d bytes."), - (int) sizeof (ULONGEST)); - - *val = 0; - collect_register (regcache, regnum, val); - - return REG_VALID; -} - -#ifndef IN_PROCESS_AGENT - -/* See regcache.h. */ - -ULONGEST -regcache_raw_get_unsigned_by_name (struct regcache *regcache, - const char *name) -{ - return regcache_raw_get_unsigned (regcache, - find_regno (regcache->tdesc, name)); -} - -void -collect_register_as_string (struct regcache *regcache, int n, char *buf) -{ - bin2hex (register_data (regcache, n, 1), buf, - register_size (regcache->tdesc, n)); -} - -void -collect_register_by_name (struct regcache *regcache, - const char *name, void *buf) -{ - collect_register (regcache, find_regno (regcache->tdesc, name), buf); -} - -/* Special handling for register PC. */ - -CORE_ADDR -regcache_read_pc (struct regcache *regcache) -{ - CORE_ADDR pc_val; - - if (the_target->read_pc) - pc_val = the_target->read_pc (regcache); - else - internal_error (__FILE__, __LINE__, - "regcache_read_pc: Unable to find PC"); - - return pc_val; -} - -void -regcache_write_pc (struct regcache *regcache, CORE_ADDR pc) -{ - if (the_target->write_pc) - the_target->write_pc (regcache, pc); - else - internal_error (__FILE__, __LINE__, - "regcache_write_pc: Unable to update PC"); -} - -#endif - -/* See gdbsupport/common-regcache.h. */ - -enum register_status -regcache::get_register_status (int regnum) const -{ -#ifndef IN_PROCESS_AGENT - gdb_assert (regnum >= 0 && regnum < tdesc->reg_defs.size ()); - return (enum register_status) (register_status[regnum]); -#else - return REG_VALID; -#endif -} - -/* See gdbsupport/common-regcache.h. */ - -bool -regcache::raw_compare (int regnum, const void *buf, int offset) const -{ - gdb_assert (buf != NULL); - - const unsigned char *regbuf = register_data (this, regnum, 1); - int size = register_size (tdesc, regnum); - gdb_assert (size >= offset); - - return (memcmp (buf, regbuf + offset, size - offset) == 0); -} diff --git a/gdbserver/regcache.cc b/gdbserver/regcache.cc new file mode 100644 index 00000000000..f63463344af --- /dev/null +++ b/gdbserver/regcache.cc @@ -0,0 +1,528 @@ +/* Register support routines for the remote server for GDB. + Copyright (C) 2001-2020 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 . */ + +#include "server.h" +#include "regdef.h" +#include "gdbthread.h" +#include "tdesc.h" +#include "gdbsupport/rsp-low.h" +#ifndef IN_PROCESS_AGENT + +struct regcache * +get_thread_regcache (struct thread_info *thread, int fetch) +{ + struct regcache *regcache; + + regcache = thread_regcache_data (thread); + + /* Threads' regcaches are created lazily, because biarch targets add + the main thread/lwp before seeing it stop for the first time, and + it is only after the target sees the thread stop for the first + time that the target has a chance of determining the process's + architecture. IOW, when we first add the process's main thread + we don't know which architecture/tdesc its regcache should + have. */ + if (regcache == NULL) + { + struct process_info *proc = get_thread_process (thread); + + gdb_assert (proc->tdesc != NULL); + + regcache = new_register_cache (proc->tdesc); + set_thread_regcache_data (thread, regcache); + } + + if (fetch && regcache->registers_valid == 0) + { + struct thread_info *saved_thread = current_thread; + + current_thread = thread; + /* Invalidate all registers, to prevent stale left-overs. */ + memset (regcache->register_status, REG_UNAVAILABLE, + regcache->tdesc->reg_defs.size ()); + fetch_inferior_registers (regcache, -1); + current_thread = saved_thread; + regcache->registers_valid = 1; + } + + return regcache; +} + +/* See gdbsupport/common-regcache.h. */ + +struct regcache * +get_thread_regcache_for_ptid (ptid_t ptid) +{ + return get_thread_regcache (find_thread_ptid (ptid), 1); +} + +void +regcache_invalidate_thread (struct thread_info *thread) +{ + struct regcache *regcache; + + regcache = thread_regcache_data (thread); + + if (regcache == NULL) + return; + + if (regcache->registers_valid) + { + struct thread_info *saved_thread = current_thread; + + current_thread = thread; + store_inferior_registers (regcache, -1); + current_thread = saved_thread; + } + + regcache->registers_valid = 0; +} + +/* See regcache.h. */ + +void +regcache_invalidate_pid (int pid) +{ + /* Only invalidate the regcaches of threads of this process. */ + for_each_thread (pid, regcache_invalidate_thread); +} + +/* See regcache.h. */ + +void +regcache_invalidate (void) +{ + /* Only update the threads of the current process. */ + int pid = current_thread->id.pid (); + + regcache_invalidate_pid (pid); +} + +#endif + +struct regcache * +init_register_cache (struct regcache *regcache, + const struct target_desc *tdesc, + unsigned char *regbuf) +{ + if (regbuf == NULL) + { +#ifndef IN_PROCESS_AGENT + /* Make sure to zero-initialize the register cache when it is + created, in case there are registers the target never + fetches. This way they'll read as zero instead of + garbage. */ + regcache->tdesc = tdesc; + regcache->registers + = (unsigned char *) xcalloc (1, tdesc->registers_size); + regcache->registers_owned = 1; + regcache->register_status + = (unsigned char *) xmalloc (tdesc->reg_defs.size ()); + memset ((void *) regcache->register_status, REG_UNAVAILABLE, + tdesc->reg_defs.size ()); +#else + gdb_assert_not_reached ("can't allocate memory from the heap"); +#endif + } + else + { + regcache->tdesc = tdesc; + regcache->registers = regbuf; + regcache->registers_owned = 0; +#ifndef IN_PROCESS_AGENT + regcache->register_status = NULL; +#endif + } + + regcache->registers_valid = 0; + + return regcache; +} + +#ifndef IN_PROCESS_AGENT + +struct regcache * +new_register_cache (const struct target_desc *tdesc) +{ + struct regcache *regcache = new struct regcache; + + gdb_assert (tdesc->registers_size != 0); + + return init_register_cache (regcache, tdesc, NULL); +} + +void +free_register_cache (struct regcache *regcache) +{ + if (regcache) + { + if (regcache->registers_owned) + free (regcache->registers); + free (regcache->register_status); + delete regcache; + } +} + +#endif + +void +regcache_cpy (struct regcache *dst, struct regcache *src) +{ + gdb_assert (src != NULL && dst != NULL); + gdb_assert (src->tdesc == dst->tdesc); + gdb_assert (src != dst); + + memcpy (dst->registers, src->registers, src->tdesc->registers_size); +#ifndef IN_PROCESS_AGENT + if (dst->register_status != NULL && src->register_status != NULL) + memcpy (dst->register_status, src->register_status, + src->tdesc->reg_defs.size ()); +#endif + dst->registers_valid = src->registers_valid; +} + +/* Return a reference to the description of register N. */ + +static const struct reg & +find_register_by_number (const struct target_desc *tdesc, int n) +{ + return tdesc->reg_defs[n]; +} + +#ifndef IN_PROCESS_AGENT + +void +registers_to_string (struct regcache *regcache, char *buf) +{ + unsigned char *registers = regcache->registers; + const struct target_desc *tdesc = regcache->tdesc; + + for (int i = 0; i < tdesc->reg_defs.size (); ++i) + { + if (regcache->register_status[i] == REG_VALID) + { + bin2hex (registers, buf, register_size (tdesc, i)); + buf += register_size (tdesc, i) * 2; + } + else + { + memset (buf, 'x', register_size (tdesc, i) * 2); + buf += register_size (tdesc, i) * 2; + } + registers += register_size (tdesc, i); + } + *buf = '\0'; +} + +void +registers_from_string (struct regcache *regcache, char *buf) +{ + int len = strlen (buf); + unsigned char *registers = regcache->registers; + const struct target_desc *tdesc = regcache->tdesc; + + if (len != tdesc->registers_size * 2) + { + warning ("Wrong sized register packet (expected %d bytes, got %d)", + 2 * tdesc->registers_size, len); + if (len > tdesc->registers_size * 2) + len = tdesc->registers_size * 2; + } + hex2bin (buf, registers, len / 2); +} + +int +find_regno (const struct target_desc *tdesc, const char *name) +{ + for (int i = 0; i < tdesc->reg_defs.size (); ++i) + { + if (strcmp (name, find_register_by_number (tdesc, i).name) == 0) + return i; + } + internal_error (__FILE__, __LINE__, "Unknown register %s requested", + name); +} + +static void +free_register_cache_thread (struct thread_info *thread) +{ + struct regcache *regcache = thread_regcache_data (thread); + + if (regcache != NULL) + { + regcache_invalidate_thread (thread); + free_register_cache (regcache); + set_thread_regcache_data (thread, NULL); + } +} + +void +regcache_release (void) +{ + /* Flush and release all pre-existing register caches. */ + for_each_thread (free_register_cache_thread); +} +#endif + +int +register_cache_size (const struct target_desc *tdesc) +{ + return tdesc->registers_size; +} + +int +register_size (const struct target_desc *tdesc, int n) +{ + return find_register_by_number (tdesc, n).size / 8; +} + +/* See gdbsupport/common-regcache.h. */ + +int +regcache_register_size (const struct regcache *regcache, int n) +{ + return register_size (regcache->tdesc, n); +} + +static unsigned char * +register_data (const struct regcache *regcache, int n, int fetch) +{ + return (regcache->registers + + find_register_by_number (regcache->tdesc, n).offset / 8); +} + +void +supply_register (struct regcache *regcache, int n, const void *buf) +{ + return regcache->raw_supply (n, buf); +} + +/* See gdbsupport/common-regcache.h. */ + +void +regcache::raw_supply (int n, const void *buf) +{ + if (buf) + { + memcpy (register_data (this, n, 0), buf, register_size (tdesc, n)); +#ifndef IN_PROCESS_AGENT + if (register_status != NULL) + register_status[n] = REG_VALID; +#endif + } + else + { + memset (register_data (this, n, 0), 0, register_size (tdesc, n)); +#ifndef IN_PROCESS_AGENT + if (register_status != NULL) + register_status[n] = REG_UNAVAILABLE; +#endif + } +} + +/* Supply register N with value zero to REGCACHE. */ + +void +supply_register_zeroed (struct regcache *regcache, int n) +{ + memset (register_data (regcache, n, 0), 0, + register_size (regcache->tdesc, n)); +#ifndef IN_PROCESS_AGENT + if (regcache->register_status != NULL) + regcache->register_status[n] = REG_VALID; +#endif +} + +#ifndef IN_PROCESS_AGENT + +/* Supply register called NAME with value zero to REGCACHE. */ + +void +supply_register_by_name_zeroed (struct regcache *regcache, + const char *name) +{ + supply_register_zeroed (regcache, find_regno (regcache->tdesc, name)); +} + +#endif + +/* Supply the whole register set whose contents are stored in BUF, to + REGCACHE. If BUF is NULL, all the registers' values are recorded + as unavailable. */ + +void +supply_regblock (struct regcache *regcache, const void *buf) +{ + if (buf) + { + const struct target_desc *tdesc = regcache->tdesc; + + memcpy (regcache->registers, buf, tdesc->registers_size); +#ifndef IN_PROCESS_AGENT + { + int i; + + for (i = 0; i < tdesc->reg_defs.size (); i++) + regcache->register_status[i] = REG_VALID; + } +#endif + } + else + { + const struct target_desc *tdesc = regcache->tdesc; + + memset (regcache->registers, 0, tdesc->registers_size); +#ifndef IN_PROCESS_AGENT + { + int i; + + for (i = 0; i < tdesc->reg_defs.size (); i++) + regcache->register_status[i] = REG_UNAVAILABLE; + } +#endif + } +} + +#ifndef IN_PROCESS_AGENT + +void +supply_register_by_name (struct regcache *regcache, + const char *name, const void *buf) +{ + supply_register (regcache, find_regno (regcache->tdesc, name), buf); +} + +#endif + +void +collect_register (struct regcache *regcache, int n, void *buf) +{ + regcache->raw_collect (n, buf); +} + +/* See gdbsupport/common-regcache.h. */ + +void +regcache::raw_collect (int n, void *buf) const +{ + memcpy (buf, register_data (this, n, 1), register_size (tdesc, n)); +} + +enum register_status +regcache_raw_read_unsigned (struct regcache *regcache, int regnum, + ULONGEST *val) +{ + int size; + + gdb_assert (regcache != NULL); + gdb_assert (regnum >= 0 + && regnum < regcache->tdesc->reg_defs.size ()); + + size = register_size (regcache->tdesc, regnum); + + if (size > (int) sizeof (ULONGEST)) + error (_("That operation is not available on integers of more than" + "%d bytes."), + (int) sizeof (ULONGEST)); + + *val = 0; + collect_register (regcache, regnum, val); + + return REG_VALID; +} + +#ifndef IN_PROCESS_AGENT + +/* See regcache.h. */ + +ULONGEST +regcache_raw_get_unsigned_by_name (struct regcache *regcache, + const char *name) +{ + return regcache_raw_get_unsigned (regcache, + find_regno (regcache->tdesc, name)); +} + +void +collect_register_as_string (struct regcache *regcache, int n, char *buf) +{ + bin2hex (register_data (regcache, n, 1), buf, + register_size (regcache->tdesc, n)); +} + +void +collect_register_by_name (struct regcache *regcache, + const char *name, void *buf) +{ + collect_register (regcache, find_regno (regcache->tdesc, name), buf); +} + +/* Special handling for register PC. */ + +CORE_ADDR +regcache_read_pc (struct regcache *regcache) +{ + CORE_ADDR pc_val; + + if (the_target->read_pc) + pc_val = the_target->read_pc (regcache); + else + internal_error (__FILE__, __LINE__, + "regcache_read_pc: Unable to find PC"); + + return pc_val; +} + +void +regcache_write_pc (struct regcache *regcache, CORE_ADDR pc) +{ + if (the_target->write_pc) + the_target->write_pc (regcache, pc); + else + internal_error (__FILE__, __LINE__, + "regcache_write_pc: Unable to update PC"); +} + +#endif + +/* See gdbsupport/common-regcache.h. */ + +enum register_status +regcache::get_register_status (int regnum) const +{ +#ifndef IN_PROCESS_AGENT + gdb_assert (regnum >= 0 && regnum < tdesc->reg_defs.size ()); + return (enum register_status) (register_status[regnum]); +#else + return REG_VALID; +#endif +} + +/* See gdbsupport/common-regcache.h. */ + +bool +regcache::raw_compare (int regnum, const void *buf, int offset) const +{ + gdb_assert (buf != NULL); + + const unsigned char *regbuf = register_data (this, regnum, 1); + int size = register_size (tdesc, regnum); + gdb_assert (size >= offset); + + return (memcmp (buf, regbuf + offset, size - offset) == 0); +} diff --git a/gdbserver/remote-utils.c b/gdbserver/remote-utils.c deleted file mode 100644 index b8a8c6576f9..00000000000 --- a/gdbserver/remote-utils.c +++ /dev/null @@ -1,1691 +0,0 @@ -/* Remote utility routines for the remote server for GDB. - Copyright (C) 1986-2020 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 . */ - -#include "server.h" -#if HAVE_TERMIOS_H -#include -#endif -#include "target.h" -#include "gdbthread.h" -#include "tdesc.h" -#include "debug.h" -#include "dll.h" -#include "gdbsupport/rsp-low.h" -#include "gdbsupport/netstuff.h" -#include "gdbsupport/filestuff.h" -#include "gdbsupport/gdb-sigmask.h" -#include -#if HAVE_SYS_IOCTL_H -#include -#endif -#if HAVE_SYS_FILE_H -#include -#endif -#if HAVE_NETINET_IN_H -#include -#endif -#if HAVE_SYS_SOCKET_H -#include -#endif -#if HAVE_NETDB_H -#include -#endif -#if HAVE_NETINET_TCP_H -#include -#endif -#if HAVE_SYS_IOCTL_H -#include -#endif -#if HAVE_SIGNAL_H -#include -#endif -#if HAVE_FCNTL_H -#include -#endif -#include "gdbsupport/gdb_sys_time.h" -#include -#if HAVE_ARPA_INET_H -#include -#endif -#include - -#if USE_WIN32API -#include -#endif - -#if __QNX__ -#include -#endif /* __QNX__ */ - -#ifndef HAVE_SOCKLEN_T -typedef int socklen_t; -#endif - -#ifndef IN_PROCESS_AGENT - -#if USE_WIN32API -# define INVALID_DESCRIPTOR INVALID_SOCKET -#else -# define INVALID_DESCRIPTOR -1 -#endif - -/* Extra value for readchar_callback. */ -enum { - /* The callback is currently not scheduled. */ - NOT_SCHEDULED = -1 -}; - -/* Status of the readchar callback. - Either NOT_SCHEDULED or the callback id. */ -static int readchar_callback = NOT_SCHEDULED; - -static int readchar (void); -static void reset_readchar (void); -static void reschedule (void); - -/* A cache entry for a successfully looked-up symbol. */ -struct sym_cache -{ - char *name; - CORE_ADDR addr; - struct sym_cache *next; -}; - -static int remote_is_stdio = 0; - -static gdb_fildes_t remote_desc = INVALID_DESCRIPTOR; -static gdb_fildes_t listen_desc = INVALID_DESCRIPTOR; - -#ifdef USE_WIN32API -# define read(fd, buf, len) recv (fd, (char *) buf, len, 0) -# define write(fd, buf, len) send (fd, (char *) buf, len, 0) -#endif - -int -gdb_connected (void) -{ - return remote_desc != INVALID_DESCRIPTOR; -} - -/* Return true if the remote connection is over stdio. */ - -int -remote_connection_is_stdio (void) -{ - return remote_is_stdio; -} - -static void -enable_async_notification (int fd) -{ -#if defined(F_SETFL) && defined (FASYNC) - int save_fcntl_flags; - - save_fcntl_flags = fcntl (fd, F_GETFL, 0); - fcntl (fd, F_SETFL, save_fcntl_flags | FASYNC); -#if defined (F_SETOWN) - fcntl (fd, F_SETOWN, getpid ()); -#endif -#endif -} - -static int -handle_accept_event (int err, gdb_client_data client_data) -{ - struct sockaddr_storage sockaddr; - socklen_t len = sizeof (sockaddr); - - if (debug_threads) - debug_printf ("handling possible accept event\n"); - - remote_desc = accept (listen_desc, (struct sockaddr *) &sockaddr, &len); - if (remote_desc == -1) - perror_with_name ("Accept failed"); - - /* Enable TCP keep alive process. */ - socklen_t tmp = 1; - setsockopt (remote_desc, SOL_SOCKET, SO_KEEPALIVE, - (char *) &tmp, sizeof (tmp)); - - /* Tell TCP not to delay small packets. This greatly speeds up - interactive response. */ - tmp = 1; - setsockopt (remote_desc, IPPROTO_TCP, TCP_NODELAY, - (char *) &tmp, sizeof (tmp)); - -#ifndef USE_WIN32API - signal (SIGPIPE, SIG_IGN); /* If we don't do this, then gdbserver simply - exits when the remote side dies. */ -#endif - - if (run_once) - { -#ifndef USE_WIN32API - close (listen_desc); /* No longer need this */ -#else - closesocket (listen_desc); /* No longer need this */ -#endif - } - - /* Even if !RUN_ONCE no longer notice new connections. Still keep the - descriptor open for add_file_handler to wait for a new connection. */ - delete_file_handler (listen_desc); - - /* Convert IP address to string. */ - char orig_host[GDB_NI_MAX_ADDR], orig_port[GDB_NI_MAX_PORT]; - - int r = getnameinfo ((struct sockaddr *) &sockaddr, len, - orig_host, sizeof (orig_host), - orig_port, sizeof (orig_port), - NI_NUMERICHOST | NI_NUMERICSERV); - - if (r != 0) - fprintf (stderr, _("Could not obtain remote address: %s\n"), - gai_strerror (r)); - else - fprintf (stderr, _("Remote debugging from host %s, port %s\n"), - orig_host, orig_port); - - enable_async_notification (remote_desc); - - /* Register the event loop handler. */ - add_file_handler (remote_desc, handle_serial_event, NULL); - - /* We have a new GDB connection now. If we were disconnected - tracing, there's a window where the target could report a stop - event to the event loop, and since we have a connection now, we'd - try to send vStopped notifications to GDB. But, don't do that - until GDB as selected all-stop/non-stop, and has queried the - threads' status ('?'). */ - target_async (0); - - return 0; -} - -/* Prepare for a later connection to a remote debugger. - NAME is the filename used for communication. */ - -void -remote_prepare (const char *name) -{ - client_state &cs = get_client_state (); -#ifdef USE_WIN32API - static int winsock_initialized; -#endif - socklen_t tmp; - - remote_is_stdio = 0; - if (strcmp (name, STDIO_CONNECTION_NAME) == 0) - { - /* We need to record fact that we're using stdio sooner than the - call to remote_open so start_inferior knows the connection is - via stdio. */ - remote_is_stdio = 1; - cs.transport_is_reliable = 1; - return; - } - - struct addrinfo hint; - struct addrinfo *ainfo; - - memset (&hint, 0, sizeof (hint)); - /* Assume no prefix will be passed, therefore we should use - AF_UNSPEC. */ - hint.ai_family = AF_UNSPEC; - hint.ai_socktype = SOCK_STREAM; - hint.ai_protocol = IPPROTO_TCP; - - parsed_connection_spec parsed - = parse_connection_spec_without_prefix (name, &hint); - - if (parsed.port_str.empty ()) - { - cs.transport_is_reliable = 0; - return; - } - -#ifdef USE_WIN32API - if (!winsock_initialized) - { - WSADATA wsad; - - WSAStartup (MAKEWORD (1, 0), &wsad); - winsock_initialized = 1; - } -#endif - - int r = getaddrinfo (parsed.host_str.c_str (), parsed.port_str.c_str (), - &hint, &ainfo); - - if (r != 0) - error (_("%s: cannot resolve name: %s"), name, gai_strerror (r)); - - scoped_free_addrinfo freeaddrinfo (ainfo); - - struct addrinfo *iter; - - for (iter = ainfo; iter != NULL; iter = iter->ai_next) - { - listen_desc = gdb_socket_cloexec (iter->ai_family, iter->ai_socktype, - iter->ai_protocol); - - if (listen_desc >= 0) - break; - } - - if (iter == NULL) - perror_with_name ("Can't open socket"); - - /* Allow rapid reuse of this port. */ - tmp = 1; - setsockopt (listen_desc, SOL_SOCKET, SO_REUSEADDR, (char *) &tmp, - sizeof (tmp)); - - switch (iter->ai_family) - { - case AF_INET: - ((struct sockaddr_in *) iter->ai_addr)->sin_addr.s_addr = INADDR_ANY; - break; - case AF_INET6: - ((struct sockaddr_in6 *) iter->ai_addr)->sin6_addr = in6addr_any; - break; - default: - internal_error (__FILE__, __LINE__, - _("Invalid 'ai_family' %d\n"), iter->ai_family); - } - - if (bind (listen_desc, iter->ai_addr, iter->ai_addrlen) != 0) - perror_with_name ("Can't bind address"); - - if (listen (listen_desc, 1) != 0) - perror_with_name ("Can't listen on socket"); - - cs.transport_is_reliable = 1; -} - -/* Open a connection to a remote debugger. - NAME is the filename used for communication. */ - -void -remote_open (const char *name) -{ - const char *port_str; - - port_str = strchr (name, ':'); -#ifdef USE_WIN32API - if (port_str == NULL) - error ("Only HOST:PORT is supported on this platform."); -#endif - - if (strcmp (name, STDIO_CONNECTION_NAME) == 0) - { - fprintf (stderr, "Remote debugging using stdio\n"); - - /* Use stdin as the handle of the connection. - We only select on reads, for example. */ - remote_desc = fileno (stdin); - - enable_async_notification (remote_desc); - - /* Register the event loop handler. */ - add_file_handler (remote_desc, handle_serial_event, NULL); - } -#ifndef USE_WIN32API - else if (port_str == NULL) - { - struct stat statbuf; - - if (stat (name, &statbuf) == 0 - && (S_ISCHR (statbuf.st_mode) || S_ISFIFO (statbuf.st_mode))) - remote_desc = open (name, O_RDWR); - else - { - errno = EINVAL; - remote_desc = -1; - } - - if (remote_desc < 0) - perror_with_name ("Could not open remote device"); - -#if HAVE_TERMIOS_H - { - struct termios termios; - tcgetattr (remote_desc, &termios); - - termios.c_iflag = 0; - termios.c_oflag = 0; - termios.c_lflag = 0; - termios.c_cflag &= ~(CSIZE | PARENB); - termios.c_cflag |= CLOCAL | CS8; - termios.c_cc[VMIN] = 1; - termios.c_cc[VTIME] = 0; - - tcsetattr (remote_desc, TCSANOW, &termios); - } -#endif - - fprintf (stderr, "Remote debugging using %s\n", name); - - enable_async_notification (remote_desc); - - /* Register the event loop handler. */ - add_file_handler (remote_desc, handle_serial_event, NULL); - } -#endif /* USE_WIN32API */ - else - { - char listen_port[GDB_NI_MAX_PORT]; - struct sockaddr_storage sockaddr; - socklen_t len = sizeof (sockaddr); - - if (getsockname (listen_desc, (struct sockaddr *) &sockaddr, &len) < 0) - perror_with_name ("Can't determine port"); - - int r = getnameinfo ((struct sockaddr *) &sockaddr, len, - NULL, 0, - listen_port, sizeof (listen_port), - NI_NUMERICSERV); - - if (r != 0) - fprintf (stderr, _("Can't obtain port where we are listening: %s"), - gai_strerror (r)); - else - fprintf (stderr, _("Listening on port %s\n"), listen_port); - - fflush (stderr); - - /* Register the event loop handler. */ - add_file_handler (listen_desc, handle_accept_event, NULL); - } -} - -void -remote_close (void) -{ - delete_file_handler (remote_desc); - - disable_async_io (); - -#ifdef USE_WIN32API - closesocket (remote_desc); -#else - if (! remote_connection_is_stdio ()) - close (remote_desc); -#endif - remote_desc = INVALID_DESCRIPTOR; - - reset_readchar (); -} - -#endif - -#ifndef IN_PROCESS_AGENT - -void -decode_address (CORE_ADDR *addrp, const char *start, int len) -{ - CORE_ADDR addr; - char ch; - int i; - - addr = 0; - for (i = 0; i < len; i++) - { - ch = start[i]; - addr = addr << 4; - addr = addr | (fromhex (ch) & 0x0f); - } - *addrp = addr; -} - -const char * -decode_address_to_semicolon (CORE_ADDR *addrp, const char *start) -{ - const char *end; - - end = start; - while (*end != '\0' && *end != ';') - end++; - - decode_address (addrp, start, end - start); - - if (*end == ';') - end++; - return end; -} - -#endif - -#ifndef IN_PROCESS_AGENT - -/* Look for a sequence of characters which can be run-length encoded. - If there are any, update *CSUM and *P. Otherwise, output the - single character. Return the number of characters consumed. */ - -static int -try_rle (char *buf, int remaining, unsigned char *csum, char **p) -{ - int n; - - /* Always output the character. */ - *csum += buf[0]; - *(*p)++ = buf[0]; - - /* Don't go past '~'. */ - if (remaining > 97) - remaining = 97; - - for (n = 1; n < remaining; n++) - if (buf[n] != buf[0]) - break; - - /* N is the index of the first character not the same as buf[0]. - buf[0] is counted twice, so by decrementing N, we get the number - of characters the RLE sequence will replace. */ - n--; - - if (n < 3) - return 1; - - /* Skip the frame characters. The manual says to skip '+' and '-' - also, but there's no reason to. Unfortunately these two unusable - characters double the encoded length of a four byte zero - value. */ - while (n + 29 == '$' || n + 29 == '#') - n--; - - *csum += '*'; - *(*p)++ = '*'; - *csum += n + 29; - *(*p)++ = n + 29; - - return n + 1; -} - -#endif - -#ifndef IN_PROCESS_AGENT - -/* Write a PTID to BUF. Returns BUF+CHARACTERS_WRITTEN. */ - -char * -write_ptid (char *buf, ptid_t ptid) -{ - client_state &cs = get_client_state (); - int pid, tid; - - if (cs.multi_process) - { - pid = ptid.pid (); - if (pid < 0) - buf += sprintf (buf, "p-%x.", -pid); - else - buf += sprintf (buf, "p%x.", pid); - } - tid = ptid.lwp (); - if (tid < 0) - buf += sprintf (buf, "-%x", -tid); - else - buf += sprintf (buf, "%x", tid); - - return buf; -} - -static ULONGEST -hex_or_minus_one (const char *buf, const char **obuf) -{ - ULONGEST ret; - - if (startswith (buf, "-1")) - { - ret = (ULONGEST) -1; - buf += 2; - } - else - buf = unpack_varlen_hex (buf, &ret); - - if (obuf) - *obuf = buf; - - return ret; -} - -/* Extract a PTID from BUF. If non-null, OBUF is set to the to one - passed the last parsed char. Returns null_ptid on error. */ -ptid_t -read_ptid (const char *buf, const char **obuf) -{ - const char *p = buf; - const char *pp; - ULONGEST pid = 0, tid = 0; - - if (*p == 'p') - { - /* Multi-process ptid. */ - pp = unpack_varlen_hex (p + 1, &pid); - if (*pp != '.') - error ("invalid remote ptid: %s\n", p); - - p = pp + 1; - - tid = hex_or_minus_one (p, &pp); - - if (obuf) - *obuf = pp; - return ptid_t (pid, tid, 0); - } - - /* No multi-process. Just a tid. */ - tid = hex_or_minus_one (p, &pp); - - /* Since GDB is not sending a process id (multi-process extensions - are off), then there's only one process. Default to the first in - the list. */ - pid = pid_of (get_first_process ()); - - if (obuf) - *obuf = pp; - return ptid_t (pid, tid, 0); -} - -/* Write COUNT bytes in BUF to the client. - The result is the number of bytes written or -1 if error. - This may return less than COUNT. */ - -static int -write_prim (const void *buf, int count) -{ - if (remote_connection_is_stdio ()) - return write (fileno (stdout), buf, count); - else - return write (remote_desc, buf, count); -} - -/* Read COUNT bytes from the client and store in BUF. - The result is the number of bytes read or -1 if error. - This may return less than COUNT. */ - -static int -read_prim (void *buf, int count) -{ - if (remote_connection_is_stdio ()) - return read (fileno (stdin), buf, count); - else - return read (remote_desc, buf, count); -} - -/* Send a packet to the remote machine, with error checking. - The data of the packet is in BUF, and the length of the - packet is in CNT. Returns >= 0 on success, -1 otherwise. */ - -static int -putpkt_binary_1 (char *buf, int cnt, int is_notif) -{ - client_state &cs = get_client_state (); - int i; - unsigned char csum = 0; - char *buf2; - char *p; - int cc; - - buf2 = (char *) xmalloc (strlen ("$") + cnt + strlen ("#nn") + 1); - - /* Copy the packet into buffer BUF2, encapsulating it - and giving it a checksum. */ - - p = buf2; - if (is_notif) - *p++ = '%'; - else - *p++ = '$'; - - for (i = 0; i < cnt;) - i += try_rle (buf + i, cnt - i, &csum, &p); - - *p++ = '#'; - *p++ = tohex ((csum >> 4) & 0xf); - *p++ = tohex (csum & 0xf); - - *p = '\0'; - - /* Send it over and over until we get a positive ack. */ - - do - { - if (write_prim (buf2, p - buf2) != p - buf2) - { - perror ("putpkt(write)"); - free (buf2); - return -1; - } - - if (cs.noack_mode || is_notif) - { - /* Don't expect an ack then. */ - if (remote_debug) - { - if (is_notif) - debug_printf ("putpkt (\"%s\"); [notif]\n", buf2); - else - debug_printf ("putpkt (\"%s\"); [noack mode]\n", buf2); - debug_flush (); - } - break; - } - - if (remote_debug) - { - debug_printf ("putpkt (\"%s\"); [looking for ack]\n", buf2); - debug_flush (); - } - - cc = readchar (); - - if (cc < 0) - { - free (buf2); - return -1; - } - - if (remote_debug) - { - debug_printf ("[received '%c' (0x%x)]\n", cc, cc); - debug_flush (); - } - - /* Check for an input interrupt while we're here. */ - if (cc == '\003' && current_thread != NULL) - (*the_target->request_interrupt) (); - } - while (cc != '+'); - - free (buf2); - return 1; /* Success! */ -} - -int -putpkt_binary (char *buf, int cnt) -{ - return putpkt_binary_1 (buf, cnt, 0); -} - -/* Send a packet to the remote machine, with error checking. The data - of the packet is in BUF, and the packet should be a NUL-terminated - string. Returns >= 0 on success, -1 otherwise. */ - -int -putpkt (char *buf) -{ - return putpkt_binary (buf, strlen (buf)); -} - -int -putpkt_notif (char *buf) -{ - return putpkt_binary_1 (buf, strlen (buf), 1); -} - -/* Come here when we get an input interrupt from the remote side. This - interrupt should only be active while we are waiting for the child to do - something. Thus this assumes readchar:bufcnt is 0. - About the only thing that should come through is a ^C, which - will cause us to request child interruption. */ - -static void -input_interrupt (int unused) -{ - fd_set readset; - struct timeval immediate = { 0, 0 }; - - /* Protect against spurious interrupts. This has been observed to - be a problem under NetBSD 1.4 and 1.5. */ - - FD_ZERO (&readset); - FD_SET (remote_desc, &readset); - if (select (remote_desc + 1, &readset, 0, 0, &immediate) > 0) - { - int cc; - char c = 0; - - cc = read_prim (&c, 1); - - if (cc == 0) - { - fprintf (stderr, "client connection closed\n"); - return; - } - else if (cc != 1 || c != '\003') - { - fprintf (stderr, "input_interrupt, count = %d c = %d ", cc, c); - if (isprint (c)) - fprintf (stderr, "('%c')\n", c); - else - fprintf (stderr, "('\\x%02x')\n", c & 0xff); - return; - } - - (*the_target->request_interrupt) (); - } -} - -/* Check if the remote side sent us an interrupt request (^C). */ -void -check_remote_input_interrupt_request (void) -{ - /* This function may be called before establishing communications, - therefore we need to validate the remote descriptor. */ - - if (remote_desc == INVALID_DESCRIPTOR) - return; - - input_interrupt (0); -} - -/* Asynchronous I/O support. SIGIO must be unblocked when waiting, - in order to accept Control-C from the client, and must be blocked - when talking to the client. */ - -static void -block_unblock_async_io (int block) -{ -#ifndef USE_WIN32API - sigset_t sigio_set; - - sigemptyset (&sigio_set); - sigaddset (&sigio_set, SIGIO); - gdb_sigmask (block ? SIG_BLOCK : SIG_UNBLOCK, &sigio_set, NULL); -#endif -} - -#ifdef __QNX__ -static void -nto_comctrl (int enable) -{ - struct sigevent event; - - if (enable) - { - event.sigev_notify = SIGEV_SIGNAL_THREAD; - event.sigev_signo = SIGIO; - event.sigev_code = 0; - event.sigev_value.sival_ptr = NULL; - event.sigev_priority = -1; - ionotify (remote_desc, _NOTIFY_ACTION_POLLARM, _NOTIFY_COND_INPUT, - &event); - } - else - ionotify (remote_desc, _NOTIFY_ACTION_POLL, _NOTIFY_COND_INPUT, NULL); -} -#endif /* __QNX__ */ - - -/* Current state of asynchronous I/O. */ -static int async_io_enabled; - -/* Enable asynchronous I/O. */ -void -enable_async_io (void) -{ - if (async_io_enabled) - return; - - block_unblock_async_io (0); - - async_io_enabled = 1; -#ifdef __QNX__ - nto_comctrl (1); -#endif /* __QNX__ */ -} - -/* Disable asynchronous I/O. */ -void -disable_async_io (void) -{ - if (!async_io_enabled) - return; - - block_unblock_async_io (1); - - async_io_enabled = 0; -#ifdef __QNX__ - nto_comctrl (0); -#endif /* __QNX__ */ - -} - -void -initialize_async_io (void) -{ - /* Make sure that async I/O starts blocked. */ - async_io_enabled = 1; - disable_async_io (); - - /* Install the signal handler. */ -#ifndef USE_WIN32API - signal (SIGIO, input_interrupt); -#endif -} - -/* Internal buffer used by readchar. - These are global to readchar because reschedule_remote needs to be - able to tell whether the buffer is empty. */ - -static unsigned char readchar_buf[BUFSIZ]; -static int readchar_bufcnt = 0; -static unsigned char *readchar_bufp; - -/* Returns next char from remote GDB. -1 if error. */ - -static int -readchar (void) -{ - int ch; - - if (readchar_bufcnt == 0) - { - readchar_bufcnt = read_prim (readchar_buf, sizeof (readchar_buf)); - - if (readchar_bufcnt <= 0) - { - if (readchar_bufcnt == 0) - { - if (remote_debug) - debug_printf ("readchar: Got EOF\n"); - } - else - perror ("readchar"); - - return -1; - } - - readchar_bufp = readchar_buf; - } - - readchar_bufcnt--; - ch = *readchar_bufp++; - reschedule (); - return ch; -} - -/* Reset the readchar state machine. */ - -static void -reset_readchar (void) -{ - readchar_bufcnt = 0; - if (readchar_callback != NOT_SCHEDULED) - { - delete_callback_event (readchar_callback); - readchar_callback = NOT_SCHEDULED; - } -} - -/* Process remaining data in readchar_buf. */ - -static int -process_remaining (void *context) -{ - int res; - - /* This is a one-shot event. */ - readchar_callback = NOT_SCHEDULED; - - if (readchar_bufcnt > 0) - res = handle_serial_event (0, NULL); - else - res = 0; - - return res; -} - -/* If there is still data in the buffer, queue another event to process it, - we can't sleep in select yet. */ - -static void -reschedule (void) -{ - if (readchar_bufcnt > 0 && readchar_callback == NOT_SCHEDULED) - readchar_callback = append_callback_event (process_remaining, NULL); -} - -/* Read a packet from the remote machine, with error checking, - and store it in BUF. Returns length of packet, or negative if error. */ - -int -getpkt (char *buf) -{ - client_state &cs = get_client_state (); - char *bp; - unsigned char csum, c1, c2; - int c; - - while (1) - { - csum = 0; - - while (1) - { - c = readchar (); - - /* The '\003' may appear before or after each packet, so - check for an input interrupt. */ - if (c == '\003') - { - (*the_target->request_interrupt) (); - continue; - } - - if (c == '$') - break; - if (remote_debug) - { - debug_printf ("[getpkt: discarding char '%c']\n", c); - debug_flush (); - } - - if (c < 0) - return -1; - } - - bp = buf; - while (1) - { - c = readchar (); - if (c < 0) - return -1; - if (c == '#') - break; - *bp++ = c; - csum += c; - } - *bp = 0; - - c1 = fromhex (readchar ()); - c2 = fromhex (readchar ()); - - if (csum == (c1 << 4) + c2) - break; - - if (cs.noack_mode) - { - fprintf (stderr, - "Bad checksum, sentsum=0x%x, csum=0x%x, " - "buf=%s [no-ack-mode, Bad medium?]\n", - (c1 << 4) + c2, csum, buf); - /* Not much we can do, GDB wasn't expecting an ack/nac. */ - break; - } - - fprintf (stderr, "Bad checksum, sentsum=0x%x, csum=0x%x, buf=%s\n", - (c1 << 4) + c2, csum, buf); - if (write_prim ("-", 1) != 1) - return -1; - } - - if (!cs.noack_mode) - { - if (remote_debug) - { - debug_printf ("getpkt (\"%s\"); [sending ack] \n", buf); - debug_flush (); - } - - if (write_prim ("+", 1) != 1) - return -1; - - if (remote_debug) - { - debug_printf ("[sent ack]\n"); - debug_flush (); - } - } - else - { - if (remote_debug) - { - debug_printf ("getpkt (\"%s\"); [no ack sent] \n", buf); - debug_flush (); - } - } - - /* The readchar above may have already read a '\003' out of the socket - and moved it to the local buffer. For example, when GDB sends - vCont;c immediately followed by interrupt (see - gdb.base/interrupt-noterm.exp). As soon as we see the vCont;c, we'll - resume the inferior and wait. Since we've already moved the '\003' - to the local buffer, SIGIO won't help. In that case, if we don't - check for interrupt after the vCont;c packet, the interrupt character - would stay in the buffer unattended until after the next (unrelated) - stop. */ - while (readchar_bufcnt > 0 && *readchar_bufp == '\003') - { - /* Consume the interrupt character in the buffer. */ - readchar (); - (*the_target->request_interrupt) (); - } - - return bp - buf; -} - -void -write_ok (char *buf) -{ - buf[0] = 'O'; - buf[1] = 'K'; - buf[2] = '\0'; -} - -void -write_enn (char *buf) -{ - /* Some day, we should define the meanings of the error codes... */ - buf[0] = 'E'; - buf[1] = '0'; - buf[2] = '1'; - buf[3] = '\0'; -} - -#endif - -#ifndef IN_PROCESS_AGENT - -static char * -outreg (struct regcache *regcache, int regno, char *buf) -{ - if ((regno >> 12) != 0) - *buf++ = tohex ((regno >> 12) & 0xf); - if ((regno >> 8) != 0) - *buf++ = tohex ((regno >> 8) & 0xf); - *buf++ = tohex ((regno >> 4) & 0xf); - *buf++ = tohex (regno & 0xf); - *buf++ = ':'; - collect_register_as_string (regcache, regno, buf); - buf += 2 * register_size (regcache->tdesc, regno); - *buf++ = ';'; - - return buf; -} - -void -prepare_resume_reply (char *buf, ptid_t ptid, - struct target_waitstatus *status) -{ - client_state &cs = get_client_state (); - if (debug_threads) - debug_printf ("Writing resume reply for %s:%d\n", - target_pid_to_str (ptid), status->kind); - - switch (status->kind) - { - case TARGET_WAITKIND_STOPPED: - case TARGET_WAITKIND_FORKED: - case TARGET_WAITKIND_VFORKED: - case TARGET_WAITKIND_VFORK_DONE: - case TARGET_WAITKIND_EXECD: - case TARGET_WAITKIND_THREAD_CREATED: - case TARGET_WAITKIND_SYSCALL_ENTRY: - case TARGET_WAITKIND_SYSCALL_RETURN: - { - struct thread_info *saved_thread; - const char **regp; - struct regcache *regcache; - - if ((status->kind == TARGET_WAITKIND_FORKED && cs.report_fork_events) - || (status->kind == TARGET_WAITKIND_VFORKED - && cs.report_vfork_events)) - { - enum gdb_signal signal = GDB_SIGNAL_TRAP; - const char *event = (status->kind == TARGET_WAITKIND_FORKED - ? "fork" : "vfork"); - - sprintf (buf, "T%02x%s:", signal, event); - buf += strlen (buf); - buf = write_ptid (buf, status->value.related_pid); - strcat (buf, ";"); - } - else if (status->kind == TARGET_WAITKIND_VFORK_DONE - && cs.report_vfork_events) - { - enum gdb_signal signal = GDB_SIGNAL_TRAP; - - sprintf (buf, "T%02xvforkdone:;", signal); - } - else if (status->kind == TARGET_WAITKIND_EXECD && cs.report_exec_events) - { - enum gdb_signal signal = GDB_SIGNAL_TRAP; - const char *event = "exec"; - char hexified_pathname[PATH_MAX * 2]; - - sprintf (buf, "T%02x%s:", signal, event); - buf += strlen (buf); - - /* Encode pathname to hexified format. */ - bin2hex ((const gdb_byte *) status->value.execd_pathname, - hexified_pathname, - strlen (status->value.execd_pathname)); - - sprintf (buf, "%s;", hexified_pathname); - xfree (status->value.execd_pathname); - status->value.execd_pathname = NULL; - buf += strlen (buf); - } - else if (status->kind == TARGET_WAITKIND_THREAD_CREATED - && cs.report_thread_events) - { - enum gdb_signal signal = GDB_SIGNAL_TRAP; - - sprintf (buf, "T%02xcreate:;", signal); - } - else if (status->kind == TARGET_WAITKIND_SYSCALL_ENTRY - || status->kind == TARGET_WAITKIND_SYSCALL_RETURN) - { - enum gdb_signal signal = GDB_SIGNAL_TRAP; - const char *event = (status->kind == TARGET_WAITKIND_SYSCALL_ENTRY - ? "syscall_entry" : "syscall_return"); - - sprintf (buf, "T%02x%s:%x;", signal, event, - status->value.syscall_number); - } - else - sprintf (buf, "T%02x", status->value.sig); - - buf += strlen (buf); - - saved_thread = current_thread; - - switch_to_thread (the_target, ptid); - - regp = current_target_desc ()->expedite_regs; - - regcache = get_thread_regcache (current_thread, 1); - - if (the_target->stopped_by_watchpoint != NULL - && (*the_target->stopped_by_watchpoint) ()) - { - CORE_ADDR addr; - int i; - - memcpy (buf, "watch:", 6); - buf += 6; - - addr = (*the_target->stopped_data_address) (); - - /* Convert each byte of the address into two hexadecimal - chars. Note that we take sizeof (void *) instead of - sizeof (addr); this is to avoid sending a 64-bit - address to a 32-bit GDB. */ - for (i = sizeof (void *) * 2; i > 0; i--) - *buf++ = tohex ((addr >> (i - 1) * 4) & 0xf); - *buf++ = ';'; - } - else if (cs.swbreak_feature && target_stopped_by_sw_breakpoint ()) - { - sprintf (buf, "swbreak:;"); - buf += strlen (buf); - } - else if (cs.hwbreak_feature && target_stopped_by_hw_breakpoint ()) - { - sprintf (buf, "hwbreak:;"); - buf += strlen (buf); - } - - while (*regp) - { - buf = outreg (regcache, find_regno (regcache->tdesc, *regp), buf); - regp ++; - } - *buf = '\0'; - - /* Formerly, if the debugger had not used any thread features - we would not burden it with a thread status response. This - was for the benefit of GDB 4.13 and older. However, in - recent GDB versions the check (``if (cont_thread != 0)'') - does not have the desired effect because of sillyness in - the way that the remote protocol handles specifying a - thread. Since thread support relies on qSymbol support - anyway, assume GDB can handle threads. */ - - if (using_threads && !disable_packet_Tthread) - { - /* This if (1) ought to be unnecessary. But remote_wait - in GDB will claim this event belongs to inferior_ptid - if we do not specify a thread, and there's no way for - gdbserver to know what inferior_ptid is. */ - if (1 || cs.general_thread != ptid) - { - int core = -1; - /* In non-stop, don't change the general thread behind - GDB's back. */ - if (!non_stop) - cs.general_thread = ptid; - sprintf (buf, "thread:"); - buf += strlen (buf); - buf = write_ptid (buf, ptid); - strcat (buf, ";"); - buf += strlen (buf); - - core = target_core_of_thread (ptid); - - if (core != -1) - { - sprintf (buf, "core:"); - buf += strlen (buf); - sprintf (buf, "%x", core); - strcat (buf, ";"); - buf += strlen (buf); - } - } - } - - if (dlls_changed) - { - strcpy (buf, "library:;"); - buf += strlen (buf); - dlls_changed = 0; - } - - current_thread = saved_thread; - } - break; - case TARGET_WAITKIND_EXITED: - if (cs.multi_process) - sprintf (buf, "W%x;process:%x", - status->value.integer, ptid.pid ()); - else - sprintf (buf, "W%02x", status->value.integer); - break; - case TARGET_WAITKIND_SIGNALLED: - if (cs.multi_process) - sprintf (buf, "X%x;process:%x", - status->value.sig, ptid.pid ()); - else - sprintf (buf, "X%02x", status->value.sig); - break; - case TARGET_WAITKIND_THREAD_EXITED: - sprintf (buf, "w%x;", status->value.integer); - buf += strlen (buf); - buf = write_ptid (buf, ptid); - break; - case TARGET_WAITKIND_NO_RESUMED: - sprintf (buf, "N"); - break; - default: - error ("unhandled waitkind"); - break; - } -} - -void -decode_m_packet (char *from, CORE_ADDR *mem_addr_ptr, unsigned int *len_ptr) -{ - int i = 0, j = 0; - char ch; - *mem_addr_ptr = *len_ptr = 0; - - while ((ch = from[i++]) != ',') - { - *mem_addr_ptr = *mem_addr_ptr << 4; - *mem_addr_ptr |= fromhex (ch) & 0x0f; - } - - for (j = 0; j < 4; j++) - { - if ((ch = from[i++]) == 0) - break; - *len_ptr = *len_ptr << 4; - *len_ptr |= fromhex (ch) & 0x0f; - } -} - -void -decode_M_packet (char *from, CORE_ADDR *mem_addr_ptr, unsigned int *len_ptr, - unsigned char **to_p) -{ - int i = 0; - char ch; - *mem_addr_ptr = *len_ptr = 0; - - while ((ch = from[i++]) != ',') - { - *mem_addr_ptr = *mem_addr_ptr << 4; - *mem_addr_ptr |= fromhex (ch) & 0x0f; - } - - while ((ch = from[i++]) != ':') - { - *len_ptr = *len_ptr << 4; - *len_ptr |= fromhex (ch) & 0x0f; - } - - if (*to_p == NULL) - *to_p = (unsigned char *) xmalloc (*len_ptr); - - hex2bin (&from[i++], *to_p, *len_ptr); -} - -int -decode_X_packet (char *from, int packet_len, CORE_ADDR *mem_addr_ptr, - unsigned int *len_ptr, unsigned char **to_p) -{ - int i = 0; - char ch; - *mem_addr_ptr = *len_ptr = 0; - - while ((ch = from[i++]) != ',') - { - *mem_addr_ptr = *mem_addr_ptr << 4; - *mem_addr_ptr |= fromhex (ch) & 0x0f; - } - - while ((ch = from[i++]) != ':') - { - *len_ptr = *len_ptr << 4; - *len_ptr |= fromhex (ch) & 0x0f; - } - - if (*to_p == NULL) - *to_p = (unsigned char *) xmalloc (*len_ptr); - - if (remote_unescape_input ((const gdb_byte *) &from[i], packet_len - i, - *to_p, *len_ptr) != *len_ptr) - return -1; - - return 0; -} - -/* Decode a qXfer write request. */ - -int -decode_xfer_write (char *buf, int packet_len, CORE_ADDR *offset, - unsigned int *len, unsigned char *data) -{ - char ch; - char *b = buf; - - /* Extract the offset. */ - *offset = 0; - while ((ch = *buf++) != ':') - { - *offset = *offset << 4; - *offset |= fromhex (ch) & 0x0f; - } - - /* Get encoded data. */ - packet_len -= buf - b; - *len = remote_unescape_input ((const gdb_byte *) buf, packet_len, - data, packet_len); - return 0; -} - -/* Decode the parameters of a qSearch:memory packet. */ - -int -decode_search_memory_packet (const char *buf, int packet_len, - CORE_ADDR *start_addrp, - CORE_ADDR *search_space_lenp, - gdb_byte *pattern, unsigned int *pattern_lenp) -{ - const char *p = buf; - - p = decode_address_to_semicolon (start_addrp, p); - p = decode_address_to_semicolon (search_space_lenp, p); - packet_len -= p - buf; - *pattern_lenp = remote_unescape_input ((const gdb_byte *) p, packet_len, - pattern, packet_len); - return 0; -} - -static void -free_sym_cache (struct sym_cache *sym) -{ - if (sym != NULL) - { - free (sym->name); - free (sym); - } -} - -void -clear_symbol_cache (struct sym_cache **symcache_p) -{ - struct sym_cache *sym, *next; - - /* Check the cache first. */ - for (sym = *symcache_p; sym; sym = next) - { - next = sym->next; - free_sym_cache (sym); - } - - *symcache_p = NULL; -} - -/* Get the address of NAME, and return it in ADDRP if found. if - MAY_ASK_GDB is false, assume symbol cache misses are failures. - Returns 1 if the symbol is found, 0 if it is not, -1 on error. */ - -int -look_up_one_symbol (const char *name, CORE_ADDR *addrp, int may_ask_gdb) -{ - client_state &cs = get_client_state (); - char *p, *q; - int len; - struct sym_cache *sym; - struct process_info *proc; - - proc = current_process (); - - /* Check the cache first. */ - for (sym = proc->symbol_cache; sym; sym = sym->next) - if (strcmp (name, sym->name) == 0) - { - *addrp = sym->addr; - return 1; - } - - /* It might not be an appropriate time to look up a symbol, - e.g. while we're trying to fetch registers. */ - if (!may_ask_gdb) - return 0; - - /* Send the request. */ - strcpy (cs.own_buf, "qSymbol:"); - bin2hex ((const gdb_byte *) name, cs.own_buf + strlen ("qSymbol:"), - strlen (name)); - if (putpkt (cs.own_buf) < 0) - return -1; - - /* FIXME: Eventually add buffer overflow checking (to getpkt?) */ - len = getpkt (cs.own_buf); - if (len < 0) - return -1; - - /* We ought to handle pretty much any packet at this point while we - wait for the qSymbol "response". That requires re-entering the - main loop. For now, this is an adequate approximation; allow - GDB to read from memory and handle 'v' packets (for vFile transfers) - while it figures out the address of the symbol. */ - while (1) - { - if (cs.own_buf[0] == 'm') - { - CORE_ADDR mem_addr; - unsigned char *mem_buf; - unsigned int mem_len; - - decode_m_packet (&cs.own_buf[1], &mem_addr, &mem_len); - mem_buf = (unsigned char *) xmalloc (mem_len); - if (read_inferior_memory (mem_addr, mem_buf, mem_len) == 0) - bin2hex (mem_buf, cs.own_buf, mem_len); - else - write_enn (cs.own_buf); - free (mem_buf); - if (putpkt (cs.own_buf) < 0) - return -1; - } - else if (cs.own_buf[0] == 'v') - { - int new_len = -1; - handle_v_requests (cs.own_buf, len, &new_len); - if (new_len != -1) - putpkt_binary (cs.own_buf, new_len); - else - putpkt (cs.own_buf); - } - else - break; - len = getpkt (cs.own_buf); - if (len < 0) - return -1; - } - - if (!startswith (cs.own_buf, "qSymbol:")) - { - warning ("Malformed response to qSymbol, ignoring: %s", cs.own_buf); - return -1; - } - - p = cs.own_buf + strlen ("qSymbol:"); - q = p; - while (*q && *q != ':') - q++; - - /* Make sure we found a value for the symbol. */ - if (p == q || *q == '\0') - return 0; - - decode_address (addrp, p, q - p); - - /* Save the symbol in our cache. */ - sym = XNEW (struct sym_cache); - sym->name = xstrdup (name); - sym->addr = *addrp; - sym->next = proc->symbol_cache; - proc->symbol_cache = sym; - - return 1; -} - -/* Relocate an instruction to execute at a different address. OLDLOC - is the address in the inferior memory where the instruction to - relocate is currently at. On input, TO points to the destination - where we want the instruction to be copied (and possibly adjusted) - to. On output, it points to one past the end of the resulting - instruction(s). The effect of executing the instruction at TO - shall be the same as if executing it at OLDLOC. For example, call - instructions that implicitly push the return address on the stack - should be adjusted to return to the instruction after OLDLOC; - relative branches, and other PC-relative instructions need the - offset adjusted; etc. Returns 0 on success, -1 on failure. */ - -int -relocate_instruction (CORE_ADDR *to, CORE_ADDR oldloc) -{ - client_state &cs = get_client_state (); - int len; - ULONGEST written = 0; - - /* Send the request. */ - sprintf (cs.own_buf, "qRelocInsn:%s;%s", paddress (oldloc), - paddress (*to)); - if (putpkt (cs.own_buf) < 0) - return -1; - - /* FIXME: Eventually add buffer overflow checking (to getpkt?) */ - len = getpkt (cs.own_buf); - if (len < 0) - return -1; - - /* We ought to handle pretty much any packet at this point while we - wait for the qRelocInsn "response". That requires re-entering - the main loop. For now, this is an adequate approximation; allow - GDB to access memory. */ - while (cs.own_buf[0] == 'm' || cs.own_buf[0] == 'M' || cs.own_buf[0] == 'X') - { - CORE_ADDR mem_addr; - unsigned char *mem_buf = NULL; - unsigned int mem_len; - - if (cs.own_buf[0] == 'm') - { - decode_m_packet (&cs.own_buf[1], &mem_addr, &mem_len); - mem_buf = (unsigned char *) xmalloc (mem_len); - if (read_inferior_memory (mem_addr, mem_buf, mem_len) == 0) - bin2hex (mem_buf, cs.own_buf, mem_len); - else - write_enn (cs.own_buf); - } - else if (cs.own_buf[0] == 'X') - { - if (decode_X_packet (&cs.own_buf[1], len - 1, &mem_addr, - &mem_len, &mem_buf) < 0 - || target_write_memory (mem_addr, mem_buf, mem_len) != 0) - write_enn (cs.own_buf); - else - write_ok (cs.own_buf); - } - else - { - decode_M_packet (&cs.own_buf[1], &mem_addr, &mem_len, &mem_buf); - if (target_write_memory (mem_addr, mem_buf, mem_len) == 0) - write_ok (cs.own_buf); - else - write_enn (cs.own_buf); - } - free (mem_buf); - if (putpkt (cs.own_buf) < 0) - return -1; - len = getpkt (cs.own_buf); - if (len < 0) - return -1; - } - - if (cs.own_buf[0] == 'E') - { - warning ("An error occurred while relocating an instruction: %s", - cs.own_buf); - return -1; - } - - if (!startswith (cs.own_buf, "qRelocInsn:")) - { - warning ("Malformed response to qRelocInsn, ignoring: %s", - cs.own_buf); - return -1; - } - - unpack_varlen_hex (cs.own_buf + strlen ("qRelocInsn:"), &written); - - *to += written; - return 0; -} - -void -monitor_output (const char *msg) -{ - int len = strlen (msg); - char *buf = (char *) xmalloc (len * 2 + 2); - - buf[0] = 'O'; - bin2hex ((const gdb_byte *) msg, buf + 1, len); - - putpkt (buf); - free (buf); -} - -#endif diff --git a/gdbserver/remote-utils.cc b/gdbserver/remote-utils.cc new file mode 100644 index 00000000000..b8a8c6576f9 --- /dev/null +++ b/gdbserver/remote-utils.cc @@ -0,0 +1,1691 @@ +/* Remote utility routines for the remote server for GDB. + Copyright (C) 1986-2020 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 . */ + +#include "server.h" +#if HAVE_TERMIOS_H +#include +#endif +#include "target.h" +#include "gdbthread.h" +#include "tdesc.h" +#include "debug.h" +#include "dll.h" +#include "gdbsupport/rsp-low.h" +#include "gdbsupport/netstuff.h" +#include "gdbsupport/filestuff.h" +#include "gdbsupport/gdb-sigmask.h" +#include +#if HAVE_SYS_IOCTL_H +#include +#endif +#if HAVE_SYS_FILE_H +#include +#endif +#if HAVE_NETINET_IN_H +#include +#endif +#if HAVE_SYS_SOCKET_H +#include +#endif +#if HAVE_NETDB_H +#include +#endif +#if HAVE_NETINET_TCP_H +#include +#endif +#if HAVE_SYS_IOCTL_H +#include +#endif +#if HAVE_SIGNAL_H +#include +#endif +#if HAVE_FCNTL_H +#include +#endif +#include "gdbsupport/gdb_sys_time.h" +#include +#if HAVE_ARPA_INET_H +#include +#endif +#include + +#if USE_WIN32API +#include +#endif + +#if __QNX__ +#include +#endif /* __QNX__ */ + +#ifndef HAVE_SOCKLEN_T +typedef int socklen_t; +#endif + +#ifndef IN_PROCESS_AGENT + +#if USE_WIN32API +# define INVALID_DESCRIPTOR INVALID_SOCKET +#else +# define INVALID_DESCRIPTOR -1 +#endif + +/* Extra value for readchar_callback. */ +enum { + /* The callback is currently not scheduled. */ + NOT_SCHEDULED = -1 +}; + +/* Status of the readchar callback. + Either NOT_SCHEDULED or the callback id. */ +static int readchar_callback = NOT_SCHEDULED; + +static int readchar (void); +static void reset_readchar (void); +static void reschedule (void); + +/* A cache entry for a successfully looked-up symbol. */ +struct sym_cache +{ + char *name; + CORE_ADDR addr; + struct sym_cache *next; +}; + +static int remote_is_stdio = 0; + +static gdb_fildes_t remote_desc = INVALID_DESCRIPTOR; +static gdb_fildes_t listen_desc = INVALID_DESCRIPTOR; + +#ifdef USE_WIN32API +# define read(fd, buf, len) recv (fd, (char *) buf, len, 0) +# define write(fd, buf, len) send (fd, (char *) buf, len, 0) +#endif + +int +gdb_connected (void) +{ + return remote_desc != INVALID_DESCRIPTOR; +} + +/* Return true if the remote connection is over stdio. */ + +int +remote_connection_is_stdio (void) +{ + return remote_is_stdio; +} + +static void +enable_async_notification (int fd) +{ +#if defined(F_SETFL) && defined (FASYNC) + int save_fcntl_flags; + + save_fcntl_flags = fcntl (fd, F_GETFL, 0); + fcntl (fd, F_SETFL, save_fcntl_flags | FASYNC); +#if defined (F_SETOWN) + fcntl (fd, F_SETOWN, getpid ()); +#endif +#endif +} + +static int +handle_accept_event (int err, gdb_client_data client_data) +{ + struct sockaddr_storage sockaddr; + socklen_t len = sizeof (sockaddr); + + if (debug_threads) + debug_printf ("handling possible accept event\n"); + + remote_desc = accept (listen_desc, (struct sockaddr *) &sockaddr, &len); + if (remote_desc == -1) + perror_with_name ("Accept failed"); + + /* Enable TCP keep alive process. */ + socklen_t tmp = 1; + setsockopt (remote_desc, SOL_SOCKET, SO_KEEPALIVE, + (char *) &tmp, sizeof (tmp)); + + /* Tell TCP not to delay small packets. This greatly speeds up + interactive response. */ + tmp = 1; + setsockopt (remote_desc, IPPROTO_TCP, TCP_NODELAY, + (char *) &tmp, sizeof (tmp)); + +#ifndef USE_WIN32API + signal (SIGPIPE, SIG_IGN); /* If we don't do this, then gdbserver simply + exits when the remote side dies. */ +#endif + + if (run_once) + { +#ifndef USE_WIN32API + close (listen_desc); /* No longer need this */ +#else + closesocket (listen_desc); /* No longer need this */ +#endif + } + + /* Even if !RUN_ONCE no longer notice new connections. Still keep the + descriptor open for add_file_handler to wait for a new connection. */ + delete_file_handler (listen_desc); + + /* Convert IP address to string. */ + char orig_host[GDB_NI_MAX_ADDR], orig_port[GDB_NI_MAX_PORT]; + + int r = getnameinfo ((struct sockaddr *) &sockaddr, len, + orig_host, sizeof (orig_host), + orig_port, sizeof (orig_port), + NI_NUMERICHOST | NI_NUMERICSERV); + + if (r != 0) + fprintf (stderr, _("Could not obtain remote address: %s\n"), + gai_strerror (r)); + else + fprintf (stderr, _("Remote debugging from host %s, port %s\n"), + orig_host, orig_port); + + enable_async_notification (remote_desc); + + /* Register the event loop handler. */ + add_file_handler (remote_desc, handle_serial_event, NULL); + + /* We have a new GDB connection now. If we were disconnected + tracing, there's a window where the target could report a stop + event to the event loop, and since we have a connection now, we'd + try to send vStopped notifications to GDB. But, don't do that + until GDB as selected all-stop/non-stop, and has queried the + threads' status ('?'). */ + target_async (0); + + return 0; +} + +/* Prepare for a later connection to a remote debugger. + NAME is the filename used for communication. */ + +void +remote_prepare (const char *name) +{ + client_state &cs = get_client_state (); +#ifdef USE_WIN32API + static int winsock_initialized; +#endif + socklen_t tmp; + + remote_is_stdio = 0; + if (strcmp (name, STDIO_CONNECTION_NAME) == 0) + { + /* We need to record fact that we're using stdio sooner than the + call to remote_open so start_inferior knows the connection is + via stdio. */ + remote_is_stdio = 1; + cs.transport_is_reliable = 1; + return; + } + + struct addrinfo hint; + struct addrinfo *ainfo; + + memset (&hint, 0, sizeof (hint)); + /* Assume no prefix will be passed, therefore we should use + AF_UNSPEC. */ + hint.ai_family = AF_UNSPEC; + hint.ai_socktype = SOCK_STREAM; + hint.ai_protocol = IPPROTO_TCP; + + parsed_connection_spec parsed + = parse_connection_spec_without_prefix (name, &hint); + + if (parsed.port_str.empty ()) + { + cs.transport_is_reliable = 0; + return; + } + +#ifdef USE_WIN32API + if (!winsock_initialized) + { + WSADATA wsad; + + WSAStartup (MAKEWORD (1, 0), &wsad); + winsock_initialized = 1; + } +#endif + + int r = getaddrinfo (parsed.host_str.c_str (), parsed.port_str.c_str (), + &hint, &ainfo); + + if (r != 0) + error (_("%s: cannot resolve name: %s"), name, gai_strerror (r)); + + scoped_free_addrinfo freeaddrinfo (ainfo); + + struct addrinfo *iter; + + for (iter = ainfo; iter != NULL; iter = iter->ai_next) + { + listen_desc = gdb_socket_cloexec (iter->ai_family, iter->ai_socktype, + iter->ai_protocol); + + if (listen_desc >= 0) + break; + } + + if (iter == NULL) + perror_with_name ("Can't open socket"); + + /* Allow rapid reuse of this port. */ + tmp = 1; + setsockopt (listen_desc, SOL_SOCKET, SO_REUSEADDR, (char *) &tmp, + sizeof (tmp)); + + switch (iter->ai_family) + { + case AF_INET: + ((struct sockaddr_in *) iter->ai_addr)->sin_addr.s_addr = INADDR_ANY; + break; + case AF_INET6: + ((struct sockaddr_in6 *) iter->ai_addr)->sin6_addr = in6addr_any; + break; + default: + internal_error (__FILE__, __LINE__, + _("Invalid 'ai_family' %d\n"), iter->ai_family); + } + + if (bind (listen_desc, iter->ai_addr, iter->ai_addrlen) != 0) + perror_with_name ("Can't bind address"); + + if (listen (listen_desc, 1) != 0) + perror_with_name ("Can't listen on socket"); + + cs.transport_is_reliable = 1; +} + +/* Open a connection to a remote debugger. + NAME is the filename used for communication. */ + +void +remote_open (const char *name) +{ + const char *port_str; + + port_str = strchr (name, ':'); +#ifdef USE_WIN32API + if (port_str == NULL) + error ("Only HOST:PORT is supported on this platform."); +#endif + + if (strcmp (name, STDIO_CONNECTION_NAME) == 0) + { + fprintf (stderr, "Remote debugging using stdio\n"); + + /* Use stdin as the handle of the connection. + We only select on reads, for example. */ + remote_desc = fileno (stdin); + + enable_async_notification (remote_desc); + + /* Register the event loop handler. */ + add_file_handler (remote_desc, handle_serial_event, NULL); + } +#ifndef USE_WIN32API + else if (port_str == NULL) + { + struct stat statbuf; + + if (stat (name, &statbuf) == 0 + && (S_ISCHR (statbuf.st_mode) || S_ISFIFO (statbuf.st_mode))) + remote_desc = open (name, O_RDWR); + else + { + errno = EINVAL; + remote_desc = -1; + } + + if (remote_desc < 0) + perror_with_name ("Could not open remote device"); + +#if HAVE_TERMIOS_H + { + struct termios termios; + tcgetattr (remote_desc, &termios); + + termios.c_iflag = 0; + termios.c_oflag = 0; + termios.c_lflag = 0; + termios.c_cflag &= ~(CSIZE | PARENB); + termios.c_cflag |= CLOCAL | CS8; + termios.c_cc[VMIN] = 1; + termios.c_cc[VTIME] = 0; + + tcsetattr (remote_desc, TCSANOW, &termios); + } +#endif + + fprintf (stderr, "Remote debugging using %s\n", name); + + enable_async_notification (remote_desc); + + /* Register the event loop handler. */ + add_file_handler (remote_desc, handle_serial_event, NULL); + } +#endif /* USE_WIN32API */ + else + { + char listen_port[GDB_NI_MAX_PORT]; + struct sockaddr_storage sockaddr; + socklen_t len = sizeof (sockaddr); + + if (getsockname (listen_desc, (struct sockaddr *) &sockaddr, &len) < 0) + perror_with_name ("Can't determine port"); + + int r = getnameinfo ((struct sockaddr *) &sockaddr, len, + NULL, 0, + listen_port, sizeof (listen_port), + NI_NUMERICSERV); + + if (r != 0) + fprintf (stderr, _("Can't obtain port where we are listening: %s"), + gai_strerror (r)); + else + fprintf (stderr, _("Listening on port %s\n"), listen_port); + + fflush (stderr); + + /* Register the event loop handler. */ + add_file_handler (listen_desc, handle_accept_event, NULL); + } +} + +void +remote_close (void) +{ + delete_file_handler (remote_desc); + + disable_async_io (); + +#ifdef USE_WIN32API + closesocket (remote_desc); +#else + if (! remote_connection_is_stdio ()) + close (remote_desc); +#endif + remote_desc = INVALID_DESCRIPTOR; + + reset_readchar (); +} + +#endif + +#ifndef IN_PROCESS_AGENT + +void +decode_address (CORE_ADDR *addrp, const char *start, int len) +{ + CORE_ADDR addr; + char ch; + int i; + + addr = 0; + for (i = 0; i < len; i++) + { + ch = start[i]; + addr = addr << 4; + addr = addr | (fromhex (ch) & 0x0f); + } + *addrp = addr; +} + +const char * +decode_address_to_semicolon (CORE_ADDR *addrp, const char *start) +{ + const char *end; + + end = start; + while (*end != '\0' && *end != ';') + end++; + + decode_address (addrp, start, end - start); + + if (*end == ';') + end++; + return end; +} + +#endif + +#ifndef IN_PROCESS_AGENT + +/* Look for a sequence of characters which can be run-length encoded. + If there are any, update *CSUM and *P. Otherwise, output the + single character. Return the number of characters consumed. */ + +static int +try_rle (char *buf, int remaining, unsigned char *csum, char **p) +{ + int n; + + /* Always output the character. */ + *csum += buf[0]; + *(*p)++ = buf[0]; + + /* Don't go past '~'. */ + if (remaining > 97) + remaining = 97; + + for (n = 1; n < remaining; n++) + if (buf[n] != buf[0]) + break; + + /* N is the index of the first character not the same as buf[0]. + buf[0] is counted twice, so by decrementing N, we get the number + of characters the RLE sequence will replace. */ + n--; + + if (n < 3) + return 1; + + /* Skip the frame characters. The manual says to skip '+' and '-' + also, but there's no reason to. Unfortunately these two unusable + characters double the encoded length of a four byte zero + value. */ + while (n + 29 == '$' || n + 29 == '#') + n--; + + *csum += '*'; + *(*p)++ = '*'; + *csum += n + 29; + *(*p)++ = n + 29; + + return n + 1; +} + +#endif + +#ifndef IN_PROCESS_AGENT + +/* Write a PTID to BUF. Returns BUF+CHARACTERS_WRITTEN. */ + +char * +write_ptid (char *buf, ptid_t ptid) +{ + client_state &cs = get_client_state (); + int pid, tid; + + if (cs.multi_process) + { + pid = ptid.pid (); + if (pid < 0) + buf += sprintf (buf, "p-%x.", -pid); + else + buf += sprintf (buf, "p%x.", pid); + } + tid = ptid.lwp (); + if (tid < 0) + buf += sprintf (buf, "-%x", -tid); + else + buf += sprintf (buf, "%x", tid); + + return buf; +} + +static ULONGEST +hex_or_minus_one (const char *buf, const char **obuf) +{ + ULONGEST ret; + + if (startswith (buf, "-1")) + { + ret = (ULONGEST) -1; + buf += 2; + } + else + buf = unpack_varlen_hex (buf, &ret); + + if (obuf) + *obuf = buf; + + return ret; +} + +/* Extract a PTID from BUF. If non-null, OBUF is set to the to one + passed the last parsed char. Returns null_ptid on error. */ +ptid_t +read_ptid (const char *buf, const char **obuf) +{ + const char *p = buf; + const char *pp; + ULONGEST pid = 0, tid = 0; + + if (*p == 'p') + { + /* Multi-process ptid. */ + pp = unpack_varlen_hex (p + 1, &pid); + if (*pp != '.') + error ("invalid remote ptid: %s\n", p); + + p = pp + 1; + + tid = hex_or_minus_one (p, &pp); + + if (obuf) + *obuf = pp; + return ptid_t (pid, tid, 0); + } + + /* No multi-process. Just a tid. */ + tid = hex_or_minus_one (p, &pp); + + /* Since GDB is not sending a process id (multi-process extensions + are off), then there's only one process. Default to the first in + the list. */ + pid = pid_of (get_first_process ()); + + if (obuf) + *obuf = pp; + return ptid_t (pid, tid, 0); +} + +/* Write COUNT bytes in BUF to the client. + The result is the number of bytes written or -1 if error. + This may return less than COUNT. */ + +static int +write_prim (const void *buf, int count) +{ + if (remote_connection_is_stdio ()) + return write (fileno (stdout), buf, count); + else + return write (remote_desc, buf, count); +} + +/* Read COUNT bytes from the client and store in BUF. + The result is the number of bytes read or -1 if error. + This may return less than COUNT. */ + +static int +read_prim (void *buf, int count) +{ + if (remote_connection_is_stdio ()) + return read (fileno (stdin), buf, count); + else + return read (remote_desc, buf, count); +} + +/* Send a packet to the remote machine, with error checking. + The data of the packet is in BUF, and the length of the + packet is in CNT. Returns >= 0 on success, -1 otherwise. */ + +static int +putpkt_binary_1 (char *buf, int cnt, int is_notif) +{ + client_state &cs = get_client_state (); + int i; + unsigned char csum = 0; + char *buf2; + char *p; + int cc; + + buf2 = (char *) xmalloc (strlen ("$") + cnt + strlen ("#nn") + 1); + + /* Copy the packet into buffer BUF2, encapsulating it + and giving it a checksum. */ + + p = buf2; + if (is_notif) + *p++ = '%'; + else + *p++ = '$'; + + for (i = 0; i < cnt;) + i += try_rle (buf + i, cnt - i, &csum, &p); + + *p++ = '#'; + *p++ = tohex ((csum >> 4) & 0xf); + *p++ = tohex (csum & 0xf); + + *p = '\0'; + + /* Send it over and over until we get a positive ack. */ + + do + { + if (write_prim (buf2, p - buf2) != p - buf2) + { + perror ("putpkt(write)"); + free (buf2); + return -1; + } + + if (cs.noack_mode || is_notif) + { + /* Don't expect an ack then. */ + if (remote_debug) + { + if (is_notif) + debug_printf ("putpkt (\"%s\"); [notif]\n", buf2); + else + debug_printf ("putpkt (\"%s\"); [noack mode]\n", buf2); + debug_flush (); + } + break; + } + + if (remote_debug) + { + debug_printf ("putpkt (\"%s\"); [looking for ack]\n", buf2); + debug_flush (); + } + + cc = readchar (); + + if (cc < 0) + { + free (buf2); + return -1; + } + + if (remote_debug) + { + debug_printf ("[received '%c' (0x%x)]\n", cc, cc); + debug_flush (); + } + + /* Check for an input interrupt while we're here. */ + if (cc == '\003' && current_thread != NULL) + (*the_target->request_interrupt) (); + } + while (cc != '+'); + + free (buf2); + return 1; /* Success! */ +} + +int +putpkt_binary (char *buf, int cnt) +{ + return putpkt_binary_1 (buf, cnt, 0); +} + +/* Send a packet to the remote machine, with error checking. The data + of the packet is in BUF, and the packet should be a NUL-terminated + string. Returns >= 0 on success, -1 otherwise. */ + +int +putpkt (char *buf) +{ + return putpkt_binary (buf, strlen (buf)); +} + +int +putpkt_notif (char *buf) +{ + return putpkt_binary_1 (buf, strlen (buf), 1); +} + +/* Come here when we get an input interrupt from the remote side. This + interrupt should only be active while we are waiting for the child to do + something. Thus this assumes readchar:bufcnt is 0. + About the only thing that should come through is a ^C, which + will cause us to request child interruption. */ + +static void +input_interrupt (int unused) +{ + fd_set readset; + struct timeval immediate = { 0, 0 }; + + /* Protect against spurious interrupts. This has been observed to + be a problem under NetBSD 1.4 and 1.5. */ + + FD_ZERO (&readset); + FD_SET (remote_desc, &readset); + if (select (remote_desc + 1, &readset, 0, 0, &immediate) > 0) + { + int cc; + char c = 0; + + cc = read_prim (&c, 1); + + if (cc == 0) + { + fprintf (stderr, "client connection closed\n"); + return; + } + else if (cc != 1 || c != '\003') + { + fprintf (stderr, "input_interrupt, count = %d c = %d ", cc, c); + if (isprint (c)) + fprintf (stderr, "('%c')\n", c); + else + fprintf (stderr, "('\\x%02x')\n", c & 0xff); + return; + } + + (*the_target->request_interrupt) (); + } +} + +/* Check if the remote side sent us an interrupt request (^C). */ +void +check_remote_input_interrupt_request (void) +{ + /* This function may be called before establishing communications, + therefore we need to validate the remote descriptor. */ + + if (remote_desc == INVALID_DESCRIPTOR) + return; + + input_interrupt (0); +} + +/* Asynchronous I/O support. SIGIO must be unblocked when waiting, + in order to accept Control-C from the client, and must be blocked + when talking to the client. */ + +static void +block_unblock_async_io (int block) +{ +#ifndef USE_WIN32API + sigset_t sigio_set; + + sigemptyset (&sigio_set); + sigaddset (&sigio_set, SIGIO); + gdb_sigmask (block ? SIG_BLOCK : SIG_UNBLOCK, &sigio_set, NULL); +#endif +} + +#ifdef __QNX__ +static void +nto_comctrl (int enable) +{ + struct sigevent event; + + if (enable) + { + event.sigev_notify = SIGEV_SIGNAL_THREAD; + event.sigev_signo = SIGIO; + event.sigev_code = 0; + event.sigev_value.sival_ptr = NULL; + event.sigev_priority = -1; + ionotify (remote_desc, _NOTIFY_ACTION_POLLARM, _NOTIFY_COND_INPUT, + &event); + } + else + ionotify (remote_desc, _NOTIFY_ACTION_POLL, _NOTIFY_COND_INPUT, NULL); +} +#endif /* __QNX__ */ + + +/* Current state of asynchronous I/O. */ +static int async_io_enabled; + +/* Enable asynchronous I/O. */ +void +enable_async_io (void) +{ + if (async_io_enabled) + return; + + block_unblock_async_io (0); + + async_io_enabled = 1; +#ifdef __QNX__ + nto_comctrl (1); +#endif /* __QNX__ */ +} + +/* Disable asynchronous I/O. */ +void +disable_async_io (void) +{ + if (!async_io_enabled) + return; + + block_unblock_async_io (1); + + async_io_enabled = 0; +#ifdef __QNX__ + nto_comctrl (0); +#endif /* __QNX__ */ + +} + +void +initialize_async_io (void) +{ + /* Make sure that async I/O starts blocked. */ + async_io_enabled = 1; + disable_async_io (); + + /* Install the signal handler. */ +#ifndef USE_WIN32API + signal (SIGIO, input_interrupt); +#endif +} + +/* Internal buffer used by readchar. + These are global to readchar because reschedule_remote needs to be + able to tell whether the buffer is empty. */ + +static unsigned char readchar_buf[BUFSIZ]; +static int readchar_bufcnt = 0; +static unsigned char *readchar_bufp; + +/* Returns next char from remote GDB. -1 if error. */ + +static int +readchar (void) +{ + int ch; + + if (readchar_bufcnt == 0) + { + readchar_bufcnt = read_prim (readchar_buf, sizeof (readchar_buf)); + + if (readchar_bufcnt <= 0) + { + if (readchar_bufcnt == 0) + { + if (remote_debug) + debug_printf ("readchar: Got EOF\n"); + } + else + perror ("readchar"); + + return -1; + } + + readchar_bufp = readchar_buf; + } + + readchar_bufcnt--; + ch = *readchar_bufp++; + reschedule (); + return ch; +} + +/* Reset the readchar state machine. */ + +static void +reset_readchar (void) +{ + readchar_bufcnt = 0; + if (readchar_callback != NOT_SCHEDULED) + { + delete_callback_event (readchar_callback); + readchar_callback = NOT_SCHEDULED; + } +} + +/* Process remaining data in readchar_buf. */ + +static int +process_remaining (void *context) +{ + int res; + + /* This is a one-shot event. */ + readchar_callback = NOT_SCHEDULED; + + if (readchar_bufcnt > 0) + res = handle_serial_event (0, NULL); + else + res = 0; + + return res; +} + +/* If there is still data in the buffer, queue another event to process it, + we can't sleep in select yet. */ + +static void +reschedule (void) +{ + if (readchar_bufcnt > 0 && readchar_callback == NOT_SCHEDULED) + readchar_callback = append_callback_event (process_remaining, NULL); +} + +/* Read a packet from the remote machine, with error checking, + and store it in BUF. Returns length of packet, or negative if error. */ + +int +getpkt (char *buf) +{ + client_state &cs = get_client_state (); + char *bp; + unsigned char csum, c1, c2; + int c; + + while (1) + { + csum = 0; + + while (1) + { + c = readchar (); + + /* The '\003' may appear before or after each packet, so + check for an input interrupt. */ + if (c == '\003') + { + (*the_target->request_interrupt) (); + continue; + } + + if (c == '$') + break; + if (remote_debug) + { + debug_printf ("[getpkt: discarding char '%c']\n", c); + debug_flush (); + } + + if (c < 0) + return -1; + } + + bp = buf; + while (1) + { + c = readchar (); + if (c < 0) + return -1; + if (c == '#') + break; + *bp++ = c; + csum += c; + } + *bp = 0; + + c1 = fromhex (readchar ()); + c2 = fromhex (readchar ()); + + if (csum == (c1 << 4) + c2) + break; + + if (cs.noack_mode) + { + fprintf (stderr, + "Bad checksum, sentsum=0x%x, csum=0x%x, " + "buf=%s [no-ack-mode, Bad medium?]\n", + (c1 << 4) + c2, csum, buf); + /* Not much we can do, GDB wasn't expecting an ack/nac. */ + break; + } + + fprintf (stderr, "Bad checksum, sentsum=0x%x, csum=0x%x, buf=%s\n", + (c1 << 4) + c2, csum, buf); + if (write_prim ("-", 1) != 1) + return -1; + } + + if (!cs.noack_mode) + { + if (remote_debug) + { + debug_printf ("getpkt (\"%s\"); [sending ack] \n", buf); + debug_flush (); + } + + if (write_prim ("+", 1) != 1) + return -1; + + if (remote_debug) + { + debug_printf ("[sent ack]\n"); + debug_flush (); + } + } + else + { + if (remote_debug) + { + debug_printf ("getpkt (\"%s\"); [no ack sent] \n", buf); + debug_flush (); + } + } + + /* The readchar above may have already read a '\003' out of the socket + and moved it to the local buffer. For example, when GDB sends + vCont;c immediately followed by interrupt (see + gdb.base/interrupt-noterm.exp). As soon as we see the vCont;c, we'll + resume the inferior and wait. Since we've already moved the '\003' + to the local buffer, SIGIO won't help. In that case, if we don't + check for interrupt after the vCont;c packet, the interrupt character + would stay in the buffer unattended until after the next (unrelated) + stop. */ + while (readchar_bufcnt > 0 && *readchar_bufp == '\003') + { + /* Consume the interrupt character in the buffer. */ + readchar (); + (*the_target->request_interrupt) (); + } + + return bp - buf; +} + +void +write_ok (char *buf) +{ + buf[0] = 'O'; + buf[1] = 'K'; + buf[2] = '\0'; +} + +void +write_enn (char *buf) +{ + /* Some day, we should define the meanings of the error codes... */ + buf[0] = 'E'; + buf[1] = '0'; + buf[2] = '1'; + buf[3] = '\0'; +} + +#endif + +#ifndef IN_PROCESS_AGENT + +static char * +outreg (struct regcache *regcache, int regno, char *buf) +{ + if ((regno >> 12) != 0) + *buf++ = tohex ((regno >> 12) & 0xf); + if ((regno >> 8) != 0) + *buf++ = tohex ((regno >> 8) & 0xf); + *buf++ = tohex ((regno >> 4) & 0xf); + *buf++ = tohex (regno & 0xf); + *buf++ = ':'; + collect_register_as_string (regcache, regno, buf); + buf += 2 * register_size (regcache->tdesc, regno); + *buf++ = ';'; + + return buf; +} + +void +prepare_resume_reply (char *buf, ptid_t ptid, + struct target_waitstatus *status) +{ + client_state &cs = get_client_state (); + if (debug_threads) + debug_printf ("Writing resume reply for %s:%d\n", + target_pid_to_str (ptid), status->kind); + + switch (status->kind) + { + case TARGET_WAITKIND_STOPPED: + case TARGET_WAITKIND_FORKED: + case TARGET_WAITKIND_VFORKED: + case TARGET_WAITKIND_VFORK_DONE: + case TARGET_WAITKIND_EXECD: + case TARGET_WAITKIND_THREAD_CREATED: + case TARGET_WAITKIND_SYSCALL_ENTRY: + case TARGET_WAITKIND_SYSCALL_RETURN: + { + struct thread_info *saved_thread; + const char **regp; + struct regcache *regcache; + + if ((status->kind == TARGET_WAITKIND_FORKED && cs.report_fork_events) + || (status->kind == TARGET_WAITKIND_VFORKED + && cs.report_vfork_events)) + { + enum gdb_signal signal = GDB_SIGNAL_TRAP; + const char *event = (status->kind == TARGET_WAITKIND_FORKED + ? "fork" : "vfork"); + + sprintf (buf, "T%02x%s:", signal, event); + buf += strlen (buf); + buf = write_ptid (buf, status->value.related_pid); + strcat (buf, ";"); + } + else if (status->kind == TARGET_WAITKIND_VFORK_DONE + && cs.report_vfork_events) + { + enum gdb_signal signal = GDB_SIGNAL_TRAP; + + sprintf (buf, "T%02xvforkdone:;", signal); + } + else if (status->kind == TARGET_WAITKIND_EXECD && cs.report_exec_events) + { + enum gdb_signal signal = GDB_SIGNAL_TRAP; + const char *event = "exec"; + char hexified_pathname[PATH_MAX * 2]; + + sprintf (buf, "T%02x%s:", signal, event); + buf += strlen (buf); + + /* Encode pathname to hexified format. */ + bin2hex ((const gdb_byte *) status->value.execd_pathname, + hexified_pathname, + strlen (status->value.execd_pathname)); + + sprintf (buf, "%s;", hexified_pathname); + xfree (status->value.execd_pathname); + status->value.execd_pathname = NULL; + buf += strlen (buf); + } + else if (status->kind == TARGET_WAITKIND_THREAD_CREATED + && cs.report_thread_events) + { + enum gdb_signal signal = GDB_SIGNAL_TRAP; + + sprintf (buf, "T%02xcreate:;", signal); + } + else if (status->kind == TARGET_WAITKIND_SYSCALL_ENTRY + || status->kind == TARGET_WAITKIND_SYSCALL_RETURN) + { + enum gdb_signal signal = GDB_SIGNAL_TRAP; + const char *event = (status->kind == TARGET_WAITKIND_SYSCALL_ENTRY + ? "syscall_entry" : "syscall_return"); + + sprintf (buf, "T%02x%s:%x;", signal, event, + status->value.syscall_number); + } + else + sprintf (buf, "T%02x", status->value.sig); + + buf += strlen (buf); + + saved_thread = current_thread; + + switch_to_thread (the_target, ptid); + + regp = current_target_desc ()->expedite_regs; + + regcache = get_thread_regcache (current_thread, 1); + + if (the_target->stopped_by_watchpoint != NULL + && (*the_target->stopped_by_watchpoint) ()) + { + CORE_ADDR addr; + int i; + + memcpy (buf, "watch:", 6); + buf += 6; + + addr = (*the_target->stopped_data_address) (); + + /* Convert each byte of the address into two hexadecimal + chars. Note that we take sizeof (void *) instead of + sizeof (addr); this is to avoid sending a 64-bit + address to a 32-bit GDB. */ + for (i = sizeof (void *) * 2; i > 0; i--) + *buf++ = tohex ((addr >> (i - 1) * 4) & 0xf); + *buf++ = ';'; + } + else if (cs.swbreak_feature && target_stopped_by_sw_breakpoint ()) + { + sprintf (buf, "swbreak:;"); + buf += strlen (buf); + } + else if (cs.hwbreak_feature && target_stopped_by_hw_breakpoint ()) + { + sprintf (buf, "hwbreak:;"); + buf += strlen (buf); + } + + while (*regp) + { + buf = outreg (regcache, find_regno (regcache->tdesc, *regp), buf); + regp ++; + } + *buf = '\0'; + + /* Formerly, if the debugger had not used any thread features + we would not burden it with a thread status response. This + was for the benefit of GDB 4.13 and older. However, in + recent GDB versions the check (``if (cont_thread != 0)'') + does not have the desired effect because of sillyness in + the way that the remote protocol handles specifying a + thread. Since thread support relies on qSymbol support + anyway, assume GDB can handle threads. */ + + if (using_threads && !disable_packet_Tthread) + { + /* This if (1) ought to be unnecessary. But remote_wait + in GDB will claim this event belongs to inferior_ptid + if we do not specify a thread, and there's no way for + gdbserver to know what inferior_ptid is. */ + if (1 || cs.general_thread != ptid) + { + int core = -1; + /* In non-stop, don't change the general thread behind + GDB's back. */ + if (!non_stop) + cs.general_thread = ptid; + sprintf (buf, "thread:"); + buf += strlen (buf); + buf = write_ptid (buf, ptid); + strcat (buf, ";"); + buf += strlen (buf); + + core = target_core_of_thread (ptid); + + if (core != -1) + { + sprintf (buf, "core:"); + buf += strlen (buf); + sprintf (buf, "%x", core); + strcat (buf, ";"); + buf += strlen (buf); + } + } + } + + if (dlls_changed) + { + strcpy (buf, "library:;"); + buf += strlen (buf); + dlls_changed = 0; + } + + current_thread = saved_thread; + } + break; + case TARGET_WAITKIND_EXITED: + if (cs.multi_process) + sprintf (buf, "W%x;process:%x", + status->value.integer, ptid.pid ()); + else + sprintf (buf, "W%02x", status->value.integer); + break; + case TARGET_WAITKIND_SIGNALLED: + if (cs.multi_process) + sprintf (buf, "X%x;process:%x", + status->value.sig, ptid.pid ()); + else + sprintf (buf, "X%02x", status->value.sig); + break; + case TARGET_WAITKIND_THREAD_EXITED: + sprintf (buf, "w%x;", status->value.integer); + buf += strlen (buf); + buf = write_ptid (buf, ptid); + break; + case TARGET_WAITKIND_NO_RESUMED: + sprintf (buf, "N"); + break; + default: + error ("unhandled waitkind"); + break; + } +} + +void +decode_m_packet (char *from, CORE_ADDR *mem_addr_ptr, unsigned int *len_ptr) +{ + int i = 0, j = 0; + char ch; + *mem_addr_ptr = *len_ptr = 0; + + while ((ch = from[i++]) != ',') + { + *mem_addr_ptr = *mem_addr_ptr << 4; + *mem_addr_ptr |= fromhex (ch) & 0x0f; + } + + for (j = 0; j < 4; j++) + { + if ((ch = from[i++]) == 0) + break; + *len_ptr = *len_ptr << 4; + *len_ptr |= fromhex (ch) & 0x0f; + } +} + +void +decode_M_packet (char *from, CORE_ADDR *mem_addr_ptr, unsigned int *len_ptr, + unsigned char **to_p) +{ + int i = 0; + char ch; + *mem_addr_ptr = *len_ptr = 0; + + while ((ch = from[i++]) != ',') + { + *mem_addr_ptr = *mem_addr_ptr << 4; + *mem_addr_ptr |= fromhex (ch) & 0x0f; + } + + while ((ch = from[i++]) != ':') + { + *len_ptr = *len_ptr << 4; + *len_ptr |= fromhex (ch) & 0x0f; + } + + if (*to_p == NULL) + *to_p = (unsigned char *) xmalloc (*len_ptr); + + hex2bin (&from[i++], *to_p, *len_ptr); +} + +int +decode_X_packet (char *from, int packet_len, CORE_ADDR *mem_addr_ptr, + unsigned int *len_ptr, unsigned char **to_p) +{ + int i = 0; + char ch; + *mem_addr_ptr = *len_ptr = 0; + + while ((ch = from[i++]) != ',') + { + *mem_addr_ptr = *mem_addr_ptr << 4; + *mem_addr_ptr |= fromhex (ch) & 0x0f; + } + + while ((ch = from[i++]) != ':') + { + *len_ptr = *len_ptr << 4; + *len_ptr |= fromhex (ch) & 0x0f; + } + + if (*to_p == NULL) + *to_p = (unsigned char *) xmalloc (*len_ptr); + + if (remote_unescape_input ((const gdb_byte *) &from[i], packet_len - i, + *to_p, *len_ptr) != *len_ptr) + return -1; + + return 0; +} + +/* Decode a qXfer write request. */ + +int +decode_xfer_write (char *buf, int packet_len, CORE_ADDR *offset, + unsigned int *len, unsigned char *data) +{ + char ch; + char *b = buf; + + /* Extract the offset. */ + *offset = 0; + while ((ch = *buf++) != ':') + { + *offset = *offset << 4; + *offset |= fromhex (ch) & 0x0f; + } + + /* Get encoded data. */ + packet_len -= buf - b; + *len = remote_unescape_input ((const gdb_byte *) buf, packet_len, + data, packet_len); + return 0; +} + +/* Decode the parameters of a qSearch:memory packet. */ + +int +decode_search_memory_packet (const char *buf, int packet_len, + CORE_ADDR *start_addrp, + CORE_ADDR *search_space_lenp, + gdb_byte *pattern, unsigned int *pattern_lenp) +{ + const char *p = buf; + + p = decode_address_to_semicolon (start_addrp, p); + p = decode_address_to_semicolon (search_space_lenp, p); + packet_len -= p - buf; + *pattern_lenp = remote_unescape_input ((const gdb_byte *) p, packet_len, + pattern, packet_len); + return 0; +} + +static void +free_sym_cache (struct sym_cache *sym) +{ + if (sym != NULL) + { + free (sym->name); + free (sym); + } +} + +void +clear_symbol_cache (struct sym_cache **symcache_p) +{ + struct sym_cache *sym, *next; + + /* Check the cache first. */ + for (sym = *symcache_p; sym; sym = next) + { + next = sym->next; + free_sym_cache (sym); + } + + *symcache_p = NULL; +} + +/* Get the address of NAME, and return it in ADDRP if found. if + MAY_ASK_GDB is false, assume symbol cache misses are failures. + Returns 1 if the symbol is found, 0 if it is not, -1 on error. */ + +int +look_up_one_symbol (const char *name, CORE_ADDR *addrp, int may_ask_gdb) +{ + client_state &cs = get_client_state (); + char *p, *q; + int len; + struct sym_cache *sym; + struct process_info *proc; + + proc = current_process (); + + /* Check the cache first. */ + for (sym = proc->symbol_cache; sym; sym = sym->next) + if (strcmp (name, sym->name) == 0) + { + *addrp = sym->addr; + return 1; + } + + /* It might not be an appropriate time to look up a symbol, + e.g. while we're trying to fetch registers. */ + if (!may_ask_gdb) + return 0; + + /* Send the request. */ + strcpy (cs.own_buf, "qSymbol:"); + bin2hex ((const gdb_byte *) name, cs.own_buf + strlen ("qSymbol:"), + strlen (name)); + if (putpkt (cs.own_buf) < 0) + return -1; + + /* FIXME: Eventually add buffer overflow checking (to getpkt?) */ + len = getpkt (cs.own_buf); + if (len < 0) + return -1; + + /* We ought to handle pretty much any packet at this point while we + wait for the qSymbol "response". That requires re-entering the + main loop. For now, this is an adequate approximation; allow + GDB to read from memory and handle 'v' packets (for vFile transfers) + while it figures out the address of the symbol. */ + while (1) + { + if (cs.own_buf[0] == 'm') + { + CORE_ADDR mem_addr; + unsigned char *mem_buf; + unsigned int mem_len; + + decode_m_packet (&cs.own_buf[1], &mem_addr, &mem_len); + mem_buf = (unsigned char *) xmalloc (mem_len); + if (read_inferior_memory (mem_addr, mem_buf, mem_len) == 0) + bin2hex (mem_buf, cs.own_buf, mem_len); + else + write_enn (cs.own_buf); + free (mem_buf); + if (putpkt (cs.own_buf) < 0) + return -1; + } + else if (cs.own_buf[0] == 'v') + { + int new_len = -1; + handle_v_requests (cs.own_buf, len, &new_len); + if (new_len != -1) + putpkt_binary (cs.own_buf, new_len); + else + putpkt (cs.own_buf); + } + else + break; + len = getpkt (cs.own_buf); + if (len < 0) + return -1; + } + + if (!startswith (cs.own_buf, "qSymbol:")) + { + warning ("Malformed response to qSymbol, ignoring: %s", cs.own_buf); + return -1; + } + + p = cs.own_buf + strlen ("qSymbol:"); + q = p; + while (*q && *q != ':') + q++; + + /* Make sure we found a value for the symbol. */ + if (p == q || *q == '\0') + return 0; + + decode_address (addrp, p, q - p); + + /* Save the symbol in our cache. */ + sym = XNEW (struct sym_cache); + sym->name = xstrdup (name); + sym->addr = *addrp; + sym->next = proc->symbol_cache; + proc->symbol_cache = sym; + + return 1; +} + +/* Relocate an instruction to execute at a different address. OLDLOC + is the address in the inferior memory where the instruction to + relocate is currently at. On input, TO points to the destination + where we want the instruction to be copied (and possibly adjusted) + to. On output, it points to one past the end of the resulting + instruction(s). The effect of executing the instruction at TO + shall be the same as if executing it at OLDLOC. For example, call + instructions that implicitly push the return address on the stack + should be adjusted to return to the instruction after OLDLOC; + relative branches, and other PC-relative instructions need the + offset adjusted; etc. Returns 0 on success, -1 on failure. */ + +int +relocate_instruction (CORE_ADDR *to, CORE_ADDR oldloc) +{ + client_state &cs = get_client_state (); + int len; + ULONGEST written = 0; + + /* Send the request. */ + sprintf (cs.own_buf, "qRelocInsn:%s;%s", paddress (oldloc), + paddress (*to)); + if (putpkt (cs.own_buf) < 0) + return -1; + + /* FIXME: Eventually add buffer overflow checking (to getpkt?) */ + len = getpkt (cs.own_buf); + if (len < 0) + return -1; + + /* We ought to handle pretty much any packet at this point while we + wait for the qRelocInsn "response". That requires re-entering + the main loop. For now, this is an adequate approximation; allow + GDB to access memory. */ + while (cs.own_buf[0] == 'm' || cs.own_buf[0] == 'M' || cs.own_buf[0] == 'X') + { + CORE_ADDR mem_addr; + unsigned char *mem_buf = NULL; + unsigned int mem_len; + + if (cs.own_buf[0] == 'm') + { + decode_m_packet (&cs.own_buf[1], &mem_addr, &mem_len); + mem_buf = (unsigned char *) xmalloc (mem_len); + if (read_inferior_memory (mem_addr, mem_buf, mem_len) == 0) + bin2hex (mem_buf, cs.own_buf, mem_len); + else + write_enn (cs.own_buf); + } + else if (cs.own_buf[0] == 'X') + { + if (decode_X_packet (&cs.own_buf[1], len - 1, &mem_addr, + &mem_len, &mem_buf) < 0 + || target_write_memory (mem_addr, mem_buf, mem_len) != 0) + write_enn (cs.own_buf); + else + write_ok (cs.own_buf); + } + else + { + decode_M_packet (&cs.own_buf[1], &mem_addr, &mem_len, &mem_buf); + if (target_write_memory (mem_addr, mem_buf, mem_len) == 0) + write_ok (cs.own_buf); + else + write_enn (cs.own_buf); + } + free (mem_buf); + if (putpkt (cs.own_buf) < 0) + return -1; + len = getpkt (cs.own_buf); + if (len < 0) + return -1; + } + + if (cs.own_buf[0] == 'E') + { + warning ("An error occurred while relocating an instruction: %s", + cs.own_buf); + return -1; + } + + if (!startswith (cs.own_buf, "qRelocInsn:")) + { + warning ("Malformed response to qRelocInsn, ignoring: %s", + cs.own_buf); + return -1; + } + + unpack_varlen_hex (cs.own_buf + strlen ("qRelocInsn:"), &written); + + *to += written; + return 0; +} + +void +monitor_output (const char *msg) +{ + int len = strlen (msg); + char *buf = (char *) xmalloc (len * 2 + 2); + + buf[0] = 'O'; + bin2hex ((const gdb_byte *) msg, buf + 1, len); + + putpkt (buf); + free (buf); +} + +#endif diff --git a/gdbserver/server.c b/gdbserver/server.c deleted file mode 100644 index 3fc026f78eb..00000000000 --- a/gdbserver/server.c +++ /dev/null @@ -1,4485 +0,0 @@ -/* Main code for remote server for GDB. - Copyright (C) 1989-2020 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 . */ - -#include "server.h" -#include "gdbthread.h" -#include "gdbsupport/agent.h" -#include "notif.h" -#include "tdesc.h" -#include "gdbsupport/rsp-low.h" -#include "gdbsupport/signals-state-save-restore.h" -#include -#include -#if HAVE_SIGNAL_H -#include -#endif -#include "gdbsupport/gdb_vecs.h" -#include "gdbsupport/gdb_wait.h" -#include "gdbsupport/btrace-common.h" -#include "gdbsupport/filestuff.h" -#include "tracepoint.h" -#include "dll.h" -#include "hostio.h" -#include -#include "gdbsupport/common-inferior.h" -#include "gdbsupport/job-control.h" -#include "gdbsupport/environ.h" -#include "filenames.h" -#include "gdbsupport/pathstuff.h" -#ifdef USE_XML -#include "xml-builtin.h" -#endif - -#include "gdbsupport/selftest.h" -#include "gdbsupport/scope-exit.h" - -#define require_running_or_return(BUF) \ - if (!target_running ()) \ - { \ - write_enn (BUF); \ - return; \ - } - -#define require_running_or_break(BUF) \ - if (!target_running ()) \ - { \ - write_enn (BUF); \ - break; \ - } - -/* String containing the current directory (what getwd would return). */ - -char *current_directory; - -/* The environment to pass to the inferior when creating it. */ - -static gdb_environ our_environ; - -bool server_waiting; - -static bool extended_protocol; -static bool response_needed; -static bool exit_requested; - -/* --once: Exit after the first connection has closed. */ -bool run_once; - -/* Whether to report TARGET_WAITKIND_NO_RESUMED events. */ -static bool report_no_resumed; - -bool non_stop; - -static struct { - /* Set the PROGRAM_PATH. Here we adjust the path of the provided - binary if needed. */ - void set (gdb::unique_xmalloc_ptr &&path) - { - m_path = std::move (path); - - /* Make sure we're using the absolute path of the inferior when - creating it. */ - if (!contains_dir_separator (m_path.get ())) - { - int reg_file_errno; - - /* Check if the file is in our CWD. If it is, then we prefix - its name with CURRENT_DIRECTORY. Otherwise, we leave the - name as-is because we'll try searching for it in $PATH. */ - if (is_regular_file (m_path.get (), ®_file_errno)) - m_path = gdb_abspath (m_path.get ()); - } - } - - /* Return the PROGRAM_PATH. */ - char *get () - { return m_path.get (); } - -private: - /* The program name, adjusted if needed. */ - gdb::unique_xmalloc_ptr m_path; -} program_path; -static std::vector program_args; -static std::string wrapper_argv; - -/* The PID of the originally created or attached inferior. Used to - send signals to the process when GDB sends us an asynchronous interrupt - (user hitting Control-C in the client), and to wait for the child to exit - when no longer debugging it. */ - -unsigned long signal_pid; - -/* Set if you want to disable optional thread related packets support - in gdbserver, for the sake of testing GDB against stubs that don't - support them. */ -bool disable_packet_vCont; -bool disable_packet_Tthread; -bool disable_packet_qC; -bool disable_packet_qfThreadInfo; - -static unsigned char *mem_buf; - -/* A sub-class of 'struct notif_event' for stop, holding information - relative to a single stop reply. We keep a queue of these to - push to GDB in non-stop mode. */ - -struct vstop_notif : public notif_event -{ - /* Thread or process that got the event. */ - ptid_t ptid; - - /* Event info. */ - struct target_waitstatus status; -}; - -/* The current btrace configuration. This is gdbserver's mirror of GDB's - btrace configuration. */ -static struct btrace_config current_btrace_conf; - -/* The client remote protocol state. */ - -static client_state g_client_state; - -client_state & -get_client_state () -{ - client_state &cs = g_client_state; - return cs; -} - - -/* Put a stop reply to the stop reply queue. */ - -static void -queue_stop_reply (ptid_t ptid, struct target_waitstatus *status) -{ - struct vstop_notif *new_notif = new struct vstop_notif; - - new_notif->ptid = ptid; - new_notif->status = *status; - - notif_event_enque (¬if_stop, new_notif); -} - -static bool -remove_all_on_match_ptid (struct notif_event *event, ptid_t filter_ptid) -{ - struct vstop_notif *vstop_event = (struct vstop_notif *) event; - - return vstop_event->ptid.matches (filter_ptid); -} - -/* See server.h. */ - -void -discard_queued_stop_replies (ptid_t ptid) -{ - std::list::iterator iter, next, end; - end = notif_stop.queue.end (); - for (iter = notif_stop.queue.begin (); iter != end; iter = next) - { - next = iter; - ++next; - - if (remove_all_on_match_ptid (*iter, ptid)) - { - delete *iter; - notif_stop.queue.erase (iter); - } - } -} - -static void -vstop_notif_reply (struct notif_event *event, char *own_buf) -{ - struct vstop_notif *vstop = (struct vstop_notif *) event; - - prepare_resume_reply (own_buf, vstop->ptid, &vstop->status); -} - -/* Helper for in_queued_stop_replies. */ - -static bool -in_queued_stop_replies_ptid (struct notif_event *event, ptid_t filter_ptid) -{ - struct vstop_notif *vstop_event = (struct vstop_notif *) event; - - if (vstop_event->ptid.matches (filter_ptid)) - return true; - - /* Don't resume fork children that GDB does not know about yet. */ - if ((vstop_event->status.kind == TARGET_WAITKIND_FORKED - || vstop_event->status.kind == TARGET_WAITKIND_VFORKED) - && vstop_event->status.value.related_pid.matches (filter_ptid)) - return true; - - return false; -} - -/* See server.h. */ - -int -in_queued_stop_replies (ptid_t ptid) -{ - for (notif_event *event : notif_stop.queue) - { - if (in_queued_stop_replies_ptid (event, ptid)) - return true; - } - - return false; -} - -struct notif_server notif_stop = -{ - "vStopped", "Stop", {}, vstop_notif_reply, -}; - -static int -target_running (void) -{ - return get_first_thread () != NULL; -} - -/* See gdbsupport/common-inferior.h. */ - -const char * -get_exec_wrapper () -{ - return !wrapper_argv.empty () ? wrapper_argv.c_str () : NULL; -} - -/* See gdbsupport/common-inferior.h. */ - -const char * -get_exec_file (int err) -{ - if (err && program_path.get () == NULL) - error (_("No executable file specified.")); - - return program_path.get (); -} - -/* See server.h. */ - -gdb_environ * -get_environ () -{ - return &our_environ; -} - -static int -attach_inferior (int pid) -{ - client_state &cs = get_client_state (); - /* myattach should return -1 if attaching is unsupported, - 0 if it succeeded, and call error() otherwise. */ - - if (find_process_pid (pid) != nullptr) - error ("Already attached to process %d\n", pid); - - if (myattach (pid) != 0) - return -1; - - fprintf (stderr, "Attached; pid = %d\n", pid); - fflush (stderr); - - /* FIXME - It may be that we should get the SIGNAL_PID from the - attach function, so that it can be the main thread instead of - whichever we were told to attach to. */ - signal_pid = pid; - - if (!non_stop) - { - cs.last_ptid = mywait (ptid_t (pid), &cs.last_status, 0, 0); - - /* GDB knows to ignore the first SIGSTOP after attaching to a running - process using the "attach" command, but this is different; it's - just using "target remote". Pretend it's just starting up. */ - if (cs.last_status.kind == TARGET_WAITKIND_STOPPED - && cs.last_status.value.sig == GDB_SIGNAL_STOP) - cs.last_status.value.sig = GDB_SIGNAL_TRAP; - - current_thread->last_resume_kind = resume_stop; - current_thread->last_status = cs.last_status; - } - - return 0; -} - -/* Decode a qXfer read request. Return 0 if everything looks OK, - or -1 otherwise. */ - -static int -decode_xfer_read (char *buf, CORE_ADDR *ofs, unsigned int *len) -{ - /* After the read marker and annex, qXfer looks like a - traditional 'm' packet. */ - decode_m_packet (buf, ofs, len); - - return 0; -} - -static int -decode_xfer (char *buf, char **object, char **rw, char **annex, char **offset) -{ - /* Extract and NUL-terminate the object. */ - *object = buf; - while (*buf && *buf != ':') - buf++; - if (*buf == '\0') - return -1; - *buf++ = 0; - - /* Extract and NUL-terminate the read/write action. */ - *rw = buf; - while (*buf && *buf != ':') - buf++; - if (*buf == '\0') - return -1; - *buf++ = 0; - - /* Extract and NUL-terminate the annex. */ - *annex = buf; - while (*buf && *buf != ':') - buf++; - if (*buf == '\0') - return -1; - *buf++ = 0; - - *offset = buf; - return 0; -} - -/* Write the response to a successful qXfer read. Returns the - length of the (binary) data stored in BUF, corresponding - to as much of DATA/LEN as we could fit. IS_MORE controls - the first character of the response. */ -static int -write_qxfer_response (char *buf, const gdb_byte *data, int len, int is_more) -{ - int out_len; - - if (is_more) - buf[0] = 'm'; - else - buf[0] = 'l'; - - return remote_escape_output (data, len, 1, (unsigned char *) buf + 1, - &out_len, PBUFSIZ - 2) + 1; -} - -/* Handle btrace enabling in BTS format. */ - -static void -handle_btrace_enable_bts (struct thread_info *thread) -{ - if (thread->btrace != NULL) - error (_("Btrace already enabled.")); - - current_btrace_conf.format = BTRACE_FORMAT_BTS; - thread->btrace = target_enable_btrace (thread->id, ¤t_btrace_conf); -} - -/* Handle btrace enabling in Intel Processor Trace format. */ - -static void -handle_btrace_enable_pt (struct thread_info *thread) -{ - if (thread->btrace != NULL) - error (_("Btrace already enabled.")); - - current_btrace_conf.format = BTRACE_FORMAT_PT; - thread->btrace = target_enable_btrace (thread->id, ¤t_btrace_conf); -} - -/* Handle btrace disabling. */ - -static void -handle_btrace_disable (struct thread_info *thread) -{ - - if (thread->btrace == NULL) - error (_("Branch tracing not enabled.")); - - if (target_disable_btrace (thread->btrace) != 0) - error (_("Could not disable branch tracing.")); - - thread->btrace = NULL; -} - -/* Handle the "Qbtrace" packet. */ - -static int -handle_btrace_general_set (char *own_buf) -{ - client_state &cs = get_client_state (); - struct thread_info *thread; - char *op; - - if (!startswith (own_buf, "Qbtrace:")) - return 0; - - op = own_buf + strlen ("Qbtrace:"); - - if (cs.general_thread == null_ptid - || cs.general_thread == minus_one_ptid) - { - strcpy (own_buf, "E.Must select a single thread."); - return -1; - } - - thread = find_thread_ptid (cs.general_thread); - if (thread == NULL) - { - strcpy (own_buf, "E.No such thread."); - return -1; - } - - try - { - if (strcmp (op, "bts") == 0) - handle_btrace_enable_bts (thread); - else if (strcmp (op, "pt") == 0) - handle_btrace_enable_pt (thread); - else if (strcmp (op, "off") == 0) - handle_btrace_disable (thread); - else - error (_("Bad Qbtrace operation. Use bts, pt, or off.")); - - write_ok (own_buf); - } - catch (const gdb_exception_error &exception) - { - sprintf (own_buf, "E.%s", exception.what ()); - } - - return 1; -} - -/* Handle the "Qbtrace-conf" packet. */ - -static int -handle_btrace_conf_general_set (char *own_buf) -{ - client_state &cs = get_client_state (); - struct thread_info *thread; - char *op; - - if (!startswith (own_buf, "Qbtrace-conf:")) - return 0; - - op = own_buf + strlen ("Qbtrace-conf:"); - - if (cs.general_thread == null_ptid - || cs.general_thread == minus_one_ptid) - { - strcpy (own_buf, "E.Must select a single thread."); - return -1; - } - - thread = find_thread_ptid (cs.general_thread); - if (thread == NULL) - { - strcpy (own_buf, "E.No such thread."); - return -1; - } - - if (startswith (op, "bts:size=")) - { - unsigned long size; - char *endp = NULL; - - errno = 0; - size = strtoul (op + strlen ("bts:size="), &endp, 16); - if (endp == NULL || *endp != 0 || errno != 0 || size > UINT_MAX) - { - strcpy (own_buf, "E.Bad size value."); - return -1; - } - - current_btrace_conf.bts.size = (unsigned int) size; - } - else if (strncmp (op, "pt:size=", strlen ("pt:size=")) == 0) - { - unsigned long size; - char *endp = NULL; - - errno = 0; - size = strtoul (op + strlen ("pt:size="), &endp, 16); - if (endp == NULL || *endp != 0 || errno != 0 || size > UINT_MAX) - { - strcpy (own_buf, "E.Bad size value."); - return -1; - } - - current_btrace_conf.pt.size = (unsigned int) size; - } - else - { - strcpy (own_buf, "E.Bad Qbtrace configuration option."); - return -1; - } - - write_ok (own_buf); - return 1; -} - -/* Handle all of the extended 'Q' packets. */ - -static void -handle_general_set (char *own_buf) -{ - client_state &cs = get_client_state (); - if (startswith (own_buf, "QPassSignals:")) - { - int numsigs = (int) GDB_SIGNAL_LAST, i; - const char *p = own_buf + strlen ("QPassSignals:"); - CORE_ADDR cursig; - - p = decode_address_to_semicolon (&cursig, p); - for (i = 0; i < numsigs; i++) - { - if (i == cursig) - { - cs.pass_signals[i] = 1; - if (*p == '\0') - /* Keep looping, to clear the remaining signals. */ - cursig = -1; - else - p = decode_address_to_semicolon (&cursig, p); - } - else - cs.pass_signals[i] = 0; - } - strcpy (own_buf, "OK"); - return; - } - - if (startswith (own_buf, "QProgramSignals:")) - { - int numsigs = (int) GDB_SIGNAL_LAST, i; - const char *p = own_buf + strlen ("QProgramSignals:"); - CORE_ADDR cursig; - - cs.program_signals_p = 1; - - p = decode_address_to_semicolon (&cursig, p); - for (i = 0; i < numsigs; i++) - { - if (i == cursig) - { - cs.program_signals[i] = 1; - if (*p == '\0') - /* Keep looping, to clear the remaining signals. */ - cursig = -1; - else - p = decode_address_to_semicolon (&cursig, p); - } - else - cs.program_signals[i] = 0; - } - strcpy (own_buf, "OK"); - return; - } - - if (startswith (own_buf, "QCatchSyscalls:")) - { - const char *p = own_buf + sizeof ("QCatchSyscalls:") - 1; - int enabled = -1; - CORE_ADDR sysno; - struct process_info *process; - - if (!target_running () || !target_supports_catch_syscall ()) - { - write_enn (own_buf); - return; - } - - if (strcmp (p, "0") == 0) - enabled = 0; - else if (p[0] == '1' && (p[1] == ';' || p[1] == '\0')) - enabled = 1; - else - { - fprintf (stderr, "Unknown catch-syscalls mode requested: %s\n", - own_buf); - write_enn (own_buf); - return; - } - - process = current_process (); - process->syscalls_to_catch.clear (); - - if (enabled) - { - p += 1; - if (*p == ';') - { - p += 1; - while (*p != '\0') - { - p = decode_address_to_semicolon (&sysno, p); - process->syscalls_to_catch.push_back (sysno); - } - } - else - process->syscalls_to_catch.push_back (ANY_SYSCALL); - } - - write_ok (own_buf); - return; - } - - if (strcmp (own_buf, "QEnvironmentReset") == 0) - { - our_environ = gdb_environ::from_host_environ (); - - write_ok (own_buf); - return; - } - - if (startswith (own_buf, "QEnvironmentHexEncoded:")) - { - const char *p = own_buf + sizeof ("QEnvironmentHexEncoded:") - 1; - /* The final form of the environment variable. FINAL_VAR will - hold the 'VAR=VALUE' format. */ - std::string final_var = hex2str (p); - std::string var_name, var_value; - - if (remote_debug) - { - debug_printf (_("[QEnvironmentHexEncoded received '%s']\n"), p); - debug_printf (_("[Environment variable to be set: '%s']\n"), - final_var.c_str ()); - debug_flush (); - } - - size_t pos = final_var.find ('='); - if (pos == std::string::npos) - { - warning (_("Unexpected format for environment variable: '%s'"), - final_var.c_str ()); - write_enn (own_buf); - return; - } - - var_name = final_var.substr (0, pos); - var_value = final_var.substr (pos + 1, std::string::npos); - - our_environ.set (var_name.c_str (), var_value.c_str ()); - - write_ok (own_buf); - return; - } - - if (startswith (own_buf, "QEnvironmentUnset:")) - { - const char *p = own_buf + sizeof ("QEnvironmentUnset:") - 1; - std::string varname = hex2str (p); - - if (remote_debug) - { - debug_printf (_("[QEnvironmentUnset received '%s']\n"), p); - debug_printf (_("[Environment variable to be unset: '%s']\n"), - varname.c_str ()); - debug_flush (); - } - - our_environ.unset (varname.c_str ()); - - write_ok (own_buf); - return; - } - - if (strcmp (own_buf, "QStartNoAckMode") == 0) - { - if (remote_debug) - { - debug_printf ("[noack mode enabled]\n"); - debug_flush (); - } - - cs.noack_mode = 1; - write_ok (own_buf); - return; - } - - if (startswith (own_buf, "QNonStop:")) - { - char *mode = own_buf + 9; - int req = -1; - const char *req_str; - - if (strcmp (mode, "0") == 0) - req = 0; - else if (strcmp (mode, "1") == 0) - req = 1; - else - { - /* We don't know what this mode is, so complain to - GDB. */ - fprintf (stderr, "Unknown non-stop mode requested: %s\n", - own_buf); - write_enn (own_buf); - return; - } - - req_str = req ? "non-stop" : "all-stop"; - if (start_non_stop (req) != 0) - { - fprintf (stderr, "Setting %s mode failed\n", req_str); - write_enn (own_buf); - return; - } - - non_stop = (req != 0); - - if (remote_debug) - debug_printf ("[%s mode enabled]\n", req_str); - - write_ok (own_buf); - return; - } - - if (startswith (own_buf, "QDisableRandomization:")) - { - char *packet = own_buf + strlen ("QDisableRandomization:"); - ULONGEST setting; - - unpack_varlen_hex (packet, &setting); - cs.disable_randomization = setting; - - if (remote_debug) - { - debug_printf (cs.disable_randomization - ? "[address space randomization disabled]\n" - : "[address space randomization enabled]\n"); - } - - write_ok (own_buf); - return; - } - - if (target_supports_tracepoints () - && handle_tracepoint_general_set (own_buf)) - return; - - if (startswith (own_buf, "QAgent:")) - { - char *mode = own_buf + strlen ("QAgent:"); - int req = 0; - - if (strcmp (mode, "0") == 0) - req = 0; - else if (strcmp (mode, "1") == 0) - req = 1; - else - { - /* We don't know what this value is, so complain to GDB. */ - sprintf (own_buf, "E.Unknown QAgent value"); - return; - } - - /* Update the flag. */ - use_agent = req; - if (remote_debug) - debug_printf ("[%s agent]\n", req ? "Enable" : "Disable"); - write_ok (own_buf); - return; - } - - if (handle_btrace_general_set (own_buf)) - return; - - if (handle_btrace_conf_general_set (own_buf)) - return; - - if (startswith (own_buf, "QThreadEvents:")) - { - char *mode = own_buf + strlen ("QThreadEvents:"); - enum tribool req = TRIBOOL_UNKNOWN; - - if (strcmp (mode, "0") == 0) - req = TRIBOOL_FALSE; - else if (strcmp (mode, "1") == 0) - req = TRIBOOL_TRUE; - else - { - /* We don't know what this mode is, so complain to GDB. */ - sprintf (own_buf, "E.Unknown thread-events mode requested: %s\n", - mode); - return; - } - - cs.report_thread_events = (req == TRIBOOL_TRUE); - - if (remote_debug) - { - const char *req_str = cs.report_thread_events ? "enabled" : "disabled"; - - debug_printf ("[thread events are now %s]\n", req_str); - } - - write_ok (own_buf); - return; - } - - if (startswith (own_buf, "QStartupWithShell:")) - { - const char *value = own_buf + strlen ("QStartupWithShell:"); - - if (strcmp (value, "1") == 0) - startup_with_shell = true; - else if (strcmp (value, "0") == 0) - startup_with_shell = false; - else - { - /* Unknown value. */ - fprintf (stderr, "Unknown value to startup-with-shell: %s\n", - own_buf); - write_enn (own_buf); - return; - } - - if (remote_debug) - debug_printf (_("[Inferior will %s started with shell]"), - startup_with_shell ? "be" : "not be"); - - write_ok (own_buf); - return; - } - - if (startswith (own_buf, "QSetWorkingDir:")) - { - const char *p = own_buf + strlen ("QSetWorkingDir:"); - - if (*p != '\0') - { - std::string path = hex2str (p); - - set_inferior_cwd (path.c_str ()); - - if (remote_debug) - debug_printf (_("[Set the inferior's current directory to %s]\n"), - path.c_str ()); - } - else - { - /* An empty argument means that we should clear out any - previously set cwd for the inferior. */ - set_inferior_cwd (NULL); - - if (remote_debug) - debug_printf (_("\ -[Unset the inferior's current directory; will use gdbserver's cwd]\n")); - } - write_ok (own_buf); - - return; - } - - /* Otherwise we didn't know what packet it was. Say we didn't - understand it. */ - own_buf[0] = 0; -} - -static const char * -get_features_xml (const char *annex) -{ - const struct target_desc *desc = current_target_desc (); - - /* `desc->xmltarget' defines what to return when looking for the - "target.xml" file. Its contents can either be verbatim XML code - (prefixed with a '@') or else the name of the actual XML file to - be used in place of "target.xml". - - This variable is set up from the auto-generated - init_registers_... routine for the current target. */ - - if (strcmp (annex, "target.xml") == 0) - { - const char *ret = tdesc_get_features_xml (desc); - - if (*ret == '@') - return ret + 1; - else - annex = ret; - } - -#ifdef USE_XML - { - int i; - - /* Look for the annex. */ - for (i = 0; xml_builtin[i][0] != NULL; i++) - if (strcmp (annex, xml_builtin[i][0]) == 0) - break; - - if (xml_builtin[i][0] != NULL) - return xml_builtin[i][1]; - } -#endif - - return NULL; -} - -static void -monitor_show_help (void) -{ - monitor_output ("The following monitor commands are supported:\n"); - monitor_output (" set debug <0|1>\n"); - monitor_output (" Enable general debugging messages\n"); - monitor_output (" set debug-hw-points <0|1>\n"); - monitor_output (" Enable h/w breakpoint/watchpoint debugging messages\n"); - monitor_output (" set remote-debug <0|1>\n"); - monitor_output (" Enable remote protocol debugging messages\n"); - monitor_output (" set debug-format option1[,option2,...]\n"); - monitor_output (" Add additional information to debugging messages\n"); - monitor_output (" Options: all, none"); - monitor_output (", timestamp"); - monitor_output ("\n"); - monitor_output (" exit\n"); - monitor_output (" Quit GDBserver\n"); -} - -/* Read trace frame or inferior memory. Returns the number of bytes - actually read, zero when no further transfer is possible, and -1 on - error. Return of a positive value smaller than LEN does not - indicate there's no more to be read, only the end of the transfer. - E.g., when GDB reads memory from a traceframe, a first request may - be served from a memory block that does not cover the whole request - length. A following request gets the rest served from either - another block (of the same traceframe) or from the read-only - regions. */ - -static int -gdb_read_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) -{ - client_state &cs = get_client_state (); - int res; - - if (cs.current_traceframe >= 0) - { - ULONGEST nbytes; - ULONGEST length = len; - - if (traceframe_read_mem (cs.current_traceframe, - memaddr, myaddr, len, &nbytes)) - return -1; - /* Data read from trace buffer, we're done. */ - if (nbytes > 0) - return nbytes; - if (!in_readonly_region (memaddr, length)) - return -1; - /* Otherwise we have a valid readonly case, fall through. */ - /* (assume no half-trace half-real blocks for now) */ - } - - res = prepare_to_access_memory (); - if (res == 0) - { - if (set_desired_thread ()) - res = read_inferior_memory (memaddr, myaddr, len); - else - res = 1; - done_accessing_memory (); - - return res == 0 ? len : -1; - } - else - return -1; -} - -/* Write trace frame or inferior memory. Actually, writing to trace - frames is forbidden. */ - -static int -gdb_write_memory (CORE_ADDR memaddr, const unsigned char *myaddr, int len) -{ - client_state &cs = get_client_state (); - if (cs.current_traceframe >= 0) - return EIO; - else - { - int ret; - - ret = prepare_to_access_memory (); - if (ret == 0) - { - if (set_desired_thread ()) - ret = target_write_memory (memaddr, myaddr, len); - else - ret = EIO; - done_accessing_memory (); - } - return ret; - } -} - -/* Subroutine of handle_search_memory to simplify it. */ - -static int -handle_search_memory_1 (CORE_ADDR start_addr, CORE_ADDR search_space_len, - gdb_byte *pattern, unsigned pattern_len, - gdb_byte *search_buf, - unsigned chunk_size, unsigned search_buf_size, - CORE_ADDR *found_addrp) -{ - /* Prime the search buffer. */ - - if (gdb_read_memory (start_addr, search_buf, search_buf_size) - != search_buf_size) - { - warning ("Unable to access %ld bytes of target " - "memory at 0x%lx, halting search.", - (long) search_buf_size, (long) start_addr); - return -1; - } - - /* Perform the search. - - The loop is kept simple by allocating [N + pattern-length - 1] bytes. - When we've scanned N bytes we copy the trailing bytes to the start and - read in another N bytes. */ - - while (search_space_len >= pattern_len) - { - gdb_byte *found_ptr; - unsigned nr_search_bytes = (search_space_len < search_buf_size - ? search_space_len - : search_buf_size); - - found_ptr = (gdb_byte *) memmem (search_buf, nr_search_bytes, pattern, - pattern_len); - - if (found_ptr != NULL) - { - CORE_ADDR found_addr = start_addr + (found_ptr - search_buf); - *found_addrp = found_addr; - return 1; - } - - /* Not found in this chunk, skip to next chunk. */ - - /* Don't let search_space_len wrap here, it's unsigned. */ - if (search_space_len >= chunk_size) - search_space_len -= chunk_size; - else - search_space_len = 0; - - if (search_space_len >= pattern_len) - { - unsigned keep_len = search_buf_size - chunk_size; - CORE_ADDR read_addr = start_addr + chunk_size + keep_len; - int nr_to_read; - - /* Copy the trailing part of the previous iteration to the front - of the buffer for the next iteration. */ - memcpy (search_buf, search_buf + chunk_size, keep_len); - - nr_to_read = (search_space_len - keep_len < chunk_size - ? search_space_len - keep_len - : chunk_size); - - if (gdb_read_memory (read_addr, search_buf + keep_len, - nr_to_read) != search_buf_size) - { - warning ("Unable to access %ld bytes of target memory " - "at 0x%lx, halting search.", - (long) nr_to_read, (long) read_addr); - return -1; - } - - start_addr += chunk_size; - } - } - - /* Not found. */ - - return 0; -} - -/* Handle qSearch:memory packets. */ - -static void -handle_search_memory (char *own_buf, int packet_len) -{ - CORE_ADDR start_addr; - CORE_ADDR search_space_len; - gdb_byte *pattern; - unsigned int pattern_len; - /* NOTE: also defined in find.c testcase. */ -#define SEARCH_CHUNK_SIZE 16000 - const unsigned chunk_size = SEARCH_CHUNK_SIZE; - /* Buffer to hold memory contents for searching. */ - gdb_byte *search_buf; - unsigned search_buf_size; - int found; - CORE_ADDR found_addr; - int cmd_name_len = sizeof ("qSearch:memory:") - 1; - - pattern = (gdb_byte *) malloc (packet_len); - if (pattern == NULL) - { - error ("Unable to allocate memory to perform the search"); - strcpy (own_buf, "E00"); - return; - } - if (decode_search_memory_packet (own_buf + cmd_name_len, - packet_len - cmd_name_len, - &start_addr, &search_space_len, - pattern, &pattern_len) < 0) - { - free (pattern); - error ("Error in parsing qSearch:memory packet"); - strcpy (own_buf, "E00"); - return; - } - - search_buf_size = chunk_size + pattern_len - 1; - - /* No point in trying to allocate a buffer larger than the search space. */ - if (search_space_len < search_buf_size) - search_buf_size = search_space_len; - - search_buf = (gdb_byte *) malloc (search_buf_size); - if (search_buf == NULL) - { - free (pattern); - error ("Unable to allocate memory to perform the search"); - strcpy (own_buf, "E00"); - return; - } - - found = handle_search_memory_1 (start_addr, search_space_len, - pattern, pattern_len, - search_buf, chunk_size, search_buf_size, - &found_addr); - - if (found > 0) - sprintf (own_buf, "1,%lx", (long) found_addr); - else if (found == 0) - strcpy (own_buf, "0"); - else - strcpy (own_buf, "E00"); - - free (search_buf); - free (pattern); -} - -/* Handle the "D" packet. */ - -static void -handle_detach (char *own_buf) -{ - client_state &cs = get_client_state (); - - process_info *process; - - if (cs.multi_process) - { - /* skip 'D;' */ - int pid = strtol (&own_buf[2], NULL, 16); - - process = find_process_pid (pid); - } - else - { - process = (current_thread != nullptr - ? get_thread_process (current_thread) - : nullptr); - } - - if (process == NULL) - { - write_enn (own_buf); - return; - } - - if ((tracing && disconnected_tracing) || any_persistent_commands (process)) - { - if (tracing && disconnected_tracing) - fprintf (stderr, - "Disconnected tracing in effect, " - "leaving gdbserver attached to the process\n"); - - if (any_persistent_commands (process)) - fprintf (stderr, - "Persistent commands are present, " - "leaving gdbserver attached to the process\n"); - - /* Make sure we're in non-stop/async mode, so we we can both - wait for an async socket accept, and handle async target - events simultaneously. There's also no point either in - having the target stop all threads, when we're going to - pass signals down without informing GDB. */ - if (!non_stop) - { - if (debug_threads) - debug_printf ("Forcing non-stop mode\n"); - - non_stop = true; - start_non_stop (1); - } - - process->gdb_detached = 1; - - /* Detaching implicitly resumes all threads. */ - target_continue_no_signal (minus_one_ptid); - - write_ok (own_buf); - return; - } - - fprintf (stderr, "Detaching from process %d\n", process->pid); - stop_tracing (); - - /* We'll need this after PROCESS has been destroyed. */ - int pid = process->pid; - - if (detach_inferior (process) != 0) - write_enn (own_buf); - else - { - discard_queued_stop_replies (ptid_t (pid)); - write_ok (own_buf); - - if (extended_protocol || target_running ()) - { - /* There is still at least one inferior remaining or - we are in extended mode, so don't terminate gdbserver, - and instead treat this like a normal program exit. */ - cs.last_status.kind = TARGET_WAITKIND_EXITED; - cs.last_status.value.integer = 0; - cs.last_ptid = ptid_t (pid); - - current_thread = NULL; - } - else - { - putpkt (own_buf); - remote_close (); - - /* If we are attached, then we can exit. Otherwise, we - need to hang around doing nothing, until the child is - gone. */ - join_inferior (pid); - exit (0); - } - } -} - -/* Parse options to --debug-format= and "monitor set debug-format". - ARG is the text after "--debug-format=" or "monitor set debug-format". - IS_MONITOR is non-zero if we're invoked via "monitor set debug-format". - This triggers calls to monitor_output. - The result is an empty string if all options were parsed ok, otherwise an - error message which the caller must free. - - N.B. These commands affect all debug format settings, they are not - cumulative. If a format is not specified, it is turned off. - However, we don't go to extra trouble with things like - "monitor set debug-format all,none,timestamp". - Instead we just parse them one at a time, in order. - - The syntax for "monitor set debug" we support here is not identical - to gdb's "set debug foo on|off" because we also use this function to - parse "--debug-format=foo,bar". */ - -static std::string -parse_debug_format_options (const char *arg, int is_monitor) -{ - /* First turn all debug format options off. */ - debug_timestamp = 0; - - /* First remove leading spaces, for "monitor set debug-format". */ - while (isspace (*arg)) - ++arg; - - std::vector> options - = delim_string_to_char_ptr_vec (arg, ','); - - for (const gdb::unique_xmalloc_ptr &option : options) - { - if (strcmp (option.get (), "all") == 0) - { - debug_timestamp = 1; - if (is_monitor) - monitor_output ("All extra debug format options enabled.\n"); - } - else if (strcmp (option.get (), "none") == 0) - { - debug_timestamp = 0; - if (is_monitor) - monitor_output ("All extra debug format options disabled.\n"); - } - else if (strcmp (option.get (), "timestamp") == 0) - { - debug_timestamp = 1; - if (is_monitor) - monitor_output ("Timestamps will be added to debug output.\n"); - } - else if (*option == '\0') - { - /* An empty option, e.g., "--debug-format=foo,,bar", is ignored. */ - continue; - } - else - return string_printf ("Unknown debug-format argument: \"%s\"\n", - option.get ()); - } - - return std::string (); -} - -/* Handle monitor commands not handled by target-specific handlers. */ - -static void -handle_monitor_command (char *mon, char *own_buf) -{ - if (strcmp (mon, "set debug 1") == 0) - { - debug_threads = 1; - monitor_output ("Debug output enabled.\n"); - } - else if (strcmp (mon, "set debug 0") == 0) - { - debug_threads = 0; - monitor_output ("Debug output disabled.\n"); - } - else if (strcmp (mon, "set debug-hw-points 1") == 0) - { - show_debug_regs = 1; - monitor_output ("H/W point debugging output enabled.\n"); - } - else if (strcmp (mon, "set debug-hw-points 0") == 0) - { - show_debug_regs = 0; - monitor_output ("H/W point debugging output disabled.\n"); - } - else if (strcmp (mon, "set remote-debug 1") == 0) - { - remote_debug = 1; - monitor_output ("Protocol debug output enabled.\n"); - } - else if (strcmp (mon, "set remote-debug 0") == 0) - { - remote_debug = 0; - monitor_output ("Protocol debug output disabled.\n"); - } - else if (startswith (mon, "set debug-format ")) - { - std::string error_msg - = parse_debug_format_options (mon + sizeof ("set debug-format ") - 1, - 1); - - if (!error_msg.empty ()) - { - monitor_output (error_msg.c_str ()); - monitor_show_help (); - write_enn (own_buf); - } - } - else if (strcmp (mon, "set debug-file") == 0) - debug_set_output (nullptr); - else if (startswith (mon, "set debug-file ")) - debug_set_output (mon + sizeof ("set debug-file ") - 1); - else if (strcmp (mon, "help") == 0) - monitor_show_help (); - else if (strcmp (mon, "exit") == 0) - exit_requested = true; - else - { - monitor_output ("Unknown monitor command.\n\n"); - monitor_show_help (); - write_enn (own_buf); - } -} - -/* Associates a callback with each supported qXfer'able object. */ - -struct qxfer -{ - /* The object this handler handles. */ - const char *object; - - /* Request that the target transfer up to LEN 8-bit bytes of the - target's OBJECT. The OFFSET, for a seekable object, specifies - the starting point. The ANNEX can be used to provide additional - data-specific information to the target. - - Return the number of bytes actually transfered, zero when no - further transfer is possible, -1 on error, -2 when the transfer - is not supported, and -3 on a verbose error message that should - be preserved. Return of a positive value smaller than LEN does - not indicate the end of the object, only the end of the transfer. - - One, and only one, of readbuf or writebuf must be non-NULL. */ - int (*xfer) (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len); -}; - -/* Handle qXfer:auxv:read. */ - -static int -handle_qxfer_auxv (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len) -{ - if (the_target->read_auxv == NULL || writebuf != NULL) - return -2; - - if (annex[0] != '\0' || current_thread == NULL) - return -1; - - return (*the_target->read_auxv) (offset, readbuf, len); -} - -/* Handle qXfer:exec-file:read. */ - -static int -handle_qxfer_exec_file (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len) -{ - char *file; - ULONGEST pid; - int total_len; - - if (the_target->pid_to_exec_file == NULL || writebuf != NULL) - return -2; - - if (annex[0] == '\0') - { - if (current_thread == NULL) - return -1; - - pid = pid_of (current_thread); - } - else - { - annex = unpack_varlen_hex (annex, &pid); - if (annex[0] != '\0') - return -1; - } - - if (pid <= 0) - return -1; - - file = (*the_target->pid_to_exec_file) (pid); - if (file == NULL) - return -1; - - total_len = strlen (file); - - if (offset > total_len) - return -1; - - if (offset + len > total_len) - len = total_len - offset; - - memcpy (readbuf, file + offset, len); - return len; -} - -/* Handle qXfer:features:read. */ - -static int -handle_qxfer_features (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len) -{ - const char *document; - size_t total_len; - - if (writebuf != NULL) - return -2; - - if (!target_running ()) - return -1; - - /* Grab the correct annex. */ - document = get_features_xml (annex); - if (document == NULL) - return -1; - - total_len = strlen (document); - - if (offset > total_len) - return -1; - - if (offset + len > total_len) - len = total_len - offset; - - memcpy (readbuf, document + offset, len); - return len; -} - -/* Handle qXfer:libraries:read. */ - -static int -handle_qxfer_libraries (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len) -{ - if (writebuf != NULL) - return -2; - - if (annex[0] != '\0' || current_thread == NULL) - return -1; - - std::string document = "\n"; - - for (const dll_info &dll : all_dlls) - document += string_printf - (" \n", - dll.name.c_str (), paddress (dll.base_addr)); - - document += "\n"; - - if (offset > document.length ()) - return -1; - - if (offset + len > document.length ()) - len = document.length () - offset; - - memcpy (readbuf, &document[offset], len); - - return len; -} - -/* Handle qXfer:libraries-svr4:read. */ - -static int -handle_qxfer_libraries_svr4 (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len) -{ - if (writebuf != NULL) - return -2; - - if (current_thread == NULL || the_target->qxfer_libraries_svr4 == NULL) - return -1; - - return the_target->qxfer_libraries_svr4 (annex, readbuf, writebuf, offset, len); -} - -/* Handle qXfer:osadata:read. */ - -static int -handle_qxfer_osdata (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len) -{ - if (the_target->qxfer_osdata == NULL || writebuf != NULL) - return -2; - - return (*the_target->qxfer_osdata) (annex, readbuf, NULL, offset, len); -} - -/* Handle qXfer:siginfo:read and qXfer:siginfo:write. */ - -static int -handle_qxfer_siginfo (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len) -{ - if (the_target->qxfer_siginfo == NULL) - return -2; - - if (annex[0] != '\0' || current_thread == NULL) - return -1; - - return (*the_target->qxfer_siginfo) (annex, readbuf, writebuf, offset, len); -} - -/* Handle qXfer:statictrace:read. */ - -static int -handle_qxfer_statictrace (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len) -{ - client_state &cs = get_client_state (); - ULONGEST nbytes; - - if (writebuf != NULL) - return -2; - - if (annex[0] != '\0' || current_thread == NULL - || cs.current_traceframe == -1) - return -1; - - if (traceframe_read_sdata (cs.current_traceframe, offset, - readbuf, len, &nbytes)) - return -1; - return nbytes; -} - -/* Helper for handle_qxfer_threads_proper. - Emit the XML to describe the thread of INF. */ - -static void -handle_qxfer_threads_worker (thread_info *thread, struct buffer *buffer) -{ - ptid_t ptid = ptid_of (thread); - char ptid_s[100]; - int core = target_core_of_thread (ptid); - char core_s[21]; - const char *name = target_thread_name (ptid); - int handle_len; - gdb_byte *handle; - bool handle_status = target_thread_handle (ptid, &handle, &handle_len); - - write_ptid (ptid_s, ptid); - - buffer_xml_printf (buffer, "\n"); -} - -/* Helper for handle_qxfer_threads. */ - -static void -handle_qxfer_threads_proper (struct buffer *buffer) -{ - buffer_grow_str (buffer, "\n"); - - for_each_thread ([&] (thread_info *thread) - { - handle_qxfer_threads_worker (thread, buffer); - }); - - buffer_grow_str0 (buffer, "\n"); -} - -/* Handle qXfer:threads:read. */ - -static int -handle_qxfer_threads (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len) -{ - static char *result = 0; - static unsigned int result_length = 0; - - if (writebuf != NULL) - return -2; - - if (annex[0] != '\0') - return -1; - - if (offset == 0) - { - struct buffer buffer; - /* When asked for data at offset 0, generate everything and store into - 'result'. Successive reads will be served off 'result'. */ - if (result) - free (result); - - buffer_init (&buffer); - - handle_qxfer_threads_proper (&buffer); - - result = buffer_finish (&buffer); - result_length = strlen (result); - buffer_free (&buffer); - } - - if (offset >= result_length) - { - /* We're out of data. */ - free (result); - result = NULL; - result_length = 0; - return 0; - } - - if (len > result_length - offset) - len = result_length - offset; - - memcpy (readbuf, result + offset, len); - - return len; -} - -/* Handle qXfer:traceframe-info:read. */ - -static int -handle_qxfer_traceframe_info (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len) -{ - client_state &cs = get_client_state (); - static char *result = 0; - static unsigned int result_length = 0; - - if (writebuf != NULL) - return -2; - - if (!target_running () || annex[0] != '\0' || cs.current_traceframe == -1) - return -1; - - if (offset == 0) - { - struct buffer buffer; - - /* When asked for data at offset 0, generate everything and - store into 'result'. Successive reads will be served off - 'result'. */ - free (result); - - buffer_init (&buffer); - - traceframe_read_info (cs.current_traceframe, &buffer); - - result = buffer_finish (&buffer); - result_length = strlen (result); - buffer_free (&buffer); - } - - if (offset >= result_length) - { - /* We're out of data. */ - free (result); - result = NULL; - result_length = 0; - return 0; - } - - if (len > result_length - offset) - len = result_length - offset; - - memcpy (readbuf, result + offset, len); - return len; -} - -/* Handle qXfer:fdpic:read. */ - -static int -handle_qxfer_fdpic (const char *annex, gdb_byte *readbuf, - const gdb_byte *writebuf, ULONGEST offset, LONGEST len) -{ - if (the_target->read_loadmap == NULL) - return -2; - - if (current_thread == NULL) - return -1; - - return (*the_target->read_loadmap) (annex, offset, readbuf, len); -} - -/* Handle qXfer:btrace:read. */ - -static int -handle_qxfer_btrace (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len) -{ - client_state &cs = get_client_state (); - static struct buffer cache; - struct thread_info *thread; - enum btrace_read_type type; - int result; - - if (writebuf != NULL) - return -2; - - if (cs.general_thread == null_ptid - || cs.general_thread == minus_one_ptid) - { - strcpy (cs.own_buf, "E.Must select a single thread."); - return -3; - } - - thread = find_thread_ptid (cs.general_thread); - if (thread == NULL) - { - strcpy (cs.own_buf, "E.No such thread."); - return -3; - } - - if (thread->btrace == NULL) - { - strcpy (cs.own_buf, "E.Btrace not enabled."); - return -3; - } - - if (strcmp (annex, "all") == 0) - type = BTRACE_READ_ALL; - else if (strcmp (annex, "new") == 0) - type = BTRACE_READ_NEW; - else if (strcmp (annex, "delta") == 0) - type = BTRACE_READ_DELTA; - else - { - strcpy (cs.own_buf, "E.Bad annex."); - return -3; - } - - if (offset == 0) - { - buffer_free (&cache); - - try - { - result = target_read_btrace (thread->btrace, &cache, type); - if (result != 0) - memcpy (cs.own_buf, cache.buffer, cache.used_size); - } - catch (const gdb_exception_error &exception) - { - sprintf (cs.own_buf, "E.%s", exception.what ()); - result = -1; - } - - if (result != 0) - return -3; - } - else if (offset > cache.used_size) - { - buffer_free (&cache); - return -3; - } - - if (len > cache.used_size - offset) - len = cache.used_size - offset; - - memcpy (readbuf, cache.buffer + offset, len); - - return len; -} - -/* Handle qXfer:btrace-conf:read. */ - -static int -handle_qxfer_btrace_conf (const char *annex, - gdb_byte *readbuf, const gdb_byte *writebuf, - ULONGEST offset, LONGEST len) -{ - client_state &cs = get_client_state (); - static struct buffer cache; - struct thread_info *thread; - int result; - - if (writebuf != NULL) - return -2; - - if (annex[0] != '\0') - return -1; - - if (cs.general_thread == null_ptid - || cs.general_thread == minus_one_ptid) - { - strcpy (cs.own_buf, "E.Must select a single thread."); - return -3; - } - - thread = find_thread_ptid (cs.general_thread); - if (thread == NULL) - { - strcpy (cs.own_buf, "E.No such thread."); - return -3; - } - - if (thread->btrace == NULL) - { - strcpy (cs.own_buf, "E.Btrace not enabled."); - return -3; - } - - if (offset == 0) - { - buffer_free (&cache); - - try - { - result = target_read_btrace_conf (thread->btrace, &cache); - if (result != 0) - memcpy (cs.own_buf, cache.buffer, cache.used_size); - } - catch (const gdb_exception_error &exception) - { - sprintf (cs.own_buf, "E.%s", exception.what ()); - result = -1; - } - - if (result != 0) - return -3; - } - else if (offset > cache.used_size) - { - buffer_free (&cache); - return -3; - } - - if (len > cache.used_size - offset) - len = cache.used_size - offset; - - memcpy (readbuf, cache.buffer + offset, len); - - return len; -} - -static const struct qxfer qxfer_packets[] = - { - { "auxv", handle_qxfer_auxv }, - { "btrace", handle_qxfer_btrace }, - { "btrace-conf", handle_qxfer_btrace_conf }, - { "exec-file", handle_qxfer_exec_file}, - { "fdpic", handle_qxfer_fdpic}, - { "features", handle_qxfer_features }, - { "libraries", handle_qxfer_libraries }, - { "libraries-svr4", handle_qxfer_libraries_svr4 }, - { "osdata", handle_qxfer_osdata }, - { "siginfo", handle_qxfer_siginfo }, - { "statictrace", handle_qxfer_statictrace }, - { "threads", handle_qxfer_threads }, - { "traceframe-info", handle_qxfer_traceframe_info }, - }; - -static int -handle_qxfer (char *own_buf, int packet_len, int *new_packet_len_p) -{ - int i; - char *object; - char *rw; - char *annex; - char *offset; - - if (!startswith (own_buf, "qXfer:")) - return 0; - - /* Grab the object, r/w and annex. */ - if (decode_xfer (own_buf + 6, &object, &rw, &annex, &offset) < 0) - { - write_enn (own_buf); - return 1; - } - - for (i = 0; - i < sizeof (qxfer_packets) / sizeof (qxfer_packets[0]); - i++) - { - const struct qxfer *q = &qxfer_packets[i]; - - if (strcmp (object, q->object) == 0) - { - if (strcmp (rw, "read") == 0) - { - unsigned char *data; - int n; - CORE_ADDR ofs; - unsigned int len; - - /* Grab the offset and length. */ - if (decode_xfer_read (offset, &ofs, &len) < 0) - { - write_enn (own_buf); - return 1; - } - - /* Read one extra byte, as an indicator of whether there is - more. */ - if (len > PBUFSIZ - 2) - len = PBUFSIZ - 2; - data = (unsigned char *) malloc (len + 1); - if (data == NULL) - { - write_enn (own_buf); - return 1; - } - n = (*q->xfer) (annex, data, NULL, ofs, len + 1); - if (n == -2) - { - free (data); - return 0; - } - else if (n == -3) - { - /* Preserve error message. */ - } - else if (n < 0) - write_enn (own_buf); - else if (n > len) - *new_packet_len_p = write_qxfer_response (own_buf, data, len, 1); - else - *new_packet_len_p = write_qxfer_response (own_buf, data, n, 0); - - free (data); - return 1; - } - else if (strcmp (rw, "write") == 0) - { - int n; - unsigned int len; - CORE_ADDR ofs; - unsigned char *data; - - strcpy (own_buf, "E00"); - data = (unsigned char *) malloc (packet_len - (offset - own_buf)); - if (data == NULL) - { - write_enn (own_buf); - return 1; - } - if (decode_xfer_write (offset, packet_len - (offset - own_buf), - &ofs, &len, data) < 0) - { - free (data); - write_enn (own_buf); - return 1; - } - - n = (*q->xfer) (annex, NULL, data, ofs, len); - if (n == -2) - { - free (data); - return 0; - } - else if (n == -3) - { - /* Preserve error message. */ - } - else if (n < 0) - write_enn (own_buf); - else - sprintf (own_buf, "%x", n); - - free (data); - return 1; - } - - return 0; - } - } - - return 0; -} - -/* Compute 32 bit CRC from inferior memory. - - On success, return 32 bit CRC. - On failure, return (unsigned long long) -1. */ - -static unsigned long long -crc32 (CORE_ADDR base, int len, unsigned int crc) -{ - while (len--) - { - unsigned char byte = 0; - - /* Return failure if memory read fails. */ - if (read_inferior_memory (base, &byte, 1) != 0) - return (unsigned long long) -1; - - crc = xcrc32 (&byte, 1, crc); - base++; - } - return (unsigned long long) crc; -} - -/* Add supported btrace packets to BUF. */ - -static void -supported_btrace_packets (char *buf) -{ - strcat (buf, ";Qbtrace:bts+"); - strcat (buf, ";Qbtrace-conf:bts:size+"); - strcat (buf, ";Qbtrace:pt+"); - strcat (buf, ";Qbtrace-conf:pt:size+"); - strcat (buf, ";Qbtrace:off+"); - strcat (buf, ";qXfer:btrace:read+"); - strcat (buf, ";qXfer:btrace-conf:read+"); -} - -/* Handle all of the extended 'q' packets. */ - -static void -handle_query (char *own_buf, int packet_len, int *new_packet_len_p) -{ - client_state &cs = get_client_state (); - static std::list::const_iterator thread_iter; - - /* Reply the current thread id. */ - if (strcmp ("qC", own_buf) == 0 && !disable_packet_qC) - { - ptid_t ptid; - require_running_or_return (own_buf); - - if (cs.general_thread != null_ptid && cs.general_thread != minus_one_ptid) - ptid = cs.general_thread; - else - { - thread_iter = all_threads.begin (); - ptid = (*thread_iter)->id; - } - - sprintf (own_buf, "QC"); - own_buf += 2; - write_ptid (own_buf, ptid); - return; - } - - if (strcmp ("qSymbol::", own_buf) == 0) - { - struct thread_info *save_thread = current_thread; - - /* For qSymbol, GDB only changes the current thread if the - previous current thread was of a different process. So if - the previous thread is gone, we need to pick another one of - the same process. This can happen e.g., if we followed an - exec in a non-leader thread. */ - if (current_thread == NULL) - { - current_thread - = find_any_thread_of_pid (cs.general_thread.pid ()); - - /* Just in case, if we didn't find a thread, then bail out - instead of crashing. */ - if (current_thread == NULL) - { - write_enn (own_buf); - current_thread = save_thread; - return; - } - } - - /* GDB is suggesting new symbols have been loaded. This may - mean a new shared library has been detected as loaded, so - take the opportunity to check if breakpoints we think are - inserted, still are. Note that it isn't guaranteed that - we'll see this when a shared library is loaded, and nor will - we see this for unloads (although breakpoints in unloaded - libraries shouldn't trigger), as GDB may not find symbols for - the library at all. We also re-validate breakpoints when we - see a second GDB breakpoint for the same address, and or when - we access breakpoint shadows. */ - validate_breakpoints (); - - if (target_supports_tracepoints ()) - tracepoint_look_up_symbols (); - - if (current_thread != NULL && the_target->look_up_symbols != NULL) - (*the_target->look_up_symbols) (); - - current_thread = save_thread; - - strcpy (own_buf, "OK"); - return; - } - - if (!disable_packet_qfThreadInfo) - { - if (strcmp ("qfThreadInfo", own_buf) == 0) - { - require_running_or_return (own_buf); - thread_iter = all_threads.begin (); - - *own_buf++ = 'm'; - ptid_t ptid = (*thread_iter)->id; - write_ptid (own_buf, ptid); - thread_iter++; - return; - } - - if (strcmp ("qsThreadInfo", own_buf) == 0) - { - require_running_or_return (own_buf); - if (thread_iter != all_threads.end ()) - { - *own_buf++ = 'm'; - ptid_t ptid = (*thread_iter)->id; - write_ptid (own_buf, ptid); - thread_iter++; - return; - } - else - { - sprintf (own_buf, "l"); - return; - } - } - } - - if (the_target->read_offsets != NULL - && strcmp ("qOffsets", own_buf) == 0) - { - CORE_ADDR text, data; - - require_running_or_return (own_buf); - if (the_target->read_offsets (&text, &data)) - sprintf (own_buf, "Text=%lX;Data=%lX;Bss=%lX", - (long)text, (long)data, (long)data); - else - write_enn (own_buf); - - return; - } - - /* Protocol features query. */ - if (startswith (own_buf, "qSupported") - && (own_buf[10] == ':' || own_buf[10] == '\0')) - { - char *p = &own_buf[10]; - int gdb_supports_qRelocInsn = 0; - - /* Process each feature being provided by GDB. The first - feature will follow a ':', and latter features will follow - ';'. */ - if (*p == ':') - { - char **qsupported = NULL; - int count = 0; - int unknown = 0; - int i; - - /* Two passes, to avoid nested strtok calls in - target_process_qsupported. */ - char *saveptr; - for (p = strtok_r (p + 1, ";", &saveptr); - p != NULL; - p = strtok_r (NULL, ";", &saveptr)) - { - count++; - qsupported = XRESIZEVEC (char *, qsupported, count); - qsupported[count - 1] = xstrdup (p); - } - - for (i = 0; i < count; i++) - { - p = qsupported[i]; - if (strcmp (p, "multiprocess+") == 0) - { - /* GDB supports and wants multi-process support if - possible. */ - if (target_supports_multi_process ()) - cs.multi_process = 1; - } - else if (strcmp (p, "qRelocInsn+") == 0) - { - /* GDB supports relocate instruction requests. */ - gdb_supports_qRelocInsn = 1; - } - else if (strcmp (p, "swbreak+") == 0) - { - /* GDB wants us to report whether a trap is caused - by a software breakpoint and for us to handle PC - adjustment if necessary on this target. */ - if (target_supports_stopped_by_sw_breakpoint ()) - cs.swbreak_feature = 1; - } - else if (strcmp (p, "hwbreak+") == 0) - { - /* GDB wants us to report whether a trap is caused - by a hardware breakpoint. */ - if (target_supports_stopped_by_hw_breakpoint ()) - cs.hwbreak_feature = 1; - } - else if (strcmp (p, "fork-events+") == 0) - { - /* GDB supports and wants fork events if possible. */ - if (target_supports_fork_events ()) - cs.report_fork_events = 1; - } - else if (strcmp (p, "vfork-events+") == 0) - { - /* GDB supports and wants vfork events if possible. */ - if (target_supports_vfork_events ()) - cs.report_vfork_events = 1; - } - else if (strcmp (p, "exec-events+") == 0) - { - /* GDB supports and wants exec events if possible. */ - if (target_supports_exec_events ()) - cs.report_exec_events = 1; - } - else if (strcmp (p, "vContSupported+") == 0) - cs.vCont_supported = 1; - else if (strcmp (p, "QThreadEvents+") == 0) - ; - else if (strcmp (p, "no-resumed+") == 0) - { - /* GDB supports and wants TARGET_WAITKIND_NO_RESUMED - events. */ - report_no_resumed = true; - } - else - { - /* Move the unknown features all together. */ - qsupported[i] = NULL; - qsupported[unknown] = p; - unknown++; - } - } - - /* Give the target backend a chance to process the unknown - features. */ - target_process_qsupported (qsupported, unknown); - - for (i = 0; i < count; i++) - free (qsupported[i]); - free (qsupported); - } - - sprintf (own_buf, - "PacketSize=%x;QPassSignals+;QProgramSignals+;" - "QStartupWithShell+;QEnvironmentHexEncoded+;" - "QEnvironmentReset+;QEnvironmentUnset+;" - "QSetWorkingDir+", - PBUFSIZ - 1); - - if (target_supports_catch_syscall ()) - strcat (own_buf, ";QCatchSyscalls+"); - - if (the_target->qxfer_libraries_svr4 != NULL) - strcat (own_buf, ";qXfer:libraries-svr4:read+" - ";augmented-libraries-svr4-read+"); - else - { - /* We do not have any hook to indicate whether the non-SVR4 target - backend supports qXfer:libraries:read, so always report it. */ - strcat (own_buf, ";qXfer:libraries:read+"); - } - - if (the_target->read_auxv != NULL) - strcat (own_buf, ";qXfer:auxv:read+"); - - if (the_target->qxfer_siginfo != NULL) - strcat (own_buf, ";qXfer:siginfo:read+;qXfer:siginfo:write+"); - - if (the_target->read_loadmap != NULL) - strcat (own_buf, ";qXfer:fdpic:read+"); - - /* We always report qXfer:features:read, as targets may - install XML files on a subsequent call to arch_setup. - If we reported to GDB on startup that we don't support - qXfer:feature:read at all, we will never be re-queried. */ - strcat (own_buf, ";qXfer:features:read+"); - - if (cs.transport_is_reliable) - strcat (own_buf, ";QStartNoAckMode+"); - - if (the_target->qxfer_osdata != NULL) - strcat (own_buf, ";qXfer:osdata:read+"); - - if (target_supports_multi_process ()) - strcat (own_buf, ";multiprocess+"); - - if (target_supports_fork_events ()) - strcat (own_buf, ";fork-events+"); - - if (target_supports_vfork_events ()) - strcat (own_buf, ";vfork-events+"); - - if (target_supports_exec_events ()) - strcat (own_buf, ";exec-events+"); - - if (target_supports_non_stop ()) - strcat (own_buf, ";QNonStop+"); - - if (target_supports_disable_randomization ()) - strcat (own_buf, ";QDisableRandomization+"); - - strcat (own_buf, ";qXfer:threads:read+"); - - if (target_supports_tracepoints ()) - { - strcat (own_buf, ";ConditionalTracepoints+"); - strcat (own_buf, ";TraceStateVariables+"); - strcat (own_buf, ";TracepointSource+"); - strcat (own_buf, ";DisconnectedTracing+"); - if (gdb_supports_qRelocInsn && target_supports_fast_tracepoints ()) - strcat (own_buf, ";FastTracepoints+"); - strcat (own_buf, ";StaticTracepoints+"); - strcat (own_buf, ";InstallInTrace+"); - strcat (own_buf, ";qXfer:statictrace:read+"); - strcat (own_buf, ";qXfer:traceframe-info:read+"); - strcat (own_buf, ";EnableDisableTracepoints+"); - strcat (own_buf, ";QTBuffer:size+"); - strcat (own_buf, ";tracenz+"); - } - - if (target_supports_hardware_single_step () - || target_supports_software_single_step () ) - { - strcat (own_buf, ";ConditionalBreakpoints+"); - } - strcat (own_buf, ";BreakpointCommands+"); - - if (target_supports_agent ()) - strcat (own_buf, ";QAgent+"); - - supported_btrace_packets (own_buf); - - if (target_supports_stopped_by_sw_breakpoint ()) - strcat (own_buf, ";swbreak+"); - - if (target_supports_stopped_by_hw_breakpoint ()) - strcat (own_buf, ";hwbreak+"); - - if (the_target->pid_to_exec_file != NULL) - strcat (own_buf, ";qXfer:exec-file:read+"); - - strcat (own_buf, ";vContSupported+"); - - strcat (own_buf, ";QThreadEvents+"); - - strcat (own_buf, ";no-resumed+"); - - /* Reinitialize components as needed for the new connection. */ - hostio_handle_new_gdb_connection (); - target_handle_new_gdb_connection (); - - return; - } - - /* Thread-local storage support. */ - if (the_target->get_tls_address != NULL - && startswith (own_buf, "qGetTLSAddr:")) - { - char *p = own_buf + 12; - CORE_ADDR parts[2], address = 0; - int i, err; - ptid_t ptid = null_ptid; - - require_running_or_return (own_buf); - - for (i = 0; i < 3; i++) - { - char *p2; - int len; - - if (p == NULL) - break; - - p2 = strchr (p, ','); - if (p2) - { - len = p2 - p; - p2++; - } - else - { - len = strlen (p); - p2 = NULL; - } - - if (i == 0) - ptid = read_ptid (p, NULL); - else - decode_address (&parts[i - 1], p, len); - p = p2; - } - - if (p != NULL || i < 3) - err = 1; - else - { - struct thread_info *thread = find_thread_ptid (ptid); - - if (thread == NULL) - err = 2; - else - err = the_target->get_tls_address (thread, parts[0], parts[1], - &address); - } - - if (err == 0) - { - strcpy (own_buf, paddress(address)); - return; - } - else if (err > 0) - { - write_enn (own_buf); - return; - } - - /* Otherwise, pretend we do not understand this packet. */ - } - - /* Windows OS Thread Information Block address support. */ - if (the_target->get_tib_address != NULL - && startswith (own_buf, "qGetTIBAddr:")) - { - const char *annex; - int n; - CORE_ADDR tlb; - ptid_t ptid = read_ptid (own_buf + 12, &annex); - - n = (*the_target->get_tib_address) (ptid, &tlb); - if (n == 1) - { - strcpy (own_buf, paddress(tlb)); - return; - } - else if (n == 0) - { - write_enn (own_buf); - return; - } - return; - } - - /* Handle "monitor" commands. */ - if (startswith (own_buf, "qRcmd,")) - { - char *mon = (char *) malloc (PBUFSIZ); - int len = strlen (own_buf + 6); - - if (mon == NULL) - { - write_enn (own_buf); - return; - } - - if ((len % 2) != 0 - || hex2bin (own_buf + 6, (gdb_byte *) mon, len / 2) != len / 2) - { - write_enn (own_buf); - free (mon); - return; - } - mon[len / 2] = '\0'; - - write_ok (own_buf); - - if (the_target->handle_monitor_command == NULL - || (*the_target->handle_monitor_command) (mon) == 0) - /* Default processing. */ - handle_monitor_command (mon, own_buf); - - free (mon); - return; - } - - if (startswith (own_buf, "qSearch:memory:")) - { - require_running_or_return (own_buf); - handle_search_memory (own_buf, packet_len); - return; - } - - if (strcmp (own_buf, "qAttached") == 0 - || startswith (own_buf, "qAttached:")) - { - struct process_info *process; - - if (own_buf[sizeof ("qAttached") - 1]) - { - int pid = strtoul (own_buf + sizeof ("qAttached:") - 1, NULL, 16); - process = find_process_pid (pid); - } - else - { - require_running_or_return (own_buf); - process = current_process (); - } - - if (process == NULL) - { - write_enn (own_buf); - return; - } - - strcpy (own_buf, process->attached ? "1" : "0"); - return; - } - - if (startswith (own_buf, "qCRC:")) - { - /* CRC check (compare-section). */ - const char *comma; - ULONGEST base; - int len; - unsigned long long crc; - - require_running_or_return (own_buf); - comma = unpack_varlen_hex (own_buf + 5, &base); - if (*comma++ != ',') - { - write_enn (own_buf); - return; - } - len = strtoul (comma, NULL, 16); - crc = crc32 (base, len, 0xffffffff); - /* Check for memory failure. */ - if (crc == (unsigned long long) -1) - { - write_enn (own_buf); - return; - } - sprintf (own_buf, "C%lx", (unsigned long) crc); - return; - } - - if (handle_qxfer (own_buf, packet_len, new_packet_len_p)) - return; - - if (target_supports_tracepoints () && handle_tracepoint_query (own_buf)) - return; - - /* Otherwise we didn't know what packet it was. Say we didn't - understand it. */ - own_buf[0] = 0; -} - -static void gdb_wants_all_threads_stopped (void); -static void resume (struct thread_resume *actions, size_t n); - -/* The callback that is passed to visit_actioned_threads. */ -typedef int (visit_actioned_threads_callback_ftype) - (const struct thread_resume *, struct thread_info *); - -/* Call CALLBACK for any thread to which ACTIONS applies to. Returns - true if CALLBACK returns true. Returns false if no matching thread - is found or CALLBACK results false. - Note: This function is itself a callback for find_thread. */ - -static bool -visit_actioned_threads (thread_info *thread, - const struct thread_resume *actions, - size_t num_actions, - visit_actioned_threads_callback_ftype *callback) -{ - for (size_t i = 0; i < num_actions; i++) - { - const struct thread_resume *action = &actions[i]; - - if (action->thread == minus_one_ptid - || action->thread == thread->id - || ((action->thread.pid () - == thread->id.pid ()) - && action->thread.lwp () == -1)) - { - if ((*callback) (action, thread)) - return true; - } - } - - return false; -} - -/* Callback for visit_actioned_threads. If the thread has a pending - status to report, report it now. */ - -static int -handle_pending_status (const struct thread_resume *resumption, - struct thread_info *thread) -{ - client_state &cs = get_client_state (); - if (thread->status_pending_p) - { - thread->status_pending_p = 0; - - cs.last_status = thread->last_status; - cs.last_ptid = thread->id; - prepare_resume_reply (cs.own_buf, cs.last_ptid, &cs.last_status); - return 1; - } - return 0; -} - -/* Parse vCont packets. */ -static void -handle_v_cont (char *own_buf) -{ - const char *p; - int n = 0, i = 0; - struct thread_resume *resume_info; - struct thread_resume default_action { null_ptid }; - - /* Count the number of semicolons in the packet. There should be one - for every action. */ - p = &own_buf[5]; - while (p) - { - n++; - p++; - p = strchr (p, ';'); - } - - resume_info = (struct thread_resume *) malloc (n * sizeof (resume_info[0])); - if (resume_info == NULL) - goto err; - - p = &own_buf[5]; - while (*p) - { - p++; - - memset (&resume_info[i], 0, sizeof resume_info[i]); - - if (p[0] == 's' || p[0] == 'S') - resume_info[i].kind = resume_step; - else if (p[0] == 'r') - resume_info[i].kind = resume_step; - else if (p[0] == 'c' || p[0] == 'C') - resume_info[i].kind = resume_continue; - else if (p[0] == 't') - resume_info[i].kind = resume_stop; - else - goto err; - - if (p[0] == 'S' || p[0] == 'C') - { - char *q; - int sig = strtol (p + 1, &q, 16); - if (p == q) - goto err; - p = q; - - if (!gdb_signal_to_host_p ((enum gdb_signal) sig)) - goto err; - resume_info[i].sig = gdb_signal_to_host ((enum gdb_signal) sig); - } - else if (p[0] == 'r') - { - ULONGEST addr; - - p = unpack_varlen_hex (p + 1, &addr); - resume_info[i].step_range_start = addr; - - if (*p != ',') - goto err; - - p = unpack_varlen_hex (p + 1, &addr); - resume_info[i].step_range_end = addr; - } - else - { - p = p + 1; - } - - if (p[0] == 0) - { - resume_info[i].thread = minus_one_ptid; - default_action = resume_info[i]; - - /* Note: we don't increment i here, we'll overwrite this entry - the next time through. */ - } - else if (p[0] == ':') - { - const char *q; - ptid_t ptid = read_ptid (p + 1, &q); - - if (p == q) - goto err; - p = q; - if (p[0] != ';' && p[0] != 0) - goto err; - - resume_info[i].thread = ptid; - - i++; - } - } - - if (i < n) - resume_info[i] = default_action; - - resume (resume_info, n); - free (resume_info); - return; - -err: - write_enn (own_buf); - free (resume_info); - return; -} - -/* Resume target with ACTIONS, an array of NUM_ACTIONS elements. */ - -static void -resume (struct thread_resume *actions, size_t num_actions) -{ - client_state &cs = get_client_state (); - if (!non_stop) - { - /* Check if among the threads that GDB wants actioned, there's - one with a pending status to report. If so, skip actually - resuming/stopping and report the pending event - immediately. */ - - thread_info *thread_with_status = find_thread ([&] (thread_info *thread) - { - return visit_actioned_threads (thread, actions, num_actions, - handle_pending_status); - }); - - if (thread_with_status != NULL) - return; - - enable_async_io (); - } - - (*the_target->resume) (actions, num_actions); - - if (non_stop) - write_ok (cs.own_buf); - else - { - cs.last_ptid = mywait (minus_one_ptid, &cs.last_status, 0, 1); - - if (cs.last_status.kind == TARGET_WAITKIND_NO_RESUMED - && !report_no_resumed) - { - /* The client does not support this stop reply. At least - return error. */ - sprintf (cs.own_buf, "E.No unwaited-for children left."); - disable_async_io (); - return; - } - - if (cs.last_status.kind != TARGET_WAITKIND_EXITED - && cs.last_status.kind != TARGET_WAITKIND_SIGNALLED - && cs.last_status.kind != TARGET_WAITKIND_NO_RESUMED) - current_thread->last_status = cs.last_status; - - /* From the client's perspective, all-stop mode always stops all - threads implicitly (and the target backend has already done - so by now). Tag all threads as "want-stopped", so we don't - resume them implicitly without the client telling us to. */ - gdb_wants_all_threads_stopped (); - prepare_resume_reply (cs.own_buf, cs.last_ptid, &cs.last_status); - disable_async_io (); - - if (cs.last_status.kind == TARGET_WAITKIND_EXITED - || cs.last_status.kind == TARGET_WAITKIND_SIGNALLED) - target_mourn_inferior (cs.last_ptid); - } -} - -/* Attach to a new program. Return 1 if successful, 0 if failure. */ -static int -handle_v_attach (char *own_buf) -{ - client_state &cs = get_client_state (); - int pid; - - pid = strtol (own_buf + 8, NULL, 16); - if (pid != 0 && attach_inferior (pid) == 0) - { - /* Don't report shared library events after attaching, even if - some libraries are preloaded. GDB will always poll the - library list. Avoids the "stopped by shared library event" - notice on the GDB side. */ - dlls_changed = 0; - - if (non_stop) - { - /* In non-stop, we don't send a resume reply. Stop events - will follow up using the normal notification - mechanism. */ - write_ok (own_buf); - } - else - prepare_resume_reply (own_buf, cs.last_ptid, &cs.last_status); - - return 1; - } - else - { - write_enn (own_buf); - return 0; - } -} - -/* Run a new program. Return 1 if successful, 0 if failure. */ -static int -handle_v_run (char *own_buf) -{ - client_state &cs = get_client_state (); - char *p, *next_p; - std::vector new_argv; - char *new_program_name = NULL; - int i, new_argc; - - new_argc = 0; - for (p = own_buf + strlen ("vRun;"); p && *p; p = strchr (p, ';')) - { - p++; - new_argc++; - } - - for (i = 0, p = own_buf + strlen ("vRun;"); *p; p = next_p, ++i) - { - next_p = strchr (p, ';'); - if (next_p == NULL) - next_p = p + strlen (p); - - if (i == 0 && p == next_p) - { - /* No program specified. */ - new_program_name = NULL; - } - else if (p == next_p) - { - /* Empty argument. */ - new_argv.push_back (xstrdup ("''")); - } - else - { - size_t len = (next_p - p) / 2; - /* ARG is the unquoted argument received via the RSP. */ - char *arg = (char *) xmalloc (len + 1); - /* FULL_ARGS will contain the quoted version of ARG. */ - char *full_arg = (char *) xmalloc ((len + 1) * 2); - /* These are pointers used to navigate the strings above. */ - char *tmp_arg = arg; - char *tmp_full_arg = full_arg; - int need_quote = 0; - - hex2bin (p, (gdb_byte *) arg, len); - arg[len] = '\0'; - - while (*tmp_arg != '\0') - { - switch (*tmp_arg) - { - case '\n': - /* Quote \n. */ - *tmp_full_arg = '\''; - ++tmp_full_arg; - need_quote = 1; - break; - - case '\'': - /* Quote single quote. */ - *tmp_full_arg = '\\'; - ++tmp_full_arg; - break; - - default: - break; - } - - *tmp_full_arg = *tmp_arg; - ++tmp_full_arg; - ++tmp_arg; - } - - if (need_quote) - *tmp_full_arg++ = '\''; - - /* Finish FULL_ARG and push it into the vector containing - the argv. */ - *tmp_full_arg = '\0'; - if (i == 0) - new_program_name = full_arg; - else - new_argv.push_back (full_arg); - xfree (arg); - } - if (*next_p) - next_p++; - } - new_argv.push_back (NULL); - - if (new_program_name == NULL) - { - /* GDB didn't specify a program to run. Use the program from the - last run with the new argument list. */ - if (program_path.get () == NULL) - { - write_enn (own_buf); - free_vector_argv (new_argv); - return 0; - } - } - else - program_path.set (gdb::unique_xmalloc_ptr (new_program_name)); - - /* Free the old argv and install the new one. */ - free_vector_argv (program_args); - program_args = new_argv; - - create_inferior (program_path.get (), program_args); - - if (cs.last_status.kind == TARGET_WAITKIND_STOPPED) - { - prepare_resume_reply (own_buf, cs.last_ptid, &cs.last_status); - - /* In non-stop, sending a resume reply doesn't set the general - thread, but GDB assumes a vRun sets it (this is so GDB can - query which is the main thread of the new inferior. */ - if (non_stop) - cs.general_thread = cs.last_ptid; - - return 1; - } - else - { - write_enn (own_buf); - return 0; - } -} - -/* Kill process. Return 1 if successful, 0 if failure. */ -static int -handle_v_kill (char *own_buf) -{ - client_state &cs = get_client_state (); - int pid; - char *p = &own_buf[6]; - if (cs.multi_process) - pid = strtol (p, NULL, 16); - else - pid = signal_pid; - - process_info *proc = find_process_pid (pid); - - if (proc != nullptr && kill_inferior (proc) == 0) - { - cs.last_status.kind = TARGET_WAITKIND_SIGNALLED; - cs.last_status.value.sig = GDB_SIGNAL_KILL; - cs.last_ptid = ptid_t (pid); - discard_queued_stop_replies (cs.last_ptid); - write_ok (own_buf); - return 1; - } - else - { - write_enn (own_buf); - return 0; - } -} - -/* Handle all of the extended 'v' packets. */ -void -handle_v_requests (char *own_buf, int packet_len, int *new_packet_len) -{ - client_state &cs = get_client_state (); - if (!disable_packet_vCont) - { - if (strcmp (own_buf, "vCtrlC") == 0) - { - (*the_target->request_interrupt) (); - write_ok (own_buf); - return; - } - - if (startswith (own_buf, "vCont;")) - { - handle_v_cont (own_buf); - return; - } - - if (startswith (own_buf, "vCont?")) - { - strcpy (own_buf, "vCont;c;C;t"); - - if (target_supports_hardware_single_step () - || target_supports_software_single_step () - || !cs.vCont_supported) - { - /* If target supports single step either by hardware or by - software, add actions s and S to the list of supported - actions. On the other hand, if GDB doesn't request the - supported vCont actions in qSupported packet, add s and - S to the list too. */ - own_buf = own_buf + strlen (own_buf); - strcpy (own_buf, ";s;S"); - } - - if (target_supports_range_stepping ()) - { - own_buf = own_buf + strlen (own_buf); - strcpy (own_buf, ";r"); - } - return; - } - } - - if (startswith (own_buf, "vFile:") - && handle_vFile (own_buf, packet_len, new_packet_len)) - return; - - if (startswith (own_buf, "vAttach;")) - { - if ((!extended_protocol || !cs.multi_process) && target_running ()) - { - fprintf (stderr, "Already debugging a process\n"); - write_enn (own_buf); - return; - } - handle_v_attach (own_buf); - return; - } - - if (startswith (own_buf, "vRun;")) - { - if ((!extended_protocol || !cs.multi_process) && target_running ()) - { - fprintf (stderr, "Already debugging a process\n"); - write_enn (own_buf); - return; - } - handle_v_run (own_buf); - return; - } - - if (startswith (own_buf, "vKill;")) - { - if (!target_running ()) - { - fprintf (stderr, "No process to kill\n"); - write_enn (own_buf); - return; - } - handle_v_kill (own_buf); - return; - } - - if (handle_notif_ack (own_buf, packet_len)) - return; - - /* Otherwise we didn't know what packet it was. Say we didn't - understand it. */ - own_buf[0] = 0; - return; -} - -/* Resume thread and wait for another event. In non-stop mode, - don't really wait here, but return immediatelly to the event - loop. */ -static void -myresume (char *own_buf, int step, int sig) -{ - client_state &cs = get_client_state (); - struct thread_resume resume_info[2]; - int n = 0; - int valid_cont_thread; - - valid_cont_thread = (cs.cont_thread != null_ptid - && cs.cont_thread != minus_one_ptid); - - if (step || sig || valid_cont_thread) - { - resume_info[0].thread = current_ptid; - if (step) - resume_info[0].kind = resume_step; - else - resume_info[0].kind = resume_continue; - resume_info[0].sig = sig; - n++; - } - - if (!valid_cont_thread) - { - resume_info[n].thread = minus_one_ptid; - resume_info[n].kind = resume_continue; - resume_info[n].sig = 0; - n++; - } - - resume (resume_info, n); -} - -/* Callback for for_each_thread. Make a new stop reply for each - stopped thread. */ - -static void -queue_stop_reply_callback (thread_info *thread) -{ - /* For now, assume targets that don't have this callback also don't - manage the thread's last_status field. */ - if (the_target->thread_stopped == NULL) - { - struct vstop_notif *new_notif = new struct vstop_notif; - - new_notif->ptid = thread->id; - new_notif->status = thread->last_status; - /* Pass the last stop reply back to GDB, but don't notify - yet. */ - notif_event_enque (¬if_stop, new_notif); - } - else - { - if (thread_stopped (thread)) - { - if (debug_threads) - { - std::string status_string - = target_waitstatus_to_string (&thread->last_status); - - debug_printf ("Reporting thread %s as already stopped with %s\n", - target_pid_to_str (thread->id), - status_string.c_str ()); - } - - gdb_assert (thread->last_status.kind != TARGET_WAITKIND_IGNORE); - - /* Pass the last stop reply back to GDB, but don't notify - yet. */ - queue_stop_reply (thread->id, &thread->last_status); - } - } -} - -/* Set this inferior threads's state as "want-stopped". We won't - resume this thread until the client gives us another action for - it. */ - -static void -gdb_wants_thread_stopped (thread_info *thread) -{ - thread->last_resume_kind = resume_stop; - - if (thread->last_status.kind == TARGET_WAITKIND_IGNORE) - { - /* Most threads are stopped implicitly (all-stop); tag that with - signal 0. */ - thread->last_status.kind = TARGET_WAITKIND_STOPPED; - thread->last_status.value.sig = GDB_SIGNAL_0; - } -} - -/* Set all threads' states as "want-stopped". */ - -static void -gdb_wants_all_threads_stopped (void) -{ - for_each_thread (gdb_wants_thread_stopped); -} - -/* Callback for for_each_thread. If the thread is stopped with an - interesting event, mark it as having a pending event. */ - -static void -set_pending_status_callback (thread_info *thread) -{ - if (thread->last_status.kind != TARGET_WAITKIND_STOPPED - || (thread->last_status.value.sig != GDB_SIGNAL_0 - /* A breakpoint, watchpoint or finished step from a previous - GDB run isn't considered interesting for a new GDB run. - If we left those pending, the new GDB could consider them - random SIGTRAPs. This leaves out real async traps. We'd - have to peek into the (target-specific) siginfo to - distinguish those. */ - && thread->last_status.value.sig != GDB_SIGNAL_TRAP)) - thread->status_pending_p = 1; -} - -/* Status handler for the '?' packet. */ - -static void -handle_status (char *own_buf) -{ - client_state &cs = get_client_state (); - - /* GDB is connected, don't forward events to the target anymore. */ - for_each_process ([] (process_info *process) { - process->gdb_detached = 0; - }); - - /* In non-stop mode, we must send a stop reply for each stopped - thread. In all-stop mode, just send one for the first stopped - thread we find. */ - - if (non_stop) - { - for_each_thread (queue_stop_reply_callback); - - /* The first is sent immediatly. OK is sent if there is no - stopped thread, which is the same handling of the vStopped - packet (by design). */ - notif_write_event (¬if_stop, cs.own_buf); - } - else - { - thread_info *thread = NULL; - - pause_all (0); - stabilize_threads (); - gdb_wants_all_threads_stopped (); - - /* We can only report one status, but we might be coming out of - non-stop -- if more than one thread is stopped with - interesting events, leave events for the threads we're not - reporting now pending. They'll be reported the next time the - threads are resumed. Start by marking all interesting events - as pending. */ - for_each_thread (set_pending_status_callback); - - /* Prefer the last thread that reported an event to GDB (even if - that was a GDB_SIGNAL_TRAP). */ - if (cs.last_status.kind != TARGET_WAITKIND_IGNORE - && cs.last_status.kind != TARGET_WAITKIND_EXITED - && cs.last_status.kind != TARGET_WAITKIND_SIGNALLED) - thread = find_thread_ptid (cs.last_ptid); - - /* If the last event thread is not found for some reason, look - for some other thread that might have an event to report. */ - if (thread == NULL) - thread = find_thread ([] (thread_info *thr_arg) - { - return thr_arg->status_pending_p; - }); - - /* If we're still out of luck, simply pick the first thread in - the thread list. */ - if (thread == NULL) - thread = get_first_thread (); - - if (thread != NULL) - { - struct thread_info *tp = (struct thread_info *) thread; - - /* We're reporting this event, so it's no longer - pending. */ - tp->status_pending_p = 0; - - /* GDB assumes the current thread is the thread we're - reporting the status for. */ - cs.general_thread = thread->id; - set_desired_thread (); - - gdb_assert (tp->last_status.kind != TARGET_WAITKIND_IGNORE); - prepare_resume_reply (own_buf, tp->id, &tp->last_status); - } - else - strcpy (own_buf, "W00"); - } -} - -static void -gdbserver_version (void) -{ - printf ("GNU gdbserver %s%s\n" - "Copyright (C) 2020 Free Software Foundation, Inc.\n" - "gdbserver is free software, covered by the " - "GNU General Public License.\n" - "This gdbserver was configured as \"%s\"\n", - PKGVERSION, version, host_name); -} - -static void -gdbserver_usage (FILE *stream) -{ - fprintf (stream, "Usage:\tgdbserver [OPTIONS] COMM PROG [ARGS ...]\n" - "\tgdbserver [OPTIONS] --attach COMM PID\n" - "\tgdbserver [OPTIONS] --multi COMM\n" - "\n" - "COMM may either be a tty device (for serial debugging),\n" - "HOST:PORT to listen for a TCP connection, or '-' or 'stdio' to use \n" - "stdin/stdout of gdbserver.\n" - "PROG is the executable program. ARGS are arguments passed to inferior.\n" - "PID is the process ID to attach to, when --attach is specified.\n" - "\n" - "Operating modes:\n" - "\n" - " --attach Attach to running process PID.\n" - " --multi Start server without a specific program, and\n" - " only quit when explicitly commanded.\n" - " --once Exit after the first connection has closed.\n" - " --help Print this message and then exit.\n" - " --version Display version information and exit.\n" - "\n" - "Other options:\n" - "\n" - " --wrapper WRAPPER -- Run WRAPPER to start new programs.\n" - " --disable-randomization\n" - " Run PROG with address space randomization disabled.\n" - " --no-disable-randomization\n" - " Don't disable address space randomization when\n" - " starting PROG.\n" - " --startup-with-shell\n" - " Start PROG using a shell. I.e., execs a shell that\n" - " then execs PROG. (default)\n" - " --no-startup-with-shell\n" - " Exec PROG directly instead of using a shell.\n" - " Disables argument globbing and variable substitution\n" - " on UNIX-like systems.\n" - "\n" - "Debug options:\n" - "\n" - " --debug Enable general debugging output.\n" - " --debug-format=OPT1[,OPT2,...]\n" - " Specify extra content in debugging output.\n" - " Options:\n" - " all\n" - " none\n" - " timestamp\n" - " --remote-debug Enable remote protocol debugging output.\n" - " --disable-packet=OPT1[,OPT2,...]\n" - " Disable support for RSP packets or features.\n" - " Options:\n" - " vCont, Tthread, qC, qfThreadInfo and \n" - " threads (disable all threading packets).\n" - "\n" - "For more information, consult the GDB manual (available as on-line \n" - "info or a printed manual).\n"); - if (REPORT_BUGS_TO[0] && stream == stdout) - fprintf (stream, "Report bugs to \"%s\".\n", REPORT_BUGS_TO); -} - -static void -gdbserver_show_disableable (FILE *stream) -{ - fprintf (stream, "Disableable packets:\n" - " vCont \tAll vCont packets\n" - " qC \tQuerying the current thread\n" - " qfThreadInfo\tThread listing\n" - " Tthread \tPassing the thread specifier in the " - "T stop reply packet\n" - " threads \tAll of the above\n"); -} - -static void -kill_inferior_callback (process_info *process) -{ - kill_inferior (process); - discard_queued_stop_replies (ptid_t (process->pid)); -} - -/* Call this when exiting gdbserver with possible inferiors that need - to be killed or detached from. */ - -static void -detach_or_kill_for_exit (void) -{ - /* First print a list of the inferiors we will be killing/detaching. - This is to assist the user, for example, in case the inferior unexpectedly - dies after we exit: did we screw up or did the inferior exit on its own? - Having this info will save some head-scratching. */ - - if (have_started_inferiors_p ()) - { - fprintf (stderr, "Killing process(es):"); - - for_each_process ([] (process_info *process) { - if (!process->attached) - fprintf (stderr, " %d", process->pid); - }); - - fprintf (stderr, "\n"); - } - if (have_attached_inferiors_p ()) - { - fprintf (stderr, "Detaching process(es):"); - - for_each_process ([] (process_info *process) { - if (process->attached) - fprintf (stderr, " %d", process->pid); - }); - - fprintf (stderr, "\n"); - } - - /* Now we can kill or detach the inferiors. */ - for_each_process ([] (process_info *process) { - int pid = process->pid; - - if (process->attached) - detach_inferior (process); - else - kill_inferior (process); - - discard_queued_stop_replies (ptid_t (pid)); - }); -} - -/* Value that will be passed to exit(3) when gdbserver exits. */ -static int exit_code; - -/* Wrapper for detach_or_kill_for_exit that catches and prints - errors. */ - -static void -detach_or_kill_for_exit_cleanup () -{ - try - { - detach_or_kill_for_exit (); - } - catch (const gdb_exception &exception) - { - fflush (stdout); - fprintf (stderr, "Detach or kill failed: %s\n", - exception.what ()); - exit_code = 1; - } -} - -/* Main function. This is called by the real "main" function, - wrapped in a TRY_CATCH that handles any uncaught exceptions. */ - -static void ATTRIBUTE_NORETURN -captured_main (int argc, char *argv[]) -{ - int bad_attach; - int pid; - char *arg_end; - const char *port = NULL; - char **next_arg = &argv[1]; - volatile int multi_mode = 0; - volatile int attach = 0; - int was_running; - bool selftest = false; -#if GDB_SELF_TEST - const char *selftest_filter = NULL; -#endif - - current_directory = getcwd (NULL, 0); - client_state &cs = get_client_state (); - - if (current_directory == NULL) - { - error (_("Could not find current working directory: %s"), - safe_strerror (errno)); - } - - while (*next_arg != NULL && **next_arg == '-') - { - if (strcmp (*next_arg, "--version") == 0) - { - gdbserver_version (); - exit (0); - } - else if (strcmp (*next_arg, "--help") == 0) - { - gdbserver_usage (stdout); - exit (0); - } - else if (strcmp (*next_arg, "--attach") == 0) - attach = 1; - else if (strcmp (*next_arg, "--multi") == 0) - multi_mode = 1; - else if (strcmp (*next_arg, "--wrapper") == 0) - { - char **tmp; - - next_arg++; - - tmp = next_arg; - while (*next_arg != NULL && strcmp (*next_arg, "--") != 0) - { - wrapper_argv += *next_arg; - wrapper_argv += ' '; - next_arg++; - } - - if (!wrapper_argv.empty ()) - { - /* Erase the last whitespace. */ - wrapper_argv.erase (wrapper_argv.end () - 1); - } - - if (next_arg == tmp || *next_arg == NULL) - { - gdbserver_usage (stderr); - exit (1); - } - - /* Consume the "--". */ - *next_arg = NULL; - } - else if (strcmp (*next_arg, "--debug") == 0) - debug_threads = 1; - else if (startswith (*next_arg, "--debug-format=")) - { - std::string error_msg - = parse_debug_format_options ((*next_arg) - + sizeof ("--debug-format=") - 1, 0); - - if (!error_msg.empty ()) - { - fprintf (stderr, "%s", error_msg.c_str ()); - exit (1); - } - } - else if (strcmp (*next_arg, "--remote-debug") == 0) - remote_debug = 1; - else if (startswith (*next_arg, "--debug-file=")) - debug_set_output ((*next_arg) + sizeof ("--debug-file=") -1); - else if (strcmp (*next_arg, "--disable-packet") == 0) - { - gdbserver_show_disableable (stdout); - exit (0); - } - else if (startswith (*next_arg, "--disable-packet=")) - { - char *packets = *next_arg += sizeof ("--disable-packet=") - 1; - char *saveptr; - for (char *tok = strtok_r (packets, ",", &saveptr); - tok != NULL; - tok = strtok_r (NULL, ",", &saveptr)) - { - if (strcmp ("vCont", tok) == 0) - disable_packet_vCont = true; - else if (strcmp ("Tthread", tok) == 0) - disable_packet_Tthread = true; - else if (strcmp ("qC", tok) == 0) - disable_packet_qC = true; - else if (strcmp ("qfThreadInfo", tok) == 0) - disable_packet_qfThreadInfo = true; - else if (strcmp ("threads", tok) == 0) - { - disable_packet_vCont = true; - disable_packet_Tthread = true; - disable_packet_qC = true; - disable_packet_qfThreadInfo = true; - } - else - { - fprintf (stderr, "Don't know how to disable \"%s\".\n\n", - tok); - gdbserver_show_disableable (stderr); - exit (1); - } - } - } - else if (strcmp (*next_arg, "-") == 0) - { - /* "-" specifies a stdio connection and is a form of port - specification. */ - port = STDIO_CONNECTION_NAME; - next_arg++; - break; - } - else if (strcmp (*next_arg, "--disable-randomization") == 0) - cs.disable_randomization = 1; - else if (strcmp (*next_arg, "--no-disable-randomization") == 0) - cs.disable_randomization = 0; - else if (strcmp (*next_arg, "--startup-with-shell") == 0) - startup_with_shell = true; - else if (strcmp (*next_arg, "--no-startup-with-shell") == 0) - startup_with_shell = false; - else if (strcmp (*next_arg, "--once") == 0) - run_once = true; - else if (strcmp (*next_arg, "--selftest") == 0) - selftest = true; - else if (startswith (*next_arg, "--selftest=")) - { - selftest = true; -#if GDB_SELF_TEST - selftest_filter = *next_arg + strlen ("--selftest="); -#endif - } - else - { - fprintf (stderr, "Unknown argument: %s\n", *next_arg); - exit (1); - } - - next_arg++; - continue; - } - - if (port == NULL) - { - port = *next_arg; - next_arg++; - } - if ((port == NULL || (!attach && !multi_mode && *next_arg == NULL)) - && !selftest) - { - gdbserver_usage (stderr); - exit (1); - } - - /* Remember stdio descriptors. LISTEN_DESC must not be listed, it will be - opened by remote_prepare. */ - notice_open_fds (); - - save_original_signals_state (false); - - /* We need to know whether the remote connection is stdio before - starting the inferior. Inferiors created in this scenario have - stdin,stdout redirected. So do this here before we call - start_inferior. */ - if (port != NULL) - remote_prepare (port); - - bad_attach = 0; - pid = 0; - - /* --attach used to come after PORT, so allow it there for - compatibility. */ - if (*next_arg != NULL && strcmp (*next_arg, "--attach") == 0) - { - attach = 1; - next_arg++; - } - - if (attach - && (*next_arg == NULL - || (*next_arg)[0] == '\0' - || (pid = strtoul (*next_arg, &arg_end, 0)) == 0 - || *arg_end != '\0' - || next_arg[1] != NULL)) - bad_attach = 1; - - if (bad_attach) - { - gdbserver_usage (stderr); - exit (1); - } - - /* Gather information about the environment. */ - our_environ = gdb_environ::from_host_environ (); - - initialize_async_io (); - initialize_low (); - have_job_control (); - initialize_event_loop (); - if (target_supports_tracepoints ()) - initialize_tracepoint (); - - mem_buf = (unsigned char *) xmalloc (PBUFSIZ); - - if (selftest) - { -#if GDB_SELF_TEST - selftests::run_tests (selftest_filter); -#else - printf (_("Selftests have been disabled for this build.\n")); -#endif - throw_quit ("Quit"); - } - - if (pid == 0 && *next_arg != NULL) - { - int i, n; - - n = argc - (next_arg - argv); - program_path.set (make_unique_xstrdup (next_arg[0])); - for (i = 1; i < n; i++) - program_args.push_back (xstrdup (next_arg[i])); - program_args.push_back (NULL); - - /* Wait till we are at first instruction in program. */ - create_inferior (program_path.get (), program_args); - - /* We are now (hopefully) stopped at the first instruction of - the target process. This assumes that the target process was - successfully created. */ - } - else if (pid != 0) - { - if (attach_inferior (pid) == -1) - error ("Attaching not supported on this target"); - - /* Otherwise succeeded. */ - } - else - { - cs.last_status.kind = TARGET_WAITKIND_EXITED; - cs.last_status.value.integer = 0; - cs.last_ptid = minus_one_ptid; - } - - SCOPE_EXIT { detach_or_kill_for_exit_cleanup (); }; - - /* Don't report shared library events on the initial connection, - even if some libraries are preloaded. Avoids the "stopped by - shared library event" notice on gdb side. */ - dlls_changed = 0; - - if (cs.last_status.kind == TARGET_WAITKIND_EXITED - || cs.last_status.kind == TARGET_WAITKIND_SIGNALLED) - was_running = 0; - else - was_running = 1; - - if (!was_running && !multi_mode) - error ("No program to debug"); - - while (1) - { - cs.noack_mode = 0; - cs.multi_process = 0; - cs.report_fork_events = 0; - cs.report_vfork_events = 0; - cs.report_exec_events = 0; - /* Be sure we're out of tfind mode. */ - cs.current_traceframe = -1; - cs.cont_thread = null_ptid; - cs.swbreak_feature = 0; - cs.hwbreak_feature = 0; - cs.vCont_supported = 0; - - remote_open (port); - - try - { - /* Wait for events. This will return when all event sources - are removed from the event loop. */ - start_event_loop (); - - /* If an exit was requested (using the "monitor exit" - command), terminate now. */ - if (exit_requested) - throw_quit ("Quit"); - - /* The only other way to get here is for getpkt to fail: - - - If --once was specified, we're done. - - - If not in extended-remote mode, and we're no longer - debugging anything, simply exit: GDB has disconnected - after processing the last process exit. - - - Otherwise, close the connection and reopen it at the - top of the loop. */ - if (run_once || (!extended_protocol && !target_running ())) - throw_quit ("Quit"); - - fprintf (stderr, - "Remote side has terminated connection. " - "GDBserver will reopen the connection.\n"); - - /* Get rid of any pending statuses. An eventual reconnection - (by the same GDB instance or another) will refresh all its - state from scratch. */ - discard_queued_stop_replies (minus_one_ptid); - for_each_thread ([] (thread_info *thread) - { - thread->status_pending_p = 0; - }); - - if (tracing) - { - if (disconnected_tracing) - { - /* Try to enable non-stop/async mode, so we we can - both wait for an async socket accept, and handle - async target events simultaneously. There's also - no point either in having the target always stop - all threads, when we're going to pass signals - down without informing GDB. */ - if (!non_stop) - { - if (start_non_stop (1)) - non_stop = 1; - - /* Detaching implicitly resumes all threads; - simply disconnecting does not. */ - } - } - else - { - fprintf (stderr, - "Disconnected tracing disabled; " - "stopping trace run.\n"); - stop_tracing (); - } - } - } - catch (const gdb_exception_error &exception) - { - fflush (stdout); - fprintf (stderr, "gdbserver: %s\n", exception.what ()); - - if (response_needed) - { - write_enn (cs.own_buf); - putpkt (cs.own_buf); - } - - if (run_once) - throw_quit ("Quit"); - } - } -} - -/* Main function. */ - -int -main (int argc, char *argv[]) -{ - - try - { - captured_main (argc, argv); - } - catch (const gdb_exception &exception) - { - if (exception.reason == RETURN_ERROR) - { - fflush (stdout); - fprintf (stderr, "%s\n", exception.what ()); - fprintf (stderr, "Exiting\n"); - exit_code = 1; - } - - exit (exit_code); - } - - gdb_assert_not_reached ("captured_main should never return"); -} - -/* Process options coming from Z packets for a breakpoint. PACKET is - the packet buffer. *PACKET is updated to point to the first char - after the last processed option. */ - -static void -process_point_options (struct gdb_breakpoint *bp, const char **packet) -{ - const char *dataptr = *packet; - int persist; - - /* Check if data has the correct format. */ - if (*dataptr != ';') - return; - - dataptr++; - - while (*dataptr) - { - if (*dataptr == ';') - ++dataptr; - - if (*dataptr == 'X') - { - /* Conditional expression. */ - if (debug_threads) - debug_printf ("Found breakpoint condition.\n"); - if (!add_breakpoint_condition (bp, &dataptr)) - dataptr = strchrnul (dataptr, ';'); - } - else if (startswith (dataptr, "cmds:")) - { - dataptr += strlen ("cmds:"); - if (debug_threads) - debug_printf ("Found breakpoint commands %s.\n", dataptr); - persist = (*dataptr == '1'); - dataptr += 2; - if (add_breakpoint_commands (bp, &dataptr, persist)) - dataptr = strchrnul (dataptr, ';'); - } - else - { - fprintf (stderr, "Unknown token %c, ignoring.\n", - *dataptr); - /* Skip tokens until we find one that we recognize. */ - dataptr = strchrnul (dataptr, ';'); - } - } - *packet = dataptr; -} - -/* Event loop callback that handles a serial event. The first byte in - the serial buffer gets us here. We expect characters to arrive at - a brisk pace, so we read the rest of the packet with a blocking - getpkt call. */ - -static int -process_serial_event (void) -{ - client_state &cs = get_client_state (); - int signal; - unsigned int len; - CORE_ADDR mem_addr; - unsigned char sig; - int packet_len; - int new_packet_len = -1; - - disable_async_io (); - - response_needed = false; - packet_len = getpkt (cs.own_buf); - if (packet_len <= 0) - { - remote_close (); - /* Force an event loop break. */ - return -1; - } - response_needed = true; - - char ch = cs.own_buf[0]; - switch (ch) - { - case 'q': - handle_query (cs.own_buf, packet_len, &new_packet_len); - break; - case 'Q': - handle_general_set (cs.own_buf); - break; - case 'D': - handle_detach (cs.own_buf); - break; - case '!': - extended_protocol = true; - write_ok (cs.own_buf); - break; - case '?': - handle_status (cs.own_buf); - break; - case 'H': - if (cs.own_buf[1] == 'c' || cs.own_buf[1] == 'g' || cs.own_buf[1] == 's') - { - require_running_or_break (cs.own_buf); - - ptid_t thread_id = read_ptid (&cs.own_buf[2], NULL); - - if (thread_id == null_ptid || thread_id == minus_one_ptid) - thread_id = null_ptid; - else if (thread_id.is_pid ()) - { - /* The ptid represents a pid. */ - thread_info *thread = find_any_thread_of_pid (thread_id.pid ()); - - if (thread == NULL) - { - write_enn (cs.own_buf); - break; - } - - thread_id = thread->id; - } - else - { - /* The ptid represents a lwp/tid. */ - if (find_thread_ptid (thread_id) == NULL) - { - write_enn (cs.own_buf); - break; - } - } - - if (cs.own_buf[1] == 'g') - { - if (thread_id == null_ptid) - { - /* GDB is telling us to choose any thread. Check if - the currently selected thread is still valid. If - it is not, select the first available. */ - thread_info *thread = find_thread_ptid (cs.general_thread); - if (thread == NULL) - thread = get_first_thread (); - thread_id = thread->id; - } - - cs.general_thread = thread_id; - set_desired_thread (); - gdb_assert (current_thread != NULL); - } - else if (cs.own_buf[1] == 'c') - cs.cont_thread = thread_id; - - write_ok (cs.own_buf); - } - else - { - /* Silently ignore it so that gdb can extend the protocol - without compatibility headaches. */ - cs.own_buf[0] = '\0'; - } - break; - case 'g': - require_running_or_break (cs.own_buf); - if (cs.current_traceframe >= 0) - { - struct regcache *regcache - = new_register_cache (current_target_desc ()); - - if (fetch_traceframe_registers (cs.current_traceframe, - regcache, -1) == 0) - registers_to_string (regcache, cs.own_buf); - else - write_enn (cs.own_buf); - free_register_cache (regcache); - } - else - { - struct regcache *regcache; - - if (!set_desired_thread ()) - write_enn (cs.own_buf); - else - { - regcache = get_thread_regcache (current_thread, 1); - registers_to_string (regcache, cs.own_buf); - } - } - break; - case 'G': - require_running_or_break (cs.own_buf); - if (cs.current_traceframe >= 0) - write_enn (cs.own_buf); - else - { - struct regcache *regcache; - - if (!set_desired_thread ()) - write_enn (cs.own_buf); - else - { - regcache = get_thread_regcache (current_thread, 1); - registers_from_string (regcache, &cs.own_buf[1]); - write_ok (cs.own_buf); - } - } - break; - case 'm': - { - require_running_or_break (cs.own_buf); - decode_m_packet (&cs.own_buf[1], &mem_addr, &len); - int res = gdb_read_memory (mem_addr, mem_buf, len); - if (res < 0) - write_enn (cs.own_buf); - else - bin2hex (mem_buf, cs.own_buf, res); - } - break; - case 'M': - require_running_or_break (cs.own_buf); - decode_M_packet (&cs.own_buf[1], &mem_addr, &len, &mem_buf); - if (gdb_write_memory (mem_addr, mem_buf, len) == 0) - write_ok (cs.own_buf); - else - write_enn (cs.own_buf); - break; - case 'X': - require_running_or_break (cs.own_buf); - if (decode_X_packet (&cs.own_buf[1], packet_len - 1, - &mem_addr, &len, &mem_buf) < 0 - || gdb_write_memory (mem_addr, mem_buf, len) != 0) - write_enn (cs.own_buf); - else - write_ok (cs.own_buf); - break; - case 'C': - require_running_or_break (cs.own_buf); - hex2bin (cs.own_buf + 1, &sig, 1); - if (gdb_signal_to_host_p ((enum gdb_signal) sig)) - signal = gdb_signal_to_host ((enum gdb_signal) sig); - else - signal = 0; - myresume (cs.own_buf, 0, signal); - break; - case 'S': - require_running_or_break (cs.own_buf); - hex2bin (cs.own_buf + 1, &sig, 1); - if (gdb_signal_to_host_p ((enum gdb_signal) sig)) - signal = gdb_signal_to_host ((enum gdb_signal) sig); - else - signal = 0; - myresume (cs.own_buf, 1, signal); - break; - case 'c': - require_running_or_break (cs.own_buf); - signal = 0; - myresume (cs.own_buf, 0, signal); - break; - case 's': - require_running_or_break (cs.own_buf); - signal = 0; - myresume (cs.own_buf, 1, signal); - break; - case 'Z': /* insert_ ... */ - /* Fallthrough. */ - case 'z': /* remove_ ... */ - { - char *dataptr; - ULONGEST addr; - int kind; - char type = cs.own_buf[1]; - int res; - const int insert = ch == 'Z'; - const char *p = &cs.own_buf[3]; - - p = unpack_varlen_hex (p, &addr); - kind = strtol (p + 1, &dataptr, 16); - - if (insert) - { - struct gdb_breakpoint *bp; - - bp = set_gdb_breakpoint (type, addr, kind, &res); - if (bp != NULL) - { - res = 0; - - /* GDB may have sent us a list of *point parameters to - be evaluated on the target's side. Read such list - here. If we already have a list of parameters, GDB - is telling us to drop that list and use this one - instead. */ - clear_breakpoint_conditions_and_commands (bp); - const char *options = dataptr; - process_point_options (bp, &options); - } - } - else - res = delete_gdb_breakpoint (type, addr, kind); - - if (res == 0) - write_ok (cs.own_buf); - else if (res == 1) - /* Unsupported. */ - cs.own_buf[0] = '\0'; - else - write_enn (cs.own_buf); - break; - } - case 'k': - response_needed = false; - if (!target_running ()) - /* The packet we received doesn't make sense - but we can't - reply to it, either. */ - return 0; - - fprintf (stderr, "Killing all inferiors\n"); - - for_each_process (kill_inferior_callback); - - /* When using the extended protocol, we wait with no program - running. The traditional protocol will exit instead. */ - if (extended_protocol) - { - cs.last_status.kind = TARGET_WAITKIND_EXITED; - cs.last_status.value.sig = GDB_SIGNAL_KILL; - return 0; - } - else - exit (0); - - case 'T': - { - require_running_or_break (cs.own_buf); - - ptid_t thread_id = read_ptid (&cs.own_buf[1], NULL); - if (find_thread_ptid (thread_id) == NULL) - { - write_enn (cs.own_buf); - break; - } - - if (mythread_alive (thread_id)) - write_ok (cs.own_buf); - else - write_enn (cs.own_buf); - } - break; - case 'R': - response_needed = false; - - /* Restarting the inferior is only supported in the extended - protocol. */ - if (extended_protocol) - { - if (target_running ()) - for_each_process (kill_inferior_callback); - - fprintf (stderr, "GDBserver restarting\n"); - - /* Wait till we are at 1st instruction in prog. */ - if (program_path.get () != NULL) - { - create_inferior (program_path.get (), program_args); - - if (cs.last_status.kind == TARGET_WAITKIND_STOPPED) - { - /* Stopped at the first instruction of the target - process. */ - cs.general_thread = cs.last_ptid; - } - else - { - /* Something went wrong. */ - cs.general_thread = null_ptid; - } - } - else - { - cs.last_status.kind = TARGET_WAITKIND_EXITED; - cs.last_status.value.sig = GDB_SIGNAL_KILL; - } - return 0; - } - else - { - /* It is a request we don't understand. Respond with an - empty packet so that gdb knows that we don't support this - request. */ - cs.own_buf[0] = '\0'; - break; - } - case 'v': - /* Extended (long) request. */ - handle_v_requests (cs.own_buf, packet_len, &new_packet_len); - break; - - default: - /* It is a request we don't understand. Respond with an empty - packet so that gdb knows that we don't support this - request. */ - cs.own_buf[0] = '\0'; - break; - } - - if (new_packet_len != -1) - putpkt_binary (cs.own_buf, new_packet_len); - else - putpkt (cs.own_buf); - - response_needed = false; - - if (exit_requested) - return -1; - - return 0; -} - -/* Event-loop callback for serial events. */ - -int -handle_serial_event (int err, gdb_client_data client_data) -{ - if (debug_threads) - debug_printf ("handling possible serial event\n"); - - /* Really handle it. */ - if (process_serial_event () < 0) - return -1; - - /* Be sure to not change the selected thread behind GDB's back. - Important in the non-stop mode asynchronous protocol. */ - set_desired_thread (); - - return 0; -} - -/* Push a stop notification on the notification queue. */ - -static void -push_stop_notification (ptid_t ptid, struct target_waitstatus *status) -{ - struct vstop_notif *vstop_notif = new struct vstop_notif; - - vstop_notif->status = *status; - vstop_notif->ptid = ptid; - /* Push Stop notification. */ - notif_push (¬if_stop, vstop_notif); -} - -/* Event-loop callback for target events. */ - -int -handle_target_event (int err, gdb_client_data client_data) -{ - client_state &cs = get_client_state (); - if (debug_threads) - debug_printf ("handling possible target event\n"); - - cs.last_ptid = mywait (minus_one_ptid, &cs.last_status, - TARGET_WNOHANG, 1); - - if (cs.last_status.kind == TARGET_WAITKIND_NO_RESUMED) - { - if (gdb_connected () && report_no_resumed) - push_stop_notification (null_ptid, &cs.last_status); - } - else if (cs.last_status.kind != TARGET_WAITKIND_IGNORE) - { - int pid = cs.last_ptid.pid (); - struct process_info *process = find_process_pid (pid); - int forward_event = !gdb_connected () || process->gdb_detached; - - if (cs.last_status.kind == TARGET_WAITKIND_EXITED - || cs.last_status.kind == TARGET_WAITKIND_SIGNALLED) - { - mark_breakpoints_out (process); - target_mourn_inferior (cs.last_ptid); - } - else if (cs.last_status.kind == TARGET_WAITKIND_THREAD_EXITED) - ; - else - { - /* We're reporting this thread as stopped. Update its - "want-stopped" state to what the client wants, until it - gets a new resume action. */ - current_thread->last_resume_kind = resume_stop; - current_thread->last_status = cs.last_status; - } - - if (forward_event) - { - if (!target_running ()) - { - /* The last process exited. We're done. */ - exit (0); - } - - if (cs.last_status.kind == TARGET_WAITKIND_EXITED - || cs.last_status.kind == TARGET_WAITKIND_SIGNALLED - || cs.last_status.kind == TARGET_WAITKIND_THREAD_EXITED) - ; - else - { - /* A thread stopped with a signal, but gdb isn't - connected to handle it. Pass it down to the - inferior, as if it wasn't being traced. */ - enum gdb_signal signal; - - if (debug_threads) - debug_printf ("GDB not connected; forwarding event %d for" - " [%s]\n", - (int) cs.last_status.kind, - target_pid_to_str (cs.last_ptid)); - - if (cs.last_status.kind == TARGET_WAITKIND_STOPPED) - signal = cs.last_status.value.sig; - else - signal = GDB_SIGNAL_0; - target_continue (cs.last_ptid, signal); - } - } - else - push_stop_notification (cs.last_ptid, &cs.last_status); - } - - /* Be sure to not change the selected thread behind GDB's back. - Important in the non-stop mode asynchronous protocol. */ - set_desired_thread (); - - return 0; -} - -#if GDB_SELF_TEST -namespace selftests -{ - -void -reset () -{} - -} // namespace selftests -#endif /* GDB_SELF_TEST */ diff --git a/gdbserver/server.cc b/gdbserver/server.cc new file mode 100644 index 00000000000..3fc026f78eb --- /dev/null +++ b/gdbserver/server.cc @@ -0,0 +1,4485 @@ +/* Main code for remote server for GDB. + Copyright (C) 1989-2020 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 . */ + +#include "server.h" +#include "gdbthread.h" +#include "gdbsupport/agent.h" +#include "notif.h" +#include "tdesc.h" +#include "gdbsupport/rsp-low.h" +#include "gdbsupport/signals-state-save-restore.h" +#include +#include +#if HAVE_SIGNAL_H +#include +#endif +#include "gdbsupport/gdb_vecs.h" +#include "gdbsupport/gdb_wait.h" +#include "gdbsupport/btrace-common.h" +#include "gdbsupport/filestuff.h" +#include "tracepoint.h" +#include "dll.h" +#include "hostio.h" +#include +#include "gdbsupport/common-inferior.h" +#include "gdbsupport/job-control.h" +#include "gdbsupport/environ.h" +#include "filenames.h" +#include "gdbsupport/pathstuff.h" +#ifdef USE_XML +#include "xml-builtin.h" +#endif + +#include "gdbsupport/selftest.h" +#include "gdbsupport/scope-exit.h" + +#define require_running_or_return(BUF) \ + if (!target_running ()) \ + { \ + write_enn (BUF); \ + return; \ + } + +#define require_running_or_break(BUF) \ + if (!target_running ()) \ + { \ + write_enn (BUF); \ + break; \ + } + +/* String containing the current directory (what getwd would return). */ + +char *current_directory; + +/* The environment to pass to the inferior when creating it. */ + +static gdb_environ our_environ; + +bool server_waiting; + +static bool extended_protocol; +static bool response_needed; +static bool exit_requested; + +/* --once: Exit after the first connection has closed. */ +bool run_once; + +/* Whether to report TARGET_WAITKIND_NO_RESUMED events. */ +static bool report_no_resumed; + +bool non_stop; + +static struct { + /* Set the PROGRAM_PATH. Here we adjust the path of the provided + binary if needed. */ + void set (gdb::unique_xmalloc_ptr &&path) + { + m_path = std::move (path); + + /* Make sure we're using the absolute path of the inferior when + creating it. */ + if (!contains_dir_separator (m_path.get ())) + { + int reg_file_errno; + + /* Check if the file is in our CWD. If it is, then we prefix + its name with CURRENT_DIRECTORY. Otherwise, we leave the + name as-is because we'll try searching for it in $PATH. */ + if (is_regular_file (m_path.get (), ®_file_errno)) + m_path = gdb_abspath (m_path.get ()); + } + } + + /* Return the PROGRAM_PATH. */ + char *get () + { return m_path.get (); } + +private: + /* The program name, adjusted if needed. */ + gdb::unique_xmalloc_ptr m_path; +} program_path; +static std::vector program_args; +static std::string wrapper_argv; + +/* The PID of the originally created or attached inferior. Used to + send signals to the process when GDB sends us an asynchronous interrupt + (user hitting Control-C in the client), and to wait for the child to exit + when no longer debugging it. */ + +unsigned long signal_pid; + +/* Set if you want to disable optional thread related packets support + in gdbserver, for the sake of testing GDB against stubs that don't + support them. */ +bool disable_packet_vCont; +bool disable_packet_Tthread; +bool disable_packet_qC; +bool disable_packet_qfThreadInfo; + +static unsigned char *mem_buf; + +/* A sub-class of 'struct notif_event' for stop, holding information + relative to a single stop reply. We keep a queue of these to + push to GDB in non-stop mode. */ + +struct vstop_notif : public notif_event +{ + /* Thread or process that got the event. */ + ptid_t ptid; + + /* Event info. */ + struct target_waitstatus status; +}; + +/* The current btrace configuration. This is gdbserver's mirror of GDB's + btrace configuration. */ +static struct btrace_config current_btrace_conf; + +/* The client remote protocol state. */ + +static client_state g_client_state; + +client_state & +get_client_state () +{ + client_state &cs = g_client_state; + return cs; +} + + +/* Put a stop reply to the stop reply queue. */ + +static void +queue_stop_reply (ptid_t ptid, struct target_waitstatus *status) +{ + struct vstop_notif *new_notif = new struct vstop_notif; + + new_notif->ptid = ptid; + new_notif->status = *status; + + notif_event_enque (¬if_stop, new_notif); +} + +static bool +remove_all_on_match_ptid (struct notif_event *event, ptid_t filter_ptid) +{ + struct vstop_notif *vstop_event = (struct vstop_notif *) event; + + return vstop_event->ptid.matches (filter_ptid); +} + +/* See server.h. */ + +void +discard_queued_stop_replies (ptid_t ptid) +{ + std::list::iterator iter, next, end; + end = notif_stop.queue.end (); + for (iter = notif_stop.queue.begin (); iter != end; iter = next) + { + next = iter; + ++next; + + if (remove_all_on_match_ptid (*iter, ptid)) + { + delete *iter; + notif_stop.queue.erase (iter); + } + } +} + +static void +vstop_notif_reply (struct notif_event *event, char *own_buf) +{ + struct vstop_notif *vstop = (struct vstop_notif *) event; + + prepare_resume_reply (own_buf, vstop->ptid, &vstop->status); +} + +/* Helper for in_queued_stop_replies. */ + +static bool +in_queued_stop_replies_ptid (struct notif_event *event, ptid_t filter_ptid) +{ + struct vstop_notif *vstop_event = (struct vstop_notif *) event; + + if (vstop_event->ptid.matches (filter_ptid)) + return true; + + /* Don't resume fork children that GDB does not know about yet. */ + if ((vstop_event->status.kind == TARGET_WAITKIND_FORKED + || vstop_event->status.kind == TARGET_WAITKIND_VFORKED) + && vstop_event->status.value.related_pid.matches (filter_ptid)) + return true; + + return false; +} + +/* See server.h. */ + +int +in_queued_stop_replies (ptid_t ptid) +{ + for (notif_event *event : notif_stop.queue) + { + if (in_queued_stop_replies_ptid (event, ptid)) + return true; + } + + return false; +} + +struct notif_server notif_stop = +{ + "vStopped", "Stop", {}, vstop_notif_reply, +}; + +static int +target_running (void) +{ + return get_first_thread () != NULL; +} + +/* See gdbsupport/common-inferior.h. */ + +const char * +get_exec_wrapper () +{ + return !wrapper_argv.empty () ? wrapper_argv.c_str () : NULL; +} + +/* See gdbsupport/common-inferior.h. */ + +const char * +get_exec_file (int err) +{ + if (err && program_path.get () == NULL) + error (_("No executable file specified.")); + + return program_path.get (); +} + +/* See server.h. */ + +gdb_environ * +get_environ () +{ + return &our_environ; +} + +static int +attach_inferior (int pid) +{ + client_state &cs = get_client_state (); + /* myattach should return -1 if attaching is unsupported, + 0 if it succeeded, and call error() otherwise. */ + + if (find_process_pid (pid) != nullptr) + error ("Already attached to process %d\n", pid); + + if (myattach (pid) != 0) + return -1; + + fprintf (stderr, "Attached; pid = %d\n", pid); + fflush (stderr); + + /* FIXME - It may be that we should get the SIGNAL_PID from the + attach function, so that it can be the main thread instead of + whichever we were told to attach to. */ + signal_pid = pid; + + if (!non_stop) + { + cs.last_ptid = mywait (ptid_t (pid), &cs.last_status, 0, 0); + + /* GDB knows to ignore the first SIGSTOP after attaching to a running + process using the "attach" command, but this is different; it's + just using "target remote". Pretend it's just starting up. */ + if (cs.last_status.kind == TARGET_WAITKIND_STOPPED + && cs.last_status.value.sig == GDB_SIGNAL_STOP) + cs.last_status.value.sig = GDB_SIGNAL_TRAP; + + current_thread->last_resume_kind = resume_stop; + current_thread->last_status = cs.last_status; + } + + return 0; +} + +/* Decode a qXfer read request. Return 0 if everything looks OK, + or -1 otherwise. */ + +static int +decode_xfer_read (char *buf, CORE_ADDR *ofs, unsigned int *len) +{ + /* After the read marker and annex, qXfer looks like a + traditional 'm' packet. */ + decode_m_packet (buf, ofs, len); + + return 0; +} + +static int +decode_xfer (char *buf, char **object, char **rw, char **annex, char **offset) +{ + /* Extract and NUL-terminate the object. */ + *object = buf; + while (*buf && *buf != ':') + buf++; + if (*buf == '\0') + return -1; + *buf++ = 0; + + /* Extract and NUL-terminate the read/write action. */ + *rw = buf; + while (*buf && *buf != ':') + buf++; + if (*buf == '\0') + return -1; + *buf++ = 0; + + /* Extract and NUL-terminate the annex. */ + *annex = buf; + while (*buf && *buf != ':') + buf++; + if (*buf == '\0') + return -1; + *buf++ = 0; + + *offset = buf; + return 0; +} + +/* Write the response to a successful qXfer read. Returns the + length of the (binary) data stored in BUF, corresponding + to as much of DATA/LEN as we could fit. IS_MORE controls + the first character of the response. */ +static int +write_qxfer_response (char *buf, const gdb_byte *data, int len, int is_more) +{ + int out_len; + + if (is_more) + buf[0] = 'm'; + else + buf[0] = 'l'; + + return remote_escape_output (data, len, 1, (unsigned char *) buf + 1, + &out_len, PBUFSIZ - 2) + 1; +} + +/* Handle btrace enabling in BTS format. */ + +static void +handle_btrace_enable_bts (struct thread_info *thread) +{ + if (thread->btrace != NULL) + error (_("Btrace already enabled.")); + + current_btrace_conf.format = BTRACE_FORMAT_BTS; + thread->btrace = target_enable_btrace (thread->id, ¤t_btrace_conf); +} + +/* Handle btrace enabling in Intel Processor Trace format. */ + +static void +handle_btrace_enable_pt (struct thread_info *thread) +{ + if (thread->btrace != NULL) + error (_("Btrace already enabled.")); + + current_btrace_conf.format = BTRACE_FORMAT_PT; + thread->btrace = target_enable_btrace (thread->id, ¤t_btrace_conf); +} + +/* Handle btrace disabling. */ + +static void +handle_btrace_disable (struct thread_info *thread) +{ + + if (thread->btrace == NULL) + error (_("Branch tracing not enabled.")); + + if (target_disable_btrace (thread->btrace) != 0) + error (_("Could not disable branch tracing.")); + + thread->btrace = NULL; +} + +/* Handle the "Qbtrace" packet. */ + +static int +handle_btrace_general_set (char *own_buf) +{ + client_state &cs = get_client_state (); + struct thread_info *thread; + char *op; + + if (!startswith (own_buf, "Qbtrace:")) + return 0; + + op = own_buf + strlen ("Qbtrace:"); + + if (cs.general_thread == null_ptid + || cs.general_thread == minus_one_ptid) + { + strcpy (own_buf, "E.Must select a single thread."); + return -1; + } + + thread = find_thread_ptid (cs.general_thread); + if (thread == NULL) + { + strcpy (own_buf, "E.No such thread."); + return -1; + } + + try + { + if (strcmp (op, "bts") == 0) + handle_btrace_enable_bts (thread); + else if (strcmp (op, "pt") == 0) + handle_btrace_enable_pt (thread); + else if (strcmp (op, "off") == 0) + handle_btrace_disable (thread); + else + error (_("Bad Qbtrace operation. Use bts, pt, or off.")); + + write_ok (own_buf); + } + catch (const gdb_exception_error &exception) + { + sprintf (own_buf, "E.%s", exception.what ()); + } + + return 1; +} + +/* Handle the "Qbtrace-conf" packet. */ + +static int +handle_btrace_conf_general_set (char *own_buf) +{ + client_state &cs = get_client_state (); + struct thread_info *thread; + char *op; + + if (!startswith (own_buf, "Qbtrace-conf:")) + return 0; + + op = own_buf + strlen ("Qbtrace-conf:"); + + if (cs.general_thread == null_ptid + || cs.general_thread == minus_one_ptid) + { + strcpy (own_buf, "E.Must select a single thread."); + return -1; + } + + thread = find_thread_ptid (cs.general_thread); + if (thread == NULL) + { + strcpy (own_buf, "E.No such thread."); + return -1; + } + + if (startswith (op, "bts:size=")) + { + unsigned long size; + char *endp = NULL; + + errno = 0; + size = strtoul (op + strlen ("bts:size="), &endp, 16); + if (endp == NULL || *endp != 0 || errno != 0 || size > UINT_MAX) + { + strcpy (own_buf, "E.Bad size value."); + return -1; + } + + current_btrace_conf.bts.size = (unsigned int) size; + } + else if (strncmp (op, "pt:size=", strlen ("pt:size=")) == 0) + { + unsigned long size; + char *endp = NULL; + + errno = 0; + size = strtoul (op + strlen ("pt:size="), &endp, 16); + if (endp == NULL || *endp != 0 || errno != 0 || size > UINT_MAX) + { + strcpy (own_buf, "E.Bad size value."); + return -1; + } + + current_btrace_conf.pt.size = (unsigned int) size; + } + else + { + strcpy (own_buf, "E.Bad Qbtrace configuration option."); + return -1; + } + + write_ok (own_buf); + return 1; +} + +/* Handle all of the extended 'Q' packets. */ + +static void +handle_general_set (char *own_buf) +{ + client_state &cs = get_client_state (); + if (startswith (own_buf, "QPassSignals:")) + { + int numsigs = (int) GDB_SIGNAL_LAST, i; + const char *p = own_buf + strlen ("QPassSignals:"); + CORE_ADDR cursig; + + p = decode_address_to_semicolon (&cursig, p); + for (i = 0; i < numsigs; i++) + { + if (i == cursig) + { + cs.pass_signals[i] = 1; + if (*p == '\0') + /* Keep looping, to clear the remaining signals. */ + cursig = -1; + else + p = decode_address_to_semicolon (&cursig, p); + } + else + cs.pass_signals[i] = 0; + } + strcpy (own_buf, "OK"); + return; + } + + if (startswith (own_buf, "QProgramSignals:")) + { + int numsigs = (int) GDB_SIGNAL_LAST, i; + const char *p = own_buf + strlen ("QProgramSignals:"); + CORE_ADDR cursig; + + cs.program_signals_p = 1; + + p = decode_address_to_semicolon (&cursig, p); + for (i = 0; i < numsigs; i++) + { + if (i == cursig) + { + cs.program_signals[i] = 1; + if (*p == '\0') + /* Keep looping, to clear the remaining signals. */ + cursig = -1; + else + p = decode_address_to_semicolon (&cursig, p); + } + else + cs.program_signals[i] = 0; + } + strcpy (own_buf, "OK"); + return; + } + + if (startswith (own_buf, "QCatchSyscalls:")) + { + const char *p = own_buf + sizeof ("QCatchSyscalls:") - 1; + int enabled = -1; + CORE_ADDR sysno; + struct process_info *process; + + if (!target_running () || !target_supports_catch_syscall ()) + { + write_enn (own_buf); + return; + } + + if (strcmp (p, "0") == 0) + enabled = 0; + else if (p[0] == '1' && (p[1] == ';' || p[1] == '\0')) + enabled = 1; + else + { + fprintf (stderr, "Unknown catch-syscalls mode requested: %s\n", + own_buf); + write_enn (own_buf); + return; + } + + process = current_process (); + process->syscalls_to_catch.clear (); + + if (enabled) + { + p += 1; + if (*p == ';') + { + p += 1; + while (*p != '\0') + { + p = decode_address_to_semicolon (&sysno, p); + process->syscalls_to_catch.push_back (sysno); + } + } + else + process->syscalls_to_catch.push_back (ANY_SYSCALL); + } + + write_ok (own_buf); + return; + } + + if (strcmp (own_buf, "QEnvironmentReset") == 0) + { + our_environ = gdb_environ::from_host_environ (); + + write_ok (own_buf); + return; + } + + if (startswith (own_buf, "QEnvironmentHexEncoded:")) + { + const char *p = own_buf + sizeof ("QEnvironmentHexEncoded:") - 1; + /* The final form of the environment variable. FINAL_VAR will + hold the 'VAR=VALUE' format. */ + std::string final_var = hex2str (p); + std::string var_name, var_value; + + if (remote_debug) + { + debug_printf (_("[QEnvironmentHexEncoded received '%s']\n"), p); + debug_printf (_("[Environment variable to be set: '%s']\n"), + final_var.c_str ()); + debug_flush (); + } + + size_t pos = final_var.find ('='); + if (pos == std::string::npos) + { + warning (_("Unexpected format for environment variable: '%s'"), + final_var.c_str ()); + write_enn (own_buf); + return; + } + + var_name = final_var.substr (0, pos); + var_value = final_var.substr (pos + 1, std::string::npos); + + our_environ.set (var_name.c_str (), var_value.c_str ()); + + write_ok (own_buf); + return; + } + + if (startswith (own_buf, "QEnvironmentUnset:")) + { + const char *p = own_buf + sizeof ("QEnvironmentUnset:") - 1; + std::string varname = hex2str (p); + + if (remote_debug) + { + debug_printf (_("[QEnvironmentUnset received '%s']\n"), p); + debug_printf (_("[Environment variable to be unset: '%s']\n"), + varname.c_str ()); + debug_flush (); + } + + our_environ.unset (varname.c_str ()); + + write_ok (own_buf); + return; + } + + if (strcmp (own_buf, "QStartNoAckMode") == 0) + { + if (remote_debug) + { + debug_printf ("[noack mode enabled]\n"); + debug_flush (); + } + + cs.noack_mode = 1; + write_ok (own_buf); + return; + } + + if (startswith (own_buf, "QNonStop:")) + { + char *mode = own_buf + 9; + int req = -1; + const char *req_str; + + if (strcmp (mode, "0") == 0) + req = 0; + else if (strcmp (mode, "1") == 0) + req = 1; + else + { + /* We don't know what this mode is, so complain to + GDB. */ + fprintf (stderr, "Unknown non-stop mode requested: %s\n", + own_buf); + write_enn (own_buf); + return; + } + + req_str = req ? "non-stop" : "all-stop"; + if (start_non_stop (req) != 0) + { + fprintf (stderr, "Setting %s mode failed\n", req_str); + write_enn (own_buf); + return; + } + + non_stop = (req != 0); + + if (remote_debug) + debug_printf ("[%s mode enabled]\n", req_str); + + write_ok (own_buf); + return; + } + + if (startswith (own_buf, "QDisableRandomization:")) + { + char *packet = own_buf + strlen ("QDisableRandomization:"); + ULONGEST setting; + + unpack_varlen_hex (packet, &setting); + cs.disable_randomization = setting; + + if (remote_debug) + { + debug_printf (cs.disable_randomization + ? "[address space randomization disabled]\n" + : "[address space randomization enabled]\n"); + } + + write_ok (own_buf); + return; + } + + if (target_supports_tracepoints () + && handle_tracepoint_general_set (own_buf)) + return; + + if (startswith (own_buf, "QAgent:")) + { + char *mode = own_buf + strlen ("QAgent:"); + int req = 0; + + if (strcmp (mode, "0") == 0) + req = 0; + else if (strcmp (mode, "1") == 0) + req = 1; + else + { + /* We don't know what this value is, so complain to GDB. */ + sprintf (own_buf, "E.Unknown QAgent value"); + return; + } + + /* Update the flag. */ + use_agent = req; + if (remote_debug) + debug_printf ("[%s agent]\n", req ? "Enable" : "Disable"); + write_ok (own_buf); + return; + } + + if (handle_btrace_general_set (own_buf)) + return; + + if (handle_btrace_conf_general_set (own_buf)) + return; + + if (startswith (own_buf, "QThreadEvents:")) + { + char *mode = own_buf + strlen ("QThreadEvents:"); + enum tribool req = TRIBOOL_UNKNOWN; + + if (strcmp (mode, "0") == 0) + req = TRIBOOL_FALSE; + else if (strcmp (mode, "1") == 0) + req = TRIBOOL_TRUE; + else + { + /* We don't know what this mode is, so complain to GDB. */ + sprintf (own_buf, "E.Unknown thread-events mode requested: %s\n", + mode); + return; + } + + cs.report_thread_events = (req == TRIBOOL_TRUE); + + if (remote_debug) + { + const char *req_str = cs.report_thread_events ? "enabled" : "disabled"; + + debug_printf ("[thread events are now %s]\n", req_str); + } + + write_ok (own_buf); + return; + } + + if (startswith (own_buf, "QStartupWithShell:")) + { + const char *value = own_buf + strlen ("QStartupWithShell:"); + + if (strcmp (value, "1") == 0) + startup_with_shell = true; + else if (strcmp (value, "0") == 0) + startup_with_shell = false; + else + { + /* Unknown value. */ + fprintf (stderr, "Unknown value to startup-with-shell: %s\n", + own_buf); + write_enn (own_buf); + return; + } + + if (remote_debug) + debug_printf (_("[Inferior will %s started with shell]"), + startup_with_shell ? "be" : "not be"); + + write_ok (own_buf); + return; + } + + if (startswith (own_buf, "QSetWorkingDir:")) + { + const char *p = own_buf + strlen ("QSetWorkingDir:"); + + if (*p != '\0') + { + std::string path = hex2str (p); + + set_inferior_cwd (path.c_str ()); + + if (remote_debug) + debug_printf (_("[Set the inferior's current directory to %s]\n"), + path.c_str ()); + } + else + { + /* An empty argument means that we should clear out any + previously set cwd for the inferior. */ + set_inferior_cwd (NULL); + + if (remote_debug) + debug_printf (_("\ +[Unset the inferior's current directory; will use gdbserver's cwd]\n")); + } + write_ok (own_buf); + + return; + } + + /* Otherwise we didn't know what packet it was. Say we didn't + understand it. */ + own_buf[0] = 0; +} + +static const char * +get_features_xml (const char *annex) +{ + const struct target_desc *desc = current_target_desc (); + + /* `desc->xmltarget' defines what to return when looking for the + "target.xml" file. Its contents can either be verbatim XML code + (prefixed with a '@') or else the name of the actual XML file to + be used in place of "target.xml". + + This variable is set up from the auto-generated + init_registers_... routine for the current target. */ + + if (strcmp (annex, "target.xml") == 0) + { + const char *ret = tdesc_get_features_xml (desc); + + if (*ret == '@') + return ret + 1; + else + annex = ret; + } + +#ifdef USE_XML + { + int i; + + /* Look for the annex. */ + for (i = 0; xml_builtin[i][0] != NULL; i++) + if (strcmp (annex, xml_builtin[i][0]) == 0) + break; + + if (xml_builtin[i][0] != NULL) + return xml_builtin[i][1]; + } +#endif + + return NULL; +} + +static void +monitor_show_help (void) +{ + monitor_output ("The following monitor commands are supported:\n"); + monitor_output (" set debug <0|1>\n"); + monitor_output (" Enable general debugging messages\n"); + monitor_output (" set debug-hw-points <0|1>\n"); + monitor_output (" Enable h/w breakpoint/watchpoint debugging messages\n"); + monitor_output (" set remote-debug <0|1>\n"); + monitor_output (" Enable remote protocol debugging messages\n"); + monitor_output (" set debug-format option1[,option2,...]\n"); + monitor_output (" Add additional information to debugging messages\n"); + monitor_output (" Options: all, none"); + monitor_output (", timestamp"); + monitor_output ("\n"); + monitor_output (" exit\n"); + monitor_output (" Quit GDBserver\n"); +} + +/* Read trace frame or inferior memory. Returns the number of bytes + actually read, zero when no further transfer is possible, and -1 on + error. Return of a positive value smaller than LEN does not + indicate there's no more to be read, only the end of the transfer. + E.g., when GDB reads memory from a traceframe, a first request may + be served from a memory block that does not cover the whole request + length. A following request gets the rest served from either + another block (of the same traceframe) or from the read-only + regions. */ + +static int +gdb_read_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) +{ + client_state &cs = get_client_state (); + int res; + + if (cs.current_traceframe >= 0) + { + ULONGEST nbytes; + ULONGEST length = len; + + if (traceframe_read_mem (cs.current_traceframe, + memaddr, myaddr, len, &nbytes)) + return -1; + /* Data read from trace buffer, we're done. */ + if (nbytes > 0) + return nbytes; + if (!in_readonly_region (memaddr, length)) + return -1; + /* Otherwise we have a valid readonly case, fall through. */ + /* (assume no half-trace half-real blocks for now) */ + } + + res = prepare_to_access_memory (); + if (res == 0) + { + if (set_desired_thread ()) + res = read_inferior_memory (memaddr, myaddr, len); + else + res = 1; + done_accessing_memory (); + + return res == 0 ? len : -1; + } + else + return -1; +} + +/* Write trace frame or inferior memory. Actually, writing to trace + frames is forbidden. */ + +static int +gdb_write_memory (CORE_ADDR memaddr, const unsigned char *myaddr, int len) +{ + client_state &cs = get_client_state (); + if (cs.current_traceframe >= 0) + return EIO; + else + { + int ret; + + ret = prepare_to_access_memory (); + if (ret == 0) + { + if (set_desired_thread ()) + ret = target_write_memory (memaddr, myaddr, len); + else + ret = EIO; + done_accessing_memory (); + } + return ret; + } +} + +/* Subroutine of handle_search_memory to simplify it. */ + +static int +handle_search_memory_1 (CORE_ADDR start_addr, CORE_ADDR search_space_len, + gdb_byte *pattern, unsigned pattern_len, + gdb_byte *search_buf, + unsigned chunk_size, unsigned search_buf_size, + CORE_ADDR *found_addrp) +{ + /* Prime the search buffer. */ + + if (gdb_read_memory (start_addr, search_buf, search_buf_size) + != search_buf_size) + { + warning ("Unable to access %ld bytes of target " + "memory at 0x%lx, halting search.", + (long) search_buf_size, (long) start_addr); + return -1; + } + + /* Perform the search. + + The loop is kept simple by allocating [N + pattern-length - 1] bytes. + When we've scanned N bytes we copy the trailing bytes to the start and + read in another N bytes. */ + + while (search_space_len >= pattern_len) + { + gdb_byte *found_ptr; + unsigned nr_search_bytes = (search_space_len < search_buf_size + ? search_space_len + : search_buf_size); + + found_ptr = (gdb_byte *) memmem (search_buf, nr_search_bytes, pattern, + pattern_len); + + if (found_ptr != NULL) + { + CORE_ADDR found_addr = start_addr + (found_ptr - search_buf); + *found_addrp = found_addr; + return 1; + } + + /* Not found in this chunk, skip to next chunk. */ + + /* Don't let search_space_len wrap here, it's unsigned. */ + if (search_space_len >= chunk_size) + search_space_len -= chunk_size; + else + search_space_len = 0; + + if (search_space_len >= pattern_len) + { + unsigned keep_len = search_buf_size - chunk_size; + CORE_ADDR read_addr = start_addr + chunk_size + keep_len; + int nr_to_read; + + /* Copy the trailing part of the previous iteration to the front + of the buffer for the next iteration. */ + memcpy (search_buf, search_buf + chunk_size, keep_len); + + nr_to_read = (search_space_len - keep_len < chunk_size + ? search_space_len - keep_len + : chunk_size); + + if (gdb_read_memory (read_addr, search_buf + keep_len, + nr_to_read) != search_buf_size) + { + warning ("Unable to access %ld bytes of target memory " + "at 0x%lx, halting search.", + (long) nr_to_read, (long) read_addr); + return -1; + } + + start_addr += chunk_size; + } + } + + /* Not found. */ + + return 0; +} + +/* Handle qSearch:memory packets. */ + +static void +handle_search_memory (char *own_buf, int packet_len) +{ + CORE_ADDR start_addr; + CORE_ADDR search_space_len; + gdb_byte *pattern; + unsigned int pattern_len; + /* NOTE: also defined in find.c testcase. */ +#define SEARCH_CHUNK_SIZE 16000 + const unsigned chunk_size = SEARCH_CHUNK_SIZE; + /* Buffer to hold memory contents for searching. */ + gdb_byte *search_buf; + unsigned search_buf_size; + int found; + CORE_ADDR found_addr; + int cmd_name_len = sizeof ("qSearch:memory:") - 1; + + pattern = (gdb_byte *) malloc (packet_len); + if (pattern == NULL) + { + error ("Unable to allocate memory to perform the search"); + strcpy (own_buf, "E00"); + return; + } + if (decode_search_memory_packet (own_buf + cmd_name_len, + packet_len - cmd_name_len, + &start_addr, &search_space_len, + pattern, &pattern_len) < 0) + { + free (pattern); + error ("Error in parsing qSearch:memory packet"); + strcpy (own_buf, "E00"); + return; + } + + search_buf_size = chunk_size + pattern_len - 1; + + /* No point in trying to allocate a buffer larger than the search space. */ + if (search_space_len < search_buf_size) + search_buf_size = search_space_len; + + search_buf = (gdb_byte *) malloc (search_buf_size); + if (search_buf == NULL) + { + free (pattern); + error ("Unable to allocate memory to perform the search"); + strcpy (own_buf, "E00"); + return; + } + + found = handle_search_memory_1 (start_addr, search_space_len, + pattern, pattern_len, + search_buf, chunk_size, search_buf_size, + &found_addr); + + if (found > 0) + sprintf (own_buf, "1,%lx", (long) found_addr); + else if (found == 0) + strcpy (own_buf, "0"); + else + strcpy (own_buf, "E00"); + + free (search_buf); + free (pattern); +} + +/* Handle the "D" packet. */ + +static void +handle_detach (char *own_buf) +{ + client_state &cs = get_client_state (); + + process_info *process; + + if (cs.multi_process) + { + /* skip 'D;' */ + int pid = strtol (&own_buf[2], NULL, 16); + + process = find_process_pid (pid); + } + else + { + process = (current_thread != nullptr + ? get_thread_process (current_thread) + : nullptr); + } + + if (process == NULL) + { + write_enn (own_buf); + return; + } + + if ((tracing && disconnected_tracing) || any_persistent_commands (process)) + { + if (tracing && disconnected_tracing) + fprintf (stderr, + "Disconnected tracing in effect, " + "leaving gdbserver attached to the process\n"); + + if (any_persistent_commands (process)) + fprintf (stderr, + "Persistent commands are present, " + "leaving gdbserver attached to the process\n"); + + /* Make sure we're in non-stop/async mode, so we we can both + wait for an async socket accept, and handle async target + events simultaneously. There's also no point either in + having the target stop all threads, when we're going to + pass signals down without informing GDB. */ + if (!non_stop) + { + if (debug_threads) + debug_printf ("Forcing non-stop mode\n"); + + non_stop = true; + start_non_stop (1); + } + + process->gdb_detached = 1; + + /* Detaching implicitly resumes all threads. */ + target_continue_no_signal (minus_one_ptid); + + write_ok (own_buf); + return; + } + + fprintf (stderr, "Detaching from process %d\n", process->pid); + stop_tracing (); + + /* We'll need this after PROCESS has been destroyed. */ + int pid = process->pid; + + if (detach_inferior (process) != 0) + write_enn (own_buf); + else + { + discard_queued_stop_replies (ptid_t (pid)); + write_ok (own_buf); + + if (extended_protocol || target_running ()) + { + /* There is still at least one inferior remaining or + we are in extended mode, so don't terminate gdbserver, + and instead treat this like a normal program exit. */ + cs.last_status.kind = TARGET_WAITKIND_EXITED; + cs.last_status.value.integer = 0; + cs.last_ptid = ptid_t (pid); + + current_thread = NULL; + } + else + { + putpkt (own_buf); + remote_close (); + + /* If we are attached, then we can exit. Otherwise, we + need to hang around doing nothing, until the child is + gone. */ + join_inferior (pid); + exit (0); + } + } +} + +/* Parse options to --debug-format= and "monitor set debug-format". + ARG is the text after "--debug-format=" or "monitor set debug-format". + IS_MONITOR is non-zero if we're invoked via "monitor set debug-format". + This triggers calls to monitor_output. + The result is an empty string if all options were parsed ok, otherwise an + error message which the caller must free. + + N.B. These commands affect all debug format settings, they are not + cumulative. If a format is not specified, it is turned off. + However, we don't go to extra trouble with things like + "monitor set debug-format all,none,timestamp". + Instead we just parse them one at a time, in order. + + The syntax for "monitor set debug" we support here is not identical + to gdb's "set debug foo on|off" because we also use this function to + parse "--debug-format=foo,bar". */ + +static std::string +parse_debug_format_options (const char *arg, int is_monitor) +{ + /* First turn all debug format options off. */ + debug_timestamp = 0; + + /* First remove leading spaces, for "monitor set debug-format". */ + while (isspace (*arg)) + ++arg; + + std::vector> options + = delim_string_to_char_ptr_vec (arg, ','); + + for (const gdb::unique_xmalloc_ptr &option : options) + { + if (strcmp (option.get (), "all") == 0) + { + debug_timestamp = 1; + if (is_monitor) + monitor_output ("All extra debug format options enabled.\n"); + } + else if (strcmp (option.get (), "none") == 0) + { + debug_timestamp = 0; + if (is_monitor) + monitor_output ("All extra debug format options disabled.\n"); + } + else if (strcmp (option.get (), "timestamp") == 0) + { + debug_timestamp = 1; + if (is_monitor) + monitor_output ("Timestamps will be added to debug output.\n"); + } + else if (*option == '\0') + { + /* An empty option, e.g., "--debug-format=foo,,bar", is ignored. */ + continue; + } + else + return string_printf ("Unknown debug-format argument: \"%s\"\n", + option.get ()); + } + + return std::string (); +} + +/* Handle monitor commands not handled by target-specific handlers. */ + +static void +handle_monitor_command (char *mon, char *own_buf) +{ + if (strcmp (mon, "set debug 1") == 0) + { + debug_threads = 1; + monitor_output ("Debug output enabled.\n"); + } + else if (strcmp (mon, "set debug 0") == 0) + { + debug_threads = 0; + monitor_output ("Debug output disabled.\n"); + } + else if (strcmp (mon, "set debug-hw-points 1") == 0) + { + show_debug_regs = 1; + monitor_output ("H/W point debugging output enabled.\n"); + } + else if (strcmp (mon, "set debug-hw-points 0") == 0) + { + show_debug_regs = 0; + monitor_output ("H/W point debugging output disabled.\n"); + } + else if (strcmp (mon, "set remote-debug 1") == 0) + { + remote_debug = 1; + monitor_output ("Protocol debug output enabled.\n"); + } + else if (strcmp (mon, "set remote-debug 0") == 0) + { + remote_debug = 0; + monitor_output ("Protocol debug output disabled.\n"); + } + else if (startswith (mon, "set debug-format ")) + { + std::string error_msg + = parse_debug_format_options (mon + sizeof ("set debug-format ") - 1, + 1); + + if (!error_msg.empty ()) + { + monitor_output (error_msg.c_str ()); + monitor_show_help (); + write_enn (own_buf); + } + } + else if (strcmp (mon, "set debug-file") == 0) + debug_set_output (nullptr); + else if (startswith (mon, "set debug-file ")) + debug_set_output (mon + sizeof ("set debug-file ") - 1); + else if (strcmp (mon, "help") == 0) + monitor_show_help (); + else if (strcmp (mon, "exit") == 0) + exit_requested = true; + else + { + monitor_output ("Unknown monitor command.\n\n"); + monitor_show_help (); + write_enn (own_buf); + } +} + +/* Associates a callback with each supported qXfer'able object. */ + +struct qxfer +{ + /* The object this handler handles. */ + const char *object; + + /* Request that the target transfer up to LEN 8-bit bytes of the + target's OBJECT. The OFFSET, for a seekable object, specifies + the starting point. The ANNEX can be used to provide additional + data-specific information to the target. + + Return the number of bytes actually transfered, zero when no + further transfer is possible, -1 on error, -2 when the transfer + is not supported, and -3 on a verbose error message that should + be preserved. Return of a positive value smaller than LEN does + not indicate the end of the object, only the end of the transfer. + + One, and only one, of readbuf or writebuf must be non-NULL. */ + int (*xfer) (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len); +}; + +/* Handle qXfer:auxv:read. */ + +static int +handle_qxfer_auxv (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len) +{ + if (the_target->read_auxv == NULL || writebuf != NULL) + return -2; + + if (annex[0] != '\0' || current_thread == NULL) + return -1; + + return (*the_target->read_auxv) (offset, readbuf, len); +} + +/* Handle qXfer:exec-file:read. */ + +static int +handle_qxfer_exec_file (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len) +{ + char *file; + ULONGEST pid; + int total_len; + + if (the_target->pid_to_exec_file == NULL || writebuf != NULL) + return -2; + + if (annex[0] == '\0') + { + if (current_thread == NULL) + return -1; + + pid = pid_of (current_thread); + } + else + { + annex = unpack_varlen_hex (annex, &pid); + if (annex[0] != '\0') + return -1; + } + + if (pid <= 0) + return -1; + + file = (*the_target->pid_to_exec_file) (pid); + if (file == NULL) + return -1; + + total_len = strlen (file); + + if (offset > total_len) + return -1; + + if (offset + len > total_len) + len = total_len - offset; + + memcpy (readbuf, file + offset, len); + return len; +} + +/* Handle qXfer:features:read. */ + +static int +handle_qxfer_features (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len) +{ + const char *document; + size_t total_len; + + if (writebuf != NULL) + return -2; + + if (!target_running ()) + return -1; + + /* Grab the correct annex. */ + document = get_features_xml (annex); + if (document == NULL) + return -1; + + total_len = strlen (document); + + if (offset > total_len) + return -1; + + if (offset + len > total_len) + len = total_len - offset; + + memcpy (readbuf, document + offset, len); + return len; +} + +/* Handle qXfer:libraries:read. */ + +static int +handle_qxfer_libraries (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len) +{ + if (writebuf != NULL) + return -2; + + if (annex[0] != '\0' || current_thread == NULL) + return -1; + + std::string document = "\n"; + + for (const dll_info &dll : all_dlls) + document += string_printf + (" \n", + dll.name.c_str (), paddress (dll.base_addr)); + + document += "\n"; + + if (offset > document.length ()) + return -1; + + if (offset + len > document.length ()) + len = document.length () - offset; + + memcpy (readbuf, &document[offset], len); + + return len; +} + +/* Handle qXfer:libraries-svr4:read. */ + +static int +handle_qxfer_libraries_svr4 (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len) +{ + if (writebuf != NULL) + return -2; + + if (current_thread == NULL || the_target->qxfer_libraries_svr4 == NULL) + return -1; + + return the_target->qxfer_libraries_svr4 (annex, readbuf, writebuf, offset, len); +} + +/* Handle qXfer:osadata:read. */ + +static int +handle_qxfer_osdata (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len) +{ + if (the_target->qxfer_osdata == NULL || writebuf != NULL) + return -2; + + return (*the_target->qxfer_osdata) (annex, readbuf, NULL, offset, len); +} + +/* Handle qXfer:siginfo:read and qXfer:siginfo:write. */ + +static int +handle_qxfer_siginfo (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len) +{ + if (the_target->qxfer_siginfo == NULL) + return -2; + + if (annex[0] != '\0' || current_thread == NULL) + return -1; + + return (*the_target->qxfer_siginfo) (annex, readbuf, writebuf, offset, len); +} + +/* Handle qXfer:statictrace:read. */ + +static int +handle_qxfer_statictrace (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len) +{ + client_state &cs = get_client_state (); + ULONGEST nbytes; + + if (writebuf != NULL) + return -2; + + if (annex[0] != '\0' || current_thread == NULL + || cs.current_traceframe == -1) + return -1; + + if (traceframe_read_sdata (cs.current_traceframe, offset, + readbuf, len, &nbytes)) + return -1; + return nbytes; +} + +/* Helper for handle_qxfer_threads_proper. + Emit the XML to describe the thread of INF. */ + +static void +handle_qxfer_threads_worker (thread_info *thread, struct buffer *buffer) +{ + ptid_t ptid = ptid_of (thread); + char ptid_s[100]; + int core = target_core_of_thread (ptid); + char core_s[21]; + const char *name = target_thread_name (ptid); + int handle_len; + gdb_byte *handle; + bool handle_status = target_thread_handle (ptid, &handle, &handle_len); + + write_ptid (ptid_s, ptid); + + buffer_xml_printf (buffer, "\n"); +} + +/* Helper for handle_qxfer_threads. */ + +static void +handle_qxfer_threads_proper (struct buffer *buffer) +{ + buffer_grow_str (buffer, "\n"); + + for_each_thread ([&] (thread_info *thread) + { + handle_qxfer_threads_worker (thread, buffer); + }); + + buffer_grow_str0 (buffer, "\n"); +} + +/* Handle qXfer:threads:read. */ + +static int +handle_qxfer_threads (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len) +{ + static char *result = 0; + static unsigned int result_length = 0; + + if (writebuf != NULL) + return -2; + + if (annex[0] != '\0') + return -1; + + if (offset == 0) + { + struct buffer buffer; + /* When asked for data at offset 0, generate everything and store into + 'result'. Successive reads will be served off 'result'. */ + if (result) + free (result); + + buffer_init (&buffer); + + handle_qxfer_threads_proper (&buffer); + + result = buffer_finish (&buffer); + result_length = strlen (result); + buffer_free (&buffer); + } + + if (offset >= result_length) + { + /* We're out of data. */ + free (result); + result = NULL; + result_length = 0; + return 0; + } + + if (len > result_length - offset) + len = result_length - offset; + + memcpy (readbuf, result + offset, len); + + return len; +} + +/* Handle qXfer:traceframe-info:read. */ + +static int +handle_qxfer_traceframe_info (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len) +{ + client_state &cs = get_client_state (); + static char *result = 0; + static unsigned int result_length = 0; + + if (writebuf != NULL) + return -2; + + if (!target_running () || annex[0] != '\0' || cs.current_traceframe == -1) + return -1; + + if (offset == 0) + { + struct buffer buffer; + + /* When asked for data at offset 0, generate everything and + store into 'result'. Successive reads will be served off + 'result'. */ + free (result); + + buffer_init (&buffer); + + traceframe_read_info (cs.current_traceframe, &buffer); + + result = buffer_finish (&buffer); + result_length = strlen (result); + buffer_free (&buffer); + } + + if (offset >= result_length) + { + /* We're out of data. */ + free (result); + result = NULL; + result_length = 0; + return 0; + } + + if (len > result_length - offset) + len = result_length - offset; + + memcpy (readbuf, result + offset, len); + return len; +} + +/* Handle qXfer:fdpic:read. */ + +static int +handle_qxfer_fdpic (const char *annex, gdb_byte *readbuf, + const gdb_byte *writebuf, ULONGEST offset, LONGEST len) +{ + if (the_target->read_loadmap == NULL) + return -2; + + if (current_thread == NULL) + return -1; + + return (*the_target->read_loadmap) (annex, offset, readbuf, len); +} + +/* Handle qXfer:btrace:read. */ + +static int +handle_qxfer_btrace (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len) +{ + client_state &cs = get_client_state (); + static struct buffer cache; + struct thread_info *thread; + enum btrace_read_type type; + int result; + + if (writebuf != NULL) + return -2; + + if (cs.general_thread == null_ptid + || cs.general_thread == minus_one_ptid) + { + strcpy (cs.own_buf, "E.Must select a single thread."); + return -3; + } + + thread = find_thread_ptid (cs.general_thread); + if (thread == NULL) + { + strcpy (cs.own_buf, "E.No such thread."); + return -3; + } + + if (thread->btrace == NULL) + { + strcpy (cs.own_buf, "E.Btrace not enabled."); + return -3; + } + + if (strcmp (annex, "all") == 0) + type = BTRACE_READ_ALL; + else if (strcmp (annex, "new") == 0) + type = BTRACE_READ_NEW; + else if (strcmp (annex, "delta") == 0) + type = BTRACE_READ_DELTA; + else + { + strcpy (cs.own_buf, "E.Bad annex."); + return -3; + } + + if (offset == 0) + { + buffer_free (&cache); + + try + { + result = target_read_btrace (thread->btrace, &cache, type); + if (result != 0) + memcpy (cs.own_buf, cache.buffer, cache.used_size); + } + catch (const gdb_exception_error &exception) + { + sprintf (cs.own_buf, "E.%s", exception.what ()); + result = -1; + } + + if (result != 0) + return -3; + } + else if (offset > cache.used_size) + { + buffer_free (&cache); + return -3; + } + + if (len > cache.used_size - offset) + len = cache.used_size - offset; + + memcpy (readbuf, cache.buffer + offset, len); + + return len; +} + +/* Handle qXfer:btrace-conf:read. */ + +static int +handle_qxfer_btrace_conf (const char *annex, + gdb_byte *readbuf, const gdb_byte *writebuf, + ULONGEST offset, LONGEST len) +{ + client_state &cs = get_client_state (); + static struct buffer cache; + struct thread_info *thread; + int result; + + if (writebuf != NULL) + return -2; + + if (annex[0] != '\0') + return -1; + + if (cs.general_thread == null_ptid + || cs.general_thread == minus_one_ptid) + { + strcpy (cs.own_buf, "E.Must select a single thread."); + return -3; + } + + thread = find_thread_ptid (cs.general_thread); + if (thread == NULL) + { + strcpy (cs.own_buf, "E.No such thread."); + return -3; + } + + if (thread->btrace == NULL) + { + strcpy (cs.own_buf, "E.Btrace not enabled."); + return -3; + } + + if (offset == 0) + { + buffer_free (&cache); + + try + { + result = target_read_btrace_conf (thread->btrace, &cache); + if (result != 0) + memcpy (cs.own_buf, cache.buffer, cache.used_size); + } + catch (const gdb_exception_error &exception) + { + sprintf (cs.own_buf, "E.%s", exception.what ()); + result = -1; + } + + if (result != 0) + return -3; + } + else if (offset > cache.used_size) + { + buffer_free (&cache); + return -3; + } + + if (len > cache.used_size - offset) + len = cache.used_size - offset; + + memcpy (readbuf, cache.buffer + offset, len); + + return len; +} + +static const struct qxfer qxfer_packets[] = + { + { "auxv", handle_qxfer_auxv }, + { "btrace", handle_qxfer_btrace }, + { "btrace-conf", handle_qxfer_btrace_conf }, + { "exec-file", handle_qxfer_exec_file}, + { "fdpic", handle_qxfer_fdpic}, + { "features", handle_qxfer_features }, + { "libraries", handle_qxfer_libraries }, + { "libraries-svr4", handle_qxfer_libraries_svr4 }, + { "osdata", handle_qxfer_osdata }, + { "siginfo", handle_qxfer_siginfo }, + { "statictrace", handle_qxfer_statictrace }, + { "threads", handle_qxfer_threads }, + { "traceframe-info", handle_qxfer_traceframe_info }, + }; + +static int +handle_qxfer (char *own_buf, int packet_len, int *new_packet_len_p) +{ + int i; + char *object; + char *rw; + char *annex; + char *offset; + + if (!startswith (own_buf, "qXfer:")) + return 0; + + /* Grab the object, r/w and annex. */ + if (decode_xfer (own_buf + 6, &object, &rw, &annex, &offset) < 0) + { + write_enn (own_buf); + return 1; + } + + for (i = 0; + i < sizeof (qxfer_packets) / sizeof (qxfer_packets[0]); + i++) + { + const struct qxfer *q = &qxfer_packets[i]; + + if (strcmp (object, q->object) == 0) + { + if (strcmp (rw, "read") == 0) + { + unsigned char *data; + int n; + CORE_ADDR ofs; + unsigned int len; + + /* Grab the offset and length. */ + if (decode_xfer_read (offset, &ofs, &len) < 0) + { + write_enn (own_buf); + return 1; + } + + /* Read one extra byte, as an indicator of whether there is + more. */ + if (len > PBUFSIZ - 2) + len = PBUFSIZ - 2; + data = (unsigned char *) malloc (len + 1); + if (data == NULL) + { + write_enn (own_buf); + return 1; + } + n = (*q->xfer) (annex, data, NULL, ofs, len + 1); + if (n == -2) + { + free (data); + return 0; + } + else if (n == -3) + { + /* Preserve error message. */ + } + else if (n < 0) + write_enn (own_buf); + else if (n > len) + *new_packet_len_p = write_qxfer_response (own_buf, data, len, 1); + else + *new_packet_len_p = write_qxfer_response (own_buf, data, n, 0); + + free (data); + return 1; + } + else if (strcmp (rw, "write") == 0) + { + int n; + unsigned int len; + CORE_ADDR ofs; + unsigned char *data; + + strcpy (own_buf, "E00"); + data = (unsigned char *) malloc (packet_len - (offset - own_buf)); + if (data == NULL) + { + write_enn (own_buf); + return 1; + } + if (decode_xfer_write (offset, packet_len - (offset - own_buf), + &ofs, &len, data) < 0) + { + free (data); + write_enn (own_buf); + return 1; + } + + n = (*q->xfer) (annex, NULL, data, ofs, len); + if (n == -2) + { + free (data); + return 0; + } + else if (n == -3) + { + /* Preserve error message. */ + } + else if (n < 0) + write_enn (own_buf); + else + sprintf (own_buf, "%x", n); + + free (data); + return 1; + } + + return 0; + } + } + + return 0; +} + +/* Compute 32 bit CRC from inferior memory. + + On success, return 32 bit CRC. + On failure, return (unsigned long long) -1. */ + +static unsigned long long +crc32 (CORE_ADDR base, int len, unsigned int crc) +{ + while (len--) + { + unsigned char byte = 0; + + /* Return failure if memory read fails. */ + if (read_inferior_memory (base, &byte, 1) != 0) + return (unsigned long long) -1; + + crc = xcrc32 (&byte, 1, crc); + base++; + } + return (unsigned long long) crc; +} + +/* Add supported btrace packets to BUF. */ + +static void +supported_btrace_packets (char *buf) +{ + strcat (buf, ";Qbtrace:bts+"); + strcat (buf, ";Qbtrace-conf:bts:size+"); + strcat (buf, ";Qbtrace:pt+"); + strcat (buf, ";Qbtrace-conf:pt:size+"); + strcat (buf, ";Qbtrace:off+"); + strcat (buf, ";qXfer:btrace:read+"); + strcat (buf, ";qXfer:btrace-conf:read+"); +} + +/* Handle all of the extended 'q' packets. */ + +static void +handle_query (char *own_buf, int packet_len, int *new_packet_len_p) +{ + client_state &cs = get_client_state (); + static std::list::const_iterator thread_iter; + + /* Reply the current thread id. */ + if (strcmp ("qC", own_buf) == 0 && !disable_packet_qC) + { + ptid_t ptid; + require_running_or_return (own_buf); + + if (cs.general_thread != null_ptid && cs.general_thread != minus_one_ptid) + ptid = cs.general_thread; + else + { + thread_iter = all_threads.begin (); + ptid = (*thread_iter)->id; + } + + sprintf (own_buf, "QC"); + own_buf += 2; + write_ptid (own_buf, ptid); + return; + } + + if (strcmp ("qSymbol::", own_buf) == 0) + { + struct thread_info *save_thread = current_thread; + + /* For qSymbol, GDB only changes the current thread if the + previous current thread was of a different process. So if + the previous thread is gone, we need to pick another one of + the same process. This can happen e.g., if we followed an + exec in a non-leader thread. */ + if (current_thread == NULL) + { + current_thread + = find_any_thread_of_pid (cs.general_thread.pid ()); + + /* Just in case, if we didn't find a thread, then bail out + instead of crashing. */ + if (current_thread == NULL) + { + write_enn (own_buf); + current_thread = save_thread; + return; + } + } + + /* GDB is suggesting new symbols have been loaded. This may + mean a new shared library has been detected as loaded, so + take the opportunity to check if breakpoints we think are + inserted, still are. Note that it isn't guaranteed that + we'll see this when a shared library is loaded, and nor will + we see this for unloads (although breakpoints in unloaded + libraries shouldn't trigger), as GDB may not find symbols for + the library at all. We also re-validate breakpoints when we + see a second GDB breakpoint for the same address, and or when + we access breakpoint shadows. */ + validate_breakpoints (); + + if (target_supports_tracepoints ()) + tracepoint_look_up_symbols (); + + if (current_thread != NULL && the_target->look_up_symbols != NULL) + (*the_target->look_up_symbols) (); + + current_thread = save_thread; + + strcpy (own_buf, "OK"); + return; + } + + if (!disable_packet_qfThreadInfo) + { + if (strcmp ("qfThreadInfo", own_buf) == 0) + { + require_running_or_return (own_buf); + thread_iter = all_threads.begin (); + + *own_buf++ = 'm'; + ptid_t ptid = (*thread_iter)->id; + write_ptid (own_buf, ptid); + thread_iter++; + return; + } + + if (strcmp ("qsThreadInfo", own_buf) == 0) + { + require_running_or_return (own_buf); + if (thread_iter != all_threads.end ()) + { + *own_buf++ = 'm'; + ptid_t ptid = (*thread_iter)->id; + write_ptid (own_buf, ptid); + thread_iter++; + return; + } + else + { + sprintf (own_buf, "l"); + return; + } + } + } + + if (the_target->read_offsets != NULL + && strcmp ("qOffsets", own_buf) == 0) + { + CORE_ADDR text, data; + + require_running_or_return (own_buf); + if (the_target->read_offsets (&text, &data)) + sprintf (own_buf, "Text=%lX;Data=%lX;Bss=%lX", + (long)text, (long)data, (long)data); + else + write_enn (own_buf); + + return; + } + + /* Protocol features query. */ + if (startswith (own_buf, "qSupported") + && (own_buf[10] == ':' || own_buf[10] == '\0')) + { + char *p = &own_buf[10]; + int gdb_supports_qRelocInsn = 0; + + /* Process each feature being provided by GDB. The first + feature will follow a ':', and latter features will follow + ';'. */ + if (*p == ':') + { + char **qsupported = NULL; + int count = 0; + int unknown = 0; + int i; + + /* Two passes, to avoid nested strtok calls in + target_process_qsupported. */ + char *saveptr; + for (p = strtok_r (p + 1, ";", &saveptr); + p != NULL; + p = strtok_r (NULL, ";", &saveptr)) + { + count++; + qsupported = XRESIZEVEC (char *, qsupported, count); + qsupported[count - 1] = xstrdup (p); + } + + for (i = 0; i < count; i++) + { + p = qsupported[i]; + if (strcmp (p, "multiprocess+") == 0) + { + /* GDB supports and wants multi-process support if + possible. */ + if (target_supports_multi_process ()) + cs.multi_process = 1; + } + else if (strcmp (p, "qRelocInsn+") == 0) + { + /* GDB supports relocate instruction requests. */ + gdb_supports_qRelocInsn = 1; + } + else if (strcmp (p, "swbreak+") == 0) + { + /* GDB wants us to report whether a trap is caused + by a software breakpoint and for us to handle PC + adjustment if necessary on this target. */ + if (target_supports_stopped_by_sw_breakpoint ()) + cs.swbreak_feature = 1; + } + else if (strcmp (p, "hwbreak+") == 0) + { + /* GDB wants us to report whether a trap is caused + by a hardware breakpoint. */ + if (target_supports_stopped_by_hw_breakpoint ()) + cs.hwbreak_feature = 1; + } + else if (strcmp (p, "fork-events+") == 0) + { + /* GDB supports and wants fork events if possible. */ + if (target_supports_fork_events ()) + cs.report_fork_events = 1; + } + else if (strcmp (p, "vfork-events+") == 0) + { + /* GDB supports and wants vfork events if possible. */ + if (target_supports_vfork_events ()) + cs.report_vfork_events = 1; + } + else if (strcmp (p, "exec-events+") == 0) + { + /* GDB supports and wants exec events if possible. */ + if (target_supports_exec_events ()) + cs.report_exec_events = 1; + } + else if (strcmp (p, "vContSupported+") == 0) + cs.vCont_supported = 1; + else if (strcmp (p, "QThreadEvents+") == 0) + ; + else if (strcmp (p, "no-resumed+") == 0) + { + /* GDB supports and wants TARGET_WAITKIND_NO_RESUMED + events. */ + report_no_resumed = true; + } + else + { + /* Move the unknown features all together. */ + qsupported[i] = NULL; + qsupported[unknown] = p; + unknown++; + } + } + + /* Give the target backend a chance to process the unknown + features. */ + target_process_qsupported (qsupported, unknown); + + for (i = 0; i < count; i++) + free (qsupported[i]); + free (qsupported); + } + + sprintf (own_buf, + "PacketSize=%x;QPassSignals+;QProgramSignals+;" + "QStartupWithShell+;QEnvironmentHexEncoded+;" + "QEnvironmentReset+;QEnvironmentUnset+;" + "QSetWorkingDir+", + PBUFSIZ - 1); + + if (target_supports_catch_syscall ()) + strcat (own_buf, ";QCatchSyscalls+"); + + if (the_target->qxfer_libraries_svr4 != NULL) + strcat (own_buf, ";qXfer:libraries-svr4:read+" + ";augmented-libraries-svr4-read+"); + else + { + /* We do not have any hook to indicate whether the non-SVR4 target + backend supports qXfer:libraries:read, so always report it. */ + strcat (own_buf, ";qXfer:libraries:read+"); + } + + if (the_target->read_auxv != NULL) + strcat (own_buf, ";qXfer:auxv:read+"); + + if (the_target->qxfer_siginfo != NULL) + strcat (own_buf, ";qXfer:siginfo:read+;qXfer:siginfo:write+"); + + if (the_target->read_loadmap != NULL) + strcat (own_buf, ";qXfer:fdpic:read+"); + + /* We always report qXfer:features:read, as targets may + install XML files on a subsequent call to arch_setup. + If we reported to GDB on startup that we don't support + qXfer:feature:read at all, we will never be re-queried. */ + strcat (own_buf, ";qXfer:features:read+"); + + if (cs.transport_is_reliable) + strcat (own_buf, ";QStartNoAckMode+"); + + if (the_target->qxfer_osdata != NULL) + strcat (own_buf, ";qXfer:osdata:read+"); + + if (target_supports_multi_process ()) + strcat (own_buf, ";multiprocess+"); + + if (target_supports_fork_events ()) + strcat (own_buf, ";fork-events+"); + + if (target_supports_vfork_events ()) + strcat (own_buf, ";vfork-events+"); + + if (target_supports_exec_events ()) + strcat (own_buf, ";exec-events+"); + + if (target_supports_non_stop ()) + strcat (own_buf, ";QNonStop+"); + + if (target_supports_disable_randomization ()) + strcat (own_buf, ";QDisableRandomization+"); + + strcat (own_buf, ";qXfer:threads:read+"); + + if (target_supports_tracepoints ()) + { + strcat (own_buf, ";ConditionalTracepoints+"); + strcat (own_buf, ";TraceStateVariables+"); + strcat (own_buf, ";TracepointSource+"); + strcat (own_buf, ";DisconnectedTracing+"); + if (gdb_supports_qRelocInsn && target_supports_fast_tracepoints ()) + strcat (own_buf, ";FastTracepoints+"); + strcat (own_buf, ";StaticTracepoints+"); + strcat (own_buf, ";InstallInTrace+"); + strcat (own_buf, ";qXfer:statictrace:read+"); + strcat (own_buf, ";qXfer:traceframe-info:read+"); + strcat (own_buf, ";EnableDisableTracepoints+"); + strcat (own_buf, ";QTBuffer:size+"); + strcat (own_buf, ";tracenz+"); + } + + if (target_supports_hardware_single_step () + || target_supports_software_single_step () ) + { + strcat (own_buf, ";ConditionalBreakpoints+"); + } + strcat (own_buf, ";BreakpointCommands+"); + + if (target_supports_agent ()) + strcat (own_buf, ";QAgent+"); + + supported_btrace_packets (own_buf); + + if (target_supports_stopped_by_sw_breakpoint ()) + strcat (own_buf, ";swbreak+"); + + if (target_supports_stopped_by_hw_breakpoint ()) + strcat (own_buf, ";hwbreak+"); + + if (the_target->pid_to_exec_file != NULL) + strcat (own_buf, ";qXfer:exec-file:read+"); + + strcat (own_buf, ";vContSupported+"); + + strcat (own_buf, ";QThreadEvents+"); + + strcat (own_buf, ";no-resumed+"); + + /* Reinitialize components as needed for the new connection. */ + hostio_handle_new_gdb_connection (); + target_handle_new_gdb_connection (); + + return; + } + + /* Thread-local storage support. */ + if (the_target->get_tls_address != NULL + && startswith (own_buf, "qGetTLSAddr:")) + { + char *p = own_buf + 12; + CORE_ADDR parts[2], address = 0; + int i, err; + ptid_t ptid = null_ptid; + + require_running_or_return (own_buf); + + for (i = 0; i < 3; i++) + { + char *p2; + int len; + + if (p == NULL) + break; + + p2 = strchr (p, ','); + if (p2) + { + len = p2 - p; + p2++; + } + else + { + len = strlen (p); + p2 = NULL; + } + + if (i == 0) + ptid = read_ptid (p, NULL); + else + decode_address (&parts[i - 1], p, len); + p = p2; + } + + if (p != NULL || i < 3) + err = 1; + else + { + struct thread_info *thread = find_thread_ptid (ptid); + + if (thread == NULL) + err = 2; + else + err = the_target->get_tls_address (thread, parts[0], parts[1], + &address); + } + + if (err == 0) + { + strcpy (own_buf, paddress(address)); + return; + } + else if (err > 0) + { + write_enn (own_buf); + return; + } + + /* Otherwise, pretend we do not understand this packet. */ + } + + /* Windows OS Thread Information Block address support. */ + if (the_target->get_tib_address != NULL + && startswith (own_buf, "qGetTIBAddr:")) + { + const char *annex; + int n; + CORE_ADDR tlb; + ptid_t ptid = read_ptid (own_buf + 12, &annex); + + n = (*the_target->get_tib_address) (ptid, &tlb); + if (n == 1) + { + strcpy (own_buf, paddress(tlb)); + return; + } + else if (n == 0) + { + write_enn (own_buf); + return; + } + return; + } + + /* Handle "monitor" commands. */ + if (startswith (own_buf, "qRcmd,")) + { + char *mon = (char *) malloc (PBUFSIZ); + int len = strlen (own_buf + 6); + + if (mon == NULL) + { + write_enn (own_buf); + return; + } + + if ((len % 2) != 0 + || hex2bin (own_buf + 6, (gdb_byte *) mon, len / 2) != len / 2) + { + write_enn (own_buf); + free (mon); + return; + } + mon[len / 2] = '\0'; + + write_ok (own_buf); + + if (the_target->handle_monitor_command == NULL + || (*the_target->handle_monitor_command) (mon) == 0) + /* Default processing. */ + handle_monitor_command (mon, own_buf); + + free (mon); + return; + } + + if (startswith (own_buf, "qSearch:memory:")) + { + require_running_or_return (own_buf); + handle_search_memory (own_buf, packet_len); + return; + } + + if (strcmp (own_buf, "qAttached") == 0 + || startswith (own_buf, "qAttached:")) + { + struct process_info *process; + + if (own_buf[sizeof ("qAttached") - 1]) + { + int pid = strtoul (own_buf + sizeof ("qAttached:") - 1, NULL, 16); + process = find_process_pid (pid); + } + else + { + require_running_or_return (own_buf); + process = current_process (); + } + + if (process == NULL) + { + write_enn (own_buf); + return; + } + + strcpy (own_buf, process->attached ? "1" : "0"); + return; + } + + if (startswith (own_buf, "qCRC:")) + { + /* CRC check (compare-section). */ + const char *comma; + ULONGEST base; + int len; + unsigned long long crc; + + require_running_or_return (own_buf); + comma = unpack_varlen_hex (own_buf + 5, &base); + if (*comma++ != ',') + { + write_enn (own_buf); + return; + } + len = strtoul (comma, NULL, 16); + crc = crc32 (base, len, 0xffffffff); + /* Check for memory failure. */ + if (crc == (unsigned long long) -1) + { + write_enn (own_buf); + return; + } + sprintf (own_buf, "C%lx", (unsigned long) crc); + return; + } + + if (handle_qxfer (own_buf, packet_len, new_packet_len_p)) + return; + + if (target_supports_tracepoints () && handle_tracepoint_query (own_buf)) + return; + + /* Otherwise we didn't know what packet it was. Say we didn't + understand it. */ + own_buf[0] = 0; +} + +static void gdb_wants_all_threads_stopped (void); +static void resume (struct thread_resume *actions, size_t n); + +/* The callback that is passed to visit_actioned_threads. */ +typedef int (visit_actioned_threads_callback_ftype) + (const struct thread_resume *, struct thread_info *); + +/* Call CALLBACK for any thread to which ACTIONS applies to. Returns + true if CALLBACK returns true. Returns false if no matching thread + is found or CALLBACK results false. + Note: This function is itself a callback for find_thread. */ + +static bool +visit_actioned_threads (thread_info *thread, + const struct thread_resume *actions, + size_t num_actions, + visit_actioned_threads_callback_ftype *callback) +{ + for (size_t i = 0; i < num_actions; i++) + { + const struct thread_resume *action = &actions[i]; + + if (action->thread == minus_one_ptid + || action->thread == thread->id + || ((action->thread.pid () + == thread->id.pid ()) + && action->thread.lwp () == -1)) + { + if ((*callback) (action, thread)) + return true; + } + } + + return false; +} + +/* Callback for visit_actioned_threads. If the thread has a pending + status to report, report it now. */ + +static int +handle_pending_status (const struct thread_resume *resumption, + struct thread_info *thread) +{ + client_state &cs = get_client_state (); + if (thread->status_pending_p) + { + thread->status_pending_p = 0; + + cs.last_status = thread->last_status; + cs.last_ptid = thread->id; + prepare_resume_reply (cs.own_buf, cs.last_ptid, &cs.last_status); + return 1; + } + return 0; +} + +/* Parse vCont packets. */ +static void +handle_v_cont (char *own_buf) +{ + const char *p; + int n = 0, i = 0; + struct thread_resume *resume_info; + struct thread_resume default_action { null_ptid }; + + /* Count the number of semicolons in the packet. There should be one + for every action. */ + p = &own_buf[5]; + while (p) + { + n++; + p++; + p = strchr (p, ';'); + } + + resume_info = (struct thread_resume *) malloc (n * sizeof (resume_info[0])); + if (resume_info == NULL) + goto err; + + p = &own_buf[5]; + while (*p) + { + p++; + + memset (&resume_info[i], 0, sizeof resume_info[i]); + + if (p[0] == 's' || p[0] == 'S') + resume_info[i].kind = resume_step; + else if (p[0] == 'r') + resume_info[i].kind = resume_step; + else if (p[0] == 'c' || p[0] == 'C') + resume_info[i].kind = resume_continue; + else if (p[0] == 't') + resume_info[i].kind = resume_stop; + else + goto err; + + if (p[0] == 'S' || p[0] == 'C') + { + char *q; + int sig = strtol (p + 1, &q, 16); + if (p == q) + goto err; + p = q; + + if (!gdb_signal_to_host_p ((enum gdb_signal) sig)) + goto err; + resume_info[i].sig = gdb_signal_to_host ((enum gdb_signal) sig); + } + else if (p[0] == 'r') + { + ULONGEST addr; + + p = unpack_varlen_hex (p + 1, &addr); + resume_info[i].step_range_start = addr; + + if (*p != ',') + goto err; + + p = unpack_varlen_hex (p + 1, &addr); + resume_info[i].step_range_end = addr; + } + else + { + p = p + 1; + } + + if (p[0] == 0) + { + resume_info[i].thread = minus_one_ptid; + default_action = resume_info[i]; + + /* Note: we don't increment i here, we'll overwrite this entry + the next time through. */ + } + else if (p[0] == ':') + { + const char *q; + ptid_t ptid = read_ptid (p + 1, &q); + + if (p == q) + goto err; + p = q; + if (p[0] != ';' && p[0] != 0) + goto err; + + resume_info[i].thread = ptid; + + i++; + } + } + + if (i < n) + resume_info[i] = default_action; + + resume (resume_info, n); + free (resume_info); + return; + +err: + write_enn (own_buf); + free (resume_info); + return; +} + +/* Resume target with ACTIONS, an array of NUM_ACTIONS elements. */ + +static void +resume (struct thread_resume *actions, size_t num_actions) +{ + client_state &cs = get_client_state (); + if (!non_stop) + { + /* Check if among the threads that GDB wants actioned, there's + one with a pending status to report. If so, skip actually + resuming/stopping and report the pending event + immediately. */ + + thread_info *thread_with_status = find_thread ([&] (thread_info *thread) + { + return visit_actioned_threads (thread, actions, num_actions, + handle_pending_status); + }); + + if (thread_with_status != NULL) + return; + + enable_async_io (); + } + + (*the_target->resume) (actions, num_actions); + + if (non_stop) + write_ok (cs.own_buf); + else + { + cs.last_ptid = mywait (minus_one_ptid, &cs.last_status, 0, 1); + + if (cs.last_status.kind == TARGET_WAITKIND_NO_RESUMED + && !report_no_resumed) + { + /* The client does not support this stop reply. At least + return error. */ + sprintf (cs.own_buf, "E.No unwaited-for children left."); + disable_async_io (); + return; + } + + if (cs.last_status.kind != TARGET_WAITKIND_EXITED + && cs.last_status.kind != TARGET_WAITKIND_SIGNALLED + && cs.last_status.kind != TARGET_WAITKIND_NO_RESUMED) + current_thread->last_status = cs.last_status; + + /* From the client's perspective, all-stop mode always stops all + threads implicitly (and the target backend has already done + so by now). Tag all threads as "want-stopped", so we don't + resume them implicitly without the client telling us to. */ + gdb_wants_all_threads_stopped (); + prepare_resume_reply (cs.own_buf, cs.last_ptid, &cs.last_status); + disable_async_io (); + + if (cs.last_status.kind == TARGET_WAITKIND_EXITED + || cs.last_status.kind == TARGET_WAITKIND_SIGNALLED) + target_mourn_inferior (cs.last_ptid); + } +} + +/* Attach to a new program. Return 1 if successful, 0 if failure. */ +static int +handle_v_attach (char *own_buf) +{ + client_state &cs = get_client_state (); + int pid; + + pid = strtol (own_buf + 8, NULL, 16); + if (pid != 0 && attach_inferior (pid) == 0) + { + /* Don't report shared library events after attaching, even if + some libraries are preloaded. GDB will always poll the + library list. Avoids the "stopped by shared library event" + notice on the GDB side. */ + dlls_changed = 0; + + if (non_stop) + { + /* In non-stop, we don't send a resume reply. Stop events + will follow up using the normal notification + mechanism. */ + write_ok (own_buf); + } + else + prepare_resume_reply (own_buf, cs.last_ptid, &cs.last_status); + + return 1; + } + else + { + write_enn (own_buf); + return 0; + } +} + +/* Run a new program. Return 1 if successful, 0 if failure. */ +static int +handle_v_run (char *own_buf) +{ + client_state &cs = get_client_state (); + char *p, *next_p; + std::vector new_argv; + char *new_program_name = NULL; + int i, new_argc; + + new_argc = 0; + for (p = own_buf + strlen ("vRun;"); p && *p; p = strchr (p, ';')) + { + p++; + new_argc++; + } + + for (i = 0, p = own_buf + strlen ("vRun;"); *p; p = next_p, ++i) + { + next_p = strchr (p, ';'); + if (next_p == NULL) + next_p = p + strlen (p); + + if (i == 0 && p == next_p) + { + /* No program specified. */ + new_program_name = NULL; + } + else if (p == next_p) + { + /* Empty argument. */ + new_argv.push_back (xstrdup ("''")); + } + else + { + size_t len = (next_p - p) / 2; + /* ARG is the unquoted argument received via the RSP. */ + char *arg = (char *) xmalloc (len + 1); + /* FULL_ARGS will contain the quoted version of ARG. */ + char *full_arg = (char *) xmalloc ((len + 1) * 2); + /* These are pointers used to navigate the strings above. */ + char *tmp_arg = arg; + char *tmp_full_arg = full_arg; + int need_quote = 0; + + hex2bin (p, (gdb_byte *) arg, len); + arg[len] = '\0'; + + while (*tmp_arg != '\0') + { + switch (*tmp_arg) + { + case '\n': + /* Quote \n. */ + *tmp_full_arg = '\''; + ++tmp_full_arg; + need_quote = 1; + break; + + case '\'': + /* Quote single quote. */ + *tmp_full_arg = '\\'; + ++tmp_full_arg; + break; + + default: + break; + } + + *tmp_full_arg = *tmp_arg; + ++tmp_full_arg; + ++tmp_arg; + } + + if (need_quote) + *tmp_full_arg++ = '\''; + + /* Finish FULL_ARG and push it into the vector containing + the argv. */ + *tmp_full_arg = '\0'; + if (i == 0) + new_program_name = full_arg; + else + new_argv.push_back (full_arg); + xfree (arg); + } + if (*next_p) + next_p++; + } + new_argv.push_back (NULL); + + if (new_program_name == NULL) + { + /* GDB didn't specify a program to run. Use the program from the + last run with the new argument list. */ + if (program_path.get () == NULL) + { + write_enn (own_buf); + free_vector_argv (new_argv); + return 0; + } + } + else + program_path.set (gdb::unique_xmalloc_ptr (new_program_name)); + + /* Free the old argv and install the new one. */ + free_vector_argv (program_args); + program_args = new_argv; + + create_inferior (program_path.get (), program_args); + + if (cs.last_status.kind == TARGET_WAITKIND_STOPPED) + { + prepare_resume_reply (own_buf, cs.last_ptid, &cs.last_status); + + /* In non-stop, sending a resume reply doesn't set the general + thread, but GDB assumes a vRun sets it (this is so GDB can + query which is the main thread of the new inferior. */ + if (non_stop) + cs.general_thread = cs.last_ptid; + + return 1; + } + else + { + write_enn (own_buf); + return 0; + } +} + +/* Kill process. Return 1 if successful, 0 if failure. */ +static int +handle_v_kill (char *own_buf) +{ + client_state &cs = get_client_state (); + int pid; + char *p = &own_buf[6]; + if (cs.multi_process) + pid = strtol (p, NULL, 16); + else + pid = signal_pid; + + process_info *proc = find_process_pid (pid); + + if (proc != nullptr && kill_inferior (proc) == 0) + { + cs.last_status.kind = TARGET_WAITKIND_SIGNALLED; + cs.last_status.value.sig = GDB_SIGNAL_KILL; + cs.last_ptid = ptid_t (pid); + discard_queued_stop_replies (cs.last_ptid); + write_ok (own_buf); + return 1; + } + else + { + write_enn (own_buf); + return 0; + } +} + +/* Handle all of the extended 'v' packets. */ +void +handle_v_requests (char *own_buf, int packet_len, int *new_packet_len) +{ + client_state &cs = get_client_state (); + if (!disable_packet_vCont) + { + if (strcmp (own_buf, "vCtrlC") == 0) + { + (*the_target->request_interrupt) (); + write_ok (own_buf); + return; + } + + if (startswith (own_buf, "vCont;")) + { + handle_v_cont (own_buf); + return; + } + + if (startswith (own_buf, "vCont?")) + { + strcpy (own_buf, "vCont;c;C;t"); + + if (target_supports_hardware_single_step () + || target_supports_software_single_step () + || !cs.vCont_supported) + { + /* If target supports single step either by hardware or by + software, add actions s and S to the list of supported + actions. On the other hand, if GDB doesn't request the + supported vCont actions in qSupported packet, add s and + S to the list too. */ + own_buf = own_buf + strlen (own_buf); + strcpy (own_buf, ";s;S"); + } + + if (target_supports_range_stepping ()) + { + own_buf = own_buf + strlen (own_buf); + strcpy (own_buf, ";r"); + } + return; + } + } + + if (startswith (own_buf, "vFile:") + && handle_vFile (own_buf, packet_len, new_packet_len)) + return; + + if (startswith (own_buf, "vAttach;")) + { + if ((!extended_protocol || !cs.multi_process) && target_running ()) + { + fprintf (stderr, "Already debugging a process\n"); + write_enn (own_buf); + return; + } + handle_v_attach (own_buf); + return; + } + + if (startswith (own_buf, "vRun;")) + { + if ((!extended_protocol || !cs.multi_process) && target_running ()) + { + fprintf (stderr, "Already debugging a process\n"); + write_enn (own_buf); + return; + } + handle_v_run (own_buf); + return; + } + + if (startswith (own_buf, "vKill;")) + { + if (!target_running ()) + { + fprintf (stderr, "No process to kill\n"); + write_enn (own_buf); + return; + } + handle_v_kill (own_buf); + return; + } + + if (handle_notif_ack (own_buf, packet_len)) + return; + + /* Otherwise we didn't know what packet it was. Say we didn't + understand it. */ + own_buf[0] = 0; + return; +} + +/* Resume thread and wait for another event. In non-stop mode, + don't really wait here, but return immediatelly to the event + loop. */ +static void +myresume (char *own_buf, int step, int sig) +{ + client_state &cs = get_client_state (); + struct thread_resume resume_info[2]; + int n = 0; + int valid_cont_thread; + + valid_cont_thread = (cs.cont_thread != null_ptid + && cs.cont_thread != minus_one_ptid); + + if (step || sig || valid_cont_thread) + { + resume_info[0].thread = current_ptid; + if (step) + resume_info[0].kind = resume_step; + else + resume_info[0].kind = resume_continue; + resume_info[0].sig = sig; + n++; + } + + if (!valid_cont_thread) + { + resume_info[n].thread = minus_one_ptid; + resume_info[n].kind = resume_continue; + resume_info[n].sig = 0; + n++; + } + + resume (resume_info, n); +} + +/* Callback for for_each_thread. Make a new stop reply for each + stopped thread. */ + +static void +queue_stop_reply_callback (thread_info *thread) +{ + /* For now, assume targets that don't have this callback also don't + manage the thread's last_status field. */ + if (the_target->thread_stopped == NULL) + { + struct vstop_notif *new_notif = new struct vstop_notif; + + new_notif->ptid = thread->id; + new_notif->status = thread->last_status; + /* Pass the last stop reply back to GDB, but don't notify + yet. */ + notif_event_enque (¬if_stop, new_notif); + } + else + { + if (thread_stopped (thread)) + { + if (debug_threads) + { + std::string status_string + = target_waitstatus_to_string (&thread->last_status); + + debug_printf ("Reporting thread %s as already stopped with %s\n", + target_pid_to_str (thread->id), + status_string.c_str ()); + } + + gdb_assert (thread->last_status.kind != TARGET_WAITKIND_IGNORE); + + /* Pass the last stop reply back to GDB, but don't notify + yet. */ + queue_stop_reply (thread->id, &thread->last_status); + } + } +} + +/* Set this inferior threads's state as "want-stopped". We won't + resume this thread until the client gives us another action for + it. */ + +static void +gdb_wants_thread_stopped (thread_info *thread) +{ + thread->last_resume_kind = resume_stop; + + if (thread->last_status.kind == TARGET_WAITKIND_IGNORE) + { + /* Most threads are stopped implicitly (all-stop); tag that with + signal 0. */ + thread->last_status.kind = TARGET_WAITKIND_STOPPED; + thread->last_status.value.sig = GDB_SIGNAL_0; + } +} + +/* Set all threads' states as "want-stopped". */ + +static void +gdb_wants_all_threads_stopped (void) +{ + for_each_thread (gdb_wants_thread_stopped); +} + +/* Callback for for_each_thread. If the thread is stopped with an + interesting event, mark it as having a pending event. */ + +static void +set_pending_status_callback (thread_info *thread) +{ + if (thread->last_status.kind != TARGET_WAITKIND_STOPPED + || (thread->last_status.value.sig != GDB_SIGNAL_0 + /* A breakpoint, watchpoint or finished step from a previous + GDB run isn't considered interesting for a new GDB run. + If we left those pending, the new GDB could consider them + random SIGTRAPs. This leaves out real async traps. We'd + have to peek into the (target-specific) siginfo to + distinguish those. */ + && thread->last_status.value.sig != GDB_SIGNAL_TRAP)) + thread->status_pending_p = 1; +} + +/* Status handler for the '?' packet. */ + +static void +handle_status (char *own_buf) +{ + client_state &cs = get_client_state (); + + /* GDB is connected, don't forward events to the target anymore. */ + for_each_process ([] (process_info *process) { + process->gdb_detached = 0; + }); + + /* In non-stop mode, we must send a stop reply for each stopped + thread. In all-stop mode, just send one for the first stopped + thread we find. */ + + if (non_stop) + { + for_each_thread (queue_stop_reply_callback); + + /* The first is sent immediatly. OK is sent if there is no + stopped thread, which is the same handling of the vStopped + packet (by design). */ + notif_write_event (¬if_stop, cs.own_buf); + } + else + { + thread_info *thread = NULL; + + pause_all (0); + stabilize_threads (); + gdb_wants_all_threads_stopped (); + + /* We can only report one status, but we might be coming out of + non-stop -- if more than one thread is stopped with + interesting events, leave events for the threads we're not + reporting now pending. They'll be reported the next time the + threads are resumed. Start by marking all interesting events + as pending. */ + for_each_thread (set_pending_status_callback); + + /* Prefer the last thread that reported an event to GDB (even if + that was a GDB_SIGNAL_TRAP). */ + if (cs.last_status.kind != TARGET_WAITKIND_IGNORE + && cs.last_status.kind != TARGET_WAITKIND_EXITED + && cs.last_status.kind != TARGET_WAITKIND_SIGNALLED) + thread = find_thread_ptid (cs.last_ptid); + + /* If the last event thread is not found for some reason, look + for some other thread that might have an event to report. */ + if (thread == NULL) + thread = find_thread ([] (thread_info *thr_arg) + { + return thr_arg->status_pending_p; + }); + + /* If we're still out of luck, simply pick the first thread in + the thread list. */ + if (thread == NULL) + thread = get_first_thread (); + + if (thread != NULL) + { + struct thread_info *tp = (struct thread_info *) thread; + + /* We're reporting this event, so it's no longer + pending. */ + tp->status_pending_p = 0; + + /* GDB assumes the current thread is the thread we're + reporting the status for. */ + cs.general_thread = thread->id; + set_desired_thread (); + + gdb_assert (tp->last_status.kind != TARGET_WAITKIND_IGNORE); + prepare_resume_reply (own_buf, tp->id, &tp->last_status); + } + else + strcpy (own_buf, "W00"); + } +} + +static void +gdbserver_version (void) +{ + printf ("GNU gdbserver %s%s\n" + "Copyright (C) 2020 Free Software Foundation, Inc.\n" + "gdbserver is free software, covered by the " + "GNU General Public License.\n" + "This gdbserver was configured as \"%s\"\n", + PKGVERSION, version, host_name); +} + +static void +gdbserver_usage (FILE *stream) +{ + fprintf (stream, "Usage:\tgdbserver [OPTIONS] COMM PROG [ARGS ...]\n" + "\tgdbserver [OPTIONS] --attach COMM PID\n" + "\tgdbserver [OPTIONS] --multi COMM\n" + "\n" + "COMM may either be a tty device (for serial debugging),\n" + "HOST:PORT to listen for a TCP connection, or '-' or 'stdio' to use \n" + "stdin/stdout of gdbserver.\n" + "PROG is the executable program. ARGS are arguments passed to inferior.\n" + "PID is the process ID to attach to, when --attach is specified.\n" + "\n" + "Operating modes:\n" + "\n" + " --attach Attach to running process PID.\n" + " --multi Start server without a specific program, and\n" + " only quit when explicitly commanded.\n" + " --once Exit after the first connection has closed.\n" + " --help Print this message and then exit.\n" + " --version Display version information and exit.\n" + "\n" + "Other options:\n" + "\n" + " --wrapper WRAPPER -- Run WRAPPER to start new programs.\n" + " --disable-randomization\n" + " Run PROG with address space randomization disabled.\n" + " --no-disable-randomization\n" + " Don't disable address space randomization when\n" + " starting PROG.\n" + " --startup-with-shell\n" + " Start PROG using a shell. I.e., execs a shell that\n" + " then execs PROG. (default)\n" + " --no-startup-with-shell\n" + " Exec PROG directly instead of using a shell.\n" + " Disables argument globbing and variable substitution\n" + " on UNIX-like systems.\n" + "\n" + "Debug options:\n" + "\n" + " --debug Enable general debugging output.\n" + " --debug-format=OPT1[,OPT2,...]\n" + " Specify extra content in debugging output.\n" + " Options:\n" + " all\n" + " none\n" + " timestamp\n" + " --remote-debug Enable remote protocol debugging output.\n" + " --disable-packet=OPT1[,OPT2,...]\n" + " Disable support for RSP packets or features.\n" + " Options:\n" + " vCont, Tthread, qC, qfThreadInfo and \n" + " threads (disable all threading packets).\n" + "\n" + "For more information, consult the GDB manual (available as on-line \n" + "info or a printed manual).\n"); + if (REPORT_BUGS_TO[0] && stream == stdout) + fprintf (stream, "Report bugs to \"%s\".\n", REPORT_BUGS_TO); +} + +static void +gdbserver_show_disableable (FILE *stream) +{ + fprintf (stream, "Disableable packets:\n" + " vCont \tAll vCont packets\n" + " qC \tQuerying the current thread\n" + " qfThreadInfo\tThread listing\n" + " Tthread \tPassing the thread specifier in the " + "T stop reply packet\n" + " threads \tAll of the above\n"); +} + +static void +kill_inferior_callback (process_info *process) +{ + kill_inferior (process); + discard_queued_stop_replies (ptid_t (process->pid)); +} + +/* Call this when exiting gdbserver with possible inferiors that need + to be killed or detached from. */ + +static void +detach_or_kill_for_exit (void) +{ + /* First print a list of the inferiors we will be killing/detaching. + This is to assist the user, for example, in case the inferior unexpectedly + dies after we exit: did we screw up or did the inferior exit on its own? + Having this info will save some head-scratching. */ + + if (have_started_inferiors_p ()) + { + fprintf (stderr, "Killing process(es):"); + + for_each_process ([] (process_info *process) { + if (!process->attached) + fprintf (stderr, " %d", process->pid); + }); + + fprintf (stderr, "\n"); + } + if (have_attached_inferiors_p ()) + { + fprintf (stderr, "Detaching process(es):"); + + for_each_process ([] (process_info *process) { + if (process->attached) + fprintf (stderr, " %d", process->pid); + }); + + fprintf (stderr, "\n"); + } + + /* Now we can kill or detach the inferiors. */ + for_each_process ([] (process_info *process) { + int pid = process->pid; + + if (process->attached) + detach_inferior (process); + else + kill_inferior (process); + + discard_queued_stop_replies (ptid_t (pid)); + }); +} + +/* Value that will be passed to exit(3) when gdbserver exits. */ +static int exit_code; + +/* Wrapper for detach_or_kill_for_exit that catches and prints + errors. */ + +static void +detach_or_kill_for_exit_cleanup () +{ + try + { + detach_or_kill_for_exit (); + } + catch (const gdb_exception &exception) + { + fflush (stdout); + fprintf (stderr, "Detach or kill failed: %s\n", + exception.what ()); + exit_code = 1; + } +} + +/* Main function. This is called by the real "main" function, + wrapped in a TRY_CATCH that handles any uncaught exceptions. */ + +static void ATTRIBUTE_NORETURN +captured_main (int argc, char *argv[]) +{ + int bad_attach; + int pid; + char *arg_end; + const char *port = NULL; + char **next_arg = &argv[1]; + volatile int multi_mode = 0; + volatile int attach = 0; + int was_running; + bool selftest = false; +#if GDB_SELF_TEST + const char *selftest_filter = NULL; +#endif + + current_directory = getcwd (NULL, 0); + client_state &cs = get_client_state (); + + if (current_directory == NULL) + { + error (_("Could not find current working directory: %s"), + safe_strerror (errno)); + } + + while (*next_arg != NULL && **next_arg == '-') + { + if (strcmp (*next_arg, "--version") == 0) + { + gdbserver_version (); + exit (0); + } + else if (strcmp (*next_arg, "--help") == 0) + { + gdbserver_usage (stdout); + exit (0); + } + else if (strcmp (*next_arg, "--attach") == 0) + attach = 1; + else if (strcmp (*next_arg, "--multi") == 0) + multi_mode = 1; + else if (strcmp (*next_arg, "--wrapper") == 0) + { + char **tmp; + + next_arg++; + + tmp = next_arg; + while (*next_arg != NULL && strcmp (*next_arg, "--") != 0) + { + wrapper_argv += *next_arg; + wrapper_argv += ' '; + next_arg++; + } + + if (!wrapper_argv.empty ()) + { + /* Erase the last whitespace. */ + wrapper_argv.erase (wrapper_argv.end () - 1); + } + + if (next_arg == tmp || *next_arg == NULL) + { + gdbserver_usage (stderr); + exit (1); + } + + /* Consume the "--". */ + *next_arg = NULL; + } + else if (strcmp (*next_arg, "--debug") == 0) + debug_threads = 1; + else if (startswith (*next_arg, "--debug-format=")) + { + std::string error_msg + = parse_debug_format_options ((*next_arg) + + sizeof ("--debug-format=") - 1, 0); + + if (!error_msg.empty ()) + { + fprintf (stderr, "%s", error_msg.c_str ()); + exit (1); + } + } + else if (strcmp (*next_arg, "--remote-debug") == 0) + remote_debug = 1; + else if (startswith (*next_arg, "--debug-file=")) + debug_set_output ((*next_arg) + sizeof ("--debug-file=") -1); + else if (strcmp (*next_arg, "--disable-packet") == 0) + { + gdbserver_show_disableable (stdout); + exit (0); + } + else if (startswith (*next_arg, "--disable-packet=")) + { + char *packets = *next_arg += sizeof ("--disable-packet=") - 1; + char *saveptr; + for (char *tok = strtok_r (packets, ",", &saveptr); + tok != NULL; + tok = strtok_r (NULL, ",", &saveptr)) + { + if (strcmp ("vCont", tok) == 0) + disable_packet_vCont = true; + else if (strcmp ("Tthread", tok) == 0) + disable_packet_Tthread = true; + else if (strcmp ("qC", tok) == 0) + disable_packet_qC = true; + else if (strcmp ("qfThreadInfo", tok) == 0) + disable_packet_qfThreadInfo = true; + else if (strcmp ("threads", tok) == 0) + { + disable_packet_vCont = true; + disable_packet_Tthread = true; + disable_packet_qC = true; + disable_packet_qfThreadInfo = true; + } + else + { + fprintf (stderr, "Don't know how to disable \"%s\".\n\n", + tok); + gdbserver_show_disableable (stderr); + exit (1); + } + } + } + else if (strcmp (*next_arg, "-") == 0) + { + /* "-" specifies a stdio connection and is a form of port + specification. */ + port = STDIO_CONNECTION_NAME; + next_arg++; + break; + } + else if (strcmp (*next_arg, "--disable-randomization") == 0) + cs.disable_randomization = 1; + else if (strcmp (*next_arg, "--no-disable-randomization") == 0) + cs.disable_randomization = 0; + else if (strcmp (*next_arg, "--startup-with-shell") == 0) + startup_with_shell = true; + else if (strcmp (*next_arg, "--no-startup-with-shell") == 0) + startup_with_shell = false; + else if (strcmp (*next_arg, "--once") == 0) + run_once = true; + else if (strcmp (*next_arg, "--selftest") == 0) + selftest = true; + else if (startswith (*next_arg, "--selftest=")) + { + selftest = true; +#if GDB_SELF_TEST + selftest_filter = *next_arg + strlen ("--selftest="); +#endif + } + else + { + fprintf (stderr, "Unknown argument: %s\n", *next_arg); + exit (1); + } + + next_arg++; + continue; + } + + if (port == NULL) + { + port = *next_arg; + next_arg++; + } + if ((port == NULL || (!attach && !multi_mode && *next_arg == NULL)) + && !selftest) + { + gdbserver_usage (stderr); + exit (1); + } + + /* Remember stdio descriptors. LISTEN_DESC must not be listed, it will be + opened by remote_prepare. */ + notice_open_fds (); + + save_original_signals_state (false); + + /* We need to know whether the remote connection is stdio before + starting the inferior. Inferiors created in this scenario have + stdin,stdout redirected. So do this here before we call + start_inferior. */ + if (port != NULL) + remote_prepare (port); + + bad_attach = 0; + pid = 0; + + /* --attach used to come after PORT, so allow it there for + compatibility. */ + if (*next_arg != NULL && strcmp (*next_arg, "--attach") == 0) + { + attach = 1; + next_arg++; + } + + if (attach + && (*next_arg == NULL + || (*next_arg)[0] == '\0' + || (pid = strtoul (*next_arg, &arg_end, 0)) == 0 + || *arg_end != '\0' + || next_arg[1] != NULL)) + bad_attach = 1; + + if (bad_attach) + { + gdbserver_usage (stderr); + exit (1); + } + + /* Gather information about the environment. */ + our_environ = gdb_environ::from_host_environ (); + + initialize_async_io (); + initialize_low (); + have_job_control (); + initialize_event_loop (); + if (target_supports_tracepoints ()) + initialize_tracepoint (); + + mem_buf = (unsigned char *) xmalloc (PBUFSIZ); + + if (selftest) + { +#if GDB_SELF_TEST + selftests::run_tests (selftest_filter); +#else + printf (_("Selftests have been disabled for this build.\n")); +#endif + throw_quit ("Quit"); + } + + if (pid == 0 && *next_arg != NULL) + { + int i, n; + + n = argc - (next_arg - argv); + program_path.set (make_unique_xstrdup (next_arg[0])); + for (i = 1; i < n; i++) + program_args.push_back (xstrdup (next_arg[i])); + program_args.push_back (NULL); + + /* Wait till we are at first instruction in program. */ + create_inferior (program_path.get (), program_args); + + /* We are now (hopefully) stopped at the first instruction of + the target process. This assumes that the target process was + successfully created. */ + } + else if (pid != 0) + { + if (attach_inferior (pid) == -1) + error ("Attaching not supported on this target"); + + /* Otherwise succeeded. */ + } + else + { + cs.last_status.kind = TARGET_WAITKIND_EXITED; + cs.last_status.value.integer = 0; + cs.last_ptid = minus_one_ptid; + } + + SCOPE_EXIT { detach_or_kill_for_exit_cleanup (); }; + + /* Don't report shared library events on the initial connection, + even if some libraries are preloaded. Avoids the "stopped by + shared library event" notice on gdb side. */ + dlls_changed = 0; + + if (cs.last_status.kind == TARGET_WAITKIND_EXITED + || cs.last_status.kind == TARGET_WAITKIND_SIGNALLED) + was_running = 0; + else + was_running = 1; + + if (!was_running && !multi_mode) + error ("No program to debug"); + + while (1) + { + cs.noack_mode = 0; + cs.multi_process = 0; + cs.report_fork_events = 0; + cs.report_vfork_events = 0; + cs.report_exec_events = 0; + /* Be sure we're out of tfind mode. */ + cs.current_traceframe = -1; + cs.cont_thread = null_ptid; + cs.swbreak_feature = 0; + cs.hwbreak_feature = 0; + cs.vCont_supported = 0; + + remote_open (port); + + try + { + /* Wait for events. This will return when all event sources + are removed from the event loop. */ + start_event_loop (); + + /* If an exit was requested (using the "monitor exit" + command), terminate now. */ + if (exit_requested) + throw_quit ("Quit"); + + /* The only other way to get here is for getpkt to fail: + + - If --once was specified, we're done. + + - If not in extended-remote mode, and we're no longer + debugging anything, simply exit: GDB has disconnected + after processing the last process exit. + + - Otherwise, close the connection and reopen it at the + top of the loop. */ + if (run_once || (!extended_protocol && !target_running ())) + throw_quit ("Quit"); + + fprintf (stderr, + "Remote side has terminated connection. " + "GDBserver will reopen the connection.\n"); + + /* Get rid of any pending statuses. An eventual reconnection + (by the same GDB instance or another) will refresh all its + state from scratch. */ + discard_queued_stop_replies (minus_one_ptid); + for_each_thread ([] (thread_info *thread) + { + thread->status_pending_p = 0; + }); + + if (tracing) + { + if (disconnected_tracing) + { + /* Try to enable non-stop/async mode, so we we can + both wait for an async socket accept, and handle + async target events simultaneously. There's also + no point either in having the target always stop + all threads, when we're going to pass signals + down without informing GDB. */ + if (!non_stop) + { + if (start_non_stop (1)) + non_stop = 1; + + /* Detaching implicitly resumes all threads; + simply disconnecting does not. */ + } + } + else + { + fprintf (stderr, + "Disconnected tracing disabled; " + "stopping trace run.\n"); + stop_tracing (); + } + } + } + catch (const gdb_exception_error &exception) + { + fflush (stdout); + fprintf (stderr, "gdbserver: %s\n", exception.what ()); + + if (response_needed) + { + write_enn (cs.own_buf); + putpkt (cs.own_buf); + } + + if (run_once) + throw_quit ("Quit"); + } + } +} + +/* Main function. */ + +int +main (int argc, char *argv[]) +{ + + try + { + captured_main (argc, argv); + } + catch (const gdb_exception &exception) + { + if (exception.reason == RETURN_ERROR) + { + fflush (stdout); + fprintf (stderr, "%s\n", exception.what ()); + fprintf (stderr, "Exiting\n"); + exit_code = 1; + } + + exit (exit_code); + } + + gdb_assert_not_reached ("captured_main should never return"); +} + +/* Process options coming from Z packets for a breakpoint. PACKET is + the packet buffer. *PACKET is updated to point to the first char + after the last processed option. */ + +static void +process_point_options (struct gdb_breakpoint *bp, const char **packet) +{ + const char *dataptr = *packet; + int persist; + + /* Check if data has the correct format. */ + if (*dataptr != ';') + return; + + dataptr++; + + while (*dataptr) + { + if (*dataptr == ';') + ++dataptr; + + if (*dataptr == 'X') + { + /* Conditional expression. */ + if (debug_threads) + debug_printf ("Found breakpoint condition.\n"); + if (!add_breakpoint_condition (bp, &dataptr)) + dataptr = strchrnul (dataptr, ';'); + } + else if (startswith (dataptr, "cmds:")) + { + dataptr += strlen ("cmds:"); + if (debug_threads) + debug_printf ("Found breakpoint commands %s.\n", dataptr); + persist = (*dataptr == '1'); + dataptr += 2; + if (add_breakpoint_commands (bp, &dataptr, persist)) + dataptr = strchrnul (dataptr, ';'); + } + else + { + fprintf (stderr, "Unknown token %c, ignoring.\n", + *dataptr); + /* Skip tokens until we find one that we recognize. */ + dataptr = strchrnul (dataptr, ';'); + } + } + *packet = dataptr; +} + +/* Event loop callback that handles a serial event. The first byte in + the serial buffer gets us here. We expect characters to arrive at + a brisk pace, so we read the rest of the packet with a blocking + getpkt call. */ + +static int +process_serial_event (void) +{ + client_state &cs = get_client_state (); + int signal; + unsigned int len; + CORE_ADDR mem_addr; + unsigned char sig; + int packet_len; + int new_packet_len = -1; + + disable_async_io (); + + response_needed = false; + packet_len = getpkt (cs.own_buf); + if (packet_len <= 0) + { + remote_close (); + /* Force an event loop break. */ + return -1; + } + response_needed = true; + + char ch = cs.own_buf[0]; + switch (ch) + { + case 'q': + handle_query (cs.own_buf, packet_len, &new_packet_len); + break; + case 'Q': + handle_general_set (cs.own_buf); + break; + case 'D': + handle_detach (cs.own_buf); + break; + case '!': + extended_protocol = true; + write_ok (cs.own_buf); + break; + case '?': + handle_status (cs.own_buf); + break; + case 'H': + if (cs.own_buf[1] == 'c' || cs.own_buf[1] == 'g' || cs.own_buf[1] == 's') + { + require_running_or_break (cs.own_buf); + + ptid_t thread_id = read_ptid (&cs.own_buf[2], NULL); + + if (thread_id == null_ptid || thread_id == minus_one_ptid) + thread_id = null_ptid; + else if (thread_id.is_pid ()) + { + /* The ptid represents a pid. */ + thread_info *thread = find_any_thread_of_pid (thread_id.pid ()); + + if (thread == NULL) + { + write_enn (cs.own_buf); + break; + } + + thread_id = thread->id; + } + else + { + /* The ptid represents a lwp/tid. */ + if (find_thread_ptid (thread_id) == NULL) + { + write_enn (cs.own_buf); + break; + } + } + + if (cs.own_buf[1] == 'g') + { + if (thread_id == null_ptid) + { + /* GDB is telling us to choose any thread. Check if + the currently selected thread is still valid. If + it is not, select the first available. */ + thread_info *thread = find_thread_ptid (cs.general_thread); + if (thread == NULL) + thread = get_first_thread (); + thread_id = thread->id; + } + + cs.general_thread = thread_id; + set_desired_thread (); + gdb_assert (current_thread != NULL); + } + else if (cs.own_buf[1] == 'c') + cs.cont_thread = thread_id; + + write_ok (cs.own_buf); + } + else + { + /* Silently ignore it so that gdb can extend the protocol + without compatibility headaches. */ + cs.own_buf[0] = '\0'; + } + break; + case 'g': + require_running_or_break (cs.own_buf); + if (cs.current_traceframe >= 0) + { + struct regcache *regcache + = new_register_cache (current_target_desc ()); + + if (fetch_traceframe_registers (cs.current_traceframe, + regcache, -1) == 0) + registers_to_string (regcache, cs.own_buf); + else + write_enn (cs.own_buf); + free_register_cache (regcache); + } + else + { + struct regcache *regcache; + + if (!set_desired_thread ()) + write_enn (cs.own_buf); + else + { + regcache = get_thread_regcache (current_thread, 1); + registers_to_string (regcache, cs.own_buf); + } + } + break; + case 'G': + require_running_or_break (cs.own_buf); + if (cs.current_traceframe >= 0) + write_enn (cs.own_buf); + else + { + struct regcache *regcache; + + if (!set_desired_thread ()) + write_enn (cs.own_buf); + else + { + regcache = get_thread_regcache (current_thread, 1); + registers_from_string (regcache, &cs.own_buf[1]); + write_ok (cs.own_buf); + } + } + break; + case 'm': + { + require_running_or_break (cs.own_buf); + decode_m_packet (&cs.own_buf[1], &mem_addr, &len); + int res = gdb_read_memory (mem_addr, mem_buf, len); + if (res < 0) + write_enn (cs.own_buf); + else + bin2hex (mem_buf, cs.own_buf, res); + } + break; + case 'M': + require_running_or_break (cs.own_buf); + decode_M_packet (&cs.own_buf[1], &mem_addr, &len, &mem_buf); + if (gdb_write_memory (mem_addr, mem_buf, len) == 0) + write_ok (cs.own_buf); + else + write_enn (cs.own_buf); + break; + case 'X': + require_running_or_break (cs.own_buf); + if (decode_X_packet (&cs.own_buf[1], packet_len - 1, + &mem_addr, &len, &mem_buf) < 0 + || gdb_write_memory (mem_addr, mem_buf, len) != 0) + write_enn (cs.own_buf); + else + write_ok (cs.own_buf); + break; + case 'C': + require_running_or_break (cs.own_buf); + hex2bin (cs.own_buf + 1, &sig, 1); + if (gdb_signal_to_host_p ((enum gdb_signal) sig)) + signal = gdb_signal_to_host ((enum gdb_signal) sig); + else + signal = 0; + myresume (cs.own_buf, 0, signal); + break; + case 'S': + require_running_or_break (cs.own_buf); + hex2bin (cs.own_buf + 1, &sig, 1); + if (gdb_signal_to_host_p ((enum gdb_signal) sig)) + signal = gdb_signal_to_host ((enum gdb_signal) sig); + else + signal = 0; + myresume (cs.own_buf, 1, signal); + break; + case 'c': + require_running_or_break (cs.own_buf); + signal = 0; + myresume (cs.own_buf, 0, signal); + break; + case 's': + require_running_or_break (cs.own_buf); + signal = 0; + myresume (cs.own_buf, 1, signal); + break; + case 'Z': /* insert_ ... */ + /* Fallthrough. */ + case 'z': /* remove_ ... */ + { + char *dataptr; + ULONGEST addr; + int kind; + char type = cs.own_buf[1]; + int res; + const int insert = ch == 'Z'; + const char *p = &cs.own_buf[3]; + + p = unpack_varlen_hex (p, &addr); + kind = strtol (p + 1, &dataptr, 16); + + if (insert) + { + struct gdb_breakpoint *bp; + + bp = set_gdb_breakpoint (type, addr, kind, &res); + if (bp != NULL) + { + res = 0; + + /* GDB may have sent us a list of *point parameters to + be evaluated on the target's side. Read such list + here. If we already have a list of parameters, GDB + is telling us to drop that list and use this one + instead. */ + clear_breakpoint_conditions_and_commands (bp); + const char *options = dataptr; + process_point_options (bp, &options); + } + } + else + res = delete_gdb_breakpoint (type, addr, kind); + + if (res == 0) + write_ok (cs.own_buf); + else if (res == 1) + /* Unsupported. */ + cs.own_buf[0] = '\0'; + else + write_enn (cs.own_buf); + break; + } + case 'k': + response_needed = false; + if (!target_running ()) + /* The packet we received doesn't make sense - but we can't + reply to it, either. */ + return 0; + + fprintf (stderr, "Killing all inferiors\n"); + + for_each_process (kill_inferior_callback); + + /* When using the extended protocol, we wait with no program + running. The traditional protocol will exit instead. */ + if (extended_protocol) + { + cs.last_status.kind = TARGET_WAITKIND_EXITED; + cs.last_status.value.sig = GDB_SIGNAL_KILL; + return 0; + } + else + exit (0); + + case 'T': + { + require_running_or_break (cs.own_buf); + + ptid_t thread_id = read_ptid (&cs.own_buf[1], NULL); + if (find_thread_ptid (thread_id) == NULL) + { + write_enn (cs.own_buf); + break; + } + + if (mythread_alive (thread_id)) + write_ok (cs.own_buf); + else + write_enn (cs.own_buf); + } + break; + case 'R': + response_needed = false; + + /* Restarting the inferior is only supported in the extended + protocol. */ + if (extended_protocol) + { + if (target_running ()) + for_each_process (kill_inferior_callback); + + fprintf (stderr, "GDBserver restarting\n"); + + /* Wait till we are at 1st instruction in prog. */ + if (program_path.get () != NULL) + { + create_inferior (program_path.get (), program_args); + + if (cs.last_status.kind == TARGET_WAITKIND_STOPPED) + { + /* Stopped at the first instruction of the target + process. */ + cs.general_thread = cs.last_ptid; + } + else + { + /* Something went wrong. */ + cs.general_thread = null_ptid; + } + } + else + { + cs.last_status.kind = TARGET_WAITKIND_EXITED; + cs.last_status.value.sig = GDB_SIGNAL_KILL; + } + return 0; + } + else + { + /* It is a request we don't understand. Respond with an + empty packet so that gdb knows that we don't support this + request. */ + cs.own_buf[0] = '\0'; + break; + } + case 'v': + /* Extended (long) request. */ + handle_v_requests (cs.own_buf, packet_len, &new_packet_len); + break; + + default: + /* It is a request we don't understand. Respond with an empty + packet so that gdb knows that we don't support this + request. */ + cs.own_buf[0] = '\0'; + break; + } + + if (new_packet_len != -1) + putpkt_binary (cs.own_buf, new_packet_len); + else + putpkt (cs.own_buf); + + response_needed = false; + + if (exit_requested) + return -1; + + return 0; +} + +/* Event-loop callback for serial events. */ + +int +handle_serial_event (int err, gdb_client_data client_data) +{ + if (debug_threads) + debug_printf ("handling possible serial event\n"); + + /* Really handle it. */ + if (process_serial_event () < 0) + return -1; + + /* Be sure to not change the selected thread behind GDB's back. + Important in the non-stop mode asynchronous protocol. */ + set_desired_thread (); + + return 0; +} + +/* Push a stop notification on the notification queue. */ + +static void +push_stop_notification (ptid_t ptid, struct target_waitstatus *status) +{ + struct vstop_notif *vstop_notif = new struct vstop_notif; + + vstop_notif->status = *status; + vstop_notif->ptid = ptid; + /* Push Stop notification. */ + notif_push (¬if_stop, vstop_notif); +} + +/* Event-loop callback for target events. */ + +int +handle_target_event (int err, gdb_client_data client_data) +{ + client_state &cs = get_client_state (); + if (debug_threads) + debug_printf ("handling possible target event\n"); + + cs.last_ptid = mywait (minus_one_ptid, &cs.last_status, + TARGET_WNOHANG, 1); + + if (cs.last_status.kind == TARGET_WAITKIND_NO_RESUMED) + { + if (gdb_connected () && report_no_resumed) + push_stop_notification (null_ptid, &cs.last_status); + } + else if (cs.last_status.kind != TARGET_WAITKIND_IGNORE) + { + int pid = cs.last_ptid.pid (); + struct process_info *process = find_process_pid (pid); + int forward_event = !gdb_connected () || process->gdb_detached; + + if (cs.last_status.kind == TARGET_WAITKIND_EXITED + || cs.last_status.kind == TARGET_WAITKIND_SIGNALLED) + { + mark_breakpoints_out (process); + target_mourn_inferior (cs.last_ptid); + } + else if (cs.last_status.kind == TARGET_WAITKIND_THREAD_EXITED) + ; + else + { + /* We're reporting this thread as stopped. Update its + "want-stopped" state to what the client wants, until it + gets a new resume action. */ + current_thread->last_resume_kind = resume_stop; + current_thread->last_status = cs.last_status; + } + + if (forward_event) + { + if (!target_running ()) + { + /* The last process exited. We're done. */ + exit (0); + } + + if (cs.last_status.kind == TARGET_WAITKIND_EXITED + || cs.last_status.kind == TARGET_WAITKIND_SIGNALLED + || cs.last_status.kind == TARGET_WAITKIND_THREAD_EXITED) + ; + else + { + /* A thread stopped with a signal, but gdb isn't + connected to handle it. Pass it down to the + inferior, as if it wasn't being traced. */ + enum gdb_signal signal; + + if (debug_threads) + debug_printf ("GDB not connected; forwarding event %d for" + " [%s]\n", + (int) cs.last_status.kind, + target_pid_to_str (cs.last_ptid)); + + if (cs.last_status.kind == TARGET_WAITKIND_STOPPED) + signal = cs.last_status.value.sig; + else + signal = GDB_SIGNAL_0; + target_continue (cs.last_ptid, signal); + } + } + else + push_stop_notification (cs.last_ptid, &cs.last_status); + } + + /* Be sure to not change the selected thread behind GDB's back. + Important in the non-stop mode asynchronous protocol. */ + set_desired_thread (); + + return 0; +} + +#if GDB_SELF_TEST +namespace selftests +{ + +void +reset () +{} + +} // namespace selftests +#endif /* GDB_SELF_TEST */ diff --git a/gdbserver/symbol.c b/gdbserver/symbol.c deleted file mode 100644 index 467524f0faf..00000000000 --- a/gdbserver/symbol.c +++ /dev/null @@ -1,32 +0,0 @@ -/* Symbol manipulating routines for the remote server for GDB. - - Copyright (C) 2014-2020 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 . */ - -#include "server.h" -#include "gdbsupport/symbol.h" - -/* See gdbsupport/symbol.h. */ - -int -find_minimal_symbol_address (const char *name, CORE_ADDR *addr, - struct objfile *objfile) -{ - gdb_assert (objfile == NULL); - - return look_up_one_symbol (name, addr, 1) != 1; -} diff --git a/gdbserver/symbol.cc b/gdbserver/symbol.cc new file mode 100644 index 00000000000..467524f0faf --- /dev/null +++ b/gdbserver/symbol.cc @@ -0,0 +1,32 @@ +/* Symbol manipulating routines for the remote server for GDB. + + Copyright (C) 2014-2020 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 . */ + +#include "server.h" +#include "gdbsupport/symbol.h" + +/* See gdbsupport/symbol.h. */ + +int +find_minimal_symbol_address (const char *name, CORE_ADDR *addr, + struct objfile *objfile) +{ + gdb_assert (objfile == NULL); + + return look_up_one_symbol (name, addr, 1) != 1; +} diff --git a/gdbserver/target.c b/gdbserver/target.c deleted file mode 100644 index a4593cf6df9..00000000000 --- a/gdbserver/target.c +++ /dev/null @@ -1,395 +0,0 @@ -/* Target operations for the remote server for GDB. - Copyright (C) 2002-2020 Free Software Foundation, Inc. - - Contributed by MontaVista Software. - - 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 . */ - -#include "server.h" -#include "tracepoint.h" -#include "gdbsupport/byte-vector.h" - -process_stratum_target *the_target; - -int -set_desired_thread () -{ - client_state &cs = get_client_state (); - thread_info *found = find_thread_ptid (cs.general_thread); - - current_thread = found; - return (current_thread != NULL); -} - -/* The thread that was current before prepare_to_access_memory was - called. done_accessing_memory uses this to restore the previous - selected thread. */ -static ptid_t prev_general_thread; - -/* See target.h. */ - -int -prepare_to_access_memory (void) -{ - client_state &cs = get_client_state (); - - /* The first thread found. */ - struct thread_info *first = NULL; - /* The first stopped thread found. */ - struct thread_info *stopped = NULL; - /* The current general thread, if found. */ - struct thread_info *current = NULL; - - /* Save the general thread value, since prepare_to_access_memory could change - it. */ - prev_general_thread = cs.general_thread; - - if (the_target->prepare_to_access_memory != NULL) - { - int res; - - res = the_target->prepare_to_access_memory (); - if (res != 0) - return res; - } - - for_each_thread (prev_general_thread.pid (), [&] (thread_info *thread) - { - if (mythread_alive (thread->id)) - { - if (stopped == NULL && the_target->thread_stopped != NULL - && thread_stopped (thread)) - stopped = thread; - - if (first == NULL) - first = thread; - - if (current == NULL && prev_general_thread == thread->id) - current = thread; - } - }); - - /* The thread we end up choosing. */ - struct thread_info *thread; - - /* Prefer a stopped thread. If none is found, try the current - thread. Otherwise, take the first thread in the process. If - none is found, undo the effects of - target->prepare_to_access_memory() and return error. */ - if (stopped != NULL) - thread = stopped; - else if (current != NULL) - thread = current; - else if (first != NULL) - thread = first; - else - { - done_accessing_memory (); - return 1; - } - - current_thread = thread; - cs.general_thread = ptid_of (thread); - - return 0; -} - -/* See target.h. */ - -void -done_accessing_memory (void) -{ - client_state &cs = get_client_state (); - - if (the_target->done_accessing_memory != NULL) - the_target->done_accessing_memory (); - - /* Restore the previous selected thread. */ - cs.general_thread = prev_general_thread; - switch_to_thread (the_target, cs.general_thread); -} - -int -read_inferior_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) -{ - int res; - res = (*the_target->read_memory) (memaddr, myaddr, len); - check_mem_read (memaddr, myaddr, len); - return res; -} - -/* See target/target.h. */ - -int -target_read_memory (CORE_ADDR memaddr, gdb_byte *myaddr, ssize_t len) -{ - return read_inferior_memory (memaddr, myaddr, len); -} - -/* See target/target.h. */ - -int -target_read_uint32 (CORE_ADDR memaddr, uint32_t *result) -{ - return read_inferior_memory (memaddr, (gdb_byte *) result, sizeof (*result)); -} - -/* See target/target.h. */ - -int -target_write_memory (CORE_ADDR memaddr, const unsigned char *myaddr, - ssize_t len) -{ - /* Make a copy of the data because check_mem_write may need to - update it. */ - gdb::byte_vector buffer (myaddr, myaddr + len); - check_mem_write (memaddr, buffer.data (), myaddr, len); - return (*the_target->write_memory) (memaddr, buffer.data (), len); -} - -ptid_t -mywait (ptid_t ptid, struct target_waitstatus *ourstatus, int options, - int connected_wait) -{ - ptid_t ret; - - if (connected_wait) - server_waiting = 1; - - ret = target_wait (ptid, ourstatus, options); - - /* We don't expose _LOADED events to gdbserver core. See the - `dlls_changed' global. */ - if (ourstatus->kind == TARGET_WAITKIND_LOADED) - ourstatus->kind = TARGET_WAITKIND_STOPPED; - - /* If GDB is connected through TCP/serial, then GDBserver will most - probably be running on its own terminal/console, so it's nice to - print there why is GDBserver exiting. If however, GDB is - connected through stdio, then there's no need to spam the GDB - console with this -- the user will already see the exit through - regular GDB output, in that same terminal. */ - if (!remote_connection_is_stdio ()) - { - if (ourstatus->kind == TARGET_WAITKIND_EXITED) - fprintf (stderr, - "\nChild exited with status %d\n", ourstatus->value.integer); - else if (ourstatus->kind == TARGET_WAITKIND_SIGNALLED) - fprintf (stderr, "\nChild terminated with signal = 0x%x (%s)\n", - gdb_signal_to_host (ourstatus->value.sig), - gdb_signal_to_name (ourstatus->value.sig)); - } - - if (connected_wait) - server_waiting = 0; - - return ret; -} - -/* See target/target.h. */ - -void -target_stop_and_wait (ptid_t ptid) -{ - struct target_waitstatus status; - bool was_non_stop = non_stop; - struct thread_resume resume_info; - - resume_info.thread = ptid; - resume_info.kind = resume_stop; - resume_info.sig = GDB_SIGNAL_0; - (*the_target->resume) (&resume_info, 1); - - non_stop = true; - mywait (ptid, &status, 0, 0); - non_stop = was_non_stop; -} - -/* See target/target.h. */ - -ptid_t -target_wait (ptid_t ptid, struct target_waitstatus *status, int options) -{ - return (*the_target->wait) (ptid, status, options); -} - -/* See target/target.h. */ - -void -target_mourn_inferior (ptid_t ptid) -{ - (*the_target->mourn) (find_process_pid (ptid.pid ())); -} - -/* See target/target.h. */ - -void -target_continue_no_signal (ptid_t ptid) -{ - struct thread_resume resume_info; - - resume_info.thread = ptid; - resume_info.kind = resume_continue; - resume_info.sig = GDB_SIGNAL_0; - (*the_target->resume) (&resume_info, 1); -} - -/* See target/target.h. */ - -void -target_continue (ptid_t ptid, enum gdb_signal signal) -{ - struct thread_resume resume_info; - - resume_info.thread = ptid; - resume_info.kind = resume_continue; - resume_info.sig = gdb_signal_to_host (signal); - (*the_target->resume) (&resume_info, 1); -} - -/* See target/target.h. */ - -int -target_supports_multi_process (void) -{ - return (the_target->supports_multi_process != NULL ? - (*the_target->supports_multi_process) () : 0); -} - -int -start_non_stop (int nonstop) -{ - if (the_target->start_non_stop == NULL) - { - if (nonstop) - return -1; - else - return 0; - } - - return (*the_target->start_non_stop) (nonstop); -} - -void -set_target_ops (process_stratum_target *target) -{ - the_target = XNEW (process_stratum_target); - memcpy (the_target, target, sizeof (*the_target)); -} - -/* Convert pid to printable format. */ - -const char * -target_pid_to_str (ptid_t ptid) -{ - static char buf[80]; - - if (ptid == minus_one_ptid) - xsnprintf (buf, sizeof (buf), ""); - else if (ptid == null_ptid) - xsnprintf (buf, sizeof (buf), ""); - else if (ptid.tid () != 0) - xsnprintf (buf, sizeof (buf), "Thread %d.0x%lx", - ptid.pid (), ptid.tid ()); - else if (ptid.lwp () != 0) - xsnprintf (buf, sizeof (buf), "LWP %d.%ld", - ptid.pid (), ptid.lwp ()); - else - xsnprintf (buf, sizeof (buf), "Process %d", - ptid.pid ()); - - return buf; -} - -int -kill_inferior (process_info *proc) -{ - gdb_agent_about_to_close (proc->pid); - - return (*the_target->kill) (proc); -} - -/* Target can do hardware single step. */ - -int -target_can_do_hardware_single_step (void) -{ - return 1; -} - -/* Default implementation for breakpoint_kind_for_pc. - - The default behavior for targets that don't implement breakpoint_kind_for_pc - is to use the size of a breakpoint as the kind. */ - -int -default_breakpoint_kind_from_pc (CORE_ADDR *pcptr) -{ - int size = 0; - - gdb_assert (the_target->sw_breakpoint_from_kind != NULL); - - (*the_target->sw_breakpoint_from_kind) (0, &size); - return size; -} - -/* Define it. */ - -target_terminal_state target_terminal::m_terminal_state - = target_terminal_state::is_ours; - -/* See target/target.h. */ - -void -target_terminal::init () -{ - /* Placeholder needed because of fork_inferior. Not necessary on - GDBserver. */ -} - -/* See target/target.h. */ - -void -target_terminal::inferior () -{ - /* Placeholder needed because of fork_inferior. Not necessary on - GDBserver. */ -} - -/* See target/target.h. */ - -void -target_terminal::ours () -{ - /* Placeholder needed because of fork_inferior. Not necessary on - GDBserver. */ -} - -/* See target/target.h. */ - -void -target_terminal::ours_for_output (void) -{ - /* Placeholder. */ -} - -/* See target/target.h. */ - -void -target_terminal::info (const char *arg, int from_tty) -{ - /* Placeholder. */ -} diff --git a/gdbserver/target.cc b/gdbserver/target.cc new file mode 100644 index 00000000000..a4593cf6df9 --- /dev/null +++ b/gdbserver/target.cc @@ -0,0 +1,395 @@ +/* Target operations for the remote server for GDB. + Copyright (C) 2002-2020 Free Software Foundation, Inc. + + Contributed by MontaVista Software. + + 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 . */ + +#include "server.h" +#include "tracepoint.h" +#include "gdbsupport/byte-vector.h" + +process_stratum_target *the_target; + +int +set_desired_thread () +{ + client_state &cs = get_client_state (); + thread_info *found = find_thread_ptid (cs.general_thread); + + current_thread = found; + return (current_thread != NULL); +} + +/* The thread that was current before prepare_to_access_memory was + called. done_accessing_memory uses this to restore the previous + selected thread. */ +static ptid_t prev_general_thread; + +/* See target.h. */ + +int +prepare_to_access_memory (void) +{ + client_state &cs = get_client_state (); + + /* The first thread found. */ + struct thread_info *first = NULL; + /* The first stopped thread found. */ + struct thread_info *stopped = NULL; + /* The current general thread, if found. */ + struct thread_info *current = NULL; + + /* Save the general thread value, since prepare_to_access_memory could change + it. */ + prev_general_thread = cs.general_thread; + + if (the_target->prepare_to_access_memory != NULL) + { + int res; + + res = the_target->prepare_to_access_memory (); + if (res != 0) + return res; + } + + for_each_thread (prev_general_thread.pid (), [&] (thread_info *thread) + { + if (mythread_alive (thread->id)) + { + if (stopped == NULL && the_target->thread_stopped != NULL + && thread_stopped (thread)) + stopped = thread; + + if (first == NULL) + first = thread; + + if (current == NULL && prev_general_thread == thread->id) + current = thread; + } + }); + + /* The thread we end up choosing. */ + struct thread_info *thread; + + /* Prefer a stopped thread. If none is found, try the current + thread. Otherwise, take the first thread in the process. If + none is found, undo the effects of + target->prepare_to_access_memory() and return error. */ + if (stopped != NULL) + thread = stopped; + else if (current != NULL) + thread = current; + else if (first != NULL) + thread = first; + else + { + done_accessing_memory (); + return 1; + } + + current_thread = thread; + cs.general_thread = ptid_of (thread); + + return 0; +} + +/* See target.h. */ + +void +done_accessing_memory (void) +{ + client_state &cs = get_client_state (); + + if (the_target->done_accessing_memory != NULL) + the_target->done_accessing_memory (); + + /* Restore the previous selected thread. */ + cs.general_thread = prev_general_thread; + switch_to_thread (the_target, cs.general_thread); +} + +int +read_inferior_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) +{ + int res; + res = (*the_target->read_memory) (memaddr, myaddr, len); + check_mem_read (memaddr, myaddr, len); + return res; +} + +/* See target/target.h. */ + +int +target_read_memory (CORE_ADDR memaddr, gdb_byte *myaddr, ssize_t len) +{ + return read_inferior_memory (memaddr, myaddr, len); +} + +/* See target/target.h. */ + +int +target_read_uint32 (CORE_ADDR memaddr, uint32_t *result) +{ + return read_inferior_memory (memaddr, (gdb_byte *) result, sizeof (*result)); +} + +/* See target/target.h. */ + +int +target_write_memory (CORE_ADDR memaddr, const unsigned char *myaddr, + ssize_t len) +{ + /* Make a copy of the data because check_mem_write may need to + update it. */ + gdb::byte_vector buffer (myaddr, myaddr + len); + check_mem_write (memaddr, buffer.data (), myaddr, len); + return (*the_target->write_memory) (memaddr, buffer.data (), len); +} + +ptid_t +mywait (ptid_t ptid, struct target_waitstatus *ourstatus, int options, + int connected_wait) +{ + ptid_t ret; + + if (connected_wait) + server_waiting = 1; + + ret = target_wait (ptid, ourstatus, options); + + /* We don't expose _LOADED events to gdbserver core. See the + `dlls_changed' global. */ + if (ourstatus->kind == TARGET_WAITKIND_LOADED) + ourstatus->kind = TARGET_WAITKIND_STOPPED; + + /* If GDB is connected through TCP/serial, then GDBserver will most + probably be running on its own terminal/console, so it's nice to + print there why is GDBserver exiting. If however, GDB is + connected through stdio, then there's no need to spam the GDB + console with this -- the user will already see the exit through + regular GDB output, in that same terminal. */ + if (!remote_connection_is_stdio ()) + { + if (ourstatus->kind == TARGET_WAITKIND_EXITED) + fprintf (stderr, + "\nChild exited with status %d\n", ourstatus->value.integer); + else if (ourstatus->kind == TARGET_WAITKIND_SIGNALLED) + fprintf (stderr, "\nChild terminated with signal = 0x%x (%s)\n", + gdb_signal_to_host (ourstatus->value.sig), + gdb_signal_to_name (ourstatus->value.sig)); + } + + if (connected_wait) + server_waiting = 0; + + return ret; +} + +/* See target/target.h. */ + +void +target_stop_and_wait (ptid_t ptid) +{ + struct target_waitstatus status; + bool was_non_stop = non_stop; + struct thread_resume resume_info; + + resume_info.thread = ptid; + resume_info.kind = resume_stop; + resume_info.sig = GDB_SIGNAL_0; + (*the_target->resume) (&resume_info, 1); + + non_stop = true; + mywait (ptid, &status, 0, 0); + non_stop = was_non_stop; +} + +/* See target/target.h. */ + +ptid_t +target_wait (ptid_t ptid, struct target_waitstatus *status, int options) +{ + return (*the_target->wait) (ptid, status, options); +} + +/* See target/target.h. */ + +void +target_mourn_inferior (ptid_t ptid) +{ + (*the_target->mourn) (find_process_pid (ptid.pid ())); +} + +/* See target/target.h. */ + +void +target_continue_no_signal (ptid_t ptid) +{ + struct thread_resume resume_info; + + resume_info.thread = ptid; + resume_info.kind = resume_continue; + resume_info.sig = GDB_SIGNAL_0; + (*the_target->resume) (&resume_info, 1); +} + +/* See target/target.h. */ + +void +target_continue (ptid_t ptid, enum gdb_signal signal) +{ + struct thread_resume resume_info; + + resume_info.thread = ptid; + resume_info.kind = resume_continue; + resume_info.sig = gdb_signal_to_host (signal); + (*the_target->resume) (&resume_info, 1); +} + +/* See target/target.h. */ + +int +target_supports_multi_process (void) +{ + return (the_target->supports_multi_process != NULL ? + (*the_target->supports_multi_process) () : 0); +} + +int +start_non_stop (int nonstop) +{ + if (the_target->start_non_stop == NULL) + { + if (nonstop) + return -1; + else + return 0; + } + + return (*the_target->start_non_stop) (nonstop); +} + +void +set_target_ops (process_stratum_target *target) +{ + the_target = XNEW (process_stratum_target); + memcpy (the_target, target, sizeof (*the_target)); +} + +/* Convert pid to printable format. */ + +const char * +target_pid_to_str (ptid_t ptid) +{ + static char buf[80]; + + if (ptid == minus_one_ptid) + xsnprintf (buf, sizeof (buf), ""); + else if (ptid == null_ptid) + xsnprintf (buf, sizeof (buf), ""); + else if (ptid.tid () != 0) + xsnprintf (buf, sizeof (buf), "Thread %d.0x%lx", + ptid.pid (), ptid.tid ()); + else if (ptid.lwp () != 0) + xsnprintf (buf, sizeof (buf), "LWP %d.%ld", + ptid.pid (), ptid.lwp ()); + else + xsnprintf (buf, sizeof (buf), "Process %d", + ptid.pid ()); + + return buf; +} + +int +kill_inferior (process_info *proc) +{ + gdb_agent_about_to_close (proc->pid); + + return (*the_target->kill) (proc); +} + +/* Target can do hardware single step. */ + +int +target_can_do_hardware_single_step (void) +{ + return 1; +} + +/* Default implementation for breakpoint_kind_for_pc. + + The default behavior for targets that don't implement breakpoint_kind_for_pc + is to use the size of a breakpoint as the kind. */ + +int +default_breakpoint_kind_from_pc (CORE_ADDR *pcptr) +{ + int size = 0; + + gdb_assert (the_target->sw_breakpoint_from_kind != NULL); + + (*the_target->sw_breakpoint_from_kind) (0, &size); + return size; +} + +/* Define it. */ + +target_terminal_state target_terminal::m_terminal_state + = target_terminal_state::is_ours; + +/* See target/target.h. */ + +void +target_terminal::init () +{ + /* Placeholder needed because of fork_inferior. Not necessary on + GDBserver. */ +} + +/* See target/target.h. */ + +void +target_terminal::inferior () +{ + /* Placeholder needed because of fork_inferior. Not necessary on + GDBserver. */ +} + +/* See target/target.h. */ + +void +target_terminal::ours () +{ + /* Placeholder needed because of fork_inferior. Not necessary on + GDBserver. */ +} + +/* See target/target.h. */ + +void +target_terminal::ours_for_output (void) +{ + /* Placeholder. */ +} + +/* See target/target.h. */ + +void +target_terminal::info (const char *arg, int from_tty) +{ + /* Placeholder. */ +} diff --git a/gdbserver/tdesc.c b/gdbserver/tdesc.c deleted file mode 100644 index de25e7cfb46..00000000000 --- a/gdbserver/tdesc.c +++ /dev/null @@ -1,204 +0,0 @@ -/* Copyright (C) 2012-2020 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 . */ - -#include "server.h" -#include "tdesc.h" -#include "regdef.h" - -#ifndef IN_PROCESS_AGENT - -target_desc::~target_desc () -{ - xfree ((char *) arch); - xfree ((char *) osabi); -} - -bool target_desc::operator== (const target_desc &other) const -{ - if (reg_defs != other.reg_defs) - return false; - - /* Compare expedite_regs. */ - int i = 0; - for (; expedite_regs[i] != NULL; i++) - { - if (strcmp (expedite_regs[i], other.expedite_regs[i]) != 0) - return false; - } - if (other.expedite_regs[i] != NULL) - return false; - - return true; -} - -#endif - -void target_desc::accept (tdesc_element_visitor &v) const -{ -#ifndef IN_PROCESS_AGENT - v.visit_pre (this); - - for (const tdesc_feature_up &feature : features) - feature->accept (v); - - v.visit_post (this); -#endif -} - -void -init_target_desc (struct target_desc *tdesc, - const char **expedite_regs) -{ - int offset = 0; - - /* Go through all the features and populate reg_defs. */ - for (const tdesc_feature_up &feature : tdesc->features) - for (const tdesc_reg_up &treg : feature->registers) - { - int regnum = treg->target_regnum; - - /* Register number will increase (possibly with gaps) or be zero. */ - gdb_assert (regnum == 0 || regnum >= tdesc->reg_defs.size ()); - - if (regnum != 0) - tdesc->reg_defs.resize (regnum, reg (offset)); - - tdesc->reg_defs.emplace_back (treg->name.c_str (), offset, - treg->bitsize); - offset += treg->bitsize; - } - - tdesc->registers_size = offset / 8; - - /* Make sure PBUFSIZ is large enough to hold a full register - packet. */ - gdb_assert (2 * tdesc->registers_size + 32 <= PBUFSIZ); - -#ifndef IN_PROCESS_AGENT - tdesc->expedite_regs = expedite_regs; -#endif -} - -struct target_desc * -allocate_target_description (void) -{ - return new target_desc (); -} - -#ifndef IN_PROCESS_AGENT - -static const struct target_desc default_description {}; - -void -copy_target_description (struct target_desc *dest, - const struct target_desc *src) -{ - dest->reg_defs = src->reg_defs; - dest->expedite_regs = src->expedite_regs; - dest->registers_size = src->registers_size; - dest->xmltarget = src->xmltarget; -} - -const struct target_desc * -current_target_desc (void) -{ - if (current_thread == NULL) - return &default_description; - - return current_process ()->tdesc; -} - -/* See gdbsupport/tdesc.h. */ - -const char * -tdesc_architecture_name (const struct target_desc *target_desc) -{ - return target_desc->arch; -} - -/* See gdbsupport/tdesc.h. */ - -void -set_tdesc_architecture (struct target_desc *target_desc, - const char *name) -{ - target_desc->arch = xstrdup (name); -} - -/* See gdbsupport/tdesc.h. */ - -const char * -tdesc_osabi_name (const struct target_desc *target_desc) -{ - return target_desc->osabi; -} - -/* See gdbsupport/tdesc.h. */ - -void -set_tdesc_osabi (struct target_desc *target_desc, const char *name) -{ - target_desc->osabi = xstrdup (name); -} - -/* See gdbsupport/tdesc.h. */ - -const char * -tdesc_get_features_xml (const target_desc *tdesc) -{ - /* Either .xmltarget or .features is not NULL. */ - gdb_assert (tdesc->xmltarget != NULL - || (!tdesc->features.empty () - && tdesc->arch != NULL)); - - if (tdesc->xmltarget == NULL) - { - std::string buffer ("@"); - print_xml_feature v (&buffer); - tdesc->accept (v); - tdesc->xmltarget = xstrdup (buffer.c_str ()); - } - - return tdesc->xmltarget; -} -#endif - -/* See gdbsupport/tdesc.h. */ - -struct tdesc_feature * -tdesc_create_feature (struct target_desc *tdesc, const char *name) -{ - struct tdesc_feature *new_feature = new tdesc_feature (name); - tdesc->features.emplace_back (new_feature); - return new_feature; -} - -/* See gdbsupport/tdesc.h. */ - -bool -tdesc_contains_feature (const target_desc *tdesc, const std::string &feature) -{ - gdb_assert (tdesc != nullptr); - - for (const tdesc_feature_up &f : tdesc->features) - { - if (f->name == feature) - return true; - } - - return false; -} diff --git a/gdbserver/tdesc.cc b/gdbserver/tdesc.cc new file mode 100644 index 00000000000..de25e7cfb46 --- /dev/null +++ b/gdbserver/tdesc.cc @@ -0,0 +1,204 @@ +/* Copyright (C) 2012-2020 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 . */ + +#include "server.h" +#include "tdesc.h" +#include "regdef.h" + +#ifndef IN_PROCESS_AGENT + +target_desc::~target_desc () +{ + xfree ((char *) arch); + xfree ((char *) osabi); +} + +bool target_desc::operator== (const target_desc &other) const +{ + if (reg_defs != other.reg_defs) + return false; + + /* Compare expedite_regs. */ + int i = 0; + for (; expedite_regs[i] != NULL; i++) + { + if (strcmp (expedite_regs[i], other.expedite_regs[i]) != 0) + return false; + } + if (other.expedite_regs[i] != NULL) + return false; + + return true; +} + +#endif + +void target_desc::accept (tdesc_element_visitor &v) const +{ +#ifndef IN_PROCESS_AGENT + v.visit_pre (this); + + for (const tdesc_feature_up &feature : features) + feature->accept (v); + + v.visit_post (this); +#endif +} + +void +init_target_desc (struct target_desc *tdesc, + const char **expedite_regs) +{ + int offset = 0; + + /* Go through all the features and populate reg_defs. */ + for (const tdesc_feature_up &feature : tdesc->features) + for (const tdesc_reg_up &treg : feature->registers) + { + int regnum = treg->target_regnum; + + /* Register number will increase (possibly with gaps) or be zero. */ + gdb_assert (regnum == 0 || regnum >= tdesc->reg_defs.size ()); + + if (regnum != 0) + tdesc->reg_defs.resize (regnum, reg (offset)); + + tdesc->reg_defs.emplace_back (treg->name.c_str (), offset, + treg->bitsize); + offset += treg->bitsize; + } + + tdesc->registers_size = offset / 8; + + /* Make sure PBUFSIZ is large enough to hold a full register + packet. */ + gdb_assert (2 * tdesc->registers_size + 32 <= PBUFSIZ); + +#ifndef IN_PROCESS_AGENT + tdesc->expedite_regs = expedite_regs; +#endif +} + +struct target_desc * +allocate_target_description (void) +{ + return new target_desc (); +} + +#ifndef IN_PROCESS_AGENT + +static const struct target_desc default_description {}; + +void +copy_target_description (struct target_desc *dest, + const struct target_desc *src) +{ + dest->reg_defs = src->reg_defs; + dest->expedite_regs = src->expedite_regs; + dest->registers_size = src->registers_size; + dest->xmltarget = src->xmltarget; +} + +const struct target_desc * +current_target_desc (void) +{ + if (current_thread == NULL) + return &default_description; + + return current_process ()->tdesc; +} + +/* See gdbsupport/tdesc.h. */ + +const char * +tdesc_architecture_name (const struct target_desc *target_desc) +{ + return target_desc->arch; +} + +/* See gdbsupport/tdesc.h. */ + +void +set_tdesc_architecture (struct target_desc *target_desc, + const char *name) +{ + target_desc->arch = xstrdup (name); +} + +/* See gdbsupport/tdesc.h. */ + +const char * +tdesc_osabi_name (const struct target_desc *target_desc) +{ + return target_desc->osabi; +} + +/* See gdbsupport/tdesc.h. */ + +void +set_tdesc_osabi (struct target_desc *target_desc, const char *name) +{ + target_desc->osabi = xstrdup (name); +} + +/* See gdbsupport/tdesc.h. */ + +const char * +tdesc_get_features_xml (const target_desc *tdesc) +{ + /* Either .xmltarget or .features is not NULL. */ + gdb_assert (tdesc->xmltarget != NULL + || (!tdesc->features.empty () + && tdesc->arch != NULL)); + + if (tdesc->xmltarget == NULL) + { + std::string buffer ("@"); + print_xml_feature v (&buffer); + tdesc->accept (v); + tdesc->xmltarget = xstrdup (buffer.c_str ()); + } + + return tdesc->xmltarget; +} +#endif + +/* See gdbsupport/tdesc.h. */ + +struct tdesc_feature * +tdesc_create_feature (struct target_desc *tdesc, const char *name) +{ + struct tdesc_feature *new_feature = new tdesc_feature (name); + tdesc->features.emplace_back (new_feature); + return new_feature; +} + +/* See gdbsupport/tdesc.h. */ + +bool +tdesc_contains_feature (const target_desc *tdesc, const std::string &feature) +{ + gdb_assert (tdesc != nullptr); + + for (const tdesc_feature_up &f : tdesc->features) + { + if (f->name == feature) + return true; + } + + return false; +} diff --git a/gdbserver/thread-db.c b/gdbserver/thread-db.c deleted file mode 100644 index 2bb6d28820e..00000000000 --- a/gdbserver/thread-db.c +++ /dev/null @@ -1,910 +0,0 @@ -/* Thread management interface, for the remote server for GDB. - Copyright (C) 2002-2020 Free Software Foundation, Inc. - - Contributed by MontaVista Software. - - 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 . */ - -#include "server.h" - -#include "linux-low.h" - -#include "debug.h" -#include "gdb_proc_service.h" -#include "nat/gdb_thread_db.h" -#include "gdbsupport/gdb_vecs.h" -#include "nat/linux-procfs.h" -#include "gdbsupport/scoped_restore.h" - -#ifndef USE_LIBTHREAD_DB_DIRECTLY -#include -#endif -#include -#include - -struct thread_db -{ - /* Structure that identifies the child process for the - interface. */ - struct ps_prochandle proc_handle; - - /* Connection to the libthread_db library. */ - td_thragent_t *thread_agent; - - /* If this flag has been set, we've already asked GDB for all - symbols we might need; assume symbol cache misses are - failures. */ - int all_symbols_looked_up; - -#ifndef USE_LIBTHREAD_DB_DIRECTLY - /* Handle of the libthread_db from dlopen. */ - void *handle; -#endif - - /* Addresses of libthread_db functions. */ - td_ta_new_ftype *td_ta_new_p; - td_ta_map_lwp2thr_ftype *td_ta_map_lwp2thr_p; - td_thr_get_info_ftype *td_thr_get_info_p; - td_ta_thr_iter_ftype *td_ta_thr_iter_p; - td_thr_tls_get_addr_ftype *td_thr_tls_get_addr_p; - td_thr_tlsbase_ftype *td_thr_tlsbase_p; - td_symbol_list_ftype *td_symbol_list_p; -}; - -static char *libthread_db_search_path; - -static int find_one_thread (ptid_t); -static int find_new_threads_callback (const td_thrhandle_t *th_p, void *data); - -static const char * -thread_db_err_str (td_err_e err) -{ - static char buf[64]; - - switch (err) - { - case TD_OK: - return "generic 'call succeeded'"; - case TD_ERR: - return "generic error"; - case TD_NOTHR: - return "no thread to satisfy query"; - case TD_NOSV: - return "no sync handle to satisfy query"; - case TD_NOLWP: - return "no LWP to satisfy query"; - case TD_BADPH: - return "invalid process handle"; - case TD_BADTH: - return "invalid thread handle"; - case TD_BADSH: - return "invalid synchronization handle"; - case TD_BADTA: - return "invalid thread agent"; - case TD_BADKEY: - return "invalid key"; - case TD_NOMSG: - return "no event message for getmsg"; - case TD_NOFPREGS: - return "FPU register set not available"; - case TD_NOLIBTHREAD: - return "application not linked with libthread"; - case TD_NOEVENT: - return "requested event is not supported"; - case TD_NOCAPAB: - return "capability not available"; - case TD_DBERR: - return "debugger service failed"; - case TD_NOAPLIC: - return "operation not applicable to"; - case TD_NOTSD: - return "no thread-specific data for this thread"; - case TD_MALLOC: - return "malloc failed"; - case TD_PARTIALREG: - return "only part of register set was written/read"; - case TD_NOXREGS: - return "X register set not available for this thread"; -#ifdef HAVE_TD_VERSION - case TD_VERSION: - return "version mismatch between libthread_db and libpthread"; -#endif - default: - xsnprintf (buf, sizeof (buf), "unknown thread_db error '%d'", err); - return buf; - } -} - -#if 0 -static char * -thread_db_state_str (td_thr_state_e state) -{ - static char buf[64]; - - switch (state) - { - case TD_THR_STOPPED: - return "stopped by debugger"; - case TD_THR_RUN: - return "runnable"; - case TD_THR_ACTIVE: - return "active"; - case TD_THR_ZOMBIE: - return "zombie"; - case TD_THR_SLEEP: - return "sleeping"; - case TD_THR_STOPPED_ASLEEP: - return "stopped by debugger AND blocked"; - default: - xsnprintf (buf, sizeof (buf), "unknown thread_db state %d", state); - return buf; - } -} -#endif - -/* Get thread info about PTID, accessing memory via the current - thread. */ - -static int -find_one_thread (ptid_t ptid) -{ - td_thrhandle_t th; - td_thrinfo_t ti; - td_err_e err; - struct lwp_info *lwp; - struct thread_db *thread_db = current_process ()->priv->thread_db; - int lwpid = ptid.lwp (); - - thread_info *thread = find_thread_ptid (ptid); - lwp = get_thread_lwp (thread); - if (lwp->thread_known) - return 1; - - /* Get information about this thread. */ - err = thread_db->td_ta_map_lwp2thr_p (thread_db->thread_agent, lwpid, &th); - if (err != TD_OK) - error ("Cannot get thread handle for LWP %d: %s", - lwpid, thread_db_err_str (err)); - - err = thread_db->td_thr_get_info_p (&th, &ti); - if (err != TD_OK) - error ("Cannot get thread info for LWP %d: %s", - lwpid, thread_db_err_str (err)); - - if (debug_threads) - debug_printf ("Found thread %ld (LWP %d)\n", - (unsigned long) ti.ti_tid, ti.ti_lid); - - if (lwpid != ti.ti_lid) - { - warning ("PID mismatch! Expected %ld, got %ld", - (long) lwpid, (long) ti.ti_lid); - return 0; - } - - /* If the new thread ID is zero, a final thread ID will be available - later. Do not enable thread debugging yet. */ - if (ti.ti_tid == 0) - return 0; - - lwp->thread_known = 1; - lwp->th = th; - lwp->thread_handle = ti.ti_tid; - - return 1; -} - -/* Attach a thread. Return true on success. */ - -static int -attach_thread (const td_thrhandle_t *th_p, td_thrinfo_t *ti_p) -{ - struct process_info *proc = current_process (); - int pid = pid_of (proc); - ptid_t ptid = ptid_t (pid, ti_p->ti_lid, 0); - struct lwp_info *lwp; - int err; - - if (debug_threads) - debug_printf ("Attaching to thread %ld (LWP %d)\n", - (unsigned long) ti_p->ti_tid, ti_p->ti_lid); - err = linux_attach_lwp (ptid); - if (err != 0) - { - std::string reason = linux_ptrace_attach_fail_reason_string (ptid, err); - - warning ("Could not attach to thread %ld (LWP %d): %s", - (unsigned long) ti_p->ti_tid, ti_p->ti_lid, reason.c_str ()); - - return 0; - } - - lwp = find_lwp_pid (ptid); - gdb_assert (lwp != NULL); - lwp->thread_known = 1; - lwp->th = *th_p; - lwp->thread_handle = ti_p->ti_tid; - - return 1; -} - -/* Attach thread if we haven't seen it yet. - Increment *COUNTER if we have attached a new thread. - Return false on failure. */ - -static int -maybe_attach_thread (const td_thrhandle_t *th_p, td_thrinfo_t *ti_p, - int *counter) -{ - struct lwp_info *lwp; - - lwp = find_lwp_pid (ptid_t (ti_p->ti_lid)); - if (lwp != NULL) - return 1; - - if (!attach_thread (th_p, ti_p)) - return 0; - - if (counter != NULL) - *counter += 1; - - return 1; -} - -static int -find_new_threads_callback (const td_thrhandle_t *th_p, void *data) -{ - td_thrinfo_t ti; - td_err_e err; - struct thread_db *thread_db = current_process ()->priv->thread_db; - - err = thread_db->td_thr_get_info_p (th_p, &ti); - if (err != TD_OK) - error ("Cannot get thread info: %s", thread_db_err_str (err)); - - if (ti.ti_lid == -1) - { - /* A thread with kernel thread ID -1 is either a thread that - exited and was joined, or a thread that is being created but - hasn't started yet, and that is reusing the tcb/stack of a - thread that previously exited and was joined. (glibc marks - terminated and joined threads with kernel thread ID -1. See - glibc PR17707. */ - if (debug_threads) - debug_printf ("thread_db: skipping exited and " - "joined thread (0x%lx)\n", - (unsigned long) ti.ti_tid); - return 0; - } - - /* Check for zombies. */ - if (ti.ti_state == TD_THR_UNKNOWN || ti.ti_state == TD_THR_ZOMBIE) - return 0; - - if (!maybe_attach_thread (th_p, &ti, (int *) data)) - { - /* Terminate iteration early: we might be looking at stale data in - the inferior. The thread_db_find_new_threads will retry. */ - return 1; - } - - return 0; -} - -static void -thread_db_find_new_threads (void) -{ - td_err_e err; - ptid_t ptid = current_ptid; - struct thread_db *thread_db = current_process ()->priv->thread_db; - int loop, iteration; - - /* This function is only called when we first initialize thread_db. - First locate the initial thread. If it is not ready for - debugging yet, then stop. */ - if (find_one_thread (ptid) == 0) - return; - - /* Require 4 successive iterations which do not find any new threads. - The 4 is a heuristic: there is an inherent race here, and I have - seen that 2 iterations in a row are not always sufficient to - "capture" all threads. */ - for (loop = 0, iteration = 0; loop < 4; ++loop, ++iteration) - { - int new_thread_count = 0; - - /* Iterate over all user-space threads to discover new threads. */ - err = thread_db->td_ta_thr_iter_p (thread_db->thread_agent, - find_new_threads_callback, - &new_thread_count, - TD_THR_ANY_STATE, - TD_THR_LOWEST_PRIORITY, - TD_SIGNO_MASK, TD_THR_ANY_USER_FLAGS); - if (debug_threads) - debug_printf ("Found %d threads in iteration %d.\n", - new_thread_count, iteration); - - if (new_thread_count != 0) - { - /* Found new threads. Restart iteration from beginning. */ - loop = -1; - } - } - if (err != TD_OK) - error ("Cannot find new threads: %s", thread_db_err_str (err)); -} - -/* Cache all future symbols that thread_db might request. We can not - request symbols at arbitrary states in the remote protocol, only - when the client tells us that new symbols are available. So when - we load the thread library, make sure to check the entire list. */ - -static void -thread_db_look_up_symbols (void) -{ - struct thread_db *thread_db = current_process ()->priv->thread_db; - const char **sym_list; - CORE_ADDR unused; - - for (sym_list = thread_db->td_symbol_list_p (); *sym_list; sym_list++) - look_up_one_symbol (*sym_list, &unused, 1); - - /* We're not interested in any other libraries loaded after this - point, only in symbols in libpthread.so. */ - thread_db->all_symbols_looked_up = 1; -} - -int -thread_db_look_up_one_symbol (const char *name, CORE_ADDR *addrp) -{ - struct thread_db *thread_db = current_process ()->priv->thread_db; - int may_ask_gdb = !thread_db->all_symbols_looked_up; - - /* If we've passed the call to thread_db_look_up_symbols, then - anything not in the cache must not exist; we're not interested - in any libraries loaded after that point, only in symbols in - libpthread.so. It might not be an appropriate time to look - up a symbol, e.g. while we're trying to fetch registers. */ - return look_up_one_symbol (name, addrp, may_ask_gdb); -} - -int -thread_db_get_tls_address (struct thread_info *thread, CORE_ADDR offset, - CORE_ADDR load_module, CORE_ADDR *address) -{ - psaddr_t addr; - td_err_e err; - struct lwp_info *lwp; - struct thread_info *saved_thread; - struct process_info *proc; - struct thread_db *thread_db; - - proc = get_thread_process (thread); - thread_db = proc->priv->thread_db; - - /* If the thread layer is not (yet) initialized, fail. */ - if (thread_db == NULL || !thread_db->all_symbols_looked_up) - return TD_ERR; - - /* If td_thr_tls_get_addr is missing rather do not expect td_thr_tlsbase - could work. */ - if (thread_db->td_thr_tls_get_addr_p == NULL - || (load_module == 0 && thread_db->td_thr_tlsbase_p == NULL)) - return -1; - - lwp = get_thread_lwp (thread); - if (!lwp->thread_known) - find_one_thread (thread->id); - if (!lwp->thread_known) - return TD_NOTHR; - - saved_thread = current_thread; - current_thread = thread; - - if (load_module != 0) - { - /* Note the cast through uintptr_t: this interface only works if - a target address fits in a psaddr_t, which is a host pointer. - So a 32-bit debugger can not access 64-bit TLS through this. */ - err = thread_db->td_thr_tls_get_addr_p (&lwp->th, - (psaddr_t) (uintptr_t) load_module, - offset, &addr); - } - else - { - /* This code path handles the case of -static -pthread executables: - https://sourceware.org/ml/libc-help/2014-03/msg00024.html - For older GNU libc r_debug.r_map is NULL. For GNU libc after - PR libc/16831 due to GDB PR threads/16954 LOAD_MODULE is also NULL. - The constant number 1 depends on GNU __libc_setup_tls - initialization of l_tls_modid to 1. */ - err = thread_db->td_thr_tlsbase_p (&lwp->th, 1, &addr); - addr = (char *) addr + offset; - } - - current_thread = saved_thread; - if (err == TD_OK) - { - *address = (CORE_ADDR) (uintptr_t) addr; - return 0; - } - else - return err; -} - -/* See linux-low.h. */ - -bool -thread_db_thread_handle (ptid_t ptid, gdb_byte **handle, int *handle_len) -{ - struct thread_db *thread_db; - struct lwp_info *lwp; - thread_info *thread = find_thread_ptid (ptid); - - if (thread == NULL) - return false; - - thread_db = get_thread_process (thread)->priv->thread_db; - - if (thread_db == NULL) - return false; - - lwp = get_thread_lwp (thread); - - if (!lwp->thread_known && !find_one_thread (thread->id)) - return false; - - gdb_assert (lwp->thread_known); - - *handle = (gdb_byte *) &lwp->thread_handle; - *handle_len = sizeof (lwp->thread_handle); - return true; -} - -#ifdef USE_LIBTHREAD_DB_DIRECTLY - -static int -thread_db_load_search (void) -{ - td_err_e err; - struct thread_db *tdb; - struct process_info *proc = current_process (); - - gdb_assert (proc->priv->thread_db == NULL); - - tdb = XCNEW (struct thread_db); - proc->priv->thread_db = tdb; - - tdb->td_ta_new_p = &td_ta_new; - - /* Attempt to open a connection to the thread library. */ - err = tdb->td_ta_new_p (&tdb->proc_handle, &tdb->thread_agent); - if (err != TD_OK) - { - if (debug_threads) - debug_printf ("td_ta_new(): %s\n", thread_db_err_str (err)); - free (tdb); - proc->priv->thread_db = NULL; - return 0; - } - - tdb->td_ta_map_lwp2thr_p = &td_ta_map_lwp2thr; - tdb->td_thr_get_info_p = &td_thr_get_info; - tdb->td_ta_thr_iter_p = &td_ta_thr_iter; - tdb->td_symbol_list_p = &td_symbol_list; - - /* These are not essential. */ - tdb->td_thr_tls_get_addr_p = &td_thr_tls_get_addr; - tdb->td_thr_tlsbase_p = &td_thr_tlsbase; - - return 1; -} - -#else - -static int -try_thread_db_load_1 (void *handle) -{ - td_err_e err; - struct thread_db *tdb; - struct process_info *proc = current_process (); - - gdb_assert (proc->priv->thread_db == NULL); - - tdb = XCNEW (struct thread_db); - proc->priv->thread_db = tdb; - - tdb->handle = handle; - - /* Initialize pointers to the dynamic library functions we will use. - Essential functions first. */ - -#define CHK(required, a) \ - do \ - { \ - if ((a) == NULL) \ - { \ - if (debug_threads) \ - debug_printf ("dlsym: %s\n", dlerror ()); \ - if (required) \ - { \ - free (tdb); \ - proc->priv->thread_db = NULL; \ - return 0; \ - } \ - } \ - } \ - while (0) - -#define TDB_DLSYM(tdb, func) \ - tdb->func ## _p = (func ## _ftype *) dlsym (tdb->handle, #func) - - CHK (1, TDB_DLSYM (tdb, td_ta_new)); - - /* Attempt to open a connection to the thread library. */ - err = tdb->td_ta_new_p (&tdb->proc_handle, &tdb->thread_agent); - if (err != TD_OK) - { - if (debug_threads) - debug_printf ("td_ta_new(): %s\n", thread_db_err_str (err)); - free (tdb); - proc->priv->thread_db = NULL; - return 0; - } - - CHK (1, TDB_DLSYM (tdb, td_ta_map_lwp2thr)); - CHK (1, TDB_DLSYM (tdb, td_thr_get_info)); - CHK (1, TDB_DLSYM (tdb, td_ta_thr_iter)); - CHK (1, TDB_DLSYM (tdb, td_symbol_list)); - - /* These are not essential. */ - CHK (0, TDB_DLSYM (tdb, td_thr_tls_get_addr)); - CHK (0, TDB_DLSYM (tdb, td_thr_tlsbase)); - -#undef CHK -#undef TDB_DLSYM - - return 1; -} - -#ifdef HAVE_DLADDR - -/* Lookup a library in which given symbol resides. - Note: this is looking in the GDBSERVER process, not in the inferior. - Returns library name, or NULL. */ - -static const char * -dladdr_to_soname (const void *addr) -{ - Dl_info info; - - if (dladdr (addr, &info) != 0) - return info.dli_fname; - return NULL; -} - -#endif - -static int -try_thread_db_load (const char *library) -{ - void *handle; - - if (debug_threads) - debug_printf ("Trying host libthread_db library: %s.\n", - library); - handle = dlopen (library, RTLD_NOW); - if (handle == NULL) - { - if (debug_threads) - debug_printf ("dlopen failed: %s.\n", dlerror ()); - return 0; - } - -#ifdef HAVE_DLADDR - if (debug_threads && strchr (library, '/') == NULL) - { - void *td_init; - - td_init = dlsym (handle, "td_init"); - if (td_init != NULL) - { - const char *const libpath = dladdr_to_soname (td_init); - - if (libpath != NULL) - debug_printf ("Host %s resolved to: %s.\n", library, libpath); - } - } -#endif - - if (try_thread_db_load_1 (handle)) - return 1; - - /* This library "refused" to work on current inferior. */ - dlclose (handle); - return 0; -} - -/* Handle $sdir in libthread-db-search-path. - Look for libthread_db in the system dirs, or wherever a plain - dlopen(file_without_path) will look. - The result is true for success. */ - -static int -try_thread_db_load_from_sdir (void) -{ - return try_thread_db_load (LIBTHREAD_DB_SO); -} - -/* Try to load libthread_db from directory DIR of length DIR_LEN. - The result is true for success. */ - -static int -try_thread_db_load_from_dir (const char *dir, size_t dir_len) -{ - char path[PATH_MAX]; - - if (dir_len + 1 + strlen (LIBTHREAD_DB_SO) + 1 > sizeof (path)) - { - char *cp = (char *) xmalloc (dir_len + 1); - - memcpy (cp, dir, dir_len); - cp[dir_len] = '\0'; - warning (_("libthread-db-search-path component too long," - " ignored: %s."), cp); - free (cp); - return 0; - } - - memcpy (path, dir, dir_len); - path[dir_len] = '/'; - strcpy (path + dir_len + 1, LIBTHREAD_DB_SO); - return try_thread_db_load (path); -} - -/* Search libthread_db_search_path for libthread_db which "agrees" - to work on current inferior. - The result is true for success. */ - -static int -thread_db_load_search (void) -{ - int rc = 0; - - if (libthread_db_search_path == NULL) - libthread_db_search_path = xstrdup (LIBTHREAD_DB_SEARCH_PATH); - - std::vector> dir_vec - = dirnames_to_char_ptr_vec (libthread_db_search_path); - - for (const gdb::unique_xmalloc_ptr &this_dir_up : dir_vec) - { - char *this_dir = this_dir_up.get (); - const int pdir_len = sizeof ("$pdir") - 1; - size_t this_dir_len; - - this_dir_len = strlen (this_dir); - - if (strncmp (this_dir, "$pdir", pdir_len) == 0 - && (this_dir[pdir_len] == '\0' - || this_dir[pdir_len] == '/')) - { - /* We don't maintain a list of loaded libraries so we don't know - where libpthread lives. We *could* fetch the info, but we don't - do that yet. Ignore it. */ - } - else if (strcmp (this_dir, "$sdir") == 0) - { - if (try_thread_db_load_from_sdir ()) - { - rc = 1; - break; - } - } - else - { - if (try_thread_db_load_from_dir (this_dir, this_dir_len)) - { - rc = 1; - break; - } - } - } - - if (debug_threads) - debug_printf ("thread_db_load_search returning %d\n", rc); - return rc; -} - -#endif /* USE_LIBTHREAD_DB_DIRECTLY */ - -int -thread_db_init (void) -{ - struct process_info *proc = current_process (); - - /* FIXME drow/2004-10-16: This is the "overall process ID", which - GNU/Linux calls tgid, "thread group ID". When we support - attaching to threads, the original thread may not be the correct - thread. We would have to get the process ID from /proc for NPTL. - - This isn't the only place in gdbserver that assumes that the first - process in the list is the thread group leader. */ - - if (thread_db_load_search ()) - { - /* It's best to avoid td_ta_thr_iter if possible. That walks - data structures in the inferior's address space that may be - corrupted, or, if the target is running, the list may change - while we walk it. In the latter case, it's possible that a - thread exits just at the exact time that causes GDBserver to - get stuck in an infinite loop. As the kernel supports clone - events and /proc/PID/task/ exists, then we already know about - all threads in the process. When we need info out of - thread_db on a given thread (e.g., for TLS), we'll use - find_one_thread then. That uses thread_db entry points that - do not walk libpthread's thread list, so should be safe, as - well as more efficient. */ - if (!linux_proc_task_list_dir_exists (pid_of (proc))) - thread_db_find_new_threads (); - thread_db_look_up_symbols (); - return 1; - } - - return 0; -} - -static void -switch_to_process (struct process_info *proc) -{ - int pid = pid_of (proc); - - current_thread = find_any_thread_of_pid (pid); -} - -/* Disconnect from libthread_db and free resources. */ - -static void -disable_thread_event_reporting (struct process_info *proc) -{ - struct thread_db *thread_db = proc->priv->thread_db; - if (thread_db) - { - td_err_e (*td_ta_clear_event_p) (const td_thragent_t *ta, - td_thr_events_t *event); - -#ifndef USE_LIBTHREAD_DB_DIRECTLY - td_ta_clear_event_p - = (td_ta_clear_event_ftype *) dlsym (thread_db->handle, - "td_ta_clear_event"); -#else - td_ta_clear_event_p = &td_ta_clear_event; -#endif - - if (td_ta_clear_event_p != NULL) - { - struct thread_info *saved_thread = current_thread; - td_thr_events_t events; - - switch_to_process (proc); - - /* Set the process wide mask saying we aren't interested - in any events anymore. */ - td_event_fillset (&events); - (*td_ta_clear_event_p) (thread_db->thread_agent, &events); - - current_thread = saved_thread; - } - } -} - -void -thread_db_detach (struct process_info *proc) -{ - struct thread_db *thread_db = proc->priv->thread_db; - - if (thread_db) - { - disable_thread_event_reporting (proc); - } -} - -/* Disconnect from libthread_db and free resources. */ - -void -thread_db_mourn (struct process_info *proc) -{ - struct thread_db *thread_db = proc->priv->thread_db; - if (thread_db) - { - td_ta_delete_ftype *td_ta_delete_p; - -#ifndef USE_LIBTHREAD_DB_DIRECTLY - td_ta_delete_p = (td_ta_delete_ftype *) dlsym (thread_db->handle, "td_ta_delete"); -#else - td_ta_delete_p = &td_ta_delete; -#endif - - if (td_ta_delete_p != NULL) - (*td_ta_delete_p) (thread_db->thread_agent); - -#ifndef USE_LIBTHREAD_DB_DIRECTLY - dlclose (thread_db->handle); -#endif /* USE_LIBTHREAD_DB_DIRECTLY */ - - free (thread_db); - proc->priv->thread_db = NULL; - } -} - -/* Handle "set libthread-db-search-path" monitor command and return 1. - For any other command, return 0. */ - -int -thread_db_handle_monitor_command (char *mon) -{ - const char *cmd = "set libthread-db-search-path"; - size_t cmd_len = strlen (cmd); - - if (strncmp (mon, cmd, cmd_len) == 0 - && (mon[cmd_len] == '\0' - || mon[cmd_len] == ' ')) - { - const char *cp = mon + cmd_len; - - if (libthread_db_search_path != NULL) - free (libthread_db_search_path); - - /* Skip leading space (if any). */ - while (isspace (*cp)) - ++cp; - - if (*cp == '\0') - cp = LIBTHREAD_DB_SEARCH_PATH; - libthread_db_search_path = xstrdup (cp); - - monitor_output ("libthread-db-search-path set to `"); - monitor_output (libthread_db_search_path); - monitor_output ("'\n"); - return 1; - } - - /* Tell server.c to perform default processing. */ - return 0; -} - -/* See linux-low.h. */ - -void -thread_db_notice_clone (struct thread_info *parent_thr, ptid_t child_ptid) -{ - process_info *parent_proc = get_thread_process (parent_thr); - struct thread_db *thread_db = parent_proc->priv->thread_db; - - /* If the thread layer isn't initialized, return. It may just - be that the program uses clone, but does not use libthread_db. */ - if (thread_db == NULL || !thread_db->all_symbols_looked_up) - return; - - /* find_one_thread calls into libthread_db which accesses memory via - the current thread. Temporarily switch to a thread we know is - stopped. */ - scoped_restore restore_current_thread - = make_scoped_restore (¤t_thread, parent_thr); - - if (!find_one_thread (child_ptid)) - warning ("Cannot find thread after clone."); -} diff --git a/gdbserver/thread-db.cc b/gdbserver/thread-db.cc new file mode 100644 index 00000000000..2bb6d28820e --- /dev/null +++ b/gdbserver/thread-db.cc @@ -0,0 +1,910 @@ +/* Thread management interface, for the remote server for GDB. + Copyright (C) 2002-2020 Free Software Foundation, Inc. + + Contributed by MontaVista Software. + + 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 . */ + +#include "server.h" + +#include "linux-low.h" + +#include "debug.h" +#include "gdb_proc_service.h" +#include "nat/gdb_thread_db.h" +#include "gdbsupport/gdb_vecs.h" +#include "nat/linux-procfs.h" +#include "gdbsupport/scoped_restore.h" + +#ifndef USE_LIBTHREAD_DB_DIRECTLY +#include +#endif +#include +#include + +struct thread_db +{ + /* Structure that identifies the child process for the + interface. */ + struct ps_prochandle proc_handle; + + /* Connection to the libthread_db library. */ + td_thragent_t *thread_agent; + + /* If this flag has been set, we've already asked GDB for all + symbols we might need; assume symbol cache misses are + failures. */ + int all_symbols_looked_up; + +#ifndef USE_LIBTHREAD_DB_DIRECTLY + /* Handle of the libthread_db from dlopen. */ + void *handle; +#endif + + /* Addresses of libthread_db functions. */ + td_ta_new_ftype *td_ta_new_p; + td_ta_map_lwp2thr_ftype *td_ta_map_lwp2thr_p; + td_thr_get_info_ftype *td_thr_get_info_p; + td_ta_thr_iter_ftype *td_ta_thr_iter_p; + td_thr_tls_get_addr_ftype *td_thr_tls_get_addr_p; + td_thr_tlsbase_ftype *td_thr_tlsbase_p; + td_symbol_list_ftype *td_symbol_list_p; +}; + +static char *libthread_db_search_path; + +static int find_one_thread (ptid_t); +static int find_new_threads_callback (const td_thrhandle_t *th_p, void *data); + +static const char * +thread_db_err_str (td_err_e err) +{ + static char buf[64]; + + switch (err) + { + case TD_OK: + return "generic 'call succeeded'"; + case TD_ERR: + return "generic error"; + case TD_NOTHR: + return "no thread to satisfy query"; + case TD_NOSV: + return "no sync handle to satisfy query"; + case TD_NOLWP: + return "no LWP to satisfy query"; + case TD_BADPH: + return "invalid process handle"; + case TD_BADTH: + return "invalid thread handle"; + case TD_BADSH: + return "invalid synchronization handle"; + case TD_BADTA: + return "invalid thread agent"; + case TD_BADKEY: + return "invalid key"; + case TD_NOMSG: + return "no event message for getmsg"; + case TD_NOFPREGS: + return "FPU register set not available"; + case TD_NOLIBTHREAD: + return "application not linked with libthread"; + case TD_NOEVENT: + return "requested event is not supported"; + case TD_NOCAPAB: + return "capability not available"; + case TD_DBERR: + return "debugger service failed"; + case TD_NOAPLIC: + return "operation not applicable to"; + case TD_NOTSD: + return "no thread-specific data for this thread"; + case TD_MALLOC: + return "malloc failed"; + case TD_PARTIALREG: + return "only part of register set was written/read"; + case TD_NOXREGS: + return "X register set not available for this thread"; +#ifdef HAVE_TD_VERSION + case TD_VERSION: + return "version mismatch between libthread_db and libpthread"; +#endif + default: + xsnprintf (buf, sizeof (buf), "unknown thread_db error '%d'", err); + return buf; + } +} + +#if 0 +static char * +thread_db_state_str (td_thr_state_e state) +{ + static char buf[64]; + + switch (state) + { + case TD_THR_STOPPED: + return "stopped by debugger"; + case TD_THR_RUN: + return "runnable"; + case TD_THR_ACTIVE: + return "active"; + case TD_THR_ZOMBIE: + return "zombie"; + case TD_THR_SLEEP: + return "sleeping"; + case TD_THR_STOPPED_ASLEEP: + return "stopped by debugger AND blocked"; + default: + xsnprintf (buf, sizeof (buf), "unknown thread_db state %d", state); + return buf; + } +} +#endif + +/* Get thread info about PTID, accessing memory via the current + thread. */ + +static int +find_one_thread (ptid_t ptid) +{ + td_thrhandle_t th; + td_thrinfo_t ti; + td_err_e err; + struct lwp_info *lwp; + struct thread_db *thread_db = current_process ()->priv->thread_db; + int lwpid = ptid.lwp (); + + thread_info *thread = find_thread_ptid (ptid); + lwp = get_thread_lwp (thread); + if (lwp->thread_known) + return 1; + + /* Get information about this thread. */ + err = thread_db->td_ta_map_lwp2thr_p (thread_db->thread_agent, lwpid, &th); + if (err != TD_OK) + error ("Cannot get thread handle for LWP %d: %s", + lwpid, thread_db_err_str (err)); + + err = thread_db->td_thr_get_info_p (&th, &ti); + if (err != TD_OK) + error ("Cannot get thread info for LWP %d: %s", + lwpid, thread_db_err_str (err)); + + if (debug_threads) + debug_printf ("Found thread %ld (LWP %d)\n", + (unsigned long) ti.ti_tid, ti.ti_lid); + + if (lwpid != ti.ti_lid) + { + warning ("PID mismatch! Expected %ld, got %ld", + (long) lwpid, (long) ti.ti_lid); + return 0; + } + + /* If the new thread ID is zero, a final thread ID will be available + later. Do not enable thread debugging yet. */ + if (ti.ti_tid == 0) + return 0; + + lwp->thread_known = 1; + lwp->th = th; + lwp->thread_handle = ti.ti_tid; + + return 1; +} + +/* Attach a thread. Return true on success. */ + +static int +attach_thread (const td_thrhandle_t *th_p, td_thrinfo_t *ti_p) +{ + struct process_info *proc = current_process (); + int pid = pid_of (proc); + ptid_t ptid = ptid_t (pid, ti_p->ti_lid, 0); + struct lwp_info *lwp; + int err; + + if (debug_threads) + debug_printf ("Attaching to thread %ld (LWP %d)\n", + (unsigned long) ti_p->ti_tid, ti_p->ti_lid); + err = linux_attach_lwp (ptid); + if (err != 0) + { + std::string reason = linux_ptrace_attach_fail_reason_string (ptid, err); + + warning ("Could not attach to thread %ld (LWP %d): %s", + (unsigned long) ti_p->ti_tid, ti_p->ti_lid, reason.c_str ()); + + return 0; + } + + lwp = find_lwp_pid (ptid); + gdb_assert (lwp != NULL); + lwp->thread_known = 1; + lwp->th = *th_p; + lwp->thread_handle = ti_p->ti_tid; + + return 1; +} + +/* Attach thread if we haven't seen it yet. + Increment *COUNTER if we have attached a new thread. + Return false on failure. */ + +static int +maybe_attach_thread (const td_thrhandle_t *th_p, td_thrinfo_t *ti_p, + int *counter) +{ + struct lwp_info *lwp; + + lwp = find_lwp_pid (ptid_t (ti_p->ti_lid)); + if (lwp != NULL) + return 1; + + if (!attach_thread (th_p, ti_p)) + return 0; + + if (counter != NULL) + *counter += 1; + + return 1; +} + +static int +find_new_threads_callback (const td_thrhandle_t *th_p, void *data) +{ + td_thrinfo_t ti; + td_err_e err; + struct thread_db *thread_db = current_process ()->priv->thread_db; + + err = thread_db->td_thr_get_info_p (th_p, &ti); + if (err != TD_OK) + error ("Cannot get thread info: %s", thread_db_err_str (err)); + + if (ti.ti_lid == -1) + { + /* A thread with kernel thread ID -1 is either a thread that + exited and was joined, or a thread that is being created but + hasn't started yet, and that is reusing the tcb/stack of a + thread that previously exited and was joined. (glibc marks + terminated and joined threads with kernel thread ID -1. See + glibc PR17707. */ + if (debug_threads) + debug_printf ("thread_db: skipping exited and " + "joined thread (0x%lx)\n", + (unsigned long) ti.ti_tid); + return 0; + } + + /* Check for zombies. */ + if (ti.ti_state == TD_THR_UNKNOWN || ti.ti_state == TD_THR_ZOMBIE) + return 0; + + if (!maybe_attach_thread (th_p, &ti, (int *) data)) + { + /* Terminate iteration early: we might be looking at stale data in + the inferior. The thread_db_find_new_threads will retry. */ + return 1; + } + + return 0; +} + +static void +thread_db_find_new_threads (void) +{ + td_err_e err; + ptid_t ptid = current_ptid; + struct thread_db *thread_db = current_process ()->priv->thread_db; + int loop, iteration; + + /* This function is only called when we first initialize thread_db. + First locate the initial thread. If it is not ready for + debugging yet, then stop. */ + if (find_one_thread (ptid) == 0) + return; + + /* Require 4 successive iterations which do not find any new threads. + The 4 is a heuristic: there is an inherent race here, and I have + seen that 2 iterations in a row are not always sufficient to + "capture" all threads. */ + for (loop = 0, iteration = 0; loop < 4; ++loop, ++iteration) + { + int new_thread_count = 0; + + /* Iterate over all user-space threads to discover new threads. */ + err = thread_db->td_ta_thr_iter_p (thread_db->thread_agent, + find_new_threads_callback, + &new_thread_count, + TD_THR_ANY_STATE, + TD_THR_LOWEST_PRIORITY, + TD_SIGNO_MASK, TD_THR_ANY_USER_FLAGS); + if (debug_threads) + debug_printf ("Found %d threads in iteration %d.\n", + new_thread_count, iteration); + + if (new_thread_count != 0) + { + /* Found new threads. Restart iteration from beginning. */ + loop = -1; + } + } + if (err != TD_OK) + error ("Cannot find new threads: %s", thread_db_err_str (err)); +} + +/* Cache all future symbols that thread_db might request. We can not + request symbols at arbitrary states in the remote protocol, only + when the client tells us that new symbols are available. So when + we load the thread library, make sure to check the entire list. */ + +static void +thread_db_look_up_symbols (void) +{ + struct thread_db *thread_db = current_process ()->priv->thread_db; + const char **sym_list; + CORE_ADDR unused; + + for (sym_list = thread_db->td_symbol_list_p (); *sym_list; sym_list++) + look_up_one_symbol (*sym_list, &unused, 1); + + /* We're not interested in any other libraries loaded after this + point, only in symbols in libpthread.so. */ + thread_db->all_symbols_looked_up = 1; +} + +int +thread_db_look_up_one_symbol (const char *name, CORE_ADDR *addrp) +{ + struct thread_db *thread_db = current_process ()->priv->thread_db; + int may_ask_gdb = !thread_db->all_symbols_looked_up; + + /* If we've passed the call to thread_db_look_up_symbols, then + anything not in the cache must not exist; we're not interested + in any libraries loaded after that point, only in symbols in + libpthread.so. It might not be an appropriate time to look + up a symbol, e.g. while we're trying to fetch registers. */ + return look_up_one_symbol (name, addrp, may_ask_gdb); +} + +int +thread_db_get_tls_address (struct thread_info *thread, CORE_ADDR offset, + CORE_ADDR load_module, CORE_ADDR *address) +{ + psaddr_t addr; + td_err_e err; + struct lwp_info *lwp; + struct thread_info *saved_thread; + struct process_info *proc; + struct thread_db *thread_db; + + proc = get_thread_process (thread); + thread_db = proc->priv->thread_db; + + /* If the thread layer is not (yet) initialized, fail. */ + if (thread_db == NULL || !thread_db->all_symbols_looked_up) + return TD_ERR; + + /* If td_thr_tls_get_addr is missing rather do not expect td_thr_tlsbase + could work. */ + if (thread_db->td_thr_tls_get_addr_p == NULL + || (load_module == 0 && thread_db->td_thr_tlsbase_p == NULL)) + return -1; + + lwp = get_thread_lwp (thread); + if (!lwp->thread_known) + find_one_thread (thread->id); + if (!lwp->thread_known) + return TD_NOTHR; + + saved_thread = current_thread; + current_thread = thread; + + if (load_module != 0) + { + /* Note the cast through uintptr_t: this interface only works if + a target address fits in a psaddr_t, which is a host pointer. + So a 32-bit debugger can not access 64-bit TLS through this. */ + err = thread_db->td_thr_tls_get_addr_p (&lwp->th, + (psaddr_t) (uintptr_t) load_module, + offset, &addr); + } + else + { + /* This code path handles the case of -static -pthread executables: + https://sourceware.org/ml/libc-help/2014-03/msg00024.html + For older GNU libc r_debug.r_map is NULL. For GNU libc after + PR libc/16831 due to GDB PR threads/16954 LOAD_MODULE is also NULL. + The constant number 1 depends on GNU __libc_setup_tls + initialization of l_tls_modid to 1. */ + err = thread_db->td_thr_tlsbase_p (&lwp->th, 1, &addr); + addr = (char *) addr + offset; + } + + current_thread = saved_thread; + if (err == TD_OK) + { + *address = (CORE_ADDR) (uintptr_t) addr; + return 0; + } + else + return err; +} + +/* See linux-low.h. */ + +bool +thread_db_thread_handle (ptid_t ptid, gdb_byte **handle, int *handle_len) +{ + struct thread_db *thread_db; + struct lwp_info *lwp; + thread_info *thread = find_thread_ptid (ptid); + + if (thread == NULL) + return false; + + thread_db = get_thread_process (thread)->priv->thread_db; + + if (thread_db == NULL) + return false; + + lwp = get_thread_lwp (thread); + + if (!lwp->thread_known && !find_one_thread (thread->id)) + return false; + + gdb_assert (lwp->thread_known); + + *handle = (gdb_byte *) &lwp->thread_handle; + *handle_len = sizeof (lwp->thread_handle); + return true; +} + +#ifdef USE_LIBTHREAD_DB_DIRECTLY + +static int +thread_db_load_search (void) +{ + td_err_e err; + struct thread_db *tdb; + struct process_info *proc = current_process (); + + gdb_assert (proc->priv->thread_db == NULL); + + tdb = XCNEW (struct thread_db); + proc->priv->thread_db = tdb; + + tdb->td_ta_new_p = &td_ta_new; + + /* Attempt to open a connection to the thread library. */ + err = tdb->td_ta_new_p (&tdb->proc_handle, &tdb->thread_agent); + if (err != TD_OK) + { + if (debug_threads) + debug_printf ("td_ta_new(): %s\n", thread_db_err_str (err)); + free (tdb); + proc->priv->thread_db = NULL; + return 0; + } + + tdb->td_ta_map_lwp2thr_p = &td_ta_map_lwp2thr; + tdb->td_thr_get_info_p = &td_thr_get_info; + tdb->td_ta_thr_iter_p = &td_ta_thr_iter; + tdb->td_symbol_list_p = &td_symbol_list; + + /* These are not essential. */ + tdb->td_thr_tls_get_addr_p = &td_thr_tls_get_addr; + tdb->td_thr_tlsbase_p = &td_thr_tlsbase; + + return 1; +} + +#else + +static int +try_thread_db_load_1 (void *handle) +{ + td_err_e err; + struct thread_db *tdb; + struct process_info *proc = current_process (); + + gdb_assert (proc->priv->thread_db == NULL); + + tdb = XCNEW (struct thread_db); + proc->priv->thread_db = tdb; + + tdb->handle = handle; + + /* Initialize pointers to the dynamic library functions we will use. + Essential functions first. */ + +#define CHK(required, a) \ + do \ + { \ + if ((a) == NULL) \ + { \ + if (debug_threads) \ + debug_printf ("dlsym: %s\n", dlerror ()); \ + if (required) \ + { \ + free (tdb); \ + proc->priv->thread_db = NULL; \ + return 0; \ + } \ + } \ + } \ + while (0) + +#define TDB_DLSYM(tdb, func) \ + tdb->func ## _p = (func ## _ftype *) dlsym (tdb->handle, #func) + + CHK (1, TDB_DLSYM (tdb, td_ta_new)); + + /* Attempt to open a connection to the thread library. */ + err = tdb->td_ta_new_p (&tdb->proc_handle, &tdb->thread_agent); + if (err != TD_OK) + { + if (debug_threads) + debug_printf ("td_ta_new(): %s\n", thread_db_err_str (err)); + free (tdb); + proc->priv->thread_db = NULL; + return 0; + } + + CHK (1, TDB_DLSYM (tdb, td_ta_map_lwp2thr)); + CHK (1, TDB_DLSYM (tdb, td_thr_get_info)); + CHK (1, TDB_DLSYM (tdb, td_ta_thr_iter)); + CHK (1, TDB_DLSYM (tdb, td_symbol_list)); + + /* These are not essential. */ + CHK (0, TDB_DLSYM (tdb, td_thr_tls_get_addr)); + CHK (0, TDB_DLSYM (tdb, td_thr_tlsbase)); + +#undef CHK +#undef TDB_DLSYM + + return 1; +} + +#ifdef HAVE_DLADDR + +/* Lookup a library in which given symbol resides. + Note: this is looking in the GDBSERVER process, not in the inferior. + Returns library name, or NULL. */ + +static const char * +dladdr_to_soname (const void *addr) +{ + Dl_info info; + + if (dladdr (addr, &info) != 0) + return info.dli_fname; + return NULL; +} + +#endif + +static int +try_thread_db_load (const char *library) +{ + void *handle; + + if (debug_threads) + debug_printf ("Trying host libthread_db library: %s.\n", + library); + handle = dlopen (library, RTLD_NOW); + if (handle == NULL) + { + if (debug_threads) + debug_printf ("dlopen failed: %s.\n", dlerror ()); + return 0; + } + +#ifdef HAVE_DLADDR + if (debug_threads && strchr (library, '/') == NULL) + { + void *td_init; + + td_init = dlsym (handle, "td_init"); + if (td_init != NULL) + { + const char *const libpath = dladdr_to_soname (td_init); + + if (libpath != NULL) + debug_printf ("Host %s resolved to: %s.\n", library, libpath); + } + } +#endif + + if (try_thread_db_load_1 (handle)) + return 1; + + /* This library "refused" to work on current inferior. */ + dlclose (handle); + return 0; +} + +/* Handle $sdir in libthread-db-search-path. + Look for libthread_db in the system dirs, or wherever a plain + dlopen(file_without_path) will look. + The result is true for success. */ + +static int +try_thread_db_load_from_sdir (void) +{ + return try_thread_db_load (LIBTHREAD_DB_SO); +} + +/* Try to load libthread_db from directory DIR of length DIR_LEN. + The result is true for success. */ + +static int +try_thread_db_load_from_dir (const char *dir, size_t dir_len) +{ + char path[PATH_MAX]; + + if (dir_len + 1 + strlen (LIBTHREAD_DB_SO) + 1 > sizeof (path)) + { + char *cp = (char *) xmalloc (dir_len + 1); + + memcpy (cp, dir, dir_len); + cp[dir_len] = '\0'; + warning (_("libthread-db-search-path component too long," + " ignored: %s."), cp); + free (cp); + return 0; + } + + memcpy (path, dir, dir_len); + path[dir_len] = '/'; + strcpy (path + dir_len + 1, LIBTHREAD_DB_SO); + return try_thread_db_load (path); +} + +/* Search libthread_db_search_path for libthread_db which "agrees" + to work on current inferior. + The result is true for success. */ + +static int +thread_db_load_search (void) +{ + int rc = 0; + + if (libthread_db_search_path == NULL) + libthread_db_search_path = xstrdup (LIBTHREAD_DB_SEARCH_PATH); + + std::vector> dir_vec + = dirnames_to_char_ptr_vec (libthread_db_search_path); + + for (const gdb::unique_xmalloc_ptr &this_dir_up : dir_vec) + { + char *this_dir = this_dir_up.get (); + const int pdir_len = sizeof ("$pdir") - 1; + size_t this_dir_len; + + this_dir_len = strlen (this_dir); + + if (strncmp (this_dir, "$pdir", pdir_len) == 0 + && (this_dir[pdir_len] == '\0' + || this_dir[pdir_len] == '/')) + { + /* We don't maintain a list of loaded libraries so we don't know + where libpthread lives. We *could* fetch the info, but we don't + do that yet. Ignore it. */ + } + else if (strcmp (this_dir, "$sdir") == 0) + { + if (try_thread_db_load_from_sdir ()) + { + rc = 1; + break; + } + } + else + { + if (try_thread_db_load_from_dir (this_dir, this_dir_len)) + { + rc = 1; + break; + } + } + } + + if (debug_threads) + debug_printf ("thread_db_load_search returning %d\n", rc); + return rc; +} + +#endif /* USE_LIBTHREAD_DB_DIRECTLY */ + +int +thread_db_init (void) +{ + struct process_info *proc = current_process (); + + /* FIXME drow/2004-10-16: This is the "overall process ID", which + GNU/Linux calls tgid, "thread group ID". When we support + attaching to threads, the original thread may not be the correct + thread. We would have to get the process ID from /proc for NPTL. + + This isn't the only place in gdbserver that assumes that the first + process in the list is the thread group leader. */ + + if (thread_db_load_search ()) + { + /* It's best to avoid td_ta_thr_iter if possible. That walks + data structures in the inferior's address space that may be + corrupted, or, if the target is running, the list may change + while we walk it. In the latter case, it's possible that a + thread exits just at the exact time that causes GDBserver to + get stuck in an infinite loop. As the kernel supports clone + events and /proc/PID/task/ exists, then we already know about + all threads in the process. When we need info out of + thread_db on a given thread (e.g., for TLS), we'll use + find_one_thread then. That uses thread_db entry points that + do not walk libpthread's thread list, so should be safe, as + well as more efficient. */ + if (!linux_proc_task_list_dir_exists (pid_of (proc))) + thread_db_find_new_threads (); + thread_db_look_up_symbols (); + return 1; + } + + return 0; +} + +static void +switch_to_process (struct process_info *proc) +{ + int pid = pid_of (proc); + + current_thread = find_any_thread_of_pid (pid); +} + +/* Disconnect from libthread_db and free resources. */ + +static void +disable_thread_event_reporting (struct process_info *proc) +{ + struct thread_db *thread_db = proc->priv->thread_db; + if (thread_db) + { + td_err_e (*td_ta_clear_event_p) (const td_thragent_t *ta, + td_thr_events_t *event); + +#ifndef USE_LIBTHREAD_DB_DIRECTLY + td_ta_clear_event_p + = (td_ta_clear_event_ftype *) dlsym (thread_db->handle, + "td_ta_clear_event"); +#else + td_ta_clear_event_p = &td_ta_clear_event; +#endif + + if (td_ta_clear_event_p != NULL) + { + struct thread_info *saved_thread = current_thread; + td_thr_events_t events; + + switch_to_process (proc); + + /* Set the process wide mask saying we aren't interested + in any events anymore. */ + td_event_fillset (&events); + (*td_ta_clear_event_p) (thread_db->thread_agent, &events); + + current_thread = saved_thread; + } + } +} + +void +thread_db_detach (struct process_info *proc) +{ + struct thread_db *thread_db = proc->priv->thread_db; + + if (thread_db) + { + disable_thread_event_reporting (proc); + } +} + +/* Disconnect from libthread_db and free resources. */ + +void +thread_db_mourn (struct process_info *proc) +{ + struct thread_db *thread_db = proc->priv->thread_db; + if (thread_db) + { + td_ta_delete_ftype *td_ta_delete_p; + +#ifndef USE_LIBTHREAD_DB_DIRECTLY + td_ta_delete_p = (td_ta_delete_ftype *) dlsym (thread_db->handle, "td_ta_delete"); +#else + td_ta_delete_p = &td_ta_delete; +#endif + + if (td_ta_delete_p != NULL) + (*td_ta_delete_p) (thread_db->thread_agent); + +#ifndef USE_LIBTHREAD_DB_DIRECTLY + dlclose (thread_db->handle); +#endif /* USE_LIBTHREAD_DB_DIRECTLY */ + + free (thread_db); + proc->priv->thread_db = NULL; + } +} + +/* Handle "set libthread-db-search-path" monitor command and return 1. + For any other command, return 0. */ + +int +thread_db_handle_monitor_command (char *mon) +{ + const char *cmd = "set libthread-db-search-path"; + size_t cmd_len = strlen (cmd); + + if (strncmp (mon, cmd, cmd_len) == 0 + && (mon[cmd_len] == '\0' + || mon[cmd_len] == ' ')) + { + const char *cp = mon + cmd_len; + + if (libthread_db_search_path != NULL) + free (libthread_db_search_path); + + /* Skip leading space (if any). */ + while (isspace (*cp)) + ++cp; + + if (*cp == '\0') + cp = LIBTHREAD_DB_SEARCH_PATH; + libthread_db_search_path = xstrdup (cp); + + monitor_output ("libthread-db-search-path set to `"); + monitor_output (libthread_db_search_path); + monitor_output ("'\n"); + return 1; + } + + /* Tell server.c to perform default processing. */ + return 0; +} + +/* See linux-low.h. */ + +void +thread_db_notice_clone (struct thread_info *parent_thr, ptid_t child_ptid) +{ + process_info *parent_proc = get_thread_process (parent_thr); + struct thread_db *thread_db = parent_proc->priv->thread_db; + + /* If the thread layer isn't initialized, return. It may just + be that the program uses clone, but does not use libthread_db. */ + if (thread_db == NULL || !thread_db->all_symbols_looked_up) + return; + + /* find_one_thread calls into libthread_db which accesses memory via + the current thread. Temporarily switch to a thread we know is + stopped. */ + scoped_restore restore_current_thread + = make_scoped_restore (¤t_thread, parent_thr); + + if (!find_one_thread (child_ptid)) + warning ("Cannot find thread after clone."); +} diff --git a/gdbserver/tracepoint.c b/gdbserver/tracepoint.c deleted file mode 100644 index bbca48b2efd..00000000000 --- a/gdbserver/tracepoint.c +++ /dev/null @@ -1,7473 +0,0 @@ -/* Tracepoint code for remote server for GDB. - Copyright (C) 2009-2020 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 . */ - -#include "server.h" -#include "tracepoint.h" -#include "gdbthread.h" -#include "gdbsupport/rsp-low.h" - -#include -#include -#include -#include -#include -#include "ax.h" -#include "tdesc.h" - -#define IPA_SYM_STRUCT_NAME ipa_sym_addresses -#include "gdbsupport/agent.h" - -#define DEFAULT_TRACE_BUFFER_SIZE 5242880 /* 5*1024*1024 */ - -/* This file is built for both GDBserver, and the in-process - agent (IPA), a shared library that includes a tracing agent that is - loaded by the inferior to support fast tracepoints. Fast - tracepoints (or more accurately, jump based tracepoints) are - implemented by patching the tracepoint location with a jump into a - small trampoline function whose job is to save the register state, - call the in-process tracing agent, and then execute the original - instruction that was under the tracepoint jump (possibly adjusted, - if PC-relative, or some such). - - The current synchronization design is pull based. That means, - GDBserver does most of the work, by peeking/poking at the inferior - agent's memory directly for downloading tracepoint and associated - objects, and for uploading trace frames. Whenever the IPA needs - something from GDBserver (trace buffer is full, tracing stopped for - some reason, etc.) the IPA calls a corresponding hook function - where GDBserver has placed a breakpoint. - - Each of the agents has its own trace buffer. When browsing the - trace frames built from slow and fast tracepoints from GDB (tfind - mode), there's no guarantee the user is seeing the trace frames in - strict chronological creation order, although, GDBserver tries to - keep the order relatively reasonable, by syncing the trace buffers - at appropriate times. - -*/ - -#ifdef IN_PROCESS_AGENT - -static void trace_vdebug (const char *, ...) ATTRIBUTE_PRINTF (1, 2); - -static void -trace_vdebug (const char *fmt, ...) -{ - char buf[1024]; - va_list ap; - - va_start (ap, fmt); - vsprintf (buf, fmt, ap); - fprintf (stderr, PROG "/tracepoint: %s\n", buf); - va_end (ap); -} - -#define trace_debug_1(level, fmt, args...) \ - do { \ - if (level <= debug_threads) \ - trace_vdebug ((fmt), ##args); \ - } while (0) - -#else - -#define trace_debug_1(level, fmt, args...) \ - do { \ - if (level <= debug_threads) \ - { \ - debug_printf ((fmt), ##args); \ - debug_printf ("\n"); \ - } \ - } while (0) - -#endif - -#define trace_debug(FMT, args...) \ - trace_debug_1 (1, FMT, ##args) - -/* Prefix exported symbols, for good citizenship. All the symbols - that need exporting are defined in this module. Note that all - these symbols must be tagged with IP_AGENT_EXPORT_*. */ -#ifdef IN_PROCESS_AGENT -# define gdb_tp_heap_buffer IPA_SYM_EXPORTED_NAME (gdb_tp_heap_buffer) -# define gdb_jump_pad_buffer IPA_SYM_EXPORTED_NAME (gdb_jump_pad_buffer) -# define gdb_jump_pad_buffer_end IPA_SYM_EXPORTED_NAME (gdb_jump_pad_buffer_end) -# define gdb_trampoline_buffer IPA_SYM_EXPORTED_NAME (gdb_trampoline_buffer) -# define gdb_trampoline_buffer_end IPA_SYM_EXPORTED_NAME (gdb_trampoline_buffer_end) -# define gdb_trampoline_buffer_error IPA_SYM_EXPORTED_NAME (gdb_trampoline_buffer_error) -# define collecting IPA_SYM_EXPORTED_NAME (collecting) -# define gdb_collect_ptr IPA_SYM_EXPORTED_NAME (gdb_collect_ptr) -# define stop_tracing IPA_SYM_EXPORTED_NAME (stop_tracing) -# define flush_trace_buffer IPA_SYM_EXPORTED_NAME (flush_trace_buffer) -# define about_to_request_buffer_space IPA_SYM_EXPORTED_NAME (about_to_request_buffer_space) -# define trace_buffer_is_full IPA_SYM_EXPORTED_NAME (trace_buffer_is_full) -# define stopping_tracepoint IPA_SYM_EXPORTED_NAME (stopping_tracepoint) -# define expr_eval_result IPA_SYM_EXPORTED_NAME (expr_eval_result) -# define error_tracepoint IPA_SYM_EXPORTED_NAME (error_tracepoint) -# define tracepoints IPA_SYM_EXPORTED_NAME (tracepoints) -# define tracing IPA_SYM_EXPORTED_NAME (tracing) -# define trace_buffer_ctrl IPA_SYM_EXPORTED_NAME (trace_buffer_ctrl) -# define trace_buffer_ctrl_curr IPA_SYM_EXPORTED_NAME (trace_buffer_ctrl_curr) -# define trace_buffer_lo IPA_SYM_EXPORTED_NAME (trace_buffer_lo) -# define trace_buffer_hi IPA_SYM_EXPORTED_NAME (trace_buffer_hi) -# define traceframe_read_count IPA_SYM_EXPORTED_NAME (traceframe_read_count) -# define traceframe_write_count IPA_SYM_EXPORTED_NAME (traceframe_write_count) -# define traceframes_created IPA_SYM_EXPORTED_NAME (traceframes_created) -# define trace_state_variables IPA_SYM_EXPORTED_NAME (trace_state_variables) -# define get_raw_reg_ptr IPA_SYM_EXPORTED_NAME (get_raw_reg_ptr) -# define get_trace_state_variable_value_ptr \ - IPA_SYM_EXPORTED_NAME (get_trace_state_variable_value_ptr) -# define set_trace_state_variable_value_ptr \ - IPA_SYM_EXPORTED_NAME (set_trace_state_variable_value_ptr) -# define ust_loaded IPA_SYM_EXPORTED_NAME (ust_loaded) -# define helper_thread_id IPA_SYM_EXPORTED_NAME (helper_thread_id) -# define cmd_buf IPA_SYM_EXPORTED_NAME (cmd_buf) -# define ipa_tdesc_idx IPA_SYM_EXPORTED_NAME (ipa_tdesc_idx) -#endif - -#ifndef IN_PROCESS_AGENT - -/* Addresses of in-process agent's symbols GDBserver cares about. */ - -struct ipa_sym_addresses -{ - CORE_ADDR addr_gdb_tp_heap_buffer; - CORE_ADDR addr_gdb_jump_pad_buffer; - CORE_ADDR addr_gdb_jump_pad_buffer_end; - CORE_ADDR addr_gdb_trampoline_buffer; - CORE_ADDR addr_gdb_trampoline_buffer_end; - CORE_ADDR addr_gdb_trampoline_buffer_error; - CORE_ADDR addr_collecting; - CORE_ADDR addr_gdb_collect_ptr; - CORE_ADDR addr_stop_tracing; - CORE_ADDR addr_flush_trace_buffer; - CORE_ADDR addr_about_to_request_buffer_space; - CORE_ADDR addr_trace_buffer_is_full; - CORE_ADDR addr_stopping_tracepoint; - CORE_ADDR addr_expr_eval_result; - CORE_ADDR addr_error_tracepoint; - CORE_ADDR addr_tracepoints; - CORE_ADDR addr_tracing; - CORE_ADDR addr_trace_buffer_ctrl; - CORE_ADDR addr_trace_buffer_ctrl_curr; - CORE_ADDR addr_trace_buffer_lo; - CORE_ADDR addr_trace_buffer_hi; - CORE_ADDR addr_traceframe_read_count; - CORE_ADDR addr_traceframe_write_count; - CORE_ADDR addr_traceframes_created; - CORE_ADDR addr_trace_state_variables; - CORE_ADDR addr_get_raw_reg_ptr; - CORE_ADDR addr_get_trace_state_variable_value_ptr; - CORE_ADDR addr_set_trace_state_variable_value_ptr; - CORE_ADDR addr_ust_loaded; - CORE_ADDR addr_ipa_tdesc_idx; -}; - -static struct -{ - const char *name; - int offset; -} symbol_list[] = { - IPA_SYM(gdb_tp_heap_buffer), - IPA_SYM(gdb_jump_pad_buffer), - IPA_SYM(gdb_jump_pad_buffer_end), - IPA_SYM(gdb_trampoline_buffer), - IPA_SYM(gdb_trampoline_buffer_end), - IPA_SYM(gdb_trampoline_buffer_error), - IPA_SYM(collecting), - IPA_SYM(gdb_collect_ptr), - IPA_SYM(stop_tracing), - IPA_SYM(flush_trace_buffer), - IPA_SYM(about_to_request_buffer_space), - IPA_SYM(trace_buffer_is_full), - IPA_SYM(stopping_tracepoint), - IPA_SYM(expr_eval_result), - IPA_SYM(error_tracepoint), - IPA_SYM(tracepoints), - IPA_SYM(tracing), - IPA_SYM(trace_buffer_ctrl), - IPA_SYM(trace_buffer_ctrl_curr), - IPA_SYM(trace_buffer_lo), - IPA_SYM(trace_buffer_hi), - IPA_SYM(traceframe_read_count), - IPA_SYM(traceframe_write_count), - IPA_SYM(traceframes_created), - IPA_SYM(trace_state_variables), - IPA_SYM(get_raw_reg_ptr), - IPA_SYM(get_trace_state_variable_value_ptr), - IPA_SYM(set_trace_state_variable_value_ptr), - IPA_SYM(ust_loaded), - IPA_SYM(ipa_tdesc_idx), -}; - -static struct ipa_sym_addresses ipa_sym_addrs; - -static int read_inferior_integer (CORE_ADDR symaddr, int *val); - -/* Returns true if both the in-process agent library and the static - tracepoints libraries are loaded in the inferior, and agent has - capability on static tracepoints. */ - -static int -in_process_agent_supports_ust (void) -{ - int loaded = 0; - - if (!agent_loaded_p ()) - { - warning ("In-process agent not loaded"); - return 0; - } - - if (agent_capability_check (AGENT_CAPA_STATIC_TRACE)) - { - /* Agent understands static tracepoint, then check whether UST is in - fact loaded in the inferior. */ - if (read_inferior_integer (ipa_sym_addrs.addr_ust_loaded, &loaded)) - { - warning ("Error reading ust_loaded in lib"); - return 0; - } - - return loaded; - } - else - return 0; -} - -static void -write_e_ipa_not_loaded (char *buffer) -{ - sprintf (buffer, - "E.In-process agent library not loaded in process. " - "Fast and static tracepoints unavailable."); -} - -/* Write an error to BUFFER indicating that UST isn't loaded in the - inferior. */ - -static void -write_e_ust_not_loaded (char *buffer) -{ -#ifdef HAVE_UST - sprintf (buffer, - "E.UST library not loaded in process. " - "Static tracepoints unavailable."); -#else - sprintf (buffer, "E.GDBserver was built without static tracepoints support"); -#endif -} - -/* If the in-process agent library isn't loaded in the inferior, write - an error to BUFFER, and return 1. Otherwise, return 0. */ - -static int -maybe_write_ipa_not_loaded (char *buffer) -{ - if (!agent_loaded_p ()) - { - write_e_ipa_not_loaded (buffer); - return 1; - } - return 0; -} - -/* If the in-process agent library and the ust (static tracepoints) - library aren't loaded in the inferior, write an error to BUFFER, - and return 1. Otherwise, return 0. */ - -static int -maybe_write_ipa_ust_not_loaded (char *buffer) -{ - if (!agent_loaded_p ()) - { - write_e_ipa_not_loaded (buffer); - return 1; - } - else if (!in_process_agent_supports_ust ()) - { - write_e_ust_not_loaded (buffer); - return 1; - } - return 0; -} - -/* Cache all future symbols that the tracepoints module might request. - We can not request symbols at arbitrary states in the remote - protocol, only when the client tells us that new symbols are - available. So when we load the in-process library, make sure to - check the entire list. */ - -void -tracepoint_look_up_symbols (void) -{ - int i; - - if (agent_loaded_p ()) - return; - - for (i = 0; i < sizeof (symbol_list) / sizeof (symbol_list[0]); i++) - { - CORE_ADDR *addrp = - (CORE_ADDR *) ((char *) &ipa_sym_addrs + symbol_list[i].offset); - - if (look_up_one_symbol (symbol_list[i].name, addrp, 1) == 0) - { - if (debug_threads) - debug_printf ("symbol `%s' not found\n", symbol_list[i].name); - return; - } - } - - agent_look_up_symbols (NULL); -} - -#endif - -/* GDBserver places a breakpoint on the IPA's version (which is a nop) - of the "stop_tracing" function. When this breakpoint is hit, - tracing stopped in the IPA for some reason. E.g., due to - tracepoint reaching the pass count, hitting conditional expression - evaluation error, etc. - - The IPA's trace buffer is never in circular tracing mode: instead, - GDBserver's is, and whenever the in-process buffer fills, it calls - "flush_trace_buffer", which triggers an internal breakpoint. - GDBserver reacts to this breakpoint by pulling the meanwhile - collected data. Old frames discarding is always handled on the - GDBserver side. */ - -#ifdef IN_PROCESS_AGENT -int -read_inferior_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) -{ - memcpy (myaddr, (void *) (uintptr_t) memaddr, len); - return 0; -} - -/* Call this in the functions where GDBserver places a breakpoint, so - that the compiler doesn't try to be clever and skip calling the - function at all. This is necessary, even if we tell the compiler - to not inline said functions. */ - -#if defined(__GNUC__) -# define UNKNOWN_SIDE_EFFECTS() asm ("") -#else -# define UNKNOWN_SIDE_EFFECTS() do {} while (0) -#endif - -/* This is needed for -Wmissing-declarations. */ -IP_AGENT_EXPORT_FUNC void stop_tracing (void); - -IP_AGENT_EXPORT_FUNC void -stop_tracing (void) -{ - /* GDBserver places breakpoint here. */ - UNKNOWN_SIDE_EFFECTS(); -} - -/* This is needed for -Wmissing-declarations. */ -IP_AGENT_EXPORT_FUNC void flush_trace_buffer (void); - -IP_AGENT_EXPORT_FUNC void -flush_trace_buffer (void) -{ - /* GDBserver places breakpoint here. */ - UNKNOWN_SIDE_EFFECTS(); -} - -#endif - -#ifndef IN_PROCESS_AGENT -static int -tracepoint_handler (CORE_ADDR address) -{ - trace_debug ("tracepoint_handler: tracepoint at 0x%s hit", - paddress (address)); - return 0; -} - -/* Breakpoint at "stop_tracing" in the inferior lib. */ -struct breakpoint *stop_tracing_bkpt; -static int stop_tracing_handler (CORE_ADDR); - -/* Breakpoint at "flush_trace_buffer" in the inferior lib. */ -struct breakpoint *flush_trace_buffer_bkpt; -static int flush_trace_buffer_handler (CORE_ADDR); - -static void download_trace_state_variables (void); -static void upload_fast_traceframes (void); - -static int run_inferior_command (char *cmd, int len); - -static int -read_inferior_integer (CORE_ADDR symaddr, int *val) -{ - return read_inferior_memory (symaddr, (unsigned char *) val, - sizeof (*val)); -} - -struct tracepoint; -static int tracepoint_send_agent (struct tracepoint *tpoint); - -static int -read_inferior_uinteger (CORE_ADDR symaddr, unsigned int *val) -{ - return read_inferior_memory (symaddr, (unsigned char *) val, - sizeof (*val)); -} - -static int -read_inferior_data_pointer (CORE_ADDR symaddr, CORE_ADDR *val) -{ - void *pval = (void *) (uintptr_t) val; - int ret; - - ret = read_inferior_memory (symaddr, (unsigned char *) &pval, sizeof (pval)); - *val = (uintptr_t) pval; - return ret; -} - -static int -write_inferior_data_pointer (CORE_ADDR symaddr, CORE_ADDR val) -{ - void *pval = (void *) (uintptr_t) val; - return target_write_memory (symaddr, - (unsigned char *) &pval, sizeof (pval)); -} - -static int -write_inferior_integer (CORE_ADDR symaddr, int val) -{ - return target_write_memory (symaddr, (unsigned char *) &val, sizeof (val)); -} - -static int -write_inferior_int8 (CORE_ADDR symaddr, int8_t val) -{ - return target_write_memory (symaddr, (unsigned char *) &val, sizeof (val)); -} - -static int -write_inferior_uinteger (CORE_ADDR symaddr, unsigned int val) -{ - return target_write_memory (symaddr, (unsigned char *) &val, sizeof (val)); -} - -static CORE_ADDR target_malloc (ULONGEST size); - -#define COPY_FIELD_TO_BUF(BUF, OBJ, FIELD) \ - do { \ - memcpy (BUF, &(OBJ)->FIELD, sizeof ((OBJ)->FIELD)); \ - BUF += sizeof ((OBJ)->FIELD); \ - } while (0) - -#endif - -/* Base action. Concrete actions inherit this. */ - -struct tracepoint_action -{ - char type; -}; - -/* An 'M' (collect memory) action. */ -struct collect_memory_action -{ - struct tracepoint_action base; - - ULONGEST addr; - ULONGEST len; - int32_t basereg; -}; - -/* An 'R' (collect registers) action. */ - -struct collect_registers_action -{ - struct tracepoint_action base; -}; - -/* An 'X' (evaluate expression) action. */ - -struct eval_expr_action -{ - struct tracepoint_action base; - - struct agent_expr *expr; -}; - -/* An 'L' (collect static trace data) action. */ -struct collect_static_trace_data_action -{ - struct tracepoint_action base; -}; - -#ifndef IN_PROCESS_AGENT -static CORE_ADDR -m_tracepoint_action_download (const struct tracepoint_action *action) -{ - CORE_ADDR ipa_action = target_malloc (sizeof (struct collect_memory_action)); - - target_write_memory (ipa_action, (unsigned char *) action, - sizeof (struct collect_memory_action)); - - return ipa_action; -} -static char * -m_tracepoint_action_send (char *buffer, const struct tracepoint_action *action) -{ - struct collect_memory_action *maction - = (struct collect_memory_action *) action; - - COPY_FIELD_TO_BUF (buffer, maction, addr); - COPY_FIELD_TO_BUF (buffer, maction, len); - COPY_FIELD_TO_BUF (buffer, maction, basereg); - - return buffer; -} - -static CORE_ADDR -r_tracepoint_action_download (const struct tracepoint_action *action) -{ - CORE_ADDR ipa_action = target_malloc (sizeof (struct collect_registers_action)); - - target_write_memory (ipa_action, (unsigned char *) action, - sizeof (struct collect_registers_action)); - - return ipa_action; -} - -static char * -r_tracepoint_action_send (char *buffer, const struct tracepoint_action *action) -{ - return buffer; -} - -static CORE_ADDR download_agent_expr (struct agent_expr *expr); - -static CORE_ADDR -x_tracepoint_action_download (const struct tracepoint_action *action) -{ - CORE_ADDR ipa_action = target_malloc (sizeof (struct eval_expr_action)); - CORE_ADDR expr; - - target_write_memory (ipa_action, (unsigned char *) action, - sizeof (struct eval_expr_action)); - expr = download_agent_expr (((struct eval_expr_action *) action)->expr); - write_inferior_data_pointer (ipa_action - + offsetof (struct eval_expr_action, expr), - expr); - - return ipa_action; -} - -/* Copy agent expression AEXPR to buffer pointed by P. If AEXPR is NULL, - copy 0 to P. Return updated header of buffer. */ - -static char * -agent_expr_send (char *p, const struct agent_expr *aexpr) -{ - /* Copy the length of condition first, and then copy its - content. */ - if (aexpr == NULL) - { - memset (p, 0, 4); - p += 4; - } - else - { - memcpy (p, &aexpr->length, 4); - p +=4; - - memcpy (p, aexpr->bytes, aexpr->length); - p += aexpr->length; - } - return p; -} - -static char * -x_tracepoint_action_send ( char *buffer, const struct tracepoint_action *action) -{ - struct eval_expr_action *eaction = (struct eval_expr_action *) action; - - return agent_expr_send (buffer, eaction->expr); -} - -static CORE_ADDR -l_tracepoint_action_download (const struct tracepoint_action *action) -{ - CORE_ADDR ipa_action - = target_malloc (sizeof (struct collect_static_trace_data_action)); - - target_write_memory (ipa_action, (unsigned char *) action, - sizeof (struct collect_static_trace_data_action)); - - return ipa_action; -} - -static char * -l_tracepoint_action_send (char *buffer, const struct tracepoint_action *action) -{ - return buffer; -} - -static char * -tracepoint_action_send (char *buffer, const struct tracepoint_action *action) -{ - switch (action->type) - { - case 'M': - return m_tracepoint_action_send (buffer, action); - case 'R': - return r_tracepoint_action_send (buffer, action); - case 'X': - return x_tracepoint_action_send (buffer, action); - case 'L': - return l_tracepoint_action_send (buffer, action); - } - error ("Unknown trace action '%c'.", action->type); -} - -static CORE_ADDR -tracepoint_action_download (const struct tracepoint_action *action) -{ - switch (action->type) - { - case 'M': - return m_tracepoint_action_download (action); - case 'R': - return r_tracepoint_action_download (action); - case 'X': - return x_tracepoint_action_download (action); - case 'L': - return l_tracepoint_action_download (action); - } - error ("Unknown trace action '%c'.", action->type); -} -#endif - -/* This structure describes a piece of the source-level definition of - the tracepoint. The contents are not interpreted by the target, - but preserved verbatim for uploading upon reconnection. */ - -struct source_string -{ - /* The type of string, such as "cond" for a conditional. */ - char *type; - - /* The source-level string itself. For the sake of target - debugging, we store it in plaintext, even though it is always - transmitted in hex. */ - char *str; - - /* Link to the next one in the list. We link them in the order - received, in case some make up an ordered list of commands or - some such. */ - struct source_string *next; -}; - -enum tracepoint_type -{ - /* Trap based tracepoint. */ - trap_tracepoint, - - /* A fast tracepoint implemented with a jump instead of a trap. */ - fast_tracepoint, - - /* A static tracepoint, implemented by a program call into a tracing - library. */ - static_tracepoint -}; - -struct tracepoint_hit_ctx; - -typedef enum eval_result_type (*condfn) (unsigned char *, - ULONGEST *); - -/* The definition of a tracepoint. */ - -/* Tracepoints may have multiple locations, each at a different - address. This can occur with optimizations, template - instantiation, etc. Since the locations may be in different - scopes, the conditions and actions may be different for each - location. Our target version of tracepoints is more like GDB's - notion of "breakpoint locations", but we have almost nothing that - is not per-location, so we bother having two kinds of objects. The - key consequence is that numbers are not unique, and that it takes - both number and address to identify a tracepoint uniquely. */ - -struct tracepoint -{ - /* The number of the tracepoint, as specified by GDB. Several - tracepoint objects here may share a number. */ - uint32_t number; - - /* Address at which the tracepoint is supposed to trigger. Several - tracepoints may share an address. */ - CORE_ADDR address; - - /* Tracepoint type. */ - enum tracepoint_type type; - - /* True if the tracepoint is currently enabled. */ - int8_t enabled; - - /* The number of single steps that will be performed after each - tracepoint hit. */ - uint64_t step_count; - - /* The number of times the tracepoint may be hit before it will - terminate the entire tracing run. */ - uint64_t pass_count; - - /* Pointer to the agent expression that is the tracepoint's - conditional, or NULL if the tracepoint is unconditional. */ - struct agent_expr *cond; - - /* The list of actions to take when the tracepoint triggers. */ - uint32_t numactions; - struct tracepoint_action **actions; - - /* Count of the times we've hit this tracepoint during the run. - Note that while-stepping steps are not counted as "hits". */ - uint64_t hit_count; - - /* Cached sum of the sizes of traceframes created by this point. */ - uint64_t traceframe_usage; - - CORE_ADDR compiled_cond; - - /* Link to the next tracepoint in the list. */ - struct tracepoint *next; - -#ifndef IN_PROCESS_AGENT - /* The list of actions to take when the tracepoint triggers, in - string/packet form. */ - char **actions_str; - - /* The collection of strings that describe the tracepoint as it was - entered into GDB. These are not used by the target, but are - reported back to GDB upon reconnection. */ - struct source_string *source_strings; - - /* The number of bytes displaced by fast tracepoints. It may subsume - multiple instructions, for multi-byte fast tracepoints. This - field is only valid for fast tracepoints. */ - uint32_t orig_size; - - /* Only for fast tracepoints. */ - CORE_ADDR obj_addr_on_target; - - /* Address range where the original instruction under a fast - tracepoint was relocated to. (_end is actually one byte past - the end). */ - CORE_ADDR adjusted_insn_addr; - CORE_ADDR adjusted_insn_addr_end; - - /* The address range of the piece of the jump pad buffer that was - assigned to this fast tracepoint. (_end is actually one byte - past the end).*/ - CORE_ADDR jump_pad; - CORE_ADDR jump_pad_end; - - /* The address range of the piece of the trampoline buffer that was - assigned to this fast tracepoint. (_end is actually one byte - past the end). */ - CORE_ADDR trampoline; - CORE_ADDR trampoline_end; - - /* The list of actions to take while in a stepping loop. These - fields are only valid for patch-based tracepoints. */ - int num_step_actions; - struct tracepoint_action **step_actions; - /* Same, but in string/packet form. */ - char **step_actions_str; - - /* Handle returned by the breakpoint or tracepoint module when we - inserted the trap or jump, or hooked into a static tracepoint. - NULL if we haven't inserted it yet. */ - void *handle; -#endif - -}; - -#ifndef IN_PROCESS_AGENT - -/* Given `while-stepping', a thread may be collecting data for more - than one tracepoint simultaneously. On the other hand, the same - tracepoint with a while-stepping action may be hit by more than one - thread simultaneously (but not quite, each thread could be handling - a different step). Each thread holds a list of these objects, - representing the current step of each while-stepping action being - collected. */ - -struct wstep_state -{ - struct wstep_state *next; - - /* The tracepoint number. */ - int tp_number; - /* The tracepoint's address. */ - CORE_ADDR tp_address; - - /* The number of the current step in this 'while-stepping' - action. */ - long current_step; -}; - -#endif - -EXTERN_C_PUSH - -/* The linked list of all tracepoints. Marked explicitly as used as - the in-process library doesn't use it for the fast tracepoints - support. */ -IP_AGENT_EXPORT_VAR struct tracepoint *tracepoints; - -/* The first tracepoint to exceed its pass count. */ - -IP_AGENT_EXPORT_VAR struct tracepoint *stopping_tracepoint; - -/* True if the trace buffer is full or otherwise no longer usable. */ - -IP_AGENT_EXPORT_VAR int trace_buffer_is_full; - -/* The first error that occurred during expression evaluation. */ - -/* Stored as an int to avoid the IPA ABI being dependent on whatever - the compiler decides to use for the enum's underlying type. Holds - enum eval_result_type values. */ -IP_AGENT_EXPORT_VAR int expr_eval_result = expr_eval_no_error; - -EXTERN_C_POP - -#ifndef IN_PROCESS_AGENT - -/* Pointer to the last tracepoint in the list, new tracepoints are - linked in at the end. */ - -static struct tracepoint *last_tracepoint; - -static const char *eval_result_names[] = - { - "terror:in the attic", /* this should never be reported */ - "terror:empty expression", - "terror:empty stack", - "terror:stack overflow", - "terror:stack underflow", - "terror:unhandled opcode", - "terror:unrecognized opcode", - "terror:divide by zero" - }; - -#endif - -/* The tracepoint in which the error occurred. */ - -EXTERN_C_PUSH -IP_AGENT_EXPORT_VAR struct tracepoint *error_tracepoint; -EXTERN_C_POP - -struct trace_state_variable -{ - /* This is the name of the variable as used in GDB. The target - doesn't use the name, but needs to have it for saving and - reconnection purposes. */ - char *name; - - /* This number identifies the variable uniquely. Numbers may be - assigned either by the target (in the case of builtin variables), - or by GDB, and are presumed unique during the course of a trace - experiment. */ - int number; - - /* The variable's initial value, a 64-bit signed integer always. */ - LONGEST initial_value; - - /* The variable's value, a 64-bit signed integer always. */ - LONGEST value; - - /* Pointer to a getter function, used to supply computed values. */ - LONGEST (*getter) (void); - - /* Link to the next variable. */ - struct trace_state_variable *next; -}; - -/* Linked list of all trace state variables. */ - -#ifdef IN_PROCESS_AGENT -struct trace_state_variable *alloced_trace_state_variables; -#endif - -IP_AGENT_EXPORT_VAR struct trace_state_variable *trace_state_variables; - -/* The results of tracing go into a fixed-size space known as the - "trace buffer". Because usage follows a limited number of - patterns, we manage it ourselves rather than with malloc. Basic - rules are that we create only one trace frame at a time, each is - variable in size, they are never moved once created, and we only - discard if we are doing a circular buffer, and then only the oldest - ones. Each trace frame includes its own size, so we don't need to - link them together, and the trace frame number is relative to the - first one, so we don't need to record numbers. A trace frame also - records the number of the tracepoint that created it. The data - itself is a series of blocks, each introduced by a single character - and with a defined format. Each type of block has enough - type/length info to allow scanners to jump quickly from one block - to the next without reading each byte in the block. */ - -/* Trace buffer management would be simple - advance a free pointer - from beginning to end, then stop - were it not for the circular - buffer option, which is a useful way to prevent a trace run from - stopping prematurely because the buffer filled up. In the circular - case, the location of the first trace frame (trace_buffer_start) - moves as old trace frames are discarded. Also, since we grow trace - frames incrementally as actions are performed, we wrap around to - the beginning of the trace buffer. This is per-block, so each - block within a trace frame remains contiguous. Things get messy - when the wrapped-around trace frame is the one being discarded; the - free space ends up in two parts at opposite ends of the buffer. */ - -#ifndef ATTR_PACKED -# if defined(__GNUC__) -# define ATTR_PACKED __attribute__ ((packed)) -# else -# define ATTR_PACKED /* nothing */ -# endif -#endif - -/* The data collected at a tracepoint hit. This object should be as - small as possible, since there may be a great many of them. We do - not need to keep a frame number, because they are all sequential - and there are no deletions; so the Nth frame in the buffer is - always frame number N. */ - -struct traceframe -{ - /* Number of the tracepoint that collected this traceframe. A value - of 0 indicates the current end of the trace buffer. We make this - a 16-bit field because it's never going to happen that GDB's - numbering of tracepoints reaches 32,000. */ - int tpnum : 16; - - /* The size of the data in this trace frame. We limit this to 32 - bits, even on a 64-bit target, because it's just implausible that - one is validly going to collect 4 gigabytes of data at a single - tracepoint hit. */ - unsigned int data_size : 32; - - /* The base of the trace data, which is contiguous from this point. */ - unsigned char data[0]; - -} ATTR_PACKED; - -/* The size of the EOB marker, in bytes. A traceframe with zeroed - fields (and no data) marks the end of trace data. */ -#define TRACEFRAME_EOB_MARKER_SIZE offsetof (struct traceframe, data) - -/* This flag is true if the trace buffer is circular, meaning that - when it fills, the oldest trace frames are discarded in order to - make room. */ - -#ifndef IN_PROCESS_AGENT -static int circular_trace_buffer; -#endif - -/* Size of the trace buffer. */ - -static LONGEST trace_buffer_size; - -EXTERN_C_PUSH - -/* Pointer to the block of memory that traceframes all go into. */ - -IP_AGENT_EXPORT_VAR unsigned char *trace_buffer_lo; - -/* Pointer to the end of the trace buffer, more precisely to the byte - after the end of the buffer. */ - -IP_AGENT_EXPORT_VAR unsigned char *trace_buffer_hi; - -EXTERN_C_POP - -/* Control structure holding the read/write/etc. pointers into the - trace buffer. We need more than one of these to implement a - transaction-like mechanism to guarantees that both GDBserver and the - in-process agent can try to change the trace buffer - simultaneously. */ - -struct trace_buffer_control -{ - /* Pointer to the first trace frame in the buffer. In the - non-circular case, this is equal to trace_buffer_lo, otherwise it - moves around in the buffer. */ - unsigned char *start; - - /* Pointer to the free part of the trace buffer. Note that we clear - several bytes at and after this pointer, so that traceframe - scans/searches terminate properly. */ - unsigned char *free; - - /* Pointer to the byte after the end of the free part. Note that - this may be smaller than trace_buffer_free in the circular case, - and means that the free part is in two pieces. Initially it is - equal to trace_buffer_hi, then is generally equivalent to - trace_buffer_start. */ - unsigned char *end_free; - - /* Pointer to the wraparound. If not equal to trace_buffer_hi, then - this is the point at which the trace data breaks, and resumes at - trace_buffer_lo. */ - unsigned char *wrap; -}; - -/* Same as above, to be used by GDBserver when updating the in-process - agent. */ -struct ipa_trace_buffer_control -{ - uintptr_t start; - uintptr_t free; - uintptr_t end_free; - uintptr_t wrap; -}; - - -/* We have possibly both GDBserver and an inferior thread accessing - the same IPA trace buffer memory. The IPA is the producer (tries - to put new frames in the buffer), while GDBserver occasionally - consumes them, that is, flushes the IPA's buffer into its own - buffer. Both sides need to update the trace buffer control - pointers (current head, tail, etc.). We can't use a global lock to - synchronize the accesses, as otherwise we could deadlock GDBserver - (if the thread holding the lock stops for a signal, say). So - instead of that, we use a transaction scheme where GDBserver writes - always prevail over the IPAs writes, and, we have the IPA detect - the commit failure/overwrite, and retry the whole attempt. This is - mainly implemented by having a global token object that represents - who wrote last to the buffer control structure. We need to freeze - any inferior writing to the buffer while GDBserver touches memory, - so that the inferior can correctly detect that GDBserver had been - there, otherwise, it could mistakingly think its commit was - successful; that's implemented by simply having GDBserver set a - breakpoint the inferior hits if it is the critical region. - - There are three cycling trace buffer control structure copies - (buffer head, tail, etc.), with the token object including an index - indicating which is current live copy. The IPA tentatively builds - an updated copy in a non-current control structure, while GDBserver - always clobbers the current version directly. The IPA then tries - to atomically "commit" its version; if GDBserver clobbered the - structure meanwhile, that will fail, and the IPA restarts the - allocation process. - - Listing the step in further detail, we have: - - In-process agent (producer): - - - passes by `about_to_request_buffer_space' breakpoint/lock - - - reads current token, extracts current trace buffer control index, - and starts tentatively updating the rightmost one (0->1, 1->2, - 2->0). Note that only one inferior thread is executing this code - at any given time, due to an outer lock in the jump pads. - - - updates counters, and tries to commit the token. - - - passes by second `about_to_request_buffer_space' breakpoint/lock, - leaving the sync region. - - - checks if the update was effective. - - - if trace buffer was found full, hits flush_trace_buffer - breakpoint, and restarts later afterwards. - - GDBserver (consumer): - - - sets `about_to_request_buffer_space' breakpoint/lock. - - - updates the token unconditionally, using the current buffer - control index, since it knows that the IP agent always writes to - the rightmost, and due to the breakpoint, at most one IP thread - can try to update the trace buffer concurrently to GDBserver, so - there will be no danger of trace buffer control index wrap making - the IPA write to the same index as GDBserver. - - - flushes the IP agent's trace buffer completely, and updates the - current trace buffer control structure. GDBserver *always* wins. - - - removes the `about_to_request_buffer_space' breakpoint. - -The token is stored in the `trace_buffer_ctrl_curr' variable. -Internally, it's bits are defined as: - - |-------------+-----+-------------+--------+-------------+--------------| - | Bit offsets | 31 | 30 - 20 | 19 | 18-8 | 7-0 | - |-------------+-----+-------------+--------+-------------+--------------| - | What | GSB | PC (11-bit) | unused | CC (11-bit) | TBCI (8-bit) | - |-------------+-----+-------------+--------+-------------+--------------| - - GSB - GDBserver Stamp Bit - PC - Previous Counter - CC - Current Counter - TBCI - Trace Buffer Control Index - - -An IPA update of `trace_buffer_ctrl_curr' does: - - - read CC from the current token, save as PC. - - updates pointers - - atomically tries to write PC+1,CC - -A GDBserver update of `trace_buffer_ctrl_curr' does: - - - reads PC and CC from the current token. - - updates pointers - - writes GSB,PC,CC -*/ - -/* These are the bits of `trace_buffer_ctrl_curr' that are reserved - for the counters described below. The cleared bits are used to - hold the index of the items of the `trace_buffer_ctrl' array that - is "current". */ -#define GDBSERVER_FLUSH_COUNT_MASK 0xfffffff0 - -/* `trace_buffer_ctrl_curr' contains two counters. The `previous' - counter, and the `current' counter. */ - -#define GDBSERVER_FLUSH_COUNT_MASK_PREV 0x7ff00000 -#define GDBSERVER_FLUSH_COUNT_MASK_CURR 0x0007ff00 - -/* When GDBserver update the IP agent's `trace_buffer_ctrl_curr', it - always stamps this bit as set. */ -#define GDBSERVER_UPDATED_FLUSH_COUNT_BIT 0x80000000 - -#ifdef IN_PROCESS_AGENT -IP_AGENT_EXPORT_VAR struct trace_buffer_control trace_buffer_ctrl[3]; -IP_AGENT_EXPORT_VAR unsigned int trace_buffer_ctrl_curr; - -# define TRACE_BUFFER_CTRL_CURR \ - (trace_buffer_ctrl_curr & ~GDBSERVER_FLUSH_COUNT_MASK) - -#else - -/* The GDBserver side agent only needs one instance of this object, as - it doesn't need to sync with itself. Define it as array anyway so - that the rest of the code base doesn't need to care for the - difference. */ -struct trace_buffer_control trace_buffer_ctrl[1]; -# define TRACE_BUFFER_CTRL_CURR 0 -#endif - -/* These are convenience macros used to access the current trace - buffer control in effect. */ -#define trace_buffer_start (trace_buffer_ctrl[TRACE_BUFFER_CTRL_CURR].start) -#define trace_buffer_free (trace_buffer_ctrl[TRACE_BUFFER_CTRL_CURR].free) -#define trace_buffer_end_free \ - (trace_buffer_ctrl[TRACE_BUFFER_CTRL_CURR].end_free) -#define trace_buffer_wrap (trace_buffer_ctrl[TRACE_BUFFER_CTRL_CURR].wrap) - - -/* Macro that returns a pointer to the first traceframe in the buffer. */ - -#define FIRST_TRACEFRAME() ((struct traceframe *) trace_buffer_start) - -/* Macro that returns a pointer to the next traceframe in the buffer. - If the computed location is beyond the wraparound point, subtract - the offset of the wraparound. */ - -#define NEXT_TRACEFRAME_1(TF) \ - (((unsigned char *) (TF)) + sizeof (struct traceframe) + (TF)->data_size) - -#define NEXT_TRACEFRAME(TF) \ - ((struct traceframe *) (NEXT_TRACEFRAME_1 (TF) \ - - ((NEXT_TRACEFRAME_1 (TF) >= trace_buffer_wrap) \ - ? (trace_buffer_wrap - trace_buffer_lo) \ - : 0))) - -/* The difference between these counters represents the total number - of complete traceframes present in the trace buffer. The IP agent - writes to the write count, GDBserver writes to read count. */ - -IP_AGENT_EXPORT_VAR unsigned int traceframe_write_count; -IP_AGENT_EXPORT_VAR unsigned int traceframe_read_count; - -/* Convenience macro. */ - -#define traceframe_count \ - ((unsigned int) (traceframe_write_count - traceframe_read_count)) - -/* The count of all traceframes created in the current run, including - ones that were discarded to make room. */ - -IP_AGENT_EXPORT_VAR int traceframes_created; - -#ifndef IN_PROCESS_AGENT - -/* Read-only regions are address ranges whose contents don't change, - and so can be read from target memory even while looking at a trace - frame. Without these, disassembly for instance will likely fail, - because the program code is not usually collected into a trace - frame. This data structure does not need to be very complicated or - particularly efficient, it's only going to be used occasionally, - and only by some commands. */ - -struct readonly_region -{ - /* The bounds of the region. */ - CORE_ADDR start, end; - - /* Link to the next one. */ - struct readonly_region *next; -}; - -/* Linked list of readonly regions. This list stays in effect from - one tstart to the next. */ - -static struct readonly_region *readonly_regions; - -#endif - -/* The global that controls tracing overall. */ - -IP_AGENT_EXPORT_VAR int tracing; - -#ifndef IN_PROCESS_AGENT - -/* Controls whether tracing should continue after GDB disconnects. */ - -int disconnected_tracing; - -/* The reason for the last tracing run to have stopped. We initialize - to a distinct string so that GDB can distinguish between "stopped - after running" and "stopped because never run" cases. */ - -static const char *tracing_stop_reason = "tnotrun"; - -static int tracing_stop_tpnum; - -/* 64-bit timestamps for the trace run's start and finish, expressed - in microseconds from the Unix epoch. */ - -LONGEST tracing_start_time; -LONGEST tracing_stop_time; - -/* The (optional) user-supplied name of the user that started the run. - This is an arbitrary string, and may be NULL. */ - -char *tracing_user_name; - -/* Optional user-supplied text describing the run. This is - an arbitrary string, and may be NULL. */ - -char *tracing_notes; - -/* Optional user-supplied text explaining a tstop command. This is an - arbitrary string, and may be NULL. */ - -char *tracing_stop_note; - -#endif - -/* Functions local to this file. */ - -/* Base "class" for tracepoint type specific data to be passed down to - collect_data_at_tracepoint. */ -struct tracepoint_hit_ctx -{ - enum tracepoint_type type; -}; - -#ifdef IN_PROCESS_AGENT - -/* Fast/jump tracepoint specific data to be passed down to - collect_data_at_tracepoint. */ -struct fast_tracepoint_ctx -{ - struct tracepoint_hit_ctx base; - - struct regcache regcache; - int regcache_initted; - unsigned char *regspace; - - unsigned char *regs; - struct tracepoint *tpoint; -}; - -/* Static tracepoint specific data to be passed down to - collect_data_at_tracepoint. */ -struct static_tracepoint_ctx -{ - struct tracepoint_hit_ctx base; - - /* The regcache corresponding to the registers state at the time of - the tracepoint hit. Initialized lazily, from REGS. */ - struct regcache regcache; - int regcache_initted; - - /* The buffer space REGCACHE above uses. We use a separate buffer - instead of letting the regcache malloc for both signal safety and - performance reasons; this is allocated on the stack instead. */ - unsigned char *regspace; - - /* The register buffer as passed on by lttng/ust. */ - struct registers *regs; - - /* The "printf" formatter and the args the user passed to the marker - call. We use this to be able to collect "static trace data" - ($_sdata). */ - const char *fmt; - va_list *args; - - /* The GDB tracepoint matching the probed marker that was "hit". */ - struct tracepoint *tpoint; -}; - -#else - -/* Static tracepoint specific data to be passed down to - collect_data_at_tracepoint. */ -struct trap_tracepoint_ctx -{ - struct tracepoint_hit_ctx base; - - struct regcache *regcache; -}; - -#endif - -#ifndef IN_PROCESS_AGENT -static CORE_ADDR traceframe_get_pc (struct traceframe *tframe); -static int traceframe_read_tsv (int num, LONGEST *val); -#endif - -static int condition_true_at_tracepoint (struct tracepoint_hit_ctx *ctx, - struct tracepoint *tpoint); - -#ifndef IN_PROCESS_AGENT -static void clear_readonly_regions (void); -static void clear_installed_tracepoints (void); -#endif - -static void collect_data_at_tracepoint (struct tracepoint_hit_ctx *ctx, - CORE_ADDR stop_pc, - struct tracepoint *tpoint); -#ifndef IN_PROCESS_AGENT -static void collect_data_at_step (struct tracepoint_hit_ctx *ctx, - CORE_ADDR stop_pc, - struct tracepoint *tpoint, int current_step); -static void compile_tracepoint_condition (struct tracepoint *tpoint, - CORE_ADDR *jump_entry); -#endif -static void do_action_at_tracepoint (struct tracepoint_hit_ctx *ctx, - CORE_ADDR stop_pc, - struct tracepoint *tpoint, - struct traceframe *tframe, - struct tracepoint_action *taction); - -#ifndef IN_PROCESS_AGENT -static struct tracepoint *fast_tracepoint_from_ipa_tpoint_address (CORE_ADDR); - -static void install_tracepoint (struct tracepoint *, char *own_buf); -static void download_tracepoint (struct tracepoint *); -static int install_fast_tracepoint (struct tracepoint *, char *errbuf); -static void clone_fast_tracepoint (struct tracepoint *to, - const struct tracepoint *from); -#endif - -static LONGEST get_timestamp (void); - -#if defined(__GNUC__) -# define memory_barrier() asm volatile ("" : : : "memory") -#else -# define memory_barrier() do {} while (0) -#endif - -/* We only build the IPA if this builtin is supported, and there are - no uses of this in GDBserver itself, so we're safe in defining this - unconditionally. */ -#define cmpxchg(mem, oldval, newval) \ - __sync_val_compare_and_swap (mem, oldval, newval) - -/* Record that an error occurred during expression evaluation. */ - -static void -record_tracepoint_error (struct tracepoint *tpoint, const char *which, - enum eval_result_type rtype) -{ - trace_debug ("Tracepoint %d at %s %s eval reports error %d", - tpoint->number, paddress (tpoint->address), which, rtype); - -#ifdef IN_PROCESS_AGENT - /* Only record the first error we get. */ - if (cmpxchg (&expr_eval_result, - expr_eval_no_error, - rtype) != expr_eval_no_error) - return; -#else - if (expr_eval_result != expr_eval_no_error) - return; -#endif - - error_tracepoint = tpoint; -} - -/* Trace buffer management. */ - -static void -clear_trace_buffer (void) -{ - trace_buffer_start = trace_buffer_lo; - trace_buffer_free = trace_buffer_lo; - trace_buffer_end_free = trace_buffer_hi; - trace_buffer_wrap = trace_buffer_hi; - /* A traceframe with zeroed fields marks the end of trace data. */ - ((struct traceframe *) trace_buffer_free)->tpnum = 0; - ((struct traceframe *) trace_buffer_free)->data_size = 0; - traceframe_read_count = traceframe_write_count = 0; - traceframes_created = 0; -} - -#ifndef IN_PROCESS_AGENT - -static void -clear_inferior_trace_buffer (void) -{ - CORE_ADDR ipa_trace_buffer_lo; - CORE_ADDR ipa_trace_buffer_hi; - struct traceframe ipa_traceframe = { 0 }; - struct ipa_trace_buffer_control ipa_trace_buffer_ctrl; - - read_inferior_data_pointer (ipa_sym_addrs.addr_trace_buffer_lo, - &ipa_trace_buffer_lo); - read_inferior_data_pointer (ipa_sym_addrs.addr_trace_buffer_hi, - &ipa_trace_buffer_hi); - - ipa_trace_buffer_ctrl.start = ipa_trace_buffer_lo; - ipa_trace_buffer_ctrl.free = ipa_trace_buffer_lo; - ipa_trace_buffer_ctrl.end_free = ipa_trace_buffer_hi; - ipa_trace_buffer_ctrl.wrap = ipa_trace_buffer_hi; - - /* A traceframe with zeroed fields marks the end of trace data. */ - target_write_memory (ipa_sym_addrs.addr_trace_buffer_ctrl, - (unsigned char *) &ipa_trace_buffer_ctrl, - sizeof (ipa_trace_buffer_ctrl)); - - write_inferior_uinteger (ipa_sym_addrs.addr_trace_buffer_ctrl_curr, 0); - - /* A traceframe with zeroed fields marks the end of trace data. */ - target_write_memory (ipa_trace_buffer_lo, - (unsigned char *) &ipa_traceframe, - sizeof (ipa_traceframe)); - - write_inferior_uinteger (ipa_sym_addrs.addr_traceframe_write_count, 0); - write_inferior_uinteger (ipa_sym_addrs.addr_traceframe_read_count, 0); - write_inferior_integer (ipa_sym_addrs.addr_traceframes_created, 0); -} - -#endif - -static void -init_trace_buffer (LONGEST bufsize) -{ - size_t alloc_size; - - trace_buffer_size = bufsize; - - /* Make sure to internally allocate at least space for the EOB - marker. */ - alloc_size = (bufsize < TRACEFRAME_EOB_MARKER_SIZE - ? TRACEFRAME_EOB_MARKER_SIZE : bufsize); - trace_buffer_lo = (unsigned char *) xrealloc (trace_buffer_lo, alloc_size); - - trace_buffer_hi = trace_buffer_lo + trace_buffer_size; - - clear_trace_buffer (); -} - -#ifdef IN_PROCESS_AGENT - -/* This is needed for -Wmissing-declarations. */ -IP_AGENT_EXPORT_FUNC void about_to_request_buffer_space (void); - -IP_AGENT_EXPORT_FUNC void -about_to_request_buffer_space (void) -{ - /* GDBserver places breakpoint here while it goes about to flush - data at random times. */ - UNKNOWN_SIDE_EFFECTS(); -} - -#endif - -/* Carve out a piece of the trace buffer, returning NULL in case of - failure. */ - -static void * -trace_buffer_alloc (size_t amt) -{ - unsigned char *rslt; - struct trace_buffer_control *tbctrl; - unsigned int curr; -#ifdef IN_PROCESS_AGENT - unsigned int prev, prev_filtered; - unsigned int commit_count; - unsigned int commit; - unsigned int readout; -#else - struct traceframe *oldest; - unsigned char *new_start; -#endif - - trace_debug ("Want to allocate %ld+%ld bytes in trace buffer", - (long) amt, (long) sizeof (struct traceframe)); - - /* Account for the EOB marker. */ - amt += TRACEFRAME_EOB_MARKER_SIZE; - -#ifdef IN_PROCESS_AGENT - again: - memory_barrier (); - - /* Read the current token and extract the index to try to write to, - storing it in CURR. */ - prev = trace_buffer_ctrl_curr; - prev_filtered = prev & ~GDBSERVER_FLUSH_COUNT_MASK; - curr = prev_filtered + 1; - if (curr > 2) - curr = 0; - - about_to_request_buffer_space (); - - /* Start out with a copy of the current state. GDBserver may be - midway writing to the PREV_FILTERED TBC, but, that's OK, we won't - be able to commit anyway if that happens. */ - trace_buffer_ctrl[curr] - = trace_buffer_ctrl[prev_filtered]; - trace_debug ("trying curr=%u", curr); -#else - /* The GDBserver's agent doesn't need all that syncing, and always - updates TCB 0 (there's only one, mind you). */ - curr = 0; -#endif - tbctrl = &trace_buffer_ctrl[curr]; - - /* Offsets are easier to grok for debugging than raw addresses, - especially for the small trace buffer sizes that are useful for - testing. */ - trace_debug ("Trace buffer [%d] start=%d free=%d endfree=%d wrap=%d hi=%d", - curr, - (int) (tbctrl->start - trace_buffer_lo), - (int) (tbctrl->free - trace_buffer_lo), - (int) (tbctrl->end_free - trace_buffer_lo), - (int) (tbctrl->wrap - trace_buffer_lo), - (int) (trace_buffer_hi - trace_buffer_lo)); - - /* The algorithm here is to keep trying to get a contiguous block of - the requested size, possibly discarding older traceframes to free - up space. Since free space might come in one or two pieces, - depending on whether discarded traceframes wrapped around at the - high end of the buffer, we test both pieces after each - discard. */ - while (1) - { - /* First, if we have two free parts, try the upper one first. */ - if (tbctrl->end_free < tbctrl->free) - { - if (tbctrl->free + amt <= trace_buffer_hi) - /* We have enough in the upper part. */ - break; - else - { - /* Our high part of free space wasn't enough. Give up - on it for now, set wraparound. We will recover the - space later, if/when the wrapped-around traceframe is - discarded. */ - trace_debug ("Upper part too small, setting wraparound"); - tbctrl->wrap = tbctrl->free; - tbctrl->free = trace_buffer_lo; - } - } - - /* The normal case. */ - if (tbctrl->free + amt <= tbctrl->end_free) - break; - -#ifdef IN_PROCESS_AGENT - /* The IP Agent's buffer is always circular. It isn't used - currently, but `circular_trace_buffer' could represent - GDBserver's mode. If we didn't find space, ask GDBserver to - flush. */ - - flush_trace_buffer (); - memory_barrier (); - if (tracing) - { - trace_debug ("gdbserver flushed buffer, retrying"); - goto again; - } - - /* GDBserver cancelled the tracing. Bail out as well. */ - return NULL; -#else - /* If we're here, then neither part is big enough, and - non-circular trace buffers are now full. */ - if (!circular_trace_buffer) - { - trace_debug ("Not enough space in the trace buffer"); - return NULL; - } - - trace_debug ("Need more space in the trace buffer"); - - /* If we have a circular buffer, we can try discarding the - oldest traceframe and see if that helps. */ - oldest = FIRST_TRACEFRAME (); - if (oldest->tpnum == 0) - { - /* Not good; we have no traceframes to free. Perhaps we're - asking for a block that is larger than the buffer? In - any case, give up. */ - trace_debug ("No traceframes to discard"); - return NULL; - } - - /* We don't run this code in the in-process agent currently. - E.g., we could leave the in-process agent in autonomous - circular mode if we only have fast tracepoints. If we do - that, then this bit becomes racy with GDBserver, which also - writes to this counter. */ - --traceframe_write_count; - - new_start = (unsigned char *) NEXT_TRACEFRAME (oldest); - /* If we freed the traceframe that wrapped around, go back - to the non-wrap case. */ - if (new_start < tbctrl->start) - { - trace_debug ("Discarding past the wraparound"); - tbctrl->wrap = trace_buffer_hi; - } - tbctrl->start = new_start; - tbctrl->end_free = tbctrl->start; - - trace_debug ("Discarded a traceframe\n" - "Trace buffer [%d], start=%d free=%d " - "endfree=%d wrap=%d hi=%d", - curr, - (int) (tbctrl->start - trace_buffer_lo), - (int) (tbctrl->free - trace_buffer_lo), - (int) (tbctrl->end_free - trace_buffer_lo), - (int) (tbctrl->wrap - trace_buffer_lo), - (int) (trace_buffer_hi - trace_buffer_lo)); - - /* Now go back around the loop. The discard might have resulted - in either one or two pieces of free space, so we want to try - both before freeing any more traceframes. */ -#endif - } - - /* If we get here, we know we can provide the asked-for space. */ - - rslt = tbctrl->free; - - /* Adjust the request back down, now that we know we have space for - the marker, but don't commit to AMT yet, we may still need to - restart the operation if GDBserver touches the trace buffer - (obviously only important in the in-process agent's version). */ - tbctrl->free += (amt - sizeof (struct traceframe)); - - /* Or not. If GDBserver changed the trace buffer behind our back, - we get to restart a new allocation attempt. */ - -#ifdef IN_PROCESS_AGENT - /* Build the tentative token. */ - commit_count = (((prev & GDBSERVER_FLUSH_COUNT_MASK_CURR) + 0x100) - & GDBSERVER_FLUSH_COUNT_MASK_CURR); - commit = (((prev & GDBSERVER_FLUSH_COUNT_MASK_CURR) << 12) - | commit_count - | curr); - - /* Try to commit it. */ - readout = cmpxchg (&trace_buffer_ctrl_curr, prev, commit); - if (readout != prev) - { - trace_debug ("GDBserver has touched the trace buffer, restarting." - " (prev=%08x, commit=%08x, readout=%08x)", - prev, commit, readout); - goto again; - } - - /* Hold your horses here. Even if that change was committed, - GDBserver could come in, and clobber it. We need to hold to be - able to tell if GDBserver clobbers before or after we committed - the change. Whenever GDBserver goes about touching the IPA - buffer, it sets a breakpoint in this routine, so we have a sync - point here. */ - about_to_request_buffer_space (); - - /* Check if the change has been effective, even if GDBserver stopped - us at the breakpoint. */ - - { - unsigned int refetch; - - memory_barrier (); - - refetch = trace_buffer_ctrl_curr; - - if (refetch == commit - || ((refetch & GDBSERVER_FLUSH_COUNT_MASK_PREV) >> 12) == commit_count) - { - /* effective */ - trace_debug ("change is effective: (prev=%08x, commit=%08x, " - "readout=%08x, refetch=%08x)", - prev, commit, readout, refetch); - } - else - { - trace_debug ("GDBserver has touched the trace buffer, not effective." - " (prev=%08x, commit=%08x, readout=%08x, refetch=%08x)", - prev, commit, readout, refetch); - goto again; - } - } -#endif - - /* We have a new piece of the trace buffer. Hurray! */ - - /* Add an EOB marker just past this allocation. */ - ((struct traceframe *) tbctrl->free)->tpnum = 0; - ((struct traceframe *) tbctrl->free)->data_size = 0; - - /* Adjust the request back down, now that we know we have space for - the marker. */ - amt -= sizeof (struct traceframe); - - if (debug_threads) - { - trace_debug ("Allocated %d bytes", (int) amt); - trace_debug ("Trace buffer [%d] start=%d free=%d " - "endfree=%d wrap=%d hi=%d", - curr, - (int) (tbctrl->start - trace_buffer_lo), - (int) (tbctrl->free - trace_buffer_lo), - (int) (tbctrl->end_free - trace_buffer_lo), - (int) (tbctrl->wrap - trace_buffer_lo), - (int) (trace_buffer_hi - trace_buffer_lo)); - } - - return rslt; -} - -#ifndef IN_PROCESS_AGENT - -/* Return the total free space. This is not necessarily the largest - block we can allocate, because of the two-part case. */ - -static int -free_space (void) -{ - if (trace_buffer_free <= trace_buffer_end_free) - return trace_buffer_end_free - trace_buffer_free; - else - return ((trace_buffer_end_free - trace_buffer_lo) - + (trace_buffer_hi - trace_buffer_free)); -} - -/* An 'S' in continuation packets indicates remainder are for - while-stepping. */ - -static int seen_step_action_flag; - -/* Create a tracepoint (location) with given number and address. Add this - new tracepoint to list and sort this list. */ - -static struct tracepoint * -add_tracepoint (int num, CORE_ADDR addr) -{ - struct tracepoint *tpoint, **tp_next; - - tpoint = XNEW (struct tracepoint); - tpoint->number = num; - tpoint->address = addr; - tpoint->numactions = 0; - tpoint->actions = NULL; - tpoint->actions_str = NULL; - tpoint->cond = NULL; - tpoint->num_step_actions = 0; - tpoint->step_actions = NULL; - tpoint->step_actions_str = NULL; - /* Start all off as regular (slow) tracepoints. */ - tpoint->type = trap_tracepoint; - tpoint->orig_size = -1; - tpoint->source_strings = NULL; - tpoint->compiled_cond = 0; - tpoint->handle = NULL; - tpoint->next = NULL; - - /* Find a place to insert this tracepoint into list in order to keep - the tracepoint list still in the ascending order. There may be - multiple tracepoints at the same address as TPOINT's, and this - guarantees TPOINT is inserted after all the tracepoints which are - set at the same address. For example, fast tracepoints A, B, C are - set at the same address, and D is to be insert at the same place as - well, - - -->| A |--> | B |-->| C |->... - - One jump pad was created for tracepoint A, B, and C, and the target - address of A is referenced/used in jump pad. So jump pad will let - inferior jump to A. If D is inserted in front of A, like this, - - -->| D |-->| A |--> | B |-->| C |->... - - without updating jump pad, D is not reachable during collect, which - is wrong. As we can see, the order of B, C and D doesn't matter, but - A should always be the `first' one. */ - for (tp_next = &tracepoints; - (*tp_next) != NULL && (*tp_next)->address <= tpoint->address; - tp_next = &(*tp_next)->next) - ; - tpoint->next = *tp_next; - *tp_next = tpoint; - last_tracepoint = tpoint; - - seen_step_action_flag = 0; - - return tpoint; -} - -#ifndef IN_PROCESS_AGENT - -/* Return the tracepoint with the given number and address, or NULL. */ - -static struct tracepoint * -find_tracepoint (int id, CORE_ADDR addr) -{ - struct tracepoint *tpoint; - - for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) - if (tpoint->number == id && tpoint->address == addr) - return tpoint; - - return NULL; -} - -/* Remove TPOINT from global list. */ - -static void -remove_tracepoint (struct tracepoint *tpoint) -{ - struct tracepoint *tp, *tp_prev; - - for (tp = tracepoints, tp_prev = NULL; tp && tp != tpoint; - tp_prev = tp, tp = tp->next) - ; - - if (tp) - { - if (tp_prev) - tp_prev->next = tp->next; - else - tracepoints = tp->next; - - xfree (tp); - } -} - -/* There may be several tracepoints with the same number (because they - are "locations", in GDB parlance); return the next one after the - given tracepoint, or search from the beginning of the list if the - first argument is NULL. */ - -static struct tracepoint * -find_next_tracepoint_by_number (struct tracepoint *prev_tp, int num) -{ - struct tracepoint *tpoint; - - if (prev_tp) - tpoint = prev_tp->next; - else - tpoint = tracepoints; - for (; tpoint; tpoint = tpoint->next) - if (tpoint->number == num) - return tpoint; - - return NULL; -} - -#endif - -/* Append another action to perform when the tracepoint triggers. */ - -static void -add_tracepoint_action (struct tracepoint *tpoint, const char *packet) -{ - const char *act; - - if (*packet == 'S') - { - seen_step_action_flag = 1; - ++packet; - } - - act = packet; - - while (*act) - { - const char *act_start = act; - struct tracepoint_action *action = NULL; - - switch (*act) - { - case 'M': - { - struct collect_memory_action *maction = - XNEW (struct collect_memory_action); - ULONGEST basereg; - int is_neg; - - maction->base.type = *act; - action = &maction->base; - - ++act; - is_neg = (*act == '-'); - if (*act == '-') - ++act; - act = unpack_varlen_hex (act, &basereg); - ++act; - act = unpack_varlen_hex (act, &maction->addr); - ++act; - act = unpack_varlen_hex (act, &maction->len); - maction->basereg = (is_neg - ? - (int) basereg - : (int) basereg); - trace_debug ("Want to collect %s bytes at 0x%s (basereg %d)", - pulongest (maction->len), - paddress (maction->addr), maction->basereg); - break; - } - case 'R': - { - struct collect_registers_action *raction = - XNEW (struct collect_registers_action); - - raction->base.type = *act; - action = &raction->base; - - trace_debug ("Want to collect registers"); - ++act; - /* skip past hex digits of mask for now */ - while (isxdigit(*act)) - ++act; - break; - } - case 'L': - { - struct collect_static_trace_data_action *raction = - XNEW (struct collect_static_trace_data_action); - - raction->base.type = *act; - action = &raction->base; - - trace_debug ("Want to collect static trace data"); - ++act; - break; - } - case 'S': - trace_debug ("Unexpected step action, ignoring"); - ++act; - break; - case 'X': - { - struct eval_expr_action *xaction = XNEW (struct eval_expr_action); - - xaction->base.type = *act; - action = &xaction->base; - - trace_debug ("Want to evaluate expression"); - xaction->expr = gdb_parse_agent_expr (&act); - break; - } - default: - trace_debug ("unknown trace action '%c', ignoring...", *act); - break; - case '-': - break; - } - - if (action == NULL) - break; - - if (seen_step_action_flag) - { - tpoint->num_step_actions++; - - tpoint->step_actions - = XRESIZEVEC (struct tracepoint_action *, tpoint->step_actions, - tpoint->num_step_actions); - tpoint->step_actions_str - = XRESIZEVEC (char *, tpoint->step_actions_str, - tpoint->num_step_actions); - tpoint->step_actions[tpoint->num_step_actions - 1] = action; - tpoint->step_actions_str[tpoint->num_step_actions - 1] - = savestring (act_start, act - act_start); - } - else - { - tpoint->numactions++; - tpoint->actions - = XRESIZEVEC (struct tracepoint_action *, tpoint->actions, - tpoint->numactions); - tpoint->actions_str - = XRESIZEVEC (char *, tpoint->actions_str, tpoint->numactions); - tpoint->actions[tpoint->numactions - 1] = action; - tpoint->actions_str[tpoint->numactions - 1] - = savestring (act_start, act - act_start); - } - } -} - -#endif - -/* Find or create a trace state variable with the given number. */ - -static struct trace_state_variable * -get_trace_state_variable (int num) -{ - struct trace_state_variable *tsv; - -#ifdef IN_PROCESS_AGENT - /* Search for an existing variable. */ - for (tsv = alloced_trace_state_variables; tsv; tsv = tsv->next) - if (tsv->number == num) - return tsv; -#endif - - /* Search for an existing variable. */ - for (tsv = trace_state_variables; tsv; tsv = tsv->next) - if (tsv->number == num) - return tsv; - - return NULL; -} - -/* Find or create a trace state variable with the given number. */ - -static struct trace_state_variable * -create_trace_state_variable (int num, int gdb) -{ - struct trace_state_variable *tsv; - - tsv = get_trace_state_variable (num); - if (tsv != NULL) - return tsv; - - /* Create a new variable. */ - tsv = XNEW (struct trace_state_variable); - tsv->number = num; - tsv->initial_value = 0; - tsv->value = 0; - tsv->getter = NULL; - tsv->name = NULL; -#ifdef IN_PROCESS_AGENT - if (!gdb) - { - tsv->next = alloced_trace_state_variables; - alloced_trace_state_variables = tsv; - } - else -#endif - { - tsv->next = trace_state_variables; - trace_state_variables = tsv; - } - return tsv; -} - -/* This is needed for -Wmissing-declarations. */ -IP_AGENT_EXPORT_FUNC LONGEST get_trace_state_variable_value (int num); - -IP_AGENT_EXPORT_FUNC LONGEST -get_trace_state_variable_value (int num) -{ - struct trace_state_variable *tsv; - - tsv = get_trace_state_variable (num); - - if (!tsv) - { - trace_debug ("No trace state variable %d, skipping value get", num); - return 0; - } - - /* Call a getter function if we have one. While it's tempting to - set up something to only call the getter once per tracepoint hit, - it could run afoul of thread races. Better to let the getter - handle it directly, if necessary to worry about it. */ - if (tsv->getter) - tsv->value = (tsv->getter) (); - - trace_debug ("get_trace_state_variable_value(%d) ==> %s", - num, plongest (tsv->value)); - - return tsv->value; -} - -/* This is needed for -Wmissing-declarations. */ -IP_AGENT_EXPORT_FUNC void set_trace_state_variable_value (int num, - LONGEST val); - -IP_AGENT_EXPORT_FUNC void -set_trace_state_variable_value (int num, LONGEST val) -{ - struct trace_state_variable *tsv; - - tsv = get_trace_state_variable (num); - - if (!tsv) - { - trace_debug ("No trace state variable %d, skipping value set", num); - return; - } - - tsv->value = val; -} - -LONGEST -agent_get_trace_state_variable_value (int num) -{ - return get_trace_state_variable_value (num); -} - -void -agent_set_trace_state_variable_value (int num, LONGEST val) -{ - set_trace_state_variable_value (num, val); -} - -static void -set_trace_state_variable_name (int num, const char *name) -{ - struct trace_state_variable *tsv; - - tsv = get_trace_state_variable (num); - - if (!tsv) - { - trace_debug ("No trace state variable %d, skipping name set", num); - return; - } - - tsv->name = (char *) name; -} - -static void -set_trace_state_variable_getter (int num, LONGEST (*getter) (void)) -{ - struct trace_state_variable *tsv; - - tsv = get_trace_state_variable (num); - - if (!tsv) - { - trace_debug ("No trace state variable %d, skipping getter set", num); - return; - } - - tsv->getter = getter; -} - -/* Add a raw traceframe for the given tracepoint. */ - -static struct traceframe * -add_traceframe (struct tracepoint *tpoint) -{ - struct traceframe *tframe; - - tframe - = (struct traceframe *) trace_buffer_alloc (sizeof (struct traceframe)); - - if (tframe == NULL) - return NULL; - - tframe->tpnum = tpoint->number; - tframe->data_size = 0; - - return tframe; -} - -/* Add a block to the traceframe currently being worked on. */ - -static unsigned char * -add_traceframe_block (struct traceframe *tframe, - struct tracepoint *tpoint, int amt) -{ - unsigned char *block; - - if (!tframe) - return NULL; - - block = (unsigned char *) trace_buffer_alloc (amt); - - if (!block) - return NULL; - - gdb_assert (tframe->tpnum == tpoint->number); - - tframe->data_size += amt; - tpoint->traceframe_usage += amt; - - return block; -} - -/* Flag that the current traceframe is finished. */ - -static void -finish_traceframe (struct traceframe *tframe) -{ - ++traceframe_write_count; - ++traceframes_created; -} - -#ifndef IN_PROCESS_AGENT - -/* Given a traceframe number NUM, find the NUMth traceframe in the - buffer. */ - -static struct traceframe * -find_traceframe (int num) -{ - struct traceframe *tframe; - int tfnum = 0; - - for (tframe = FIRST_TRACEFRAME (); - tframe->tpnum != 0; - tframe = NEXT_TRACEFRAME (tframe)) - { - if (tfnum == num) - return tframe; - ++tfnum; - } - - return NULL; -} - -static CORE_ADDR -get_traceframe_address (struct traceframe *tframe) -{ - CORE_ADDR addr; - struct tracepoint *tpoint; - - addr = traceframe_get_pc (tframe); - - if (addr) - return addr; - - /* Fallback strategy, will be incorrect for while-stepping frames - and multi-location tracepoints. */ - tpoint = find_next_tracepoint_by_number (NULL, tframe->tpnum); - return tpoint->address; -} - -/* Search for the next traceframe whose address is inside or outside - the given range. */ - -static struct traceframe * -find_next_traceframe_in_range (CORE_ADDR lo, CORE_ADDR hi, int inside_p, - int *tfnump) -{ - client_state &cs = get_client_state (); - struct traceframe *tframe; - CORE_ADDR tfaddr; - - *tfnump = cs.current_traceframe + 1; - tframe = find_traceframe (*tfnump); - /* The search is not supposed to wrap around. */ - if (!tframe) - { - *tfnump = -1; - return NULL; - } - - for (; tframe->tpnum != 0; tframe = NEXT_TRACEFRAME (tframe)) - { - tfaddr = get_traceframe_address (tframe); - if (inside_p - ? (lo <= tfaddr && tfaddr <= hi) - : (lo > tfaddr || tfaddr > hi)) - return tframe; - ++*tfnump; - } - - *tfnump = -1; - return NULL; -} - -/* Search for the next traceframe recorded by the given tracepoint. - Note that for multi-location tracepoints, this will find whatever - location appears first. */ - -static struct traceframe * -find_next_traceframe_by_tracepoint (int num, int *tfnump) -{ - client_state &cs = get_client_state (); - struct traceframe *tframe; - - *tfnump = cs.current_traceframe + 1; - tframe = find_traceframe (*tfnump); - /* The search is not supposed to wrap around. */ - if (!tframe) - { - *tfnump = -1; - return NULL; - } - - for (; tframe->tpnum != 0; tframe = NEXT_TRACEFRAME (tframe)) - { - if (tframe->tpnum == num) - return tframe; - ++*tfnump; - } - - *tfnump = -1; - return NULL; -} - -#endif - -#ifndef IN_PROCESS_AGENT - -/* Clear all past trace state. */ - -static void -cmd_qtinit (char *packet) -{ - client_state &cs = get_client_state (); - struct trace_state_variable *tsv, *prev, *next; - - /* Can't do this command without a pid attached. */ - if (current_thread == NULL) - { - write_enn (packet); - return; - } - - /* Make sure we don't try to read from a trace frame. */ - cs.current_traceframe = -1; - - stop_tracing (); - - trace_debug ("Initializing the trace"); - - clear_installed_tracepoints (); - clear_readonly_regions (); - - tracepoints = NULL; - last_tracepoint = NULL; - - /* Clear out any leftover trace state variables. Ones with target - defined getters should be kept however. */ - prev = NULL; - tsv = trace_state_variables; - while (tsv) - { - trace_debug ("Looking at var %d", tsv->number); - if (tsv->getter == NULL) - { - next = tsv->next; - if (prev) - prev->next = next; - else - trace_state_variables = next; - trace_debug ("Deleting var %d", tsv->number); - free (tsv); - tsv = next; - } - else - { - prev = tsv; - tsv = tsv->next; - } - } - - clear_trace_buffer (); - clear_inferior_trace_buffer (); - - write_ok (packet); -} - -/* Unprobe the UST marker at ADDRESS. */ - -static void -unprobe_marker_at (CORE_ADDR address) -{ - char cmd[IPA_CMD_BUF_SIZE]; - - sprintf (cmd, "unprobe_marker_at:%s", paddress (address)); - run_inferior_command (cmd, strlen (cmd) + 1); -} - -/* Restore the program to its pre-tracing state. This routine may be called - in error situations, so it needs to be careful about only restoring - from known-valid bits. */ - -static void -clear_installed_tracepoints (void) -{ - struct tracepoint *tpoint; - struct tracepoint *prev_stpoint; - - pause_all (1); - - prev_stpoint = NULL; - - /* Restore any bytes overwritten by tracepoints. */ - for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) - { - /* Catch the case where we might try to remove a tracepoint that - was never actually installed. */ - if (tpoint->handle == NULL) - { - trace_debug ("Tracepoint %d at 0x%s was " - "never installed, nothing to clear", - tpoint->number, paddress (tpoint->address)); - continue; - } - - switch (tpoint->type) - { - case trap_tracepoint: - { - struct breakpoint *bp - = (struct breakpoint *) tpoint->handle; - - delete_breakpoint (bp); - } - break; - case fast_tracepoint: - { - struct fast_tracepoint_jump *jump - = (struct fast_tracepoint_jump *) tpoint->handle; - - delete_fast_tracepoint_jump (jump); - } - break; - case static_tracepoint: - if (prev_stpoint != NULL - && prev_stpoint->address == tpoint->address) - /* Nothing to do. We already unprobed a tracepoint set at - this marker address (and there can only be one probe - per marker). */ - ; - else - { - unprobe_marker_at (tpoint->address); - prev_stpoint = tpoint; - } - break; - } - - tpoint->handle = NULL; - } - - unpause_all (1); -} - -/* Parse a packet that defines a tracepoint. */ - -static void -cmd_qtdp (char *own_buf) -{ - int tppacket; - /* Whether there is a trailing hyphen at the end of the QTDP packet. */ - int trail_hyphen = 0; - ULONGEST num; - ULONGEST addr; - ULONGEST count; - struct tracepoint *tpoint; - const char *packet = own_buf; - - packet += strlen ("QTDP:"); - - /* A hyphen at the beginning marks a packet specifying actions for a - tracepoint already supplied. */ - tppacket = 1; - if (*packet == '-') - { - tppacket = 0; - ++packet; - } - packet = unpack_varlen_hex (packet, &num); - ++packet; /* skip a colon */ - packet = unpack_varlen_hex (packet, &addr); - ++packet; /* skip a colon */ - - /* See if we already have this tracepoint. */ - tpoint = find_tracepoint (num, addr); - - if (tppacket) - { - /* Duplicate tracepoints are never allowed. */ - if (tpoint) - { - trace_debug ("Tracepoint error: tracepoint %d" - " at 0x%s already exists", - (int) num, paddress (addr)); - write_enn (own_buf); - return; - } - - tpoint = add_tracepoint (num, addr); - - tpoint->enabled = (*packet == 'E'); - ++packet; /* skip 'E' */ - ++packet; /* skip a colon */ - packet = unpack_varlen_hex (packet, &count); - tpoint->step_count = count; - ++packet; /* skip a colon */ - packet = unpack_varlen_hex (packet, &count); - tpoint->pass_count = count; - /* See if we have any of the additional optional fields. */ - while (*packet == ':') - { - ++packet; - if (*packet == 'F') - { - tpoint->type = fast_tracepoint; - ++packet; - packet = unpack_varlen_hex (packet, &count); - tpoint->orig_size = count; - } - else if (*packet == 'S') - { - tpoint->type = static_tracepoint; - ++packet; - } - else if (*packet == 'X') - { - tpoint->cond = gdb_parse_agent_expr (&packet); - } - else if (*packet == '-') - break; - else if (*packet == '\0') - break; - else - trace_debug ("Unknown optional tracepoint field"); - } - if (*packet == '-') - { - trail_hyphen = 1; - trace_debug ("Also has actions\n"); - } - - trace_debug ("Defined %stracepoint %d at 0x%s, " - "enabled %d step %" PRIu64 " pass %" PRIu64, - tpoint->type == fast_tracepoint ? "fast " - : tpoint->type == static_tracepoint ? "static " : "", - tpoint->number, paddress (tpoint->address), tpoint->enabled, - tpoint->step_count, tpoint->pass_count); - } - else if (tpoint) - add_tracepoint_action (tpoint, packet); - else - { - trace_debug ("Tracepoint error: tracepoint %d at 0x%s not found", - (int) num, paddress (addr)); - write_enn (own_buf); - return; - } - - /* Install tracepoint during tracing only once for each tracepoint location. - For each tracepoint loc, GDB may send multiple QTDP packets, and we can - determine the last QTDP packet for one tracepoint location by checking - trailing hyphen in QTDP packet. */ - if (tracing && !trail_hyphen) - { - struct tracepoint *tp = NULL; - - /* Pause all threads temporarily while we patch tracepoints. */ - pause_all (0); - - /* download_tracepoint will update global `tracepoints' - list, so it is unsafe to leave threads in jump pad. */ - stabilize_threads (); - - /* Freeze threads. */ - pause_all (1); - - - if (tpoint->type != trap_tracepoint) - { - /* Find another fast or static tracepoint at the same address. */ - for (tp = tracepoints; tp; tp = tp->next) - { - if (tp->address == tpoint->address && tp->type == tpoint->type - && tp->number != tpoint->number) - break; - } - - /* TPOINT is installed at the same address as TP. */ - if (tp) - { - if (tpoint->type == fast_tracepoint) - clone_fast_tracepoint (tpoint, tp); - else if (tpoint->type == static_tracepoint) - tpoint->handle = (void *) -1; - } - } - - if (use_agent && tpoint->type == fast_tracepoint - && agent_capability_check (AGENT_CAPA_FAST_TRACE)) - { - /* Download and install fast tracepoint by agent. */ - if (tracepoint_send_agent (tpoint) == 0) - write_ok (own_buf); - else - { - write_enn (own_buf); - remove_tracepoint (tpoint); - } - } - else - { - download_tracepoint (tpoint); - - if (tpoint->type == trap_tracepoint || tp == NULL) - { - install_tracepoint (tpoint, own_buf); - if (strcmp (own_buf, "OK") != 0) - remove_tracepoint (tpoint); - } - else - write_ok (own_buf); - } - - unpause_all (1); - return; - } - - write_ok (own_buf); -} - -static void -cmd_qtdpsrc (char *own_buf) -{ - ULONGEST num, addr, start, slen; - struct tracepoint *tpoint; - const char *packet = own_buf; - const char *saved; - char *srctype, *src; - size_t nbytes; - struct source_string *last, *newlast; - - packet += strlen ("QTDPsrc:"); - - packet = unpack_varlen_hex (packet, &num); - ++packet; /* skip a colon */ - packet = unpack_varlen_hex (packet, &addr); - ++packet; /* skip a colon */ - - /* See if we already have this tracepoint. */ - tpoint = find_tracepoint (num, addr); - - if (!tpoint) - { - trace_debug ("Tracepoint error: tracepoint %d at 0x%s not found", - (int) num, paddress (addr)); - write_enn (own_buf); - return; - } - - saved = packet; - packet = strchr (packet, ':'); - srctype = (char *) xmalloc (packet - saved + 1); - memcpy (srctype, saved, packet - saved); - srctype[packet - saved] = '\0'; - ++packet; - packet = unpack_varlen_hex (packet, &start); - ++packet; /* skip a colon */ - packet = unpack_varlen_hex (packet, &slen); - ++packet; /* skip a colon */ - src = (char *) xmalloc (slen + 1); - nbytes = hex2bin (packet, (gdb_byte *) src, strlen (packet) / 2); - src[nbytes] = '\0'; - - newlast = XNEW (struct source_string); - newlast->type = srctype; - newlast->str = src; - newlast->next = NULL; - /* Always add a source string to the end of the list; - this keeps sequences of actions/commands in the right - order. */ - if (tpoint->source_strings) - { - for (last = tpoint->source_strings; last->next; last = last->next) - ; - last->next = newlast; - } - else - tpoint->source_strings = newlast; - - write_ok (own_buf); -} - -static void -cmd_qtdv (char *own_buf) -{ - ULONGEST num, val, builtin; - char *varname; - size_t nbytes; - struct trace_state_variable *tsv; - const char *packet = own_buf; - - packet += strlen ("QTDV:"); - - packet = unpack_varlen_hex (packet, &num); - ++packet; /* skip a colon */ - packet = unpack_varlen_hex (packet, &val); - ++packet; /* skip a colon */ - packet = unpack_varlen_hex (packet, &builtin); - ++packet; /* skip a colon */ - - nbytes = strlen (packet) / 2; - varname = (char *) xmalloc (nbytes + 1); - nbytes = hex2bin (packet, (gdb_byte *) varname, nbytes); - varname[nbytes] = '\0'; - - tsv = create_trace_state_variable (num, 1); - tsv->initial_value = (LONGEST) val; - tsv->name = varname; - - set_trace_state_variable_value (num, (LONGEST) val); - - write_ok (own_buf); -} - -static void -cmd_qtenable_disable (char *own_buf, int enable) -{ - const char *packet = own_buf; - ULONGEST num, addr; - struct tracepoint *tp; - - packet += strlen (enable ? "QTEnable:" : "QTDisable:"); - packet = unpack_varlen_hex (packet, &num); - ++packet; /* skip a colon */ - packet = unpack_varlen_hex (packet, &addr); - - tp = find_tracepoint (num, addr); - - if (tp) - { - if ((enable && tp->enabled) || (!enable && !tp->enabled)) - { - trace_debug ("Tracepoint %d at 0x%s is already %s", - (int) num, paddress (addr), - enable ? "enabled" : "disabled"); - write_ok (own_buf); - return; - } - - trace_debug ("%s tracepoint %d at 0x%s", - enable ? "Enabling" : "Disabling", - (int) num, paddress (addr)); - - tp->enabled = enable; - - if (tp->type == fast_tracepoint || tp->type == static_tracepoint) - { - int ret; - int offset = offsetof (struct tracepoint, enabled); - CORE_ADDR obj_addr = tp->obj_addr_on_target + offset; - - ret = prepare_to_access_memory (); - if (ret) - { - trace_debug ("Failed to temporarily stop inferior threads"); - write_enn (own_buf); - return; - } - - ret = write_inferior_int8 (obj_addr, enable); - done_accessing_memory (); - - if (ret) - { - trace_debug ("Cannot write enabled flag into " - "inferior process memory"); - write_enn (own_buf); - return; - } - } - - write_ok (own_buf); - } - else - { - trace_debug ("Tracepoint %d at 0x%s not found", - (int) num, paddress (addr)); - write_enn (own_buf); - } -} - -static void -cmd_qtv (char *own_buf) -{ - client_state &cs = get_client_state (); - ULONGEST num; - LONGEST val = 0; - int err; - char *packet = own_buf; - - packet += strlen ("qTV:"); - unpack_varlen_hex (packet, &num); - - if (cs.current_traceframe >= 0) - { - err = traceframe_read_tsv ((int) num, &val); - if (err) - { - strcpy (own_buf, "U"); - return; - } - } - /* Only make tsv's be undefined before the first trace run. After a - trace run is over, the user might want to see the last value of - the tsv, and it might not be available in a traceframe. */ - else if (!tracing && strcmp (tracing_stop_reason, "tnotrun") == 0) - { - strcpy (own_buf, "U"); - return; - } - else - val = get_trace_state_variable_value (num); - - sprintf (own_buf, "V%s", phex_nz (val, 0)); -} - -/* Clear out the list of readonly regions. */ - -static void -clear_readonly_regions (void) -{ - struct readonly_region *roreg; - - while (readonly_regions) - { - roreg = readonly_regions; - readonly_regions = readonly_regions->next; - free (roreg); - } -} - -/* Parse the collection of address ranges whose contents GDB believes - to be unchanging and so can be read directly from target memory - even while looking at a traceframe. */ - -static void -cmd_qtro (char *own_buf) -{ - ULONGEST start, end; - struct readonly_region *roreg; - const char *packet = own_buf; - - trace_debug ("Want to mark readonly regions"); - - clear_readonly_regions (); - - packet += strlen ("QTro"); - - while (*packet == ':') - { - ++packet; /* skip a colon */ - packet = unpack_varlen_hex (packet, &start); - ++packet; /* skip a comma */ - packet = unpack_varlen_hex (packet, &end); - - roreg = XNEW (struct readonly_region); - roreg->start = start; - roreg->end = end; - roreg->next = readonly_regions; - readonly_regions = roreg; - trace_debug ("Added readonly region from 0x%s to 0x%s", - paddress (roreg->start), paddress (roreg->end)); - } - - write_ok (own_buf); -} - -/* Test to see if the given range is in our list of readonly ranges. - We only test for being entirely within a range, GDB is not going to - send a single memory packet that spans multiple regions. */ - -int -in_readonly_region (CORE_ADDR addr, ULONGEST length) -{ - struct readonly_region *roreg; - - for (roreg = readonly_regions; roreg; roreg = roreg->next) - if (roreg->start <= addr && (addr + length - 1) <= roreg->end) - return 1; - - return 0; -} - -static CORE_ADDR gdb_jump_pad_head; - -/* Return the address of the next free jump space. */ - -static CORE_ADDR -get_jump_space_head (void) -{ - if (gdb_jump_pad_head == 0) - { - if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_jump_pad_buffer, - &gdb_jump_pad_head)) - { - internal_error (__FILE__, __LINE__, - "error extracting jump_pad_buffer"); - } - } - - return gdb_jump_pad_head; -} - -/* Reserve USED bytes from the jump space. */ - -static void -claim_jump_space (ULONGEST used) -{ - trace_debug ("claim_jump_space reserves %s bytes at %s", - pulongest (used), paddress (gdb_jump_pad_head)); - gdb_jump_pad_head += used; -} - -static CORE_ADDR trampoline_buffer_head = 0; -static CORE_ADDR trampoline_buffer_tail; - -/* Reserve USED bytes from the trampoline buffer and return the - address of the start of the reserved space in TRAMPOLINE. Returns - non-zero if the space is successfully claimed. */ - -int -claim_trampoline_space (ULONGEST used, CORE_ADDR *trampoline) -{ - if (!trampoline_buffer_head) - { - if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_trampoline_buffer, - &trampoline_buffer_tail)) - { - internal_error (__FILE__, __LINE__, - "error extracting trampoline_buffer"); - } - - if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_trampoline_buffer_end, - &trampoline_buffer_head)) - { - internal_error (__FILE__, __LINE__, - "error extracting trampoline_buffer_end"); - } - } - - /* Start claiming space from the top of the trampoline space. If - the space is located at the bottom of the virtual address space, - this reduces the possibility that corruption will occur if a null - pointer is used to write to memory. */ - if (trampoline_buffer_head - trampoline_buffer_tail < used) - { - trace_debug ("claim_trampoline_space failed to reserve %s bytes", - pulongest (used)); - return 0; - } - - trampoline_buffer_head -= used; - - trace_debug ("claim_trampoline_space reserves %s bytes at %s", - pulongest (used), paddress (trampoline_buffer_head)); - - *trampoline = trampoline_buffer_head; - return 1; -} - -/* Returns non-zero if there is space allocated for use in trampolines - for fast tracepoints. */ - -int -have_fast_tracepoint_trampoline_buffer (char *buf) -{ - CORE_ADDR trampoline_end, errbuf; - - if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_trampoline_buffer_end, - &trampoline_end)) - { - internal_error (__FILE__, __LINE__, - "error extracting trampoline_buffer_end"); - } - - if (buf) - { - buf[0] = '\0'; - strcpy (buf, "was claiming"); - if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_trampoline_buffer_error, - &errbuf)) - { - internal_error (__FILE__, __LINE__, - "error extracting errbuf"); - } - - read_inferior_memory (errbuf, (unsigned char *) buf, 100); - } - - return trampoline_end != 0; -} - -/* Ask the IPA to probe the marker at ADDRESS. Returns -1 if running - the command fails, or 0 otherwise. If the command ran - successfully, but probing the marker failed, ERROUT will be filled - with the error to reply to GDB, and -1 is also returned. This - allows directly passing IPA errors to GDB. */ - -static int -probe_marker_at (CORE_ADDR address, char *errout) -{ - char cmd[IPA_CMD_BUF_SIZE]; - int err; - - sprintf (cmd, "probe_marker_at:%s", paddress (address)); - err = run_inferior_command (cmd, strlen (cmd) + 1); - - if (err == 0) - { - if (*cmd == 'E') - { - strcpy (errout, cmd); - return -1; - } - } - - return err; -} - -static void -clone_fast_tracepoint (struct tracepoint *to, const struct tracepoint *from) -{ - to->jump_pad = from->jump_pad; - to->jump_pad_end = from->jump_pad_end; - to->trampoline = from->trampoline; - to->trampoline_end = from->trampoline_end; - to->adjusted_insn_addr = from->adjusted_insn_addr; - to->adjusted_insn_addr_end = from->adjusted_insn_addr_end; - to->handle = from->handle; - - gdb_assert (from->handle); - inc_ref_fast_tracepoint_jump ((struct fast_tracepoint_jump *) from->handle); -} - -#define MAX_JUMP_SIZE 20 - -/* Install fast tracepoint. Return 0 if successful, otherwise return - non-zero. */ - -static int -install_fast_tracepoint (struct tracepoint *tpoint, char *errbuf) -{ - CORE_ADDR jentry, jump_entry; - CORE_ADDR trampoline; - CORE_ADDR collect; - ULONGEST trampoline_size; - int err = 0; - /* The jump to the jump pad of the last fast tracepoint - installed. */ - unsigned char fjump[MAX_JUMP_SIZE]; - ULONGEST fjump_size; - - if (tpoint->orig_size < target_get_min_fast_tracepoint_insn_len ()) - { - trace_debug ("Requested a fast tracepoint on an instruction " - "that is of less than the minimum length."); - return 0; - } - - if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_collect_ptr, - &collect)) - { - error ("error extracting gdb_collect_ptr"); - return 1; - } - - jentry = jump_entry = get_jump_space_head (); - - trampoline = 0; - trampoline_size = 0; - - /* Install the jump pad. */ - err = install_fast_tracepoint_jump_pad (tpoint->obj_addr_on_target, - tpoint->address, - collect, - ipa_sym_addrs.addr_collecting, - tpoint->orig_size, - &jentry, - &trampoline, &trampoline_size, - fjump, &fjump_size, - &tpoint->adjusted_insn_addr, - &tpoint->adjusted_insn_addr_end, - errbuf); - - if (err) - return 1; - - /* Wire it in. */ - tpoint->handle = set_fast_tracepoint_jump (tpoint->address, fjump, - fjump_size); - - if (tpoint->handle != NULL) - { - tpoint->jump_pad = jump_entry; - tpoint->jump_pad_end = jentry; - tpoint->trampoline = trampoline; - tpoint->trampoline_end = trampoline + trampoline_size; - - /* Pad to 8-byte alignment. */ - jentry = ((jentry + 7) & ~0x7); - claim_jump_space (jentry - jump_entry); - } - - return 0; -} - - -/* Install tracepoint TPOINT, and write reply message in OWN_BUF. */ - -static void -install_tracepoint (struct tracepoint *tpoint, char *own_buf) -{ - tpoint->handle = NULL; - *own_buf = '\0'; - - if (tpoint->type == trap_tracepoint) - { - /* Tracepoints are installed as memory breakpoints. Just go - ahead and install the trap. The breakpoints module - handles duplicated breakpoints, and the memory read - routine handles un-patching traps from memory reads. */ - tpoint->handle = set_breakpoint_at (tpoint->address, - tracepoint_handler); - } - else if (tpoint->type == fast_tracepoint || tpoint->type == static_tracepoint) - { - if (!agent_loaded_p ()) - { - trace_debug ("Requested a %s tracepoint, but fast " - "tracepoints aren't supported.", - tpoint->type == static_tracepoint ? "static" : "fast"); - write_e_ipa_not_loaded (own_buf); - return; - } - if (tpoint->type == static_tracepoint - && !in_process_agent_supports_ust ()) - { - trace_debug ("Requested a static tracepoint, but static " - "tracepoints are not supported."); - write_e_ust_not_loaded (own_buf); - return; - } - - if (tpoint->type == fast_tracepoint) - install_fast_tracepoint (tpoint, own_buf); - else - { - if (probe_marker_at (tpoint->address, own_buf) == 0) - tpoint->handle = (void *) -1; - } - - } - else - internal_error (__FILE__, __LINE__, "Unknown tracepoint type"); - - if (tpoint->handle == NULL) - { - if (*own_buf == '\0') - write_enn (own_buf); - } - else - write_ok (own_buf); -} - -static void download_tracepoint_1 (struct tracepoint *tpoint); - -static void -cmd_qtstart (char *packet) -{ - struct tracepoint *tpoint, *prev_ftpoint, *prev_stpoint; - CORE_ADDR tpptr = 0, prev_tpptr = 0; - - trace_debug ("Starting the trace"); - - /* Pause all threads temporarily while we patch tracepoints. */ - pause_all (0); - - /* Get threads out of jump pads. Safe to do here, since this is a - top level command. And, required to do here, since we're - deleting/rewriting jump pads. */ - - stabilize_threads (); - - /* Freeze threads. */ - pause_all (1); - - /* Sync the fast tracepoints list in the inferior ftlib. */ - if (agent_loaded_p ()) - download_trace_state_variables (); - - /* No previous fast tpoint yet. */ - prev_ftpoint = NULL; - - /* No previous static tpoint yet. */ - prev_stpoint = NULL; - - *packet = '\0'; - - if (agent_loaded_p ()) - { - /* Tell IPA about the correct tdesc. */ - if (write_inferior_integer (ipa_sym_addrs.addr_ipa_tdesc_idx, - target_get_ipa_tdesc_idx ())) - error ("Error setting ipa_tdesc_idx variable in lib"); - } - - /* Start out empty. */ - if (agent_loaded_p ()) - write_inferior_data_pointer (ipa_sym_addrs.addr_tracepoints, 0); - - /* Download and install tracepoints. */ - for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) - { - /* Ensure all the hit counts start at zero. */ - tpoint->hit_count = 0; - tpoint->traceframe_usage = 0; - - if (tpoint->type == trap_tracepoint) - { - /* Tracepoints are installed as memory breakpoints. Just go - ahead and install the trap. The breakpoints module - handles duplicated breakpoints, and the memory read - routine handles un-patching traps from memory reads. */ - tpoint->handle = set_breakpoint_at (tpoint->address, - tracepoint_handler); - } - else if (tpoint->type == fast_tracepoint - || tpoint->type == static_tracepoint) - { - if (maybe_write_ipa_not_loaded (packet)) - { - trace_debug ("Requested a %s tracepoint, but fast " - "tracepoints aren't supported.", - tpoint->type == static_tracepoint - ? "static" : "fast"); - break; - } - - if (tpoint->type == fast_tracepoint) - { - int use_agent_p - = use_agent && agent_capability_check (AGENT_CAPA_FAST_TRACE); - - if (prev_ftpoint != NULL - && prev_ftpoint->address == tpoint->address) - { - if (use_agent_p) - tracepoint_send_agent (tpoint); - else - download_tracepoint_1 (tpoint); - - clone_fast_tracepoint (tpoint, prev_ftpoint); - } - else - { - /* Tracepoint is installed successfully? */ - int installed = 0; - - /* Download and install fast tracepoint by agent. */ - if (use_agent_p) - installed = !tracepoint_send_agent (tpoint); - else - { - download_tracepoint_1 (tpoint); - installed = !install_fast_tracepoint (tpoint, packet); - } - - if (installed) - prev_ftpoint = tpoint; - } - } - else - { - if (!in_process_agent_supports_ust ()) - { - trace_debug ("Requested a static tracepoint, but static " - "tracepoints are not supported."); - break; - } - - download_tracepoint_1 (tpoint); - /* Can only probe a given marker once. */ - if (prev_stpoint != NULL - && prev_stpoint->address == tpoint->address) - tpoint->handle = (void *) -1; - else - { - if (probe_marker_at (tpoint->address, packet) == 0) - { - tpoint->handle = (void *) -1; - - /* So that we can handle multiple static tracepoints - at the same address easily. */ - prev_stpoint = tpoint; - } - } - } - - prev_tpptr = tpptr; - tpptr = tpoint->obj_addr_on_target; - - if (tpoint == tracepoints) - /* First object in list, set the head pointer in the - inferior. */ - write_inferior_data_pointer (ipa_sym_addrs.addr_tracepoints, tpptr); - else - write_inferior_data_pointer (prev_tpptr - + offsetof (struct tracepoint, next), - tpptr); - } - - /* Any failure in the inner loop is sufficient cause to give - up. */ - if (tpoint->handle == NULL) - break; - } - - /* Any error in tracepoint insertion is unacceptable; better to - address the problem now, than end up with a useless or misleading - trace run. */ - if (tpoint != NULL) - { - clear_installed_tracepoints (); - if (*packet == '\0') - write_enn (packet); - unpause_all (1); - return; - } - - stopping_tracepoint = NULL; - trace_buffer_is_full = 0; - expr_eval_result = expr_eval_no_error; - error_tracepoint = NULL; - tracing_start_time = get_timestamp (); - - /* Tracing is now active, hits will now start being logged. */ - tracing = 1; - - if (agent_loaded_p ()) - { - if (write_inferior_integer (ipa_sym_addrs.addr_tracing, 1)) - { - internal_error (__FILE__, __LINE__, - "Error setting tracing variable in lib"); - } - - if (write_inferior_data_pointer (ipa_sym_addrs.addr_stopping_tracepoint, - 0)) - { - internal_error (__FILE__, __LINE__, - "Error clearing stopping_tracepoint variable" - " in lib"); - } - - if (write_inferior_integer (ipa_sym_addrs.addr_trace_buffer_is_full, 0)) - { - internal_error (__FILE__, __LINE__, - "Error clearing trace_buffer_is_full variable" - " in lib"); - } - - stop_tracing_bkpt = set_breakpoint_at (ipa_sym_addrs.addr_stop_tracing, - stop_tracing_handler); - if (stop_tracing_bkpt == NULL) - error ("Error setting stop_tracing breakpoint"); - - flush_trace_buffer_bkpt - = set_breakpoint_at (ipa_sym_addrs.addr_flush_trace_buffer, - flush_trace_buffer_handler); - if (flush_trace_buffer_bkpt == NULL) - error ("Error setting flush_trace_buffer breakpoint"); - } - - unpause_all (1); - - write_ok (packet); -} - -/* End a tracing run, filling in a stop reason to report back to GDB, - and removing the tracepoints from the code. */ - -void -stop_tracing (void) -{ - if (!tracing) - { - trace_debug ("Tracing is already off, ignoring"); - return; - } - - trace_debug ("Stopping the trace"); - - /* Pause all threads before removing fast jumps from memory, - breakpoints, and touching IPA state variables (inferior memory). - Some thread may hit the internal tracing breakpoints, or be - collecting this moment, but that's ok, we don't release the - tpoint object's memory or the jump pads here (we only do that - when we're sure we can move all threads out of the jump pads). - We can't now, since we may be getting here due to the inferior - agent calling us. */ - pause_all (1); - - /* Stop logging. Tracepoints can still be hit, but they will not be - recorded. */ - tracing = 0; - if (agent_loaded_p ()) - { - if (write_inferior_integer (ipa_sym_addrs.addr_tracing, 0)) - { - internal_error (__FILE__, __LINE__, - "Error clearing tracing variable in lib"); - } - } - - tracing_stop_time = get_timestamp (); - tracing_stop_reason = "t???"; - tracing_stop_tpnum = 0; - if (stopping_tracepoint) - { - trace_debug ("Stopping the trace because " - "tracepoint %d was hit %" PRIu64 " times", - stopping_tracepoint->number, - stopping_tracepoint->pass_count); - tracing_stop_reason = "tpasscount"; - tracing_stop_tpnum = stopping_tracepoint->number; - } - else if (trace_buffer_is_full) - { - trace_debug ("Stopping the trace because the trace buffer is full"); - tracing_stop_reason = "tfull"; - } - else if (expr_eval_result != expr_eval_no_error) - { - trace_debug ("Stopping the trace because of an expression eval error"); - tracing_stop_reason = eval_result_names[expr_eval_result]; - tracing_stop_tpnum = error_tracepoint->number; - } -#ifndef IN_PROCESS_AGENT - else if (!gdb_connected ()) - { - trace_debug ("Stopping the trace because GDB disconnected"); - tracing_stop_reason = "tdisconnected"; - } -#endif - else - { - trace_debug ("Stopping the trace because of a tstop command"); - tracing_stop_reason = "tstop"; - } - - stopping_tracepoint = NULL; - error_tracepoint = NULL; - - /* Clear out the tracepoints. */ - clear_installed_tracepoints (); - - if (agent_loaded_p ()) - { - /* Pull in fast tracepoint trace frames from the inferior lib - buffer into our buffer, even if our buffer is already full, - because we want to present the full number of created frames - in addition to what fit in the trace buffer. */ - upload_fast_traceframes (); - } - - if (stop_tracing_bkpt != NULL) - { - delete_breakpoint (stop_tracing_bkpt); - stop_tracing_bkpt = NULL; - } - - if (flush_trace_buffer_bkpt != NULL) - { - delete_breakpoint (flush_trace_buffer_bkpt); - flush_trace_buffer_bkpt = NULL; - } - - unpause_all (1); -} - -static int -stop_tracing_handler (CORE_ADDR addr) -{ - trace_debug ("lib hit stop_tracing"); - - /* Don't actually handle it here. When we stop tracing we remove - breakpoints from the inferior, and that is not allowed in a - breakpoint handler (as the caller is walking the breakpoint - list). */ - return 0; -} - -static int -flush_trace_buffer_handler (CORE_ADDR addr) -{ - trace_debug ("lib hit flush_trace_buffer"); - return 0; -} - -static void -cmd_qtstop (char *packet) -{ - stop_tracing (); - write_ok (packet); -} - -static void -cmd_qtdisconnected (char *own_buf) -{ - ULONGEST setting; - char *packet = own_buf; - - packet += strlen ("QTDisconnected:"); - - unpack_varlen_hex (packet, &setting); - - write_ok (own_buf); - - disconnected_tracing = setting; -} - -static void -cmd_qtframe (char *own_buf) -{ - client_state &cs = get_client_state (); - ULONGEST frame, pc, lo, hi, num; - int tfnum, tpnum; - struct traceframe *tframe; - const char *packet = own_buf; - - packet += strlen ("QTFrame:"); - - if (startswith (packet, "pc:")) - { - packet += strlen ("pc:"); - unpack_varlen_hex (packet, &pc); - trace_debug ("Want to find next traceframe at pc=0x%s", paddress (pc)); - tframe = find_next_traceframe_in_range (pc, pc, 1, &tfnum); - } - else if (startswith (packet, "range:")) - { - packet += strlen ("range:"); - packet = unpack_varlen_hex (packet, &lo); - ++packet; - unpack_varlen_hex (packet, &hi); - trace_debug ("Want to find next traceframe in the range 0x%s to 0x%s", - paddress (lo), paddress (hi)); - tframe = find_next_traceframe_in_range (lo, hi, 1, &tfnum); - } - else if (startswith (packet, "outside:")) - { - packet += strlen ("outside:"); - packet = unpack_varlen_hex (packet, &lo); - ++packet; - unpack_varlen_hex (packet, &hi); - trace_debug ("Want to find next traceframe " - "outside the range 0x%s to 0x%s", - paddress (lo), paddress (hi)); - tframe = find_next_traceframe_in_range (lo, hi, 0, &tfnum); - } - else if (startswith (packet, "tdp:")) - { - packet += strlen ("tdp:"); - unpack_varlen_hex (packet, &num); - tpnum = (int) num; - trace_debug ("Want to find next traceframe for tracepoint %d", tpnum); - tframe = find_next_traceframe_by_tracepoint (tpnum, &tfnum); - } - else - { - unpack_varlen_hex (packet, &frame); - tfnum = (int) frame; - if (tfnum == -1) - { - trace_debug ("Want to stop looking at traceframes"); - cs.current_traceframe = -1; - write_ok (own_buf); - return; - } - trace_debug ("Want to look at traceframe %d", tfnum); - tframe = find_traceframe (tfnum); - } - - if (tframe) - { - cs.current_traceframe = tfnum; - sprintf (own_buf, "F%xT%x", tfnum, tframe->tpnum); - } - else - sprintf (own_buf, "F-1"); -} - -static void -cmd_qtstatus (char *packet) -{ - char *stop_reason_rsp = NULL; - char *buf1, *buf2, *buf3; - const char *str; - int slen; - - /* Translate the plain text of the notes back into hex for - transmission. */ - - str = (tracing_user_name ? tracing_user_name : ""); - slen = strlen (str); - buf1 = (char *) alloca (slen * 2 + 1); - bin2hex ((gdb_byte *) str, buf1, slen); - - str = (tracing_notes ? tracing_notes : ""); - slen = strlen (str); - buf2 = (char *) alloca (slen * 2 + 1); - bin2hex ((gdb_byte *) str, buf2, slen); - - str = (tracing_stop_note ? tracing_stop_note : ""); - slen = strlen (str); - buf3 = (char *) alloca (slen * 2 + 1); - bin2hex ((gdb_byte *) str, buf3, slen); - - trace_debug ("Returning trace status as %d, stop reason %s", - tracing, tracing_stop_reason); - - if (agent_loaded_p ()) - { - pause_all (1); - - upload_fast_traceframes (); - - unpause_all (1); - } - - stop_reason_rsp = (char *) tracing_stop_reason; - - /* The user visible error string in terror needs to be hex encoded. - We leave it as plain string in `tracing_stop_reason' to ease - debugging. */ - if (startswith (stop_reason_rsp, "terror:")) - { - const char *result_name; - int hexstr_len; - char *p; - - result_name = stop_reason_rsp + strlen ("terror:"); - hexstr_len = strlen (result_name) * 2; - p = stop_reason_rsp - = (char *) alloca (strlen ("terror:") + hexstr_len + 1); - strcpy (p, "terror:"); - p += strlen (p); - bin2hex ((gdb_byte *) result_name, p, strlen (result_name)); - } - - /* If this was a forced stop, include any stop note that was supplied. */ - if (strcmp (stop_reason_rsp, "tstop") == 0) - { - stop_reason_rsp = (char *) alloca (strlen ("tstop:") + strlen (buf3) + 1); - strcpy (stop_reason_rsp, "tstop:"); - strcat (stop_reason_rsp, buf3); - } - - sprintf (packet, - "T%d;" - "%s:%x;" - "tframes:%x;tcreated:%x;" - "tfree:%x;tsize:%s;" - "circular:%d;" - "disconn:%d;" - "starttime:%s;stoptime:%s;" - "username:%s;notes:%s:", - tracing ? 1 : 0, - stop_reason_rsp, tracing_stop_tpnum, - traceframe_count, traceframes_created, - free_space (), phex_nz (trace_buffer_hi - trace_buffer_lo, 0), - circular_trace_buffer, - disconnected_tracing, - phex_nz (tracing_start_time, sizeof (tracing_start_time)), - phex_nz (tracing_stop_time, sizeof (tracing_stop_time)), - buf1, buf2); -} - -static void -cmd_qtp (char *own_buf) -{ - ULONGEST num, addr; - struct tracepoint *tpoint; - const char *packet = own_buf; - - packet += strlen ("qTP:"); - - packet = unpack_varlen_hex (packet, &num); - ++packet; /* skip a colon */ - packet = unpack_varlen_hex (packet, &addr); - - /* See if we already have this tracepoint. */ - tpoint = find_tracepoint (num, addr); - - if (!tpoint) - { - trace_debug ("Tracepoint error: tracepoint %d at 0x%s not found", - (int) num, paddress (addr)); - write_enn (own_buf); - return; - } - - sprintf (own_buf, "V%" PRIu64 ":%" PRIu64 "", tpoint->hit_count, - tpoint->traceframe_usage); -} - -/* State variables to help return all the tracepoint bits. */ -static struct tracepoint *cur_tpoint; -static unsigned int cur_action; -static unsigned int cur_step_action; -static struct source_string *cur_source_string; -static struct trace_state_variable *cur_tsv; - -/* Compose a response that is an imitation of the syntax by which the - tracepoint was originally downloaded. */ - -static void -response_tracepoint (char *packet, struct tracepoint *tpoint) -{ - char *buf; - - sprintf (packet, "T%x:%s:%c:%" PRIx64 ":%" PRIx64, tpoint->number, - paddress (tpoint->address), - (tpoint->enabled ? 'E' : 'D'), tpoint->step_count, - tpoint->pass_count); - if (tpoint->type == fast_tracepoint) - sprintf (packet + strlen (packet), ":F%x", tpoint->orig_size); - else if (tpoint->type == static_tracepoint) - sprintf (packet + strlen (packet), ":S"); - - if (tpoint->cond) - { - buf = gdb_unparse_agent_expr (tpoint->cond); - sprintf (packet + strlen (packet), ":X%x,%s", - tpoint->cond->length, buf); - free (buf); - } -} - -/* Compose a response that is an imitation of the syntax by which the - tracepoint action was originally downloaded (with the difference - that due to the way we store the actions, this will output a packet - per action, while GDB could have combined more than one action - per-packet. */ - -static void -response_action (char *packet, struct tracepoint *tpoint, - char *taction, int step) -{ - sprintf (packet, "%c%x:%s:%s", - (step ? 'S' : 'A'), tpoint->number, paddress (tpoint->address), - taction); -} - -/* Compose a response that is an imitation of the syntax by which the - tracepoint source piece was originally downloaded. */ - -static void -response_source (char *packet, - struct tracepoint *tpoint, struct source_string *src) -{ - char *buf; - int len; - - len = strlen (src->str); - buf = (char *) alloca (len * 2 + 1); - bin2hex ((gdb_byte *) src->str, buf, len); - - sprintf (packet, "Z%x:%s:%s:%x:%x:%s", - tpoint->number, paddress (tpoint->address), - src->type, 0, len, buf); -} - -/* Return the first piece of tracepoint definition, and initialize the - state machine that will iterate through all the tracepoint - bits. */ - -static void -cmd_qtfp (char *packet) -{ - trace_debug ("Returning first tracepoint definition piece"); - - cur_tpoint = tracepoints; - cur_action = cur_step_action = 0; - cur_source_string = NULL; - - if (cur_tpoint) - response_tracepoint (packet, cur_tpoint); - else - strcpy (packet, "l"); -} - -/* Return additional pieces of tracepoint definition. Each action and - stepping action must go into its own packet, because of packet size - limits, and so we use state variables to deliver one piece at a - time. */ - -static void -cmd_qtsp (char *packet) -{ - trace_debug ("Returning subsequent tracepoint definition piece"); - - if (!cur_tpoint) - { - /* This case would normally never occur, but be prepared for - GDB misbehavior. */ - strcpy (packet, "l"); - } - else if (cur_action < cur_tpoint->numactions) - { - response_action (packet, cur_tpoint, - cur_tpoint->actions_str[cur_action], 0); - ++cur_action; - } - else if (cur_step_action < cur_tpoint->num_step_actions) - { - response_action (packet, cur_tpoint, - cur_tpoint->step_actions_str[cur_step_action], 1); - ++cur_step_action; - } - else if ((cur_source_string - ? cur_source_string->next - : cur_tpoint->source_strings)) - { - if (cur_source_string) - cur_source_string = cur_source_string->next; - else - cur_source_string = cur_tpoint->source_strings; - response_source (packet, cur_tpoint, cur_source_string); - } - else - { - cur_tpoint = cur_tpoint->next; - cur_action = cur_step_action = 0; - cur_source_string = NULL; - if (cur_tpoint) - response_tracepoint (packet, cur_tpoint); - else - strcpy (packet, "l"); - } -} - -/* Compose a response that is an imitation of the syntax by which the - trace state variable was originally downloaded. */ - -static void -response_tsv (char *packet, struct trace_state_variable *tsv) -{ - char *buf = (char *) ""; - int namelen; - - if (tsv->name) - { - namelen = strlen (tsv->name); - buf = (char *) alloca (namelen * 2 + 1); - bin2hex ((gdb_byte *) tsv->name, buf, namelen); - } - - sprintf (packet, "%x:%s:%x:%s", tsv->number, phex_nz (tsv->initial_value, 0), - tsv->getter ? 1 : 0, buf); -} - -/* Return the first trace state variable definition, and initialize - the state machine that will iterate through all the tsv bits. */ - -static void -cmd_qtfv (char *packet) -{ - trace_debug ("Returning first trace state variable definition"); - - cur_tsv = trace_state_variables; - - if (cur_tsv) - response_tsv (packet, cur_tsv); - else - strcpy (packet, "l"); -} - -/* Return additional trace state variable definitions. */ - -static void -cmd_qtsv (char *packet) -{ - trace_debug ("Returning additional trace state variable definition"); - - if (cur_tsv) - { - cur_tsv = cur_tsv->next; - if (cur_tsv) - response_tsv (packet, cur_tsv); - else - strcpy (packet, "l"); - } - else - strcpy (packet, "l"); -} - -/* Return the first static tracepoint marker, and initialize the state - machine that will iterate through all the static tracepoints - markers. */ - -static void -cmd_qtfstm (char *packet) -{ - if (!maybe_write_ipa_ust_not_loaded (packet)) - run_inferior_command (packet, strlen (packet) + 1); -} - -/* Return additional static tracepoints markers. */ - -static void -cmd_qtsstm (char *packet) -{ - if (!maybe_write_ipa_ust_not_loaded (packet)) - run_inferior_command (packet, strlen (packet) + 1); -} - -/* Return the definition of the static tracepoint at a given address. - Result packet is the same as qTsST's. */ - -static void -cmd_qtstmat (char *packet) -{ - if (!maybe_write_ipa_ust_not_loaded (packet)) - run_inferior_command (packet, strlen (packet) + 1); -} - -/* Sent the agent a command to close it. */ - -void -gdb_agent_about_to_close (int pid) -{ - char buf[IPA_CMD_BUF_SIZE]; - - if (!maybe_write_ipa_not_loaded (buf)) - { - struct thread_info *saved_thread; - - saved_thread = current_thread; - - /* Find any thread which belongs to process PID. */ - current_thread = find_any_thread_of_pid (pid); - - strcpy (buf, "close"); - - run_inferior_command (buf, strlen (buf) + 1); - - current_thread = saved_thread; - } -} - -/* Return the minimum instruction size needed for fast tracepoints as a - hexadecimal number. */ - -static void -cmd_qtminftpilen (char *packet) -{ - if (current_thread == NULL) - { - /* Indicate that the minimum length is currently unknown. */ - strcpy (packet, "0"); - return; - } - - sprintf (packet, "%x", target_get_min_fast_tracepoint_insn_len ()); -} - -/* Respond to qTBuffer packet with a block of raw data from the trace - buffer. GDB may ask for a lot, but we are allowed to reply with - only as much as will fit within packet limits or whatever. */ - -static void -cmd_qtbuffer (char *own_buf) -{ - ULONGEST offset, num, tot; - unsigned char *tbp; - const char *packet = own_buf; - - packet += strlen ("qTBuffer:"); - - packet = unpack_varlen_hex (packet, &offset); - ++packet; /* skip a comma */ - unpack_varlen_hex (packet, &num); - - trace_debug ("Want to get trace buffer, %d bytes at offset 0x%s", - (int) num, phex_nz (offset, 0)); - - tot = (trace_buffer_hi - trace_buffer_lo) - free_space (); - - /* If we're right at the end, reply specially that we're done. */ - if (offset == tot) - { - strcpy (own_buf, "l"); - return; - } - - /* Object to any other out-of-bounds request. */ - if (offset > tot) - { - write_enn (own_buf); - return; - } - - /* Compute the pointer corresponding to the given offset, accounting - for wraparound. */ - tbp = trace_buffer_start + offset; - if (tbp >= trace_buffer_wrap) - tbp -= (trace_buffer_wrap - trace_buffer_lo); - - /* Trim to the remaining bytes if we're close to the end. */ - if (num > tot - offset) - num = tot - offset; - - /* Trim to available packet size. */ - if (num >= (PBUFSIZ - 16) / 2 ) - num = (PBUFSIZ - 16) / 2; - - bin2hex (tbp, own_buf, num); -} - -static void -cmd_bigqtbuffer_circular (char *own_buf) -{ - ULONGEST val; - char *packet = own_buf; - - packet += strlen ("QTBuffer:circular:"); - - unpack_varlen_hex (packet, &val); - circular_trace_buffer = val; - trace_debug ("Trace buffer is now %s", - circular_trace_buffer ? "circular" : "linear"); - write_ok (own_buf); -} - -static void -cmd_bigqtbuffer_size (char *own_buf) -{ - ULONGEST val; - LONGEST sval; - char *packet = own_buf; - - /* Can't change the size during a tracing run. */ - if (tracing) - { - write_enn (own_buf); - return; - } - - packet += strlen ("QTBuffer:size:"); - - /* -1 is sent as literal "-1". */ - if (strcmp (packet, "-1") == 0) - sval = DEFAULT_TRACE_BUFFER_SIZE; - else - { - unpack_varlen_hex (packet, &val); - sval = (LONGEST) val; - } - - init_trace_buffer (sval); - trace_debug ("Trace buffer is now %s bytes", - plongest (trace_buffer_size)); - write_ok (own_buf); -} - -static void -cmd_qtnotes (char *own_buf) -{ - size_t nbytes; - char *saved, *user, *notes, *stopnote; - char *packet = own_buf; - - packet += strlen ("QTNotes:"); - - while (*packet) - { - if (startswith (packet, "user:")) - { - packet += strlen ("user:"); - saved = packet; - packet = strchr (packet, ';'); - nbytes = (packet - saved) / 2; - user = (char *) xmalloc (nbytes + 1); - nbytes = hex2bin (saved, (gdb_byte *) user, nbytes); - user[nbytes] = '\0'; - ++packet; /* skip the semicolon */ - trace_debug ("User is '%s'", user); - xfree (tracing_user_name); - tracing_user_name = user; - } - else if (startswith (packet, "notes:")) - { - packet += strlen ("notes:"); - saved = packet; - packet = strchr (packet, ';'); - nbytes = (packet - saved) / 2; - notes = (char *) xmalloc (nbytes + 1); - nbytes = hex2bin (saved, (gdb_byte *) notes, nbytes); - notes[nbytes] = '\0'; - ++packet; /* skip the semicolon */ - trace_debug ("Notes is '%s'", notes); - xfree (tracing_notes); - tracing_notes = notes; - } - else if (startswith (packet, "tstop:")) - { - packet += strlen ("tstop:"); - saved = packet; - packet = strchr (packet, ';'); - nbytes = (packet - saved) / 2; - stopnote = (char *) xmalloc (nbytes + 1); - nbytes = hex2bin (saved, (gdb_byte *) stopnote, nbytes); - stopnote[nbytes] = '\0'; - ++packet; /* skip the semicolon */ - trace_debug ("tstop note is '%s'", stopnote); - xfree (tracing_stop_note); - tracing_stop_note = stopnote; - } - else - break; - } - - write_ok (own_buf); -} - -int -handle_tracepoint_general_set (char *packet) -{ - if (strcmp ("QTinit", packet) == 0) - { - cmd_qtinit (packet); - return 1; - } - else if (startswith (packet, "QTDP:")) - { - cmd_qtdp (packet); - return 1; - } - else if (startswith (packet, "QTDPsrc:")) - { - cmd_qtdpsrc (packet); - return 1; - } - else if (startswith (packet, "QTEnable:")) - { - cmd_qtenable_disable (packet, 1); - return 1; - } - else if (startswith (packet, "QTDisable:")) - { - cmd_qtenable_disable (packet, 0); - return 1; - } - else if (startswith (packet, "QTDV:")) - { - cmd_qtdv (packet); - return 1; - } - else if (startswith (packet, "QTro:")) - { - cmd_qtro (packet); - return 1; - } - else if (strcmp ("QTStart", packet) == 0) - { - cmd_qtstart (packet); - return 1; - } - else if (strcmp ("QTStop", packet) == 0) - { - cmd_qtstop (packet); - return 1; - } - else if (startswith (packet, "QTDisconnected:")) - { - cmd_qtdisconnected (packet); - return 1; - } - else if (startswith (packet, "QTFrame:")) - { - cmd_qtframe (packet); - return 1; - } - else if (startswith (packet, "QTBuffer:circular:")) - { - cmd_bigqtbuffer_circular (packet); - return 1; - } - else if (startswith (packet, "QTBuffer:size:")) - { - cmd_bigqtbuffer_size (packet); - return 1; - } - else if (startswith (packet, "QTNotes:")) - { - cmd_qtnotes (packet); - return 1; - } - - return 0; -} - -int -handle_tracepoint_query (char *packet) -{ - if (strcmp ("qTStatus", packet) == 0) - { - cmd_qtstatus (packet); - return 1; - } - else if (startswith (packet, "qTP:")) - { - cmd_qtp (packet); - return 1; - } - else if (strcmp ("qTfP", packet) == 0) - { - cmd_qtfp (packet); - return 1; - } - else if (strcmp ("qTsP", packet) == 0) - { - cmd_qtsp (packet); - return 1; - } - else if (strcmp ("qTfV", packet) == 0) - { - cmd_qtfv (packet); - return 1; - } - else if (strcmp ("qTsV", packet) == 0) - { - cmd_qtsv (packet); - return 1; - } - else if (startswith (packet, "qTV:")) - { - cmd_qtv (packet); - return 1; - } - else if (startswith (packet, "qTBuffer:")) - { - cmd_qtbuffer (packet); - return 1; - } - else if (strcmp ("qTfSTM", packet) == 0) - { - cmd_qtfstm (packet); - return 1; - } - else if (strcmp ("qTsSTM", packet) == 0) - { - cmd_qtsstm (packet); - return 1; - } - else if (startswith (packet, "qTSTMat:")) - { - cmd_qtstmat (packet); - return 1; - } - else if (strcmp ("qTMinFTPILen", packet) == 0) - { - cmd_qtminftpilen (packet); - return 1; - } - - return 0; -} - -#endif -#ifndef IN_PROCESS_AGENT - -/* Call this when thread TINFO has hit the tracepoint defined by - TP_NUMBER and TP_ADDRESS, and that tracepoint has a while-stepping - action. This adds a while-stepping collecting state item to the - threads' collecting state list, so that we can keep track of - multiple simultaneous while-stepping actions being collected by the - same thread. This can happen in cases like: - - ff0001 INSN1 <-- TP1, while-stepping 10 collect $regs - ff0002 INSN2 - ff0003 INSN3 <-- TP2, collect $regs - ff0004 INSN4 <-- TP3, while-stepping 10 collect $regs - ff0005 INSN5 - - Notice that when instruction INSN5 is reached, the while-stepping - actions of both TP1 and TP3 are still being collected, and that TP2 - had been collected meanwhile. The whole range of ff0001-ff0005 - should be single-stepped, due to at least TP1's while-stepping - action covering the whole range. */ - -static void -add_while_stepping_state (struct thread_info *tinfo, - int tp_number, CORE_ADDR tp_address) -{ - struct wstep_state *wstep = XNEW (struct wstep_state); - - wstep->next = tinfo->while_stepping; - - wstep->tp_number = tp_number; - wstep->tp_address = tp_address; - wstep->current_step = 0; - - tinfo->while_stepping = wstep; -} - -/* Release the while-stepping collecting state WSTEP. */ - -static void -release_while_stepping_state (struct wstep_state *wstep) -{ - free (wstep); -} - -/* Release all while-stepping collecting states currently associated - with thread TINFO. */ - -void -release_while_stepping_state_list (struct thread_info *tinfo) -{ - struct wstep_state *head; - - while (tinfo->while_stepping) - { - head = tinfo->while_stepping; - tinfo->while_stepping = head->next; - release_while_stepping_state (head); - } -} - -/* If TINFO was handling a 'while-stepping' action, the step has - finished, so collect any step data needed, and check if any more - steps are required. Return true if the thread was indeed - collecting tracepoint data, false otherwise. */ - -int -tracepoint_finished_step (struct thread_info *tinfo, CORE_ADDR stop_pc) -{ - struct tracepoint *tpoint; - struct wstep_state *wstep; - struct wstep_state **wstep_link; - struct trap_tracepoint_ctx ctx; - - /* Pull in fast tracepoint trace frames from the inferior lib buffer into - our buffer. */ - if (agent_loaded_p ()) - upload_fast_traceframes (); - - /* Check if we were indeed collecting data for one of more - tracepoints with a 'while-stepping' count. */ - if (tinfo->while_stepping == NULL) - return 0; - - if (!tracing) - { - /* We're not even tracing anymore. Stop this thread from - collecting. */ - release_while_stepping_state_list (tinfo); - - /* The thread had stopped due to a single-step request indeed - explained by a tracepoint. */ - return 1; - } - - wstep = tinfo->while_stepping; - wstep_link = &tinfo->while_stepping; - - trace_debug ("Thread %s finished a single-step for tracepoint %d at 0x%s", - target_pid_to_str (tinfo->id), - wstep->tp_number, paddress (wstep->tp_address)); - - ctx.base.type = trap_tracepoint; - ctx.regcache = get_thread_regcache (tinfo, 1); - - while (wstep != NULL) - { - tpoint = find_tracepoint (wstep->tp_number, wstep->tp_address); - if (tpoint == NULL) - { - trace_debug ("NO TRACEPOINT %d at 0x%s FOR THREAD %s!", - wstep->tp_number, paddress (wstep->tp_address), - target_pid_to_str (tinfo->id)); - - /* Unlink. */ - *wstep_link = wstep->next; - release_while_stepping_state (wstep); - wstep = *wstep_link; - continue; - } - - /* We've just finished one step. */ - ++wstep->current_step; - - /* Collect data. */ - collect_data_at_step ((struct tracepoint_hit_ctx *) &ctx, - stop_pc, tpoint, wstep->current_step); - - if (wstep->current_step >= tpoint->step_count) - { - /* The requested numbers of steps have occurred. */ - trace_debug ("Thread %s done stepping for tracepoint %d at 0x%s", - target_pid_to_str (tinfo->id), - wstep->tp_number, paddress (wstep->tp_address)); - - /* Unlink the wstep. */ - *wstep_link = wstep->next; - release_while_stepping_state (wstep); - wstep = *wstep_link; - - /* Only check the hit count now, which ensure that we do all - our stepping before stopping the run. */ - if (tpoint->pass_count > 0 - && tpoint->hit_count >= tpoint->pass_count - && stopping_tracepoint == NULL) - stopping_tracepoint = tpoint; - } - else - { - /* Keep single-stepping until the requested numbers of steps - have occurred. */ - wstep_link = &wstep->next; - wstep = *wstep_link; - } - - if (stopping_tracepoint - || trace_buffer_is_full - || expr_eval_result != expr_eval_no_error) - { - stop_tracing (); - break; - } - } - - return 1; -} - -/* Handle any internal tracing control breakpoint hits. That means, - pull traceframes from the IPA to our buffer, and syncing both - tracing agents when the IPA's tracing stops for some reason. */ - -int -handle_tracepoint_bkpts (struct thread_info *tinfo, CORE_ADDR stop_pc) -{ - /* Pull in fast tracepoint trace frames from the inferior in-process - agent's buffer into our buffer. */ - - if (!agent_loaded_p ()) - return 0; - - upload_fast_traceframes (); - - /* Check if the in-process agent had decided we should stop - tracing. */ - if (stop_pc == ipa_sym_addrs.addr_stop_tracing) - { - int ipa_trace_buffer_is_full; - CORE_ADDR ipa_stopping_tracepoint; - int ipa_expr_eval_result; - CORE_ADDR ipa_error_tracepoint; - - trace_debug ("lib stopped at stop_tracing"); - - read_inferior_integer (ipa_sym_addrs.addr_trace_buffer_is_full, - &ipa_trace_buffer_is_full); - - read_inferior_data_pointer (ipa_sym_addrs.addr_stopping_tracepoint, - &ipa_stopping_tracepoint); - write_inferior_data_pointer (ipa_sym_addrs.addr_stopping_tracepoint, 0); - - read_inferior_data_pointer (ipa_sym_addrs.addr_error_tracepoint, - &ipa_error_tracepoint); - write_inferior_data_pointer (ipa_sym_addrs.addr_error_tracepoint, 0); - - read_inferior_integer (ipa_sym_addrs.addr_expr_eval_result, - &ipa_expr_eval_result); - write_inferior_integer (ipa_sym_addrs.addr_expr_eval_result, 0); - - trace_debug ("lib: trace_buffer_is_full: %d, " - "stopping_tracepoint: %s, " - "ipa_expr_eval_result: %d, " - "error_tracepoint: %s, ", - ipa_trace_buffer_is_full, - paddress (ipa_stopping_tracepoint), - ipa_expr_eval_result, - paddress (ipa_error_tracepoint)); - - if (debug_threads) - { - if (ipa_trace_buffer_is_full) - trace_debug ("lib stopped due to full buffer."); - if (ipa_stopping_tracepoint) - trace_debug ("lib stopped due to tpoint"); - if (ipa_error_tracepoint) - trace_debug ("lib stopped due to error"); - } - - if (ipa_stopping_tracepoint != 0) - { - stopping_tracepoint - = fast_tracepoint_from_ipa_tpoint_address (ipa_stopping_tracepoint); - } - else if (ipa_expr_eval_result != expr_eval_no_error) - { - expr_eval_result = ipa_expr_eval_result; - error_tracepoint - = fast_tracepoint_from_ipa_tpoint_address (ipa_error_tracepoint); - } - stop_tracing (); - return 1; - } - else if (stop_pc == ipa_sym_addrs.addr_flush_trace_buffer) - { - trace_debug ("lib stopped at flush_trace_buffer"); - return 1; - } - - return 0; -} - -/* Return true if TINFO just hit a tracepoint. Collect data if - so. */ - -int -tracepoint_was_hit (struct thread_info *tinfo, CORE_ADDR stop_pc) -{ - struct tracepoint *tpoint; - int ret = 0; - struct trap_tracepoint_ctx ctx; - - /* Not tracing, don't handle. */ - if (!tracing) - return 0; - - ctx.base.type = trap_tracepoint; - ctx.regcache = get_thread_regcache (tinfo, 1); - - for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) - { - /* Note that we collect fast tracepoints here as well. We'll - step over the fast tracepoint jump later, which avoids the - double collect. However, we don't collect for static - tracepoints here, because UST markers are compiled in program, - and probes will be executed in program. So static tracepoints - are collected there. */ - if (tpoint->enabled && stop_pc == tpoint->address - && tpoint->type != static_tracepoint) - { - trace_debug ("Thread %s at address of tracepoint %d at 0x%s", - target_pid_to_str (tinfo->id), - tpoint->number, paddress (tpoint->address)); - - /* Test the condition if present, and collect if true. */ - if (!tpoint->cond - || (condition_true_at_tracepoint - ((struct tracepoint_hit_ctx *) &ctx, tpoint))) - collect_data_at_tracepoint ((struct tracepoint_hit_ctx *) &ctx, - stop_pc, tpoint); - - if (stopping_tracepoint - || trace_buffer_is_full - || expr_eval_result != expr_eval_no_error) - { - stop_tracing (); - } - /* If the tracepoint had a 'while-stepping' action, then set - the thread to collect this tracepoint on the following - single-steps. */ - else if (tpoint->step_count > 0) - { - add_while_stepping_state (tinfo, - tpoint->number, tpoint->address); - } - - ret = 1; - } - } - - return ret; -} - -#endif - -#if defined IN_PROCESS_AGENT && defined HAVE_UST -struct ust_marker_data; -static void collect_ust_data_at_tracepoint (struct tracepoint_hit_ctx *ctx, - struct traceframe *tframe); -#endif - -/* Create a trace frame for the hit of the given tracepoint in the - given thread. */ - -static void -collect_data_at_tracepoint (struct tracepoint_hit_ctx *ctx, CORE_ADDR stop_pc, - struct tracepoint *tpoint) -{ - struct traceframe *tframe; - int acti; - - /* Only count it as a hit when we actually collect data. */ - tpoint->hit_count++; - - /* If we've exceeded a defined pass count, record the event for - later, and finish the collection for this hit. This test is only - for nonstepping tracepoints, stepping tracepoints test at the end - of their while-stepping loop. */ - if (tpoint->pass_count > 0 - && tpoint->hit_count >= tpoint->pass_count - && tpoint->step_count == 0 - && stopping_tracepoint == NULL) - stopping_tracepoint = tpoint; - - trace_debug ("Making new traceframe for tracepoint %d at 0x%s, hit %" PRIu64, - tpoint->number, paddress (tpoint->address), tpoint->hit_count); - - tframe = add_traceframe (tpoint); - - if (tframe) - { - for (acti = 0; acti < tpoint->numactions; ++acti) - { -#ifndef IN_PROCESS_AGENT - trace_debug ("Tracepoint %d at 0x%s about to do action '%s'", - tpoint->number, paddress (tpoint->address), - tpoint->actions_str[acti]); -#endif - - do_action_at_tracepoint (ctx, stop_pc, tpoint, tframe, - tpoint->actions[acti]); - } - - finish_traceframe (tframe); - } - - if (tframe == NULL && tracing) - trace_buffer_is_full = 1; -} - -#ifndef IN_PROCESS_AGENT - -static void -collect_data_at_step (struct tracepoint_hit_ctx *ctx, - CORE_ADDR stop_pc, - struct tracepoint *tpoint, int current_step) -{ - struct traceframe *tframe; - int acti; - - trace_debug ("Making new step traceframe for " - "tracepoint %d at 0x%s, step %d of %" PRIu64 ", hit %" PRIu64, - tpoint->number, paddress (tpoint->address), - current_step, tpoint->step_count, - tpoint->hit_count); - - tframe = add_traceframe (tpoint); - - if (tframe) - { - for (acti = 0; acti < tpoint->num_step_actions; ++acti) - { - trace_debug ("Tracepoint %d at 0x%s about to do step action '%s'", - tpoint->number, paddress (tpoint->address), - tpoint->step_actions_str[acti]); - - do_action_at_tracepoint (ctx, stop_pc, tpoint, tframe, - tpoint->step_actions[acti]); - } - - finish_traceframe (tframe); - } - - if (tframe == NULL && tracing) - trace_buffer_is_full = 1; -} - -#endif - -#ifdef IN_PROCESS_AGENT -/* The target description index for IPA. Passed from gdbserver, used - to select ipa_tdesc. */ -EXTERN_C_PUSH -IP_AGENT_EXPORT_VAR int ipa_tdesc_idx; -EXTERN_C_POP -#endif - -static struct regcache * -get_context_regcache (struct tracepoint_hit_ctx *ctx) -{ - struct regcache *regcache = NULL; -#ifdef IN_PROCESS_AGENT - const struct target_desc *ipa_tdesc = get_ipa_tdesc (ipa_tdesc_idx); - - if (ctx->type == fast_tracepoint) - { - struct fast_tracepoint_ctx *fctx = (struct fast_tracepoint_ctx *) ctx; - if (!fctx->regcache_initted) - { - fctx->regcache_initted = 1; - init_register_cache (&fctx->regcache, ipa_tdesc, fctx->regspace); - supply_regblock (&fctx->regcache, NULL); - supply_fast_tracepoint_registers (&fctx->regcache, fctx->regs); - } - regcache = &fctx->regcache; - } -#ifdef HAVE_UST - if (ctx->type == static_tracepoint) - { - struct static_tracepoint_ctx *sctx - = (struct static_tracepoint_ctx *) ctx; - - if (!sctx->regcache_initted) - { - sctx->regcache_initted = 1; - init_register_cache (&sctx->regcache, ipa_tdesc, sctx->regspace); - supply_regblock (&sctx->regcache, NULL); - /* Pass down the tracepoint address, because REGS doesn't - include the PC, but we know what it must have been. */ - supply_static_tracepoint_registers (&sctx->regcache, - (const unsigned char *) - sctx->regs, - sctx->tpoint->address); - } - regcache = &sctx->regcache; - } -#endif -#else - if (ctx->type == trap_tracepoint) - { - struct trap_tracepoint_ctx *tctx = (struct trap_tracepoint_ctx *) ctx; - regcache = tctx->regcache; - } -#endif - - gdb_assert (regcache != NULL); - - return regcache; -} - -static void -do_action_at_tracepoint (struct tracepoint_hit_ctx *ctx, - CORE_ADDR stop_pc, - struct tracepoint *tpoint, - struct traceframe *tframe, - struct tracepoint_action *taction) -{ - enum eval_result_type err; - - switch (taction->type) - { - case 'M': - { - struct collect_memory_action *maction; - struct eval_agent_expr_context ax_ctx; - - maction = (struct collect_memory_action *) taction; - ax_ctx.regcache = NULL; - ax_ctx.tframe = tframe; - ax_ctx.tpoint = tpoint; - - trace_debug ("Want to collect %s bytes at 0x%s (basereg %d)", - pulongest (maction->len), - paddress (maction->addr), maction->basereg); - /* (should use basereg) */ - agent_mem_read (&ax_ctx, NULL, (CORE_ADDR) maction->addr, - maction->len); - break; - } - case 'R': - { - unsigned char *regspace; - struct regcache tregcache; - struct regcache *context_regcache; - int regcache_size; - - trace_debug ("Want to collect registers"); - - context_regcache = get_context_regcache (ctx); - regcache_size = register_cache_size (context_regcache->tdesc); - - /* Collect all registers for now. */ - regspace = add_traceframe_block (tframe, tpoint, 1 + regcache_size); - if (regspace == NULL) - { - trace_debug ("Trace buffer block allocation failed, skipping"); - break; - } - /* Identify a register block. */ - *regspace = 'R'; - - /* Wrap the regblock in a register cache (in the stack, we - don't want to malloc here). */ - init_register_cache (&tregcache, context_regcache->tdesc, - regspace + 1); - - /* Copy the register data to the regblock. */ - regcache_cpy (&tregcache, context_regcache); - -#ifndef IN_PROCESS_AGENT - /* On some platforms, trap-based tracepoints will have the PC - pointing to the next instruction after the trap, but we - don't want the user or GDB trying to guess whether the - saved PC needs adjusting; so always record the adjusted - stop_pc. Note that we can't use tpoint->address instead, - since it will be wrong for while-stepping actions. This - adjustment is a nop for fast tracepoints collected from the - in-process lib (but not if GDBserver is collecting one - preemptively), since the PC had already been adjusted to - contain the tracepoint's address by the jump pad. */ - trace_debug ("Storing stop pc (0x%s) in regblock", - paddress (stop_pc)); - - /* This changes the regblock, not the thread's - regcache. */ - regcache_write_pc (&tregcache, stop_pc); -#endif - } - break; - case 'X': - { - struct eval_expr_action *eaction; - struct eval_agent_expr_context ax_ctx; - - eaction = (struct eval_expr_action *) taction; - ax_ctx.regcache = get_context_regcache (ctx); - ax_ctx.tframe = tframe; - ax_ctx.tpoint = tpoint; - - trace_debug ("Want to evaluate expression"); - - err = gdb_eval_agent_expr (&ax_ctx, eaction->expr, NULL); - - if (err != expr_eval_no_error) - { - record_tracepoint_error (tpoint, "action expression", err); - return; - } - } - break; - case 'L': - { -#if defined IN_PROCESS_AGENT && defined HAVE_UST - trace_debug ("Want to collect static trace data"); - collect_ust_data_at_tracepoint (ctx, tframe); -#else - trace_debug ("warning: collecting static trace data, " - "but static tracepoints are not supported"); -#endif - } - break; - default: - trace_debug ("unknown trace action '%c', ignoring", taction->type); - break; - } -} - -static int -condition_true_at_tracepoint (struct tracepoint_hit_ctx *ctx, - struct tracepoint *tpoint) -{ - ULONGEST value = 0; - enum eval_result_type err; - - /* Presently, gdbserver doesn't run compiled conditions, only the - IPA does. If the program stops at a fast tracepoint's address - (e.g., due to a breakpoint, trap tracepoint, or stepping), - gdbserver preemptively collect the fast tracepoint. Later, on - resume, gdbserver steps over the fast tracepoint like it steps - over breakpoints, so that the IPA doesn't see that fast - tracepoint. This avoids double collects of fast tracepoints in - that stopping scenario. Having gdbserver itself handle the fast - tracepoint gives the user a consistent view of when fast or trap - tracepoints are collected, compared to an alternative where only - trap tracepoints are collected on stop, and fast tracepoints on - resume. When a fast tracepoint is being processed by gdbserver, - it is always the non-compiled condition expression that is - used. */ -#ifdef IN_PROCESS_AGENT - if (tpoint->compiled_cond) - { - struct fast_tracepoint_ctx *fctx = (struct fast_tracepoint_ctx *) ctx; - err = ((condfn) (uintptr_t) (tpoint->compiled_cond)) (fctx->regs, &value); - } - else -#endif - { - struct eval_agent_expr_context ax_ctx; - - ax_ctx.regcache = get_context_regcache (ctx); - ax_ctx.tframe = NULL; - ax_ctx.tpoint = tpoint; - - err = gdb_eval_agent_expr (&ax_ctx, tpoint->cond, &value); - } - if (err != expr_eval_no_error) - { - record_tracepoint_error (tpoint, "condition", err); - /* The error case must return false. */ - return 0; - } - - trace_debug ("Tracepoint %d at 0x%s condition evals to %s", - tpoint->number, paddress (tpoint->address), - pulongest (value)); - return (value ? 1 : 0); -} - -/* Do memory copies for bytecodes. */ -/* Do the recording of memory blocks for actions and bytecodes. */ - -int -agent_mem_read (struct eval_agent_expr_context *ctx, - unsigned char *to, CORE_ADDR from, ULONGEST len) -{ - unsigned char *mspace; - ULONGEST remaining = len; - unsigned short blocklen; - - /* If a 'to' buffer is specified, use it. */ - if (to != NULL) - { - read_inferior_memory (from, to, len); - return 0; - } - - /* Otherwise, create a new memory block in the trace buffer. */ - while (remaining > 0) - { - size_t sp; - - blocklen = (remaining > 65535 ? 65535 : remaining); - sp = 1 + sizeof (from) + sizeof (blocklen) + blocklen; - mspace = add_traceframe_block (ctx->tframe, ctx->tpoint, sp); - if (mspace == NULL) - return 1; - /* Identify block as a memory block. */ - *mspace = 'M'; - ++mspace; - /* Record address and size. */ - memcpy (mspace, &from, sizeof (from)); - mspace += sizeof (from); - memcpy (mspace, &blocklen, sizeof (blocklen)); - mspace += sizeof (blocklen); - /* Record the memory block proper. */ - read_inferior_memory (from, mspace, blocklen); - trace_debug ("%d bytes recorded", blocklen); - remaining -= blocklen; - from += blocklen; - } - return 0; -} - -int -agent_mem_read_string (struct eval_agent_expr_context *ctx, - unsigned char *to, CORE_ADDR from, ULONGEST len) -{ - unsigned char *buf, *mspace; - ULONGEST remaining = len; - unsigned short blocklen, i; - - /* To save a bit of space, block lengths are 16-bit, so break large - requests into multiple blocks. Bordering on overkill for strings, - but it could happen that someone specifies a large max length. */ - while (remaining > 0) - { - size_t sp; - - blocklen = (remaining > 65535 ? 65535 : remaining); - /* We want working space to accumulate nonzero bytes, since - traceframes must have a predecided size (otherwise it gets - harder to wrap correctly for the circular case, etc). */ - buf = (unsigned char *) xmalloc (blocklen + 1); - for (i = 0; i < blocklen; ++i) - { - /* Read the string one byte at a time, in case the string is - at the end of a valid memory area - we don't want a - correctly-terminated string to engender segvio - complaints. */ - read_inferior_memory (from + i, buf + i, 1); - - if (buf[i] == '\0') - { - blocklen = i + 1; - /* Make sure outer loop stops now too. */ - remaining = blocklen; - break; - } - } - sp = 1 + sizeof (from) + sizeof (blocklen) + blocklen; - mspace = add_traceframe_block (ctx->tframe, ctx->tpoint, sp); - if (mspace == NULL) - { - xfree (buf); - return 1; - } - /* Identify block as a memory block. */ - *mspace = 'M'; - ++mspace; - /* Record address and size. */ - memcpy ((void *) mspace, (void *) &from, sizeof (from)); - mspace += sizeof (from); - memcpy ((void *) mspace, (void *) &blocklen, sizeof (blocklen)); - mspace += sizeof (blocklen); - /* Copy the string contents. */ - memcpy ((void *) mspace, (void *) buf, blocklen); - remaining -= blocklen; - from += blocklen; - xfree (buf); - } - return 0; -} - -/* Record the value of a trace state variable. */ - -int -agent_tsv_read (struct eval_agent_expr_context *ctx, int n) -{ - unsigned char *vspace; - LONGEST val; - - vspace = add_traceframe_block (ctx->tframe, ctx->tpoint, - 1 + sizeof (n) + sizeof (LONGEST)); - if (vspace == NULL) - return 1; - /* Identify block as a variable. */ - *vspace = 'V'; - /* Record variable's number and value. */ - memcpy (vspace + 1, &n, sizeof (n)); - val = get_trace_state_variable_value (n); - memcpy (vspace + 1 + sizeof (n), &val, sizeof (val)); - trace_debug ("Variable %d recorded", n); - return 0; -} - -#ifndef IN_PROCESS_AGENT - -/* Callback for traceframe_walk_blocks, used to find a given block - type in a traceframe. */ - -static int -match_blocktype (char blocktype, unsigned char *dataptr, void *data) -{ - char *wantedp = (char *) data; - - if (*wantedp == blocktype) - return 1; - - return 0; -} - -/* Walk over all traceframe blocks of the traceframe buffer starting - at DATABASE, of DATASIZE bytes long, and call CALLBACK for each - block found, passing in DATA unmodified. If CALLBACK returns true, - this returns a pointer to where the block is found. Returns NULL - if no callback call returned true, indicating that all blocks have - been walked. */ - -static unsigned char * -traceframe_walk_blocks (unsigned char *database, unsigned int datasize, - int tfnum, - int (*callback) (char blocktype, - unsigned char *dataptr, - void *data), - void *data) -{ - unsigned char *dataptr; - - if (datasize == 0) - { - trace_debug ("traceframe %d has no data", tfnum); - return NULL; - } - - /* Iterate through a traceframe's blocks, looking for a block of the - requested type. */ - for (dataptr = database; - dataptr < database + datasize; - /* nothing */) - { - char blocktype; - unsigned short mlen; - - if (dataptr == trace_buffer_wrap) - { - /* Adjust to reflect wrapping part of the frame around to - the beginning. */ - datasize = dataptr - database; - dataptr = database = trace_buffer_lo; - } - - blocktype = *dataptr++; - - if ((*callback) (blocktype, dataptr, data)) - return dataptr; - - switch (blocktype) - { - case 'R': - /* Skip over the registers block. */ - dataptr += current_target_desc ()->registers_size; - break; - case 'M': - /* Skip over the memory block. */ - dataptr += sizeof (CORE_ADDR); - memcpy (&mlen, dataptr, sizeof (mlen)); - dataptr += (sizeof (mlen) + mlen); - break; - case 'V': - /* Skip over the TSV block. */ - dataptr += (sizeof (int) + sizeof (LONGEST)); - break; - case 'S': - /* Skip over the static trace data block. */ - memcpy (&mlen, dataptr, sizeof (mlen)); - dataptr += (sizeof (mlen) + mlen); - break; - default: - trace_debug ("traceframe %d has unknown block type 0x%x", - tfnum, blocktype); - return NULL; - } - } - - return NULL; -} - -/* Look for the block of type TYPE_WANTED in the traceframe starting - at DATABASE of DATASIZE bytes long. TFNUM is the traceframe - number. */ - -static unsigned char * -traceframe_find_block_type (unsigned char *database, unsigned int datasize, - int tfnum, char type_wanted) -{ - return traceframe_walk_blocks (database, datasize, tfnum, - match_blocktype, &type_wanted); -} - -static unsigned char * -traceframe_find_regblock (struct traceframe *tframe, int tfnum) -{ - unsigned char *regblock; - - regblock = traceframe_find_block_type (tframe->data, - tframe->data_size, - tfnum, 'R'); - - if (regblock == NULL) - trace_debug ("traceframe %d has no register data", tfnum); - - return regblock; -} - -/* Get registers from a traceframe. */ - -int -fetch_traceframe_registers (int tfnum, struct regcache *regcache, int regnum) -{ - unsigned char *dataptr; - struct tracepoint *tpoint; - struct traceframe *tframe; - - tframe = find_traceframe (tfnum); - - if (tframe == NULL) - { - trace_debug ("traceframe %d not found", tfnum); - return 1; - } - - dataptr = traceframe_find_regblock (tframe, tfnum); - if (dataptr == NULL) - { - /* Mark registers unavailable. */ - supply_regblock (regcache, NULL); - - /* We can generally guess at a PC, although this will be - misleading for while-stepping frames and multi-location - tracepoints. */ - tpoint = find_next_tracepoint_by_number (NULL, tframe->tpnum); - if (tpoint != NULL) - regcache_write_pc (regcache, tpoint->address); - } - else - supply_regblock (regcache, dataptr); - - return 0; -} - -static CORE_ADDR -traceframe_get_pc (struct traceframe *tframe) -{ - struct regcache regcache; - unsigned char *dataptr; - const struct target_desc *tdesc = current_target_desc (); - - dataptr = traceframe_find_regblock (tframe, -1); - if (dataptr == NULL) - return 0; - - init_register_cache (®cache, tdesc, dataptr); - return regcache_read_pc (®cache); -} - -/* Read a requested block of memory from a trace frame. */ - -int -traceframe_read_mem (int tfnum, CORE_ADDR addr, - unsigned char *buf, ULONGEST length, - ULONGEST *nbytes) -{ - struct traceframe *tframe; - unsigned char *database, *dataptr; - unsigned int datasize; - CORE_ADDR maddr; - unsigned short mlen; - - trace_debug ("traceframe_read_mem"); - - tframe = find_traceframe (tfnum); - - if (!tframe) - { - trace_debug ("traceframe %d not found", tfnum); - return 1; - } - - datasize = tframe->data_size; - database = dataptr = &tframe->data[0]; - - /* Iterate through a traceframe's blocks, looking for memory. */ - while ((dataptr = traceframe_find_block_type (dataptr, - datasize - - (dataptr - database), - tfnum, 'M')) != NULL) - { - memcpy (&maddr, dataptr, sizeof (maddr)); - dataptr += sizeof (maddr); - memcpy (&mlen, dataptr, sizeof (mlen)); - dataptr += sizeof (mlen); - trace_debug ("traceframe %d has %d bytes at %s", - tfnum, mlen, paddress (maddr)); - - /* If the block includes the first part of the desired range, - return as much it has; GDB will re-request the remainder, - which might be in a different block of this trace frame. */ - if (maddr <= addr && addr < (maddr + mlen)) - { - ULONGEST amt = (maddr + mlen) - addr; - if (amt > length) - amt = length; - - memcpy (buf, dataptr + (addr - maddr), amt); - *nbytes = amt; - return 0; - } - - /* Skip over this block. */ - dataptr += mlen; - } - - trace_debug ("traceframe %d has no memory data for the desired region", - tfnum); - - *nbytes = 0; - return 0; -} - -static int -traceframe_read_tsv (int tsvnum, LONGEST *val) -{ - client_state &cs = get_client_state (); - int tfnum; - struct traceframe *tframe; - unsigned char *database, *dataptr; - unsigned int datasize; - int vnum; - int found = 0; - - trace_debug ("traceframe_read_tsv"); - - tfnum = cs.current_traceframe; - - if (tfnum < 0) - { - trace_debug ("no current traceframe"); - return 1; - } - - tframe = find_traceframe (tfnum); - - if (tframe == NULL) - { - trace_debug ("traceframe %d not found", tfnum); - return 1; - } - - datasize = tframe->data_size; - database = dataptr = &tframe->data[0]; - - /* Iterate through a traceframe's blocks, looking for the last - matched tsv. */ - while ((dataptr = traceframe_find_block_type (dataptr, - datasize - - (dataptr - database), - tfnum, 'V')) != NULL) - { - memcpy (&vnum, dataptr, sizeof (vnum)); - dataptr += sizeof (vnum); - - trace_debug ("traceframe %d has variable %d", tfnum, vnum); - - /* Check that this is the variable we want. */ - if (tsvnum == vnum) - { - memcpy (val, dataptr, sizeof (*val)); - found = 1; - } - - /* Skip over this block. */ - dataptr += sizeof (LONGEST); - } - - if (!found) - trace_debug ("traceframe %d has no data for variable %d", - tfnum, tsvnum); - return !found; -} - -/* Read a requested block of static tracepoint data from a trace - frame. */ - -int -traceframe_read_sdata (int tfnum, ULONGEST offset, - unsigned char *buf, ULONGEST length, - ULONGEST *nbytes) -{ - struct traceframe *tframe; - unsigned char *database, *dataptr; - unsigned int datasize; - unsigned short mlen; - - trace_debug ("traceframe_read_sdata"); - - tframe = find_traceframe (tfnum); - - if (!tframe) - { - trace_debug ("traceframe %d not found", tfnum); - return 1; - } - - datasize = tframe->data_size; - database = &tframe->data[0]; - - /* Iterate through a traceframe's blocks, looking for static - tracepoint data. */ - dataptr = traceframe_find_block_type (database, datasize, - tfnum, 'S'); - if (dataptr != NULL) - { - memcpy (&mlen, dataptr, sizeof (mlen)); - dataptr += sizeof (mlen); - if (offset < mlen) - { - if (offset + length > mlen) - length = mlen - offset; - - memcpy (buf, dataptr, length); - *nbytes = length; - } - else - *nbytes = 0; - return 0; - } - - trace_debug ("traceframe %d has no static trace data", tfnum); - - *nbytes = 0; - return 0; -} - -/* Callback for traceframe_walk_blocks. Builds a traceframe-info - object. DATA is pointer to a struct buffer holding the - traceframe-info object being built. */ - -static int -build_traceframe_info_xml (char blocktype, unsigned char *dataptr, void *data) -{ - struct buffer *buffer = (struct buffer *) data; - - switch (blocktype) - { - case 'M': - { - unsigned short mlen; - CORE_ADDR maddr; - - memcpy (&maddr, dataptr, sizeof (maddr)); - dataptr += sizeof (maddr); - memcpy (&mlen, dataptr, sizeof (mlen)); - dataptr += sizeof (mlen); - buffer_xml_printf (buffer, - "\n", - paddress (maddr), phex_nz (mlen, sizeof (mlen))); - break; - } - case 'V': - { - int vnum; - - memcpy (&vnum, dataptr, sizeof (vnum)); - buffer_xml_printf (buffer, "\n", vnum); - break; - } - case 'R': - case 'S': - { - break; - } - default: - warning ("Unhandled trace block type (%d) '%c ' " - "while building trace frame info.", - blocktype, blocktype); - break; - } - - return 0; -} - -/* Build a traceframe-info object for traceframe number TFNUM into - BUFFER. */ - -int -traceframe_read_info (int tfnum, struct buffer *buffer) -{ - struct traceframe *tframe; - - trace_debug ("traceframe_read_info"); - - tframe = find_traceframe (tfnum); - - if (!tframe) - { - trace_debug ("traceframe %d not found", tfnum); - return 1; - } - - buffer_grow_str (buffer, "\n"); - traceframe_walk_blocks (tframe->data, tframe->data_size, - tfnum, build_traceframe_info_xml, buffer); - buffer_grow_str0 (buffer, "\n"); - return 0; -} - -/* Return the first fast tracepoint whose jump pad contains PC. */ - -static struct tracepoint * -fast_tracepoint_from_jump_pad_address (CORE_ADDR pc) -{ - struct tracepoint *tpoint; - - for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) - if (tpoint->type == fast_tracepoint) - if (tpoint->jump_pad <= pc && pc < tpoint->jump_pad_end) - return tpoint; - - return NULL; -} - -/* Return the first fast tracepoint whose trampoline contains PC. */ - -static struct tracepoint * -fast_tracepoint_from_trampoline_address (CORE_ADDR pc) -{ - struct tracepoint *tpoint; - - for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) - { - if (tpoint->type == fast_tracepoint - && tpoint->trampoline <= pc && pc < tpoint->trampoline_end) - return tpoint; - } - - return NULL; -} - -/* Return GDBserver's tracepoint that matches the IP Agent's - tracepoint object that lives at IPA_TPOINT_OBJ in the IP Agent's - address space. */ - -static struct tracepoint * -fast_tracepoint_from_ipa_tpoint_address (CORE_ADDR ipa_tpoint_obj) -{ - struct tracepoint *tpoint; - - for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) - if (tpoint->type == fast_tracepoint) - if (tpoint->obj_addr_on_target == ipa_tpoint_obj) - return tpoint; - - return NULL; -} - -#endif - -/* The type of the object that is used to synchronize fast tracepoint - collection. */ - -typedef struct collecting_t -{ - /* The fast tracepoint number currently collecting. */ - uintptr_t tpoint; - - /* A number that GDBserver can use to identify the thread that is - presently holding the collect lock. This need not (and usually - is not) the thread id, as getting the current thread ID usually - requires a system call, which we want to avoid like the plague. - Usually this is thread's TCB, found in the TLS (pseudo-) - register, which is readable with a single insn on several - architectures. */ - uintptr_t thread_area; -} collecting_t; - -#ifndef IN_PROCESS_AGENT - -void -force_unlock_trace_buffer (void) -{ - write_inferior_data_pointer (ipa_sym_addrs.addr_collecting, 0); -} - -/* Check if the thread identified by THREAD_AREA which is stopped at - STOP_PC, is presently locking the fast tracepoint collection, and - if so, gather some status of said collection. Returns 0 if the - thread isn't collecting or in the jump pad at all. 1, if in the - jump pad (or within gdb_collect) and hasn't executed the adjusted - original insn yet (can set a breakpoint there and run to it). 2, - if presently executing the adjusted original insn --- in which - case, if we want to move the thread out of the jump pad, we need to - single-step it until this function returns 0. */ - -fast_tpoint_collect_result -fast_tracepoint_collecting (CORE_ADDR thread_area, - CORE_ADDR stop_pc, - struct fast_tpoint_collect_status *status) -{ - CORE_ADDR ipa_collecting; - CORE_ADDR ipa_gdb_jump_pad_buffer, ipa_gdb_jump_pad_buffer_end; - CORE_ADDR ipa_gdb_trampoline_buffer; - CORE_ADDR ipa_gdb_trampoline_buffer_end; - struct tracepoint *tpoint; - int needs_breakpoint; - - /* The thread THREAD_AREA is either: - - 0. not collecting at all, not within the jump pad, or within - gdb_collect or one of its callees. - - 1. in the jump pad and haven't reached gdb_collect - - 2. within gdb_collect (out of the jump pad) (collect is set) - - 3. we're in the jump pad, after gdb_collect having returned, - possibly executing the adjusted insns. - - For cases 1 and 3, `collecting' may or not be set. The jump pad - doesn't have any complicated jump logic, so we can tell if the - thread is executing the adjust original insn or not by just - matching STOP_PC with known jump pad addresses. If we it isn't - yet executing the original insn, set a breakpoint there, and let - the thread run to it, so to quickly step over a possible (many - insns) gdb_collect call. Otherwise, or when the breakpoint is - hit, only a few (small number of) insns are left to be executed - in the jump pad. Single-step the thread until it leaves the - jump pad. */ - - again: - tpoint = NULL; - needs_breakpoint = 0; - trace_debug ("fast_tracepoint_collecting"); - - if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_jump_pad_buffer, - &ipa_gdb_jump_pad_buffer)) - { - internal_error (__FILE__, __LINE__, - "error extracting `gdb_jump_pad_buffer'"); - } - if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_jump_pad_buffer_end, - &ipa_gdb_jump_pad_buffer_end)) - { - internal_error (__FILE__, __LINE__, - "error extracting `gdb_jump_pad_buffer_end'"); - } - - if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_trampoline_buffer, - &ipa_gdb_trampoline_buffer)) - { - internal_error (__FILE__, __LINE__, - "error extracting `gdb_trampoline_buffer'"); - } - if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_trampoline_buffer_end, - &ipa_gdb_trampoline_buffer_end)) - { - internal_error (__FILE__, __LINE__, - "error extracting `gdb_trampoline_buffer_end'"); - } - - if (ipa_gdb_jump_pad_buffer <= stop_pc - && stop_pc < ipa_gdb_jump_pad_buffer_end) - { - /* We can tell which tracepoint(s) the thread is collecting by - matching the jump pad address back to the tracepoint. */ - tpoint = fast_tracepoint_from_jump_pad_address (stop_pc); - if (tpoint == NULL) - { - warning ("in jump pad, but no matching tpoint?"); - return fast_tpoint_collect_result::not_collecting; - } - else - { - trace_debug ("in jump pad of tpoint (%d, %s); jump_pad(%s, %s); " - "adj_insn(%s, %s)", - tpoint->number, paddress (tpoint->address), - paddress (tpoint->jump_pad), - paddress (tpoint->jump_pad_end), - paddress (tpoint->adjusted_insn_addr), - paddress (tpoint->adjusted_insn_addr_end)); - } - - /* Definitely in the jump pad. May or may not need - fast-exit-jump-pad breakpoint. */ - if (tpoint->jump_pad <= stop_pc - && stop_pc < tpoint->adjusted_insn_addr) - needs_breakpoint = 1; - } - else if (ipa_gdb_trampoline_buffer <= stop_pc - && stop_pc < ipa_gdb_trampoline_buffer_end) - { - /* We can tell which tracepoint(s) the thread is collecting by - matching the trampoline address back to the tracepoint. */ - tpoint = fast_tracepoint_from_trampoline_address (stop_pc); - if (tpoint == NULL) - { - warning ("in trampoline, but no matching tpoint?"); - return fast_tpoint_collect_result::not_collecting; - } - else - { - trace_debug ("in trampoline of tpoint (%d, %s); trampoline(%s, %s)", - tpoint->number, paddress (tpoint->address), - paddress (tpoint->trampoline), - paddress (tpoint->trampoline_end)); - } - - /* Have not reached jump pad yet, but treat the trampoline as a - part of the jump pad that is before the adjusted original - instruction. */ - needs_breakpoint = 1; - } - else - { - collecting_t ipa_collecting_obj; - - /* If `collecting' is set/locked, then the THREAD_AREA thread - may or not be the one holding the lock. We have to read the - lock to find out. */ - - if (read_inferior_data_pointer (ipa_sym_addrs.addr_collecting, - &ipa_collecting)) - { - trace_debug ("fast_tracepoint_collecting:" - " failed reading 'collecting' in the inferior"); - return fast_tpoint_collect_result::not_collecting; - } - - if (!ipa_collecting) - { - trace_debug ("fast_tracepoint_collecting: not collecting" - " (and nobody is)."); - return fast_tpoint_collect_result::not_collecting; - } - - /* Some thread is collecting. Check which. */ - if (read_inferior_memory (ipa_collecting, - (unsigned char *) &ipa_collecting_obj, - sizeof (ipa_collecting_obj)) != 0) - goto again; - - if (ipa_collecting_obj.thread_area != thread_area) - { - trace_debug ("fast_tracepoint_collecting: not collecting " - "(another thread is)"); - return fast_tpoint_collect_result::not_collecting; - } - - tpoint - = fast_tracepoint_from_ipa_tpoint_address (ipa_collecting_obj.tpoint); - if (tpoint == NULL) - { - warning ("fast_tracepoint_collecting: collecting, " - "but tpoint %s not found?", - paddress ((CORE_ADDR) ipa_collecting_obj.tpoint)); - return fast_tpoint_collect_result::not_collecting; - } - - /* The thread is within `gdb_collect', skip over the rest of - fast tracepoint collection quickly using a breakpoint. */ - needs_breakpoint = 1; - } - - /* The caller wants a bit of status detail. */ - if (status != NULL) - { - status->tpoint_num = tpoint->number; - status->tpoint_addr = tpoint->address; - status->adjusted_insn_addr = tpoint->adjusted_insn_addr; - status->adjusted_insn_addr_end = tpoint->adjusted_insn_addr_end; - } - - if (needs_breakpoint) - { - /* Hasn't executed the original instruction yet. Set breakpoint - there, and wait till it's hit, then single-step until exiting - the jump pad. */ - - trace_debug ("\ -fast_tracepoint_collecting, returning continue-until-break at %s", - paddress (tpoint->adjusted_insn_addr)); - - return fast_tpoint_collect_result::before_insn; /* continue */ - } - else - { - /* Just single-step until exiting the jump pad. */ - - trace_debug ("fast_tracepoint_collecting, returning " - "need-single-step (%s-%s)", - paddress (tpoint->adjusted_insn_addr), - paddress (tpoint->adjusted_insn_addr_end)); - - return fast_tpoint_collect_result::at_insn; /* single-step */ - } -} - -#endif - -#ifdef IN_PROCESS_AGENT - -/* The global fast tracepoint collect lock. Points to a collecting_t - object built on the stack by the jump pad, if presently locked; - NULL if it isn't locked. Note that this lock *must* be set while - executing any *function other than the jump pad. See - fast_tracepoint_collecting. */ -EXTERN_C_PUSH -IP_AGENT_EXPORT_VAR collecting_t *collecting; -EXTERN_C_POP - -/* This is needed for -Wmissing-declarations. */ -IP_AGENT_EXPORT_FUNC void gdb_collect (struct tracepoint *tpoint, - unsigned char *regs); - -/* This routine, called from the jump pad (in asm) is designed to be - called from the jump pads of fast tracepoints, thus it is on the - critical path. */ - -IP_AGENT_EXPORT_FUNC void -gdb_collect (struct tracepoint *tpoint, unsigned char *regs) -{ - struct fast_tracepoint_ctx ctx; - const struct target_desc *ipa_tdesc; - - /* Don't do anything until the trace run is completely set up. */ - if (!tracing) - return; - - ipa_tdesc = get_ipa_tdesc (ipa_tdesc_idx); - ctx.base.type = fast_tracepoint; - ctx.regs = regs; - ctx.regcache_initted = 0; - /* Wrap the regblock in a register cache (in the stack, we don't - want to malloc here). */ - ctx.regspace = (unsigned char *) alloca (ipa_tdesc->registers_size); - if (ctx.regspace == NULL) - { - trace_debug ("Trace buffer block allocation failed, skipping"); - return; - } - - for (ctx.tpoint = tpoint; - ctx.tpoint != NULL && ctx.tpoint->address == tpoint->address; - ctx.tpoint = ctx.tpoint->next) - { - if (!ctx.tpoint->enabled) - continue; - - /* Multiple tracepoints of different types, such as fast tracepoint and - static tracepoint, can be set at the same address. */ - if (ctx.tpoint->type != tpoint->type) - continue; - - /* Test the condition if present, and collect if true. */ - if (ctx.tpoint->cond == NULL - || condition_true_at_tracepoint ((struct tracepoint_hit_ctx *) &ctx, - ctx.tpoint)) - { - collect_data_at_tracepoint ((struct tracepoint_hit_ctx *) &ctx, - ctx.tpoint->address, ctx.tpoint); - - /* Note that this will cause original insns to be written back - to where we jumped from, but that's OK because we're jumping - back to the next whole instruction. This will go badly if - instruction restoration is not atomic though. */ - if (stopping_tracepoint - || trace_buffer_is_full - || expr_eval_result != expr_eval_no_error) - { - stop_tracing (); - break; - } - } - else - { - /* If there was a condition and it evaluated to false, the only - way we would stop tracing is if there was an error during - condition expression evaluation. */ - if (expr_eval_result != expr_eval_no_error) - { - stop_tracing (); - break; - } - } - } -} - -/* These global variables points to the corresponding functions. This is - necessary on powerpc64, where asking for function symbol address from gdb - results in returning the actual code pointer, instead of the descriptor - pointer. */ - -typedef void (*gdb_collect_ptr_type) (struct tracepoint *, unsigned char *); -typedef ULONGEST (*get_raw_reg_ptr_type) (const unsigned char *, int); -typedef LONGEST (*get_trace_state_variable_value_ptr_type) (int); -typedef void (*set_trace_state_variable_value_ptr_type) (int, LONGEST); - -EXTERN_C_PUSH -IP_AGENT_EXPORT_VAR gdb_collect_ptr_type gdb_collect_ptr = gdb_collect; -IP_AGENT_EXPORT_VAR get_raw_reg_ptr_type get_raw_reg_ptr = get_raw_reg; -IP_AGENT_EXPORT_VAR get_trace_state_variable_value_ptr_type - get_trace_state_variable_value_ptr = get_trace_state_variable_value; -IP_AGENT_EXPORT_VAR set_trace_state_variable_value_ptr_type - set_trace_state_variable_value_ptr = set_trace_state_variable_value; -EXTERN_C_POP - -#endif - -#ifndef IN_PROCESS_AGENT - -CORE_ADDR -get_raw_reg_func_addr (void) -{ - CORE_ADDR res; - if (read_inferior_data_pointer (ipa_sym_addrs.addr_get_raw_reg_ptr, &res)) - { - error ("error extracting get_raw_reg_ptr"); - return 0; - } - return res; -} - -CORE_ADDR -get_get_tsv_func_addr (void) -{ - CORE_ADDR res; - if (read_inferior_data_pointer ( - ipa_sym_addrs.addr_get_trace_state_variable_value_ptr, &res)) - { - error ("error extracting get_trace_state_variable_value_ptr"); - return 0; - } - return res; -} - -CORE_ADDR -get_set_tsv_func_addr (void) -{ - CORE_ADDR res; - if (read_inferior_data_pointer ( - ipa_sym_addrs.addr_set_trace_state_variable_value_ptr, &res)) - { - error ("error extracting set_trace_state_variable_value_ptr"); - return 0; - } - return res; -} - -static void -compile_tracepoint_condition (struct tracepoint *tpoint, - CORE_ADDR *jump_entry) -{ - CORE_ADDR entry_point = *jump_entry; - enum eval_result_type err; - - trace_debug ("Starting condition compilation for tracepoint %d\n", - tpoint->number); - - /* Initialize the global pointer to the code being built. */ - current_insn_ptr = *jump_entry; - - emit_prologue (); - - err = compile_bytecodes (tpoint->cond); - - if (err == expr_eval_no_error) - { - emit_epilogue (); - - /* Record the beginning of the compiled code. */ - tpoint->compiled_cond = entry_point; - - trace_debug ("Condition compilation for tracepoint %d complete\n", - tpoint->number); - } - else - { - /* Leave the unfinished code in situ, but don't point to it. */ - - tpoint->compiled_cond = 0; - - trace_debug ("Condition compilation for tracepoint %d failed, " - "error code %d", - tpoint->number, err); - } - - /* Update the code pointer passed in. Note that we do this even if - the compile fails, so that we can look at the partial results - instead of letting them be overwritten. */ - *jump_entry = current_insn_ptr; - - /* Leave a gap, to aid dump decipherment. */ - *jump_entry += 16; -} - -/* The base pointer of the IPA's heap. This is the only memory the - IPA is allowed to use. The IPA should _not_ call the inferior's - `malloc' during operation. That'd be slow, and, most importantly, - it may not be safe. We may be collecting a tracepoint in a signal - handler, for example. */ -static CORE_ADDR target_tp_heap; - -/* Allocate at least SIZE bytes of memory from the IPA heap, aligned - to 8 bytes. */ - -static CORE_ADDR -target_malloc (ULONGEST size) -{ - CORE_ADDR ptr; - - if (target_tp_heap == 0) - { - /* We have the pointer *address*, need what it points to. */ - if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_tp_heap_buffer, - &target_tp_heap)) - { - internal_error (__FILE__, __LINE__, - "couldn't get target heap head pointer"); - } - } - - ptr = target_tp_heap; - target_tp_heap += size; - - /* Pad to 8-byte alignment. */ - target_tp_heap = ((target_tp_heap + 7) & ~0x7); - - return ptr; -} - -static CORE_ADDR -download_agent_expr (struct agent_expr *expr) -{ - CORE_ADDR expr_addr; - CORE_ADDR expr_bytes; - - expr_addr = target_malloc (sizeof (*expr)); - target_write_memory (expr_addr, (unsigned char *) expr, sizeof (*expr)); - - expr_bytes = target_malloc (expr->length); - write_inferior_data_pointer (expr_addr + offsetof (struct agent_expr, bytes), - expr_bytes); - target_write_memory (expr_bytes, expr->bytes, expr->length); - - return expr_addr; -} - -/* Align V up to N bits. */ -#define UALIGN(V, N) (((V) + ((N) - 1)) & ~((N) - 1)) - -/* Sync tracepoint with IPA, but leave maintenance of linked list to caller. */ - -static void -download_tracepoint_1 (struct tracepoint *tpoint) -{ - struct tracepoint target_tracepoint; - CORE_ADDR tpptr = 0; - - gdb_assert (tpoint->type == fast_tracepoint - || tpoint->type == static_tracepoint); - - if (tpoint->cond != NULL && target_emit_ops () != NULL) - { - CORE_ADDR jentry, jump_entry; - - jentry = jump_entry = get_jump_space_head (); - - if (tpoint->cond != NULL) - { - /* Pad to 8-byte alignment. (needed?) */ - /* Actually this should be left for the target to - decide. */ - jentry = UALIGN (jentry, 8); - - compile_tracepoint_condition (tpoint, &jentry); - } - - /* Pad to 8-byte alignment. */ - jentry = UALIGN (jentry, 8); - claim_jump_space (jentry - jump_entry); - } - - target_tracepoint = *tpoint; - - tpptr = target_malloc (sizeof (*tpoint)); - tpoint->obj_addr_on_target = tpptr; - - /* Write the whole object. We'll fix up its pointers in a bit. - Assume no next for now. This is fixed up above on the next - iteration, if there's any. */ - target_tracepoint.next = NULL; - /* Need to clear this here too, since we're downloading the - tracepoints before clearing our own copy. */ - target_tracepoint.hit_count = 0; - - target_write_memory (tpptr, (unsigned char *) &target_tracepoint, - sizeof (target_tracepoint)); - - if (tpoint->cond) - write_inferior_data_pointer (tpptr - + offsetof (struct tracepoint, cond), - download_agent_expr (tpoint->cond)); - - if (tpoint->numactions) - { - int i; - CORE_ADDR actions_array; - - /* The pointers array. */ - actions_array - = target_malloc (sizeof (*tpoint->actions) * tpoint->numactions); - write_inferior_data_pointer (tpptr + offsetof (struct tracepoint, - actions), - actions_array); - - /* Now for each pointer, download the action. */ - for (i = 0; i < tpoint->numactions; i++) - { - struct tracepoint_action *action = tpoint->actions[i]; - CORE_ADDR ipa_action = tracepoint_action_download (action); - - if (ipa_action != 0) - write_inferior_data_pointer (actions_array - + i * sizeof (*tpoint->actions), - ipa_action); - } - } -} - -#define IPA_PROTO_FAST_TRACE_FLAG 0 -#define IPA_PROTO_FAST_TRACE_ADDR_ON_TARGET 2 -#define IPA_PROTO_FAST_TRACE_JUMP_PAD 10 -#define IPA_PROTO_FAST_TRACE_FJUMP_SIZE 18 -#define IPA_PROTO_FAST_TRACE_FJUMP_INSN 22 - -/* Send a command to agent to download and install tracepoint TPOINT. */ - -static int -tracepoint_send_agent (struct tracepoint *tpoint) -{ - char buf[IPA_CMD_BUF_SIZE]; - char *p; - int i, ret; - - p = buf; - strcpy (p, "FastTrace:"); - p += 10; - - COPY_FIELD_TO_BUF (p, tpoint, number); - COPY_FIELD_TO_BUF (p, tpoint, address); - COPY_FIELD_TO_BUF (p, tpoint, type); - COPY_FIELD_TO_BUF (p, tpoint, enabled); - COPY_FIELD_TO_BUF (p, tpoint, step_count); - COPY_FIELD_TO_BUF (p, tpoint, pass_count); - COPY_FIELD_TO_BUF (p, tpoint, numactions); - COPY_FIELD_TO_BUF (p, tpoint, hit_count); - COPY_FIELD_TO_BUF (p, tpoint, traceframe_usage); - COPY_FIELD_TO_BUF (p, tpoint, compiled_cond); - COPY_FIELD_TO_BUF (p, tpoint, orig_size); - - /* condition */ - p = agent_expr_send (p, tpoint->cond); - - /* tracepoint_action */ - for (i = 0; i < tpoint->numactions; i++) - { - struct tracepoint_action *action = tpoint->actions[i]; - - p[0] = action->type; - p = tracepoint_action_send (&p[1], action); - } - - get_jump_space_head (); - /* Copy the value of GDB_JUMP_PAD_HEAD to command buffer, so that - agent can use jump pad from it. */ - if (tpoint->type == fast_tracepoint) - { - memcpy (p, &gdb_jump_pad_head, 8); - p += 8; - } - - ret = run_inferior_command (buf, (int) (ptrdiff_t) (p - buf)); - if (ret) - return ret; - - if (!startswith (buf, "OK")) - return 1; - - /* The value of tracepoint's target address is stored in BUF. */ - memcpy (&tpoint->obj_addr_on_target, - &buf[IPA_PROTO_FAST_TRACE_ADDR_ON_TARGET], 8); - - if (tpoint->type == fast_tracepoint) - { - unsigned char *insn - = (unsigned char *) &buf[IPA_PROTO_FAST_TRACE_FJUMP_INSN]; - int fjump_size; - - trace_debug ("agent: read from cmd_buf 0x%x 0x%x\n", - (unsigned int) tpoint->obj_addr_on_target, - (unsigned int) gdb_jump_pad_head); - - memcpy (&gdb_jump_pad_head, &buf[IPA_PROTO_FAST_TRACE_JUMP_PAD], 8); - - /* This has been done in agent. We should also set up record for it. */ - memcpy (&fjump_size, &buf[IPA_PROTO_FAST_TRACE_FJUMP_SIZE], 4); - /* Wire it in. */ - tpoint->handle - = set_fast_tracepoint_jump (tpoint->address, insn, fjump_size); - } - - return 0; -} - -static void -download_tracepoint (struct tracepoint *tpoint) -{ - struct tracepoint *tp, *tp_prev; - - if (tpoint->type != fast_tracepoint - && tpoint->type != static_tracepoint) - return; - - download_tracepoint_1 (tpoint); - - /* Find the previous entry of TPOINT, which is fast tracepoint or - static tracepoint. */ - tp_prev = NULL; - for (tp = tracepoints; tp != tpoint; tp = tp->next) - { - if (tp->type == fast_tracepoint || tp->type == static_tracepoint) - tp_prev = tp; - } - - if (tp_prev) - { - CORE_ADDR tp_prev_target_next_addr; - - /* Insert TPOINT after TP_PREV in IPA. */ - if (read_inferior_data_pointer (tp_prev->obj_addr_on_target - + offsetof (struct tracepoint, next), - &tp_prev_target_next_addr)) - { - internal_error (__FILE__, __LINE__, - "error reading `tp_prev->next'"); - } - - /* tpoint->next = tp_prev->next */ - write_inferior_data_pointer (tpoint->obj_addr_on_target - + offsetof (struct tracepoint, next), - tp_prev_target_next_addr); - /* tp_prev->next = tpoint */ - write_inferior_data_pointer (tp_prev->obj_addr_on_target - + offsetof (struct tracepoint, next), - tpoint->obj_addr_on_target); - } - else - /* First object in list, set the head pointer in the - inferior. */ - write_inferior_data_pointer (ipa_sym_addrs.addr_tracepoints, - tpoint->obj_addr_on_target); - -} - -static void -download_trace_state_variables (void) -{ - CORE_ADDR ptr = 0, prev_ptr = 0; - struct trace_state_variable *tsv; - - /* Start out empty. */ - write_inferior_data_pointer (ipa_sym_addrs.addr_trace_state_variables, 0); - - for (tsv = trace_state_variables; tsv != NULL; tsv = tsv->next) - { - struct trace_state_variable target_tsv; - - /* TSV's with a getter have been initialized equally in both the - inferior and GDBserver. Skip them. */ - if (tsv->getter != NULL) - continue; - - target_tsv = *tsv; - - prev_ptr = ptr; - ptr = target_malloc (sizeof (*tsv)); - - if (tsv == trace_state_variables) - { - /* First object in list, set the head pointer in the - inferior. */ - - write_inferior_data_pointer (ipa_sym_addrs.addr_trace_state_variables, - ptr); - } - else - { - write_inferior_data_pointer (prev_ptr - + offsetof (struct trace_state_variable, - next), - ptr); - } - - /* Write the whole object. We'll fix up its pointers in a bit. - Assume no next, fixup when needed. */ - target_tsv.next = NULL; - - target_write_memory (ptr, (unsigned char *) &target_tsv, - sizeof (target_tsv)); - - if (tsv->name != NULL) - { - size_t size = strlen (tsv->name) + 1; - CORE_ADDR name_addr = target_malloc (size); - target_write_memory (name_addr, - (unsigned char *) tsv->name, size); - write_inferior_data_pointer (ptr - + offsetof (struct trace_state_variable, - name), - name_addr); - } - - gdb_assert (tsv->getter == NULL); - } - - if (prev_ptr != 0) - { - /* Fixup the next pointer in the last item in the list. */ - write_inferior_data_pointer (prev_ptr - + offsetof (struct trace_state_variable, - next), 0); - } -} - -/* Upload complete trace frames out of the IP Agent's trace buffer - into GDBserver's trace buffer. This always uploads either all or - no trace frames. This is the counter part of - `trace_alloc_trace_buffer'. See its description of the atomic - syncing mechanism. */ - -static void -upload_fast_traceframes (void) -{ - unsigned int ipa_traceframe_read_count, ipa_traceframe_write_count; - unsigned int ipa_traceframe_read_count_racy, ipa_traceframe_write_count_racy; - CORE_ADDR tf; - struct ipa_trace_buffer_control ipa_trace_buffer_ctrl; - unsigned int curr_tbctrl_idx; - unsigned int ipa_trace_buffer_ctrl_curr; - unsigned int ipa_trace_buffer_ctrl_curr_old; - CORE_ADDR ipa_trace_buffer_ctrl_addr; - struct breakpoint *about_to_request_buffer_space_bkpt; - CORE_ADDR ipa_trace_buffer_lo; - CORE_ADDR ipa_trace_buffer_hi; - - if (read_inferior_uinteger (ipa_sym_addrs.addr_traceframe_read_count, - &ipa_traceframe_read_count_racy)) - { - /* This will happen in most targets if the current thread is - running. */ - return; - } - - if (read_inferior_uinteger (ipa_sym_addrs.addr_traceframe_write_count, - &ipa_traceframe_write_count_racy)) - return; - - trace_debug ("ipa_traceframe_count (racy area): %d (w=%d, r=%d)", - ipa_traceframe_write_count_racy - - ipa_traceframe_read_count_racy, - ipa_traceframe_write_count_racy, - ipa_traceframe_read_count_racy); - - if (ipa_traceframe_write_count_racy == ipa_traceframe_read_count_racy) - return; - - about_to_request_buffer_space_bkpt - = set_breakpoint_at (ipa_sym_addrs.addr_about_to_request_buffer_space, - NULL); - - if (read_inferior_uinteger (ipa_sym_addrs.addr_trace_buffer_ctrl_curr, - &ipa_trace_buffer_ctrl_curr)) - return; - - ipa_trace_buffer_ctrl_curr_old = ipa_trace_buffer_ctrl_curr; - - curr_tbctrl_idx = ipa_trace_buffer_ctrl_curr & ~GDBSERVER_FLUSH_COUNT_MASK; - - { - unsigned int prev, counter; - - /* Update the token, with new counters, and the GDBserver stamp - bit. Alway reuse the current TBC index. */ - prev = ipa_trace_buffer_ctrl_curr & GDBSERVER_FLUSH_COUNT_MASK_CURR; - counter = (prev + 0x100) & GDBSERVER_FLUSH_COUNT_MASK_CURR; - - ipa_trace_buffer_ctrl_curr = (GDBSERVER_UPDATED_FLUSH_COUNT_BIT - | (prev << 12) - | counter - | curr_tbctrl_idx); - } - - if (write_inferior_uinteger (ipa_sym_addrs.addr_trace_buffer_ctrl_curr, - ipa_trace_buffer_ctrl_curr)) - return; - - trace_debug ("Lib: Committed %08x -> %08x", - ipa_trace_buffer_ctrl_curr_old, - ipa_trace_buffer_ctrl_curr); - - /* Re-read these, now that we've installed the - `about_to_request_buffer_space' breakpoint/lock. A thread could - have finished a traceframe between the last read of these - counters and setting the breakpoint above. If we start - uploading, we never want to leave this function with - traceframe_read_count != 0, otherwise, GDBserver could end up - incrementing the counter tokens more than once (due to event loop - nesting), which would break the IP agent's "effective" detection - (see trace_alloc_trace_buffer). */ - if (read_inferior_uinteger (ipa_sym_addrs.addr_traceframe_read_count, - &ipa_traceframe_read_count)) - return; - if (read_inferior_uinteger (ipa_sym_addrs.addr_traceframe_write_count, - &ipa_traceframe_write_count)) - return; - - if (debug_threads) - { - trace_debug ("ipa_traceframe_count (blocked area): %d (w=%d, r=%d)", - ipa_traceframe_write_count - ipa_traceframe_read_count, - ipa_traceframe_write_count, ipa_traceframe_read_count); - - if (ipa_traceframe_write_count != ipa_traceframe_write_count_racy - || ipa_traceframe_read_count != ipa_traceframe_read_count_racy) - trace_debug ("note that ipa_traceframe_count's parts changed"); - } - - /* Get the address of the current TBC object (the IP agent has an - array of 3 such objects). The index is stored in the TBC - token. */ - ipa_trace_buffer_ctrl_addr = ipa_sym_addrs.addr_trace_buffer_ctrl; - ipa_trace_buffer_ctrl_addr - += sizeof (struct ipa_trace_buffer_control) * curr_tbctrl_idx; - - if (read_inferior_memory (ipa_trace_buffer_ctrl_addr, - (unsigned char *) &ipa_trace_buffer_ctrl, - sizeof (struct ipa_trace_buffer_control))) - return; - - if (read_inferior_data_pointer (ipa_sym_addrs.addr_trace_buffer_lo, - &ipa_trace_buffer_lo)) - return; - if (read_inferior_data_pointer (ipa_sym_addrs.addr_trace_buffer_hi, - &ipa_trace_buffer_hi)) - return; - - /* Offsets are easier to grok for debugging than raw addresses, - especially for the small trace buffer sizes that are useful for - testing. */ - trace_debug ("Lib: Trace buffer [%d] start=%d free=%d " - "endfree=%d wrap=%d hi=%d", - curr_tbctrl_idx, - (int) (ipa_trace_buffer_ctrl.start - ipa_trace_buffer_lo), - (int) (ipa_trace_buffer_ctrl.free - ipa_trace_buffer_lo), - (int) (ipa_trace_buffer_ctrl.end_free - ipa_trace_buffer_lo), - (int) (ipa_trace_buffer_ctrl.wrap - ipa_trace_buffer_lo), - (int) (ipa_trace_buffer_hi - ipa_trace_buffer_lo)); - - /* Note that the IPA's buffer is always circular. */ - -#define IPA_FIRST_TRACEFRAME() (ipa_trace_buffer_ctrl.start) - -#define IPA_NEXT_TRACEFRAME_1(TF, TFOBJ) \ - ((TF) + sizeof (struct traceframe) + (TFOBJ)->data_size) - -#define IPA_NEXT_TRACEFRAME(TF, TFOBJ) \ - (IPA_NEXT_TRACEFRAME_1 (TF, TFOBJ) \ - - ((IPA_NEXT_TRACEFRAME_1 (TF, TFOBJ) >= ipa_trace_buffer_ctrl.wrap) \ - ? (ipa_trace_buffer_ctrl.wrap - ipa_trace_buffer_lo) \ - : 0)) - - tf = IPA_FIRST_TRACEFRAME (); - - while (ipa_traceframe_write_count - ipa_traceframe_read_count) - { - struct tracepoint *tpoint; - struct traceframe *tframe; - unsigned char *block; - struct traceframe ipa_tframe; - - if (read_inferior_memory (tf, (unsigned char *) &ipa_tframe, - offsetof (struct traceframe, data))) - error ("Uploading: couldn't read traceframe at %s\n", paddress (tf)); - - if (ipa_tframe.tpnum == 0) - { - internal_error (__FILE__, __LINE__, - "Uploading: No (more) fast traceframes, but" - " ipa_traceframe_count == %u??\n", - ipa_traceframe_write_count - - ipa_traceframe_read_count); - } - - /* Note that this will be incorrect for multi-location - tracepoints... */ - tpoint = find_next_tracepoint_by_number (NULL, ipa_tframe.tpnum); - - tframe = add_traceframe (tpoint); - if (tframe == NULL) - { - trace_buffer_is_full = 1; - trace_debug ("Uploading: trace buffer is full"); - } - else - { - /* Copy the whole set of blocks in one go for now. FIXME: - split this in smaller blocks. */ - block = add_traceframe_block (tframe, tpoint, - ipa_tframe.data_size); - if (block != NULL) - { - if (read_inferior_memory (tf - + offsetof (struct traceframe, data), - block, ipa_tframe.data_size)) - error ("Uploading: Couldn't read traceframe data at %s\n", - paddress (tf + offsetof (struct traceframe, data))); - } - - trace_debug ("Uploading: traceframe didn't fit"); - finish_traceframe (tframe); - } - - tf = IPA_NEXT_TRACEFRAME (tf, &ipa_tframe); - - /* If we freed the traceframe that wrapped around, go back - to the non-wrap case. */ - if (tf < ipa_trace_buffer_ctrl.start) - { - trace_debug ("Lib: Discarding past the wraparound"); - ipa_trace_buffer_ctrl.wrap = ipa_trace_buffer_hi; - } - ipa_trace_buffer_ctrl.start = tf; - ipa_trace_buffer_ctrl.end_free = ipa_trace_buffer_ctrl.start; - ++ipa_traceframe_read_count; - - if (ipa_trace_buffer_ctrl.start == ipa_trace_buffer_ctrl.free - && ipa_trace_buffer_ctrl.start == ipa_trace_buffer_ctrl.end_free) - { - trace_debug ("Lib: buffer is fully empty. " - "Trace buffer [%d] start=%d free=%d endfree=%d", - curr_tbctrl_idx, - (int) (ipa_trace_buffer_ctrl.start - - ipa_trace_buffer_lo), - (int) (ipa_trace_buffer_ctrl.free - - ipa_trace_buffer_lo), - (int) (ipa_trace_buffer_ctrl.end_free - - ipa_trace_buffer_lo)); - - ipa_trace_buffer_ctrl.start = ipa_trace_buffer_lo; - ipa_trace_buffer_ctrl.free = ipa_trace_buffer_lo; - ipa_trace_buffer_ctrl.end_free = ipa_trace_buffer_hi; - ipa_trace_buffer_ctrl.wrap = ipa_trace_buffer_hi; - } - - trace_debug ("Uploaded a traceframe\n" - "Lib: Trace buffer [%d] start=%d free=%d " - "endfree=%d wrap=%d hi=%d", - curr_tbctrl_idx, - (int) (ipa_trace_buffer_ctrl.start - ipa_trace_buffer_lo), - (int) (ipa_trace_buffer_ctrl.free - ipa_trace_buffer_lo), - (int) (ipa_trace_buffer_ctrl.end_free - - ipa_trace_buffer_lo), - (int) (ipa_trace_buffer_ctrl.wrap - ipa_trace_buffer_lo), - (int) (ipa_trace_buffer_hi - ipa_trace_buffer_lo)); - } - - if (target_write_memory (ipa_trace_buffer_ctrl_addr, - (unsigned char *) &ipa_trace_buffer_ctrl, - sizeof (struct ipa_trace_buffer_control))) - return; - - write_inferior_integer (ipa_sym_addrs.addr_traceframe_read_count, - ipa_traceframe_read_count); - - trace_debug ("Done uploading traceframes [%d]\n", curr_tbctrl_idx); - - pause_all (1); - - delete_breakpoint (about_to_request_buffer_space_bkpt); - about_to_request_buffer_space_bkpt = NULL; - - unpause_all (1); - - if (trace_buffer_is_full) - stop_tracing (); -} -#endif - -#ifdef IN_PROCESS_AGENT - -IP_AGENT_EXPORT_VAR int ust_loaded; -IP_AGENT_EXPORT_VAR char cmd_buf[IPA_CMD_BUF_SIZE]; - -#ifdef HAVE_UST - -/* Static tracepoints. */ - -/* UST puts a "struct tracepoint" in the global namespace, which - conflicts with our tracepoint. Arguably, being a library, it - shouldn't take ownership of such a generic name. We work around it - here. */ -#define tracepoint ust_tracepoint -#include -#undef tracepoint - -extern int serialize_to_text (char *outbuf, int bufsize, - const char *fmt, va_list ap); - -#define GDB_PROBE_NAME "gdb" - -/* We dynamically search for the UST symbols instead of linking them - in. This lets the user decide if the application uses static - tracepoints, instead of always pulling libust.so in. This vector - holds pointers to all functions we care about. */ - -static struct -{ - int (*serialize_to_text) (char *outbuf, int bufsize, - const char *fmt, va_list ap); - - int (*ltt_probe_register) (struct ltt_available_probe *pdata); - int (*ltt_probe_unregister) (struct ltt_available_probe *pdata); - - int (*ltt_marker_connect) (const char *channel, const char *mname, - const char *pname); - int (*ltt_marker_disconnect) (const char *channel, const char *mname, - const char *pname); - - void (*marker_iter_start) (struct marker_iter *iter); - void (*marker_iter_next) (struct marker_iter *iter); - void (*marker_iter_stop) (struct marker_iter *iter); - void (*marker_iter_reset) (struct marker_iter *iter); -} ust_ops; - -#include - -/* Cast through typeof to catch incompatible API changes. Since UST - only builds with gcc, we can freely use gcc extensions here - too. */ -#define GET_UST_SYM(SYM) \ - do \ - { \ - if (ust_ops.SYM == NULL) \ - ust_ops.SYM = (typeof (&SYM)) dlsym (RTLD_DEFAULT, #SYM); \ - if (ust_ops.SYM == NULL) \ - return 0; \ - } while (0) - -#define USTF(SYM) ust_ops.SYM - -/* Get pointers to all libust.so functions we care about. */ - -static int -dlsym_ust (void) -{ - GET_UST_SYM (serialize_to_text); - - GET_UST_SYM (ltt_probe_register); - GET_UST_SYM (ltt_probe_unregister); - GET_UST_SYM (ltt_marker_connect); - GET_UST_SYM (ltt_marker_disconnect); - - GET_UST_SYM (marker_iter_start); - GET_UST_SYM (marker_iter_next); - GET_UST_SYM (marker_iter_stop); - GET_UST_SYM (marker_iter_reset); - - ust_loaded = 1; - return 1; -} - -/* Given an UST marker, return the matching gdb static tracepoint. - The match is done by address. */ - -static struct tracepoint * -ust_marker_to_static_tracepoint (const struct marker *mdata) -{ - struct tracepoint *tpoint; - - for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) - { - if (tpoint->type != static_tracepoint) - continue; - - if (tpoint->address == (uintptr_t) mdata->location) - return tpoint; - } - - return NULL; -} - -/* The probe function we install on lttng/ust markers. Whenever a - probed ust marker is hit, this function is called. This is similar - to gdb_collect, only for static tracepoints, instead of fast - tracepoints. */ - -static void -gdb_probe (const struct marker *mdata, void *probe_private, - struct registers *regs, void *call_private, - const char *fmt, va_list *args) -{ - struct tracepoint *tpoint; - struct static_tracepoint_ctx ctx; - const struct target_desc *ipa_tdesc; - - /* Don't do anything until the trace run is completely set up. */ - if (!tracing) - { - trace_debug ("gdb_probe: not tracing\n"); - return; - } - - ipa_tdesc = get_ipa_tdesc (ipa_tdesc_idx); - ctx.base.type = static_tracepoint; - ctx.regcache_initted = 0; - ctx.regs = regs; - ctx.fmt = fmt; - ctx.args = args; - - /* Wrap the regblock in a register cache (in the stack, we don't - want to malloc here). */ - ctx.regspace = alloca (ipa_tdesc->registers_size); - if (ctx.regspace == NULL) - { - trace_debug ("Trace buffer block allocation failed, skipping"); - return; - } - - tpoint = ust_marker_to_static_tracepoint (mdata); - if (tpoint == NULL) - { - trace_debug ("gdb_probe: marker not known: " - "loc:0x%p, ch:\"%s\",n:\"%s\",f:\"%s\"", - mdata->location, mdata->channel, - mdata->name, mdata->format); - return; - } - - if (!tpoint->enabled) - { - trace_debug ("gdb_probe: tracepoint disabled"); - return; - } - - ctx.tpoint = tpoint; - - trace_debug ("gdb_probe: collecting marker: " - "loc:0x%p, ch:\"%s\",n:\"%s\",f:\"%s\"", - mdata->location, mdata->channel, - mdata->name, mdata->format); - - /* Test the condition if present, and collect if true. */ - if (tpoint->cond == NULL - || condition_true_at_tracepoint ((struct tracepoint_hit_ctx *) &ctx, - tpoint)) - { - collect_data_at_tracepoint ((struct tracepoint_hit_ctx *) &ctx, - tpoint->address, tpoint); - - if (stopping_tracepoint - || trace_buffer_is_full - || expr_eval_result != expr_eval_no_error) - stop_tracing (); - } - else - { - /* If there was a condition and it evaluated to false, the only - way we would stop tracing is if there was an error during - condition expression evaluation. */ - if (expr_eval_result != expr_eval_no_error) - stop_tracing (); - } -} - -/* Called if the gdb static tracepoint requested collecting "$_sdata", - static tracepoint string data. This is a string passed to the - tracing library by the user, at the time of the tracepoint marker - call. E.g., in the UST marker call: - - trace_mark (ust, bar33, "str %s", "FOOBAZ"); - - the collected data is "str FOOBAZ". -*/ - -static void -collect_ust_data_at_tracepoint (struct tracepoint_hit_ctx *ctx, - struct traceframe *tframe) -{ - struct static_tracepoint_ctx *umd = (struct static_tracepoint_ctx *) ctx; - unsigned char *bufspace; - int size; - va_list copy; - unsigned short blocklen; - - if (umd == NULL) - { - trace_debug ("Wanted to collect static trace data, " - "but there's no static trace data"); - return; - } - - va_copy (copy, *umd->args); - size = USTF(serialize_to_text) (NULL, 0, umd->fmt, copy); - va_end (copy); - - trace_debug ("Want to collect ust data"); - - /* 'S' + size + string */ - bufspace = add_traceframe_block (tframe, umd->tpoint, - 1 + sizeof (blocklen) + size + 1); - if (bufspace == NULL) - { - trace_debug ("Trace buffer block allocation failed, skipping"); - return; - } - - /* Identify a static trace data block. */ - *bufspace = 'S'; - - blocklen = size + 1; - memcpy (bufspace + 1, &blocklen, sizeof (blocklen)); - - va_copy (copy, *umd->args); - USTF(serialize_to_text) ((char *) bufspace + 1 + sizeof (blocklen), - size + 1, umd->fmt, copy); - va_end (copy); - - trace_debug ("Storing static tracepoint data in regblock: %s", - bufspace + 1 + sizeof (blocklen)); -} - -/* The probe to register with lttng/ust. */ -static struct ltt_available_probe gdb_ust_probe = - { - GDB_PROBE_NAME, - NULL, - gdb_probe, - }; - -#endif /* HAVE_UST */ -#endif /* IN_PROCESS_AGENT */ - -#ifndef IN_PROCESS_AGENT - -/* Ask the in-process agent to run a command. Since we don't want to - have to handle the IPA hitting breakpoints while running the - command, we pause all threads, remove all breakpoints, and then set - the helper thread re-running. We communicate with the helper - thread by means of direct memory xfering, and a socket for - synchronization. */ - -static int -run_inferior_command (char *cmd, int len) -{ - int err = -1; - int pid = current_ptid.pid (); - - trace_debug ("run_inferior_command: running: %s", cmd); - - pause_all (0); - uninsert_all_breakpoints (); - - err = agent_run_command (pid, (const char *) cmd, len); - - reinsert_all_breakpoints (); - unpause_all (0); - - return err; -} - -#else /* !IN_PROCESS_AGENT */ - -#include -#include - -#ifndef UNIX_PATH_MAX -#define UNIX_PATH_MAX sizeof(((struct sockaddr_un *) NULL)->sun_path) -#endif - -/* Where we put the socked used for synchronization. */ -#define SOCK_DIR P_tmpdir - -/* Thread ID of the helper thread. GDBserver reads this to know which - is the help thread. This is an LWP id on Linux. */ -EXTERN_C_PUSH -IP_AGENT_EXPORT_VAR int helper_thread_id; -EXTERN_C_POP - -static int -init_named_socket (const char *name) -{ - int result, fd; - struct sockaddr_un addr; - - result = fd = socket (PF_UNIX, SOCK_STREAM, 0); - if (result == -1) - { - warning ("socket creation failed: %s", safe_strerror (errno)); - return -1; - } - - addr.sun_family = AF_UNIX; - - strncpy (addr.sun_path, name, UNIX_PATH_MAX); - addr.sun_path[UNIX_PATH_MAX - 1] = '\0'; - - result = access (name, F_OK); - if (result == 0) - { - /* File exists. */ - result = unlink (name); - if (result == -1) - { - warning ("unlink failed: %s", safe_strerror (errno)); - close (fd); - return -1; - } - warning ("socket %s already exists; overwriting", name); - } - - result = bind (fd, (struct sockaddr *) &addr, sizeof (addr)); - if (result == -1) - { - warning ("bind failed: %s", safe_strerror (errno)); - close (fd); - return -1; - } - - result = listen (fd, 1); - if (result == -1) - { - warning ("listen: %s", safe_strerror (errno)); - close (fd); - return -1; - } - - return fd; -} - -static char agent_socket_name[UNIX_PATH_MAX]; - -static int -gdb_agent_socket_init (void) -{ - int result, fd; - - result = xsnprintf (agent_socket_name, UNIX_PATH_MAX, "%s/gdb_ust%d", - SOCK_DIR, getpid ()); - if (result >= UNIX_PATH_MAX) - { - trace_debug ("string overflow allocating socket name"); - return -1; - } - - fd = init_named_socket (agent_socket_name); - if (fd < 0) - warning ("Error initializing named socket (%s) for communication with the " - "ust helper thread. Check that directory exists and that it " - "is writable.", agent_socket_name); - - return fd; -} - -#ifdef HAVE_UST - -/* The next marker to be returned on a qTsSTM command. */ -static const struct marker *next_st; - -/* Returns the first known marker. */ - -struct marker * -first_marker (void) -{ - struct marker_iter iter; - - USTF(marker_iter_reset) (&iter); - USTF(marker_iter_start) (&iter); - - return iter.marker; -} - -/* Returns the marker following M. */ - -const struct marker * -next_marker (const struct marker *m) -{ - struct marker_iter iter; - - USTF(marker_iter_reset) (&iter); - USTF(marker_iter_start) (&iter); - - for (; iter.marker != NULL; USTF(marker_iter_next) (&iter)) - { - if (iter.marker == m) - { - USTF(marker_iter_next) (&iter); - return iter.marker; - } - } - - return NULL; -} - -/* Return an hexstr version of the STR C string, fit for sending to - GDB. */ - -static char * -cstr_to_hexstr (const char *str) -{ - int len = strlen (str); - char *hexstr = xmalloc (len * 2 + 1); - bin2hex ((gdb_byte *) str, hexstr, len); - return hexstr; -} - -/* Compose packet that is the response to the qTsSTM/qTfSTM/qTSTMat - packets. */ - -static void -response_ust_marker (char *packet, const struct marker *st) -{ - char *strid, *format, *tmp; - - next_st = next_marker (st); - - tmp = xmalloc (strlen (st->channel) + 1 + - strlen (st->name) + 1); - sprintf (tmp, "%s/%s", st->channel, st->name); - - strid = cstr_to_hexstr (tmp); - free (tmp); - - format = cstr_to_hexstr (st->format); - - sprintf (packet, "m%s:%s:%s", - paddress ((uintptr_t) st->location), - strid, - format); - - free (strid); - free (format); -} - -/* Return the first static tracepoint, and initialize the state - machine that will iterate through all the static tracepoints. */ - -static void -cmd_qtfstm (char *packet) -{ - trace_debug ("Returning first trace state variable definition"); - - if (first_marker ()) - response_ust_marker (packet, first_marker ()); - else - strcpy (packet, "l"); -} - -/* Return additional trace state variable definitions. */ - -static void -cmd_qtsstm (char *packet) -{ - trace_debug ("Returning static tracepoint"); - - if (next_st) - response_ust_marker (packet, next_st); - else - strcpy (packet, "l"); -} - -/* Disconnect the GDB probe from a marker at a given address. */ - -static void -unprobe_marker_at (char *packet) -{ - char *p = packet; - ULONGEST address; - struct marker_iter iter; - - p += sizeof ("unprobe_marker_at:") - 1; - - p = unpack_varlen_hex (p, &address); - - USTF(marker_iter_reset) (&iter); - USTF(marker_iter_start) (&iter); - for (; iter.marker != NULL; USTF(marker_iter_next) (&iter)) - if ((uintptr_t ) iter.marker->location == address) - { - int result; - - result = USTF(ltt_marker_disconnect) (iter.marker->channel, - iter.marker->name, - GDB_PROBE_NAME); - if (result < 0) - warning ("could not disable marker %s/%s", - iter.marker->channel, iter.marker->name); - break; - } -} - -/* Connect the GDB probe to a marker at a given address. */ - -static int -probe_marker_at (char *packet) -{ - char *p = packet; - ULONGEST address; - struct marker_iter iter; - struct marker *m; - - p += sizeof ("probe_marker_at:") - 1; - - p = unpack_varlen_hex (p, &address); - - USTF(marker_iter_reset) (&iter); - - for (USTF(marker_iter_start) (&iter), m = iter.marker; - m != NULL; - USTF(marker_iter_next) (&iter), m = iter.marker) - if ((uintptr_t ) m->location == address) - { - int result; - - trace_debug ("found marker for address. " - "ltt_marker_connect (marker = %s/%s)", - m->channel, m->name); - - result = USTF(ltt_marker_connect) (m->channel, m->name, - GDB_PROBE_NAME); - if (result && result != -EEXIST) - trace_debug ("ltt_marker_connect (marker = %s/%s, errno = %d)", - m->channel, m->name, -result); - - if (result < 0) - { - sprintf (packet, "E.could not connect marker: channel=%s, name=%s", - m->channel, m->name); - return -1; - } - - strcpy (packet, "OK"); - return 0; - } - - sprintf (packet, "E.no marker found at 0x%s", paddress (address)); - return -1; -} - -static int -cmd_qtstmat (char *packet) -{ - char *p = packet; - ULONGEST address; - struct marker_iter iter; - struct marker *m; - - p += sizeof ("qTSTMat:") - 1; - - p = unpack_varlen_hex (p, &address); - - USTF(marker_iter_reset) (&iter); - - for (USTF(marker_iter_start) (&iter), m = iter.marker; - m != NULL; - USTF(marker_iter_next) (&iter), m = iter.marker) - if ((uintptr_t ) m->location == address) - { - response_ust_marker (packet, m); - return 0; - } - - strcpy (packet, "l"); - return -1; -} - -static void -gdb_ust_init (void) -{ - if (!dlsym_ust ()) - return; - - USTF(ltt_probe_register) (&gdb_ust_probe); -} - -#endif /* HAVE_UST */ - -#include - -static void -gdb_agent_remove_socket (void) -{ - unlink (agent_socket_name); -} - -/* Helper thread of agent. */ - -static void * -gdb_agent_helper_thread (void *arg) -{ - int listen_fd; - - atexit (gdb_agent_remove_socket); - - while (1) - { - listen_fd = gdb_agent_socket_init (); - - if (helper_thread_id == 0) - helper_thread_id = syscall (SYS_gettid); - - if (listen_fd == -1) - { - warning ("could not create sync socket"); - break; - } - - while (1) - { - socklen_t tmp; - struct sockaddr_un sockaddr; - int fd; - char buf[1]; - int ret; - int stop_loop = 0; - - tmp = sizeof (sockaddr); - - do - { - fd = accept (listen_fd, (struct sockaddr *) &sockaddr, &tmp); - } - /* It seems an ERESTARTSYS can escape out of accept. */ - while (fd == -512 || (fd == -1 && errno == EINTR)); - - if (fd < 0) - { - warning ("Accept returned %d, error: %s", - fd, safe_strerror (errno)); - break; - } - - do - { - ret = read (fd, buf, 1); - } while (ret == -1 && errno == EINTR); - - if (ret == -1) - { - warning ("reading socket (fd=%d) failed with %s", - fd, safe_strerror (errno)); - close (fd); - break; - } - - if (cmd_buf[0]) - { - if (startswith (cmd_buf, "close")) - { - stop_loop = 1; - } -#ifdef HAVE_UST - else if (strcmp ("qTfSTM", cmd_buf) == 0) - { - cmd_qtfstm (cmd_buf); - } - else if (strcmp ("qTsSTM", cmd_buf) == 0) - { - cmd_qtsstm (cmd_buf); - } - else if (startswith (cmd_buf, "unprobe_marker_at:")) - { - unprobe_marker_at (cmd_buf); - } - else if (startswith (cmd_buf, "probe_marker_at:")) - { - probe_marker_at (cmd_buf); - } - else if (startswith (cmd_buf, "qTSTMat:")) - { - cmd_qtstmat (cmd_buf); - } -#endif /* HAVE_UST */ - } - - /* Fix compiler's warning: ignoring return value of 'write'. */ - ret = write (fd, buf, 1); - close (fd); - - if (stop_loop) - { - close (listen_fd); - unlink (agent_socket_name); - - /* Sleep endlessly to wait the whole inferior stops. This - thread can not exit because GDB or GDBserver may still need - 'current_thread' (representing this thread) to access - inferior memory. Otherwise, this thread exits earlier than - other threads, and 'current_thread' is set to NULL. */ - while (1) - sleep (10); - } - } - } - - return NULL; -} - -#include -#include - -EXTERN_C_PUSH -IP_AGENT_EXPORT_VAR int gdb_agent_capability = AGENT_CAPA_STATIC_TRACE; -EXTERN_C_POP - -static void -gdb_agent_init (void) -{ - int res; - pthread_t thread; - sigset_t new_mask; - sigset_t orig_mask; - - /* We want the helper thread to be as transparent as possible, so - have it inherit an all-signals-blocked mask. */ - - sigfillset (&new_mask); - res = pthread_sigmask (SIG_SETMASK, &new_mask, &orig_mask); - if (res) - perror_with_name ("pthread_sigmask (1)"); - - res = pthread_create (&thread, - NULL, - gdb_agent_helper_thread, - NULL); - - res = pthread_sigmask (SIG_SETMASK, &orig_mask, NULL); - if (res) - perror_with_name ("pthread_sigmask (2)"); - - while (helper_thread_id == 0) - usleep (1); - -#ifdef HAVE_UST - gdb_ust_init (); -#endif -} - -#include - -IP_AGENT_EXPORT_VAR char *gdb_tp_heap_buffer; -IP_AGENT_EXPORT_VAR char *gdb_jump_pad_buffer; -IP_AGENT_EXPORT_VAR char *gdb_jump_pad_buffer_end; -IP_AGENT_EXPORT_VAR char *gdb_trampoline_buffer; -IP_AGENT_EXPORT_VAR char *gdb_trampoline_buffer_end; -IP_AGENT_EXPORT_VAR char *gdb_trampoline_buffer_error; - -/* Record the result of getting buffer space for fast tracepoint - trampolines. Any error message is copied, since caller may not be - using persistent storage. */ - -void -set_trampoline_buffer_space (CORE_ADDR begin, CORE_ADDR end, char *errmsg) -{ - gdb_trampoline_buffer = (char *) (uintptr_t) begin; - gdb_trampoline_buffer_end = (char *) (uintptr_t) end; - if (errmsg) - strncpy (gdb_trampoline_buffer_error, errmsg, 99); - else - strcpy (gdb_trampoline_buffer_error, "no buffer passed"); -} - -static void __attribute__ ((constructor)) -initialize_tracepoint_ftlib (void) -{ - initialize_tracepoint (); - - gdb_agent_init (); -} - -#ifndef HAVE_GETAUXVAL -/* Retrieve the value of TYPE from the auxiliary vector. If TYPE is not - found, 0 is returned. This function is provided if glibc is too old. */ - -unsigned long -getauxval (unsigned long type) -{ - unsigned long data[2]; - FILE *f = fopen ("/proc/self/auxv", "r"); - unsigned long value = 0; - - if (f == NULL) - return 0; - - while (fread (data, sizeof (data), 1, f) > 0) - { - if (data[0] == type) - { - value = data[1]; - break; - } - } - - fclose (f); - return value; -} -#endif - -#endif /* IN_PROCESS_AGENT */ - -/* Return a timestamp, expressed as microseconds of the usual Unix - time. (As the result is a 64-bit number, it will not overflow any - time soon.) */ - -static LONGEST -get_timestamp (void) -{ - using namespace std::chrono; - - steady_clock::time_point now = steady_clock::now (); - return duration_cast (now.time_since_epoch ()).count (); -} - -void -initialize_tracepoint (void) -{ - /* Start with the default size. */ - init_trace_buffer (DEFAULT_TRACE_BUFFER_SIZE); - - /* Wire trace state variable 1 to be the timestamp. This will be - uploaded to GDB upon connection and become one of its trace state - variables. (In case you're wondering, if GDB already has a trace - variable numbered 1, it will be renumbered.) */ - create_trace_state_variable (1, 0); - set_trace_state_variable_name (1, "trace_timestamp"); - set_trace_state_variable_getter (1, get_timestamp); - -#ifdef IN_PROCESS_AGENT - { - int pagesize; - size_t jump_pad_size; - - pagesize = sysconf (_SC_PAGE_SIZE); - if (pagesize == -1) - perror_with_name ("sysconf"); - -#define SCRATCH_BUFFER_NPAGES 20 - - jump_pad_size = pagesize * SCRATCH_BUFFER_NPAGES; - - gdb_tp_heap_buffer = (char *) xmalloc (5 * 1024 * 1024); - gdb_jump_pad_buffer = (char *) alloc_jump_pad_buffer (jump_pad_size); - if (gdb_jump_pad_buffer == NULL) - perror_with_name ("mmap"); - gdb_jump_pad_buffer_end = gdb_jump_pad_buffer + jump_pad_size; - } - - gdb_trampoline_buffer = gdb_trampoline_buffer_end = 0; - - /* It's not a fatal error for something to go wrong with trampoline - buffer setup, but it can be mysterious, so create a channel to - report back on what went wrong, using a fixed size since we may - not be able to allocate space later when the problem occurs. */ - gdb_trampoline_buffer_error = (char *) xmalloc (IPA_BUFSIZ); - - strcpy (gdb_trampoline_buffer_error, "No errors reported"); - - initialize_low_tracepoint (); -#endif -} diff --git a/gdbserver/tracepoint.cc b/gdbserver/tracepoint.cc new file mode 100644 index 00000000000..bbca48b2efd --- /dev/null +++ b/gdbserver/tracepoint.cc @@ -0,0 +1,7473 @@ +/* Tracepoint code for remote server for GDB. + Copyright (C) 2009-2020 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 . */ + +#include "server.h" +#include "tracepoint.h" +#include "gdbthread.h" +#include "gdbsupport/rsp-low.h" + +#include +#include +#include +#include +#include +#include "ax.h" +#include "tdesc.h" + +#define IPA_SYM_STRUCT_NAME ipa_sym_addresses +#include "gdbsupport/agent.h" + +#define DEFAULT_TRACE_BUFFER_SIZE 5242880 /* 5*1024*1024 */ + +/* This file is built for both GDBserver, and the in-process + agent (IPA), a shared library that includes a tracing agent that is + loaded by the inferior to support fast tracepoints. Fast + tracepoints (or more accurately, jump based tracepoints) are + implemented by patching the tracepoint location with a jump into a + small trampoline function whose job is to save the register state, + call the in-process tracing agent, and then execute the original + instruction that was under the tracepoint jump (possibly adjusted, + if PC-relative, or some such). + + The current synchronization design is pull based. That means, + GDBserver does most of the work, by peeking/poking at the inferior + agent's memory directly for downloading tracepoint and associated + objects, and for uploading trace frames. Whenever the IPA needs + something from GDBserver (trace buffer is full, tracing stopped for + some reason, etc.) the IPA calls a corresponding hook function + where GDBserver has placed a breakpoint. + + Each of the agents has its own trace buffer. When browsing the + trace frames built from slow and fast tracepoints from GDB (tfind + mode), there's no guarantee the user is seeing the trace frames in + strict chronological creation order, although, GDBserver tries to + keep the order relatively reasonable, by syncing the trace buffers + at appropriate times. + +*/ + +#ifdef IN_PROCESS_AGENT + +static void trace_vdebug (const char *, ...) ATTRIBUTE_PRINTF (1, 2); + +static void +trace_vdebug (const char *fmt, ...) +{ + char buf[1024]; + va_list ap; + + va_start (ap, fmt); + vsprintf (buf, fmt, ap); + fprintf (stderr, PROG "/tracepoint: %s\n", buf); + va_end (ap); +} + +#define trace_debug_1(level, fmt, args...) \ + do { \ + if (level <= debug_threads) \ + trace_vdebug ((fmt), ##args); \ + } while (0) + +#else + +#define trace_debug_1(level, fmt, args...) \ + do { \ + if (level <= debug_threads) \ + { \ + debug_printf ((fmt), ##args); \ + debug_printf ("\n"); \ + } \ + } while (0) + +#endif + +#define trace_debug(FMT, args...) \ + trace_debug_1 (1, FMT, ##args) + +/* Prefix exported symbols, for good citizenship. All the symbols + that need exporting are defined in this module. Note that all + these symbols must be tagged with IP_AGENT_EXPORT_*. */ +#ifdef IN_PROCESS_AGENT +# define gdb_tp_heap_buffer IPA_SYM_EXPORTED_NAME (gdb_tp_heap_buffer) +# define gdb_jump_pad_buffer IPA_SYM_EXPORTED_NAME (gdb_jump_pad_buffer) +# define gdb_jump_pad_buffer_end IPA_SYM_EXPORTED_NAME (gdb_jump_pad_buffer_end) +# define gdb_trampoline_buffer IPA_SYM_EXPORTED_NAME (gdb_trampoline_buffer) +# define gdb_trampoline_buffer_end IPA_SYM_EXPORTED_NAME (gdb_trampoline_buffer_end) +# define gdb_trampoline_buffer_error IPA_SYM_EXPORTED_NAME (gdb_trampoline_buffer_error) +# define collecting IPA_SYM_EXPORTED_NAME (collecting) +# define gdb_collect_ptr IPA_SYM_EXPORTED_NAME (gdb_collect_ptr) +# define stop_tracing IPA_SYM_EXPORTED_NAME (stop_tracing) +# define flush_trace_buffer IPA_SYM_EXPORTED_NAME (flush_trace_buffer) +# define about_to_request_buffer_space IPA_SYM_EXPORTED_NAME (about_to_request_buffer_space) +# define trace_buffer_is_full IPA_SYM_EXPORTED_NAME (trace_buffer_is_full) +# define stopping_tracepoint IPA_SYM_EXPORTED_NAME (stopping_tracepoint) +# define expr_eval_result IPA_SYM_EXPORTED_NAME (expr_eval_result) +# define error_tracepoint IPA_SYM_EXPORTED_NAME (error_tracepoint) +# define tracepoints IPA_SYM_EXPORTED_NAME (tracepoints) +# define tracing IPA_SYM_EXPORTED_NAME (tracing) +# define trace_buffer_ctrl IPA_SYM_EXPORTED_NAME (trace_buffer_ctrl) +# define trace_buffer_ctrl_curr IPA_SYM_EXPORTED_NAME (trace_buffer_ctrl_curr) +# define trace_buffer_lo IPA_SYM_EXPORTED_NAME (trace_buffer_lo) +# define trace_buffer_hi IPA_SYM_EXPORTED_NAME (trace_buffer_hi) +# define traceframe_read_count IPA_SYM_EXPORTED_NAME (traceframe_read_count) +# define traceframe_write_count IPA_SYM_EXPORTED_NAME (traceframe_write_count) +# define traceframes_created IPA_SYM_EXPORTED_NAME (traceframes_created) +# define trace_state_variables IPA_SYM_EXPORTED_NAME (trace_state_variables) +# define get_raw_reg_ptr IPA_SYM_EXPORTED_NAME (get_raw_reg_ptr) +# define get_trace_state_variable_value_ptr \ + IPA_SYM_EXPORTED_NAME (get_trace_state_variable_value_ptr) +# define set_trace_state_variable_value_ptr \ + IPA_SYM_EXPORTED_NAME (set_trace_state_variable_value_ptr) +# define ust_loaded IPA_SYM_EXPORTED_NAME (ust_loaded) +# define helper_thread_id IPA_SYM_EXPORTED_NAME (helper_thread_id) +# define cmd_buf IPA_SYM_EXPORTED_NAME (cmd_buf) +# define ipa_tdesc_idx IPA_SYM_EXPORTED_NAME (ipa_tdesc_idx) +#endif + +#ifndef IN_PROCESS_AGENT + +/* Addresses of in-process agent's symbols GDBserver cares about. */ + +struct ipa_sym_addresses +{ + CORE_ADDR addr_gdb_tp_heap_buffer; + CORE_ADDR addr_gdb_jump_pad_buffer; + CORE_ADDR addr_gdb_jump_pad_buffer_end; + CORE_ADDR addr_gdb_trampoline_buffer; + CORE_ADDR addr_gdb_trampoline_buffer_end; + CORE_ADDR addr_gdb_trampoline_buffer_error; + CORE_ADDR addr_collecting; + CORE_ADDR addr_gdb_collect_ptr; + CORE_ADDR addr_stop_tracing; + CORE_ADDR addr_flush_trace_buffer; + CORE_ADDR addr_about_to_request_buffer_space; + CORE_ADDR addr_trace_buffer_is_full; + CORE_ADDR addr_stopping_tracepoint; + CORE_ADDR addr_expr_eval_result; + CORE_ADDR addr_error_tracepoint; + CORE_ADDR addr_tracepoints; + CORE_ADDR addr_tracing; + CORE_ADDR addr_trace_buffer_ctrl; + CORE_ADDR addr_trace_buffer_ctrl_curr; + CORE_ADDR addr_trace_buffer_lo; + CORE_ADDR addr_trace_buffer_hi; + CORE_ADDR addr_traceframe_read_count; + CORE_ADDR addr_traceframe_write_count; + CORE_ADDR addr_traceframes_created; + CORE_ADDR addr_trace_state_variables; + CORE_ADDR addr_get_raw_reg_ptr; + CORE_ADDR addr_get_trace_state_variable_value_ptr; + CORE_ADDR addr_set_trace_state_variable_value_ptr; + CORE_ADDR addr_ust_loaded; + CORE_ADDR addr_ipa_tdesc_idx; +}; + +static struct +{ + const char *name; + int offset; +} symbol_list[] = { + IPA_SYM(gdb_tp_heap_buffer), + IPA_SYM(gdb_jump_pad_buffer), + IPA_SYM(gdb_jump_pad_buffer_end), + IPA_SYM(gdb_trampoline_buffer), + IPA_SYM(gdb_trampoline_buffer_end), + IPA_SYM(gdb_trampoline_buffer_error), + IPA_SYM(collecting), + IPA_SYM(gdb_collect_ptr), + IPA_SYM(stop_tracing), + IPA_SYM(flush_trace_buffer), + IPA_SYM(about_to_request_buffer_space), + IPA_SYM(trace_buffer_is_full), + IPA_SYM(stopping_tracepoint), + IPA_SYM(expr_eval_result), + IPA_SYM(error_tracepoint), + IPA_SYM(tracepoints), + IPA_SYM(tracing), + IPA_SYM(trace_buffer_ctrl), + IPA_SYM(trace_buffer_ctrl_curr), + IPA_SYM(trace_buffer_lo), + IPA_SYM(trace_buffer_hi), + IPA_SYM(traceframe_read_count), + IPA_SYM(traceframe_write_count), + IPA_SYM(traceframes_created), + IPA_SYM(trace_state_variables), + IPA_SYM(get_raw_reg_ptr), + IPA_SYM(get_trace_state_variable_value_ptr), + IPA_SYM(set_trace_state_variable_value_ptr), + IPA_SYM(ust_loaded), + IPA_SYM(ipa_tdesc_idx), +}; + +static struct ipa_sym_addresses ipa_sym_addrs; + +static int read_inferior_integer (CORE_ADDR symaddr, int *val); + +/* Returns true if both the in-process agent library and the static + tracepoints libraries are loaded in the inferior, and agent has + capability on static tracepoints. */ + +static int +in_process_agent_supports_ust (void) +{ + int loaded = 0; + + if (!agent_loaded_p ()) + { + warning ("In-process agent not loaded"); + return 0; + } + + if (agent_capability_check (AGENT_CAPA_STATIC_TRACE)) + { + /* Agent understands static tracepoint, then check whether UST is in + fact loaded in the inferior. */ + if (read_inferior_integer (ipa_sym_addrs.addr_ust_loaded, &loaded)) + { + warning ("Error reading ust_loaded in lib"); + return 0; + } + + return loaded; + } + else + return 0; +} + +static void +write_e_ipa_not_loaded (char *buffer) +{ + sprintf (buffer, + "E.In-process agent library not loaded in process. " + "Fast and static tracepoints unavailable."); +} + +/* Write an error to BUFFER indicating that UST isn't loaded in the + inferior. */ + +static void +write_e_ust_not_loaded (char *buffer) +{ +#ifdef HAVE_UST + sprintf (buffer, + "E.UST library not loaded in process. " + "Static tracepoints unavailable."); +#else + sprintf (buffer, "E.GDBserver was built without static tracepoints support"); +#endif +} + +/* If the in-process agent library isn't loaded in the inferior, write + an error to BUFFER, and return 1. Otherwise, return 0. */ + +static int +maybe_write_ipa_not_loaded (char *buffer) +{ + if (!agent_loaded_p ()) + { + write_e_ipa_not_loaded (buffer); + return 1; + } + return 0; +} + +/* If the in-process agent library and the ust (static tracepoints) + library aren't loaded in the inferior, write an error to BUFFER, + and return 1. Otherwise, return 0. */ + +static int +maybe_write_ipa_ust_not_loaded (char *buffer) +{ + if (!agent_loaded_p ()) + { + write_e_ipa_not_loaded (buffer); + return 1; + } + else if (!in_process_agent_supports_ust ()) + { + write_e_ust_not_loaded (buffer); + return 1; + } + return 0; +} + +/* Cache all future symbols that the tracepoints module might request. + We can not request symbols at arbitrary states in the remote + protocol, only when the client tells us that new symbols are + available. So when we load the in-process library, make sure to + check the entire list. */ + +void +tracepoint_look_up_symbols (void) +{ + int i; + + if (agent_loaded_p ()) + return; + + for (i = 0; i < sizeof (symbol_list) / sizeof (symbol_list[0]); i++) + { + CORE_ADDR *addrp = + (CORE_ADDR *) ((char *) &ipa_sym_addrs + symbol_list[i].offset); + + if (look_up_one_symbol (symbol_list[i].name, addrp, 1) == 0) + { + if (debug_threads) + debug_printf ("symbol `%s' not found\n", symbol_list[i].name); + return; + } + } + + agent_look_up_symbols (NULL); +} + +#endif + +/* GDBserver places a breakpoint on the IPA's version (which is a nop) + of the "stop_tracing" function. When this breakpoint is hit, + tracing stopped in the IPA for some reason. E.g., due to + tracepoint reaching the pass count, hitting conditional expression + evaluation error, etc. + + The IPA's trace buffer is never in circular tracing mode: instead, + GDBserver's is, and whenever the in-process buffer fills, it calls + "flush_trace_buffer", which triggers an internal breakpoint. + GDBserver reacts to this breakpoint by pulling the meanwhile + collected data. Old frames discarding is always handled on the + GDBserver side. */ + +#ifdef IN_PROCESS_AGENT +int +read_inferior_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) +{ + memcpy (myaddr, (void *) (uintptr_t) memaddr, len); + return 0; +} + +/* Call this in the functions where GDBserver places a breakpoint, so + that the compiler doesn't try to be clever and skip calling the + function at all. This is necessary, even if we tell the compiler + to not inline said functions. */ + +#if defined(__GNUC__) +# define UNKNOWN_SIDE_EFFECTS() asm ("") +#else +# define UNKNOWN_SIDE_EFFECTS() do {} while (0) +#endif + +/* This is needed for -Wmissing-declarations. */ +IP_AGENT_EXPORT_FUNC void stop_tracing (void); + +IP_AGENT_EXPORT_FUNC void +stop_tracing (void) +{ + /* GDBserver places breakpoint here. */ + UNKNOWN_SIDE_EFFECTS(); +} + +/* This is needed for -Wmissing-declarations. */ +IP_AGENT_EXPORT_FUNC void flush_trace_buffer (void); + +IP_AGENT_EXPORT_FUNC void +flush_trace_buffer (void) +{ + /* GDBserver places breakpoint here. */ + UNKNOWN_SIDE_EFFECTS(); +} + +#endif + +#ifndef IN_PROCESS_AGENT +static int +tracepoint_handler (CORE_ADDR address) +{ + trace_debug ("tracepoint_handler: tracepoint at 0x%s hit", + paddress (address)); + return 0; +} + +/* Breakpoint at "stop_tracing" in the inferior lib. */ +struct breakpoint *stop_tracing_bkpt; +static int stop_tracing_handler (CORE_ADDR); + +/* Breakpoint at "flush_trace_buffer" in the inferior lib. */ +struct breakpoint *flush_trace_buffer_bkpt; +static int flush_trace_buffer_handler (CORE_ADDR); + +static void download_trace_state_variables (void); +static void upload_fast_traceframes (void); + +static int run_inferior_command (char *cmd, int len); + +static int +read_inferior_integer (CORE_ADDR symaddr, int *val) +{ + return read_inferior_memory (symaddr, (unsigned char *) val, + sizeof (*val)); +} + +struct tracepoint; +static int tracepoint_send_agent (struct tracepoint *tpoint); + +static int +read_inferior_uinteger (CORE_ADDR symaddr, unsigned int *val) +{ + return read_inferior_memory (symaddr, (unsigned char *) val, + sizeof (*val)); +} + +static int +read_inferior_data_pointer (CORE_ADDR symaddr, CORE_ADDR *val) +{ + void *pval = (void *) (uintptr_t) val; + int ret; + + ret = read_inferior_memory (symaddr, (unsigned char *) &pval, sizeof (pval)); + *val = (uintptr_t) pval; + return ret; +} + +static int +write_inferior_data_pointer (CORE_ADDR symaddr, CORE_ADDR val) +{ + void *pval = (void *) (uintptr_t) val; + return target_write_memory (symaddr, + (unsigned char *) &pval, sizeof (pval)); +} + +static int +write_inferior_integer (CORE_ADDR symaddr, int val) +{ + return target_write_memory (symaddr, (unsigned char *) &val, sizeof (val)); +} + +static int +write_inferior_int8 (CORE_ADDR symaddr, int8_t val) +{ + return target_write_memory (symaddr, (unsigned char *) &val, sizeof (val)); +} + +static int +write_inferior_uinteger (CORE_ADDR symaddr, unsigned int val) +{ + return target_write_memory (symaddr, (unsigned char *) &val, sizeof (val)); +} + +static CORE_ADDR target_malloc (ULONGEST size); + +#define COPY_FIELD_TO_BUF(BUF, OBJ, FIELD) \ + do { \ + memcpy (BUF, &(OBJ)->FIELD, sizeof ((OBJ)->FIELD)); \ + BUF += sizeof ((OBJ)->FIELD); \ + } while (0) + +#endif + +/* Base action. Concrete actions inherit this. */ + +struct tracepoint_action +{ + char type; +}; + +/* An 'M' (collect memory) action. */ +struct collect_memory_action +{ + struct tracepoint_action base; + + ULONGEST addr; + ULONGEST len; + int32_t basereg; +}; + +/* An 'R' (collect registers) action. */ + +struct collect_registers_action +{ + struct tracepoint_action base; +}; + +/* An 'X' (evaluate expression) action. */ + +struct eval_expr_action +{ + struct tracepoint_action base; + + struct agent_expr *expr; +}; + +/* An 'L' (collect static trace data) action. */ +struct collect_static_trace_data_action +{ + struct tracepoint_action base; +}; + +#ifndef IN_PROCESS_AGENT +static CORE_ADDR +m_tracepoint_action_download (const struct tracepoint_action *action) +{ + CORE_ADDR ipa_action = target_malloc (sizeof (struct collect_memory_action)); + + target_write_memory (ipa_action, (unsigned char *) action, + sizeof (struct collect_memory_action)); + + return ipa_action; +} +static char * +m_tracepoint_action_send (char *buffer, const struct tracepoint_action *action) +{ + struct collect_memory_action *maction + = (struct collect_memory_action *) action; + + COPY_FIELD_TO_BUF (buffer, maction, addr); + COPY_FIELD_TO_BUF (buffer, maction, len); + COPY_FIELD_TO_BUF (buffer, maction, basereg); + + return buffer; +} + +static CORE_ADDR +r_tracepoint_action_download (const struct tracepoint_action *action) +{ + CORE_ADDR ipa_action = target_malloc (sizeof (struct collect_registers_action)); + + target_write_memory (ipa_action, (unsigned char *) action, + sizeof (struct collect_registers_action)); + + return ipa_action; +} + +static char * +r_tracepoint_action_send (char *buffer, const struct tracepoint_action *action) +{ + return buffer; +} + +static CORE_ADDR download_agent_expr (struct agent_expr *expr); + +static CORE_ADDR +x_tracepoint_action_download (const struct tracepoint_action *action) +{ + CORE_ADDR ipa_action = target_malloc (sizeof (struct eval_expr_action)); + CORE_ADDR expr; + + target_write_memory (ipa_action, (unsigned char *) action, + sizeof (struct eval_expr_action)); + expr = download_agent_expr (((struct eval_expr_action *) action)->expr); + write_inferior_data_pointer (ipa_action + + offsetof (struct eval_expr_action, expr), + expr); + + return ipa_action; +} + +/* Copy agent expression AEXPR to buffer pointed by P. If AEXPR is NULL, + copy 0 to P. Return updated header of buffer. */ + +static char * +agent_expr_send (char *p, const struct agent_expr *aexpr) +{ + /* Copy the length of condition first, and then copy its + content. */ + if (aexpr == NULL) + { + memset (p, 0, 4); + p += 4; + } + else + { + memcpy (p, &aexpr->length, 4); + p +=4; + + memcpy (p, aexpr->bytes, aexpr->length); + p += aexpr->length; + } + return p; +} + +static char * +x_tracepoint_action_send ( char *buffer, const struct tracepoint_action *action) +{ + struct eval_expr_action *eaction = (struct eval_expr_action *) action; + + return agent_expr_send (buffer, eaction->expr); +} + +static CORE_ADDR +l_tracepoint_action_download (const struct tracepoint_action *action) +{ + CORE_ADDR ipa_action + = target_malloc (sizeof (struct collect_static_trace_data_action)); + + target_write_memory (ipa_action, (unsigned char *) action, + sizeof (struct collect_static_trace_data_action)); + + return ipa_action; +} + +static char * +l_tracepoint_action_send (char *buffer, const struct tracepoint_action *action) +{ + return buffer; +} + +static char * +tracepoint_action_send (char *buffer, const struct tracepoint_action *action) +{ + switch (action->type) + { + case 'M': + return m_tracepoint_action_send (buffer, action); + case 'R': + return r_tracepoint_action_send (buffer, action); + case 'X': + return x_tracepoint_action_send (buffer, action); + case 'L': + return l_tracepoint_action_send (buffer, action); + } + error ("Unknown trace action '%c'.", action->type); +} + +static CORE_ADDR +tracepoint_action_download (const struct tracepoint_action *action) +{ + switch (action->type) + { + case 'M': + return m_tracepoint_action_download (action); + case 'R': + return r_tracepoint_action_download (action); + case 'X': + return x_tracepoint_action_download (action); + case 'L': + return l_tracepoint_action_download (action); + } + error ("Unknown trace action '%c'.", action->type); +} +#endif + +/* This structure describes a piece of the source-level definition of + the tracepoint. The contents are not interpreted by the target, + but preserved verbatim for uploading upon reconnection. */ + +struct source_string +{ + /* The type of string, such as "cond" for a conditional. */ + char *type; + + /* The source-level string itself. For the sake of target + debugging, we store it in plaintext, even though it is always + transmitted in hex. */ + char *str; + + /* Link to the next one in the list. We link them in the order + received, in case some make up an ordered list of commands or + some such. */ + struct source_string *next; +}; + +enum tracepoint_type +{ + /* Trap based tracepoint. */ + trap_tracepoint, + + /* A fast tracepoint implemented with a jump instead of a trap. */ + fast_tracepoint, + + /* A static tracepoint, implemented by a program call into a tracing + library. */ + static_tracepoint +}; + +struct tracepoint_hit_ctx; + +typedef enum eval_result_type (*condfn) (unsigned char *, + ULONGEST *); + +/* The definition of a tracepoint. */ + +/* Tracepoints may have multiple locations, each at a different + address. This can occur with optimizations, template + instantiation, etc. Since the locations may be in different + scopes, the conditions and actions may be different for each + location. Our target version of tracepoints is more like GDB's + notion of "breakpoint locations", but we have almost nothing that + is not per-location, so we bother having two kinds of objects. The + key consequence is that numbers are not unique, and that it takes + both number and address to identify a tracepoint uniquely. */ + +struct tracepoint +{ + /* The number of the tracepoint, as specified by GDB. Several + tracepoint objects here may share a number. */ + uint32_t number; + + /* Address at which the tracepoint is supposed to trigger. Several + tracepoints may share an address. */ + CORE_ADDR address; + + /* Tracepoint type. */ + enum tracepoint_type type; + + /* True if the tracepoint is currently enabled. */ + int8_t enabled; + + /* The number of single steps that will be performed after each + tracepoint hit. */ + uint64_t step_count; + + /* The number of times the tracepoint may be hit before it will + terminate the entire tracing run. */ + uint64_t pass_count; + + /* Pointer to the agent expression that is the tracepoint's + conditional, or NULL if the tracepoint is unconditional. */ + struct agent_expr *cond; + + /* The list of actions to take when the tracepoint triggers. */ + uint32_t numactions; + struct tracepoint_action **actions; + + /* Count of the times we've hit this tracepoint during the run. + Note that while-stepping steps are not counted as "hits". */ + uint64_t hit_count; + + /* Cached sum of the sizes of traceframes created by this point. */ + uint64_t traceframe_usage; + + CORE_ADDR compiled_cond; + + /* Link to the next tracepoint in the list. */ + struct tracepoint *next; + +#ifndef IN_PROCESS_AGENT + /* The list of actions to take when the tracepoint triggers, in + string/packet form. */ + char **actions_str; + + /* The collection of strings that describe the tracepoint as it was + entered into GDB. These are not used by the target, but are + reported back to GDB upon reconnection. */ + struct source_string *source_strings; + + /* The number of bytes displaced by fast tracepoints. It may subsume + multiple instructions, for multi-byte fast tracepoints. This + field is only valid for fast tracepoints. */ + uint32_t orig_size; + + /* Only for fast tracepoints. */ + CORE_ADDR obj_addr_on_target; + + /* Address range where the original instruction under a fast + tracepoint was relocated to. (_end is actually one byte past + the end). */ + CORE_ADDR adjusted_insn_addr; + CORE_ADDR adjusted_insn_addr_end; + + /* The address range of the piece of the jump pad buffer that was + assigned to this fast tracepoint. (_end is actually one byte + past the end).*/ + CORE_ADDR jump_pad; + CORE_ADDR jump_pad_end; + + /* The address range of the piece of the trampoline buffer that was + assigned to this fast tracepoint. (_end is actually one byte + past the end). */ + CORE_ADDR trampoline; + CORE_ADDR trampoline_end; + + /* The list of actions to take while in a stepping loop. These + fields are only valid for patch-based tracepoints. */ + int num_step_actions; + struct tracepoint_action **step_actions; + /* Same, but in string/packet form. */ + char **step_actions_str; + + /* Handle returned by the breakpoint or tracepoint module when we + inserted the trap or jump, or hooked into a static tracepoint. + NULL if we haven't inserted it yet. */ + void *handle; +#endif + +}; + +#ifndef IN_PROCESS_AGENT + +/* Given `while-stepping', a thread may be collecting data for more + than one tracepoint simultaneously. On the other hand, the same + tracepoint with a while-stepping action may be hit by more than one + thread simultaneously (but not quite, each thread could be handling + a different step). Each thread holds a list of these objects, + representing the current step of each while-stepping action being + collected. */ + +struct wstep_state +{ + struct wstep_state *next; + + /* The tracepoint number. */ + int tp_number; + /* The tracepoint's address. */ + CORE_ADDR tp_address; + + /* The number of the current step in this 'while-stepping' + action. */ + long current_step; +}; + +#endif + +EXTERN_C_PUSH + +/* The linked list of all tracepoints. Marked explicitly as used as + the in-process library doesn't use it for the fast tracepoints + support. */ +IP_AGENT_EXPORT_VAR struct tracepoint *tracepoints; + +/* The first tracepoint to exceed its pass count. */ + +IP_AGENT_EXPORT_VAR struct tracepoint *stopping_tracepoint; + +/* True if the trace buffer is full or otherwise no longer usable. */ + +IP_AGENT_EXPORT_VAR int trace_buffer_is_full; + +/* The first error that occurred during expression evaluation. */ + +/* Stored as an int to avoid the IPA ABI being dependent on whatever + the compiler decides to use for the enum's underlying type. Holds + enum eval_result_type values. */ +IP_AGENT_EXPORT_VAR int expr_eval_result = expr_eval_no_error; + +EXTERN_C_POP + +#ifndef IN_PROCESS_AGENT + +/* Pointer to the last tracepoint in the list, new tracepoints are + linked in at the end. */ + +static struct tracepoint *last_tracepoint; + +static const char *eval_result_names[] = + { + "terror:in the attic", /* this should never be reported */ + "terror:empty expression", + "terror:empty stack", + "terror:stack overflow", + "terror:stack underflow", + "terror:unhandled opcode", + "terror:unrecognized opcode", + "terror:divide by zero" + }; + +#endif + +/* The tracepoint in which the error occurred. */ + +EXTERN_C_PUSH +IP_AGENT_EXPORT_VAR struct tracepoint *error_tracepoint; +EXTERN_C_POP + +struct trace_state_variable +{ + /* This is the name of the variable as used in GDB. The target + doesn't use the name, but needs to have it for saving and + reconnection purposes. */ + char *name; + + /* This number identifies the variable uniquely. Numbers may be + assigned either by the target (in the case of builtin variables), + or by GDB, and are presumed unique during the course of a trace + experiment. */ + int number; + + /* The variable's initial value, a 64-bit signed integer always. */ + LONGEST initial_value; + + /* The variable's value, a 64-bit signed integer always. */ + LONGEST value; + + /* Pointer to a getter function, used to supply computed values. */ + LONGEST (*getter) (void); + + /* Link to the next variable. */ + struct trace_state_variable *next; +}; + +/* Linked list of all trace state variables. */ + +#ifdef IN_PROCESS_AGENT +struct trace_state_variable *alloced_trace_state_variables; +#endif + +IP_AGENT_EXPORT_VAR struct trace_state_variable *trace_state_variables; + +/* The results of tracing go into a fixed-size space known as the + "trace buffer". Because usage follows a limited number of + patterns, we manage it ourselves rather than with malloc. Basic + rules are that we create only one trace frame at a time, each is + variable in size, they are never moved once created, and we only + discard if we are doing a circular buffer, and then only the oldest + ones. Each trace frame includes its own size, so we don't need to + link them together, and the trace frame number is relative to the + first one, so we don't need to record numbers. A trace frame also + records the number of the tracepoint that created it. The data + itself is a series of blocks, each introduced by a single character + and with a defined format. Each type of block has enough + type/length info to allow scanners to jump quickly from one block + to the next without reading each byte in the block. */ + +/* Trace buffer management would be simple - advance a free pointer + from beginning to end, then stop - were it not for the circular + buffer option, which is a useful way to prevent a trace run from + stopping prematurely because the buffer filled up. In the circular + case, the location of the first trace frame (trace_buffer_start) + moves as old trace frames are discarded. Also, since we grow trace + frames incrementally as actions are performed, we wrap around to + the beginning of the trace buffer. This is per-block, so each + block within a trace frame remains contiguous. Things get messy + when the wrapped-around trace frame is the one being discarded; the + free space ends up in two parts at opposite ends of the buffer. */ + +#ifndef ATTR_PACKED +# if defined(__GNUC__) +# define ATTR_PACKED __attribute__ ((packed)) +# else +# define ATTR_PACKED /* nothing */ +# endif +#endif + +/* The data collected at a tracepoint hit. This object should be as + small as possible, since there may be a great many of them. We do + not need to keep a frame number, because they are all sequential + and there are no deletions; so the Nth frame in the buffer is + always frame number N. */ + +struct traceframe +{ + /* Number of the tracepoint that collected this traceframe. A value + of 0 indicates the current end of the trace buffer. We make this + a 16-bit field because it's never going to happen that GDB's + numbering of tracepoints reaches 32,000. */ + int tpnum : 16; + + /* The size of the data in this trace frame. We limit this to 32 + bits, even on a 64-bit target, because it's just implausible that + one is validly going to collect 4 gigabytes of data at a single + tracepoint hit. */ + unsigned int data_size : 32; + + /* The base of the trace data, which is contiguous from this point. */ + unsigned char data[0]; + +} ATTR_PACKED; + +/* The size of the EOB marker, in bytes. A traceframe with zeroed + fields (and no data) marks the end of trace data. */ +#define TRACEFRAME_EOB_MARKER_SIZE offsetof (struct traceframe, data) + +/* This flag is true if the trace buffer is circular, meaning that + when it fills, the oldest trace frames are discarded in order to + make room. */ + +#ifndef IN_PROCESS_AGENT +static int circular_trace_buffer; +#endif + +/* Size of the trace buffer. */ + +static LONGEST trace_buffer_size; + +EXTERN_C_PUSH + +/* Pointer to the block of memory that traceframes all go into. */ + +IP_AGENT_EXPORT_VAR unsigned char *trace_buffer_lo; + +/* Pointer to the end of the trace buffer, more precisely to the byte + after the end of the buffer. */ + +IP_AGENT_EXPORT_VAR unsigned char *trace_buffer_hi; + +EXTERN_C_POP + +/* Control structure holding the read/write/etc. pointers into the + trace buffer. We need more than one of these to implement a + transaction-like mechanism to guarantees that both GDBserver and the + in-process agent can try to change the trace buffer + simultaneously. */ + +struct trace_buffer_control +{ + /* Pointer to the first trace frame in the buffer. In the + non-circular case, this is equal to trace_buffer_lo, otherwise it + moves around in the buffer. */ + unsigned char *start; + + /* Pointer to the free part of the trace buffer. Note that we clear + several bytes at and after this pointer, so that traceframe + scans/searches terminate properly. */ + unsigned char *free; + + /* Pointer to the byte after the end of the free part. Note that + this may be smaller than trace_buffer_free in the circular case, + and means that the free part is in two pieces. Initially it is + equal to trace_buffer_hi, then is generally equivalent to + trace_buffer_start. */ + unsigned char *end_free; + + /* Pointer to the wraparound. If not equal to trace_buffer_hi, then + this is the point at which the trace data breaks, and resumes at + trace_buffer_lo. */ + unsigned char *wrap; +}; + +/* Same as above, to be used by GDBserver when updating the in-process + agent. */ +struct ipa_trace_buffer_control +{ + uintptr_t start; + uintptr_t free; + uintptr_t end_free; + uintptr_t wrap; +}; + + +/* We have possibly both GDBserver and an inferior thread accessing + the same IPA trace buffer memory. The IPA is the producer (tries + to put new frames in the buffer), while GDBserver occasionally + consumes them, that is, flushes the IPA's buffer into its own + buffer. Both sides need to update the trace buffer control + pointers (current head, tail, etc.). We can't use a global lock to + synchronize the accesses, as otherwise we could deadlock GDBserver + (if the thread holding the lock stops for a signal, say). So + instead of that, we use a transaction scheme where GDBserver writes + always prevail over the IPAs writes, and, we have the IPA detect + the commit failure/overwrite, and retry the whole attempt. This is + mainly implemented by having a global token object that represents + who wrote last to the buffer control structure. We need to freeze + any inferior writing to the buffer while GDBserver touches memory, + so that the inferior can correctly detect that GDBserver had been + there, otherwise, it could mistakingly think its commit was + successful; that's implemented by simply having GDBserver set a + breakpoint the inferior hits if it is the critical region. + + There are three cycling trace buffer control structure copies + (buffer head, tail, etc.), with the token object including an index + indicating which is current live copy. The IPA tentatively builds + an updated copy in a non-current control structure, while GDBserver + always clobbers the current version directly. The IPA then tries + to atomically "commit" its version; if GDBserver clobbered the + structure meanwhile, that will fail, and the IPA restarts the + allocation process. + + Listing the step in further detail, we have: + + In-process agent (producer): + + - passes by `about_to_request_buffer_space' breakpoint/lock + + - reads current token, extracts current trace buffer control index, + and starts tentatively updating the rightmost one (0->1, 1->2, + 2->0). Note that only one inferior thread is executing this code + at any given time, due to an outer lock in the jump pads. + + - updates counters, and tries to commit the token. + + - passes by second `about_to_request_buffer_space' breakpoint/lock, + leaving the sync region. + + - checks if the update was effective. + + - if trace buffer was found full, hits flush_trace_buffer + breakpoint, and restarts later afterwards. + + GDBserver (consumer): + + - sets `about_to_request_buffer_space' breakpoint/lock. + + - updates the token unconditionally, using the current buffer + control index, since it knows that the IP agent always writes to + the rightmost, and due to the breakpoint, at most one IP thread + can try to update the trace buffer concurrently to GDBserver, so + there will be no danger of trace buffer control index wrap making + the IPA write to the same index as GDBserver. + + - flushes the IP agent's trace buffer completely, and updates the + current trace buffer control structure. GDBserver *always* wins. + + - removes the `about_to_request_buffer_space' breakpoint. + +The token is stored in the `trace_buffer_ctrl_curr' variable. +Internally, it's bits are defined as: + + |-------------+-----+-------------+--------+-------------+--------------| + | Bit offsets | 31 | 30 - 20 | 19 | 18-8 | 7-0 | + |-------------+-----+-------------+--------+-------------+--------------| + | What | GSB | PC (11-bit) | unused | CC (11-bit) | TBCI (8-bit) | + |-------------+-----+-------------+--------+-------------+--------------| + + GSB - GDBserver Stamp Bit + PC - Previous Counter + CC - Current Counter + TBCI - Trace Buffer Control Index + + +An IPA update of `trace_buffer_ctrl_curr' does: + + - read CC from the current token, save as PC. + - updates pointers + - atomically tries to write PC+1,CC + +A GDBserver update of `trace_buffer_ctrl_curr' does: + + - reads PC and CC from the current token. + - updates pointers + - writes GSB,PC,CC +*/ + +/* These are the bits of `trace_buffer_ctrl_curr' that are reserved + for the counters described below. The cleared bits are used to + hold the index of the items of the `trace_buffer_ctrl' array that + is "current". */ +#define GDBSERVER_FLUSH_COUNT_MASK 0xfffffff0 + +/* `trace_buffer_ctrl_curr' contains two counters. The `previous' + counter, and the `current' counter. */ + +#define GDBSERVER_FLUSH_COUNT_MASK_PREV 0x7ff00000 +#define GDBSERVER_FLUSH_COUNT_MASK_CURR 0x0007ff00 + +/* When GDBserver update the IP agent's `trace_buffer_ctrl_curr', it + always stamps this bit as set. */ +#define GDBSERVER_UPDATED_FLUSH_COUNT_BIT 0x80000000 + +#ifdef IN_PROCESS_AGENT +IP_AGENT_EXPORT_VAR struct trace_buffer_control trace_buffer_ctrl[3]; +IP_AGENT_EXPORT_VAR unsigned int trace_buffer_ctrl_curr; + +# define TRACE_BUFFER_CTRL_CURR \ + (trace_buffer_ctrl_curr & ~GDBSERVER_FLUSH_COUNT_MASK) + +#else + +/* The GDBserver side agent only needs one instance of this object, as + it doesn't need to sync with itself. Define it as array anyway so + that the rest of the code base doesn't need to care for the + difference. */ +struct trace_buffer_control trace_buffer_ctrl[1]; +# define TRACE_BUFFER_CTRL_CURR 0 +#endif + +/* These are convenience macros used to access the current trace + buffer control in effect. */ +#define trace_buffer_start (trace_buffer_ctrl[TRACE_BUFFER_CTRL_CURR].start) +#define trace_buffer_free (trace_buffer_ctrl[TRACE_BUFFER_CTRL_CURR].free) +#define trace_buffer_end_free \ + (trace_buffer_ctrl[TRACE_BUFFER_CTRL_CURR].end_free) +#define trace_buffer_wrap (trace_buffer_ctrl[TRACE_BUFFER_CTRL_CURR].wrap) + + +/* Macro that returns a pointer to the first traceframe in the buffer. */ + +#define FIRST_TRACEFRAME() ((struct traceframe *) trace_buffer_start) + +/* Macro that returns a pointer to the next traceframe in the buffer. + If the computed location is beyond the wraparound point, subtract + the offset of the wraparound. */ + +#define NEXT_TRACEFRAME_1(TF) \ + (((unsigned char *) (TF)) + sizeof (struct traceframe) + (TF)->data_size) + +#define NEXT_TRACEFRAME(TF) \ + ((struct traceframe *) (NEXT_TRACEFRAME_1 (TF) \ + - ((NEXT_TRACEFRAME_1 (TF) >= trace_buffer_wrap) \ + ? (trace_buffer_wrap - trace_buffer_lo) \ + : 0))) + +/* The difference between these counters represents the total number + of complete traceframes present in the trace buffer. The IP agent + writes to the write count, GDBserver writes to read count. */ + +IP_AGENT_EXPORT_VAR unsigned int traceframe_write_count; +IP_AGENT_EXPORT_VAR unsigned int traceframe_read_count; + +/* Convenience macro. */ + +#define traceframe_count \ + ((unsigned int) (traceframe_write_count - traceframe_read_count)) + +/* The count of all traceframes created in the current run, including + ones that were discarded to make room. */ + +IP_AGENT_EXPORT_VAR int traceframes_created; + +#ifndef IN_PROCESS_AGENT + +/* Read-only regions are address ranges whose contents don't change, + and so can be read from target memory even while looking at a trace + frame. Without these, disassembly for instance will likely fail, + because the program code is not usually collected into a trace + frame. This data structure does not need to be very complicated or + particularly efficient, it's only going to be used occasionally, + and only by some commands. */ + +struct readonly_region +{ + /* The bounds of the region. */ + CORE_ADDR start, end; + + /* Link to the next one. */ + struct readonly_region *next; +}; + +/* Linked list of readonly regions. This list stays in effect from + one tstart to the next. */ + +static struct readonly_region *readonly_regions; + +#endif + +/* The global that controls tracing overall. */ + +IP_AGENT_EXPORT_VAR int tracing; + +#ifndef IN_PROCESS_AGENT + +/* Controls whether tracing should continue after GDB disconnects. */ + +int disconnected_tracing; + +/* The reason for the last tracing run to have stopped. We initialize + to a distinct string so that GDB can distinguish between "stopped + after running" and "stopped because never run" cases. */ + +static const char *tracing_stop_reason = "tnotrun"; + +static int tracing_stop_tpnum; + +/* 64-bit timestamps for the trace run's start and finish, expressed + in microseconds from the Unix epoch. */ + +LONGEST tracing_start_time; +LONGEST tracing_stop_time; + +/* The (optional) user-supplied name of the user that started the run. + This is an arbitrary string, and may be NULL. */ + +char *tracing_user_name; + +/* Optional user-supplied text describing the run. This is + an arbitrary string, and may be NULL. */ + +char *tracing_notes; + +/* Optional user-supplied text explaining a tstop command. This is an + arbitrary string, and may be NULL. */ + +char *tracing_stop_note; + +#endif + +/* Functions local to this file. */ + +/* Base "class" for tracepoint type specific data to be passed down to + collect_data_at_tracepoint. */ +struct tracepoint_hit_ctx +{ + enum tracepoint_type type; +}; + +#ifdef IN_PROCESS_AGENT + +/* Fast/jump tracepoint specific data to be passed down to + collect_data_at_tracepoint. */ +struct fast_tracepoint_ctx +{ + struct tracepoint_hit_ctx base; + + struct regcache regcache; + int regcache_initted; + unsigned char *regspace; + + unsigned char *regs; + struct tracepoint *tpoint; +}; + +/* Static tracepoint specific data to be passed down to + collect_data_at_tracepoint. */ +struct static_tracepoint_ctx +{ + struct tracepoint_hit_ctx base; + + /* The regcache corresponding to the registers state at the time of + the tracepoint hit. Initialized lazily, from REGS. */ + struct regcache regcache; + int regcache_initted; + + /* The buffer space REGCACHE above uses. We use a separate buffer + instead of letting the regcache malloc for both signal safety and + performance reasons; this is allocated on the stack instead. */ + unsigned char *regspace; + + /* The register buffer as passed on by lttng/ust. */ + struct registers *regs; + + /* The "printf" formatter and the args the user passed to the marker + call. We use this to be able to collect "static trace data" + ($_sdata). */ + const char *fmt; + va_list *args; + + /* The GDB tracepoint matching the probed marker that was "hit". */ + struct tracepoint *tpoint; +}; + +#else + +/* Static tracepoint specific data to be passed down to + collect_data_at_tracepoint. */ +struct trap_tracepoint_ctx +{ + struct tracepoint_hit_ctx base; + + struct regcache *regcache; +}; + +#endif + +#ifndef IN_PROCESS_AGENT +static CORE_ADDR traceframe_get_pc (struct traceframe *tframe); +static int traceframe_read_tsv (int num, LONGEST *val); +#endif + +static int condition_true_at_tracepoint (struct tracepoint_hit_ctx *ctx, + struct tracepoint *tpoint); + +#ifndef IN_PROCESS_AGENT +static void clear_readonly_regions (void); +static void clear_installed_tracepoints (void); +#endif + +static void collect_data_at_tracepoint (struct tracepoint_hit_ctx *ctx, + CORE_ADDR stop_pc, + struct tracepoint *tpoint); +#ifndef IN_PROCESS_AGENT +static void collect_data_at_step (struct tracepoint_hit_ctx *ctx, + CORE_ADDR stop_pc, + struct tracepoint *tpoint, int current_step); +static void compile_tracepoint_condition (struct tracepoint *tpoint, + CORE_ADDR *jump_entry); +#endif +static void do_action_at_tracepoint (struct tracepoint_hit_ctx *ctx, + CORE_ADDR stop_pc, + struct tracepoint *tpoint, + struct traceframe *tframe, + struct tracepoint_action *taction); + +#ifndef IN_PROCESS_AGENT +static struct tracepoint *fast_tracepoint_from_ipa_tpoint_address (CORE_ADDR); + +static void install_tracepoint (struct tracepoint *, char *own_buf); +static void download_tracepoint (struct tracepoint *); +static int install_fast_tracepoint (struct tracepoint *, char *errbuf); +static void clone_fast_tracepoint (struct tracepoint *to, + const struct tracepoint *from); +#endif + +static LONGEST get_timestamp (void); + +#if defined(__GNUC__) +# define memory_barrier() asm volatile ("" : : : "memory") +#else +# define memory_barrier() do {} while (0) +#endif + +/* We only build the IPA if this builtin is supported, and there are + no uses of this in GDBserver itself, so we're safe in defining this + unconditionally. */ +#define cmpxchg(mem, oldval, newval) \ + __sync_val_compare_and_swap (mem, oldval, newval) + +/* Record that an error occurred during expression evaluation. */ + +static void +record_tracepoint_error (struct tracepoint *tpoint, const char *which, + enum eval_result_type rtype) +{ + trace_debug ("Tracepoint %d at %s %s eval reports error %d", + tpoint->number, paddress (tpoint->address), which, rtype); + +#ifdef IN_PROCESS_AGENT + /* Only record the first error we get. */ + if (cmpxchg (&expr_eval_result, + expr_eval_no_error, + rtype) != expr_eval_no_error) + return; +#else + if (expr_eval_result != expr_eval_no_error) + return; +#endif + + error_tracepoint = tpoint; +} + +/* Trace buffer management. */ + +static void +clear_trace_buffer (void) +{ + trace_buffer_start = trace_buffer_lo; + trace_buffer_free = trace_buffer_lo; + trace_buffer_end_free = trace_buffer_hi; + trace_buffer_wrap = trace_buffer_hi; + /* A traceframe with zeroed fields marks the end of trace data. */ + ((struct traceframe *) trace_buffer_free)->tpnum = 0; + ((struct traceframe *) trace_buffer_free)->data_size = 0; + traceframe_read_count = traceframe_write_count = 0; + traceframes_created = 0; +} + +#ifndef IN_PROCESS_AGENT + +static void +clear_inferior_trace_buffer (void) +{ + CORE_ADDR ipa_trace_buffer_lo; + CORE_ADDR ipa_trace_buffer_hi; + struct traceframe ipa_traceframe = { 0 }; + struct ipa_trace_buffer_control ipa_trace_buffer_ctrl; + + read_inferior_data_pointer (ipa_sym_addrs.addr_trace_buffer_lo, + &ipa_trace_buffer_lo); + read_inferior_data_pointer (ipa_sym_addrs.addr_trace_buffer_hi, + &ipa_trace_buffer_hi); + + ipa_trace_buffer_ctrl.start = ipa_trace_buffer_lo; + ipa_trace_buffer_ctrl.free = ipa_trace_buffer_lo; + ipa_trace_buffer_ctrl.end_free = ipa_trace_buffer_hi; + ipa_trace_buffer_ctrl.wrap = ipa_trace_buffer_hi; + + /* A traceframe with zeroed fields marks the end of trace data. */ + target_write_memory (ipa_sym_addrs.addr_trace_buffer_ctrl, + (unsigned char *) &ipa_trace_buffer_ctrl, + sizeof (ipa_trace_buffer_ctrl)); + + write_inferior_uinteger (ipa_sym_addrs.addr_trace_buffer_ctrl_curr, 0); + + /* A traceframe with zeroed fields marks the end of trace data. */ + target_write_memory (ipa_trace_buffer_lo, + (unsigned char *) &ipa_traceframe, + sizeof (ipa_traceframe)); + + write_inferior_uinteger (ipa_sym_addrs.addr_traceframe_write_count, 0); + write_inferior_uinteger (ipa_sym_addrs.addr_traceframe_read_count, 0); + write_inferior_integer (ipa_sym_addrs.addr_traceframes_created, 0); +} + +#endif + +static void +init_trace_buffer (LONGEST bufsize) +{ + size_t alloc_size; + + trace_buffer_size = bufsize; + + /* Make sure to internally allocate at least space for the EOB + marker. */ + alloc_size = (bufsize < TRACEFRAME_EOB_MARKER_SIZE + ? TRACEFRAME_EOB_MARKER_SIZE : bufsize); + trace_buffer_lo = (unsigned char *) xrealloc (trace_buffer_lo, alloc_size); + + trace_buffer_hi = trace_buffer_lo + trace_buffer_size; + + clear_trace_buffer (); +} + +#ifdef IN_PROCESS_AGENT + +/* This is needed for -Wmissing-declarations. */ +IP_AGENT_EXPORT_FUNC void about_to_request_buffer_space (void); + +IP_AGENT_EXPORT_FUNC void +about_to_request_buffer_space (void) +{ + /* GDBserver places breakpoint here while it goes about to flush + data at random times. */ + UNKNOWN_SIDE_EFFECTS(); +} + +#endif + +/* Carve out a piece of the trace buffer, returning NULL in case of + failure. */ + +static void * +trace_buffer_alloc (size_t amt) +{ + unsigned char *rslt; + struct trace_buffer_control *tbctrl; + unsigned int curr; +#ifdef IN_PROCESS_AGENT + unsigned int prev, prev_filtered; + unsigned int commit_count; + unsigned int commit; + unsigned int readout; +#else + struct traceframe *oldest; + unsigned char *new_start; +#endif + + trace_debug ("Want to allocate %ld+%ld bytes in trace buffer", + (long) amt, (long) sizeof (struct traceframe)); + + /* Account for the EOB marker. */ + amt += TRACEFRAME_EOB_MARKER_SIZE; + +#ifdef IN_PROCESS_AGENT + again: + memory_barrier (); + + /* Read the current token and extract the index to try to write to, + storing it in CURR. */ + prev = trace_buffer_ctrl_curr; + prev_filtered = prev & ~GDBSERVER_FLUSH_COUNT_MASK; + curr = prev_filtered + 1; + if (curr > 2) + curr = 0; + + about_to_request_buffer_space (); + + /* Start out with a copy of the current state. GDBserver may be + midway writing to the PREV_FILTERED TBC, but, that's OK, we won't + be able to commit anyway if that happens. */ + trace_buffer_ctrl[curr] + = trace_buffer_ctrl[prev_filtered]; + trace_debug ("trying curr=%u", curr); +#else + /* The GDBserver's agent doesn't need all that syncing, and always + updates TCB 0 (there's only one, mind you). */ + curr = 0; +#endif + tbctrl = &trace_buffer_ctrl[curr]; + + /* Offsets are easier to grok for debugging than raw addresses, + especially for the small trace buffer sizes that are useful for + testing. */ + trace_debug ("Trace buffer [%d] start=%d free=%d endfree=%d wrap=%d hi=%d", + curr, + (int) (tbctrl->start - trace_buffer_lo), + (int) (tbctrl->free - trace_buffer_lo), + (int) (tbctrl->end_free - trace_buffer_lo), + (int) (tbctrl->wrap - trace_buffer_lo), + (int) (trace_buffer_hi - trace_buffer_lo)); + + /* The algorithm here is to keep trying to get a contiguous block of + the requested size, possibly discarding older traceframes to free + up space. Since free space might come in one or two pieces, + depending on whether discarded traceframes wrapped around at the + high end of the buffer, we test both pieces after each + discard. */ + while (1) + { + /* First, if we have two free parts, try the upper one first. */ + if (tbctrl->end_free < tbctrl->free) + { + if (tbctrl->free + amt <= trace_buffer_hi) + /* We have enough in the upper part. */ + break; + else + { + /* Our high part of free space wasn't enough. Give up + on it for now, set wraparound. We will recover the + space later, if/when the wrapped-around traceframe is + discarded. */ + trace_debug ("Upper part too small, setting wraparound"); + tbctrl->wrap = tbctrl->free; + tbctrl->free = trace_buffer_lo; + } + } + + /* The normal case. */ + if (tbctrl->free + amt <= tbctrl->end_free) + break; + +#ifdef IN_PROCESS_AGENT + /* The IP Agent's buffer is always circular. It isn't used + currently, but `circular_trace_buffer' could represent + GDBserver's mode. If we didn't find space, ask GDBserver to + flush. */ + + flush_trace_buffer (); + memory_barrier (); + if (tracing) + { + trace_debug ("gdbserver flushed buffer, retrying"); + goto again; + } + + /* GDBserver cancelled the tracing. Bail out as well. */ + return NULL; +#else + /* If we're here, then neither part is big enough, and + non-circular trace buffers are now full. */ + if (!circular_trace_buffer) + { + trace_debug ("Not enough space in the trace buffer"); + return NULL; + } + + trace_debug ("Need more space in the trace buffer"); + + /* If we have a circular buffer, we can try discarding the + oldest traceframe and see if that helps. */ + oldest = FIRST_TRACEFRAME (); + if (oldest->tpnum == 0) + { + /* Not good; we have no traceframes to free. Perhaps we're + asking for a block that is larger than the buffer? In + any case, give up. */ + trace_debug ("No traceframes to discard"); + return NULL; + } + + /* We don't run this code in the in-process agent currently. + E.g., we could leave the in-process agent in autonomous + circular mode if we only have fast tracepoints. If we do + that, then this bit becomes racy with GDBserver, which also + writes to this counter. */ + --traceframe_write_count; + + new_start = (unsigned char *) NEXT_TRACEFRAME (oldest); + /* If we freed the traceframe that wrapped around, go back + to the non-wrap case. */ + if (new_start < tbctrl->start) + { + trace_debug ("Discarding past the wraparound"); + tbctrl->wrap = trace_buffer_hi; + } + tbctrl->start = new_start; + tbctrl->end_free = tbctrl->start; + + trace_debug ("Discarded a traceframe\n" + "Trace buffer [%d], start=%d free=%d " + "endfree=%d wrap=%d hi=%d", + curr, + (int) (tbctrl->start - trace_buffer_lo), + (int) (tbctrl->free - trace_buffer_lo), + (int) (tbctrl->end_free - trace_buffer_lo), + (int) (tbctrl->wrap - trace_buffer_lo), + (int) (trace_buffer_hi - trace_buffer_lo)); + + /* Now go back around the loop. The discard might have resulted + in either one or two pieces of free space, so we want to try + both before freeing any more traceframes. */ +#endif + } + + /* If we get here, we know we can provide the asked-for space. */ + + rslt = tbctrl->free; + + /* Adjust the request back down, now that we know we have space for + the marker, but don't commit to AMT yet, we may still need to + restart the operation if GDBserver touches the trace buffer + (obviously only important in the in-process agent's version). */ + tbctrl->free += (amt - sizeof (struct traceframe)); + + /* Or not. If GDBserver changed the trace buffer behind our back, + we get to restart a new allocation attempt. */ + +#ifdef IN_PROCESS_AGENT + /* Build the tentative token. */ + commit_count = (((prev & GDBSERVER_FLUSH_COUNT_MASK_CURR) + 0x100) + & GDBSERVER_FLUSH_COUNT_MASK_CURR); + commit = (((prev & GDBSERVER_FLUSH_COUNT_MASK_CURR) << 12) + | commit_count + | curr); + + /* Try to commit it. */ + readout = cmpxchg (&trace_buffer_ctrl_curr, prev, commit); + if (readout != prev) + { + trace_debug ("GDBserver has touched the trace buffer, restarting." + " (prev=%08x, commit=%08x, readout=%08x)", + prev, commit, readout); + goto again; + } + + /* Hold your horses here. Even if that change was committed, + GDBserver could come in, and clobber it. We need to hold to be + able to tell if GDBserver clobbers before or after we committed + the change. Whenever GDBserver goes about touching the IPA + buffer, it sets a breakpoint in this routine, so we have a sync + point here. */ + about_to_request_buffer_space (); + + /* Check if the change has been effective, even if GDBserver stopped + us at the breakpoint. */ + + { + unsigned int refetch; + + memory_barrier (); + + refetch = trace_buffer_ctrl_curr; + + if (refetch == commit + || ((refetch & GDBSERVER_FLUSH_COUNT_MASK_PREV) >> 12) == commit_count) + { + /* effective */ + trace_debug ("change is effective: (prev=%08x, commit=%08x, " + "readout=%08x, refetch=%08x)", + prev, commit, readout, refetch); + } + else + { + trace_debug ("GDBserver has touched the trace buffer, not effective." + " (prev=%08x, commit=%08x, readout=%08x, refetch=%08x)", + prev, commit, readout, refetch); + goto again; + } + } +#endif + + /* We have a new piece of the trace buffer. Hurray! */ + + /* Add an EOB marker just past this allocation. */ + ((struct traceframe *) tbctrl->free)->tpnum = 0; + ((struct traceframe *) tbctrl->free)->data_size = 0; + + /* Adjust the request back down, now that we know we have space for + the marker. */ + amt -= sizeof (struct traceframe); + + if (debug_threads) + { + trace_debug ("Allocated %d bytes", (int) amt); + trace_debug ("Trace buffer [%d] start=%d free=%d " + "endfree=%d wrap=%d hi=%d", + curr, + (int) (tbctrl->start - trace_buffer_lo), + (int) (tbctrl->free - trace_buffer_lo), + (int) (tbctrl->end_free - trace_buffer_lo), + (int) (tbctrl->wrap - trace_buffer_lo), + (int) (trace_buffer_hi - trace_buffer_lo)); + } + + return rslt; +} + +#ifndef IN_PROCESS_AGENT + +/* Return the total free space. This is not necessarily the largest + block we can allocate, because of the two-part case. */ + +static int +free_space (void) +{ + if (trace_buffer_free <= trace_buffer_end_free) + return trace_buffer_end_free - trace_buffer_free; + else + return ((trace_buffer_end_free - trace_buffer_lo) + + (trace_buffer_hi - trace_buffer_free)); +} + +/* An 'S' in continuation packets indicates remainder are for + while-stepping. */ + +static int seen_step_action_flag; + +/* Create a tracepoint (location) with given number and address. Add this + new tracepoint to list and sort this list. */ + +static struct tracepoint * +add_tracepoint (int num, CORE_ADDR addr) +{ + struct tracepoint *tpoint, **tp_next; + + tpoint = XNEW (struct tracepoint); + tpoint->number = num; + tpoint->address = addr; + tpoint->numactions = 0; + tpoint->actions = NULL; + tpoint->actions_str = NULL; + tpoint->cond = NULL; + tpoint->num_step_actions = 0; + tpoint->step_actions = NULL; + tpoint->step_actions_str = NULL; + /* Start all off as regular (slow) tracepoints. */ + tpoint->type = trap_tracepoint; + tpoint->orig_size = -1; + tpoint->source_strings = NULL; + tpoint->compiled_cond = 0; + tpoint->handle = NULL; + tpoint->next = NULL; + + /* Find a place to insert this tracepoint into list in order to keep + the tracepoint list still in the ascending order. There may be + multiple tracepoints at the same address as TPOINT's, and this + guarantees TPOINT is inserted after all the tracepoints which are + set at the same address. For example, fast tracepoints A, B, C are + set at the same address, and D is to be insert at the same place as + well, + + -->| A |--> | B |-->| C |->... + + One jump pad was created for tracepoint A, B, and C, and the target + address of A is referenced/used in jump pad. So jump pad will let + inferior jump to A. If D is inserted in front of A, like this, + + -->| D |-->| A |--> | B |-->| C |->... + + without updating jump pad, D is not reachable during collect, which + is wrong. As we can see, the order of B, C and D doesn't matter, but + A should always be the `first' one. */ + for (tp_next = &tracepoints; + (*tp_next) != NULL && (*tp_next)->address <= tpoint->address; + tp_next = &(*tp_next)->next) + ; + tpoint->next = *tp_next; + *tp_next = tpoint; + last_tracepoint = tpoint; + + seen_step_action_flag = 0; + + return tpoint; +} + +#ifndef IN_PROCESS_AGENT + +/* Return the tracepoint with the given number and address, or NULL. */ + +static struct tracepoint * +find_tracepoint (int id, CORE_ADDR addr) +{ + struct tracepoint *tpoint; + + for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) + if (tpoint->number == id && tpoint->address == addr) + return tpoint; + + return NULL; +} + +/* Remove TPOINT from global list. */ + +static void +remove_tracepoint (struct tracepoint *tpoint) +{ + struct tracepoint *tp, *tp_prev; + + for (tp = tracepoints, tp_prev = NULL; tp && tp != tpoint; + tp_prev = tp, tp = tp->next) + ; + + if (tp) + { + if (tp_prev) + tp_prev->next = tp->next; + else + tracepoints = tp->next; + + xfree (tp); + } +} + +/* There may be several tracepoints with the same number (because they + are "locations", in GDB parlance); return the next one after the + given tracepoint, or search from the beginning of the list if the + first argument is NULL. */ + +static struct tracepoint * +find_next_tracepoint_by_number (struct tracepoint *prev_tp, int num) +{ + struct tracepoint *tpoint; + + if (prev_tp) + tpoint = prev_tp->next; + else + tpoint = tracepoints; + for (; tpoint; tpoint = tpoint->next) + if (tpoint->number == num) + return tpoint; + + return NULL; +} + +#endif + +/* Append another action to perform when the tracepoint triggers. */ + +static void +add_tracepoint_action (struct tracepoint *tpoint, const char *packet) +{ + const char *act; + + if (*packet == 'S') + { + seen_step_action_flag = 1; + ++packet; + } + + act = packet; + + while (*act) + { + const char *act_start = act; + struct tracepoint_action *action = NULL; + + switch (*act) + { + case 'M': + { + struct collect_memory_action *maction = + XNEW (struct collect_memory_action); + ULONGEST basereg; + int is_neg; + + maction->base.type = *act; + action = &maction->base; + + ++act; + is_neg = (*act == '-'); + if (*act == '-') + ++act; + act = unpack_varlen_hex (act, &basereg); + ++act; + act = unpack_varlen_hex (act, &maction->addr); + ++act; + act = unpack_varlen_hex (act, &maction->len); + maction->basereg = (is_neg + ? - (int) basereg + : (int) basereg); + trace_debug ("Want to collect %s bytes at 0x%s (basereg %d)", + pulongest (maction->len), + paddress (maction->addr), maction->basereg); + break; + } + case 'R': + { + struct collect_registers_action *raction = + XNEW (struct collect_registers_action); + + raction->base.type = *act; + action = &raction->base; + + trace_debug ("Want to collect registers"); + ++act; + /* skip past hex digits of mask for now */ + while (isxdigit(*act)) + ++act; + break; + } + case 'L': + { + struct collect_static_trace_data_action *raction = + XNEW (struct collect_static_trace_data_action); + + raction->base.type = *act; + action = &raction->base; + + trace_debug ("Want to collect static trace data"); + ++act; + break; + } + case 'S': + trace_debug ("Unexpected step action, ignoring"); + ++act; + break; + case 'X': + { + struct eval_expr_action *xaction = XNEW (struct eval_expr_action); + + xaction->base.type = *act; + action = &xaction->base; + + trace_debug ("Want to evaluate expression"); + xaction->expr = gdb_parse_agent_expr (&act); + break; + } + default: + trace_debug ("unknown trace action '%c', ignoring...", *act); + break; + case '-': + break; + } + + if (action == NULL) + break; + + if (seen_step_action_flag) + { + tpoint->num_step_actions++; + + tpoint->step_actions + = XRESIZEVEC (struct tracepoint_action *, tpoint->step_actions, + tpoint->num_step_actions); + tpoint->step_actions_str + = XRESIZEVEC (char *, tpoint->step_actions_str, + tpoint->num_step_actions); + tpoint->step_actions[tpoint->num_step_actions - 1] = action; + tpoint->step_actions_str[tpoint->num_step_actions - 1] + = savestring (act_start, act - act_start); + } + else + { + tpoint->numactions++; + tpoint->actions + = XRESIZEVEC (struct tracepoint_action *, tpoint->actions, + tpoint->numactions); + tpoint->actions_str + = XRESIZEVEC (char *, tpoint->actions_str, tpoint->numactions); + tpoint->actions[tpoint->numactions - 1] = action; + tpoint->actions_str[tpoint->numactions - 1] + = savestring (act_start, act - act_start); + } + } +} + +#endif + +/* Find or create a trace state variable with the given number. */ + +static struct trace_state_variable * +get_trace_state_variable (int num) +{ + struct trace_state_variable *tsv; + +#ifdef IN_PROCESS_AGENT + /* Search for an existing variable. */ + for (tsv = alloced_trace_state_variables; tsv; tsv = tsv->next) + if (tsv->number == num) + return tsv; +#endif + + /* Search for an existing variable. */ + for (tsv = trace_state_variables; tsv; tsv = tsv->next) + if (tsv->number == num) + return tsv; + + return NULL; +} + +/* Find or create a trace state variable with the given number. */ + +static struct trace_state_variable * +create_trace_state_variable (int num, int gdb) +{ + struct trace_state_variable *tsv; + + tsv = get_trace_state_variable (num); + if (tsv != NULL) + return tsv; + + /* Create a new variable. */ + tsv = XNEW (struct trace_state_variable); + tsv->number = num; + tsv->initial_value = 0; + tsv->value = 0; + tsv->getter = NULL; + tsv->name = NULL; +#ifdef IN_PROCESS_AGENT + if (!gdb) + { + tsv->next = alloced_trace_state_variables; + alloced_trace_state_variables = tsv; + } + else +#endif + { + tsv->next = trace_state_variables; + trace_state_variables = tsv; + } + return tsv; +} + +/* This is needed for -Wmissing-declarations. */ +IP_AGENT_EXPORT_FUNC LONGEST get_trace_state_variable_value (int num); + +IP_AGENT_EXPORT_FUNC LONGEST +get_trace_state_variable_value (int num) +{ + struct trace_state_variable *tsv; + + tsv = get_trace_state_variable (num); + + if (!tsv) + { + trace_debug ("No trace state variable %d, skipping value get", num); + return 0; + } + + /* Call a getter function if we have one. While it's tempting to + set up something to only call the getter once per tracepoint hit, + it could run afoul of thread races. Better to let the getter + handle it directly, if necessary to worry about it. */ + if (tsv->getter) + tsv->value = (tsv->getter) (); + + trace_debug ("get_trace_state_variable_value(%d) ==> %s", + num, plongest (tsv->value)); + + return tsv->value; +} + +/* This is needed for -Wmissing-declarations. */ +IP_AGENT_EXPORT_FUNC void set_trace_state_variable_value (int num, + LONGEST val); + +IP_AGENT_EXPORT_FUNC void +set_trace_state_variable_value (int num, LONGEST val) +{ + struct trace_state_variable *tsv; + + tsv = get_trace_state_variable (num); + + if (!tsv) + { + trace_debug ("No trace state variable %d, skipping value set", num); + return; + } + + tsv->value = val; +} + +LONGEST +agent_get_trace_state_variable_value (int num) +{ + return get_trace_state_variable_value (num); +} + +void +agent_set_trace_state_variable_value (int num, LONGEST val) +{ + set_trace_state_variable_value (num, val); +} + +static void +set_trace_state_variable_name (int num, const char *name) +{ + struct trace_state_variable *tsv; + + tsv = get_trace_state_variable (num); + + if (!tsv) + { + trace_debug ("No trace state variable %d, skipping name set", num); + return; + } + + tsv->name = (char *) name; +} + +static void +set_trace_state_variable_getter (int num, LONGEST (*getter) (void)) +{ + struct trace_state_variable *tsv; + + tsv = get_trace_state_variable (num); + + if (!tsv) + { + trace_debug ("No trace state variable %d, skipping getter set", num); + return; + } + + tsv->getter = getter; +} + +/* Add a raw traceframe for the given tracepoint. */ + +static struct traceframe * +add_traceframe (struct tracepoint *tpoint) +{ + struct traceframe *tframe; + + tframe + = (struct traceframe *) trace_buffer_alloc (sizeof (struct traceframe)); + + if (tframe == NULL) + return NULL; + + tframe->tpnum = tpoint->number; + tframe->data_size = 0; + + return tframe; +} + +/* Add a block to the traceframe currently being worked on. */ + +static unsigned char * +add_traceframe_block (struct traceframe *tframe, + struct tracepoint *tpoint, int amt) +{ + unsigned char *block; + + if (!tframe) + return NULL; + + block = (unsigned char *) trace_buffer_alloc (amt); + + if (!block) + return NULL; + + gdb_assert (tframe->tpnum == tpoint->number); + + tframe->data_size += amt; + tpoint->traceframe_usage += amt; + + return block; +} + +/* Flag that the current traceframe is finished. */ + +static void +finish_traceframe (struct traceframe *tframe) +{ + ++traceframe_write_count; + ++traceframes_created; +} + +#ifndef IN_PROCESS_AGENT + +/* Given a traceframe number NUM, find the NUMth traceframe in the + buffer. */ + +static struct traceframe * +find_traceframe (int num) +{ + struct traceframe *tframe; + int tfnum = 0; + + for (tframe = FIRST_TRACEFRAME (); + tframe->tpnum != 0; + tframe = NEXT_TRACEFRAME (tframe)) + { + if (tfnum == num) + return tframe; + ++tfnum; + } + + return NULL; +} + +static CORE_ADDR +get_traceframe_address (struct traceframe *tframe) +{ + CORE_ADDR addr; + struct tracepoint *tpoint; + + addr = traceframe_get_pc (tframe); + + if (addr) + return addr; + + /* Fallback strategy, will be incorrect for while-stepping frames + and multi-location tracepoints. */ + tpoint = find_next_tracepoint_by_number (NULL, tframe->tpnum); + return tpoint->address; +} + +/* Search for the next traceframe whose address is inside or outside + the given range. */ + +static struct traceframe * +find_next_traceframe_in_range (CORE_ADDR lo, CORE_ADDR hi, int inside_p, + int *tfnump) +{ + client_state &cs = get_client_state (); + struct traceframe *tframe; + CORE_ADDR tfaddr; + + *tfnump = cs.current_traceframe + 1; + tframe = find_traceframe (*tfnump); + /* The search is not supposed to wrap around. */ + if (!tframe) + { + *tfnump = -1; + return NULL; + } + + for (; tframe->tpnum != 0; tframe = NEXT_TRACEFRAME (tframe)) + { + tfaddr = get_traceframe_address (tframe); + if (inside_p + ? (lo <= tfaddr && tfaddr <= hi) + : (lo > tfaddr || tfaddr > hi)) + return tframe; + ++*tfnump; + } + + *tfnump = -1; + return NULL; +} + +/* Search for the next traceframe recorded by the given tracepoint. + Note that for multi-location tracepoints, this will find whatever + location appears first. */ + +static struct traceframe * +find_next_traceframe_by_tracepoint (int num, int *tfnump) +{ + client_state &cs = get_client_state (); + struct traceframe *tframe; + + *tfnump = cs.current_traceframe + 1; + tframe = find_traceframe (*tfnump); + /* The search is not supposed to wrap around. */ + if (!tframe) + { + *tfnump = -1; + return NULL; + } + + for (; tframe->tpnum != 0; tframe = NEXT_TRACEFRAME (tframe)) + { + if (tframe->tpnum == num) + return tframe; + ++*tfnump; + } + + *tfnump = -1; + return NULL; +} + +#endif + +#ifndef IN_PROCESS_AGENT + +/* Clear all past trace state. */ + +static void +cmd_qtinit (char *packet) +{ + client_state &cs = get_client_state (); + struct trace_state_variable *tsv, *prev, *next; + + /* Can't do this command without a pid attached. */ + if (current_thread == NULL) + { + write_enn (packet); + return; + } + + /* Make sure we don't try to read from a trace frame. */ + cs.current_traceframe = -1; + + stop_tracing (); + + trace_debug ("Initializing the trace"); + + clear_installed_tracepoints (); + clear_readonly_regions (); + + tracepoints = NULL; + last_tracepoint = NULL; + + /* Clear out any leftover trace state variables. Ones with target + defined getters should be kept however. */ + prev = NULL; + tsv = trace_state_variables; + while (tsv) + { + trace_debug ("Looking at var %d", tsv->number); + if (tsv->getter == NULL) + { + next = tsv->next; + if (prev) + prev->next = next; + else + trace_state_variables = next; + trace_debug ("Deleting var %d", tsv->number); + free (tsv); + tsv = next; + } + else + { + prev = tsv; + tsv = tsv->next; + } + } + + clear_trace_buffer (); + clear_inferior_trace_buffer (); + + write_ok (packet); +} + +/* Unprobe the UST marker at ADDRESS. */ + +static void +unprobe_marker_at (CORE_ADDR address) +{ + char cmd[IPA_CMD_BUF_SIZE]; + + sprintf (cmd, "unprobe_marker_at:%s", paddress (address)); + run_inferior_command (cmd, strlen (cmd) + 1); +} + +/* Restore the program to its pre-tracing state. This routine may be called + in error situations, so it needs to be careful about only restoring + from known-valid bits. */ + +static void +clear_installed_tracepoints (void) +{ + struct tracepoint *tpoint; + struct tracepoint *prev_stpoint; + + pause_all (1); + + prev_stpoint = NULL; + + /* Restore any bytes overwritten by tracepoints. */ + for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) + { + /* Catch the case where we might try to remove a tracepoint that + was never actually installed. */ + if (tpoint->handle == NULL) + { + trace_debug ("Tracepoint %d at 0x%s was " + "never installed, nothing to clear", + tpoint->number, paddress (tpoint->address)); + continue; + } + + switch (tpoint->type) + { + case trap_tracepoint: + { + struct breakpoint *bp + = (struct breakpoint *) tpoint->handle; + + delete_breakpoint (bp); + } + break; + case fast_tracepoint: + { + struct fast_tracepoint_jump *jump + = (struct fast_tracepoint_jump *) tpoint->handle; + + delete_fast_tracepoint_jump (jump); + } + break; + case static_tracepoint: + if (prev_stpoint != NULL + && prev_stpoint->address == tpoint->address) + /* Nothing to do. We already unprobed a tracepoint set at + this marker address (and there can only be one probe + per marker). */ + ; + else + { + unprobe_marker_at (tpoint->address); + prev_stpoint = tpoint; + } + break; + } + + tpoint->handle = NULL; + } + + unpause_all (1); +} + +/* Parse a packet that defines a tracepoint. */ + +static void +cmd_qtdp (char *own_buf) +{ + int tppacket; + /* Whether there is a trailing hyphen at the end of the QTDP packet. */ + int trail_hyphen = 0; + ULONGEST num; + ULONGEST addr; + ULONGEST count; + struct tracepoint *tpoint; + const char *packet = own_buf; + + packet += strlen ("QTDP:"); + + /* A hyphen at the beginning marks a packet specifying actions for a + tracepoint already supplied. */ + tppacket = 1; + if (*packet == '-') + { + tppacket = 0; + ++packet; + } + packet = unpack_varlen_hex (packet, &num); + ++packet; /* skip a colon */ + packet = unpack_varlen_hex (packet, &addr); + ++packet; /* skip a colon */ + + /* See if we already have this tracepoint. */ + tpoint = find_tracepoint (num, addr); + + if (tppacket) + { + /* Duplicate tracepoints are never allowed. */ + if (tpoint) + { + trace_debug ("Tracepoint error: tracepoint %d" + " at 0x%s already exists", + (int) num, paddress (addr)); + write_enn (own_buf); + return; + } + + tpoint = add_tracepoint (num, addr); + + tpoint->enabled = (*packet == 'E'); + ++packet; /* skip 'E' */ + ++packet; /* skip a colon */ + packet = unpack_varlen_hex (packet, &count); + tpoint->step_count = count; + ++packet; /* skip a colon */ + packet = unpack_varlen_hex (packet, &count); + tpoint->pass_count = count; + /* See if we have any of the additional optional fields. */ + while (*packet == ':') + { + ++packet; + if (*packet == 'F') + { + tpoint->type = fast_tracepoint; + ++packet; + packet = unpack_varlen_hex (packet, &count); + tpoint->orig_size = count; + } + else if (*packet == 'S') + { + tpoint->type = static_tracepoint; + ++packet; + } + else if (*packet == 'X') + { + tpoint->cond = gdb_parse_agent_expr (&packet); + } + else if (*packet == '-') + break; + else if (*packet == '\0') + break; + else + trace_debug ("Unknown optional tracepoint field"); + } + if (*packet == '-') + { + trail_hyphen = 1; + trace_debug ("Also has actions\n"); + } + + trace_debug ("Defined %stracepoint %d at 0x%s, " + "enabled %d step %" PRIu64 " pass %" PRIu64, + tpoint->type == fast_tracepoint ? "fast " + : tpoint->type == static_tracepoint ? "static " : "", + tpoint->number, paddress (tpoint->address), tpoint->enabled, + tpoint->step_count, tpoint->pass_count); + } + else if (tpoint) + add_tracepoint_action (tpoint, packet); + else + { + trace_debug ("Tracepoint error: tracepoint %d at 0x%s not found", + (int) num, paddress (addr)); + write_enn (own_buf); + return; + } + + /* Install tracepoint during tracing only once for each tracepoint location. + For each tracepoint loc, GDB may send multiple QTDP packets, and we can + determine the last QTDP packet for one tracepoint location by checking + trailing hyphen in QTDP packet. */ + if (tracing && !trail_hyphen) + { + struct tracepoint *tp = NULL; + + /* Pause all threads temporarily while we patch tracepoints. */ + pause_all (0); + + /* download_tracepoint will update global `tracepoints' + list, so it is unsafe to leave threads in jump pad. */ + stabilize_threads (); + + /* Freeze threads. */ + pause_all (1); + + + if (tpoint->type != trap_tracepoint) + { + /* Find another fast or static tracepoint at the same address. */ + for (tp = tracepoints; tp; tp = tp->next) + { + if (tp->address == tpoint->address && tp->type == tpoint->type + && tp->number != tpoint->number) + break; + } + + /* TPOINT is installed at the same address as TP. */ + if (tp) + { + if (tpoint->type == fast_tracepoint) + clone_fast_tracepoint (tpoint, tp); + else if (tpoint->type == static_tracepoint) + tpoint->handle = (void *) -1; + } + } + + if (use_agent && tpoint->type == fast_tracepoint + && agent_capability_check (AGENT_CAPA_FAST_TRACE)) + { + /* Download and install fast tracepoint by agent. */ + if (tracepoint_send_agent (tpoint) == 0) + write_ok (own_buf); + else + { + write_enn (own_buf); + remove_tracepoint (tpoint); + } + } + else + { + download_tracepoint (tpoint); + + if (tpoint->type == trap_tracepoint || tp == NULL) + { + install_tracepoint (tpoint, own_buf); + if (strcmp (own_buf, "OK") != 0) + remove_tracepoint (tpoint); + } + else + write_ok (own_buf); + } + + unpause_all (1); + return; + } + + write_ok (own_buf); +} + +static void +cmd_qtdpsrc (char *own_buf) +{ + ULONGEST num, addr, start, slen; + struct tracepoint *tpoint; + const char *packet = own_buf; + const char *saved; + char *srctype, *src; + size_t nbytes; + struct source_string *last, *newlast; + + packet += strlen ("QTDPsrc:"); + + packet = unpack_varlen_hex (packet, &num); + ++packet; /* skip a colon */ + packet = unpack_varlen_hex (packet, &addr); + ++packet; /* skip a colon */ + + /* See if we already have this tracepoint. */ + tpoint = find_tracepoint (num, addr); + + if (!tpoint) + { + trace_debug ("Tracepoint error: tracepoint %d at 0x%s not found", + (int) num, paddress (addr)); + write_enn (own_buf); + return; + } + + saved = packet; + packet = strchr (packet, ':'); + srctype = (char *) xmalloc (packet - saved + 1); + memcpy (srctype, saved, packet - saved); + srctype[packet - saved] = '\0'; + ++packet; + packet = unpack_varlen_hex (packet, &start); + ++packet; /* skip a colon */ + packet = unpack_varlen_hex (packet, &slen); + ++packet; /* skip a colon */ + src = (char *) xmalloc (slen + 1); + nbytes = hex2bin (packet, (gdb_byte *) src, strlen (packet) / 2); + src[nbytes] = '\0'; + + newlast = XNEW (struct source_string); + newlast->type = srctype; + newlast->str = src; + newlast->next = NULL; + /* Always add a source string to the end of the list; + this keeps sequences of actions/commands in the right + order. */ + if (tpoint->source_strings) + { + for (last = tpoint->source_strings; last->next; last = last->next) + ; + last->next = newlast; + } + else + tpoint->source_strings = newlast; + + write_ok (own_buf); +} + +static void +cmd_qtdv (char *own_buf) +{ + ULONGEST num, val, builtin; + char *varname; + size_t nbytes; + struct trace_state_variable *tsv; + const char *packet = own_buf; + + packet += strlen ("QTDV:"); + + packet = unpack_varlen_hex (packet, &num); + ++packet; /* skip a colon */ + packet = unpack_varlen_hex (packet, &val); + ++packet; /* skip a colon */ + packet = unpack_varlen_hex (packet, &builtin); + ++packet; /* skip a colon */ + + nbytes = strlen (packet) / 2; + varname = (char *) xmalloc (nbytes + 1); + nbytes = hex2bin (packet, (gdb_byte *) varname, nbytes); + varname[nbytes] = '\0'; + + tsv = create_trace_state_variable (num, 1); + tsv->initial_value = (LONGEST) val; + tsv->name = varname; + + set_trace_state_variable_value (num, (LONGEST) val); + + write_ok (own_buf); +} + +static void +cmd_qtenable_disable (char *own_buf, int enable) +{ + const char *packet = own_buf; + ULONGEST num, addr; + struct tracepoint *tp; + + packet += strlen (enable ? "QTEnable:" : "QTDisable:"); + packet = unpack_varlen_hex (packet, &num); + ++packet; /* skip a colon */ + packet = unpack_varlen_hex (packet, &addr); + + tp = find_tracepoint (num, addr); + + if (tp) + { + if ((enable && tp->enabled) || (!enable && !tp->enabled)) + { + trace_debug ("Tracepoint %d at 0x%s is already %s", + (int) num, paddress (addr), + enable ? "enabled" : "disabled"); + write_ok (own_buf); + return; + } + + trace_debug ("%s tracepoint %d at 0x%s", + enable ? "Enabling" : "Disabling", + (int) num, paddress (addr)); + + tp->enabled = enable; + + if (tp->type == fast_tracepoint || tp->type == static_tracepoint) + { + int ret; + int offset = offsetof (struct tracepoint, enabled); + CORE_ADDR obj_addr = tp->obj_addr_on_target + offset; + + ret = prepare_to_access_memory (); + if (ret) + { + trace_debug ("Failed to temporarily stop inferior threads"); + write_enn (own_buf); + return; + } + + ret = write_inferior_int8 (obj_addr, enable); + done_accessing_memory (); + + if (ret) + { + trace_debug ("Cannot write enabled flag into " + "inferior process memory"); + write_enn (own_buf); + return; + } + } + + write_ok (own_buf); + } + else + { + trace_debug ("Tracepoint %d at 0x%s not found", + (int) num, paddress (addr)); + write_enn (own_buf); + } +} + +static void +cmd_qtv (char *own_buf) +{ + client_state &cs = get_client_state (); + ULONGEST num; + LONGEST val = 0; + int err; + char *packet = own_buf; + + packet += strlen ("qTV:"); + unpack_varlen_hex (packet, &num); + + if (cs.current_traceframe >= 0) + { + err = traceframe_read_tsv ((int) num, &val); + if (err) + { + strcpy (own_buf, "U"); + return; + } + } + /* Only make tsv's be undefined before the first trace run. After a + trace run is over, the user might want to see the last value of + the tsv, and it might not be available in a traceframe. */ + else if (!tracing && strcmp (tracing_stop_reason, "tnotrun") == 0) + { + strcpy (own_buf, "U"); + return; + } + else + val = get_trace_state_variable_value (num); + + sprintf (own_buf, "V%s", phex_nz (val, 0)); +} + +/* Clear out the list of readonly regions. */ + +static void +clear_readonly_regions (void) +{ + struct readonly_region *roreg; + + while (readonly_regions) + { + roreg = readonly_regions; + readonly_regions = readonly_regions->next; + free (roreg); + } +} + +/* Parse the collection of address ranges whose contents GDB believes + to be unchanging and so can be read directly from target memory + even while looking at a traceframe. */ + +static void +cmd_qtro (char *own_buf) +{ + ULONGEST start, end; + struct readonly_region *roreg; + const char *packet = own_buf; + + trace_debug ("Want to mark readonly regions"); + + clear_readonly_regions (); + + packet += strlen ("QTro"); + + while (*packet == ':') + { + ++packet; /* skip a colon */ + packet = unpack_varlen_hex (packet, &start); + ++packet; /* skip a comma */ + packet = unpack_varlen_hex (packet, &end); + + roreg = XNEW (struct readonly_region); + roreg->start = start; + roreg->end = end; + roreg->next = readonly_regions; + readonly_regions = roreg; + trace_debug ("Added readonly region from 0x%s to 0x%s", + paddress (roreg->start), paddress (roreg->end)); + } + + write_ok (own_buf); +} + +/* Test to see if the given range is in our list of readonly ranges. + We only test for being entirely within a range, GDB is not going to + send a single memory packet that spans multiple regions. */ + +int +in_readonly_region (CORE_ADDR addr, ULONGEST length) +{ + struct readonly_region *roreg; + + for (roreg = readonly_regions; roreg; roreg = roreg->next) + if (roreg->start <= addr && (addr + length - 1) <= roreg->end) + return 1; + + return 0; +} + +static CORE_ADDR gdb_jump_pad_head; + +/* Return the address of the next free jump space. */ + +static CORE_ADDR +get_jump_space_head (void) +{ + if (gdb_jump_pad_head == 0) + { + if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_jump_pad_buffer, + &gdb_jump_pad_head)) + { + internal_error (__FILE__, __LINE__, + "error extracting jump_pad_buffer"); + } + } + + return gdb_jump_pad_head; +} + +/* Reserve USED bytes from the jump space. */ + +static void +claim_jump_space (ULONGEST used) +{ + trace_debug ("claim_jump_space reserves %s bytes at %s", + pulongest (used), paddress (gdb_jump_pad_head)); + gdb_jump_pad_head += used; +} + +static CORE_ADDR trampoline_buffer_head = 0; +static CORE_ADDR trampoline_buffer_tail; + +/* Reserve USED bytes from the trampoline buffer and return the + address of the start of the reserved space in TRAMPOLINE. Returns + non-zero if the space is successfully claimed. */ + +int +claim_trampoline_space (ULONGEST used, CORE_ADDR *trampoline) +{ + if (!trampoline_buffer_head) + { + if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_trampoline_buffer, + &trampoline_buffer_tail)) + { + internal_error (__FILE__, __LINE__, + "error extracting trampoline_buffer"); + } + + if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_trampoline_buffer_end, + &trampoline_buffer_head)) + { + internal_error (__FILE__, __LINE__, + "error extracting trampoline_buffer_end"); + } + } + + /* Start claiming space from the top of the trampoline space. If + the space is located at the bottom of the virtual address space, + this reduces the possibility that corruption will occur if a null + pointer is used to write to memory. */ + if (trampoline_buffer_head - trampoline_buffer_tail < used) + { + trace_debug ("claim_trampoline_space failed to reserve %s bytes", + pulongest (used)); + return 0; + } + + trampoline_buffer_head -= used; + + trace_debug ("claim_trampoline_space reserves %s bytes at %s", + pulongest (used), paddress (trampoline_buffer_head)); + + *trampoline = trampoline_buffer_head; + return 1; +} + +/* Returns non-zero if there is space allocated for use in trampolines + for fast tracepoints. */ + +int +have_fast_tracepoint_trampoline_buffer (char *buf) +{ + CORE_ADDR trampoline_end, errbuf; + + if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_trampoline_buffer_end, + &trampoline_end)) + { + internal_error (__FILE__, __LINE__, + "error extracting trampoline_buffer_end"); + } + + if (buf) + { + buf[0] = '\0'; + strcpy (buf, "was claiming"); + if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_trampoline_buffer_error, + &errbuf)) + { + internal_error (__FILE__, __LINE__, + "error extracting errbuf"); + } + + read_inferior_memory (errbuf, (unsigned char *) buf, 100); + } + + return trampoline_end != 0; +} + +/* Ask the IPA to probe the marker at ADDRESS. Returns -1 if running + the command fails, or 0 otherwise. If the command ran + successfully, but probing the marker failed, ERROUT will be filled + with the error to reply to GDB, and -1 is also returned. This + allows directly passing IPA errors to GDB. */ + +static int +probe_marker_at (CORE_ADDR address, char *errout) +{ + char cmd[IPA_CMD_BUF_SIZE]; + int err; + + sprintf (cmd, "probe_marker_at:%s", paddress (address)); + err = run_inferior_command (cmd, strlen (cmd) + 1); + + if (err == 0) + { + if (*cmd == 'E') + { + strcpy (errout, cmd); + return -1; + } + } + + return err; +} + +static void +clone_fast_tracepoint (struct tracepoint *to, const struct tracepoint *from) +{ + to->jump_pad = from->jump_pad; + to->jump_pad_end = from->jump_pad_end; + to->trampoline = from->trampoline; + to->trampoline_end = from->trampoline_end; + to->adjusted_insn_addr = from->adjusted_insn_addr; + to->adjusted_insn_addr_end = from->adjusted_insn_addr_end; + to->handle = from->handle; + + gdb_assert (from->handle); + inc_ref_fast_tracepoint_jump ((struct fast_tracepoint_jump *) from->handle); +} + +#define MAX_JUMP_SIZE 20 + +/* Install fast tracepoint. Return 0 if successful, otherwise return + non-zero. */ + +static int +install_fast_tracepoint (struct tracepoint *tpoint, char *errbuf) +{ + CORE_ADDR jentry, jump_entry; + CORE_ADDR trampoline; + CORE_ADDR collect; + ULONGEST trampoline_size; + int err = 0; + /* The jump to the jump pad of the last fast tracepoint + installed. */ + unsigned char fjump[MAX_JUMP_SIZE]; + ULONGEST fjump_size; + + if (tpoint->orig_size < target_get_min_fast_tracepoint_insn_len ()) + { + trace_debug ("Requested a fast tracepoint on an instruction " + "that is of less than the minimum length."); + return 0; + } + + if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_collect_ptr, + &collect)) + { + error ("error extracting gdb_collect_ptr"); + return 1; + } + + jentry = jump_entry = get_jump_space_head (); + + trampoline = 0; + trampoline_size = 0; + + /* Install the jump pad. */ + err = install_fast_tracepoint_jump_pad (tpoint->obj_addr_on_target, + tpoint->address, + collect, + ipa_sym_addrs.addr_collecting, + tpoint->orig_size, + &jentry, + &trampoline, &trampoline_size, + fjump, &fjump_size, + &tpoint->adjusted_insn_addr, + &tpoint->adjusted_insn_addr_end, + errbuf); + + if (err) + return 1; + + /* Wire it in. */ + tpoint->handle = set_fast_tracepoint_jump (tpoint->address, fjump, + fjump_size); + + if (tpoint->handle != NULL) + { + tpoint->jump_pad = jump_entry; + tpoint->jump_pad_end = jentry; + tpoint->trampoline = trampoline; + tpoint->trampoline_end = trampoline + trampoline_size; + + /* Pad to 8-byte alignment. */ + jentry = ((jentry + 7) & ~0x7); + claim_jump_space (jentry - jump_entry); + } + + return 0; +} + + +/* Install tracepoint TPOINT, and write reply message in OWN_BUF. */ + +static void +install_tracepoint (struct tracepoint *tpoint, char *own_buf) +{ + tpoint->handle = NULL; + *own_buf = '\0'; + + if (tpoint->type == trap_tracepoint) + { + /* Tracepoints are installed as memory breakpoints. Just go + ahead and install the trap. The breakpoints module + handles duplicated breakpoints, and the memory read + routine handles un-patching traps from memory reads. */ + tpoint->handle = set_breakpoint_at (tpoint->address, + tracepoint_handler); + } + else if (tpoint->type == fast_tracepoint || tpoint->type == static_tracepoint) + { + if (!agent_loaded_p ()) + { + trace_debug ("Requested a %s tracepoint, but fast " + "tracepoints aren't supported.", + tpoint->type == static_tracepoint ? "static" : "fast"); + write_e_ipa_not_loaded (own_buf); + return; + } + if (tpoint->type == static_tracepoint + && !in_process_agent_supports_ust ()) + { + trace_debug ("Requested a static tracepoint, but static " + "tracepoints are not supported."); + write_e_ust_not_loaded (own_buf); + return; + } + + if (tpoint->type == fast_tracepoint) + install_fast_tracepoint (tpoint, own_buf); + else + { + if (probe_marker_at (tpoint->address, own_buf) == 0) + tpoint->handle = (void *) -1; + } + + } + else + internal_error (__FILE__, __LINE__, "Unknown tracepoint type"); + + if (tpoint->handle == NULL) + { + if (*own_buf == '\0') + write_enn (own_buf); + } + else + write_ok (own_buf); +} + +static void download_tracepoint_1 (struct tracepoint *tpoint); + +static void +cmd_qtstart (char *packet) +{ + struct tracepoint *tpoint, *prev_ftpoint, *prev_stpoint; + CORE_ADDR tpptr = 0, prev_tpptr = 0; + + trace_debug ("Starting the trace"); + + /* Pause all threads temporarily while we patch tracepoints. */ + pause_all (0); + + /* Get threads out of jump pads. Safe to do here, since this is a + top level command. And, required to do here, since we're + deleting/rewriting jump pads. */ + + stabilize_threads (); + + /* Freeze threads. */ + pause_all (1); + + /* Sync the fast tracepoints list in the inferior ftlib. */ + if (agent_loaded_p ()) + download_trace_state_variables (); + + /* No previous fast tpoint yet. */ + prev_ftpoint = NULL; + + /* No previous static tpoint yet. */ + prev_stpoint = NULL; + + *packet = '\0'; + + if (agent_loaded_p ()) + { + /* Tell IPA about the correct tdesc. */ + if (write_inferior_integer (ipa_sym_addrs.addr_ipa_tdesc_idx, + target_get_ipa_tdesc_idx ())) + error ("Error setting ipa_tdesc_idx variable in lib"); + } + + /* Start out empty. */ + if (agent_loaded_p ()) + write_inferior_data_pointer (ipa_sym_addrs.addr_tracepoints, 0); + + /* Download and install tracepoints. */ + for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) + { + /* Ensure all the hit counts start at zero. */ + tpoint->hit_count = 0; + tpoint->traceframe_usage = 0; + + if (tpoint->type == trap_tracepoint) + { + /* Tracepoints are installed as memory breakpoints. Just go + ahead and install the trap. The breakpoints module + handles duplicated breakpoints, and the memory read + routine handles un-patching traps from memory reads. */ + tpoint->handle = set_breakpoint_at (tpoint->address, + tracepoint_handler); + } + else if (tpoint->type == fast_tracepoint + || tpoint->type == static_tracepoint) + { + if (maybe_write_ipa_not_loaded (packet)) + { + trace_debug ("Requested a %s tracepoint, but fast " + "tracepoints aren't supported.", + tpoint->type == static_tracepoint + ? "static" : "fast"); + break; + } + + if (tpoint->type == fast_tracepoint) + { + int use_agent_p + = use_agent && agent_capability_check (AGENT_CAPA_FAST_TRACE); + + if (prev_ftpoint != NULL + && prev_ftpoint->address == tpoint->address) + { + if (use_agent_p) + tracepoint_send_agent (tpoint); + else + download_tracepoint_1 (tpoint); + + clone_fast_tracepoint (tpoint, prev_ftpoint); + } + else + { + /* Tracepoint is installed successfully? */ + int installed = 0; + + /* Download and install fast tracepoint by agent. */ + if (use_agent_p) + installed = !tracepoint_send_agent (tpoint); + else + { + download_tracepoint_1 (tpoint); + installed = !install_fast_tracepoint (tpoint, packet); + } + + if (installed) + prev_ftpoint = tpoint; + } + } + else + { + if (!in_process_agent_supports_ust ()) + { + trace_debug ("Requested a static tracepoint, but static " + "tracepoints are not supported."); + break; + } + + download_tracepoint_1 (tpoint); + /* Can only probe a given marker once. */ + if (prev_stpoint != NULL + && prev_stpoint->address == tpoint->address) + tpoint->handle = (void *) -1; + else + { + if (probe_marker_at (tpoint->address, packet) == 0) + { + tpoint->handle = (void *) -1; + + /* So that we can handle multiple static tracepoints + at the same address easily. */ + prev_stpoint = tpoint; + } + } + } + + prev_tpptr = tpptr; + tpptr = tpoint->obj_addr_on_target; + + if (tpoint == tracepoints) + /* First object in list, set the head pointer in the + inferior. */ + write_inferior_data_pointer (ipa_sym_addrs.addr_tracepoints, tpptr); + else + write_inferior_data_pointer (prev_tpptr + + offsetof (struct tracepoint, next), + tpptr); + } + + /* Any failure in the inner loop is sufficient cause to give + up. */ + if (tpoint->handle == NULL) + break; + } + + /* Any error in tracepoint insertion is unacceptable; better to + address the problem now, than end up with a useless or misleading + trace run. */ + if (tpoint != NULL) + { + clear_installed_tracepoints (); + if (*packet == '\0') + write_enn (packet); + unpause_all (1); + return; + } + + stopping_tracepoint = NULL; + trace_buffer_is_full = 0; + expr_eval_result = expr_eval_no_error; + error_tracepoint = NULL; + tracing_start_time = get_timestamp (); + + /* Tracing is now active, hits will now start being logged. */ + tracing = 1; + + if (agent_loaded_p ()) + { + if (write_inferior_integer (ipa_sym_addrs.addr_tracing, 1)) + { + internal_error (__FILE__, __LINE__, + "Error setting tracing variable in lib"); + } + + if (write_inferior_data_pointer (ipa_sym_addrs.addr_stopping_tracepoint, + 0)) + { + internal_error (__FILE__, __LINE__, + "Error clearing stopping_tracepoint variable" + " in lib"); + } + + if (write_inferior_integer (ipa_sym_addrs.addr_trace_buffer_is_full, 0)) + { + internal_error (__FILE__, __LINE__, + "Error clearing trace_buffer_is_full variable" + " in lib"); + } + + stop_tracing_bkpt = set_breakpoint_at (ipa_sym_addrs.addr_stop_tracing, + stop_tracing_handler); + if (stop_tracing_bkpt == NULL) + error ("Error setting stop_tracing breakpoint"); + + flush_trace_buffer_bkpt + = set_breakpoint_at (ipa_sym_addrs.addr_flush_trace_buffer, + flush_trace_buffer_handler); + if (flush_trace_buffer_bkpt == NULL) + error ("Error setting flush_trace_buffer breakpoint"); + } + + unpause_all (1); + + write_ok (packet); +} + +/* End a tracing run, filling in a stop reason to report back to GDB, + and removing the tracepoints from the code. */ + +void +stop_tracing (void) +{ + if (!tracing) + { + trace_debug ("Tracing is already off, ignoring"); + return; + } + + trace_debug ("Stopping the trace"); + + /* Pause all threads before removing fast jumps from memory, + breakpoints, and touching IPA state variables (inferior memory). + Some thread may hit the internal tracing breakpoints, or be + collecting this moment, but that's ok, we don't release the + tpoint object's memory or the jump pads here (we only do that + when we're sure we can move all threads out of the jump pads). + We can't now, since we may be getting here due to the inferior + agent calling us. */ + pause_all (1); + + /* Stop logging. Tracepoints can still be hit, but they will not be + recorded. */ + tracing = 0; + if (agent_loaded_p ()) + { + if (write_inferior_integer (ipa_sym_addrs.addr_tracing, 0)) + { + internal_error (__FILE__, __LINE__, + "Error clearing tracing variable in lib"); + } + } + + tracing_stop_time = get_timestamp (); + tracing_stop_reason = "t???"; + tracing_stop_tpnum = 0; + if (stopping_tracepoint) + { + trace_debug ("Stopping the trace because " + "tracepoint %d was hit %" PRIu64 " times", + stopping_tracepoint->number, + stopping_tracepoint->pass_count); + tracing_stop_reason = "tpasscount"; + tracing_stop_tpnum = stopping_tracepoint->number; + } + else if (trace_buffer_is_full) + { + trace_debug ("Stopping the trace because the trace buffer is full"); + tracing_stop_reason = "tfull"; + } + else if (expr_eval_result != expr_eval_no_error) + { + trace_debug ("Stopping the trace because of an expression eval error"); + tracing_stop_reason = eval_result_names[expr_eval_result]; + tracing_stop_tpnum = error_tracepoint->number; + } +#ifndef IN_PROCESS_AGENT + else if (!gdb_connected ()) + { + trace_debug ("Stopping the trace because GDB disconnected"); + tracing_stop_reason = "tdisconnected"; + } +#endif + else + { + trace_debug ("Stopping the trace because of a tstop command"); + tracing_stop_reason = "tstop"; + } + + stopping_tracepoint = NULL; + error_tracepoint = NULL; + + /* Clear out the tracepoints. */ + clear_installed_tracepoints (); + + if (agent_loaded_p ()) + { + /* Pull in fast tracepoint trace frames from the inferior lib + buffer into our buffer, even if our buffer is already full, + because we want to present the full number of created frames + in addition to what fit in the trace buffer. */ + upload_fast_traceframes (); + } + + if (stop_tracing_bkpt != NULL) + { + delete_breakpoint (stop_tracing_bkpt); + stop_tracing_bkpt = NULL; + } + + if (flush_trace_buffer_bkpt != NULL) + { + delete_breakpoint (flush_trace_buffer_bkpt); + flush_trace_buffer_bkpt = NULL; + } + + unpause_all (1); +} + +static int +stop_tracing_handler (CORE_ADDR addr) +{ + trace_debug ("lib hit stop_tracing"); + + /* Don't actually handle it here. When we stop tracing we remove + breakpoints from the inferior, and that is not allowed in a + breakpoint handler (as the caller is walking the breakpoint + list). */ + return 0; +} + +static int +flush_trace_buffer_handler (CORE_ADDR addr) +{ + trace_debug ("lib hit flush_trace_buffer"); + return 0; +} + +static void +cmd_qtstop (char *packet) +{ + stop_tracing (); + write_ok (packet); +} + +static void +cmd_qtdisconnected (char *own_buf) +{ + ULONGEST setting; + char *packet = own_buf; + + packet += strlen ("QTDisconnected:"); + + unpack_varlen_hex (packet, &setting); + + write_ok (own_buf); + + disconnected_tracing = setting; +} + +static void +cmd_qtframe (char *own_buf) +{ + client_state &cs = get_client_state (); + ULONGEST frame, pc, lo, hi, num; + int tfnum, tpnum; + struct traceframe *tframe; + const char *packet = own_buf; + + packet += strlen ("QTFrame:"); + + if (startswith (packet, "pc:")) + { + packet += strlen ("pc:"); + unpack_varlen_hex (packet, &pc); + trace_debug ("Want to find next traceframe at pc=0x%s", paddress (pc)); + tframe = find_next_traceframe_in_range (pc, pc, 1, &tfnum); + } + else if (startswith (packet, "range:")) + { + packet += strlen ("range:"); + packet = unpack_varlen_hex (packet, &lo); + ++packet; + unpack_varlen_hex (packet, &hi); + trace_debug ("Want to find next traceframe in the range 0x%s to 0x%s", + paddress (lo), paddress (hi)); + tframe = find_next_traceframe_in_range (lo, hi, 1, &tfnum); + } + else if (startswith (packet, "outside:")) + { + packet += strlen ("outside:"); + packet = unpack_varlen_hex (packet, &lo); + ++packet; + unpack_varlen_hex (packet, &hi); + trace_debug ("Want to find next traceframe " + "outside the range 0x%s to 0x%s", + paddress (lo), paddress (hi)); + tframe = find_next_traceframe_in_range (lo, hi, 0, &tfnum); + } + else if (startswith (packet, "tdp:")) + { + packet += strlen ("tdp:"); + unpack_varlen_hex (packet, &num); + tpnum = (int) num; + trace_debug ("Want to find next traceframe for tracepoint %d", tpnum); + tframe = find_next_traceframe_by_tracepoint (tpnum, &tfnum); + } + else + { + unpack_varlen_hex (packet, &frame); + tfnum = (int) frame; + if (tfnum == -1) + { + trace_debug ("Want to stop looking at traceframes"); + cs.current_traceframe = -1; + write_ok (own_buf); + return; + } + trace_debug ("Want to look at traceframe %d", tfnum); + tframe = find_traceframe (tfnum); + } + + if (tframe) + { + cs.current_traceframe = tfnum; + sprintf (own_buf, "F%xT%x", tfnum, tframe->tpnum); + } + else + sprintf (own_buf, "F-1"); +} + +static void +cmd_qtstatus (char *packet) +{ + char *stop_reason_rsp = NULL; + char *buf1, *buf2, *buf3; + const char *str; + int slen; + + /* Translate the plain text of the notes back into hex for + transmission. */ + + str = (tracing_user_name ? tracing_user_name : ""); + slen = strlen (str); + buf1 = (char *) alloca (slen * 2 + 1); + bin2hex ((gdb_byte *) str, buf1, slen); + + str = (tracing_notes ? tracing_notes : ""); + slen = strlen (str); + buf2 = (char *) alloca (slen * 2 + 1); + bin2hex ((gdb_byte *) str, buf2, slen); + + str = (tracing_stop_note ? tracing_stop_note : ""); + slen = strlen (str); + buf3 = (char *) alloca (slen * 2 + 1); + bin2hex ((gdb_byte *) str, buf3, slen); + + trace_debug ("Returning trace status as %d, stop reason %s", + tracing, tracing_stop_reason); + + if (agent_loaded_p ()) + { + pause_all (1); + + upload_fast_traceframes (); + + unpause_all (1); + } + + stop_reason_rsp = (char *) tracing_stop_reason; + + /* The user visible error string in terror needs to be hex encoded. + We leave it as plain string in `tracing_stop_reason' to ease + debugging. */ + if (startswith (stop_reason_rsp, "terror:")) + { + const char *result_name; + int hexstr_len; + char *p; + + result_name = stop_reason_rsp + strlen ("terror:"); + hexstr_len = strlen (result_name) * 2; + p = stop_reason_rsp + = (char *) alloca (strlen ("terror:") + hexstr_len + 1); + strcpy (p, "terror:"); + p += strlen (p); + bin2hex ((gdb_byte *) result_name, p, strlen (result_name)); + } + + /* If this was a forced stop, include any stop note that was supplied. */ + if (strcmp (stop_reason_rsp, "tstop") == 0) + { + stop_reason_rsp = (char *) alloca (strlen ("tstop:") + strlen (buf3) + 1); + strcpy (stop_reason_rsp, "tstop:"); + strcat (stop_reason_rsp, buf3); + } + + sprintf (packet, + "T%d;" + "%s:%x;" + "tframes:%x;tcreated:%x;" + "tfree:%x;tsize:%s;" + "circular:%d;" + "disconn:%d;" + "starttime:%s;stoptime:%s;" + "username:%s;notes:%s:", + tracing ? 1 : 0, + stop_reason_rsp, tracing_stop_tpnum, + traceframe_count, traceframes_created, + free_space (), phex_nz (trace_buffer_hi - trace_buffer_lo, 0), + circular_trace_buffer, + disconnected_tracing, + phex_nz (tracing_start_time, sizeof (tracing_start_time)), + phex_nz (tracing_stop_time, sizeof (tracing_stop_time)), + buf1, buf2); +} + +static void +cmd_qtp (char *own_buf) +{ + ULONGEST num, addr; + struct tracepoint *tpoint; + const char *packet = own_buf; + + packet += strlen ("qTP:"); + + packet = unpack_varlen_hex (packet, &num); + ++packet; /* skip a colon */ + packet = unpack_varlen_hex (packet, &addr); + + /* See if we already have this tracepoint. */ + tpoint = find_tracepoint (num, addr); + + if (!tpoint) + { + trace_debug ("Tracepoint error: tracepoint %d at 0x%s not found", + (int) num, paddress (addr)); + write_enn (own_buf); + return; + } + + sprintf (own_buf, "V%" PRIu64 ":%" PRIu64 "", tpoint->hit_count, + tpoint->traceframe_usage); +} + +/* State variables to help return all the tracepoint bits. */ +static struct tracepoint *cur_tpoint; +static unsigned int cur_action; +static unsigned int cur_step_action; +static struct source_string *cur_source_string; +static struct trace_state_variable *cur_tsv; + +/* Compose a response that is an imitation of the syntax by which the + tracepoint was originally downloaded. */ + +static void +response_tracepoint (char *packet, struct tracepoint *tpoint) +{ + char *buf; + + sprintf (packet, "T%x:%s:%c:%" PRIx64 ":%" PRIx64, tpoint->number, + paddress (tpoint->address), + (tpoint->enabled ? 'E' : 'D'), tpoint->step_count, + tpoint->pass_count); + if (tpoint->type == fast_tracepoint) + sprintf (packet + strlen (packet), ":F%x", tpoint->orig_size); + else if (tpoint->type == static_tracepoint) + sprintf (packet + strlen (packet), ":S"); + + if (tpoint->cond) + { + buf = gdb_unparse_agent_expr (tpoint->cond); + sprintf (packet + strlen (packet), ":X%x,%s", + tpoint->cond->length, buf); + free (buf); + } +} + +/* Compose a response that is an imitation of the syntax by which the + tracepoint action was originally downloaded (with the difference + that due to the way we store the actions, this will output a packet + per action, while GDB could have combined more than one action + per-packet. */ + +static void +response_action (char *packet, struct tracepoint *tpoint, + char *taction, int step) +{ + sprintf (packet, "%c%x:%s:%s", + (step ? 'S' : 'A'), tpoint->number, paddress (tpoint->address), + taction); +} + +/* Compose a response that is an imitation of the syntax by which the + tracepoint source piece was originally downloaded. */ + +static void +response_source (char *packet, + struct tracepoint *tpoint, struct source_string *src) +{ + char *buf; + int len; + + len = strlen (src->str); + buf = (char *) alloca (len * 2 + 1); + bin2hex ((gdb_byte *) src->str, buf, len); + + sprintf (packet, "Z%x:%s:%s:%x:%x:%s", + tpoint->number, paddress (tpoint->address), + src->type, 0, len, buf); +} + +/* Return the first piece of tracepoint definition, and initialize the + state machine that will iterate through all the tracepoint + bits. */ + +static void +cmd_qtfp (char *packet) +{ + trace_debug ("Returning first tracepoint definition piece"); + + cur_tpoint = tracepoints; + cur_action = cur_step_action = 0; + cur_source_string = NULL; + + if (cur_tpoint) + response_tracepoint (packet, cur_tpoint); + else + strcpy (packet, "l"); +} + +/* Return additional pieces of tracepoint definition. Each action and + stepping action must go into its own packet, because of packet size + limits, and so we use state variables to deliver one piece at a + time. */ + +static void +cmd_qtsp (char *packet) +{ + trace_debug ("Returning subsequent tracepoint definition piece"); + + if (!cur_tpoint) + { + /* This case would normally never occur, but be prepared for + GDB misbehavior. */ + strcpy (packet, "l"); + } + else if (cur_action < cur_tpoint->numactions) + { + response_action (packet, cur_tpoint, + cur_tpoint->actions_str[cur_action], 0); + ++cur_action; + } + else if (cur_step_action < cur_tpoint->num_step_actions) + { + response_action (packet, cur_tpoint, + cur_tpoint->step_actions_str[cur_step_action], 1); + ++cur_step_action; + } + else if ((cur_source_string + ? cur_source_string->next + : cur_tpoint->source_strings)) + { + if (cur_source_string) + cur_source_string = cur_source_string->next; + else + cur_source_string = cur_tpoint->source_strings; + response_source (packet, cur_tpoint, cur_source_string); + } + else + { + cur_tpoint = cur_tpoint->next; + cur_action = cur_step_action = 0; + cur_source_string = NULL; + if (cur_tpoint) + response_tracepoint (packet, cur_tpoint); + else + strcpy (packet, "l"); + } +} + +/* Compose a response that is an imitation of the syntax by which the + trace state variable was originally downloaded. */ + +static void +response_tsv (char *packet, struct trace_state_variable *tsv) +{ + char *buf = (char *) ""; + int namelen; + + if (tsv->name) + { + namelen = strlen (tsv->name); + buf = (char *) alloca (namelen * 2 + 1); + bin2hex ((gdb_byte *) tsv->name, buf, namelen); + } + + sprintf (packet, "%x:%s:%x:%s", tsv->number, phex_nz (tsv->initial_value, 0), + tsv->getter ? 1 : 0, buf); +} + +/* Return the first trace state variable definition, and initialize + the state machine that will iterate through all the tsv bits. */ + +static void +cmd_qtfv (char *packet) +{ + trace_debug ("Returning first trace state variable definition"); + + cur_tsv = trace_state_variables; + + if (cur_tsv) + response_tsv (packet, cur_tsv); + else + strcpy (packet, "l"); +} + +/* Return additional trace state variable definitions. */ + +static void +cmd_qtsv (char *packet) +{ + trace_debug ("Returning additional trace state variable definition"); + + if (cur_tsv) + { + cur_tsv = cur_tsv->next; + if (cur_tsv) + response_tsv (packet, cur_tsv); + else + strcpy (packet, "l"); + } + else + strcpy (packet, "l"); +} + +/* Return the first static tracepoint marker, and initialize the state + machine that will iterate through all the static tracepoints + markers. */ + +static void +cmd_qtfstm (char *packet) +{ + if (!maybe_write_ipa_ust_not_loaded (packet)) + run_inferior_command (packet, strlen (packet) + 1); +} + +/* Return additional static tracepoints markers. */ + +static void +cmd_qtsstm (char *packet) +{ + if (!maybe_write_ipa_ust_not_loaded (packet)) + run_inferior_command (packet, strlen (packet) + 1); +} + +/* Return the definition of the static tracepoint at a given address. + Result packet is the same as qTsST's. */ + +static void +cmd_qtstmat (char *packet) +{ + if (!maybe_write_ipa_ust_not_loaded (packet)) + run_inferior_command (packet, strlen (packet) + 1); +} + +/* Sent the agent a command to close it. */ + +void +gdb_agent_about_to_close (int pid) +{ + char buf[IPA_CMD_BUF_SIZE]; + + if (!maybe_write_ipa_not_loaded (buf)) + { + struct thread_info *saved_thread; + + saved_thread = current_thread; + + /* Find any thread which belongs to process PID. */ + current_thread = find_any_thread_of_pid (pid); + + strcpy (buf, "close"); + + run_inferior_command (buf, strlen (buf) + 1); + + current_thread = saved_thread; + } +} + +/* Return the minimum instruction size needed for fast tracepoints as a + hexadecimal number. */ + +static void +cmd_qtminftpilen (char *packet) +{ + if (current_thread == NULL) + { + /* Indicate that the minimum length is currently unknown. */ + strcpy (packet, "0"); + return; + } + + sprintf (packet, "%x", target_get_min_fast_tracepoint_insn_len ()); +} + +/* Respond to qTBuffer packet with a block of raw data from the trace + buffer. GDB may ask for a lot, but we are allowed to reply with + only as much as will fit within packet limits or whatever. */ + +static void +cmd_qtbuffer (char *own_buf) +{ + ULONGEST offset, num, tot; + unsigned char *tbp; + const char *packet = own_buf; + + packet += strlen ("qTBuffer:"); + + packet = unpack_varlen_hex (packet, &offset); + ++packet; /* skip a comma */ + unpack_varlen_hex (packet, &num); + + trace_debug ("Want to get trace buffer, %d bytes at offset 0x%s", + (int) num, phex_nz (offset, 0)); + + tot = (trace_buffer_hi - trace_buffer_lo) - free_space (); + + /* If we're right at the end, reply specially that we're done. */ + if (offset == tot) + { + strcpy (own_buf, "l"); + return; + } + + /* Object to any other out-of-bounds request. */ + if (offset > tot) + { + write_enn (own_buf); + return; + } + + /* Compute the pointer corresponding to the given offset, accounting + for wraparound. */ + tbp = trace_buffer_start + offset; + if (tbp >= trace_buffer_wrap) + tbp -= (trace_buffer_wrap - trace_buffer_lo); + + /* Trim to the remaining bytes if we're close to the end. */ + if (num > tot - offset) + num = tot - offset; + + /* Trim to available packet size. */ + if (num >= (PBUFSIZ - 16) / 2 ) + num = (PBUFSIZ - 16) / 2; + + bin2hex (tbp, own_buf, num); +} + +static void +cmd_bigqtbuffer_circular (char *own_buf) +{ + ULONGEST val; + char *packet = own_buf; + + packet += strlen ("QTBuffer:circular:"); + + unpack_varlen_hex (packet, &val); + circular_trace_buffer = val; + trace_debug ("Trace buffer is now %s", + circular_trace_buffer ? "circular" : "linear"); + write_ok (own_buf); +} + +static void +cmd_bigqtbuffer_size (char *own_buf) +{ + ULONGEST val; + LONGEST sval; + char *packet = own_buf; + + /* Can't change the size during a tracing run. */ + if (tracing) + { + write_enn (own_buf); + return; + } + + packet += strlen ("QTBuffer:size:"); + + /* -1 is sent as literal "-1". */ + if (strcmp (packet, "-1") == 0) + sval = DEFAULT_TRACE_BUFFER_SIZE; + else + { + unpack_varlen_hex (packet, &val); + sval = (LONGEST) val; + } + + init_trace_buffer (sval); + trace_debug ("Trace buffer is now %s bytes", + plongest (trace_buffer_size)); + write_ok (own_buf); +} + +static void +cmd_qtnotes (char *own_buf) +{ + size_t nbytes; + char *saved, *user, *notes, *stopnote; + char *packet = own_buf; + + packet += strlen ("QTNotes:"); + + while (*packet) + { + if (startswith (packet, "user:")) + { + packet += strlen ("user:"); + saved = packet; + packet = strchr (packet, ';'); + nbytes = (packet - saved) / 2; + user = (char *) xmalloc (nbytes + 1); + nbytes = hex2bin (saved, (gdb_byte *) user, nbytes); + user[nbytes] = '\0'; + ++packet; /* skip the semicolon */ + trace_debug ("User is '%s'", user); + xfree (tracing_user_name); + tracing_user_name = user; + } + else if (startswith (packet, "notes:")) + { + packet += strlen ("notes:"); + saved = packet; + packet = strchr (packet, ';'); + nbytes = (packet - saved) / 2; + notes = (char *) xmalloc (nbytes + 1); + nbytes = hex2bin (saved, (gdb_byte *) notes, nbytes); + notes[nbytes] = '\0'; + ++packet; /* skip the semicolon */ + trace_debug ("Notes is '%s'", notes); + xfree (tracing_notes); + tracing_notes = notes; + } + else if (startswith (packet, "tstop:")) + { + packet += strlen ("tstop:"); + saved = packet; + packet = strchr (packet, ';'); + nbytes = (packet - saved) / 2; + stopnote = (char *) xmalloc (nbytes + 1); + nbytes = hex2bin (saved, (gdb_byte *) stopnote, nbytes); + stopnote[nbytes] = '\0'; + ++packet; /* skip the semicolon */ + trace_debug ("tstop note is '%s'", stopnote); + xfree (tracing_stop_note); + tracing_stop_note = stopnote; + } + else + break; + } + + write_ok (own_buf); +} + +int +handle_tracepoint_general_set (char *packet) +{ + if (strcmp ("QTinit", packet) == 0) + { + cmd_qtinit (packet); + return 1; + } + else if (startswith (packet, "QTDP:")) + { + cmd_qtdp (packet); + return 1; + } + else if (startswith (packet, "QTDPsrc:")) + { + cmd_qtdpsrc (packet); + return 1; + } + else if (startswith (packet, "QTEnable:")) + { + cmd_qtenable_disable (packet, 1); + return 1; + } + else if (startswith (packet, "QTDisable:")) + { + cmd_qtenable_disable (packet, 0); + return 1; + } + else if (startswith (packet, "QTDV:")) + { + cmd_qtdv (packet); + return 1; + } + else if (startswith (packet, "QTro:")) + { + cmd_qtro (packet); + return 1; + } + else if (strcmp ("QTStart", packet) == 0) + { + cmd_qtstart (packet); + return 1; + } + else if (strcmp ("QTStop", packet) == 0) + { + cmd_qtstop (packet); + return 1; + } + else if (startswith (packet, "QTDisconnected:")) + { + cmd_qtdisconnected (packet); + return 1; + } + else if (startswith (packet, "QTFrame:")) + { + cmd_qtframe (packet); + return 1; + } + else if (startswith (packet, "QTBuffer:circular:")) + { + cmd_bigqtbuffer_circular (packet); + return 1; + } + else if (startswith (packet, "QTBuffer:size:")) + { + cmd_bigqtbuffer_size (packet); + return 1; + } + else if (startswith (packet, "QTNotes:")) + { + cmd_qtnotes (packet); + return 1; + } + + return 0; +} + +int +handle_tracepoint_query (char *packet) +{ + if (strcmp ("qTStatus", packet) == 0) + { + cmd_qtstatus (packet); + return 1; + } + else if (startswith (packet, "qTP:")) + { + cmd_qtp (packet); + return 1; + } + else if (strcmp ("qTfP", packet) == 0) + { + cmd_qtfp (packet); + return 1; + } + else if (strcmp ("qTsP", packet) == 0) + { + cmd_qtsp (packet); + return 1; + } + else if (strcmp ("qTfV", packet) == 0) + { + cmd_qtfv (packet); + return 1; + } + else if (strcmp ("qTsV", packet) == 0) + { + cmd_qtsv (packet); + return 1; + } + else if (startswith (packet, "qTV:")) + { + cmd_qtv (packet); + return 1; + } + else if (startswith (packet, "qTBuffer:")) + { + cmd_qtbuffer (packet); + return 1; + } + else if (strcmp ("qTfSTM", packet) == 0) + { + cmd_qtfstm (packet); + return 1; + } + else if (strcmp ("qTsSTM", packet) == 0) + { + cmd_qtsstm (packet); + return 1; + } + else if (startswith (packet, "qTSTMat:")) + { + cmd_qtstmat (packet); + return 1; + } + else if (strcmp ("qTMinFTPILen", packet) == 0) + { + cmd_qtminftpilen (packet); + return 1; + } + + return 0; +} + +#endif +#ifndef IN_PROCESS_AGENT + +/* Call this when thread TINFO has hit the tracepoint defined by + TP_NUMBER and TP_ADDRESS, and that tracepoint has a while-stepping + action. This adds a while-stepping collecting state item to the + threads' collecting state list, so that we can keep track of + multiple simultaneous while-stepping actions being collected by the + same thread. This can happen in cases like: + + ff0001 INSN1 <-- TP1, while-stepping 10 collect $regs + ff0002 INSN2 + ff0003 INSN3 <-- TP2, collect $regs + ff0004 INSN4 <-- TP3, while-stepping 10 collect $regs + ff0005 INSN5 + + Notice that when instruction INSN5 is reached, the while-stepping + actions of both TP1 and TP3 are still being collected, and that TP2 + had been collected meanwhile. The whole range of ff0001-ff0005 + should be single-stepped, due to at least TP1's while-stepping + action covering the whole range. */ + +static void +add_while_stepping_state (struct thread_info *tinfo, + int tp_number, CORE_ADDR tp_address) +{ + struct wstep_state *wstep = XNEW (struct wstep_state); + + wstep->next = tinfo->while_stepping; + + wstep->tp_number = tp_number; + wstep->tp_address = tp_address; + wstep->current_step = 0; + + tinfo->while_stepping = wstep; +} + +/* Release the while-stepping collecting state WSTEP. */ + +static void +release_while_stepping_state (struct wstep_state *wstep) +{ + free (wstep); +} + +/* Release all while-stepping collecting states currently associated + with thread TINFO. */ + +void +release_while_stepping_state_list (struct thread_info *tinfo) +{ + struct wstep_state *head; + + while (tinfo->while_stepping) + { + head = tinfo->while_stepping; + tinfo->while_stepping = head->next; + release_while_stepping_state (head); + } +} + +/* If TINFO was handling a 'while-stepping' action, the step has + finished, so collect any step data needed, and check if any more + steps are required. Return true if the thread was indeed + collecting tracepoint data, false otherwise. */ + +int +tracepoint_finished_step (struct thread_info *tinfo, CORE_ADDR stop_pc) +{ + struct tracepoint *tpoint; + struct wstep_state *wstep; + struct wstep_state **wstep_link; + struct trap_tracepoint_ctx ctx; + + /* Pull in fast tracepoint trace frames from the inferior lib buffer into + our buffer. */ + if (agent_loaded_p ()) + upload_fast_traceframes (); + + /* Check if we were indeed collecting data for one of more + tracepoints with a 'while-stepping' count. */ + if (tinfo->while_stepping == NULL) + return 0; + + if (!tracing) + { + /* We're not even tracing anymore. Stop this thread from + collecting. */ + release_while_stepping_state_list (tinfo); + + /* The thread had stopped due to a single-step request indeed + explained by a tracepoint. */ + return 1; + } + + wstep = tinfo->while_stepping; + wstep_link = &tinfo->while_stepping; + + trace_debug ("Thread %s finished a single-step for tracepoint %d at 0x%s", + target_pid_to_str (tinfo->id), + wstep->tp_number, paddress (wstep->tp_address)); + + ctx.base.type = trap_tracepoint; + ctx.regcache = get_thread_regcache (tinfo, 1); + + while (wstep != NULL) + { + tpoint = find_tracepoint (wstep->tp_number, wstep->tp_address); + if (tpoint == NULL) + { + trace_debug ("NO TRACEPOINT %d at 0x%s FOR THREAD %s!", + wstep->tp_number, paddress (wstep->tp_address), + target_pid_to_str (tinfo->id)); + + /* Unlink. */ + *wstep_link = wstep->next; + release_while_stepping_state (wstep); + wstep = *wstep_link; + continue; + } + + /* We've just finished one step. */ + ++wstep->current_step; + + /* Collect data. */ + collect_data_at_step ((struct tracepoint_hit_ctx *) &ctx, + stop_pc, tpoint, wstep->current_step); + + if (wstep->current_step >= tpoint->step_count) + { + /* The requested numbers of steps have occurred. */ + trace_debug ("Thread %s done stepping for tracepoint %d at 0x%s", + target_pid_to_str (tinfo->id), + wstep->tp_number, paddress (wstep->tp_address)); + + /* Unlink the wstep. */ + *wstep_link = wstep->next; + release_while_stepping_state (wstep); + wstep = *wstep_link; + + /* Only check the hit count now, which ensure that we do all + our stepping before stopping the run. */ + if (tpoint->pass_count > 0 + && tpoint->hit_count >= tpoint->pass_count + && stopping_tracepoint == NULL) + stopping_tracepoint = tpoint; + } + else + { + /* Keep single-stepping until the requested numbers of steps + have occurred. */ + wstep_link = &wstep->next; + wstep = *wstep_link; + } + + if (stopping_tracepoint + || trace_buffer_is_full + || expr_eval_result != expr_eval_no_error) + { + stop_tracing (); + break; + } + } + + return 1; +} + +/* Handle any internal tracing control breakpoint hits. That means, + pull traceframes from the IPA to our buffer, and syncing both + tracing agents when the IPA's tracing stops for some reason. */ + +int +handle_tracepoint_bkpts (struct thread_info *tinfo, CORE_ADDR stop_pc) +{ + /* Pull in fast tracepoint trace frames from the inferior in-process + agent's buffer into our buffer. */ + + if (!agent_loaded_p ()) + return 0; + + upload_fast_traceframes (); + + /* Check if the in-process agent had decided we should stop + tracing. */ + if (stop_pc == ipa_sym_addrs.addr_stop_tracing) + { + int ipa_trace_buffer_is_full; + CORE_ADDR ipa_stopping_tracepoint; + int ipa_expr_eval_result; + CORE_ADDR ipa_error_tracepoint; + + trace_debug ("lib stopped at stop_tracing"); + + read_inferior_integer (ipa_sym_addrs.addr_trace_buffer_is_full, + &ipa_trace_buffer_is_full); + + read_inferior_data_pointer (ipa_sym_addrs.addr_stopping_tracepoint, + &ipa_stopping_tracepoint); + write_inferior_data_pointer (ipa_sym_addrs.addr_stopping_tracepoint, 0); + + read_inferior_data_pointer (ipa_sym_addrs.addr_error_tracepoint, + &ipa_error_tracepoint); + write_inferior_data_pointer (ipa_sym_addrs.addr_error_tracepoint, 0); + + read_inferior_integer (ipa_sym_addrs.addr_expr_eval_result, + &ipa_expr_eval_result); + write_inferior_integer (ipa_sym_addrs.addr_expr_eval_result, 0); + + trace_debug ("lib: trace_buffer_is_full: %d, " + "stopping_tracepoint: %s, " + "ipa_expr_eval_result: %d, " + "error_tracepoint: %s, ", + ipa_trace_buffer_is_full, + paddress (ipa_stopping_tracepoint), + ipa_expr_eval_result, + paddress (ipa_error_tracepoint)); + + if (debug_threads) + { + if (ipa_trace_buffer_is_full) + trace_debug ("lib stopped due to full buffer."); + if (ipa_stopping_tracepoint) + trace_debug ("lib stopped due to tpoint"); + if (ipa_error_tracepoint) + trace_debug ("lib stopped due to error"); + } + + if (ipa_stopping_tracepoint != 0) + { + stopping_tracepoint + = fast_tracepoint_from_ipa_tpoint_address (ipa_stopping_tracepoint); + } + else if (ipa_expr_eval_result != expr_eval_no_error) + { + expr_eval_result = ipa_expr_eval_result; + error_tracepoint + = fast_tracepoint_from_ipa_tpoint_address (ipa_error_tracepoint); + } + stop_tracing (); + return 1; + } + else if (stop_pc == ipa_sym_addrs.addr_flush_trace_buffer) + { + trace_debug ("lib stopped at flush_trace_buffer"); + return 1; + } + + return 0; +} + +/* Return true if TINFO just hit a tracepoint. Collect data if + so. */ + +int +tracepoint_was_hit (struct thread_info *tinfo, CORE_ADDR stop_pc) +{ + struct tracepoint *tpoint; + int ret = 0; + struct trap_tracepoint_ctx ctx; + + /* Not tracing, don't handle. */ + if (!tracing) + return 0; + + ctx.base.type = trap_tracepoint; + ctx.regcache = get_thread_regcache (tinfo, 1); + + for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) + { + /* Note that we collect fast tracepoints here as well. We'll + step over the fast tracepoint jump later, which avoids the + double collect. However, we don't collect for static + tracepoints here, because UST markers are compiled in program, + and probes will be executed in program. So static tracepoints + are collected there. */ + if (tpoint->enabled && stop_pc == tpoint->address + && tpoint->type != static_tracepoint) + { + trace_debug ("Thread %s at address of tracepoint %d at 0x%s", + target_pid_to_str (tinfo->id), + tpoint->number, paddress (tpoint->address)); + + /* Test the condition if present, and collect if true. */ + if (!tpoint->cond + || (condition_true_at_tracepoint + ((struct tracepoint_hit_ctx *) &ctx, tpoint))) + collect_data_at_tracepoint ((struct tracepoint_hit_ctx *) &ctx, + stop_pc, tpoint); + + if (stopping_tracepoint + || trace_buffer_is_full + || expr_eval_result != expr_eval_no_error) + { + stop_tracing (); + } + /* If the tracepoint had a 'while-stepping' action, then set + the thread to collect this tracepoint on the following + single-steps. */ + else if (tpoint->step_count > 0) + { + add_while_stepping_state (tinfo, + tpoint->number, tpoint->address); + } + + ret = 1; + } + } + + return ret; +} + +#endif + +#if defined IN_PROCESS_AGENT && defined HAVE_UST +struct ust_marker_data; +static void collect_ust_data_at_tracepoint (struct tracepoint_hit_ctx *ctx, + struct traceframe *tframe); +#endif + +/* Create a trace frame for the hit of the given tracepoint in the + given thread. */ + +static void +collect_data_at_tracepoint (struct tracepoint_hit_ctx *ctx, CORE_ADDR stop_pc, + struct tracepoint *tpoint) +{ + struct traceframe *tframe; + int acti; + + /* Only count it as a hit when we actually collect data. */ + tpoint->hit_count++; + + /* If we've exceeded a defined pass count, record the event for + later, and finish the collection for this hit. This test is only + for nonstepping tracepoints, stepping tracepoints test at the end + of their while-stepping loop. */ + if (tpoint->pass_count > 0 + && tpoint->hit_count >= tpoint->pass_count + && tpoint->step_count == 0 + && stopping_tracepoint == NULL) + stopping_tracepoint = tpoint; + + trace_debug ("Making new traceframe for tracepoint %d at 0x%s, hit %" PRIu64, + tpoint->number, paddress (tpoint->address), tpoint->hit_count); + + tframe = add_traceframe (tpoint); + + if (tframe) + { + for (acti = 0; acti < tpoint->numactions; ++acti) + { +#ifndef IN_PROCESS_AGENT + trace_debug ("Tracepoint %d at 0x%s about to do action '%s'", + tpoint->number, paddress (tpoint->address), + tpoint->actions_str[acti]); +#endif + + do_action_at_tracepoint (ctx, stop_pc, tpoint, tframe, + tpoint->actions[acti]); + } + + finish_traceframe (tframe); + } + + if (tframe == NULL && tracing) + trace_buffer_is_full = 1; +} + +#ifndef IN_PROCESS_AGENT + +static void +collect_data_at_step (struct tracepoint_hit_ctx *ctx, + CORE_ADDR stop_pc, + struct tracepoint *tpoint, int current_step) +{ + struct traceframe *tframe; + int acti; + + trace_debug ("Making new step traceframe for " + "tracepoint %d at 0x%s, step %d of %" PRIu64 ", hit %" PRIu64, + tpoint->number, paddress (tpoint->address), + current_step, tpoint->step_count, + tpoint->hit_count); + + tframe = add_traceframe (tpoint); + + if (tframe) + { + for (acti = 0; acti < tpoint->num_step_actions; ++acti) + { + trace_debug ("Tracepoint %d at 0x%s about to do step action '%s'", + tpoint->number, paddress (tpoint->address), + tpoint->step_actions_str[acti]); + + do_action_at_tracepoint (ctx, stop_pc, tpoint, tframe, + tpoint->step_actions[acti]); + } + + finish_traceframe (tframe); + } + + if (tframe == NULL && tracing) + trace_buffer_is_full = 1; +} + +#endif + +#ifdef IN_PROCESS_AGENT +/* The target description index for IPA. Passed from gdbserver, used + to select ipa_tdesc. */ +EXTERN_C_PUSH +IP_AGENT_EXPORT_VAR int ipa_tdesc_idx; +EXTERN_C_POP +#endif + +static struct regcache * +get_context_regcache (struct tracepoint_hit_ctx *ctx) +{ + struct regcache *regcache = NULL; +#ifdef IN_PROCESS_AGENT + const struct target_desc *ipa_tdesc = get_ipa_tdesc (ipa_tdesc_idx); + + if (ctx->type == fast_tracepoint) + { + struct fast_tracepoint_ctx *fctx = (struct fast_tracepoint_ctx *) ctx; + if (!fctx->regcache_initted) + { + fctx->regcache_initted = 1; + init_register_cache (&fctx->regcache, ipa_tdesc, fctx->regspace); + supply_regblock (&fctx->regcache, NULL); + supply_fast_tracepoint_registers (&fctx->regcache, fctx->regs); + } + regcache = &fctx->regcache; + } +#ifdef HAVE_UST + if (ctx->type == static_tracepoint) + { + struct static_tracepoint_ctx *sctx + = (struct static_tracepoint_ctx *) ctx; + + if (!sctx->regcache_initted) + { + sctx->regcache_initted = 1; + init_register_cache (&sctx->regcache, ipa_tdesc, sctx->regspace); + supply_regblock (&sctx->regcache, NULL); + /* Pass down the tracepoint address, because REGS doesn't + include the PC, but we know what it must have been. */ + supply_static_tracepoint_registers (&sctx->regcache, + (const unsigned char *) + sctx->regs, + sctx->tpoint->address); + } + regcache = &sctx->regcache; + } +#endif +#else + if (ctx->type == trap_tracepoint) + { + struct trap_tracepoint_ctx *tctx = (struct trap_tracepoint_ctx *) ctx; + regcache = tctx->regcache; + } +#endif + + gdb_assert (regcache != NULL); + + return regcache; +} + +static void +do_action_at_tracepoint (struct tracepoint_hit_ctx *ctx, + CORE_ADDR stop_pc, + struct tracepoint *tpoint, + struct traceframe *tframe, + struct tracepoint_action *taction) +{ + enum eval_result_type err; + + switch (taction->type) + { + case 'M': + { + struct collect_memory_action *maction; + struct eval_agent_expr_context ax_ctx; + + maction = (struct collect_memory_action *) taction; + ax_ctx.regcache = NULL; + ax_ctx.tframe = tframe; + ax_ctx.tpoint = tpoint; + + trace_debug ("Want to collect %s bytes at 0x%s (basereg %d)", + pulongest (maction->len), + paddress (maction->addr), maction->basereg); + /* (should use basereg) */ + agent_mem_read (&ax_ctx, NULL, (CORE_ADDR) maction->addr, + maction->len); + break; + } + case 'R': + { + unsigned char *regspace; + struct regcache tregcache; + struct regcache *context_regcache; + int regcache_size; + + trace_debug ("Want to collect registers"); + + context_regcache = get_context_regcache (ctx); + regcache_size = register_cache_size (context_regcache->tdesc); + + /* Collect all registers for now. */ + regspace = add_traceframe_block (tframe, tpoint, 1 + regcache_size); + if (regspace == NULL) + { + trace_debug ("Trace buffer block allocation failed, skipping"); + break; + } + /* Identify a register block. */ + *regspace = 'R'; + + /* Wrap the regblock in a register cache (in the stack, we + don't want to malloc here). */ + init_register_cache (&tregcache, context_regcache->tdesc, + regspace + 1); + + /* Copy the register data to the regblock. */ + regcache_cpy (&tregcache, context_regcache); + +#ifndef IN_PROCESS_AGENT + /* On some platforms, trap-based tracepoints will have the PC + pointing to the next instruction after the trap, but we + don't want the user or GDB trying to guess whether the + saved PC needs adjusting; so always record the adjusted + stop_pc. Note that we can't use tpoint->address instead, + since it will be wrong for while-stepping actions. This + adjustment is a nop for fast tracepoints collected from the + in-process lib (but not if GDBserver is collecting one + preemptively), since the PC had already been adjusted to + contain the tracepoint's address by the jump pad. */ + trace_debug ("Storing stop pc (0x%s) in regblock", + paddress (stop_pc)); + + /* This changes the regblock, not the thread's + regcache. */ + regcache_write_pc (&tregcache, stop_pc); +#endif + } + break; + case 'X': + { + struct eval_expr_action *eaction; + struct eval_agent_expr_context ax_ctx; + + eaction = (struct eval_expr_action *) taction; + ax_ctx.regcache = get_context_regcache (ctx); + ax_ctx.tframe = tframe; + ax_ctx.tpoint = tpoint; + + trace_debug ("Want to evaluate expression"); + + err = gdb_eval_agent_expr (&ax_ctx, eaction->expr, NULL); + + if (err != expr_eval_no_error) + { + record_tracepoint_error (tpoint, "action expression", err); + return; + } + } + break; + case 'L': + { +#if defined IN_PROCESS_AGENT && defined HAVE_UST + trace_debug ("Want to collect static trace data"); + collect_ust_data_at_tracepoint (ctx, tframe); +#else + trace_debug ("warning: collecting static trace data, " + "but static tracepoints are not supported"); +#endif + } + break; + default: + trace_debug ("unknown trace action '%c', ignoring", taction->type); + break; + } +} + +static int +condition_true_at_tracepoint (struct tracepoint_hit_ctx *ctx, + struct tracepoint *tpoint) +{ + ULONGEST value = 0; + enum eval_result_type err; + + /* Presently, gdbserver doesn't run compiled conditions, only the + IPA does. If the program stops at a fast tracepoint's address + (e.g., due to a breakpoint, trap tracepoint, or stepping), + gdbserver preemptively collect the fast tracepoint. Later, on + resume, gdbserver steps over the fast tracepoint like it steps + over breakpoints, so that the IPA doesn't see that fast + tracepoint. This avoids double collects of fast tracepoints in + that stopping scenario. Having gdbserver itself handle the fast + tracepoint gives the user a consistent view of when fast or trap + tracepoints are collected, compared to an alternative where only + trap tracepoints are collected on stop, and fast tracepoints on + resume. When a fast tracepoint is being processed by gdbserver, + it is always the non-compiled condition expression that is + used. */ +#ifdef IN_PROCESS_AGENT + if (tpoint->compiled_cond) + { + struct fast_tracepoint_ctx *fctx = (struct fast_tracepoint_ctx *) ctx; + err = ((condfn) (uintptr_t) (tpoint->compiled_cond)) (fctx->regs, &value); + } + else +#endif + { + struct eval_agent_expr_context ax_ctx; + + ax_ctx.regcache = get_context_regcache (ctx); + ax_ctx.tframe = NULL; + ax_ctx.tpoint = tpoint; + + err = gdb_eval_agent_expr (&ax_ctx, tpoint->cond, &value); + } + if (err != expr_eval_no_error) + { + record_tracepoint_error (tpoint, "condition", err); + /* The error case must return false. */ + return 0; + } + + trace_debug ("Tracepoint %d at 0x%s condition evals to %s", + tpoint->number, paddress (tpoint->address), + pulongest (value)); + return (value ? 1 : 0); +} + +/* Do memory copies for bytecodes. */ +/* Do the recording of memory blocks for actions and bytecodes. */ + +int +agent_mem_read (struct eval_agent_expr_context *ctx, + unsigned char *to, CORE_ADDR from, ULONGEST len) +{ + unsigned char *mspace; + ULONGEST remaining = len; + unsigned short blocklen; + + /* If a 'to' buffer is specified, use it. */ + if (to != NULL) + { + read_inferior_memory (from, to, len); + return 0; + } + + /* Otherwise, create a new memory block in the trace buffer. */ + while (remaining > 0) + { + size_t sp; + + blocklen = (remaining > 65535 ? 65535 : remaining); + sp = 1 + sizeof (from) + sizeof (blocklen) + blocklen; + mspace = add_traceframe_block (ctx->tframe, ctx->tpoint, sp); + if (mspace == NULL) + return 1; + /* Identify block as a memory block. */ + *mspace = 'M'; + ++mspace; + /* Record address and size. */ + memcpy (mspace, &from, sizeof (from)); + mspace += sizeof (from); + memcpy (mspace, &blocklen, sizeof (blocklen)); + mspace += sizeof (blocklen); + /* Record the memory block proper. */ + read_inferior_memory (from, mspace, blocklen); + trace_debug ("%d bytes recorded", blocklen); + remaining -= blocklen; + from += blocklen; + } + return 0; +} + +int +agent_mem_read_string (struct eval_agent_expr_context *ctx, + unsigned char *to, CORE_ADDR from, ULONGEST len) +{ + unsigned char *buf, *mspace; + ULONGEST remaining = len; + unsigned short blocklen, i; + + /* To save a bit of space, block lengths are 16-bit, so break large + requests into multiple blocks. Bordering on overkill for strings, + but it could happen that someone specifies a large max length. */ + while (remaining > 0) + { + size_t sp; + + blocklen = (remaining > 65535 ? 65535 : remaining); + /* We want working space to accumulate nonzero bytes, since + traceframes must have a predecided size (otherwise it gets + harder to wrap correctly for the circular case, etc). */ + buf = (unsigned char *) xmalloc (blocklen + 1); + for (i = 0; i < blocklen; ++i) + { + /* Read the string one byte at a time, in case the string is + at the end of a valid memory area - we don't want a + correctly-terminated string to engender segvio + complaints. */ + read_inferior_memory (from + i, buf + i, 1); + + if (buf[i] == '\0') + { + blocklen = i + 1; + /* Make sure outer loop stops now too. */ + remaining = blocklen; + break; + } + } + sp = 1 + sizeof (from) + sizeof (blocklen) + blocklen; + mspace = add_traceframe_block (ctx->tframe, ctx->tpoint, sp); + if (mspace == NULL) + { + xfree (buf); + return 1; + } + /* Identify block as a memory block. */ + *mspace = 'M'; + ++mspace; + /* Record address and size. */ + memcpy ((void *) mspace, (void *) &from, sizeof (from)); + mspace += sizeof (from); + memcpy ((void *) mspace, (void *) &blocklen, sizeof (blocklen)); + mspace += sizeof (blocklen); + /* Copy the string contents. */ + memcpy ((void *) mspace, (void *) buf, blocklen); + remaining -= blocklen; + from += blocklen; + xfree (buf); + } + return 0; +} + +/* Record the value of a trace state variable. */ + +int +agent_tsv_read (struct eval_agent_expr_context *ctx, int n) +{ + unsigned char *vspace; + LONGEST val; + + vspace = add_traceframe_block (ctx->tframe, ctx->tpoint, + 1 + sizeof (n) + sizeof (LONGEST)); + if (vspace == NULL) + return 1; + /* Identify block as a variable. */ + *vspace = 'V'; + /* Record variable's number and value. */ + memcpy (vspace + 1, &n, sizeof (n)); + val = get_trace_state_variable_value (n); + memcpy (vspace + 1 + sizeof (n), &val, sizeof (val)); + trace_debug ("Variable %d recorded", n); + return 0; +} + +#ifndef IN_PROCESS_AGENT + +/* Callback for traceframe_walk_blocks, used to find a given block + type in a traceframe. */ + +static int +match_blocktype (char blocktype, unsigned char *dataptr, void *data) +{ + char *wantedp = (char *) data; + + if (*wantedp == blocktype) + return 1; + + return 0; +} + +/* Walk over all traceframe blocks of the traceframe buffer starting + at DATABASE, of DATASIZE bytes long, and call CALLBACK for each + block found, passing in DATA unmodified. If CALLBACK returns true, + this returns a pointer to where the block is found. Returns NULL + if no callback call returned true, indicating that all blocks have + been walked. */ + +static unsigned char * +traceframe_walk_blocks (unsigned char *database, unsigned int datasize, + int tfnum, + int (*callback) (char blocktype, + unsigned char *dataptr, + void *data), + void *data) +{ + unsigned char *dataptr; + + if (datasize == 0) + { + trace_debug ("traceframe %d has no data", tfnum); + return NULL; + } + + /* Iterate through a traceframe's blocks, looking for a block of the + requested type. */ + for (dataptr = database; + dataptr < database + datasize; + /* nothing */) + { + char blocktype; + unsigned short mlen; + + if (dataptr == trace_buffer_wrap) + { + /* Adjust to reflect wrapping part of the frame around to + the beginning. */ + datasize = dataptr - database; + dataptr = database = trace_buffer_lo; + } + + blocktype = *dataptr++; + + if ((*callback) (blocktype, dataptr, data)) + return dataptr; + + switch (blocktype) + { + case 'R': + /* Skip over the registers block. */ + dataptr += current_target_desc ()->registers_size; + break; + case 'M': + /* Skip over the memory block. */ + dataptr += sizeof (CORE_ADDR); + memcpy (&mlen, dataptr, sizeof (mlen)); + dataptr += (sizeof (mlen) + mlen); + break; + case 'V': + /* Skip over the TSV block. */ + dataptr += (sizeof (int) + sizeof (LONGEST)); + break; + case 'S': + /* Skip over the static trace data block. */ + memcpy (&mlen, dataptr, sizeof (mlen)); + dataptr += (sizeof (mlen) + mlen); + break; + default: + trace_debug ("traceframe %d has unknown block type 0x%x", + tfnum, blocktype); + return NULL; + } + } + + return NULL; +} + +/* Look for the block of type TYPE_WANTED in the traceframe starting + at DATABASE of DATASIZE bytes long. TFNUM is the traceframe + number. */ + +static unsigned char * +traceframe_find_block_type (unsigned char *database, unsigned int datasize, + int tfnum, char type_wanted) +{ + return traceframe_walk_blocks (database, datasize, tfnum, + match_blocktype, &type_wanted); +} + +static unsigned char * +traceframe_find_regblock (struct traceframe *tframe, int tfnum) +{ + unsigned char *regblock; + + regblock = traceframe_find_block_type (tframe->data, + tframe->data_size, + tfnum, 'R'); + + if (regblock == NULL) + trace_debug ("traceframe %d has no register data", tfnum); + + return regblock; +} + +/* Get registers from a traceframe. */ + +int +fetch_traceframe_registers (int tfnum, struct regcache *regcache, int regnum) +{ + unsigned char *dataptr; + struct tracepoint *tpoint; + struct traceframe *tframe; + + tframe = find_traceframe (tfnum); + + if (tframe == NULL) + { + trace_debug ("traceframe %d not found", tfnum); + return 1; + } + + dataptr = traceframe_find_regblock (tframe, tfnum); + if (dataptr == NULL) + { + /* Mark registers unavailable. */ + supply_regblock (regcache, NULL); + + /* We can generally guess at a PC, although this will be + misleading for while-stepping frames and multi-location + tracepoints. */ + tpoint = find_next_tracepoint_by_number (NULL, tframe->tpnum); + if (tpoint != NULL) + regcache_write_pc (regcache, tpoint->address); + } + else + supply_regblock (regcache, dataptr); + + return 0; +} + +static CORE_ADDR +traceframe_get_pc (struct traceframe *tframe) +{ + struct regcache regcache; + unsigned char *dataptr; + const struct target_desc *tdesc = current_target_desc (); + + dataptr = traceframe_find_regblock (tframe, -1); + if (dataptr == NULL) + return 0; + + init_register_cache (®cache, tdesc, dataptr); + return regcache_read_pc (®cache); +} + +/* Read a requested block of memory from a trace frame. */ + +int +traceframe_read_mem (int tfnum, CORE_ADDR addr, + unsigned char *buf, ULONGEST length, + ULONGEST *nbytes) +{ + struct traceframe *tframe; + unsigned char *database, *dataptr; + unsigned int datasize; + CORE_ADDR maddr; + unsigned short mlen; + + trace_debug ("traceframe_read_mem"); + + tframe = find_traceframe (tfnum); + + if (!tframe) + { + trace_debug ("traceframe %d not found", tfnum); + return 1; + } + + datasize = tframe->data_size; + database = dataptr = &tframe->data[0]; + + /* Iterate through a traceframe's blocks, looking for memory. */ + while ((dataptr = traceframe_find_block_type (dataptr, + datasize + - (dataptr - database), + tfnum, 'M')) != NULL) + { + memcpy (&maddr, dataptr, sizeof (maddr)); + dataptr += sizeof (maddr); + memcpy (&mlen, dataptr, sizeof (mlen)); + dataptr += sizeof (mlen); + trace_debug ("traceframe %d has %d bytes at %s", + tfnum, mlen, paddress (maddr)); + + /* If the block includes the first part of the desired range, + return as much it has; GDB will re-request the remainder, + which might be in a different block of this trace frame. */ + if (maddr <= addr && addr < (maddr + mlen)) + { + ULONGEST amt = (maddr + mlen) - addr; + if (amt > length) + amt = length; + + memcpy (buf, dataptr + (addr - maddr), amt); + *nbytes = amt; + return 0; + } + + /* Skip over this block. */ + dataptr += mlen; + } + + trace_debug ("traceframe %d has no memory data for the desired region", + tfnum); + + *nbytes = 0; + return 0; +} + +static int +traceframe_read_tsv (int tsvnum, LONGEST *val) +{ + client_state &cs = get_client_state (); + int tfnum; + struct traceframe *tframe; + unsigned char *database, *dataptr; + unsigned int datasize; + int vnum; + int found = 0; + + trace_debug ("traceframe_read_tsv"); + + tfnum = cs.current_traceframe; + + if (tfnum < 0) + { + trace_debug ("no current traceframe"); + return 1; + } + + tframe = find_traceframe (tfnum); + + if (tframe == NULL) + { + trace_debug ("traceframe %d not found", tfnum); + return 1; + } + + datasize = tframe->data_size; + database = dataptr = &tframe->data[0]; + + /* Iterate through a traceframe's blocks, looking for the last + matched tsv. */ + while ((dataptr = traceframe_find_block_type (dataptr, + datasize + - (dataptr - database), + tfnum, 'V')) != NULL) + { + memcpy (&vnum, dataptr, sizeof (vnum)); + dataptr += sizeof (vnum); + + trace_debug ("traceframe %d has variable %d", tfnum, vnum); + + /* Check that this is the variable we want. */ + if (tsvnum == vnum) + { + memcpy (val, dataptr, sizeof (*val)); + found = 1; + } + + /* Skip over this block. */ + dataptr += sizeof (LONGEST); + } + + if (!found) + trace_debug ("traceframe %d has no data for variable %d", + tfnum, tsvnum); + return !found; +} + +/* Read a requested block of static tracepoint data from a trace + frame. */ + +int +traceframe_read_sdata (int tfnum, ULONGEST offset, + unsigned char *buf, ULONGEST length, + ULONGEST *nbytes) +{ + struct traceframe *tframe; + unsigned char *database, *dataptr; + unsigned int datasize; + unsigned short mlen; + + trace_debug ("traceframe_read_sdata"); + + tframe = find_traceframe (tfnum); + + if (!tframe) + { + trace_debug ("traceframe %d not found", tfnum); + return 1; + } + + datasize = tframe->data_size; + database = &tframe->data[0]; + + /* Iterate through a traceframe's blocks, looking for static + tracepoint data. */ + dataptr = traceframe_find_block_type (database, datasize, + tfnum, 'S'); + if (dataptr != NULL) + { + memcpy (&mlen, dataptr, sizeof (mlen)); + dataptr += sizeof (mlen); + if (offset < mlen) + { + if (offset + length > mlen) + length = mlen - offset; + + memcpy (buf, dataptr, length); + *nbytes = length; + } + else + *nbytes = 0; + return 0; + } + + trace_debug ("traceframe %d has no static trace data", tfnum); + + *nbytes = 0; + return 0; +} + +/* Callback for traceframe_walk_blocks. Builds a traceframe-info + object. DATA is pointer to a struct buffer holding the + traceframe-info object being built. */ + +static int +build_traceframe_info_xml (char blocktype, unsigned char *dataptr, void *data) +{ + struct buffer *buffer = (struct buffer *) data; + + switch (blocktype) + { + case 'M': + { + unsigned short mlen; + CORE_ADDR maddr; + + memcpy (&maddr, dataptr, sizeof (maddr)); + dataptr += sizeof (maddr); + memcpy (&mlen, dataptr, sizeof (mlen)); + dataptr += sizeof (mlen); + buffer_xml_printf (buffer, + "\n", + paddress (maddr), phex_nz (mlen, sizeof (mlen))); + break; + } + case 'V': + { + int vnum; + + memcpy (&vnum, dataptr, sizeof (vnum)); + buffer_xml_printf (buffer, "\n", vnum); + break; + } + case 'R': + case 'S': + { + break; + } + default: + warning ("Unhandled trace block type (%d) '%c ' " + "while building trace frame info.", + blocktype, blocktype); + break; + } + + return 0; +} + +/* Build a traceframe-info object for traceframe number TFNUM into + BUFFER. */ + +int +traceframe_read_info (int tfnum, struct buffer *buffer) +{ + struct traceframe *tframe; + + trace_debug ("traceframe_read_info"); + + tframe = find_traceframe (tfnum); + + if (!tframe) + { + trace_debug ("traceframe %d not found", tfnum); + return 1; + } + + buffer_grow_str (buffer, "\n"); + traceframe_walk_blocks (tframe->data, tframe->data_size, + tfnum, build_traceframe_info_xml, buffer); + buffer_grow_str0 (buffer, "\n"); + return 0; +} + +/* Return the first fast tracepoint whose jump pad contains PC. */ + +static struct tracepoint * +fast_tracepoint_from_jump_pad_address (CORE_ADDR pc) +{ + struct tracepoint *tpoint; + + for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) + if (tpoint->type == fast_tracepoint) + if (tpoint->jump_pad <= pc && pc < tpoint->jump_pad_end) + return tpoint; + + return NULL; +} + +/* Return the first fast tracepoint whose trampoline contains PC. */ + +static struct tracepoint * +fast_tracepoint_from_trampoline_address (CORE_ADDR pc) +{ + struct tracepoint *tpoint; + + for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) + { + if (tpoint->type == fast_tracepoint + && tpoint->trampoline <= pc && pc < tpoint->trampoline_end) + return tpoint; + } + + return NULL; +} + +/* Return GDBserver's tracepoint that matches the IP Agent's + tracepoint object that lives at IPA_TPOINT_OBJ in the IP Agent's + address space. */ + +static struct tracepoint * +fast_tracepoint_from_ipa_tpoint_address (CORE_ADDR ipa_tpoint_obj) +{ + struct tracepoint *tpoint; + + for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) + if (tpoint->type == fast_tracepoint) + if (tpoint->obj_addr_on_target == ipa_tpoint_obj) + return tpoint; + + return NULL; +} + +#endif + +/* The type of the object that is used to synchronize fast tracepoint + collection. */ + +typedef struct collecting_t +{ + /* The fast tracepoint number currently collecting. */ + uintptr_t tpoint; + + /* A number that GDBserver can use to identify the thread that is + presently holding the collect lock. This need not (and usually + is not) the thread id, as getting the current thread ID usually + requires a system call, which we want to avoid like the plague. + Usually this is thread's TCB, found in the TLS (pseudo-) + register, which is readable with a single insn on several + architectures. */ + uintptr_t thread_area; +} collecting_t; + +#ifndef IN_PROCESS_AGENT + +void +force_unlock_trace_buffer (void) +{ + write_inferior_data_pointer (ipa_sym_addrs.addr_collecting, 0); +} + +/* Check if the thread identified by THREAD_AREA which is stopped at + STOP_PC, is presently locking the fast tracepoint collection, and + if so, gather some status of said collection. Returns 0 if the + thread isn't collecting or in the jump pad at all. 1, if in the + jump pad (or within gdb_collect) and hasn't executed the adjusted + original insn yet (can set a breakpoint there and run to it). 2, + if presently executing the adjusted original insn --- in which + case, if we want to move the thread out of the jump pad, we need to + single-step it until this function returns 0. */ + +fast_tpoint_collect_result +fast_tracepoint_collecting (CORE_ADDR thread_area, + CORE_ADDR stop_pc, + struct fast_tpoint_collect_status *status) +{ + CORE_ADDR ipa_collecting; + CORE_ADDR ipa_gdb_jump_pad_buffer, ipa_gdb_jump_pad_buffer_end; + CORE_ADDR ipa_gdb_trampoline_buffer; + CORE_ADDR ipa_gdb_trampoline_buffer_end; + struct tracepoint *tpoint; + int needs_breakpoint; + + /* The thread THREAD_AREA is either: + + 0. not collecting at all, not within the jump pad, or within + gdb_collect or one of its callees. + + 1. in the jump pad and haven't reached gdb_collect + + 2. within gdb_collect (out of the jump pad) (collect is set) + + 3. we're in the jump pad, after gdb_collect having returned, + possibly executing the adjusted insns. + + For cases 1 and 3, `collecting' may or not be set. The jump pad + doesn't have any complicated jump logic, so we can tell if the + thread is executing the adjust original insn or not by just + matching STOP_PC with known jump pad addresses. If we it isn't + yet executing the original insn, set a breakpoint there, and let + the thread run to it, so to quickly step over a possible (many + insns) gdb_collect call. Otherwise, or when the breakpoint is + hit, only a few (small number of) insns are left to be executed + in the jump pad. Single-step the thread until it leaves the + jump pad. */ + + again: + tpoint = NULL; + needs_breakpoint = 0; + trace_debug ("fast_tracepoint_collecting"); + + if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_jump_pad_buffer, + &ipa_gdb_jump_pad_buffer)) + { + internal_error (__FILE__, __LINE__, + "error extracting `gdb_jump_pad_buffer'"); + } + if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_jump_pad_buffer_end, + &ipa_gdb_jump_pad_buffer_end)) + { + internal_error (__FILE__, __LINE__, + "error extracting `gdb_jump_pad_buffer_end'"); + } + + if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_trampoline_buffer, + &ipa_gdb_trampoline_buffer)) + { + internal_error (__FILE__, __LINE__, + "error extracting `gdb_trampoline_buffer'"); + } + if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_trampoline_buffer_end, + &ipa_gdb_trampoline_buffer_end)) + { + internal_error (__FILE__, __LINE__, + "error extracting `gdb_trampoline_buffer_end'"); + } + + if (ipa_gdb_jump_pad_buffer <= stop_pc + && stop_pc < ipa_gdb_jump_pad_buffer_end) + { + /* We can tell which tracepoint(s) the thread is collecting by + matching the jump pad address back to the tracepoint. */ + tpoint = fast_tracepoint_from_jump_pad_address (stop_pc); + if (tpoint == NULL) + { + warning ("in jump pad, but no matching tpoint?"); + return fast_tpoint_collect_result::not_collecting; + } + else + { + trace_debug ("in jump pad of tpoint (%d, %s); jump_pad(%s, %s); " + "adj_insn(%s, %s)", + tpoint->number, paddress (tpoint->address), + paddress (tpoint->jump_pad), + paddress (tpoint->jump_pad_end), + paddress (tpoint->adjusted_insn_addr), + paddress (tpoint->adjusted_insn_addr_end)); + } + + /* Definitely in the jump pad. May or may not need + fast-exit-jump-pad breakpoint. */ + if (tpoint->jump_pad <= stop_pc + && stop_pc < tpoint->adjusted_insn_addr) + needs_breakpoint = 1; + } + else if (ipa_gdb_trampoline_buffer <= stop_pc + && stop_pc < ipa_gdb_trampoline_buffer_end) + { + /* We can tell which tracepoint(s) the thread is collecting by + matching the trampoline address back to the tracepoint. */ + tpoint = fast_tracepoint_from_trampoline_address (stop_pc); + if (tpoint == NULL) + { + warning ("in trampoline, but no matching tpoint?"); + return fast_tpoint_collect_result::not_collecting; + } + else + { + trace_debug ("in trampoline of tpoint (%d, %s); trampoline(%s, %s)", + tpoint->number, paddress (tpoint->address), + paddress (tpoint->trampoline), + paddress (tpoint->trampoline_end)); + } + + /* Have not reached jump pad yet, but treat the trampoline as a + part of the jump pad that is before the adjusted original + instruction. */ + needs_breakpoint = 1; + } + else + { + collecting_t ipa_collecting_obj; + + /* If `collecting' is set/locked, then the THREAD_AREA thread + may or not be the one holding the lock. We have to read the + lock to find out. */ + + if (read_inferior_data_pointer (ipa_sym_addrs.addr_collecting, + &ipa_collecting)) + { + trace_debug ("fast_tracepoint_collecting:" + " failed reading 'collecting' in the inferior"); + return fast_tpoint_collect_result::not_collecting; + } + + if (!ipa_collecting) + { + trace_debug ("fast_tracepoint_collecting: not collecting" + " (and nobody is)."); + return fast_tpoint_collect_result::not_collecting; + } + + /* Some thread is collecting. Check which. */ + if (read_inferior_memory (ipa_collecting, + (unsigned char *) &ipa_collecting_obj, + sizeof (ipa_collecting_obj)) != 0) + goto again; + + if (ipa_collecting_obj.thread_area != thread_area) + { + trace_debug ("fast_tracepoint_collecting: not collecting " + "(another thread is)"); + return fast_tpoint_collect_result::not_collecting; + } + + tpoint + = fast_tracepoint_from_ipa_tpoint_address (ipa_collecting_obj.tpoint); + if (tpoint == NULL) + { + warning ("fast_tracepoint_collecting: collecting, " + "but tpoint %s not found?", + paddress ((CORE_ADDR) ipa_collecting_obj.tpoint)); + return fast_tpoint_collect_result::not_collecting; + } + + /* The thread is within `gdb_collect', skip over the rest of + fast tracepoint collection quickly using a breakpoint. */ + needs_breakpoint = 1; + } + + /* The caller wants a bit of status detail. */ + if (status != NULL) + { + status->tpoint_num = tpoint->number; + status->tpoint_addr = tpoint->address; + status->adjusted_insn_addr = tpoint->adjusted_insn_addr; + status->adjusted_insn_addr_end = tpoint->adjusted_insn_addr_end; + } + + if (needs_breakpoint) + { + /* Hasn't executed the original instruction yet. Set breakpoint + there, and wait till it's hit, then single-step until exiting + the jump pad. */ + + trace_debug ("\ +fast_tracepoint_collecting, returning continue-until-break at %s", + paddress (tpoint->adjusted_insn_addr)); + + return fast_tpoint_collect_result::before_insn; /* continue */ + } + else + { + /* Just single-step until exiting the jump pad. */ + + trace_debug ("fast_tracepoint_collecting, returning " + "need-single-step (%s-%s)", + paddress (tpoint->adjusted_insn_addr), + paddress (tpoint->adjusted_insn_addr_end)); + + return fast_tpoint_collect_result::at_insn; /* single-step */ + } +} + +#endif + +#ifdef IN_PROCESS_AGENT + +/* The global fast tracepoint collect lock. Points to a collecting_t + object built on the stack by the jump pad, if presently locked; + NULL if it isn't locked. Note that this lock *must* be set while + executing any *function other than the jump pad. See + fast_tracepoint_collecting. */ +EXTERN_C_PUSH +IP_AGENT_EXPORT_VAR collecting_t *collecting; +EXTERN_C_POP + +/* This is needed for -Wmissing-declarations. */ +IP_AGENT_EXPORT_FUNC void gdb_collect (struct tracepoint *tpoint, + unsigned char *regs); + +/* This routine, called from the jump pad (in asm) is designed to be + called from the jump pads of fast tracepoints, thus it is on the + critical path. */ + +IP_AGENT_EXPORT_FUNC void +gdb_collect (struct tracepoint *tpoint, unsigned char *regs) +{ + struct fast_tracepoint_ctx ctx; + const struct target_desc *ipa_tdesc; + + /* Don't do anything until the trace run is completely set up. */ + if (!tracing) + return; + + ipa_tdesc = get_ipa_tdesc (ipa_tdesc_idx); + ctx.base.type = fast_tracepoint; + ctx.regs = regs; + ctx.regcache_initted = 0; + /* Wrap the regblock in a register cache (in the stack, we don't + want to malloc here). */ + ctx.regspace = (unsigned char *) alloca (ipa_tdesc->registers_size); + if (ctx.regspace == NULL) + { + trace_debug ("Trace buffer block allocation failed, skipping"); + return; + } + + for (ctx.tpoint = tpoint; + ctx.tpoint != NULL && ctx.tpoint->address == tpoint->address; + ctx.tpoint = ctx.tpoint->next) + { + if (!ctx.tpoint->enabled) + continue; + + /* Multiple tracepoints of different types, such as fast tracepoint and + static tracepoint, can be set at the same address. */ + if (ctx.tpoint->type != tpoint->type) + continue; + + /* Test the condition if present, and collect if true. */ + if (ctx.tpoint->cond == NULL + || condition_true_at_tracepoint ((struct tracepoint_hit_ctx *) &ctx, + ctx.tpoint)) + { + collect_data_at_tracepoint ((struct tracepoint_hit_ctx *) &ctx, + ctx.tpoint->address, ctx.tpoint); + + /* Note that this will cause original insns to be written back + to where we jumped from, but that's OK because we're jumping + back to the next whole instruction. This will go badly if + instruction restoration is not atomic though. */ + if (stopping_tracepoint + || trace_buffer_is_full + || expr_eval_result != expr_eval_no_error) + { + stop_tracing (); + break; + } + } + else + { + /* If there was a condition and it evaluated to false, the only + way we would stop tracing is if there was an error during + condition expression evaluation. */ + if (expr_eval_result != expr_eval_no_error) + { + stop_tracing (); + break; + } + } + } +} + +/* These global variables points to the corresponding functions. This is + necessary on powerpc64, where asking for function symbol address from gdb + results in returning the actual code pointer, instead of the descriptor + pointer. */ + +typedef void (*gdb_collect_ptr_type) (struct tracepoint *, unsigned char *); +typedef ULONGEST (*get_raw_reg_ptr_type) (const unsigned char *, int); +typedef LONGEST (*get_trace_state_variable_value_ptr_type) (int); +typedef void (*set_trace_state_variable_value_ptr_type) (int, LONGEST); + +EXTERN_C_PUSH +IP_AGENT_EXPORT_VAR gdb_collect_ptr_type gdb_collect_ptr = gdb_collect; +IP_AGENT_EXPORT_VAR get_raw_reg_ptr_type get_raw_reg_ptr = get_raw_reg; +IP_AGENT_EXPORT_VAR get_trace_state_variable_value_ptr_type + get_trace_state_variable_value_ptr = get_trace_state_variable_value; +IP_AGENT_EXPORT_VAR set_trace_state_variable_value_ptr_type + set_trace_state_variable_value_ptr = set_trace_state_variable_value; +EXTERN_C_POP + +#endif + +#ifndef IN_PROCESS_AGENT + +CORE_ADDR +get_raw_reg_func_addr (void) +{ + CORE_ADDR res; + if (read_inferior_data_pointer (ipa_sym_addrs.addr_get_raw_reg_ptr, &res)) + { + error ("error extracting get_raw_reg_ptr"); + return 0; + } + return res; +} + +CORE_ADDR +get_get_tsv_func_addr (void) +{ + CORE_ADDR res; + if (read_inferior_data_pointer ( + ipa_sym_addrs.addr_get_trace_state_variable_value_ptr, &res)) + { + error ("error extracting get_trace_state_variable_value_ptr"); + return 0; + } + return res; +} + +CORE_ADDR +get_set_tsv_func_addr (void) +{ + CORE_ADDR res; + if (read_inferior_data_pointer ( + ipa_sym_addrs.addr_set_trace_state_variable_value_ptr, &res)) + { + error ("error extracting set_trace_state_variable_value_ptr"); + return 0; + } + return res; +} + +static void +compile_tracepoint_condition (struct tracepoint *tpoint, + CORE_ADDR *jump_entry) +{ + CORE_ADDR entry_point = *jump_entry; + enum eval_result_type err; + + trace_debug ("Starting condition compilation for tracepoint %d\n", + tpoint->number); + + /* Initialize the global pointer to the code being built. */ + current_insn_ptr = *jump_entry; + + emit_prologue (); + + err = compile_bytecodes (tpoint->cond); + + if (err == expr_eval_no_error) + { + emit_epilogue (); + + /* Record the beginning of the compiled code. */ + tpoint->compiled_cond = entry_point; + + trace_debug ("Condition compilation for tracepoint %d complete\n", + tpoint->number); + } + else + { + /* Leave the unfinished code in situ, but don't point to it. */ + + tpoint->compiled_cond = 0; + + trace_debug ("Condition compilation for tracepoint %d failed, " + "error code %d", + tpoint->number, err); + } + + /* Update the code pointer passed in. Note that we do this even if + the compile fails, so that we can look at the partial results + instead of letting them be overwritten. */ + *jump_entry = current_insn_ptr; + + /* Leave a gap, to aid dump decipherment. */ + *jump_entry += 16; +} + +/* The base pointer of the IPA's heap. This is the only memory the + IPA is allowed to use. The IPA should _not_ call the inferior's + `malloc' during operation. That'd be slow, and, most importantly, + it may not be safe. We may be collecting a tracepoint in a signal + handler, for example. */ +static CORE_ADDR target_tp_heap; + +/* Allocate at least SIZE bytes of memory from the IPA heap, aligned + to 8 bytes. */ + +static CORE_ADDR +target_malloc (ULONGEST size) +{ + CORE_ADDR ptr; + + if (target_tp_heap == 0) + { + /* We have the pointer *address*, need what it points to. */ + if (read_inferior_data_pointer (ipa_sym_addrs.addr_gdb_tp_heap_buffer, + &target_tp_heap)) + { + internal_error (__FILE__, __LINE__, + "couldn't get target heap head pointer"); + } + } + + ptr = target_tp_heap; + target_tp_heap += size; + + /* Pad to 8-byte alignment. */ + target_tp_heap = ((target_tp_heap + 7) & ~0x7); + + return ptr; +} + +static CORE_ADDR +download_agent_expr (struct agent_expr *expr) +{ + CORE_ADDR expr_addr; + CORE_ADDR expr_bytes; + + expr_addr = target_malloc (sizeof (*expr)); + target_write_memory (expr_addr, (unsigned char *) expr, sizeof (*expr)); + + expr_bytes = target_malloc (expr->length); + write_inferior_data_pointer (expr_addr + offsetof (struct agent_expr, bytes), + expr_bytes); + target_write_memory (expr_bytes, expr->bytes, expr->length); + + return expr_addr; +} + +/* Align V up to N bits. */ +#define UALIGN(V, N) (((V) + ((N) - 1)) & ~((N) - 1)) + +/* Sync tracepoint with IPA, but leave maintenance of linked list to caller. */ + +static void +download_tracepoint_1 (struct tracepoint *tpoint) +{ + struct tracepoint target_tracepoint; + CORE_ADDR tpptr = 0; + + gdb_assert (tpoint->type == fast_tracepoint + || tpoint->type == static_tracepoint); + + if (tpoint->cond != NULL && target_emit_ops () != NULL) + { + CORE_ADDR jentry, jump_entry; + + jentry = jump_entry = get_jump_space_head (); + + if (tpoint->cond != NULL) + { + /* Pad to 8-byte alignment. (needed?) */ + /* Actually this should be left for the target to + decide. */ + jentry = UALIGN (jentry, 8); + + compile_tracepoint_condition (tpoint, &jentry); + } + + /* Pad to 8-byte alignment. */ + jentry = UALIGN (jentry, 8); + claim_jump_space (jentry - jump_entry); + } + + target_tracepoint = *tpoint; + + tpptr = target_malloc (sizeof (*tpoint)); + tpoint->obj_addr_on_target = tpptr; + + /* Write the whole object. We'll fix up its pointers in a bit. + Assume no next for now. This is fixed up above on the next + iteration, if there's any. */ + target_tracepoint.next = NULL; + /* Need to clear this here too, since we're downloading the + tracepoints before clearing our own copy. */ + target_tracepoint.hit_count = 0; + + target_write_memory (tpptr, (unsigned char *) &target_tracepoint, + sizeof (target_tracepoint)); + + if (tpoint->cond) + write_inferior_data_pointer (tpptr + + offsetof (struct tracepoint, cond), + download_agent_expr (tpoint->cond)); + + if (tpoint->numactions) + { + int i; + CORE_ADDR actions_array; + + /* The pointers array. */ + actions_array + = target_malloc (sizeof (*tpoint->actions) * tpoint->numactions); + write_inferior_data_pointer (tpptr + offsetof (struct tracepoint, + actions), + actions_array); + + /* Now for each pointer, download the action. */ + for (i = 0; i < tpoint->numactions; i++) + { + struct tracepoint_action *action = tpoint->actions[i]; + CORE_ADDR ipa_action = tracepoint_action_download (action); + + if (ipa_action != 0) + write_inferior_data_pointer (actions_array + + i * sizeof (*tpoint->actions), + ipa_action); + } + } +} + +#define IPA_PROTO_FAST_TRACE_FLAG 0 +#define IPA_PROTO_FAST_TRACE_ADDR_ON_TARGET 2 +#define IPA_PROTO_FAST_TRACE_JUMP_PAD 10 +#define IPA_PROTO_FAST_TRACE_FJUMP_SIZE 18 +#define IPA_PROTO_FAST_TRACE_FJUMP_INSN 22 + +/* Send a command to agent to download and install tracepoint TPOINT. */ + +static int +tracepoint_send_agent (struct tracepoint *tpoint) +{ + char buf[IPA_CMD_BUF_SIZE]; + char *p; + int i, ret; + + p = buf; + strcpy (p, "FastTrace:"); + p += 10; + + COPY_FIELD_TO_BUF (p, tpoint, number); + COPY_FIELD_TO_BUF (p, tpoint, address); + COPY_FIELD_TO_BUF (p, tpoint, type); + COPY_FIELD_TO_BUF (p, tpoint, enabled); + COPY_FIELD_TO_BUF (p, tpoint, step_count); + COPY_FIELD_TO_BUF (p, tpoint, pass_count); + COPY_FIELD_TO_BUF (p, tpoint, numactions); + COPY_FIELD_TO_BUF (p, tpoint, hit_count); + COPY_FIELD_TO_BUF (p, tpoint, traceframe_usage); + COPY_FIELD_TO_BUF (p, tpoint, compiled_cond); + COPY_FIELD_TO_BUF (p, tpoint, orig_size); + + /* condition */ + p = agent_expr_send (p, tpoint->cond); + + /* tracepoint_action */ + for (i = 0; i < tpoint->numactions; i++) + { + struct tracepoint_action *action = tpoint->actions[i]; + + p[0] = action->type; + p = tracepoint_action_send (&p[1], action); + } + + get_jump_space_head (); + /* Copy the value of GDB_JUMP_PAD_HEAD to command buffer, so that + agent can use jump pad from it. */ + if (tpoint->type == fast_tracepoint) + { + memcpy (p, &gdb_jump_pad_head, 8); + p += 8; + } + + ret = run_inferior_command (buf, (int) (ptrdiff_t) (p - buf)); + if (ret) + return ret; + + if (!startswith (buf, "OK")) + return 1; + + /* The value of tracepoint's target address is stored in BUF. */ + memcpy (&tpoint->obj_addr_on_target, + &buf[IPA_PROTO_FAST_TRACE_ADDR_ON_TARGET], 8); + + if (tpoint->type == fast_tracepoint) + { + unsigned char *insn + = (unsigned char *) &buf[IPA_PROTO_FAST_TRACE_FJUMP_INSN]; + int fjump_size; + + trace_debug ("agent: read from cmd_buf 0x%x 0x%x\n", + (unsigned int) tpoint->obj_addr_on_target, + (unsigned int) gdb_jump_pad_head); + + memcpy (&gdb_jump_pad_head, &buf[IPA_PROTO_FAST_TRACE_JUMP_PAD], 8); + + /* This has been done in agent. We should also set up record for it. */ + memcpy (&fjump_size, &buf[IPA_PROTO_FAST_TRACE_FJUMP_SIZE], 4); + /* Wire it in. */ + tpoint->handle + = set_fast_tracepoint_jump (tpoint->address, insn, fjump_size); + } + + return 0; +} + +static void +download_tracepoint (struct tracepoint *tpoint) +{ + struct tracepoint *tp, *tp_prev; + + if (tpoint->type != fast_tracepoint + && tpoint->type != static_tracepoint) + return; + + download_tracepoint_1 (tpoint); + + /* Find the previous entry of TPOINT, which is fast tracepoint or + static tracepoint. */ + tp_prev = NULL; + for (tp = tracepoints; tp != tpoint; tp = tp->next) + { + if (tp->type == fast_tracepoint || tp->type == static_tracepoint) + tp_prev = tp; + } + + if (tp_prev) + { + CORE_ADDR tp_prev_target_next_addr; + + /* Insert TPOINT after TP_PREV in IPA. */ + if (read_inferior_data_pointer (tp_prev->obj_addr_on_target + + offsetof (struct tracepoint, next), + &tp_prev_target_next_addr)) + { + internal_error (__FILE__, __LINE__, + "error reading `tp_prev->next'"); + } + + /* tpoint->next = tp_prev->next */ + write_inferior_data_pointer (tpoint->obj_addr_on_target + + offsetof (struct tracepoint, next), + tp_prev_target_next_addr); + /* tp_prev->next = tpoint */ + write_inferior_data_pointer (tp_prev->obj_addr_on_target + + offsetof (struct tracepoint, next), + tpoint->obj_addr_on_target); + } + else + /* First object in list, set the head pointer in the + inferior. */ + write_inferior_data_pointer (ipa_sym_addrs.addr_tracepoints, + tpoint->obj_addr_on_target); + +} + +static void +download_trace_state_variables (void) +{ + CORE_ADDR ptr = 0, prev_ptr = 0; + struct trace_state_variable *tsv; + + /* Start out empty. */ + write_inferior_data_pointer (ipa_sym_addrs.addr_trace_state_variables, 0); + + for (tsv = trace_state_variables; tsv != NULL; tsv = tsv->next) + { + struct trace_state_variable target_tsv; + + /* TSV's with a getter have been initialized equally in both the + inferior and GDBserver. Skip them. */ + if (tsv->getter != NULL) + continue; + + target_tsv = *tsv; + + prev_ptr = ptr; + ptr = target_malloc (sizeof (*tsv)); + + if (tsv == trace_state_variables) + { + /* First object in list, set the head pointer in the + inferior. */ + + write_inferior_data_pointer (ipa_sym_addrs.addr_trace_state_variables, + ptr); + } + else + { + write_inferior_data_pointer (prev_ptr + + offsetof (struct trace_state_variable, + next), + ptr); + } + + /* Write the whole object. We'll fix up its pointers in a bit. + Assume no next, fixup when needed. */ + target_tsv.next = NULL; + + target_write_memory (ptr, (unsigned char *) &target_tsv, + sizeof (target_tsv)); + + if (tsv->name != NULL) + { + size_t size = strlen (tsv->name) + 1; + CORE_ADDR name_addr = target_malloc (size); + target_write_memory (name_addr, + (unsigned char *) tsv->name, size); + write_inferior_data_pointer (ptr + + offsetof (struct trace_state_variable, + name), + name_addr); + } + + gdb_assert (tsv->getter == NULL); + } + + if (prev_ptr != 0) + { + /* Fixup the next pointer in the last item in the list. */ + write_inferior_data_pointer (prev_ptr + + offsetof (struct trace_state_variable, + next), 0); + } +} + +/* Upload complete trace frames out of the IP Agent's trace buffer + into GDBserver's trace buffer. This always uploads either all or + no trace frames. This is the counter part of + `trace_alloc_trace_buffer'. See its description of the atomic + syncing mechanism. */ + +static void +upload_fast_traceframes (void) +{ + unsigned int ipa_traceframe_read_count, ipa_traceframe_write_count; + unsigned int ipa_traceframe_read_count_racy, ipa_traceframe_write_count_racy; + CORE_ADDR tf; + struct ipa_trace_buffer_control ipa_trace_buffer_ctrl; + unsigned int curr_tbctrl_idx; + unsigned int ipa_trace_buffer_ctrl_curr; + unsigned int ipa_trace_buffer_ctrl_curr_old; + CORE_ADDR ipa_trace_buffer_ctrl_addr; + struct breakpoint *about_to_request_buffer_space_bkpt; + CORE_ADDR ipa_trace_buffer_lo; + CORE_ADDR ipa_trace_buffer_hi; + + if (read_inferior_uinteger (ipa_sym_addrs.addr_traceframe_read_count, + &ipa_traceframe_read_count_racy)) + { + /* This will happen in most targets if the current thread is + running. */ + return; + } + + if (read_inferior_uinteger (ipa_sym_addrs.addr_traceframe_write_count, + &ipa_traceframe_write_count_racy)) + return; + + trace_debug ("ipa_traceframe_count (racy area): %d (w=%d, r=%d)", + ipa_traceframe_write_count_racy + - ipa_traceframe_read_count_racy, + ipa_traceframe_write_count_racy, + ipa_traceframe_read_count_racy); + + if (ipa_traceframe_write_count_racy == ipa_traceframe_read_count_racy) + return; + + about_to_request_buffer_space_bkpt + = set_breakpoint_at (ipa_sym_addrs.addr_about_to_request_buffer_space, + NULL); + + if (read_inferior_uinteger (ipa_sym_addrs.addr_trace_buffer_ctrl_curr, + &ipa_trace_buffer_ctrl_curr)) + return; + + ipa_trace_buffer_ctrl_curr_old = ipa_trace_buffer_ctrl_curr; + + curr_tbctrl_idx = ipa_trace_buffer_ctrl_curr & ~GDBSERVER_FLUSH_COUNT_MASK; + + { + unsigned int prev, counter; + + /* Update the token, with new counters, and the GDBserver stamp + bit. Alway reuse the current TBC index. */ + prev = ipa_trace_buffer_ctrl_curr & GDBSERVER_FLUSH_COUNT_MASK_CURR; + counter = (prev + 0x100) & GDBSERVER_FLUSH_COUNT_MASK_CURR; + + ipa_trace_buffer_ctrl_curr = (GDBSERVER_UPDATED_FLUSH_COUNT_BIT + | (prev << 12) + | counter + | curr_tbctrl_idx); + } + + if (write_inferior_uinteger (ipa_sym_addrs.addr_trace_buffer_ctrl_curr, + ipa_trace_buffer_ctrl_curr)) + return; + + trace_debug ("Lib: Committed %08x -> %08x", + ipa_trace_buffer_ctrl_curr_old, + ipa_trace_buffer_ctrl_curr); + + /* Re-read these, now that we've installed the + `about_to_request_buffer_space' breakpoint/lock. A thread could + have finished a traceframe between the last read of these + counters and setting the breakpoint above. If we start + uploading, we never want to leave this function with + traceframe_read_count != 0, otherwise, GDBserver could end up + incrementing the counter tokens more than once (due to event loop + nesting), which would break the IP agent's "effective" detection + (see trace_alloc_trace_buffer). */ + if (read_inferior_uinteger (ipa_sym_addrs.addr_traceframe_read_count, + &ipa_traceframe_read_count)) + return; + if (read_inferior_uinteger (ipa_sym_addrs.addr_traceframe_write_count, + &ipa_traceframe_write_count)) + return; + + if (debug_threads) + { + trace_debug ("ipa_traceframe_count (blocked area): %d (w=%d, r=%d)", + ipa_traceframe_write_count - ipa_traceframe_read_count, + ipa_traceframe_write_count, ipa_traceframe_read_count); + + if (ipa_traceframe_write_count != ipa_traceframe_write_count_racy + || ipa_traceframe_read_count != ipa_traceframe_read_count_racy) + trace_debug ("note that ipa_traceframe_count's parts changed"); + } + + /* Get the address of the current TBC object (the IP agent has an + array of 3 such objects). The index is stored in the TBC + token. */ + ipa_trace_buffer_ctrl_addr = ipa_sym_addrs.addr_trace_buffer_ctrl; + ipa_trace_buffer_ctrl_addr + += sizeof (struct ipa_trace_buffer_control) * curr_tbctrl_idx; + + if (read_inferior_memory (ipa_trace_buffer_ctrl_addr, + (unsigned char *) &ipa_trace_buffer_ctrl, + sizeof (struct ipa_trace_buffer_control))) + return; + + if (read_inferior_data_pointer (ipa_sym_addrs.addr_trace_buffer_lo, + &ipa_trace_buffer_lo)) + return; + if (read_inferior_data_pointer (ipa_sym_addrs.addr_trace_buffer_hi, + &ipa_trace_buffer_hi)) + return; + + /* Offsets are easier to grok for debugging than raw addresses, + especially for the small trace buffer sizes that are useful for + testing. */ + trace_debug ("Lib: Trace buffer [%d] start=%d free=%d " + "endfree=%d wrap=%d hi=%d", + curr_tbctrl_idx, + (int) (ipa_trace_buffer_ctrl.start - ipa_trace_buffer_lo), + (int) (ipa_trace_buffer_ctrl.free - ipa_trace_buffer_lo), + (int) (ipa_trace_buffer_ctrl.end_free - ipa_trace_buffer_lo), + (int) (ipa_trace_buffer_ctrl.wrap - ipa_trace_buffer_lo), + (int) (ipa_trace_buffer_hi - ipa_trace_buffer_lo)); + + /* Note that the IPA's buffer is always circular. */ + +#define IPA_FIRST_TRACEFRAME() (ipa_trace_buffer_ctrl.start) + +#define IPA_NEXT_TRACEFRAME_1(TF, TFOBJ) \ + ((TF) + sizeof (struct traceframe) + (TFOBJ)->data_size) + +#define IPA_NEXT_TRACEFRAME(TF, TFOBJ) \ + (IPA_NEXT_TRACEFRAME_1 (TF, TFOBJ) \ + - ((IPA_NEXT_TRACEFRAME_1 (TF, TFOBJ) >= ipa_trace_buffer_ctrl.wrap) \ + ? (ipa_trace_buffer_ctrl.wrap - ipa_trace_buffer_lo) \ + : 0)) + + tf = IPA_FIRST_TRACEFRAME (); + + while (ipa_traceframe_write_count - ipa_traceframe_read_count) + { + struct tracepoint *tpoint; + struct traceframe *tframe; + unsigned char *block; + struct traceframe ipa_tframe; + + if (read_inferior_memory (tf, (unsigned char *) &ipa_tframe, + offsetof (struct traceframe, data))) + error ("Uploading: couldn't read traceframe at %s\n", paddress (tf)); + + if (ipa_tframe.tpnum == 0) + { + internal_error (__FILE__, __LINE__, + "Uploading: No (more) fast traceframes, but" + " ipa_traceframe_count == %u??\n", + ipa_traceframe_write_count + - ipa_traceframe_read_count); + } + + /* Note that this will be incorrect for multi-location + tracepoints... */ + tpoint = find_next_tracepoint_by_number (NULL, ipa_tframe.tpnum); + + tframe = add_traceframe (tpoint); + if (tframe == NULL) + { + trace_buffer_is_full = 1; + trace_debug ("Uploading: trace buffer is full"); + } + else + { + /* Copy the whole set of blocks in one go for now. FIXME: + split this in smaller blocks. */ + block = add_traceframe_block (tframe, tpoint, + ipa_tframe.data_size); + if (block != NULL) + { + if (read_inferior_memory (tf + + offsetof (struct traceframe, data), + block, ipa_tframe.data_size)) + error ("Uploading: Couldn't read traceframe data at %s\n", + paddress (tf + offsetof (struct traceframe, data))); + } + + trace_debug ("Uploading: traceframe didn't fit"); + finish_traceframe (tframe); + } + + tf = IPA_NEXT_TRACEFRAME (tf, &ipa_tframe); + + /* If we freed the traceframe that wrapped around, go back + to the non-wrap case. */ + if (tf < ipa_trace_buffer_ctrl.start) + { + trace_debug ("Lib: Discarding past the wraparound"); + ipa_trace_buffer_ctrl.wrap = ipa_trace_buffer_hi; + } + ipa_trace_buffer_ctrl.start = tf; + ipa_trace_buffer_ctrl.end_free = ipa_trace_buffer_ctrl.start; + ++ipa_traceframe_read_count; + + if (ipa_trace_buffer_ctrl.start == ipa_trace_buffer_ctrl.free + && ipa_trace_buffer_ctrl.start == ipa_trace_buffer_ctrl.end_free) + { + trace_debug ("Lib: buffer is fully empty. " + "Trace buffer [%d] start=%d free=%d endfree=%d", + curr_tbctrl_idx, + (int) (ipa_trace_buffer_ctrl.start + - ipa_trace_buffer_lo), + (int) (ipa_trace_buffer_ctrl.free + - ipa_trace_buffer_lo), + (int) (ipa_trace_buffer_ctrl.end_free + - ipa_trace_buffer_lo)); + + ipa_trace_buffer_ctrl.start = ipa_trace_buffer_lo; + ipa_trace_buffer_ctrl.free = ipa_trace_buffer_lo; + ipa_trace_buffer_ctrl.end_free = ipa_trace_buffer_hi; + ipa_trace_buffer_ctrl.wrap = ipa_trace_buffer_hi; + } + + trace_debug ("Uploaded a traceframe\n" + "Lib: Trace buffer [%d] start=%d free=%d " + "endfree=%d wrap=%d hi=%d", + curr_tbctrl_idx, + (int) (ipa_trace_buffer_ctrl.start - ipa_trace_buffer_lo), + (int) (ipa_trace_buffer_ctrl.free - ipa_trace_buffer_lo), + (int) (ipa_trace_buffer_ctrl.end_free + - ipa_trace_buffer_lo), + (int) (ipa_trace_buffer_ctrl.wrap - ipa_trace_buffer_lo), + (int) (ipa_trace_buffer_hi - ipa_trace_buffer_lo)); + } + + if (target_write_memory (ipa_trace_buffer_ctrl_addr, + (unsigned char *) &ipa_trace_buffer_ctrl, + sizeof (struct ipa_trace_buffer_control))) + return; + + write_inferior_integer (ipa_sym_addrs.addr_traceframe_read_count, + ipa_traceframe_read_count); + + trace_debug ("Done uploading traceframes [%d]\n", curr_tbctrl_idx); + + pause_all (1); + + delete_breakpoint (about_to_request_buffer_space_bkpt); + about_to_request_buffer_space_bkpt = NULL; + + unpause_all (1); + + if (trace_buffer_is_full) + stop_tracing (); +} +#endif + +#ifdef IN_PROCESS_AGENT + +IP_AGENT_EXPORT_VAR int ust_loaded; +IP_AGENT_EXPORT_VAR char cmd_buf[IPA_CMD_BUF_SIZE]; + +#ifdef HAVE_UST + +/* Static tracepoints. */ + +/* UST puts a "struct tracepoint" in the global namespace, which + conflicts with our tracepoint. Arguably, being a library, it + shouldn't take ownership of such a generic name. We work around it + here. */ +#define tracepoint ust_tracepoint +#include +#undef tracepoint + +extern int serialize_to_text (char *outbuf, int bufsize, + const char *fmt, va_list ap); + +#define GDB_PROBE_NAME "gdb" + +/* We dynamically search for the UST symbols instead of linking them + in. This lets the user decide if the application uses static + tracepoints, instead of always pulling libust.so in. This vector + holds pointers to all functions we care about. */ + +static struct +{ + int (*serialize_to_text) (char *outbuf, int bufsize, + const char *fmt, va_list ap); + + int (*ltt_probe_register) (struct ltt_available_probe *pdata); + int (*ltt_probe_unregister) (struct ltt_available_probe *pdata); + + int (*ltt_marker_connect) (const char *channel, const char *mname, + const char *pname); + int (*ltt_marker_disconnect) (const char *channel, const char *mname, + const char *pname); + + void (*marker_iter_start) (struct marker_iter *iter); + void (*marker_iter_next) (struct marker_iter *iter); + void (*marker_iter_stop) (struct marker_iter *iter); + void (*marker_iter_reset) (struct marker_iter *iter); +} ust_ops; + +#include + +/* Cast through typeof to catch incompatible API changes. Since UST + only builds with gcc, we can freely use gcc extensions here + too. */ +#define GET_UST_SYM(SYM) \ + do \ + { \ + if (ust_ops.SYM == NULL) \ + ust_ops.SYM = (typeof (&SYM)) dlsym (RTLD_DEFAULT, #SYM); \ + if (ust_ops.SYM == NULL) \ + return 0; \ + } while (0) + +#define USTF(SYM) ust_ops.SYM + +/* Get pointers to all libust.so functions we care about. */ + +static int +dlsym_ust (void) +{ + GET_UST_SYM (serialize_to_text); + + GET_UST_SYM (ltt_probe_register); + GET_UST_SYM (ltt_probe_unregister); + GET_UST_SYM (ltt_marker_connect); + GET_UST_SYM (ltt_marker_disconnect); + + GET_UST_SYM (marker_iter_start); + GET_UST_SYM (marker_iter_next); + GET_UST_SYM (marker_iter_stop); + GET_UST_SYM (marker_iter_reset); + + ust_loaded = 1; + return 1; +} + +/* Given an UST marker, return the matching gdb static tracepoint. + The match is done by address. */ + +static struct tracepoint * +ust_marker_to_static_tracepoint (const struct marker *mdata) +{ + struct tracepoint *tpoint; + + for (tpoint = tracepoints; tpoint; tpoint = tpoint->next) + { + if (tpoint->type != static_tracepoint) + continue; + + if (tpoint->address == (uintptr_t) mdata->location) + return tpoint; + } + + return NULL; +} + +/* The probe function we install on lttng/ust markers. Whenever a + probed ust marker is hit, this function is called. This is similar + to gdb_collect, only for static tracepoints, instead of fast + tracepoints. */ + +static void +gdb_probe (const struct marker *mdata, void *probe_private, + struct registers *regs, void *call_private, + const char *fmt, va_list *args) +{ + struct tracepoint *tpoint; + struct static_tracepoint_ctx ctx; + const struct target_desc *ipa_tdesc; + + /* Don't do anything until the trace run is completely set up. */ + if (!tracing) + { + trace_debug ("gdb_probe: not tracing\n"); + return; + } + + ipa_tdesc = get_ipa_tdesc (ipa_tdesc_idx); + ctx.base.type = static_tracepoint; + ctx.regcache_initted = 0; + ctx.regs = regs; + ctx.fmt = fmt; + ctx.args = args; + + /* Wrap the regblock in a register cache (in the stack, we don't + want to malloc here). */ + ctx.regspace = alloca (ipa_tdesc->registers_size); + if (ctx.regspace == NULL) + { + trace_debug ("Trace buffer block allocation failed, skipping"); + return; + } + + tpoint = ust_marker_to_static_tracepoint (mdata); + if (tpoint == NULL) + { + trace_debug ("gdb_probe: marker not known: " + "loc:0x%p, ch:\"%s\",n:\"%s\",f:\"%s\"", + mdata->location, mdata->channel, + mdata->name, mdata->format); + return; + } + + if (!tpoint->enabled) + { + trace_debug ("gdb_probe: tracepoint disabled"); + return; + } + + ctx.tpoint = tpoint; + + trace_debug ("gdb_probe: collecting marker: " + "loc:0x%p, ch:\"%s\",n:\"%s\",f:\"%s\"", + mdata->location, mdata->channel, + mdata->name, mdata->format); + + /* Test the condition if present, and collect if true. */ + if (tpoint->cond == NULL + || condition_true_at_tracepoint ((struct tracepoint_hit_ctx *) &ctx, + tpoint)) + { + collect_data_at_tracepoint ((struct tracepoint_hit_ctx *) &ctx, + tpoint->address, tpoint); + + if (stopping_tracepoint + || trace_buffer_is_full + || expr_eval_result != expr_eval_no_error) + stop_tracing (); + } + else + { + /* If there was a condition and it evaluated to false, the only + way we would stop tracing is if there was an error during + condition expression evaluation. */ + if (expr_eval_result != expr_eval_no_error) + stop_tracing (); + } +} + +/* Called if the gdb static tracepoint requested collecting "$_sdata", + static tracepoint string data. This is a string passed to the + tracing library by the user, at the time of the tracepoint marker + call. E.g., in the UST marker call: + + trace_mark (ust, bar33, "str %s", "FOOBAZ"); + + the collected data is "str FOOBAZ". +*/ + +static void +collect_ust_data_at_tracepoint (struct tracepoint_hit_ctx *ctx, + struct traceframe *tframe) +{ + struct static_tracepoint_ctx *umd = (struct static_tracepoint_ctx *) ctx; + unsigned char *bufspace; + int size; + va_list copy; + unsigned short blocklen; + + if (umd == NULL) + { + trace_debug ("Wanted to collect static trace data, " + "but there's no static trace data"); + return; + } + + va_copy (copy, *umd->args); + size = USTF(serialize_to_text) (NULL, 0, umd->fmt, copy); + va_end (copy); + + trace_debug ("Want to collect ust data"); + + /* 'S' + size + string */ + bufspace = add_traceframe_block (tframe, umd->tpoint, + 1 + sizeof (blocklen) + size + 1); + if (bufspace == NULL) + { + trace_debug ("Trace buffer block allocation failed, skipping"); + return; + } + + /* Identify a static trace data block. */ + *bufspace = 'S'; + + blocklen = size + 1; + memcpy (bufspace + 1, &blocklen, sizeof (blocklen)); + + va_copy (copy, *umd->args); + USTF(serialize_to_text) ((char *) bufspace + 1 + sizeof (blocklen), + size + 1, umd->fmt, copy); + va_end (copy); + + trace_debug ("Storing static tracepoint data in regblock: %s", + bufspace + 1 + sizeof (blocklen)); +} + +/* The probe to register with lttng/ust. */ +static struct ltt_available_probe gdb_ust_probe = + { + GDB_PROBE_NAME, + NULL, + gdb_probe, + }; + +#endif /* HAVE_UST */ +#endif /* IN_PROCESS_AGENT */ + +#ifndef IN_PROCESS_AGENT + +/* Ask the in-process agent to run a command. Since we don't want to + have to handle the IPA hitting breakpoints while running the + command, we pause all threads, remove all breakpoints, and then set + the helper thread re-running. We communicate with the helper + thread by means of direct memory xfering, and a socket for + synchronization. */ + +static int +run_inferior_command (char *cmd, int len) +{ + int err = -1; + int pid = current_ptid.pid (); + + trace_debug ("run_inferior_command: running: %s", cmd); + + pause_all (0); + uninsert_all_breakpoints (); + + err = agent_run_command (pid, (const char *) cmd, len); + + reinsert_all_breakpoints (); + unpause_all (0); + + return err; +} + +#else /* !IN_PROCESS_AGENT */ + +#include +#include + +#ifndef UNIX_PATH_MAX +#define UNIX_PATH_MAX sizeof(((struct sockaddr_un *) NULL)->sun_path) +#endif + +/* Where we put the socked used for synchronization. */ +#define SOCK_DIR P_tmpdir + +/* Thread ID of the helper thread. GDBserver reads this to know which + is the help thread. This is an LWP id on Linux. */ +EXTERN_C_PUSH +IP_AGENT_EXPORT_VAR int helper_thread_id; +EXTERN_C_POP + +static int +init_named_socket (const char *name) +{ + int result, fd; + struct sockaddr_un addr; + + result = fd = socket (PF_UNIX, SOCK_STREAM, 0); + if (result == -1) + { + warning ("socket creation failed: %s", safe_strerror (errno)); + return -1; + } + + addr.sun_family = AF_UNIX; + + strncpy (addr.sun_path, name, UNIX_PATH_MAX); + addr.sun_path[UNIX_PATH_MAX - 1] = '\0'; + + result = access (name, F_OK); + if (result == 0) + { + /* File exists. */ + result = unlink (name); + if (result == -1) + { + warning ("unlink failed: %s", safe_strerror (errno)); + close (fd); + return -1; + } + warning ("socket %s already exists; overwriting", name); + } + + result = bind (fd, (struct sockaddr *) &addr, sizeof (addr)); + if (result == -1) + { + warning ("bind failed: %s", safe_strerror (errno)); + close (fd); + return -1; + } + + result = listen (fd, 1); + if (result == -1) + { + warning ("listen: %s", safe_strerror (errno)); + close (fd); + return -1; + } + + return fd; +} + +static char agent_socket_name[UNIX_PATH_MAX]; + +static int +gdb_agent_socket_init (void) +{ + int result, fd; + + result = xsnprintf (agent_socket_name, UNIX_PATH_MAX, "%s/gdb_ust%d", + SOCK_DIR, getpid ()); + if (result >= UNIX_PATH_MAX) + { + trace_debug ("string overflow allocating socket name"); + return -1; + } + + fd = init_named_socket (agent_socket_name); + if (fd < 0) + warning ("Error initializing named socket (%s) for communication with the " + "ust helper thread. Check that directory exists and that it " + "is writable.", agent_socket_name); + + return fd; +} + +#ifdef HAVE_UST + +/* The next marker to be returned on a qTsSTM command. */ +static const struct marker *next_st; + +/* Returns the first known marker. */ + +struct marker * +first_marker (void) +{ + struct marker_iter iter; + + USTF(marker_iter_reset) (&iter); + USTF(marker_iter_start) (&iter); + + return iter.marker; +} + +/* Returns the marker following M. */ + +const struct marker * +next_marker (const struct marker *m) +{ + struct marker_iter iter; + + USTF(marker_iter_reset) (&iter); + USTF(marker_iter_start) (&iter); + + for (; iter.marker != NULL; USTF(marker_iter_next) (&iter)) + { + if (iter.marker == m) + { + USTF(marker_iter_next) (&iter); + return iter.marker; + } + } + + return NULL; +} + +/* Return an hexstr version of the STR C string, fit for sending to + GDB. */ + +static char * +cstr_to_hexstr (const char *str) +{ + int len = strlen (str); + char *hexstr = xmalloc (len * 2 + 1); + bin2hex ((gdb_byte *) str, hexstr, len); + return hexstr; +} + +/* Compose packet that is the response to the qTsSTM/qTfSTM/qTSTMat + packets. */ + +static void +response_ust_marker (char *packet, const struct marker *st) +{ + char *strid, *format, *tmp; + + next_st = next_marker (st); + + tmp = xmalloc (strlen (st->channel) + 1 + + strlen (st->name) + 1); + sprintf (tmp, "%s/%s", st->channel, st->name); + + strid = cstr_to_hexstr (tmp); + free (tmp); + + format = cstr_to_hexstr (st->format); + + sprintf (packet, "m%s:%s:%s", + paddress ((uintptr_t) st->location), + strid, + format); + + free (strid); + free (format); +} + +/* Return the first static tracepoint, and initialize the state + machine that will iterate through all the static tracepoints. */ + +static void +cmd_qtfstm (char *packet) +{ + trace_debug ("Returning first trace state variable definition"); + + if (first_marker ()) + response_ust_marker (packet, first_marker ()); + else + strcpy (packet, "l"); +} + +/* Return additional trace state variable definitions. */ + +static void +cmd_qtsstm (char *packet) +{ + trace_debug ("Returning static tracepoint"); + + if (next_st) + response_ust_marker (packet, next_st); + else + strcpy (packet, "l"); +} + +/* Disconnect the GDB probe from a marker at a given address. */ + +static void +unprobe_marker_at (char *packet) +{ + char *p = packet; + ULONGEST address; + struct marker_iter iter; + + p += sizeof ("unprobe_marker_at:") - 1; + + p = unpack_varlen_hex (p, &address); + + USTF(marker_iter_reset) (&iter); + USTF(marker_iter_start) (&iter); + for (; iter.marker != NULL; USTF(marker_iter_next) (&iter)) + if ((uintptr_t ) iter.marker->location == address) + { + int result; + + result = USTF(ltt_marker_disconnect) (iter.marker->channel, + iter.marker->name, + GDB_PROBE_NAME); + if (result < 0) + warning ("could not disable marker %s/%s", + iter.marker->channel, iter.marker->name); + break; + } +} + +/* Connect the GDB probe to a marker at a given address. */ + +static int +probe_marker_at (char *packet) +{ + char *p = packet; + ULONGEST address; + struct marker_iter iter; + struct marker *m; + + p += sizeof ("probe_marker_at:") - 1; + + p = unpack_varlen_hex (p, &address); + + USTF(marker_iter_reset) (&iter); + + for (USTF(marker_iter_start) (&iter), m = iter.marker; + m != NULL; + USTF(marker_iter_next) (&iter), m = iter.marker) + if ((uintptr_t ) m->location == address) + { + int result; + + trace_debug ("found marker for address. " + "ltt_marker_connect (marker = %s/%s)", + m->channel, m->name); + + result = USTF(ltt_marker_connect) (m->channel, m->name, + GDB_PROBE_NAME); + if (result && result != -EEXIST) + trace_debug ("ltt_marker_connect (marker = %s/%s, errno = %d)", + m->channel, m->name, -result); + + if (result < 0) + { + sprintf (packet, "E.could not connect marker: channel=%s, name=%s", + m->channel, m->name); + return -1; + } + + strcpy (packet, "OK"); + return 0; + } + + sprintf (packet, "E.no marker found at 0x%s", paddress (address)); + return -1; +} + +static int +cmd_qtstmat (char *packet) +{ + char *p = packet; + ULONGEST address; + struct marker_iter iter; + struct marker *m; + + p += sizeof ("qTSTMat:") - 1; + + p = unpack_varlen_hex (p, &address); + + USTF(marker_iter_reset) (&iter); + + for (USTF(marker_iter_start) (&iter), m = iter.marker; + m != NULL; + USTF(marker_iter_next) (&iter), m = iter.marker) + if ((uintptr_t ) m->location == address) + { + response_ust_marker (packet, m); + return 0; + } + + strcpy (packet, "l"); + return -1; +} + +static void +gdb_ust_init (void) +{ + if (!dlsym_ust ()) + return; + + USTF(ltt_probe_register) (&gdb_ust_probe); +} + +#endif /* HAVE_UST */ + +#include + +static void +gdb_agent_remove_socket (void) +{ + unlink (agent_socket_name); +} + +/* Helper thread of agent. */ + +static void * +gdb_agent_helper_thread (void *arg) +{ + int listen_fd; + + atexit (gdb_agent_remove_socket); + + while (1) + { + listen_fd = gdb_agent_socket_init (); + + if (helper_thread_id == 0) + helper_thread_id = syscall (SYS_gettid); + + if (listen_fd == -1) + { + warning ("could not create sync socket"); + break; + } + + while (1) + { + socklen_t tmp; + struct sockaddr_un sockaddr; + int fd; + char buf[1]; + int ret; + int stop_loop = 0; + + tmp = sizeof (sockaddr); + + do + { + fd = accept (listen_fd, (struct sockaddr *) &sockaddr, &tmp); + } + /* It seems an ERESTARTSYS can escape out of accept. */ + while (fd == -512 || (fd == -1 && errno == EINTR)); + + if (fd < 0) + { + warning ("Accept returned %d, error: %s", + fd, safe_strerror (errno)); + break; + } + + do + { + ret = read (fd, buf, 1); + } while (ret == -1 && errno == EINTR); + + if (ret == -1) + { + warning ("reading socket (fd=%d) failed with %s", + fd, safe_strerror (errno)); + close (fd); + break; + } + + if (cmd_buf[0]) + { + if (startswith (cmd_buf, "close")) + { + stop_loop = 1; + } +#ifdef HAVE_UST + else if (strcmp ("qTfSTM", cmd_buf) == 0) + { + cmd_qtfstm (cmd_buf); + } + else if (strcmp ("qTsSTM", cmd_buf) == 0) + { + cmd_qtsstm (cmd_buf); + } + else if (startswith (cmd_buf, "unprobe_marker_at:")) + { + unprobe_marker_at (cmd_buf); + } + else if (startswith (cmd_buf, "probe_marker_at:")) + { + probe_marker_at (cmd_buf); + } + else if (startswith (cmd_buf, "qTSTMat:")) + { + cmd_qtstmat (cmd_buf); + } +#endif /* HAVE_UST */ + } + + /* Fix compiler's warning: ignoring return value of 'write'. */ + ret = write (fd, buf, 1); + close (fd); + + if (stop_loop) + { + close (listen_fd); + unlink (agent_socket_name); + + /* Sleep endlessly to wait the whole inferior stops. This + thread can not exit because GDB or GDBserver may still need + 'current_thread' (representing this thread) to access + inferior memory. Otherwise, this thread exits earlier than + other threads, and 'current_thread' is set to NULL. */ + while (1) + sleep (10); + } + } + } + + return NULL; +} + +#include +#include + +EXTERN_C_PUSH +IP_AGENT_EXPORT_VAR int gdb_agent_capability = AGENT_CAPA_STATIC_TRACE; +EXTERN_C_POP + +static void +gdb_agent_init (void) +{ + int res; + pthread_t thread; + sigset_t new_mask; + sigset_t orig_mask; + + /* We want the helper thread to be as transparent as possible, so + have it inherit an all-signals-blocked mask. */ + + sigfillset (&new_mask); + res = pthread_sigmask (SIG_SETMASK, &new_mask, &orig_mask); + if (res) + perror_with_name ("pthread_sigmask (1)"); + + res = pthread_create (&thread, + NULL, + gdb_agent_helper_thread, + NULL); + + res = pthread_sigmask (SIG_SETMASK, &orig_mask, NULL); + if (res) + perror_with_name ("pthread_sigmask (2)"); + + while (helper_thread_id == 0) + usleep (1); + +#ifdef HAVE_UST + gdb_ust_init (); +#endif +} + +#include + +IP_AGENT_EXPORT_VAR char *gdb_tp_heap_buffer; +IP_AGENT_EXPORT_VAR char *gdb_jump_pad_buffer; +IP_AGENT_EXPORT_VAR char *gdb_jump_pad_buffer_end; +IP_AGENT_EXPORT_VAR char *gdb_trampoline_buffer; +IP_AGENT_EXPORT_VAR char *gdb_trampoline_buffer_end; +IP_AGENT_EXPORT_VAR char *gdb_trampoline_buffer_error; + +/* Record the result of getting buffer space for fast tracepoint + trampolines. Any error message is copied, since caller may not be + using persistent storage. */ + +void +set_trampoline_buffer_space (CORE_ADDR begin, CORE_ADDR end, char *errmsg) +{ + gdb_trampoline_buffer = (char *) (uintptr_t) begin; + gdb_trampoline_buffer_end = (char *) (uintptr_t) end; + if (errmsg) + strncpy (gdb_trampoline_buffer_error, errmsg, 99); + else + strcpy (gdb_trampoline_buffer_error, "no buffer passed"); +} + +static void __attribute__ ((constructor)) +initialize_tracepoint_ftlib (void) +{ + initialize_tracepoint (); + + gdb_agent_init (); +} + +#ifndef HAVE_GETAUXVAL +/* Retrieve the value of TYPE from the auxiliary vector. If TYPE is not + found, 0 is returned. This function is provided if glibc is too old. */ + +unsigned long +getauxval (unsigned long type) +{ + unsigned long data[2]; + FILE *f = fopen ("/proc/self/auxv", "r"); + unsigned long value = 0; + + if (f == NULL) + return 0; + + while (fread (data, sizeof (data), 1, f) > 0) + { + if (data[0] == type) + { + value = data[1]; + break; + } + } + + fclose (f); + return value; +} +#endif + +#endif /* IN_PROCESS_AGENT */ + +/* Return a timestamp, expressed as microseconds of the usual Unix + time. (As the result is a 64-bit number, it will not overflow any + time soon.) */ + +static LONGEST +get_timestamp (void) +{ + using namespace std::chrono; + + steady_clock::time_point now = steady_clock::now (); + return duration_cast (now.time_since_epoch ()).count (); +} + +void +initialize_tracepoint (void) +{ + /* Start with the default size. */ + init_trace_buffer (DEFAULT_TRACE_BUFFER_SIZE); + + /* Wire trace state variable 1 to be the timestamp. This will be + uploaded to GDB upon connection and become one of its trace state + variables. (In case you're wondering, if GDB already has a trace + variable numbered 1, it will be renumbered.) */ + create_trace_state_variable (1, 0); + set_trace_state_variable_name (1, "trace_timestamp"); + set_trace_state_variable_getter (1, get_timestamp); + +#ifdef IN_PROCESS_AGENT + { + int pagesize; + size_t jump_pad_size; + + pagesize = sysconf (_SC_PAGE_SIZE); + if (pagesize == -1) + perror_with_name ("sysconf"); + +#define SCRATCH_BUFFER_NPAGES 20 + + jump_pad_size = pagesize * SCRATCH_BUFFER_NPAGES; + + gdb_tp_heap_buffer = (char *) xmalloc (5 * 1024 * 1024); + gdb_jump_pad_buffer = (char *) alloc_jump_pad_buffer (jump_pad_size); + if (gdb_jump_pad_buffer == NULL) + perror_with_name ("mmap"); + gdb_jump_pad_buffer_end = gdb_jump_pad_buffer + jump_pad_size; + } + + gdb_trampoline_buffer = gdb_trampoline_buffer_end = 0; + + /* It's not a fatal error for something to go wrong with trampoline + buffer setup, but it can be mysterious, so create a channel to + report back on what went wrong, using a fixed size since we may + not be able to allocate space later when the problem occurs. */ + gdb_trampoline_buffer_error = (char *) xmalloc (IPA_BUFSIZ); + + strcpy (gdb_trampoline_buffer_error, "No errors reported"); + + initialize_low_tracepoint (); +#endif +} diff --git a/gdbserver/utils.c b/gdbserver/utils.c deleted file mode 100644 index d88f4ac5ca7..00000000000 --- a/gdbserver/utils.c +++ /dev/null @@ -1,127 +0,0 @@ -/* General utility routines for the remote server for GDB. - Copyright (C) 1986-2020 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 . */ - -#include "server.h" - -#ifdef IN_PROCESS_AGENT -# define PREFIX "ipa: " -# define TOOLNAME "GDBserver in-process agent" -#else -# define PREFIX "gdbserver: " -# define TOOLNAME "GDBserver" -#endif - -/* Generally useful subroutines used throughout the program. */ - -void -malloc_failure (long size) -{ - fprintf (stderr, - PREFIX "ran out of memory while trying to allocate %lu bytes\n", - (unsigned long) size); - exit (1); -} - -/* Print the system error message for errno, and also mention STRING - as the file name for which the error was encountered. - Then return to command level. */ - -void -perror_with_name (const char *string) -{ - const char *err; - char *combined; - - err = safe_strerror (errno); - if (err == NULL) - err = "unknown error"; - - combined = (char *) alloca (strlen (err) + strlen (string) + 3); - strcpy (combined, string); - strcat (combined, ": "); - strcat (combined, err); - - error ("%s.", combined); -} - -/* Print an error message and return to top level. */ - -void -verror (const char *string, va_list args) -{ -#ifdef IN_PROCESS_AGENT - fflush (stdout); - vfprintf (stderr, string, args); - fprintf (stderr, "\n"); - exit (1); -#else - throw_verror (GENERIC_ERROR, string, args); -#endif -} - -void -vwarning (const char *string, va_list args) -{ - fprintf (stderr, PREFIX); - vfprintf (stderr, string, args); - fprintf (stderr, "\n"); -} - -/* Report a problem internal to GDBserver, and exit. */ - -void -internal_verror (const char *file, int line, const char *fmt, va_list args) -{ - fprintf (stderr, "\ -%s:%d: A problem internal to " TOOLNAME " has been detected.\n", file, line); - vfprintf (stderr, fmt, args); - fprintf (stderr, "\n"); - exit (1); -} - -/* Report a problem internal to GDBserver. */ - -void -internal_vwarning (const char *file, int line, const char *fmt, va_list args) -{ - fprintf (stderr, "\ -%s:%d: A problem internal to " TOOLNAME " has been detected.\n", file, line); - vfprintf (stderr, fmt, args); - fprintf (stderr, "\n"); -} - -/* Convert a CORE_ADDR into a HEX string, like %lx. - The result is stored in a circular static buffer, NUMCELLS deep. */ - -char * -paddress (CORE_ADDR addr) -{ - return phex_nz (addr, sizeof (CORE_ADDR)); -} - -/* Convert a file descriptor into a printable string. */ - -char * -pfildes (gdb_fildes_t fd) -{ -#if USE_WIN32API - return phex_nz (fd, sizeof (gdb_fildes_t)); -#else - return plongest (fd); -#endif -} diff --git a/gdbserver/utils.cc b/gdbserver/utils.cc new file mode 100644 index 00000000000..d88f4ac5ca7 --- /dev/null +++ b/gdbserver/utils.cc @@ -0,0 +1,127 @@ +/* General utility routines for the remote server for GDB. + Copyright (C) 1986-2020 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 . */ + +#include "server.h" + +#ifdef IN_PROCESS_AGENT +# define PREFIX "ipa: " +# define TOOLNAME "GDBserver in-process agent" +#else +# define PREFIX "gdbserver: " +# define TOOLNAME "GDBserver" +#endif + +/* Generally useful subroutines used throughout the program. */ + +void +malloc_failure (long size) +{ + fprintf (stderr, + PREFIX "ran out of memory while trying to allocate %lu bytes\n", + (unsigned long) size); + exit (1); +} + +/* Print the system error message for errno, and also mention STRING + as the file name for which the error was encountered. + Then return to command level. */ + +void +perror_with_name (const char *string) +{ + const char *err; + char *combined; + + err = safe_strerror (errno); + if (err == NULL) + err = "unknown error"; + + combined = (char *) alloca (strlen (err) + strlen (string) + 3); + strcpy (combined, string); + strcat (combined, ": "); + strcat (combined, err); + + error ("%s.", combined); +} + +/* Print an error message and return to top level. */ + +void +verror (const char *string, va_list args) +{ +#ifdef IN_PROCESS_AGENT + fflush (stdout); + vfprintf (stderr, string, args); + fprintf (stderr, "\n"); + exit (1); +#else + throw_verror (GENERIC_ERROR, string, args); +#endif +} + +void +vwarning (const char *string, va_list args) +{ + fprintf (stderr, PREFIX); + vfprintf (stderr, string, args); + fprintf (stderr, "\n"); +} + +/* Report a problem internal to GDBserver, and exit. */ + +void +internal_verror (const char *file, int line, const char *fmt, va_list args) +{ + fprintf (stderr, "\ +%s:%d: A problem internal to " TOOLNAME " has been detected.\n", file, line); + vfprintf (stderr, fmt, args); + fprintf (stderr, "\n"); + exit (1); +} + +/* Report a problem internal to GDBserver. */ + +void +internal_vwarning (const char *file, int line, const char *fmt, va_list args) +{ + fprintf (stderr, "\ +%s:%d: A problem internal to " TOOLNAME " has been detected.\n", file, line); + vfprintf (stderr, fmt, args); + fprintf (stderr, "\n"); +} + +/* Convert a CORE_ADDR into a HEX string, like %lx. + The result is stored in a circular static buffer, NUMCELLS deep. */ + +char * +paddress (CORE_ADDR addr) +{ + return phex_nz (addr, sizeof (CORE_ADDR)); +} + +/* Convert a file descriptor into a printable string. */ + +char * +pfildes (gdb_fildes_t fd) +{ +#if USE_WIN32API + return phex_nz (fd, sizeof (gdb_fildes_t)); +#else + return plongest (fd); +#endif +} diff --git a/gdbserver/win32-arm-low.c b/gdbserver/win32-arm-low.c deleted file mode 100644 index 619847d10fc..00000000000 --- a/gdbserver/win32-arm-low.c +++ /dev/null @@ -1,134 +0,0 @@ -/* Copyright (C) 2007-2020 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 . */ - -#include "server.h" -#include "win32-low.h" - -#ifndef CONTEXT_FLOATING_POINT -#define CONTEXT_FLOATING_POINT 0 -#endif - -/* Defined in auto-generated file reg-arm.c. */ -void init_registers_arm (void); -extern const struct target_desc *tdesc_arm; - -static void -arm_get_thread_context (win32_thread_info *th) -{ - th->context.ContextFlags = \ - CONTEXT_FULL | \ - CONTEXT_FLOATING_POINT; - - GetThreadContext (th->h, &th->context); -} - -#define context_offset(x) ((int)&(((CONTEXT *)NULL)->x)) -static const int mappings[] = { - context_offset (R0), - context_offset (R1), - context_offset (R2), - context_offset (R3), - context_offset (R4), - context_offset (R5), - context_offset (R6), - context_offset (R7), - context_offset (R8), - context_offset (R9), - context_offset (R10), - context_offset (R11), - context_offset (R12), - context_offset (Sp), - context_offset (Lr), - context_offset (Pc), - -1, /* f0 */ - -1, /* f1 */ - -1, /* f2 */ - -1, /* f3 */ - -1, /* f4 */ - -1, /* f5 */ - -1, /* f6 */ - -1, /* f7 */ - -1, /* fps */ - context_offset (Psr), -}; -#undef context_offset - -/* Return a pointer into a CONTEXT field indexed by gdb register number. - Return a pointer to an dummy register holding zero if there is no - corresponding CONTEXT field for the given register number. */ -static char * -regptr (CONTEXT* c, int r) -{ - if (mappings[r] < 0) - { - static ULONG zero; - /* Always force value to zero, in case the user tried to write - to this register before. */ - zero = 0; - return (char *) &zero; - } - else - return (char *) c + mappings[r]; -} - -/* Fetch register from gdbserver regcache data. */ -static void -arm_fetch_inferior_register (struct regcache *regcache, - win32_thread_info *th, int r) -{ - char *context_offset = regptr (&th->context, r); - supply_register (regcache, r, context_offset); -} - -/* Store a new register value into the thread context of TH. */ -static void -arm_store_inferior_register (struct regcache *regcache, - win32_thread_info *th, int r) -{ - collect_register (regcache, r, regptr (&th->context, r)); -} - -static void -arm_arch_setup (void) -{ - init_registers_arm (); - win32_tdesc = tdesc_arm; -} - -/* Correct in either endianness. We do not support Thumb yet. */ -static const unsigned long arm_wince_breakpoint = 0xe6000010; -#define arm_wince_breakpoint_len 4 - -struct win32_target_ops the_low_target = { - arm_arch_setup, - sizeof (mappings) / sizeof (mappings[0]), - NULL, /* initial_stuff */ - arm_get_thread_context, - NULL, /* prepare_to_resume */ - NULL, /* thread_added */ - arm_fetch_inferior_register, - arm_store_inferior_register, - NULL, /* single_step */ - (const unsigned char *) &arm_wince_breakpoint, - arm_wince_breakpoint_len, - /* Watchpoint related functions. See target.h for comments. */ - NULL, /* supports_z_point_type */ - NULL, /* insert_point */ - NULL, /* remove_point */ - NULL, /* stopped_by_watchpoint */ - NULL /* stopped_data_address */ -}; diff --git a/gdbserver/win32-arm-low.cc b/gdbserver/win32-arm-low.cc new file mode 100644 index 00000000000..619847d10fc --- /dev/null +++ b/gdbserver/win32-arm-low.cc @@ -0,0 +1,134 @@ +/* Copyright (C) 2007-2020 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 . */ + +#include "server.h" +#include "win32-low.h" + +#ifndef CONTEXT_FLOATING_POINT +#define CONTEXT_FLOATING_POINT 0 +#endif + +/* Defined in auto-generated file reg-arm.c. */ +void init_registers_arm (void); +extern const struct target_desc *tdesc_arm; + +static void +arm_get_thread_context (win32_thread_info *th) +{ + th->context.ContextFlags = \ + CONTEXT_FULL | \ + CONTEXT_FLOATING_POINT; + + GetThreadContext (th->h, &th->context); +} + +#define context_offset(x) ((int)&(((CONTEXT *)NULL)->x)) +static const int mappings[] = { + context_offset (R0), + context_offset (R1), + context_offset (R2), + context_offset (R3), + context_offset (R4), + context_offset (R5), + context_offset (R6), + context_offset (R7), + context_offset (R8), + context_offset (R9), + context_offset (R10), + context_offset (R11), + context_offset (R12), + context_offset (Sp), + context_offset (Lr), + context_offset (Pc), + -1, /* f0 */ + -1, /* f1 */ + -1, /* f2 */ + -1, /* f3 */ + -1, /* f4 */ + -1, /* f5 */ + -1, /* f6 */ + -1, /* f7 */ + -1, /* fps */ + context_offset (Psr), +}; +#undef context_offset + +/* Return a pointer into a CONTEXT field indexed by gdb register number. + Return a pointer to an dummy register holding zero if there is no + corresponding CONTEXT field for the given register number. */ +static char * +regptr (CONTEXT* c, int r) +{ + if (mappings[r] < 0) + { + static ULONG zero; + /* Always force value to zero, in case the user tried to write + to this register before. */ + zero = 0; + return (char *) &zero; + } + else + return (char *) c + mappings[r]; +} + +/* Fetch register from gdbserver regcache data. */ +static void +arm_fetch_inferior_register (struct regcache *regcache, + win32_thread_info *th, int r) +{ + char *context_offset = regptr (&th->context, r); + supply_register (regcache, r, context_offset); +} + +/* Store a new register value into the thread context of TH. */ +static void +arm_store_inferior_register (struct regcache *regcache, + win32_thread_info *th, int r) +{ + collect_register (regcache, r, regptr (&th->context, r)); +} + +static void +arm_arch_setup (void) +{ + init_registers_arm (); + win32_tdesc = tdesc_arm; +} + +/* Correct in either endianness. We do not support Thumb yet. */ +static const unsigned long arm_wince_breakpoint = 0xe6000010; +#define arm_wince_breakpoint_len 4 + +struct win32_target_ops the_low_target = { + arm_arch_setup, + sizeof (mappings) / sizeof (mappings[0]), + NULL, /* initial_stuff */ + arm_get_thread_context, + NULL, /* prepare_to_resume */ + NULL, /* thread_added */ + arm_fetch_inferior_register, + arm_store_inferior_register, + NULL, /* single_step */ + (const unsigned char *) &arm_wince_breakpoint, + arm_wince_breakpoint_len, + /* Watchpoint related functions. See target.h for comments. */ + NULL, /* supports_z_point_type */ + NULL, /* insert_point */ + NULL, /* remove_point */ + NULL, /* stopped_by_watchpoint */ + NULL /* stopped_data_address */ +}; diff --git a/gdbserver/win32-i386-low.c b/gdbserver/win32-i386-low.c deleted file mode 100644 index f5f09e96a57..00000000000 --- a/gdbserver/win32-i386-low.c +++ /dev/null @@ -1,468 +0,0 @@ -/* Copyright (C) 2007-2020 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 . */ - -#include "server.h" -#include "win32-low.h" -#include "x86-low.h" -#include "gdbsupport/x86-xstate.h" -#ifdef __x86_64__ -#include "arch/amd64.h" -#endif -#include "arch/i386.h" -#include "tdesc.h" -#include "x86-tdesc.h" - -#ifndef CONTEXT_EXTENDED_REGISTERS -#define CONTEXT_EXTENDED_REGISTERS 0 -#endif - -#define FCS_REGNUM 27 -#define FOP_REGNUM 31 - -#define FLAG_TRACE_BIT 0x100 - -static struct x86_debug_reg_state debug_reg_state; - -static void -update_debug_registers (thread_info *thread) -{ - win32_thread_info *th = (win32_thread_info *) thread_target_data (thread); - - /* The actual update is done later just before resuming the lwp, - we just mark that the registers need updating. */ - th->debug_registers_changed = 1; -} - -/* Update the inferior's debug register REGNUM from STATE. */ - -static void -x86_dr_low_set_addr (int regnum, CORE_ADDR addr) -{ - gdb_assert (DR_FIRSTADDR <= regnum && regnum <= DR_LASTADDR); - - /* Only update the threads of this process. */ - for_each_thread (current_thread->id.pid (), update_debug_registers); -} - -/* Update the inferior's DR7 debug control register from STATE. */ - -static void -x86_dr_low_set_control (unsigned long control) -{ - /* Only update the threads of this process. */ - for_each_thread (current_thread->id.pid (), update_debug_registers); -} - -/* Return the current value of a DR register of the current thread's - context. */ - -static DWORD64 -win32_get_current_dr (int dr) -{ - win32_thread_info *th - = (win32_thread_info *) thread_target_data (current_thread); - - win32_require_context (th); - -#define RET_DR(DR) \ - case DR: \ - return th->context.Dr ## DR - - switch (dr) - { - RET_DR (0); - RET_DR (1); - RET_DR (2); - RET_DR (3); - RET_DR (6); - RET_DR (7); - } - -#undef RET_DR - - gdb_assert_not_reached ("unhandled dr"); -} - -static CORE_ADDR -x86_dr_low_get_addr (int regnum) -{ - gdb_assert (DR_FIRSTADDR <= regnum && regnum <= DR_LASTADDR); - - return win32_get_current_dr (regnum - DR_FIRSTADDR); -} - -static unsigned long -x86_dr_low_get_control (void) -{ - return win32_get_current_dr (7); -} - -/* Get the value of the DR6 debug status register from the inferior - and record it in STATE. */ - -static unsigned long -x86_dr_low_get_status (void) -{ - return win32_get_current_dr (6); -} - -/* Low-level function vector. */ -struct x86_dr_low_type x86_dr_low = - { - x86_dr_low_set_control, - x86_dr_low_set_addr, - x86_dr_low_get_addr, - x86_dr_low_get_status, - x86_dr_low_get_control, - sizeof (void *), - }; - -/* Breakpoint/watchpoint support. */ - -static int -i386_supports_z_point_type (char z_type) -{ - switch (z_type) - { - case Z_PACKET_WRITE_WP: - case Z_PACKET_ACCESS_WP: - return 1; - default: - return 0; - } -} - -static int -i386_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, - int size, struct raw_breakpoint *bp) -{ - switch (type) - { - case raw_bkpt_type_write_wp: - case raw_bkpt_type_access_wp: - { - enum target_hw_bp_type hw_type - = raw_bkpt_type_to_target_hw_bp_type (type); - - return x86_dr_insert_watchpoint (&debug_reg_state, - hw_type, addr, size); - } - default: - /* Unsupported. */ - return 1; - } -} - -static int -i386_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, - int size, struct raw_breakpoint *bp) -{ - switch (type) - { - case raw_bkpt_type_write_wp: - case raw_bkpt_type_access_wp: - { - enum target_hw_bp_type hw_type - = raw_bkpt_type_to_target_hw_bp_type (type); - - return x86_dr_remove_watchpoint (&debug_reg_state, - hw_type, addr, size); - } - default: - /* Unsupported. */ - return 1; - } -} - -static int -x86_stopped_by_watchpoint (void) -{ - return x86_dr_stopped_by_watchpoint (&debug_reg_state); -} - -static CORE_ADDR -x86_stopped_data_address (void) -{ - CORE_ADDR addr; - if (x86_dr_stopped_data_address (&debug_reg_state, &addr)) - return addr; - return 0; -} - -static void -i386_initial_stuff (void) -{ - x86_low_init_dregs (&debug_reg_state); -} - -static void -i386_get_thread_context (win32_thread_info *th) -{ - /* Requesting the CONTEXT_EXTENDED_REGISTERS register set fails if - the system doesn't support extended registers. */ - static DWORD extended_registers = CONTEXT_EXTENDED_REGISTERS; - - again: - th->context.ContextFlags = (CONTEXT_FULL - | CONTEXT_FLOATING_POINT - | CONTEXT_DEBUG_REGISTERS - | extended_registers); - - if (!GetThreadContext (th->h, &th->context)) - { - DWORD e = GetLastError (); - - if (extended_registers && e == ERROR_INVALID_PARAMETER) - { - extended_registers = 0; - goto again; - } - - error ("GetThreadContext failure %ld\n", (long) e); - } -} - -static void -i386_prepare_to_resume (win32_thread_info *th) -{ - if (th->debug_registers_changed) - { - struct x86_debug_reg_state *dr = &debug_reg_state; - - win32_require_context (th); - - th->context.Dr0 = dr->dr_mirror[0]; - th->context.Dr1 = dr->dr_mirror[1]; - th->context.Dr2 = dr->dr_mirror[2]; - th->context.Dr3 = dr->dr_mirror[3]; - /* th->context.Dr6 = dr->dr_status_mirror; - FIXME: should we set dr6 also ?? */ - th->context.Dr7 = dr->dr_control_mirror; - - th->debug_registers_changed = 0; - } -} - -static void -i386_thread_added (win32_thread_info *th) -{ - th->debug_registers_changed = 1; -} - -static void -i386_single_step (win32_thread_info *th) -{ - th->context.EFlags |= FLAG_TRACE_BIT; -} - -#ifndef __x86_64__ - -/* An array of offset mappings into a Win32 Context structure. - This is a one-to-one mapping which is indexed by gdb's register - numbers. It retrieves an offset into the context structure where - the 4 byte register is located. - An offset value of -1 indicates that Win32 does not provide this - register in it's CONTEXT structure. In this case regptr will return - a pointer into a dummy register. */ -#define context_offset(x) ((int)&(((CONTEXT *)NULL)->x)) -static const int mappings[] = { - context_offset (Eax), - context_offset (Ecx), - context_offset (Edx), - context_offset (Ebx), - context_offset (Esp), - context_offset (Ebp), - context_offset (Esi), - context_offset (Edi), - context_offset (Eip), - context_offset (EFlags), - context_offset (SegCs), - context_offset (SegSs), - context_offset (SegDs), - context_offset (SegEs), - context_offset (SegFs), - context_offset (SegGs), - context_offset (FloatSave.RegisterArea[0 * 10]), - context_offset (FloatSave.RegisterArea[1 * 10]), - context_offset (FloatSave.RegisterArea[2 * 10]), - context_offset (FloatSave.RegisterArea[3 * 10]), - context_offset (FloatSave.RegisterArea[4 * 10]), - context_offset (FloatSave.RegisterArea[5 * 10]), - context_offset (FloatSave.RegisterArea[6 * 10]), - context_offset (FloatSave.RegisterArea[7 * 10]), - context_offset (FloatSave.ControlWord), - context_offset (FloatSave.StatusWord), - context_offset (FloatSave.TagWord), - context_offset (FloatSave.ErrorSelector), - context_offset (FloatSave.ErrorOffset), - context_offset (FloatSave.DataSelector), - context_offset (FloatSave.DataOffset), - context_offset (FloatSave.ErrorSelector), - /* XMM0-7 */ - context_offset (ExtendedRegisters[10 * 16]), - context_offset (ExtendedRegisters[11 * 16]), - context_offset (ExtendedRegisters[12 * 16]), - context_offset (ExtendedRegisters[13 * 16]), - context_offset (ExtendedRegisters[14 * 16]), - context_offset (ExtendedRegisters[15 * 16]), - context_offset (ExtendedRegisters[16 * 16]), - context_offset (ExtendedRegisters[17 * 16]), - /* MXCSR */ - context_offset (ExtendedRegisters[24]) -}; -#undef context_offset - -#else /* __x86_64__ */ - -#define context_offset(x) (offsetof (CONTEXT, x)) -static const int mappings[] = -{ - context_offset (Rax), - context_offset (Rbx), - context_offset (Rcx), - context_offset (Rdx), - context_offset (Rsi), - context_offset (Rdi), - context_offset (Rbp), - context_offset (Rsp), - context_offset (R8), - context_offset (R9), - context_offset (R10), - context_offset (R11), - context_offset (R12), - context_offset (R13), - context_offset (R14), - context_offset (R15), - context_offset (Rip), - context_offset (EFlags), - context_offset (SegCs), - context_offset (SegSs), - context_offset (SegDs), - context_offset (SegEs), - context_offset (SegFs), - context_offset (SegGs), - context_offset (FloatSave.FloatRegisters[0]), - context_offset (FloatSave.FloatRegisters[1]), - context_offset (FloatSave.FloatRegisters[2]), - context_offset (FloatSave.FloatRegisters[3]), - context_offset (FloatSave.FloatRegisters[4]), - context_offset (FloatSave.FloatRegisters[5]), - context_offset (FloatSave.FloatRegisters[6]), - context_offset (FloatSave.FloatRegisters[7]), - context_offset (FloatSave.ControlWord), - context_offset (FloatSave.StatusWord), - context_offset (FloatSave.TagWord), - context_offset (FloatSave.ErrorSelector), - context_offset (FloatSave.ErrorOffset), - context_offset (FloatSave.DataSelector), - context_offset (FloatSave.DataOffset), - context_offset (FloatSave.ErrorSelector) - /* XMM0-7 */ , - context_offset (Xmm0), - context_offset (Xmm1), - context_offset (Xmm2), - context_offset (Xmm3), - context_offset (Xmm4), - context_offset (Xmm5), - context_offset (Xmm6), - context_offset (Xmm7), - context_offset (Xmm8), - context_offset (Xmm9), - context_offset (Xmm10), - context_offset (Xmm11), - context_offset (Xmm12), - context_offset (Xmm13), - context_offset (Xmm14), - context_offset (Xmm15), - /* MXCSR */ - context_offset (FloatSave.MxCsr) -}; -#undef context_offset - -#endif /* __x86_64__ */ - -/* Fetch register from gdbserver regcache data. */ -static void -i386_fetch_inferior_register (struct regcache *regcache, - win32_thread_info *th, int r) -{ - char *context_offset = (char *) &th->context + mappings[r]; - - long l; - if (r == FCS_REGNUM) - { - l = *((long *) context_offset) & 0xffff; - supply_register (regcache, r, (char *) &l); - } - else if (r == FOP_REGNUM) - { - l = (*((long *) context_offset) >> 16) & ((1 << 11) - 1); - supply_register (regcache, r, (char *) &l); - } - else - supply_register (regcache, r, context_offset); -} - -/* Store a new register value into the thread context of TH. */ -static void -i386_store_inferior_register (struct regcache *regcache, - win32_thread_info *th, int r) -{ - char *context_offset = (char *) &th->context + mappings[r]; - collect_register (regcache, r, context_offset); -} - -static const unsigned char i386_win32_breakpoint = 0xcc; -#define i386_win32_breakpoint_len 1 - -static void -i386_arch_setup (void) -{ - struct target_desc *tdesc; - -#ifdef __x86_64__ - tdesc = amd64_create_target_description (X86_XSTATE_SSE_MASK, false, - false, false); - const char **expedite_regs = amd64_expedite_regs; -#else - tdesc = i386_create_target_description (X86_XSTATE_SSE_MASK, false, false); - const char **expedite_regs = i386_expedite_regs; -#endif - - init_target_desc (tdesc, expedite_regs); - - win32_tdesc = tdesc; -} - -struct win32_target_ops the_low_target = { - i386_arch_setup, - sizeof (mappings) / sizeof (mappings[0]), - i386_initial_stuff, - i386_get_thread_context, - i386_prepare_to_resume, - i386_thread_added, - i386_fetch_inferior_register, - i386_store_inferior_register, - i386_single_step, - &i386_win32_breakpoint, - i386_win32_breakpoint_len, - i386_supports_z_point_type, - i386_insert_point, - i386_remove_point, - x86_stopped_by_watchpoint, - x86_stopped_data_address -}; diff --git a/gdbserver/win32-i386-low.cc b/gdbserver/win32-i386-low.cc new file mode 100644 index 00000000000..f5f09e96a57 --- /dev/null +++ b/gdbserver/win32-i386-low.cc @@ -0,0 +1,468 @@ +/* Copyright (C) 2007-2020 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 . */ + +#include "server.h" +#include "win32-low.h" +#include "x86-low.h" +#include "gdbsupport/x86-xstate.h" +#ifdef __x86_64__ +#include "arch/amd64.h" +#endif +#include "arch/i386.h" +#include "tdesc.h" +#include "x86-tdesc.h" + +#ifndef CONTEXT_EXTENDED_REGISTERS +#define CONTEXT_EXTENDED_REGISTERS 0 +#endif + +#define FCS_REGNUM 27 +#define FOP_REGNUM 31 + +#define FLAG_TRACE_BIT 0x100 + +static struct x86_debug_reg_state debug_reg_state; + +static void +update_debug_registers (thread_info *thread) +{ + win32_thread_info *th = (win32_thread_info *) thread_target_data (thread); + + /* The actual update is done later just before resuming the lwp, + we just mark that the registers need updating. */ + th->debug_registers_changed = 1; +} + +/* Update the inferior's debug register REGNUM from STATE. */ + +static void +x86_dr_low_set_addr (int regnum, CORE_ADDR addr) +{ + gdb_assert (DR_FIRSTADDR <= regnum && regnum <= DR_LASTADDR); + + /* Only update the threads of this process. */ + for_each_thread (current_thread->id.pid (), update_debug_registers); +} + +/* Update the inferior's DR7 debug control register from STATE. */ + +static void +x86_dr_low_set_control (unsigned long control) +{ + /* Only update the threads of this process. */ + for_each_thread (current_thread->id.pid (), update_debug_registers); +} + +/* Return the current value of a DR register of the current thread's + context. */ + +static DWORD64 +win32_get_current_dr (int dr) +{ + win32_thread_info *th + = (win32_thread_info *) thread_target_data (current_thread); + + win32_require_context (th); + +#define RET_DR(DR) \ + case DR: \ + return th->context.Dr ## DR + + switch (dr) + { + RET_DR (0); + RET_DR (1); + RET_DR (2); + RET_DR (3); + RET_DR (6); + RET_DR (7); + } + +#undef RET_DR + + gdb_assert_not_reached ("unhandled dr"); +} + +static CORE_ADDR +x86_dr_low_get_addr (int regnum) +{ + gdb_assert (DR_FIRSTADDR <= regnum && regnum <= DR_LASTADDR); + + return win32_get_current_dr (regnum - DR_FIRSTADDR); +} + +static unsigned long +x86_dr_low_get_control (void) +{ + return win32_get_current_dr (7); +} + +/* Get the value of the DR6 debug status register from the inferior + and record it in STATE. */ + +static unsigned long +x86_dr_low_get_status (void) +{ + return win32_get_current_dr (6); +} + +/* Low-level function vector. */ +struct x86_dr_low_type x86_dr_low = + { + x86_dr_low_set_control, + x86_dr_low_set_addr, + x86_dr_low_get_addr, + x86_dr_low_get_status, + x86_dr_low_get_control, + sizeof (void *), + }; + +/* Breakpoint/watchpoint support. */ + +static int +i386_supports_z_point_type (char z_type) +{ + switch (z_type) + { + case Z_PACKET_WRITE_WP: + case Z_PACKET_ACCESS_WP: + return 1; + default: + return 0; + } +} + +static int +i386_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, + int size, struct raw_breakpoint *bp) +{ + switch (type) + { + case raw_bkpt_type_write_wp: + case raw_bkpt_type_access_wp: + { + enum target_hw_bp_type hw_type + = raw_bkpt_type_to_target_hw_bp_type (type); + + return x86_dr_insert_watchpoint (&debug_reg_state, + hw_type, addr, size); + } + default: + /* Unsupported. */ + return 1; + } +} + +static int +i386_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, + int size, struct raw_breakpoint *bp) +{ + switch (type) + { + case raw_bkpt_type_write_wp: + case raw_bkpt_type_access_wp: + { + enum target_hw_bp_type hw_type + = raw_bkpt_type_to_target_hw_bp_type (type); + + return x86_dr_remove_watchpoint (&debug_reg_state, + hw_type, addr, size); + } + default: + /* Unsupported. */ + return 1; + } +} + +static int +x86_stopped_by_watchpoint (void) +{ + return x86_dr_stopped_by_watchpoint (&debug_reg_state); +} + +static CORE_ADDR +x86_stopped_data_address (void) +{ + CORE_ADDR addr; + if (x86_dr_stopped_data_address (&debug_reg_state, &addr)) + return addr; + return 0; +} + +static void +i386_initial_stuff (void) +{ + x86_low_init_dregs (&debug_reg_state); +} + +static void +i386_get_thread_context (win32_thread_info *th) +{ + /* Requesting the CONTEXT_EXTENDED_REGISTERS register set fails if + the system doesn't support extended registers. */ + static DWORD extended_registers = CONTEXT_EXTENDED_REGISTERS; + + again: + th->context.ContextFlags = (CONTEXT_FULL + | CONTEXT_FLOATING_POINT + | CONTEXT_DEBUG_REGISTERS + | extended_registers); + + if (!GetThreadContext (th->h, &th->context)) + { + DWORD e = GetLastError (); + + if (extended_registers && e == ERROR_INVALID_PARAMETER) + { + extended_registers = 0; + goto again; + } + + error ("GetThreadContext failure %ld\n", (long) e); + } +} + +static void +i386_prepare_to_resume (win32_thread_info *th) +{ + if (th->debug_registers_changed) + { + struct x86_debug_reg_state *dr = &debug_reg_state; + + win32_require_context (th); + + th->context.Dr0 = dr->dr_mirror[0]; + th->context.Dr1 = dr->dr_mirror[1]; + th->context.Dr2 = dr->dr_mirror[2]; + th->context.Dr3 = dr->dr_mirror[3]; + /* th->context.Dr6 = dr->dr_status_mirror; + FIXME: should we set dr6 also ?? */ + th->context.Dr7 = dr->dr_control_mirror; + + th->debug_registers_changed = 0; + } +} + +static void +i386_thread_added (win32_thread_info *th) +{ + th->debug_registers_changed = 1; +} + +static void +i386_single_step (win32_thread_info *th) +{ + th->context.EFlags |= FLAG_TRACE_BIT; +} + +#ifndef __x86_64__ + +/* An array of offset mappings into a Win32 Context structure. + This is a one-to-one mapping which is indexed by gdb's register + numbers. It retrieves an offset into the context structure where + the 4 byte register is located. + An offset value of -1 indicates that Win32 does not provide this + register in it's CONTEXT structure. In this case regptr will return + a pointer into a dummy register. */ +#define context_offset(x) ((int)&(((CONTEXT *)NULL)->x)) +static const int mappings[] = { + context_offset (Eax), + context_offset (Ecx), + context_offset (Edx), + context_offset (Ebx), + context_offset (Esp), + context_offset (Ebp), + context_offset (Esi), + context_offset (Edi), + context_offset (Eip), + context_offset (EFlags), + context_offset (SegCs), + context_offset (SegSs), + context_offset (SegDs), + context_offset (SegEs), + context_offset (SegFs), + context_offset (SegGs), + context_offset (FloatSave.RegisterArea[0 * 10]), + context_offset (FloatSave.RegisterArea[1 * 10]), + context_offset (FloatSave.RegisterArea[2 * 10]), + context_offset (FloatSave.RegisterArea[3 * 10]), + context_offset (FloatSave.RegisterArea[4 * 10]), + context_offset (FloatSave.RegisterArea[5 * 10]), + context_offset (FloatSave.RegisterArea[6 * 10]), + context_offset (FloatSave.RegisterArea[7 * 10]), + context_offset (FloatSave.ControlWord), + context_offset (FloatSave.StatusWord), + context_offset (FloatSave.TagWord), + context_offset (FloatSave.ErrorSelector), + context_offset (FloatSave.ErrorOffset), + context_offset (FloatSave.DataSelector), + context_offset (FloatSave.DataOffset), + context_offset (FloatSave.ErrorSelector), + /* XMM0-7 */ + context_offset (ExtendedRegisters[10 * 16]), + context_offset (ExtendedRegisters[11 * 16]), + context_offset (ExtendedRegisters[12 * 16]), + context_offset (ExtendedRegisters[13 * 16]), + context_offset (ExtendedRegisters[14 * 16]), + context_offset (ExtendedRegisters[15 * 16]), + context_offset (ExtendedRegisters[16 * 16]), + context_offset (ExtendedRegisters[17 * 16]), + /* MXCSR */ + context_offset (ExtendedRegisters[24]) +}; +#undef context_offset + +#else /* __x86_64__ */ + +#define context_offset(x) (offsetof (CONTEXT, x)) +static const int mappings[] = +{ + context_offset (Rax), + context_offset (Rbx), + context_offset (Rcx), + context_offset (Rdx), + context_offset (Rsi), + context_offset (Rdi), + context_offset (Rbp), + context_offset (Rsp), + context_offset (R8), + context_offset (R9), + context_offset (R10), + context_offset (R11), + context_offset (R12), + context_offset (R13), + context_offset (R14), + context_offset (R15), + context_offset (Rip), + context_offset (EFlags), + context_offset (SegCs), + context_offset (SegSs), + context_offset (SegDs), + context_offset (SegEs), + context_offset (SegFs), + context_offset (SegGs), + context_offset (FloatSave.FloatRegisters[0]), + context_offset (FloatSave.FloatRegisters[1]), + context_offset (FloatSave.FloatRegisters[2]), + context_offset (FloatSave.FloatRegisters[3]), + context_offset (FloatSave.FloatRegisters[4]), + context_offset (FloatSave.FloatRegisters[5]), + context_offset (FloatSave.FloatRegisters[6]), + context_offset (FloatSave.FloatRegisters[7]), + context_offset (FloatSave.ControlWord), + context_offset (FloatSave.StatusWord), + context_offset (FloatSave.TagWord), + context_offset (FloatSave.ErrorSelector), + context_offset (FloatSave.ErrorOffset), + context_offset (FloatSave.DataSelector), + context_offset (FloatSave.DataOffset), + context_offset (FloatSave.ErrorSelector) + /* XMM0-7 */ , + context_offset (Xmm0), + context_offset (Xmm1), + context_offset (Xmm2), + context_offset (Xmm3), + context_offset (Xmm4), + context_offset (Xmm5), + context_offset (Xmm6), + context_offset (Xmm7), + context_offset (Xmm8), + context_offset (Xmm9), + context_offset (Xmm10), + context_offset (Xmm11), + context_offset (Xmm12), + context_offset (Xmm13), + context_offset (Xmm14), + context_offset (Xmm15), + /* MXCSR */ + context_offset (FloatSave.MxCsr) +}; +#undef context_offset + +#endif /* __x86_64__ */ + +/* Fetch register from gdbserver regcache data. */ +static void +i386_fetch_inferior_register (struct regcache *regcache, + win32_thread_info *th, int r) +{ + char *context_offset = (char *) &th->context + mappings[r]; + + long l; + if (r == FCS_REGNUM) + { + l = *((long *) context_offset) & 0xffff; + supply_register (regcache, r, (char *) &l); + } + else if (r == FOP_REGNUM) + { + l = (*((long *) context_offset) >> 16) & ((1 << 11) - 1); + supply_register (regcache, r, (char *) &l); + } + else + supply_register (regcache, r, context_offset); +} + +/* Store a new register value into the thread context of TH. */ +static void +i386_store_inferior_register (struct regcache *regcache, + win32_thread_info *th, int r) +{ + char *context_offset = (char *) &th->context + mappings[r]; + collect_register (regcache, r, context_offset); +} + +static const unsigned char i386_win32_breakpoint = 0xcc; +#define i386_win32_breakpoint_len 1 + +static void +i386_arch_setup (void) +{ + struct target_desc *tdesc; + +#ifdef __x86_64__ + tdesc = amd64_create_target_description (X86_XSTATE_SSE_MASK, false, + false, false); + const char **expedite_regs = amd64_expedite_regs; +#else + tdesc = i386_create_target_description (X86_XSTATE_SSE_MASK, false, false); + const char **expedite_regs = i386_expedite_regs; +#endif + + init_target_desc (tdesc, expedite_regs); + + win32_tdesc = tdesc; +} + +struct win32_target_ops the_low_target = { + i386_arch_setup, + sizeof (mappings) / sizeof (mappings[0]), + i386_initial_stuff, + i386_get_thread_context, + i386_prepare_to_resume, + i386_thread_added, + i386_fetch_inferior_register, + i386_store_inferior_register, + i386_single_step, + &i386_win32_breakpoint, + i386_win32_breakpoint_len, + i386_supports_z_point_type, + i386_insert_point, + i386_remove_point, + x86_stopped_by_watchpoint, + x86_stopped_data_address +}; diff --git a/gdbserver/win32-low.c b/gdbserver/win32-low.c deleted file mode 100644 index 557c90d97c6..00000000000 --- a/gdbserver/win32-low.c +++ /dev/null @@ -1,1913 +0,0 @@ -/* Low level interface to Windows debugging, for gdbserver. - Copyright (C) 2006-2020 Free Software Foundation, Inc. - - Contributed by Leo Zayas. Based on "win32-nat.c" from GDB. - - 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 . */ - -#include "server.h" -#include "regcache.h" -#include "gdb/fileio.h" -#include "mem-break.h" -#include "win32-low.h" -#include "gdbthread.h" -#include "dll.h" -#include "hostio.h" -#include -#include -#include -#include -#include -#include -#include "gdbsupport/gdb_tilde_expand.h" -#include "gdbsupport/common-inferior.h" -#include "gdbsupport/gdb_wait.h" - -#ifndef USE_WIN32API -#include -#endif - -#define OUTMSG(X) do { printf X; fflush (stderr); } while (0) - -#define OUTMSG2(X) \ - do \ - { \ - if (debug_threads) \ - { \ - printf X; \ - fflush (stderr); \ - } \ - } while (0) - -#ifndef _T -#define _T(x) TEXT (x) -#endif - -#ifndef COUNTOF -#define COUNTOF(STR) (sizeof (STR) / sizeof ((STR)[0])) -#endif - -#ifdef _WIN32_WCE -# define GETPROCADDRESS(DLL, PROC) \ - ((winapi_ ## PROC) GetProcAddress (DLL, TEXT (#PROC))) -#else -# define GETPROCADDRESS(DLL, PROC) \ - ((winapi_ ## PROC) GetProcAddress (DLL, #PROC)) -#endif - -int using_threads = 1; - -/* Globals. */ -static int attaching = 0; -static HANDLE current_process_handle = NULL; -static DWORD current_process_id = 0; -static DWORD main_thread_id = 0; -static EXCEPTION_RECORD siginfo_er; /* Contents of $_siginfo */ -static enum gdb_signal last_sig = GDB_SIGNAL_0; - -/* The current debug event from WaitForDebugEvent. */ -static DEBUG_EVENT current_event; - -/* A status that hasn't been reported to the core yet, and so - win32_wait should return it next, instead of fetching the next - debug event off the win32 API. */ -static struct target_waitstatus cached_status; - -/* Non zero if an interrupt request is to be satisfied by suspending - all threads. */ -static int soft_interrupt_requested = 0; - -/* Non zero if the inferior is stopped in a simulated breakpoint done - by suspending all the threads. */ -static int faked_breakpoint = 0; - -const struct target_desc *win32_tdesc; - -#define NUM_REGS (the_low_target.num_regs) - -typedef BOOL (WINAPI *winapi_DebugActiveProcessStop) (DWORD dwProcessId); -typedef BOOL (WINAPI *winapi_DebugSetProcessKillOnExit) (BOOL KillOnExit); -typedef BOOL (WINAPI *winapi_DebugBreakProcess) (HANDLE); -typedef BOOL (WINAPI *winapi_GenerateConsoleCtrlEvent) (DWORD, DWORD); - -static ptid_t win32_wait (ptid_t ptid, struct target_waitstatus *ourstatus, - int options); -static void win32_resume (struct thread_resume *resume_info, size_t n); -#ifndef _WIN32_WCE -static void win32_add_all_dlls (void); -#endif - -/* Get the thread ID from the current selected inferior (the current - thread). */ -static ptid_t -current_thread_ptid (void) -{ - return current_ptid; -} - -/* The current debug event from WaitForDebugEvent. */ -static ptid_t -debug_event_ptid (DEBUG_EVENT *event) -{ - return ptid_t (event->dwProcessId, event->dwThreadId, 0); -} - -/* Get the thread context of the thread associated with TH. */ - -static void -win32_get_thread_context (win32_thread_info *th) -{ - memset (&th->context, 0, sizeof (CONTEXT)); - (*the_low_target.get_thread_context) (th); -#ifdef _WIN32_WCE - memcpy (&th->base_context, &th->context, sizeof (CONTEXT)); -#endif -} - -/* Set the thread context of the thread associated with TH. */ - -static void -win32_set_thread_context (win32_thread_info *th) -{ -#ifdef _WIN32_WCE - /* Calling SuspendThread on a thread that is running kernel code - will report that the suspending was successful, but in fact, that - will often not be true. In those cases, the context returned by - GetThreadContext will not be correct by the time the thread - stops, hence we can't set that context back into the thread when - resuming - it will most likely crash the inferior. - Unfortunately, there is no way to know when the thread will - really stop. To work around it, we'll only write the context - back to the thread when either the user or GDB explicitly change - it between stopping and resuming. */ - if (memcmp (&th->context, &th->base_context, sizeof (CONTEXT)) != 0) -#endif - SetThreadContext (th->h, &th->context); -} - -/* Set the thread context of the thread associated with TH. */ - -static void -win32_prepare_to_resume (win32_thread_info *th) -{ - if (the_low_target.prepare_to_resume != NULL) - (*the_low_target.prepare_to_resume) (th); -} - -/* See win32-low.h. */ - -void -win32_require_context (win32_thread_info *th) -{ - if (th->context.ContextFlags == 0) - { - if (!th->suspended) - { - if (SuspendThread (th->h) == (DWORD) -1) - { - DWORD err = GetLastError (); - OUTMSG (("warning: SuspendThread failed in thread_rec, " - "(error %d): %s\n", (int) err, strwinerror (err))); - } - else - th->suspended = 1; - } - - win32_get_thread_context (th); - } -} - -/* Find a thread record given a thread id. If GET_CONTEXT is set then - also retrieve the context for this thread. */ -static win32_thread_info * -thread_rec (ptid_t ptid, int get_context) -{ - thread_info *thread = find_thread_ptid (ptid); - if (thread == NULL) - return NULL; - - win32_thread_info *th = (win32_thread_info *) thread_target_data (thread); - if (get_context) - win32_require_context (th); - return th; -} - -/* Add a thread to the thread list. */ -static win32_thread_info * -child_add_thread (DWORD pid, DWORD tid, HANDLE h, void *tlb) -{ - win32_thread_info *th; - ptid_t ptid = ptid_t (pid, tid, 0); - - if ((th = thread_rec (ptid, FALSE))) - return th; - - th = XCNEW (win32_thread_info); - th->tid = tid; - th->h = h; - th->thread_local_base = (CORE_ADDR) (uintptr_t) tlb; - - add_thread (ptid, th); - - if (the_low_target.thread_added != NULL) - (*the_low_target.thread_added) (th); - - return th; -} - -/* Delete a thread from the list of threads. */ -static void -delete_thread_info (thread_info *thread) -{ - win32_thread_info *th = (win32_thread_info *) thread_target_data (thread); - - remove_thread (thread); - CloseHandle (th->h); - free (th); -} - -/* Delete a thread from the list of threads. */ -static void -child_delete_thread (DWORD pid, DWORD tid) -{ - /* If the last thread is exiting, just return. */ - if (all_threads.size () == 1) - return; - - thread_info *thread = find_thread_ptid (ptid_t (pid, tid)); - if (thread == NULL) - return; - - delete_thread_info (thread); -} - -/* These watchpoint related wrapper functions simply pass on the function call - if the low target has registered a corresponding function. */ - -static int -win32_supports_z_point_type (char z_type) -{ - return (the_low_target.supports_z_point_type != NULL - && the_low_target.supports_z_point_type (z_type)); -} - -static int -win32_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, - int size, struct raw_breakpoint *bp) -{ - if (the_low_target.insert_point != NULL) - return the_low_target.insert_point (type, addr, size, bp); - else - /* Unsupported (see target.h). */ - return 1; -} - -static int -win32_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, - int size, struct raw_breakpoint *bp) -{ - if (the_low_target.remove_point != NULL) - return the_low_target.remove_point (type, addr, size, bp); - else - /* Unsupported (see target.h). */ - return 1; -} - -static int -win32_stopped_by_watchpoint (void) -{ - if (the_low_target.stopped_by_watchpoint != NULL) - return the_low_target.stopped_by_watchpoint (); - else - return 0; -} - -static CORE_ADDR -win32_stopped_data_address (void) -{ - if (the_low_target.stopped_data_address != NULL) - return the_low_target.stopped_data_address (); - else - return 0; -} - - -/* Transfer memory from/to the debugged process. */ -static int -child_xfer_memory (CORE_ADDR memaddr, char *our, int len, - int write, process_stratum_target *target) -{ - BOOL success; - SIZE_T done = 0; - DWORD lasterror = 0; - uintptr_t addr = (uintptr_t) memaddr; - - if (write) - { - success = WriteProcessMemory (current_process_handle, (LPVOID) addr, - (LPCVOID) our, len, &done); - if (!success) - lasterror = GetLastError (); - FlushInstructionCache (current_process_handle, (LPCVOID) addr, len); - } - else - { - success = ReadProcessMemory (current_process_handle, (LPCVOID) addr, - (LPVOID) our, len, &done); - if (!success) - lasterror = GetLastError (); - } - if (!success && lasterror == ERROR_PARTIAL_COPY && done > 0) - return done; - else - return success ? done : -1; -} - -/* Clear out any old thread list and reinitialize it to a pristine - state. */ -static void -child_init_thread_list (void) -{ - for_each_thread (delete_thread_info); -} - -/* Zero during the child initialization phase, and nonzero otherwise. */ - -static int child_initialization_done = 0; - -static void -do_initial_child_stuff (HANDLE proch, DWORD pid, int attached) -{ - struct process_info *proc; - - last_sig = GDB_SIGNAL_0; - - current_process_handle = proch; - current_process_id = pid; - main_thread_id = 0; - - soft_interrupt_requested = 0; - faked_breakpoint = 0; - - memset (¤t_event, 0, sizeof (current_event)); - - proc = add_process (pid, attached); - proc->tdesc = win32_tdesc; - child_init_thread_list (); - child_initialization_done = 0; - - if (the_low_target.initial_stuff != NULL) - (*the_low_target.initial_stuff) (); - - cached_status.kind = TARGET_WAITKIND_IGNORE; - - /* Flush all currently pending debug events (thread and dll list) up - to the initial breakpoint. */ - while (1) - { - struct target_waitstatus status; - - win32_wait (minus_one_ptid, &status, 0); - - /* Note win32_wait doesn't return thread events. */ - if (status.kind != TARGET_WAITKIND_LOADED) - { - cached_status = status; - break; - } - - { - struct thread_resume resume; - - resume.thread = minus_one_ptid; - resume.kind = resume_continue; - resume.sig = 0; - - win32_resume (&resume, 1); - } - } - -#ifndef _WIN32_WCE - /* Now that the inferior has been started and all DLLs have been mapped, - we can iterate over all DLLs and load them in. - - We avoid doing it any earlier because, on certain versions of Windows, - LOAD_DLL_DEBUG_EVENTs are sometimes not complete. In particular, - we have seen on Windows 8.1 that the ntdll.dll load event does not - include the DLL name, preventing us from creating an associated SO. - A possible explanation is that ntdll.dll might be mapped before - the SO info gets created by the Windows system -- ntdll.dll is - the first DLL to be reported via LOAD_DLL_DEBUG_EVENT and other DLLs - do not seem to suffer from that problem. - - Rather than try to work around this sort of issue, it is much - simpler to just ignore DLL load/unload events during the startup - phase, and then process them all in one batch now. */ - win32_add_all_dlls (); -#endif - - child_initialization_done = 1; -} - -/* Resume all artificially suspended threads if we are continuing - execution. */ -static void -continue_one_thread (thread_info *thread, int thread_id) -{ - win32_thread_info *th = (win32_thread_info *) thread_target_data (thread); - - if (thread_id == -1 || thread_id == th->tid) - { - win32_prepare_to_resume (th); - - if (th->suspended) - { - if (th->context.ContextFlags) - { - win32_set_thread_context (th); - th->context.ContextFlags = 0; - } - - if (ResumeThread (th->h) == (DWORD) -1) - { - DWORD err = GetLastError (); - OUTMSG (("warning: ResumeThread failed in continue_one_thread, " - "(error %d): %s\n", (int) err, strwinerror (err))); - } - th->suspended = 0; - } - } -} - -static BOOL -child_continue (DWORD continue_status, int thread_id) -{ - /* The inferior will only continue after the ContinueDebugEvent - call. */ - for_each_thread ([&] (thread_info *thread) - { - continue_one_thread (thread, thread_id); - }); - faked_breakpoint = 0; - - if (!ContinueDebugEvent (current_event.dwProcessId, - current_event.dwThreadId, - continue_status)) - return FALSE; - - return TRUE; -} - -/* Fetch register(s) from the current thread context. */ -static void -child_fetch_inferior_registers (struct regcache *regcache, int r) -{ - int regno; - win32_thread_info *th = thread_rec (current_thread_ptid (), TRUE); - if (r == -1 || r > NUM_REGS) - child_fetch_inferior_registers (regcache, NUM_REGS); - else - for (regno = 0; regno < r; regno++) - (*the_low_target.fetch_inferior_register) (regcache, th, regno); -} - -/* Store a new register value into the current thread context. We don't - change the program's context until later, when we resume it. */ -static void -child_store_inferior_registers (struct regcache *regcache, int r) -{ - int regno; - win32_thread_info *th = thread_rec (current_thread_ptid (), TRUE); - if (r == -1 || r == 0 || r > NUM_REGS) - child_store_inferior_registers (regcache, NUM_REGS); - else - for (regno = 0; regno < r; regno++) - (*the_low_target.store_inferior_register) (regcache, th, regno); -} - -/* Map the Windows error number in ERROR to a locale-dependent error - message string and return a pointer to it. Typically, the values - for ERROR come from GetLastError. - - The string pointed to shall not be modified by the application, - but may be overwritten by a subsequent call to strwinerror - - The strwinerror function does not change the current setting - of GetLastError. */ - -char * -strwinerror (DWORD error) -{ - static char buf[1024]; - TCHAR *msgbuf; - DWORD lasterr = GetLastError (); - DWORD chars = FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM - | FORMAT_MESSAGE_ALLOCATE_BUFFER, - NULL, - error, - 0, /* Default language */ - (LPTSTR) &msgbuf, - 0, - NULL); - if (chars != 0) - { - /* If there is an \r\n appended, zap it. */ - if (chars >= 2 - && msgbuf[chars - 2] == '\r' - && msgbuf[chars - 1] == '\n') - { - chars -= 2; - msgbuf[chars] = 0; - } - - if (chars > ((COUNTOF (buf)) - 1)) - { - chars = COUNTOF (buf) - 1; - msgbuf [chars] = 0; - } - -#ifdef UNICODE - wcstombs (buf, msgbuf, chars + 1); -#else - strncpy (buf, msgbuf, chars + 1); -#endif - LocalFree (msgbuf); - } - else - sprintf (buf, "unknown win32 error (%u)", (unsigned) error); - - SetLastError (lasterr); - return buf; -} - -static BOOL -create_process (const char *program, char *args, - DWORD flags, PROCESS_INFORMATION *pi) -{ - const char *inferior_cwd = get_inferior_cwd (); - BOOL ret; - -#ifdef _WIN32_WCE - wchar_t *p, *wprogram, *wargs, *wcwd = NULL; - size_t argslen; - - wprogram = alloca ((strlen (program) + 1) * sizeof (wchar_t)); - mbstowcs (wprogram, program, strlen (program) + 1); - - for (p = wprogram; *p; ++p) - if (L'/' == *p) - *p = L'\\'; - - argslen = strlen (args); - wargs = alloca ((argslen + 1) * sizeof (wchar_t)); - mbstowcs (wargs, args, argslen + 1); - - if (inferior_cwd != NULL) - { - std::string expanded_infcwd = gdb_tilde_expand (inferior_cwd); - std::replace (expanded_infcwd.begin (), expanded_infcwd.end (), - '/', '\\'); - wcwd = alloca ((expanded_infcwd.size () + 1) * sizeof (wchar_t)); - if (mbstowcs (wcwd, expanded_infcwd.c_str (), - expanded_infcwd.size () + 1) == NULL) - { - error (_("\ -Could not convert the expanded inferior cwd to wide-char.")); - } - } - - ret = CreateProcessW (wprogram, /* image name */ - wargs, /* command line */ - NULL, /* security, not supported */ - NULL, /* thread, not supported */ - FALSE, /* inherit handles, not supported */ - flags, /* start flags */ - NULL, /* environment, not supported */ - wcwd, /* current directory */ - NULL, /* start info, not supported */ - pi); /* proc info */ -#else - STARTUPINFOA si = { sizeof (STARTUPINFOA) }; - - ret = CreateProcessA (program, /* image name */ - args, /* command line */ - NULL, /* security */ - NULL, /* thread */ - TRUE, /* inherit handles */ - flags, /* start flags */ - NULL, /* environment */ - /* current directory */ - (inferior_cwd == NULL - ? NULL - : gdb_tilde_expand (inferior_cwd).c_str()), - &si, /* start info */ - pi); /* proc info */ -#endif - - return ret; -} - -/* Start a new process. - PROGRAM is the program name. - PROGRAM_ARGS is the vector containing the inferior's args. - Returns the new PID on success, -1 on failure. Registers the new - process with the process list. */ -static int -win32_create_inferior (const char *program, - const std::vector &program_args) -{ - client_state &cs = get_client_state (); -#ifndef USE_WIN32API - char real_path[PATH_MAX]; - char *orig_path, *new_path, *path_ptr; -#endif - BOOL ret; - DWORD flags; - PROCESS_INFORMATION pi; - DWORD err; - std::string str_program_args = stringify_argv (program_args); - char *args = (char *) str_program_args.c_str (); - - /* win32_wait needs to know we're not attaching. */ - attaching = 0; - - if (!program) - error ("No executable specified, specify executable to debug.\n"); - - flags = DEBUG_PROCESS | DEBUG_ONLY_THIS_PROCESS; - -#ifndef USE_WIN32API - orig_path = NULL; - path_ptr = getenv ("PATH"); - if (path_ptr) - { - int size = cygwin_conv_path_list (CCP_POSIX_TO_WIN_A, path_ptr, NULL, 0); - orig_path = (char *) alloca (strlen (path_ptr) + 1); - new_path = (char *) alloca (size); - strcpy (orig_path, path_ptr); - cygwin_conv_path_list (CCP_POSIX_TO_WIN_A, path_ptr, new_path, size); - setenv ("PATH", new_path, 1); - } - cygwin_conv_path (CCP_POSIX_TO_WIN_A, program, real_path, PATH_MAX); - program = real_path; -#endif - - OUTMSG2 (("Command line is \"%s\"\n", args)); - -#ifdef CREATE_NEW_PROCESS_GROUP - flags |= CREATE_NEW_PROCESS_GROUP; -#endif - - ret = create_process (program, args, flags, &pi); - err = GetLastError (); - if (!ret && err == ERROR_FILE_NOT_FOUND) - { - char *exename = (char *) alloca (strlen (program) + 5); - strcat (strcpy (exename, program), ".exe"); - ret = create_process (exename, args, flags, &pi); - err = GetLastError (); - } - -#ifndef USE_WIN32API - if (orig_path) - setenv ("PATH", orig_path, 1); -#endif - - if (!ret) - { - error ("Error creating process \"%s%s\", (error %d): %s\n", - program, args, (int) err, strwinerror (err)); - } - else - { - OUTMSG2 (("Process created: %s\n", (char *) args)); - } - -#ifndef _WIN32_WCE - /* On Windows CE this handle can't be closed. The OS reuses - it in the debug events, while the 9x/NT versions of Windows - probably use a DuplicateHandle'd one. */ - CloseHandle (pi.hThread); -#endif - - do_initial_child_stuff (pi.hProcess, pi.dwProcessId, 0); - - /* Wait till we are at 1st instruction in program, return new pid - (assuming success). */ - cs.last_ptid = win32_wait (ptid_t (current_process_id), &cs.last_status, 0); - - /* Necessary for handle_v_kill. */ - signal_pid = current_process_id; - - return current_process_id; -} - -/* Attach to a running process. - PID is the process ID to attach to, specified by the user - or a higher layer. */ -static int -win32_attach (unsigned long pid) -{ - HANDLE h; - winapi_DebugSetProcessKillOnExit DebugSetProcessKillOnExit = NULL; - DWORD err; -#ifdef _WIN32_WCE - HMODULE dll = GetModuleHandle (_T("COREDLL.DLL")); -#else - HMODULE dll = GetModuleHandle (_T("KERNEL32.DLL")); -#endif - DebugSetProcessKillOnExit = GETPROCADDRESS (dll, DebugSetProcessKillOnExit); - - h = OpenProcess (PROCESS_ALL_ACCESS, FALSE, pid); - if (h != NULL) - { - if (DebugActiveProcess (pid)) - { - if (DebugSetProcessKillOnExit != NULL) - DebugSetProcessKillOnExit (FALSE); - - /* win32_wait needs to know we're attaching. */ - attaching = 1; - do_initial_child_stuff (h, pid, 1); - return 0; - } - - CloseHandle (h); - } - - err = GetLastError (); - error ("Attach to process failed (error %d): %s\n", - (int) err, strwinerror (err)); -} - -/* Handle OUTPUT_DEBUG_STRING_EVENT from child process. */ -static void -handle_output_debug_string (void) -{ -#define READ_BUFFER_LEN 1024 - CORE_ADDR addr; - char s[READ_BUFFER_LEN + 1] = { 0 }; - DWORD nbytes = current_event.u.DebugString.nDebugStringLength; - - if (nbytes == 0) - return; - - if (nbytes > READ_BUFFER_LEN) - nbytes = READ_BUFFER_LEN; - - addr = (CORE_ADDR) (size_t) current_event.u.DebugString.lpDebugStringData; - - if (current_event.u.DebugString.fUnicode) - { - /* The event tells us how many bytes, not chars, even - in Unicode. */ - WCHAR buffer[(READ_BUFFER_LEN + 1) / sizeof (WCHAR)] = { 0 }; - if (read_inferior_memory (addr, (unsigned char *) buffer, nbytes) != 0) - return; - wcstombs (s, buffer, (nbytes + 1) / sizeof (WCHAR)); - } - else - { - if (read_inferior_memory (addr, (unsigned char *) s, nbytes) != 0) - return; - } - - if (!startswith (s, "cYg")) - { - if (!server_waiting) - { - OUTMSG2(("%s", s)); - return; - } - - monitor_output (s); - } -#undef READ_BUFFER_LEN -} - -static void -win32_clear_inferiors (void) -{ - if (current_process_handle != NULL) - CloseHandle (current_process_handle); - - for_each_thread (delete_thread_info); - siginfo_er.ExceptionCode = 0; - clear_inferiors (); -} - -/* Implementation of target_ops::kill. */ - -static int -win32_kill (process_info *process) -{ - TerminateProcess (current_process_handle, 0); - for (;;) - { - if (!child_continue (DBG_CONTINUE, -1)) - break; - if (!WaitForDebugEvent (¤t_event, INFINITE)) - break; - if (current_event.dwDebugEventCode == EXIT_PROCESS_DEBUG_EVENT) - break; - else if (current_event.dwDebugEventCode == OUTPUT_DEBUG_STRING_EVENT) - handle_output_debug_string (); - } - - win32_clear_inferiors (); - - remove_process (process); - return 0; -} - -/* Implementation of target_ops::detach. */ - -static int -win32_detach (process_info *process) -{ - winapi_DebugActiveProcessStop DebugActiveProcessStop = NULL; - winapi_DebugSetProcessKillOnExit DebugSetProcessKillOnExit = NULL; -#ifdef _WIN32_WCE - HMODULE dll = GetModuleHandle (_T("COREDLL.DLL")); -#else - HMODULE dll = GetModuleHandle (_T("KERNEL32.DLL")); -#endif - DebugActiveProcessStop = GETPROCADDRESS (dll, DebugActiveProcessStop); - DebugSetProcessKillOnExit = GETPROCADDRESS (dll, DebugSetProcessKillOnExit); - - if (DebugSetProcessKillOnExit == NULL - || DebugActiveProcessStop == NULL) - return -1; - - { - struct thread_resume resume; - resume.thread = minus_one_ptid; - resume.kind = resume_continue; - resume.sig = 0; - win32_resume (&resume, 1); - } - - if (!DebugActiveProcessStop (current_process_id)) - return -1; - - DebugSetProcessKillOnExit (FALSE); - remove_process (process); - - win32_clear_inferiors (); - return 0; -} - -static void -win32_mourn (struct process_info *process) -{ - remove_process (process); -} - -/* Implementation of target_ops::join. */ - -static void -win32_join (int pid) -{ - HANDLE h = OpenProcess (PROCESS_ALL_ACCESS, FALSE, pid); - if (h != NULL) - { - WaitForSingleObject (h, INFINITE); - CloseHandle (h); - } -} - -/* Return 1 iff the thread with thread ID TID is alive. */ -static int -win32_thread_alive (ptid_t ptid) -{ - /* Our thread list is reliable; don't bother to poll target - threads. */ - return find_thread_ptid (ptid) != NULL; -} - -/* Resume the inferior process. RESUME_INFO describes how we want - to resume. */ -static void -win32_resume (struct thread_resume *resume_info, size_t n) -{ - DWORD tid; - enum gdb_signal sig; - int step; - win32_thread_info *th; - DWORD continue_status = DBG_CONTINUE; - ptid_t ptid; - - /* This handles the very limited set of resume packets that GDB can - currently produce. */ - - if (n == 1 && resume_info[0].thread == minus_one_ptid) - tid = -1; - else if (n > 1) - tid = -1; - else - /* Yes, we're ignoring resume_info[0].thread. It'd be tricky to make - the Windows resume code do the right thing for thread switching. */ - tid = current_event.dwThreadId; - - if (resume_info[0].thread != minus_one_ptid) - { - sig = gdb_signal_from_host (resume_info[0].sig); - step = resume_info[0].kind == resume_step; - } - else - { - sig = GDB_SIGNAL_0; - step = 0; - } - - if (sig != GDB_SIGNAL_0) - { - if (current_event.dwDebugEventCode != EXCEPTION_DEBUG_EVENT) - { - OUTMSG (("Cannot continue with signal %s here.\n", - gdb_signal_to_string (sig))); - } - else if (sig == last_sig) - continue_status = DBG_EXCEPTION_NOT_HANDLED; - else - OUTMSG (("Can only continue with received signal %s.\n", - gdb_signal_to_string (last_sig))); - } - - last_sig = GDB_SIGNAL_0; - - /* Get context for the currently selected thread. */ - ptid = debug_event_ptid (¤t_event); - th = thread_rec (ptid, FALSE); - if (th) - { - win32_prepare_to_resume (th); - - if (th->context.ContextFlags) - { - /* Move register values from the inferior into the thread - context structure. */ - regcache_invalidate (); - - if (step) - { - if (the_low_target.single_step != NULL) - (*the_low_target.single_step) (th); - else - error ("Single stepping is not supported " - "in this configuration.\n"); - } - - win32_set_thread_context (th); - th->context.ContextFlags = 0; - } - } - - /* Allow continuing with the same signal that interrupted us. - Otherwise complain. */ - - child_continue (continue_status, tid); -} - -static void -win32_add_one_solib (const char *name, CORE_ADDR load_addr) -{ - char buf[MAX_PATH + 1]; - char buf2[MAX_PATH + 1]; - -#ifdef _WIN32_WCE - WIN32_FIND_DATA w32_fd; - WCHAR wname[MAX_PATH + 1]; - mbstowcs (wname, name, MAX_PATH); - HANDLE h = FindFirstFile (wname, &w32_fd); -#else - WIN32_FIND_DATAA w32_fd; - HANDLE h = FindFirstFileA (name, &w32_fd); -#endif - - /* The symbols in a dll are offset by 0x1000, which is the - offset from 0 of the first byte in an image - because - of the file header and the section alignment. */ - load_addr += 0x1000; - - if (h == INVALID_HANDLE_VALUE) - strcpy (buf, name); - else - { - FindClose (h); - strcpy (buf, name); -#ifndef _WIN32_WCE - { - char cwd[MAX_PATH + 1]; - char *p; - if (GetCurrentDirectoryA (MAX_PATH + 1, cwd)) - { - p = strrchr (buf, '\\'); - if (p) - p[1] = '\0'; - SetCurrentDirectoryA (buf); - GetFullPathNameA (w32_fd.cFileName, MAX_PATH, buf, &p); - SetCurrentDirectoryA (cwd); - } - } -#endif - } - -#ifndef _WIN32_WCE - if (strcasecmp (buf, "ntdll.dll") == 0) - { - GetSystemDirectoryA (buf, sizeof (buf)); - strcat (buf, "\\ntdll.dll"); - } -#endif - -#ifdef __CYGWIN__ - cygwin_conv_path (CCP_WIN_A_TO_POSIX, buf, buf2, sizeof (buf2)); -#else - strcpy (buf2, buf); -#endif - - loaded_dll (buf2, load_addr); -} - -static char * -get_image_name (HANDLE h, void *address, int unicode) -{ - static char buf[(2 * MAX_PATH) + 1]; - DWORD size = unicode ? sizeof (WCHAR) : sizeof (char); - char *address_ptr; - int len = 0; - char b[2]; - SIZE_T done; - - /* Attempt to read the name of the dll that was detected. - This is documented to work only when actively debugging - a program. It will not work for attached processes. */ - if (address == NULL) - return NULL; - -#ifdef _WIN32_WCE - /* Windows CE reports the address of the image name, - instead of an address of a pointer into the image name. */ - address_ptr = address; -#else - /* See if we could read the address of a string, and that the - address isn't null. */ - if (!ReadProcessMemory (h, address, &address_ptr, - sizeof (address_ptr), &done) - || done != sizeof (address_ptr) - || !address_ptr) - return NULL; -#endif - - /* Find the length of the string */ - while (ReadProcessMemory (h, address_ptr + len++ * size, &b, size, &done) - && (b[0] != 0 || b[size - 1] != 0) && done == size) - continue; - - if (!unicode) - ReadProcessMemory (h, address_ptr, buf, len, &done); - else - { - WCHAR *unicode_address = XALLOCAVEC (WCHAR, len); - ReadProcessMemory (h, address_ptr, unicode_address, len * sizeof (WCHAR), - &done); - - WideCharToMultiByte (CP_ACP, 0, unicode_address, len, buf, len, 0, 0); - } - - return buf; -} - -typedef BOOL (WINAPI *winapi_EnumProcessModules) (HANDLE, HMODULE *, - DWORD, LPDWORD); -typedef BOOL (WINAPI *winapi_GetModuleInformation) (HANDLE, HMODULE, - LPMODULEINFO, DWORD); -typedef DWORD (WINAPI *winapi_GetModuleFileNameExA) (HANDLE, HMODULE, - LPSTR, DWORD); - -static winapi_EnumProcessModules win32_EnumProcessModules; -static winapi_GetModuleInformation win32_GetModuleInformation; -static winapi_GetModuleFileNameExA win32_GetModuleFileNameExA; - -static BOOL -load_psapi (void) -{ - static int psapi_loaded = 0; - static HMODULE dll = NULL; - - if (!psapi_loaded) - { - psapi_loaded = 1; - dll = LoadLibrary (TEXT("psapi.dll")); - if (!dll) - return FALSE; - win32_EnumProcessModules = - GETPROCADDRESS (dll, EnumProcessModules); - win32_GetModuleInformation = - GETPROCADDRESS (dll, GetModuleInformation); - win32_GetModuleFileNameExA = - GETPROCADDRESS (dll, GetModuleFileNameExA); - } - - return (win32_EnumProcessModules != NULL - && win32_GetModuleInformation != NULL - && win32_GetModuleFileNameExA != NULL); -} - -#ifndef _WIN32_WCE - -/* Iterate over all DLLs currently mapped by our inferior, and - add them to our list of solibs. */ - -static void -win32_add_all_dlls (void) -{ - size_t i; - HMODULE dh_buf[1]; - HMODULE *DllHandle = dh_buf; - DWORD cbNeeded; - BOOL ok; - - if (!load_psapi ()) - return; - - cbNeeded = 0; - ok = (*win32_EnumProcessModules) (current_process_handle, - DllHandle, - sizeof (HMODULE), - &cbNeeded); - - if (!ok || !cbNeeded) - return; - - DllHandle = (HMODULE *) alloca (cbNeeded); - if (!DllHandle) - return; - - ok = (*win32_EnumProcessModules) (current_process_handle, - DllHandle, - cbNeeded, - &cbNeeded); - if (!ok) - return; - - for (i = 1; i < ((size_t) cbNeeded / sizeof (HMODULE)); i++) - { - MODULEINFO mi; - char dll_name[MAX_PATH]; - - if (!(*win32_GetModuleInformation) (current_process_handle, - DllHandle[i], - &mi, - sizeof (mi))) - continue; - if ((*win32_GetModuleFileNameExA) (current_process_handle, - DllHandle[i], - dll_name, - MAX_PATH) == 0) - continue; - win32_add_one_solib (dll_name, (CORE_ADDR) (uintptr_t) mi.lpBaseOfDll); - } -} -#endif - -typedef HANDLE (WINAPI *winapi_CreateToolhelp32Snapshot) (DWORD, DWORD); -typedef BOOL (WINAPI *winapi_Module32First) (HANDLE, LPMODULEENTRY32); -typedef BOOL (WINAPI *winapi_Module32Next) (HANDLE, LPMODULEENTRY32); - -/* Handle a DLL load event. - - This function assumes that this event did not occur during inferior - initialization, where their event info may be incomplete (see - do_initial_child_stuff and win32_add_all_dlls for more info on - how we handle DLL loading during that phase). */ - -static void -handle_load_dll (void) -{ - LOAD_DLL_DEBUG_INFO *event = ¤t_event.u.LoadDll; - char *dll_name; - - dll_name = get_image_name (current_process_handle, - event->lpImageName, event->fUnicode); - if (!dll_name) - return; - - win32_add_one_solib (dll_name, (CORE_ADDR) (uintptr_t) event->lpBaseOfDll); -} - -/* Handle a DLL unload event. - - This function assumes that this event did not occur during inferior - initialization, where their event info may be incomplete (see - do_initial_child_stuff and win32_add_one_solib for more info - on how we handle DLL loading during that phase). */ - -static void -handle_unload_dll (void) -{ - CORE_ADDR load_addr = - (CORE_ADDR) (uintptr_t) current_event.u.UnloadDll.lpBaseOfDll; - - /* The symbols in a dll are offset by 0x1000, which is the - offset from 0 of the first byte in an image - because - of the file header and the section alignment. */ - load_addr += 0x1000; - unloaded_dll (NULL, load_addr); -} - -static void -handle_exception (struct target_waitstatus *ourstatus) -{ - DWORD code = current_event.u.Exception.ExceptionRecord.ExceptionCode; - - memcpy (&siginfo_er, ¤t_event.u.Exception.ExceptionRecord, - sizeof siginfo_er); - - ourstatus->kind = TARGET_WAITKIND_STOPPED; - - switch (code) - { - case EXCEPTION_ACCESS_VIOLATION: - OUTMSG2 (("EXCEPTION_ACCESS_VIOLATION")); - ourstatus->value.sig = GDB_SIGNAL_SEGV; - break; - case STATUS_STACK_OVERFLOW: - OUTMSG2 (("STATUS_STACK_OVERFLOW")); - ourstatus->value.sig = GDB_SIGNAL_SEGV; - break; - case STATUS_FLOAT_DENORMAL_OPERAND: - OUTMSG2 (("STATUS_FLOAT_DENORMAL_OPERAND")); - ourstatus->value.sig = GDB_SIGNAL_FPE; - break; - case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: - OUTMSG2 (("EXCEPTION_ARRAY_BOUNDS_EXCEEDED")); - ourstatus->value.sig = GDB_SIGNAL_FPE; - break; - case STATUS_FLOAT_INEXACT_RESULT: - OUTMSG2 (("STATUS_FLOAT_INEXACT_RESULT")); - ourstatus->value.sig = GDB_SIGNAL_FPE; - break; - case STATUS_FLOAT_INVALID_OPERATION: - OUTMSG2 (("STATUS_FLOAT_INVALID_OPERATION")); - ourstatus->value.sig = GDB_SIGNAL_FPE; - break; - case STATUS_FLOAT_OVERFLOW: - OUTMSG2 (("STATUS_FLOAT_OVERFLOW")); - ourstatus->value.sig = GDB_SIGNAL_FPE; - break; - case STATUS_FLOAT_STACK_CHECK: - OUTMSG2 (("STATUS_FLOAT_STACK_CHECK")); - ourstatus->value.sig = GDB_SIGNAL_FPE; - break; - case STATUS_FLOAT_UNDERFLOW: - OUTMSG2 (("STATUS_FLOAT_UNDERFLOW")); - ourstatus->value.sig = GDB_SIGNAL_FPE; - break; - case STATUS_FLOAT_DIVIDE_BY_ZERO: - OUTMSG2 (("STATUS_FLOAT_DIVIDE_BY_ZERO")); - ourstatus->value.sig = GDB_SIGNAL_FPE; - break; - case STATUS_INTEGER_DIVIDE_BY_ZERO: - OUTMSG2 (("STATUS_INTEGER_DIVIDE_BY_ZERO")); - ourstatus->value.sig = GDB_SIGNAL_FPE; - break; - case STATUS_INTEGER_OVERFLOW: - OUTMSG2 (("STATUS_INTEGER_OVERFLOW")); - ourstatus->value.sig = GDB_SIGNAL_FPE; - break; - case EXCEPTION_BREAKPOINT: - OUTMSG2 (("EXCEPTION_BREAKPOINT")); - ourstatus->value.sig = GDB_SIGNAL_TRAP; -#ifdef _WIN32_WCE - /* Remove the initial breakpoint. */ - check_breakpoints ((CORE_ADDR) (long) current_event - .u.Exception.ExceptionRecord.ExceptionAddress); -#endif - break; - case DBG_CONTROL_C: - OUTMSG2 (("DBG_CONTROL_C")); - ourstatus->value.sig = GDB_SIGNAL_INT; - break; - case DBG_CONTROL_BREAK: - OUTMSG2 (("DBG_CONTROL_BREAK")); - ourstatus->value.sig = GDB_SIGNAL_INT; - break; - case EXCEPTION_SINGLE_STEP: - OUTMSG2 (("EXCEPTION_SINGLE_STEP")); - ourstatus->value.sig = GDB_SIGNAL_TRAP; - break; - case EXCEPTION_ILLEGAL_INSTRUCTION: - OUTMSG2 (("EXCEPTION_ILLEGAL_INSTRUCTION")); - ourstatus->value.sig = GDB_SIGNAL_ILL; - break; - case EXCEPTION_PRIV_INSTRUCTION: - OUTMSG2 (("EXCEPTION_PRIV_INSTRUCTION")); - ourstatus->value.sig = GDB_SIGNAL_ILL; - break; - case EXCEPTION_NONCONTINUABLE_EXCEPTION: - OUTMSG2 (("EXCEPTION_NONCONTINUABLE_EXCEPTION")); - ourstatus->value.sig = GDB_SIGNAL_ILL; - break; - default: - if (current_event.u.Exception.dwFirstChance) - { - ourstatus->kind = TARGET_WAITKIND_SPURIOUS; - return; - } - OUTMSG2 (("gdbserver: unknown target exception 0x%08x at 0x%s", - (unsigned) current_event.u.Exception.ExceptionRecord.ExceptionCode, - phex_nz ((uintptr_t) current_event.u.Exception.ExceptionRecord. - ExceptionAddress, sizeof (uintptr_t)))); - ourstatus->value.sig = GDB_SIGNAL_UNKNOWN; - break; - } - OUTMSG2 (("\n")); - last_sig = ourstatus->value.sig; -} - - -static void -suspend_one_thread (thread_info *thread) -{ - win32_thread_info *th = (win32_thread_info *) thread_target_data (thread); - - if (!th->suspended) - { - if (SuspendThread (th->h) == (DWORD) -1) - { - DWORD err = GetLastError (); - OUTMSG (("warning: SuspendThread failed in suspend_one_thread, " - "(error %d): %s\n", (int) err, strwinerror (err))); - } - else - th->suspended = 1; - } -} - -static void -fake_breakpoint_event (void) -{ - OUTMSG2(("fake_breakpoint_event\n")); - - faked_breakpoint = 1; - - memset (¤t_event, 0, sizeof (current_event)); - current_event.dwThreadId = main_thread_id; - current_event.dwDebugEventCode = EXCEPTION_DEBUG_EVENT; - current_event.u.Exception.ExceptionRecord.ExceptionCode - = EXCEPTION_BREAKPOINT; - - for_each_thread (suspend_one_thread); -} - -#ifdef _WIN32_WCE -static int -auto_delete_breakpoint (CORE_ADDR stop_pc) -{ - return 1; -} -#endif - -/* Get the next event from the child. */ - -static int -get_child_debug_event (struct target_waitstatus *ourstatus) -{ - ptid_t ptid; - - last_sig = GDB_SIGNAL_0; - ourstatus->kind = TARGET_WAITKIND_SPURIOUS; - - /* Check if GDB sent us an interrupt request. */ - check_remote_input_interrupt_request (); - - if (soft_interrupt_requested) - { - soft_interrupt_requested = 0; - fake_breakpoint_event (); - goto gotevent; - } - -#ifndef _WIN32_WCE - attaching = 0; -#else - if (attaching) - { - /* WinCE doesn't set an initial breakpoint automatically. To - stop the inferior, we flush all currently pending debug - events -- the thread list and the dll list are always - reported immediatelly without delay, then, we suspend all - threads and pretend we saw a trap at the current PC of the - main thread. - - Contrary to desktop Windows, Windows CE *does* report the dll - names on LOAD_DLL_DEBUG_EVENTs resulting from a - DebugActiveProcess call. This limits the way we can detect - if all the dlls have already been reported. If we get a real - debug event before leaving attaching, the worst that will - happen is the user will see a spurious breakpoint. */ - - current_event.dwDebugEventCode = 0; - if (!WaitForDebugEvent (¤t_event, 0)) - { - OUTMSG2(("no attach events left\n")); - fake_breakpoint_event (); - attaching = 0; - } - else - OUTMSG2(("got attach event\n")); - } - else -#endif - { - /* Keep the wait time low enough for comfortable remote - interruption, but high enough so gdbserver doesn't become a - bottleneck. */ - if (!WaitForDebugEvent (¤t_event, 250)) - { - DWORD e = GetLastError(); - - if (e == ERROR_PIPE_NOT_CONNECTED) - { - /* This will happen if the loader fails to succesfully - load the application, e.g., if the main executable - tries to pull in a non-existing export from a - DLL. */ - ourstatus->kind = TARGET_WAITKIND_EXITED; - ourstatus->value.integer = 1; - return 1; - } - - return 0; - } - } - - gotevent: - - switch (current_event.dwDebugEventCode) - { - case CREATE_THREAD_DEBUG_EVENT: - OUTMSG2 (("gdbserver: kernel event CREATE_THREAD_DEBUG_EVENT " - "for pid=%u tid=%x)\n", - (unsigned) current_event.dwProcessId, - (unsigned) current_event.dwThreadId)); - - /* Record the existence of this thread. */ - child_add_thread (current_event.dwProcessId, - current_event.dwThreadId, - current_event.u.CreateThread.hThread, - current_event.u.CreateThread.lpThreadLocalBase); - break; - - case EXIT_THREAD_DEBUG_EVENT: - OUTMSG2 (("gdbserver: kernel event EXIT_THREAD_DEBUG_EVENT " - "for pid=%u tid=%x\n", - (unsigned) current_event.dwProcessId, - (unsigned) current_event.dwThreadId)); - child_delete_thread (current_event.dwProcessId, - current_event.dwThreadId); - - current_thread = get_first_thread (); - return 1; - - case CREATE_PROCESS_DEBUG_EVENT: - OUTMSG2 (("gdbserver: kernel event CREATE_PROCESS_DEBUG_EVENT " - "for pid=%u tid=%x\n", - (unsigned) current_event.dwProcessId, - (unsigned) current_event.dwThreadId)); - CloseHandle (current_event.u.CreateProcessInfo.hFile); - - current_process_handle = current_event.u.CreateProcessInfo.hProcess; - main_thread_id = current_event.dwThreadId; - - /* Add the main thread. */ - child_add_thread (current_event.dwProcessId, - main_thread_id, - current_event.u.CreateProcessInfo.hThread, - current_event.u.CreateProcessInfo.lpThreadLocalBase); - -#ifdef _WIN32_WCE - if (!attaching) - { - /* Windows CE doesn't set the initial breakpoint - automatically like the desktop versions of Windows do. - We add it explicitly here. It will be removed as soon as - it is hit. */ - set_breakpoint_at ((CORE_ADDR) (long) current_event.u - .CreateProcessInfo.lpStartAddress, - auto_delete_breakpoint); - } -#endif - break; - - case EXIT_PROCESS_DEBUG_EVENT: - OUTMSG2 (("gdbserver: kernel event EXIT_PROCESS_DEBUG_EVENT " - "for pid=%u tid=%x\n", - (unsigned) current_event.dwProcessId, - (unsigned) current_event.dwThreadId)); - { - DWORD exit_status = current_event.u.ExitProcess.dwExitCode; - /* If the exit status looks like a fatal exception, but we - don't recognize the exception's code, make the original - exit status value available, to avoid losing information. */ - int exit_signal - = WIFSIGNALED (exit_status) ? WTERMSIG (exit_status) : -1; - if (exit_signal == -1) - { - ourstatus->kind = TARGET_WAITKIND_EXITED; - ourstatus->value.integer = exit_status; - } - else - { - ourstatus->kind = TARGET_WAITKIND_SIGNALLED; - ourstatus->value.sig = gdb_signal_from_host (exit_signal); - } - } - child_continue (DBG_CONTINUE, -1); - CloseHandle (current_process_handle); - current_process_handle = NULL; - break; - - case LOAD_DLL_DEBUG_EVENT: - OUTMSG2 (("gdbserver: kernel event LOAD_DLL_DEBUG_EVENT " - "for pid=%u tid=%x\n", - (unsigned) current_event.dwProcessId, - (unsigned) current_event.dwThreadId)); - CloseHandle (current_event.u.LoadDll.hFile); - if (! child_initialization_done) - break; - handle_load_dll (); - - ourstatus->kind = TARGET_WAITKIND_LOADED; - ourstatus->value.sig = GDB_SIGNAL_TRAP; - break; - - case UNLOAD_DLL_DEBUG_EVENT: - OUTMSG2 (("gdbserver: kernel event UNLOAD_DLL_DEBUG_EVENT " - "for pid=%u tid=%x\n", - (unsigned) current_event.dwProcessId, - (unsigned) current_event.dwThreadId)); - if (! child_initialization_done) - break; - handle_unload_dll (); - ourstatus->kind = TARGET_WAITKIND_LOADED; - ourstatus->value.sig = GDB_SIGNAL_TRAP; - break; - - case EXCEPTION_DEBUG_EVENT: - OUTMSG2 (("gdbserver: kernel event EXCEPTION_DEBUG_EVENT " - "for pid=%u tid=%x\n", - (unsigned) current_event.dwProcessId, - (unsigned) current_event.dwThreadId)); - handle_exception (ourstatus); - break; - - case OUTPUT_DEBUG_STRING_EVENT: - /* A message from the kernel (or Cygwin). */ - OUTMSG2 (("gdbserver: kernel event OUTPUT_DEBUG_STRING_EVENT " - "for pid=%u tid=%x\n", - (unsigned) current_event.dwProcessId, - (unsigned) current_event.dwThreadId)); - handle_output_debug_string (); - break; - - default: - OUTMSG2 (("gdbserver: kernel event unknown " - "for pid=%u tid=%x code=%x\n", - (unsigned) current_event.dwProcessId, - (unsigned) current_event.dwThreadId, - (unsigned) current_event.dwDebugEventCode)); - break; - } - - ptid = debug_event_ptid (¤t_event); - current_thread = find_thread_ptid (ptid); - return 1; -} - -/* Wait for the inferior process to change state. - STATUS will be filled in with a response code to send to GDB. - Returns the signal which caused the process to stop. */ -static ptid_t -win32_wait (ptid_t ptid, struct target_waitstatus *ourstatus, int options) -{ - struct regcache *regcache; - - if (cached_status.kind != TARGET_WAITKIND_IGNORE) - { - /* The core always does a wait after creating the inferior, and - do_initial_child_stuff already ran the inferior to the - initial breakpoint (or an exit, if creating the process - fails). Report it now. */ - *ourstatus = cached_status; - cached_status.kind = TARGET_WAITKIND_IGNORE; - return debug_event_ptid (¤t_event); - } - - while (1) - { - if (!get_child_debug_event (ourstatus)) - continue; - - switch (ourstatus->kind) - { - case TARGET_WAITKIND_EXITED: - OUTMSG2 (("Child exited with retcode = %x\n", - ourstatus->value.integer)); - win32_clear_inferiors (); - return ptid_t (current_event.dwProcessId); - case TARGET_WAITKIND_STOPPED: - case TARGET_WAITKIND_SIGNALLED: - case TARGET_WAITKIND_LOADED: - OUTMSG2 (("Child Stopped with signal = %d \n", - ourstatus->value.sig)); - - regcache = get_thread_regcache (current_thread, 1); - child_fetch_inferior_registers (regcache, -1); - return debug_event_ptid (¤t_event); - default: - OUTMSG (("Ignoring unknown internal event, %d\n", ourstatus->kind)); - /* fall-through */ - case TARGET_WAITKIND_SPURIOUS: - /* do nothing, just continue */ - child_continue (DBG_CONTINUE, -1); - break; - } - } -} - -/* Fetch registers from the inferior process. - If REGNO is -1, fetch all registers; otherwise, fetch at least REGNO. */ -static void -win32_fetch_inferior_registers (struct regcache *regcache, int regno) -{ - child_fetch_inferior_registers (regcache, regno); -} - -/* Store registers to the inferior process. - If REGNO is -1, store all registers; otherwise, store at least REGNO. */ -static void -win32_store_inferior_registers (struct regcache *regcache, int regno) -{ - child_store_inferior_registers (regcache, regno); -} - -/* Read memory from the inferior process. This should generally be - called through read_inferior_memory, which handles breakpoint shadowing. - Read LEN bytes at MEMADDR into a buffer at MYADDR. */ -static int -win32_read_inferior_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) -{ - return child_xfer_memory (memaddr, (char *) myaddr, len, 0, 0) != len; -} - -/* Write memory to the inferior process. This should generally be - called through write_inferior_memory, which handles breakpoint shadowing. - Write LEN bytes from the buffer at MYADDR to MEMADDR. - Returns 0 on success and errno on failure. */ -static int -win32_write_inferior_memory (CORE_ADDR memaddr, const unsigned char *myaddr, - int len) -{ - return child_xfer_memory (memaddr, (char *) myaddr, len, 1, 0) != len; -} - -/* Send an interrupt request to the inferior process. */ -static void -win32_request_interrupt (void) -{ - winapi_DebugBreakProcess DebugBreakProcess; - winapi_GenerateConsoleCtrlEvent GenerateConsoleCtrlEvent; - -#ifdef _WIN32_WCE - HMODULE dll = GetModuleHandle (_T("COREDLL.DLL")); -#else - HMODULE dll = GetModuleHandle (_T("KERNEL32.DLL")); -#endif - - GenerateConsoleCtrlEvent = GETPROCADDRESS (dll, GenerateConsoleCtrlEvent); - - if (GenerateConsoleCtrlEvent != NULL - && GenerateConsoleCtrlEvent (CTRL_BREAK_EVENT, current_process_id)) - return; - - /* GenerateConsoleCtrlEvent can fail if process id being debugged is - not a process group id. - Fallback to XP/Vista 'DebugBreakProcess', which generates a - breakpoint exception in the interior process. */ - - DebugBreakProcess = GETPROCADDRESS (dll, DebugBreakProcess); - - if (DebugBreakProcess != NULL - && DebugBreakProcess (current_process_handle)) - return; - - /* Last resort, suspend all threads manually. */ - soft_interrupt_requested = 1; -} - -#ifdef _WIN32_WCE -int -win32_error_to_fileio_error (DWORD err) -{ - switch (err) - { - case ERROR_BAD_PATHNAME: - case ERROR_FILE_NOT_FOUND: - case ERROR_INVALID_NAME: - case ERROR_PATH_NOT_FOUND: - return FILEIO_ENOENT; - case ERROR_CRC: - case ERROR_IO_DEVICE: - case ERROR_OPEN_FAILED: - return FILEIO_EIO; - case ERROR_INVALID_HANDLE: - return FILEIO_EBADF; - case ERROR_ACCESS_DENIED: - case ERROR_SHARING_VIOLATION: - return FILEIO_EACCES; - case ERROR_NOACCESS: - return FILEIO_EFAULT; - case ERROR_BUSY: - return FILEIO_EBUSY; - case ERROR_ALREADY_EXISTS: - case ERROR_FILE_EXISTS: - return FILEIO_EEXIST; - case ERROR_BAD_DEVICE: - return FILEIO_ENODEV; - case ERROR_DIRECTORY: - return FILEIO_ENOTDIR; - case ERROR_FILENAME_EXCED_RANGE: - case ERROR_INVALID_DATA: - case ERROR_INVALID_PARAMETER: - case ERROR_NEGATIVE_SEEK: - return FILEIO_EINVAL; - case ERROR_TOO_MANY_OPEN_FILES: - return FILEIO_EMFILE; - case ERROR_HANDLE_DISK_FULL: - case ERROR_DISK_FULL: - return FILEIO_ENOSPC; - case ERROR_WRITE_PROTECT: - return FILEIO_EROFS; - case ERROR_NOT_SUPPORTED: - return FILEIO_ENOSYS; - } - - return FILEIO_EUNKNOWN; -} - -static void -wince_hostio_last_error (char *buf) -{ - DWORD winerr = GetLastError (); - int fileio_err = win32_error_to_fileio_error (winerr); - sprintf (buf, "F-1,%x", fileio_err); -} -#endif - -/* Write Windows signal info. */ - -static int -win32_xfer_siginfo (const char *annex, unsigned char *readbuf, - unsigned const char *writebuf, CORE_ADDR offset, int len) -{ - if (siginfo_er.ExceptionCode == 0) - return -1; - - if (readbuf == nullptr) - return -1; - - if (offset > sizeof (siginfo_er)) - return -1; - - if (offset + len > sizeof (siginfo_er)) - len = sizeof (siginfo_er) - offset; - - memcpy (readbuf, (char *) &siginfo_er + offset, len); - - return len; -} - -/* Write Windows OS Thread Information Block address. */ - -static int -win32_get_tib_address (ptid_t ptid, CORE_ADDR *addr) -{ - win32_thread_info *th; - th = thread_rec (ptid, 0); - if (th == NULL) - return 0; - if (addr != NULL) - *addr = th->thread_local_base; - return 1; -} - -/* Implementation of the target_ops method "sw_breakpoint_from_kind". */ - -static const gdb_byte * -win32_sw_breakpoint_from_kind (int kind, int *size) -{ - *size = the_low_target.breakpoint_len; - return the_low_target.breakpoint; -} - -static process_stratum_target win32_target_ops = { - win32_create_inferior, - NULL, /* post_create_inferior */ - win32_attach, - win32_kill, - win32_detach, - win32_mourn, - win32_join, - win32_thread_alive, - win32_resume, - win32_wait, - win32_fetch_inferior_registers, - win32_store_inferior_registers, - NULL, /* prepare_to_access_memory */ - NULL, /* done_accessing_memory */ - win32_read_inferior_memory, - win32_write_inferior_memory, - NULL, /* lookup_symbols */ - win32_request_interrupt, - NULL, /* read_auxv */ - win32_supports_z_point_type, - win32_insert_point, - win32_remove_point, - NULL, /* stopped_by_sw_breakpoint */ - NULL, /* supports_stopped_by_sw_breakpoint */ - NULL, /* stopped_by_hw_breakpoint */ - NULL, /* supports_stopped_by_hw_breakpoint */ - target_can_do_hardware_single_step, - win32_stopped_by_watchpoint, - win32_stopped_data_address, - NULL, /* read_offsets */ - NULL, /* get_tls_address */ -#ifdef _WIN32_WCE - wince_hostio_last_error, -#else - hostio_last_error_from_errno, -#endif - NULL, /* qxfer_osdata */ - win32_xfer_siginfo, - NULL, /* supports_non_stop */ - NULL, /* async */ - NULL, /* start_non_stop */ - NULL, /* supports_multi_process */ - NULL, /* supports_fork_events */ - NULL, /* supports_vfork_events */ - NULL, /* supports_exec_events */ - NULL, /* handle_new_gdb_connection */ - NULL, /* handle_monitor_command */ - NULL, /* core_of_thread */ - NULL, /* read_loadmap */ - NULL, /* process_qsupported */ - NULL, /* supports_tracepoints */ - NULL, /* read_pc */ - NULL, /* write_pc */ - NULL, /* thread_stopped */ - win32_get_tib_address, - NULL, /* pause_all */ - NULL, /* unpause_all */ - NULL, /* stabilize_threads */ - NULL, /* install_fast_tracepoint_jump_pad */ - NULL, /* emit_ops */ - NULL, /* supports_disable_randomization */ - NULL, /* get_min_fast_tracepoint_insn_len */ - NULL, /* qxfer_libraries_svr4 */ - NULL, /* support_agent */ - NULL, /* enable_btrace */ - NULL, /* disable_btrace */ - NULL, /* read_btrace */ - NULL, /* read_btrace_conf */ - NULL, /* supports_range_stepping */ - NULL, /* pid_to_exec_file */ - NULL, /* multifs_open */ - NULL, /* multifs_unlink */ - NULL, /* multifs_readlink */ - NULL, /* breakpoint_kind_from_pc */ - win32_sw_breakpoint_from_kind, -}; - -/* Initialize the Win32 backend. */ -void -initialize_low (void) -{ - set_target_ops (&win32_target_ops); - the_low_target.arch_setup (); -} diff --git a/gdbserver/win32-low.cc b/gdbserver/win32-low.cc new file mode 100644 index 00000000000..557c90d97c6 --- /dev/null +++ b/gdbserver/win32-low.cc @@ -0,0 +1,1913 @@ +/* Low level interface to Windows debugging, for gdbserver. + Copyright (C) 2006-2020 Free Software Foundation, Inc. + + Contributed by Leo Zayas. Based on "win32-nat.c" from GDB. + + 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 . */ + +#include "server.h" +#include "regcache.h" +#include "gdb/fileio.h" +#include "mem-break.h" +#include "win32-low.h" +#include "gdbthread.h" +#include "dll.h" +#include "hostio.h" +#include +#include +#include +#include +#include +#include +#include "gdbsupport/gdb_tilde_expand.h" +#include "gdbsupport/common-inferior.h" +#include "gdbsupport/gdb_wait.h" + +#ifndef USE_WIN32API +#include +#endif + +#define OUTMSG(X) do { printf X; fflush (stderr); } while (0) + +#define OUTMSG2(X) \ + do \ + { \ + if (debug_threads) \ + { \ + printf X; \ + fflush (stderr); \ + } \ + } while (0) + +#ifndef _T +#define _T(x) TEXT (x) +#endif + +#ifndef COUNTOF +#define COUNTOF(STR) (sizeof (STR) / sizeof ((STR)[0])) +#endif + +#ifdef _WIN32_WCE +# define GETPROCADDRESS(DLL, PROC) \ + ((winapi_ ## PROC) GetProcAddress (DLL, TEXT (#PROC))) +#else +# define GETPROCADDRESS(DLL, PROC) \ + ((winapi_ ## PROC) GetProcAddress (DLL, #PROC)) +#endif + +int using_threads = 1; + +/* Globals. */ +static int attaching = 0; +static HANDLE current_process_handle = NULL; +static DWORD current_process_id = 0; +static DWORD main_thread_id = 0; +static EXCEPTION_RECORD siginfo_er; /* Contents of $_siginfo */ +static enum gdb_signal last_sig = GDB_SIGNAL_0; + +/* The current debug event from WaitForDebugEvent. */ +static DEBUG_EVENT current_event; + +/* A status that hasn't been reported to the core yet, and so + win32_wait should return it next, instead of fetching the next + debug event off the win32 API. */ +static struct target_waitstatus cached_status; + +/* Non zero if an interrupt request is to be satisfied by suspending + all threads. */ +static int soft_interrupt_requested = 0; + +/* Non zero if the inferior is stopped in a simulated breakpoint done + by suspending all the threads. */ +static int faked_breakpoint = 0; + +const struct target_desc *win32_tdesc; + +#define NUM_REGS (the_low_target.num_regs) + +typedef BOOL (WINAPI *winapi_DebugActiveProcessStop) (DWORD dwProcessId); +typedef BOOL (WINAPI *winapi_DebugSetProcessKillOnExit) (BOOL KillOnExit); +typedef BOOL (WINAPI *winapi_DebugBreakProcess) (HANDLE); +typedef BOOL (WINAPI *winapi_GenerateConsoleCtrlEvent) (DWORD, DWORD); + +static ptid_t win32_wait (ptid_t ptid, struct target_waitstatus *ourstatus, + int options); +static void win32_resume (struct thread_resume *resume_info, size_t n); +#ifndef _WIN32_WCE +static void win32_add_all_dlls (void); +#endif + +/* Get the thread ID from the current selected inferior (the current + thread). */ +static ptid_t +current_thread_ptid (void) +{ + return current_ptid; +} + +/* The current debug event from WaitForDebugEvent. */ +static ptid_t +debug_event_ptid (DEBUG_EVENT *event) +{ + return ptid_t (event->dwProcessId, event->dwThreadId, 0); +} + +/* Get the thread context of the thread associated with TH. */ + +static void +win32_get_thread_context (win32_thread_info *th) +{ + memset (&th->context, 0, sizeof (CONTEXT)); + (*the_low_target.get_thread_context) (th); +#ifdef _WIN32_WCE + memcpy (&th->base_context, &th->context, sizeof (CONTEXT)); +#endif +} + +/* Set the thread context of the thread associated with TH. */ + +static void +win32_set_thread_context (win32_thread_info *th) +{ +#ifdef _WIN32_WCE + /* Calling SuspendThread on a thread that is running kernel code + will report that the suspending was successful, but in fact, that + will often not be true. In those cases, the context returned by + GetThreadContext will not be correct by the time the thread + stops, hence we can't set that context back into the thread when + resuming - it will most likely crash the inferior. + Unfortunately, there is no way to know when the thread will + really stop. To work around it, we'll only write the context + back to the thread when either the user or GDB explicitly change + it between stopping and resuming. */ + if (memcmp (&th->context, &th->base_context, sizeof (CONTEXT)) != 0) +#endif + SetThreadContext (th->h, &th->context); +} + +/* Set the thread context of the thread associated with TH. */ + +static void +win32_prepare_to_resume (win32_thread_info *th) +{ + if (the_low_target.prepare_to_resume != NULL) + (*the_low_target.prepare_to_resume) (th); +} + +/* See win32-low.h. */ + +void +win32_require_context (win32_thread_info *th) +{ + if (th->context.ContextFlags == 0) + { + if (!th->suspended) + { + if (SuspendThread (th->h) == (DWORD) -1) + { + DWORD err = GetLastError (); + OUTMSG (("warning: SuspendThread failed in thread_rec, " + "(error %d): %s\n", (int) err, strwinerror (err))); + } + else + th->suspended = 1; + } + + win32_get_thread_context (th); + } +} + +/* Find a thread record given a thread id. If GET_CONTEXT is set then + also retrieve the context for this thread. */ +static win32_thread_info * +thread_rec (ptid_t ptid, int get_context) +{ + thread_info *thread = find_thread_ptid (ptid); + if (thread == NULL) + return NULL; + + win32_thread_info *th = (win32_thread_info *) thread_target_data (thread); + if (get_context) + win32_require_context (th); + return th; +} + +/* Add a thread to the thread list. */ +static win32_thread_info * +child_add_thread (DWORD pid, DWORD tid, HANDLE h, void *tlb) +{ + win32_thread_info *th; + ptid_t ptid = ptid_t (pid, tid, 0); + + if ((th = thread_rec (ptid, FALSE))) + return th; + + th = XCNEW (win32_thread_info); + th->tid = tid; + th->h = h; + th->thread_local_base = (CORE_ADDR) (uintptr_t) tlb; + + add_thread (ptid, th); + + if (the_low_target.thread_added != NULL) + (*the_low_target.thread_added) (th); + + return th; +} + +/* Delete a thread from the list of threads. */ +static void +delete_thread_info (thread_info *thread) +{ + win32_thread_info *th = (win32_thread_info *) thread_target_data (thread); + + remove_thread (thread); + CloseHandle (th->h); + free (th); +} + +/* Delete a thread from the list of threads. */ +static void +child_delete_thread (DWORD pid, DWORD tid) +{ + /* If the last thread is exiting, just return. */ + if (all_threads.size () == 1) + return; + + thread_info *thread = find_thread_ptid (ptid_t (pid, tid)); + if (thread == NULL) + return; + + delete_thread_info (thread); +} + +/* These watchpoint related wrapper functions simply pass on the function call + if the low target has registered a corresponding function. */ + +static int +win32_supports_z_point_type (char z_type) +{ + return (the_low_target.supports_z_point_type != NULL + && the_low_target.supports_z_point_type (z_type)); +} + +static int +win32_insert_point (enum raw_bkpt_type type, CORE_ADDR addr, + int size, struct raw_breakpoint *bp) +{ + if (the_low_target.insert_point != NULL) + return the_low_target.insert_point (type, addr, size, bp); + else + /* Unsupported (see target.h). */ + return 1; +} + +static int +win32_remove_point (enum raw_bkpt_type type, CORE_ADDR addr, + int size, struct raw_breakpoint *bp) +{ + if (the_low_target.remove_point != NULL) + return the_low_target.remove_point (type, addr, size, bp); + else + /* Unsupported (see target.h). */ + return 1; +} + +static int +win32_stopped_by_watchpoint (void) +{ + if (the_low_target.stopped_by_watchpoint != NULL) + return the_low_target.stopped_by_watchpoint (); + else + return 0; +} + +static CORE_ADDR +win32_stopped_data_address (void) +{ + if (the_low_target.stopped_data_address != NULL) + return the_low_target.stopped_data_address (); + else + return 0; +} + + +/* Transfer memory from/to the debugged process. */ +static int +child_xfer_memory (CORE_ADDR memaddr, char *our, int len, + int write, process_stratum_target *target) +{ + BOOL success; + SIZE_T done = 0; + DWORD lasterror = 0; + uintptr_t addr = (uintptr_t) memaddr; + + if (write) + { + success = WriteProcessMemory (current_process_handle, (LPVOID) addr, + (LPCVOID) our, len, &done); + if (!success) + lasterror = GetLastError (); + FlushInstructionCache (current_process_handle, (LPCVOID) addr, len); + } + else + { + success = ReadProcessMemory (current_process_handle, (LPCVOID) addr, + (LPVOID) our, len, &done); + if (!success) + lasterror = GetLastError (); + } + if (!success && lasterror == ERROR_PARTIAL_COPY && done > 0) + return done; + else + return success ? done : -1; +} + +/* Clear out any old thread list and reinitialize it to a pristine + state. */ +static void +child_init_thread_list (void) +{ + for_each_thread (delete_thread_info); +} + +/* Zero during the child initialization phase, and nonzero otherwise. */ + +static int child_initialization_done = 0; + +static void +do_initial_child_stuff (HANDLE proch, DWORD pid, int attached) +{ + struct process_info *proc; + + last_sig = GDB_SIGNAL_0; + + current_process_handle = proch; + current_process_id = pid; + main_thread_id = 0; + + soft_interrupt_requested = 0; + faked_breakpoint = 0; + + memset (¤t_event, 0, sizeof (current_event)); + + proc = add_process (pid, attached); + proc->tdesc = win32_tdesc; + child_init_thread_list (); + child_initialization_done = 0; + + if (the_low_target.initial_stuff != NULL) + (*the_low_target.initial_stuff) (); + + cached_status.kind = TARGET_WAITKIND_IGNORE; + + /* Flush all currently pending debug events (thread and dll list) up + to the initial breakpoint. */ + while (1) + { + struct target_waitstatus status; + + win32_wait (minus_one_ptid, &status, 0); + + /* Note win32_wait doesn't return thread events. */ + if (status.kind != TARGET_WAITKIND_LOADED) + { + cached_status = status; + break; + } + + { + struct thread_resume resume; + + resume.thread = minus_one_ptid; + resume.kind = resume_continue; + resume.sig = 0; + + win32_resume (&resume, 1); + } + } + +#ifndef _WIN32_WCE + /* Now that the inferior has been started and all DLLs have been mapped, + we can iterate over all DLLs and load them in. + + We avoid doing it any earlier because, on certain versions of Windows, + LOAD_DLL_DEBUG_EVENTs are sometimes not complete. In particular, + we have seen on Windows 8.1 that the ntdll.dll load event does not + include the DLL name, preventing us from creating an associated SO. + A possible explanation is that ntdll.dll might be mapped before + the SO info gets created by the Windows system -- ntdll.dll is + the first DLL to be reported via LOAD_DLL_DEBUG_EVENT and other DLLs + do not seem to suffer from that problem. + + Rather than try to work around this sort of issue, it is much + simpler to just ignore DLL load/unload events during the startup + phase, and then process them all in one batch now. */ + win32_add_all_dlls (); +#endif + + child_initialization_done = 1; +} + +/* Resume all artificially suspended threads if we are continuing + execution. */ +static void +continue_one_thread (thread_info *thread, int thread_id) +{ + win32_thread_info *th = (win32_thread_info *) thread_target_data (thread); + + if (thread_id == -1 || thread_id == th->tid) + { + win32_prepare_to_resume (th); + + if (th->suspended) + { + if (th->context.ContextFlags) + { + win32_set_thread_context (th); + th->context.ContextFlags = 0; + } + + if (ResumeThread (th->h) == (DWORD) -1) + { + DWORD err = GetLastError (); + OUTMSG (("warning: ResumeThread failed in continue_one_thread, " + "(error %d): %s\n", (int) err, strwinerror (err))); + } + th->suspended = 0; + } + } +} + +static BOOL +child_continue (DWORD continue_status, int thread_id) +{ + /* The inferior will only continue after the ContinueDebugEvent + call. */ + for_each_thread ([&] (thread_info *thread) + { + continue_one_thread (thread, thread_id); + }); + faked_breakpoint = 0; + + if (!ContinueDebugEvent (current_event.dwProcessId, + current_event.dwThreadId, + continue_status)) + return FALSE; + + return TRUE; +} + +/* Fetch register(s) from the current thread context. */ +static void +child_fetch_inferior_registers (struct regcache *regcache, int r) +{ + int regno; + win32_thread_info *th = thread_rec (current_thread_ptid (), TRUE); + if (r == -1 || r > NUM_REGS) + child_fetch_inferior_registers (regcache, NUM_REGS); + else + for (regno = 0; regno < r; regno++) + (*the_low_target.fetch_inferior_register) (regcache, th, regno); +} + +/* Store a new register value into the current thread context. We don't + change the program's context until later, when we resume it. */ +static void +child_store_inferior_registers (struct regcache *regcache, int r) +{ + int regno; + win32_thread_info *th = thread_rec (current_thread_ptid (), TRUE); + if (r == -1 || r == 0 || r > NUM_REGS) + child_store_inferior_registers (regcache, NUM_REGS); + else + for (regno = 0; regno < r; regno++) + (*the_low_target.store_inferior_register) (regcache, th, regno); +} + +/* Map the Windows error number in ERROR to a locale-dependent error + message string and return a pointer to it. Typically, the values + for ERROR come from GetLastError. + + The string pointed to shall not be modified by the application, + but may be overwritten by a subsequent call to strwinerror + + The strwinerror function does not change the current setting + of GetLastError. */ + +char * +strwinerror (DWORD error) +{ + static char buf[1024]; + TCHAR *msgbuf; + DWORD lasterr = GetLastError (); + DWORD chars = FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM + | FORMAT_MESSAGE_ALLOCATE_BUFFER, + NULL, + error, + 0, /* Default language */ + (LPTSTR) &msgbuf, + 0, + NULL); + if (chars != 0) + { + /* If there is an \r\n appended, zap it. */ + if (chars >= 2 + && msgbuf[chars - 2] == '\r' + && msgbuf[chars - 1] == '\n') + { + chars -= 2; + msgbuf[chars] = 0; + } + + if (chars > ((COUNTOF (buf)) - 1)) + { + chars = COUNTOF (buf) - 1; + msgbuf [chars] = 0; + } + +#ifdef UNICODE + wcstombs (buf, msgbuf, chars + 1); +#else + strncpy (buf, msgbuf, chars + 1); +#endif + LocalFree (msgbuf); + } + else + sprintf (buf, "unknown win32 error (%u)", (unsigned) error); + + SetLastError (lasterr); + return buf; +} + +static BOOL +create_process (const char *program, char *args, + DWORD flags, PROCESS_INFORMATION *pi) +{ + const char *inferior_cwd = get_inferior_cwd (); + BOOL ret; + +#ifdef _WIN32_WCE + wchar_t *p, *wprogram, *wargs, *wcwd = NULL; + size_t argslen; + + wprogram = alloca ((strlen (program) + 1) * sizeof (wchar_t)); + mbstowcs (wprogram, program, strlen (program) + 1); + + for (p = wprogram; *p; ++p) + if (L'/' == *p) + *p = L'\\'; + + argslen = strlen (args); + wargs = alloca ((argslen + 1) * sizeof (wchar_t)); + mbstowcs (wargs, args, argslen + 1); + + if (inferior_cwd != NULL) + { + std::string expanded_infcwd = gdb_tilde_expand (inferior_cwd); + std::replace (expanded_infcwd.begin (), expanded_infcwd.end (), + '/', '\\'); + wcwd = alloca ((expanded_infcwd.size () + 1) * sizeof (wchar_t)); + if (mbstowcs (wcwd, expanded_infcwd.c_str (), + expanded_infcwd.size () + 1) == NULL) + { + error (_("\ +Could not convert the expanded inferior cwd to wide-char.")); + } + } + + ret = CreateProcessW (wprogram, /* image name */ + wargs, /* command line */ + NULL, /* security, not supported */ + NULL, /* thread, not supported */ + FALSE, /* inherit handles, not supported */ + flags, /* start flags */ + NULL, /* environment, not supported */ + wcwd, /* current directory */ + NULL, /* start info, not supported */ + pi); /* proc info */ +#else + STARTUPINFOA si = { sizeof (STARTUPINFOA) }; + + ret = CreateProcessA (program, /* image name */ + args, /* command line */ + NULL, /* security */ + NULL, /* thread */ + TRUE, /* inherit handles */ + flags, /* start flags */ + NULL, /* environment */ + /* current directory */ + (inferior_cwd == NULL + ? NULL + : gdb_tilde_expand (inferior_cwd).c_str()), + &si, /* start info */ + pi); /* proc info */ +#endif + + return ret; +} + +/* Start a new process. + PROGRAM is the program name. + PROGRAM_ARGS is the vector containing the inferior's args. + Returns the new PID on success, -1 on failure. Registers the new + process with the process list. */ +static int +win32_create_inferior (const char *program, + const std::vector &program_args) +{ + client_state &cs = get_client_state (); +#ifndef USE_WIN32API + char real_path[PATH_MAX]; + char *orig_path, *new_path, *path_ptr; +#endif + BOOL ret; + DWORD flags; + PROCESS_INFORMATION pi; + DWORD err; + std::string str_program_args = stringify_argv (program_args); + char *args = (char *) str_program_args.c_str (); + + /* win32_wait needs to know we're not attaching. */ + attaching = 0; + + if (!program) + error ("No executable specified, specify executable to debug.\n"); + + flags = DEBUG_PROCESS | DEBUG_ONLY_THIS_PROCESS; + +#ifndef USE_WIN32API + orig_path = NULL; + path_ptr = getenv ("PATH"); + if (path_ptr) + { + int size = cygwin_conv_path_list (CCP_POSIX_TO_WIN_A, path_ptr, NULL, 0); + orig_path = (char *) alloca (strlen (path_ptr) + 1); + new_path = (char *) alloca (size); + strcpy (orig_path, path_ptr); + cygwin_conv_path_list (CCP_POSIX_TO_WIN_A, path_ptr, new_path, size); + setenv ("PATH", new_path, 1); + } + cygwin_conv_path (CCP_POSIX_TO_WIN_A, program, real_path, PATH_MAX); + program = real_path; +#endif + + OUTMSG2 (("Command line is \"%s\"\n", args)); + +#ifdef CREATE_NEW_PROCESS_GROUP + flags |= CREATE_NEW_PROCESS_GROUP; +#endif + + ret = create_process (program, args, flags, &pi); + err = GetLastError (); + if (!ret && err == ERROR_FILE_NOT_FOUND) + { + char *exename = (char *) alloca (strlen (program) + 5); + strcat (strcpy (exename, program), ".exe"); + ret = create_process (exename, args, flags, &pi); + err = GetLastError (); + } + +#ifndef USE_WIN32API + if (orig_path) + setenv ("PATH", orig_path, 1); +#endif + + if (!ret) + { + error ("Error creating process \"%s%s\", (error %d): %s\n", + program, args, (int) err, strwinerror (err)); + } + else + { + OUTMSG2 (("Process created: %s\n", (char *) args)); + } + +#ifndef _WIN32_WCE + /* On Windows CE this handle can't be closed. The OS reuses + it in the debug events, while the 9x/NT versions of Windows + probably use a DuplicateHandle'd one. */ + CloseHandle (pi.hThread); +#endif + + do_initial_child_stuff (pi.hProcess, pi.dwProcessId, 0); + + /* Wait till we are at 1st instruction in program, return new pid + (assuming success). */ + cs.last_ptid = win32_wait (ptid_t (current_process_id), &cs.last_status, 0); + + /* Necessary for handle_v_kill. */ + signal_pid = current_process_id; + + return current_process_id; +} + +/* Attach to a running process. + PID is the process ID to attach to, specified by the user + or a higher layer. */ +static int +win32_attach (unsigned long pid) +{ + HANDLE h; + winapi_DebugSetProcessKillOnExit DebugSetProcessKillOnExit = NULL; + DWORD err; +#ifdef _WIN32_WCE + HMODULE dll = GetModuleHandle (_T("COREDLL.DLL")); +#else + HMODULE dll = GetModuleHandle (_T("KERNEL32.DLL")); +#endif + DebugSetProcessKillOnExit = GETPROCADDRESS (dll, DebugSetProcessKillOnExit); + + h = OpenProcess (PROCESS_ALL_ACCESS, FALSE, pid); + if (h != NULL) + { + if (DebugActiveProcess (pid)) + { + if (DebugSetProcessKillOnExit != NULL) + DebugSetProcessKillOnExit (FALSE); + + /* win32_wait needs to know we're attaching. */ + attaching = 1; + do_initial_child_stuff (h, pid, 1); + return 0; + } + + CloseHandle (h); + } + + err = GetLastError (); + error ("Attach to process failed (error %d): %s\n", + (int) err, strwinerror (err)); +} + +/* Handle OUTPUT_DEBUG_STRING_EVENT from child process. */ +static void +handle_output_debug_string (void) +{ +#define READ_BUFFER_LEN 1024 + CORE_ADDR addr; + char s[READ_BUFFER_LEN + 1] = { 0 }; + DWORD nbytes = current_event.u.DebugString.nDebugStringLength; + + if (nbytes == 0) + return; + + if (nbytes > READ_BUFFER_LEN) + nbytes = READ_BUFFER_LEN; + + addr = (CORE_ADDR) (size_t) current_event.u.DebugString.lpDebugStringData; + + if (current_event.u.DebugString.fUnicode) + { + /* The event tells us how many bytes, not chars, even + in Unicode. */ + WCHAR buffer[(READ_BUFFER_LEN + 1) / sizeof (WCHAR)] = { 0 }; + if (read_inferior_memory (addr, (unsigned char *) buffer, nbytes) != 0) + return; + wcstombs (s, buffer, (nbytes + 1) / sizeof (WCHAR)); + } + else + { + if (read_inferior_memory (addr, (unsigned char *) s, nbytes) != 0) + return; + } + + if (!startswith (s, "cYg")) + { + if (!server_waiting) + { + OUTMSG2(("%s", s)); + return; + } + + monitor_output (s); + } +#undef READ_BUFFER_LEN +} + +static void +win32_clear_inferiors (void) +{ + if (current_process_handle != NULL) + CloseHandle (current_process_handle); + + for_each_thread (delete_thread_info); + siginfo_er.ExceptionCode = 0; + clear_inferiors (); +} + +/* Implementation of target_ops::kill. */ + +static int +win32_kill (process_info *process) +{ + TerminateProcess (current_process_handle, 0); + for (;;) + { + if (!child_continue (DBG_CONTINUE, -1)) + break; + if (!WaitForDebugEvent (¤t_event, INFINITE)) + break; + if (current_event.dwDebugEventCode == EXIT_PROCESS_DEBUG_EVENT) + break; + else if (current_event.dwDebugEventCode == OUTPUT_DEBUG_STRING_EVENT) + handle_output_debug_string (); + } + + win32_clear_inferiors (); + + remove_process (process); + return 0; +} + +/* Implementation of target_ops::detach. */ + +static int +win32_detach (process_info *process) +{ + winapi_DebugActiveProcessStop DebugActiveProcessStop = NULL; + winapi_DebugSetProcessKillOnExit DebugSetProcessKillOnExit = NULL; +#ifdef _WIN32_WCE + HMODULE dll = GetModuleHandle (_T("COREDLL.DLL")); +#else + HMODULE dll = GetModuleHandle (_T("KERNEL32.DLL")); +#endif + DebugActiveProcessStop = GETPROCADDRESS (dll, DebugActiveProcessStop); + DebugSetProcessKillOnExit = GETPROCADDRESS (dll, DebugSetProcessKillOnExit); + + if (DebugSetProcessKillOnExit == NULL + || DebugActiveProcessStop == NULL) + return -1; + + { + struct thread_resume resume; + resume.thread = minus_one_ptid; + resume.kind = resume_continue; + resume.sig = 0; + win32_resume (&resume, 1); + } + + if (!DebugActiveProcessStop (current_process_id)) + return -1; + + DebugSetProcessKillOnExit (FALSE); + remove_process (process); + + win32_clear_inferiors (); + return 0; +} + +static void +win32_mourn (struct process_info *process) +{ + remove_process (process); +} + +/* Implementation of target_ops::join. */ + +static void +win32_join (int pid) +{ + HANDLE h = OpenProcess (PROCESS_ALL_ACCESS, FALSE, pid); + if (h != NULL) + { + WaitForSingleObject (h, INFINITE); + CloseHandle (h); + } +} + +/* Return 1 iff the thread with thread ID TID is alive. */ +static int +win32_thread_alive (ptid_t ptid) +{ + /* Our thread list is reliable; don't bother to poll target + threads. */ + return find_thread_ptid (ptid) != NULL; +} + +/* Resume the inferior process. RESUME_INFO describes how we want + to resume. */ +static void +win32_resume (struct thread_resume *resume_info, size_t n) +{ + DWORD tid; + enum gdb_signal sig; + int step; + win32_thread_info *th; + DWORD continue_status = DBG_CONTINUE; + ptid_t ptid; + + /* This handles the very limited set of resume packets that GDB can + currently produce. */ + + if (n == 1 && resume_info[0].thread == minus_one_ptid) + tid = -1; + else if (n > 1) + tid = -1; + else + /* Yes, we're ignoring resume_info[0].thread. It'd be tricky to make + the Windows resume code do the right thing for thread switching. */ + tid = current_event.dwThreadId; + + if (resume_info[0].thread != minus_one_ptid) + { + sig = gdb_signal_from_host (resume_info[0].sig); + step = resume_info[0].kind == resume_step; + } + else + { + sig = GDB_SIGNAL_0; + step = 0; + } + + if (sig != GDB_SIGNAL_0) + { + if (current_event.dwDebugEventCode != EXCEPTION_DEBUG_EVENT) + { + OUTMSG (("Cannot continue with signal %s here.\n", + gdb_signal_to_string (sig))); + } + else if (sig == last_sig) + continue_status = DBG_EXCEPTION_NOT_HANDLED; + else + OUTMSG (("Can only continue with received signal %s.\n", + gdb_signal_to_string (last_sig))); + } + + last_sig = GDB_SIGNAL_0; + + /* Get context for the currently selected thread. */ + ptid = debug_event_ptid (¤t_event); + th = thread_rec (ptid, FALSE); + if (th) + { + win32_prepare_to_resume (th); + + if (th->context.ContextFlags) + { + /* Move register values from the inferior into the thread + context structure. */ + regcache_invalidate (); + + if (step) + { + if (the_low_target.single_step != NULL) + (*the_low_target.single_step) (th); + else + error ("Single stepping is not supported " + "in this configuration.\n"); + } + + win32_set_thread_context (th); + th->context.ContextFlags = 0; + } + } + + /* Allow continuing with the same signal that interrupted us. + Otherwise complain. */ + + child_continue (continue_status, tid); +} + +static void +win32_add_one_solib (const char *name, CORE_ADDR load_addr) +{ + char buf[MAX_PATH + 1]; + char buf2[MAX_PATH + 1]; + +#ifdef _WIN32_WCE + WIN32_FIND_DATA w32_fd; + WCHAR wname[MAX_PATH + 1]; + mbstowcs (wname, name, MAX_PATH); + HANDLE h = FindFirstFile (wname, &w32_fd); +#else + WIN32_FIND_DATAA w32_fd; + HANDLE h = FindFirstFileA (name, &w32_fd); +#endif + + /* The symbols in a dll are offset by 0x1000, which is the + offset from 0 of the first byte in an image - because + of the file header and the section alignment. */ + load_addr += 0x1000; + + if (h == INVALID_HANDLE_VALUE) + strcpy (buf, name); + else + { + FindClose (h); + strcpy (buf, name); +#ifndef _WIN32_WCE + { + char cwd[MAX_PATH + 1]; + char *p; + if (GetCurrentDirectoryA (MAX_PATH + 1, cwd)) + { + p = strrchr (buf, '\\'); + if (p) + p[1] = '\0'; + SetCurrentDirectoryA (buf); + GetFullPathNameA (w32_fd.cFileName, MAX_PATH, buf, &p); + SetCurrentDirectoryA (cwd); + } + } +#endif + } + +#ifndef _WIN32_WCE + if (strcasecmp (buf, "ntdll.dll") == 0) + { + GetSystemDirectoryA (buf, sizeof (buf)); + strcat (buf, "\\ntdll.dll"); + } +#endif + +#ifdef __CYGWIN__ + cygwin_conv_path (CCP_WIN_A_TO_POSIX, buf, buf2, sizeof (buf2)); +#else + strcpy (buf2, buf); +#endif + + loaded_dll (buf2, load_addr); +} + +static char * +get_image_name (HANDLE h, void *address, int unicode) +{ + static char buf[(2 * MAX_PATH) + 1]; + DWORD size = unicode ? sizeof (WCHAR) : sizeof (char); + char *address_ptr; + int len = 0; + char b[2]; + SIZE_T done; + + /* Attempt to read the name of the dll that was detected. + This is documented to work only when actively debugging + a program. It will not work for attached processes. */ + if (address == NULL) + return NULL; + +#ifdef _WIN32_WCE + /* Windows CE reports the address of the image name, + instead of an address of a pointer into the image name. */ + address_ptr = address; +#else + /* See if we could read the address of a string, and that the + address isn't null. */ + if (!ReadProcessMemory (h, address, &address_ptr, + sizeof (address_ptr), &done) + || done != sizeof (address_ptr) + || !address_ptr) + return NULL; +#endif + + /* Find the length of the string */ + while (ReadProcessMemory (h, address_ptr + len++ * size, &b, size, &done) + && (b[0] != 0 || b[size - 1] != 0) && done == size) + continue; + + if (!unicode) + ReadProcessMemory (h, address_ptr, buf, len, &done); + else + { + WCHAR *unicode_address = XALLOCAVEC (WCHAR, len); + ReadProcessMemory (h, address_ptr, unicode_address, len * sizeof (WCHAR), + &done); + + WideCharToMultiByte (CP_ACP, 0, unicode_address, len, buf, len, 0, 0); + } + + return buf; +} + +typedef BOOL (WINAPI *winapi_EnumProcessModules) (HANDLE, HMODULE *, + DWORD, LPDWORD); +typedef BOOL (WINAPI *winapi_GetModuleInformation) (HANDLE, HMODULE, + LPMODULEINFO, DWORD); +typedef DWORD (WINAPI *winapi_GetModuleFileNameExA) (HANDLE, HMODULE, + LPSTR, DWORD); + +static winapi_EnumProcessModules win32_EnumProcessModules; +static winapi_GetModuleInformation win32_GetModuleInformation; +static winapi_GetModuleFileNameExA win32_GetModuleFileNameExA; + +static BOOL +load_psapi (void) +{ + static int psapi_loaded = 0; + static HMODULE dll = NULL; + + if (!psapi_loaded) + { + psapi_loaded = 1; + dll = LoadLibrary (TEXT("psapi.dll")); + if (!dll) + return FALSE; + win32_EnumProcessModules = + GETPROCADDRESS (dll, EnumProcessModules); + win32_GetModuleInformation = + GETPROCADDRESS (dll, GetModuleInformation); + win32_GetModuleFileNameExA = + GETPROCADDRESS (dll, GetModuleFileNameExA); + } + + return (win32_EnumProcessModules != NULL + && win32_GetModuleInformation != NULL + && win32_GetModuleFileNameExA != NULL); +} + +#ifndef _WIN32_WCE + +/* Iterate over all DLLs currently mapped by our inferior, and + add them to our list of solibs. */ + +static void +win32_add_all_dlls (void) +{ + size_t i; + HMODULE dh_buf[1]; + HMODULE *DllHandle = dh_buf; + DWORD cbNeeded; + BOOL ok; + + if (!load_psapi ()) + return; + + cbNeeded = 0; + ok = (*win32_EnumProcessModules) (current_process_handle, + DllHandle, + sizeof (HMODULE), + &cbNeeded); + + if (!ok || !cbNeeded) + return; + + DllHandle = (HMODULE *) alloca (cbNeeded); + if (!DllHandle) + return; + + ok = (*win32_EnumProcessModules) (current_process_handle, + DllHandle, + cbNeeded, + &cbNeeded); + if (!ok) + return; + + for (i = 1; i < ((size_t) cbNeeded / sizeof (HMODULE)); i++) + { + MODULEINFO mi; + char dll_name[MAX_PATH]; + + if (!(*win32_GetModuleInformation) (current_process_handle, + DllHandle[i], + &mi, + sizeof (mi))) + continue; + if ((*win32_GetModuleFileNameExA) (current_process_handle, + DllHandle[i], + dll_name, + MAX_PATH) == 0) + continue; + win32_add_one_solib (dll_name, (CORE_ADDR) (uintptr_t) mi.lpBaseOfDll); + } +} +#endif + +typedef HANDLE (WINAPI *winapi_CreateToolhelp32Snapshot) (DWORD, DWORD); +typedef BOOL (WINAPI *winapi_Module32First) (HANDLE, LPMODULEENTRY32); +typedef BOOL (WINAPI *winapi_Module32Next) (HANDLE, LPMODULEENTRY32); + +/* Handle a DLL load event. + + This function assumes that this event did not occur during inferior + initialization, where their event info may be incomplete (see + do_initial_child_stuff and win32_add_all_dlls for more info on + how we handle DLL loading during that phase). */ + +static void +handle_load_dll (void) +{ + LOAD_DLL_DEBUG_INFO *event = ¤t_event.u.LoadDll; + char *dll_name; + + dll_name = get_image_name (current_process_handle, + event->lpImageName, event->fUnicode); + if (!dll_name) + return; + + win32_add_one_solib (dll_name, (CORE_ADDR) (uintptr_t) event->lpBaseOfDll); +} + +/* Handle a DLL unload event. + + This function assumes that this event did not occur during inferior + initialization, where their event info may be incomplete (see + do_initial_child_stuff and win32_add_one_solib for more info + on how we handle DLL loading during that phase). */ + +static void +handle_unload_dll (void) +{ + CORE_ADDR load_addr = + (CORE_ADDR) (uintptr_t) current_event.u.UnloadDll.lpBaseOfDll; + + /* The symbols in a dll are offset by 0x1000, which is the + offset from 0 of the first byte in an image - because + of the file header and the section alignment. */ + load_addr += 0x1000; + unloaded_dll (NULL, load_addr); +} + +static void +handle_exception (struct target_waitstatus *ourstatus) +{ + DWORD code = current_event.u.Exception.ExceptionRecord.ExceptionCode; + + memcpy (&siginfo_er, ¤t_event.u.Exception.ExceptionRecord, + sizeof siginfo_er); + + ourstatus->kind = TARGET_WAITKIND_STOPPED; + + switch (code) + { + case EXCEPTION_ACCESS_VIOLATION: + OUTMSG2 (("EXCEPTION_ACCESS_VIOLATION")); + ourstatus->value.sig = GDB_SIGNAL_SEGV; + break; + case STATUS_STACK_OVERFLOW: + OUTMSG2 (("STATUS_STACK_OVERFLOW")); + ourstatus->value.sig = GDB_SIGNAL_SEGV; + break; + case STATUS_FLOAT_DENORMAL_OPERAND: + OUTMSG2 (("STATUS_FLOAT_DENORMAL_OPERAND")); + ourstatus->value.sig = GDB_SIGNAL_FPE; + break; + case EXCEPTION_ARRAY_BOUNDS_EXCEEDED: + OUTMSG2 (("EXCEPTION_ARRAY_BOUNDS_EXCEEDED")); + ourstatus->value.sig = GDB_SIGNAL_FPE; + break; + case STATUS_FLOAT_INEXACT_RESULT: + OUTMSG2 (("STATUS_FLOAT_INEXACT_RESULT")); + ourstatus->value.sig = GDB_SIGNAL_FPE; + break; + case STATUS_FLOAT_INVALID_OPERATION: + OUTMSG2 (("STATUS_FLOAT_INVALID_OPERATION")); + ourstatus->value.sig = GDB_SIGNAL_FPE; + break; + case STATUS_FLOAT_OVERFLOW: + OUTMSG2 (("STATUS_FLOAT_OVERFLOW")); + ourstatus->value.sig = GDB_SIGNAL_FPE; + break; + case STATUS_FLOAT_STACK_CHECK: + OUTMSG2 (("STATUS_FLOAT_STACK_CHECK")); + ourstatus->value.sig = GDB_SIGNAL_FPE; + break; + case STATUS_FLOAT_UNDERFLOW: + OUTMSG2 (("STATUS_FLOAT_UNDERFLOW")); + ourstatus->value.sig = GDB_SIGNAL_FPE; + break; + case STATUS_FLOAT_DIVIDE_BY_ZERO: + OUTMSG2 (("STATUS_FLOAT_DIVIDE_BY_ZERO")); + ourstatus->value.sig = GDB_SIGNAL_FPE; + break; + case STATUS_INTEGER_DIVIDE_BY_ZERO: + OUTMSG2 (("STATUS_INTEGER_DIVIDE_BY_ZERO")); + ourstatus->value.sig = GDB_SIGNAL_FPE; + break; + case STATUS_INTEGER_OVERFLOW: + OUTMSG2 (("STATUS_INTEGER_OVERFLOW")); + ourstatus->value.sig = GDB_SIGNAL_FPE; + break; + case EXCEPTION_BREAKPOINT: + OUTMSG2 (("EXCEPTION_BREAKPOINT")); + ourstatus->value.sig = GDB_SIGNAL_TRAP; +#ifdef _WIN32_WCE + /* Remove the initial breakpoint. */ + check_breakpoints ((CORE_ADDR) (long) current_event + .u.Exception.ExceptionRecord.ExceptionAddress); +#endif + break; + case DBG_CONTROL_C: + OUTMSG2 (("DBG_CONTROL_C")); + ourstatus->value.sig = GDB_SIGNAL_INT; + break; + case DBG_CONTROL_BREAK: + OUTMSG2 (("DBG_CONTROL_BREAK")); + ourstatus->value.sig = GDB_SIGNAL_INT; + break; + case EXCEPTION_SINGLE_STEP: + OUTMSG2 (("EXCEPTION_SINGLE_STEP")); + ourstatus->value.sig = GDB_SIGNAL_TRAP; + break; + case EXCEPTION_ILLEGAL_INSTRUCTION: + OUTMSG2 (("EXCEPTION_ILLEGAL_INSTRUCTION")); + ourstatus->value.sig = GDB_SIGNAL_ILL; + break; + case EXCEPTION_PRIV_INSTRUCTION: + OUTMSG2 (("EXCEPTION_PRIV_INSTRUCTION")); + ourstatus->value.sig = GDB_SIGNAL_ILL; + break; + case EXCEPTION_NONCONTINUABLE_EXCEPTION: + OUTMSG2 (("EXCEPTION_NONCONTINUABLE_EXCEPTION")); + ourstatus->value.sig = GDB_SIGNAL_ILL; + break; + default: + if (current_event.u.Exception.dwFirstChance) + { + ourstatus->kind = TARGET_WAITKIND_SPURIOUS; + return; + } + OUTMSG2 (("gdbserver: unknown target exception 0x%08x at 0x%s", + (unsigned) current_event.u.Exception.ExceptionRecord.ExceptionCode, + phex_nz ((uintptr_t) current_event.u.Exception.ExceptionRecord. + ExceptionAddress, sizeof (uintptr_t)))); + ourstatus->value.sig = GDB_SIGNAL_UNKNOWN; + break; + } + OUTMSG2 (("\n")); + last_sig = ourstatus->value.sig; +} + + +static void +suspend_one_thread (thread_info *thread) +{ + win32_thread_info *th = (win32_thread_info *) thread_target_data (thread); + + if (!th->suspended) + { + if (SuspendThread (th->h) == (DWORD) -1) + { + DWORD err = GetLastError (); + OUTMSG (("warning: SuspendThread failed in suspend_one_thread, " + "(error %d): %s\n", (int) err, strwinerror (err))); + } + else + th->suspended = 1; + } +} + +static void +fake_breakpoint_event (void) +{ + OUTMSG2(("fake_breakpoint_event\n")); + + faked_breakpoint = 1; + + memset (¤t_event, 0, sizeof (current_event)); + current_event.dwThreadId = main_thread_id; + current_event.dwDebugEventCode = EXCEPTION_DEBUG_EVENT; + current_event.u.Exception.ExceptionRecord.ExceptionCode + = EXCEPTION_BREAKPOINT; + + for_each_thread (suspend_one_thread); +} + +#ifdef _WIN32_WCE +static int +auto_delete_breakpoint (CORE_ADDR stop_pc) +{ + return 1; +} +#endif + +/* Get the next event from the child. */ + +static int +get_child_debug_event (struct target_waitstatus *ourstatus) +{ + ptid_t ptid; + + last_sig = GDB_SIGNAL_0; + ourstatus->kind = TARGET_WAITKIND_SPURIOUS; + + /* Check if GDB sent us an interrupt request. */ + check_remote_input_interrupt_request (); + + if (soft_interrupt_requested) + { + soft_interrupt_requested = 0; + fake_breakpoint_event (); + goto gotevent; + } + +#ifndef _WIN32_WCE + attaching = 0; +#else + if (attaching) + { + /* WinCE doesn't set an initial breakpoint automatically. To + stop the inferior, we flush all currently pending debug + events -- the thread list and the dll list are always + reported immediatelly without delay, then, we suspend all + threads and pretend we saw a trap at the current PC of the + main thread. + + Contrary to desktop Windows, Windows CE *does* report the dll + names on LOAD_DLL_DEBUG_EVENTs resulting from a + DebugActiveProcess call. This limits the way we can detect + if all the dlls have already been reported. If we get a real + debug event before leaving attaching, the worst that will + happen is the user will see a spurious breakpoint. */ + + current_event.dwDebugEventCode = 0; + if (!WaitForDebugEvent (¤t_event, 0)) + { + OUTMSG2(("no attach events left\n")); + fake_breakpoint_event (); + attaching = 0; + } + else + OUTMSG2(("got attach event\n")); + } + else +#endif + { + /* Keep the wait time low enough for comfortable remote + interruption, but high enough so gdbserver doesn't become a + bottleneck. */ + if (!WaitForDebugEvent (¤t_event, 250)) + { + DWORD e = GetLastError(); + + if (e == ERROR_PIPE_NOT_CONNECTED) + { + /* This will happen if the loader fails to succesfully + load the application, e.g., if the main executable + tries to pull in a non-existing export from a + DLL. */ + ourstatus->kind = TARGET_WAITKIND_EXITED; + ourstatus->value.integer = 1; + return 1; + } + + return 0; + } + } + + gotevent: + + switch (current_event.dwDebugEventCode) + { + case CREATE_THREAD_DEBUG_EVENT: + OUTMSG2 (("gdbserver: kernel event CREATE_THREAD_DEBUG_EVENT " + "for pid=%u tid=%x)\n", + (unsigned) current_event.dwProcessId, + (unsigned) current_event.dwThreadId)); + + /* Record the existence of this thread. */ + child_add_thread (current_event.dwProcessId, + current_event.dwThreadId, + current_event.u.CreateThread.hThread, + current_event.u.CreateThread.lpThreadLocalBase); + break; + + case EXIT_THREAD_DEBUG_EVENT: + OUTMSG2 (("gdbserver: kernel event EXIT_THREAD_DEBUG_EVENT " + "for pid=%u tid=%x\n", + (unsigned) current_event.dwProcessId, + (unsigned) current_event.dwThreadId)); + child_delete_thread (current_event.dwProcessId, + current_event.dwThreadId); + + current_thread = get_first_thread (); + return 1; + + case CREATE_PROCESS_DEBUG_EVENT: + OUTMSG2 (("gdbserver: kernel event CREATE_PROCESS_DEBUG_EVENT " + "for pid=%u tid=%x\n", + (unsigned) current_event.dwProcessId, + (unsigned) current_event.dwThreadId)); + CloseHandle (current_event.u.CreateProcessInfo.hFile); + + current_process_handle = current_event.u.CreateProcessInfo.hProcess; + main_thread_id = current_event.dwThreadId; + + /* Add the main thread. */ + child_add_thread (current_event.dwProcessId, + main_thread_id, + current_event.u.CreateProcessInfo.hThread, + current_event.u.CreateProcessInfo.lpThreadLocalBase); + +#ifdef _WIN32_WCE + if (!attaching) + { + /* Windows CE doesn't set the initial breakpoint + automatically like the desktop versions of Windows do. + We add it explicitly here. It will be removed as soon as + it is hit. */ + set_breakpoint_at ((CORE_ADDR) (long) current_event.u + .CreateProcessInfo.lpStartAddress, + auto_delete_breakpoint); + } +#endif + break; + + case EXIT_PROCESS_DEBUG_EVENT: + OUTMSG2 (("gdbserver: kernel event EXIT_PROCESS_DEBUG_EVENT " + "for pid=%u tid=%x\n", + (unsigned) current_event.dwProcessId, + (unsigned) current_event.dwThreadId)); + { + DWORD exit_status = current_event.u.ExitProcess.dwExitCode; + /* If the exit status looks like a fatal exception, but we + don't recognize the exception's code, make the original + exit status value available, to avoid losing information. */ + int exit_signal + = WIFSIGNALED (exit_status) ? WTERMSIG (exit_status) : -1; + if (exit_signal == -1) + { + ourstatus->kind = TARGET_WAITKIND_EXITED; + ourstatus->value.integer = exit_status; + } + else + { + ourstatus->kind = TARGET_WAITKIND_SIGNALLED; + ourstatus->value.sig = gdb_signal_from_host (exit_signal); + } + } + child_continue (DBG_CONTINUE, -1); + CloseHandle (current_process_handle); + current_process_handle = NULL; + break; + + case LOAD_DLL_DEBUG_EVENT: + OUTMSG2 (("gdbserver: kernel event LOAD_DLL_DEBUG_EVENT " + "for pid=%u tid=%x\n", + (unsigned) current_event.dwProcessId, + (unsigned) current_event.dwThreadId)); + CloseHandle (current_event.u.LoadDll.hFile); + if (! child_initialization_done) + break; + handle_load_dll (); + + ourstatus->kind = TARGET_WAITKIND_LOADED; + ourstatus->value.sig = GDB_SIGNAL_TRAP; + break; + + case UNLOAD_DLL_DEBUG_EVENT: + OUTMSG2 (("gdbserver: kernel event UNLOAD_DLL_DEBUG_EVENT " + "for pid=%u tid=%x\n", + (unsigned) current_event.dwProcessId, + (unsigned) current_event.dwThreadId)); + if (! child_initialization_done) + break; + handle_unload_dll (); + ourstatus->kind = TARGET_WAITKIND_LOADED; + ourstatus->value.sig = GDB_SIGNAL_TRAP; + break; + + case EXCEPTION_DEBUG_EVENT: + OUTMSG2 (("gdbserver: kernel event EXCEPTION_DEBUG_EVENT " + "for pid=%u tid=%x\n", + (unsigned) current_event.dwProcessId, + (unsigned) current_event.dwThreadId)); + handle_exception (ourstatus); + break; + + case OUTPUT_DEBUG_STRING_EVENT: + /* A message from the kernel (or Cygwin). */ + OUTMSG2 (("gdbserver: kernel event OUTPUT_DEBUG_STRING_EVENT " + "for pid=%u tid=%x\n", + (unsigned) current_event.dwProcessId, + (unsigned) current_event.dwThreadId)); + handle_output_debug_string (); + break; + + default: + OUTMSG2 (("gdbserver: kernel event unknown " + "for pid=%u tid=%x code=%x\n", + (unsigned) current_event.dwProcessId, + (unsigned) current_event.dwThreadId, + (unsigned) current_event.dwDebugEventCode)); + break; + } + + ptid = debug_event_ptid (¤t_event); + current_thread = find_thread_ptid (ptid); + return 1; +} + +/* Wait for the inferior process to change state. + STATUS will be filled in with a response code to send to GDB. + Returns the signal which caused the process to stop. */ +static ptid_t +win32_wait (ptid_t ptid, struct target_waitstatus *ourstatus, int options) +{ + struct regcache *regcache; + + if (cached_status.kind != TARGET_WAITKIND_IGNORE) + { + /* The core always does a wait after creating the inferior, and + do_initial_child_stuff already ran the inferior to the + initial breakpoint (or an exit, if creating the process + fails). Report it now. */ + *ourstatus = cached_status; + cached_status.kind = TARGET_WAITKIND_IGNORE; + return debug_event_ptid (¤t_event); + } + + while (1) + { + if (!get_child_debug_event (ourstatus)) + continue; + + switch (ourstatus->kind) + { + case TARGET_WAITKIND_EXITED: + OUTMSG2 (("Child exited with retcode = %x\n", + ourstatus->value.integer)); + win32_clear_inferiors (); + return ptid_t (current_event.dwProcessId); + case TARGET_WAITKIND_STOPPED: + case TARGET_WAITKIND_SIGNALLED: + case TARGET_WAITKIND_LOADED: + OUTMSG2 (("Child Stopped with signal = %d \n", + ourstatus->value.sig)); + + regcache = get_thread_regcache (current_thread, 1); + child_fetch_inferior_registers (regcache, -1); + return debug_event_ptid (¤t_event); + default: + OUTMSG (("Ignoring unknown internal event, %d\n", ourstatus->kind)); + /* fall-through */ + case TARGET_WAITKIND_SPURIOUS: + /* do nothing, just continue */ + child_continue (DBG_CONTINUE, -1); + break; + } + } +} + +/* Fetch registers from the inferior process. + If REGNO is -1, fetch all registers; otherwise, fetch at least REGNO. */ +static void +win32_fetch_inferior_registers (struct regcache *regcache, int regno) +{ + child_fetch_inferior_registers (regcache, regno); +} + +/* Store registers to the inferior process. + If REGNO is -1, store all registers; otherwise, store at least REGNO. */ +static void +win32_store_inferior_registers (struct regcache *regcache, int regno) +{ + child_store_inferior_registers (regcache, regno); +} + +/* Read memory from the inferior process. This should generally be + called through read_inferior_memory, which handles breakpoint shadowing. + Read LEN bytes at MEMADDR into a buffer at MYADDR. */ +static int +win32_read_inferior_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len) +{ + return child_xfer_memory (memaddr, (char *) myaddr, len, 0, 0) != len; +} + +/* Write memory to the inferior process. This should generally be + called through write_inferior_memory, which handles breakpoint shadowing. + Write LEN bytes from the buffer at MYADDR to MEMADDR. + Returns 0 on success and errno on failure. */ +static int +win32_write_inferior_memory (CORE_ADDR memaddr, const unsigned char *myaddr, + int len) +{ + return child_xfer_memory (memaddr, (char *) myaddr, len, 1, 0) != len; +} + +/* Send an interrupt request to the inferior process. */ +static void +win32_request_interrupt (void) +{ + winapi_DebugBreakProcess DebugBreakProcess; + winapi_GenerateConsoleCtrlEvent GenerateConsoleCtrlEvent; + +#ifdef _WIN32_WCE + HMODULE dll = GetModuleHandle (_T("COREDLL.DLL")); +#else + HMODULE dll = GetModuleHandle (_T("KERNEL32.DLL")); +#endif + + GenerateConsoleCtrlEvent = GETPROCADDRESS (dll, GenerateConsoleCtrlEvent); + + if (GenerateConsoleCtrlEvent != NULL + && GenerateConsoleCtrlEvent (CTRL_BREAK_EVENT, current_process_id)) + return; + + /* GenerateConsoleCtrlEvent can fail if process id being debugged is + not a process group id. + Fallback to XP/Vista 'DebugBreakProcess', which generates a + breakpoint exception in the interior process. */ + + DebugBreakProcess = GETPROCADDRESS (dll, DebugBreakProcess); + + if (DebugBreakProcess != NULL + && DebugBreakProcess (current_process_handle)) + return; + + /* Last resort, suspend all threads manually. */ + soft_interrupt_requested = 1; +} + +#ifdef _WIN32_WCE +int +win32_error_to_fileio_error (DWORD err) +{ + switch (err) + { + case ERROR_BAD_PATHNAME: + case ERROR_FILE_NOT_FOUND: + case ERROR_INVALID_NAME: + case ERROR_PATH_NOT_FOUND: + return FILEIO_ENOENT; + case ERROR_CRC: + case ERROR_IO_DEVICE: + case ERROR_OPEN_FAILED: + return FILEIO_EIO; + case ERROR_INVALID_HANDLE: + return FILEIO_EBADF; + case ERROR_ACCESS_DENIED: + case ERROR_SHARING_VIOLATION: + return FILEIO_EACCES; + case ERROR_NOACCESS: + return FILEIO_EFAULT; + case ERROR_BUSY: + return FILEIO_EBUSY; + case ERROR_ALREADY_EXISTS: + case ERROR_FILE_EXISTS: + return FILEIO_EEXIST; + case ERROR_BAD_DEVICE: + return FILEIO_ENODEV; + case ERROR_DIRECTORY: + return FILEIO_ENOTDIR; + case ERROR_FILENAME_EXCED_RANGE: + case ERROR_INVALID_DATA: + case ERROR_INVALID_PARAMETER: + case ERROR_NEGATIVE_SEEK: + return FILEIO_EINVAL; + case ERROR_TOO_MANY_OPEN_FILES: + return FILEIO_EMFILE; + case ERROR_HANDLE_DISK_FULL: + case ERROR_DISK_FULL: + return FILEIO_ENOSPC; + case ERROR_WRITE_PROTECT: + return FILEIO_EROFS; + case ERROR_NOT_SUPPORTED: + return FILEIO_ENOSYS; + } + + return FILEIO_EUNKNOWN; +} + +static void +wince_hostio_last_error (char *buf) +{ + DWORD winerr = GetLastError (); + int fileio_err = win32_error_to_fileio_error (winerr); + sprintf (buf, "F-1,%x", fileio_err); +} +#endif + +/* Write Windows signal info. */ + +static int +win32_xfer_siginfo (const char *annex, unsigned char *readbuf, + unsigned const char *writebuf, CORE_ADDR offset, int len) +{ + if (siginfo_er.ExceptionCode == 0) + return -1; + + if (readbuf == nullptr) + return -1; + + if (offset > sizeof (siginfo_er)) + return -1; + + if (offset + len > sizeof (siginfo_er)) + len = sizeof (siginfo_er) - offset; + + memcpy (readbuf, (char *) &siginfo_er + offset, len); + + return len; +} + +/* Write Windows OS Thread Information Block address. */ + +static int +win32_get_tib_address (ptid_t ptid, CORE_ADDR *addr) +{ + win32_thread_info *th; + th = thread_rec (ptid, 0); + if (th == NULL) + return 0; + if (addr != NULL) + *addr = th->thread_local_base; + return 1; +} + +/* Implementation of the target_ops method "sw_breakpoint_from_kind". */ + +static const gdb_byte * +win32_sw_breakpoint_from_kind (int kind, int *size) +{ + *size = the_low_target.breakpoint_len; + return the_low_target.breakpoint; +} + +static process_stratum_target win32_target_ops = { + win32_create_inferior, + NULL, /* post_create_inferior */ + win32_attach, + win32_kill, + win32_detach, + win32_mourn, + win32_join, + win32_thread_alive, + win32_resume, + win32_wait, + win32_fetch_inferior_registers, + win32_store_inferior_registers, + NULL, /* prepare_to_access_memory */ + NULL, /* done_accessing_memory */ + win32_read_inferior_memory, + win32_write_inferior_memory, + NULL, /* lookup_symbols */ + win32_request_interrupt, + NULL, /* read_auxv */ + win32_supports_z_point_type, + win32_insert_point, + win32_remove_point, + NULL, /* stopped_by_sw_breakpoint */ + NULL, /* supports_stopped_by_sw_breakpoint */ + NULL, /* stopped_by_hw_breakpoint */ + NULL, /* supports_stopped_by_hw_breakpoint */ + target_can_do_hardware_single_step, + win32_stopped_by_watchpoint, + win32_stopped_data_address, + NULL, /* read_offsets */ + NULL, /* get_tls_address */ +#ifdef _WIN32_WCE + wince_hostio_last_error, +#else + hostio_last_error_from_errno, +#endif + NULL, /* qxfer_osdata */ + win32_xfer_siginfo, + NULL, /* supports_non_stop */ + NULL, /* async */ + NULL, /* start_non_stop */ + NULL, /* supports_multi_process */ + NULL, /* supports_fork_events */ + NULL, /* supports_vfork_events */ + NULL, /* supports_exec_events */ + NULL, /* handle_new_gdb_connection */ + NULL, /* handle_monitor_command */ + NULL, /* core_of_thread */ + NULL, /* read_loadmap */ + NULL, /* process_qsupported */ + NULL, /* supports_tracepoints */ + NULL, /* read_pc */ + NULL, /* write_pc */ + NULL, /* thread_stopped */ + win32_get_tib_address, + NULL, /* pause_all */ + NULL, /* unpause_all */ + NULL, /* stabilize_threads */ + NULL, /* install_fast_tracepoint_jump_pad */ + NULL, /* emit_ops */ + NULL, /* supports_disable_randomization */ + NULL, /* get_min_fast_tracepoint_insn_len */ + NULL, /* qxfer_libraries_svr4 */ + NULL, /* support_agent */ + NULL, /* enable_btrace */ + NULL, /* disable_btrace */ + NULL, /* read_btrace */ + NULL, /* read_btrace_conf */ + NULL, /* supports_range_stepping */ + NULL, /* pid_to_exec_file */ + NULL, /* multifs_open */ + NULL, /* multifs_unlink */ + NULL, /* multifs_readlink */ + NULL, /* breakpoint_kind_from_pc */ + win32_sw_breakpoint_from_kind, +}; + +/* Initialize the Win32 backend. */ +void +initialize_low (void) +{ + set_target_ops (&win32_target_ops); + the_low_target.arch_setup (); +} diff --git a/gdbserver/wincecompat.c b/gdbserver/wincecompat.c deleted file mode 100644 index 46eece17e55..00000000000 --- a/gdbserver/wincecompat.c +++ /dev/null @@ -1,38 +0,0 @@ -/* Compatibility routines for Windows CE. - Copyright (C) 2007-2020 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 . */ - -#include "server.h" - -#include - -void -perror (const char *s) -{ - if (s && *s) - fprintf (stderr, "%s: %s\n", s, strwinerror (GetLastError ())); - else - fprintf (stderr, "%s\n", strwinerror (GetLastError ())); -} - -void -to_back_slashes (char *path) -{ - for (; *path; ++path) - if ('/' == *path) - *path = '\\'; -} diff --git a/gdbserver/wincecompat.cc b/gdbserver/wincecompat.cc new file mode 100644 index 00000000000..46eece17e55 --- /dev/null +++ b/gdbserver/wincecompat.cc @@ -0,0 +1,38 @@ +/* Compatibility routines for Windows CE. + Copyright (C) 2007-2020 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 . */ + +#include "server.h" + +#include + +void +perror (const char *s) +{ + if (s && *s) + fprintf (stderr, "%s: %s\n", s, strwinerror (GetLastError ())); + else + fprintf (stderr, "%s\n", strwinerror (GetLastError ())); +} + +void +to_back_slashes (char *path) +{ + for (; *path; ++path) + if ('/' == *path) + *path = '\\'; +} diff --git a/gdbserver/x86-low.c b/gdbserver/x86-low.c deleted file mode 100644 index 611e60b0137..00000000000 --- a/gdbserver/x86-low.c +++ /dev/null @@ -1,38 +0,0 @@ -/* Low level support for x86 (i386 and x86-64). - - Copyright (C) 2009-2020 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 . */ - -#include "server.h" -#include "x86-low.h" - -/* Clear the reference counts and forget everything we knew about the - debug registers. */ - -void -x86_low_init_dregs (struct x86_debug_reg_state *state) -{ - int i; - - ALL_DEBUG_ADDRESS_REGISTERS (i) - { - state->dr_mirror[i] = 0; - state->dr_ref_count[i] = 0; - } - state->dr_control_mirror = 0; - state->dr_status_mirror = 0; -} diff --git a/gdbserver/x86-low.cc b/gdbserver/x86-low.cc new file mode 100644 index 00000000000..611e60b0137 --- /dev/null +++ b/gdbserver/x86-low.cc @@ -0,0 +1,38 @@ +/* Low level support for x86 (i386 and x86-64). + + Copyright (C) 2009-2020 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 . */ + +#include "server.h" +#include "x86-low.h" + +/* Clear the reference counts and forget everything we knew about the + debug registers. */ + +void +x86_low_init_dregs (struct x86_debug_reg_state *state) +{ + int i; + + ALL_DEBUG_ADDRESS_REGISTERS (i) + { + state->dr_mirror[i] = 0; + state->dr_ref_count[i] = 0; + } + state->dr_control_mirror = 0; + state->dr_status_mirror = 0; +} diff --git a/gdbserver/xtensa-xtregs.c b/gdbserver/xtensa-xtregs.c deleted file mode 100644 index bd14679ff80..00000000000 --- a/gdbserver/xtensa-xtregs.c +++ /dev/null @@ -1,37 +0,0 @@ -/* Table mapping between kernel xtregset and GDB register cache. - Copyright (C) 2007-2020 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 . */ - - -typedef struct { - int gdb_regnum; - int gdb_offset; - int ptrace_cp_offset; - int ptrace_offset; - int size; - int coproc; - int dbnum; - char* name -;} xtensa_regtable_t; - -#define XTENSA_ELF_XTREG_SIZE 4 - -const xtensa_regtable_t xtensa_regmap_table[] = { - /* gnum,gofs,cpofs,ofs,siz,cp, dbnum, name */ - { 44, 176, 0, 0, 4, -1, 0x020c, "scompare1" }, - { 0 } -}; diff --git a/gdbserver/xtensa-xtregs.cc b/gdbserver/xtensa-xtregs.cc new file mode 100644 index 00000000000..bd14679ff80 --- /dev/null +++ b/gdbserver/xtensa-xtregs.cc @@ -0,0 +1,37 @@ +/* Table mapping between kernel xtregset and GDB register cache. + Copyright (C) 2007-2020 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 . */ + + +typedef struct { + int gdb_regnum; + int gdb_offset; + int ptrace_cp_offset; + int ptrace_offset; + int size; + int coproc; + int dbnum; + char* name +;} xtensa_regtable_t; + +#define XTENSA_ELF_XTREG_SIZE 4 + +const xtensa_regtable_t xtensa_regmap_table[] = { + /* gnum,gofs,cpofs,ofs,siz,cp, dbnum, name */ + { 44, 176, 0, 0, 4, -1, 0x020c, "scompare1" }, + { 0 } +};