2012-04-25 16:07:23 +02:00
|
|
|
/* Go language support routines for GDB, the GNU debugger.
|
|
|
|
|
|
2014-01-01 04:54:24 +01:00
|
|
|
Copyright (C) 2012-2014 Free Software Foundation, Inc.
|
2012-04-25 16:07:23 +02:00
|
|
|
|
|
|
|
|
This file is part of GDB.
|
|
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
|
|
|
|
|
|
|
/* TODO:
|
|
|
|
|
- split stacks
|
|
|
|
|
- printing of native types
|
|
|
|
|
- goroutines
|
|
|
|
|
- lots more
|
|
|
|
|
- gccgo mangling needs redoing
|
|
|
|
|
It's too hard, for example, to know whether one is looking at a mangled
|
|
|
|
|
Go symbol or not, and their are ambiguities, e.g., the demangler may
|
|
|
|
|
get passed *any* symbol, including symbols from other languages
|
|
|
|
|
and including symbols that are already demangled.
|
|
|
|
|
One thought is to at least add an _G prefix.
|
|
|
|
|
- 6g mangling isn't supported yet
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
|
#include "gdb_assert.h"
|
|
|
|
|
#include "gdb_obstack.h"
|
remove gdb_string.h
This removes gdb_string.h. This patch is purely mechanical. I
created it by running the two commands:
git rm common/gdb_string.h
perl -pi -e's/"gdb_string.h"/<string.h>/;' *.[chyl] */*.[chyl]
2013-11-18 Tom Tromey <tromey@redhat.com>
* common/gdb_string.h: Remove.
* aarch64-tdep.c: Use string.h, not gdb_string.h.
* ada-exp.y: Use string.h, not gdb_string.h.
* ada-lang.c: Use string.h, not gdb_string.h.
* ada-lex.l: Use string.h, not gdb_string.h.
* ada-typeprint.c: Use string.h, not gdb_string.h.
* ada-valprint.c: Use string.h, not gdb_string.h.
* aix-thread.c: Use string.h, not gdb_string.h.
* alpha-linux-tdep.c: Use string.h, not gdb_string.h.
* alpha-mdebug-tdep.c: Use string.h, not gdb_string.h.
* alpha-nat.c: Use string.h, not gdb_string.h.
* alpha-osf1-tdep.c: Use string.h, not gdb_string.h.
* alpha-tdep.c: Use string.h, not gdb_string.h.
* alphanbsd-tdep.c: Use string.h, not gdb_string.h.
* amd64-dicos-tdep.c: Use string.h, not gdb_string.h.
* amd64-linux-nat.c: Use string.h, not gdb_string.h.
* amd64-linux-tdep.c: Use string.h, not gdb_string.h.
* amd64-nat.c: Use string.h, not gdb_string.h.
* amd64-sol2-tdep.c: Use string.h, not gdb_string.h.
* amd64fbsd-tdep.c: Use string.h, not gdb_string.h.
* amd64obsd-tdep.c: Use string.h, not gdb_string.h.
* arch-utils.c: Use string.h, not gdb_string.h.
* arm-linux-nat.c: Use string.h, not gdb_string.h.
* arm-linux-tdep.c: Use string.h, not gdb_string.h.
* arm-tdep.c: Use string.h, not gdb_string.h.
* arm-wince-tdep.c: Use string.h, not gdb_string.h.
* armbsd-tdep.c: Use string.h, not gdb_string.h.
* armnbsd-nat.c: Use string.h, not gdb_string.h.
* armnbsd-tdep.c: Use string.h, not gdb_string.h.
* armobsd-tdep.c: Use string.h, not gdb_string.h.
* avr-tdep.c: Use string.h, not gdb_string.h.
* ax-gdb.c: Use string.h, not gdb_string.h.
* ax-general.c: Use string.h, not gdb_string.h.
* bcache.c: Use string.h, not gdb_string.h.
* bfin-tdep.c: Use string.h, not gdb_string.h.
* breakpoint.c: Use string.h, not gdb_string.h.
* build-id.c: Use string.h, not gdb_string.h.
* buildsym.c: Use string.h, not gdb_string.h.
* c-exp.y: Use string.h, not gdb_string.h.
* c-lang.c: Use string.h, not gdb_string.h.
* c-typeprint.c: Use string.h, not gdb_string.h.
* c-valprint.c: Use string.h, not gdb_string.h.
* charset.c: Use string.h, not gdb_string.h.
* cli-out.c: Use string.h, not gdb_string.h.
* cli/cli-cmds.c: Use string.h, not gdb_string.h.
* cli/cli-decode.c: Use string.h, not gdb_string.h.
* cli/cli-dump.c: Use string.h, not gdb_string.h.
* cli/cli-interp.c: Use string.h, not gdb_string.h.
* cli/cli-logging.c: Use string.h, not gdb_string.h.
* cli/cli-script.c: Use string.h, not gdb_string.h.
* cli/cli-setshow.c: Use string.h, not gdb_string.h.
* cli/cli-utils.c: Use string.h, not gdb_string.h.
* coffread.c: Use string.h, not gdb_string.h.
* common/common-utils.c: Use string.h, not gdb_string.h.
* common/filestuff.c: Use string.h, not gdb_string.h.
* common/linux-procfs.c: Use string.h, not gdb_string.h.
* common/linux-ptrace.c: Use string.h, not gdb_string.h.
* common/signals.c: Use string.h, not gdb_string.h.
* common/vec.h: Use string.h, not gdb_string.h.
* core-regset.c: Use string.h, not gdb_string.h.
* corefile.c: Use string.h, not gdb_string.h.
* corelow.c: Use string.h, not gdb_string.h.
* cp-abi.c: Use string.h, not gdb_string.h.
* cp-support.c: Use string.h, not gdb_string.h.
* cp-valprint.c: Use string.h, not gdb_string.h.
* cris-tdep.c: Use string.h, not gdb_string.h.
* d-lang.c: Use string.h, not gdb_string.h.
* dbxread.c: Use string.h, not gdb_string.h.
* dcache.c: Use string.h, not gdb_string.h.
* demangle.c: Use string.h, not gdb_string.h.
* dicos-tdep.c: Use string.h, not gdb_string.h.
* disasm.c: Use string.h, not gdb_string.h.
* doublest.c: Use string.h, not gdb_string.h.
* dsrec.c: Use string.h, not gdb_string.h.
* dummy-frame.c: Use string.h, not gdb_string.h.
* dwarf2-frame.c: Use string.h, not gdb_string.h.
* dwarf2loc.c: Use string.h, not gdb_string.h.
* dwarf2read.c: Use string.h, not gdb_string.h.
* elfread.c: Use string.h, not gdb_string.h.
* environ.c: Use string.h, not gdb_string.h.
* eval.c: Use string.h, not gdb_string.h.
* event-loop.c: Use string.h, not gdb_string.h.
* exceptions.c: Use string.h, not gdb_string.h.
* exec.c: Use string.h, not gdb_string.h.
* expprint.c: Use string.h, not gdb_string.h.
* f-exp.y: Use string.h, not gdb_string.h.
* f-lang.c: Use string.h, not gdb_string.h.
* f-typeprint.c: Use string.h, not gdb_string.h.
* f-valprint.c: Use string.h, not gdb_string.h.
* fbsd-nat.c: Use string.h, not gdb_string.h.
* findcmd.c: Use string.h, not gdb_string.h.
* findvar.c: Use string.h, not gdb_string.h.
* fork-child.c: Use string.h, not gdb_string.h.
* frame.c: Use string.h, not gdb_string.h.
* frv-linux-tdep.c: Use string.h, not gdb_string.h.
* frv-tdep.c: Use string.h, not gdb_string.h.
* gdb.c: Use string.h, not gdb_string.h.
* gdb_bfd.c: Use string.h, not gdb_string.h.
* gdbarch.c: Use string.h, not gdb_string.h.
* gdbtypes.c: Use string.h, not gdb_string.h.
* gnu-nat.c: Use string.h, not gdb_string.h.
* gnu-v2-abi.c: Use string.h, not gdb_string.h.
* gnu-v3-abi.c: Use string.h, not gdb_string.h.
* go-exp.y: Use string.h, not gdb_string.h.
* go-lang.c: Use string.h, not gdb_string.h.
* go32-nat.c: Use string.h, not gdb_string.h.
* hppa-hpux-tdep.c: Use string.h, not gdb_string.h.
* hppa-linux-nat.c: Use string.h, not gdb_string.h.
* hppanbsd-tdep.c: Use string.h, not gdb_string.h.
* hppaobsd-tdep.c: Use string.h, not gdb_string.h.
* i386-cygwin-tdep.c: Use string.h, not gdb_string.h.
* i386-dicos-tdep.c: Use string.h, not gdb_string.h.
* i386-linux-nat.c: Use string.h, not gdb_string.h.
* i386-linux-tdep.c: Use string.h, not gdb_string.h.
* i386-nto-tdep.c: Use string.h, not gdb_string.h.
* i386-sol2-tdep.c: Use string.h, not gdb_string.h.
* i386-tdep.c: Use string.h, not gdb_string.h.
* i386bsd-tdep.c: Use string.h, not gdb_string.h.
* i386gnu-nat.c: Use string.h, not gdb_string.h.
* i386nbsd-tdep.c: Use string.h, not gdb_string.h.
* i386obsd-tdep.c: Use string.h, not gdb_string.h.
* i387-tdep.c: Use string.h, not gdb_string.h.
* ia64-libunwind-tdep.c: Use string.h, not gdb_string.h.
* ia64-linux-nat.c: Use string.h, not gdb_string.h.
* inf-child.c: Use string.h, not gdb_string.h.
* inf-ptrace.c: Use string.h, not gdb_string.h.
* inf-ttrace.c: Use string.h, not gdb_string.h.
* infcall.c: Use string.h, not gdb_string.h.
* infcmd.c: Use string.h, not gdb_string.h.
* inflow.c: Use string.h, not gdb_string.h.
* infrun.c: Use string.h, not gdb_string.h.
* interps.c: Use string.h, not gdb_string.h.
* iq2000-tdep.c: Use string.h, not gdb_string.h.
* irix5-nat.c: Use string.h, not gdb_string.h.
* jv-exp.y: Use string.h, not gdb_string.h.
* jv-lang.c: Use string.h, not gdb_string.h.
* jv-typeprint.c: Use string.h, not gdb_string.h.
* jv-valprint.c: Use string.h, not gdb_string.h.
* language.c: Use string.h, not gdb_string.h.
* linux-fork.c: Use string.h, not gdb_string.h.
* linux-nat.c: Use string.h, not gdb_string.h.
* lm32-tdep.c: Use string.h, not gdb_string.h.
* m2-exp.y: Use string.h, not gdb_string.h.
* m2-typeprint.c: Use string.h, not gdb_string.h.
* m32c-tdep.c: Use string.h, not gdb_string.h.
* m32r-linux-nat.c: Use string.h, not gdb_string.h.
* m32r-linux-tdep.c: Use string.h, not gdb_string.h.
* m32r-rom.c: Use string.h, not gdb_string.h.
* m32r-tdep.c: Use string.h, not gdb_string.h.
* m68hc11-tdep.c: Use string.h, not gdb_string.h.
* m68k-tdep.c: Use string.h, not gdb_string.h.
* m68kbsd-tdep.c: Use string.h, not gdb_string.h.
* m68klinux-nat.c: Use string.h, not gdb_string.h.
* m68klinux-tdep.c: Use string.h, not gdb_string.h.
* m88k-tdep.c: Use string.h, not gdb_string.h.
* macrocmd.c: Use string.h, not gdb_string.h.
* main.c: Use string.h, not gdb_string.h.
* mdebugread.c: Use string.h, not gdb_string.h.
* mem-break.c: Use string.h, not gdb_string.h.
* memattr.c: Use string.h, not gdb_string.h.
* memory-map.c: Use string.h, not gdb_string.h.
* mep-tdep.c: Use string.h, not gdb_string.h.
* mi/mi-cmd-break.c: Use string.h, not gdb_string.h.
* mi/mi-cmd-disas.c: Use string.h, not gdb_string.h.
* mi/mi-cmd-env.c: Use string.h, not gdb_string.h.
* mi/mi-cmd-stack.c: Use string.h, not gdb_string.h.
* mi/mi-cmd-var.c: Use string.h, not gdb_string.h.
* mi/mi-cmds.c: Use string.h, not gdb_string.h.
* mi/mi-console.c: Use string.h, not gdb_string.h.
* mi/mi-getopt.c: Use string.h, not gdb_string.h.
* mi/mi-interp.c: Use string.h, not gdb_string.h.
* mi/mi-main.c: Use string.h, not gdb_string.h.
* mi/mi-parse.c: Use string.h, not gdb_string.h.
* microblaze-rom.c: Use string.h, not gdb_string.h.
* microblaze-tdep.c: Use string.h, not gdb_string.h.
* mingw-hdep.c: Use string.h, not gdb_string.h.
* minidebug.c: Use string.h, not gdb_string.h.
* minsyms.c: Use string.h, not gdb_string.h.
* mips-irix-tdep.c: Use string.h, not gdb_string.h.
* mips-linux-tdep.c: Use string.h, not gdb_string.h.
* mips-tdep.c: Use string.h, not gdb_string.h.
* mips64obsd-tdep.c: Use string.h, not gdb_string.h.
* mipsnbsd-tdep.c: Use string.h, not gdb_string.h.
* mipsread.c: Use string.h, not gdb_string.h.
* mn10300-linux-tdep.c: Use string.h, not gdb_string.h.
* mn10300-tdep.c: Use string.h, not gdb_string.h.
* monitor.c: Use string.h, not gdb_string.h.
* moxie-tdep.c: Use string.h, not gdb_string.h.
* mt-tdep.c: Use string.h, not gdb_string.h.
* nbsd-tdep.c: Use string.h, not gdb_string.h.
* nios2-linux-tdep.c: Use string.h, not gdb_string.h.
* nto-procfs.c: Use string.h, not gdb_string.h.
* nto-tdep.c: Use string.h, not gdb_string.h.
* objc-lang.c: Use string.h, not gdb_string.h.
* objfiles.c: Use string.h, not gdb_string.h.
* opencl-lang.c: Use string.h, not gdb_string.h.
* osabi.c: Use string.h, not gdb_string.h.
* osdata.c: Use string.h, not gdb_string.h.
* p-exp.y: Use string.h, not gdb_string.h.
* p-lang.c: Use string.h, not gdb_string.h.
* p-typeprint.c: Use string.h, not gdb_string.h.
* parse.c: Use string.h, not gdb_string.h.
* posix-hdep.c: Use string.h, not gdb_string.h.
* ppc-linux-nat.c: Use string.h, not gdb_string.h.
* ppc-sysv-tdep.c: Use string.h, not gdb_string.h.
* ppcfbsd-tdep.c: Use string.h, not gdb_string.h.
* ppcnbsd-tdep.c: Use string.h, not gdb_string.h.
* ppcobsd-tdep.c: Use string.h, not gdb_string.h.
* printcmd.c: Use string.h, not gdb_string.h.
* procfs.c: Use string.h, not gdb_string.h.
* prologue-value.c: Use string.h, not gdb_string.h.
* python/py-auto-load.c: Use string.h, not gdb_string.h.
* python/py-gdb-readline.c: Use string.h, not gdb_string.h.
* ravenscar-thread.c: Use string.h, not gdb_string.h.
* regcache.c: Use string.h, not gdb_string.h.
* registry.c: Use string.h, not gdb_string.h.
* remote-fileio.c: Use string.h, not gdb_string.h.
* remote-m32r-sdi.c: Use string.h, not gdb_string.h.
* remote-mips.c: Use string.h, not gdb_string.h.
* remote-sim.c: Use string.h, not gdb_string.h.
* remote.c: Use string.h, not gdb_string.h.
* reverse.c: Use string.h, not gdb_string.h.
* rs6000-aix-tdep.c: Use string.h, not gdb_string.h.
* ser-base.c: Use string.h, not gdb_string.h.
* ser-go32.c: Use string.h, not gdb_string.h.
* ser-mingw.c: Use string.h, not gdb_string.h.
* ser-pipe.c: Use string.h, not gdb_string.h.
* ser-tcp.c: Use string.h, not gdb_string.h.
* ser-unix.c: Use string.h, not gdb_string.h.
* serial.c: Use string.h, not gdb_string.h.
* sh-tdep.c: Use string.h, not gdb_string.h.
* sh64-tdep.c: Use string.h, not gdb_string.h.
* shnbsd-tdep.c: Use string.h, not gdb_string.h.
* skip.c: Use string.h, not gdb_string.h.
* sol-thread.c: Use string.h, not gdb_string.h.
* solib-dsbt.c: Use string.h, not gdb_string.h.
* solib-frv.c: Use string.h, not gdb_string.h.
* solib-osf.c: Use string.h, not gdb_string.h.
* solib-spu.c: Use string.h, not gdb_string.h.
* solib-target.c: Use string.h, not gdb_string.h.
* solib.c: Use string.h, not gdb_string.h.
* somread.c: Use string.h, not gdb_string.h.
* source.c: Use string.h, not gdb_string.h.
* sparc-nat.c: Use string.h, not gdb_string.h.
* sparc-sol2-tdep.c: Use string.h, not gdb_string.h.
* sparc-tdep.c: Use string.h, not gdb_string.h.
* sparc64-tdep.c: Use string.h, not gdb_string.h.
* sparc64fbsd-tdep.c: Use string.h, not gdb_string.h.
* sparc64nbsd-tdep.c: Use string.h, not gdb_string.h.
* sparcnbsd-tdep.c: Use string.h, not gdb_string.h.
* spu-linux-nat.c: Use string.h, not gdb_string.h.
* spu-multiarch.c: Use string.h, not gdb_string.h.
* spu-tdep.c: Use string.h, not gdb_string.h.
* stabsread.c: Use string.h, not gdb_string.h.
* stack.c: Use string.h, not gdb_string.h.
* std-regs.c: Use string.h, not gdb_string.h.
* symfile.c: Use string.h, not gdb_string.h.
* symmisc.c: Use string.h, not gdb_string.h.
* symtab.c: Use string.h, not gdb_string.h.
* target.c: Use string.h, not gdb_string.h.
* thread.c: Use string.h, not gdb_string.h.
* tilegx-linux-nat.c: Use string.h, not gdb_string.h.
* tilegx-tdep.c: Use string.h, not gdb_string.h.
* top.c: Use string.h, not gdb_string.h.
* tracepoint.c: Use string.h, not gdb_string.h.
* tui/tui-command.c: Use string.h, not gdb_string.h.
* tui/tui-data.c: Use string.h, not gdb_string.h.
* tui/tui-disasm.c: Use string.h, not gdb_string.h.
* tui/tui-file.c: Use string.h, not gdb_string.h.
* tui/tui-layout.c: Use string.h, not gdb_string.h.
* tui/tui-out.c: Use string.h, not gdb_string.h.
* tui/tui-regs.c: Use string.h, not gdb_string.h.
* tui/tui-source.c: Use string.h, not gdb_string.h.
* tui/tui-stack.c: Use string.h, not gdb_string.h.
* tui/tui-win.c: Use string.h, not gdb_string.h.
* tui/tui-windata.c: Use string.h, not gdb_string.h.
* tui/tui-winsource.c: Use string.h, not gdb_string.h.
* typeprint.c: Use string.h, not gdb_string.h.
* ui-file.c: Use string.h, not gdb_string.h.
* ui-out.c: Use string.h, not gdb_string.h.
* user-regs.c: Use string.h, not gdb_string.h.
* utils.c: Use string.h, not gdb_string.h.
* v850-tdep.c: Use string.h, not gdb_string.h.
* valarith.c: Use string.h, not gdb_string.h.
* valops.c: Use string.h, not gdb_string.h.
* valprint.c: Use string.h, not gdb_string.h.
* value.c: Use string.h, not gdb_string.h.
* varobj.c: Use string.h, not gdb_string.h.
* vax-tdep.c: Use string.h, not gdb_string.h.
* vaxnbsd-tdep.c: Use string.h, not gdb_string.h.
* vaxobsd-tdep.c: Use string.h, not gdb_string.h.
* windows-nat.c: Use string.h, not gdb_string.h.
* xcoffread.c: Use string.h, not gdb_string.h.
* xml-support.c: Use string.h, not gdb_string.h.
* xstormy16-tdep.c: Use string.h, not gdb_string.h.
* xtensa-linux-nat.c: Use string.h, not gdb_string.h.
2013-11-06 15:14:23 +01:00
|
|
|
#include <string.h>
|
2012-04-25 16:07:23 +02:00
|
|
|
#include "block.h"
|
|
|
|
|
#include "symtab.h"
|
|
|
|
|
#include "language.h"
|
2013-10-17 15:15:21 +02:00
|
|
|
#include "varobj.h"
|
2012-04-25 16:07:23 +02:00
|
|
|
#include "go-lang.h"
|
|
|
|
|
#include "c-lang.h"
|
|
|
|
|
#include "parser-defs.h"
|
|
|
|
|
|
|
|
|
|
#include <ctype.h>
|
|
|
|
|
|
|
|
|
|
/* The main function in the main package. */
|
|
|
|
|
static const char GO_MAIN_MAIN[] = "main.main";
|
|
|
|
|
|
|
|
|
|
/* Function returning the special symbol name used by Go for the main
|
|
|
|
|
procedure in the main program if it is found in minimal symbol list.
|
|
|
|
|
This function tries to find minimal symbols so that it finds them even
|
|
|
|
|
if the program was compiled without debugging information. */
|
|
|
|
|
|
|
|
|
|
const char *
|
|
|
|
|
go_main_name (void)
|
|
|
|
|
{
|
use bound_minsym as result for lookup_minimal_symbol et al
This patch changes a few minimal symbol lookup functions to return a
bound_minimal_symbol rather than a pointer to the minsym. This change
helps prepare gdb for computing a minimal symbol's address at the
point of use.
Note that this changes even those functions that ostensibly search a
single objfile. That was necessary because, in fact, those functions
can search an objfile and its separate debug objfiles; and it is
important for the caller to know in which objfile the minimal symbol
was actually found.
The bulk of this patch is mechanical.
2014-02-26 Tom Tromey <tromey@redhat.com>
* ada-lang.c (ada_update_initial_language): Update.
(ada_main_name, ada_has_this_exception_support): Update.
* ada-tasks.c (ada_tasks_inferior_data_sniffer): Update.
* aix-thread.c (pdc_symbol_addrs, pd_enable): Update.
* arm-tdep.c (arm_skip_stub): Update.
* auxv.c (ld_so_xfer_auxv): Update.
* avr-tdep.c (avr_scan_prologue): Update.
* ax-gdb.c (gen_var_ref): Update.
* breakpoint.c (struct breakpoint_objfile_data)
<overlay_msym, longjmp_msym, terminate_msym, exception_msym>: Change
type to bound_minimal_symbol.
(create_overlay_event_breakpoint)
(create_longjmp_master_breakpoint)
(create_std_terminate_master_breakpoint)
(create_exception_master_breakpoint): Update.
* bsd-uthread.c (bsd_uthread_lookup_address): Update.
* c-exp.y (classify_name): Update.
* coffread.c (coff_symfile_read): Update.
* common/agent.c (agent_look_up_symbols): Update.
* d-lang.c (d_main_name): Update.
* dbxread.c (find_stab_function_addr, end_psymtab): Update.
* dec-thread.c (enable_dec_thread): Update.
* dwarf2loc.c (call_site_to_target_addr): Update.
* elfread.c (elf_gnu_ifunc_resolve_by_got): Update.
* eval.c (evaluate_subexp_standard): Update.
* findvar.c (struct minsym_lookup_data) <result>: Change type
to bound_minimal_symbol.
<objfile>: Remove.
(minsym_lookup_iterator_cb, default_read_var_value): Update.
* frame.c (inside_main_func): Update.
* frv-tdep.c (frv_frame_this_id): Update.
* gcore.c (call_target_sbrk): Update.
* glibc-tdep.c (glibc_skip_solib_resolver): Update.
* gnu-v3-abi.c (gnuv3_get_typeid, gnuv3_skip_trampoline):
Update.
* go-lang.c (go_main_name): Update.
* hppa-hpux-tdep.c (hppa_hpux_skip_trampoline_code)
(hppa_hpux_find_import_stub_for_addr): Update.
* hppa-tdep.c (hppa_extract_17, hppa_lookup_stub_minimal_symbol):
Update. Change return type.
* hppa-tdep.h (hppa_lookup_stub_minimal_symbol): Change return
type.
* jit.c (jit_breakpoint_re_set_internal): Update.
* linux-fork.c (inferior_call_waitpid, checkpoint_command):
Update.
* linux-nat.c (get_signo): Update.
* linux-thread-db.c (inferior_has_bug): Update
* m32c-tdep.c (m32c_return_value)
(m32c_m16c_address_to_pointer): Update.
* m32r-tdep.c (m32r_frame_this_id): Update.
* m68hc11-tdep.c (m68hc11_get_register_info): Update.
* machoread.c (macho_resolve_oso_sym_with_minsym): Update.
* minsyms.c (lookup_minimal_symbol_internal): Rename to
lookup_minimal_symbol. Change return type.
(lookup_minimal_symbol): Remove.
(lookup_bound_minimal_symbol): Update.
(lookup_minimal_symbol_text): Change return type.
(lookup_minimal_symbol_solib_trampoline): Change return type.
* minsyms.h (lookup_minimal_symbol, lookup_minimal_symbol_text)
(lookup_minimal_symbol_solib_trampoline): Change return type.
* mips-linux-tdep.c (mips_linux_skip_resolver): Update.
* objc-lang.c (lookup_objc_class, lookup_child_selector)
(value_nsstring, find_imps): Update.
* obsd-tdep.c (obsd_skip_solib_resolver): Update.
* p-lang.c (pascal_main_name): Update.
* ppc-linux-tdep.c (ppc_linux_spe_context_lookup): Update.
* ppc-sysv-tdep.c (convert_code_addr_to_desc_addr): Update.
* proc-service.c (ps_pglobal_lookup): Update.
* ravenscar-thread.c (get_running_thread_msymbol): Change
return type.
(has_ravenscar_runtime, get_running_thread_id): Update.
* remote.c (remote_check_symbols): Update.
* sol-thread.c (ps_pglobal_lookup): Update.
* sol2-tdep.c (sol2_skip_solib_resolver): Update.
* solib-dsbt.c (lm_base): Update.
* solib-frv.c (lm_base, frv_relocate_section_addresses):
Update.
* solib-irix.c (locate_base): Update.
* solib-som.c (som_solib_create_inferior_hook)
(som_solib_desire_dynamic_linker_symbols, link_map_start):
Update.
* solib-spu.c (spu_enable_break): Update.
* solib-svr4.c (elf_locate_base, enable_break): Update.
* spu-tdep.c (spu_get_overlay_table, spu_catch_start)
(flush_ea_cache): Update.
* stabsread.c (define_symbol): Update.
* symfile.c (simple_read_overlay_table): Update.
* symtab.c (find_pc_sect_line): Update.
* tracepoint.c (scope_info): Update.
* tui-disasm.c (tui_get_begin_asm_address): Update.
* value.c (value_static_field): Update.
2013-10-15 03:53:29 +02:00
|
|
|
struct bound_minimal_symbol msym;
|
2012-04-25 16:07:23 +02:00
|
|
|
|
|
|
|
|
msym = lookup_minimal_symbol (GO_MAIN_MAIN, NULL, NULL);
|
use bound_minsym as result for lookup_minimal_symbol et al
This patch changes a few minimal symbol lookup functions to return a
bound_minimal_symbol rather than a pointer to the minsym. This change
helps prepare gdb for computing a minimal symbol's address at the
point of use.
Note that this changes even those functions that ostensibly search a
single objfile. That was necessary because, in fact, those functions
can search an objfile and its separate debug objfiles; and it is
important for the caller to know in which objfile the minimal symbol
was actually found.
The bulk of this patch is mechanical.
2014-02-26 Tom Tromey <tromey@redhat.com>
* ada-lang.c (ada_update_initial_language): Update.
(ada_main_name, ada_has_this_exception_support): Update.
* ada-tasks.c (ada_tasks_inferior_data_sniffer): Update.
* aix-thread.c (pdc_symbol_addrs, pd_enable): Update.
* arm-tdep.c (arm_skip_stub): Update.
* auxv.c (ld_so_xfer_auxv): Update.
* avr-tdep.c (avr_scan_prologue): Update.
* ax-gdb.c (gen_var_ref): Update.
* breakpoint.c (struct breakpoint_objfile_data)
<overlay_msym, longjmp_msym, terminate_msym, exception_msym>: Change
type to bound_minimal_symbol.
(create_overlay_event_breakpoint)
(create_longjmp_master_breakpoint)
(create_std_terminate_master_breakpoint)
(create_exception_master_breakpoint): Update.
* bsd-uthread.c (bsd_uthread_lookup_address): Update.
* c-exp.y (classify_name): Update.
* coffread.c (coff_symfile_read): Update.
* common/agent.c (agent_look_up_symbols): Update.
* d-lang.c (d_main_name): Update.
* dbxread.c (find_stab_function_addr, end_psymtab): Update.
* dec-thread.c (enable_dec_thread): Update.
* dwarf2loc.c (call_site_to_target_addr): Update.
* elfread.c (elf_gnu_ifunc_resolve_by_got): Update.
* eval.c (evaluate_subexp_standard): Update.
* findvar.c (struct minsym_lookup_data) <result>: Change type
to bound_minimal_symbol.
<objfile>: Remove.
(minsym_lookup_iterator_cb, default_read_var_value): Update.
* frame.c (inside_main_func): Update.
* frv-tdep.c (frv_frame_this_id): Update.
* gcore.c (call_target_sbrk): Update.
* glibc-tdep.c (glibc_skip_solib_resolver): Update.
* gnu-v3-abi.c (gnuv3_get_typeid, gnuv3_skip_trampoline):
Update.
* go-lang.c (go_main_name): Update.
* hppa-hpux-tdep.c (hppa_hpux_skip_trampoline_code)
(hppa_hpux_find_import_stub_for_addr): Update.
* hppa-tdep.c (hppa_extract_17, hppa_lookup_stub_minimal_symbol):
Update. Change return type.
* hppa-tdep.h (hppa_lookup_stub_minimal_symbol): Change return
type.
* jit.c (jit_breakpoint_re_set_internal): Update.
* linux-fork.c (inferior_call_waitpid, checkpoint_command):
Update.
* linux-nat.c (get_signo): Update.
* linux-thread-db.c (inferior_has_bug): Update
* m32c-tdep.c (m32c_return_value)
(m32c_m16c_address_to_pointer): Update.
* m32r-tdep.c (m32r_frame_this_id): Update.
* m68hc11-tdep.c (m68hc11_get_register_info): Update.
* machoread.c (macho_resolve_oso_sym_with_minsym): Update.
* minsyms.c (lookup_minimal_symbol_internal): Rename to
lookup_minimal_symbol. Change return type.
(lookup_minimal_symbol): Remove.
(lookup_bound_minimal_symbol): Update.
(lookup_minimal_symbol_text): Change return type.
(lookup_minimal_symbol_solib_trampoline): Change return type.
* minsyms.h (lookup_minimal_symbol, lookup_minimal_symbol_text)
(lookup_minimal_symbol_solib_trampoline): Change return type.
* mips-linux-tdep.c (mips_linux_skip_resolver): Update.
* objc-lang.c (lookup_objc_class, lookup_child_selector)
(value_nsstring, find_imps): Update.
* obsd-tdep.c (obsd_skip_solib_resolver): Update.
* p-lang.c (pascal_main_name): Update.
* ppc-linux-tdep.c (ppc_linux_spe_context_lookup): Update.
* ppc-sysv-tdep.c (convert_code_addr_to_desc_addr): Update.
* proc-service.c (ps_pglobal_lookup): Update.
* ravenscar-thread.c (get_running_thread_msymbol): Change
return type.
(has_ravenscar_runtime, get_running_thread_id): Update.
* remote.c (remote_check_symbols): Update.
* sol-thread.c (ps_pglobal_lookup): Update.
* sol2-tdep.c (sol2_skip_solib_resolver): Update.
* solib-dsbt.c (lm_base): Update.
* solib-frv.c (lm_base, frv_relocate_section_addresses):
Update.
* solib-irix.c (locate_base): Update.
* solib-som.c (som_solib_create_inferior_hook)
(som_solib_desire_dynamic_linker_symbols, link_map_start):
Update.
* solib-spu.c (spu_enable_break): Update.
* solib-svr4.c (elf_locate_base, enable_break): Update.
* spu-tdep.c (spu_get_overlay_table, spu_catch_start)
(flush_ea_cache): Update.
* stabsread.c (define_symbol): Update.
* symfile.c (simple_read_overlay_table): Update.
* symtab.c (find_pc_sect_line): Update.
* tracepoint.c (scope_info): Update.
* tui-disasm.c (tui_get_begin_asm_address): Update.
* value.c (value_static_field): Update.
2013-10-15 03:53:29 +02:00
|
|
|
if (msym.minsym != NULL)
|
2012-04-25 16:07:23 +02:00
|
|
|
return GO_MAIN_MAIN;
|
|
|
|
|
|
|
|
|
|
/* No known entry procedure found, the main program is probably not Go. */
|
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return non-zero if TYPE is a gccgo string.
|
|
|
|
|
We assume CHECK_TYPEDEF has already been done. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
gccgo_string_p (struct type *type)
|
|
|
|
|
{
|
|
|
|
|
/* gccgo strings don't necessarily have a name we can use. */
|
|
|
|
|
|
|
|
|
|
if (TYPE_NFIELDS (type) == 2)
|
|
|
|
|
{
|
|
|
|
|
struct type *type0 = TYPE_FIELD_TYPE (type, 0);
|
|
|
|
|
struct type *type1 = TYPE_FIELD_TYPE (type, 1);
|
|
|
|
|
|
|
|
|
|
CHECK_TYPEDEF (type0);
|
|
|
|
|
CHECK_TYPEDEF (type1);
|
|
|
|
|
|
|
|
|
|
if (TYPE_CODE (type0) == TYPE_CODE_PTR
|
|
|
|
|
&& strcmp (TYPE_FIELD_NAME (type, 0), "__data") == 0
|
|
|
|
|
&& TYPE_CODE (type1) == TYPE_CODE_INT
|
|
|
|
|
&& strcmp (TYPE_FIELD_NAME (type, 1), "__length") == 0)
|
|
|
|
|
{
|
|
|
|
|
struct type *target_type = TYPE_TARGET_TYPE (type0);
|
|
|
|
|
|
|
|
|
|
CHECK_TYPEDEF (target_type);
|
|
|
|
|
|
|
|
|
|
if (TYPE_CODE (target_type) == TYPE_CODE_INT
|
|
|
|
|
&& TYPE_LENGTH (target_type) == 1
|
|
|
|
|
&& strcmp (TYPE_NAME (target_type), "uint8") == 0)
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return non-zero if TYPE is a 6g string.
|
|
|
|
|
We assume CHECK_TYPEDEF has already been done. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
sixg_string_p (struct type *type)
|
|
|
|
|
{
|
|
|
|
|
if (TYPE_NFIELDS (type) == 2
|
|
|
|
|
&& TYPE_TAG_NAME (type) != NULL
|
|
|
|
|
&& strcmp (TYPE_TAG_NAME (type), "string") == 0)
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Classify the kind of Go object that TYPE is.
|
|
|
|
|
TYPE is a TYPE_CODE_STRUCT, used to represent a Go object. */
|
|
|
|
|
|
|
|
|
|
enum go_type
|
|
|
|
|
go_classify_struct_type (struct type *type)
|
|
|
|
|
{
|
|
|
|
|
CHECK_TYPEDEF (type);
|
|
|
|
|
|
|
|
|
|
/* Recognize strings as they're useful to be able to print without
|
|
|
|
|
pretty-printers. */
|
|
|
|
|
if (gccgo_string_p (type)
|
|
|
|
|
|| sixg_string_p (type))
|
|
|
|
|
return GO_TYPE_STRING;
|
|
|
|
|
|
|
|
|
|
return GO_TYPE_NONE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Subroutine of unpack_mangled_go_symbol to simplify it.
|
|
|
|
|
Given "[foo.]bar.baz", store "bar" in *PACKAGEP and "baz" in *OBJECTP.
|
|
|
|
|
We stomp on the last '.' to nul-terminate "bar".
|
|
|
|
|
The caller is responsible for memory management. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
unpack_package_and_object (char *buf,
|
|
|
|
|
const char **packagep, const char **objectp)
|
|
|
|
|
{
|
|
|
|
|
char *last_dot;
|
|
|
|
|
|
|
|
|
|
last_dot = strrchr (buf, '.');
|
|
|
|
|
gdb_assert (last_dot != NULL);
|
|
|
|
|
*objectp = last_dot + 1;
|
|
|
|
|
*last_dot = '\0';
|
|
|
|
|
last_dot = strrchr (buf, '.');
|
|
|
|
|
if (last_dot != NULL)
|
|
|
|
|
*packagep = last_dot + 1;
|
|
|
|
|
else
|
|
|
|
|
*packagep = buf;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Given a mangled Go symbol, find its package name, object name, and
|
|
|
|
|
method type (if present).
|
|
|
|
|
E.g., for "libgo_net.textproto.String.N33_libgo_net.textproto.ProtocolError"
|
|
|
|
|
*PACKAGEP = "textproto"
|
|
|
|
|
*OBJECTP = "String"
|
|
|
|
|
*METHOD_TYPE_PACKAGEP = "textproto"
|
|
|
|
|
*METHOD_TYPE_OBJECTP = "ProtocolError"
|
|
|
|
|
|
|
|
|
|
Space for the resulting strings is malloc'd in one buffer.
|
|
|
|
|
PACKAGEP,OBJECTP,METHOD_TYPE* will (typically) point into this buffer.
|
|
|
|
|
[There are a few exceptions, but the caller is still responsible for
|
|
|
|
|
freeing the resulting pointer.]
|
|
|
|
|
A pointer to this buffer is returned, or NULL if symbol isn't a
|
|
|
|
|
mangled Go symbol.
|
|
|
|
|
The caller is responsible for freeing the result.
|
|
|
|
|
|
|
|
|
|
*METHOD_TYPE_IS_POINTERP is set to a boolean indicating if
|
|
|
|
|
the method type is a pointer.
|
|
|
|
|
|
|
|
|
|
There may be value in returning the outer container,
|
|
|
|
|
i.e., "net" in the above example, but for now it's not needed.
|
|
|
|
|
Plus it's currently not straightforward to compute,
|
|
|
|
|
it comes from -fgo-prefix, and there's no algorithm to compute it.
|
|
|
|
|
|
|
|
|
|
If we ever need to unpack the method type, this routine should work
|
|
|
|
|
for that too. */
|
|
|
|
|
|
|
|
|
|
static char *
|
|
|
|
|
unpack_mangled_go_symbol (const char *mangled_name,
|
|
|
|
|
const char **packagep,
|
|
|
|
|
const char **objectp,
|
|
|
|
|
const char **method_type_packagep,
|
|
|
|
|
const char **method_type_objectp,
|
|
|
|
|
int *method_type_is_pointerp)
|
|
|
|
|
{
|
|
|
|
|
char *buf;
|
|
|
|
|
char *p;
|
|
|
|
|
int len = strlen (mangled_name);
|
|
|
|
|
/* Pointer to last digit in "N<digit(s)>_". */
|
|
|
|
|
char *saw_digit;
|
|
|
|
|
/* Pointer to "N" if valid "N<digit(s)>_" found. */
|
|
|
|
|
char *method_type;
|
|
|
|
|
/* Pointer to the first '.'. */
|
|
|
|
|
char *first_dot;
|
|
|
|
|
/* Pointer to the last '.'. */
|
|
|
|
|
char *last_dot;
|
|
|
|
|
/* Non-zero if we saw a pointer indicator. */
|
|
|
|
|
int saw_pointer;
|
|
|
|
|
|
|
|
|
|
*packagep = *objectp = NULL;
|
|
|
|
|
*method_type_packagep = *method_type_objectp = NULL;
|
|
|
|
|
*method_type_is_pointerp = 0;
|
|
|
|
|
|
|
|
|
|
/* main.init is mangled specially. */
|
|
|
|
|
if (strcmp (mangled_name, "__go_init_main") == 0)
|
|
|
|
|
{
|
|
|
|
|
char *package = xstrdup ("main");
|
|
|
|
|
|
|
|
|
|
*packagep = package;
|
|
|
|
|
*objectp = "init";
|
|
|
|
|
return package;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* main.main is mangled specially (missing prefix). */
|
|
|
|
|
if (strcmp (mangled_name, "main.main") == 0)
|
|
|
|
|
{
|
|
|
|
|
char *package = xstrdup ("main");
|
|
|
|
|
|
|
|
|
|
*packagep = package;
|
|
|
|
|
*objectp = "main";
|
|
|
|
|
return package;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* We may get passed, e.g., "main.T.Foo", which is *not* mangled.
|
|
|
|
|
Alas it looks exactly like "prefix.package.object."
|
|
|
|
|
To cope for now we only recognize the following prefixes:
|
|
|
|
|
|
|
|
|
|
go: the default
|
|
|
|
|
libgo_.*: used by gccgo's runtime
|
|
|
|
|
|
|
|
|
|
Thus we don't support -fgo-prefix (except as used by the runtime). */
|
|
|
|
|
if (strncmp (mangled_name, "go.", 3) != 0
|
|
|
|
|
&& strncmp (mangled_name, "libgo_", 6) != 0)
|
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
|
|
/* Quick check for whether a search may be fruitful. */
|
|
|
|
|
/* Ignore anything with @plt, etc. in it. */
|
|
|
|
|
if (strchr (mangled_name, '@') != NULL)
|
|
|
|
|
return NULL;
|
|
|
|
|
/* It must have at least two dots. */
|
|
|
|
|
first_dot = strchr (mangled_name, '.');
|
|
|
|
|
if (first_dot == NULL)
|
|
|
|
|
return NULL;
|
|
|
|
|
/* Treat "foo.bar" as unmangled. It can collide with lots of other
|
|
|
|
|
languages and it's not clear what the consequences are.
|
|
|
|
|
And except for main.main, all gccgo symbols are at least
|
|
|
|
|
prefix.package.object. */
|
|
|
|
|
last_dot = strrchr (mangled_name, '.');
|
|
|
|
|
if (last_dot == first_dot)
|
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
|
|
/* More quick checks. */
|
|
|
|
|
if (last_dot[1] == '\0' /* foo. */
|
|
|
|
|
|| last_dot[-1] == '.') /* foo..bar */
|
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
|
|
/* At this point we've decided we have a mangled Go symbol. */
|
|
|
|
|
|
|
|
|
|
buf = xstrdup (mangled_name);
|
|
|
|
|
|
|
|
|
|
/* Search backwards looking for "N<digit(s)>". */
|
|
|
|
|
p = buf + len;
|
|
|
|
|
saw_digit = method_type = NULL;
|
|
|
|
|
saw_pointer = 0;
|
|
|
|
|
while (p > buf)
|
|
|
|
|
{
|
|
|
|
|
int current = *(const unsigned char *) --p;
|
|
|
|
|
int current_is_digit = isdigit (current);
|
|
|
|
|
|
|
|
|
|
if (saw_digit)
|
|
|
|
|
{
|
|
|
|
|
if (current_is_digit)
|
|
|
|
|
continue;
|
|
|
|
|
if (current == 'N'
|
|
|
|
|
&& ((p > buf && p[-1] == '.')
|
|
|
|
|
|| (p > buf + 1 && p[-1] == 'p' && p[-2] == '.')))
|
|
|
|
|
{
|
|
|
|
|
if (atoi (p + 1) == strlen (saw_digit + 2))
|
|
|
|
|
{
|
|
|
|
|
if (p[-1] == '.')
|
|
|
|
|
method_type = p - 1;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
gdb_assert (p[-1] == 'p');
|
|
|
|
|
saw_pointer = 1;
|
|
|
|
|
method_type = p - 2;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
/* Not what we're looking for, reset and keep looking. */
|
|
|
|
|
saw_digit = NULL;
|
|
|
|
|
saw_pointer = 0;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
if (current_is_digit && p[1] == '_')
|
|
|
|
|
{
|
|
|
|
|
/* Possible start of method "this" [sic] type. */
|
|
|
|
|
saw_digit = p;
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (method_type != NULL
|
|
|
|
|
/* Ensure not something like "..foo". */
|
|
|
|
|
&& (method_type > buf && method_type[-1] != '.'))
|
|
|
|
|
{
|
|
|
|
|
unpack_package_and_object (saw_digit + 2,
|
|
|
|
|
method_type_packagep, method_type_objectp);
|
|
|
|
|
*method_type = '\0';
|
|
|
|
|
*method_type_is_pointerp = saw_pointer;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
unpack_package_and_object (buf, packagep, objectp);
|
|
|
|
|
return buf;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Implements the la_demangle language_defn routine for language Go.
|
|
|
|
|
|
|
|
|
|
N.B. This may get passed *any* symbol, including symbols from other
|
|
|
|
|
languages and including symbols that are already demangled.
|
|
|
|
|
Both of these situations are kinda unfortunate, but that's how things
|
|
|
|
|
are today.
|
|
|
|
|
|
|
|
|
|
N.B. This currently only supports gccgo's mangling.
|
|
|
|
|
|
|
|
|
|
N.B. gccgo's mangling needs, I think, changing.
|
|
|
|
|
This demangler can't work in all situations,
|
|
|
|
|
thus not too much effort is currently put into it. */
|
|
|
|
|
|
|
|
|
|
char *
|
|
|
|
|
go_demangle (const char *mangled_name, int options)
|
|
|
|
|
{
|
|
|
|
|
struct obstack tempbuf;
|
|
|
|
|
char *result;
|
|
|
|
|
char *name_buf;
|
|
|
|
|
const char *package_name;
|
|
|
|
|
const char *object_name;
|
|
|
|
|
const char *method_type_package_name;
|
|
|
|
|
const char *method_type_object_name;
|
|
|
|
|
int method_type_is_pointer;
|
|
|
|
|
|
|
|
|
|
if (mangled_name == NULL)
|
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
|
|
name_buf = unpack_mangled_go_symbol (mangled_name,
|
|
|
|
|
&package_name, &object_name,
|
|
|
|
|
&method_type_package_name,
|
|
|
|
|
&method_type_object_name,
|
|
|
|
|
&method_type_is_pointer);
|
|
|
|
|
if (name_buf == NULL)
|
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
|
|
obstack_init (&tempbuf);
|
|
|
|
|
|
|
|
|
|
/* Print methods as they appear in "method expressions". */
|
|
|
|
|
if (method_type_package_name != NULL)
|
|
|
|
|
{
|
|
|
|
|
/* FIXME: Seems like we should include package_name here somewhere. */
|
|
|
|
|
if (method_type_is_pointer)
|
|
|
|
|
obstack_grow_str (&tempbuf, "(*");
|
|
|
|
|
obstack_grow_str (&tempbuf, method_type_package_name);
|
|
|
|
|
obstack_grow_str (&tempbuf, ".");
|
|
|
|
|
obstack_grow_str (&tempbuf, method_type_object_name);
|
|
|
|
|
if (method_type_is_pointer)
|
|
|
|
|
obstack_grow_str (&tempbuf, ")");
|
|
|
|
|
obstack_grow_str (&tempbuf, ".");
|
|
|
|
|
obstack_grow_str (&tempbuf, object_name);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
obstack_grow_str (&tempbuf, package_name);
|
|
|
|
|
obstack_grow_str (&tempbuf, ".");
|
|
|
|
|
obstack_grow_str (&tempbuf, object_name);
|
|
|
|
|
}
|
|
|
|
|
obstack_grow_str0 (&tempbuf, "");
|
|
|
|
|
|
|
|
|
|
result = xstrdup (obstack_finish (&tempbuf));
|
|
|
|
|
obstack_free (&tempbuf, NULL);
|
|
|
|
|
xfree (name_buf);
|
|
|
|
|
return result;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Given a Go symbol, return its package or NULL if unknown.
|
|
|
|
|
Space for the result is malloc'd, caller must free. */
|
|
|
|
|
|
|
|
|
|
char *
|
|
|
|
|
go_symbol_package_name (const struct symbol *sym)
|
|
|
|
|
{
|
|
|
|
|
const char *mangled_name = SYMBOL_LINKAGE_NAME (sym);
|
|
|
|
|
const char *package_name;
|
|
|
|
|
const char *object_name;
|
|
|
|
|
const char *method_type_package_name;
|
|
|
|
|
const char *method_type_object_name;
|
|
|
|
|
int method_type_is_pointer;
|
|
|
|
|
char *name_buf;
|
|
|
|
|
char *result;
|
|
|
|
|
|
|
|
|
|
gdb_assert (SYMBOL_LANGUAGE (sym) == language_go);
|
|
|
|
|
name_buf = unpack_mangled_go_symbol (mangled_name,
|
|
|
|
|
&package_name, &object_name,
|
|
|
|
|
&method_type_package_name,
|
|
|
|
|
&method_type_object_name,
|
|
|
|
|
&method_type_is_pointer);
|
|
|
|
|
/* Some Go symbols don't have mangled form we interpret (yet). */
|
|
|
|
|
if (name_buf == NULL)
|
|
|
|
|
return NULL;
|
|
|
|
|
result = xstrdup (package_name);
|
|
|
|
|
xfree (name_buf);
|
|
|
|
|
return result;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the package that BLOCK is in, or NULL if there isn't one.
|
|
|
|
|
Space for the result is malloc'd, caller must free. */
|
|
|
|
|
|
|
|
|
|
char *
|
|
|
|
|
go_block_package_name (const struct block *block)
|
|
|
|
|
{
|
|
|
|
|
while (block != NULL)
|
|
|
|
|
{
|
|
|
|
|
struct symbol *function = BLOCK_FUNCTION (block);
|
|
|
|
|
|
|
|
|
|
if (function != NULL)
|
|
|
|
|
{
|
|
|
|
|
char *package_name = go_symbol_package_name (function);
|
|
|
|
|
|
|
|
|
|
if (package_name != NULL)
|
|
|
|
|
return package_name;
|
|
|
|
|
|
|
|
|
|
/* Stop looking if we find a function without a package name.
|
|
|
|
|
We're most likely outside of Go and thus the concept of the
|
|
|
|
|
"current" package is gone. */
|
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
block = BLOCK_SUPERBLOCK (block);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Table mapping opcodes into strings for printing operators
|
|
|
|
|
and precedences of the operators.
|
|
|
|
|
TODO(dje): &^ ? */
|
|
|
|
|
|
|
|
|
|
static const struct op_print go_op_print_tab[] =
|
|
|
|
|
{
|
|
|
|
|
{",", BINOP_COMMA, PREC_COMMA, 0},
|
|
|
|
|
{"=", BINOP_ASSIGN, PREC_ASSIGN, 1},
|
|
|
|
|
{"||", BINOP_LOGICAL_OR, PREC_LOGICAL_OR, 0},
|
|
|
|
|
{"&&", BINOP_LOGICAL_AND, PREC_LOGICAL_AND, 0},
|
|
|
|
|
{"|", BINOP_BITWISE_IOR, PREC_BITWISE_IOR, 0},
|
|
|
|
|
{"^", BINOP_BITWISE_XOR, PREC_BITWISE_XOR, 0},
|
|
|
|
|
{"&", BINOP_BITWISE_AND, PREC_BITWISE_AND, 0},
|
|
|
|
|
{"==", BINOP_EQUAL, PREC_EQUAL, 0},
|
|
|
|
|
{"!=", BINOP_NOTEQUAL, PREC_EQUAL, 0},
|
|
|
|
|
{"<=", BINOP_LEQ, PREC_ORDER, 0},
|
|
|
|
|
{">=", BINOP_GEQ, PREC_ORDER, 0},
|
|
|
|
|
{">", BINOP_GTR, PREC_ORDER, 0},
|
|
|
|
|
{"<", BINOP_LESS, PREC_ORDER, 0},
|
|
|
|
|
{">>", BINOP_RSH, PREC_SHIFT, 0},
|
|
|
|
|
{"<<", BINOP_LSH, PREC_SHIFT, 0},
|
|
|
|
|
{"+", BINOP_ADD, PREC_ADD, 0},
|
|
|
|
|
{"-", BINOP_SUB, PREC_ADD, 0},
|
|
|
|
|
{"*", BINOP_MUL, PREC_MUL, 0},
|
|
|
|
|
{"/", BINOP_DIV, PREC_MUL, 0},
|
|
|
|
|
{"%", BINOP_REM, PREC_MUL, 0},
|
|
|
|
|
{"@", BINOP_REPEAT, PREC_REPEAT, 0},
|
|
|
|
|
{"-", UNOP_NEG, PREC_PREFIX, 0},
|
|
|
|
|
{"!", UNOP_LOGICAL_NOT, PREC_PREFIX, 0},
|
|
|
|
|
{"^", UNOP_COMPLEMENT, PREC_PREFIX, 0},
|
|
|
|
|
{"*", UNOP_IND, PREC_PREFIX, 0},
|
|
|
|
|
{"&", UNOP_ADDR, PREC_PREFIX, 0},
|
|
|
|
|
{"unsafe.Sizeof ", UNOP_SIZEOF, PREC_PREFIX, 0},
|
|
|
|
|
{"++", UNOP_POSTINCREMENT, PREC_SUFFIX, 0},
|
|
|
|
|
{"--", UNOP_POSTDECREMENT, PREC_SUFFIX, 0},
|
|
|
|
|
{NULL, 0, 0, 0}
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
enum go_primitive_types {
|
|
|
|
|
go_primitive_type_void,
|
|
|
|
|
go_primitive_type_char,
|
|
|
|
|
go_primitive_type_bool,
|
|
|
|
|
go_primitive_type_int,
|
|
|
|
|
go_primitive_type_uint,
|
|
|
|
|
go_primitive_type_uintptr,
|
|
|
|
|
go_primitive_type_int8,
|
|
|
|
|
go_primitive_type_int16,
|
|
|
|
|
go_primitive_type_int32,
|
|
|
|
|
go_primitive_type_int64,
|
|
|
|
|
go_primitive_type_uint8,
|
|
|
|
|
go_primitive_type_uint16,
|
|
|
|
|
go_primitive_type_uint32,
|
|
|
|
|
go_primitive_type_uint64,
|
|
|
|
|
go_primitive_type_float32,
|
|
|
|
|
go_primitive_type_float64,
|
|
|
|
|
go_primitive_type_complex64,
|
|
|
|
|
go_primitive_type_complex128,
|
|
|
|
|
nr_go_primitive_types
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
go_language_arch_info (struct gdbarch *gdbarch,
|
|
|
|
|
struct language_arch_info *lai)
|
|
|
|
|
{
|
|
|
|
|
const struct builtin_go_type *builtin = builtin_go_type (gdbarch);
|
|
|
|
|
|
|
|
|
|
lai->string_char_type = builtin->builtin_char;
|
|
|
|
|
|
|
|
|
|
lai->primitive_type_vector
|
|
|
|
|
= GDBARCH_OBSTACK_CALLOC (gdbarch, nr_go_primitive_types + 1,
|
|
|
|
|
struct type *);
|
|
|
|
|
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_void]
|
|
|
|
|
= builtin->builtin_void;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_char]
|
|
|
|
|
= builtin->builtin_char;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_bool]
|
|
|
|
|
= builtin->builtin_bool;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_int]
|
|
|
|
|
= builtin->builtin_int;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_uint]
|
|
|
|
|
= builtin->builtin_uint;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_uintptr]
|
|
|
|
|
= builtin->builtin_uintptr;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_int8]
|
|
|
|
|
= builtin->builtin_int8;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_int16]
|
|
|
|
|
= builtin->builtin_int16;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_int32]
|
|
|
|
|
= builtin->builtin_int32;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_int64]
|
|
|
|
|
= builtin->builtin_int64;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_uint8]
|
|
|
|
|
= builtin->builtin_uint8;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_uint16]
|
|
|
|
|
= builtin->builtin_uint16;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_uint32]
|
|
|
|
|
= builtin->builtin_uint32;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_uint64]
|
|
|
|
|
= builtin->builtin_uint64;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_float32]
|
|
|
|
|
= builtin->builtin_float32;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_float64]
|
|
|
|
|
= builtin->builtin_float64;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_complex64]
|
|
|
|
|
= builtin->builtin_complex64;
|
|
|
|
|
lai->primitive_type_vector [go_primitive_type_complex128]
|
|
|
|
|
= builtin->builtin_complex128;
|
|
|
|
|
|
|
|
|
|
lai->bool_type_symbol = "bool";
|
|
|
|
|
lai->bool_type_default = builtin->builtin_bool;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const struct language_defn go_language_defn =
|
|
|
|
|
{
|
|
|
|
|
"go",
|
2013-10-26 10:00:11 +02:00
|
|
|
"Go",
|
2012-04-25 16:07:23 +02:00
|
|
|
language_go,
|
|
|
|
|
range_check_off,
|
|
|
|
|
case_sensitive_on,
|
|
|
|
|
array_row_major,
|
|
|
|
|
macro_expansion_no,
|
|
|
|
|
&exp_descriptor_c,
|
|
|
|
|
go_parse,
|
|
|
|
|
go_error,
|
|
|
|
|
null_post_parser,
|
|
|
|
|
c_printchar, /* Print a character constant. */
|
|
|
|
|
c_printstr, /* Function to print string constant. */
|
|
|
|
|
c_emit_char, /* Print a single char. */
|
|
|
|
|
go_print_type, /* Print a type using appropriate syntax. */
|
|
|
|
|
c_print_typedef, /* Print a typedef using appropriate
|
|
|
|
|
syntax. */
|
|
|
|
|
go_val_print, /* Print a value using appropriate syntax. */
|
|
|
|
|
c_value_print, /* Print a top-level value. */
|
|
|
|
|
default_read_var_value, /* la_read_var_value */
|
|
|
|
|
NULL, /* Language specific skip_trampoline. */
|
|
|
|
|
NULL, /* name_of_this */
|
|
|
|
|
basic_lookup_symbol_nonlocal,
|
|
|
|
|
basic_lookup_transparent_type,
|
|
|
|
|
go_demangle, /* Language specific symbol demangler. */
|
|
|
|
|
NULL, /* Language specific
|
|
|
|
|
class_name_from_physname. */
|
|
|
|
|
go_op_print_tab, /* Expression operators for printing. */
|
|
|
|
|
1, /* C-style arrays. */
|
|
|
|
|
0, /* String lower bound. */
|
|
|
|
|
default_word_break_characters,
|
|
|
|
|
default_make_symbol_completion_list,
|
|
|
|
|
go_language_arch_info,
|
|
|
|
|
default_print_array_index,
|
|
|
|
|
default_pass_by_reference,
|
|
|
|
|
c_get_string,
|
|
|
|
|
NULL,
|
|
|
|
|
iterate_over_symbols,
|
2013-10-17 15:15:21 +02:00
|
|
|
&default_varobj_ops,
|
2012-04-25 16:07:23 +02:00
|
|
|
LANG_MAGIC
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static void *
|
|
|
|
|
build_go_types (struct gdbarch *gdbarch)
|
|
|
|
|
{
|
|
|
|
|
struct builtin_go_type *builtin_go_type
|
|
|
|
|
= GDBARCH_OBSTACK_ZALLOC (gdbarch, struct builtin_go_type);
|
|
|
|
|
|
|
|
|
|
builtin_go_type->builtin_void
|
|
|
|
|
= arch_type (gdbarch, TYPE_CODE_VOID, 1, "void");
|
|
|
|
|
builtin_go_type->builtin_char
|
|
|
|
|
= arch_character_type (gdbarch, 8, 1, "char");
|
|
|
|
|
builtin_go_type->builtin_bool
|
|
|
|
|
= arch_boolean_type (gdbarch, 8, 0, "bool");
|
|
|
|
|
builtin_go_type->builtin_int
|
|
|
|
|
= arch_integer_type (gdbarch, gdbarch_int_bit (gdbarch), 0, "int");
|
|
|
|
|
builtin_go_type->builtin_uint
|
|
|
|
|
= arch_integer_type (gdbarch, gdbarch_int_bit (gdbarch), 1, "uint");
|
|
|
|
|
builtin_go_type->builtin_uintptr
|
|
|
|
|
= arch_integer_type (gdbarch, gdbarch_ptr_bit (gdbarch), 1, "uintptr");
|
|
|
|
|
builtin_go_type->builtin_int8
|
|
|
|
|
= arch_integer_type (gdbarch, 8, 0, "int8");
|
|
|
|
|
builtin_go_type->builtin_int16
|
|
|
|
|
= arch_integer_type (gdbarch, 16, 0, "int16");
|
|
|
|
|
builtin_go_type->builtin_int32
|
|
|
|
|
= arch_integer_type (gdbarch, 32, 0, "int32");
|
|
|
|
|
builtin_go_type->builtin_int64
|
|
|
|
|
= arch_integer_type (gdbarch, 64, 0, "int64");
|
|
|
|
|
builtin_go_type->builtin_uint8
|
|
|
|
|
= arch_integer_type (gdbarch, 8, 1, "uint8");
|
|
|
|
|
builtin_go_type->builtin_uint16
|
|
|
|
|
= arch_integer_type (gdbarch, 16, 1, "uint16");
|
|
|
|
|
builtin_go_type->builtin_uint32
|
|
|
|
|
= arch_integer_type (gdbarch, 32, 1, "uint32");
|
|
|
|
|
builtin_go_type->builtin_uint64
|
|
|
|
|
= arch_integer_type (gdbarch, 64, 1, "uint64");
|
|
|
|
|
builtin_go_type->builtin_float32
|
|
|
|
|
= arch_float_type (gdbarch, 32, "float32", NULL);
|
|
|
|
|
builtin_go_type->builtin_float64
|
|
|
|
|
= arch_float_type (gdbarch, 64, "float64", NULL);
|
|
|
|
|
builtin_go_type->builtin_complex64
|
|
|
|
|
= arch_complex_type (gdbarch, "complex64",
|
|
|
|
|
builtin_go_type->builtin_float32);
|
|
|
|
|
builtin_go_type->builtin_complex128
|
|
|
|
|
= arch_complex_type (gdbarch, "complex128",
|
|
|
|
|
builtin_go_type->builtin_float64);
|
|
|
|
|
|
|
|
|
|
return builtin_go_type;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static struct gdbarch_data *go_type_data;
|
|
|
|
|
|
|
|
|
|
const struct builtin_go_type *
|
|
|
|
|
builtin_go_type (struct gdbarch *gdbarch)
|
|
|
|
|
{
|
|
|
|
|
return gdbarch_data (gdbarch, go_type_data);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
extern initialize_file_ftype _initialize_go_language;
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
_initialize_go_language (void)
|
|
|
|
|
{
|
|
|
|
|
go_type_data = gdbarch_data_register_post_init (build_go_types);
|
|
|
|
|
|
|
|
|
|
add_language (&go_language_defn);
|
|
|
|
|
}
|
