http://sourceware.org/gdb/wiki/ArcherBranchManagement
GIT snapshot:
-commit a99e30d08ade4a2df0f943b036cd653bcd12b04d
+commit 42fbc89fd3a797da9880ecbc467c32f282acf31f
branch `archer' - the merge of branches:
-archer-jankratochvil-merge-expr
- archer-keiths-expr-cumulative
- (archer-swagiaal-using-directive)
-archer-jankratochvil-misc
-archer-jankratochvil-python
- archer-jankratochvil-type-refcount
- archer-tromey-python
archer-jankratochvil-vla
- archer-jankratochvil-type-refcount
-archer-pmuldoon-exception-rewind-master
-archer-sergio-catch-syscall
-archer-tromey-charset
-archer-tromey-delayed-symfile
+archer-jankratochvil-watchpoint3
+archer-tromey-python
+archer-sergiodj-stap-fedora15jk
-diff --git a/gdb/Makefile.in b/gdb/Makefile.in
-index 74aa72e..c84a4ac 100644
---- a/gdb/Makefile.in
-+++ b/gdb/Makefile.in
-@@ -167,11 +167,20 @@ INTL_CFLAGS = @INCINTL@
-
- # Where is the ICONV library? This can be empty if libc has iconv.
- LIBICONV = @LIBICONV@
-+LIBICONV_INCLUDE = @LIBICONV_INCLUDE@
-+LIBICONV_LIBDIR = @LIBICONV_LIBDIR@
-
- # Did the user give us a --with-sysroot option?
- TARGET_SYSTEM_ROOT = @TARGET_SYSTEM_ROOT@
- TARGET_SYSTEM_ROOT_DEFINE = @TARGET_SYSTEM_ROOT_DEFINE@
-
-+# Did the user give us a --with-gdb-datadir option?
-+GDB_DATADIR_PATH = @GDB_DATADIR_PATH@
-+
-+# The argument to --with-pythondir. If not given, this is
-+# GDB_DATADIR_PATH/python.
-+pythondir = @pythondir@
-+
- # Helper code from gnulib.
- LIBGNU = gnulib/libgnu.a
- INCGNU = -I$(srcdir)/gnulib -Ignulib
-@@ -270,12 +279,34 @@ SUBDIR_TUI_CFLAGS= \
- #
- SUBDIR_PYTHON_OBS = \
- python.o \
-+ python-block.o \
-+ python-breakpoint.o \
- python-cmd.o \
-+ python-frame.o \
-+ python-function.o \
-+ python-hooks.o \
-+ python-membuf.o \
-+ python-objfile.o \
-+ python-param.o \
-+ python-symbol.o \
-+ python-symtab.o \
-+ python-type.o \
- python-utils.o \
- python-value.o
- SUBDIR_PYTHON_SRCS = \
- python/python.c \
-+ python/python-block.c \
-+ python/python-breakpoint.c \
- python/python-cmd.c \
-+ python/python-frame.c \
-+ python/python-function.c \
-+ python/python-hooks.c \
-+ python/python-membuf.c \
-+ python/python-objfile.c \
-+ python/python-param.c \
-+ python/python-symbol.c \
-+ python/python-symtab.c \
-+ python/python-type.c \
- python/python-utils.c \
- python/python-value.c
- SUBDIR_PYTHON_DEPS =
-@@ -390,7 +421,8 @@ INTERNAL_CFLAGS_BASE = \
- $(CFLAGS) $(GLOBAL_CFLAGS) $(PROFILE_CFLAGS) \
- $(GDB_CFLAGS) $(OPCODES_CFLAGS) $(READLINE_CFLAGS) \
- $(BFD_CFLAGS) $(INCLUDE_CFLAGS) $(LIBDECNUMBER_CFLAGS) \
-- $(INTL_CFLAGS) $(INCGNU) $(ENABLE_CFLAGS) $(INTERNAL_CPPFLAGS)
-+ $(INTL_CFLAGS) $(INCGNU) $(ENABLE_CFLAGS) $(INTERNAL_CPPFLAGS) \
-+ $(LIBICONV_INCLUDE)
- INTERNAL_WARN_CFLAGS = $(INTERNAL_CFLAGS_BASE) $(GDB_WARN_CFLAGS)
- INTERNAL_CFLAGS = $(INTERNAL_WARN_CFLAGS) $(GDB_WERROR_CFLAGS)
-
-@@ -402,7 +434,7 @@ LDFLAGS = @LDFLAGS@
- # I think it's perfectly reasonable for a user to set -pg in CFLAGS
- # and have it work; that's why CFLAGS is here.
- # PROFILE_CFLAGS is _not_ included, however, because we use monstartup.
--INTERNAL_LDFLAGS = $(CFLAGS) $(GLOBAL_CFLAGS) $(MH_LDFLAGS) $(LDFLAGS) $(CONFIG_LDFLAGS)
-+INTERNAL_LDFLAGS = $(CFLAGS) $(GLOBAL_CFLAGS) $(MH_LDFLAGS) $(LDFLAGS) $(CONFIG_LDFLAGS) $(LIBICONV_LIBDIR)
-
- # If your system is missing alloca(), or, more likely, it's there but
- # it doesn't work, then refer to libiberty.
-@@ -663,6 +695,7 @@ SFILES = ada-exp.y ada-lang.c ada-typeprint.c ada-valprint.c ada-tasks.c \
- valarith.c valops.c valprint.c value.c varobj.c vec.c \
- wrapper.c \
- xml-tdesc.c xml-support.c \
-+ xml-syscall.c \
- inferior.c
-
- LINTFILES = $(SFILES) $(YYFILES) $(CONFIG_SRCS) init.c
-@@ -733,7 +766,8 @@ config/sparc/nm-sol2.h config/nm-linux.h config/mips/nm-irix5.h \
- config/rs6000/nm-rs6000.h top.h bsd-kvm.h gdb-stabs.h reggroups.h \
- annotate.h sim-regno.h dictionary.h dfp.h main.h frame-unwind.h \
- remote-fileio.h i386-linux-tdep.h vax-tdep.h objc-lang.h \
--sentinel-frame.h bcache.h symfile.h windows-tdep.h linux-tdep.h
-+sentinel-frame.h bcache.h symfile.h windows-tdep.h linux-tdep.h xml-syscall.h \
-+python/python.h python/python-internal.h
+Index: gdb-7.2.90.20110703/bfd/elf-bfd.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/bfd/elf-bfd.h 2011-03-14 16:54:57.000000000 +0100
++++ gdb-7.2.90.20110703/bfd/elf-bfd.h 2011-07-03 10:33:11.000000000 +0200
+@@ -1476,6 +1476,15 @@ enum
+ Tag_compatibility = 32
+ };
+
++/* The following struct stores information about every SystemTap section
++ found in the object file. */
++struct sdt_note
++{
++ struct sdt_note *next;
++ bfd_size_type size;
++ bfd_byte data[1];
++};
++
+ /* Some private data is stashed away for future use using the tdata pointer
+ in the bfd structure. */
+
+@@ -1633,6 +1642,11 @@ struct elf_obj_tdata
+ bfd_size_type build_id_size;
+ bfd_byte *build_id;
+
++ /* Linked-list containing information about every Systemtap section
++ found in the object file. Each section corresponds to one entry
++ in the list. */
++ struct sdt_note *sdt_note_head;
++
+ /* True if the bfd contains symbols that have the STT_GNU_IFUNC
+ symbol type. Used to set the osabi field in the ELF header
+ structure. */
+Index: gdb-7.2.90.20110703/bfd/elf.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/bfd/elf.c 2011-03-14 16:54:58.000000000 +0100
++++ gdb-7.2.90.20110703/bfd/elf.c 2011-07-03 10:33:11.000000000 +0200
+@@ -8416,6 +8416,37 @@ elfobj_grok_gnu_note (bfd *abfd, Elf_Int
+ }
+ }
+
++#define SDT_NOTE_TYPE 3
++
++static bfd_boolean
++elfobj_grok_stapsdt_note_1 (bfd *abfd, Elf_Internal_Note *note)
++{
++ struct sdt_note *cur =
++ (struct sdt_note *) bfd_alloc (abfd, sizeof (struct sdt_note)
++ + note->descsz);
++
++ cur->next = (struct sdt_note *) (elf_tdata (abfd))->sdt_note_head;
++ cur->size = (bfd_size_type) note->descsz;
++ memcpy (cur->data, note->descdata, note->descsz);
++
++ elf_tdata (abfd)->sdt_note_head = cur;
++
++ return TRUE;
++}
++
++static bfd_boolean
++elfobj_grok_stapsdt_note (bfd *abfd, Elf_Internal_Note *note)
++{
++ switch (note->type)
++ {
++ case SDT_NOTE_TYPE:
++ return elfobj_grok_stapsdt_note_1 (abfd, note);
++
++ default:
++ return TRUE;
++ }
++}
++
+ static bfd_boolean
+ elfcore_netbsd_get_lwpid (Elf_Internal_Note *note, int *lwpidp)
+ {
+@@ -9189,6 +9220,12 @@ elf_parse_notes (bfd *abfd, char *buf, s
+ if (! elfobj_grok_gnu_note (abfd, &in))
+ return FALSE;
+ }
++ else if (in.namesz == sizeof "stapsdt"
++ && strcmp (in.namedata, "stapsdt") == 0)
++ {
++ if (! elfobj_grok_stapsdt_note (abfd, &in))
++ return FALSE;
++ }
+ break;
+ }
+
+Index: gdb-7.2.90.20110703/gdb/Makefile.in
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/Makefile.in 2011-03-30 08:55:39.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/Makefile.in 2011-07-03 10:33:11.000000000 +0200
+@@ -721,8 +721,8 @@ SFILES = ada-exp.y ada-lang.c ada-typepr
+ sentinel-frame.c \
+ serial.c ser-base.c ser-unix.c \
+ solib.c solib-target.c source.c \
+- stabsread.c stack.c std-regs.c symfile.c symfile-mem.c symmisc.c \
+- symtab.c \
++ stabsread.c stack.c stap-probe.c std-regs.c \
++ symfile.c symfile-mem.c symmisc.c symtab.c \
+ target.c target-descriptions.c target-memory.c \
+ thread.c top.c tracepoint.c \
+ trad-frame.c \
+@@ -814,7 +814,7 @@ osdata.h procfs.h python/py-event.h pyth
+ python/python-internal.h python/python.h ravenscar-thread.h record.h \
+ solib-darwin.h solib-ia64-hpux.h solib-spu.h windows-nat.h xcoffread.h \
+ gnulib/extra/arg-nonnull.h gnulib/extra/c++defs.h gnulib/extra/warn-on-use.h \
+-gnulib/stddef.in.h inline-frame.h
++gnulib/stddef.in.h inline-frame.h stap-probe.h
# Header files that already have srcdir in them, or which are in objdir.
-@@ -812,10 +846,16 @@ COMMON_OBS = $(DEPFILES) $(CONFIG_OBS) $(YYOBJ) \
- trad-frame.o \
- tramp-frame.o \
- solib.o solib-null.o \
-- prologue-value.o memory-map.o xml-support.o \
-+ prologue-value.o memory-map.o xml-support.o xml-syscall.o \
+@@ -899,7 +899,7 @@ COMMON_OBS = $(DEPFILES) $(CONFIG_OBS) $
+ prologue-value.o memory-map.o memrange.o xml-support.o xml-syscall.o \
target-descriptions.o target-memory.o xml-tdesc.o xml-builtin.o \
- inferior.o osdata.o
+ inferior.o osdata.o gdb_usleep.o record.o gcore.o \
+- jit.o progspace.o
++ jit.o progspace.o stap-probe.o
-+# Definitions for the syscall's XML files and dir
-+XML_SYSCALLS_DIR = syscalls/
-+XML_SYSCALLS_FILES = gdb-syscalls.dtd \
-+ ppc-linux.xml ppc64-linux.xml \
-+ i386-linux.xml amd64-linux.xml
-+
TSOBS = inflow.o
- SUBDIRS = @subdirs@
-@@ -849,11 +889,38 @@ generated_files = config.h observer.h observer.inc ada-lex.c \
- $(COMPILE) $<
- $(POSTCOMPILE)
-
--all: gdb$(EXEEXT) $(CONFIG_ALL)
-+all: gdb$(EXEEXT) $(CONFIG_ALL) .gdbinit xml-syscall-copy
- @$(MAKE) $(FLAGS_TO_PASS) DO=all "DODIRS=`echo $(SUBDIRS) | sed 's/testsuite//'`" subdir_do
- .PHONY: all-tui
- all-tui: $(TUI)$(EXEEXT)
-
-+xml-syscall-copy:
-+ if [ "`cd $(srcdir) && pwd`" != "`pwd`" ] ; then \
-+ mkdir -p ./$(XML_SYSCALLS_DIR) ; \
-+ list='$(XML_SYSCALLS_FILES)' ; \
-+ for file in $$list ; do \
-+ f=$(srcdir)/$(XML_SYSCALLS_DIR)/$$file ; \
-+ if test -f $$f ; then \
-+ $(INSTALL_DATA) $$f \
-+ ./$(XML_SYSCALLS_DIR) ; \
-+ fi ; \
-+ done ; \
-+ fi ;
-+
-+# This target is responsible for properly installing the syscalls'
-+# XML files in the system.
-+xml-syscall-install:
-+ $(SHELL) $(srcdir)/../mkinstalldirs \
-+ $(DESTDIR)$(GDB_DATADIR_PATH)/$(XML_SYSCALLS_DIR) ; \
-+ list='$(XML_SYSCALLS_FILES)' ; \
-+ for file in $$list ; do \
-+ f=$(srcdir)/$(XML_SYSCALLS_DIR)/$$file ; \
-+ if test -f $$f ; then \
-+ $(INSTALL_DATA) $$f \
-+ $(DESTDIR)$(GDB_DATADIR_PATH)/$(XML_SYSCALLS_DIR) ; \
-+ fi ; \
-+ done ;
-+
- installcheck:
-
- # The check target can not use subdir_do, because subdir_do does not
-@@ -907,8 +974,11 @@ gdb.z:gdb.1
- # source file and doesn't care about rebuilding or just wants to save the
- # time it takes for make to check that all is up to date.
- # install-only is intended to address that need.
--install: all install-only
--install-only: $(CONFIG_INSTALL)
-+install: all install-only
-+
-+# The "install-only" target also installs the syscalls' XML files in
-+# the system.
-+install-only: $(CONFIG_INSTALL) xml-syscall-install
- transformed_name=`t='$(program_transform_name)'; \
- echo gdb | sed -e "$$t"` ; \
- if test "x$$transformed_name" = x; then \
-@@ -1202,6 +1272,12 @@ stamp-h: config.in config.status
+@@ -1320,6 +1320,12 @@ stamp-h: $(srcdir)/config.in config.stat
CONFIG_LINKS= \
$(SHELL) config.status
-+.gdbinit: gdbinit.in config.status
++.gdbinit: $(srcdir)/gdbinit.in config.status
+ CONFIG_FILES=".gdbinit:gdbinit.in" \
+ CONFIG_COMMANDS= \
+ CONFIG_HEADERS= \
+ $(SHELL) config.status
+
- config.status: configure configure.tgt configure.host
+ config.status: $(srcdir)/configure configure.tgt configure.host
$(SHELL) config.status --recheck
-@@ -1845,10 +1921,54 @@ python.o: $(srcdir)/python/python.c
- $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python.c
- $(POSTCOMPILE)
-
-+python-block.o: $(srcdir)/python/python-block.c
-+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-block.c
-+ $(POSTCOMPILE)
-+
-+python-breakpoint.o: $(srcdir)/python/python-breakpoint.c
-+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-breakpoint.c
-+ $(POSTCOMPILE)
-+
- python-cmd.o: $(srcdir)/python/python-cmd.c
- $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-cmd.c
- $(POSTCOMPILE)
-
-+python-frame.o: $(srcdir)/python/python-frame.c
-+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-frame.c
-+ $(POSTCOMPILE)
-+
-+python-function.o: $(srcdir)/python/python-function.c
-+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-function.c
-+ $(POSTCOMPILE)
-+
-+python-hooks.o: $(srcdir)/python/python-hooks.c
-+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-hooks.c
-+ $(POSTCOMPILE)
-+
-+python-membuf.o: $(srcdir)/python/python-membuf.c
-+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-membuf.c
-+ $(POSTCOMPILE)
-+
-+python-objfile.o: $(srcdir)/python/python-objfile.c
-+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-objfile.c
-+ $(POSTCOMPILE)
-+
-+python-param.o: $(srcdir)/python/python-param.c
-+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-param.c
-+ $(POSTCOMPILE)
-+
-+python-symbol.o: $(srcdir)/python/python-symbol.c
-+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-symbol.c
-+ $(POSTCOMPILE)
-+
-+python-symtab.o: $(srcdir)/python/python-symtab.c
-+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-symtab.c
-+ $(POSTCOMPILE)
-+
-+python-type.o: $(srcdir)/python/python-type.c
-+ $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-type.c
-+ $(POSTCOMPILE)
-+
- python-utils.o: $(srcdir)/python/python-utils.c
- $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-utils.c
- $(POSTCOMPILE)
-@@ -1857,6 +1977,38 @@ python-value.o: $(srcdir)/python/python-value.c
- $(COMPILE) $(PYTHON_CFLAGS) $(srcdir)/python/python-value.c
- $(POSTCOMPILE)
-
-+# All python library files, with the "python/lib" stripped off.
-+# Note that we should only install files in the "gdb" module.
-+PY_FILES = gdb/FrameIterator.py gdb/command/alias.py \
-+ gdb/command/backtrace.py gdb/command/require.py \
-+ gdb/command/pahole.py gdb/command/__init__.py \
-+ gdb/command/ignore_errors.py gdb/command/save_breakpoints.py \
-+ gdb/libstdcxx/v6/printers.py gdb/libstdcxx/v6/__init__.py \
-+ gdb/libstdcxx/__init__.py gdb/function/caller_is.py \
-+ gdb/function/in_scope.py gdb/function/__init__.py gdb/backtrace.py \
-+ gdb/__init__.py
-+
-+# Install the Python library. Python library files go under
-+# $(pythondir).
-+install-python:
-+ files='$(PY_FILES)'; for file in $$files; do \
-+ dir=`echo "$$file" | sed 's,/[^/]*$$,,'`; \
-+ $(SHELL) $(srcdir)/../mkinstalldirs $(DESTDIR)$(pythondir)/$$dir; \
-+ $(INSTALL_DATA) $(srcdir)/python/lib/$$file $(DESTDIR)$(pythondir)/$$file; \
-+ done
-+
-+# Other packages may have their files installed in $(pythondir).
-+uninstall-python:
-+ files='$(PY_FILES)'; for file in $$files; do \
-+ slashdir=`echo "/$$file" | sed 's,/[^/]*$$,,'`; \
-+ rm -f $(DESTDIR)$(pythondir)/$$file; \
-+ while test "x$$file" != "x$$slashdir"; do \
-+ rmdir 2>/dev/null "$(DESTDIR)$(pythondir)$$slashdir"; \
-+ file="$$slashdir"; \
-+ slashdir=`echo "$$file" | sed 's,/[^/]*$$,,'`; \
-+ done \
-+ done
-+
- #
- # Dependency tracking. Most of this is conditional on GNU Make being
- # found by configure; if GNU Make is not found, we fall back to a
-diff --git a/gdb/NEWS b/gdb/NEWS
-index 9078412..3f084e7 100644
---- a/gdb/NEWS
-+++ b/gdb/NEWS
-@@ -3,6 +3,13 @@
-
- *** Changes since GDB 6.8
-
-+* GDB now has support for multi-byte and wide character sets on the
-+target. Strings whose character type is wchar_t, char16_t, or
-+char32_t are now correctly printed. GDB supports wide- and unicode-
-+literals in C, that is, L'x', L"string", u'x', u"string", U'x', and
-+U"string" syntax. And, GDB allows the "%ls" and "%lc" formats in
-+`printf'.
-+
- * GDB now supports automatic retrieval of shared library files from
- remote targets. To use this feature, specify a system root that begins
- with the `remote:' prefix, either via the `set sysroot' command or via
-@@ -182,6 +189,11 @@ set target-async
- with GDB while the target is running. "show target-async" displays the
- current state of asynchronous execution of the target.
-
-+set target-wide-charset
-+show target-wide-charset
-+ The target-wide-charset is the name of the character set that GDB
-+ uses when printing characters whose type is wchar_t.
-+
- set tcp auto-retry (on|off)
- show tcp auto-retry
- set tcp connect-timeout
-diff --git a/gdb/acinclude.m4 b/gdb/acinclude.m4
-index 81b5d47..c2bd043 100644
---- a/gdb/acinclude.m4
-+++ b/gdb/acinclude.m4
-@@ -29,6 +29,9 @@ sinclude([../config/depstand.m4])
- dnl For AM_LC_MESSAGES
- sinclude([../config/lcmessage.m4])
-
-+dnl For AM_LANGINFO_CODESET.
-+sinclude([../config/codeset.m4])
-+
- #
- # Sometimes the native compiler is a bogus stub for gcc or /usr/ucb/cc. This
- # makes configure think it's cross compiling. If --target wasn't used, then
-@@ -174,8 +177,8 @@ AC_DEFUN([AM_ICONV],
- AC_ARG_WITH([libiconv-prefix],
- [ --with-libiconv-prefix=DIR search for libiconv in DIR/include and DIR/lib], [
- for dir in `echo "$withval" | tr : ' '`; do
-- if test -d $dir/include; then CPPFLAGS="$CPPFLAGS -I$dir/include"; fi
-- if test -d $dir/lib; then LDFLAGS="$LDFLAGS -L$dir/lib"; fi
-+ if test -d $dir/include; then LIBICONV_INCLUDE="-I$dir/include"; CPPFLAGS="$CPPFLAGS -I$dir/include"; fi
-+ if test -d $dir/lib; then LIBICONV_LIBDIR="-L$dir/lib"; LDFLAGS="$LDFLAGS -L$dir/lib"; fi
- done
- ])
-
-@@ -230,6 +233,8 @@ size_t iconv();
- LIBICONV="-liconv"
- fi
- AC_SUBST(LIBICONV)
-+ AC_SUBST(LIBICONV_INCLUDE)
-+ AC_SUBST(LIBICONV_LIBDIR)
- ])
-
- dnl written by Guido Draheim <guidod@gmx.de>, original by Alexandre Oliva
-diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
-index 671cb35..edcee3f 100644
---- a/gdb/ada-lang.c
-+++ b/gdb/ada-lang.c
-@@ -486,7 +486,7 @@ coerce_unspec_val_to_type (struct value *val, struct type *type)
- set_value_component_location (result, val);
- set_value_bitsize (result, value_bitsize (val));
- set_value_bitpos (result, value_bitpos (val));
-- VALUE_ADDRESS (result) += value_offset (val);
-+ set_value_address (result, value_address (val));
- if (value_lazy (val)
- || TYPE_LENGTH (type) > TYPE_LENGTH (value_type (val)))
- set_value_lazy (result, 1);
-@@ -1328,7 +1328,7 @@ thin_data_pntr (struct value *val)
- value_copy (val));
- else
- return value_from_longest (desc_data_type (thin_descriptor_type (type)),
-- VALUE_ADDRESS (val) + value_offset (val));
-+ value_address (val));
- }
+Index: gdb-7.2.90.20110703/gdb/NEWS
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/NEWS 2011-03-31 16:32:48.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/NEWS 2011-07-03 10:33:11.000000000 +0200
+@@ -36,6 +36,10 @@
+ Initial support for the OpenCL C language (http://www.khronos.org/opencl)
+ has been integrated into GDB.
- /* True iff TYPE indicates a "thick" array pointer type. */
-@@ -1393,7 +1393,7 @@ desc_bounds (struct value *arr)
- if (TYPE_CODE (type) == TYPE_CODE_PTR)
- addr = value_as_long (arr);
- else
-- addr = VALUE_ADDRESS (arr) + value_offset (arr);
-+ addr = value_address (arr);
-
- return
- value_from_longest (lookup_pointer_type (bounds_type),
-@@ -1666,8 +1666,8 @@ ada_type_of_array (struct value *arr, int bounds)
- return NULL;
- while (arity > 0)
- {
-- struct type *range_type = alloc_type (objf);
-- struct type *array_type = alloc_type (objf);
-+ struct type *range_type = alloc_type (objf, NULL);
-+ struct type *array_type = alloc_type (objf, NULL);
- struct value *low = desc_one_bound (descriptor, arity, 0);
- struct value *high = desc_one_bound (descriptor, arity, 1);
- arity -= 1;
-@@ -1774,9 +1774,9 @@ packed_array_type (struct type *type, long *elt_bits)
- if (TYPE_CODE (type) != TYPE_CODE_ARRAY)
- return type;
++* GDB now has support for SystemTap <sys/sdt.h> probes. You can set a
++ breakpoint using the new "probe:" linespec and inspect the probe
++ arguments using the new $_probe_arg family of convenience variables.
++
+ * Python scripting
-- new_type = alloc_type (TYPE_OBJFILE (type));
- new_elt_type = packed_array_type (ada_check_typedef (TYPE_TARGET_TYPE (type)),
- elt_bits);
-+ new_type = alloc_type (TYPE_OBJFILE (type), new_elt_type);
- create_array_type (new_type, new_elt_type, TYPE_INDEX_TYPE (type));
- TYPE_FIELD_BITSIZE (new_type, 0) = *elt_bits;
- TYPE_NAME (new_type) = ada_type_name (type);
-@@ -1831,6 +1831,7 @@ decode_packed_array_type (struct type *type)
- return NULL;
- }
- shadow_type = SYMBOL_TYPE (sym);
-+ CHECK_TYPEDEF (shadow_type);
+ ** The function gdb.Write now accepts an optional keyword 'stream'.
+Index: gdb-7.2.90.20110703/gdb/ada-lang.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/ada-lang.c 2011-05-17 23:26:08.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/ada-lang.c 2011-07-03 10:33:11.000000000 +0200
+@@ -11421,6 +11421,7 @@ ada_operator_length (const struct expres
- if (TYPE_CODE (shadow_type) != TYPE_CODE_ARRAY)
- {
-@@ -2005,10 +2006,9 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
- }
- else if (VALUE_LVAL (obj) == lval_memory && value_lazy (obj))
- {
-- v = value_at (type,
-- VALUE_ADDRESS (obj) + value_offset (obj) + offset);
-+ v = value_at (type, value_address (obj) + offset);
- bytes = (unsigned char *) alloca (len);
-- read_memory (VALUE_ADDRESS (v), bytes, len);
-+ read_memory (value_address (v), bytes, len);
- }
- else
- {
-@@ -2018,15 +2018,18 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
+ static int
+ ada_operator_check (struct expression *exp, int pos,
++ int (*type_func) (struct type *type, void *data),
+ int (*objfile_func) (struct objfile *objfile, void *data),
+ void *data)
+ {
+@@ -11435,12 +11436,15 @@ ada_operator_check (struct expression *e
+ break;
- if (obj != NULL)
- {
-+ CORE_ADDR new_addr;
-+
- set_value_component_location (v, obj);
-- VALUE_ADDRESS (v) += value_offset (obj) + offset;
-+ new_addr = value_address (obj) + offset;
- set_value_bitpos (v, bit_offset + value_bitpos (obj));
- set_value_bitsize (v, bit_size);
- if (value_bitpos (v) >= HOST_CHAR_BIT)
- {
-- VALUE_ADDRESS (v) += 1;
-+ new_addr++;
- set_value_bitpos (v, value_bitpos (v) - HOST_CHAR_BIT);
- }
-+ set_value_address (v, new_addr);
+ default:
+- return operator_check_standard (exp, pos, objfile_func, data);
++ return operator_check_standard (exp, pos, type_func, objfile_func,
++ data);
}
- else
- set_value_bitsize (v, bit_size);
-@@ -2218,7 +2221,7 @@ ada_value_assign (struct value *toval, struct value *fromval)
- int from_size;
- char *buffer = (char *) alloca (len);
- struct value *val;
-- CORE_ADDR to_addr = VALUE_ADDRESS (toval) + value_offset (toval);
-+ CORE_ADDR to_addr = value_address (toval);
-
- if (TYPE_CODE (type) == TYPE_CODE_FLT)
- fromval = value_cast (type, fromval);
-@@ -2259,8 +2262,7 @@ value_assign_to_component (struct value *container, struct value *component,
- struct value *val)
- {
- LONGEST offset_in_container =
-- (LONGEST) (VALUE_ADDRESS (component) + value_offset (component)
-- - VALUE_ADDRESS (container) - value_offset (container));
-+ (LONGEST) (value_address (component) - value_address (container));
- int bit_offset_in_container =
- value_bitpos (component) - value_bitpos (container);
- int bits;
-@@ -3788,7 +3790,7 @@ parse_old_style_renaming (struct type *type,
- /* Return an lvalue containing the value VAL. This is the identity on
- lvalues, and otherwise has the side-effect of pushing a copy of VAL
- on the stack, using and updating *SP as the stack pointer, and
-- returning an lvalue whose VALUE_ADDRESS points to the copy. */
-+ returning an lvalue whose value_address points to the copy. */
- static struct value *
- ensure_lval (struct value *val, CORE_ADDR *sp)
-@@ -3802,12 +3804,12 @@ ensure_lval (struct value *val, CORE_ADDR *sp)
- indicated. */
- if (gdbarch_inner_than (current_gdbarch, 1, 2))
- {
-- /* Stack grows downward. Align SP and VALUE_ADDRESS (val) after
-+ /* Stack grows downward. Align SP and value_address (val) after
- reserving sufficient space. */
- *sp -= len;
- if (gdbarch_frame_align_p (current_gdbarch))
- *sp = gdbarch_frame_align (current_gdbarch, *sp);
-- VALUE_ADDRESS (val) = *sp;
-+ set_value_address (val, *sp);
- }
- else
- {
-@@ -3815,14 +3817,14 @@ ensure_lval (struct value *val, CORE_ADDR *sp)
- then again, re-align the frame. */
- if (gdbarch_frame_align_p (current_gdbarch))
- *sp = gdbarch_frame_align (current_gdbarch, *sp);
-- VALUE_ADDRESS (val) = *sp;
-+ set_value_address (val, *sp);
- *sp += len;
- if (gdbarch_frame_align_p (current_gdbarch))
- *sp = gdbarch_frame_align (current_gdbarch, *sp);
- }
- VALUE_LVAL (val) = lval_memory;
+ /* Invoke callbacks for TYPE and OBJFILE if they were set as non-NULL. */
-- write_memory (VALUE_ADDRESS (val), value_contents_raw (val), len);
-+ write_memory (value_address (val), value_contents_raw (val), len);
- }
+- if (type && TYPE_OBJFILE (type)
++ if (type && type_func && (*type_func) (type, data))
++ return 1;
++ if (type && TYPE_OBJFILE (type) && objfile_func
+ && (*objfile_func) (TYPE_OBJFILE (type), data))
+ return 1;
- return val;
-@@ -3911,12 +3913,12 @@ make_array_descriptor (struct type *type, struct value *arr, CORE_ADDR *sp)
- bounds = ensure_lval (bounds, sp);
-
- modify_general_field (value_contents_writeable (descriptor),
-- VALUE_ADDRESS (ensure_lval (arr, sp)),
-+ value_address (ensure_lval (arr, sp)),
- fat_pntr_data_bitpos (desc_type),
- fat_pntr_data_bitsize (desc_type));
-
- modify_general_field (value_contents_writeable (descriptor),
-- VALUE_ADDRESS (bounds),
-+ value_address (bounds),
- fat_pntr_bounds_bitpos (desc_type),
- fat_pntr_bounds_bitsize (desc_type));
-
-@@ -6790,7 +6792,7 @@ variant_field_index (struct type *type)
- static struct type *
- empty_record (struct objfile *objfile)
- {
-- struct type *type = alloc_type (objfile);
-+ struct type *type = alloc_type (objfile, NULL);
- TYPE_CODE (type) = TYPE_CODE_STRUCT;
- TYPE_NFIELDS (type) = 0;
- TYPE_FIELDS (type) = NULL;
-@@ -6847,7 +6849,7 @@ ada_template_to_fixed_record_type_1 (struct type *type,
- nfields++;
- }
+Index: gdb-7.2.90.20110703/gdb/amd64-linux-nat.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/amd64-linux-nat.c 2011-01-07 20:36:15.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/amd64-linux-nat.c 2011-07-03 10:33:11.000000000 +0200
+@@ -265,18 +265,11 @@ amd64_linux_store_inferior_registers (st
+ \f
+ /* Support for debug registers. */
-- rtype = alloc_type (TYPE_OBJFILE (type));
-+ rtype = alloc_type (TYPE_OBJFILE (type), NULL);
- TYPE_CODE (rtype) = TYPE_CODE_STRUCT;
- INIT_CPLUS_SPECIFIC (rtype);
- TYPE_NFIELDS (rtype) = nfields;
-@@ -7034,7 +7036,8 @@ template_to_static_fixed_type (struct type *type0)
- new_type = static_unwrap_type (field_type);
- if (type == type0 && new_type != field_type)
- {
-- TYPE_TARGET_TYPE (type0) = type = alloc_type (TYPE_OBJFILE (type0));
-+ TYPE_TARGET_TYPE (type0) = type = alloc_type (TYPE_OBJFILE (type0),
-+ NULL);
- TYPE_CODE (type) = TYPE_CODE (type0);
- INIT_CPLUS_SPECIFIC (type);
- TYPE_NFIELDS (type) = nfields;
-@@ -7079,7 +7082,7 @@ to_record_with_fixed_variant_part (struct type *type, const gdb_byte *valaddr,
- else
- dval = dval0;
-
-- rtype = alloc_type (TYPE_OBJFILE (type));
-+ rtype = alloc_type (TYPE_OBJFILE (type), NULL);
- TYPE_CODE (rtype) = TYPE_CODE_STRUCT;
- INIT_CPLUS_SPECIFIC (rtype);
- TYPE_NFIELDS (rtype) = nfields;
-@@ -7251,7 +7254,7 @@ to_fixed_array_type (struct type *type0, struct value *dval,
- if (elt_type0 == elt_type)
- result = type0;
- else
-- result = create_array_type (alloc_type (TYPE_OBJFILE (type0)),
-+ result = create_array_type (alloc_type (TYPE_OBJFILE (type0), NULL),
- elt_type, TYPE_INDEX_TYPE (type0));
- }
- else
-@@ -7281,7 +7284,7 @@ to_fixed_array_type (struct type *type0, struct value *dval,
- struct type *range_type =
- to_fixed_range_type (TYPE_FIELD_NAME (index_type_desc, i),
- dval, TYPE_OBJFILE (type0));
-- result = create_array_type (alloc_type (TYPE_OBJFILE (type0)),
-+ result = create_array_type (alloc_type (TYPE_OBJFILE (type0), NULL),
- result, range_type);
- }
- if (!ignore_too_big && TYPE_LENGTH (result) > varsize_limit)
-@@ -7523,7 +7526,7 @@ static struct value *
- ada_to_fixed_value (struct value *val)
+-static unsigned long amd64_linux_dr[DR_CONTROL + 1];
+-
+ static unsigned long
+-amd64_linux_dr_get (ptid_t ptid, int regnum)
++amd64_linux_dr_get (int tid, int regnum)
{
- return ada_to_fixed_value_create (value_type (val),
-- VALUE_ADDRESS (val) + value_offset (val),
-+ value_address (val),
- val);
- }
+- int tid;
+ unsigned long value;
-@@ -7869,7 +7872,7 @@ unwrap_value (struct value *val)
- return
- coerce_unspec_val_to_type
- (val, ada_to_fixed_type (raw_real_type, 0,
-- VALUE_ADDRESS (val) + value_offset (val),
-+ value_address (val),
- NULL, 1));
- }
- }
-@@ -9546,7 +9549,7 @@ to_fixed_range_type (char *name, struct value *dval, struct objfile *objfile)
- if (L < INT_MIN || U > INT_MAX)
- return raw_type;
- else
-- return create_range_type (alloc_type (objfile), raw_type,
-+ return create_range_type (alloc_type (objfile, NULL), raw_type,
- discrete_type_low_bound (raw_type),
- discrete_type_high_bound (raw_type));
- }
-@@ -9611,7 +9614,7 @@ to_fixed_range_type (char *name, struct value *dval, struct objfile *objfile)
-
- if (objfile == NULL)
- objfile = TYPE_OBJFILE (base_type);
-- type = create_range_type (alloc_type (objfile), base_type, L, U);
-+ type = create_range_type (alloc_type (objfile, NULL), base_type, L, U);
- TYPE_NAME (type) = name;
- return type;
- }
-@@ -11009,9 +11012,9 @@ ada_language_arch_info (struct gdbarch *gdbarch,
- /* Not really used, but needed in the ada_language_defn. */
+- tid = TIDGET (ptid);
+- if (tid == 0)
+- tid = PIDGET (ptid);
+-
+ /* FIXME: kettenis/2001-03-27: Calling perror_with_name if the
+ ptrace call fails breaks debugging remote targets. The correct
+ way to fix this is to add the hardware breakpoint and watchpoint
+@@ -298,14 +291,8 @@ amd64_linux_dr_get (ptid_t ptid, int reg
+ /* Set debug register REGNUM to VALUE in only the one LWP of PTID. */
static void
--emit_char (int c, struct ui_file *stream, int quoter)
-+emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
+-amd64_linux_dr_set (ptid_t ptid, int regnum, unsigned long value)
++amd64_linux_dr_set (int tid, int regnum, unsigned long value)
{
-- ada_emit_char (c, stream, quoter, 1);
-+ ada_emit_char (c, type, stream, quoter, 1);
+- int tid;
+-
+- tid = TIDGET (ptid);
+- if (tid == 0)
+- tid = PIDGET (ptid);
+-
+ errno = 0;
+ ptrace (PTRACE_POKEUSER, tid,
+ offsetof (struct user, u_debugreg[regnum]), value);
+@@ -313,35 +300,96 @@ amd64_linux_dr_set (ptid_t ptid, int reg
+ perror_with_name (_("Couldn't write debug register"));
}
- static int
-diff --git a/gdb/ada-lang.h b/gdb/ada-lang.h
-index c7cc62a..fac027b 100644
---- a/gdb/ada-lang.h
-+++ b/gdb/ada-lang.h
-@@ -257,12 +257,12 @@ extern int ada_value_print (struct value *, struct ui_file *,
-
- /* Defined in ada-lang.c */
-
--extern void ada_emit_char (int, struct ui_file *, int, int);
-+extern void ada_emit_char (int, struct type *, struct ui_file *, int, int);
-
--extern void ada_printchar (int, struct ui_file *);
-+extern void ada_printchar (int, struct type *, struct ui_file *);
-
--extern void ada_printstr (struct ui_file *, const gdb_byte *,
-- unsigned int, int, int,
-+extern void ada_printstr (struct ui_file *, struct type *, const gdb_byte *,
-+ unsigned int, int,
- const struct value_print_options *);
-
- struct value *ada_convert_actual (struct value *actual,
-diff --git a/gdb/ada-tasks.c b/gdb/ada-tasks.c
-index 61ed06e..8b1639e 100644
---- a/gdb/ada-tasks.c
-+++ b/gdb/ada-tasks.c
-@@ -293,7 +293,7 @@ read_fat_string_value (char *dest, struct value *val, int max_len)
-
- /* Extract LEN characters from the fat string. */
- array_val = value_ind (value_field (val, array_fieldno));
-- read_memory (VALUE_ADDRESS (array_val), dest, len);
-+ read_memory (value_address (array_val), dest, len);
-
- /* Add the NUL character to close the string. */
- dest[len] = '\0';
-diff --git a/gdb/ada-typeprint.c b/gdb/ada-typeprint.c
-index f00824a..ef665c4 100644
---- a/gdb/ada-typeprint.c
-+++ b/gdb/ada-typeprint.c
-@@ -357,16 +357,17 @@ print_array_type (struct type *type, struct ui_file *stream, int show,
- bitsize = 0;
- fprintf_filtered (stream, "array (");
+-/* Set DR_CONTROL to ADDR in all LWPs of LWP_LIST. */
++/* Helper for amd64_linux_dr_set_control. */
++
++static void
++amd64_linux_dr_set_control_callback (int tid, void *control_voidp)
++{
++ unsigned long control = *(unsigned long *) control_voidp;
++
++ amd64_linux_dr_set (tid, DR_CONTROL, control);
++}
++
++static void amd64_linux_dr_set_addr (int regnum, CORE_ADDR addr);
++
++/* Set DR_CONTROL to ADDR in all LWPs of CURRENT_INFERIOR. */
-+ if (type == NULL)
+ static void
+ amd64_linux_dr_set_control (unsigned long control)
+ {
+- struct lwp_info *lp;
+- ptid_t ptid;
++ int inferior_pid = ptid_get_pid (inferior_ptid);
++ struct inferior *inf = current_inferior ();
++
++ /* Are we detaching breakpoints from a fork-ed child?
++ See linux_nat_iterate_watchpoint_lwps for the fork-ed child description.
++ The i386 counterpart is i386_linux_dr_set_control. */
++ if (inf->pid != inferior_pid)
+ {
-+ fprintf_filtered (stream, _("<undecipherable array type>"));
-+ return;
++ struct i386_dr_mirror *dr_mirror = i386_dr_mirror_get ();
++ int i;
++
++ /* There were two changes in Linux kernel 2.6.33 by the commit:
++ 72f674d203cd230426437cdcf7dd6f681dad8b0d
++
++ (1) After fork/vfork/clone the new task no longer inherits the debug
++ registers. It has them zeroed instead. Either case is OK for GDB as
++ GDB already registers a fix up by linux_nat_set_new_thread.
++
++ (2) If you enable a breakpoint by the CONTROL bits you have already
++ written its ADDRESS. Otherwise Linux kernel will report EINVAL.
++ For this case the workaround here ensures that during resetting
++ (detaching) watchpoints for a fork-ed child we can set CONTROL
++ arbitrarily as the addresses get pre-set here just to be sure.
++
++ The second issue is hopefully going to be fixed in Linux kernel:
++ https://bugzilla.redhat.com/show_bug.cgi?id=660204 */
++
++ if (!dr_mirror->addr_preset)
++ {
++ dr_mirror->addr_preset = 1;
++
++ for (i = 0; i < DR_LASTADDR - DR_FIRSTADDR; i++)
++ amd64_linux_dr_set_addr (i, dr_mirror->addr[i]);
++ }
+ }
+
- n_indices = -1;
- if (show < 0)
- fprintf_filtered (stream, "...");
- else
- {
-- if (type == NULL)
-- {
-- fprintf_filtered (stream, _("<undecipherable array type>"));
-- return;
-- }
- if (ada_is_simple_array_type (type))
- {
- struct type *range_desc_type =
-diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c
-index 9647971..cfa94a2 100644
---- a/gdb/ada-valprint.c
-+++ b/gdb/ada-valprint.c
-@@ -269,7 +269,8 @@ printable_val_type (struct type *type, const gdb_byte *valaddr)
- (1 or 2) of the character. */
++ linux_nat_iterate_watchpoint_lwps (amd64_linux_dr_set_control_callback,
++ &control);
++}
++
++/* Helper for amd64_linux_dr_set_addr. */
++
++struct amd64_linux_dr_set_addr_data
++ {
++ int regnum;
++ CORE_ADDR addr;
++ };
++
++static void
++amd64_linux_dr_set_addr_callback (int tid, void *datap_voidp)
++{
++ const struct amd64_linux_dr_set_addr_data *datap = datap_voidp;
- void
--ada_emit_char (int c, struct ui_file *stream, int quoter, int type_len)
-+ada_emit_char (int c, struct type *type, struct ui_file *stream,
-+ int quoter, int type_len)
- {
- if (type_len != 2)
- type_len = 1;
-@@ -366,10 +367,10 @@ ada_print_floating (const gdb_byte *valaddr, struct type *type,
+- amd64_linux_dr[DR_CONTROL] = control;
+- ALL_LWPS (lp, ptid)
+- amd64_linux_dr_set (ptid, DR_CONTROL, control);
++ amd64_linux_dr_set (tid, DR_FIRSTADDR + datap->regnum, datap->addr);
}
- void
--ada_printchar (int c, struct ui_file *stream)
-+ada_printchar (int c, struct type *type, struct ui_file *stream)
+-/* Set address REGNUM (zero based) to ADDR in all LWPs of LWP_LIST. */
++/* Set address REGNUM (zero based) to ADDR in all LWPs of CURRENT_INFERIOR.
++ */
+
+ static void
+ amd64_linux_dr_set_addr (int regnum, CORE_ADDR addr)
{
- fputs_filtered ("'", stream);
-- ada_emit_char (c, stream, '\'', 1);
-+ ada_emit_char (c, type, stream, '\'', 1);
- fputs_filtered ("'", stream);
- }
+- struct lwp_info *lp;
+- ptid_t ptid;
++ struct amd64_linux_dr_set_addr_data data;
-@@ -411,7 +412,7 @@ ada_print_scalar (struct type *type, LONGEST val, struct ui_file *stream)
- break;
+ gdb_assert (regnum >= 0 && regnum <= DR_LASTADDR - DR_FIRSTADDR);
- case TYPE_CODE_CHAR:
-- LA_PRINT_CHAR ((unsigned char) val, stream);
-+ LA_PRINT_CHAR ((unsigned char) val, type, stream);
- break;
+- amd64_linux_dr[DR_FIRSTADDR + regnum] = addr;
+- ALL_LWPS (lp, ptid)
+- amd64_linux_dr_set (ptid, DR_FIRSTADDR + regnum, addr);
++ data.regnum = regnum;
++ data.addr = addr;
++ linux_nat_iterate_watchpoint_lwps (amd64_linux_dr_set_addr_callback, &data);
+ }
- case TYPE_CODE_BOOL:
-@@ -454,7 +455,7 @@ ada_print_scalar (struct type *type, LONGEST val, struct ui_file *stream)
- */
+-/* Set address REGNUM (zero based) to zero in all LWPs of LWP_LIST. */
++/* Set address REGNUM (zero based) to zero in all LWPs of CURRENT_INFERIOR.
++ */
static void
--printstr (struct ui_file *stream, const gdb_byte *string,
-+printstr (struct ui_file *stream, struct type *elttype, const gdb_byte *string,
- unsigned int length, int force_ellipses, int type_len,
- const struct value_print_options *options)
+ amd64_linux_dr_reset_addr (int regnum)
+@@ -354,37 +402,54 @@ amd64_linux_dr_reset_addr (int regnum)
+ static unsigned long
+ amd64_linux_dr_get_status (void)
{
-@@ -506,7 +507,7 @@ printstr (struct ui_file *stream, const gdb_byte *string,
- in_quotes = 0;
- }
- fputs_filtered ("'", stream);
-- ada_emit_char (char_at (string, i, type_len), stream, '\'',
-+ ada_emit_char (char_at (string, i, type_len), elttype, stream, '\'',
- type_len);
- fputs_filtered ("'", stream);
- fprintf_filtered (stream, _(" <repeats %u times>"), reps);
-@@ -524,7 +525,7 @@ printstr (struct ui_file *stream, const gdb_byte *string,
- fputs_filtered ("\"", stream);
- in_quotes = 1;
- }
-- ada_emit_char (char_at (string, i, type_len), stream, '"',
-+ ada_emit_char (char_at (string, i, type_len), elttype, stream, '"',
- type_len);
- things_printed += 1;
- }
-@@ -544,11 +545,12 @@ printstr (struct ui_file *stream, const gdb_byte *string,
+- return amd64_linux_dr_get (inferior_ptid, DR_STATUS);
++ int tid;
++
++ tid = TIDGET (inferior_ptid);
++ if (tid == 0)
++ tid = PIDGET (inferior_ptid);
++
++ return amd64_linux_dr_get (tid, DR_STATUS);
}
- void
--ada_printstr (struct ui_file *stream, const gdb_byte *string,
-- unsigned int length, int width, int force_ellipses,
-+ada_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
-+ unsigned int length, int force_ellipses,
- const struct value_print_options *options)
+-/* Unset MASK bits in DR_STATUS in all LWPs of LWP_LIST. */
++/* Helper for amd64_linux_dr_unset_status. */
+
+ static void
+-amd64_linux_dr_unset_status (unsigned long mask)
++amd64_linux_dr_unset_status_callback (int tid, void *mask_voidp)
{
-- printstr (stream, string, length, force_ellipses, width, options);
-+ printstr (stream, type, string, length, force_ellipses, TYPE_LENGTH (type),
-+ options);
+- struct lwp_info *lp;
+- ptid_t ptid;
+-
+- ALL_LWPS (lp, ptid)
+- {
+- unsigned long value;
++ unsigned long mask = *(unsigned long *) mask_voidp;
++ unsigned long value;
+
+- value = amd64_linux_dr_get (ptid, DR_STATUS);
+- value &= ~mask;
+- amd64_linux_dr_set (ptid, DR_STATUS, value);
+- }
++ value = amd64_linux_dr_get (tid, DR_STATUS);
++ value &= ~mask;
++ amd64_linux_dr_set (tid, DR_STATUS, value);
}
++/* Unset MASK bits in DR_STATUS in all LWPs of CURRENT_INFERIOR. */
++
++static void
++amd64_linux_dr_unset_status (unsigned long mask)
++{
++ linux_nat_iterate_watchpoint_lwps (amd64_linux_dr_unset_status_callback,
++ &mask);
++}
-@@ -637,7 +639,7 @@ ada_val_print_array (struct type *type, const gdb_byte *valaddr,
- len = temp_len;
- }
-
-- printstr (stream, valaddr, len, 0, eltlen, options);
-+ printstr (stream, elttype, valaddr, len, 0, eltlen, options);
- result = len;
- }
- else
-@@ -688,7 +690,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0,
- }
- else
- retn = ada_val_print_1 (value_type (val), value_contents (val), 0,
-- VALUE_ADDRESS (val), stream, recurse, options);
-+ value_address (val), stream, recurse, options);
- value_free_to_mark (mark);
- return retn;
- }
-@@ -817,7 +819,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0,
- {
- fputs_filtered (" ", stream);
- ada_printchar ((unsigned char) unpack_long (type, valaddr),
-- stream);
-+ type, stream);
- }
- }
- return 0;
-@@ -904,7 +906,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0,
- deref_val_int));
- val_print (value_type (deref_val),
- value_contents (deref_val), 0,
-- VALUE_ADDRESS (deref_val), stream, recurse + 1,
-+ value_address (deref_val), stream, recurse + 1,
- options, current_language);
- }
- else
-@@ -944,7 +946,7 @@ ada_value_print (struct value *val0, struct ui_file *stream,
- const struct value_print_options *options)
+ static void
+ amd64_linux_new_thread (ptid_t ptid)
{
- const gdb_byte *valaddr = value_contents (val0);
-- CORE_ADDR address = VALUE_ADDRESS (val0) + value_offset (val0);
-+ CORE_ADDR address = value_address (val0);
- struct type *type =
- ada_to_fixed_type (value_type (val0), valaddr, address, NULL, 1);
- struct value *val =
-diff --git a/gdb/auxv.c b/gdb/auxv.c
-index 5007cd0..241a6ac 100644
---- a/gdb/auxv.c
-+++ b/gdb/auxv.c
-@@ -247,7 +247,8 @@ fprint_target_auxv (struct ui_file *file, struct target_ops *ops)
- get_user_print_options (&opts);
- if (opts.addressprint)
- fprintf_filtered (file, "0x%s", paddr_nz (val));
-- val_print_string (val, -1, 1, file, &opts);
-+ val_print_string (builtin_type (target_gdbarch)->builtin_char,
-+ val, -1, file, &opts);
- fprintf_filtered (file, "\n");
- }
- break;
-diff --git a/gdb/block.c b/gdb/block.c
-index 8f0140c..d451769 100644
---- a/gdb/block.c
-+++ b/gdb/block.c
-@@ -207,24 +207,16 @@ block_set_scope (struct block *block, const char *scope,
- }
+- int i;
++ struct i386_dr_mirror *dr_mirror = i386_dr_mirror_get ();
++ int i, tid;
++
++ /* Verify DR_MIRROR is valid. */
++ gdb_assert (PIDGET (ptid) == PIDGET (inferior_ptid));
++
++ tid = TIDGET (ptid);
++ if (tid == 0)
++ tid = PIDGET (ptid);
- /* This returns the first using directives associated to BLOCK, if
-- any. */
--
--/* FIXME: carlton/2003-04-23: This uses the fact that we currently
-- only have using directives in static blocks, because we only
-- generate using directives from anonymous namespaces. Eventually,
-- when we support using directives everywhere, we'll want to replace
-- this by some iterator functions. */
-+ any. Each BLOCK_NAMESPACE()->USING already contains all the namespaces
-+ imported at that code point - even those from its parent blocks. */
-
- struct using_direct *
- block_using (const struct block *block)
- {
-- const struct block *static_block = block_static_block (block);
--
-- if (static_block == NULL
-- || BLOCK_NAMESPACE (static_block) == NULL)
-+ if (block == NULL || BLOCK_NAMESPACE (block) == NULL)
- return NULL;
- else
-- return BLOCK_NAMESPACE (static_block)->using;
-+ return BLOCK_NAMESPACE (block)->using;
+- for (i = DR_FIRSTADDR; i <= DR_LASTADDR; i++)
+- amd64_linux_dr_set (ptid, i, amd64_linux_dr[i]);
++ for (i = 0; i < DR_LASTADDR - DR_FIRSTADDR; i++)
++ amd64_linux_dr_set (tid, DR_FIRSTADDR + i, dr_mirror->addr[i]);
+
+- amd64_linux_dr_set (ptid, DR_CONTROL, amd64_linux_dr[DR_CONTROL]);
++ amd64_linux_dr_set (tid, DR_CONTROL, dr_mirror->control);
}
+ \f
- /* Set BLOCK's using member to USING; if needed, allocate memory via
-diff --git a/gdb/breakpoint.c b/gdb/breakpoint.c
-index b23b294..531c43d 100644
---- a/gdb/breakpoint.c
-+++ b/gdb/breakpoint.c
-@@ -191,6 +191,8 @@ static int is_hardware_watchpoint (struct breakpoint *bpt);
+Index: gdb-7.2.90.20110703/gdb/ax-gdb.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/ax-gdb.c 2011-02-24 08:39:47.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/ax-gdb.c 2011-07-03 10:33:11.000000000 +0200
+@@ -2001,7 +2001,8 @@ gen_expr (struct expression *exp, union
- static void insert_breakpoint_locations (void);
+ case OP_INTERNALVAR:
+ {
+- const char *name = internalvar_name ((*pc)[1].internalvar);
++ struct internalvar *var = (*pc)[1].internalvar;
++ const char *name = internalvar_name (var);
+ struct trace_state_variable *tsv;
+
+ (*pc) += 3;
+@@ -2015,7 +2016,7 @@ gen_expr (struct expression *exp, union
+ value->kind = axs_rvalue;
+ value->type = builtin_type (exp->gdbarch)->builtin_long_long;
+ }
+- else
++ else if (! compile_internalvar_to_ax (var, ax, value))
+ error (_("$%s is not a trace state variable; GDB agent "
+ "expressions cannot use convenience variables."), name);
+ }
+Index: gdb-7.2.90.20110703/gdb/block.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/block.c 2011-01-01 16:32:57.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/block.c 2011-07-03 10:33:11.000000000 +0200
+@@ -322,3 +322,21 @@ allocate_block (struct obstack *obstack)
-+static int syscall_catchpoint_p (struct breakpoint *b);
-+
- static const char *
- bpdisp_text (enum bpdisp disp)
- {
-@@ -341,6 +343,18 @@ set_breakpoint_count (int num)
- value_from_longest (builtin_type_int32, (LONGEST) num));
+ return bl;
}
-
-+/* Used in run_command to reset syscall catchpoints fields. */
+
-+void
-+clear_syscall_catchpoints_info (void)
++/* Return OBJFILE in which BLOCK is located or NULL if we cannot find it for
++ whatever reason. */
++
++struct objfile *
++block_objfile (const struct block *block)
+{
-+ struct breakpoint *b;
++ struct symbol *func;
+
-+ ALL_BREAKPOINTS (b)
-+ if (syscall_catchpoint_p (b))
-+ b->syscall_number = UNKNOWN_SYSCALL;
++ if (block == NULL)
++ return NULL;
++
++ func = block_linkage_function (block);
++ if (func == NULL)
++ return NULL;
++
++ return SYMBOL_SYMTAB (func)->objfile;
+}
+Index: gdb-7.2.90.20110703/gdb/block.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/block.h 2011-01-01 16:32:57.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/block.h 2011-07-03 10:33:11.000000000 +0200
+@@ -167,4 +167,6 @@ extern const struct block *block_global_
+
+ extern struct block *allocate_block (struct obstack *obstack);
+
++extern struct objfile *block_objfile (const struct block *block);
+
- /* Used in run_command to zero the hit count when a new run starts. */
+ #endif /* BLOCK_H */
+Index: gdb-7.2.90.20110703/gdb/breakpoint.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/breakpoint.c 2011-07-02 21:33:09.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/breakpoint.c 2011-07-03 10:35:09.000000000 +0200
+@@ -63,6 +63,8 @@
+ #include "jit.h"
+ #include "xml-syscall.h"
+ #include "parser-defs.h"
++#include "gdb_regex.h"
++#include "stap-probe.h"
+ #include "cli/cli-utils.h"
- void
-@@ -523,6 +537,53 @@ get_number_or_range (char **pp)
+ /* readline include files */
+@@ -107,6 +109,9 @@ static void break_command_1 (char *, int
+ static void mention (struct breakpoint *);
- \f
-+/* Set break condition of breakpoint B to EXP. */
++static struct bp_location *add_location_to_breakpoint (struct breakpoint *b,
++ const struct symtab_and_line *sal);
++
+ /* This function is used in gdbtk sources and thus can not be made
+ static. */
+ struct breakpoint *set_raw_breakpoint (struct gdbarch *gdbarch,
+@@ -1249,6 +1254,9 @@ update_watchpoint (struct breakpoint *b,
+ if (!watchpoint_in_thread_scope (b))
+ return;
+
++ if (b->pspace != current_program_space)
++ return;
++
+ if (b->disposition == disp_del_at_next_stop)
+ return;
+
+@@ -1520,6 +1528,40 @@ should_be_inserted (struct bp_location *
+ return 1;
+ }
+
++/* See the comment in breakpoint.h. */
+
+void
-+set_breakpoint_condition (struct breakpoint *b, char *exp, int from_tty)
++modify_semaphore (struct bp_location *loc, int set)
+{
-+ struct bp_location *loc = b->loc;
++ struct gdbarch *arch = loc->gdbarch;
++ gdb_byte bytes[sizeof (LONGEST)];
++ /* The ABI specifies "unsigned short". */
++ struct type *type = builtin_type (arch)->builtin_unsigned_short;
++ CORE_ADDR address = loc->semaphore;
++ ULONGEST value;
+
-+ for (; loc; loc = loc->next)
-+ {
-+ if (loc->cond)
-+ {
-+ xfree (loc->cond);
-+ loc->cond = 0;
-+ }
-+ }
++ if (address == 0)
++ return;
+
-+ if (b->cond_string != NULL)
-+ xfree (b->cond_string);
++ /* Swallow errors. */
++ if (target_read_memory (address, bytes, TYPE_LENGTH (type)) != 0)
++ return;
+
-+ if (*exp == 0)
-+ {
-+ b->cond_string = NULL;
-+ if (from_tty)
-+ printf_filtered (_("Breakpoint %d now unconditional.\n"), b->number);
-+ }
++ value = extract_unsigned_integer (bytes, TYPE_LENGTH (type),
++ gdbarch_byte_order (arch));
++ /* Note that we explicitly don't worry about overflow or
++ underflow. */
++ if (set)
++ ++value;
+ else
-+ {
-+ char *arg = exp;
++ --value;
+
-+ /* I don't know if it matters whether this is the string the user
-+ typed in or the decompiled expression. */
-+ b->cond_string = savestring (arg, strlen (arg));
-+ b->condition_not_parsed = 0;
-+ for (loc = b->loc; loc; loc = loc->next)
-+ {
-+ arg = exp;
-+ loc->cond =
-+ parse_exp_1 (&arg, block_for_pc (loc->address), 0);
-+ if (*arg)
-+ error (_("Junk at end of expression"));
-+ }
-+ }
++ store_unsigned_integer (bytes, TYPE_LENGTH (type),
++ gdbarch_byte_order (arch), value);
+
-+ breakpoints_changed ();
-+ observer_notify_breakpoint_modified (b->number);
++ target_write_memory (address, bytes, TYPE_LENGTH (type));
+}
+
- /* condition N EXP -- set break condition of breakpoint N to EXP. */
+ /* Insert a low-level "breakpoint" of some type. BL is the breakpoint
+ location. Any error messages are printed to TMP_ERROR_STREAM; and
+ DISABLED_BREAKS, and HW_BREAKPOINT_ERROR are used to report problems.
+@@ -1616,6 +1658,8 @@ insert_bp_location (struct bp_location *
+ else
+ val = target_insert_breakpoint (bl->gdbarch,
+ &bl->target_info);
++
++ modify_semaphore (bl, 1);
+ }
+ else
+ {
+@@ -1870,6 +1914,7 @@ insert_breakpoint_locations (void)
+ int val = 0;
+ int disabled_breaks = 0;
+ int hw_breakpoint_error = 0;
++ struct program_space *saved_current_program_space = current_program_space;
+
+ struct ui_file *tmp_error_stream = mem_fileopen ();
+ struct cleanup *cleanups = make_cleanup_ui_file_delete (tmp_error_stream);
+@@ -1897,9 +1942,13 @@ insert_breakpoint_locations (void)
+ /* For targets that support global breakpoints, there's no need
+ to select an inferior to insert breakpoint to. In fact, even
+ if we aren't attached to any process yet, we should still
+- insert breakpoints. */
++ insert breakpoints.
++
++ Also inserting breakpoints into inappropriate inferior must be
++ prevented. */
+ if (!gdbarch_has_global_breakpoints (target_gdbarch)
+- && ptid_equal (inferior_ptid, null_ptid))
++ && (ptid_equal (inferior_ptid, null_ptid)
++ || bl->pspace != saved_current_program_space))
+ continue;
- static void
-@@ -543,42 +604,7 @@ condition_command (char *arg, int from_tty)
- ALL_BREAKPOINTS (b)
- if (b->number == bnum)
- {
-- struct bp_location *loc = b->loc;
-- for (; loc; loc = loc->next)
-- {
-- if (loc->cond)
-- {
-- xfree (loc->cond);
-- loc->cond = 0;
-- }
-- }
-- if (b->cond_string != NULL)
-- xfree (b->cond_string);
--
-- if (*p == 0)
-- {
-- b->cond_string = NULL;
-- if (from_tty)
-- printf_filtered (_("Breakpoint %d now unconditional.\n"), bnum);
-- }
-- else
+ val = insert_bp_location (bl, tmp_error_stream, &disabled_breaks,
+@@ -1923,13 +1972,19 @@ insert_breakpoint_locations (void)
+
+ if (bpt->disposition == disp_del_at_next_stop)
+ continue;
+-
++
+ for (loc = bpt->loc; loc; loc = loc->next)
+- if (!loc->inserted && should_be_inserted (loc))
- {
-- arg = p;
-- /* I don't know if it matters whether this is the string the user
-- typed in or the decompiled expression. */
-- b->cond_string = savestring (arg, strlen (arg));
-- b->condition_not_parsed = 0;
-- for (loc = b->loc; loc; loc = loc->next)
-- {
-- arg = p;
-- loc->cond =
-- parse_exp_1 (&arg, block_for_pc (loc->address), 0);
-- if (*arg)
-- error (_("Junk at end of expression"));
-- }
+- some_failed = 1;
+- break;
- }
-- breakpoints_changed ();
-- observer_notify_breakpoint_modified (b->number);
-+ set_breakpoint_condition (b, p, from_tty);
- return;
- }
-
-@@ -961,7 +987,7 @@ update_watchpoint (struct breakpoint *b, int reparse)
- int len, type;
- struct bp_location *loc, **tmp;
++ {
++ /* Verify the first loop above really tried to insert this LOC. */
++ if (!loc->inserted && should_be_inserted (loc)
++ && (gdbarch_has_global_breakpoints (target_gdbarch)
++ || (!ptid_equal (inferior_ptid, null_ptid)
++ && loc->pspace == saved_current_program_space)))
++ {
++ some_failed = 1;
++ break;
++ }
++ }
+ if (some_failed)
+ {
+ for (loc = bpt->loc; loc; loc = loc->next)
+@@ -2111,15 +2166,24 @@ struct breakpoint_objfile_data
+ /* Minimal symbol(s) for "longjmp", "siglongjmp", etc. (if any). */
+ struct minimal_symbol *longjmp_msym[NUM_LONGJMP_NAMES];
-- addr = VALUE_ADDRESS (v) + value_offset (v);
-+ addr = value_address (v);
- len = TYPE_LENGTH (value_type (v));
- type = hw_write;
- if (b->type == bp_read_watchpoint)
-@@ -3948,8 +3974,8 @@ check_duplicates_for (CORE_ADDR address, struct obj_section *section)
- }
++ /* SystemTap probe point for longjmp (if any). */
++ const struct stap_probe *longjmp_probe;
++
+ /* Minimal symbol for "std::terminate()" (if any). */
+ struct minimal_symbol *terminate_msym;
- /* If we found a permanent breakpoint at this address, go over the
-- list again and declare all the other breakpoints there to be the
-- duplicates. */
-+ list again and declare all the other breakpoints there (except
-+ other permanent breakpoints) to be the duplicates. */
- if (perm_bp)
- {
- perm_bp->duplicate = 0;
-@@ -3963,7 +3989,8 @@ check_duplicates_for (CORE_ADDR address, struct obj_section *section)
- ALL_BP_LOCATIONS (b)
- if (b != perm_bp)
- {
-- if (b->owner->enable_state != bp_disabled
-+ if (b->owner->enable_state != bp_permanent
-+ && b->owner->enable_state != bp_disabled
- && b->owner->enable_state != bp_call_disabled
- && b->enabled && !b->shlib_disabled
- && b->address == address /* address / overlay match */
-@@ -4134,6 +4161,8 @@ set_raw_breakpoint_without_location (enum bptype bptype)
- b->frame_id = null_frame_id;
- b->forked_inferior_pid = null_ptid;
- b->exec_pathname = NULL;
-+ b->syscalls_to_be_caught = NULL;
-+ b->syscall_number = UNKNOWN_SYSCALL;
- b->ops = NULL;
- b->condition_not_parsed = 0;
-
-@@ -4660,7 +4689,241 @@ static struct breakpoint_ops catch_vfork_breakpoint_ops =
- print_mention_catch_vfork
+ /* Minimal symbol for "_Unwind_DebugHook" (if any). */
+ struct minimal_symbol *exception_msym;
++
++ /* SystemTap probe point for unwinding (if any). */
++ const struct stap_probe *exception_probe;
};
--/* Create a new breakpoint of the bp_catchpoint kind and return it.
-+/* We keep a count of the number of times the user has requested a
-+ particular syscall to be tracked, and pass this information to the
-+ target. This lets capable targets implement filtering directly. */
-+
-+/* Number of times that "any" syscall is requested. */
-+static int any_syscall_count;
+ static const struct objfile_data *breakpoint_objfile_key;
+
++/* SystemTap probe not found sentinel. */
++static const struct stap_probe probe_not_found;
+
-+/* Count of each system call. */
-+static int *syscalls_counts;
+ /* Minimal symbol not found sentinel. */
+ static struct minimal_symbol msym_not_found;
+
+@@ -2227,6 +2291,29 @@ create_longjmp_master_breakpoint (void)
+
+ bp_objfile_data = get_breakpoint_objfile_data (objfile);
+
++ if (bp_objfile_data->longjmp_probe != &probe_not_found)
++ {
++ if (bp_objfile_data->longjmp_probe == NULL)
++ bp_objfile_data->longjmp_probe
++ = find_probe_in_objfile (objfile, "libc", "longjmp");
+
-+/* Number of system entries in SYSCALLS_COUNTS. */
-+static int syscalls_size;
++ if (bp_objfile_data->longjmp_probe)
++ {
++ struct breakpoint *b;
++ struct gdbarch *gdbarch = get_objfile_arch (objfile);
+
-+/* This counts all syscall catch requests, so we can readily determine
-+ if any catching is necessary. */
-+static int total_syscalls_count;
++ b = create_internal_breakpoint (gdbarch,
++ bp_objfile_data->longjmp_probe->address,
++ bp_longjmp_master);
++ b->addr_string = xstrdup ("probe:libc:longjmp");
++ b->enable_state = bp_disabled;
+
-+/* Implement the "insert" breakpoint_ops method for syscall
-+ catchpoints. */
++ continue;
++ }
++ else
++ bp_objfile_data->longjmp_probe = &probe_not_found;
++ }
+
-+static void
-+insert_catch_syscall (struct breakpoint *b)
-+{
-+ ++total_syscalls_count;
-+ if (!b->syscalls_to_be_caught)
-+ ++any_syscall_count;
-+ else
-+ {
-+ struct syscall_filter *iter;
-+ for (iter = b->syscalls_to_be_caught; iter; iter = iter->next)
+ for (i = 0; i < NUM_LONGJMP_NAMES; i++)
+ {
+ struct breakpoint *b;
+@@ -2335,6 +2422,31 @@ create_exception_master_breakpoint (void
+
+ bp_objfile_data = get_breakpoint_objfile_data (objfile);
+
++ /* We prefer the SystemTap probe point if it exists. */
++ if (bp_objfile_data->exception_probe != &probe_not_found)
+ {
-+ if (iter->syscall >= syscalls_size)
-+ {
-+ syscalls_counts = xrealloc (syscalls_counts,
-+ (iter->syscall + 1) * sizeof (int));
-+ memset (&syscalls_counts[syscalls_size], 0,
-+ (iter->syscall + 1 - syscalls_size) * sizeof (int));
-+ }
-+ ++syscalls_counts[iter->syscall];
-+ }
-+ }
-+
-+ target_set_syscall_catchpoint (PIDGET (inferior_ptid),
-+ total_syscalls_count != 0,
-+ any_syscall_count,
-+ syscalls_size,
-+ syscalls_counts);
-+}
++ if (bp_objfile_data->exception_probe == NULL)
++ bp_objfile_data->exception_probe
++ = find_probe_in_objfile (objfile, "libgcc", "unwind");
+
-+/* Implement the "remove" breakpoint_ops method for syscall
-+ catchpoints. */
-+
-+static int
-+remove_catch_syscall (struct breakpoint *b)
-+{
-+ --total_syscalls_count;
-+ if (!b->syscalls_to_be_caught)
-+ --any_syscall_count;
-+ else
-+ {
-+ struct syscall_filter *iter;
-+ for (iter = b->syscalls_to_be_caught; iter; iter = iter->next)
-+ {
-+ if (iter->syscall >= syscalls_size)
++ if (bp_objfile_data->exception_probe)
+ {
-+ /* Shouldn't happen. */
++ struct breakpoint *b;
++ struct gdbarch *gdbarch = get_objfile_arch (objfile);
++
++ b = create_internal_breakpoint (gdbarch,
++ bp_objfile_data->exception_probe->address,
++ bp_exception_master);
++ b->addr_string = xstrdup ("probe:libgcc:unwind");
++ b->enable_state = bp_disabled;
+ continue;
+ }
-+ --syscalls_counts[iter->syscall];
++ else
++ bp_objfile_data->exception_probe = &probe_not_found;
+ }
-+ }
-+
-+ return target_set_syscall_catchpoint (PIDGET (inferior_ptid),
-+ total_syscalls_count != 0,
-+ any_syscall_count,
-+ syscalls_size,
-+ syscalls_counts);
-+}
-+
-+/* Implement the "breakpoint_hit" breakpoint_ops method for syscall
-+ catchpoints. */
-+
-+static int
-+breakpoint_hit_catch_syscall (struct breakpoint *b)
-+{
-+ /* We must check if we are catching specific syscalls in this breakpoint.
-+ If we are, then we must guarantee that the called syscall is the same
-+ syscall we are catching. */
-+ int syscall_number = 0;
-+
-+ if (!inferior_has_called_syscall (inferior_ptid, &syscall_number))
-+ return 0;
-+
-+ /* Now, checking if the syscall is the same. */
-+ if (b->syscalls_to_be_caught)
-+ {
-+ struct syscall_filter *iter;
-+ for (iter = b->syscalls_to_be_caught; iter; iter = iter->next)
-+ if (syscall_number == iter->syscall)
-+ break;
-+ /* Not the same. */
-+ if (!iter)
-+ return 0;
-+ }
+
-+ /* It's the same syscall. We can update the breakpoint struct
-+ with the correct information. */
-+ b->syscall_number = syscall_number;
++ /* Otherwise, try the hook function. */
+
-+ return 1;
-+}
-+
-+/* Implement the "print_it" breakpoint_ops method for syscall
-+ catchpoints. */
-+
-+static enum print_stop_action
-+print_it_catch_syscall (struct breakpoint *b)
-+{
-+ /* These are needed because we want to know in which state a
-+ syscall is. It can be in the TARGET_WAITKIND_SYSCALL_ENTRY
-+ or TARGET_WAITKIND_SYSCALL_RETURN, and depending on it we
-+ must print "called syscall" or "returned from syscall". */
-+ ptid_t ptid;
-+ struct target_waitstatus last;
-+ struct syscall s;
-+ struct cleanup *old_chain;
-+ char *syscall_id;
-+
-+ gdbarch_get_syscall_by_number (current_gdbarch, b->syscall_number, &s);
-+
-+ get_last_target_status (&ptid, &last);
-+
-+ annotate_catchpoint (b->number);
-+
-+ if (s.name == NULL)
-+ syscall_id = xstrprintf ("%d", b->syscall_number);
-+ else
-+ syscall_id = xstrprintf ("'%s'", s.name);
-+
-+ old_chain = make_cleanup (xfree, syscall_id);
-+
-+ if (last.kind == TARGET_WAITKIND_SYSCALL_ENTRY)
-+ printf_filtered (_("\nCatchpoint %d (call to syscall %s), "),
-+ b->number, syscall_id);
-+ else
-+ printf_filtered (_("\nCatchpoint %d (returned from syscall %s), "),
-+ b->number, syscall_id);
-+
-+ do_cleanups (old_chain);
-+
-+ return PRINT_SRC_AND_LOC;
-+}
-+
-+/* Implement the "print_one" breakpoint_ops method for syscall
-+ catchpoints. */
-+
-+static void
-+print_one_catch_syscall (struct breakpoint *b, CORE_ADDR *last_addr)
-+{
-+ struct value_print_options opts;
-+ struct syscall s;
-+
-+ gdbarch_get_syscall_by_number (current_gdbarch, b->syscall_number, &s);
-+
-+ get_user_print_options (&opts);
-+ /* Field 4, the address, is omitted (which makes the columns
-+ not line up too nicely with the headers, but the effect
-+ is relatively readable). */
-+ if (opts.addressprint)
-+ ui_out_field_skip (uiout, "addr");
-+ annotate_field (5);
-+ ui_out_text (uiout, "syscall \"");
-+ if (b->syscall_number != UNKNOWN_SYSCALL)
-+ {
-+ if (s.name)
-+ ui_out_field_string (uiout, "what", s.name);
-+ else
-+ ui_out_field_int (uiout, "what", b->syscall_number);
-+ }
-+ else
-+ ui_out_field_string (uiout, "what", "<any syscall>");
-+ ui_out_text (uiout, "\" ");
-+}
-+
-+/* Implement the "print_mention" breakpoint_ops method for syscall
-+ catchpoints. */
+ if (msym_not_found_p (bp_objfile_data->exception_msym))
+ continue;
+
+@@ -2553,6 +2665,8 @@ remove_breakpoint_1 (struct bp_location
+ val = target_remove_hw_breakpoint (bl->gdbarch, &bl->target_info);
+ else
+ val = target_remove_breakpoint (bl->gdbarch, &bl->target_info);
+
-+static void
-+print_mention_catch_syscall (struct breakpoint *b)
-+{
-+ if (b->syscalls_to_be_caught)
++ modify_semaphore (bl, 0);
+ }
+ else
+ {
+@@ -5902,6 +6016,7 @@ set_raw_breakpoint (struct gdbarch *gdba
+ b->loc->requested_address = sal.pc;
+ b->loc->address = adjusted_address;
+ b->loc->pspace = sal.pspace;
++ b->loc->semaphore = sal.semaphore;
+
+ /* Store the program space that was used to set the breakpoint, for
+ breakpoint resetting. */
+@@ -7056,6 +7171,7 @@ clone_momentary_breakpoint (struct break
+ copy->loc->address = orig->loc->address;
+ copy->loc->section = orig->loc->section;
+ copy->loc->pspace = orig->loc->pspace;
++ copy->loc->semaphore = orig->loc->semaphore;
+
+ if (orig->source_file == NULL)
+ copy->source_file = NULL;
+@@ -7279,6 +7395,7 @@ add_location_to_breakpoint (struct break
+ loc->address = adjust_breakpoint_address (loc->gdbarch,
+ loc->requested_address, b->type);
+ loc->pspace = sal->pspace;
++ loc->semaphore = sal->semaphore;
+ gdb_assert (loc->pspace != NULL);
+ loc->section = sal->section;
+
+@@ -7628,6 +7745,16 @@ create_breakpoints_sal (struct gdbarch *
+ {
+ int i;
+
++ if (canonical->pre_expanded)
+ {
-+ struct syscall_filter *iter;
-+ printf_filtered (_("Catchpoint %d (syscall(s)"), b->number);
-+ for (iter = b->syscalls_to_be_caught; iter; iter = iter->next)
-+ {
-+ struct syscall s;
-+ gdbarch_get_syscall_by_number (current_gdbarch, iter->syscall, &s);
-+
-+ if (s.name)
-+ printf_filtered (" '%s'", s.name);
-+ else
-+ printf_filtered (" %d", iter->syscall);
-+ }
-+ printf_filtered (")");
++ create_breakpoint_sal (gdbarch, sals, canonical->canonical[0],
++ cond_string, type, disposition,
++ thread, task, ignore_count, ops,
++ from_tty, enabled, internal,
++ canonical->special_display);
++ return;
+ }
-+ else
-+ printf_filtered (_("Catchpoint %d (any syscall)"),
-+ b->number);
-+}
-+
-+/* The breakpoint_ops structure to be used in syscall catchpoints. */
-+
-+static struct breakpoint_ops catch_syscall_breakpoint_ops =
-+{
-+ insert_catch_syscall,
-+ remove_catch_syscall,
-+ breakpoint_hit_catch_syscall,
-+ print_it_catch_syscall,
-+ print_one_catch_syscall,
-+ print_mention_catch_syscall
-+};
-+
-+/* Returns non-zero if 'b' is a syscall catchpoint. */
+
-+static int
-+syscall_catchpoint_p (struct breakpoint *b)
-+{
-+ return (b->ops == &catch_syscall_breakpoint_ops);
-+}
+ for (i = 0; i < sals.nelts; ++i)
+ {
+ struct symtabs_and_lines expanded =
+@@ -8148,7 +8275,7 @@ create_breakpoint (struct gdbarch *gdbar
+ mention (b);
+ }
+
+- if (sals.nelts > 1)
++ if (sals.nelts > 1 && !canonical.pre_expanded)
+ {
+ warning (_("Multiple breakpoints were set.\nUse the "
+ "\"delete\" command to delete unwanted breakpoints."));
+@@ -9020,6 +9147,7 @@ watch_command_1 (char *arg, int accessfl
+ b = set_raw_breakpoint_without_location (NULL, bp_type);
+ set_breakpoint_number (internal, b);
+ b->thread = thread;
++ b->pspace = current_program_space;
+ b->disposition = disp_donttouch;
+ b->exp = exp;
+ b->exp_valid_block = exp_valid_block;
+@@ -10182,6 +10310,9 @@ update_global_location_list (int should_
+ int keep_in_target = 0;
+ int removed = 0;
+
++ if (old_loc->pspace != current_program_space)
++ continue;
+
-+/* Create a new breakpoint of the bp_catchpoint kind and return it,
-+ but does NOT mention it nor update the global location list.
-+ This is useful if you need to fill more fields in the
-+ struct breakpoint before calling mention.
-
- If TEMPFLAG is non-zero, then make the breakpoint temporary.
- If COND_STRING is not NULL, then store it in the breakpoint.
-@@ -4668,16 +4931,13 @@ static struct breakpoint_ops catch_vfork_breakpoint_ops =
- to the catchpoint. */
-
- static struct breakpoint *
--create_catchpoint (int tempflag, char *cond_string,
-- struct breakpoint_ops *ops)
-+create_catchpoint_without_mention (int tempflag, char *cond_string,
-+ struct breakpoint_ops *ops)
- {
- struct symtab_and_line sal;
- struct breakpoint *b;
-
- init_sal (&sal);
-- sal.pc = 0;
-- sal.symtab = NULL;
-- sal.line = 0;
+ /* Skip LOCP entries which will definitely never be needed.
+ Stop either at or being the one matching OLD_LOC. */
+ while (locp < bp_location + bp_location_count
+@@ -10946,12 +11077,14 @@ update_breakpoint_locations (struct brea
+ On return, FOUND will be 1 if any SaL was found, zero otherwise. */
- b = set_raw_breakpoint (sal, bp_catchpoint);
- set_breakpoint_count (breakpoint_count + 1);
-@@ -4691,6 +4951,23 @@ create_catchpoint (int tempflag, char *cond_string,
- b->disposition = tempflag ? disp_del : disp_donttouch;
- b->ops = ops;
+ static struct symtabs_and_lines
+-addr_string_to_sals (struct breakpoint *b, char *addr_string, int *found)
++addr_string_to_sals (struct breakpoint *b, char *addr_string, int *found,
++ int *pre_expanded)
+ {
+ char *s;
+ int marker_spec;
+ struct symtabs_and_lines sals = {0};
+ struct gdb_exception e;
++ int my_pre_expanded = 0;
-+ return b;
-+}
-+
-+/* Create a new breakpoint of the bp_catchpoint kind and return it.
-+
-+ If TEMPFLAG is non-zero, then make the breakpoint temporary.
-+ If COND_STRING is not NULL, then store it in the breakpoint.
-+ OPS, if not NULL, is the breakpoint_ops structure associated
-+ to the catchpoint. */
-+
-+static struct breakpoint *
-+create_catchpoint (int tempflag, char *cond_string,
-+ struct breakpoint_ops *ops)
-+{
-+ struct breakpoint *b =
-+ create_catchpoint_without_mention (tempflag, cond_string, ops);
+ s = addr_string;
+ marker_spec = b->type == bp_static_tracepoint && is_marker_spec (s);
+@@ -10970,7 +11103,27 @@ addr_string_to_sals (struct breakpoint *
+ error (_("marker %s not found"), b->static_trace_marker_id);
+ }
+ else
+- sals = decode_line_1 (&s, 1, (struct symtab *) NULL, 0, NULL);
++ {
++ struct linespec_result canonical;
+
- mention (b);
- update_global_location_list (1);
-
-@@ -4775,6 +5052,23 @@ static struct breakpoint_ops catch_exec_breakpoint_ops =
- print_mention_catch_exec
- };
-
-+static void
-+create_syscall_event_catchpoint (int tempflag, struct syscall_filter *filter,
-+ struct breakpoint_ops *ops)
-+{
-+ struct breakpoint *b =
-+ create_catchpoint_without_mention (tempflag, NULL, ops);
++ init_linespec_result (&canonical);
++ sals = decode_line_1 (&s, 1, (struct symtab *) NULL, 0,
++ &canonical);
+
-+ b->syscalls_to_be_caught = filter;
-+ /* We still don't know the syscall that will be caught :-). */
-+ b->syscall_number = UNKNOWN_SYSCALL;
++ /* We don't need the contents. */
++ if (canonical.canonical)
++ {
++ int i;
+
-+ /* Now, we have to mention the breakpoint and update the global
-+ location list. */
-+ mention (b);
-+ update_global_location_list (1);
-+}
++ for (i = 0; i < sals.nelts; ++i)
++ xfree (canonical.canonical[i]);
++ xfree (canonical.canonical);
++ }
+
- static int
- hw_breakpoint_used_count (void)
- {
-@@ -5188,7 +5482,6 @@ expand_line_sal_maybe (struct symtab_and_line sal)
- struct symtabs_and_lines expanded;
- CORE_ADDR original_pc = sal.pc;
- char *original_function = NULL;
-- int found;
- int i;
-
- /* If we have explicit pc, don't expand.
-@@ -5264,14 +5557,42 @@ expand_line_sal_maybe (struct symtab_and_line sal)
++ my_pre_expanded = canonical.pre_expanded;
++ if (pre_expanded)
++ *pre_expanded = my_pre_expanded;
++ }
+ }
+ if (e.reason < 0)
+ {
+@@ -11003,7 +11156,7 @@ addr_string_to_sals (struct breakpoint *
- if (original_pc)
+ if (e.reason == 0 || e.error != NOT_FOUND_ERROR)
{
-- found = 0;
-+ /* Find all the other PCs for a line of code with multiple instances
-+ (locations). If the instruction is in the middle of an instruction
-+ block for source line GDB cannot safely find the same instruction in
-+ the other compiled instances of the same source line because the other
-+ instances may have been compiled completely differently.
-+
-+ The testcase gdb.cp/expand-sals.exp shows that breaking at the return
-+ address in a caller of the current frame works for the current
-+ instance but the breakpoint cannot catch the point (instruction) where
-+ the callee returns in the other compiled instances of this source line.
-+
-+ The current implementation will place the breakpoint at the expected
-+ returning address of the current instance of the caller. But the
-+ other instances will get the breakpoint at the first instruction of
-+ the source line - therefore before the call would be made. Another
-+ possibility would be to place the breakpoint in the other instances at
-+ the start of the next source line.
-+
-+ A possible heuristics would compare the instructions length of each of
-+ the instances of the current source line and if it matches it would
-+ place the breakpoint at the same offset. Unfortunately a mistaken
-+ guess would possibly crash the inferior. */
-+
-+ CORE_ADDR best = -1;
-+
-+ /* Find the nearest preceding PC and set it to ORIGINAL_PC. */
- for (i = 0; i < expanded.nelts; ++i)
-- if (expanded.sals[i].pc == original_pc)
-- {
-- found = 1;
-- break;
-- }
-- gdb_assert (found);
-+ if (expanded.sals[i].pc <= original_pc
-+ && (best == -1 || expanded.sals[best].pc < expanded.sals[i].pc))
-+ best = i;
-+
-+ if (best == -1)
-+ error (_("Cannot find the best address for %s out of the %d locations"),
-+ paddr (original_pc), expanded.nelts);
-+
-+ expanded.sals[best].pc = original_pc;
- }
+- gdb_assert (sals.nelts == 1);
++ gdb_assert (my_pre_expanded || sals.nelts == 1);
- return expanded;
-@@ -5310,8 +5631,6 @@ create_breakpoints (struct symtabs_and_lines sals, char **addr_string,
- cond_string, type, disposition,
- thread, ignore_count, ops, from_tty, enabled);
- }
--
-- update_global_location_list (1);
- }
+ resolve_sal_pc (&sals.sals[0]);
+ if (b->condition_not_parsed && s && s[0])
+@@ -11044,22 +11197,27 @@ re_set_breakpoint (struct breakpoint *b)
+ struct symtabs_and_lines expanded = {0};
+ struct symtabs_and_lines expanded_end = {0};
+ struct cleanup *cleanups = make_cleanup (null_cleanup, NULL);
++ int pre_expanded = 0;
- /* Parse ARG which is assumed to be a SAL specification possibly
-@@ -5637,7 +5956,6 @@ break_command_really (char *arg, char *cond_string, int thread,
- b->ops = ops;
- b->enable_state = enabled ? bp_enabled : bp_disabled;
+ input_radix = b->input_radix;
+ save_current_space_and_thread ();
+ switch_to_program_space_and_thread (b->pspace);
+ set_language (b->language);
-- update_global_location_list (1);
- mention (b);
+- sals = addr_string_to_sals (b, b->addr_string, &found);
++ sals = addr_string_to_sals (b, b->addr_string, &found, &pre_expanded);
+ if (found)
+ {
+ make_cleanup (xfree, sals.sals);
+- expanded = expand_line_sal_maybe (sals.sals[0]);
++ if (pre_expanded)
++ expanded = sals;
++ else
++ expanded = expand_line_sal_maybe (sals.sals[0]);
}
-
-@@ -5649,6 +5967,11 @@ break_command_really (char *arg, char *cond_string, int thread,
- discard_cleanups (breakpoint_chain);
- /* But cleanup everything else. */
- do_cleanups (old_chain);
-+
-+ /* Have already BREAKPOINT_CHAIN discarded as we may get an exception while
-+ inserting the breakpoints which would double-free the resources both by
-+ BREAKPOINT_CHAIN now and during DELETE_BREAKPOINT in the future. */
-+ update_global_location_list (1);
- }
-
- /* Set a breakpoint.
-@@ -6131,7 +6454,7 @@ can_use_hardware_watchpoint (struct value *v)
- || (TYPE_CODE (vtype) != TYPE_CODE_STRUCT
- && TYPE_CODE (vtype) != TYPE_CODE_ARRAY))
- {
-- CORE_ADDR vaddr = VALUE_ADDRESS (v) + value_offset (v);
-+ CORE_ADDR vaddr = value_address (v);
- int len = TYPE_LENGTH (value_type (v));
- if (!TARGET_REGION_OK_FOR_HW_WATCHPOINT (vaddr, len))
-@@ -6668,6 +6991,122 @@ catch_ada_exception_command (char *arg, int from_tty,
- from_tty);
+ if (b->addr_string_range_end)
+ {
+- sals_end = addr_string_to_sals (b, b->addr_string_range_end, &found);
++ sals_end = addr_string_to_sals (b, b->addr_string_range_end, &found,
++ NULL);
+ if (found)
+ {
+ make_cleanup (xfree, sals_end.sals);
+@@ -12496,6 +12654,24 @@ all_tracepoints (void)
+ return tp_vec;
}
-+/* Cleanup function for a syscall filter list. */
-+static void
-+clean_up_filters (void *arg)
-+{
-+ struct syscall_filter *iter = *(struct syscall_filter **) arg;
-+ while (iter)
-+ {
-+ struct syscall_filter *next = iter->next;
-+ xfree (iter);
-+ iter = next;
-+ }
-+}
++#if 0
++/* Call type_mark_used for any TYPEs referenced from this GDB source file. */
+
-+/* Splits the argument using space as delimiter. Returns an xmalloc'd
-+ filter list, or NULL if no filtering is required. */
-+static struct syscall_filter *
-+catch_syscall_split_args (char *arg)
++static void
++breakpoint_types_mark_used (void)
+{
-+ struct syscall_filter *result = NULL;
-+ struct cleanup *cleanup = make_cleanup (clean_up_filters, &result);
++ struct breakpoint *b;
+
-+ while (*arg != '\0')
++ ALL_BREAKPOINTS (b)
+ {
-+ int i, syscall_number;
-+ char *endptr;
-+ char cur_name[128];
-+ struct syscall_filter *new_filter;
-+ struct syscall s;
-+
-+ /* Skip whitespace. */
-+ while (isspace (*arg))
-+ arg++;
-+
-+ for (i = 0; arg[i] && !isspace (arg[i]); ++i)
-+ cur_name[i] = arg[i];
-+ cur_name[i] = '\0';
-+ arg += i;
-+
-+ /* Check if the user provided a syscall name or a number. */
-+ syscall_number = (int) strtol (cur_name, &endptr, 10);
-+ if (*endptr == '\0')
-+ {
-+ gdbarch_get_syscall_by_number (current_gdbarch,
-+ syscall_number, &s);
-+
-+ if (s.name == NULL)
-+ /* We can issue just a warning, but still create the catchpoint.
-+ This is because, even not knowing the syscall name that
-+ this number represents, we can still try to catch the syscall
-+ number. */
-+ warning (_("The number '%d' does not represent a known syscall."),
-+ syscall_number);
-+ }
-+ else
-+ {
-+ /* We have a name. Let's check if it's valid and convert it
-+ to a number. */
-+ gdbarch_get_syscall_by_name (current_gdbarch, cur_name, &s);
-+
-+ if (s.number == UNKNOWN_SYSCALL)
-+ /* Here we have to issue an error instead of a warning, because
-+ GDB cannot do anything useful if there's no syscall number to
-+ be caught. */
-+ error (_("Unknown syscall name '%s'."), cur_name);
-+ }
-+
-+ /* Ok, it's valid. */
-+ new_filter = XNEW (struct syscall_filter);
-+ new_filter->syscall = s.number;
-+ new_filter->next = result;
-+ result = new_filter;
++ if (b->exp)
++ exp_types_mark_used (b->exp);
++ if (b->val)
++ type_mark_used (value_type (b->val));
+ }
-+
-+ discard_cleanups (cleanup);
-+ return result;
+}
++#endif
+
-+/* Implement the "catch syscall" command. */
+ \f
+ /* This help string is used for the break, hbreak, tbreak and thbreak
+ commands. It is defined as a macro to prevent duplication.
+@@ -13131,4 +13307,7 @@ range (including START-LOCATION and END-
+ automatic_hardware_breakpoints = 1;
+
+ observer_attach_about_to_proceed (breakpoint_about_to_proceed);
++#if 0
++ observer_attach_mark_used (breakpoint_types_mark_used);
++#endif
+ }
+Index: gdb-7.2.90.20110703/gdb/breakpoint.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/breakpoint.h 2011-05-17 23:25:56.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/breakpoint.h 2011-07-03 10:33:11.000000000 +0200
+@@ -363,6 +363,11 @@ struct bp_location
+ processor's architectual constraints. */
+ CORE_ADDR requested_address;
+
++ /* If the location comes from a SystemTap probe point, and the probe
++ has an associated semaphore variable, then this is the address of
++ the semaphore. Otherwise, this is zero. */
++ CORE_ADDR semaphore;
+
-+static void
-+catch_syscall_command_1 (char *arg, int from_tty, struct cmd_list_element *command)
-+{
-+ int tempflag;
-+ struct syscall_filter *filter;
-+ struct syscall s;
+ char *function_name;
+
+ /* Details of the placed breakpoint, when inserted. */
+@@ -1237,4 +1242,11 @@ extern struct breakpoint *iterate_over_b
+
+ extern int user_breakpoint_p (struct breakpoint *);
+
++/* Set or clear a SystemTap semaphore. LOC is the location which may
++ hold a semaphore. SET is non-zero if the semaphore should be set,
++ or zero if the semaphore should be cleared. Semaphores act as
++ reference counters, so calls to this function must be paired. */
+
-+ /* Checking if the feature if supported. */
-+ if (gdbarch_get_syscall_number_p (current_gdbarch) == 0)
-+ error (_("The feature 'catch syscall' is not supported on \
-+this architeture yet."));
++extern void modify_semaphore (struct bp_location *location, int set);
+
-+ tempflag = get_cmd_context (command) == CATCH_TEMPORARY;
+ #endif /* !defined (BREAKPOINT_H) */
+Index: gdb-7.2.90.20110703/gdb/c-typeprint.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/c-typeprint.c 2011-03-22 18:35:22.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/c-typeprint.c 2011-07-03 10:33:11.000000000 +0200
+@@ -625,9 +625,14 @@ c_type_print_varspec_suffix (struct type
+ fprintf_filtered (stream, ")");
+
+ fprintf_filtered (stream, "[");
+- if (get_array_bounds (type, &low_bound, &high_bound))
+- fprintf_filtered (stream, "%d",
+- (int) (high_bound - low_bound + 1));
++ if (TYPE_RANGE_DATA (TYPE_INDEX_TYPE (type))->high.kind
++ != RANGE_BOUND_KIND_CONSTANT)
++ {
++ /* No _() - printed sources should not be locale dependent. */
++ fprintf_filtered (stream, "variable");
++ }
++ else if (get_array_bounds (type, &low_bound, &high_bound))
++ fprintf_filtered (stream, "%d", (int) (high_bound - low_bound + 1));
+ fprintf_filtered (stream, "]");
+
+ c_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream,
+Index: gdb-7.2.90.20110703/gdb/cli/cli-utils.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/cli/cli-utils.c 2011-03-16 22:12:12.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/cli/cli-utils.c 2011-07-03 10:33:11.000000000 +0200
+@@ -245,3 +245,32 @@ remove_trailing_whitespace (const char *
+
+ return s;
+ }
+
-+ ep_skip_leading_whitespace (&arg);
++/* See documentation in cli-utils.h. */
+
-+ /* We need to do this first "dummy" translation in order
-+ to get the syscall XML file loaded or, most important,
-+ to display a warning to the user if there's no XML file
-+ for his/her architecture. */
-+ gdbarch_get_syscall_by_number (current_gdbarch, 0, &s);
++char *
++extract_arg (char **arg)
++{
++ char *result, *copy;
+
-+ /* The allowed syntax is:
-+ catch syscall
-+ catch syscall <name | number> [<name | number> ... <name | number>]
++ if (!*arg)
++ return NULL;
+
-+ Let's check if there's a syscall name. */
++ /* Find the start of the argument. */
++ *arg = skip_spaces (*arg);
++ if (! **arg)
++ return NULL;
++ result = *arg;
+
-+ if (arg != NULL)
-+ filter = catch_syscall_split_args (arg);
-+ else
-+ filter = NULL;
++ /* Find the end of the argument. */
++ *arg = skip_to_space (*arg + 1);
+
-+ create_syscall_event_catchpoint (tempflag, filter,
-+ &catch_syscall_breakpoint_ops);
-+}
++ if (result == *arg)
++ return NULL;
+
- /* Implement the "catch assert" command. */
-
- static void
-@@ -7134,6 +7573,7 @@ delete_breakpoint (struct breakpoint *bpt)
- xfree (bpt->source_file);
- if (bpt->exec_pathname != NULL)
- xfree (bpt->exec_pathname);
-+ clean_up_filters (&bpt->syscalls_to_be_caught);
-
- /* Be sure no bpstat's are pointing at it after it's been freed. */
- /* FIXME, how can we find all bpstat's?
-@@ -8041,6 +8481,56 @@ single_step_breakpoint_inserted_here_p (CORE_ADDR pc)
- return 0;
- }
-
-+/* Returns 0 if 'bp' is NOT a syscall catchpoint,
-+ non-zero otherwise. */
-+static int
-+is_syscall_catchpoint_enabled (struct breakpoint *bp)
-+{
-+ if (syscall_catchpoint_p (bp)
-+ && bp->enable_state != bp_disabled
-+ && bp->enable_state != bp_call_disabled)
-+ return 1;
-+ else
-+ return 0;
-+}
++ copy = xmalloc (*arg - result + 1);
++ memcpy (copy, result, *arg - result);
++ copy[*arg - result] = '\0';
+
-+int
-+catch_syscall_enabled (void)
-+{
-+ return total_syscalls_count != 0;
++ return copy;
+}
+Index: gdb-7.2.90.20110703/gdb/cli/cli-utils.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/cli/cli-utils.h 2011-03-16 22:12:12.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/cli/cli-utils.h 2011-07-03 10:33:11.000000000 +0200
+@@ -103,4 +103,11 @@ extern char *skip_to_space (char *inp);
+ START. */
+
+ extern char *remove_trailing_whitespace (const char *start, char *s);
+
-+int
-+catching_syscall_number (int syscall_number)
-+{
-+ struct breakpoint *bp;
-+
-+ ALL_BREAKPOINTS (bp)
-+ if (is_syscall_catchpoint_enabled (bp))
-+ {
-+ if (bp->syscalls_to_be_caught)
-+ {
-+ struct syscall_filter *iter;
-+ for (iter = bp->syscalls_to_be_caught; iter; iter = iter->next)
-+ if (syscall_number == iter->syscall)
-+ return 1;
-+ }
-+ else
-+ return 1;
-+ }
-+
-+ return 0;
-+}
++/* A helper function to extract an argument from *ARG. An argument is
++ delimited by whitespace. The return value is either NULL if no
++ argument was found, or an xmalloc'd string. */
+
-+/* Complete syscall names. Used by "catch syscall". */
-+static char **
-+catch_syscall_completer (struct cmd_list_element *self, char *text, char *word)
-+{
-+ const char **list =
-+ gdbarch_get_syscall_names (current_gdbarch);
-+ return (list == NULL) ? NULL : complete_on_enum (list, text, word);
-+}
++extern char *extract_arg (char **arg);
+
- \f
- /* This help string is used for the break, hbreak, tbreak and thbreak commands.
- It is defined as a macro to prevent duplication.
-@@ -8073,6 +8563,8 @@ static void
- add_catch_command (char *name, char *docstring,
- void (*sfunc) (char *args, int from_tty,
- struct cmd_list_element *command),
-+ char **(*completion_function) (struct cmd_list_element *self,
-+ char *text, char *word),
- void *user_data_catch,
- void *user_data_tcatch)
- {
-@@ -8082,11 +8574,13 @@ add_catch_command (char *name, char *docstring,
- &catch_cmdlist);
- set_cmd_sfunc (command, sfunc);
- set_cmd_context (command, user_data_catch);
-+ set_cmd_completer (command, completion_function);
-
- command = add_cmd (name, class_breakpoint, NULL, docstring,
- &tcatch_cmdlist);
- set_cmd_sfunc (command, sfunc);
- set_cmd_context (command, user_data_tcatch);
-+ set_cmd_completer (command, completion_function);
- }
+ #endif /* CLI_UTILS_H */
+Index: gdb-7.2.90.20110703/gdb/coffread.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/coffread.c 2011-03-17 14:19:23.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/coffread.c 2011-07-03 10:33:11.000000000 +0200
+@@ -2193,6 +2193,7 @@ static const struct sym_fns coff_sym_fns
- void
-@@ -8361,36 +8855,50 @@ Set temporary catchpoints to catch events."),
- Catch an exception, when caught.\n\
- With an argument, catch only exceptions with the given name."),
- catch_catch_command,
-+ NULL,
- CATCH_PERMANENT,
- CATCH_TEMPORARY);
- add_catch_command ("throw", _("\
- Catch an exception, when thrown.\n\
- With an argument, catch only exceptions with the given name."),
- catch_throw_command,
-+ NULL,
- CATCH_PERMANENT,
- CATCH_TEMPORARY);
- add_catch_command ("fork", _("Catch calls to fork."),
- catch_fork_command_1,
-+ NULL,
- (void *) (uintptr_t) catch_fork_permanent,
- (void *) (uintptr_t) catch_fork_temporary);
- add_catch_command ("vfork", _("Catch calls to vfork."),
- catch_fork_command_1,
-+ NULL,
- (void *) (uintptr_t) catch_vfork_permanent,
- (void *) (uintptr_t) catch_vfork_temporary);
- add_catch_command ("exec", _("Catch calls to exec."),
- catch_exec_command_1,
-+ NULL,
- CATCH_PERMANENT,
- CATCH_TEMPORARY);
-+ add_catch_command ("syscall", _("\
-+Catch system calls.\n\
-+With an argument, catch only that syscall."),
-+ catch_syscall_command_1,
-+ catch_syscall_completer,
-+ CATCH_PERMANENT,
-+ CATCH_TEMPORARY);
- add_catch_command ("exception", _("\
- Catch Ada exceptions, when raised.\n\
- With an argument, catch only exceptions with the given name."),
- catch_ada_exception_command,
-+ NULL,
- CATCH_PERMANENT,
- CATCH_TEMPORARY);
- add_catch_command ("assert", _("\
- Catch failed Ada assertions, when raised.\n\
- With an argument, catch only exceptions with the given name."),
- catch_assert_command,
-+ NULL,
- CATCH_PERMANENT,
- CATCH_TEMPORARY);
-
-diff --git a/gdb/breakpoint.h b/gdb/breakpoint.h
-index 94287de..8552e1b 100644
---- a/gdb/breakpoint.h
-+++ b/gdb/breakpoint.h
-@@ -33,7 +33,8 @@ struct block;
-
- #define BREAKPOINT_MAX 16
- \f
--/* Type of breakpoint. */
-+
-+/* Type of breakpoint. */
- /* FIXME In the future, we should fold all other breakpoint-like things into
- here. This includes:
+ default_symfile_relocate, /* sym_relocate: Relocate a debug
+ section. */
++ NULL, /* sym_probe_fns */
+ &psym_functions
+ };
+
+Index: gdb-7.2.90.20110703/gdb/data-directory/Makefile.in
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/data-directory/Makefile.in 2011-02-04 19:34:41.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/data-directory/Makefile.in 2011-07-03 10:33:11.000000000 +0200
+@@ -52,11 +52,23 @@ SYSCALLS_FILES = \
+ PYTHON_DIR = python
+ PYTHON_INSTALL_DIR = $(DESTDIR)$(GDB_DATADIR)/$(PYTHON_DIR)
+ PYTHON_FILES = \
++ gdb/FrameIterator.py \
++ gdb/FrameWrapper.py \
+ gdb/__init__.py \
+- gdb/types.py \
+- gdb/printing.py \
++ gdb/backtrace.py \
+ gdb/command/__init__.py \
+- gdb/command/pretty_printers.py
++ gdb/command/alias.py \
++ gdb/command/backtrace.py \
++ gdb/command/ignore_errors.py \
++ gdb/command/pahole.py \
++ gdb/command/pretty_printers.py \
++ gdb/command/require.py \
++ gdb/command/upto.py \
++ gdb/function/__init__.py \
++ gdb/function/caller_is.py \
++ gdb/function/in_scope.py \
++ gdb/printing.py \
++ gdb/types.py
+
+ FLAGS_TO_PASS = \
+ "prefix=$(prefix)" \
+Index: gdb-7.2.90.20110703/gdb/dbxread.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/dbxread.c 2011-03-23 19:23:54.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/dbxread.c 2011-07-03 10:33:11.000000000 +0200
+@@ -1,6 +1,6 @@
+ /* Read dbx symbol tables and convert to internal format, for GDB.
+ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995,
+- 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2008, 2009, 2010.
++ 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2008, 2009, 2010, 2011.
+ Free Software Foundation, Inc.
-@@ -337,6 +338,17 @@ enum watchpoint_triggered
- watch_triggered_yes
+ This file is part of GDB.
+@@ -3587,6 +3587,7 @@ static const struct sym_fns aout_sym_fns
+ default_symfile_segments, /* Get segment information from a file. */
+ NULL,
+ default_symfile_relocate, /* Relocate a debug section. */
++ NULL, /* sym_probe_fns */
+ &psym_functions
};
-+/* A syscall filter is represented as a linked list of syscall
-+ numbers. */
-+struct syscall_filter
-+{
-+ /* The system call to accept. */
-+ int syscall;
-+
-+ /* The next filter. */
-+ struct syscall_filter *next;
-+};
+Index: gdb-7.2.90.20110703/gdb/defs.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/defs.h 2011-03-31 16:32:48.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/defs.h 2011-07-03 10:33:11.000000000 +0200
+@@ -398,6 +398,8 @@ extern struct cleanup *make_cleanup_rest
+ extern struct cleanup *
+ set_batch_flag_and_make_cleanup_restore_page_info (void);
+
++extern struct cleanup *make_cleanup_restore_selected_frame (void);
+
- typedef struct bp_location *bp_location_p;
- DEF_VEC_P(bp_location_p);
+ extern char *gdb_realpath (const char *);
+ extern char *xfullpath (const char *);
-@@ -442,6 +454,20 @@ struct breakpoint
- triggered. */
- char *exec_pathname;
+Index: gdb-7.2.90.20110703/gdb/doc/gdb.texinfo
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/doc/gdb.texinfo 2011-07-02 21:59:29.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/doc/gdb.texinfo 2011-07-03 10:33:11.000000000 +0200
+@@ -1177,6 +1177,16 @@ for remote debugging.
+ Run using @var{device} for your program's standard input and output.
+ @c FIXME: kingdon thinks there is more to -tty. Investigate.
+
++@item -P
++@cindex @code{-P}
++@itemx --python
++@cindex @code{--python}
++Change interpretation of command line so that the argument immediately
++following this switch is taken to be the name of a Python script file.
++This option stops option processing; subsequent options are passed to
++Python as @code{sys.argv}. This option is only available if Python
++scripting support was enabled when @value{GDBN} was configured.
++
+ @c resolve the situation of these eventually
+ @item -tui
+ @cindex @code{--tui}
+@@ -3286,6 +3296,7 @@ all breakpoints in that range are operat
+ * Conditions:: Break conditions
+ * Break Commands:: Breakpoint command lists
+ * Save Breakpoints:: How to save breakpoints in a file
++* Static Probe Points:: Listing static probe points
+ * Error in Breakpoints:: ``Cannot insert breakpoints''
+ * Breakpoint-related Warnings:: ``Breakpoint address adjusted...''
+ @end menu
+@@ -4499,6 +4510,50 @@ and remove the breakpoint definitions yo
+ that can no longer be recreated.
+ @end table
-+ /* Syscall number used for the 'catch syscall' feature.
-+ If no syscall has been called, its value is UNKNOWN_SYSCALL.
-+ Otherwise, it holds the system call number in the target.
++@node Static Probe Points
++@subsection Static Probe Points
+
-+ This field is only valid immediately after this catchpoint has
-+ triggered. */
-+ int syscall_number;
++@cindex SystemTap static probe point
++@cindex sdt-probe
++The @sc{gnu}/Linux tool @code{SystemTap} provides a way for
++applications to embed static probes, using @file{sys/sdt.h}. @value{GDBN}
++can list the available probes, and you can put breakpoints at the
++probe points (@pxref{Specify Location}).
+
-+ /* Syscall numbers used for the 'catch syscall' feature.
-+ If no syscall has been specified for filtering, its value is NULL.
-+ Otherwise, it holds a list of all syscalls to be caught.
-+ The list elements are allocated with xmalloc. */
-+ struct syscall_filter *syscalls_to_be_caught;
++You can examine the available @code{SystemTap} static probes using
++@code{info probes}:
+
- /* Methods associated with this breakpoint. */
- struct breakpoint_ops *ops;
-
-@@ -783,6 +809,8 @@ extern void enable_watchpoints_after_interactive_call_stop (void);
- extern enum command_control_type commands_from_control_command
- (char *arg, struct command_line *cmd);
-
-+extern void clear_syscall_catchpoints_info (void);
++@table @code
++@kindex info probes
++@item info probes [@var{provider} [@var{name} [@var{objfile}]]]
++List the available @code{SystemTap} static probes.
+
- extern void clear_breakpoint_hit_counts (void);
-
- extern int get_number (char **);
-@@ -857,7 +885,19 @@ extern int breakpoints_always_inserted_mode (void);
- in our opinion won't ever trigger. */
- extern void breakpoint_retire_moribund (void);
-
-+/* Checks if we are catching syscalls or not.
-+ Returns 0 if not, greater than 0 if we are. */
-+extern int catch_syscall_enabled (void);
++If given, @var{provider} is a regular expression used to select which
++providers to list. If omitted, all providers are listed.
+
-+/* Checks if we are catching syscalls with the specific
-+ syscall_number. Used for "filtering" the catchpoints.
-+ Returns 0 if not, greater than 0 if we are. */
-+extern int catching_syscall_number (int syscall_number);
++If given, @var{name} is a regular expression used to select which
++probes to list. If omitted, all probes are listed.
+
- /* Tell a breakpoint to be quiet. */
- extern void make_breakpoint_silent (struct breakpoint *);
-
-+/* Set break condition of breakpoint B to EXP. */
-+extern void set_breakpoint_condition (struct breakpoint *b, char *exp, int from_tty);
++If given, @var{objfile} is a regular expression used to select which
++object files (executable or shared libraries) to examine. If not
++given, all object files are considered.
++@end table
+
- #endif /* !defined (BREAKPOINT_H) */
-diff --git a/gdb/buildsym.c b/gdb/buildsym.c
-index 55ace15..2722daa 100644
---- a/gdb/buildsym.c
-+++ b/gdb/buildsym.c
-@@ -384,6 +384,8 @@ finish_block (struct symbol *symbol, struct pending **listhead,
- opblock = pblock;
- }
++@vindex $_probe_arg@r{, convenience variable}
++A probe may specify up to ten arguments. These are available at the
++point at which the probe is defined---that is, when the current PC is
++at the probe's location. The arguments are available using the
++convenience variables (@pxref{Convenience Vars})
++@code{$_probe_arg0}@dots{}@code{$_probe_arg9}. Each probe argument is
++an integer of the appropriate size; types are not preserved. The
++convenience variable @code{$_probe_argc} holds the number of arguments
++at the current probe point.
++
++These variables are always available, but attempts to access them at
++any location other than a probe point will cause @value{GDBN} to give
++an error.
++
++
+ @c @ifclear BARETARGET
+ @node Error in Breakpoints
+ @subsection ``Cannot insert breakpoints''
+@@ -6414,6 +6469,29 @@ specify the function unambiguously, e.g.
+ functions with identical names in different source files.
+ @end table
-+ block_set_using (block, using_directives, &objfile->objfile_obstack);
++@cindex SystemTap static probe point
++@item probe:@r{[}@var{objfile}:@r{]}@r{[}@var{provider}:@r{]}@var{name}
++The @sc{gnu}/Linux tool @code{SystemTap} provides a way for
++applications to embed static probes. This form of linespec specifies
++the location of such a static probe. See
++@uref{http://sourceware.org/systemtap/wiki/AddingUserSpaceProbingToApps}
++for more information on static probes.
++
++If @var{objfile} is given, only probes coming from that shared library
++or executable are considered. If @var{provider} is given, then only
++probes from that provider are considered.
++
++@xref{Static Probe Points}, for more information on finding and using
++static probes.
++
++Some probes have an associated semaphore variable; for instance, this
++happens automatically if you defined your probe using a DTrace-style
++@file{.d} file. If your probe has a semaphore, @value{GDBN} will
++automatically enable it when you specify a breakpoint using the
++@samp{probe:} notation. But, if you put a breakpoint at a probe's
++location by some other method (e.g., @code{break file:line}), then
++@value{GDBN} will not automatically set the semaphore.
+
- record_pending_block (objfile, block, opblock);
-
- return block;
-@@ -815,10 +817,6 @@ start_symtab (char *name, char *dirname, CORE_ADDR start_addr)
- /* We shouldn't have any address map at this point. */
- gdb_assert (! pending_addrmap);
+ @end table
-- /* Set up support for C++ namespace support, in case we need it. */
--
-- cp_initialize_namespace ();
--
- /* Initialize the list of sub source files with one entry for this
- file (the top-level source file). */
-
-@@ -1015,8 +1013,6 @@ end_symtab (CORE_ADDR end_addr, struct objfile *objfile, int section)
- finish_block (0, &global_symbols, 0, last_source_start_addr, end_addr,
- objfile);
- blockvector = make_blockvector (objfile);
-- cp_finalize_namespace (BLOCKVECTOR_BLOCK (blockvector, STATIC_BLOCK),
-- &objfile->objfile_obstack);
- }
- /* Read the line table if it has to be read separately. */
-@@ -1202,10 +1198,12 @@ push_context (int desc, CORE_ADDR valu)
- new->params = param_symbols;
- new->old_blocks = pending_blocks;
- new->start_addr = valu;
-+ new->using_directives = using_directives;
- new->name = NULL;
+@@ -8500,6 +8578,10 @@ to match the format in which the data wa
+ The variable @code{$_exitcode} is automatically set to the exit code when
+ the program being debugged terminates.
- local_symbols = NULL;
- param_symbols = NULL;
-+ using_directives = NULL;
++@item $_probe_argc
++@itemx $_probe_arg0@dots{}$_probe_arg9
++Arguments to a SystemTap static probe. @xref{Static Probe Points}.
++
+ @item $_sdata
+ @vindex $_sdata@r{, inspect, convenience variable}
+ The variable @code{$_sdata} contains extra collected static tracepoint
+@@ -10219,6 +10301,16 @@ Collect all function arguments.
+ @item $locals
+ Collect all local variables.
- return new;
- }
-diff --git a/gdb/buildsym.h b/gdb/buildsym.h
-index bf23ecc..f542aca 100644
---- a/gdb/buildsym.h
-+++ b/gdb/buildsym.h
-@@ -125,6 +125,10 @@ EXTERN struct pending *local_symbols;
-
- EXTERN struct pending *param_symbols;
-
-+/* using directives local to lexical context */
-+
-+EXTERN struct using_direct *using_directives;
-+
- /* Stack representing unclosed lexical contexts (that will become
- blocks, eventually). */
-
-@@ -138,6 +142,10 @@ struct context_stack
-
- struct pending *params;
-
-+ /* Pending using directives at the time we entered */
-+
-+ struct using_direct *using_directives;
-+
- /* Pointer into blocklist as of entry */
-
- struct pending_block *old_blocks;
-diff --git a/gdb/c-exp.y b/gdb/c-exp.y
-index d4bbbcc..107452a 100644
---- a/gdb/c-exp.y
-+++ b/gdb/c-exp.y
-@@ -119,6 +119,8 @@ static int yylex (void);
-
- void yyerror (char *);
-
-+/* Cleanup for 'nonempty_typelist' */
-+static struct cleanup *typelist_cleanup;
- %}
-
- /* Although the yacc "value" of an expression is not used,
-@@ -143,6 +145,7 @@ void yyerror (char *);
- struct symbol *sym;
- struct type *tval;
- struct stoken sval;
-+ struct typed_stoken tsval;
- struct ttype tsym;
- struct symtoken ssym;
- int voidval;
-@@ -150,6 +153,7 @@ void yyerror (char *);
- enum exp_opcode opcode;
- struct internalvar *ivar;
-
-+ struct stoken_vector svec;
- struct type **tvec;
- int *ivec;
- }
-@@ -182,11 +186,13 @@ static int parse_number (char *, int, int, YYSTYPE *);
- Contexts where this distinction is not important can use the
- nonterminal "name", which matches either NAME or TYPENAME. */
-
--%token <sval> STRING
-+%token <tsval> STRING
-+%token <tsval> CHAR
- %token <ssym> NAME /* BLOCKNAME defined below to give it higher precedence. */
- %token <voidval> COMPLETE
- %token <tsym> TYPENAME
--%type <sval> name string_exp
-+%type <sval> name
-+%type <svec> string_exp
- %type <ssym> name_not_typename
- %type <tsym> typename
-
-@@ -399,6 +405,38 @@ arglist : arglist ',' exp %prec ABOVE_COMMA
- { arglist_len++; }
- ;
++@item $_probe_argc
++Collects the number of arguments from the @code{SystemTap} probe at
++which the tracepoint is located.
++@xref{Static Probe Points,,Static Probe Points}
++
++@item $_probe_arg@var{N}
++Where @var{N} varies from 0 to 9. Collects the @var{N}th argument
++from the @code{SystemTap} probe at which the tracepoint is located.
++@xref{Static Probe Points,,Static Probe Points}
++
+ @item $_sdata
+ @vindex $_sdata@r{, collect}
+ Collect static tracepoint marker specific data. Only available for
+@@ -20720,8 +20812,6 @@ containing @code{end}. For example:
-+exp : exp '(' nonempty_typelist ')'
-+ { int i;
-+ /* What to do about freeing memory if
-+ there is an error during parsing? */
-+ write_exp_elt_opcode (TYPE_INSTANCE);
-+ write_exp_elt_longcst ((LONGEST) $<ivec>3[0]);
-+ for (i = 0; i < $<ivec>3[0]; ++i)
-+ write_exp_elt_type ($<tvec>3[i + 1]);
-+ write_exp_elt_longcst((LONGEST) $<ivec>3[0]);
-+ write_exp_elt_opcode (TYPE_INSTANCE);
-+ do_cleanups (typelist_cleanup);
-+ }
-+ ;
-+
-+/*
-+exp : BLOCKNAME '(' nonempty_typelist ')'
-+ { int i;
-+ write_exp_elt_opcode (TYPE_INSTANCE_LOOKUP);
-+ write_exp_elt_sym ($1.sym);
-+ write_exp_elt_opcode (TYPE_INSTANCE_LOOKUP);
-+
-+ write_exp_elt_opcode (TYPE_INSTANCE);
-+ write_exp_elt_longcst ((LONGEST) $<ivec>3[0]);
-+ for (i = 0; i < $<ivec>3[0]; ++i)
-+ write_exp_elt_type ($<tvec>3[i + 1]);
-+ write_exp_elt_longcst((LONGEST) $<ivec>3[0]);
-+ write_exp_elt_opcode (TYPE_INSTANCE);
-+ do_cleanups (typelist_cleanup);
-+ }
-+ ;
-+*/
-+
- rcurly : '}'
- { $$ = end_arglist () - 1; }
- ;
-@@ -524,6 +562,15 @@ exp : INT
- write_exp_elt_opcode (OP_LONG); }
- ;
+ @smallexample
+ (@value{GDBP}) python
+-Type python script
+-End with a line saying just "end".
+ >print 23
+ >end
+ 23
+@@ -20734,6 +20824,14 @@ in a Python script. This can be control
+ python print-stack}: if @code{on}, the default, then Python stack
+ printing is enabled; if @code{off}, then Python stack printing is
+ disabled.
++
++@kindex maint set python auto-load
++@item maint set python auto-load
++By default, @value{GDBN} will attempt to automatically load Python
++code when an object file is opened. This can be controlled using
++@code{maint set python auto-load}: if @code{on}, the default, then
++Python auto-loading is enabled; if @code{off}, then Python
++auto-loading is disabled.
+ @end table
-+exp : CHAR
-+ {
-+ struct stoken_vector vec;
-+ vec.len = 1;
-+ vec.tokens = &$1;
-+ write_exp_string_vector ($1.type, &vec);
-+ }
-+ ;
-+
- exp : NAME_OR_INT
- { YYSTYPE val;
- parse_number ($1.stoken.ptr, $1.stoken.length, 0, &val);
-@@ -572,48 +619,64 @@ string_exp:
- string. Note that we follow the
- NUL-termination convention of the
- lexer. */
-- $$.length = $1.length;
-- $$.ptr = malloc ($1.length + 1);
-- memcpy ($$.ptr, $1.ptr, $1.length + 1);
-+ struct typed_stoken *vec = XNEW (struct typed_stoken);
-+ $$.len = 1;
-+ $$.tokens = vec;
-+
-+ vec->type = $1.type;
-+ vec->length = $1.length;
-+ vec->ptr = malloc ($1.length + 1);
-+ memcpy (vec->ptr, $1.ptr, $1.length + 1);
- }
-
- | string_exp STRING
- {
- /* Note that we NUL-terminate here, but just
- for convenience. */
-- struct stoken t;
-- t.length = $1.length + $2.length;
-- t.ptr = malloc (t.length + 1);
-- memcpy (t.ptr, $1.ptr, $1.length);
-- memcpy (t.ptr + $1.length, $2.ptr, $2.length + 1);
-- free ($1.ptr);
-- $$ = t;
-+ char *p;
-+ ++$$.len;
-+ $$.tokens = realloc ($$.tokens,
-+ $$.len * sizeof (struct typed_stoken));
-+
-+ p = malloc ($2.length + 1);
-+ memcpy (p, $2.ptr, $2.length + 1);
-+
-+ $$.tokens[$$.len - 1].type = $2.type;
-+ $$.tokens[$$.len - 1].length = $2.length;
-+ $$.tokens[$$.len - 1].ptr = p;
- }
- ;
-
- exp : string_exp
-- { /* C strings are converted into array constants with
-- an explicit null byte added at the end. Thus
-- the array upper bound is the string length.
-- There is no such thing in C as a completely empty
-- string. */
-- char *sp = $1.ptr; int count = $1.length;
-- while (count-- > 0)
-+ {
-+ int i;
-+ enum c_string_type type = C_STRING;
-+
-+ for (i = 0; i < $1.len; ++i)
- {
-- write_exp_elt_opcode (OP_LONG);
-- write_exp_elt_type (parse_type->builtin_char);
-- write_exp_elt_longcst ((LONGEST)(*sp++));
-- write_exp_elt_opcode (OP_LONG);
-+ switch ($1.tokens[i].type)
-+ {
-+ case C_STRING:
-+ break;
-+ case C_WIDE_STRING:
-+ case C_STRING_16:
-+ case C_STRING_32:
-+ if (type != C_STRING
-+ && type != $1.tokens[i].type)
-+ error ("Undefined string concatenation.");
-+ type = $1.tokens[i].type;
-+ break;
-+ default:
-+ /* internal error */
-+ internal_error (__FILE__, __LINE__,
-+ "unrecognized type in string concatenation");
-+ }
- }
-- write_exp_elt_opcode (OP_LONG);
-- write_exp_elt_type (parse_type->builtin_char);
-- write_exp_elt_longcst ((LONGEST)'\0');
-- write_exp_elt_opcode (OP_LONG);
-- write_exp_elt_opcode (OP_ARRAY);
-- write_exp_elt_longcst ((LONGEST) 0);
-- write_exp_elt_longcst ((LONGEST) ($1.length));
-- write_exp_elt_opcode (OP_ARRAY);
-- free ($1.ptr);
-+
-+ write_exp_string_vector (type, &$1);
-+ for (i = 0; i < $1.len; ++i)
-+ free ($1.tokens[i].ptr);
-+ free ($1.tokens);
- }
- ;
+ It is also possible to execute a Python script from the @value{GDBN}
+@@ -20755,6 +20853,14 @@ and thus is always available.
+ @cindex python api
+ @cindex programming in python
-@@ -713,12 +776,13 @@ qualified_name: typebase COLONCOLON name
- ;
++You can get quick online help for @value{GDBN}'s Python API by issuing
++the command @w{@kbd{python help (gdb)}}.
++
++Functions and methods which have two or more optional arguments allow
++them to be specified using keyword syntax. This allows passing some
++optional arguments while skipping others. Example:
++@w{@code{gdb.some_function ('foo', bar = 1, baz = 2)}}.
++
+ @cindex python stdout
+ @cindex python pagination
+ At startup, @value{GDBN} overrides Python's @code{sys.stdout} and
+Index: gdb-7.2.90.20110703/gdb/doc/gdbint.texinfo
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/doc/gdbint.texinfo 2011-02-04 20:10:12.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/doc/gdbint.texinfo 2011-07-03 10:33:11.000000000 +0200
+@@ -2104,6 +2104,18 @@ time, and so we attempt to handle symbol
+ we create @dfn{partial symbol tables} consisting of only selected
+ symbols, and only expand them to full symbol tables when necessary.
+
++@menu
++* Symbol Reading::
++* Partial Symbol Tables::
++* Types::
++* Object File Formats::
++* Debugging File Formats::
++* Adding a New Symbol Reader to GDB::
++* Memory Management for Symbol Files::
++* Memory Management for Types::
++@end menu
++
++@node Symbol Reading
+ @section Symbol Reading
+
+ @cindex symbol reading
+@@ -2196,6 +2208,7 @@ symtab. Upon return, @code{pst->readin}
+ zero if there were no symbols in that part of the symbol file.
+ @end table
- variable: qualified_name
-+ | COLONCOLON qualified_name
- | COLONCOLON name
- {
- char *name = copy_name ($2);
- struct symbol *sym;
- struct minimal_symbol *msymbol;
--
-+
- sym =
- lookup_symbol (name, (const struct block *) NULL,
- VAR_DOMAIN, (int *) NULL);
-@@ -856,7 +920,7 @@ array_mod: '[' ']'
- func_mod: '(' ')'
- { $$ = 0; }
- | '(' nonempty_typelist ')'
-- { free ($2); $$ = 0; }
-+ { do_cleanups (typelist_cleanup); $$ = 0; }
- ;
++@node Partial Symbol Tables
+ @section Partial Symbol Tables
+
+ @value{GDBN} has three types of symbol tables:
+@@ -2297,6 +2310,7 @@ and partial symbol tables behind a set o
+ the @dfn{quick symbol functions}. These are documented in
+ @file{symfile.h}.
+
++@node Types
+ @section Types
+
+ @unnumberedsubsec Fundamental Types (e.g., @code{FT_VOID}, @code{FT_BOOLEAN}).
+@@ -2319,6 +2333,7 @@ types map to one @code{TYPE_CODE_*} type
+ other members of the type struct, such as whether the type is signed
+ or unsigned, and how many bits it uses.
+
++@anchor{Builtin Types}
+ @unnumberedsubsec Builtin Types (e.g., @code{builtin_type_void}, @code{builtin_type_char}).
+
+ These are instances of type structs that roughly correspond to
+@@ -2333,6 +2348,7 @@ only one instance exists, while @file{c-
+ @code{TYPE_CODE_INT} types as needed, with each one associated with
+ some particular objfile.
+
++@node Object File Formats
+ @section Object File Formats
+ @cindex object file formats
+
+@@ -2418,6 +2434,7 @@ SOM, which is a cross-language ABI).
+
+ The SOM reader is in @file{somread.c}.
+
++@node Debugging File Formats
+ @section Debugging File Formats
+
+ This section describes characteristics of debugging information that
+@@ -2489,6 +2506,7 @@ DWARF 3 is an improved version of DWARF
+ @cindex SOM debugging info
+ Like COFF, the SOM definition includes debugging information.
+
++@node Adding a New Symbol Reader to GDB
+ @section Adding a New Symbol Reader to @value{GDBN}
+
+ @cindex adding debugging info reader
+@@ -2511,6 +2529,7 @@ will only ever be implemented by one obj
+ directly. This interface should be described in a file
+ @file{bfd/lib@var{xyz}.h}, which is included by @value{GDBN}.
+
++@node Memory Management for Symbol Files
+ @section Memory Management for Symbol Files
+
+ Most memory associated with a loaded symbol file is stored on
+@@ -2522,10 +2541,45 @@ released when the objfile is unloaded or
+ objfile must not reference symbol or type data from another objfile;
+ they could be unloaded at different times.
+
+-User convenience variables, et cetera, have associated types. Normally
+-these types live in the associated objfile. However, when the objfile
+-is unloaded, those types are deep copied to global memory, so that
+-the values of the user variables and history items are not lost.
++@node Memory Management for Types
++@section Memory Management for Types
++@cindex memory management for types
++
++@findex TYPE_OBJFILE
++@code{TYPE_OBJFILE} macro indicates the current memory owner of the type.
++Non-@code{NULL} value indicates it is owned by an objfile (specifically by its
++obstack) and in such case the type remains valid till the objfile is unloaded
++or reloaded. For such types with an associated objfile no reference counting
++is being made.
++
++User convenience variables, et cetera, have associated types. Normally these
++types live in the associated objfile. However, when the objfile is unloaded,
++those types are deep copied to global memory, so that the values of the user
++variables and history items are not lost. During the copy they will get their
++@code{TYPE_OBJFILE} set to @code{NULL} and become so-called @dfn{reclaimable}
++types.
++
++Types with null @code{TYPE_OBJFILE} can be either permanent types
++(@pxref{Builtin Types}) or reclaimable types which will be deallocated at the
++first idle @value{GDBN} moment if the last object referencing them is removed.
++Permanent types are allocated by the function @code{alloc_type} (and its
++derivations like @code{init_type}) specifying objfile as @code{NULL}. The
++reclaimable types are created the same way but moreover they need to have
++@code{type_init_group} called to start their tracking as being possibly
++deallocatable.
++
++@findex free_all_types
++When @value{GDBN} gets idle it always calls the @code{free_all_types} function
++which deallocates any unused types. All types currently not owned by an
++objfile must be marked as used on each @code{free_all_types} call as they would
++get deallocated as unused otherwise.
++
++@code{free_all_types} automatically checks for any cross-type references such
++as through @code{TYPE_TARGET_TYPE}, @code{TYPE_POINTER_TYPE} etc.@: and
++prevents early deallocation for any such existing references. Reclaimable
++types may reference any other reclaimable types or even permanent types. But
++permanent types must not reference reclaimable types (nor an objfile associated
++type).
+
+
+ @node Language Support
+Index: gdb-7.2.90.20110703/gdb/doc/observer.texi
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/doc/observer.texi 2011-01-05 06:09:54.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/doc/observer.texi 2011-07-03 10:33:11.000000000 +0200
+@@ -223,6 +223,11 @@ Bytes from @var{data} to @var{data} + @v
+ to the current inferior at @var{addr}.
+ @end deftypefun
+
++@c @deftypefun void mark_used (void)
++@c Mark any possibly reclaimable objects as used during a mark-and-sweep garbage
++@c collector pass. Currently only @code{type_mark_used} marker is supported.
++@c @end deftypefun
++
+ @deftypefun void test_notification (int @var{somearg})
+ This observer is used for internal testing. Do not use.
+ See testsuite/gdb.gdb/observer.exp.
+Index: gdb-7.2.90.20110703/gdb/dwarf2expr.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/dwarf2expr.c 2011-05-13 20:54:47.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/dwarf2expr.c 2011-07-03 10:33:11.000000000 +0200
+@@ -912,6 +912,13 @@ execute_stack_op (struct dwarf_expr_cont
+ ctx->num_pieces = 0;
+ goto abort_expression;
- /* We used to try to recognize pointer to member types here, but
-@@ -1057,12 +1121,15 @@ typename: TYPENAME
- nonempty_typelist
- : type
- { $$ = (struct type **) malloc (sizeof (struct type *) * 2);
-+ typelist_cleanup = make_cleanup (free, $$);
- $<ivec>$[0] = 1; /* Number of types in vector */
- $$[1] = $1;
- }
- | nonempty_typelist ',' type
- { int len = sizeof (struct type *) * (++($<ivec>1[0]) + 1);
- $$ = (struct type **) realloc ((char *) $1, len);
-+ discard_cleanups (typelist_cleanup);
-+ typelist_cleanup = make_cleanup (free, $$);
- $$[$<ivec>$[0]] = $3;
- }
- ;
-@@ -1361,6 +1428,263 @@ parse_number (p, len, parsed_float, putithere)
- return INT;
- }
++ case DW_OP_push_object_address:
++ if (ctx->get_object_address == NULL)
++ error (_("DWARF-2 expression error: DW_OP_push_object_address must "
++ "have a value to push."));
++ result = (ctx->get_object_address) (ctx->baton);
++ break;
++
+ default:
+ error (_("Unhandled dwarf expression opcode 0x%x"), op);
+ }
+Index: gdb-7.2.90.20110703/gdb/dwarf2expr.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/dwarf2expr.h 2011-02-27 17:25:37.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/dwarf2expr.h 2011-07-03 10:33:11.000000000 +0200
+@@ -114,9 +114,15 @@ struct dwarf_expr_context
+ #if 0
+ /* Not yet implemented. */
-+/* Temporary obstack used for holding strings. */
-+static struct obstack tempbuf;
-+static int tempbuf_init;
++ /* Return the location expression for the dwarf expression
++ subroutine in the die at OFFSET in the current compilation unit.
++ The result must be live until the current expression evaluation
++ is complete. */
++ unsigned char *(*get_subr) (void *baton, off_t offset, size_t *length);
++#endif
+
-+/* Parse a C escape sequence. The initial backslash of the sequence
-+ is at (*PTR)[-1]. *PTR will be updated to point to just after the
-+ last character of the sequence. If OUTPUT is not NULL, the
-+ translated form of the escape sequence will be written there. If
-+ OUTPUT is NULL, no output is written and the call will only affect
-+ *PTR. If an escape sequence is expressed in target bytes, then the
-+ entire sequence will simply be copied to OUTPUT. Return 1 if any
-+ character was emitted, 0 otherwise. */
+ /* Return the `object address' for DW_OP_push_object_address. */
+ CORE_ADDR (*get_object_address) (void *baton);
+-#endif
+
+ /* The current depth of dwarf expression recursion, via DW_OP_call*,
+ DW_OP_fbreg, DW_OP_push_object_address, etc., and the maximum
+Index: gdb-7.2.90.20110703/gdb/dwarf2loc.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/dwarf2loc.c 2011-03-22 22:06:33.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/dwarf2loc.c 2011-07-03 10:33:11.000000000 +0200
+@@ -134,6 +134,9 @@ struct dwarf_expr_baton
+ {
+ struct frame_info *frame;
+ struct dwarf2_per_cu_data *per_cu;
++ /* From DW_TAG_variable's DW_AT_location (not DW_TAG_type's
++ DW_AT_data_location) for DW_OP_push_object_address. */
++ CORE_ADDR object_address;
+ };
+
+ /* Helper functions for dwarf2_evaluate_loc_desc. */
+@@ -202,23 +205,33 @@ dwarf_expr_frame_base_1 (struct symbol *
+ symbaton = SYMBOL_LOCATION_BATON (framefunc);
+ *start = dwarf2_find_location_expression (symbaton, length, pc);
+ }
+- else
++ else if (SYMBOL_COMPUTED_OPS (framefunc) == &dwarf2_locexpr_funcs)
+ {
+ struct dwarf2_locexpr_baton *symbaton;
+
+ symbaton = SYMBOL_LOCATION_BATON (framefunc);
+- if (symbaton != NULL)
+- {
+- *length = symbaton->size;
+- *start = symbaton->data;
+- }
+- else
+- *start = NULL;
++ gdb_assert (symbaton != NULL);
++ *start = symbaton->data;
++ *length = symbaton->size;
++ }
++ else if (SYMBOL_COMPUTED_OPS (framefunc) == &dwarf2_missing_funcs)
++ {
++ struct dwarf2_locexpr_baton *symbaton;
+
-+int
-+c_parse_escape (char **ptr, struct obstack *output)
++ symbaton = SYMBOL_LOCATION_BATON (framefunc);
++ gdb_assert (symbaton == NULL);
++ *start = NULL;
++ *length = 0; /* unused */
+ }
++ else
++ internal_error (__FILE__, __LINE__,
++ _("Unsupported SYMBOL_COMPUTED_OPS %p for \"%s\""),
++ SYMBOL_COMPUTED_OPS (framefunc),
++ SYMBOL_PRINT_NAME (framefunc));
+
+ if (*start == NULL)
+ error (_("Could not find the frame base for \"%s\"."),
+- SYMBOL_NATURAL_NAME (framefunc));
++ SYMBOL_PRINT_NAME (framefunc));
+ }
+
+ /* Helper function for dwarf2_evaluate_loc_desc. Computes the CFA for
+@@ -286,6 +299,172 @@ dwarf_expr_dwarf_call (struct dwarf_expr
+ ctx->get_frame_pc, ctx->baton);
+ }
+
++static CORE_ADDR
++dwarf_expr_object_address (void *baton)
+{
-+ char *tokptr = *ptr;
-+ int result = 1;
++ struct dwarf_expr_baton *debaton = baton;
+
-+ /* Some escape sequences undergo character set conversion. Those we
-+ translate here. */
-+ switch (*tokptr)
-+ {
-+ /* Hex escapes do not undergo character set conversion, so keep
-+ the escape sequence for later. */
-+ case 'x':
-+ if (output)
-+ obstack_grow_str (output, "\\x");
-+ ++tokptr;
-+ if (!isxdigit (*tokptr))
-+ error (_("\\x escape without a following hex digit"));
-+ while (isxdigit (*tokptr))
-+ {
-+ if (output)
-+ obstack_1grow (output, *tokptr);
-+ ++tokptr;
-+ }
-+ break;
++ /* The message is suppressed in DWARF_BLOCK_EXEC. */
++ if (debaton->object_address == 0)
++ error (_("Cannot resolve DW_OP_push_object_address for a missing object"));
+
-+ /* Octal escapes do not undergo character set conversion, so
-+ keep the escape sequence for later. */
-+ case '0':
-+ case '1':
-+ case '2':
-+ case '3':
-+ case '4':
-+ case '5':
-+ case '6':
-+ case '7':
-+ if (output)
-+ obstack_grow_str (output, "\\");
-+ while (isdigit (*tokptr) && *tokptr != '8' && *tokptr != '9')
-+ {
-+ if (output)
-+ obstack_1grow (output, *tokptr);
-+ ++tokptr;
-+ }
-+ break;
++ return debaton->object_address;
++}
+
-+ /* We handle UCNs later. We could handle them here, but that
-+ would mean a spurious error in the case where the UCN could
-+ be converted to the target charset but not the host
-+ charset. */
-+ case 'u':
-+ case 'U':
-+ {
-+ char c = *tokptr;
-+ int i, len = c == 'U' ? 8 : 4;
-+ if (output)
-+ {
-+ obstack_1grow (output, '\\');
-+ obstack_1grow (output, *tokptr);
-+ }
-+ ++tokptr;
-+ if (!isxdigit (*tokptr))
-+ error (_("\\%c escape without a following hex digit"), c);
-+ for (i = 0; i < len && isxdigit (*tokptr); ++i)
-+ {
-+ if (output)
-+ obstack_1grow (output, *tokptr);
-+ ++tokptr;
-+ }
-+ }
-+ break;
++/* Address of the variable we are currently referring to. It is set from
++ DW_TAG_variable's DW_AT_location (not DW_TAG_type's DW_AT_data_location) for
++ DW_OP_push_object_address. */
+
-+ /* We must pass backslash through so that it does not
-+ cause quoting during the second expansion. */
-+ case '\\':
-+ if (output)
-+ obstack_grow_str (output, "\\\\");
-+ ++tokptr;
-+ break;
++static CORE_ADDR object_address;
+
-+ /* Escapes which undergo conversion. */
-+ case 'a':
-+ if (output)
-+ obstack_1grow (output, '\a');
-+ ++tokptr;
-+ break;
-+ case 'b':
-+ if (output)
-+ obstack_1grow (output, '\b');
-+ ++tokptr;
-+ break;
-+ case 'f':
-+ if (output)
-+ obstack_1grow (output, '\f');
-+ ++tokptr;
-+ break;
-+ case 'n':
-+ if (output)
-+ obstack_1grow (output, '\n');
-+ ++tokptr;
-+ break;
-+ case 'r':
-+ if (output)
-+ obstack_1grow (output, '\r');
-+ ++tokptr;
-+ break;
-+ case 't':
-+ if (output)
-+ obstack_1grow (output, '\t');
-+ ++tokptr;
-+ break;
-+ case 'v':
-+ if (output)
-+ obstack_1grow (output, '\v');
-+ ++tokptr;
-+ break;
++/* Callers use object_address_set while their callers use the result set so we
++ cannot run the cleanup at the local block of our direct caller. Still we
++ should reset OBJECT_ADDRESS at least for the next GDB command. */
+
-+ /* GCC extension. */
-+ case 'e':
-+ if (output)
-+ obstack_1grow (output, HOST_ESCAPE_CHAR);
-+ ++tokptr;
-+ break;
++static void
++object_address_cleanup (void *prev_save_voidp)
++{
++ CORE_ADDR *prev_save = prev_save_voidp;
+
-+ /* Backslash-newline expands to nothing at all. */
-+ case '\n':
-+ ++tokptr;
-+ result = 0;
-+ break;
++ object_address = *prev_save;
++ xfree (prev_save);
++}
+
-+ /* A few escapes just expand to the character itself. */
-+ case '\'':
-+ case '\"':
-+ case '?':
-+ /* GCC extensions. */
-+ case '(':
-+ case '{':
-+ case '[':
-+ case '%':
-+ /* Unrecognized escapes turn into the character itself. */
-+ default:
-+ if (output)
-+ obstack_1grow (output, *tokptr);
-+ ++tokptr;
-+ break;
-+ }
-+ *ptr = tokptr;
-+ return result;
++/* Set the base address - DW_AT_location - of a variable. It is being later
++ used to derive other object addresses by DW_OP_push_object_address.
++
++ It would be useful to sanity check ADDRESS - such as for some objects with
++ unset value_raw_address - but some valid addresses may be zero (such as first
++ objects in relocatable .o files). */
++
++void
++object_address_set (CORE_ADDR address)
++{
++ CORE_ADDR *prev_save;
++
++ prev_save = xmalloc (sizeof *prev_save);
++ *prev_save = object_address;
++ make_cleanup (object_address_cleanup, prev_save);
++
++ object_address = address;
+}
+
-+/* Parse a string or character literal from TOKPTR. The string or
-+ character may be wide or unicode. *OUTPTR is set to just after the
-+ end of the literal in the input string. The resulting token is
-+ stored in VALUE. This returns a token value, either STRING or
-+ CHAR, depending on what was parsed. *HOST_CHARS is set to the
-+ number of host characters in the literal. */
-+static int
-+parse_string_or_char (char *tokptr, char **outptr, struct typed_stoken *value,
-+ int *host_chars)
++/* Evaluate DWARF expression at DATA ... DATA + SIZE with its result readable
++ by dwarf_expr_fetch (RETVAL, 0). FRAME parameter can be NULL to call
++ get_selected_frame to find it. Returned dwarf_expr_context freeing is
++ pushed on the cleanup chain. */
++
++static struct dwarf_expr_context *
++dwarf_expr_prep_ctx (struct frame_info *frame, const gdb_byte *data,
++ size_t size, struct dwarf2_per_cu_data *per_cu)
+{
-+ int quote, i;
-+ enum c_string_type type;
-+
-+ /* Build the gdb internal form of the input string in tempbuf. Note
-+ that the buffer is null byte terminated *only* for the
-+ convenience of debugging gdb itself and printing the buffer
-+ contents when the buffer contains no embedded nulls. Gdb does
-+ not depend upon the buffer being null byte terminated, it uses
-+ the length string instead. This allows gdb to handle C strings
-+ (as well as strings in other languages) with embedded null
-+ bytes */
-+
-+ if (!tempbuf_init)
-+ tempbuf_init = 1;
-+ else
-+ obstack_free (&tempbuf, NULL);
-+ obstack_init (&tempbuf);
++ struct dwarf_expr_context *ctx;
++ struct dwarf_expr_baton baton;
++ struct objfile *objfile = dwarf2_per_cu_objfile (per_cu);
++ volatile struct gdb_exception ex;
+
-+ /* Record the string type. */
-+ if (*tokptr == 'L')
-+ {
-+ type = C_WIDE_STRING;
-+ ++tokptr;
-+ }
-+ else if (*tokptr == 'u')
++ baton.frame = frame;
++ baton.per_cu = per_cu;
++ baton.object_address = object_address;
++
++ ctx = new_dwarf_expr_context ();
++ make_cleanup_free_dwarf_expr_context (ctx);
++
++ ctx->gdbarch = get_objfile_arch (objfile);
++ ctx->addr_size = dwarf2_per_cu_addr_size (per_cu);
++ ctx->offset = dwarf2_per_cu_text_offset (per_cu);
++ ctx->baton = &baton;
++ ctx->read_reg = dwarf_expr_read_reg;
++ ctx->read_mem = dwarf_expr_read_mem;
++ ctx->get_frame_base = dwarf_expr_frame_base;
++ ctx->get_frame_cfa = dwarf_expr_frame_cfa;
++ ctx->get_frame_pc = dwarf_expr_frame_pc;
++ ctx->get_tls_address = dwarf_expr_tls_address;
++ ctx->dwarf_call = dwarf_expr_dwarf_call;
++ ctx->get_object_address = dwarf_expr_object_address;
++
++ TRY_CATCH (ex, RETURN_MASK_ERROR)
+ {
-+ type = C_STRING_16;
-+ ++tokptr;
++ dwarf_expr_eval (ctx, data, size);
+ }
-+ else if (*tokptr == 'U')
++ if (ex.reason < 0)
+ {
-+ type = C_STRING_32;
-+ ++tokptr;
++ if (ex.error == NOT_AVAILABLE_ERROR)
++ return NULL;
++ else
++ throw_exception (ex);
+ }
-+ else
-+ type = C_STRING;
+
-+ /* Skip the quote. */
-+ quote = *tokptr;
-+ if (quote == '\'')
-+ type |= C_CHAR;
-+ ++tokptr;
++ /* It was used only during dwarf_expr_eval. */
++ ctx->baton = NULL;
+
-+ *host_chars = 0;
++ return ctx;
++}
+
-+ while (*tokptr)
-+ {
-+ char c = *tokptr;
-+ if (c == '\\')
-+ {
-+ ++tokptr;
-+ *host_chars += c_parse_escape (&tokptr, &tempbuf);
-+ }
-+ else if (c == quote)
-+ break;
-+ else
-+ {
-+ obstack_1grow (&tempbuf, c);
-+ ++tokptr;
-+ /* FIXME: this does the wrong thing with multi-byte host
-+ characters. We could use mbrlen here, but that would
-+ make "set host-charset" a bit less useful. */
-+ ++*host_chars;
-+ }
-+ }
++/* Evaluate DWARF expression at DLBATON expecting it produces exactly one
++ CORE_ADDR result on the DWARF stack stack. */
++
++CORE_ADDR
++dwarf_locexpr_baton_eval (struct dwarf2_locexpr_baton *dlbaton)
++{
++ struct dwarf_expr_context *ctx;
++ CORE_ADDR retval;
++ struct cleanup *back_to = make_cleanup (null_cleanup, 0);
++
++ ctx = dwarf_expr_prep_ctx (get_selected_frame (NULL), dlbaton->data,
++ dlbaton->size, dlbaton->per_cu);
++ if (ctx == NULL)
++ throw_error (NOT_AVAILABLE_ERROR, _("Value not available"));
++ if (ctx->num_pieces > 0)
++ error (_("DW_OP_*piece is unsupported for DW_FORM_block"));
+
-+ if (*tokptr != quote)
++ retval = dwarf_expr_fetch (ctx, 0);
++
++ if (ctx->location == DWARF_VALUE_REGISTER)
+ {
-+ if (quote == '"')
-+ error ("Unterminated string in expression.");
-+ else
-+ error ("Unmatched single quote.");
++ /* Inlined dwarf_expr_read_reg as we no longer have the baton. */
++
++ int gdb_regnum = gdbarch_dwarf2_reg_to_regnum (ctx->gdbarch, retval);
++ struct type *type = builtin_type (ctx->gdbarch)->builtin_data_ptr;
++ struct frame_info *frame = get_selected_frame (NULL);
++
++ retval = address_from_register (type, gdb_regnum, frame);
+ }
-+ ++tokptr;
+
-+ value->type = type;
-+ value->ptr = obstack_base (&tempbuf);
-+ value->length = obstack_object_size (&tempbuf);
++ do_cleanups (back_to);
++
++ return retval;
++}
++
++/* Evaluate DWARF location list at DLLBATON expecting it produces exactly one
++ CORE_ADDR result stored to *ADDRP on the DWARF stack stack. If the result
++ could not be found return zero and keep *ADDRP unchanged. */
++
++int
++dwarf_loclist_baton_eval (struct dwarf2_loclist_baton *dllbaton,
++ struct type *type, CORE_ADDR *addrp)
++{
++ struct frame_info *frame = get_selected_frame (NULL);
++ const gdb_byte *data;
++ size_t size;
++ struct value *val;
++
++ if (!dllbaton)
++ return 0;
++
++ data = dwarf2_find_location_expression (dllbaton, &size,
++ get_frame_address_in_block (frame));
++ if (data == NULL)
++ return 0;
+
-+ *outptr = tokptr;
++ val = dwarf2_evaluate_loc_desc (type, frame, data, size, dllbaton->per_cu);
++ if (value_optimized_out (val))
++ return 0;
+
-+ return quote == '"' ? STRING : CHAR;
++ *addrp = value_as_address (val);
++ return 1;
+}
+
- struct token
+ struct piece_closure
{
- char *operator;
-@@ -1526,23 +1850,33 @@ static int last_was_structop;
- static int
- yylex ()
+ /* Reference count. */
+@@ -1072,11 +1251,8 @@ dwarf2_evaluate_loc_desc_full (struct ty
+ LONGEST byte_offset)
{
-+ /* name_prefix stores the full qualification of a variable that is
-+ specified in the expression. It is used to eleminate confusion
-+ during lookup.*/
-+ static char* name_prefix = NULL;
-+ static int name_prefix_len = 0;
-+ static int terminate_prefix = 0;
-+
- int c;
- int namelen;
- unsigned int i;
- char *tokstart;
-- char *tokptr;
-- int tempbufindex;
-- static char *tempbuf;
-- static int tempbufsize;
-- char * token_string = NULL;
-- int class_prefix = 0;
- int saw_structop = last_was_structop;
- char *copy;
-
- last_was_structop = 0;
+ struct value *retval;
+- struct dwarf_expr_baton baton;
+ struct dwarf_expr_context *ctx;
+ struct cleanup *old_chain;
+- struct objfile *objfile = dwarf2_per_cu_objfile (per_cu);
+- volatile struct gdb_exception ex;
+
+ if (byte_offset < 0)
+ invalid_synthetic_pointer ();
+@@ -1089,38 +1265,14 @@ dwarf2_evaluate_loc_desc_full (struct ty
+ return retval;
+ }
+
+- baton.frame = frame;
+- baton.per_cu = per_cu;
-
-+
- retry:
+- ctx = new_dwarf_expr_context ();
+- old_chain = make_cleanup_free_dwarf_expr_context (ctx);
-
-+
-+ if(terminate_prefix ||
-+ lexptr != name_prefix + name_prefix_len // Some token was skiped so clear name_prefix
-+ ){
-+ name_prefix = NULL;
-+ name_prefix_len = 0;
-+ }
-+
-+ terminate_prefix = 1;
-+
- /* Check if this is a macro invocation that we need to expand. */
- if (! scanning_macro_expansion ())
- {
-@@ -1570,10 +1904,19 @@ yylex ()
- for (i = 0; i < sizeof tokentab2 / sizeof tokentab2[0]; i++)
- if (strncmp (tokstart, tokentab2[i].operator, 2) == 0)
- {
-+
-+ if(tokentab2[i].token == COLONCOLON){
-+ name_prefix_len += 2;
-+ terminate_prefix = 0;
-+ if(name_prefix == NULL){
-+ name_prefix = lexptr;
-+ }
-+ }
- lexptr += 2;
- yylval.opcode = tokentab2[i].opcode;
- if (in_parse_field && tokentab2[i].token == ARROW)
- last_was_structop = 1;
-+
- return tokentab2[i].token;
- }
+- ctx->gdbarch = get_objfile_arch (objfile);
+- ctx->addr_size = dwarf2_per_cu_addr_size (per_cu);
+- ctx->offset = dwarf2_per_cu_text_offset (per_cu);
+- ctx->baton = &baton;
+- ctx->read_reg = dwarf_expr_read_reg;
+- ctx->read_mem = dwarf_expr_read_mem;
+- ctx->get_frame_base = dwarf_expr_frame_base;
+- ctx->get_frame_cfa = dwarf_expr_frame_cfa;
+- ctx->get_frame_pc = dwarf_expr_frame_pc;
+- ctx->get_tls_address = dwarf_expr_tls_address;
+- ctx->dwarf_call = dwarf_expr_dwarf_call;
++ old_chain = make_cleanup (null_cleanup, 0);
-@@ -1602,51 +1945,13 @@ yylex ()
- return 0;
-
- case ' ':
-+ name_prefix_len++;
-+ terminate_prefix = 0;
- case '\t':
- case '\n':
- lexptr++;
- goto retry;
-
-- case '\'':
-- /* We either have a character constant ('0' or '\177' for example)
-- or we have a quoted symbol reference ('foo(int,int)' in C++
-- for example). */
-- lexptr++;
-- c = *lexptr++;
-- if (c == '\\')
-- c = parse_escape (&lexptr);
-- else if (c == '\'')
-- error ("Empty character constant.");
-- else if (! host_char_to_target (c, &c))
-- {
-- int toklen = lexptr - tokstart + 1;
-- char *tok = alloca (toklen + 1);
-- memcpy (tok, tokstart, toklen);
-- tok[toklen] = '\0';
-- error ("There is no character corresponding to %s in the target "
-- "character set `%s'.", tok, target_charset ());
-- }
--
-- yylval.typed_val_int.val = c;
-- yylval.typed_val_int.type = parse_type->builtin_char;
--
-- c = *lexptr++;
-- if (c != '\'')
-- {
-- namelen = skip_quoted (tokstart) - tokstart;
-- if (namelen > 2)
-- {
-- lexptr = tokstart + namelen;
-- if (lexptr[-1] != '\'')
-- error ("Unmatched single quote.");
-- namelen -= 2;
-- tokstart++;
-- goto tryname;
-- }
-- error ("Invalid character constant.");
-- }
-- return INT;
--
- case '(':
- paren_depth++;
- lexptr++;
-@@ -1764,70 +2069,33 @@ yylex ()
- lexptr++;
- return c;
-
-+ case 'L':
-+ case 'u':
-+ case 'U':
-+ if (tokstart[1] != '"' && tokstart[1] != '\'')
-+ break;
-+ /* Fall through. */
-+ case '\'':
- case '"':
--
-- /* Build the gdb internal form of the input string in tempbuf,
-- translating any standard C escape forms seen. Note that the
-- buffer is null byte terminated *only* for the convenience of
-- debugging gdb itself and printing the buffer contents when
-- the buffer contains no embedded nulls. Gdb does not depend
-- upon the buffer being null byte terminated, it uses the length
-- string instead. This allows gdb to handle C strings (as well
-- as strings in other languages) with embedded null bytes */
--
-- tokptr = ++tokstart;
-- tempbufindex = 0;
--
-- do {
-- char *char_start_pos = tokptr;
--
-- /* Grow the static temp buffer if necessary, including allocating
-- the first one on demand. */
-- if (tempbufindex + 1 >= tempbufsize)
-- {
-- tempbuf = (char *) realloc (tempbuf, tempbufsize += 64);
-- }
-- switch (*tokptr)
-+ {
-+ int host_len;
-+ int result = parse_string_or_char (tokstart, &lexptr, &yylval.tsval,
-+ &host_len);
-+ if (result == CHAR)
- {
-- case '\0':
-- case '"':
-- /* Do nothing, loop will terminate. */
-- break;
-- case '\\':
-- tokptr++;
-- c = parse_escape (&tokptr);
-- if (c == -1)
-+ if (host_len == 0)
-+ error ("Empty character constant.");
-+ else if (host_len > 2 && c == '\'')
- {
-- continue;
-+ ++tokstart;
-+ namelen = lexptr - tokstart - 1;
-+ goto tryname;
- }
-- tempbuf[tempbufindex++] = c;
-- break;
-- default:
-- c = *tokptr++;
-- if (! host_char_to_target (c, &c))
-- {
-- int len = tokptr - char_start_pos;
-- char *copy = alloca (len + 1);
-- memcpy (copy, char_start_pos, len);
-- copy[len] = '\0';
--
-- error ("There is no character corresponding to `%s' "
-- "in the target character set `%s'.",
-- copy, target_charset ());
-- }
-- tempbuf[tempbufindex++] = c;
-- break;
-+ else if (host_len > 1)
-+ error ("Invalid character constant.");
- }
-- } while ((*tokptr != '"') && (*tokptr != '\0'));
-- if (*tokptr++ != '"')
+- TRY_CATCH (ex, RETURN_MASK_ERROR)
+- {
+- dwarf_expr_eval (ctx, data, size);
+- }
+- if (ex.reason < 0)
++ ctx = dwarf_expr_prep_ctx (frame, data, size, per_cu);
++ if (ctx == NULL)
+ {
+- if (ex.error == NOT_AVAILABLE_ERROR)
- {
-- error ("Unterminated string in expression.");
+- retval = allocate_value (type);
+- mark_value_bytes_unavailable (retval, 0, TYPE_LENGTH (type));
+- return retval;
- }
-- tempbuf[tempbufindex] = '\0'; /* See note above */
-- yylval.sval.ptr = tempbuf;
-- yylval.sval.length = tempbufindex;
-- lexptr = tokptr;
-- return (STRING);
-+ return result;
-+ }
+- else
+- throw_exception (ex);
++ retval = allocate_value (type);
++ mark_value_bytes_unavailable (retval, 0, TYPE_LENGTH (type));
++ return retval;
}
- if (!(c == '_' || c == '$'
-@@ -1836,11 +2104,13 @@ yylex ()
- error ("Invalid character '%c' in expression.", c);
+ if (ctx->num_pieces > 0)
+@@ -1166,6 +1318,15 @@ dwarf2_evaluate_loc_desc_full (struct ty
+ CORE_ADDR address = dwarf_expr_fetch_address (ctx, 0);
+ int in_stack_memory = dwarf_expr_fetch_in_stack_memory (ctx, 0);
- /* It's a name. See how long it is. */
-+
- namelen = 0;
- for (c = tokstart[namelen];
- (c == '_' || c == '$' || (c >= '0' && c <= '9')
- || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z') || c == '<');)
- {
-+
- /* Template parameter lists are part of the name.
- FIXME: This mishandles `print $a<4&&$a>3'. */
-
-@@ -1904,14 +2174,29 @@ yylex ()
- currently as names of types; NAME for other symbols.
- The caller is not constrained to care about the distinction. */
- {
-+ char *tmp = copy;
- struct symbol *sym;
- int is_a_field_of_this = 0;
- int hextype;
-
-- sym = lookup_symbol (copy, expression_context_block,
-+ if(name_prefix != NULL){
-+ tmp = savestring (name_prefix, name_prefix_len+namelen);
-+ }
++ /* Frame may be needed for check_typedef of TYPE_DYNAMIC. */
++ make_cleanup_restore_selected_frame ();
++ select_frame (frame);
+
-+ sym = lookup_symbol (tmp, expression_context_block,
- VAR_DOMAIN,
- parse_language->la_language == language_cplus
- ? &is_a_field_of_this : (int *) NULL);
-+
-+ /* keep this name as prefix for the next name */
-+ if(sym){
-+ if(name_prefix == NULL){
-+ name_prefix = tokstart;
-+ }
-+ name_prefix_len += namelen;
-+ terminate_prefix = 0;
-+ }
++ /* object_address_set called here is required in ALLOCATE_VALUE's
++ CHECK_TYPEDEF for the object's possible
++ DW_OP_push_object_address. */
++ object_address_set (address);
+
- /* Call lookup_symtab, not lookup_partial_symtab, in case there are
- no psymtabs (coff, xcoff, or some future change to blow away the
- psymtabs once once symbols are read). */
-@@ -1970,6 +2255,7 @@ yylex ()
- yylval.ssym.is_a_field_of_this = is_a_field_of_this;
- if (in_parse_field && *lexptr == '\0')
- saw_name_at_eof = 1;
-+
- return NAME;
- }
+ retval = allocate_value_lazy (type);
+ VALUE_LVAL (retval) = lval_memory;
+ if (in_stack_memory)
+@@ -2855,11 +3016,51 @@ loclist_tracepoint_var_ref (struct symbo
+ dlbaton->per_cu);
}
-diff --git a/gdb/c-lang.c b/gdb/c-lang.c
-index 8b5410f..188755b 100644
---- a/gdb/c-lang.c
-+++ b/gdb/c-lang.c
-@@ -33,48 +33,304 @@
- #include "demangle.h"
- #include "cp-abi.h"
- #include "cp-support.h"
-+#include "gdb_obstack.h"
-+#include <ctype.h>
-+#include <wchar.h>
-+#include <wctype.h>
- extern void _initialize_c_language (void);
--static void c_emit_char (int c, struct ui_file * stream, int quoter);
-+
-+/* Given a C string type, STR_TYPE, return the corresponding target
-+ character set name. */
+-/* The set of location functions used with the DWARF-2 expression
+- evaluator and location lists. */
++/* The set of location functions used with the DWARF-2 location lists. */
+ const struct symbol_computed_ops dwarf2_loclist_funcs = {
+ loclist_read_variable,
+ loclist_read_needs_frame,
+ loclist_describe_location,
+ loclist_tracepoint_var_ref
+ };
+
-+static const char *
-+charset_for_string_type (enum c_string_type str_type)
++static struct value *
++missing_read_variable (struct symbol *symbol, struct frame_info *frame)
+{
-+ switch (str_type & ~C_CHAR)
-+ {
-+ case C_STRING:
-+ return target_charset ();
-+ case C_WIDE_STRING:
-+ return target_wide_charset ();
-+ case C_STRING_16:
-+ /* FIXME: UCS-2 is not always correct. */
-+ if (gdbarch_byte_order (current_gdbarch) == BFD_ENDIAN_BIG)
-+ return "UCS-2BE";
-+ else
-+ return "UCS-2LE";
-+ case C_STRING_32:
-+ /* FIXME: UCS-4 is not always correct. */
-+ if (gdbarch_byte_order (current_gdbarch) == BFD_ENDIAN_BIG)
-+ return "UCS-4BE";
-+ else
-+ return "UCS-4LE";
-+ }
-+ internal_error (__FILE__, __LINE__, "unhandled c_string_type");
-+}
++ struct dwarf2_loclist_baton *dlbaton = SYMBOL_LOCATION_BATON (symbol);
+
-+/* Classify ELTTYPE according to what kind of character it is. Return
-+ the enum constant representing the character type. Also set
-+ *ENCODING to the name of the character set to use when converting
-+ characters of this type to the host character set. */
++ gdb_assert (dlbaton == NULL);
++ error (_("Unable to resolve variable \"%s\""), SYMBOL_PRINT_NAME (symbol));
++}
+
-+static enum c_string_type
-+classify_type (struct type *elttype, const char **encoding)
++static int
++missing_read_needs_frame (struct symbol *symbol)
+{
-+ struct type *saved_type;
-+ enum c_string_type result;
++ return 0;
++}
+
-+ /* We do one or two passes -- one on ELTTYPE, and then maybe a
-+ second one on a typedef target. */
-+ do
-+ {
-+ char *name = TYPE_NAME (elttype);
++static void
++missing_describe_location (struct symbol *symbol, CORE_ADDR addr,
++ struct ui_file *stream)
++{
++ fprintf_filtered (stream, _("a variable we are unable to resolve"));
++}
+
-+ if (TYPE_CODE (elttype) == TYPE_CODE_CHAR || !name)
-+ {
-+ result = C_CHAR;
-+ goto done;
-+ }
++static void
++missing_tracepoint_var_ref (struct symbol *symbol, struct gdbarch *gdbarch,
++ struct agent_expr *ax, struct axs_value *value)
++{
++ struct dwarf2_loclist_baton *dlbaton = SYMBOL_LOCATION_BATON (symbol);
+
-+ if (!strcmp (name, "wchar_t"))
-+ {
-+ result = C_WIDE_CHAR;
-+ goto done;
-+ }
++ gdb_assert (dlbaton == NULL);
++ error (_("Unable to resolve variable \"%s\""), SYMBOL_PRINT_NAME (symbol));
++}
+
-+ if (!strcmp (name, "char16_t"))
-+ {
-+ result = C_CHAR_16;
-+ goto done;
-+ }
++/* The set of location functions used with the DWARF-2 evaluator when we are
++ unable to resolve the symbols. */
++const struct symbol_computed_ops dwarf2_missing_funcs = {
++ missing_read_variable,
++ missing_read_needs_frame,
++ missing_describe_location,
++ missing_tracepoint_var_ref
++};
+Index: gdb-7.2.90.20110703/gdb/dwarf2loc.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/dwarf2loc.h 2011-02-17 17:20:44.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/dwarf2loc.h 2011-07-03 10:33:11.000000000 +0200
+@@ -107,6 +107,15 @@ struct dwarf2_loclist_baton
+
+ extern const struct symbol_computed_ops dwarf2_locexpr_funcs;
+ extern const struct symbol_computed_ops dwarf2_loclist_funcs;
++extern const struct symbol_computed_ops dwarf2_missing_funcs;
+
-+ if (!strcmp (name, "char32_t"))
-+ {
-+ result = C_CHAR_32;
-+ goto done;
-+ }
++extern void object_address_set (CORE_ADDR address);
+
-+ saved_type = elttype;
-+ CHECK_TYPEDEF (elttype);
-+ }
-+ while (elttype != saved_type);
++extern CORE_ADDR dwarf_locexpr_baton_eval
++ (struct dwarf2_locexpr_baton *dlbaton);
+
-+ /* Punt. */
-+ result = C_CHAR;
++extern int dwarf_loclist_baton_eval (struct dwarf2_loclist_baton *dllbaton,
++ struct type *type, CORE_ADDR *addrp);
+
+ /* Compile a DWARF location expression to an agent expression.
+
+Index: gdb-7.2.90.20110703/gdb/dwarf2read.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/dwarf2read.c 2011-07-02 21:59:29.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/dwarf2read.c 2011-07-03 10:33:11.000000000 +0200
+@@ -1222,6 +1222,9 @@ static void fill_in_loclist_baton (struc
+ struct dwarf2_loclist_baton *baton,
+ struct attribute *attr);
+
++static struct dwarf2_loclist_baton *dwarf2_attr_to_loclist_baton
++ (struct attribute *attr, struct dwarf2_cu *cu);
+
-+ done:
-+ *encoding = charset_for_string_type (result);
-+ return result;
-+}
+ static void dwarf2_symbol_mark_computed (struct attribute *attr,
+ struct symbol *sym,
+ struct dwarf2_cu *cu);
+@@ -1256,6 +1259,9 @@ static void age_cached_comp_units (void)
+
+ static void free_one_cached_comp_unit (void *);
+
++static void fetch_die_type_attrs (struct die_info *die, struct type *type,
++ struct dwarf2_cu *cu);
+
-+/* Return true if print_wchar can display W without resorting to a
-+ numeric escape, false otherwise. */
+ static struct type *set_die_type (struct die_info *, struct type *,
+ struct dwarf2_cu *);
+
+@@ -1280,6 +1286,9 @@ static struct type *get_die_type_at_offs
+
+ static struct type *get_die_type (struct die_info *die, struct dwarf2_cu *cu);
+
++static struct dwarf2_locexpr_baton *dwarf2_attr_to_locexpr_baton
++ (struct attribute *attr, struct dwarf2_cu *cu);
+
-+static int
-+wchar_printable (wchar_t w)
-+{
-+ return (iswprint (w)
-+ || w == L'\a' || w == L'\b' || w == L'\f' || w == L'\n'
-+ || w == L'\r' || w == L'\t' || w == L'\v');
-+}
+ static void dwarf2_release_queue (void *dummy);
+
+ static void queue_comp_unit (struct dwarf2_per_cu_data *per_cu,
+@@ -7542,6 +7551,29 @@ process_enumeration_scope (struct die_in
+ new_symbol (die, this_type, cu);
+ }
+
++/* Create a new array dimension referencing its target type TYPE.
+
-+/* A helper function that converts the contents of STRING to wide
-+ characters and then appends them to OUTPUT. */
++ Multidimensional arrays are internally represented as a stack of
++ singledimensional arrays being referenced by their TYPE_TARGET_TYPE. */
+
-+static void
-+append_string_as_wide (const char *string, struct obstack *output)
++static struct type *
++create_single_array_dimension (struct type *type, struct type *range_type,
++ struct die_info *die, struct dwarf2_cu *cu)
+{
-+ for (; *string; ++string)
-+ {
-+ wchar_t w = btowc (*string);
-+ obstack_grow (output, &w, sizeof (wchar_t));
-+ }
-+}
-+
-+/* Print a wide character W to OUTPUT. ORIG is a pointer to the
-+ original (target) bytes representing the character, ORIG_LEN is the
-+ number of valid bytes. WIDTH is the number of bytes in a base
-+ characters of the type. OUTPUT is an obstack to which wide
-+ characters are emitted. QUOTER is a (narrow) character indicating
-+ the style of quotes surrounding the character to be printed.
-+ NEED_ESCAPE is an in/out flag which is used to track numeric
-+ escapes across calls. */
++ type = create_array_type (NULL, type, range_type);
+
-+static void
-+print_wchar (wint_t w, const gdb_byte *orig, int orig_len,
-+ int width, struct obstack *output, int quoter,
-+ int *need_escapep)
-+{
-+ int need_escape = *need_escapep;
-+ *need_escapep = 0;
-+ if (iswprint (w) && (!need_escape || (!iswdigit (w)
-+ && w != L'8'
-+ && w != L'9')))
-+ {
-+ if (w == btowc (quoter) || w == L'\\')
-+ obstack_grow_wstr (output, L"\\");
-+ obstack_grow (output, &w, sizeof (wchar_t));
-+ }
-+ else
-+ {
-+ switch (w)
-+ {
-+ case L'\a':
-+ obstack_grow_wstr (output, L"\\a");
-+ break;
-+ case L'\b':
-+ obstack_grow_wstr (output, L"\\b");
-+ break;
-+ case L'\f':
-+ obstack_grow_wstr (output, L"\\f");
-+ break;
-+ case L'\n':
-+ obstack_grow_wstr (output, L"\\n");
-+ break;
-+ case L'\r':
-+ obstack_grow_wstr (output, L"\\r");
-+ break;
-+ case L'\t':
-+ obstack_grow_wstr (output, L"\\t");
-+ break;
-+ case L'\v':
-+ obstack_grow_wstr (output, L"\\v");
-+ break;
-+ default:
-+ {
-+ int i;
++ /* These generic type attributes need to be fetched by
++ evaluate_subexp_standard <multi_f77_subscript>'s call of
++ value_subscripted_rvalue only for the innermost array type. */
++ fetch_die_type_attrs (die, type, cu);
+
-+ for (i = 0; i + width <= orig_len; i += width)
-+ {
-+ char octal[30];
-+ ULONGEST value = extract_unsigned_integer (&orig[i], width);
-+ sprintf (octal, "\\%lo", (long) value);
-+ append_string_as_wide (octal, output);
-+ }
-+ /* If we somehow have extra bytes, print them now. */
-+ while (i < orig_len)
-+ {
-+ char octal[5];
-+ sprintf (octal, "\\%.3o", orig[i] & 0xff);
-+ append_string_as_wide (octal, output);
-+ ++i;
-+ }
++ /* These generic type attributes are checked for allocated/associated
++ validity while accessing FIELD_LOC_KIND_DWARF_BLOCK. */
++ fetch_die_type_attrs (die, range_type, cu);
+
-+ *need_escapep = 1;
-+ }
-+ break;
-+ }
-+ }
++ return type;
+}
++
+ /* Extract all information from a DW_TAG_array_type DIE and put it in
+ the DIE's type field. For now, this only handles one dimensional
+ arrays. */
+@@ -7555,7 +7587,7 @@ read_array_type (struct die_info *die, s
+ struct type *element_type, *range_type, *index_type;
+ struct type **range_types = NULL;
+ struct attribute *attr;
+- int ndim = 0;
++ int ndim = 0, i;
+ struct cleanup *back_to;
+ char *name;
- /* Print the character C on STREAM as part of the contents of a literal
- string whose delimiter is QUOTER. Note that that format for printing
- characters and strings is language specific. */
+@@ -7608,17 +7640,19 @@ read_array_type (struct die_info *die, s
+ type = element_type;
- static void
--c_emit_char (int c, struct ui_file *stream, int quoter)
-+c_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
- {
-- const char *escape;
-- int host_char;
-+ struct obstack wchar_buf, output;
-+ struct cleanup *cleanups;
-+ const char *encoding;
-+ gdb_byte *buf;
-+ struct wchar_iterator *iter;
-+ int need_escape = 0;
-
-- c &= 0xFF; /* Avoid sign bit follies */
-+ classify_type (type, &encoding);
-
-- escape = c_target_char_has_backslash_escape (c);
-- if (escape)
+ if (read_array_order (die, cu) == DW_ORD_col_major)
- {
-- if (quoter == '"' && strcmp (escape, "0") == 0)
-- /* Print nulls embedded in double quoted strings as \000 to
-- prevent ambiguity. */
-- fprintf_filtered (stream, "\\000");
-- else
-- fprintf_filtered (stream, "\\%s", escape);
+- int i = 0;
+-
+- while (i < ndim)
+- type = create_array_type (NULL, type, range_types[i++]);
+- }
+- else
+- {
+- while (ndim-- > 0)
+- type = create_array_type (NULL, type, range_types[ndim]);
- }
-- else if (target_char_to_host (c, &host_char)
-- && host_char_print_literally (host_char))
-+ buf = alloca (TYPE_LENGTH (type));
-+ pack_long (buf, type, c);
++ for (i = 0; i < ndim; i++)
++ type = create_single_array_dimension (type, range_types[i], die, cu);
++ else /* (read_array_order (die, cu) == DW_ORD_row_major) */
++ for (i = ndim - 1; i >= 0; i--)
++ type = create_single_array_dimension (type, range_types[i], die, cu);
+
-+ iter = make_wchar_iterator (buf, TYPE_LENGTH (type), encoding,
-+ TYPE_LENGTH (type));
-+ cleanups = make_cleanup_wchar_iterator (iter);
++ /* Data locations should be set only for the outermost dimension as they
++ would be confusing for the dereferenced offset on the inner ones. */
++ attr = dwarf2_attr (die, DW_AT_data_location, cu);
++ if (attr_form_is_block (attr))
++ TYPE_DATA_LOCATION_DWARF_BLOCK (type)
++ = dwarf2_attr_to_locexpr_baton (attr, cu);
++ gdb_assert (!TYPE_DATA_LOCATION_IS_ADDR (type));
+
+ /* Understand Dwarf2 support for vector types (like they occur on
+ the PowerPC w/ AltiVec). Gcc just adds another attribute to the
+@@ -8102,29 +8136,114 @@ read_tag_string_type (struct die_info *d
+ struct gdbarch *gdbarch = get_objfile_arch (objfile);
+ struct type *type, *range_type, *index_type, *char_type;
+ struct attribute *attr;
+- unsigned int length;
++ int length;
+
-+ /* This holds the printable form of the wchar_t data. */
-+ obstack_init (&wchar_buf);
-+ make_cleanup_obstack_free (&wchar_buf);
++ index_type = objfile_type (objfile)->builtin_int;
++ /* RANGE_TYPE is allocated from OBJFILE, not as a permanent type. */
++ range_type = alloc_type (objfile);
++ /* LOW_BOUND and HIGH_BOUND are set for real below. */
++ range_type = create_range_type (range_type, index_type, 0, -1);
+
-+ while (1)
++ /* C/C++ should probably have the low bound 0 but C/C++ does not use
++ DW_TAG_string_type. */
++ TYPE_LOW_BOUND (range_type) = 1;
+
+ attr = dwarf2_attr (die, DW_AT_string_length, cu);
+- if (attr)
++ if (attr && attr_form_is_block (attr))
{
-- if (host_char == '\\' || host_char == quoter)
-- fputs_filtered ("\\", stream);
-- fprintf_filtered (stream, "%c", host_char);
-+ int num_chars;
-+ wchar_t *chars;
-+ const gdb_byte *buf;
-+ size_t buflen;
-+ int print_escape = 1;
-+ enum wchar_iterate_result result;
-+
-+ num_chars = wchar_iterate (iter, &result, &chars, &buf, &buflen);
-+ if (num_chars < 0)
-+ break;
-+ if (num_chars > 0)
+- length = DW_UNSND (attr);
++ /* Security check for a size overflow. */
++ if (DW_BLOCK (attr)->size + 2 < DW_BLOCK (attr)->size)
++ TYPE_HIGH_BOUND (range_type) = 1;
++ /* Extend the DWARF block by a new DW_OP_deref/DW_OP_deref_size
++ instruction as DW_AT_string_length specifies the length location, not
++ its value. */
++ else
+ {
-+ /* If all characters are printable, print them. Otherwise,
-+ we're going to have to print an escape sequence. We
-+ check all characters because we want to print the target
-+ bytes in the escape sequence, and we don't know character
-+ boundaries there. */
-+ int i;
-+
-+ print_escape = 0;
-+ for (i = 0; i < num_chars; ++i)
-+ if (!wchar_printable (chars[i]))
-+ {
-+ print_escape = 1;
-+ break;
-+ }
-+
-+ if (!print_escape)
-+ {
-+ for (i = 0; i < num_chars; ++i)
-+ print_wchar (chars[i], buf, buflen, TYPE_LENGTH (type),
-+ &wchar_buf, quoter, &need_escape);
-+ }
-+ }
++ struct dwarf2_locexpr_baton *length_baton = NULL;
++ struct dwarf_block *blk = DW_BLOCK (attr);
+
-+ /* This handles the NUM_CHARS == 0 case as well. */
-+ if (print_escape)
-+ print_wchar (WEOF, buf, buflen, TYPE_LENGTH (type), &wchar_buf, quoter,
-+ &need_escape);
- }
-- else
-- fprintf_filtered (stream, "\\%.3o", (unsigned int) c);
++ /* Turn any single DW_OP_reg* into DW_OP_breg*(0) but clearing
++ DW_OP_deref* in such case. */
+
-+ /* The output in the host encoding. */
-+ obstack_init (&output);
-+ make_cleanup_obstack_free (&output);
++ if (blk->size == 1 && blk->data[0] >= DW_OP_reg0
++ && blk->data[0] <= DW_OP_reg31)
++ length_baton = dwarf2_attr_to_locexpr_baton (attr, cu);
++ else if (blk->size > 1 && blk->data[0] == DW_OP_regx)
++ {
++ ULONGEST ulongest;
++ const gdb_byte *end;
+
-+ convert_between_encodings ("wchar_t", host_charset (),
-+ obstack_base (&wchar_buf),
-+ obstack_object_size (&wchar_buf),
-+ 1, &output, translit_char);
-+ obstack_1grow (&output, '\0');
++ end = read_uleb128 (&blk->data[1], &blk->data[blk->size],
++ &ulongest);
++ if (end == &blk->data[blk->size])
++ length_baton = dwarf2_attr_to_locexpr_baton (attr, cu);
++ }
+
-+ fputs_filtered (obstack_base (&output), stream);
++ if (length_baton == NULL)
++ {
++ struct attribute *size_attr;
++ gdb_byte *data;
++
++ length_baton = obstack_alloc (&cu->comp_unit_obstack,
++ sizeof (*length_baton));
++ length_baton->per_cu = cu->per_cu;
++ length_baton->size = DW_BLOCK (attr)->size + 2;
++ data = obstack_alloc (&cu->comp_unit_obstack,
++ length_baton->size);
++ length_baton->data = data;
++ memcpy (data, DW_BLOCK (attr)->data, DW_BLOCK (attr)->size);
++
++ /* DW_AT_BYTE_SIZE existing together with DW_AT_STRING_LENGTH
++ specifies the size of an integer to fetch. */
++ size_attr = dwarf2_attr (die, DW_AT_byte_size, cu);
++ if (size_attr)
++ {
++ data[DW_BLOCK (attr)->size] = DW_OP_deref_size;
++ data[DW_BLOCK (attr)->size + 1] = DW_UNSND (size_attr);
++ if (data[DW_BLOCK (attr)->size + 1] != DW_UNSND (size_attr))
++ complaint (&symfile_complaints,
++ _("DW_AT_string_length's DW_AT_byte_size "
++ "integer exceeds the byte size storage"));
++ }
++ else
++ {
++ data[DW_BLOCK (attr)->size] = DW_OP_deref;
++ data[DW_BLOCK (attr)->size + 1] = DW_OP_nop;
++ }
++ }
+
-+ do_cleanups (cleanups);
- }
-
- void
--c_printchar (int c, struct ui_file *stream)
-+c_printchar (int c, struct type *type, struct ui_file *stream)
- {
-+ enum c_string_type str_type;
-+ const char *encoding;
-+
-+ str_type = classify_type (type, &encoding);
-+ switch (str_type)
-+ {
-+ case C_CHAR:
-+ break;
-+ case C_WIDE_CHAR:
-+ fputc_filtered ('L', stream);
-+ break;
-+ case C_CHAR_16:
-+ fputc_filtered ('u', stream);
-+ break;
-+ case C_CHAR_32:
-+ fputc_filtered ('U', stream);
-+ break;
-+ }
++ TYPE_RANGE_DATA (range_type)->high.kind
++ = RANGE_BOUND_KIND_DWARF_BLOCK;
++ TYPE_RANGE_DATA (range_type)->high.u.dwarf_block = length_baton;
++ TYPE_DYNAMIC (range_type) = 1;
++ }
+ }
+ else
+ {
+- /* Check for the DW_AT_byte_size attribute. */
++ if (attr && attr_form_is_constant (attr))
++ {
++ /* We currently do not support a constant address where the location
++ should be read from - attr_form_is_block is expected instead. See
++ DWARF for the DW_AT_STRING_LENGTH vs. DW_AT_BYTE_SIZE difference.
++ */
++ /* PASSTHRU */
++ }
+
- fputc_filtered ('\'', stream);
-- LA_EMIT_CHAR (c, stream, '\'');
-+ LA_EMIT_CHAR (c, type, stream, '\'');
- fputc_filtered ('\'', stream);
- }
+ attr = dwarf2_attr (die, DW_AT_byte_size, cu);
+- if (attr)
+- {
+- length = DW_UNSND (attr);
+- }
++ if (attr && attr_form_is_block (attr))
++ {
++ TYPE_RANGE_DATA (range_type)->high.kind
++ = RANGE_BOUND_KIND_DWARF_BLOCK;
++ TYPE_RANGE_DATA (range_type)->high.u.dwarf_block =
++ dwarf2_attr_to_locexpr_baton (attr, cu);
++ TYPE_DYNAMIC (range_type) = 1;
++ }
++ else if (attr && attr_form_is_constant (attr))
++ TYPE_HIGH_BOUND (range_type) = dwarf2_get_attr_constant_value (attr, 0);
+ else
+- {
+- length = 1;
+- }
++ TYPE_HIGH_BOUND (range_type) = 1;
+ }
-@@ -85,87 +341,206 @@ c_printchar (int c, struct ui_file *stream)
- printing LENGTH characters, or if FORCE_ELLIPSES. */
+- index_type = objfile_type (objfile)->builtin_int;
+- range_type = create_range_type (NULL, index_type, 1, length);
+ char_type = language_string_char_type (cu->language_defn, gdbarch);
+ type = create_string_type (NULL, char_type, range_type);
- void
--c_printstr (struct ui_file *stream, const gdb_byte *string,
-- unsigned int length, int width, int force_ellipses,
-+c_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
-+ unsigned int length, int force_ellipses,
- const struct value_print_options *options)
- {
- unsigned int i;
- unsigned int things_printed = 0;
- int in_quotes = 0;
- int need_comma = 0;
-+ int width = TYPE_LENGTH (type);
-+ struct obstack wchar_buf, output;
-+ struct cleanup *cleanup;
-+ enum c_string_type str_type;
-+ const char *encoding;
-+ struct wchar_iterator *iter;
-+ int finished = 0;
-+ int need_escape = 0;
-
- /* If the string was not truncated due to `set print elements', and
- the last byte of it is a null, we don't print that, in traditional C
- style. */
- if (!force_ellipses
- && length > 0
-- && (extract_unsigned_integer (string + (length - 1) * width, width)
-- == '\0'))
-+ && (extract_unsigned_integer (string + (length - 1) * width, width) == 0))
- length--;
-
-+ str_type = classify_type (type, &encoding) & ~C_CHAR;
-+ switch (str_type)
-+ {
-+ case C_STRING:
-+ break;
-+ case C_WIDE_STRING:
-+ fputs_filtered ("L", stream);
-+ break;
-+ case C_STRING_16:
-+ fputs_filtered ("u", stream);
-+ break;
-+ case C_STRING_32:
-+ fputs_filtered ("U", stream);
-+ break;
-+ }
-+
- if (length == 0)
- {
- fputs_filtered ("\"\"", stream);
- return;
- }
+@@ -8409,8 +8528,7 @@ read_subrange_type (struct die_info *die
+ struct type *base_type;
+ struct type *range_type;
+ struct attribute *attr;
+- LONGEST low = 0;
+- LONGEST high = -1;
++ LONGEST low;
+ char *name;
+ LONGEST negative_mask;
-- for (i = 0; i < length && things_printed < options->print_max; ++i)
-+ if (length == -1)
-+ {
-+ unsigned long current_char = 1;
-+ for (i = 0; current_char; ++i)
-+ {
-+ QUIT;
-+ current_char = extract_unsigned_integer (string + i * width, width);
-+ }
-+ length = i;
-+ }
+@@ -8423,53 +8541,126 @@ read_subrange_type (struct die_info *die
+ if (range_type)
+ return range_type;
+
+- if (cu->language == language_fortran)
++ /* LOW_BOUND and HIGH_BOUND are set for real below. */
++ range_type = create_range_type (NULL, base_type, 0, -1);
++ TYPE_UNSIGNED (range_type) = 0;
+
-+ /* Arrange to iterate over the characters, in wchar_t form. */
-+ iter = make_wchar_iterator (string, length * width, encoding, width);
-+ cleanup = make_cleanup_wchar_iterator (iter);
++ negative_mask =
++ (LONGEST) -1 << (TYPE_LENGTH (base_type) * TARGET_CHAR_BIT - 1);
+
-+ /* WCHAR_BUF is the obstack we use to represent the string in
-+ wchar_t form. */
-+ obstack_init (&wchar_buf);
-+ make_cleanup_obstack_free (&wchar_buf);
++ /* Exclude language_ada from any TYPE_DYNAMIC constructs below. GDB Ada
++ supports implements the dynamic bounds in a non-DWARF way and the
++ existing DWARF dynamic bounds are invalid, leading to memory access
++ errors. */
+
-+ while (!finished && things_printed < options->print_max)
++ attr = dwarf2_attr (die, DW_AT_lower_bound, cu);
++ if (attr && attr_form_is_block (attr) && cu->language != language_ada)
{
-- /* Position of the character we are examining
-- to see whether it is repeated. */
-- unsigned int rep1;
-- /* Number of repetitions we have detected so far. */
-- unsigned int reps;
-- unsigned long current_char;
-+ int num_chars;
-+ enum wchar_iterate_result result;
-+ wchar_t *chars;
-+ const gdb_byte *buf;
-+ size_t buflen;
-
- QUIT;
-
- if (need_comma)
- {
-- fputs_filtered (", ", stream);
-+ obstack_grow_wstr (&wchar_buf, L", ");
- need_comma = 0;
- }
+- /* FORTRAN implies a lower bound of 1, if not given. */
+- low = 1;
++ TYPE_RANGE_DATA (range_type)->low.kind = RANGE_BOUND_KIND_DWARF_BLOCK;
++ TYPE_RANGE_DATA (range_type)->low.u.dwarf_block =
++ dwarf2_attr_to_locexpr_baton (attr, cu);
++ TYPE_DYNAMIC (range_type) = 1;
++ /* For setting a default if DW_AT_UPPER_BOUND would be missing. */
++ low = 0;
+ }
++ else if (attr && is_ref_attr (attr) && cu->language != language_ada)
++ {
++ struct die_info *target_die;
++ struct dwarf2_cu *target_cu = cu;
++ struct attribute *target_loc_attr;
+
+- /* FIXME: For variable sized arrays either of these could be
+- a variable rather than a constant value. We'll allow it,
+- but we don't know how to handle it. */
+- attr = dwarf2_attr (die, DW_AT_lower_bound, cu);
+- if (attr)
+- low = dwarf2_get_attr_constant_value (attr, 0);
++ target_die = follow_die_ref_or_sig (die, attr, &target_cu);
++ gdb_assert (target_cu->objfile == cu->objfile);
++ target_loc_attr = dwarf2_attr (target_die, DW_AT_location, target_cu);
-- current_char = extract_unsigned_integer (string + i * width, width);
-+ num_chars = wchar_iterate (iter, &result, &chars, &buf, &buflen);
-+ /* We only look at repetitions when we were able to convert a
-+ single character in isolation. This makes the code simpler
-+ and probably does the sensible thing in the majority of
-+ cases. */
-+ while (num_chars == 1)
+- attr = dwarf2_attr (die, DW_AT_upper_bound, cu);
+- if (attr)
++ TYPE_RANGE_DATA (range_type)->low.kind = RANGE_BOUND_KIND_DWARF_LOCLIST;
++ TYPE_RANGE_DATA (range_type)->low.u.dwarf_loclist.loclist
++ = dwarf2_attr_to_loclist_baton (target_loc_attr, target_cu);
++ TYPE_RANGE_DATA (range_type)->low.u.dwarf_loclist.type
++ = die_type (target_die, target_cu);
++ TYPE_DYNAMIC (range_type) = 1;
++ /* For setting a default if DW_AT_UPPER_BOUND would be missing. */
++ low = 0;
++ }
++ else
+ {
+- if (attr->form == DW_FORM_block1 || is_ref_attr (attr))
+- {
+- /* GCC encodes arrays with unspecified or dynamic length
+- with a DW_FORM_block1 attribute or a reference attribute.
+- FIXME: GDB does not yet know how to handle dynamic
+- arrays properly, treat them as arrays with unspecified
+- length for now.
+-
+- FIXME: jimb/2003-09-22: GDB does not really know
+- how to handle arrays of unspecified length
+- either; we just represent them as zero-length
+- arrays. Choose an appropriate upper bound given
+- the lower bound we've computed above. */
+- high = low - 1;
+- }
++ if (attr && attr_form_is_constant (attr))
++ low = dwarf2_get_attr_constant_value (attr, 0);
+ else
+- high = dwarf2_get_attr_constant_value (attr, 1);
+ {
-+ /* Count the number of repetitions. */
-+ unsigned int reps = 0;
-+ wchar_t current_char = chars[0];
-+ const gdb_byte *orig_buf = buf;
-+ int orig_len = buflen;
-
-- rep1 = i + 1;
-- reps = 1;
-- while (rep1 < length
-- && extract_unsigned_integer (string + rep1 * width, width)
-- == current_char)
-+ if (need_comma)
++ if (cu->language == language_fortran)
+ {
-+ obstack_grow_wstr (&wchar_buf, L", ");
-+ need_comma = 0;
-+ }
-+
-+ while (num_chars == 1 && current_char == chars[0])
-+ {
-+ num_chars = wchar_iterate (iter, &result, &chars, &buf, &buflen);
-+ ++reps;
-+ }
-+
-+ /* Emit CURRENT_CHAR according to the repetition count and
-+ options. */
-+ if (reps > options->repeat_count_threshold)
-+ {
-+ if (in_quotes)
-+ {
-+ if (options->inspect_it)
-+ obstack_grow_wstr (&wchar_buf, L"\\\", ");
-+ else
-+ obstack_grow_wstr (&wchar_buf, L"\", ");
-+ in_quotes = 0;
-+ }
-+ obstack_grow_wstr (&wchar_buf, L"'");
-+ need_escape = 0;
-+ print_wchar (current_char, orig_buf, orig_len, width,
-+ &wchar_buf, '\'', &need_escape);
-+ obstack_grow_wstr (&wchar_buf, L"'");
-+ {
-+ /* Painful gyrations. */
-+ int j;
-+ char *s = xstrprintf (_(" <repeats %u times>"), reps);
-+ for (j = 0; s[j]; ++j)
-+ {
-+ wchar_t w = btowc (s[j]);
-+ obstack_grow (&wchar_buf, &w, sizeof (wchar_t));
-+ }
-+ xfree (s);
-+ }
-+ things_printed += options->repeat_count_threshold;
-+ need_comma = 1;
++ /* FORTRAN implies a lower bound of 1, if not given. */
++ low = 1;
+ }
+ else
+ {
-+ /* Saw the character one or more times, but fewer than
-+ the repetition threshold. */
-+ if (!in_quotes)
-+ {
-+ if (options->inspect_it)
-+ obstack_grow_wstr (&wchar_buf, L"\\\"");
-+ else
-+ obstack_grow_wstr (&wchar_buf, L"\"");
-+ in_quotes = 1;
-+ need_escape = 0;
-+ }
-+
-+ while (reps-- > 0)
-+ {
-+ print_wchar (current_char, orig_buf, orig_len, width,
-+ &wchar_buf, '"', &need_escape);
-+ ++things_printed;
-+ }
++ /* According to DWARF we should assume the value 0 only for
++ LANGUAGE_C and LANGUAGE_CPLUS. */
++ low = 0;
+ }
+ }
++ if (!TYPE_UNSIGNED (base_type) && (low & negative_mask))
++ low |= negative_mask;
++ TYPE_LOW_BOUND (range_type) = low;
++ if (low >= 0)
++ TYPE_UNSIGNED (range_type) = 1;
+ }
+- else
+
-+ /* NUM_CHARS and the other outputs from wchar_iterate are valid
-+ here regardless of which branch was taken above. */
-+ if (num_chars < 0)
- {
-- ++rep1;
-- ++reps;
-+ /* Hit EOF. */
-+ finished = 1;
-+ break;
- }
-
-- if (reps > options->repeat_count_threshold)
-+ switch (result)
- {
-- if (in_quotes)
-+ case wchar_iterate_invalid:
-+ if (!in_quotes)
- {
- if (options->inspect_it)
-- fputs_filtered ("\\\", ", stream);
-+ obstack_grow_wstr (&wchar_buf, L"\\\"");
- else
-- fputs_filtered ("\", ", stream);
-- in_quotes = 0;
-+ obstack_grow_wstr (&wchar_buf, L"\"");
-+ in_quotes = 1;
- }
-- LA_PRINT_CHAR (current_char, stream);
-- fprintf_filtered (stream, _(" <repeats %u times>"), reps);
-- i = rep1 - 1;
-- things_printed += options->repeat_count_threshold;
-- need_comma = 1;
-- }
-- else
++ attr = dwarf2_attr (die, DW_AT_upper_bound, cu);
++ if (!attr || (!attr_form_is_block (attr) && !attr_form_is_constant (attr)
++ && !is_ref_attr (attr)))
+ {
+ attr = dwarf2_attr (die, DW_AT_count, cu);
+- if (attr)
- {
-- if (!in_quotes)
-+ need_escape = 0;
-+ print_wchar (WEOF, buf, buflen, width, &wchar_buf, '"', &need_escape);
-+ break;
+- int count = dwarf2_get_attr_constant_value (attr, 1);
+- high = low + count - 1;
++ /* It does not hurt but it is needlessly ineffective in check_typedef. */
++ if (attr && (attr_form_is_block (attr) || attr_form_is_constant (attr)))
++ {
++ TYPE_RANGE_HIGH_BOUND_IS_COUNT (range_type) = 1;
++ TYPE_DYNAMIC (range_type) = 1;
+ }
++ /* Pass it now as the regular DW_AT_upper_bound. */
++ }
+
-+ case wchar_iterate_incomplete:
-+ if (in_quotes)
- {
- if (options->inspect_it)
-- fputs_filtered ("\\\"", stream);
-+ obstack_grow_wstr (&wchar_buf, L"\\\",");
- else
-- fputs_filtered ("\"", stream);
-- in_quotes = 1;
-+ obstack_grow_wstr (&wchar_buf, L"\",");
-+ in_quotes = 0;
- }
-- LA_EMIT_CHAR (current_char, stream, '"');
-- ++things_printed;
-+ obstack_grow_wstr (&wchar_buf, L" <incomplete sequence ");
-+ print_wchar (WEOF, buf, buflen, width, &wchar_buf, 0, &need_escape);
-+ obstack_grow_wstr (&wchar_buf, L">");
-+ finished = 1;
-+ break;
++ if (attr && attr_form_is_block (attr) && cu->language != language_ada)
++ {
++ TYPE_RANGE_DATA (range_type)->high.kind = RANGE_BOUND_KIND_DWARF_BLOCK;
++ TYPE_RANGE_DATA (range_type)->high.u.dwarf_block =
++ dwarf2_attr_to_locexpr_baton (attr, cu);
++ TYPE_DYNAMIC (range_type) = 1;
++ }
++ else if (attr && is_ref_attr (attr) && cu->language != language_ada)
++ {
++ struct die_info *target_die;
++ struct dwarf2_cu *target_cu = cu;
++ struct attribute *target_loc_attr;
++
++ target_die = follow_die_ref_or_sig (die, attr, &target_cu);
++ gdb_assert (target_cu->objfile == cu->objfile);
++ target_loc_attr = dwarf2_attr (target_die, DW_AT_location, target_cu);
++
++ TYPE_RANGE_DATA (range_type)->high.kind = RANGE_BOUND_KIND_DWARF_LOCLIST;
++ TYPE_RANGE_DATA (range_type)->high.u.dwarf_loclist.loclist
++ = dwarf2_attr_to_loclist_baton (target_loc_attr, target_cu);
++ TYPE_RANGE_DATA (range_type)->high.u.dwarf_loclist.type
++ = die_type (target_die, target_cu);
++ TYPE_DYNAMIC (range_type) = 1;
++ }
++ else
++ {
++ LONGEST high;
++
++ if (attr && attr_form_is_constant (attr))
++ high = dwarf2_get_attr_constant_value (attr, 0);
+ else
+ {
+- /* Unspecified array length. */
++ /* Ada expects an empty array on no boundary attributes. */
++ if (cu->language != language_ada)
++ TYPE_HIGH_BOUND_UNDEFINED (range_type) = 1;
+ high = low - 1;
}
++ if (!TYPE_UNSIGNED (base_type) && (high & negative_mask))
++ high |= negative_mask;
++ TYPE_HIGH_BOUND (range_type) = high;
}
-@@ -173,13 +548,27 @@ c_printstr (struct ui_file *stream, const gdb_byte *string,
- if (in_quotes)
- {
- if (options->inspect_it)
-- fputs_filtered ("\\\"", stream);
-+ obstack_grow_wstr (&wchar_buf, L"\\\"");
- else
-- fputs_filtered ("\"", stream);
-+ obstack_grow_wstr (&wchar_buf, L"\"");
+ /* Dwarf-2 specifications explicitly allows to create subrange types
+@@ -8510,24 +8701,41 @@ read_subrange_type (struct die_info *die
+ }
}
-- if (force_ellipses || i < length)
-- fputs_filtered ("...", stream);
-+ if (force_ellipses || !finished)
-+ obstack_grow_wstr (&wchar_buf, L"...");
-+
-+ /* OUTPUT is where we collect `char's for printing. */
-+ obstack_init (&output);
-+ make_cleanup_obstack_free (&output);
+- negative_mask =
+- (LONGEST) -1 << (TYPE_LENGTH (base_type) * TARGET_CHAR_BIT - 1);
+- if (!TYPE_UNSIGNED (base_type) && (low & negative_mask))
+- low |= negative_mask;
+- if (!TYPE_UNSIGNED (base_type) && (high & negative_mask))
+- high |= negative_mask;
+-
+- range_type = create_range_type (NULL, base_type, low, high);
+-
+- /* Mark arrays with dynamic length at least as an array of unspecified
+- length. GDB could check the boundary but before it gets implemented at
+- least allow accessing the array elements. */
+- if (attr && attr->form == DW_FORM_block1)
+- TYPE_HIGH_BOUND_UNDEFINED (range_type) = 1;
+-
+- /* Ada expects an empty array on no boundary attributes. */
+- if (attr == NULL && cu->language != language_ada)
+- TYPE_HIGH_BOUND_UNDEFINED (range_type) = 1;
++ /* DW_AT_bit_stride is currently unsupported as we count in bytes. */
++ attr = dwarf2_attr (die, DW_AT_byte_stride, cu);
++ if (attr && attr_form_is_block (attr) && cu->language != language_ada)
++ {
++ TYPE_RANGE_DATA (range_type)->byte_stride.kind
++ = RANGE_BOUND_KIND_DWARF_BLOCK;
++ TYPE_RANGE_DATA (range_type)->byte_stride.u.dwarf_block =
++ dwarf2_attr_to_locexpr_baton (attr, cu);
++ TYPE_DYNAMIC (range_type) = 1;
++ }
++ else if (attr && is_ref_attr (attr) && cu->language != language_ada)
++ {
++ struct die_info *target_die;
++ struct dwarf2_cu *target_cu = cu;
++ struct attribute *target_loc_attr;
+
-+ convert_between_encodings ("wchar_t", host_charset (),
-+ obstack_base (&wchar_buf),
-+ obstack_object_size (&wchar_buf),
-+ 1, &output, translit_char);
-+ obstack_1grow (&output, '\0');
++ target_die = follow_die_ref_or_sig (die, attr, &target_cu);
++ gdb_assert (target_cu->objfile == cu->objfile);
++ target_loc_attr = dwarf2_attr (target_die, DW_AT_location, target_cu);
+
-+ fputs_filtered (obstack_base (&output), stream);
++ TYPE_RANGE_DATA (range_type)->byte_stride.kind
++ = RANGE_BOUND_KIND_DWARF_LOCLIST;
++ TYPE_RANGE_DATA (range_type)->byte_stride.u.dwarf_loclist.loclist
++ = dwarf2_attr_to_loclist_baton (target_loc_attr, target_cu);
++ TYPE_RANGE_DATA (range_type)->byte_stride.u.dwarf_loclist.type
++ = die_type (target_die, target_cu);
++ TYPE_DYNAMIC (range_type) = 1;
++ }
++ else if (attr && attr_form_is_constant (attr))
++ {
++ TYPE_BYTE_STRIDE (range_type) = dwarf2_get_attr_constant_value (attr, 0);
++ if (TYPE_BYTE_STRIDE (range_type) == 0)
++ complaint (&symfile_complaints,
++ _("Found DW_AT_byte_stride with unsupported value 0"));
++ }
+
+ name = dwarf2_name (die, cu);
+ if (name)
+@@ -11072,10 +11280,12 @@ var_decode_location (struct attribute *a
+ (i.e. when the value of a register or memory location is
+ referenced, or a thread-local block, etc.). Then again, it might
+ not be worthwhile. I'm assuming that it isn't unless performance
+- or memory numbers show me otherwise. */
++ or memory numbers show me otherwise.
++
++ SYMBOL_CLASS may get overriden by dwarf2_symbol_mark_computed. */
+
+- dwarf2_symbol_mark_computed (attr, sym, cu);
+ SYMBOL_CLASS (sym) = LOC_COMPUTED;
++ dwarf2_symbol_mark_computed (attr, sym, cu);
+
+ if (SYMBOL_COMPUTED_OPS (sym) == &dwarf2_loclist_funcs)
+ cu->has_loclist = 1;
+@@ -11116,6 +11326,8 @@ new_symbol_full (struct die_info *die, s
+ else
+ sym = OBSTACK_ZALLOC (&objfile->objfile_obstack, struct symbol);
+ OBJSTAT (objfile, n_syms++);
++ /* Some methods are called w/o checking SYMBOL_COMPUTED_OPS validity. */
++ SYMBOL_COMPUTED_OPS (sym) = &dwarf2_missing_funcs;
+
+ /* Cache this symbol's name and the name's demangled form (if any). */
+ SYMBOL_SET_LANGUAGE (sym, cu->language);
+@@ -11888,6 +12100,9 @@ read_type_die_1 (struct die_info *die, s
+ break;
+ }
+
++ if (this_type)
++ finalize_type (this_type);
+
-+ do_cleanups (cleanup);
+ return this_type;
}
- /* Obtain a C string from the inferior storing it in a newly allocated
-@@ -298,7 +687,285 @@ c_get_string (struct value *value, gdb_byte **buffer, int *length,
+@@ -14742,61 +14957,99 @@ fill_in_loclist_baton (struct dwarf2_cu
+ baton->base_address = cu->base_address;
}
- \f
--/* Preprocessing and parsing C and C++ expressions. */
-+/* Evaluating C and C++ expressions. */
-+
-+/* Convert a UCN. The digits of the UCN start at P and extend no
-+ farther than LIMIT. DEST_CHARSET is the name of the character set
-+ into which the UCN should be converted. The results are written to
-+ OUTPUT. LENGTH is the maximum length of the UCN, either 4 or 8.
-+ Returns a pointer to just after the final digit of the UCN. */
-+
-+static char *
-+convert_ucn (char *p, char *limit, const char *dest_charset,
-+ struct obstack *output, int length)
-+{
-+ unsigned long result = 0;
-+ gdb_byte data[4];
-+ int i;
-+
-+ for (i = 0; i < length && p < limit && isxdigit (*p); ++i, ++p)
-+ result = (result << 4) + host_hex_value (*p);
-+
-+ for (i = 3; i >= 0; --i)
-+ {
-+ data[i] = result & 0xff;
-+ result >>= 8;
-+ }
+-static void
+-dwarf2_symbol_mark_computed (struct attribute *attr, struct symbol *sym,
+- struct dwarf2_cu *cu)
++/* Convert DW_BLOCK into struct dwarf2_locexpr_baton. ATTR must be a DW_BLOCK
++ attribute type. */
+
-+ convert_between_encodings ("UCS-4BE", dest_charset, data, 4, 4, output,
-+ translit_none);
++static struct dwarf2_locexpr_baton *
++dwarf2_attr_to_locexpr_baton (struct attribute *attr, struct dwarf2_cu *cu)
+ {
+- if (attr_form_is_section_offset (attr)
+- /* ".debug_loc" may not exist at all, or the offset may be outside
+- the section. If so, fall through to the complaint in the
+- other branch. */
+- && DW_UNSND (attr) < dwarf2_section_size (dwarf2_per_objfile->objfile,
+- &dwarf2_per_objfile->loc))
+- {
+- struct dwarf2_loclist_baton *baton;
++ struct dwarf2_locexpr_baton *baton;
+
+- baton = obstack_alloc (&cu->objfile->objfile_obstack,
+- sizeof (struct dwarf2_loclist_baton));
++ gdb_assert (attr_form_is_block (attr));
+
+- fill_in_loclist_baton (cu, baton, attr);
++ baton = obstack_alloc (&cu->objfile->objfile_obstack, sizeof (*baton));
++ baton->per_cu = cu->per_cu;
++ gdb_assert (baton->per_cu);
+
+- if (cu->base_known == 0)
+- complaint (&symfile_complaints,
+- _("Location list used without "
+- "specifying the CU base address."));
++ /* Note that we're just copying the block's data pointer
++ here, not the actual data. We're still pointing into the
++ info_buffer for SYM's objfile; right now we never release
++ that buffer, but when we do clean up properly this may
++ need to change. */
++ baton->size = DW_BLOCK (attr)->size;
++ baton->data = DW_BLOCK (attr)->data;
++ gdb_assert (baton->size == 0 || baton->data != NULL);
+
-+ return p;
++ return baton;
+}
-+
-+/* Emit a character, VALUE, which was specified numerically, to
-+ OUTPUT. TYPE is the target character type. */
-+
-+static void
-+emit_numeric_character (struct type *type, unsigned long value,
-+ struct obstack *output)
+
++static struct dwarf2_loclist_baton *
++dwarf2_attr_to_loclist_baton (struct attribute *attr, struct dwarf2_cu *cu)
+{
-+ gdb_byte *buffer;
++ struct dwarf2_loclist_baton *baton;
+
-+ buffer = alloca (TYPE_LENGTH (type));
-+ pack_long (buffer, type, value);
-+ obstack_grow (output, buffer, TYPE_LENGTH (type));
-+}
++ /* DW_AT_location of the referenced DIE may be missing if the referenced
++ variable has been optimized out. */
++ if (!attr)
++ return NULL;
+
-+/* Convert an octal escape sequence. TYPE is the target character
-+ type. The digits of the escape sequence begin at P and extend no
-+ farther than LIMIT. The result is written to OUTPUT. Returns a
-+ pointer to just after the final digit of the escape sequence. */
++ dwarf2_read_section (dwarf2_per_objfile->objfile,
++ &dwarf2_per_objfile->loc);
+
-+static char *
-+convert_octal (struct type *type, char *p, char *limit, struct obstack *output)
-+{
-+ unsigned long value = 0;
++ if (!(attr_form_is_section_offset (attr)
++ /* ".debug_loc" may not exist at all, or the offset may be outside
++ the section. If so, fall through to the complaint in the
++ other branch. */
++ && DW_UNSND (attr) < dwarf2_section_size (dwarf2_per_objfile->objfile,
++ &dwarf2_per_objfile->loc)))
++ return NULL;
+
-+ while (p < limit && isdigit (*p) && *p != '8' && *p != '9')
-+ {
-+ value = 8 * value + host_hex_value (*p);
-+ ++p;
-+ }
++ baton = obstack_alloc (&cu->objfile->objfile_obstack,
++ sizeof (struct dwarf2_loclist_baton));
++
++ fill_in_loclist_baton (cu, baton, attr);
+
-+ emit_numeric_character (type, value, output);
++ if (cu->base_known == 0)
++ complaint (&symfile_complaints,
++ _("Location list used without "
++ "specifying the CU base address."));
+
-+ return p;
++ return baton;
+}
+
-+/* Convert a hex escape sequence. TYPE is the target character type.
-+ The digits of the escape sequence begin at P and extend no farther
-+ than LIMIT. The result is written to OUTPUT. Returns a pointer to
-+ just after the final digit of the escape sequence. */
++/* SYM may get its SYMBOL_CLASS overriden on invalid ATTR content. */
+
-+static char *
-+convert_hex (struct type *type, char *p, char *limit, struct obstack *output)
++static void
++dwarf2_symbol_mark_computed (struct attribute *attr, struct symbol *sym,
++ struct dwarf2_cu *cu)
+{
-+ unsigned long value = 0;
++ struct dwarf2_loclist_baton *loclist_baton;
+
-+ while (p < limit && isxdigit (*p))
++ loclist_baton = dwarf2_attr_to_loclist_baton (attr, cu);
++ if (loclist_baton)
+ {
-+ value = 16 * value + host_hex_value (*p);
-+ ++p;
+ SYMBOL_COMPUTED_OPS (sym) = &dwarf2_loclist_funcs;
+- SYMBOL_LOCATION_BATON (sym) = baton;
++ SYMBOL_LOCATION_BATON (sym) = loclist_baton;
+ }
-+
-+ emit_numeric_character (type, value, output);
-+
-+ return p;
-+}
-+
-+#define ADVANCE \
-+ do { \
-+ ++p; \
-+ if (p == limit) \
-+ error (_("Malformed escape sequence")); \
-+ } while (0)
-+
-+/* Convert an escape sequence to a target format. TYPE is the target
-+ character type to use, and DEST_CHARSET is the name of the target
-+ character set. The backslash of the escape sequence is at *P, and
-+ the escape sequence will not extend past LIMIT. The results are
-+ written to OUTPUT. Returns a pointer to just past the final
-+ character of the escape sequence. */
-+
-+static char *
-+convert_escape (struct type *type, const char *dest_charset,
-+ char *p, char *limit, struct obstack *output)
-+{
-+ /* Skip the backslash. */
-+ ADVANCE;
-+
-+ switch (*p)
++ else if (attr_form_is_block (attr))
+ {
-+ case '\\':
-+ obstack_1grow (output, '\\');
-+ ++p;
-+ break;
++ SYMBOL_COMPUTED_OPS (sym) = &dwarf2_locexpr_funcs;
++ SYMBOL_LOCATION_BATON (sym) = dwarf2_attr_to_locexpr_baton (attr, cu);
+ }
+ else
+ {
+- struct dwarf2_locexpr_baton *baton;
++ dwarf2_invalid_attrib_class_complaint ("location description",
++ SYMBOL_NATURAL_NAME (sym));
+
+- baton = obstack_alloc (&cu->objfile->objfile_obstack,
+- sizeof (struct dwarf2_locexpr_baton));
+- baton->per_cu = cu->per_cu;
+- gdb_assert (baton->per_cu);
++ /* Some methods are called w/o checking SYMBOL_COMPUTED_OPS validity. */
+
+- if (attr_form_is_block (attr))
+- {
+- /* Note that we're just copying the block's data pointer
+- here, not the actual data. We're still pointing into the
+- info_buffer for SYM's objfile; right now we never release
+- that buffer, but when we do clean up properly this may
+- need to change. */
+- baton->size = DW_BLOCK (attr)->size;
+- baton->data = DW_BLOCK (attr)->data;
+- }
+- else
+- {
+- dwarf2_invalid_attrib_class_complaint ("location description",
+- SYMBOL_NATURAL_NAME (sym));
+- baton->size = 0;
+- baton->data = NULL;
+- }
++ SYMBOL_COMPUTED_OPS (sym) = &dwarf2_missing_funcs;
++ SYMBOL_LOCATION_BATON (sym) = NULL;
+
+- SYMBOL_COMPUTED_OPS (sym) = &dwarf2_locexpr_funcs;
+- SYMBOL_LOCATION_BATON (sym) = baton;
++ /* For functions a missing DW_AT_frame_base does not optimize out the
++ whole function definition, only its frame base resolving. */
++ if (attr->name == DW_AT_location)
++ SYMBOL_CLASS (sym) = LOC_OPTIMIZED_OUT;
+ }
+ }
+
+@@ -15145,6 +15398,25 @@ offset_and_type_eq (const void *item_lhs
+ return ofs_lhs->offset == ofs_rhs->offset;
+ }
+
++/* Fill in generic attributes applicable for type DIEs. */
+
-+ case 'x':
-+ ADVANCE;
-+ if (!isxdigit (*p))
-+ error (_("\\x used with no following hex digits."));
-+ p = convert_hex (type, p, limit, output);
-+ break;
++static void
++fetch_die_type_attrs (struct die_info *die, struct type *type,
++ struct dwarf2_cu *cu)
++{
++ struct attribute *attr;
+
-+ case '0':
-+ case '1':
-+ case '2':
-+ case '3':
-+ case '4':
-+ case '5':
-+ case '6':
-+ case '7':
-+ p = convert_octal (type, p, limit, output);
-+ break;
++ attr = dwarf2_attr (die, DW_AT_allocated, cu);
++ if (attr_form_is_block (attr))
++ TYPE_ALLOCATED (type) = dwarf2_attr_to_locexpr_baton (attr, cu);
++ gdb_assert (!TYPE_NOT_ALLOCATED (type));
+
-+ case 'u':
-+ case 'U':
-+ {
-+ int length = *p == 'u' ? 4 : 8;
-+ ADVANCE;
-+ if (!isxdigit (*p))
-+ error (_("\\u used with no following hex digits"));
-+ p = convert_ucn (p, limit, dest_charset, output, length);
-+ }
-+ }
++ attr = dwarf2_attr (die, DW_AT_associated, cu);
++ if (attr_form_is_block (attr))
++ TYPE_ASSOCIATED (type) = dwarf2_attr_to_locexpr_baton (attr, cu);
++ gdb_assert (!TYPE_NOT_ASSOCIATED (type));
++}
++
+ /* Set the type associated with DIE to TYPE. Save it in CU's hash
+ table if necessary. For convenience, return TYPE.
+
+@@ -15170,6 +15442,8 @@ set_die_type (struct die_info *die, stru
+ struct objfile *objfile = cu->objfile;
+ htab_t *type_hash_ptr;
+
++ fetch_die_type_attrs (die, type, cu);
++
+ /* For Ada types, make sure that the gnat-specific data is always
+ initialized (if not already set). There are a few types where
+ we should not be doing so, because the type-specific area is
+Index: gdb-7.2.90.20110703/gdb/elfread.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/elfread.c 2011-05-03 18:25:20.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/elfread.c 2011-07-03 10:33:11.000000000 +0200
+@@ -43,6 +43,12 @@
+ #include "infcall.h"
+ #include "gdbthread.h"
+ #include "regcache.h"
++#include "stap-probe.h"
++#include "arch-utils.h"
++#include "value.h"
++#include "infcall.h"
++#include "gdbthread.h"
++#include "regcache.h"
+
+ extern void _initialize_elfread (void);
+
+@@ -61,6 +67,21 @@ struct elfinfo
+ asection *mdebugsect; /* Section pointer for .mdebug section */
+ };
+
++/* Per-objfile data for SystemTap probe info. */
+
-+ return p;
++static const struct objfile_data *stap_probe_key = NULL;
++
++/* Per-objfile data about SystemTap probes. */
++
++struct stap_probe_per_objfile
++ {
++ /* The number of probes in this objfile. */
++ int stap_num_probes;
++
++ /* The probes themselves. */
++ struct stap_probe *probes;
++ };
++
+ static void free_elfinfo (void *);
+
+ /* Minimal symbols located at the GOT entries for .plt - that is the real
+@@ -1553,7 +1574,266 @@ elfstab_offset_sections (struct objfile
+ complaint (&symfile_complaints,
+ _("elf/stab section information missing for %s"), filename);
+ }
++
++/* Helper function that parses the information contained in a
++ SystemTap's probe. Basically, the information consists in:
++
++ - Probe's PC address;
++ - Link-time section address of `.stapsdt.base' section;
++ - Link-time address of the semaphore variable, or ZERO if the
++ probe doesn't have an associated semaphore;
++ - Probe's provider name;
++ - Probe's name;
++ - Probe's argument format. */
++
++static void
++handle_probe (struct objfile *objfile, struct sdt_note *el,
++ struct stap_probe *ret, CORE_ADDR base)
++{
++ bfd *abfd = objfile->obfd;
++ int size = bfd_get_arch_size (abfd) / 8;
++ struct gdbarch *gdbarch = get_objfile_arch (objfile);
++ struct type *ptr_type = builtin_type (gdbarch)->builtin_data_ptr;
++ CORE_ADDR base_ref;
++
++ /* Provider and the name of the probe. */
++ ret->provider = (const char *) &el->data[3 * size];
++ ret->name = memchr (ret->provider, '\0',
++ (unsigned long *) el->data
++ + el->size - (unsigned long *) ret->provider);
++ /* Making sure there is a name. */
++ if (!ret->name)
++ complaint (&symfile_complaints, _("corrupt probe when reading `%s'"),
++ objfile->name);
++ else
++ ++ret->name;
++
++ /* Retrieving the probe's address. */
++ ret->address = extract_typed_address ((const gdb_byte *) &el->data[0],
++ ptr_type);
++ /* Link-time sh_addr of `.stapsdt.base' section. */
++ base_ref = extract_typed_address ((const gdb_byte *) &el->data[size],
++ ptr_type);
++ /* Semaphore address. */
++ ret->sem_addr = extract_typed_address ((const gdb_byte *) &el->data[2 * size],
++ ptr_type);
++
++ ret->address += (ANOFFSET (objfile->section_offsets,
++ SECT_OFF_TEXT (objfile))
++ + base - base_ref);
++ if (ret->sem_addr)
++ ret->sem_addr += (ANOFFSET (objfile->section_offsets,
++ SECT_OFF_DATA (objfile))
++ + base - base_ref);
++
++ /* Arguments. We can only extract the argument format if there is a valid
++ name for this probe. */
++ if (ret->name)
++ {
++ ret->args = memchr (ret->name, '\0',
++ (unsigned long *) el->data
++ + el->size - (unsigned long *) ret->name);
++
++ if (ret->args++ != NULL
++ || memchr (ret->args, '\0', (unsigned long *) el->data
++ + el->size - (unsigned long *) ret->name)
++ != el->data + el->size - 1)
++ complaint (&symfile_complaints, _("corrupt probe when reading `%s'"),
++ objfile->name);
++ }
++ else
++ ret->args = NULL;
+}
+
-+/* Given a single string from a (C-specific) OP_STRING list, convert
-+ it to a target string, handling escape sequences specially. The
-+ output is written to OUTPUT. DATA is the input string, which has
-+ length LEN. DEST_CHARSET is the name of the target character set,
-+ and TYPE is the type of target character to use. */
++/* The name of the SystemTap section where we will find information about
++ the probes. */
++
++#define STAP_BASE_SECTION_NAME ".stapsdt.base"
++
++/* Helper function which tries to find the base address of the SystemTap
++ base section named STAP_BASE_SECTION_NAME. */
+
+static void
-+parse_one_string (struct obstack *output, char *data, int len,
-+ const char *dest_charset, struct type *type)
++get_base_address_1 (bfd *abfd, asection *sect, void *obj)
++{
++ bfd_vma *base = (bfd_vma *) obj;
++
++ if (*base == (bfd_vma) -1
++ && (sect->flags & (SEC_DATA | SEC_ALLOC | SEC_HAS_CONTENTS))
++ && sect->name && !strcmp (sect->name, STAP_BASE_SECTION_NAME))
++ *base = sect->vma;
++}
++
++/* Helper function which iterates over every section in the BFD file,
++ trying to find the base address of the SystemTap base section.
++ Returns the section address if found, or -1 otherwise. */
++
++static bfd_vma
++get_base_address (bfd *obfd)
+{
-+ char *limit;
++ bfd_vma base = (bfd_vma) -1;
+
-+ limit = data + len;
++ bfd_map_over_sections (obfd, get_base_address_1, (void *) &base);
+
-+ while (data < limit)
++ return base;
++}
++
++/* Implementation of `sym_get_probes', as documented in symfile.h. */
++
++static const struct stap_probe *
++elf_get_probes (struct objfile *objfile, int *num_probes)
++{
++ struct stap_probe *ret = NULL;
++ struct stap_probe_per_objfile *probes_per_objfile;
++
++ /* Initially, no probes. */
++ *num_probes = 0;
++
++ /* Have we parsed this objfile's probes already? */
++ probes_per_objfile
++ = (struct stap_probe_per_objfile *) objfile_data (objfile,
++ stap_probe_key);
++
++ if (!probes_per_objfile)
+ {
-+ char *p = data;
-+ /* Look for next escape, or the end of the input. */
-+ while (p < limit && *p != '\\')
-+ ++p;
-+ /* If we saw a run of characters, convert them all. */
-+ if (p > data)
-+ convert_between_encodings (host_charset (), dest_charset,
-+ data, p - data, 1, output, translit_none);
-+ /* If we saw an escape, convert it. */
-+ if (p < limit)
-+ p = convert_escape (type, dest_charset, p, limit, output);
-+ data = p;
++ /* If we are here, then this is the first time we are parsing the
++ probe's information. We basically have to count how many probes
++ the objfile has, and then fill in the necessary information
++ for each one. */
++
++ bfd *obfd = objfile->obfd;
++ bfd_vma base = get_base_address (obfd);
++ struct sdt_note *iter;
++ int i;
++ int n = 0;
++
++ if (! elf_tdata (obfd)->sdt_note_head)
++ /* There isn't any probe here. */
++ return NULL;
++
++ /* Allocating space for probe info. */
++ for (iter = elf_tdata (obfd)->sdt_note_head;
++ iter;
++ iter = iter->next, ++n);
++
++ ret = xcalloc (n, sizeof (struct stap_probe));
++
++ /* Parsing each probe's information. */
++ for (iter = elf_tdata (obfd)->sdt_note_head, i = 0;
++ iter;
++ iter = iter->next, i++)
++ /* We first have to handle all the information about the
++ probe which is present in the section. */
++ handle_probe (objfile, iter, &ret[i], base);
++
++ /* Creating a cache for these probes in the objfile's registry. */
++ probes_per_objfile = xmalloc (sizeof (struct stap_probe_per_objfile));
++
++ probes_per_objfile->stap_num_probes = n;
++ probes_per_objfile->probes = ret;
++
++ set_objfile_data (objfile, stap_probe_key, probes_per_objfile);
+ }
++ else
++ ret = probes_per_objfile->probes;
++
++ *num_probes = probes_per_objfile->stap_num_probes;
++
++ return ret;
+}
+
-+/* Expression evaluator for the C language family. Most operations
-+ are delegated to evaluate_subexp_standard; see that function for a
-+ description of the arguments. */
++/* Implementation of `sym_get_probe_argument_count', as documented in
++ symfile.h. */
+
-+static struct value *
-+evaluate_subexp_c (struct type *expect_type, struct expression *exp,
-+ int *pos, enum noside noside)
++static int
++elf_get_probe_argument_count (struct objfile *objfile,
++ const struct stap_probe *probe)
+{
-+ enum exp_opcode op = exp->elts[*pos].opcode;
++ const char *pargs = probe->args;
+
-+ switch (op)
-+ {
-+ case OP_STRING:
-+ {
-+ int oplen, limit;
-+ struct type *type;
-+ struct obstack output;
-+ struct cleanup *cleanup;
-+ struct value *result;
-+ enum c_string_type dest_type;
-+ const char *dest_charset;
-+
-+ obstack_init (&output);
-+ cleanup = make_cleanup_obstack_free (&output);
-+
-+ ++*pos;
-+ oplen = longest_to_int (exp->elts[*pos].longconst);
-+
-+ ++*pos;
-+ limit = *pos + BYTES_TO_EXP_ELEM (oplen + 1);
-+ dest_type
-+ = (enum c_string_type) longest_to_int (exp->elts[*pos].longconst);
-+ switch (dest_type & ~C_CHAR)
-+ {
-+ case C_STRING:
-+ type = language_string_char_type (current_language,
-+ current_gdbarch);
-+ break;
-+ case C_WIDE_STRING:
-+ type = lookup_typename ("wchar_t", NULL, 0);
-+ break;
-+ case C_STRING_16:
-+ type = lookup_typename ("char16_t", NULL, 0);
-+ break;
-+ case C_STRING_32:
-+ type = lookup_typename ("char32_t", NULL, 0);
-+ break;
-+ default:
-+ internal_error (__FILE__, __LINE__, "unhandled c_string_type");
-+ }
-+ dest_charset = charset_for_string_type (dest_type);
++ if (!pargs || !*pargs || *pargs == ':')
++ /* No arguments. */
++ return 0;
+
-+ ++*pos;
-+ while (*pos < limit)
-+ {
-+ int len;
++ return stap_get_probe_argument_count (probe);
++}
+
-+ len = longest_to_int (exp->elts[*pos].longconst);
++/* Implementation of `sym_evaluate_probe_argument', as documented in
++ symfile.h. */
+
-+ ++*pos;
-+ if (noside != EVAL_SKIP)
-+ parse_one_string (&output, &exp->elts[*pos].string, len,
-+ dest_charset, type);
-+ *pos += BYTES_TO_EXP_ELEM (len);
-+ }
++static struct value *
++elf_evaluate_probe_argument (struct objfile *objfile,
++ const struct stap_probe *probe,
++ struct frame_info *frame,
++ int n)
++{
++ return stap_evaluate_probe_argument (objfile, probe, frame, n);
++}
++
++/* Implementation of `sym_compile_to_ax', as documented in symfile.h. */
+
-+ /* Skip the trailing length and opcode. */
-+ *pos += 2;
++static void
++elf_compile_to_ax (struct objfile *objfile,
++ const struct stap_probe *probe,
++ struct agent_expr *expr,
++ struct axs_value *value,
++ int n)
++{
++ stap_compile_to_ax (objfile, probe, expr, value, n);
++}
+
-+ if (noside == EVAL_SKIP)
-+ return NULL;
++/* Implementation of `sym_relocate_probe', as documented in symfile.h. */
+
-+ if ((dest_type & C_CHAR) != 0)
-+ {
-+ LONGEST value;
++static void
++elf_symfile_relocate_probe (struct objfile *objfile,
++ struct section_offsets *new_offsets,
++ struct section_offsets *delta)
++{
++ int i;
++ struct stap_probe_per_objfile *p
++ = (struct stap_probe_per_objfile *) objfile_data (objfile,
++ stap_probe_key);
+
-+ if (obstack_object_size (&output) != TYPE_LENGTH (type))
-+ error (_("Could not convert character constant to target character set"));
-+ value = unpack_long (type, obstack_base (&output));
-+ result = value_from_longest (type, value);
-+ }
-+ else
-+ {
-+ int i;
-+ /* Write the terminating character. */
-+ for (i = 0; i < TYPE_LENGTH (type); ++i)
-+ obstack_1grow (&output, 0);
-+ result = value_typed_string (obstack_base (&output),
-+ obstack_object_size (&output),
-+ type);
-+ }
-+ do_cleanups (cleanup);
-+ return result;
-+ }
-+ break;
++ if (!p)
++ /* No probe to relocate. */
++ return;
+
-+ default:
-+ break;
++ for (i = 0; i < p->stap_num_probes; i++)
++ {
++ p->probes[i].address += ANOFFSET (delta, SECT_OFF_TEXT (objfile));
++ if (p->probes[i].sem_addr)
++ p->probes[i].sem_addr += ANOFFSET (delta, SECT_OFF_DATA (objfile));
+ }
-+ return evaluate_subexp_standard (expect_type, exp, pos, noside);
+}
-
-
- \f
-@@ -396,6 +1063,15 @@ c_language_arch_info (struct gdbarch *gdbarch,
- lai->bool_type_default = builtin->builtin_int;
- }
-
-+static const struct exp_descriptor exp_descriptor_c =
++
++/* Helper function used to free the space allocated for storing SystemTap
++ probe information. */
++
++static void
++stap_probe_key_free (struct objfile *objfile, void *d)
+{
-+ print_subexp_standard,
-+ operator_length_standard,
-+ op_name_standard,
-+ dump_subexp_body_standard,
-+ evaluate_subexp_c
-+};
++ int i;
++ struct stap_probe_per_objfile *data = (struct stap_probe_per_objfile *) d;
+
- const struct language_defn c_language_defn =
- {
- "c", /* Language name */
-@@ -405,7 +1081,7 @@ const struct language_defn c_language_defn =
- case_sensitive_on,
- array_row_major,
- macro_expansion_c,
-- &exp_descriptor_standard,
-+ &exp_descriptor_c,
- c_parse,
- c_error,
- null_post_parser,
-@@ -524,7 +1200,7 @@ const struct language_defn cplus_language_defn =
- case_sensitive_on,
- array_row_major,
- macro_expansion_c,
-- &exp_descriptor_standard,
-+ &exp_descriptor_c,
- c_parse,
- c_error,
- null_post_parser,
-@@ -562,7 +1238,7 @@ const struct language_defn asm_language_defn =
- case_sensitive_on,
- array_row_major,
- macro_expansion_c,
-- &exp_descriptor_standard,
-+ &exp_descriptor_c,
- c_parse,
- c_error,
- null_post_parser,
-@@ -605,7 +1281,7 @@ const struct language_defn minimal_language_defn =
- case_sensitive_on,
- array_row_major,
- macro_expansion_c,
-- &exp_descriptor_standard,
-+ &exp_descriptor_c,
- c_parse,
- c_error,
- null_post_parser,
-diff --git a/gdb/c-lang.h b/gdb/c-lang.h
-index 06c5767..ba9d996 100644
---- a/gdb/c-lang.h
-+++ b/gdb/c-lang.h
-@@ -29,9 +29,38 @@ struct language_arch_info;
- #include "macroexp.h"
-
-
--extern int c_parse (void); /* Defined in c-exp.y */
--
--extern void c_error (char *); /* Defined in c-exp.y */
-+/* The various kinds of C string and character. Note that these
-+ values are chosen so that they may be or'd together in certain
-+ ways. */
-+enum c_string_type
-+ {
-+ /* An ordinary string: "value". */
-+ C_STRING = 0,
-+ /* A wide string: L"value". */
-+ C_WIDE_STRING = 1,
-+ /* A 16-bit Unicode string: u"value". */
-+ C_STRING_16 = 2,
-+ /* A 32-bit Unicode string: U"value". */
-+ C_STRING_32 = 3,
-+ /* An ordinary char: 'v'. This can also be or'd with one of the
-+ above to form the corresponding CHAR value from a STRING
-+ value. */
-+ C_CHAR = 4,
-+ /* A wide char: L'v'. */
-+ C_WIDE_CHAR = 5,
-+ /* A 16-bit Unicode char: u'v'. */
-+ C_CHAR_16 = 6,
-+ /* A 32-bit Unicode char: U'v'. */
-+ C_CHAR_32 = 7
-+ };
++ for (i = 0; i < data->stap_num_probes; i++)
++ stap_free_parsed_args (data->probes[i].parsed_args);
++ xfree (data->probes);
++ xfree (data);
++}
+
-+/* Defined in c-exp.y. */
+ \f
+
-+extern int c_parse (void);
++/* Implementation `sym_probe_fns', as documented in symfile.h. */
+
-+extern void c_error (char *);
++static const struct sym_probe_fns elf_probe_fns =
++{
++ elf_get_probes, /* sym_get_probes */
++ elf_get_probe_argument_count, /* sym_get_probe_argument_count */
++ elf_evaluate_probe_argument, /* sym_evaluate_probe_argument */
++ elf_compile_to_ax, /* sym_compile_to_ax */
++ elf_symfile_relocate_probe, /* sym_relocate_probe */
++};
+
-+extern int c_parse_escape (char **, struct obstack *);
-
- /* Defined in c-typeprint.c */
- extern void c_print_type (struct type *, char *, struct ui_file *, int,
-@@ -48,10 +77,10 @@ extern int c_value_print (struct value *, struct ui_file *,
+ /* Register that we are able to handle ELF object file formats. */
- /* These are in c-lang.c: */
+ static const struct sym_fns elf_sym_fns =
+@@ -1568,6 +1848,7 @@ static const struct sym_fns elf_sym_fns
+ elf_symfile_segments, /* Get segment information from a file. */
+ NULL,
+ default_symfile_relocate, /* Relocate a debug section. */
++ &elf_probe_fns, /* sym_probe_fns */
+ &psym_functions
+ };
--extern void c_printchar (int, struct ui_file *);
-+extern void c_printchar (int, struct type *, struct ui_file *);
+@@ -1586,6 +1867,7 @@ static const struct sym_fns elf_sym_fns_
+ elf_symfile_segments, /* Get segment information from a file. */
+ NULL,
+ default_symfile_relocate, /* Relocate a debug section. */
++ &elf_probe_fns, /* sym_probe_fns */
+ &psym_functions
+ };
--extern void c_printstr (struct ui_file * stream, const gdb_byte *string,
-- unsigned int length, int width,
-+extern void c_printstr (struct ui_file * stream, struct type *elttype,
-+ const gdb_byte *string, unsigned int length,
- int force_ellipses,
- const struct value_print_options *options);
+@@ -1603,6 +1885,7 @@ static const struct sym_fns elf_sym_fns_
+ elf_symfile_segments, /* Get segment information from a file. */
+ NULL,
+ default_symfile_relocate, /* Relocate a debug section. */
++ &elf_probe_fns, /* sym_probe_fns */
+ &dwarf2_gdb_index_functions
+ };
-diff --git a/gdb/c-typeprint.c b/gdb/c-typeprint.c
-index 0929516..c005fe4 100644
---- a/gdb/c-typeprint.c
-+++ b/gdb/c-typeprint.c
-@@ -40,8 +40,6 @@ static void cp_type_print_method_args (struct type *mtype, char *prefix,
- char *varstring, int staticp,
- struct ui_file *stream);
+@@ -1619,6 +1902,8 @@ static const struct gnu_ifunc_fns elf_gn
+ void
+ _initialize_elfread (void)
+ {
++ stap_probe_key
++ = register_objfile_data_with_cleanup (NULL, stap_probe_key_free);
+ add_symtab_fns (&elf_sym_fns);
+
+ elf_objfile_gnu_ifunc_cache_data = register_objfile_data ();
+Index: gdb-7.2.90.20110703/gdb/eval.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/eval.c 2011-03-28 22:21:03.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/eval.c 2011-07-03 10:33:11.000000000 +0200
+@@ -44,6 +44,7 @@
+ #include "objfiles.h"
+ #include "python/python.h"
+ #include "wrapper.h"
++#include "dwarf2loc.h"
--static void c_type_print_args (struct type *, struct ui_file *);
--
- static void cp_type_print_derivation_info (struct ui_file *, struct type *);
+ #include "gdb_assert.h"
- static void c_type_print_varspec_prefix (struct type *, struct ui_file *, int,
-@@ -199,6 +197,23 @@ cp_type_print_method_args (struct type *mtype, char *prefix, char *varstring,
- fprintf_filtered (stream, "void");
+@@ -489,27 +490,217 @@ init_array_element (struct value *array,
+ }
- fprintf_filtered (stream, ")");
+ static struct value *
+-value_f90_subarray (struct value *array,
+- struct expression *exp, int *pos, enum noside noside)
++value_f90_subarray (struct value *array, struct expression *exp, int *pos,
++ int nargs, enum noside noside)
+ {
+- int pc = (*pos) + 1;
+- LONGEST low_bound, high_bound;
+- struct type *range = check_typedef (TYPE_INDEX_TYPE (value_type (array)));
+- enum f90_range_type range_type = longest_to_int (exp->elts[pc].longconst);
+-
+- *pos += 3;
++ /* Type to use for the newly allocated value ARRAY. */
++ struct type *new_array_type;
+
+- if (range_type == LOW_BOUND_DEFAULT || range_type == BOTH_BOUND_DEFAULT)
+- low_bound = TYPE_LOW_BOUND (range);
++ /* Type being iterated for each dimension. */
++ struct type *type, *type_last_target;
++
++ /* Pointer in the last holder to the type of current dimension. */
++ struct type **typep = &new_array_type;
++
++ struct subscript_index
++ {
++ enum { SUBSCRIPT_RANGE, SUBSCRIPT_NUMBER } kind;
++ union
++ {
++ struct subscript_range
++ {
++ enum f90_range_type f90_range_type;
++ LONGEST low_bound, high_bound;
++ }
++ range;
++ LONGEST number;
++ };
++ }
++ *subscript_array;
++ struct type **type_array;
++ int i;
++ struct cleanup *old_chain;
++ CORE_ADDR value_byte_address, value_byte_offset = 0;
++ htab_t copied_types;
++ struct value *saved_array;
++
++ old_chain = make_cleanup (null_cleanup, 0);
++ object_address_set (value_raw_address (array));
++
++ if (value_optimized_out (array)
++ || (VALUE_LVAL (array) != not_lval
++ && VALUE_LVAL (array) != lval_memory
++ && VALUE_LVAL (array) != lval_internalvar_component
++ && VALUE_LVAL (array) != lval_internalvar))
++ error (_("value being subranged must be in memory"));
++ type = check_typedef (value_type (array));
++ f_object_address_data_valid_or_error (type);
++
++ copied_types = create_copied_types_hash (NULL);
++ type = copy_type_recursive (type, copied_types);
++ htab_delete (copied_types);
++
++ if (nargs != calc_f77_array_dims (type))
++ error (_("Wrong number of subscripts"));
+
-+ /* For non-static methods, read qualifiers from the type of
-+ THIS. */
-+ if (!staticp)
++ if (TYPE_DATA_LOCATION_IS_ADDR (type))
++ {
++ value_byte_address = (TYPE_DATA_LOCATION_ADDR (type)
++ + value_offset (array));
++ TYPE_DATA_LOCATION_IS_ADDR (type) = 0;
++ TYPE_DATA_LOCATION_DWARF_BLOCK (type) = NULL;
++ }
+ else
+- low_bound = value_as_long (evaluate_subexp (NULL_TYPE, exp, pos, noside));
+ {
-+ struct type *domain;
++ gdb_assert (TYPE_DATA_LOCATION_DWARF_BLOCK (type) == NULL);
++ value_byte_address = value_address (array);
++ }
+
-+ gdb_assert (nargs > 0);
-+ gdb_assert (TYPE_CODE (args[0].type) == TYPE_CODE_PTR);
-+ domain = TYPE_TARGET_TYPE (args[0].type);
++ new_array_type = type;
+
-+ if (TYPE_CONST (domain))
-+ fprintf_filtered (stream, " const");
++ subscript_array = alloca (sizeof (*subscript_array) * nargs);
+
-+ if (TYPE_VOLATILE (domain))
-+ fprintf_filtered (stream, " volatile");
-+ }
- }
-
-
-@@ -354,10 +369,12 @@ c_type_print_modifier (struct type *type, struct ui_file *stream,
-
- /* Print out the arguments of TYPE, which should have TYPE_CODE_METHOD
- or TYPE_CODE_FUNC, to STREAM. Artificial arguments, such as "this"
-- in non-static methods, are displayed. */
-+ in non-static methods, are displayed if SHOW_ARTIFICIAL is
-+ non-zero. */
-
--static void
--c_type_print_args (struct type *type, struct ui_file *stream)
-+void
-+c_type_print_args (struct type *type, struct ui_file *stream,
-+ int show_artificial)
- {
- int i, len;
- struct field *args;
-@@ -369,6 +386,9 @@ c_type_print_args (struct type *type, struct ui_file *stream)
-
- for (i = 0; i < TYPE_NFIELDS (type); i++)
- {
-+ if (TYPE_FIELD_ARTIFICIAL (type, i) && !show_artificial)
-+ continue;
++ gdb_assert (nargs > 0);
+
- if (printed_any)
- {
- fprintf_filtered (stream, ", ");
-@@ -559,7 +579,12 @@ c_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
- fprintf_filtered (stream, ")");
-
- fprintf_filtered (stream, "[");
-- if (TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0
-+ if (TYPE_ARRAY_BOUND_IS_DWARF_BLOCK (type, 1))
++ /* Now that we know we have a legal array subscript expression
++ let us actually find out where this element exists in the array. */
++
++ /* Take array indices left to right. */
++ for (i = 0; i < nargs; i++)
++ {
++ struct subscript_index *index = &subscript_array[i];
++
++ if (exp->elts[*pos].opcode == OP_F90_RANGE)
+ {
-+ /* No _() - printed sources should not be locale dependent. */
-+ fprintf_filtered (stream, "variable");
++ int pc = (*pos) + 1;
++ struct subscript_range *range;
++
++ index->kind = SUBSCRIPT_RANGE;
++ range = &index->range;
++
++ *pos += 3;
++ range->f90_range_type = longest_to_int (exp->elts[pc].longconst);
++
++ if (range->f90_range_type == HIGH_BOUND_DEFAULT
++ || range->f90_range_type == NONE_BOUND_DEFAULT)
++ range->low_bound = value_as_long (evaluate_subexp (NULL_TYPE, exp,
++ pos, noside));
++
++ if (range->f90_range_type == LOW_BOUND_DEFAULT
++ || range->f90_range_type == NONE_BOUND_DEFAULT)
++ range->high_bound = value_as_long (evaluate_subexp (NULL_TYPE, exp,
++ pos, noside));
+ }
-+ else if (TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0
- && !TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED (type))
- fprintf_filtered (stream, "%d",
- (TYPE_LENGTH (type)
-@@ -592,7 +617,7 @@ c_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
- if (passed_a_ptr)
- fprintf_filtered (stream, ")");
- if (!demangled_args)
-- c_type_print_args (type, stream);
-+ c_type_print_args (type, stream, 1);
- c_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, show,
- passed_a_ptr, 0);
- break;
-diff --git a/gdb/c-valprint.c b/gdb/c-valprint.c
-index 0b616f7..3433da2 100644
---- a/gdb/c-valprint.c
-+++ b/gdb/c-valprint.c
-@@ -55,6 +55,18 @@ print_function_pointer_address (CORE_ADDR address, struct ui_file *stream,
- }
-
++ else
++ {
++ struct value *val;
++
++ index->kind = SUBSCRIPT_NUMBER;
-+/* A helper for textual_element_type. This checks the name of the
-+ typedef. This is bogus but it isn't apparent that the compiler
-+ provides us the help we may need. */
+- if (range_type == HIGH_BOUND_DEFAULT || range_type == BOTH_BOUND_DEFAULT)
+- high_bound = TYPE_HIGH_BOUND (range);
++ /* Evaluate each subscript; it must be a legal integer in F77. */
++ val = evaluate_subexp_with_coercion (exp, pos, noside);
++ index->number = value_as_long (val);
++ }
++ }
+
-+static int
-+textual_name (const char *name)
-+{
-+ return (!strcmp (name, "wchar_t")
-+ || !strcmp (name, "char16_t")
-+ || !strcmp (name, "char32_t"));
-+}
++ /* Internal type of array is arranged right to left. */
++ for (i = nargs - 1; i >= 0; i--)
++ {
++ struct subscript_index *index = &subscript_array[i];
++ struct type *range_type = TYPE_INDEX_TYPE (type);
+
- /* Apply a heuristic to decide whether an array of TYPE or a pointer
- to TYPE should be printed as a textual string. Return non-zero if
- it should, or zero if it should be treated as an array of integers
-@@ -77,6 +89,15 @@ textual_element_type (struct type *type, char format)
- /* TYPE_CODE_CHAR is always textual. */
- if (TYPE_CODE (true_type) == TYPE_CODE_CHAR)
- return 1;
-+ /* Any other character-like types must be integral. */
-+ if (TYPE_CODE (true_type) != TYPE_CODE_INT)
-+ return 0;
++ switch (index->kind)
++ {
++ case SUBSCRIPT_RANGE:
++ {
++ struct subscript_range *range = &index->range;
++ CORE_ADDR byte_offset;
++
++ if (range->f90_range_type == LOW_BOUND_DEFAULT
++ || range->f90_range_type == BOTH_BOUND_DEFAULT)
++ range->low_bound = TYPE_LOW_BOUND (range_type);
++
++ if (range->f90_range_type == HIGH_BOUND_DEFAULT
++ || range->f90_range_type == BOTH_BOUND_DEFAULT)
++ range->high_bound = TYPE_HIGH_BOUND (range_type);
++
++ if (range->low_bound < TYPE_LOW_BOUND (range_type)
++ || (!TYPE_HIGH_BOUND_UNDEFINED (range_type)
++ && range->high_bound > TYPE_HIGH_BOUND (range_type)))
++ error (_("slice out of range"));
++
++ byte_offset = ((range->low_bound - TYPE_LOW_BOUND (range_type))
++ * TYPE_ARRAY_BYTE_STRIDE_VALUE (type));
++ TYPE_LOW_BOUND (range_type) = range->low_bound;
++ TYPE_HIGH_BOUND (range_type) = range->high_bound;
++ if (range->f90_range_type == LOW_BOUND_DEFAULT
++ || range->f90_range_type == NONE_BOUND_DEFAULT)
++ TYPE_HIGH_BOUND_UNDEFINED (range_type) = 0;
++
++ typep = &TYPE_TARGET_TYPE (type);
++ value_byte_offset += byte_offset;
++ type = TYPE_TARGET_TYPE (type);
++ }
++ break;
+
-+ /* Check the names of the type and the typedef. */
-+ if (TYPE_NAME (type) && textual_name (TYPE_NAME (type)))
-+ return 1;
-+ if (TYPE_NAME (true_type) && textual_name (TYPE_NAME (true_type)))
-+ return 1;
-
- if (format == 's')
- {
-@@ -115,7 +136,8 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- {
- unsigned int i = 0; /* Number of characters printed */
- unsigned len;
-- struct type *elttype;
-+ struct type *elttype, *unresolved_elttype;
-+ struct type *unresolved_type = type;
- unsigned eltlen;
- LONGEST val;
- CORE_ADDR addr;
-@@ -124,8 +146,9 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- switch (TYPE_CODE (type))
- {
- case TYPE_CODE_ARRAY:
-- elttype = check_typedef (TYPE_TARGET_TYPE (type));
-- if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0)
-+ unresolved_elttype = TYPE_TARGET_TYPE (type);
-+ elttype = check_typedef (unresolved_elttype);
-+ if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (unresolved_elttype) > 0)
- {
- eltlen = TYPE_LENGTH (elttype);
- len = TYPE_LENGTH (type) / eltlen;
-@@ -135,7 +158,7 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- }
-
- /* Print arrays of textual chars with a string syntax. */
-- if (textual_element_type (elttype, options->format))
-+ if (textual_element_type (unresolved_elttype, options->format))
- {
- /* If requested, look for the first null char and only print
- elements up to it. */
-@@ -143,15 +166,19 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- {
- unsigned int temp_len;
-
-- /* Look for a NULL char. */
- for (temp_len = 0;
-- (valaddr + embedded_offset)[temp_len]
-- && temp_len < len && temp_len < options->print_max;
-- temp_len++);
-+ (temp_len < len
-+ && temp_len < options->print_max
-+ && extract_unsigned_integer (valaddr + embedded_offset
-+ + temp_len * eltlen,
-+ eltlen) == 0);
-+ ++temp_len)
-+ ;
- len = temp_len;
- }
-
-- LA_PRINT_STRING (stream, valaddr + embedded_offset, len, eltlen, 0, options);
-+ LA_PRINT_STRING (stream, unresolved_elttype,
-+ valaddr + embedded_offset, len, 0, options);
- i = len;
- }
- else
-@@ -209,7 +236,8 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- print_function_pointer_address (addr, stream, options->addressprint);
- break;
- }
-- elttype = check_typedef (TYPE_TARGET_TYPE (type));
-+ unresolved_elttype = TYPE_TARGET_TYPE (type);
-+ elttype = check_typedef (unresolved_elttype);
- {
- addr = unpack_pointer (type, valaddr + embedded_offset);
- print_unpacked_pointer:
-@@ -228,12 +256,11 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
-
- /* For a pointer to a textual type, also print the string
- pointed to, unless pointer is null. */
-- /* FIXME: need to handle wchar_t here... */
-
-- if (textual_element_type (elttype, options->format)
-+ if (textual_element_type (unresolved_elttype, options->format)
- && addr != 0)
- {
-- i = val_print_string (addr, -1, TYPE_LENGTH (elttype), stream,
-+ i = val_print_string (unresolved_elttype, addr, -1, stream,
- options);
- }
- else if (cp_is_vtbl_member (type))
-@@ -268,7 +295,7 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- }
- else
- {
-- wtype = TYPE_TARGET_TYPE (type);
-+ wtype = unresolved_elttype;
- }
- vt_val = value_at (wtype, vt_address);
- common_val_print (vt_val, stream, recurse + 1, options,
-@@ -442,11 +469,11 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- Since we don't know whether the value is really intended to
- be used as an integer or a character, print the character
- equivalent as well. */
-- if (textual_element_type (type, options->format))
-+ if (textual_element_type (unresolved_type, options->format))
- {
- fputs_filtered (" ", stream);
- LA_PRINT_CHAR ((unsigned char) unpack_long (type, valaddr + embedded_offset),
-- stream);
-+ unresolved_type, stream);
- }
- }
- break;
-@@ -468,7 +495,7 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- else
- fprintf_filtered (stream, "%d", (int) val);
- fputs_filtered (" ", stream);
-- LA_PRINT_CHAR ((unsigned char) val, stream);
-+ LA_PRINT_CHAR ((unsigned char) val, unresolved_type, stream);
- }
- break;
-
-@@ -540,7 +567,7 @@ int
- c_value_print (struct value *val, struct ui_file *stream,
- const struct value_print_options *options)
- {
-- struct type *type, *real_type;
-+ struct type *type, *real_type, *val_type;
- int full, top, using_enc;
- struct value_print_options opts = *options;
-
-@@ -553,7 +580,11 @@ c_value_print (struct value *val, struct ui_file *stream,
- C++: if it is a member pointer, we will take care
- of that when we print it. */
-
-- type = check_typedef (value_type (val));
-+ /* Preserve the original type before stripping typedefs. We prefer
-+ to pass down the original type when possible, but for local
-+ checks it is better to look past the typedefs. */
-+ val_type = value_type (val);
-+ type = check_typedef (val_type);
-
- if (TYPE_CODE (type) == TYPE_CODE_PTR
- || TYPE_CODE (type) == TYPE_CODE_REF)
-@@ -561,11 +592,12 @@ c_value_print (struct value *val, struct ui_file *stream,
- /* Hack: remove (char *) for char strings. Their
- type is indicated by the quoted string anyway.
- (Don't use textual_element_type here; quoted strings
-- are always exactly (char *). */
-- if (TYPE_CODE (type) == TYPE_CODE_PTR
-- && TYPE_NAME (type) == NULL
-- && TYPE_NAME (TYPE_TARGET_TYPE (type)) != NULL
-- && strcmp (TYPE_NAME (TYPE_TARGET_TYPE (type)), "char") == 0)
-+ are always exactly (char *), (wchar_t *), or the like. */
-+ if (TYPE_CODE (val_type) == TYPE_CODE_PTR
-+ && TYPE_NAME (val_type) == NULL
-+ && TYPE_NAME (TYPE_TARGET_TYPE (val_type)) != NULL
-+ && (strcmp (TYPE_NAME (TYPE_TARGET_TYPE (val_type)), "char") == 0
-+ || textual_name (TYPE_NAME (TYPE_TARGET_TYPE (val_type)))))
- {
- /* Print nothing */
- }
-@@ -608,6 +640,7 @@ c_value_print (struct value *val, struct ui_file *stream,
- }
- type_print (type, "", stream, -1);
- fprintf_filtered (stream, ") ");
-+ val_type = type;
- }
- else
- {
-@@ -635,7 +668,7 @@ c_value_print (struct value *val, struct ui_file *stream,
- /* Print out object: enclosing type is same as real_type if full */
- return val_print (value_enclosing_type (val),
- value_contents_all (val), 0,
-- VALUE_ADDRESS (val), stream, 0,
-+ value_address (val), stream, 0,
- &opts, current_language);
- /* Note: When we look up RTTI entries, we don't get any information on
- const or volatile attributes */
-@@ -647,14 +680,14 @@ c_value_print (struct value *val, struct ui_file *stream,
- TYPE_NAME (value_enclosing_type (val)));
- return val_print (value_enclosing_type (val),
- value_contents_all (val), 0,
-- VALUE_ADDRESS (val), stream, 0,
-+ value_address (val), stream, 0,
- &opts, current_language);
- }
- /* Otherwise, we end up at the return outside this "if" */
- }
-
-- return val_print (type, value_contents_all (val),
-+ return val_print (val_type, value_contents_all (val),
- value_embedded_offset (val),
-- VALUE_ADDRESS (val) + value_offset (val),
-+ value_address (val),
- stream, 0, &opts, current_language);
- }
-diff --git a/gdb/charset-list.h b/gdb/charset-list.h
-new file mode 100644
-index 0000000..59c64c5
---- /dev/null
-+++ b/gdb/charset-list.h
-@@ -0,0 +1,1190 @@
-+/* List of character set names for GDB.
++ case SUBSCRIPT_NUMBER:
++ {
++ CORE_ADDR byte_offset;
+
-+ Copyright (C) 2009 Free Software Foundation, Inc.
++ if (index->number < TYPE_LOW_BOUND (range_type)
++ || (!TYPE_HIGH_BOUND_UNDEFINED (range_type)
++ && index->number > TYPE_HIGH_BOUND (range_type)))
++ error (_("no such vector element"));
+
-+ This file is part of GDB.
++ byte_offset = ((index->number - TYPE_LOW_BOUND (range_type))
++ * TYPE_ARRAY_BYTE_STRIDE_VALUE (type));
+
-+ 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.
++ type = TYPE_TARGET_TYPE (type);
++ *typep = type;
++ value_byte_offset += byte_offset;
++ }
++ break;
++ }
++ }
+
-+ 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.
++ type_last_target = type;
++ type_array = alloca (sizeof (*type_array) * nargs);
++ i = 0;
++ for (type = new_array_type; type != type_last_target;
++ type = TYPE_TARGET_TYPE (type))
++ type_array[i++] = type;
++ while (i > 0)
++ {
++ struct type *type = type_array[--i];
+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
++ /* Force TYPE_LENGTH (type) recalculation. */
++ TYPE_TARGET_STUB (type) = 1;
++ check_typedef (type);
++ }
+
-+/* Note that the first entry must always be "auto".
-+ The remaining entries were created by running this script:
-+
-+ iconv -l | sed -e '/[/]...*$/d' -e 's@^\(.*\)//$@"\1", \\@'
-+
-+ .. and then removing the final backslash. It would be nice to
-+ separate narrow and wide character sets, but there is no good way
-+ to do that. */
-+#define DEFAULT_CHARSET_NAMES \
-+"auto", \
-+"437", \
-+"500", \
-+"500V1", \
-+"850", \
-+"851", \
-+"852", \
-+"855", \
-+"856", \
-+"857", \
-+"860", \
-+"861", \
-+"862", \
-+"863", \
-+"864", \
-+"865", \
-+"866", \
-+"866NAV", \
-+"869", \
-+"874", \
-+"904", \
-+"1026", \
-+"1046", \
-+"1047", \
-+"8859_1", \
-+"8859_2", \
-+"8859_3", \
-+"8859_4", \
-+"8859_5", \
-+"8859_6", \
-+"8859_7", \
-+"8859_8", \
-+"8859_9", \
-+"10646-1:1993", \
-+"ANSI_X3.4-1968", \
-+"ANSI_X3.4-1986", \
-+"ANSI_X3.4", \
-+"ANSI_X3.110-1983", \
-+"ANSI_X3.110", \
-+"ARABIC", \
-+"ARABIC7", \
-+"ARMSCII-8", \
-+"ASCII", \
-+"ASMO-708", \
-+"ASMO_449", \
-+"BALTIC", \
-+"BIG-5", \
-+"BIG-FIVE", \
-+"BIG5-HKSCS", \
-+"BIG5", \
-+"BIG5HKSCS", \
-+"BIGFIVE", \
-+"BRF", \
-+"BS_4730", \
-+"CA", \
-+"CN-BIG5", \
-+"CN-GB", \
-+"CN", \
-+"CP-AR", \
-+"CP-GR", \
-+"CP-HU", \
-+"CP037", \
-+"CP038", \
-+"CP273", \
-+"CP274", \
-+"CP275", \
-+"CP278", \
-+"CP280", \
-+"CP281", \
-+"CP282", \
-+"CP284", \
-+"CP285", \
-+"CP290", \
-+"CP297", \
-+"CP367", \
-+"CP420", \
-+"CP423", \
-+"CP424", \
-+"CP437", \
-+"CP500", \
-+"CP737", \
-+"CP775", \
-+"CP803", \
-+"CP813", \
-+"CP819", \
-+"CP850", \
-+"CP851", \
-+"CP852", \
-+"CP855", \
-+"CP856", \
-+"CP857", \
-+"CP860", \
-+"CP861", \
-+"CP862", \
-+"CP863", \
-+"CP864", \
-+"CP865", \
-+"CP866", \
-+"CP866NAV", \
-+"CP868", \
-+"CP869", \
-+"CP870", \
-+"CP871", \
-+"CP874", \
-+"CP875", \
-+"CP880", \
-+"CP891", \
-+"CP901", \
-+"CP902", \
-+"CP903", \
-+"CP904", \
-+"CP905", \
-+"CP912", \
-+"CP915", \
-+"CP916", \
-+"CP918", \
-+"CP920", \
-+"CP921", \
-+"CP922", \
-+"CP930", \
-+"CP932", \
-+"CP933", \
-+"CP935", \
-+"CP936", \
-+"CP937", \
-+"CP939", \
-+"CP949", \
-+"CP950", \
-+"CP1004", \
-+"CP1008", \
-+"CP1025", \
-+"CP1026", \
-+"CP1046", \
-+"CP1047", \
-+"CP1070", \
-+"CP1079", \
-+"CP1081", \
-+"CP1084", \
-+"CP1089", \
-+"CP1097", \
-+"CP1112", \
-+"CP1122", \
-+"CP1123", \
-+"CP1124", \
-+"CP1125", \
-+"CP1129", \
-+"CP1130", \
-+"CP1132", \
-+"CP1133", \
-+"CP1137", \
-+"CP1140", \
-+"CP1141", \
-+"CP1142", \
-+"CP1143", \
-+"CP1144", \
-+"CP1145", \
-+"CP1146", \
-+"CP1147", \
-+"CP1148", \
-+"CP1149", \
-+"CP1153", \
-+"CP1154", \
-+"CP1155", \
-+"CP1156", \
-+"CP1157", \
-+"CP1158", \
-+"CP1160", \
-+"CP1161", \
-+"CP1162", \
-+"CP1163", \
-+"CP1164", \
-+"CP1166", \
-+"CP1167", \
-+"CP1250", \
-+"CP1251", \
-+"CP1252", \
-+"CP1253", \
-+"CP1254", \
-+"CP1255", \
-+"CP1256", \
-+"CP1257", \
-+"CP1258", \
-+"CP1282", \
-+"CP1361", \
-+"CP1364", \
-+"CP1371", \
-+"CP1388", \
-+"CP1390", \
-+"CP1399", \
-+"CP4517", \
-+"CP4899", \
-+"CP4909", \
-+"CP4971", \
-+"CP5347", \
-+"CP9030", \
-+"CP9066", \
-+"CP9448", \
-+"CP10007", \
-+"CP12712", \
-+"CP16804", \
-+"CPIBM861", \
-+"CSA7-1", \
-+"CSA7-2", \
-+"CSASCII", \
-+"CSA_T500-1983", \
-+"CSA_T500", \
-+"CSA_Z243.4-1985-1", \
-+"CSA_Z243.4-1985-2", \
-+"CSA_Z243.419851", \
-+"CSA_Z243.419852", \
-+"CSDECMCS", \
-+"CSEBCDICATDE", \
-+"CSEBCDICATDEA", \
-+"CSEBCDICCAFR", \
-+"CSEBCDICDKNO", \
-+"CSEBCDICDKNOA", \
-+"CSEBCDICES", \
-+"CSEBCDICESA", \
-+"CSEBCDICESS", \
-+"CSEBCDICFISE", \
-+"CSEBCDICFISEA", \
-+"CSEBCDICFR", \
-+"CSEBCDICIT", \
-+"CSEBCDICPT", \
-+"CSEBCDICUK", \
-+"CSEBCDICUS", \
-+"CSEUCKR", \
-+"CSEUCPKDFMTJAPANESE", \
-+"CSGB2312", \
-+"CSHPROMAN8", \
-+"CSIBM037", \
-+"CSIBM038", \
-+"CSIBM273", \
-+"CSIBM274", \
-+"CSIBM275", \
-+"CSIBM277", \
-+"CSIBM278", \
-+"CSIBM280", \
-+"CSIBM281", \
-+"CSIBM284", \
-+"CSIBM285", \
-+"CSIBM290", \
-+"CSIBM297", \
-+"CSIBM420", \
-+"CSIBM423", \
-+"CSIBM424", \
-+"CSIBM500", \
-+"CSIBM803", \
-+"CSIBM851", \
-+"CSIBM855", \
-+"CSIBM856", \
-+"CSIBM857", \
-+"CSIBM860", \
-+"CSIBM863", \
-+"CSIBM864", \
-+"CSIBM865", \
-+"CSIBM866", \
-+"CSIBM868", \
-+"CSIBM869", \
-+"CSIBM870", \
-+"CSIBM871", \
-+"CSIBM880", \
-+"CSIBM891", \
-+"CSIBM901", \
-+"CSIBM902", \
-+"CSIBM903", \
-+"CSIBM904", \
-+"CSIBM905", \
-+"CSIBM918", \
-+"CSIBM921", \
-+"CSIBM922", \
-+"CSIBM930", \
-+"CSIBM932", \
-+"CSIBM933", \
-+"CSIBM935", \
-+"CSIBM937", \
-+"CSIBM939", \
-+"CSIBM943", \
-+"CSIBM1008", \
-+"CSIBM1025", \
-+"CSIBM1026", \
-+"CSIBM1097", \
-+"CSIBM1112", \
-+"CSIBM1122", \
-+"CSIBM1123", \
-+"CSIBM1124", \
-+"CSIBM1129", \
-+"CSIBM1130", \
-+"CSIBM1132", \
-+"CSIBM1133", \
-+"CSIBM1137", \
-+"CSIBM1140", \
-+"CSIBM1141", \
-+"CSIBM1142", \
-+"CSIBM1143", \
-+"CSIBM1144", \
-+"CSIBM1145", \
-+"CSIBM1146", \
-+"CSIBM1147", \
-+"CSIBM1148", \
-+"CSIBM1149", \
-+"CSIBM1153", \
-+"CSIBM1154", \
-+"CSIBM1155", \
-+"CSIBM1156", \
-+"CSIBM1157", \
-+"CSIBM1158", \
-+"CSIBM1160", \
-+"CSIBM1161", \
-+"CSIBM1163", \
-+"CSIBM1164", \
-+"CSIBM1166", \
-+"CSIBM1167", \
-+"CSIBM1364", \
-+"CSIBM1371", \
-+"CSIBM1388", \
-+"CSIBM1390", \
-+"CSIBM1399", \
-+"CSIBM4517", \
-+"CSIBM4899", \
-+"CSIBM4909", \
-+"CSIBM4971", \
-+"CSIBM5347", \
-+"CSIBM9030", \
-+"CSIBM9066", \
-+"CSIBM9448", \
-+"CSIBM12712", \
-+"CSIBM16804", \
-+"CSIBM11621162", \
-+"CSISO4UNITEDKINGDOM", \
-+"CSISO10SWEDISH", \
-+"CSISO11SWEDISHFORNAMES", \
-+"CSISO14JISC6220RO", \
-+"CSISO15ITALIAN", \
-+"CSISO16PORTUGESE", \
-+"CSISO17SPANISH", \
-+"CSISO18GREEK7OLD", \
-+"CSISO19LATINGREEK", \
-+"CSISO21GERMAN", \
-+"CSISO25FRENCH", \
-+"CSISO27LATINGREEK1", \
-+"CSISO49INIS", \
-+"CSISO50INIS8", \
-+"CSISO51INISCYRILLIC", \
-+"CSISO58GB1988", \
-+"CSISO60DANISHNORWEGIAN", \
-+"CSISO60NORWEGIAN1", \
-+"CSISO61NORWEGIAN2", \
-+"CSISO69FRENCH", \
-+"CSISO84PORTUGUESE2", \
-+"CSISO85SPANISH2", \
-+"CSISO86HUNGARIAN", \
-+"CSISO88GREEK7", \
-+"CSISO89ASMO449", \
-+"CSISO90", \
-+"CSISO92JISC62991984B", \
-+"CSISO99NAPLPS", \
-+"CSISO103T618BIT", \
-+"CSISO111ECMACYRILLIC", \
-+"CSISO121CANADIAN1", \
-+"CSISO122CANADIAN2", \
-+"CSISO139CSN369103", \
-+"CSISO141JUSIB1002", \
-+"CSISO143IECP271", \
-+"CSISO150", \
-+"CSISO150GREEKCCITT", \
-+"CSISO151CUBA", \
-+"CSISO153GOST1976874", \
-+"CSISO646DANISH", \
-+"CSISO2022CN", \
-+"CSISO2022JP", \
-+"CSISO2022JP2", \
-+"CSISO2022KR", \
-+"CSISO2033", \
-+"CSISO5427CYRILLIC", \
-+"CSISO5427CYRILLIC1981", \
-+"CSISO5428GREEK", \
-+"CSISO10367BOX", \
-+"CSISOLATIN1", \
-+"CSISOLATIN2", \
-+"CSISOLATIN3", \
-+"CSISOLATIN4", \
-+"CSISOLATIN5", \
-+"CSISOLATIN6", \
-+"CSISOLATINARABIC", \
-+"CSISOLATINCYRILLIC", \
-+"CSISOLATINGREEK", \
-+"CSISOLATINHEBREW", \
-+"CSKOI8R", \
-+"CSKSC5636", \
-+"CSMACINTOSH", \
-+"CSNATSDANO", \
-+"CSNATSSEFI", \
-+"CSN_369103", \
-+"CSPC8CODEPAGE437", \
-+"CSPC775BALTIC", \
-+"CSPC850MULTILINGUAL", \
-+"CSPC862LATINHEBREW", \
-+"CSPCP852", \
-+"CSSHIFTJIS", \
-+"CSUCS4", \
-+"CSUNICODE", \
-+"CSWINDOWS31J", \
-+"CUBA", \
-+"CWI-2", \
-+"CWI", \
-+"CYRILLIC", \
-+"DE", \
-+"DEC-MCS", \
-+"DEC", \
-+"DECMCS", \
-+"DIN_66003", \
-+"DK", \
-+"DS2089", \
-+"DS_2089", \
-+"E13B", \
-+"EBCDIC-AT-DE-A", \
-+"EBCDIC-AT-DE", \
-+"EBCDIC-BE", \
-+"EBCDIC-BR", \
-+"EBCDIC-CA-FR", \
-+"EBCDIC-CP-AR1", \
-+"EBCDIC-CP-AR2", \
-+"EBCDIC-CP-BE", \
-+"EBCDIC-CP-CA", \
-+"EBCDIC-CP-CH", \
-+"EBCDIC-CP-DK", \
-+"EBCDIC-CP-ES", \
-+"EBCDIC-CP-FI", \
-+"EBCDIC-CP-FR", \
-+"EBCDIC-CP-GB", \
-+"EBCDIC-CP-GR", \
-+"EBCDIC-CP-HE", \
-+"EBCDIC-CP-IS", \
-+"EBCDIC-CP-IT", \
-+"EBCDIC-CP-NL", \
-+"EBCDIC-CP-NO", \
-+"EBCDIC-CP-ROECE", \
-+"EBCDIC-CP-SE", \
-+"EBCDIC-CP-TR", \
-+"EBCDIC-CP-US", \
-+"EBCDIC-CP-WT", \
-+"EBCDIC-CP-YU", \
-+"EBCDIC-CYRILLIC", \
-+"EBCDIC-DK-NO-A", \
-+"EBCDIC-DK-NO", \
-+"EBCDIC-ES-A", \
-+"EBCDIC-ES-S", \
-+"EBCDIC-ES", \
-+"EBCDIC-FI-SE-A", \
-+"EBCDIC-FI-SE", \
-+"EBCDIC-FR", \
-+"EBCDIC-GREEK", \
-+"EBCDIC-INT", \
-+"EBCDIC-INT1", \
-+"EBCDIC-IS-FRISS", \
-+"EBCDIC-IT", \
-+"EBCDIC-JP-E", \
-+"EBCDIC-JP-KANA", \
-+"EBCDIC-PT", \
-+"EBCDIC-UK", \
-+"EBCDIC-US", \
-+"EBCDICATDE", \
-+"EBCDICATDEA", \
-+"EBCDICCAFR", \
-+"EBCDICDKNO", \
-+"EBCDICDKNOA", \
-+"EBCDICES", \
-+"EBCDICESA", \
-+"EBCDICESS", \
-+"EBCDICFISE", \
-+"EBCDICFISEA", \
-+"EBCDICFR", \
-+"EBCDICISFRISS", \
-+"EBCDICIT", \
-+"EBCDICPT", \
-+"EBCDICUK", \
-+"EBCDICUS", \
-+"ECMA-114", \
-+"ECMA-118", \
-+"ECMA-128", \
-+"ECMA-CYRILLIC", \
-+"ECMACYRILLIC", \
-+"ELOT_928", \
-+"ES", \
-+"ES2", \
-+"EUC-CN", \
-+"EUC-JISX0213", \
-+"EUC-JP-MS", \
-+"EUC-JP", \
-+"EUC-KR", \
-+"EUC-TW", \
-+"EUCCN", \
-+"EUCJP-MS", \
-+"EUCJP-OPEN", \
-+"EUCJP-WIN", \
-+"EUCJP", \
-+"EUCKR", \
-+"EUCTW", \
-+"FI", \
-+"FR", \
-+"GB", \
-+"GB2312", \
-+"GB13000", \
-+"GB18030", \
-+"GBK", \
-+"GB_1988-80", \
-+"GB_198880", \
-+"GEORGIAN-ACADEMY", \
-+"GEORGIAN-PS", \
-+"GOST_19768-74", \
-+"GOST_19768", \
-+"GOST_1976874", \
-+"GREEK-CCITT", \
-+"GREEK", \
-+"GREEK7-OLD", \
-+"GREEK7", \
-+"GREEK7OLD", \
-+"GREEK8", \
-+"GREEKCCITT", \
-+"HEBREW", \
-+"HP-GREEK8", \
-+"HP-ROMAN8", \
-+"HP-ROMAN9", \
-+"HP-THAI8", \
-+"HP-TURKISH8", \
-+"HPGREEK8", \
-+"HPROMAN8", \
-+"HPROMAN9", \
-+"HPTHAI8", \
-+"HPTURKISH8", \
-+"HU", \
-+"IBM-803", \
-+"IBM-856", \
-+"IBM-901", \
-+"IBM-902", \
-+"IBM-921", \
-+"IBM-922", \
-+"IBM-930", \
-+"IBM-932", \
-+"IBM-933", \
-+"IBM-935", \
-+"IBM-937", \
-+"IBM-939", \
-+"IBM-943", \
-+"IBM-1008", \
-+"IBM-1025", \
-+"IBM-1046", \
-+"IBM-1047", \
-+"IBM-1097", \
-+"IBM-1112", \
-+"IBM-1122", \
-+"IBM-1123", \
-+"IBM-1124", \
-+"IBM-1129", \
-+"IBM-1130", \
-+"IBM-1132", \
-+"IBM-1133", \
-+"IBM-1137", \
-+"IBM-1140", \
-+"IBM-1141", \
-+"IBM-1142", \
-+"IBM-1143", \
-+"IBM-1144", \
-+"IBM-1145", \
-+"IBM-1146", \
-+"IBM-1147", \
-+"IBM-1148", \
-+"IBM-1149", \
-+"IBM-1153", \
-+"IBM-1154", \
-+"IBM-1155", \
-+"IBM-1156", \
-+"IBM-1157", \
-+"IBM-1158", \
-+"IBM-1160", \
-+"IBM-1161", \
-+"IBM-1162", \
-+"IBM-1163", \
-+"IBM-1164", \
-+"IBM-1166", \
-+"IBM-1167", \
-+"IBM-1364", \
-+"IBM-1371", \
-+"IBM-1388", \
-+"IBM-1390", \
-+"IBM-1399", \
-+"IBM-4517", \
-+"IBM-4899", \
-+"IBM-4909", \
-+"IBM-4971", \
-+"IBM-5347", \
-+"IBM-9030", \
-+"IBM-9066", \
-+"IBM-9448", \
-+"IBM-12712", \
-+"IBM-16804", \
-+"IBM037", \
-+"IBM038", \
-+"IBM256", \
-+"IBM273", \
-+"IBM274", \
-+"IBM275", \
-+"IBM277", \
-+"IBM278", \
-+"IBM280", \
-+"IBM281", \
-+"IBM284", \
-+"IBM285", \
-+"IBM290", \
-+"IBM297", \
-+"IBM367", \
-+"IBM420", \
-+"IBM423", \
-+"IBM424", \
-+"IBM437", \
-+"IBM500", \
-+"IBM775", \
-+"IBM803", \
-+"IBM813", \
-+"IBM819", \
-+"IBM848", \
-+"IBM850", \
-+"IBM851", \
-+"IBM852", \
-+"IBM855", \
-+"IBM856", \
-+"IBM857", \
-+"IBM860", \
-+"IBM861", \
-+"IBM862", \
-+"IBM863", \
-+"IBM864", \
-+"IBM865", \
-+"IBM866", \
-+"IBM866NAV", \
-+"IBM868", \
-+"IBM869", \
-+"IBM870", \
-+"IBM871", \
-+"IBM874", \
-+"IBM875", \
-+"IBM880", \
-+"IBM891", \
-+"IBM901", \
-+"IBM902", \
-+"IBM903", \
-+"IBM904", \
-+"IBM905", \
-+"IBM912", \
-+"IBM915", \
-+"IBM916", \
-+"IBM918", \
-+"IBM920", \
-+"IBM921", \
-+"IBM922", \
-+"IBM930", \
-+"IBM932", \
-+"IBM933", \
-+"IBM935", \
-+"IBM937", \
-+"IBM939", \
-+"IBM943", \
-+"IBM1004", \
-+"IBM1008", \
-+"IBM1025", \
-+"IBM1026", \
-+"IBM1046", \
-+"IBM1047", \
-+"IBM1089", \
-+"IBM1097", \
-+"IBM1112", \
-+"IBM1122", \
-+"IBM1123", \
-+"IBM1124", \
-+"IBM1129", \
-+"IBM1130", \
-+"IBM1132", \
-+"IBM1133", \
-+"IBM1137", \
-+"IBM1140", \
-+"IBM1141", \
-+"IBM1142", \
-+"IBM1143", \
-+"IBM1144", \
-+"IBM1145", \
-+"IBM1146", \
-+"IBM1147", \
-+"IBM1148", \
-+"IBM1149", \
-+"IBM1153", \
-+"IBM1154", \
-+"IBM1155", \
-+"IBM1156", \
-+"IBM1157", \
-+"IBM1158", \
-+"IBM1160", \
-+"IBM1161", \
-+"IBM1162", \
-+"IBM1163", \
-+"IBM1164", \
-+"IBM1166", \
-+"IBM1167", \
-+"IBM1364", \
-+"IBM1371", \
-+"IBM1388", \
-+"IBM1390", \
-+"IBM1399", \
-+"IBM4517", \
-+"IBM4899", \
-+"IBM4909", \
-+"IBM4971", \
-+"IBM5347", \
-+"IBM9030", \
-+"IBM9066", \
-+"IBM9448", \
-+"IBM12712", \
-+"IBM16804", \
-+"IEC_P27-1", \
-+"IEC_P271", \
-+"INIS-8", \
-+"INIS-CYRILLIC", \
-+"INIS", \
-+"INIS8", \
-+"INISCYRILLIC", \
-+"ISIRI-3342", \
-+"ISIRI3342", \
-+"ISO-2022-CN-EXT", \
-+"ISO-2022-CN", \
-+"ISO-2022-JP-2", \
-+"ISO-2022-JP-3", \
-+"ISO-2022-JP", \
-+"ISO-2022-KR", \
-+"ISO-8859-1", \
-+"ISO-8859-2", \
-+"ISO-8859-3", \
-+"ISO-8859-4", \
-+"ISO-8859-5", \
-+"ISO-8859-6", \
-+"ISO-8859-7", \
-+"ISO-8859-8", \
-+"ISO-8859-9", \
-+"ISO-8859-9E", \
-+"ISO-8859-10", \
-+"ISO-8859-11", \
-+"ISO-8859-13", \
-+"ISO-8859-14", \
-+"ISO-8859-15", \
-+"ISO-8859-16", \
-+"ISO-10646", \
-+"ISO-CELTIC", \
-+"ISO-IR-4", \
-+"ISO-IR-6", \
-+"ISO-IR-8-1", \
-+"ISO-IR-9-1", \
-+"ISO-IR-10", \
-+"ISO-IR-11", \
-+"ISO-IR-14", \
-+"ISO-IR-15", \
-+"ISO-IR-16", \
-+"ISO-IR-17", \
-+"ISO-IR-18", \
-+"ISO-IR-19", \
-+"ISO-IR-21", \
-+"ISO-IR-25", \
-+"ISO-IR-27", \
-+"ISO-IR-37", \
-+"ISO-IR-49", \
-+"ISO-IR-50", \
-+"ISO-IR-51", \
-+"ISO-IR-54", \
-+"ISO-IR-55", \
-+"ISO-IR-57", \
-+"ISO-IR-60", \
-+"ISO-IR-61", \
-+"ISO-IR-69", \
-+"ISO-IR-84", \
-+"ISO-IR-85", \
-+"ISO-IR-86", \
-+"ISO-IR-88", \
-+"ISO-IR-89", \
-+"ISO-IR-90", \
-+"ISO-IR-92", \
-+"ISO-IR-98", \
-+"ISO-IR-99", \
-+"ISO-IR-100", \
-+"ISO-IR-101", \
-+"ISO-IR-103", \
-+"ISO-IR-109", \
-+"ISO-IR-110", \
-+"ISO-IR-111", \
-+"ISO-IR-121", \
-+"ISO-IR-122", \
-+"ISO-IR-126", \
-+"ISO-IR-127", \
-+"ISO-IR-138", \
-+"ISO-IR-139", \
-+"ISO-IR-141", \
-+"ISO-IR-143", \
-+"ISO-IR-144", \
-+"ISO-IR-148", \
-+"ISO-IR-150", \
-+"ISO-IR-151", \
-+"ISO-IR-153", \
-+"ISO-IR-155", \
-+"ISO-IR-156", \
-+"ISO-IR-157", \
-+"ISO-IR-166", \
-+"ISO-IR-179", \
-+"ISO-IR-193", \
-+"ISO-IR-197", \
-+"ISO-IR-199", \
-+"ISO-IR-203", \
-+"ISO-IR-209", \
-+"ISO-IR-226", \
-+"ISO646-CA", \
-+"ISO646-CA2", \
-+"ISO646-CN", \
-+"ISO646-CU", \
-+"ISO646-DE", \
-+"ISO646-DK", \
-+"ISO646-ES", \
-+"ISO646-ES2", \
-+"ISO646-FI", \
-+"ISO646-FR", \
-+"ISO646-FR1", \
-+"ISO646-GB", \
-+"ISO646-HU", \
-+"ISO646-IT", \
-+"ISO646-JP-OCR-B", \
-+"ISO646-JP", \
-+"ISO646-KR", \
-+"ISO646-NO", \
-+"ISO646-NO2", \
-+"ISO646-PT", \
-+"ISO646-PT2", \
-+"ISO646-SE", \
-+"ISO646-SE2", \
-+"ISO646-US", \
-+"ISO646-YU", \
-+"ISO2022CN", \
-+"ISO2022CNEXT", \
-+"ISO2022JP", \
-+"ISO2022JP2", \
-+"ISO2022KR", \
-+"ISO6937", \
-+"ISO8859-1", \
-+"ISO8859-2", \
-+"ISO8859-3", \
-+"ISO8859-4", \
-+"ISO8859-5", \
-+"ISO8859-6", \
-+"ISO8859-7", \
-+"ISO8859-8", \
-+"ISO8859-9", \
-+"ISO8859-9E", \
-+"ISO8859-10", \
-+"ISO8859-11", \
-+"ISO8859-13", \
-+"ISO8859-14", \
-+"ISO8859-15", \
-+"ISO8859-16", \
-+"ISO11548-1", \
-+"ISO88591", \
-+"ISO88592", \
-+"ISO88593", \
-+"ISO88594", \
-+"ISO88595", \
-+"ISO88596", \
-+"ISO88597", \
-+"ISO88598", \
-+"ISO88599", \
-+"ISO88599E", \
-+"ISO885910", \
-+"ISO885911", \
-+"ISO885913", \
-+"ISO885914", \
-+"ISO885915", \
-+"ISO885916", \
-+"ISO_646.IRV:1991", \
-+"ISO_2033-1983", \
-+"ISO_2033", \
-+"ISO_5427-EXT", \
-+"ISO_5427", \
-+"ISO_5427:1981", \
-+"ISO_5427EXT", \
-+"ISO_5428", \
-+"ISO_5428:1980", \
-+"ISO_6937-2", \
-+"ISO_6937-2:1983", \
-+"ISO_6937", \
-+"ISO_6937:1992", \
-+"ISO_8859-1", \
-+"ISO_8859-1:1987", \
-+"ISO_8859-2", \
-+"ISO_8859-2:1987", \
-+"ISO_8859-3", \
-+"ISO_8859-3:1988", \
-+"ISO_8859-4", \
-+"ISO_8859-4:1988", \
-+"ISO_8859-5", \
-+"ISO_8859-5:1988", \
-+"ISO_8859-6", \
-+"ISO_8859-6:1987", \
-+"ISO_8859-7", \
-+"ISO_8859-7:1987", \
-+"ISO_8859-7:2003", \
-+"ISO_8859-8", \
-+"ISO_8859-8:1988", \
-+"ISO_8859-9", \
-+"ISO_8859-9:1989", \
-+"ISO_8859-9E", \
-+"ISO_8859-10", \
-+"ISO_8859-10:1992", \
-+"ISO_8859-14", \
-+"ISO_8859-14:1998", \
-+"ISO_8859-15", \
-+"ISO_8859-15:1998", \
-+"ISO_8859-16", \
-+"ISO_8859-16:2001", \
-+"ISO_9036", \
-+"ISO_10367-BOX", \
-+"ISO_10367BOX", \
-+"ISO_11548-1", \
-+"ISO_69372", \
-+"IT", \
-+"JIS_C6220-1969-RO", \
-+"JIS_C6229-1984-B", \
-+"JIS_C62201969RO", \
-+"JIS_C62291984B", \
-+"JOHAB", \
-+"JP-OCR-B", \
-+"JP", \
-+"JS", \
-+"JUS_I.B1.002", \
-+"KOI-7", \
-+"KOI-8", \
-+"KOI8-R", \
-+"KOI8-RU", \
-+"KOI8-T", \
-+"KOI8-U", \
-+"KOI8", \
-+"KOI8R", \
-+"KOI8U", \
-+"KSC5636", \
-+"L1", \
-+"L2", \
-+"L3", \
-+"L4", \
-+"L5", \
-+"L6", \
-+"L7", \
-+"L8", \
-+"L10", \
-+"LATIN-9", \
-+"LATIN-GREEK-1", \
-+"LATIN-GREEK", \
-+"LATIN1", \
-+"LATIN2", \
-+"LATIN3", \
-+"LATIN4", \
-+"LATIN5", \
-+"LATIN6", \
-+"LATIN7", \
-+"LATIN8", \
-+"LATIN10", \
-+"LATINGREEK", \
-+"LATINGREEK1", \
-+"MAC-CENTRALEUROPE", \
-+"MAC-CYRILLIC", \
-+"MAC-IS", \
-+"MAC-SAMI", \
-+"MAC-UK", \
-+"MAC", \
-+"MACCYRILLIC", \
-+"MACINTOSH", \
-+"MACIS", \
-+"MACUK", \
-+"MACUKRAINIAN", \
-+"MIK", \
-+"MS-ANSI", \
-+"MS-ARAB", \
-+"MS-CYRL", \
-+"MS-EE", \
-+"MS-GREEK", \
-+"MS-HEBR", \
-+"MS-MAC-CYRILLIC", \
-+"MS-TURK", \
-+"MS932", \
-+"MS936", \
-+"MSCP949", \
-+"MSCP1361", \
-+"MSMACCYRILLIC", \
-+"MSZ_7795.3", \
-+"MS_KANJI", \
-+"NAPLPS", \
-+"NATS-DANO", \
-+"NATS-SEFI", \
-+"NATSDANO", \
-+"NATSSEFI", \
-+"NC_NC0010", \
-+"NC_NC00-10", \
-+"NC_NC00-10:81", \
-+"NF_Z_62-010", \
-+"NF_Z_62-010_(1973)", \
-+"NF_Z_62-010_1973", \
-+"NF_Z_62010", \
-+"NF_Z_62010_1973", \
-+"NO", \
-+"NO2", \
-+"NS_4551-1", \
-+"NS_4551-2", \
-+"NS_45511", \
-+"NS_45512", \
-+"OS2LATIN1", \
-+"OSF00010001", \
-+"OSF00010002", \
-+"OSF00010003", \
-+"OSF00010004", \
-+"OSF00010005", \
-+"OSF00010006", \
-+"OSF00010007", \
-+"OSF00010008", \
-+"OSF00010009", \
-+"OSF0001000A", \
-+"OSF00010020", \
-+"OSF00010100", \
-+"OSF00010101", \
-+"OSF00010102", \
-+"OSF00010104", \
-+"OSF00010105", \
-+"OSF00010106", \
-+"OSF00030010", \
-+"OSF0004000A", \
-+"OSF0005000A", \
-+"OSF05010001", \
-+"OSF100201A4", \
-+"OSF100201A8", \
-+"OSF100201B5", \
-+"OSF100201F4", \
-+"OSF100203B5", \
-+"OSF1002011C", \
-+"OSF1002011D", \
-+"OSF1002035D", \
-+"OSF1002035E", \
-+"OSF1002035F", \
-+"OSF1002036B", \
-+"OSF1002037B", \
-+"OSF10010001", \
-+"OSF10010004", \
-+"OSF10010006", \
-+"OSF10020025", \
-+"OSF10020111", \
-+"OSF10020115", \
-+"OSF10020116", \
-+"OSF10020118", \
-+"OSF10020122", \
-+"OSF10020129", \
-+"OSF10020352", \
-+"OSF10020354", \
-+"OSF10020357", \
-+"OSF10020359", \
-+"OSF10020360", \
-+"OSF10020364", \
-+"OSF10020365", \
-+"OSF10020366", \
-+"OSF10020367", \
-+"OSF10020370", \
-+"OSF10020387", \
-+"OSF10020388", \
-+"OSF10020396", \
-+"OSF10020402", \
-+"OSF10020417", \
-+"PT", \
-+"PT2", \
-+"PT154", \
-+"R8", \
-+"R9", \
-+"RK1048", \
-+"ROMAN8", \
-+"ROMAN9", \
-+"RUSCII", \
-+"SE", \
-+"SE2", \
-+"SEN_850200_B", \
-+"SEN_850200_C", \
-+"SHIFT-JIS", \
-+"SHIFT_JIS", \
-+"SHIFT_JISX0213", \
-+"SJIS-OPEN", \
-+"SJIS-WIN", \
-+"SJIS", \
-+"SS636127", \
-+"STRK1048-2002", \
-+"ST_SEV_358-88", \
-+"T.61-8BIT", \
-+"T.61", \
-+"T.618BIT", \
-+"TCVN-5712", \
-+"TCVN", \
-+"TCVN5712-1", \
-+"TCVN5712-1:1993", \
-+"THAI8", \
-+"TIS-620", \
-+"TIS620-0", \
-+"TIS620.2529-1", \
-+"TIS620.2533-0", \
-+"TIS620", \
-+"TS-5881", \
-+"TSCII", \
-+"TURKISH8", \
-+"UCS-2", \
-+"UCS-2BE", \
-+"UCS-2LE", \
-+"UCS-4", \
-+"UCS-4BE", \
-+"UCS-4LE", \
-+"UCS2", \
-+"UCS4", \
-+"UHC", \
-+"UJIS", \
-+"UK", \
-+"UNICODE", \
-+"UNICODEBIG", \
-+"UNICODELITTLE", \
-+"US-ASCII", \
-+"US", \
-+"UTF-7", \
-+"UTF-8", \
-+"UTF-16", \
-+"UTF-16BE", \
-+"UTF-16LE", \
-+"UTF-32", \
-+"UTF-32BE", \
-+"UTF-32LE", \
-+"UTF7", \
-+"UTF8", \
-+"UTF16", \
-+"UTF16BE", \
-+"UTF16LE", \
-+"UTF32", \
-+"UTF32BE", \
-+"UTF32LE", \
-+"VISCII", \
-+"WCHAR_T", \
-+"WIN-SAMI-2", \
-+"WINBALTRIM", \
-+"WINDOWS-31J", \
-+"WINDOWS-874", \
-+"WINDOWS-936", \
-+"WINDOWS-1250", \
-+"WINDOWS-1251", \
-+"WINDOWS-1252", \
-+"WINDOWS-1253", \
-+"WINDOWS-1254", \
-+"WINDOWS-1255", \
-+"WINDOWS-1256", \
-+"WINDOWS-1257", \
-+"WINDOWS-1258", \
-+"WINSAMI2", \
-+"WS2", \
-+"YU",
-diff --git a/gdb/charset.c b/gdb/charset.c
-index 32eb9c3..4850fbf 100644
---- a/gdb/charset.c
-+++ b/gdb/charset.c
-@@ -21,6 +21,9 @@
- #include "charset.h"
- #include "gdbcmd.h"
- #include "gdb_assert.h"
-+#include "gdb_obstack.h"
-+#include "charset-list.h"
-+#include "vec.h"
++ saved_array = array;
++ array = allocate_value_lazy (new_array_type);
++ VALUE_LVAL (array) = VALUE_LVAL (saved_array);
++ if (VALUE_LVAL (saved_array) == lval_internalvar_component)
++ VALUE_LVAL (array) = lval_internalvar;
+ else
+- high_bound = value_as_long (evaluate_subexp (NULL_TYPE, exp, pos, noside));
++ VALUE_LVAL (array) = VALUE_LVAL (saved_array);
++ VALUE_FRAME_ID (array) = VALUE_FRAME_ID (saved_array);
++ if (VALUE_LVAL (array) != lval_internalvar)
++ set_value_address (array, value_byte_address + value_byte_offset);
- #include <stddef.h>
- #include "gdb_string.h"
-@@ -33,15 +36,20 @@
- \f
- /* How GDB's character set support works
+- return value_slice (array, low_bound, high_bound - low_bound + 1);
++ if (!value_lazy (saved_array))
++ {
++ allocate_value_contents (array);
++ set_value_lazy (array, 0);
++
++ memcpy (value_contents_writeable (array),
++ value_contents (saved_array) + value_byte_offset,
++ TYPE_LENGTH (new_array_type));
++ }
++
++ do_cleanups (old_chain);
++ return array;
+ }
-- GDB has two global settings:
-+ GDB has three global settings:
- - The `current host character set' is the character set GDB should
- use in talking to the user, and which (hopefully) the user's
-- terminal knows how to display properly.
-+ terminal knows how to display properly. Most users should not
-+ change this.
+@@ -790,6 +981,7 @@ evaluate_subexp_standard (struct type *e
+ int save_pos1;
+ struct symbol *function = NULL;
+ char *function_name = NULL;
++ struct cleanup *old_chain;
- - The `current target character set' is the character set the
- program being debugged uses.
+ pc = (*pos)++;
+ op = exp->elts[pc].opcode;
+@@ -1862,6 +2054,8 @@ evaluate_subexp_standard (struct type *e
-+ - The `current target wide character set' is the wide character set
-+ the program being debugged uses, that is, the encoding used for
-+ wchar_t.
-+
- There are commands to set each of these, and mechanisms for
- choosing reasonable default values. GDB has a global list of
- character sets that it can use as its host or target character
-@@ -57,118 +65,37 @@
- characters the user enters in expressions (mostly host->target
- conversions),
+ /* First determine the type code we are dealing with. */
+ arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
++ old_chain = make_cleanup (null_cleanup, 0);
++ object_address_set (value_raw_address (arg1));
+ type = check_typedef (value_type (arg1));
+ code = TYPE_CODE (type);
-- and so on.
--
-- Now, many of these operations are specific to a particular
-- host/target character set pair. If GDB supports N character sets,
-- there are N^2 possible pairs. This means that, the larger GDB's
-- repertoire of character sets gets, the more expensive it gets to add
-- new character sets.
--
-- To make sure that GDB can do the right thing for every possible
-- pairing of host and target character set, while still allowing
-- GDB's repertoire to scale, we use a two-tiered approach:
--
-- - We maintain a global table of "translations" --- groups of
-- functions specific to a particular pair of character sets.
--
-- - However, a translation can be incomplete: some functions can be
-- omitted. Where there is not a translation to specify exactly
-- what function to use, we provide reasonable defaults. The
-- default behaviors try to use the "iconv" library functions, which
-- support a wide range of character sets. However, even if iconv
-- is not available, there are fallbacks to support trivial
-- translations: when the host and target character sets are the
-- same. */
--
--\f
--/* The character set and translation structures. */
--
--
--/* A character set GDB knows about. GDB only supports character sets
-- with stateless encodings, in which every character is one byte
-- long. */
--struct charset {
--
-- /* A singly-linked list of all known charsets. */
-- struct charset *next;
--
-- /* The name of the character set. Comparisons on character set
-- names are case-sensitive. */
-- const char *name;
+@@ -1882,23 +2076,13 @@ evaluate_subexp_standard (struct type *e
+ code = TYPE_CODE (type);
+ }
+ }
++ do_cleanups (old_chain);
+
+ switch (code)
+ {
+ case TYPE_CODE_ARRAY:
+- if (exp->elts[*pos].opcode == OP_F90_RANGE)
+- return value_f90_subarray (arg1, exp, pos, noside);
+- else
+- goto multi_f77_subscript;
-
-- /* Non-zero iff this character set can be used as a host character
-- set. At present, GDB basically assumes that the host character
-- set is a superset of ASCII. */
-- int valid_host_charset;
+ case TYPE_CODE_STRING:
+- if (exp->elts[*pos].opcode == OP_F90_RANGE)
+- return value_f90_subarray (arg1, exp, pos, noside);
+- else
+- {
+- arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
+- return value_subscript (arg1, value_as_long (arg2));
+- }
++ return value_f90_subarray (arg1, exp, pos, nargs, noside);
+
+ case TYPE_CODE_PTR:
+ case TYPE_CODE_FUNC:
+@@ -2337,49 +2521,6 @@ evaluate_subexp_standard (struct type *e
+ }
+ return (arg1);
+
+- multi_f77_subscript:
+- {
+- LONGEST subscript_array[MAX_FORTRAN_DIMS];
+- int ndimensions = 1, i;
+- struct value *array = arg1;
-
-- /* Pointers to charset-specific functions that depend only on a
-- single character set, and data pointers to pass to them. */
-- int (*host_char_print_literally) (void *baton,
-- int host_char);
-- void *host_char_print_literally_baton;
+- if (nargs > MAX_FORTRAN_DIMS)
+- error (_("Too many subscripts for F77 (%d Max)"), MAX_FORTRAN_DIMS);
-
-- int (*target_char_to_control_char) (void *baton,
-- int target_char,
-- int *target_ctrl_char);
-- void *target_char_to_control_char_baton;
--};
+- ndimensions = calc_f77_array_dims (type);
-
+- if (nargs != ndimensions)
+- error (_("Wrong number of subscripts"));
-
--/* A translation from one character set to another. */
--struct translation {
+- gdb_assert (nargs > 0);
-
-- /* A singly-linked list of all known translations. */
-- struct translation *next;
+- /* Now that we know we have a legal array subscript expression
+- let us actually find out where this element exists in the array. */
-
-- /* This structure describes functions going from the FROM character
-- set to the TO character set. Comparisons on character set names
-- are case-sensitive. */
-- const char *from, *to;
+- /* Take array indices left to right. */
+- for (i = 0; i < nargs; i++)
+- {
+- /* Evaluate each subscript; it must be a legal integer in F77. */
+- arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
-
-- /* Pointers to translation-specific functions, and data pointers to
-- pass to them. These pointers can be zero, indicating that GDB
-- should fall back on the default behavior. We hope the default
-- behavior will be correct for many from/to pairs, reducing the
-- number of translations that need to be registered explicitly. */
--
-- /* TARGET_CHAR is in the `from' charset.
-- Returns a string in the `to' charset. */
-- const char *(*c_target_char_has_backslash_escape) (void *baton,
-- int target_char);
-- void *c_target_char_has_backslash_escape_baton;
+- /* Fill in the subscript array. */
-
-- /* HOST_CHAR is in the `from' charset.
-- TARGET_CHAR points to a char in the `to' charset. */
-- int (*c_parse_backslash) (void *baton, int host_char, int *target_char);
-- void *c_parse_backslash_baton;
+- subscript_array[i] = value_as_long (arg2);
+- }
-
-- /* This is used for the host_char_to_target and target_char_to_host
-- functions. */
-- int (*convert_char) (void *baton, int from, int *to);
-- void *convert_char_baton;
--};
+- /* Internal type of array is arranged right to left. */
+- for (i = nargs; i > 0; i--)
+- {
+- struct type *array_type = check_typedef (value_type (array));
+- LONGEST index = subscript_array[i - 1];
-
-+ and so on.
-+
-+ To avoid excessive code duplication and maintenance efforts,
-+ GDB simply requires a capable iconv function. Users on platforms
-+ without a suitable iconv can use the GNU iconv library. */
-
- \f
- /* The global lists of character sets and translations. */
-
-
--#ifndef GDB_DEFAULT_HOST_CHARSET
--#define GDB_DEFAULT_HOST_CHARSET "ISO-8859-1"
--#endif
+- lower = f77_get_lowerbound (array_type);
+- array = value_subscripted_rvalue (array, index, lower);
+- }
-
- #ifndef GDB_DEFAULT_TARGET_CHARSET
- #define GDB_DEFAULT_TARGET_CHARSET "ISO-8859-1"
- #endif
-
--static const char *host_charset_name = GDB_DEFAULT_HOST_CHARSET;
-+#ifndef GDB_DEFAULT_TARGET_WIDE_CHARSET
-+#define GDB_DEFAULT_TARGET_WIDE_CHARSET "UCS-4"
-+#endif
-+
-+static const char *auto_host_charset_name = GDB_DEFAULT_HOST_CHARSET;
-+static const char *host_charset_name = "auto";
- static void
- show_host_charset_name (struct ui_file *file, int from_tty,
- struct cmd_list_element *c,
- const char *value)
- {
-- fprintf_filtered (file, _("The host character set is \"%s\".\n"), value);
-+ if (!strcmp (value, "auto"))
-+ fprintf_filtered (file,
-+ _("The host character set is \"auto; currently %s\".\n"),
-+ auto_host_charset_name);
-+ else
-+ fprintf_filtered (file, _("The host character set is \"%s\".\n"), value);
- }
-
- static const char *target_charset_name = GDB_DEFAULT_TARGET_CHARSET;
-@@ -180,1060 +107,534 @@ show_target_charset_name (struct ui_file *file, int from_tty,
- value);
- }
-
+- return array;
+- }
-
--static const char *host_charset_enum[] =
-+static const char *target_wide_charset_name = GDB_DEFAULT_TARGET_WIDE_CHARSET;
-+static void
-+show_target_wide_charset_name (struct ui_file *file, int from_tty,
-+ struct cmd_list_element *c, const char *value)
- {
-- "ASCII",
-- "ISO-8859-1",
-- 0
--};
-+ fprintf_filtered (file, _("The target wide character set is \"%s\".\n"),
-+ value);
-+}
+ case BINOP_LOGICAL_AND:
+ arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
+ if (noside == EVAL_SKIP)
+@@ -2611,15 +2752,23 @@ evaluate_subexp_standard (struct type *e
+ if (expect_type && TYPE_CODE (expect_type) == TYPE_CODE_PTR)
+ expect_type = TYPE_TARGET_TYPE (check_typedef (expect_type));
+ arg1 = evaluate_subexp (expect_type, exp, pos, noside);
++ old_chain = make_cleanup (null_cleanup, 0);
++ object_address_set (value_raw_address (arg1));
+ type = check_typedef (value_type (arg1));
+ if (TYPE_CODE (type) == TYPE_CODE_METHODPTR
+ || TYPE_CODE (type) == TYPE_CODE_MEMBERPTR)
+ error (_("Attempt to dereference pointer "
+ "to member without an object"));
+ if (noside == EVAL_SKIP)
+- goto nosideret;
++ {
++ do_cleanups (old_chain);
++ goto nosideret;
++ }
+ if (unop_user_defined_p (op, arg1))
+- return value_x_unop (arg1, op, noside);
++ {
++ do_cleanups (old_chain);
++ return value_x_unop (arg1, op, noside);
++ }
+ else if (noside == EVAL_AVOID_SIDE_EFFECTS)
+ {
+ type = check_typedef (value_type (arg1));
+@@ -2628,12 +2777,18 @@ evaluate_subexp_standard (struct type *e
+ /* In C you can dereference an array to get the 1st elt. */
+ || TYPE_CODE (type) == TYPE_CODE_ARRAY
+ )
+- return value_zero (TYPE_TARGET_TYPE (type),
+- lval_memory);
++ {
++ do_cleanups (old_chain);
++ return value_zero (TYPE_TARGET_TYPE (type),
++ lval_memory);
++ }
+ else if (TYPE_CODE (type) == TYPE_CODE_INT)
+- /* GDB allows dereferencing an int. */
+- return value_zero (builtin_type (exp->gdbarch)->builtin_int,
+- lval_memory);
++ {
++ do_cleanups (old_chain);
++ /* GDB allows dereferencing an int. */
++ return value_zero (builtin_type (exp->gdbarch)->builtin_int,
++ lval_memory);
++ }
+ else
+ error (_("Attempt to take contents of a non-pointer value."));
+ }
+@@ -2643,9 +2798,14 @@ evaluate_subexp_standard (struct type *e
+ do. "long long" variables are rare enough that
+ BUILTIN_TYPE_LONGEST would seem to be a mistake. */
+ if (TYPE_CODE (type) == TYPE_CODE_INT)
+- return value_at_lazy (builtin_type (exp->gdbarch)->builtin_int,
+- (CORE_ADDR) value_as_address (arg1));
+- return value_ind (arg1);
++ {
++ do_cleanups (old_chain);
++ return value_at_lazy (builtin_type (exp->gdbarch)->builtin_int,
++ (CORE_ADDR) value_as_address (arg1));
++ }
++ arg1 = value_ind (arg1);
++ do_cleanups (old_chain);
++ return arg1;
--static const char *target_charset_enum[] =
-+static const char *default_charset_names[] =
+ case UNOP_ADDR:
+ /* C++: check for and handle pointer to members. */
+@@ -2991,7 +3151,7 @@ evaluate_subexp_with_coercion (struct ex
{
-- "ASCII",
-- "ISO-8859-1",
-- "EBCDIC-US",
-- "IBM1047",
-+ DEFAULT_CHARSET_NAMES
- 0
- };
-
--/* The global list of all the charsets GDB knows about. */
--static struct charset *all_charsets;
-+static const char **charset_enum;
+ enum exp_opcode op;
+ int pc;
+- struct value *val;
++ struct value *val = NULL;
+ struct symbol *var;
+ struct type *type;
-+\f
-+/* If the target wide character set has big- or little-endian
-+ variants, these are the corresponding names. */
-+static const char *target_wide_charset_be_name;
-+static const char *target_wide_charset_le_name;
+@@ -3002,13 +3162,18 @@ evaluate_subexp_with_coercion (struct ex
+ {
+ case OP_VAR_VALUE:
+ var = exp->elts[pc + 2].symbol;
++ /* address_of_variable will call object_address_set for check_typedef.
++ Call it only if required as it can error-out on VAR in register. */
++ if (TYPE_DYNAMIC (SYMBOL_TYPE (var)))
++ val = address_of_variable (var, exp->elts[pc + 1].block);
+ type = check_typedef (SYMBOL_TYPE (var));
+ if (TYPE_CODE (type) == TYPE_CODE_ARRAY
+ && !TYPE_VECTOR (type)
+ && CAST_IS_CONVERSION (exp->language_defn))
+ {
+ (*pos) += 4;
+- val = address_of_variable (var, exp->elts[pc + 1].block);
++ if (!val)
++ val = address_of_variable (var, exp->elts[pc + 1].block);
+ return value_cast (lookup_pointer_type (TYPE_TARGET_TYPE (type)),
+ val);
+ }
+@@ -3060,9 +3225,13 @@ evaluate_subexp_for_sizeof (struct expre
--static void
--register_charset (struct charset *cs)
--{
-- struct charset **ptr;
--
-- /* Put the new charset on the end, so that the list ends up in the
-- same order as the registrations in the _initialize function. */
-- for (ptr = &all_charsets; *ptr; ptr = &(*ptr)->next)
-- ;
--
-- cs->next = 0;
-- *ptr = cs;
--}
--
-+/* A helper function for validate which sets the target wide big- and
-+ little-endian character set names, if possible. */
+ case OP_VAR_VALUE:
+ (*pos) += 4;
+- type = check_typedef (SYMBOL_TYPE (exp->elts[pc + 2].symbol));
+- return
+- value_from_longest (size_type, (LONGEST) TYPE_LENGTH (type));
++ /* We do not need to call read_var_value but the object evaluation may
++ need to have executed object_address_set which needs valid
++ SYMBOL_VALUE_ADDRESS of the symbol. Still VALUE returned by
++ read_var_value we left as lazy. */
++ type = value_type (read_var_value (exp->elts[pc + 2].symbol,
++ deprecated_safe_get_selected_frame ()));
++ return value_from_longest (size_type, (LONGEST) TYPE_LENGTH (type));
--static struct charset *
--lookup_charset (const char *name)
-+static void
-+set_be_le_names (void)
+ default:
+ val = evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS);
+@@ -3093,18 +3262,25 @@ parse_and_eval_type (char *p, int length
+ int
+ calc_f77_array_dims (struct type *array_type)
{
-- struct charset *cs;
-+ int i, len;
-
-- for (cs = all_charsets; cs; cs = cs->next)
-- if (! strcmp (name, cs->name))
-- return cs;
-+ target_wide_charset_le_name = NULL;
-+ target_wide_charset_be_name = NULL;
-
-- return NULL;
-+ len = strlen (target_wide_charset_name);
-+ for (i = 0; charset_enum[i]; ++i)
+- int ndimen = 1;
+- struct type *tmp_type;
++ switch (TYPE_CODE (array_type))
+ {
-+ if (strncmp (target_wide_charset_name, charset_enum[i], len))
-+ continue;
-+ if ((charset_enum[i][len] == 'B'
-+ || charset_enum[i][len] == 'L')
-+ && charset_enum[i][len + 1] == 'E'
-+ && charset_enum[i][len + 2] == '\0')
-+ {
-+ if (charset_enum[i][len] == 'B')
-+ target_wide_charset_be_name = charset_enum[i];
-+ else
-+ target_wide_charset_le_name = charset_enum[i];
-+ }
-+ }
- }
++ case TYPE_CODE_STRING:
++ return 1;
--
--/* The global list of translations. */
--static struct translation *all_translations;
--
-+/* 'Set charset', 'set host-charset', 'set target-charset', 'set
-+ target-wide-charset', 'set charset' sfunc's. */
+- if ((TYPE_CODE (array_type) != TYPE_CODE_ARRAY))
+- error (_("Can't get dimensions for a non-array type"));
++ case TYPE_CODE_ARRAY:
++ {
++ int ndimen = 1;
- static void
--register_translation (struct translation *t)
-+validate (void)
- {
-- t->next = all_translations;
-- all_translations = t;
--}
--
--
--static struct translation *
--lookup_translation (const char *from, const char *to)
--{
-- struct translation *t;
--
-- for (t = all_translations; t; t = t->next)
-- if (! strcmp (from, t->from)
-- && ! strcmp (to, t->to))
-- return t;
-+ iconv_t desc;
-+ const char *host_cset = host_charset ();
-
-- return 0;
--}
--
--
--\f
--/* Constructing charsets. */
--
--/* Allocate, initialize and return a straightforward charset.
-- Use this function, rather than creating the structures yourself,
-- so that we can add new fields to the structure in the future without
-- having to tweak all the old charset descriptions. */
--static struct charset *
--simple_charset (const char *name,
-- int valid_host_charset,
-- int (*host_char_print_literally) (void *baton, int host_char),
-- void *host_char_print_literally_baton,
-- int (*target_char_to_control_char) (void *baton,
-- int target_char,
-- int *target_ctrl_char),
-- void *target_char_to_control_char_baton)
--{
-- struct charset *cs = xmalloc (sizeof (*cs));
-+ desc = iconv_open (target_wide_charset_name, host_cset);
-+ if (desc == (iconv_t) -1)
-+ error ("Cannot convert between character sets `%s' and `%s'",
-+ target_wide_charset_name, host_cset);
-+ iconv_close (desc);
-
-- memset (cs, 0, sizeof (*cs));
-- cs->name = name;
-- cs->valid_host_charset = valid_host_charset;
-- cs->host_char_print_literally = host_char_print_literally;
-- cs->host_char_print_literally_baton = host_char_print_literally_baton;
-- cs->target_char_to_control_char = target_char_to_control_char;
-- cs->target_char_to_control_char_baton = target_char_to_control_char_baton;
-+ desc = iconv_open (target_charset_name, host_cset);
-+ if (desc == (iconv_t) -1)
-+ error ("Cannot convert between character sets `%s' and `%s'",
-+ target_charset_name, host_cset);
-+ iconv_close (desc);
-
-- return cs;
-+ set_be_le_names ();
- }
+- tmp_type = array_type;
++ while ((array_type = TYPE_TARGET_TYPE (array_type)))
++ {
++ if (TYPE_CODE (array_type) == TYPE_CODE_ARRAY)
++ ++ndimen;
++ }
++ return ndimen;
++ }
--
--\f
--/* ASCII functions. */
--
--static int
--ascii_print_literally (void *baton, int c)
-+/* This is the sfunc for the 'set charset' command. */
-+static void
-+set_charset_sfunc (char *charset, int from_tty, struct cmd_list_element *c)
- {
-- c &= 0xff;
--
-- return (0x20 <= c && c <= 0x7e);
-+ /* CAREFUL: set the target charset here as well. */
-+ target_charset_name = host_charset_name;
-+ validate ();
+- while ((tmp_type = TYPE_TARGET_TYPE (tmp_type)))
+- {
+- if (TYPE_CODE (tmp_type) == TYPE_CODE_ARRAY)
+- ++ndimen;
++ default:
++ error (_("Can't get dimensions for a non-array/non-string type"));
+ }
+- return ndimen;
++
}
+Index: gdb-7.2.90.20110703/gdb/f-exp.y
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/f-exp.y 2011-03-18 14:51:41.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/f-exp.y 2011-07-03 10:33:11.000000000 +0200
+@@ -293,7 +293,9 @@ arglist : subrange
+ { arglist_len = 1; }
+ ;
+
+-arglist : arglist ',' exp %prec ABOVE_COMMA
++arglist : arglist ',' exp %prec ABOVE_COMMA
++ { arglist_len++; }
++ | arglist ',' subrange %prec ABOVE_COMMA
+ { arglist_len++; }
+ ;
--
--static int
--ascii_to_control (void *baton, int c, int *ctrl_char)
-+/* 'set host-charset' command sfunc. We need a wrapper here because
-+ the function needs to have a specific signature. */
-+static void
-+set_host_charset_sfunc (char *charset, int from_tty,
-+ struct cmd_list_element *c)
- {
-- *ctrl_char = (c & 037);
-- return 1;
-+ validate ();
- }
+Index: gdb-7.2.90.20110703/gdb/f-lang.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/f-lang.h 2011-01-07 20:36:16.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/f-lang.h 2011-07-03 10:33:11.000000000 +0200
+@@ -28,6 +28,10 @@ extern void f_error (char *); /* Defined
+ extern void f_print_type (struct type *, const char *, struct ui_file *, int,
+ int);
--\f
--/* ISO-8859 family functions. */
--
--
--static int
--iso_8859_print_literally (void *baton, int c)
-+/* Wrapper for the 'set target-charset' command. */
-+static void
-+set_target_charset_sfunc (char *charset, int from_tty,
-+ struct cmd_list_element *c)
- {
-- c &= 0xff;
++extern const char *f_object_address_data_valid_print_to_stream
++ (struct type *type, struct ui_file *stream);
++extern void f_object_address_data_valid_or_error (struct type *type);
++
+ extern int f_val_print (struct type *, const gdb_byte *, int, CORE_ADDR,
+ struct ui_file *, int,
+ const struct value *,
+Index: gdb-7.2.90.20110703/gdb/f-typeprint.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/f-typeprint.c 2011-01-07 20:36:16.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/f-typeprint.c 2011-07-03 10:33:11.000000000 +0200
+@@ -32,7 +32,7 @@
+ #include "gdbcore.h"
+ #include "target.h"
+ #include "f-lang.h"
-
-- return ((0x20 <= c && c <= 0x7e) /* ascii printables */
-- || (! sevenbit_strings && 0xA0 <= c)); /* iso 8859 printables */
-+ validate ();
- }
++#include "dwarf2loc.h"
+ #include "gdb_string.h"
+ #include <errno.h>
--
--static int
--iso_8859_to_control (void *baton, int c, int *ctrl_char)
-+/* Wrapper for the 'set target-wide-charset' command. */
-+static void
-+set_target_wide_charset_sfunc (char *charset, int from_tty,
-+ struct cmd_list_element *c)
- {
-- *ctrl_char = (c & 0200) | (c & 037);
-- return 1;
-+ validate ();
- }
+@@ -49,6 +49,34 @@ void f_type_print_varspec_prefix (struct
+ void f_type_print_base (struct type *, struct ui_file *, int, int);
+ \f
--
--/* Construct an ISO-8859-like character set. */
--static struct charset *
--iso_8859_family_charset (const char *name)
-+/* sfunc for the 'show charset' command. */
-+static void
-+show_charset (struct ui_file *file, int from_tty, struct cmd_list_element *c,
-+ const char *name)
- {
-- return simple_charset (name, 1,
-- iso_8859_print_literally, 0,
-- iso_8859_to_control, 0);
-+ show_host_charset_name (file, from_tty, c, host_charset_name);
-+ show_target_charset_name (file, from_tty, c, target_charset_name);
-+ show_target_wide_charset_name (file, from_tty, c, target_wide_charset_name);
- }
++const char *
++f_object_address_data_valid_print_to_stream (struct type *type,
++ struct ui_file *stream)
++{
++ const char *msg;
++
++ msg = object_address_data_not_valid (type);
++ if (msg != NULL)
++ {
++ /* Assuming the content printed to STREAM should not be localized. */
++ fprintf_filtered (stream, "<%s>", msg);
++ }
++
++ return msg;
++}
++
++void
++f_object_address_data_valid_or_error (struct type *type)
++{
++ const char *msg;
++
++ msg = object_address_data_not_valid (type);
++ if (msg != NULL)
++ {
++ error (_("Cannot access it because the %s."), _(msg));
++ }
++}
++
+ /* LEVEL is the depth to indent lines by. */
--
- \f
--/* EBCDIC family functions. */
--
--
--static int
--ebcdic_print_literally (void *baton, int c)
--{
-- c &= 0xff;
--
-- return (64 <= c && c <= 254);
--}
--
-+/* Accessor functions. */
+ void
+@@ -58,6 +86,9 @@ f_print_type (struct type *type, const c
+ enum type_code code;
+ int demangled_args;
--static int
--ebcdic_to_control (void *baton, int c, int *ctrl_char)
-+const char *
-+host_charset (void)
- {
-- /* There are no control character equivalents in EBCDIC. Use
-- numeric escapes. */
-- return 0;
-+ if (!strcmp (host_charset_name, "auto"))
-+ return auto_host_charset_name;
-+ return host_charset_name;
- }
++ if (f_object_address_data_valid_print_to_stream (type, stream) != NULL)
++ return;
++
+ f_type_print_base (type, stream, show, level);
+ code = TYPE_CODE (type);
+ if ((varstring != NULL && *varstring != '\0')
+@@ -165,6 +196,9 @@ f_type_print_varspec_suffix (struct type
--
--/* Construct an EBCDIC-like character set. */
--static struct charset *
--ebcdic_family_charset (const char *name)
-+const char *
-+target_charset (void)
+ QUIT;
+
++ if (TYPE_CODE (type) != TYPE_CODE_TYPEDEF)
++ CHECK_TYPEDEF (type);
++
+ switch (TYPE_CODE (type))
+ {
+ case TYPE_CODE_ARRAY:
+Index: gdb-7.2.90.20110703/gdb/f-valprint.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/f-valprint.c 2011-02-07 18:49:32.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/f-valprint.c 2011-07-03 10:33:11.000000000 +0200
+@@ -54,15 +54,17 @@ int f77_array_offset_tbl[MAX_FORTRAN_DIM
+ /* The following macro gives us the size of the nth dimension, Where
+ n is 1 based. */
+
+-#define F77_DIM_SIZE(n) (f77_array_offset_tbl[n][1])
++#define F77_DIM_COUNT(n) (f77_array_offset_tbl[n][1])
+
+-/* The following gives us the offset for row n where n is 1-based. */
++/* The following gives us the element size for row n where n is 1-based. */
+
+-#define F77_DIM_OFFSET(n) (f77_array_offset_tbl[n][0])
++#define F77_DIM_BYTE_STRIDE(n) (f77_array_offset_tbl[n][0])
+
+ int
+ f77_get_lowerbound (struct type *type)
{
-- return simple_charset (name, 0,
-- ebcdic_print_literally, 0,
-- ebcdic_to_control, 0);
-+ return target_charset_name;
- }
--
--
--
--
--\f
--/* Fallback functions using iconv. */
--
--#if defined(HAVE_ICONV)
++ f_object_address_data_valid_or_error (type);
++
+ if (TYPE_ARRAY_LOWER_BOUND_IS_UNDEFINED (type))
+ error (_("Lower bound may not be '*' in F77"));
--struct cached_iconv {
-- struct charset *from, *to;
-- iconv_t i;
--};
--
--
--/* Make sure the iconv cache *CI contains an iconv descriptor
-- translating from FROM to TO. If it already does, fine; otherwise,
-- close any existing descriptor, and open up a new one. On success,
-- return zero; on failure, return -1 and set errno. */
--static int
--check_iconv_cache (struct cached_iconv *ci,
-- struct charset *from,
-- struct charset *to)
-+const char *
-+target_wide_charset (void)
+@@ -72,14 +74,17 @@ f77_get_lowerbound (struct type *type)
+ int
+ f77_get_upperbound (struct type *type)
{
-- iconv_t i;
--
-- /* Does the cached iconv descriptor match the conversion we're trying
-- to do now? */
-- if (ci->from == from
-- && ci->to == to
-- && ci->i != (iconv_t) 0)
-- return 0;
--
-- /* It doesn't. If we actually had any iconv descriptor open at
-- all, close it now. */
-- if (ci->i != (iconv_t) 0)
-+ if (gdbarch_byte_order (current_gdbarch) == BFD_ENDIAN_BIG)
++ f_object_address_data_valid_or_error (type);
++
+ if (TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED (type))
{
-- i = ci->i;
-- ci->i = (iconv_t) 0;
--
-- if (iconv_close (i) == -1)
-- error (_("Error closing `iconv' descriptor for "
-- "`%s'-to-`%s' character conversion: %s"),
-- ci->from->name, ci->to->name, safe_strerror (errno));
-+ if (target_wide_charset_be_name)
-+ return target_wide_charset_be_name;
+- /* We have an assumed size array on our hands. Assume that
+- upper_bound == lower_bound so that we show at least 1 element.
+- If the user wants to see more elements, let him manually ask for 'em
+- and we'll subscript the array and show him. */
++ /* We have an assumed size array on our hands. As type_length_get
++ already assumes a length zero of arrays with underfined bounds VALADDR
++ passed to the Fortran functions does not contained the real inferior
++ memory content. User should request printing of specific array
++ elements instead. */
+
+- return f77_get_lowerbound (type);
++ return f77_get_lowerbound (type) - 1;
}
--
-- /* Open a new iconv descriptor for the required conversion. */
-- i = iconv_open (to->name, from->name);
-- if (i == (iconv_t) -1)
-- return -1;
--
-- ci->i = i;
-- ci->from = from;
-- ci->to = to;
--
-- return 0;
--}
--
--
--/* Convert FROM_CHAR using the cached iconv conversion *CI. Return
-- non-zero if the conversion was successful, zero otherwise. */
--static int
--cached_iconv_convert (struct cached_iconv *ci, int from_char, int *to_char)
--{
-- char from;
-- ICONV_CONST char *from_ptr = &from;
-- char to, *to_ptr = &to;
-- size_t from_left = sizeof (from), to_left = sizeof (to);
--
-- gdb_assert (ci->i != (iconv_t) 0);
--
-- from = from_char;
-- if (iconv (ci->i, &from_ptr, &from_left, &to_ptr, &to_left)
-- == (size_t) -1)
-+ else
- {
-- /* These all suggest that the input or output character sets
-- have multi-byte encodings of some characters, which means
-- it's unsuitable for use as a GDB character set. We should
-- never have selected it. */
-- gdb_assert (errno != E2BIG && errno != EINVAL);
--
-- /* This suggests a bug in the code managing *CI. */
-- gdb_assert (errno != EBADF);
--
-- /* This seems to mean that there is no equivalent character in
-- the `to' character set. */
-- if (errno == EILSEQ)
-- return 0;
--
-- /* Anything else is mysterious. */
-- internal_error (__FILE__, __LINE__,
-- _("Error converting character `%d' from `%s' to `%s' "
-- "character set: %s"),
-- from_char, ci->from->name, ci->to->name,
-- safe_strerror (errno));
-+ if (target_wide_charset_le_name)
-+ return target_wide_charset_le_name;
+
+ return TYPE_ARRAY_UPPER_BOUND_VALUE (type);
+@@ -135,24 +140,29 @@ f77_create_arrayprint_offset_tbl (struct
+ upper = f77_get_upperbound (tmp_type);
+ lower = f77_get_lowerbound (tmp_type);
+
+- F77_DIM_SIZE (ndimen) = upper - lower + 1;
++ F77_DIM_COUNT (ndimen) = upper - lower + 1;
++
++ F77_DIM_BYTE_STRIDE (ndimen) =
++ TYPE_ARRAY_BYTE_STRIDE_VALUE (tmp_type);
+
+ tmp_type = TYPE_TARGET_TYPE (tmp_type);
+ ndimen++;
}
-- /* If the pointers weren't advanced across the input, that also
-- suggests something was wrong. */
-- gdb_assert (from_left == 0 && to_left == 0);
--
-- *to_char = (unsigned char) to;
-- return 1;
-+ return target_wide_charset_name;
+- /* Now we multiply eltlen by all the offsets, so that later we
++ /* Now we multiply eltlen by all the BYTE_STRIDEs, so that later we
+ can print out array elements correctly. Up till now we
+- know an offset to apply to get the item but we also
++ know an eltlen to apply to get the item but we also
+ have to know how much to add to get to the next item. */
+
+ ndimen--;
+ eltlen = TYPE_LENGTH (tmp_type);
+- F77_DIM_OFFSET (ndimen) = eltlen;
++ if (F77_DIM_BYTE_STRIDE (ndimen) == 0)
++ F77_DIM_BYTE_STRIDE (ndimen) = eltlen;
+ while (--ndimen > 0)
+ {
+- eltlen *= F77_DIM_SIZE (ndimen + 1);
+- F77_DIM_OFFSET (ndimen) = eltlen;
++ eltlen *= F77_DIM_COUNT (ndimen + 1);
++ if (F77_DIM_BYTE_STRIDE (ndimen) == 0)
++ F77_DIM_BYTE_STRIDE (ndimen) = eltlen;
+ }
}
--
--static void
--register_iconv_charsets (void)
--{
-- /* Here we should check whether various character sets were
-- recognized by the local iconv implementation.
--
-- The first implementation registered a bunch of character sets
-- recognized by iconv, but then we discovered that iconv on Solaris
-- and iconv on GNU/Linux had no character sets in common. So we
-- replaced them with the hard-coded tables that appear later in the
-- file. */
--}
--
--#endif /* defined (HAVE_ICONV) */
--
- \f
--/* Fallback routines for systems without iconv. */
-+/* Host character set management. For the time being, we assume that
-+ the host character set is some superset of ASCII. */
+@@ -174,37 +184,35 @@ f77_print_array_1 (int nss, int ndimensi
--#if ! defined (HAVE_ICONV)
--struct cached_iconv { char nothing; };
--
--static int
--check_iconv_cache (struct cached_iconv *ci,
-- struct charset *from,
-- struct charset *to)
-+char
-+host_letter_to_control_character (char c)
- {
-- errno = EINVAL;
-- return -1;
-+ if (c == '?')
-+ return 0177;
-+ return c & 0237;
- }
+ if (nss != ndimensions)
+ {
+- for (i = 0;
+- (i < F77_DIM_SIZE (nss) && (*elts) < options->print_max);
+- i++)
++ for (i = 0; (i < F77_DIM_COUNT (nss) && (*elts) < options->print_max); i++)
+ {
+ fprintf_filtered (stream, "( ");
+ f77_print_array_1 (nss + 1, ndimensions, TYPE_TARGET_TYPE (type),
+ valaddr,
+- embedded_offset + i * F77_DIM_OFFSET (nss),
++ embedded_offset + i * F77_DIM_BYTE_STRIDE (nss),
+ address,
+ stream, recurse, val, options, elts);
+ fprintf_filtered (stream, ") ");
+ }
+- if (*elts >= options->print_max && i < F77_DIM_SIZE (nss))
++ if (*elts >= options->print_max && i < F77_DIM_COUNT (nss))
+ fprintf_filtered (stream, "...");
+ }
+ else
+ {
+- for (i = 0; i < F77_DIM_SIZE (nss) && (*elts) < options->print_max;
++ for (i = 0; i < F77_DIM_COUNT (nss) && (*elts) < options->print_max;
+ i++, (*elts)++)
+ {
+ val_print (TYPE_TARGET_TYPE (type),
+ valaddr,
+- embedded_offset + i * F77_DIM_OFFSET (ndimensions),
++ embedded_offset + i * F77_DIM_BYTE_STRIDE (ndimensions),
+ address, stream, recurse,
+ val, options, current_language);
--static int
--cached_iconv_convert (struct cached_iconv *ci, int from_char, int *to_char)
--{
-- /* This function should never be called. */
-- gdb_assert (0);
--}
-+/* Convert a host character, C, to its hex value. C must already have
-+ been validated using isxdigit. */
+- if (i != (F77_DIM_SIZE (nss) - 1))
++ if (i != (F77_DIM_COUNT (nss) - 1))
+ fprintf_filtered (stream, ", ");
--static void
--register_iconv_charsets (void)
--{
--}
--
--#endif /* ! defined(HAVE_ICONV) */
--
--\f
--/* Default trivial conversion functions. */
--
--static int
--identity_either_char_to_other (void *baton, int either_char, int *other_char)
-+int
-+host_hex_value (char c)
- {
-- *other_char = either_char;
-- return 1;
-+ if (isdigit (c))
-+ return c - '0';
-+ if (c >= 'a' && c <= 'f')
-+ return 10 + c - 'a';
-+ gdb_assert (c >= 'A' && c <= 'F');
-+ return 10 + c - 'A';
- }
+ if ((*elts == options->print_max - 1)
+- && (i != (F77_DIM_SIZE (nss) - 1)))
++ && (i != (F77_DIM_COUNT (nss) - 1)))
+ fprintf_filtered (stream, "...");
+ }
+ }
+@@ -260,6 +268,9 @@ f_val_print (struct type *type, const gd
+ CORE_ADDR addr;
+ int index;
++ if (f_object_address_data_valid_print_to_stream (type, stream) != NULL)
++ return 0;
++
+ CHECK_TYPEDEF (type);
+ switch (TYPE_CODE (type))
+ {
+Index: gdb-7.2.90.20110703/gdb/findvar.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/findvar.c 2011-03-18 19:42:41.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/findvar.c 2011-07-03 10:33:11.000000000 +0200
+@@ -35,6 +35,7 @@
+ #include "user-regs.h"
+ #include "block.h"
+ #include "objfiles.h"
++#include "dwarf2loc.h"
+
+ /* Basic byte-swapping routines. All 'extract' functions return a
+ host-format integer from a target-format integer at ADDR which is
+@@ -408,8 +409,11 @@ symbol_read_needs_frame (struct symbol *
+
+ /* Given a struct symbol for a variable,
+ and a stack frame id, read the value of the variable
+- and return a (pointer to a) struct value containing the value.
+- If the variable cannot be found, return a zero pointer. */
++ and return a (pointer to a) struct value containing the value.
++ If the variable cannot be found, return a zero pointer.
++ We have to first find the address of the variable before allocating struct
++ value to return as its size may depend on DW_OP_PUSH_OBJECT_ADDRESS possibly
++ used by its type. */
+
+ struct value *
+ read_var_value (struct symbol *var, struct frame_info *frame)
+@@ -417,16 +421,6 @@ read_var_value (struct symbol *var, stru
+ struct value *v;
+ struct type *type = SYMBOL_TYPE (var);
+ CORE_ADDR addr;
+- int len;
-
- \f
--/* Default non-trivial conversion functions. */
--
--
--static char backslashable[] = "abfnrtv";
--static char *backslashed[] = {"a", "b", "f", "n", "r", "t", "v", "0"};
--static char represented[] = "\a\b\f\n\r\t\v";
--
--
--/* Translate TARGET_CHAR into the host character set, and see if it
-- matches any of our standard escape sequences. */
--static const char *
--default_c_target_char_has_backslash_escape (void *baton, int target_char)
--{
-- int host_char;
-- const char *ix;
--
-- /* If target_char has no equivalent in the host character set,
-- assume it doesn't have a backslashed form. */
-- if (! target_char_to_host (target_char, &host_char))
-- return NULL;
--
-- ix = strchr (represented, host_char);
-- if (ix)
-- return backslashed[ix - represented];
-- else
-- return NULL;
--}
--
--
--/* Translate the backslash the way we would in the host character set,
-- and then try to translate that into the target character set. */
--static int
--default_c_parse_backslash (void *baton, int host_char, int *target_char)
--{
-- const char *ix;
--
-- ix = strchr (backslashable, host_char);
+- /* Call check_typedef on our type to make sure that, if TYPE is
+- a TYPE_CODE_TYPEDEF, its length is set to the length of the target type
+- instead of zero. However, we do not replace the typedef type by the
+- target type, because we want to keep the typedef in order to be able to
+- set the returned value type description correctly. */
+- check_typedef (type);
-
-- if (! ix)
-- return 0;
-- else
-- return host_char_to_target (represented[ix - backslashable],
-- target_char);
--}
-+/* Public character management functions. */
+- len = TYPE_LENGTH (type);
-+/* A cleanup function which is run to close an iconv descriptor. */
+ if (symbol_read_needs_frame (var))
+ gdb_assert (frame);
+@@ -436,7 +430,7 @@ read_var_value (struct symbol *var, stru
+ case LOC_CONST:
+ /* Put the constant back in target format. */
+ v = allocate_value (type);
+- store_signed_integer (value_contents_raw (v), len,
++ store_signed_integer (value_contents_raw (v), TYPE_LENGTH (type),
+ gdbarch_byte_order (get_type_arch (type)),
+ (LONGEST) SYMBOL_VALUE (var));
+ VALUE_LVAL (v) = not_lval;
+@@ -461,12 +455,12 @@ read_var_value (struct symbol *var, stru
--/* Convert using a cached iconv descriptor. */
--static int
--iconv_convert (void *baton, int from_char, int *to_char)
-+static void
-+cleanup_iconv (void *p)
- {
-- struct cached_iconv *ci = baton;
-- return cached_iconv_convert (ci, from_char, to_char);
-+ iconv_t *descp = p;
-+ iconv_close (*descp);
- }
+ case LOC_CONST_BYTES:
+ v = allocate_value (type);
+- memcpy (value_contents_raw (v), SYMBOL_VALUE_BYTES (var), len);
++ memcpy (value_contents_raw (v), SYMBOL_VALUE_BYTES (var),
++ TYPE_LENGTH (type));
+ VALUE_LVAL (v) = not_lval;
+ return v;
+
+ case LOC_STATIC:
+- v = allocate_value_lazy (type);
+ if (overlay_debugging)
+ addr = symbol_overlayed_address (SYMBOL_VALUE_ADDRESS (var),
+ SYMBOL_OBJ_SECTION (var));
+@@ -479,7 +473,6 @@ read_var_value (struct symbol *var, stru
+ if (!addr)
+ return 0;
+ addr += SYMBOL_VALUE (var);
+- v = allocate_value_lazy (type);
+ break;
-+void
-+convert_between_encodings (const char *from, const char *to,
-+ const gdb_byte *bytes, unsigned int num_bytes,
-+ int width, struct obstack *output,
-+ enum transliterations translit)
-+{
-+ iconv_t desc;
-+ struct cleanup *cleanups;
-+ size_t inleft;
-+ char *inp;
-+ unsigned int space_request;
-+
-+ /* Often, the host and target charsets will be the same. */
-+ if (!strcmp (from, to))
-+ {
-+ obstack_grow (output, bytes, num_bytes);
-+ return;
-+ }
+ case LOC_REF_ARG:
+@@ -493,14 +486,12 @@ read_var_value (struct symbol *var, stru
+ argref += SYMBOL_VALUE (var);
+ ref = value_at (lookup_pointer_type (type), argref);
+ addr = value_as_address (ref);
+- v = allocate_value_lazy (type);
+ break;
+ }
--\f
--/* Conversion tables. */
--
--
--/* I'd much rather fall back on iconv whenever possible. But the
-- character set names you use with iconv aren't standardized at all,
-- a lot of platforms have really meager character set coverage, etc.
-- I wanted to have at least something we could use to exercise the
-- test suite on all platforms.
--
-- In the long run, we should have a configure-time process explore
-- somehow which character sets the host platform supports, and some
-- arrangement that allows GDB users to use platform-indepedent names
-- for character sets. */
--
--
--/* We generated these tables using iconv on a GNU/Linux machine. */
--
--
--static int ascii_to_iso_8859_1_table[] = {
-- 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, /* 16 */
-- 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, /* 32 */
-- 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, /* 48 */
-- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, /* 64 */
-- 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, /* 80 */
-- 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, /* 96 */
-- 96, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111, /* 112 */
-- 112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127, /* 128 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 144 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 160 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 176 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 208 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 224 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 240 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 256 */
--};
--
--
--static int ascii_to_ebcdic_us_table[] = {
-- 0, 1, 2, 3, 55, 45, 46, 47, 22, 5, 37, 11, 12, 13, 14, 15, /* 16 */
-- 16, 17, 18, 19, 60, 61, 50, 38, 24, 25, 63, 39, 28, 29, 30, 31, /* 32 */
-- 64, 90,127,123, 91,108, 80,125, 77, 93, 92, 78,107, 96, 75, 97, /* 48 */
-- 240,241,242,243,244,245,246,247,248,249,122, 94, 76,126,110,111, /* 64 */
-- 124,193,194,195,196,197,198,199,200,201,209,210,211,212,213,214, /* 80 */
-- 215,216,217,226,227,228,229,230,231,232,233, -1,224, -1, -1,109, /* 96 */
-- 121,129,130,131,132,133,134,135,136,137,145,146,147,148,149,150, /* 112 */
-- 151,152,153,162,163,164,165,166,167,168,169,192, 79,208,161, 7, /* 128 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 144 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 160 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 176 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 208 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 224 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 240 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 256 */
--};
--
--
--static int ascii_to_ibm1047_table[] = {
-- 0, 1, 2, 3, 55, 45, 46, 47, 22, 5, 37, 11, 12, 13, 14, 15, /* 16 */
-- 16, 17, 18, 19, 60, 61, 50, 38, 24, 25, 63, 39, 28, 29, 30, 31, /* 32 */
-- 64, 90,127,123, 91,108, 80,125, 77, 93, 92, 78,107, 96, 75, 97, /* 48 */
-- 240,241,242,243,244,245,246,247,248,249,122, 94, 76,126,110,111, /* 64 */
-- 124,193,194,195,196,197,198,199,200,201,209,210,211,212,213,214, /* 80 */
-- 215,216,217,226,227,228,229,230,231,232,233,173,224,189, 95,109, /* 96 */
-- 121,129,130,131,132,133,134,135,136,137,145,146,147,148,149,150, /* 112 */
-- 151,152,153,162,163,164,165,166,167,168,169,192, 79,208,161, 7, /* 128 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 144 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 160 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 176 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 208 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 224 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 240 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 256 */
--};
--
--
--static int iso_8859_1_to_ascii_table[] = {
-- 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, /* 16 */
-- 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, /* 32 */
-- 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, /* 48 */
-- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, /* 64 */
-- 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, /* 80 */
-- 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, /* 96 */
-- 96, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111, /* 112 */
-- 112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127, /* 128 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 144 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 160 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 176 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 208 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 224 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 240 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 256 */
--};
--
--
--static int iso_8859_1_to_ebcdic_us_table[] = {
-- 0, 1, 2, 3, 55, 45, 46, 47, 22, 5, 37, 11, 12, 13, 14, 15, /* 16 */
-- 16, 17, 18, 19, 60, 61, 50, 38, 24, 25, 63, 39, 28, 29, 30, 31, /* 32 */
-- 64, 90,127,123, 91,108, 80,125, 77, 93, 92, 78,107, 96, 75, 97, /* 48 */
-- 240,241,242,243,244,245,246,247,248,249,122, 94, 76,126,110,111, /* 64 */
-- 124,193,194,195,196,197,198,199,200,201,209,210,211,212,213,214, /* 80 */
-- 215,216,217,226,227,228,229,230,231,232,233, -1,224, -1, -1,109, /* 96 */
-- 121,129,130,131,132,133,134,135,136,137,145,146,147,148,149,150, /* 112 */
-- 151,152,153,162,163,164,165,166,167,168,169,192, 79,208,161, 7, /* 128 */
-- 32, 33, 34, 35, 36, 21, 6, 23, 40, 41, 42, 43, 44, 9, 10, 27, /* 144 */
-- 48, 49, 26, 51, 52, 53, 54, 8, 56, 57, 58, 59, 4, 20, 62,255, /* 160 */
-- -1, -1, 74, -1, -1, -1,106, -1, -1, -1, -1, -1, 95, -1, -1, -1, /* 176 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 208 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 224 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 240 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 256 */
--};
--
--
--static int iso_8859_1_to_ibm1047_table[] = {
-- 0, 1, 2, 3, 55, 45, 46, 47, 22, 5, 37, 11, 12, 13, 14, 15, /* 16 */
-- 16, 17, 18, 19, 60, 61, 50, 38, 24, 25, 63, 39, 28, 29, 30, 31, /* 32 */
-- 64, 90,127,123, 91,108, 80,125, 77, 93, 92, 78,107, 96, 75, 97, /* 48 */
-- 240,241,242,243,244,245,246,247,248,249,122, 94, 76,126,110,111, /* 64 */
-- 124,193,194,195,196,197,198,199,200,201,209,210,211,212,213,214, /* 80 */
-- 215,216,217,226,227,228,229,230,231,232,233,173,224,189, 95,109, /* 96 */
-- 121,129,130,131,132,133,134,135,136,137,145,146,147,148,149,150, /* 112 */
-- 151,152,153,162,163,164,165,166,167,168,169,192, 79,208,161, 7, /* 128 */
-- 32, 33, 34, 35, 36, 21, 6, 23, 40, 41, 42, 43, 44, 9, 10, 27, /* 144 */
-- 48, 49, 26, 51, 52, 53, 54, 8, 56, 57, 58, 59, 4, 20, 62,255, /* 160 */
-- 65,170, 74,177,159,178,106,181,187,180,154,138,176,202,175,188, /* 176 */
-- 144,143,234,250,190,160,182,179,157,218,155,139,183,184,185,171, /* 192 */
-- 100,101, 98,102, 99,103,158,104,116,113,114,115,120,117,118,119, /* 208 */
-- 172,105,237,238,235,239,236,191,128,253,254,251,252,186,174, 89, /* 224 */
-- 68, 69, 66, 70, 67, 71,156, 72, 84, 81, 82, 83, 88, 85, 86, 87, /* 240 */
-- 140, 73,205,206,203,207,204,225,112,221,222,219,220,141,142,223 /* 256 */
--};
--
--
--static int ebcdic_us_to_ascii_table[] = {
-- 0, 1, 2, 3, -1, 9, -1,127, -1, -1, -1, 11, 12, 13, 14, 15, /* 16 */
-- 16, 17, 18, 19, -1, -1, 8, -1, 24, 25, -1, -1, 28, 29, 30, 31, /* 32 */
-- -1, -1, -1, -1, -1, 10, 23, 27, -1, -1, -1, -1, -1, 5, 6, 7, /* 48 */
-- -1, -1, 22, -1, -1, -1, -1, 4, -1, -1, -1, -1, 20, 21, -1, 26, /* 64 */
-- 32, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 46, 60, 40, 43,124, /* 80 */
-- 38, -1, -1, -1, -1, -1, -1, -1, -1, -1, 33, 36, 42, 41, 59, -1, /* 96 */
-- 45, 47, -1, -1, -1, -1, -1, -1, -1, -1, -1, 44, 37, 95, 62, 63, /* 112 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, 58, 35, 64, 39, 61, 34, /* 128 */
-- -1, 97, 98, 99,100,101,102,103,104,105, -1, -1, -1, -1, -1, -1, /* 144 */
-- -1,106,107,108,109,110,111,112,113,114, -1, -1, -1, -1, -1, -1, /* 160 */
-- -1,126,115,116,117,118,119,120,121,122, -1, -1, -1, -1, -1, -1, /* 176 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
-- 123, 65, 66, 67, 68, 69, 70, 71, 72, 73, -1, -1, -1, -1, -1, -1, /* 208 */
-- 125, 74, 75, 76, 77, 78, 79, 80, 81, 82, -1, -1, -1, -1, -1, -1, /* 224 */
-- 92, -1, 83, 84, 85, 86, 87, 88, 89, 90, -1, -1, -1, -1, -1, -1, /* 240 */
-- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, -1, -1, -1, -1, -1 /* 256 */
--};
--
--
--static int ebcdic_us_to_iso_8859_1_table[] = {
-- 0, 1, 2, 3,156, 9,134,127,151,141,142, 11, 12, 13, 14, 15, /* 16 */
-- 16, 17, 18, 19,157,133, 8,135, 24, 25,146,143, 28, 29, 30, 31, /* 32 */
-- 128,129,130,131,132, 10, 23, 27,136,137,138,139,140, 5, 6, 7, /* 48 */
-- 144,145, 22,147,148,149,150, 4,152,153,154,155, 20, 21,158, 26, /* 64 */
-- 32, -1, -1, -1, -1, -1, -1, -1, -1, -1,162, 46, 60, 40, 43,124, /* 80 */
-- 38, -1, -1, -1, -1, -1, -1, -1, -1, -1, 33, 36, 42, 41, 59,172, /* 96 */
-- 45, 47, -1, -1, -1, -1, -1, -1, -1, -1,166, 44, 37, 95, 62, 63, /* 112 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, 58, 35, 64, 39, 61, 34, /* 128 */
-- -1, 97, 98, 99,100,101,102,103,104,105, -1, -1, -1, -1, -1, -1, /* 144 */
-- -1,106,107,108,109,110,111,112,113,114, -1, -1, -1, -1, -1, -1, /* 160 */
-- -1,126,115,116,117,118,119,120,121,122, -1, -1, -1, -1, -1, -1, /* 176 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
-- 123, 65, 66, 67, 68, 69, 70, 71, 72, 73, -1, -1, -1, -1, -1, -1, /* 208 */
-- 125, 74, 75, 76, 77, 78, 79, 80, 81, 82, -1, -1, -1, -1, -1, -1, /* 224 */
-- 92, -1, 83, 84, 85, 86, 87, 88, 89, 90, -1, -1, -1, -1, -1, -1, /* 240 */
-- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, -1, -1, -1, -1,159 /* 256 */
--};
--
--
--static int ebcdic_us_to_ibm1047_table[] = {
-- 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, /* 16 */
-- 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, /* 32 */
-- 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, /* 48 */
-- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, /* 64 */
-- 64, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, 75, 76, 77, 78, 79, /* 80 */
-- 80, -1, -1, -1, -1, -1, -1, -1, -1, -1, 90, 91, 92, 93, 94,176, /* 96 */
-- 96, 97, -1, -1, -1, -1, -1, -1, -1, -1,106,107,108,109,110,111, /* 112 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1,121,122,123,124,125,126,127, /* 128 */
-- -1,129,130,131,132,133,134,135,136,137, -1, -1, -1, -1, -1, -1, /* 144 */
-- -1,145,146,147,148,149,150,151,152,153, -1, -1, -1, -1, -1, -1, /* 160 */
-- -1,161,162,163,164,165,166,167,168,169, -1, -1, -1, -1, -1, -1, /* 176 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
-- 192,193,194,195,196,197,198,199,200,201, -1, -1, -1, -1, -1, -1, /* 208 */
-- 208,209,210,211,212,213,214,215,216,217, -1, -1, -1, -1, -1, -1, /* 224 */
-- 224, -1,226,227,228,229,230,231,232,233, -1, -1, -1, -1, -1, -1, /* 240 */
-- 240,241,242,243,244,245,246,247,248,249, -1, -1, -1, -1, -1,255 /* 256 */
--};
--
--
--static int ibm1047_to_ascii_table[] = {
-- 0, 1, 2, 3, -1, 9, -1,127, -1, -1, -1, 11, 12, 13, 14, 15, /* 16 */
-- 16, 17, 18, 19, -1, -1, 8, -1, 24, 25, -1, -1, 28, 29, 30, 31, /* 32 */
-- -1, -1, -1, -1, -1, 10, 23, 27, -1, -1, -1, -1, -1, 5, 6, 7, /* 48 */
-- -1, -1, 22, -1, -1, -1, -1, 4, -1, -1, -1, -1, 20, 21, -1, 26, /* 64 */
-- 32, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 46, 60, 40, 43,124, /* 80 */
-- 38, -1, -1, -1, -1, -1, -1, -1, -1, -1, 33, 36, 42, 41, 59, 94, /* 96 */
-- 45, 47, -1, -1, -1, -1, -1, -1, -1, -1, -1, 44, 37, 95, 62, 63, /* 112 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, 96, 58, 35, 64, 39, 61, 34, /* 128 */
-- -1, 97, 98, 99,100,101,102,103,104,105, -1, -1, -1, -1, -1, -1, /* 144 */
-- -1,106,107,108,109,110,111,112,113,114, -1, -1, -1, -1, -1, -1, /* 160 */
-- -1,126,115,116,117,118,119,120,121,122, -1, -1, -1, 91, -1, -1, /* 176 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 93, -1, -1, /* 192 */
-- 123, 65, 66, 67, 68, 69, 70, 71, 72, 73, -1, -1, -1, -1, -1, -1, /* 208 */
-- 125, 74, 75, 76, 77, 78, 79, 80, 81, 82, -1, -1, -1, -1, -1, -1, /* 224 */
-- 92, -1, 83, 84, 85, 86, 87, 88, 89, 90, -1, -1, -1, -1, -1, -1, /* 240 */
-- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, -1, -1, -1, -1, -1 /* 256 */
--};
--
--
--static int ibm1047_to_iso_8859_1_table[] = {
-- 0, 1, 2, 3,156, 9,134,127,151,141,142, 11, 12, 13, 14, 15, /* 16 */
-- 16, 17, 18, 19,157,133, 8,135, 24, 25,146,143, 28, 29, 30, 31, /* 32 */
-- 128,129,130,131,132, 10, 23, 27,136,137,138,139,140, 5, 6, 7, /* 48 */
-- 144,145, 22,147,148,149,150, 4,152,153,154,155, 20, 21,158, 26, /* 64 */
-- 32,160,226,228,224,225,227,229,231,241,162, 46, 60, 40, 43,124, /* 80 */
-- 38,233,234,235,232,237,238,239,236,223, 33, 36, 42, 41, 59, 94, /* 96 */
-- 45, 47,194,196,192,193,195,197,199,209,166, 44, 37, 95, 62, 63, /* 112 */
-- 248,201,202,203,200,205,206,207,204, 96, 58, 35, 64, 39, 61, 34, /* 128 */
-- 216, 97, 98, 99,100,101,102,103,104,105,171,187,240,253,254,177, /* 144 */
-- 176,106,107,108,109,110,111,112,113,114,170,186,230,184,198,164, /* 160 */
-- 181,126,115,116,117,118,119,120,121,122,161,191,208, 91,222,174, /* 176 */
-- 172,163,165,183,169,167,182,188,189,190,221,168,175, 93,180,215, /* 192 */
-- 123, 65, 66, 67, 68, 69, 70, 71, 72, 73,173,244,246,242,243,245, /* 208 */
-- 125, 74, 75, 76, 77, 78, 79, 80, 81, 82,185,251,252,249,250,255, /* 224 */
-- 92,247, 83, 84, 85, 86, 87, 88, 89, 90,178,212,214,210,211,213, /* 240 */
-- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57,179,219,220,217,218,159 /* 256 */
--};
--
--
--static int ibm1047_to_ebcdic_us_table[] = {
-- 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, /* 16 */
-- 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, /* 32 */
-- 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, /* 48 */
-- 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, /* 64 */
-- 64, -1, -1, -1, -1, -1, -1, -1, -1, -1, 74, 75, 76, 77, 78, 79, /* 80 */
-- 80, -1, -1, -1, -1, -1, -1, -1, -1, -1, 90, 91, 92, 93, 94, -1, /* 96 */
-- 96, 97, -1, -1, -1, -1, -1, -1, -1, -1,106,107,108,109,110,111, /* 112 */
-- -1, -1, -1, -1, -1, -1, -1, -1, -1,121,122,123,124,125,126,127, /* 128 */
-- -1,129,130,131,132,133,134,135,136,137, -1, -1, -1, -1, -1, -1, /* 144 */
-- -1,145,146,147,148,149,150,151,152,153, -1, -1, -1, -1, -1, -1, /* 160 */
-- -1,161,162,163,164,165,166,167,168,169, -1, -1, -1, -1, -1, -1, /* 176 */
-- 95, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 192 */
-- 192,193,194,195,196,197,198,199,200,201, -1, -1, -1, -1, -1, -1, /* 208 */
-- 208,209,210,211,212,213,214,215,216,217, -1, -1, -1, -1, -1, -1, /* 224 */
-- 224, -1,226,227,228,229,230,231,232,233, -1, -1, -1, -1, -1, -1, /* 240 */
-- 240,241,242,243,244,245,246,247,248,249, -1, -1, -1, -1, -1,255 /* 256 */
--};
-+ desc = iconv_open (to, from);
-+ if (desc == (iconv_t) -1)
-+ perror_with_name ("Converting character sets");
-+ cleanups = make_cleanup (cleanup_iconv, &desc);
-
-+ inleft = num_bytes;
-+ inp = (char *) bytes;
-
--static int
--table_convert_char (void *baton, int from, int *to)
--{
-- int *table = (int *) baton;
-+ space_request = num_bytes;
-
-- if (0 <= from && from <= 255
-- && table[from] != -1)
-+ while (inleft > 0)
- {
-- *to = table[from];
-- return 1;
-+ char *outp;
-+ size_t outleft, r;
-+ int old_size;
-+
-+ old_size = obstack_object_size (output);
-+ obstack_blank (output, space_request);
-+
-+ outp = obstack_base (output) + old_size;
-+ outleft = space_request;
-+
-+ r = iconv (desc, &inp, &inleft, &outp, &outleft);
-+
-+ /* Now make sure that the object on the obstack only includes
-+ bytes we have converted. */
-+ obstack_blank (output, - (int) outleft);
-+
-+ if (r == (size_t) -1)
-+ {
-+ switch (errno)
-+ {
-+ case EILSEQ:
-+ {
-+ int i;
-+
-+ /* Invalid input sequence. */
-+ if (translit == translit_none)
-+ error (_("Could not convert character to `%s' character set"),
-+ to);
-+
-+ /* We emit escape sequence for the bytes, skip them,
-+ and try again. */
-+ for (i = 0; i < width; ++i)
-+ {
-+ char octal[5];
-+
-+ sprintf (octal, "\\%.3o", *inp & 0xff);
-+ obstack_grow_str (output, octal);
-+
-+ ++inp;
-+ --inleft;
-+ }
-+ }
-+ break;
-+
-+ case E2BIG:
-+ /* We ran out of space in the output buffer. Make it
-+ bigger next time around. */
-+ space_request *= 2;
-+ break;
-+
-+ case EINVAL:
-+ /* Incomplete input sequence. FIXME: ought to report this
-+ to the caller somehow. */
-+ inleft = 0;
-+ break;
-+
-+ default:
-+ perror_with_name ("Internal error while converting character sets");
-+ }
-+ }
- }
-- else
-- return 0;
--}
--
-
--static struct translation *
--table_translation (const char *from, const char *to, int *table,
-- const char *(*c_target_char_has_backslash_escape)
-- (void *baton, int target_char),
-- void *c_target_char_has_backslash_escape_baton,
-- int (*c_parse_backslash) (void *baton,
-- int host_char,
-- int *target_char),
-- void *c_parse_backslash_baton)
--{
-- struct translation *t = xmalloc (sizeof (*t));
--
-- memset (t, 0, sizeof (*t));
-- t->from = from;
-- t->to = to;
-- t->c_target_char_has_backslash_escape = c_target_char_has_backslash_escape;
-- t->c_target_char_has_backslash_escape_baton
-- = c_target_char_has_backslash_escape_baton;
-- t->c_parse_backslash = c_parse_backslash;
-- t->c_parse_backslash_baton = c_parse_backslash_baton;
-- t->convert_char = table_convert_char;
-- t->convert_char_baton = (void *) table;
--
-- return t;
-+ do_cleanups (cleanups);
- }
-
--
--static struct translation *
--simple_table_translation (const char *from, const char *to, int *table)
--{
-- return table_translation (from, to, table, 0, 0, 0, 0);
--}
--
--
- \f
--/* Setting and retrieving the host and target charsets. */
--
--
--/* The current host and target character sets. */
--static struct charset *current_host_charset, *current_target_charset;
--
--/* The current functions and batons we should use for the functions in
-- charset.h. */
--
--static const char *(*c_target_char_has_backslash_escape_func)
-- (void *baton, int target_char);
--static void *c_target_char_has_backslash_escape_baton;
--
--static int (*c_parse_backslash_func) (void *baton,
-- int host_char,
-- int *target_char);
--static void *c_parse_backslash_baton;
--
--static int (*host_char_to_target_func) (void *baton,
-- int host_char,
-- int *target_char);
--static void *host_char_to_target_baton;
--
--static int (*target_char_to_host_func) (void *baton,
-- int target_char,
-- int *host_char);
--static void *target_char_to_host_baton;
-
--
--/* Cached iconv conversions, that might be useful to fallback
-- routines. */
--static struct cached_iconv cached_iconv_host_to_target;
--static struct cached_iconv cached_iconv_target_to_host;
--
--\f
--/* Charset structures manipulation functions. */
--
--static struct charset *
--lookup_charset_or_error (const char *name)
-+/* An iterator that returns host wchar_t's from a target string. */
-+struct wchar_iterator
- {
-- struct charset *cs = lookup_charset (name);
-+ /* The underlying iconv descriptor. */
-+ iconv_t desc;
-
-- if (! cs)
-- error (_("GDB doesn't know of any character set named `%s'."), name);
-+ /* The input string. This is updated as convert characters. */
-+ char *input;
-+ /* The number of bytes remaining in the input. */
-+ size_t bytes;
-
-- return cs;
--}
-+ /* The width of an input character. */
-+ size_t width;
-
--static void
--check_valid_host_charset (struct charset *cs)
--{
-- if (! cs->valid_host_charset)
-- error (_("GDB can't use `%s' as its host character set."), cs->name);
--}
-+ /* The output buffer and its size. */
-+ wchar_t *out;
-+ size_t out_size;
-+};
-
--/* Set the host and target character sets to HOST and TARGET. */
--static void
--set_host_and_target_charsets (struct charset *host, struct charset *target)
-+/* Create a new iterator. */
-+struct wchar_iterator *
-+make_wchar_iterator (const gdb_byte *input, size_t bytes, const char *charset,
-+ size_t width)
- {
-- struct translation *h2t, *t2h;
--
-- /* If they're not both initialized yet, then just do nothing for
-- now. As soon as we're done running our initialize function,
-- everything will be initialized. */
-- if (! host || ! target)
-- {
-- current_host_charset = host;
-- current_target_charset = target;
-- return;
-- }
--
-- h2t = lookup_translation (host->name, target->name);
-- t2h = lookup_translation (target->name, host->name);
--
-- /* If the translations don't provide conversion functions, make sure
-- iconv can back them up. Do this *before* modifying any state. */
-- if (host != target)
-- {
-- if (! h2t || ! h2t->convert_char)
-- {
-- if (check_iconv_cache (&cached_iconv_host_to_target, host, target)
-- < 0)
-- error (_("GDB can't convert from the `%s' character set to `%s'."),
-- host->name, target->name);
-- }
-- if (! t2h || ! t2h->convert_char)
-- {
-- if (check_iconv_cache (&cached_iconv_target_to_host, target, host)
-- < 0)
-- error (_("GDB can't convert from the `%s' character set to `%s'."),
-- target->name, host->name);
-- }
-- }
--
-- if (t2h && t2h->c_target_char_has_backslash_escape)
-- {
-- c_target_char_has_backslash_escape_func
-- = t2h->c_target_char_has_backslash_escape;
-- c_target_char_has_backslash_escape_baton
-- = t2h->c_target_char_has_backslash_escape_baton;
-- }
-- else
-- c_target_char_has_backslash_escape_func
-- = default_c_target_char_has_backslash_escape;
--
-- if (h2t && h2t->c_parse_backslash)
-- {
-- c_parse_backslash_func = h2t->c_parse_backslash;
-- c_parse_backslash_baton = h2t->c_parse_backslash_baton;
-- }
-- else
-- c_parse_backslash_func = default_c_parse_backslash;
--
-- if (h2t && h2t->convert_char)
-- {
-- host_char_to_target_func = h2t->convert_char;
-- host_char_to_target_baton = h2t->convert_char_baton;
-- }
-- else if (host == target)
-- host_char_to_target_func = identity_either_char_to_other;
-- else
-- {
-- host_char_to_target_func = iconv_convert;
-- host_char_to_target_baton = &cached_iconv_host_to_target;
-- }
-+ struct wchar_iterator *result;
-+ iconv_t desc;
-
-- if (t2h && t2h->convert_char)
-- {
-- target_char_to_host_func = t2h->convert_char;
-- target_char_to_host_baton = t2h->convert_char_baton;
-- }
-- else if (host == target)
-- target_char_to_host_func = identity_either_char_to_other;
-- else
-- {
-- target_char_to_host_func = iconv_convert;
-- target_char_to_host_baton = &cached_iconv_target_to_host;
-- }
-+ desc = iconv_open ("wchar_t", charset);
-+ if (desc == (iconv_t) -1)
-+ perror_with_name ("Converting character sets");
-
-- current_host_charset = host;
-- current_target_charset = target;
--}
--
--/* Do the real work of setting the host charset. */
--static void
--set_host_charset (const char *charset)
--{
-- struct charset *cs = lookup_charset_or_error (charset);
-- check_valid_host_charset (cs);
-- set_host_and_target_charsets (cs, current_target_charset);
--}
-+ result = XNEW (struct wchar_iterator);
-+ result->desc = desc;
-+ result->input = (char *) input;
-+ result->bytes = bytes;
-+ result->width = width;
-
--/* Do the real work of setting the target charset. */
--static void
--set_target_charset (const char *charset)
--{
-- struct charset *cs = lookup_charset_or_error (charset);
-+ result->out = XNEW (wchar_t);
-+ result->out_size = 1;
+ case LOC_LOCAL:
+ addr = get_frame_locals_address (frame);
+ addr += SYMBOL_VALUE (var);
+- v = allocate_value_lazy (type);
+ break;
-- set_host_and_target_charsets (current_host_charset, cs);
-+ return result;
- }
+ case LOC_TYPEDEF:
+@@ -508,7 +499,6 @@ read_var_value (struct symbol *var, stru
+ break;
--\f
--/* 'Set charset', 'set host-charset', 'set target-charset', 'show
-- charset' sfunc's. */
--
--/* This is the sfunc for the 'set charset' command. */
- static void
--set_charset_sfunc (char *charset, int from_tty, struct cmd_list_element *c)
-+do_cleanup_iterator (void *p)
- {
-- struct charset *cs = lookup_charset_or_error (host_charset_name);
-- check_valid_host_charset (cs);
-- /* CAREFUL: set the target charset here as well. */
-- target_charset_name = host_charset_name;
-- set_host_and_target_charsets (cs, cs);
--}
-+ struct wchar_iterator *iter = p;
-
--/* 'set host-charset' command sfunc. We need a wrapper here because
-- the function needs to have a specific signature. */
--static void
--set_host_charset_sfunc (char *charset, int from_tty,
-- struct cmd_list_element *c)
--{
-- set_host_charset (host_charset_name);
-+ iconv_close (iter->desc);
-+ xfree (iter->out);
-+ xfree (iter);
- }
+ case LOC_BLOCK:
+- v = allocate_value_lazy (type);
+ if (overlay_debugging)
+ addr = symbol_overlayed_address
+ (BLOCK_START (SYMBOL_BLOCK_VALUE (var)), SYMBOL_OBJ_SECTION (var));
+@@ -533,7 +523,6 @@ read_var_value (struct symbol *var, stru
+ error (_("Value of register variable not available."));
--/* Wrapper for the 'set target-charset' command. */
--static void
--set_target_charset_sfunc (char *charset, int from_tty,
-- struct cmd_list_element *c)
-+struct cleanup *
-+make_cleanup_wchar_iterator (struct wchar_iterator *iter)
- {
-- set_target_charset (target_charset_name);
-+ return make_cleanup (do_cleanup_iterator, iter);
- }
+ addr = value_as_address (regval);
+- v = allocate_value_lazy (type);
+ }
+ else
+ {
+@@ -572,7 +561,6 @@ read_var_value (struct symbol *var, stru
+ if (obj_section
+ && (obj_section->the_bfd_section->flags & SEC_THREAD_LOCAL) != 0)
+ addr = target_translate_tls_address (obj_section->objfile, addr);
+- v = allocate_value_lazy (type);
+ }
+ break;
--/* sfunc for the 'show charset' command. */
--static void
--show_charset (struct ui_file *file, int from_tty, struct cmd_list_element *c,
-- const char *name)
--{
-- if (current_host_charset == current_target_charset)
-- fprintf_filtered (file,
-- _("The current host and target character set is `%s'.\n"),
-- host_charset ());
-- else
-+int
-+wchar_iterate (struct wchar_iterator *iter,
-+ enum wchar_iterate_result *out_result,
-+ wchar_t **out_chars,
-+ const gdb_byte **ptr,
-+ size_t *len)
-+{
-+ size_t out_request;
-+
-+ /* Try to convert some characters. At first we try to convert just
-+ a single character. The reason for this is that iconv does not
-+ necessarily update its outgoing arguments when it encounters an
-+ invalid input sequence -- but we want to reliably report this to
-+ our caller so it can emit an escape sequence. */
-+ out_request = 1;
-+ while (iter->bytes > 0)
- {
-- fprintf_filtered (file, _("The current host character set is `%s'.\n"),
-- host_charset ());
-- fprintf_filtered (file, _("The current target character set is `%s'.\n"),
-- target_charset ());
-+ char *outptr = (char *) &iter->out[0];
-+ char *orig_inptr = iter->input;
-+ size_t orig_in = iter->bytes;
-+ size_t out_avail = out_request * sizeof (wchar_t);
-+ size_t num;
-+ wchar_t result;
-+
-+ size_t r = iconv (iter->desc, (char **) &iter->input, &iter->bytes,
-+ &outptr, &out_avail);
-+ if (r == (size_t) -1)
-+ {
-+ switch (errno)
-+ {
-+ case EILSEQ:
-+ /* Invalid input sequence. Skip it, and let the caller
-+ know about it. */
-+ *out_result = wchar_iterate_invalid;
-+ *ptr = iter->input;
-+ *len = iter->width;
-+ iter->input += iter->width;
-+ iter->bytes -= iter->width;
-+ return 0;
-+
-+ case E2BIG:
-+ /* We ran out of space. We still might have converted a
-+ character; if so, return it. Otherwise, grow the
-+ buffer and try again. */
-+ if (out_avail < out_request * sizeof (wchar_t))
-+ break;
-+
-+ ++out_request;
-+ if (out_request > iter->out_size)
-+ {
-+ iter->out_size = out_request;
-+ iter->out = xrealloc (iter->out,
-+ out_request * sizeof (wchar_t));
-+ }
-+ continue;
-+
-+ case EINVAL:
-+ /* Incomplete input sequence. Let the caller know, and
-+ arrange for future calls to see EOF. */
-+ *out_result = wchar_iterate_incomplete;
-+ *ptr = iter->input;
-+ *len = iter->bytes;
-+ iter->bytes = 0;
-+ return 0;
-+
-+ default:
-+ perror_with_name ("Internal error while converting character sets");
-+ }
-+ }
-+
-+ /* We converted something. */
-+ num = out_request - out_avail / sizeof (wchar_t);
-+ *out_result = wchar_iterate_ok;
-+ *out_chars = iter->out;
-+ *ptr = orig_inptr;
-+ *len = orig_in - iter->bytes;
-+ return num;
+@@ -587,6 +575,10 @@ read_var_value (struct symbol *var, stru
+ break;
}
-+
-+ /* Really done. */
-+ *out_result = wchar_iterate_eof;
-+ return -1;
- }
-
- \f
--/* Accessor functions. */
-+/* The charset.c module initialization function. */
-
--const char *
--host_charset (void)
--{
-- return current_host_charset->name;
--}
-+extern initialize_file_ftype _initialize_charset; /* -Wmissing-prototype */
-
--const char *
--target_charset (void)
--{
-- return current_target_charset->name;
--}
-+typedef char *char_ptr;
-+DEF_VEC_P (char_ptr);
-
-+static VEC (char_ptr) *charsets;
-
--\f
--/* Public character management functions. */
-+#ifdef HAVE_ICONVLIST
-
-+/* A helper function that adds some character sets to the vector of
-+ all character sets. This is a callback function for iconvlist. */
-
--const char *
--c_target_char_has_backslash_escape (int target_char)
-+static int
-+add_one (unsigned int count, const char *const *names, void *data)
- {
-- return ((*c_target_char_has_backslash_escape_func)
-- (c_target_char_has_backslash_escape_baton, target_char));
--}
-+ unsigned int i;
-
-+ for (i = 0; i < count; ++i)
-+ VEC_safe_push (char_ptr, charsets, xstrdup (names[i]));
-
--int
--c_parse_backslash (int host_char, int *target_char)
--{
-- return (*c_parse_backslash_func) (c_parse_backslash_baton,
-- host_char, target_char);
-+ return 0;
- }
-
--
--int
--host_char_print_literally (int host_char)
-+static void
-+find_charset_names (void)
- {
-- return ((*current_host_charset->host_char_print_literally)
-- (current_host_charset->host_char_print_literally_baton,
-- host_char));
-+ iconvlist (add_one, NULL);
-+ VEC_safe_push (char_ptr, charsets, NULL);
- }
-
-+#else
--int
--target_char_to_control_char (int target_char, int *target_ctrl_char)
-+static void
-+find_charset_names (void)
++ /* ADDR is set here for ALLOCATE_VALUE's CHECK_TYPEDEF for
++ DW_OP_PUSH_OBJECT_ADDRESS. */
++ object_address_set (addr);
++ v = allocate_value_lazy (type);
+ VALUE_LVAL (v) = lval_memory;
+ set_value_address (v, addr);
+ return v;
+@@ -626,11 +618,12 @@ struct value *
+ value_from_register (struct type *type, int regnum, struct frame_info *frame)
{
-- return ((*current_target_charset->target_char_to_control_char)
-- (current_target_charset->target_char_to_control_char_baton,
-- target_char, target_ctrl_char));
--}
-+ FILE *in;
-
-+ in = popen ("iconv -l", "r");
-+ /* It is ok to ignore errors; we'll fall back on a default. */
-+ if (!in)
-+ return;
+ struct gdbarch *gdbarch = get_frame_arch (frame);
+- struct type *type1 = check_typedef (type);
+ struct value *v;
+ int optim, unavail, ok;
--int
--host_char_to_target (int host_char, int *target_char)
--{
-- return ((*host_char_to_target_func)
-- (host_char_to_target_baton, host_char, target_char));
--}
-+ /* POSIX says that iconv -l uses an unspecified format. We parse
-+ the glibc format; feel free to add others as needed. */
-+ while (!feof (in))
-+ {
-+ /* The size of buf is chosen arbitrarily. A character set name
-+ longer than this would not be very nice. */
-+ char buf[80];
-+ int len;
-+ char *r = fgets (buf, sizeof (buf), in);
-+ if (!r)
-+ break;
-+ len = strlen (r);
-+ if (len <= 3)
-+ continue;
-+ if (buf[len - 2] == '/' && buf[len - 3] == '/')
-+ buf[len - 3] = '\0';
-+ VEC_safe_push (char_ptr, charsets, xstrdup (buf));
-+ }
+- if (gdbarch_convert_register_p (gdbarch, regnum, type1))
++ type = check_typedef (type);
++
++ if (gdbarch_convert_register_p (gdbarch, regnum, type))
+ {
+ /* The ISA/ABI need to something weird when obtaining the
+ specified value from this register. It might need to
+@@ -643,7 +636,7 @@ value_from_register (struct type *type,
+ VALUE_LVAL (v) = lval_register;
+ VALUE_FRAME_ID (v) = get_frame_id (frame);
+ VALUE_REGNUM (v) = regnum;
+- ok = gdbarch_register_to_value (gdbarch, frame, regnum, type1,
++ ok = gdbarch_register_to_value (gdbarch, frame, regnum, type,
+ value_contents_raw (v), &optim,
+ &unavail);
+ }
+Index: gdb-7.2.90.20110703/gdb/gdbinit.in
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/gdbinit.in 2009-10-05 15:46:52.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/gdbinit.in 2011-07-03 10:33:11.000000000 +0200
+@@ -1,5 +1,15 @@
+ echo Setting up the environment for debugging gdb.\n
-+ pclose (in);
++# Set up the Python library and "require" command.
++python
++from os.path import abspath
++gdb.datadir = abspath ('@srcdir@/python/lib')
++gdb.pythonlibdir = gdb.datadir
++gdb.__path__ = [gdb.datadir + '/gdb']
++sys.path.insert(0, gdb.datadir)
++end
++source @srcdir@/python/lib/gdb/__init__.py
++
+ set complaints 1
--int
--target_char_to_host (int target_char, int *host_char)
--{
-- return ((*target_char_to_host_func)
-- (target_char_to_host_baton, target_char, host_char));
-+ VEC_safe_push (char_ptr, charsets, NULL);
- }
+ b internal_error
+Index: gdb-7.2.90.20110703/gdb/gdbtypes.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/gdbtypes.c 2011-03-28 22:21:03.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/gdbtypes.c 2011-07-03 10:33:11.000000000 +0200
+@@ -39,6 +39,9 @@
+ #include "cp-abi.h"
+ #include "gdb_assert.h"
+ #include "hashtab.h"
++#include "observer.h"
++#include "dwarf2expr.h"
++#include "dwarf2loc.h"
--
--\f
--/* The charset.c module initialization function. */
--
--extern initialize_file_ftype _initialize_charset; /* -Wmissing-prototype */
-+#endif /* HAVE_ICONVLIST */
- void
- _initialize_charset (void)
- {
- struct cmd_list_element *new_cmd;
+ /* Initialize BADNESS constants. */
+@@ -144,7 +147,16 @@ static void print_bit_vector (B_TYPE *,
+ static void print_arg_types (struct field *, int, int);
+ static void dump_fn_fieldlists (struct type *, int);
+ static void print_cplus_stuff (struct type *, int);
++static LONGEST type_length_get (struct type *type, struct type *target_type,
++ int full_span);
-- /* Register all the character set GDB knows about.
--
-- You should use the same names that iconv does, where possible, to
-- take advantage of the iconv-based default behaviors.
--
-- CAUTION: if you register a character set, you must also register
-- as many translations as are necessary to make that character set
-- interoperate correctly with all the other character sets. We do
-- provide default behaviors when no translation is available, or
-- when a translation's function pointer for a particular operation
-- is zero. Hopefully, these defaults will be correct often enough
-- that we won't need to provide too many translations. */
-- register_charset (simple_charset ("ASCII", 1,
-- ascii_print_literally, 0,
-- ascii_to_control, 0));
-- register_charset (iso_8859_family_charset ("ISO-8859-1"));
-- register_charset (ebcdic_family_charset ("EBCDIC-US"));
-- register_charset (ebcdic_family_charset ("IBM1047"));
-- register_iconv_charsets ();
--
-- {
-- struct { char *from; char *to; int *table; } tlist[] = {
-- { "ASCII", "ISO-8859-1", ascii_to_iso_8859_1_table },
-- { "ASCII", "EBCDIC-US", ascii_to_ebcdic_us_table },
-- { "ASCII", "IBM1047", ascii_to_ibm1047_table },
-- { "ISO-8859-1", "ASCII", iso_8859_1_to_ascii_table },
-- { "ISO-8859-1", "EBCDIC-US", iso_8859_1_to_ebcdic_us_table },
-- { "ISO-8859-1", "IBM1047", iso_8859_1_to_ibm1047_table },
-- { "EBCDIC-US", "ASCII", ebcdic_us_to_ascii_table },
-- { "EBCDIC-US", "ISO-8859-1", ebcdic_us_to_iso_8859_1_table },
-- { "EBCDIC-US", "IBM1047", ebcdic_us_to_ibm1047_table },
-- { "IBM1047", "ASCII", ibm1047_to_ascii_table },
-- { "IBM1047", "ISO-8859-1", ibm1047_to_iso_8859_1_table },
-- { "IBM1047", "EBCDIC-US", ibm1047_to_ebcdic_us_table }
-- };
--
-- int i;
--
-- for (i = 0; i < (sizeof (tlist) / sizeof (tlist[0])); i++)
-- register_translation (simple_table_translation (tlist[i].from,
-- tlist[i].to,
-- tlist[i].table));
-- }
--
-- set_host_charset (host_charset_name);
-- set_target_charset (target_charset_name);
-+ /* The first element is always "auto"; then we skip it for the
-+ commands where it is not allowed. */
-+ VEC_safe_push (char_ptr, charsets, "auto");
-+ find_charset_names ();
-+
-+ if (VEC_length (char_ptr, charsets) > 1)
-+ charset_enum = default_charset_names;
-+ else
-+ charset_enum = (const char **) VEC_address (char_ptr, charsets);
-+
-+#ifdef HAVE_LANGINFO_CODESET
-+ auto_host_charset_name = nl_langinfo (CODESET);
-+ target_charset_name = auto_host_charset_name;
++#if 0
++/* The hash table holding all discardable `struct type *' references. */
++static htab_t type_discardable_table;
+
-+ set_be_le_names ();
++/* Current type_discardable_check pass used for TYPE_DISCARDABLE_AGE. */
++static int type_discardable_age_current;
+#endif
- add_setshow_enum_cmd ("charset", class_support,
-- host_charset_enum, &host_charset_name, _("\
-+ &charset_enum[1], &host_charset_name, _("\
- Set the host and target character sets."), _("\
- Show the host and target character sets."), _("\
- The `host character set' is the one used by the system GDB is running on.\n\
-@@ -1249,7 +650,7 @@ To see a list of the character sets GDB supports, type `set charset <TAB>'."),
- &setlist, &showlist);
-
- add_setshow_enum_cmd ("host-charset", class_support,
-- host_charset_enum, &host_charset_name, _("\
-+ charset_enum, &host_charset_name, _("\
- Set the host character set."), _("\
- Show the host character set."), _("\
- The `host character set' is the one used by the system GDB is running on.\n\
-@@ -1261,7 +662,7 @@ To see a list of the character sets GDB supports, type `set host-charset <TAB>'.
- &setlist, &showlist);
-
- add_setshow_enum_cmd ("target-charset", class_support,
-- target_charset_enum, &target_charset_name, _("\
-+ &charset_enum[1], &target_charset_name, _("\
- Set the target character set."), _("\
- Show the target character set."), _("\
- The `target character set' is the one used by the program being debugged.\n\
-@@ -1271,4 +672,19 @@ To see a list of the character sets GDB supports, type `set target-charset'<TAB>
- set_target_charset_sfunc,
- show_target_charset_name,
- &setlist, &showlist);
-+
-+ add_setshow_enum_cmd ("target-wide-charset", class_support,
-+ &charset_enum[1], &target_wide_charset_name,
-+ _("\
-+Set the target wide character set."), _("\
-+Show the target wide character set."), _("\
-+The `target wide character set' is the one used by the program being debugged.\n\
-+In particular it is the encoding used by `wchar_t'.\n\
-+GDB translates characters and strings between the host and target\n\
-+character sets as needed.\n\
-+To see a list of the character sets GDB supports, type\n\
-+`set target-wide-charset'<TAB>"),
-+ set_target_wide_charset_sfunc,
-+ show_target_wide_charset_name,
-+ &setlist, &showlist);
+ /* Allocate a new OBJFILE-associated type structure and fill it
+ with some defaults. Space for the type structure is allocated
+@@ -175,6 +187,43 @@ alloc_type (struct objfile *objfile)
+ return type;
}
-diff --git a/gdb/charset.h b/gdb/charset.h
-index 21780b6..2455355 100644
---- a/gdb/charset.h
-+++ b/gdb/charset.h
-@@ -19,6 +19,7 @@
- #ifndef CHARSET_H
- #define CHARSET_H
-
-+#include <wchar.h>
-
- /* If the target program uses a different character set than the host,
- GDB has some support for translating between the two; GDB converts
-@@ -26,82 +27,123 @@
- them, and converts characters and strings appearing in expressions
- entered by the user to the target character set.
-
-- At the moment, GDB only supports single-byte, stateless character
-- sets. This includes the ISO-8859 family (ASCII extended with
-- accented characters, and (I think) Cyrillic, for European
-- languages), and the EBCDIC family (used on IBM's mainframes).
-- Unfortunately, it excludes many Asian scripts, the fixed- and
-- variable-width Unicode encodings, and other desireable things.
-- Patches are welcome! (For example, it would be nice if the Java
-- string support could simply get absorbed into some more general
-- multi-byte encoding support.)
--
-- Furthermore, GDB's code pretty much assumes that the host character
-- set is some superset of ASCII; there are plenty if ('0' + n)
-- expressions and the like.
--
-- When the `iconv' library routine supports a character set meeting
-- the requirements above, it's easy to plug an entry into GDB's table
-- that uses iconv to handle the details. */
-+ GDB's code pretty much assumes that the host character set is some
-+ superset of ASCII; there are plenty if ('0' + n) expressions and
-+ the like. */
-
- /* Return the name of the current host/target character set. The
- result is owned by the charset module; the caller should not free
- it. */
- const char *host_charset (void);
- const char *target_charset (void);
--
--/* In general, the set of C backslash escapes (\n, \f) is specific to
-- the character set. Not all character sets will have form feed
-- characters, for example.
--
-- The following functions allow GDB to parse and print control
-- characters in a character-set-independent way. They are both
-- language-specific (to C and C++) and character-set-specific.
-- Putting them here is a compromise. */
--
--
--/* If the target character TARGET_CHAR have a backslash escape in the
-- C language (i.e., a character like 'n' or 't'), return the host
-- character string that should follow the backslash. Otherwise,
-- return zero.
--
-- When this function returns non-zero, the string it returns is
-- statically allocated; the caller is not responsible for freeing it. */
--const char *c_target_char_has_backslash_escape (int target_char);
--
--
--/* If the host character HOST_CHAR is a valid backslash escape in the
-- C language for the target character set, return non-zero, and set
-- *TARGET_CHAR to the target character the backslash escape represents.
-- Otherwise, return zero. */
--int c_parse_backslash (int host_char, int *target_char);
--
--
--/* Return non-zero if the host character HOST_CHAR can be printed
-- literally --- that is, if it can be readably printed as itself in a
-- character or string constant. Return zero if it should be printed
-- using some kind of numeric escape, like '\031' in C, '^(25)' in
-- Chill, or #25 in Pascal. */
--int host_char_print_literally (int host_char);
--
--
--/* If the host character HOST_CHAR has an equivalent in the target
-- character set, set *TARGET_CHAR to that equivalent, and return
-- non-zero. Otherwise, return zero. */
--int host_char_to_target (int host_char, int *target_char);
--
--
--/* If the target character TARGET_CHAR has an equivalent in the host
-- character set, set *HOST_CHAR to that equivalent, and return
-- non-zero. Otherwise, return zero. */
--int target_char_to_host (int target_char, int *host_char);
--
--
--/* If the target character TARGET_CHAR has a corresponding control
-- character (also in the target character set), set *TARGET_CTRL_CHAR
-- to the control character, and return non-zero. Otherwise, return
-- zero. */
--int target_char_to_control_char (int target_char, int *target_ctrl_char);
--
-+const char *target_wide_charset (void);
+
++#if 0
++/* Declare TYPE as discardable on next garbage collection by free_all_types.
++ You must call type_mark_used during each free_all_types to protect TYPE from
++ being deallocated. */
+
-+/* These values are used to specify the type of transliteration done
-+ by convert_between_encodings. */
-+enum transliterations
-+ {
-+ /* Error on failure to convert. */
-+ translit_none,
-+ /* Transliterate to host char. */
-+ translit_char
-+ };
++static void
++set_type_as_discardable (struct type *type)
++{
++ void **slot;
+
-+/* Convert between two encodings.
-+
-+ FROM is the name of the source encoding.
-+ TO is the name of the target encoding.
-+ BYTES holds the bytes to convert; this is assumed to be characters
-+ in the target encoding.
-+ NUM_BYTES is the number of bytes.
-+ WIDTH is the width of a character from the FROM charset, in bytes.
-+ For a variable width encoding, WIDTH should be the size of a "base
-+ character".
-+ OUTPUT is an obstack where the converted data is written. The
-+ caller is responsible for initializing the obstack, and for
-+ destroying the obstack should an error occur.
-+ TRANSLIT specifies how invalid conversions should be handled. */
-+void convert_between_encodings (const char *from, const char *to,
-+ const gdb_byte *bytes, unsigned int num_bytes,
-+ int width, struct obstack *output,
-+ enum transliterations translit);
-+
-+
-+/* These values are used by wchar_iterate to report errors. */
-+enum wchar_iterate_result
-+ {
-+ /* Ordinary return. */
-+ wchar_iterate_ok,
-+ /* Invalid input sequence. */
-+ wchar_iterate_invalid,
-+ /* Incomplete input sequence at the end of the input. */
-+ wchar_iterate_incomplete,
-+ /* EOF. */
-+ wchar_iterate_eof
-+ };
++ gdb_assert (!TYPE_DISCARDABLE (type));
+
-+/* Declaration of the opaque wchar iterator type. */
-+struct wchar_iterator;
-+
-+/* Create a new character iterator which returns wchar_t's. INPUT is
-+ the input buffer. BYTES is the number of bytes in the input
-+ buffer. CHARSET is the name of the character set in which INPUT is
-+ encoded. WIDTH is the number of bytes in a base character of
-+ CHARSET.
-+
-+ This function either returns a new character set iterator, or calls
-+ error. The result can be freed using a cleanup; see
-+ make_cleanup_wchar_iterator. */
-+struct wchar_iterator *make_wchar_iterator (const gdb_byte *input, size_t bytes,
-+ const char *charset,
-+ size_t width);
-+
-+/* Return a new cleanup suitable for destroying the wchar iterator
-+ ITER. */
-+struct cleanup *make_cleanup_wchar_iterator (struct wchar_iterator *iter);
-+
-+/* Perform a single iteration of a wchar_t iterator.
-+
-+ Returns the number of characters converted. A negative result
-+ means that EOF has been reached. A positive result indicates the
-+ number of valid wchar_ts in the result; *OUT_CHARS is updated to
-+ point to the first valid character.
-+
-+ In all cases aside from EOF, *PTR is set to point to the first
-+ converted target byte. *LEN is set to the number of bytes
-+ converted.
-+
-+ A zero result means one of several unusual results. *OUT_RESULT is
-+ set to indicate the type of un-ordinary return.
-+
-+ wchar_iterate_invalid means that an invalid input character was
-+ seen. The iterator is advanced by WIDTH (the argument to
-+ make_wchar_iterator) bytes.
-+
-+ wchar_iterate_incomplete means that an incomplete character was
-+ seen at the end of the input sequence.
-+
-+ wchar_iterate_eof means that all bytes were successfully
-+ converted. The other output arguments are not set. */
-+int wchar_iterate (struct wchar_iterator *iter,
-+ enum wchar_iterate_result *out_result,
-+ wchar_t **out_chars,
-+ const gdb_byte **ptr, size_t *len);
++ TYPE_DISCARDABLE (type) = 1;
++ TYPE_DISCARDABLE_AGE (type) = type_discardable_age_current;
+
-+\f
++ slot = htab_find_slot (type_discardable_table, type, INSERT);
++ gdb_assert (!*slot);
++ *slot = type;
++}
++#endif
++
++/* Allocate a new type like alloc_type but preserve for it the discardability
++ state of PARENT_TYPE. */
+
-+/* GDB needs to know a few details of its execution character set.
-+ This knowledge is isolated here and in charset.c. */
++static struct type *
++alloc_type_as_parent (struct type *parent_type)
++{
++ struct type *new_type = alloc_type_copy (parent_type);
+
-+/* The escape character. */
-+#define HOST_ESCAPE_CHAR 27
++#if 0
++ if (TYPE_DISCARDABLE (parent_type))
++ set_type_as_discardable (new_type);
++#endif
+
-+/* Convert a letter, like 'c', to its corresponding control
-+ character. */
-+char host_letter_to_control_character (char c);
++ return new_type;
++}
+
-+/* Convert a hex digit character to its numeric value. E.g., 'f' is
-+ converted to 15. This function assumes that C is a valid hex
-+ digit. Both upper- and lower-case letters are recognized. */
-+int host_hex_value (char c);
+ /* Allocate a new GDBARCH-associated type structure and fill it
+ with some defaults. Space for the type structure is allocated
+ on the heap. */
+@@ -300,7 +349,7 @@ make_pointer_type (struct type *type, st
- #endif /* CHARSET_H */
-diff --git a/gdb/cli/cli-cmds.c b/gdb/cli/cli-cmds.c
-index 4d9c4f3..5fbe398 100644
---- a/gdb/cli/cli-cmds.c
-+++ b/gdb/cli/cli-cmds.c
-@@ -45,6 +45,8 @@
- #include "cli/cli-setshow.h"
- #include "cli/cli-cmds.h"
-
-+#include "python/python.h"
-+
- #ifdef TUI
- #include "tui/tui.h" /* For tui_active et.al. */
- #endif
-@@ -178,6 +180,7 @@ struct cmd_list_element *showchecklist;
-
- /* Command tracing state. */
-
-+static int source_python = 0;
- int source_verbose = 0;
- int trace_commands = 0;
- \f
-@@ -439,6 +442,7 @@ source_script (char *file, int from_tty)
- struct cleanup *old_cleanups;
- char *full_pathname = NULL;
- int fd;
-+ int is_python;
+ if (typeptr == 0 || *typeptr == 0) /* We'll need to allocate one. */
+ {
+- ntype = alloc_type_copy (type);
++ ntype = alloc_type_as_parent (type);
+ if (typeptr)
+ *typeptr = ntype;
+ }
+@@ -377,7 +426,7 @@ make_reference_type (struct type *type,
- if (file == NULL || *file == 0)
+ if (typeptr == 0 || *typeptr == 0) /* We'll need to allocate one. */
{
-@@ -471,8 +475,16 @@ source_script (char *file, int from_tty)
- }
+- ntype = alloc_type_copy (type);
++ ntype = alloc_type_as_parent (type);
+ if (typeptr)
+ *typeptr = ntype;
}
+@@ -748,6 +797,7 @@ create_range_type (struct type *result_t
+ TYPE_ZALLOC (result_type, sizeof (struct range_bounds));
+ TYPE_LOW_BOUND (result_type) = low_bound;
+ TYPE_HIGH_BOUND (result_type) = high_bound;
++ TYPE_BYTE_STRIDE (result_type) = 0;
-+ is_python = source_python;
-+ if (strlen (file) > 3 && !strcmp (&file[strlen (file) - 3], ".py"))
-+ is_python = 1;
-+
- stream = fdopen (fd, FOPEN_RT);
-- script_from_file (stream, file);
-+
-+ if (is_python)
-+ source_python_script (stream, file);
-+ else
-+ script_from_file (stream, file);
+ if (low_bound >= 0)
+ TYPE_UNSIGNED (result_type) = 1;
+@@ -891,26 +941,31 @@ create_array_type (struct type *result_t
- do_cleanups (old_cleanups);
- }
-@@ -486,15 +498,30 @@ source_verbose_cleanup (void *old_value)
- xfree (old_value);
- }
+ TYPE_CODE (result_type) = TYPE_CODE_ARRAY;
+ TYPE_TARGET_TYPE (result_type) = element_type;
+- if (get_discrete_bounds (range_type, &low_bound, &high_bound) < 0)
+- low_bound = high_bound = 0;
+- CHECK_TYPEDEF (element_type);
+- /* Be careful when setting the array length. Ada arrays can be
+- empty arrays with the high_bound being smaller than the low_bound.
+- In such cases, the array length should be zero. */
+- if (high_bound < low_bound)
+- TYPE_LENGTH (result_type) = 0;
+- else
+- TYPE_LENGTH (result_type) =
+- TYPE_LENGTH (element_type) * (high_bound - low_bound + 1);
+ TYPE_NFIELDS (result_type) = 1;
+ TYPE_FIELDS (result_type) =
+ (struct field *) TYPE_ZALLOC (result_type, sizeof (struct field));
+ TYPE_INDEX_TYPE (result_type) = range_type;
+ TYPE_VPTR_FIELDNO (result_type) = -1;
-+/* A helper for source_command. Look for an argument in *ARGS.
-+ Update *ARGS by stripping leading whitespace. If an argument is
-+ found, return it (a character). Otherwise, return 0. */
-+static int
-+find_argument (char **args)
-+{
-+ int result = 0;
-+ while (isspace ((*args)[0]))
-+ ++*args;
-+ if ((*args)[0] == '-' && isalpha ((*args)[1]))
+- /* TYPE_FLAG_TARGET_STUB will take care of zero length arrays. */
++ /* DWARF blocks may depend on runtime information like
++ DW_OP_PUSH_OBJECT_ADDRESS not being available during the
++ CREATE_ARRAY_TYPE time. */
++ if (TYPE_RANGE_DATA (range_type)->low.kind != RANGE_BOUND_KIND_CONSTANT
++ || TYPE_RANGE_DATA (range_type)->high.kind != RANGE_BOUND_KIND_CONSTANT
++ || TYPE_DYNAMIC (element_type))
++ TYPE_LENGTH (result_type) = 0;
++ else
+ {
-+ result = (*args)[1];
-+ *args += 3;
++ CHECK_TYPEDEF (element_type);
++ TYPE_LENGTH (result_type) = type_length_get (result_type, element_type,
++ 0);
++ }
+ if (TYPE_LENGTH (result_type) == 0)
+- TYPE_TARGET_STUB (result_type) = 1;
++ {
++ /* The real size will be computed for specific instances by
++ CHECK_TYPEDEF. */
++ TYPE_TARGET_STUB (result_type) = 1;
+ }
-+ return result;
-+}
-+
- static void
- source_command (char *args, int from_tty)
- {
- struct cleanup *old_cleanups;
-- char *file = args;
-- int *old_source_verbose = xmalloc (sizeof(int));
-
-- *old_source_verbose = source_verbose;
-- old_cleanups = make_cleanup (source_verbose_cleanup, old_source_verbose);
-+ old_cleanups = make_cleanup_restore_integer (&source_verbose);
-+ make_cleanup_restore_integer (&source_python);
-
- /* -v causes the source command to run in verbose mode.
- We still have to be able to handle filenames with spaces in a
-@@ -502,23 +529,28 @@ source_command (char *args, int from_tty)
-
- if (args)
- {
-- /* Make sure leading white space does not break the comparisons. */
-- while (isspace(args[0]))
-- args++;
--
-- /* Is -v the first thing in the string? */
-- if (args[0] == '-' && args[1] == 'v' && isspace (args[2]))
-+ while (1)
- {
-- source_verbose = 1;
--
-- /* Trim -v and whitespace from the filename. */
-- file = &args[3];
-- while (isspace (file[0]))
-- file++;
-+ int arg = find_argument (&args);
-+ if (!arg)
-+ break;
-+ switch (arg)
-+ {
-+ case 'v':
-+ source_verbose = 1;
-+ break;
-+ case 'p':
-+ source_python = 1;
-+ break;
-+ default:
-+ error (_("unrecognized option -%c"), arg);
-+ }
- }
- }
-- source_script (file, from_tty);
-+ source_script (args, from_tty);
-+
-+ do_cleanups (old_cleanups);
+ return result_type;
+ }
+@@ -1413,6 +1468,105 @@ stub_noname_complaint (void)
+ complaint (&symfile_complaints, _("stub type has NULL name"));
}
-
-@@ -1282,7 +1314,9 @@ Read commands from a file named FILE.\n\
- Optional -v switch (before the filename) causes each command in\n\
- FILE to be echoed as it is executed.\n\
- Note that the file \"%s\" is read automatically in this way\n\
--when GDB is started."), gdbinit);
-+when GDB is started.\n\
-+Optional -p switch (before the filename) causes FILE to be evaluated\n\
-+as Python code."), gdbinit);
- c = add_cmd ("source", class_support, source_command,
- source_help_text, &cmdlist);
- set_cmd_completer (c, filename_completer);
-diff --git a/gdb/cli/cli-dump.c b/gdb/cli/cli-dump.c
-index ee29f2a..96e6111 100644
---- a/gdb/cli/cli-dump.c
-+++ b/gdb/cli/cli-dump.c
-@@ -296,7 +296,7 @@ dump_value_to_file (char *cmd, char *mode, char *file_format)
-
- if (VALUE_LVAL (val))
- {
-- vaddr = VALUE_ADDRESS (val);
-+ vaddr = value_address (val);
- }
- else
- {
-diff --git a/gdb/coffread.c b/gdb/coffread.c
-index 6059d68..47ee601 100644
---- a/gdb/coffread.c
-+++ b/gdb/coffread.c
-@@ -346,7 +346,7 @@ coff_alloc_type (int index)
- We will fill it in later if we find out how. */
- if (type == NULL)
- {
-- type = alloc_type (current_objfile);
-+ type = alloc_type (current_objfile, NULL);
- *type_addr = type;
- }
- return type;
-@@ -2101,6 +2101,7 @@ static struct sym_fns coff_sym_fns =
- coff_new_init, /* sym_new_init: init anything gbl to entire symtab */
- coff_symfile_init, /* sym_init: read initial info, setup for sym_read() */
- coff_symfile_read, /* sym_read: read a symbol file into symtab */
-+ NULL, /* sym_read_psymbols */
- coff_symfile_finish, /* sym_finish: finished with file, cleanup */
- default_symfile_offsets, /* sym_offsets: xlate external to internal form */
- default_symfile_segments, /* sym_segments: Get segment information from
-diff --git a/gdb/config.in b/gdb/config.in
-index 6aaf77a..0c8ccab 100644
---- a/gdb/config.in
-+++ b/gdb/config.in
-@@ -42,6 +42,12 @@
- language is requested. */
- #undef ENABLE_NLS
-
-+/* Global directory for GDB data files. */
-+#undef GDB_DATADIR
-+
-+/* Define if GDB datadir should be relocated when GDB is moved. */
-+#undef GDB_DATADIR_RELOCATABLE
-+
- /* Define to be a string naming the default host character set. */
- #undef GDB_DEFAULT_HOST_CHARSET
-
-@@ -169,12 +175,18 @@
- /* Define if you have the iconv() function. */
- #undef HAVE_ICONV
-
-+/* Define to 1 if you have the `iconvlist' function. */
-+#undef HAVE_ICONVLIST
-+
- /* Define if your compiler supports the #include_next directive. */
- #undef HAVE_INCLUDE_NEXT
-
- /* Define to 1 if you have the <inttypes.h> header file. */
- #undef HAVE_INTTYPES_H
-
-+/* Define if you have <langinfo.h> and nl_langinfo(CODESET). */
-+#undef HAVE_LANGINFO_CODESET
-+
- /* Define if your <locale.h> file defines LC_MESSAGES. */
- #undef HAVE_LC_MESSAGES
-
-@@ -618,6 +630,9 @@
- 'ptrdiff_t'. */
- #undef PTRDIFF_T_SUFFIX
-
-+/* Define to install path for Python sources */
-+#undef PYTHONDIR
-+
- /* Bug reporting address */
- #undef REPORT_BUGS_TO
-
-diff --git a/gdb/configure b/gdb/configure
-index 7579c84..3a5b582 100755
---- a/gdb/configure
-+++ b/gdb/configure
-@@ -314,7 +314,7 @@ ac_subdirs_all="$ac_subdirs_all doc testsuite"
- ac_subdirs_all="$ac_subdirs_all gdbtk"
- ac_subdirs_all="$ac_subdirs_all multi-ice"
- ac_subdirs_all="$ac_subdirs_all gdbserver"
--ac_subst_vars='SHELL PATH_SEPARATOR PACKAGE_NAME PACKAGE_TARNAME PACKAGE_VERSION PACKAGE_STRING PACKAGE_BUGREPORT exec_prefix prefix program_transform_name bindir sbindir libexecdir datadir sysconfdir sharedstatedir localstatedir libdir includedir oldincludedir infodir mandir build_alias host_alias target_alias DEFS ECHO_C ECHO_N ECHO_T LIBS MAINTAINER_MODE_TRUE MAINTAINER_MODE_FALSE MAINT CC CFLAGS LDFLAGS CPPFLAGS ac_ct_CC EXEEXT OBJEXT CPP EGREP RANLIB ac_ct_RANLIB build build_cpu build_vendor build_os host host_cpu host_vendor host_os target target_cpu target_vendor target_os am__leading_dot DEPDIR CCDEPMODE MAKE GMAKE_TRUE GMAKE_FALSE SET_MAKE USE_NLS LIBINTL LIBINTL_DEP INCINTL XGETTEXT GMSGFMT POSUB CATALOGS DATADIRNAME INSTOBJEXT GENCAT CATOBJEXT localedir GL_COND_LIBTOOL_TRUE GL_COND_LIBTOOL_FALSE GNULIB_MEMMEM GNULIB_MEMPCPY GNULIB_MEMRCHR GNULIB_STPCPY GNULIB_STPNCPY GNULIB_STRCHRNUL GNULIB_STRDUP GNULIB_STRNDUP GNULIB_STRNLEN GNULIB_STRPBRK GNULIB_STRSEP GNULIB_STRSTR GNULIB_STRCASESTR GNULIB_STRTOK_R GNULIB_MBSLEN GNULIB_MBSNLEN GNULIB_MBSCHR GNULIB_MBSRCHR GNULIB_MBSSTR GNULIB_MBSCASECMP GNULIB_MBSNCASECMP GNULIB_MBSPCASECMP GNULIB_MBSCASESTR GNULIB_MBSCSPN GNULIB_MBSPBRK GNULIB_MBSSPN GNULIB_MBSSEP GNULIB_MBSTOK_R GNULIB_STRERROR GNULIB_STRSIGNAL HAVE_DECL_MEMMEM HAVE_MEMPCPY HAVE_DECL_MEMRCHR HAVE_STPCPY HAVE_STPNCPY HAVE_STRCHRNUL HAVE_DECL_STRDUP HAVE_STRNDUP HAVE_DECL_STRNDUP HAVE_DECL_STRNLEN HAVE_STRPBRK HAVE_STRSEP HAVE_STRCASESTR HAVE_DECL_STRTOK_R HAVE_DECL_STRERROR HAVE_DECL_STRSIGNAL REPLACE_STRERROR REPLACE_STRSIGNAL REPLACE_MEMMEM REPLACE_STRCASESTR REPLACE_STRSTR HAVE_LONG_LONG_INT HAVE_UNSIGNED_LONG_LONG_INT HAVE_INTTYPES_H HAVE_SYS_TYPES_H INCLUDE_NEXT NEXT_STDINT_H HAVE_STDINT_H HAVE_SYS_INTTYPES_H HAVE_SYS_BITYPES_H BITSIZEOF_PTRDIFF_T BITSIZEOF_SIG_ATOMIC_T BITSIZEOF_SIZE_T BITSIZEOF_WCHAR_T BITSIZEOF_WINT_T HAVE_SIGNED_SIG_ATOMIC_T HAVE_SIGNED_WCHAR_T HAVE_SIGNED_WINT_T PTRDIFF_T_SUFFIX SIG_ATOMIC_T_SUFFIX SIZE_T_SUFFIX WCHAR_T_SUFFIX WINT_T_SUFFIX STDINT_H NEXT_STRING_H GNULIB_WCWIDTH HAVE_DECL_WCWIDTH REPLACE_WCWIDTH WCHAR_H HAVE_WCHAR_H NEXT_WCHAR_H LIBGNU_LIBDEPS LIBGNU_LTLIBDEPS GNULIB_STDINT_H PACKAGE INSTALL_PROGRAM INSTALL_SCRIPT INSTALL_DATA CYGPATH_W VERSION ACLOCAL AUTOCONF AUTOMAKE AUTOHEADER MAKEINFO install_sh STRIP ac_ct_STRIP INSTALL_STRIP_PROGRAM mkdir_p AWK AMTAR am__tar am__untar am__include am__quote AMDEP_TRUE AMDEP_FALSE AMDEPBACKSLASH am__fastdepCC_TRUE am__fastdepCC_FALSE subdirs TARGET_OBS PKGVERSION REPORT_BUGS_TO REPORT_BUGS_TEXI LN_S YACC AR ac_ct_AR DLLTOOL ac_ct_DLLTOOL WINDRES ac_ct_WINDRES MIG ac_ct_MIG READLINE READLINE_DEPS READLINE_CFLAGS HAVE_LIBEXPAT LIBEXPAT LTLIBEXPAT PYTHON_CFLAGS ALLOCA CONFIG_LDFLAGS TARGET_SYSTEM_ROOT TARGET_SYSTEM_ROOT_DEFINE WARN_CFLAGS WERROR_CFLAGS SER_HARDWIRE WIN32LIBS LIBGUI GUI_CFLAGS_X WIN32LDAPP TCL_VERSION TCL_PATCH_LEVEL TCL_BIN_DIR TCL_SRC_DIR TCL_LIB_FILE TCL_LIB_FLAG TCL_LIB_SPEC TCL_STUB_LIB_FILE TCL_STUB_LIB_FLAG TCL_STUB_LIB_SPEC TCL_INCLUDE TCL_LIBRARY TCL_DEPS TK_VERSION TK_BIN_DIR TK_SRC_DIR TK_LIB_FILE TK_LIB_FLAG TK_LIB_SPEC TK_STUB_LIB_FILE TK_STUB_LIB_FLAG TK_STUB_LIB_SPEC TK_INCLUDE TK_LIBRARY TK_DEPS TK_XINCLUDES X_CFLAGS X_LDFLAGS X_LIBS GDBTKLIBS GDBTK_CFLAGS GDBTK_SRC_DIR SIM SIM_OBS ENABLE_CFLAGS PROFILE_CFLAGS CONFIG_OBS CONFIG_DEPS CONFIG_SRCS CONFIG_ALL CONFIG_CLEAN CONFIG_INSTALL CONFIG_UNINSTALL target_subdir frags nm_h LIBICONV LIBOBJS LTLIBOBJS gl_LIBOBJS gl_LTLIBOBJS gltests_LIBOBJS gltests_LTLIBOBJS'
-+ac_subst_vars='SHELL PATH_SEPARATOR PACKAGE_NAME PACKAGE_TARNAME PACKAGE_VERSION PACKAGE_STRING PACKAGE_BUGREPORT exec_prefix prefix program_transform_name bindir sbindir libexecdir datadir sysconfdir sharedstatedir localstatedir libdir includedir oldincludedir infodir mandir build_alias host_alias target_alias DEFS ECHO_C ECHO_N ECHO_T LIBS MAINTAINER_MODE_TRUE MAINTAINER_MODE_FALSE MAINT CC CFLAGS LDFLAGS CPPFLAGS ac_ct_CC EXEEXT OBJEXT CPP EGREP RANLIB ac_ct_RANLIB build build_cpu build_vendor build_os host host_cpu host_vendor host_os target target_cpu target_vendor target_os am__leading_dot DEPDIR CCDEPMODE MAKE GMAKE_TRUE GMAKE_FALSE SET_MAKE USE_NLS LIBINTL LIBINTL_DEP INCINTL XGETTEXT GMSGFMT POSUB CATALOGS DATADIRNAME INSTOBJEXT GENCAT CATOBJEXT localedir GL_COND_LIBTOOL_TRUE GL_COND_LIBTOOL_FALSE GNULIB_MEMMEM GNULIB_MEMPCPY GNULIB_MEMRCHR GNULIB_STPCPY GNULIB_STPNCPY GNULIB_STRCHRNUL GNULIB_STRDUP GNULIB_STRNDUP GNULIB_STRNLEN GNULIB_STRPBRK GNULIB_STRSEP GNULIB_STRSTR GNULIB_STRCASESTR GNULIB_STRTOK_R GNULIB_MBSLEN GNULIB_MBSNLEN GNULIB_MBSCHR GNULIB_MBSRCHR GNULIB_MBSSTR GNULIB_MBSCASECMP GNULIB_MBSNCASECMP GNULIB_MBSPCASECMP GNULIB_MBSCASESTR GNULIB_MBSCSPN GNULIB_MBSPBRK GNULIB_MBSSPN GNULIB_MBSSEP GNULIB_MBSTOK_R GNULIB_STRERROR GNULIB_STRSIGNAL HAVE_DECL_MEMMEM HAVE_MEMPCPY HAVE_DECL_MEMRCHR HAVE_STPCPY HAVE_STPNCPY HAVE_STRCHRNUL HAVE_DECL_STRDUP HAVE_STRNDUP HAVE_DECL_STRNDUP HAVE_DECL_STRNLEN HAVE_STRPBRK HAVE_STRSEP HAVE_STRCASESTR HAVE_DECL_STRTOK_R HAVE_DECL_STRERROR HAVE_DECL_STRSIGNAL REPLACE_STRERROR REPLACE_STRSIGNAL REPLACE_MEMMEM REPLACE_STRCASESTR REPLACE_STRSTR HAVE_LONG_LONG_INT HAVE_UNSIGNED_LONG_LONG_INT HAVE_INTTYPES_H HAVE_SYS_TYPES_H INCLUDE_NEXT NEXT_STDINT_H HAVE_STDINT_H HAVE_SYS_INTTYPES_H HAVE_SYS_BITYPES_H BITSIZEOF_PTRDIFF_T BITSIZEOF_SIG_ATOMIC_T BITSIZEOF_SIZE_T BITSIZEOF_WCHAR_T BITSIZEOF_WINT_T HAVE_SIGNED_SIG_ATOMIC_T HAVE_SIGNED_WCHAR_T HAVE_SIGNED_WINT_T PTRDIFF_T_SUFFIX SIG_ATOMIC_T_SUFFIX SIZE_T_SUFFIX WCHAR_T_SUFFIX WINT_T_SUFFIX STDINT_H NEXT_STRING_H GNULIB_WCWIDTH HAVE_DECL_WCWIDTH REPLACE_WCWIDTH WCHAR_H HAVE_WCHAR_H NEXT_WCHAR_H LIBGNU_LIBDEPS LIBGNU_LTLIBDEPS GNULIB_STDINT_H PACKAGE INSTALL_PROGRAM INSTALL_SCRIPT INSTALL_DATA CYGPATH_W VERSION ACLOCAL AUTOCONF AUTOMAKE AUTOHEADER MAKEINFO install_sh STRIP ac_ct_STRIP INSTALL_STRIP_PROGRAM mkdir_p AWK AMTAR am__tar am__untar am__include am__quote AMDEP_TRUE AMDEP_FALSE AMDEPBACKSLASH am__fastdepCC_TRUE am__fastdepCC_FALSE GDB_DATADIR_PATH pythondir subdirs TARGET_OBS PKGVERSION REPORT_BUGS_TO REPORT_BUGS_TEXI LN_S YACC AR ac_ct_AR DLLTOOL ac_ct_DLLTOOL WINDRES ac_ct_WINDRES MIG ac_ct_MIG LIBICONV LIBICONV_INCLUDE LIBICONV_LIBDIR READLINE READLINE_DEPS READLINE_CFLAGS HAVE_LIBEXPAT LIBEXPAT LTLIBEXPAT PYTHON_CFLAGS ALLOCA CONFIG_LDFLAGS TARGET_SYSTEM_ROOT TARGET_SYSTEM_ROOT_DEFINE WARN_CFLAGS WERROR_CFLAGS SER_HARDWIRE WIN32LIBS LIBGUI GUI_CFLAGS_X WIN32LDAPP TCL_VERSION TCL_PATCH_LEVEL TCL_BIN_DIR TCL_SRC_DIR TCL_LIB_FILE TCL_LIB_FLAG TCL_LIB_SPEC TCL_STUB_LIB_FILE TCL_STUB_LIB_FLAG TCL_STUB_LIB_SPEC TCL_INCLUDE TCL_LIBRARY TCL_DEPS TK_VERSION TK_BIN_DIR TK_SRC_DIR TK_LIB_FILE TK_LIB_FLAG TK_LIB_SPEC TK_STUB_LIB_FILE TK_STUB_LIB_FLAG TK_STUB_LIB_SPEC TK_INCLUDE TK_LIBRARY TK_DEPS TK_XINCLUDES X_CFLAGS X_LDFLAGS X_LIBS GDBTKLIBS GDBTK_CFLAGS GDBTK_SRC_DIR SIM SIM_OBS ENABLE_CFLAGS PROFILE_CFLAGS CONFIG_OBS CONFIG_DEPS CONFIG_SRCS CONFIG_ALL CONFIG_CLEAN CONFIG_INSTALL CONFIG_UNINSTALL target_subdir frags nm_h LIBOBJS LTLIBOBJS gl_LIBOBJS gl_LTLIBOBJS gltests_LIBOBJS gltests_LTLIBOBJS'
- ac_subst_files='host_makefile_frag'
- ac_pwd=`pwd`
-
-@@ -882,9 +882,14 @@ Optional Packages:
- --with-PACKAGE[=ARG] use PACKAGE [ARG=yes]
- --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no)
- --with-separate-debug-dir=path Look for global separate debug info in this path LIBDIR/debug
-+ --with-gdb-datadir look for global separate data files in this path
-+ [DATADIR/gdb]
-+ --with-pythondir install Python data files in this path
-+ [DATADIR/gdb/python]
- --with-libunwind Use libunwind frame unwinding support
- --with-pkgversion=PKG Use PKG in the version string in place of "GDB"
- --with-bugurl=URL Direct users to URL to report a bug
-+ --with-libiconv-prefix=DIR search for libiconv in DIR/include and DIR/lib
- --with-system-readline use installed readline library
- --with-expat include expat support (auto/yes/no)
- --with-gnu-ld assume the C compiler uses GNU ld default=no
-@@ -899,7 +904,6 @@ Optional Packages:
- --with-tcl directory containing tcl configuration (tclConfig.sh)
- --with-tk directory containing tk configuration (tkConfig.sh)
- --with-x use the X Window System
-- --with-libiconv-prefix=DIR search for libiconv in DIR/include and DIR/lib
-
- Some influential environment variables:
- CC C compiler command
-@@ -7130,6 +7134,75 @@ _ACEOF
- ;;
- esac
-
-+# GDB's datadir relocation
-+
-+gdbdatadir=${datadir}/gdb
-+
-+
-+# Check whether --with-gdb-datadir or --without-gdb-datadir was given.
-+if test "${with_gdb_datadir+set}" = set; then
-+ withval="$with_gdb_datadir"
-+ gdbdatadir="${withval}"
-+fi;
-+
-+
-+ test "x$prefix" = xNONE && prefix="$ac_default_prefix"
-+ test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
-+ ac_define_dir=`eval echo $gdbdatadir`
-+ ac_define_dir=`eval echo $ac_define_dir`
-+
-+cat >>confdefs.h <<_ACEOF
-+#define GDB_DATADIR "$ac_define_dir"
-+_ACEOF
-+
-+
-+
-+if test "x$exec_prefix" = xNONE || test "x$exec_prefix" = 'x${prefix}'; then
-+ if test "x$prefix" = xNONE; then
-+ test_prefix=/usr/local
-+ else
-+ test_prefix=$prefix
-+ fi
-+else
-+ test_prefix=$exec_prefix
-+fi
++/* Calculate the memory length of array TYPE.
+
-+case ${gdbdatadir} in
-+ "${test_prefix}"|"${test_prefix}/"*|\
-+ '${exec_prefix}'|'${exec_prefix}/'*)
++ TARGET_TYPE should be set to `check_typedef (TYPE_TARGET_TYPE (type))' as
++ a performance hint. Feel free to pass NULL. Set FULL_SPAN to return the
++ size incl. the possible padding of the last element - it may differ from the
++ cleared FULL_SPAN return value (the expected SIZEOF) for non-zero
++ TYPE_BYTE_STRIDE values. */
+
-+cat >>confdefs.h <<\_ACEOF
-+#define GDB_DATADIR_RELOCATABLE 1
-+_ACEOF
++static LONGEST
++type_length_get (struct type *type, struct type *target_type, int full_span)
++{
++ struct type *range_type;
++ LONGEST byte_stride = 0; /* `= 0' for a false GCC warning. */
++ LONGEST count, element_size, retval;
+
-+ ;;
-+esac
-+GDB_DATADIR_PATH=${gdbdatadir}
++ if (TYPE_CODE (type) != TYPE_CODE_ARRAY
++ && TYPE_CODE (type) != TYPE_CODE_STRING)
++ return TYPE_LENGTH (type);
+
++ /* Avoid executing TYPE_HIGH_BOUND for invalid (unallocated/unassociated)
++ Fortran arrays. The allocated data will never be used so they can be
++ zero-length. */
++ if (object_address_data_not_valid (type))
++ return 0;
+
++ range_type = TYPE_INDEX_TYPE (type);
++ if (TYPE_LOW_BOUND_UNDEFINED (range_type)
++ || TYPE_HIGH_BOUND_UNDEFINED (range_type))
++ return 0;
++ count = TYPE_HIGH_BOUND (range_type) - TYPE_LOW_BOUND (range_type) + 1;
++ /* It may happen for wrong DWARF annotations returning garbage data. */
++ if (count < 0)
++ warning (_("Range for type %s has invalid bounds %s..%s"),
++ TYPE_NAME (type), plongest (TYPE_LOW_BOUND (range_type)),
++ plongest (TYPE_HIGH_BOUND (range_type)));
++ /* The code below does not handle count == 0 right. */
++ if (count <= 0)
++ return 0;
++ if (full_span || count > 1)
++ {
++ /* We do not use TYPE_ARRAY_BYTE_STRIDE_VALUE (type) here as we want to
++ force FULL_SPAN to 1. */
++ byte_stride = TYPE_BYTE_STRIDE (range_type);
++ if (byte_stride == 0)
++ {
++ if (target_type == NULL)
++ target_type = check_typedef (TYPE_TARGET_TYPE (type));
++ byte_stride = type_length_get (target_type, NULL, 1);
++ }
++ }
+
-+# Check whether --with-pythondir or --without-pythondir was given.
-+if test "${with_pythondir+set}" = set; then
-+ withval="$with_pythondir"
-+ pythondir="${withval}"
-+else
-+ pythondir=no
-+fi;
++ /* For now, we conservatively take the array length to be 0 if its length
++ exceeds UINT_MAX. The code below assumes that for x < 0,
++ (ULONGEST) x == -x + ULONGEST_MAX + 1, which is technically not guaranteed
++ by C, but is usually true (because it would be true if x were unsigned
++ with its high-order bit on). It uses the fact that high_bound-low_bound is
++ always representable in ULONGEST and that if high_bound-low_bound+1
++ overflows, it overflows to 0. We must change these tests if we decide to
++ increase the representation of TYPE_LENGTH from unsigned int to ULONGEST.
++ */
+
-+# If the user passed in a path, define it. Otherwise, compute it at
-+# runtime based on the possibly-relocatable datadir.
-+if test "$pythondir" = "no"; then
-+ pythondir='$(GDB_DATADIR_PATH)/python'
-+else
++ if (full_span)
++ {
++ retval = count * byte_stride;
++ if (count == 0 || retval / count != byte_stride || retval > UINT_MAX)
++ retval = 0;
++ return retval;
++ }
++ if (target_type == NULL)
++ target_type = check_typedef (TYPE_TARGET_TYPE (type));
++ element_size = type_length_get (target_type, NULL, 1);
++ retval = (count - 1) * byte_stride + element_size;
++ if (retval < element_size
++ || (byte_stride != 0
++ && (retval - element_size) / byte_stride != count - 1)
++ || retval > UINT_MAX)
++ retval = 0;
++ return retval;
++}
+
-+cat >>confdefs.h <<_ACEOF
-+#define PYTHONDIR "$pythondir"
-+_ACEOF
++/* Prepare TYPE after being read in by the backend. Currently this function
++ only propagates the TYPE_DYNAMIC flag. */
+
-+fi
++void
++finalize_type (struct type *type)
++{
++ int i;
+
++ for (i = 0; i < TYPE_NFIELDS (type); ++i)
++ if (TYPE_FIELD_TYPE (type, i) && TYPE_DYNAMIC (TYPE_FIELD_TYPE (type, i)))
++ break;
+
++ /* FIXME: cplus_stuff is ignored here. */
++ if (i < TYPE_NFIELDS (type)
++ || (TYPE_VPTR_BASETYPE (type) && TYPE_DYNAMIC (TYPE_VPTR_BASETYPE (type)))
++ || (TYPE_TARGET_TYPE (type) && TYPE_DYNAMIC (TYPE_TARGET_TYPE (type))))
++ TYPE_DYNAMIC (type) = 1;
++}
+
+ /* Find the real type of TYPE. This function returns the real type,
+ after removing all layers of typedefs, and completing opaque or stub
+ types. Completion changes the TYPE argument, but stripping of
+@@ -1575,52 +1729,37 @@ check_typedef (struct type *type)
+ }
+ }
-
- subdirs="$subdirs doc testsuite"
-@@ -9989,6 +10062,226 @@ if test "$ac_cv_search_dlgetmodinfo" != no; then
- fi
-
-
-+
-+
-+
-+# Check whether --with-libiconv-prefix or --without-libiconv-prefix was given.
-+if test "${with_libiconv_prefix+set}" = set; then
-+ withval="$with_libiconv_prefix"
-+
-+ for dir in `echo "$withval" | tr : ' '`; do
-+ if test -d $dir/include; then LIBICONV_INCLUDE="-I$dir/include"; CPPFLAGS="$CPPFLAGS -I$dir/include"; fi
-+ if test -d $dir/lib; then LIBICONV_LIBDIR="-L$dir/lib"; LDFLAGS="$LDFLAGS -L$dir/lib"; fi
-+ done
-+
-+fi;
-+
-+ echo "$as_me:$LINENO: checking for iconv" >&5
-+echo $ECHO_N "checking for iconv... $ECHO_C" >&6
-+if test "${am_cv_func_iconv+set}" = set; then
-+ echo $ECHO_N "(cached) $ECHO_C" >&6
-+else
-+
-+ am_cv_func_iconv="no, consider installing GNU libiconv"
-+ am_cv_lib_iconv=no
-+ cat >conftest.$ac_ext <<_ACEOF
-+/* confdefs.h. */
-+_ACEOF
-+cat confdefs.h >>conftest.$ac_ext
-+cat >>conftest.$ac_ext <<_ACEOF
-+/* end confdefs.h. */
-+#include <stdlib.h>
-+#include <iconv.h>
-+int
-+main ()
-+{
-+iconv_t cd = iconv_open("","");
-+ iconv(cd,NULL,NULL,NULL,NULL);
-+ iconv_close(cd);
-+ ;
-+ return 0;
-+}
-+_ACEOF
-+rm -f conftest.$ac_objext conftest$ac_exeext
-+if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-+ (eval $ac_link) 2>conftest.er1
-+ ac_status=$?
-+ grep -v '^ *+' conftest.er1 >conftest.err
-+ rm -f conftest.er1
-+ cat conftest.err >&5
-+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+ (exit $ac_status); } &&
-+ { ac_try='test -z "$ac_c_werror_flag"
-+ || test ! -s conftest.err'
-+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-+ (eval $ac_try) 2>&5
-+ ac_status=$?
-+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+ (exit $ac_status); }; } &&
-+ { ac_try='test -s conftest$ac_exeext'
-+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-+ (eval $ac_try) 2>&5
-+ ac_status=$?
-+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+ (exit $ac_status); }; }; then
-+ am_cv_func_iconv=yes
-+else
-+ echo "$as_me: failed program was:" >&5
-+sed 's/^/| /' conftest.$ac_ext >&5
-+
-+fi
-+rm -f conftest.err conftest.$ac_objext \
-+ conftest$ac_exeext conftest.$ac_ext
-+ if test "$am_cv_func_iconv" != yes; then
-+ am_save_LIBS="$LIBS"
-+ LIBS="$LIBS -liconv"
-+ cat >conftest.$ac_ext <<_ACEOF
-+/* confdefs.h. */
-+_ACEOF
-+cat confdefs.h >>conftest.$ac_ext
-+cat >>conftest.$ac_ext <<_ACEOF
-+/* end confdefs.h. */
-+#include <stdlib.h>
-+#include <iconv.h>
-+int
-+main ()
-+{
-+iconv_t cd = iconv_open("","");
-+ iconv(cd,NULL,NULL,NULL,NULL);
-+ iconv_close(cd);
-+ ;
-+ return 0;
-+}
-+_ACEOF
-+rm -f conftest.$ac_objext conftest$ac_exeext
-+if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-+ (eval $ac_link) 2>conftest.er1
-+ ac_status=$?
-+ grep -v '^ *+' conftest.er1 >conftest.err
-+ rm -f conftest.er1
-+ cat conftest.err >&5
-+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+ (exit $ac_status); } &&
-+ { ac_try='test -z "$ac_c_werror_flag"
-+ || test ! -s conftest.err'
-+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-+ (eval $ac_try) 2>&5
-+ ac_status=$?
-+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+ (exit $ac_status); }; } &&
-+ { ac_try='test -s conftest$ac_exeext'
-+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-+ (eval $ac_try) 2>&5
-+ ac_status=$?
-+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+ (exit $ac_status); }; }; then
-+ am_cv_lib_iconv=yes
-+ am_cv_func_iconv=yes
-+else
-+ echo "$as_me: failed program was:" >&5
-+sed 's/^/| /' conftest.$ac_ext >&5
-+
-+fi
-+rm -f conftest.err conftest.$ac_objext \
-+ conftest$ac_exeext conftest.$ac_ext
-+ LIBS="$am_save_LIBS"
-+ fi
-+
-+fi
-+echo "$as_me:$LINENO: result: $am_cv_func_iconv" >&5
-+echo "${ECHO_T}$am_cv_func_iconv" >&6
-+ if test "$am_cv_func_iconv" = yes; then
-+
-+cat >>confdefs.h <<\_ACEOF
-+#define HAVE_ICONV 1
-+_ACEOF
-+
-+ echo "$as_me:$LINENO: checking for iconv declaration" >&5
-+echo $ECHO_N "checking for iconv declaration... $ECHO_C" >&6
-+ if test "${am_cv_proto_iconv+set}" = set; then
-+ echo $ECHO_N "(cached) $ECHO_C" >&6
-+else
-+
-+ cat >conftest.$ac_ext <<_ACEOF
-+/* confdefs.h. */
-+_ACEOF
-+cat confdefs.h >>conftest.$ac_ext
-+cat >>conftest.$ac_ext <<_ACEOF
-+/* end confdefs.h. */
+- if (TYPE_TARGET_STUB (type))
++ /* copy_type_recursive automatically makes the resulting type containing only
++ constant values expected by the callers of this function. */
++ if (TYPE_DYNAMIC (type))
++ {
++ htab_t copied_types;
+
-+#include <stdlib.h>
-+#include <iconv.h>
-+extern
-+#ifdef __cplusplus
-+"C"
-+#endif
-+#if defined(__STDC__) || defined(__cplusplus)
-+size_t iconv (iconv_t cd, char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft);
-+#else
-+size_t iconv();
-+#endif
++ copied_types = create_copied_types_hash (NULL);
++ type = copy_type_recursive (type, copied_types);
++ htab_delete (copied_types);
+
-+int
-+main ()
-+{
++ gdb_assert (TYPE_DYNAMIC (type) == 0);
++ /* Force TYPE_LENGTH (type) recalculation. */
++ TYPE_DYNAMIC (type) = 1;
++ }
+
-+ ;
-+ return 0;
-+}
-+_ACEOF
-+rm -f conftest.$ac_objext
-+if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
-+ (eval $ac_compile) 2>conftest.er1
-+ ac_status=$?
-+ grep -v '^ *+' conftest.er1 >conftest.err
-+ rm -f conftest.er1
-+ cat conftest.err >&5
-+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+ (exit $ac_status); } &&
-+ { ac_try='test -z "$ac_c_werror_flag"
-+ || test ! -s conftest.err'
-+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-+ (eval $ac_try) 2>&5
-+ ac_status=$?
-+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+ (exit $ac_status); }; } &&
-+ { ac_try='test -s conftest.$ac_objext'
-+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-+ (eval $ac_try) 2>&5
-+ ac_status=$?
-+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+ (exit $ac_status); }; }; then
-+ am_cv_proto_iconv_arg1=""
-+else
-+ echo "$as_me: failed program was:" >&5
-+sed 's/^/| /' conftest.$ac_ext >&5
-+
-+am_cv_proto_iconv_arg1="const"
-+fi
-+rm -f conftest.err conftest.$ac_objext conftest.$ac_ext
-+ am_cv_proto_iconv="extern size_t iconv (iconv_t cd, $am_cv_proto_iconv_arg1 char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft);"
-+fi
-+
-+ am_cv_proto_iconv=`echo "$am_cv_proto_iconv" | tr -s ' ' | sed -e 's/( /(/'`
-+ echo "$as_me:$LINENO: result: ${ac_t:-
-+ }$am_cv_proto_iconv" >&5
-+echo "${ECHO_T}${ac_t:-
-+ }$am_cv_proto_iconv" >&6
-+
-+cat >>confdefs.h <<_ACEOF
-+#define ICONV_CONST $am_cv_proto_iconv_arg1
-+_ACEOF
-+
-+ fi
-+ LIBICONV=
-+ if test "$am_cv_lib_iconv" = yes; then
-+ LIBICONV="-liconv"
-+ fi
-+
-+
-+
-+
-+
- # On alpha-osf, it appears that libtermcap and libcurses are not compatible.
- # There is a very specific comment in /usr/include/curses.h explaining that
- # termcap routines built into libcurses must not be used.
-@@ -11418,6 +11711,8 @@ _ACEOF
- CONFIG_OBS="$CONFIG_OBS \$(SUBDIR_PYTHON_OBS)"
- CONFIG_DEPS="$CONFIG_DEPS \$(SUBDIR_PYTHON_DEPS)"
- CONFIG_SRCS="$CONFIG_SRCS \$(SUBDIR_PYTHON_SRCS)"
-+ CONFIG_INSTALL="$CONFIG_INSTALL install-python"
-+ CONFIG_UNINSTALL="$CONFIG_UNINSTALL uninstall-python"
- ENABLE_CFLAGS="$ENABLE_CFLAGS \$(SUBDIR_PYTHON_CFLAGS)"
-
- # Flags needed to compile Python code (taken from python-config --cflags).
-@@ -15445,10 +15740,11 @@ fi
-
-
-
-+
- for ac_func in canonicalize_file_name realpath getrusage getuid \
- getgid poll pread64 sbrk setpgid setpgrp setsid \
- sigaction sigprocmask sigsetmask socketpair syscall \
-- ttrace wborder setlocale
-+ ttrace wborder setlocale iconvlist
- do
- as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh`
- echo "$as_me:$LINENO: checking for $ac_func" >&5
-@@ -15550,6 +15846,70 @@ fi
- done
-
-
-+ echo "$as_me:$LINENO: checking for nl_langinfo and CODESET" >&5
-+echo $ECHO_N "checking for nl_langinfo and CODESET... $ECHO_C" >&6
-+if test "${am_cv_langinfo_codeset+set}" = set; then
-+ echo $ECHO_N "(cached) $ECHO_C" >&6
-+else
-+ cat >conftest.$ac_ext <<_ACEOF
-+/* confdefs.h. */
-+_ACEOF
-+cat confdefs.h >>conftest.$ac_ext
-+cat >>conftest.$ac_ext <<_ACEOF
-+/* end confdefs.h. */
-+#include <langinfo.h>
-+int
-+main ()
-+{
-+char* cs = nl_langinfo(CODESET);
-+ ;
-+ return 0;
-+}
-+_ACEOF
-+rm -f conftest.$ac_objext conftest$ac_exeext
-+if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-+ (eval $ac_link) 2>conftest.er1
-+ ac_status=$?
-+ grep -v '^ *+' conftest.er1 >conftest.err
-+ rm -f conftest.er1
-+ cat conftest.err >&5
-+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+ (exit $ac_status); } &&
-+ { ac_try='test -z "$ac_c_werror_flag"
-+ || test ! -s conftest.err'
-+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-+ (eval $ac_try) 2>&5
-+ ac_status=$?
-+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+ (exit $ac_status); }; } &&
-+ { ac_try='test -s conftest$ac_exeext'
-+ { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-+ (eval $ac_try) 2>&5
-+ ac_status=$?
-+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
-+ (exit $ac_status); }; }; then
-+ am_cv_langinfo_codeset=yes
-+else
-+ echo "$as_me: failed program was:" >&5
-+sed 's/^/| /' conftest.$ac_ext >&5
-+
-+am_cv_langinfo_codeset=no
-+fi
-+rm -f conftest.err conftest.$ac_objext \
-+ conftest$ac_exeext conftest.$ac_ext
-+
-+fi
-+echo "$as_me:$LINENO: result: $am_cv_langinfo_codeset" >&5
-+echo "${ECHO_T}$am_cv_langinfo_codeset" >&6
-+ if test $am_cv_langinfo_codeset = yes; then
-+
-+cat >>confdefs.h <<\_ACEOF
-+#define HAVE_LANGINFO_CODESET 1
-+_ACEOF
-+
-+ fi
-+
-+
- # Check the return and argument types of ptrace. No canned test for
- # this, so roll our own.
- gdb_ptrace_headers='
-@@ -20776,230 +21136,11 @@ done
-
-
++ if (TYPE_TARGET_STUB (type) || TYPE_DYNAMIC (type))
+ {
+- struct type *range_type;
+ struct type *target_type = check_typedef (TYPE_TARGET_TYPE (type));
++ if (TYPE_DYNAMIC (type))
++ TYPE_TARGET_TYPE (type) = target_type;
+ if (TYPE_STUB (target_type) || TYPE_TARGET_STUB (target_type))
+ {
+ /* Nothing we can do. */
+ }
+ else if (TYPE_CODE (type) == TYPE_CODE_ARRAY
+- && TYPE_NFIELDS (type) == 1
+- && (TYPE_CODE (range_type = TYPE_INDEX_TYPE (type))
+- == TYPE_CODE_RANGE))
++ || TYPE_CODE (type) == TYPE_CODE_STRING)
+ {
+ /* Now recompute the length of the array type, based on its
+- number of elements and the target type's length.
+- Watch out for Ada null Ada arrays where the high bound
+- is smaller than the low bound. */
+- const LONGEST low_bound = TYPE_LOW_BOUND (range_type);
+- const LONGEST high_bound = TYPE_HIGH_BOUND (range_type);
+- ULONGEST len;
-
- cat >>confdefs.h <<\_ACEOF
--#define GDB_DEFAULT_HOST_CHARSET "ISO-8859-1"
-+#define GDB_DEFAULT_HOST_CHARSET "UTF-8"
- _ACEOF
+- if (high_bound < low_bound)
+- len = 0;
+- else
+- {
+- /* For now, we conservatively take the array length to be 0
+- if its length exceeds UINT_MAX. The code below assumes
+- that for x < 0, (ULONGEST) x == -x + ULONGEST_MAX + 1,
+- which is technically not guaranteed by C, but is usually true
+- (because it would be true if x were unsigned with its
+- high-order bit on). It uses the fact that
+- high_bound-low_bound is always representable in
+- ULONGEST and that if high_bound-low_bound+1 overflows,
+- it overflows to 0. We must change these tests if we
+- decide to increase the representation of TYPE_LENGTH
+- from unsigned int to ULONGEST. */
+- ULONGEST ulow = low_bound, uhigh = high_bound;
+- ULONGEST tlen = TYPE_LENGTH (target_type);
+-
+- len = tlen * (uhigh - ulow + 1);
+- if (tlen == 0 || (len / tlen - 1 + ulow) != uhigh
+- || len > UINT_MAX)
+- len = 0;
+- }
+- TYPE_LENGTH (type) = len;
++ number of elements and the target type's length. */
++ TYPE_LENGTH (type) = type_length_get (type, target_type, 0);
+ TYPE_TARGET_STUB (type) = 0;
+ }
+ else if (TYPE_CODE (type) == TYPE_CODE_RANGE)
+@@ -1628,6 +1767,7 @@ check_typedef (struct type *type)
+ TYPE_LENGTH (type) = TYPE_LENGTH (target_type);
+ TYPE_TARGET_STUB (type) = 0;
+ }
++ TYPE_DYNAMIC (type) = 0;
+ }
+ type = make_qualified_type (type, instance_flags, NULL);
+@@ -3266,33 +3406,42 @@ type_pair_eq (const void *item_lhs, cons
+ }
--
--
--
--# Check whether --with-libiconv-prefix or --without-libiconv-prefix was given.
--if test "${with_libiconv_prefix+set}" = set; then
-- withval="$with_libiconv_prefix"
--
-- for dir in `echo "$withval" | tr : ' '`; do
-- if test -d $dir/include; then CPPFLAGS="$CPPFLAGS -I$dir/include"; fi
-- if test -d $dir/lib; then LDFLAGS="$LDFLAGS -L$dir/lib"; fi
-- done
--
--fi;
--
-- echo "$as_me:$LINENO: checking for iconv" >&5
--echo $ECHO_N "checking for iconv... $ECHO_C" >&6
--if test "${am_cv_func_iconv+set}" = set; then
-- echo $ECHO_N "(cached) $ECHO_C" >&6
--else
--
-- am_cv_func_iconv="no, consider installing GNU libiconv"
-- am_cv_lib_iconv=no
-- cat >conftest.$ac_ext <<_ACEOF
--/* confdefs.h. */
--_ACEOF
--cat confdefs.h >>conftest.$ac_ext
--cat >>conftest.$ac_ext <<_ACEOF
--/* end confdefs.h. */
--#include <stdlib.h>
--#include <iconv.h>
--int
--main ()
--{
--iconv_t cd = iconv_open("","");
-- iconv(cd,NULL,NULL,NULL,NULL);
-- iconv_close(cd);
-- ;
-- return 0;
--}
--_ACEOF
--rm -f conftest.$ac_objext conftest$ac_exeext
--if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-- (eval $ac_link) 2>conftest.er1
-- ac_status=$?
-- grep -v '^ *+' conftest.er1 >conftest.err
-- rm -f conftest.er1
-- cat conftest.err >&5
-- echo "$as_me:$LINENO: \$? = $ac_status" >&5
-- (exit $ac_status); } &&
-- { ac_try='test -z "$ac_c_werror_flag"
-- || test ! -s conftest.err'
-- { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-- (eval $ac_try) 2>&5
-- ac_status=$?
-- echo "$as_me:$LINENO: \$? = $ac_status" >&5
-- (exit $ac_status); }; } &&
-- { ac_try='test -s conftest$ac_exeext'
-- { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-- (eval $ac_try) 2>&5
-- ac_status=$?
-- echo "$as_me:$LINENO: \$? = $ac_status" >&5
-- (exit $ac_status); }; }; then
-- am_cv_func_iconv=yes
--else
-- echo "$as_me: failed program was:" >&5
--sed 's/^/| /' conftest.$ac_ext >&5
--
--fi
--rm -f conftest.err conftest.$ac_objext \
-- conftest$ac_exeext conftest.$ac_ext
-- if test "$am_cv_func_iconv" != yes; then
-- am_save_LIBS="$LIBS"
-- LIBS="$LIBS -liconv"
-- cat >conftest.$ac_ext <<_ACEOF
--/* confdefs.h. */
--_ACEOF
--cat confdefs.h >>conftest.$ac_ext
--cat >>conftest.$ac_ext <<_ACEOF
--/* end confdefs.h. */
--#include <stdlib.h>
--#include <iconv.h>
--int
--main ()
--{
--iconv_t cd = iconv_open("","");
-- iconv(cd,NULL,NULL,NULL,NULL);
-- iconv_close(cd);
-- ;
-- return 0;
--}
--_ACEOF
--rm -f conftest.$ac_objext conftest$ac_exeext
--if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-- (eval $ac_link) 2>conftest.er1
-- ac_status=$?
-- grep -v '^ *+' conftest.er1 >conftest.err
-- rm -f conftest.er1
-- cat conftest.err >&5
-- echo "$as_me:$LINENO: \$? = $ac_status" >&5
-- (exit $ac_status); } &&
-- { ac_try='test -z "$ac_c_werror_flag"
-- || test ! -s conftest.err'
-- { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-- (eval $ac_try) 2>&5
-- ac_status=$?
-- echo "$as_me:$LINENO: \$? = $ac_status" >&5
-- (exit $ac_status); }; } &&
-- { ac_try='test -s conftest$ac_exeext'
-- { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-- (eval $ac_try) 2>&5
-- ac_status=$?
-- echo "$as_me:$LINENO: \$? = $ac_status" >&5
-- (exit $ac_status); }; }; then
-- am_cv_lib_iconv=yes
-- am_cv_func_iconv=yes
--else
-- echo "$as_me: failed program was:" >&5
--sed 's/^/| /' conftest.$ac_ext >&5
--
--fi
--rm -f conftest.err conftest.$ac_objext \
-- conftest$ac_exeext conftest.$ac_ext
-- LIBS="$am_save_LIBS"
-- fi
--
--fi
--echo "$as_me:$LINENO: result: $am_cv_func_iconv" >&5
--echo "${ECHO_T}$am_cv_func_iconv" >&6
-- if test "$am_cv_func_iconv" = yes; then
--
--cat >>confdefs.h <<\_ACEOF
--#define HAVE_ICONV 1
--_ACEOF
--
-- echo "$as_me:$LINENO: checking for iconv declaration" >&5
--echo $ECHO_N "checking for iconv declaration... $ECHO_C" >&6
-- if test "${am_cv_proto_iconv+set}" = set; then
-- echo $ECHO_N "(cached) $ECHO_C" >&6
--else
--
-- cat >conftest.$ac_ext <<_ACEOF
--/* confdefs.h. */
--_ACEOF
--cat confdefs.h >>conftest.$ac_ext
--cat >>conftest.$ac_ext <<_ACEOF
--/* end confdefs.h. */
--
--#include <stdlib.h>
--#include <iconv.h>
--extern
--#ifdef __cplusplus
--"C"
--#endif
--#if defined(__STDC__) || defined(__cplusplus)
--size_t iconv (iconv_t cd, char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft);
--#else
--size_t iconv();
--#endif
--
--int
--main ()
--{
--
-- ;
-- return 0;
--}
--_ACEOF
--rm -f conftest.$ac_objext
--if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
-- (eval $ac_compile) 2>conftest.er1
-- ac_status=$?
-- grep -v '^ *+' conftest.er1 >conftest.err
-- rm -f conftest.er1
-- cat conftest.err >&5
-- echo "$as_me:$LINENO: \$? = $ac_status" >&5
-- (exit $ac_status); } &&
-- { ac_try='test -z "$ac_c_werror_flag"
-- || test ! -s conftest.err'
-- { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-- (eval $ac_try) 2>&5
-- ac_status=$?
-- echo "$as_me:$LINENO: \$? = $ac_status" >&5
-- (exit $ac_status); }; } &&
-- { ac_try='test -s conftest.$ac_objext'
-- { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-- (eval $ac_try) 2>&5
-- ac_status=$?
-- echo "$as_me:$LINENO: \$? = $ac_status" >&5
-- (exit $ac_status); }; }; then
-- am_cv_proto_iconv_arg1=""
--else
-- echo "$as_me: failed program was:" >&5
--sed 's/^/| /' conftest.$ac_ext >&5
--
--am_cv_proto_iconv_arg1="const"
--fi
--rm -f conftest.err conftest.$ac_objext conftest.$ac_ext
-- am_cv_proto_iconv="extern size_t iconv (iconv_t cd, $am_cv_proto_iconv_arg1 char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft);"
--fi
--
-- am_cv_proto_iconv=`echo "$am_cv_proto_iconv" | tr -s ' ' | sed -e 's/( /(/'`
-- echo "$as_me:$LINENO: result: ${ac_t:-
-- }$am_cv_proto_iconv" >&5
--echo "${ECHO_T}${ac_t:-
-- }$am_cv_proto_iconv" >&6
--
--cat >>confdefs.h <<_ACEOF
--#define ICONV_CONST $am_cv_proto_iconv_arg1
--_ACEOF
--
-- fi
-- LIBICONV=
-- if test "$am_cv_lib_iconv" = yes; then
-- LIBICONV="-liconv"
-- fi
--
--
--
- ac_config_files="$ac_config_files Makefile .gdbinit:gdbinit.in gnulib/Makefile"
- ac_config_commands="$ac_config_commands default"
- cat >confcache <<\_ACEOF
-@@ -21865,6 +22006,8 @@ s,@AMDEP_FALSE@,$AMDEP_FALSE,;t t
- s,@AMDEPBACKSLASH@,$AMDEPBACKSLASH,;t t
- s,@am__fastdepCC_TRUE@,$am__fastdepCC_TRUE,;t t
- s,@am__fastdepCC_FALSE@,$am__fastdepCC_FALSE,;t t
-+s,@GDB_DATADIR_PATH@,$GDB_DATADIR_PATH,;t t
-+s,@pythondir@,$pythondir,;t t
- s,@subdirs@,$subdirs,;t t
- s,@TARGET_OBS@,$TARGET_OBS,;t t
- s,@PKGVERSION@,$PKGVERSION,;t t
-@@ -21880,6 +22023,9 @@ s,@WINDRES@,$WINDRES,;t t
- s,@ac_ct_WINDRES@,$ac_ct_WINDRES,;t t
- s,@MIG@,$MIG,;t t
- s,@ac_ct_MIG@,$ac_ct_MIG,;t t
-+s,@LIBICONV@,$LIBICONV,;t t
-+s,@LIBICONV_INCLUDE@,$LIBICONV_INCLUDE,;t t
-+s,@LIBICONV_LIBDIR@,$LIBICONV_LIBDIR,;t t
- s,@READLINE@,$READLINE,;t t
- s,@READLINE_DEPS@,$READLINE_DEPS,;t t
- s,@READLINE_CFLAGS@,$READLINE_CFLAGS,;t t
-@@ -21944,7 +22090,6 @@ s,@CONFIG_UNINSTALL@,$CONFIG_UNINSTALL,;t t
- s,@target_subdir@,$target_subdir,;t t
- s,@frags@,$frags,;t t
- s,@nm_h@,$nm_h,;t t
--s,@LIBICONV@,$LIBICONV,;t t
- s,@LIBOBJS@,$LIBOBJS,;t t
- s,@LTLIBOBJS@,$LTLIBOBJS,;t t
- s,@gl_LIBOBJS@,$gl_LIBOBJS,;t t
-diff --git a/gdb/configure.ac b/gdb/configure.ac
-index 3f81ff2..ff76053 100644
---- a/gdb/configure.ac
-+++ b/gdb/configure.ac
-@@ -1,6 +1,6 @@
- dnl Autoconf configure script for GDB, the GNU debugger.
- dnl Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
--dnl 2005, 2006, 2007, 2008
-+dnl 2005, 2006, 2007, 2008, 2009
- dnl Free Software Foundation, Inc.
- dnl
- dnl This file is part of GDB.
-@@ -118,6 +118,51 @@ case ${debugdir} in
- ;;
- esac
-
-+# GDB's datadir relocation
-+
-+gdbdatadir=${datadir}/gdb
-+
-+AC_ARG_WITH([gdb-datadir],
-+ [AS_HELP_STRING([--with-gdb-datadir],
-+ [look for global separate data files in this path [DATADIR/gdb]])], [gdbdatadir="${withval}"])
-+
-+AC_DEFINE_DIR(GDB_DATADIR, gdbdatadir,
-+ [Global directory for GDB data files. ])
-+
-+if test "x$exec_prefix" = xNONE || test "x$exec_prefix" = 'x${prefix}'; then
-+ if test "x$prefix" = xNONE; then
-+ test_prefix=/usr/local
-+ else
-+ test_prefix=$prefix
-+ fi
-+else
-+ test_prefix=$exec_prefix
-+fi
-+
-+case ${gdbdatadir} in
-+ "${test_prefix}"|"${test_prefix}/"*|\
-+ '${exec_prefix}'|'${exec_prefix}/'*)
-+ AC_DEFINE(GDB_DATADIR_RELOCATABLE, 1, [Define if GDB datadir should be relocated when GDB is moved.])
-+ ;;
-+esac
-+GDB_DATADIR_PATH=${gdbdatadir}
-+AC_SUBST(GDB_DATADIR_PATH)
-+
-+AC_ARG_WITH([pythondir],
-+ [AS_HELP_STRING([--with-pythondir],
-+ [install Python data files in this path [DATADIR/gdb/python]])], [pythondir="${withval}"], [pythondir=no])
-+
-+# If the user passed in a path, define it. Otherwise, compute it at
-+# runtime based on the possibly-relocatable datadir.
-+if test "$pythondir" = "no"; then
-+ pythondir='$(GDB_DATADIR_PATH)/python'
-+else
-+ AC_DEFINE_UNQUOTED(PYTHONDIR, "$pythondir",
-+ [Define to install path for Python sources])
-+fi
-+AC_SUBST(pythondir)
-+
-+
- AC_CONFIG_SUBDIRS(doc testsuite)
-
- # Check whether to support alternative target configurations
-@@ -430,6 +475,8 @@ AC_SEARCH_LIBS(zlibVersion, z, [AC_CHECK_HEADERS(zlib.h)])
- # On HP/UX we may need libxpdl for dlgetmodinfo (used by solib-pa64.c).
- AC_SEARCH_LIBS(dlgetmodinfo, [dl xpdl])
-
-+AM_ICONV
-+
- # On alpha-osf, it appears that libtermcap and libcurses are not compatible.
- # There is a very specific comment in /usr/include/curses.h explaining that
- # termcap routines built into libcurses must not be used.
-@@ -649,6 +696,8 @@ if test "${have_libpython}" = yes; then
- CONFIG_OBS="$CONFIG_OBS \$(SUBDIR_PYTHON_OBS)"
- CONFIG_DEPS="$CONFIG_DEPS \$(SUBDIR_PYTHON_DEPS)"
- CONFIG_SRCS="$CONFIG_SRCS \$(SUBDIR_PYTHON_SRCS)"
-+ CONFIG_INSTALL="$CONFIG_INSTALL install-python"
-+ CONFIG_UNINSTALL="$CONFIG_UNINSTALL uninstall-python"
- ENABLE_CFLAGS="$ENABLE_CFLAGS \$(SUBDIR_PYTHON_CFLAGS)"
-
- # Flags needed to compile Python code (taken from python-config --cflags).
-@@ -776,7 +825,8 @@ AC_FUNC_VFORK
- AC_CHECK_FUNCS([canonicalize_file_name realpath getrusage getuid \
- getgid poll pread64 sbrk setpgid setpgrp setsid \
- sigaction sigprocmask sigsetmask socketpair syscall \
-- ttrace wborder setlocale])
-+ ttrace wborder setlocale iconvlist])
-+AM_LANGINFO_CODESET
-
- # Check the return and argument types of ptrace. No canned test for
- # this, so roll our own.
-@@ -1930,17 +1980,10 @@ dnl Check for exe extension set on certain hosts (e.g. Win32)
- AC_EXEEXT
-
- dnl Detect the character set used by this host.
--
--dnl At the moment, we just assume it's ISO-8859-1 (which is a
--dnl superset of ASCII containing the characters needed for French,
--dnl German, Spanish, Italian, and possibly others), but if were
--dnl *were* to support any host character sets other than ISO-8859-1,
--dnl here's where we'd detect it.
--AC_DEFINE(GDB_DEFAULT_HOST_CHARSET, "ISO-8859-1",
-+dnl At the moment, we just assume it's UTF-8.
-+AC_DEFINE(GDB_DEFAULT_HOST_CHARSET, "UTF-8",
- [Define to be a string naming the default host character set.])
-
--AM_ICONV
--
- AC_OUTPUT(Makefile .gdbinit:gdbinit.in gnulib/Makefile,
- [
- dnl Autoconf doesn't provide a mechanism for modifying definitions
-diff --git a/gdb/configure.tgt b/gdb/configure.tgt
-index 65c3e25..f0cca7d 100644
---- a/gdb/configure.tgt
-+++ b/gdb/configure.tgt
-@@ -36,7 +36,7 @@ alpha*-*-osf*)
- alpha*-*-linux*)
- # Target: Little-endian Alpha running Linux
- gdb_target_obs="alpha-tdep.o alpha-mdebug-tdep.o alpha-linux-tdep.o \
-- solib.o solib-svr4.o"
-+ solib.o solib-svr4.o linux-tdep.o"
- ;;
- alpha*-*-freebsd* | alpha*-*-kfreebsd*-gnu)
- # Target: FreeBSD/alpha
-@@ -63,7 +63,7 @@ alpha*-*-*)
- am33_2.0*-*-linux*)
- # Target: Matsushita mn10300 (AM33) running Linux
- gdb_target_obs="mn10300-tdep.o mn10300-linux-tdep.o corelow.o \
-- solib.o solib-svr4.o"
-+ solib.o solib-svr4.o linux-tdep.o"
- ;;
-
- arm*-wince-pe | arm*-*-mingw32ce*)
-@@ -128,7 +128,7 @@ hppa*-*-hpux*)
- hppa*-*-linux*)
- # Target: HP PA-RISC running Linux
- gdb_target_obs="hppa-tdep.o hppa-linux-tdep.o glibc-tdep.o \
-- solib.o solib-svr4.o symfile-mem.o"
-+ solib.o solib-svr4.o symfile-mem.o linux-tdep.o"
- ;;
- hppa*-*-netbsd*)
- # Target: NetBSD/hppa
-@@ -218,7 +218,7 @@ i[34567]86-*-*)
- ia64-*-linux*)
- # Target: Intel IA-64 running GNU/Linux
- gdb_target_obs="ia64-tdep.o ia64-linux-tdep.o \
-- solib.o solib-svr4.o symfile-mem.o"
-+ solib.o solib-svr4.o symfile-mem.o linux-tdep.o"
- build_gdbserver=yes
- ;;
- ia64*-*-*)
-@@ -242,7 +242,8 @@ m32c-*-*)
- m32r*-*-linux*)
- # Target: Renesas M32R running GNU/Linux
- gdb_target_obs="m32r-tdep.o m32r-linux-tdep.o remote-m32r-sdi.o \
-- glibc-tdep.o solib.o solib-svr4.o symfile-mem.o"
-+ glibc-tdep.o solib.o solib-svr4.o symfile-mem.o \
-+ linux-tdep.o"
- gdb_sim=../sim/m32r/libsim.a
- build_gdbserver=yes
- ;;
-@@ -267,7 +268,7 @@ fido-*-elf*)
- m68*-*-linux*)
- # Target: Motorola m68k with a.out and ELF
- gdb_target_obs="m68k-tdep.o m68klinux-tdep.o solib.o solib-svr4.o \
-- glibc-tdep.o symfile-mem.o"
-+ glibc-tdep.o symfile-mem.o linux-tdep.o"
- build_gdbserver=yes
- ;;
- m68*-*-netbsd* | m68*-*-knetbsd*-gnu)
-@@ -303,7 +304,8 @@ mips*-sgi-irix6*)
- mips*-*-linux*)
- # Target: Linux/MIPS
- gdb_target_obs="mips-tdep.o mips-linux-tdep.o glibc-tdep.o \
-- corelow.o solib.o solib-svr4.o symfile-mem.o"
-+ corelow.o solib.o solib-svr4.o symfile-mem.o \
-+ linux-tdep.o"
- gdb_sim=../sim/mips/libsim.a
- build_gdbserver=yes
- ;;
-@@ -354,7 +356,8 @@ powerpc-*-aix* | rs6000-*-*)
- powerpc-*-linux* | powerpc64-*-linux*)
- # Target: PowerPC running Linux
- gdb_target_obs="rs6000-tdep.o ppc-linux-tdep.o ppc-sysv-tdep.o \
-- solib.o solib-svr4.o corelow.o symfile-mem.o"
-+ solib.o solib-svr4.o corelow.o symfile-mem.o \
-+ linux-tdep.o"
- gdb_sim=../sim/ppc/libsim.a
- build_gdbserver=yes
- ;;
-@@ -381,7 +384,8 @@ score-*-*)
- sh*-*-linux*)
- # Target: GNU/Linux Super-H
- gdb_target_obs="sh-tdep.o sh64-tdep.o sh-linux-tdep.o monitor.o \
-- dsrec.o solib.o solib-svr4.o symfile-mem.o glibc-tdep.o"
-+ dsrec.o solib.o solib-svr4.o symfile-mem.o glibc-tdep.o \
-+ linux-tdep.o"
- gdb_sim=../sim/sh/libsim.a
- build_gdbserver=yes
- ;;
-@@ -409,13 +413,14 @@ sh*)
- sparc-*-linux*)
- # Target: GNU/Linux SPARC
- gdb_target_obs="sparc-tdep.o sparc-sol2-tdep.o sol2-tdep.o \
-- sparc-linux-tdep.o solib.o solib-svr4.o symfile-mem.o"
-+ sparc-linux-tdep.o solib.o solib-svr4.o symfile-mem.o \
-+ linux-tdep.o"
- ;;
- sparc64-*-linux*)
- # Target: GNU/Linux UltraSPARC
- gdb_target_obs="sparc64-tdep.o sparc64-sol2-tdep.o sol2-tdep.o \
- sparc64-linux-tdep.o sparc-tdep.o sparc-sol2-tdep.o \
-- sparc-linux-tdep.o solib.o solib-svr4.o"
-+ sparc-linux-tdep.o solib.o solib-svr4.o linux-tdep.o"
- build_gdbserver=yes
- ;;
- sparc*-*-freebsd* | sparc*-*-kfreebsd*-gnu)
-@@ -542,7 +547,8 @@ x86_64-*-openbsd*)
- xtensa*-*-linux*) gdb_target=linux
- # Target: GNU/Linux Xtensa
- gdb_target_obs="xtensa-tdep.o xtensa-config.o xtensa-linux-tdep.o \
-- solib.o solib-svr4.o corelow.o symfile-mem.o"
-+ solib.o solib-svr4.o corelow.o symfile-mem.o \
-+ linux-tdep.o"
- build_gdbserver=yes
- ;;
- xtensa*)
-diff --git a/gdb/cp-name-parser.y b/gdb/cp-name-parser.y
-index 5f5ee3a..a8f8f30 100644
---- a/gdb/cp-name-parser.y
-+++ b/gdb/cp-name-parser.y
-@@ -1,7 +1,6 @@
- /* YACC parser for C++ names, for GDB.
-
-- Copyright (C) 2003, 2004, 2005, 2007, 2008, 2009
-- Free Software Foundation, Inc.
-+ Copyright (C) 2003, 2004, 2005, 2007, 2008, 2009 Free Software Foundation, Inc.
-
- Parts of the lexer are based on c-exp.y from GDB.
-
-@@ -501,7 +500,7 @@ operator : OPERATOR NEW
- | OPERATOR ARROW
- { $$ = make_operator ("->", 2); }
- | OPERATOR '(' ')'
-- { $$ = make_operator ("()", 0); }
-+ { $$ = make_operator ("()", 2); }
- | OPERATOR '[' ']'
- { $$ = make_operator ("[]", 2); }
- ;
-diff --git a/gdb/cp-namespace.c b/gdb/cp-namespace.c
-index c6c5617..4b84348 100644
---- a/gdb/cp-namespace.c
-+++ b/gdb/cp-namespace.c
-@@ -30,26 +30,13 @@
- #include "dictionary.h"
- #include "command.h"
- #include "frame.h"
-+#include "buildsym.h"
-
- /* List of using directives that are active in the current file. */
-
--static struct using_direct *using_list;
--
--static struct using_direct *cp_add_using (const char *name,
-- unsigned int inner_len,
-- unsigned int outer_len,
-- struct using_direct *next);
--
- static struct using_direct *cp_copy_usings (struct using_direct *using,
- struct obstack *obstack);
-
--static struct symbol *lookup_namespace_scope (const char *name,
-- const char *linkage_name,
-- const struct block *block,
-- const domain_enum domain,
-- const char *scope,
-- int scope_len);
--
- static struct symbol *lookup_symbol_file (const char *name,
- const char *linkage_name,
- const struct block *block,
-@@ -78,31 +65,6 @@ static struct symbol *lookup_possible_namespace_symbol (const char *name);
-
- static void maintenance_cplus_namespace (char *args, int from_tty);
-
--/* Set up support for dealing with C++ namespace info in the current
-- symtab. */
--
--void cp_initialize_namespace ()
--{
-- using_list = NULL;
--}
--
--/* Add all the using directives we've gathered to the current symtab.
-- STATIC_BLOCK should be the symtab's static block; OBSTACK is used
-- for allocation. */
--
--void
--cp_finalize_namespace (struct block *static_block,
-- struct obstack *obstack)
--{
-- if (using_list != NULL)
-- {
-- block_set_using (static_block,
-- cp_copy_usings (using_list, obstack),
-- obstack);
-- using_list = NULL;
-- }
--}
--
- /* Check to see if SYMBOL refers to an object contained within an
- anonymous namespace; if so, add an appropriate using directive. */
+ /* Allocate the hash table used by copy_type_recursive to walk
+- types without duplicates. We use OBJFILE's obstack, because
+- OBJFILE is about to be deleted. */
++ types without duplicates. */
-@@ -136,14 +98,17 @@ cp_scan_for_anonymous_namespaces (const struct symbol *symbol)
- "(anonymous namespace)",
- ANONYMOUS_NAMESPACE_LEN) == 0)
- {
-+ int outer_len = (previous_component == 0 ? 0 : previous_component - 2);
-+ char outer[outer_len+1];
-+
-+ strncpy(outer, name, outer_len);
-+
-+ outer[outer_len] = '\0';
- /* We've found a component of the name that's an
- anonymous namespace. So add symbols in it to the
- namespace given by the previous component if there is
- one, or to the global namespace if there isn't. */
-- cp_add_using_directive (name,
-- previous_component == 0
-- ? 0 : previous_component - 2,
-- next_component);
-+ cp_add_using_directive (outer, name, "", "", 0);
- }
- /* The "+ 2" is for the "::". */
- previous_component = next_component + 2;
-@@ -154,32 +119,27 @@ cp_scan_for_anonymous_namespaces (const struct symbol *symbol)
- }
+ htab_t
+ create_copied_types_hash (struct objfile *objfile)
+ {
+- return htab_create_alloc_ex (1, type_pair_hash, type_pair_eq,
+- NULL, &objfile->objfile_obstack,
+- hashtab_obstack_allocate,
+- dummy_obstack_deallocate);
++ if (objfile == NULL)
++ {
++ /* NULL OBJFILE is for TYPE_DYNAMIC types already contained in
++ OBJFILE_MALLOC memory, such as those from VALUE_HISTORY_CHAIN. Table
++ element entries get allocated by xmalloc - so use xfree. */
++ return htab_create (1, type_pair_hash, type_pair_eq, xfree);
++ }
++ else
++ {
++ /* Use OBJFILE's obstack, because OBJFILE is about to be deleted. Table
++ element entries get allocated by xmalloc - so use xfree. */
++ return htab_create_alloc_ex (1, type_pair_hash, type_pair_eq,
++ xfree, &objfile->objfile_obstack,
++ hashtab_obstack_allocate,
++ dummy_obstack_deallocate);
++ }
}
--/* Add a using directive to using_list. NAME is the start of a string
-- that should contain the namespaces we want to add as initial
-- substrings, OUTER_LENGTH is the end of the outer namespace, and
-- INNER_LENGTH is the end of the inner namespace. If the using
-- directive in question has already been added, don't add it
-- twice. */
-+/* Add a using directive to using_list. If the using directive in question
-+ has already been added, don't add it twice. */
+-/* Recursively copy (deep copy) TYPE, if it is associated with
+- OBJFILE. Return a new type allocated using malloc, a saved type if
+- we have already visited TYPE (using COPIED_TYPES), or TYPE if it is
+- not associated with OBJFILE. */
++/* A helper for copy_type_recursive. This does all the work. OBJFILE is used
++ only for an assertion checking. */
- void
--cp_add_using_directive (const char *name, unsigned int outer_length,
-- unsigned int inner_length)
-+cp_add_using_directive (const char *outer, const char *inner, const char* alias,
-+ const char *declaration, const int line_number)
+-struct type *
+-copy_type_recursive (struct objfile *objfile,
+- struct type *type,
+- htab_t copied_types)
++static struct type *
++copy_type_recursive_1 (struct objfile *objfile,
++ struct type *type,
++ htab_t copied_types)
{
- struct using_direct *current;
- struct using_direct *new;
-
- /* Has it already been added? */
-
-- for (current = using_list; current != NULL; current = current->next)
-+ for (current = using_directives; current != NULL; current = current->next)
- {
-- if ((strncmp (current->inner, name, inner_length) == 0)
-- && (strlen (current->inner) == inner_length)
-- && (strlen (current->outer) == outer_length))
-+ if (strcmp (current->inner, inner) == 0
-+ && strcmp (current->outer, outer) == 0)
- return;
- }
+ struct type_pair *stored, pair;
+ void **slot;
+ struct type *new_type;
-- using_list = cp_add_using (name, inner_length, outer_length,
-- using_list);
-+ using_directives = cp_add_using (outer, inner, alias, declaration,
-+ line_number,using_directives);
- }
+- if (! TYPE_OBJFILE_OWNED (type))
++ if (! TYPE_OBJFILE_OWNED (type) && !TYPE_DYNAMIC (type))
+ return type;
- /* Record the namespace that the function defined by SYMBOL was
-@@ -230,26 +190,31 @@ cp_is_anonymous (const char *namespace)
- != NULL);
- }
+ /* This type shouldn't be pointing to any types in other objfiles;
+@@ -3307,9 +3456,10 @@ copy_type_recursive (struct objfile *obj
+ new_type = alloc_type_arch (get_type_arch (type));
--/* Create a new struct using direct whose inner namespace is the
-- initial substring of NAME of leng INNER_LEN and whose outer
-- namespace is the initial substring of NAME of length OUTER_LENGTH.
-+/* Create a new struct using direct whose inner namespace is INNER
-+ and whose outer namespace is OUTER. ALIAS is the name of the imported
-+ namespace in the current scope. If ALIAS is an empty string then the
-+ namespace is known by its original name.
- Set its next member in the linked list to NEXT; allocate all memory
- using xmalloc. It copies the strings, so NAME can be a temporary
- string. */
-
--static struct using_direct *
--cp_add_using (const char *name,
-- unsigned int inner_len,
-- unsigned int outer_len,
-+struct using_direct *
-+cp_add_using (const char *outer,
-+ const char *inner,
-+ const char *alias,
-+ const char *declaration,
-+ const int line_number,
- struct using_direct *next)
- {
- struct using_direct *retval;
+ /* We must add the new type to the hash table immediately, in case
+- we encounter this type again during a recursive call below. */
+- stored
+- = obstack_alloc (&objfile->objfile_obstack, sizeof (struct type_pair));
++ we encounter this type again during a recursive call below. Memory could
++ be allocated from OBJFILE in the case we will be removing OBJFILE, this
++ optimization is missed and xfree is called for it from COPIED_TYPES. */
++ stored = xmalloc (sizeof (*stored));
+ stored->old = type;
+ stored->new = new_type;
+ *slot = stored;
+@@ -3320,6 +3470,21 @@ copy_type_recursive (struct objfile *obj
+ TYPE_OBJFILE_OWNED (new_type) = 0;
+ TYPE_OWNER (new_type).gdbarch = get_type_arch (type);
-- gdb_assert (outer_len < inner_len);
--
- retval = xmalloc (sizeof (struct using_direct));
-- retval->inner = savestring (name, inner_len);
-- retval->outer = savestring (name, outer_len);
-+ retval->inner = savestring (inner, strlen(inner));
-+ retval->outer = savestring (outer, strlen(outer));
-+ retval->alias = savestring (alias, strlen(alias));
-+ retval->declaration = savestring (declaration, strlen(declaration));
-+ retval->line_number = line_number;
-+
- retval->next = next;
-
- return retval;
-@@ -274,7 +239,11 @@ cp_copy_usings (struct using_direct *using,
- retval->inner = obsavestring (using->inner, strlen (using->inner),
- obstack);
- retval->outer = obsavestring (using->outer, strlen (using->outer),
-- obstack);
-+ obstack);
-+ retval->alias = obsavestring (using->alias, strlen (using->alias),
-+ obstack);
-+ retval->declaration = obsavestring (using->declaration, strlen (using->declaration),
-+ obstack);
- retval->next = cp_copy_usings (using->next, obstack);
-
- xfree (using->inner);
-@@ -299,8 +268,14 @@ cp_lookup_symbol_nonlocal (const char *name,
- const struct block *block,
- const domain_enum domain)
- {
-- return lookup_namespace_scope (name, linkage_name, block, domain,
-- block_scope (block), 0);
-+
-+ struct symbol* sym = lookup_namespace_scope(name, linkage_name, block,
-+ domain, block_scope(block), 0);
++#if 0
++ /* TYPE_MAIN_TYPE memory copy above rewrote the TYPE_DISCARDABLE flag so we
++ need to initialize it again. And even if TYPE was already discardable
++ NEW_TYPE so far is not registered in TYPE_DISCARDABLE_TABLE. */
++ TYPE_DISCARDABLE (new_type) = 0;
++ set_type_as_discardable (new_type);
++#endif
+
-+ if (sym != NULL)
-+ return sym;
++ /* Pre-clear the fields processed by delete_main_type. If DWARF block
++ evaluations below call error we would leave an unfreeable TYPE. */
++ TYPE_TARGET_TYPE (new_type) = NULL;
++ TYPE_VPTR_BASETYPE (new_type) = NULL;
++ TYPE_NFIELDS (new_type) = 0;
++ TYPE_FIELDS (new_type) = NULL;
+
-+ return lookup_symbol_file(name, linkage_name, block, domain, 0);
- }
-
- /* Lookup NAME at namespace scope (or, in C terms, in static and
-@@ -318,7 +293,7 @@ cp_lookup_symbol_nonlocal (const char *name,
- "A::x", and if that call fails, then the first call looks for
- "x". */
-
--static struct symbol *
-+struct symbol *
- lookup_namespace_scope (const char *name,
- const char *linkage_name,
- const struct block *block,
-@@ -354,10 +329,43 @@ lookup_namespace_scope (const char *name,
- namespace = alloca (scope_len + 1);
- strncpy (namespace, scope, scope_len);
- namespace[scope_len] = '\0';
-- return cp_lookup_symbol_namespace (namespace, name, linkage_name,
-+ return cp_lookup_symbol_namespace_incremental (namespace, name, linkage_name,
- block, domain);
- }
+ if (TYPE_NAME (type))
+ TYPE_NAME (new_type) = xstrdup (TYPE_NAME (type));
+ if (TYPE_TAG_NAME (type))
+@@ -3328,12 +3493,48 @@ copy_type_recursive (struct objfile *obj
+ TYPE_INSTANCE_FLAGS (new_type) = TYPE_INSTANCE_FLAGS (type);
+ TYPE_LENGTH (new_type) = TYPE_LENGTH (type);
-+/* Searches the for the given NAME in the given NAMESPACE, using import
-+ statements implied by the given BLOCK, *and its' parents*. */
-+struct symbol *
-+cp_lookup_symbol_namespace_incremental (const char *namespace,
-+ const char *name,
-+ const char *linkage_name,
-+ const struct block *block,
-+ const domain_enum domain)
-+{
-+ struct symbol *sym;
-+ const struct block *global_block = block_global_block (block);
-+
-+ /* Check if either no block is specified or it's a global block. */
-+
-+ if (global_block == NULL)
-+ return NULL;
-+
-+ while (block != global_block)
++ if (TYPE_ALLOCATED (new_type))
+ {
-+ sym = cp_lookup_symbol_namespace (namespace, name, linkage_name, block, domain);
-+
-+ if (sym != NULL)
-+ return sym;
++ gdb_assert (!TYPE_NOT_ALLOCATED (new_type));
+
-+ block = BLOCK_SUPERBLOCK (block);
++ if (!dwarf_locexpr_baton_eval (TYPE_ALLOCATED (new_type)))
++ TYPE_NOT_ALLOCATED (new_type) = 1;
++ TYPE_ALLOCATED (new_type) = NULL;
+ }
+
-+ /* We've reached the global block without finding a result. */
++ if (TYPE_ASSOCIATED (new_type))
++ {
++ gdb_assert (!TYPE_NOT_ASSOCIATED (new_type));
+
-+ return NULL;
-+}
++ if (!dwarf_locexpr_baton_eval (TYPE_ASSOCIATED (new_type)))
++ TYPE_NOT_ASSOCIATED (new_type) = 1;
++ TYPE_ASSOCIATED (new_type) = NULL;
++ }
+
++ if (!TYPE_DATA_LOCATION_IS_ADDR (new_type)
++ && TYPE_DATA_LOCATION_DWARF_BLOCK (new_type))
++ {
++ if (TYPE_NOT_ALLOCATED (new_type)
++ || TYPE_NOT_ASSOCIATED (new_type))
++ TYPE_DATA_LOCATION_DWARF_BLOCK (new_type) = NULL;
++ else
++ {
++ TYPE_DATA_LOCATION_IS_ADDR (new_type) = 1;
++ TYPE_DATA_LOCATION_ADDR (new_type) = dwarf_locexpr_baton_eval
++ (TYPE_DATA_LOCATION_DWARF_BLOCK (new_type));
++ }
++ }
+
- /* Look up NAME in the C++ namespace NAMESPACE, applying the using
- directives that are active in BLOCK. Other arguments are as in
- cp_lookup_symbol_nonlocal. */
-@@ -370,7 +378,7 @@ cp_lookup_symbol_namespace (const char *namespace,
- const domain_enum domain)
- {
- const struct using_direct *current;
-- struct symbol *sym;
-+ struct symbol *sym = NULL;
-
- /* First, go through the using directives. If any of them add new
- names to the namespace we're searching in, see if we can find a
-@@ -380,15 +388,42 @@ cp_lookup_symbol_namespace (const char *namespace,
- current != NULL;
- current = current->next)
- {
-- if (strcmp (namespace, current->outer) == 0)
-+
-+ int current_line = find_pc_line (get_frame_pc (get_current_frame ()), 0).line;
-+
-+ if (strcmp (namespace, current->outer) == 0 && current->line_number < current_line)
- {
-- sym = cp_lookup_symbol_namespace (current->inner,
-- name,
-- linkage_name,
-- block,
-- domain);
-- if (sym != NULL)
-+
-+ if(strcmp ("", current->declaration) != 0){
-+ if(strcmp (name, current->declaration) == 0){
-+ sym = cp_lookup_symbol_namespace (current->inner,
-+ name,
-+ linkage_name,
-+ block,
-+ domain);
-+ }
-+
-+ }else{
-+ /* Check for aliases */
-+ if(strcmp (name, current->alias) == 0){
-+ sym = cp_lookup_symbol_namespace (namespace,
-+ current->inner,
-+ linkage_name,
-+ block,
-+ domain);
-+ }else{
-+ if(strcmp ("", current->alias) == 0){
-+ sym = cp_lookup_symbol_namespace (current->inner,
-+ name,
-+ linkage_name,
-+ block,
-+ domain);
-+ }
-+ }
-+ }
-+ if (sym != NULL){
- return sym;
-+ }
- }
- }
-
-@@ -398,8 +433,10 @@ cp_lookup_symbol_namespace (const char *namespace,
-
- if (namespace[0] == '\0')
- {
-- return lookup_symbol_file (name, linkage_name, block,
-- domain, 0);
-+ sym = lookup_symbol_file (name, linkage_name,
-+ block, domain,
-+ cp_is_anonymous (namespace));
-+ return sym;
- }
- else
- {
-diff --git a/gdb/cp-support.c b/gdb/cp-support.c
-index bf42636..9f04c86 100644
---- a/gdb/cp-support.c
-+++ b/gdb/cp-support.c
-@@ -175,7 +175,8 @@ mangled_name_to_comp (const char *mangled_name, int options,
- return ret;
- }
-
--/* Return the name of the class containing method PHYSNAME. */
-+/* Return the name of the class or namespace containing
-+ function, method, or variable PHYSNAME. */
-
- char *
- cp_class_name_from_physname (const char *physname)
-diff --git a/gdb/cp-support.h b/gdb/cp-support.h
-index 837ca6c..23f8d5b 100644
---- a/gdb/cp-support.h
-+++ b/gdb/cp-support.h
-@@ -38,14 +38,28 @@ struct demangle_component;
-
- /* This struct is designed to store data from using directives. It
- says that names from namespace INNER should be visible within
-- namespace OUTER. OUTER should always be a strict initial substring
-- of INNER. These form a linked list; NEXT is the next element of
-- the list. */
-+ namespace OUTER These form a linked list; NEXT is the next element of
-+ the list. ALIAS is set to a non empty string if the imported namespace
-+ has been aliased.Eg:
-+ namespace C=A::B;
-+ ALIAS = "C"
-+ DECLARATION is the name of the imported declaration, if this import
-+ statement represents one. Eg:
-+ using A::x;
-+ Where x is variable in namespace A. declaration is set to x.
-+*/
-
- struct using_direct
- {
- char *inner;
- char *outer;
-+
-+ char *alias;
-+
-+ char *declaration;
-+
-+ int line_number;
-+
- struct using_direct *next;
- };
-
-@@ -54,6 +68,7 @@ struct using_direct
-
- extern char *cp_canonicalize_string (const char *string);
-
-+
- extern char *cp_class_name_from_physname (const char *physname);
-
- extern char *method_name_from_physname (const char *physname);
-@@ -76,9 +91,18 @@ extern struct type *cp_lookup_rtti_type (const char *name,
-
- extern int cp_is_anonymous (const char *namespace);
-
--extern void cp_add_using_directive (const char *name,
-- unsigned int outer_length,
-- unsigned int inner_length);
-+extern void cp_add_using_directive (const char *outer,
-+ const char *inner,
-+ const char *alias,
-+ const char *declaration,
-+ const int line_number);
-+
-+extern struct using_direct *cp_add_using (const char *outer,
-+ const char *inner,
-+ const char *alias,
-+ const char *declaration,
-+ const int line_number,
-+ struct using_direct *next);
-
- extern void cp_initialize_namespace (void);
-
-@@ -98,6 +122,19 @@ extern struct symbol *cp_lookup_symbol_nonlocal (const char *name,
- const struct block *block,
- const domain_enum domain);
-
-+extern struct symbol *lookup_namespace_scope (const char *name,
-+ const char *linkage_name,
-+ const struct block *block,
-+ const domain_enum domain,
-+ const char *scope,
-+ int scope_len);
-+
-+extern struct symbol *cp_lookup_symbol_namespace_incremental (const char *namespace,
-+ const char *name,
-+ const char *linkage_name,
-+ const struct block *block,
-+ const domain_enum domain);
-+
- extern struct symbol *cp_lookup_symbol_namespace (const char *namespace,
- const char *name,
- const char *linkage_name,
-diff --git a/gdb/cp-valprint.c b/gdb/cp-valprint.c
-index 8b7d868..dcd32cb 100644
---- a/gdb/cp-valprint.c
-+++ b/gdb/cp-valprint.c
-@@ -461,6 +461,7 @@ cp_print_static_field (struct type *type,
- if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
+ /* Copy the fields. */
+ if (TYPE_NFIELDS (type))
{
- CORE_ADDR *first_dont_print;
-+ CORE_ADDR addr;
- int i;
-
- first_dont_print
-@@ -470,7 +471,7 @@ cp_print_static_field (struct type *type,
+ int i, nfields;
- while (--i >= 0)
++ /* TYPE_CODE_RANGE uses TYPE_RANGE_DATA of the union with TYPE_FIELDS. */
++ gdb_assert (TYPE_CODE (type) != TYPE_CODE_RANGE);
++
+ nfields = TYPE_NFIELDS (type);
++ TYPE_NFIELDS (new_type) = nfields;
+ TYPE_FIELDS (new_type) = XCALLOC (nfields, struct field);
+ for (i = 0; i < nfields; i++)
{
-- if (VALUE_ADDRESS (val) == first_dont_print[i])
-+ if (value_address (val) == first_dont_print[i])
- {
- fputs_filtered ("<same as static member of an already"
- " seen type>",
-@@ -479,12 +480,13 @@ cp_print_static_field (struct type *type,
- }
+@@ -3342,8 +3543,8 @@ copy_type_recursive (struct objfile *obj
+ TYPE_FIELD_BITSIZE (new_type, i) = TYPE_FIELD_BITSIZE (type, i);
+ if (TYPE_FIELD_TYPE (type, i))
+ TYPE_FIELD_TYPE (new_type, i)
+- = copy_type_recursive (objfile, TYPE_FIELD_TYPE (type, i),
+- copied_types);
++ = copy_type_recursive_1 (objfile, TYPE_FIELD_TYPE (type, i),
++ copied_types);
+ if (TYPE_FIELD_NAME (type, i))
+ TYPE_FIELD_NAME (new_type, i) =
+ xstrdup (TYPE_FIELD_NAME (type, i));
+@@ -3370,24 +3571,184 @@ copy_type_recursive (struct objfile *obj
}
-
-- obstack_grow (&dont_print_statmem_obstack, (char *) &VALUE_ADDRESS (val),
-+ addr = value_address (val);
-+ obstack_grow (&dont_print_statmem_obstack, (char *) &addr,
- sizeof (CORE_ADDR));
-
- CHECK_TYPEDEF (type);
- cp_print_value_fields (type, type, value_contents_all (val),
-- value_embedded_offset (val), VALUE_ADDRESS (val),
-+ value_embedded_offset (val), value_address (val),
- stream, recurse, options, NULL, 1);
- return;
}
-@@ -492,7 +494,7 @@ cp_print_static_field (struct type *type,
- opts = *options;
- opts.deref_ref = 0;
- val_print (type, value_contents_all (val),
-- value_embedded_offset (val), VALUE_ADDRESS (val),
-+ value_embedded_offset (val), value_address (val),
- stream, recurse, &opts, current_language);
- }
-diff --git a/gdb/dbxread.c b/gdb/dbxread.c
-index 115bdef..7f756af 100644
---- a/gdb/dbxread.c
-+++ b/gdb/dbxread.c
-@@ -1,6 +1,6 @@
- /* Read dbx symbol tables and convert to internal format, for GDB.
- Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995,
-- 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2008.
-+ 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2008, 2009.
- Free Software Foundation, Inc.
-
- This file is part of GDB.
-@@ -1188,6 +1188,8 @@ read_dbx_symtab (struct objfile *objfile)
- struct internal_nlist nlist;
- CORE_ADDR text_addr;
- int text_size;
-+ char *sym_name;
-+ int sym_len;
-
- char *namestring;
- int nsl;
-@@ -1681,6 +1683,28 @@ pos %d"),
- if (!p)
- continue; /* Not a debugging symbol. */
-
-+ sym_len = 0;
-+ if (psymtab_language == language_cplus)
++ /* Both FIELD_LOC_KIND_DWARF_BLOCK and TYPE_RANGE_HIGH_BOUND_IS_COUNT were
++ possibly converted. */
++ TYPE_DYNAMIC (new_type) = 0;
++
+ /* For range types, copy the bounds information. */
+- if (TYPE_CODE (type) == TYPE_CODE_RANGE)
++ if (TYPE_CODE (new_type) == TYPE_CODE_RANGE)
+ {
+ TYPE_RANGE_DATA (new_type) = xmalloc (sizeof (struct range_bounds));
+ *TYPE_RANGE_DATA (new_type) = *TYPE_RANGE_DATA (type);
++
++ switch (TYPE_RANGE_DATA (new_type)->low.kind)
++ {
++ case RANGE_BOUND_KIND_CONSTANT:
++ break;
++ case RANGE_BOUND_KIND_DWARF_BLOCK:
++ /* `struct dwarf2_locexpr_baton' is too bound to its objfile so
++ it is expected to be made constant by CHECK_TYPEDEF.
++ TYPE_NOT_ALLOCATED and TYPE_NOT_ASSOCIATED are not valid for TYPE.
++ */
++ if (TYPE_NOT_ALLOCATED (new_type) || TYPE_NOT_ASSOCIATED (new_type)
++ || ! has_stack_frames ())
+ {
-+ char *new_name, *name = alloca (p - namestring + 1);
-+ memcpy (name, namestring, p - namestring);
-+ name[p - namestring] = '\0';
-+ new_name = cp_canonicalize_string (name);
-+ if (new_name != NULL)
-+ {
-+ sym_len = strlen (new_name);
-+ sym_name = obsavestring (new_name, sym_len,
-+ &objfile->objfile_obstack);
-+ xfree (new_name);
-+ }
++ /* We should set 1 for Fortran but how to find the language? */
++ TYPE_LOW_BOUND (new_type) = 0;
++ TYPE_LOW_BOUND_UNDEFINED (new_type) = 1;
+ }
-+
-+ if (sym_len == 0)
++ else
+ {
-+ sym_name = namestring;
-+ sym_len = p - namestring;
++ TYPE_LOW_BOUND (new_type) = dwarf_locexpr_baton_eval
++ (TYPE_RANGE_DATA (new_type)->low.u.dwarf_block);
++ if (TYPE_LOW_BOUND (new_type) >= 0)
++ TYPE_UNSIGNED (new_type) = 1;
+ }
++ TYPE_RANGE_DATA (new_type)->low.kind = RANGE_BOUND_KIND_CONSTANT;
++ break;
++ case RANGE_BOUND_KIND_DWARF_LOCLIST:
++ {
++ CORE_ADDR addr;
++
++ /* `struct dwarf2_loclist_baton' is too bound to its objfile so
++ it is expected to be made constant by CHECK_TYPEDEF.
++ TYPE_NOT_ALLOCATED and TYPE_NOT_ASSOCIATED are not valid for TYPE.
++ */
++ if (! TYPE_NOT_ALLOCATED (new_type)
++ && ! TYPE_NOT_ASSOCIATED (new_type) && has_stack_frames ()
++ && dwarf_loclist_baton_eval
++ (TYPE_RANGE_DATA (new_type)->low.u.dwarf_loclist.loclist,
++ TYPE_RANGE_DATA (new_type)->low.u.dwarf_loclist.type, &addr))
++ {
++ TYPE_LOW_BOUND (new_type) = addr;
++ if (TYPE_LOW_BOUND (new_type) >= 0)
++ TYPE_UNSIGNED (new_type) = 1;
++ }
++ else
++ {
++ /* We should set 1 for Fortran but how to find the language? */
++ TYPE_LOW_BOUND (new_type) = 0;
++ TYPE_LOW_BOUND_UNDEFINED (new_type) = 1;
++ }
++ TYPE_RANGE_DATA (new_type)->low.kind = RANGE_BOUND_KIND_CONSTANT;
++ }
++ break;
++ }
+
- /* Main processing section for debugging symbols which
- the initial read through the symbol tables needs to worry
- about. If we reach this point, the symbol which we are
-@@ -1698,7 +1722,7 @@ pos %d"),
- namestring = gdbarch_static_transform_name (gdbarch,
- namestring);
-
-- add_psymbol_to_list (namestring, p - namestring,
-+ add_psymbol_to_list (sym_name, sym_len,
- VAR_DOMAIN, LOC_STATIC,
- &objfile->static_psymbols,
- 0, nlist.n_value,
-@@ -1710,7 +1734,7 @@ pos %d"),
- data_sect_index);
- /* The addresses in these entries are reported to be
- wrong. See the code that reads 'G's for symtabs. */
-- add_psymbol_to_list (namestring, p - namestring,
-+ add_psymbol_to_list (sym_name, sym_len,
- VAR_DOMAIN, LOC_STATIC,
- &objfile->global_psymbols,
- 0, nlist.n_value,
-@@ -1728,7 +1752,7 @@ pos %d"),
- || (p == namestring + 1
- && namestring[0] != ' '))
- {
-- add_psymbol_to_list (namestring, p - namestring,
-+ add_psymbol_to_list (sym_name, sym_len,
- STRUCT_DOMAIN, LOC_TYPEDEF,
- &objfile->static_psymbols,
- nlist.n_value, 0,
-@@ -1736,7 +1760,7 @@ pos %d"),
- if (p[2] == 't')
- {
- /* Also a typedef with the same name. */
-- add_psymbol_to_list (namestring, p - namestring,
-+ add_psymbol_to_list (sym_name, sym_len,
- VAR_DOMAIN, LOC_TYPEDEF,
- &objfile->static_psymbols,
- nlist.n_value, 0,
-@@ -1749,7 +1773,7 @@ pos %d"),
- case 't':
- if (p != namestring) /* a name is there, not just :T... */
- {
-- add_psymbol_to_list (namestring, p - namestring,
-+ add_psymbol_to_list (sym_name, sym_len,
- VAR_DOMAIN, LOC_TYPEDEF,
- &objfile->static_psymbols,
- nlist.n_value, 0,
-@@ -1829,7 +1853,7 @@ pos %d"),
-
- case 'c':
- /* Constant, e.g. from "const" in Pascal. */
-- add_psymbol_to_list (namestring, p - namestring,
-+ add_psymbol_to_list (sym_name, sym_len,
- VAR_DOMAIN, LOC_CONST,
- &objfile->static_psymbols, nlist.n_value,
- 0, psymtab_language, objfile);
-@@ -1893,7 +1917,7 @@ pos %d"),
- pst->textlow = nlist.n_value;
- textlow_not_set = 0;
- }
-- add_psymbol_to_list (namestring, p - namestring,
-+ add_psymbol_to_list (sym_name, sym_len,
- VAR_DOMAIN, LOC_BLOCK,
- &objfile->static_psymbols,
- 0, nlist.n_value,
-@@ -1961,7 +1985,7 @@ pos %d"),
- pst->textlow = nlist.n_value;
- textlow_not_set = 0;
- }
-- add_psymbol_to_list (namestring, p - namestring,
-+ add_psymbol_to_list (sym_name, sym_len,
- VAR_DOMAIN, LOC_BLOCK,
- &objfile->global_psymbols,
- 0, nlist.n_value,
-@@ -3547,6 +3571,7 @@ static struct sym_fns aout_sym_fns =
- dbx_new_init, /* sym_new_init: init anything gbl to entire symtab */
- dbx_symfile_init, /* sym_init: read initial info, setup for sym_read() */
- dbx_symfile_read, /* sym_read: read a symbol file into symtab */
-+ NULL, /* sym_read_psymbols */
- dbx_symfile_finish, /* sym_finish: finished with file, cleanup */
- default_symfile_offsets, /* sym_offsets: parse user's offsets to
- internal form */
-diff --git a/gdb/defs.h b/gdb/defs.h
-index 845b320..ad6e7d7 100644
---- a/gdb/defs.h
-+++ b/gdb/defs.h
-@@ -151,6 +151,9 @@ extern int dbx_commands;
- /* System root path, used to find libraries etc. */
- extern char *gdb_sysroot;
-
-+/* GDB datadir, used to store data files. */
-+extern char *gdb_datadir;
-+
- /* Search path for separate debug files. */
- extern char *debug_file_directory;
-
-@@ -366,6 +369,9 @@ extern struct cleanup *make_cleanup_fclose (FILE *file);
-
- extern struct cleanup *make_cleanup_bfd_close (bfd *abfd);
-
-+struct obstack;
-+extern struct cleanup *make_cleanup_obstack_free (struct obstack *obstack);
-+
- extern struct cleanup *make_cleanup_restore_integer (int *variable);
-
- extern struct cleanup *make_final_cleanup (make_cleanup_ftype *, void *);
-diff --git a/gdb/doc/gdb.texinfo b/gdb/doc/gdb.texinfo
-index 10e7388..d2c0f1e 100644
---- a/gdb/doc/gdb.texinfo
-+++ b/gdb/doc/gdb.texinfo
-@@ -955,8 +955,10 @@ Connect to process ID @var{number}, as with the @code{attach} command.
- @itemx -x @var{file}
- @cindex @code{--command}
- @cindex @code{-x}
--Execute @value{GDBN} commands from file @var{file}. @xref{Command
--Files,, Command files}.
-+Execute commands from file @var{file}. If @var{file} ends in
-+@samp{.py}, then the file is evaluated as Python code. If Python
-+support is not enabled in this @value{GDBN}, then an error occurs.
-+@xref{Command Files,, Command files}.
-
- @item -eval-command @var{command}
- @itemx -ex @var{command}
-@@ -1148,6 +1150,16 @@ for remote debugging.
- Run using @var{device} for your program's standard input and output.
- @c FIXME: kingdon thinks there is more to -tty. Investigate.
-
-+@item -P
-+@cindex @code{-P}
-+@itemx --python
-+@cindex @code{--python}
-+Change interpretation of command line so that the argument immediately
-+following this switch is taken to be the name of a Python script file.
-+This option stops option processing; subsequent options are passed to
-+Python as @code{sys.argv}. This option is only available if Python
-+scripting support was enabled when @value{GDBN} was configured.
-+
- @c resolve the situation of these eventually
- @item -tui
- @cindex @code{--tui}
-@@ -3636,6 +3648,98 @@ A failed Ada assertion.
- A call to @code{exec}. This is currently only available for HP-UX
- and @sc{gnu}/Linux.
-
-+@item syscall
-+@itemx syscall @r{[}@var{name} @r{|} @var{number}@r{]} @r{...}
-+@cindex break on a system call.
-+A call to or return from a @code{syscall}. If no argument is specified,
-+then it catches a call to or return from any system call.
-+
-+@var{name} can be any valid system call name in the system. You can
-+use the @value{GDBN} command-line completion facilities to list the
-+available choices. @xref{Completion,, Command Completion}, for
-+details on how to do this.
-+
-+You may also specify the system call numerically. This may be useful
-+if @value{GDBN} does not fully support your system's list of system
-+calls.
-+
-+The example below illustrates how this command works if you don't provide
-+arguments to it:
-+
-+@smallexample
-+(@value{GDBP}) catch syscall
-+Catchpoint 1 (syscall)
-+(@value{GDBP}) r
-+Starting program: /tmp/catch-syscall
-+
-+Catchpoint 1 (call to syscall 'close'), 0xffffe424 in __kernel_vsyscall ()
-+(@value{GDBP}) c
-+Continuing.
-+
-+Catchpoint 1 (returned from syscall 'close'), 0xffffe424 in __kernel_vsyscall ()
-+(@value{GDBP})
-+@end smallexample
-+
-+Here is an example of catching a system call by name:
-+
-+@smallexample
-+(@value{GDBP}) catch syscall chroot
-+Catchpoint 1 (syscall(s) 'chroot')
-+(@value{GDBP}) r
-+Starting program: /tmp/catch-syscall
-+
-+Catchpoint 1 (call to syscall 'chroot'), 0xffffe424 in __kernel_vsyscall ()
-+(@value{GDBP}) c
-+Continuing.
-+
-+Catchpoint 1 (returned from syscall 'chroot'), 0xffffe424 in __kernel_vsyscall ()
-+(@value{GDBP})
-+@end smallexample
-+
-+And last but not least, an example of specifying a system call
-+numerically:
-+
-+@smallexample
-+(@value{GDBP}) catch syscall 252
-+Catchpoint 1 (syscall(s) 'exit_group')
-+(@value{GDBP}) r
-+Starting program: /tmp/catch-syscall
-+
-+Catchpoint 1 (call to syscall 'exit_group'), 0xffffe424 in __kernel_vsyscall ()
-+(@value{GDBP}) c
-+Continuing.
-+
-+Program exited normally.
-+(@value{GDBP})
-+@end smallexample
-+
-+If you configure @value{GDBN} using the @samp{--without-expat} option,
-+it will not be able to display syscall names. Also, if your
-+architecture does not have an XML file describing its system calls,
-+you will not be able to see the syscall names. In either case, you
-+will see a warning like this:
-+
-+@smallexample
-+(@value{GDBP}) catch syscall
-+warning: Could not open "syscalls/i386-linux.xml"
-+warning: Could not load the syscall XML file 'syscalls/i386-linux.xml'.
-+GDB will not be able to display syscall names.
-+Catchpoint 1 (syscall)
-+(@value{GDBP})
-+@end smallexample
-+
-+Of course, the file name will change depending on your architecture and system.
-+
-+Still using the example above, you can also try to catch a syscall by its
-+number. In this case, you would see something like:
-+
-+@smallexample
-+(@value{GDBP}) catch syscall 252
-+Catchpoint 1 (syscall(s) 252)
-+@end smallexample
-+
-+Again, in this case @value{GDBN} would not be able to display syscall's names.
-+
- @item fork
- A call to @code{fork}. This is currently only available for HP-UX
- and @sc{gnu}/Linux.
-@@ -4711,6 +4815,24 @@ the program to report that some thread has stopped before prompting for
- another command. In background execution, @value{GDBN} immediately gives
- a command prompt so that you can issue other commands while your program runs.
-
-+You need to explicitly enable asynchronous mode before you can use
-+background execution commands. You can use these commands to
-+manipulate the asynchronous mode setting:
-+
-+@table @code
-+@kindex set target-async
-+@item set target-async on
-+Enable asynchronous mode.
-+@item set target-async off
-+Disable asynchronous mode.
-+@kindex show target-async
-+@item show target-async
-+Show the current target-async setting.
-+@end table
++ switch (TYPE_RANGE_DATA (new_type)->high.kind)
++ {
++ case RANGE_BOUND_KIND_CONSTANT:
++ break;
++ case RANGE_BOUND_KIND_DWARF_BLOCK:
++ /* `struct dwarf2_locexpr_baton' is too bound to its objfile so
++ it is expected to be made constant by CHECK_TYPEDEF.
++ TYPE_NOT_ALLOCATED and TYPE_NOT_ASSOCIATED are not valid for TYPE.
++ */
++ if (TYPE_NOT_ALLOCATED (new_type) || TYPE_NOT_ASSOCIATED (new_type)
++ || ! has_stack_frames ())
++ {
++ TYPE_HIGH_BOUND (new_type) = TYPE_LOW_BOUND (new_type) - 1;
++ TYPE_HIGH_BOUND_UNDEFINED (new_type) = 1;
++ }
++ else
++ TYPE_HIGH_BOUND (new_type) = dwarf_locexpr_baton_eval
++ (TYPE_RANGE_DATA (new_type)->high.u.dwarf_block);
++ TYPE_RANGE_DATA (new_type)->high.kind = RANGE_BOUND_KIND_CONSTANT;
++ break;
++ case RANGE_BOUND_KIND_DWARF_LOCLIST:
++ {
++ CORE_ADDR addr;
++
++ /* `struct dwarf2_loclist_baton' is too bound to its objfile so
++ it is expected to be made constant by CHECK_TYPEDEF.
++ TYPE_NOT_ALLOCATED and TYPE_NOT_ASSOCIATED are not valid for TYPE.
++ */
++ if (! TYPE_NOT_ALLOCATED (new_type)
++ && ! TYPE_NOT_ASSOCIATED (new_type) && has_stack_frames ()
++ && dwarf_loclist_baton_eval
++ (TYPE_RANGE_DATA (new_type)->high.u.dwarf_loclist.loclist,
++ TYPE_RANGE_DATA (new_type)->high.u.dwarf_loclist.type,
++ &addr))
++ TYPE_HIGH_BOUND (new_type) = addr;
++ else
++ {
++ TYPE_HIGH_BOUND (new_type) = TYPE_LOW_BOUND (new_type) - 1;
++ TYPE_HIGH_BOUND_UNDEFINED (new_type) = 1;
++ }
++ TYPE_RANGE_DATA (new_type)->high.kind = RANGE_BOUND_KIND_CONSTANT;
++ }
++ break;
++ }
+
-+If the target doesn't support async mode, @value{GDBN} issues an error
-+message if you attempt to use the background execution commands.
++ switch (TYPE_RANGE_DATA (new_type)->byte_stride.kind)
++ {
++ case RANGE_BOUND_KIND_CONSTANT:
++ break;
++ case RANGE_BOUND_KIND_DWARF_BLOCK:
++ /* `struct dwarf2_locexpr_baton' is too bound to its objfile so
++ it is expected to be made constant by CHECK_TYPEDEF.
++ TYPE_NOT_ALLOCATED and TYPE_NOT_ASSOCIATED are not valid for TYPE.
++ */
++ if (TYPE_NOT_ALLOCATED (new_type) || TYPE_NOT_ASSOCIATED (new_type)
++ || ! has_stack_frames ())
++ TYPE_BYTE_STRIDE (new_type) = 0;
++ else
++ TYPE_BYTE_STRIDE (new_type) = dwarf_locexpr_baton_eval
++ (TYPE_RANGE_DATA (new_type)->byte_stride.u.dwarf_block);
++ TYPE_RANGE_DATA (new_type)->byte_stride.kind
++ = RANGE_BOUND_KIND_CONSTANT;
++ break;
++ case RANGE_BOUND_KIND_DWARF_LOCLIST:
++ {
++ CORE_ADDR addr = 0;
++
++ /* `struct dwarf2_loclist_baton' is too bound to its objfile so
++ it is expected to be made constant by CHECK_TYPEDEF.
++ TYPE_NOT_ALLOCATED and TYPE_NOT_ASSOCIATED are not valid for TYPE.
++ */
++ if (! TYPE_NOT_ALLOCATED (new_type)
++ && ! TYPE_NOT_ASSOCIATED (new_type) && has_stack_frames ())
++ dwarf_loclist_baton_eval
++ (TYPE_RANGE_DATA (new_type)->byte_stride.u.dwarf_loclist.loclist,
++ TYPE_RANGE_DATA (new_type)->byte_stride.u.dwarf_loclist.type,
++ &addr);
++ TYPE_BYTE_STRIDE (new_type) = addr;
++ TYPE_RANGE_DATA (new_type)->byte_stride.kind
++ = RANGE_BOUND_KIND_CONSTANT;
++ }
++ break;
++ }
+
- To specify background execution, add a @code{&} to the command. For example,
- the background form of the @code{continue} command is @code{continue&}, or
- just @code{c&}. The execution commands that accept background execution
-@@ -4776,11 +4898,6 @@ only the current thread. To stop the whole program in non-stop mode,
- use @code{interrupt -a}.
- @end table
-
--You may need to explicitly enable async mode before you can use background
--execution commands, with the @code{set target-async 1} command. If the
--target doesn't support async mode, @value{GDBN} issues an error message
--if you attempt to use the background execution commands.
--
- @node Thread-Specific Breakpoints
- @subsection Thread-Specific Breakpoints
-
-@@ -6536,6 +6653,12 @@ Without this format, @value{GDBN} displays pointers to and arrays of
- @code{char}, @w{@code{unsigned char}}, and @w{@code{signed char}} as
- strings. Single-byte members of a vector are displayed as an integer
- array.
-+
-+@item r
-+@cindex raw printing
-+Print using the @samp{raw} formatting. By default, @value{GDBN} will
-+use a type-specific pretty-printer. The @samp{r} format bypasses any
-+pretty-printer which might exist for the value's type.
- @end table
-
- For example, to print the program counter in hex (@pxref{Registers}), type
-@@ -7408,6 +7531,20 @@ On HP-UX systems, if you refer to a function or variable name that
- begins with a dollar sign, @value{GDBN} searches for a user or system
- name first, before it searches for a convenience variable.
++ /* Convert TYPE_RANGE_HIGH_BOUND_IS_COUNT into a regular bound. */
++ if (TYPE_RANGE_HIGH_BOUND_IS_COUNT (new_type))
++ {
++ TYPE_HIGH_BOUND (new_type) = TYPE_LOW_BOUND (new_type)
++ + TYPE_HIGH_BOUND (new_type) - 1;
++ TYPE_RANGE_HIGH_BOUND_IS_COUNT (new_type) = 0;
++ }
+ }
-+@cindex convenience functions
-+@value{GDBN} also supplies some @dfn{convenience functions}. These
-+have a syntax similar to convenience variables. A convenience
-+function can be used in an expression just like an ordinary function;
-+however, a convenience function is implemented internally to
-+@value{GDBN}.
+ /* Copy pointers to other types. */
+ if (TYPE_TARGET_TYPE (type))
+ TYPE_TARGET_TYPE (new_type) =
+- copy_type_recursive (objfile,
+- TYPE_TARGET_TYPE (type),
+- copied_types);
++ copy_type_recursive_1 (objfile,
++ TYPE_TARGET_TYPE (type),
++ copied_types);
+ if (TYPE_VPTR_BASETYPE (type))
+ TYPE_VPTR_BASETYPE (new_type) =
+- copy_type_recursive (objfile,
+- TYPE_VPTR_BASETYPE (type),
+- copied_types);
++ copy_type_recursive_1 (objfile,
++ TYPE_VPTR_BASETYPE (type),
++ copied_types);
+
-+@table @code
-+@item help function
-+@kindex help function
-+@cindex show all convenience functions
-+Print a list of all convenience functions.
-+@end table
++ if (TYPE_CODE (new_type) == TYPE_CODE_ARRAY)
++ {
++ struct type *new_index_type = TYPE_INDEX_TYPE (new_type);
+
- @node Registers
- @section Registers
-
-@@ -7931,13 +8068,17 @@ support:
- @table @code
- @item set target-charset @var{charset}
- @kindex set target-charset
--Set the current target character set to @var{charset}. We list the
--character set names @value{GDBN} recognizes below, but if you type
--@code{set target-charset} followed by @key{TAB}@key{TAB}, @value{GDBN} will
--list the target character sets it supports.
--@end table
-+Set the current target character set to @var{charset}. If you type
-+@code{set target-charset} followed by @key{TAB}@key{TAB}, @value{GDBN}
-+will list the target character sets it supports.
-+
-+@item set target-wide-charset @var{charset}
-+@kindex set target-wide-charset
-+Set the current target wide character set to @var{charset}. The
-+target wide character set is the character set used by @code{wchar_t}.
-+If you type @code{set target-charset} followed by @key{TAB}@key{TAB},
-+@value{GDBN} will list the target character sets it supports.
-
--@table @code
- @item set host-charset @var{charset}
- @kindex set host-charset
- Set the current host character set to @var{charset}.
-@@ -7947,10 +8088,9 @@ system it is running on; you can override that default using the
- @code{set host-charset} command.
-
- @value{GDBN} can only use certain character sets as its host character
--set. We list the character set names @value{GDBN} recognizes below, and
--indicate which can be host character sets, but if you type
--@code{set target-charset} followed by @key{TAB}@key{TAB}, @value{GDBN} will
--list the host character sets it supports.
-+set. If you type @code{set target-charset} followed by
-+@key{TAB}@key{TAB}, @value{GDBN} will list the host character sets it
-+supports.
-
- @item set charset @var{charset}
- @kindex set charset
-@@ -7974,37 +8114,6 @@ Show the name of the current target charset.
-
- @end table
-
--@value{GDBN} currently includes support for the following character
--sets:
--
--@table @code
--
--@item ASCII
--@cindex ASCII character set
--Seven-bit U.S. @sc{ascii}. @value{GDBN} can use this as its host
--character set.
--
--@item ISO-8859-1
--@cindex ISO 8859-1 character set
--@cindex ISO Latin 1 character set
--The ISO Latin 1 character set. This extends @sc{ascii} with accented
--characters needed for French, German, and Spanish. @value{GDBN} can use
--this as its host character set.
--
--@item EBCDIC-US
--@itemx IBM1047
--@cindex EBCDIC character set
--@cindex IBM1047 character set
--Variants of the @sc{ebcdic} character set, used on some of IBM's
--mainframe operating systems. (@sc{gnu}/Linux on the S/390 uses U.S. @sc{ascii}.)
--@value{GDBN} cannot use these as its host character set.
--
--@end table
--
--Note that these are all single-byte character sets. More work inside
--@value{GDBN} is needed to support multi-byte or variable-width character
--encodings, like the UTF-8 and UCS-2 encodings of Unicode.
--
- Here is an example of @value{GDBN}'s character set support in action.
- Assume that the following source code has been placed in the file
- @file{charset-test.c}:
-@@ -12510,6 +12619,12 @@ It is possible for the function you call via the @code{print} or
- the function, or if you passed it incorrect arguments). What happens
- in that case is controlled by the @code{set unwindonsignal} command.
-
-+Similarly, with a C++ program it is possible for the function you
-+call via the @code{print} or @code{call} command to generate an
-+exception that is not handled due to the constraints of the dummy
-+frame. What happens in that case is controlled by the
-+@code{set unwind-on-terminating-exception} command.
-+
- @table @code
- @item set unwindonsignal
- @kindex set unwindonsignal
-@@ -12526,6 +12641,23 @@ received.
- @kindex show unwindonsignal
- Show the current setting of stack unwinding in the functions called by
- @value{GDBN}.
-+
-+@item set unwind-on-terminating-exception
-+@kindex set unwind-on-terminating-exception
-+@cindex unwind stack in called functions
-+@cindex call dummy stack unwinding on unhandled exception.
-+Set unwinding of the stack if a C++ exception is raised but unhandled
-+while in a function that @value{GDBN} called in the program being
-+debugged. If set to on (the default), @value{GDBN} unwinds the stack
-+it created for the call and restores the context to what it was before
-+the call. If set to off, @value{GDBN} the exception is delivered to
-+the default C++ exception handler.
-+
-+@item show unwind-on-terminating-exception
-+@kindex show unwind-on-terminating-exception
-+Show the current setting of stack unwinding in the functions called by
-+@value{GDBN}.
++ if (TYPE_BYTE_STRIDE (new_index_type) == 0)
++ TYPE_BYTE_STRIDE (new_index_type)
++ = TYPE_LENGTH (TYPE_TARGET_TYPE (new_type));
++ }
+
- @end table
-
- @cindex weak alias functions
-@@ -17815,7 +17947,7 @@ command:
- @table @code
- @kindex source
- @cindex execute commands from a file
--@item source [@code{-v}] @var{filename}
-+@item source [@code{-v}] [@code{-p}] @var{filename}
- Execute the command file @var{filename}.
- @end table
+ /* Maybe copy the type_specific bits.
-@@ -17832,6 +17964,11 @@ If @code{-v}, for verbose mode, is given then @value{GDBN} displays
- each command as it is executed. The option must be given before
- @var{filename}, and is interpreted as part of the filename anywhere else.
+ NOTE drow/2005-12-09: We do not copy the C++-specific bits like
+@@ -3404,6 +3765,17 @@ copy_type_recursive (struct objfile *obj
+ return new_type;
+ }
-+If @var{filename} ends in @samp{.py}, or if @code{-p}, for Python, is
-+given then @value{GDBN} evaluates the contents of the file as Python
-+code. If Python support is not compiled in to @value{GDBN}, then an
-+error occurs.
++/* Recursively copy (deep copy) TYPE. Return a new type allocated using
++ malloc, a saved type if we have already visited TYPE (using COPIED_TYPES),
++ or TYPE if it is not associated with OBJFILE. */
+
- Commands that would ask for confirmation if used interactively proceed
- without asking when used in a command file. Many @value{GDBN} commands that
- normally print messages to say what they are doing omit the messages
-@@ -18093,8 +18230,6 @@ containing @code{end}. For example:
-
- @smallexample
- (@value{GDBP}) python
--Type python script
--End with a line saying just "end".
- >print 23
- >end
- 23
-@@ -18107,6 +18242,14 @@ in a Python script. This can be controlled using @code{maint set
- python print-stack}: if @code{on}, the default, then Python stack
- printing is enabled; if @code{off}, then Python stack printing is
- disabled.
++struct type *
++copy_type_recursive (struct type *type,
++ htab_t copied_types)
++{
++ return copy_type_recursive_1 (TYPE_OBJFILE (type), type, copied_types);
++}
+
-+@kindex maint set python auto-load
-+@item maint set python auto-load
-+By default, @value{GDBN} will attempt to automatically load Python
-+code when an object file is opened. This can be controlled using
-+@code{maint set python auto-load}: if @code{on}, the default, then
-+Python auto-loading is enabled; if @code{off}, then Python
-+auto-loading is disabled.
- @end table
-
- @node Python API
-@@ -18114,6 +18257,14 @@ disabled.
- @cindex python api
- @cindex programming in python
+ /* Make a copy of the given TYPE, except that the pointer & reference
+ types are not preserved.
+
+@@ -3426,6 +3798,201 @@ copy_type (const struct type *type)
+ return new_type;
+ }
-+You can get quick online help for @value{GDBN}'s Python API by issuing
-+the command @w{@kbd{python help (gdb)}}.
++#if 0
++/* Callback type for main_type_crawl. */
++typedef int (*main_type_crawl_iter) (struct type *type, void *data);
+
-+Functions and methods which have two or more optional arguments allow
-+them to be specified using keyword syntax. This allows passing some
-+optional arguments while skipping others. Example:
-+@w{@code{gdb.some_function ('foo', bar = 1, baz = 2)}}.
++/* Iterate all main_type structures reachable through any `struct type *' from
++ TYPE. ITER will be called only for one type of each main_type, use
++ TYPE_CHAIN traversal to find all the type instances. ITER is being called
++ for each main_type found. ITER returns non-zero if main_type_crawl should
++ depth-first enter the specific type. ITER must provide some detection for
++ reentering the same main_type as this function would otherwise endlessly
++ loop. */
+
- @cindex python stdout
- @cindex python pagination
- At startup, @value{GDBN} overrides Python's @code{sys.stdout} and
-@@ -18125,8 +18276,17 @@ situation, a Python @code{KeyboardInterrupt} exception is thrown.
- @menu
- * Basic Python:: Basic Python Functions.
- * Exception Handling::
--* Values From Inferior::
-+* Auto-loading:: Automatically loading Python code.
-+* Values From Inferior:: Python representation of values.
-+* Types From Inferior:: Python representation of types.
-+* Pretty Printing:: Pretty-printing values.
-+* Threads In Python:: Accessing inferior threads from Python.
- * Commands In Python:: Implementing new commands in Python.
-+* Parameters In Python:: Adding new @value{GDBN} parameters.
-+* Functions In Python:: Writing new convenience functions.
-+* Objfiles In Python:: Object files.
-+* Breakpoints In Python:: Manipulating breakpoints using Python.
-+* Frames In Python:: Acessing inferior stack frames from Python.
- @end menu
-
- @node Basic Python
-@@ -18152,10 +18312,30 @@ command as having originated from the user invoking it interactively.
- It must be a boolean value. If omitted, it defaults to @code{False}.
- @end defun
-
--@findex gdb.get_parameter
--@defun get_parameter parameter
--Return the value of a @value{GDBN} parameter. @var{parameter} is a
--string naming the parameter to look up; @var{parameter} may contain
-+@findex gdb.current_objfile
-+@defun current_objfile
-+When auto-loading a Python script (@pxref{Auto-loading}), @value{GDBN}
-+sets the ``current objfile'' to the corresponding objfile. This
-+function returns the current objfile. If there is no current objfile,
-+this function returns @code{None}.
-+@end defun
-+
-+@findex gdb.breakpoints
-+@defun breakpoints
-+Return a sequence holding all of @value{GDBN}'s breakpoints.
-+@xref{Breakpoints In Python}, for more information.
-+@end defun
-+
-+@findex gdb.objfiles
-+@defun objfiles
-+Return a sequence of all the objfiles current known to @value{GDBN}.
-+@xref{Objfiles In Python}.
-+@end defun
-+
-+@findex gdb.parameter
-+@defun parameter name
-+Return the value of the named @value{GDBN} parameter. @var{name} is a
-+string naming the parameter to look up; @var{name} may contain
- spaces if the parameter has a multi-part name. For example,
- @samp{print object} is a valid parameter name.
-
-@@ -18179,6 +18359,28 @@ If no exception is raised, the return value is always an instance of
- @code{gdb.Value} (@pxref{Values From Inferior}).
- @end defun
-
-+@findex gdb.parse_and_eval
-+@defun parse_and_eval expression
-+Parse @var{expression} as an expression in the current language,
-+evaluate it, and return the result as a @code{gdb.Value}.
-+@var{expression} must be a string.
-+@end defun
-+
-+@findex gdb.post_event
-+@defun post_event event
-+Put @var{event}, a callable object taking no arguments, into
-+@value{GDBN}'s internal event queue. This callable will be invoked at
-+some later point, during @value{GDBN}'s event processing. Events
-+posted using @code{post_event} will be run in the order in which they
-+were posted; however, there is no way to know when they will be
-+processed relative to other events inside @value{GDBN}.
-+
-+@value{GDBN} is not thread-safe. If your Python program uses multiple
-+threads, you must be careful to only call @value{GDBN}-specific
-+functions in the main @value{GDBN} thread. @code{post_event} ensures
-+this.
-+@end defun
-+
- @findex gdb.write
- @defun write string
- Print a string to @value{GDBN}'s paginated standard output stream.
-@@ -18193,6 +18395,66 @@ Flush @value{GDBN}'s paginated standard output stream. Flushing
- function.
- @end defun
-
-+@findex gdb.frames
-+@defun frames
-+Return a tuple of all frame objects.
-+@end defun
-+
-+@findex gdb.newest_frame
-+@defun newest_frame
-+Return the newest frame object.
-+@end defun
-+
-+@findex gdb.selected_frame
-+@defun selected_frame
-+Return the selected frame object.
-+@end defun
-+
-+@findex gdb.frame_stop_reason_string
-+@defun frame_stop_reason_string @var{reason}
-+Return a string explaining the reason why @value{GDBN} stopped unwinding
-+frames, as expressed by the given @var{reason} code (an integer, see the
-+@code{unwind_stop_reason} method in
-+@xref{Frames In Python,,Accessing inferior stack frames from Python}.)
-+@end defun
-+
-+@findex gdb.read_memory
-+@defun read_memory @var{address} @var{length}
-+Read @var{length} bytes of memory from the inferior, starting at @var{address}.
-+Returns a buffer object, which behaves much like an array or a string. It
-+can be modified and given to the @code{gdb.write_memory} function.
-+@end defun
-+
-+@findex gdb.write_memory
-+@defun write_memory @var{address} @var{buffer} @r{[}@var{length}@r{]}
-+Write the contents of @var{buffer} (a Python object which supports the buffer
-+protocol, i.e., a string, an array or the object returned from
-+@code{gdb.read_memory}) to the inferior, starting at @var{address}. If given,
-+@var{length} determines the number of bytes from @var{buffer} to be written.
-+@end defun
-+
-+@findex gdb.search_memory
-+@defun search_memory @var{address} @var{length} @var{pattern} @r{[}@var{size}@r{]} @r{[}@var{max_count}@r{]}
-+Search a region of the inferior memory starting at @var{address} with the given
-+@var{length}. @var{pattern} can be a string, a byte array, a buffer object,
-+a number, a @code{gdb.Value} object (@pxref{Values From Inferior}) or a list
-+or tuple with elements in any combination of those types. If @var{size} is
-+given and is non-zero, it specifies the size in bytes of a Python scalar or
-+@code{gdb.Value} in the search pattern. If @var{size} is zero or not specified,
-+ it is taken from the value's type in the current language.
-+This is useful when one wants to specify the search
-+pattern as a mixture of types.
-+Note that this means, for example, that in the case of C-like languages
-+a search for an untyped 0x42 will search for @samp{(int) 0x42}
-+which is typically four bytes. @var{max_count} is the highest number of matches
-+to search for.
-+@end defun
-+
-+@findex gdb.solib_address
-+@defun solib_address @var{address}
-+Return the name of the shared library holding the given address, or None.
-+@end defun
-+
- @node Exception Handling
- @subsubsection Exception Handling
- @cindex python exceptions
-@@ -18224,6 +18486,44 @@ message as its value, and the Python call stack backtrace at the
- Python statement closest to where the @value{GDBN} error occured as the
- traceback.
-
-+@node Auto-loading
-+@subsubsection Auto-loading
-+
-+When a new object file (@pxref{Objfiles In Python}) is read (for
-+example, due to the @code{file} command, or because the inferior has
-+loaded a shared library), @value{GDBN} will look for a file named by
-+adding @samp{-gdb.py} to the object file's real name (the name formed
-+after following all symlinks and resolving @code{.} and @code{..}
-+components). If this file exists and is readable, @value{GDBN} will
-+evaluate it as a Python script.
-+
-+If this file does not exist, and if the parameter
-+@code{debug-file-directory} is set, then @value{GDBN} will append the
-+object file's real name to the value of this parameter, and try again.
-+
-+Finally, if this file does not exist, then @value{GDBN} will look in
-+subdirectory of @code{gdb_datadir} (whose value is available from
-+@code{maint show gdb_datadir}). Specifically, @value{GDBN} will take
-+the value of @code{gdb_datadir}, append @samp{python/auto-load}, and
-+then append the object file's real name.
-+
-+Also, if a separate debug file is used, @value{GDBN} will look for the
-+@samp{-gdb.py} file both in the directory associated with the
-+application and the directory associated with the separate debug file.
-+
-+When reading a @samp{-gdb.py} file, @value{GDBN} sets the ``current
-+objfile''. This is available via the @code{gdb.current_objfile}
-+function. This can be useful for registering objfile-specific
-+pretty-printers.
-+
-+This feature is useful for supplying application-specific debugging
-+commands and scripts. It can be disabled using @code{maint set python
-+auto-load}.
-+
-+@value{GDBN} does not track which files it has already auto-loaded.
-+So, your @samp{-gdb.py} file should take care to ensure that it may be
-+evaluated multiple times without error.
-+
- @node Values From Inferior
- @subsubsection Values From Inferior
- @cindex values from inferior, with Python
-@@ -18258,8 +18558,21 @@ bar = some_val['foo']
-
- Again, @code{bar} will also be a @code{gdb.Value} object.
-
--For pointer data types, @code{gdb.Value} provides a method for
--dereferencing the pointer to obtain the object it points to.
-+The following methods are provided:
++static void
++main_type_crawl (struct type *type, main_type_crawl_iter iter, void *data)
++{
++ struct type *type_iter;
++ int i;
+
-+@table @code
-+@defmethod Value address
-+If the @code{gdb.Value} object is addressable, this will return a new
-+@code{gdb.Value} object representing the address. Otherwise, this
-+will throw an exception.
-+@end defmethod
-+
-+@defmethod Value cast type
-+Cast the @code{gdb.Value} to the type represented by @var{type}, and
-+return a new @code{gdb.Value}. @var{type} must be a @code{gdb.Type}
-+object. If the cast cannot be performed for some reason, an exception
-+is thrown.
-+@end defmethod
-
- @defmethod Value dereference
- This method returns a new @code{gdb.Value} object whose contents is
-@@ -18282,7 +18595,7 @@ The result @code{bar} will be a @code{gdb.Value} object holding the
- value pointed to by @code{foo}.
- @end defmethod
-
--@defmethod Value string @r{[}encoding @r{[}errors@r{]}@r{]}
-+@defmethod Value string @r{[}encoding@r{]} @r{[}errors@r{]}
- If this @code{gdb.Value} represents a string, then this method
- converts the contents to a Python string. Otherwise, this method will
- throw an exception.
-@@ -18309,6 +18622,468 @@ The optional @var{errors} argument is the same as the corresponding
- argument to Python's @code{string.decode} method.
- @end defmethod
-
-+@defmethod Value type
-+Return the type of this @code{gdb.Value}. The result is a
-+@code{gdb.Type} object.
-+@end defmethod
-+@end table
++ if (!type)
++ return;
+
-+@node Types From Inferior
-+@subsubsection Types From Inferior
++ gdb_assert (TYPE_OBJFILE (type) == NULL);
+
-+@cindex gdb.Type
-+@value{GDBN} represents types from the inferior using the class
-+@code{gdb.Type}.
++ /* `struct cplus_struct_type' handling is unsupported by this function. */
++ gdb_assert ((TYPE_CODE (type) != TYPE_CODE_STRUCT
++ && TYPE_CODE (type) != TYPE_CODE_UNION)
++ || !HAVE_CPLUS_STRUCT (type));
+
-+The following methods are provided:
++ if (!(*iter) (type, data))
++ return;
+
-+@table @code
-+@defmethod Type Type [name [block]]
-+Construct a new instance of @code{gdb.Type}.
-+
-+If @var{name} is given, it specifies the name of a type to look up in
-+the inferior.
-+
-+If @var{block} is given, then @var{name} is looked up in that scope.
-+Otherwise, it is searched for globally.
-+@end defmethod
-+
-+@defmethod Type code
-+Return the type code for this type. The type code will be one of the
-+@code{TYPE_CODE_} constants defined below.
-+@end defmethod
-+
-+@defmethod Type fields
-+For structure and union types, this method returns the fields. Range
-+types have two fields, the minimum and maximum values. Enum types
-+have one field per enum constant. Function and method types have one
-+field per parameter. The base types of C++ classes are also
-+represented as fields. If the type has no fields, or does not fit
-+into one of these categories, an empty sequence will be returned.
-+
-+Each field is an object, with some pre-defined attributes:
-+@table @code
-+@item bitpos
-+This attribute is not available for @code{static} fields. For
-+non-@code{static} fields, the value is the bit position of the field.
++ /* Iterate all the type instances of this main_type. */
++ type_iter = type;
++ do
++ {
++ gdb_assert (TYPE_MAIN_TYPE (type_iter) == TYPE_MAIN_TYPE (type));
+
-+@item name
-+The name of the field, or @code{None} for anonymous fields.
++ main_type_crawl (TYPE_POINTER_TYPE (type), iter, data);
++ main_type_crawl (TYPE_REFERENCE_TYPE (type), iter, data);
+
-+@item artificial
-+This is @code{True} if the field is artificial, usually meaning that
-+it was provided by the compiler and not the user. This attribute is
-+always provided, and is @code{False} if the field is not artificial.
++ type_iter = TYPE_CHAIN (type_iter);
++ }
++ while (type_iter != type);
+
-+@item bitsize
-+If the field is packed, or is a bitfield, then this will have a
-+non-zero value, which is the size of the field in bits. Otherwise,
-+this will be zero; in this case the field's size is given by its type.
++ for (i = 0; i < TYPE_NFIELDS (type); i++)
++ main_type_crawl (TYPE_FIELD_TYPE (type, i), iter, data);
+
-+@item type
-+The type of the field.
-+@end table
-+@end defmethod
-+
-+@defmethod Type const
-+Return a new @code{gdb.Type} object which represents a
-+@code{const}-qualified variant of this type.
-+@end defmethod
-+
-+@defmethod Type volatile
-+Return a new @code{gdb.Type} object which represents a
-+@code{volatile}-qualified variant of this type.
-+@end defmethod
-+
-+@defmethod Type unqualified
-+Return a new @code{gdb.Type} object which represents an unqualified
-+variant of this type. That is, the result is neither @code{const} nor
-+@code{volatile}.
-+@end defmethod
-+
-+@defmethod Type reference
-+Return a new @code{gdb.Type} object which represents a reference to this
-+type.
-+@end defmethod
-+
-+@defmethod Type sizeof
-+Return the size of this type, in target @code{char} units. Usually, a
-+target's @code{char} type will be an 8-bit byte. However, on some
-+unusual platforms, this type may have a different size.
-+@end defmethod
-+
-+@defmethod Type strip_typedefs
-+Return a new @code{gdb.Type} that represents the real type,
-+after removing all layers of typedefs.
-+@end defmethod
-+
-+@defmethod Type tag
-+Return the tag name for this type. The tag name is the name after
-+@code{struct}, @code{union}, or @code{enum} in C; not all languages
-+have this concept. If this type has no tag name, then @code{None} is
-+returned.
-+@end defmethod
-+
-+@defmethod Type target
-+Return a new @code{gdb.Type} object which represents the target type
-+of this type.
-+
-+For a pointer type, the target type is the type of the pointed-to
-+object. For an array type, the target type is the type of the
-+elements of the array. For a function type, the target type is the
-+type of the return value. For a complex type, the target type is the
-+type of the elements. For a typedef, the target type is the aliased
-+type.
-+@end defmethod
-+
-+@defmethod Type template_argument n [block]
-+If this @code{gdb.Type} is a template type, this will return a new
-+@code{gdb.Type} which represents the type of the @var{n}th template
-+argument.
-+
-+If this @code{gdb.Type} is not a template type, this will throw an
-+exception.
-+
-+If @var{block} is given, then @var{name} is looked up in that scope.
-+Otherwise, it is searched for globally.
-+@end defmethod
-+@end table
++ main_type_crawl (TYPE_TARGET_TYPE (type), iter, data);
++ main_type_crawl (TYPE_VPTR_BASETYPE (type), iter, data);
++}
+
++/* A helper for delete_type which deletes a main_type and the things to which
++ it refers. TYPE is a type whose main_type we wish to destroy. */
+
-+Each type has a code, which indicates what category this type falls
-+into. The available type categories are represented by constants
-+defined in the @code{gdb} module:
++static void
++delete_main_type (struct type *type)
++{
++ int i;
+
-+@table @code
-+@findex TYPE_CODE_PTR
-+@findex gdb.TYPE_CODE_PTR
-+@item TYPE_CODE_PTR
-+The type is a pointer.
-+
-+@findex TYPE_CODE_ARRAY
-+@findex gdb.TYPE_CODE_ARRAY
-+@item TYPE_CODE_ARRAY
-+The type is an array.
-+
-+@findex TYPE_CODE_STRUCT
-+@findex gdb.TYPE_CODE_STRUCT
-+@item TYPE_CODE_STRUCT
-+The type is a structure.
-+
-+@findex TYPE_CODE_UNION
-+@findex gdb.TYPE_CODE_UNION
-+@item TYPE_CODE_UNION
-+The type is a union.
-+
-+@findex TYPE_CODE_ENUM
-+@findex gdb.TYPE_CODE_ENUM
-+@item TYPE_CODE_ENUM
-+The type is an enum.
-+
-+@findex TYPE_CODE_FLAGS
-+@findex gdb.TYPE_CODE_FLAGS
-+@item TYPE_CODE_FLAGS
-+A bit flags type.
-+@c FIXME: what is this?
-+
-+@findex TYPE_CODE_FUNC
-+@findex gdb.TYPE_CODE_FUNC
-+@item TYPE_CODE_FUNC
-+The type is a function.
-+
-+@findex TYPE_CODE_INT
-+@findex gdb.TYPE_CODE_INT
-+@item TYPE_CODE_INT
-+The type is an integer type.
-+
-+@findex TYPE_CODE_FLT
-+@findex gdb.TYPE_CODE_FLT
-+@item TYPE_CODE_FLT
-+A floating point type.
-+
-+@findex TYPE_CODE_VOID
-+@findex gdb.TYPE_CODE_VOID
-+@item TYPE_CODE_VOID
-+The special type @code{void}.
-+
-+@findex TYPE_CODE_SET
-+@findex gdb.TYPE_CODE_SET
-+@item TYPE_CODE_SET
-+A Pascal set type.
-+
-+@findex TYPE_CODE_RANGE
-+@findex gdb.TYPE_CODE_RANGE
-+@item TYPE_CODE_RANGE
-+A range type, that is, an integer type with bounds.
-+
-+@findex TYPE_CODE_STRING
-+@findex gdb.TYPE_CODE_STRING
-+@item TYPE_CODE_STRING
-+A string type. Note that this is only used for certain languages with
-+language-defined string types; C strings are not represented this way.
-+
-+@findex TYPE_CODE_BITSTRING
-+@findex gdb.TYPE_CODE_BITSTRING
-+@item TYPE_CODE_BITSTRING
-+A string of bits.
-+
-+@findex TYPE_CODE_ERROR
-+@findex gdb.TYPE_CODE_ERROR
-+@item TYPE_CODE_ERROR
-+An unknown or erroneous type.
-+
-+@findex TYPE_CODE_METHOD
-+@findex gdb.TYPE_CODE_METHOD
-+@item TYPE_CODE_METHOD
-+A C++ method type.
-+
-+@findex TYPE_CODE_METHODPTR
-+@findex gdb.TYPE_CODE_METHODPTR
-+@item TYPE_CODE_METHODPTR
-+A pointer-to-member-function.
-+
-+@findex TYPE_CODE_MEMBERPTR
-+@findex gdb.TYPE_CODE_MEMBERPTR
-+@item TYPE_CODE_MEMBERPTR
-+A pointer-to-member.
-+
-+@findex TYPE_CODE_REF
-+@findex gdb.TYPE_CODE_REF
-+@item TYPE_CODE_REF
-+A reference type.
-+
-+@findex TYPE_CODE_CHAR
-+@findex gdb.TYPE_CODE_CHAR
-+@item TYPE_CODE_CHAR
-+A character type.
-+
-+@findex TYPE_CODE_BOOL
-+@findex gdb.TYPE_CODE_BOOL
-+@item TYPE_CODE_BOOL
-+A boolean type.
-+
-+@findex TYPE_CODE_COMPLEX
-+@findex gdb.TYPE_CODE_COMPLEX
-+@item TYPE_CODE_COMPLEX
-+A complex float type.
-+
-+@findex TYPE_CODE_TYPEDEF
-+@findex gdb.TYPE_CODE_TYPEDEF
-+@item TYPE_CODE_TYPEDEF
-+A typedef to some other type.
-+
-+@findex TYPE_CODE_TEMPLATE
-+@findex gdb.TYPE_CODE_TEMPLATE
-+@item TYPE_CODE_TEMPLATE
-+A C++ template type. Note that this is not used for a template
-+instantiation; those appear as ordinary struct types.
-+@c FIXME I hope that is true
-+
-+@findex TYPE_CODE_TEMPLATE_ARG
-+@findex gdb.TYPE_CODE_TEMPLATE_ARG
-+@item TYPE_CODE_TEMPLATE_ARG
-+A C++ template argument.
-+@c FIXME: is this ever used?
-+
-+@findex TYPE_CODE_NAMESPACE
-+@findex gdb.TYPE_CODE_NAMESPACE
-+@item TYPE_CODE_NAMESPACE
-+A C++ namespace.
-+
-+@findex TYPE_CODE_DECFLOAT
-+@findex gdb.TYPE_CODE_DECFLOAT
-+@item TYPE_CODE_DECFLOAT
-+A decimal floating point type.
-+
-+@findex TYPE_CODE_INTERNAL_FUNCTION
-+@findex gdb.TYPE_CODE_INTERNAL_FUNCTION
-+@item TYPE_CODE_INTERNAL_FUNCTION
-+A function internal to @value{GDBN}. This is the type used to represent
-+convenience functions.
-+@end table
++ gdb_assert (TYPE_DISCARDABLE (type));
++ gdb_assert (TYPE_OBJFILE (type) == NULL);
+
-+@node Pretty Printing
-+@subsubsection Pretty Printing
-+
-+@value{GDBN} provides a mechanism to allow pretty-printing of values
-+using Python code. This mechanism works for both MI and the CLI.
-+
-+A pretty-printer is an object that implements a specific interface.
-+There is no predefined base class for pretty-printers.
-+
-+@defop Operation {pretty printer} __init__ (self, val)
-+When printing a value, @value{GDBN} constructs an instance of the
-+pretty-printer. @var{val} is the value to be printed, an instance of
-+@code{gdb.Value}.
-+@end defop
-+
-+@defop Operation {pretty printer} children (self)
-+When printing a value, @value{GDBN} will call this method to compute
-+the children of the value passed to the object's constructor.
-+
-+This method must return an object conforming to the Python iterator
-+protocol. Each element returned by the iterator must be a tuple
-+holding two elements. The first element is the ``name'' of the child;
-+the second element is the child's value. The value can be any Python
-+object which is convertible to a @value{GDBN} value.
-+
-+This method is optional. If it does not exist, @value{GDBN} will act
-+as though the value has no children.
-+@end defop
-+
-+@defop Operation {pretty printer} display_hint (self)
-+This method must return a string. The CLI may use this to change the
-+formatting of children of a value. The result will also be supplied
-+to an MI consumer as a @samp{displayhint} attribute of the variable
-+being printed.
-+
-+Some display hints are predefined by @value{GDBN}:
-+
-+@table @samp
-+@item array
-+Indicate that the object being printed is ``array-like''. The CLI
-+uses this to respect parameters such as @code{set print elements} and
-+@code{set print array}.
-+
-+@item map
-+Indicate that the object being printed is ``map-like'', and that the
-+children of this value can be assumed to alternate between keys and
-+values.
-+
-+@item string
-+Indicate that the object being printed is ``string-like''. If the
-+printer's @code{to_string} method returns a Python string of some
-+kind, then @value{GDBN} will call its internal language-specific
-+string-printing function to format the string. For the CLI this means
-+adding quotation marks, possibly escaping some characters, respecting
-+@code{set print elements}, and the like.
-+@end table
-+@end defop
-+
-+@defop Operation {pretty printer} to_string (self)
-+@value{GDBN} will call this method to display the string
-+representation of the value passed to the object's constructor.
-+
-+When printing from the CLI, if the @code{to_string} method exists,
-+then @value{GDBN} will prepend its result to the values returned by
-+@code{children}.
-+
-+If this method returns a string, it is printed verbatim. Otherwise,
-+the result is converted to a @code{gdb.Value}, following the usual
-+algorithm. Then @value{GDBN} prints this value; this may possibly
-+result in a call to another pretty-printer. If the result is not
-+convertible to @code{gdb.Value}, an exception is raised.
-+@end defop
-+
-+@subsubsection Selecting Pretty-Printers
-+
-+The Python list @code{gdb.pretty_printers} contains an array of
-+functions that have been registered via addition as a pretty-printer.
-+Each function will be called with a @code{gdb.Value} to be
-+pretty-printed. Each @code{gdb.Objfile} also contains a
-+@code{pretty_printers} attribute. A function on one of these lists
-+takes a single @code{gdb.Value} argument and returns a pretty-printer
-+object conforming to the interface definition above. If this function
-+cannot create a pretty-printer for the value, it should return
-+@code{None}.
-+
-+@value{GDBN} first checks the @code{pretty_printers} attribute of each
-+@code{gdb.Objfile} and iteratively calls each function in the list for
-+that @code{gdb.Objfile} until it receives a pretty-printer object.
-+After these @code{gdb.Objfile} have been exhausted, it tries the
-+global @code{gdb.pretty-printers} list, again calling each function
-+until an object is returned.
-+
-+The order in which the objfiles are searched is not specified.
-+Functions are always invoked from the head of the
-+@code{gdb.pretty-printers} list, and iterated over sequentially until
-+the end of the list, or a printer object is returned.
-+
-+Here is an example showing how a @code{std::string} printer might be
-+written:
-+
-+@smallexample
-+class StdStringPrinter:
-+ "Print a std::string"
-+
-+ def __init__ (self, val):
-+ self.val = val
-+
-+ def to_string (self):
-+ return self.val['_M_dataplus']['_M_p']
-+@end smallexample
-+
-+And here is an example showing how a lookup function for
-+the printer example above might be written.
-+
-+@smallexample
-+def str_lookup_function (val):
-+
-+ lookup_tag = val.type ().tag ()
-+ regex = re.compile ("^std::basic_string<char,.*>$")
-+ if lookup_tag == None:
-+ return None
-+ if regex.match (lookup_tag):
-+ return StdStringPrinter (val)
-+
-+ return None
-+@end smallexample
-+
-+The example lookup function extracts the value's type, and attempts to
-+match it to a type that it can pretty-print. If it is a type the
-+printer can pretty-print, it will return a printer object. If not, it
-+returns: @code{None}.
-+
-+We recommend that you put your core pretty-printers into a versioned
-+python package, and then restrict your auto-loaded code to idempotent
-+behavior -- for example, just @code{import}s of your printer modules,
-+followed by a call to a register pretty-printers with the current
-+objfile. This approach will scale more nicely to multiple inferiors,
-+potentially using different library versions.
-+
-+For example, in addition to the above, this code might appear in
-+@code{gdb.libstdcxx.v6}:
-+
-+@smallexample
-+def register_printers (objfile):
-+ objfile.pretty_printers.add (str_lookup_function)
-+@end smallexample
-+
-+And then the corresponding contents of the auto-load file would be:
-+
-+@smallexample
-+import gdb.libstdcxx.v6
-+gdb.libstdcxx.v6.register_printers (gdb.current_objfile ())
-+@end smallexample
-+
-+@node Threads In Python
-+@subsubsection Threads In Python
-+
-+Python scripts can access information about the inferior's threads
-+using some functions provided by @value{GDBN}. Like all of
-+@value{GDBN}'s Python additions, these are in the @code{gdb} module:
-+
-+@findex gdb.threads
-+@defun threads
-+This function returns a tuple holding all the thread IDs which are
-+valid when the function is called. If there are no valid threads,
-+this will return @code{None}.
-+@end defun
-+
-+@findex gdb.current_thread
-+@defun current_thread
-+This function returns the thread ID of the selected thread. If there
-+is no selected thread, this will return @code{None}.
-+@end defun
-+
-+@findex gdb.switch_to_thread
-+@defun switch_to_thread id
-+This changes @value{GDBN}'s currently selected thread to the thread
-+given by @var{id}. @var{id} must be a valid thread ID as returned by
-+@code{threads}. If @var{id} is invalid, this function throws an
-+exception.
-+@end defun
-+
- @node Commands In Python
- @subsubsection Commands In Python
-
-@@ -18320,7 +19095,7 @@ You can implement new @value{GDBN} CLI commands in Python. A CLI
- command is implemented using an instance of the @code{gdb.Command}
- class, most commonly using a subclass.
-
--@defmethod Command __init__ name @var{command-class} @r{[}@var{completer-class} @var{prefix}@r{]}
-+@defmethod Command __init__ name @var{command_class} @r{[}@var{completer_class}@r{]} @r{[}@var{prefix}@r{]}
- The object initializer for @code{Command} registers the new command
- with @value{GDBN}. This initializer is normally invoked from the
- subclass' own @code{__init__} method.
-@@ -18332,11 +19107,11 @@ an exception is raised.
-
- There is no support for multi-line commands.
-
--@var{command-class} should be one of the @samp{COMMAND_} constants
-+@var{command_class} should be one of the @samp{COMMAND_} constants
- defined below. This argument tells @value{GDBN} how to categorize the
- new command in the help system.
-
--@var{completer-class} is an optional argument. If given, it should be
-+@var{completer_class} is an optional argument. If given, it should be
- one of the @samp{COMPLETE_} constants defined below. This argument
- tells @value{GDBN} how to perform completion for this command. If not
- given, @value{GDBN} will attempt to complete using the object's
-@@ -18563,6 +19338,374 @@ registration of the command with @value{GDBN}. Depending on how the
- Python code is read into @value{GDBN}, you may need to import the
- @code{gdb} module explicitly.
-
-+
-+@node Parameters In Python
-+@subsubsection Parameters In Python
-+
-+@cindex parameters in python
-+@cindex python parameters
-+@tindex gdb.Parameter
-+@tindex Parameter
-+You can implement new @value{GDBN} parameters using Python. A new
-+parameter is implemented as an instance of the @code{gdb.Parameter}
-+class. Parameters are exposed to the user via the @code{set} and
-+@code{show} commands.
-+
-+@defmethod Parameter __init__ name @var{command-class} @var{parameter-class} @r{[}@var{enum-sequence}@r{]}
-+The object initializer for @code{Parameter} registers the new
-+parameter with @value{GDBN}. This initializer is normally invoked
-+from the subclass' own @code{__init__} method.
-+
-+@var{name} is the name of the new parameter. If @var{name} consists
-+of multiple words, then the initial words are looked for as prefix
-+commands. In this case, if one of the prefix commands does not exist,
-+an exception is raised.
-+
-+@var{command-class} should be one of the @samp{COMMAND_} constants
-+(@pxref{Commands In Python}). This argument tells @value{GDBN} how to
-+categorize the new parameter in the help system.
-+
-+@var{parameter-class} should be one of the @samp{PARAM_} constants
-+defined below. This argument tells @value{GDBN} the type of the new
-+parameter; this information is used for input validation and
-+completion.
-+
-+If @var{parameter-class} is @code{PARAM_ENUM}, then
-+@var{enum-sequence} must be a sequence of strings. These strings
-+represent the possible values for the parameter.
-+
-+If @var{parameter-class} is not @code{PARAM_ENUM}, then the presence
-+of a fourth argument will cause an exception to be thrown.
-+
-+The help text for the new parameter is taken from the Python
-+documentation string for the parameter's class, if there is one. If
-+there is no documentation string, a default value is used.
-+@end defmethod
-+
-+@defivar Parameter set_doc
-+If this attribute exists, and is a string, then its value is used as
-+the help text for this parameter's @code{set} command. The value is
-+examined when @code{Parameter.__init__} is invoked; subsequent changes
-+have no effect.
-+@end defivar
-+
-+@defivar Parameter show_doc
-+If this attribute exists, and is a string, then its value is used as
-+the help text for this parameter's @code{show} command. The value is
-+examined when @code{Parameter.__init__} is invoked; subsequent changes
-+have no effect.
-+@end defivar
-+
-+@defivar Parameter value
-+The @code{value} attribute holds the underlying value of the
-+parameter. It can be read and assigned to just as any other
-+attribute. @value{GDBN} does validation when assignments are made.
-+@end defivar
-+
-+
-+When a new parameter is defined, its type must be specified. The
-+available types are represented by constants defined in the @code{gdb}
-+module:
++ xfree (TYPE_NAME (type));
++ xfree (TYPE_TAG_NAME (type));
+
-+@table @code
-+@findex PARAM_BOOLEAN
-+@findex gdb.PARAM_BOOLEAN
-+@item PARAM_BOOLEAN
-+The value is a plain boolean. The Python boolean values, @code{True}
-+and @code{False} are the only valid values.
-+
-+@findex PARAM_AUTO_BOOLEAN
-+@findex gdb.PARAM_AUTO_BOOLEAN
-+@item PARAM_AUTO_BOOLEAN
-+The value has three possible states: true, false, and @samp{auto}. In
-+Python, true and false are represented using boolean constants, and
-+@samp{auto} is represented using @code{None}.
-+
-+@findex PARAM_UINTEGER
-+@findex gdb.PARAM_UINTEGER
-+@item PARAM_UINTEGER
-+The value is an unsigned integer. The value of 0 should be
-+interpreted to mean ``unlimited''.
-+
-+@findex PARAM_INTEGER
-+@findex gdb.PARAM_INTEGER
-+@item PARAM_INTEGER
-+The value is a signed integer. The value of 0 should be interpreted
-+to mean ``unlimited''.
-+
-+@findex PARAM_STRING
-+@findex gdb.PARAM_STRING
-+@item PARAM_STRING
-+The value is a string. When the user modifies the string, escapes are
-+translated.
-+
-+@findex PARAM_STRING_NOESCAPE
-+@findex gdb.PARAM_STRING_NOESCAPE
-+@item PARAM_STRING_NOESCAPE
-+The value is a string. When the user modifies the string, escapes are
-+passed through untranslated.
-+
-+@findex PARAM_OPTIONAL_FILENAME
-+@findex gdb.PARAM_OPTIONAL_FILENAME
-+@item PARAM_OPTIONAL_FILENAME
-+The value is a either a filename (a string), or @code{None}.
-+
-+@findex PARAM_FILENAME
-+@findex gdb.PARAM_FILENAME
-+@item PARAM_FILENAME
-+The value is a filename (a string).
-+
-+@findex PARAM_ZINTEGER
-+@findex gdb.PARAM_ZINTEGER
-+@item PARAM_ZINTEGER
-+The value is an integer. This is like @code{PARAM_INTEGER}, except 0
-+is interpreted as itself.
-+
-+@findex PARAM_ENUM
-+@findex gdb.PARAM_ENUM
-+@item PARAM_ENUM
-+The value is a string, which must be one of a collection string
-+constants provided when the parameter is created.
-+@end table
++ for (i = 0; i < TYPE_NFIELDS (type); ++i)
++ {
++ xfree (TYPE_FIELD_NAME (type, i));
+
-+@node Functions In Python
-+@subsubsection Writing new convenience functions
-+
-+@cindex writing convenience functions
-+@cindex convenience functions in python
-+@cindex python convenience functions
-+@tindex gdb.Function
-+@tindex Function
-+You can implement new convenience functions (@pxref{Convenience Vars})
-+in Python. A convenience function is an instance of a subclass of the
-+class @code{gdb.Function}.
-+
-+@defmethod Function __init__ name
-+The initializer for @code{Function} registers the new function with
-+@value{GDBN}. The argument @var{name} is the name of the function,
-+a string. The function will be visible to the user as a convenience
-+variable of type @code{internal function}, whose name is the same as
-+the given @var{name}.
-+
-+The documentation for the new function is taken from the documentation
-+string for the new class.
-+@end defmethod
-+
-+@defmethod Function invoke @var{*args}
-+When a convenience function is evaluated, its arguments are converted
-+to instances of @code{gdb.Value}, and then the function's
-+@code{invoke} method is called. Note that @value{GDBN} does not
-+predetermine the arity of convenience functions. Instead, all
-+available arguments are passed to @code{invoke}, following the
-+standard Python calling convention. In particular, a convenience
-+function can have default values for parameters without ill effect.
-+
-+The return value of this method is used as its value in the enclosing
-+expression. If an ordinary Python value is returned, it is converted
-+to a @code{gdb.Value} following the usual rules.
-+@end defmethod
-+
-+The following code snippet shows how a trivial convenience function can
-+be implemented in Python:
-+
-+@smallexample
-+class Greet (gdb.Function):
-+ """Return string to greet someone.
-+Takes a name as argument."""
-+
-+ def __init__ (self):
-+ super (Greet, self).__init__ ("greet")
-+
-+ def invoke (self, name):
-+ return "Hello, %s!" % name.string ()
-+
-+Greet ()
-+@end smallexample
-+
-+The last line instantiates the class, and is necessary to trigger the
-+registration of the function with @value{GDBN}. Depending on how the
-+Python code is read into @value{GDBN}, you may need to import the
-+@code{gdb} module explicitly.
-+
-+@node Objfiles In Python
-+@subsubsection Objfiles In Python
-+
-+@cindex objfiles in python
-+@cindex python objfiles
-+@tindex gdb.Objfile
-+@tindex Objfile
-+@value{GDBN} loads symbols for an inferior from various
-+symbol-containing files. These include the primary executable file,
-+any shared libraries used by the inferior, and any separate debug info
-+files. @value{GDBN} calls these symbol-containing files
-+@dfn{objfiles}.
-+
-+Each objfile is represented by an instance of the @code{gdb.Objfile}
-+class.
-+
-+@defivar Objfile filename
-+The file name of the objfile as a string.
-+@end defivar
-+
-+@defivar Objfile pretty_printers
-+The @code{pretty_printers} attribute is used to look up
-+pretty-printers by type. This is a dictionary which maps regular
-+expressions (strings) to pretty-printing objects. @xref{Pretty
-+Printing}, for more information.
-+@end defivar
-+
-+@node Breakpoints In Python
-+@subsubsection Manipulating breakpoints using Python
-+
-+@cindex breakpoints in python
-+@cindex python breakpoints
-+@tindex gdb.Breakpoint
-+@tindex Breakpoint
-+Python code can manipulate breakpoints via the @code{gdb.Breakpoint}
-+class.
-+
-+@defmethod Breakpoint __init__ location
-+Create a new breakpoint. @var{location} is a string naming the
-+location of the breakpoint. The contents can be any location
-+recognized by the @code{break} command.
-+@end defmethod
-+
-+@defmethod Breakpoint is_valid
-+Return @code{True} if this @code{Breakpoint} object is valid,
-+@code{False} otherwise. A @code{Breakpoint} object can become invalid
-+if the user deletes the breakpoint. In this case, the object still
-+exists, but the underlying breakpoint does not.
-+@end defmethod
-+
-+@defivar Breakpoint enabled
-+This attribute is @code{True} if the breakpoint is enabled, and
-+@code{False} otherwise. This attribute is writable.
-+@end defivar
-+
-+@defivar Breakpoint silent
-+This attribute is @code{True} if the breakpoint is silent, and
-+@code{False} otherwise. This attribute is writable.
-+
-+Note that a breakpoint can also be silent if it has commands and the
-+first command is @code{silent}. This is not reported by the
-+@code{silent} attribute.
-+@end defivar
-+
-+@defivar Breakpoint thread
-+If the breakpoint is thread-specific, this attribute holds the thread
-+id. If the breakpoint is not thread-specific, this attribute is
-+@code{None}. This attribute is writable.
-+@end defivar
-+
-+@defivar Breakpoint ignore_count
-+This attribute holds the ignore count for the breakpoint, an integer.
-+This attribute is writable.
-+@end defivar
-+
-+@defivar Breakpoint number
-+This attribute holds the breakpoint's number -- the identifier used by
-+the user to manipulate the breakpoint. This attribute is not writable.
-+@end defivar
-+
-+@defivar Breakpoint hit_count
-+This attribute holds the hit count for the breakpoint, an integer.
-+This attribute is writable, but currently it can only be set to zero.
-+@end defivar
-+
-+@defivar Breakpoint location
-+This attribute holds the location of the breakpoint, as specified by
-+the user. It is a string. This attribute is not writable.
-+@end defivar
-+
-+@defivar Breakpoint condition
-+This attribute holds the condition of the breakpoint, as specified by
-+the user. It is a string. If there is no condition, this attribute's
-+value is @code{None}. This attribute is writable.
-+@end defivar
-+
-+@defivar Breakpoint commands
-+This attribute holds the commands attached to the breakpoint. If
-+there are commands, this returns a string holding all the commands,
-+separated by newlines. If there are no commands, this attribute is
-+@code{None}. This attribute is not writable.
-+@end defivar
-+
-+@node Frames In Python
-+@subsubsection Accessing inferior stack frames from Python.
-+
-+@cindex frames in python
-+@tindex gdb.Frame
-+@tindex Frame
-+When the debugged program stops, @value{GDBN} is able to analyse its call
-+stack (@pxref{Frames,,Stack frames}). The @code{gdb.Frame} class
-+represents a frame in the stack. You can get a tuple containing all the
-+frames in the stack with the @code{gdb.frames} function, the newest
-+frame with the @code{gdb.newest_frame} function, and the selected frame
-+with the @code{gdb.selected_frame} function
-+(see @xref{Selection,,Selecting a Frame}.) See
-+@xref{Basic Python,,Basic Python}.
-+
-+A @code{gdb.Frame} object has the following methods:
++ if (TYPE_FIELD_LOC_KIND (type, i) == FIELD_LOC_KIND_PHYSNAME)
++ xfree (TYPE_FIELD_STATIC_PHYSNAME (type, i));
++ }
++ xfree (TYPE_FIELDS (type));
+
-+@table @code
-+@defmethod Frame equals @code{frame}
-+Compare frames.
-+@end defmethod
-+
-+@defmethod Frame is_valid
-+Returns true if the @code{gdb.Frame} object is valid, false if not.
-+A frame object can become invalid if the frame it refers to doesn't
-+exist anymore in the inferior. All @code{gdb.Frame} methods will throw
-+an exception if it is invalid at the time the method call is made.
-+@end defmethod
-+
-+@defmethod Frame name
-+Returns the function name of the frame, or @code{None} if it can't be
-+obtained.
-+@end defmethod
-+
-+@defmethod Frame type
-+Returns the type of the frame. The value can be one of
-+@code{gdb.NORMAL_FRAME}, @code{gdb.DUMMY_FRAME}, @code{gdb.SIGTRAMP_FRAME}
-+or @code{gdb.SENTINEL_FRAME}.
-+@end defmethod
-+
-+@defmethod Frame unwind_stop_reason
-+Return an integer representing the reason why it's not possible to find
-+frames older than this. Use @code{gdb.frame_stop_reason_string} to convert
-+the value returned by this function to a string.
-+@end defmethod
-+
-+@defmethod Frame pc
-+Returns the frame's resume address.
-+@end defmethod
-+
-+@defmethod Frame block
-+Returns the frame's code block. @c (see @xref{Block,,Code Blocks and Scopes}).
-+@end defmethod
-+
-+@defmethod Frame address_in_block
-+Returns an address which falls within the frame's code block.
-+@end defmethod
-+
-+@defmethod Frame older
-+Return the frame immediately older (outer) to this frame.
-+@end defmethod
-+
-+@defmethod Frame newer
-+Return the frame immediately newer (inner) to this frame.
-+@end defmethod
-+
-+@defmethod Frame find_sal
-+Return the frame's symtab and line object. @c (see @xref{Symtab_and_line,, Symtab and line}).
-+@end defmethod
-+
-+@defmethod Frame read_var @var{variable}
-+Return the value of the given variable in this frame. @code{variable} can be
-+either a string or a @code{gdb.Symbol} object. @c (@pxref{Symbols In Python}).
-+@end defmethod
-+@end table
++ gdb_assert (!HAVE_CPLUS_STRUCT (type));
+
- @node Interpreters
- @chapter Command Interpreters
- @cindex command interpreters
-@@ -22273,6 +23416,103 @@ Unfreezing a variable does not update it, only subsequent
- (gdb)
- @end smallexample
-
-+@subheading The @code{-var-set-visualizer} command
-+@findex -var-set-visualizer
-+@anchor{-var-set-visualizer}
-+
-+@subsubheading Synopsis
-+
-+@smallexample
-+ -var-set-visualizer @var{name} @var{visualizer}
-+@end smallexample
-+
-+@subheading The @code{-var-set-child-range} command
-+@findex -var-set-child-range
-+@anchor{-var-set-child-range}
-+
-+Set a visualizer for the variable object @var{name}.
-+
-+@var{visualizer} is the visualizer to use. The special value
-+@samp{None} means to disable any visualizer in use.
-+
-+If not @samp{None}, @var{visualizer} must be a Python expression.
-+This expression must evaluate to a callable object which accepts a
-+single argument. @value{GDBN} will call this object with the value of
-+the varobj @var{name} as an argument. This function must return an
-+object which conforms to the pretty-printing interface (@pxref{Pretty
-+Printing}).
-+
-+The pre-defined function @code{gdb.default_visualizer} may be used
-+to select a visualizer according to the type of the varobj. This is
-+called when a varobj is created, and so ordinarily is not needed.
-+
-+@code{gdb.default_visualizer} looks in the global dictionary named
-+@code{gdb.pretty_printers}.
-+
-+This feature is only available if Python support is enabled.
-+
-+@subsubheading Example
-+
-+Resetting the visualizer:
-+
-+@smallexample
-+(gdb)
-+-var-set-visualizer V None
-+^done
-+@end smallexample
-+
-+Reselecting the default (type-based) visualizer:
-+
-+@smallexample
-+(gdb)
-+-var-set-visualizer V gdb.default_visualizer
-+^done
-+@end smallexample
-+
-+Suppose @code{SomeClass} is a visualizer class. A lambda expression
-+can be used to instantiate this class for a varobj:
-+
-+@smallexample
-+(gdb)
-+-var-set-visualizer V "lambda val: SomeClass()"
-+^done
-+@end smallexample
-+
-+@subsubheading Synopsis
-+
-+@smallexample
-+ -var-set-child-range @var{name} @var{from} @var{to}
-+@end smallexample
-+
-+Select a sub-range of the children of the variable object @var{name};
-+future calls to @code{-var-list-children} will only report the
-+selected range of children. This allows an MI consumer to avoid
-+inefficiencies if the varobj has very many children.
-+
-+If either @var{from} or @var{to} is less than zero, then sub-range
-+selection is disabled, and @code{-var-list-children} will report all
-+children.
-+
-+Otherwise, @var{from} and @var{to} are indexes into the array of
-+children. Children starting at @var{from} and stopping jsut before
-+@var{to} will be reported.
-+
-+@subsubheading Example
-+
-+@smallexample
-+(gdb)
-+ -var-list-children n
-+ ^done,numchild=3,children=[@{name="a",numchild=0,type="int"@},
-+ @{name="b",numchild=0,type="int"@},
-+ @{name="c",numchild=0,type="int"@}]
-+(gdb)
-+ -var-set-child-range n 1 2
-+(gdb)
-+ -var-list-children n
-+ ^done,numchild=3,children=[@{name="b",numchild=0,type="int"@},
-+ @{name="c",numchild=0,type="int"@}]
-+@end smallexample
-+
-
- @c %%%%%%%%%%%%%%%%%%%%%%%%%%%% SECTION %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- @node GDB/MI Data Manipulation
-@@ -23832,6 +25072,10 @@ as possible presense of the @code{frozen} field in the output
- of @code{-varobj-create}.
- @item pending-breakpoints
- Indicates presence of the @option{-f} option to the @code{-break-insert} command.
-+@item python
-+Indicates presence of Python scripting support, Python-based
-+pretty-printing commands, and possible presence of the
-+@samp{display_hint} field in the output of @code{-var-list-children}
- @item thread-info
- Indicates presence of the @code{-thread-info} command.
-
-@@ -25402,28 +26646,6 @@ data in a @file{gmon.out} file, be sure to move it to a safe location.
- Configuring with @samp{--enable-profiling} arranges for @value{GDBN} to be
- compiled with the @samp{-pg} compiler option.
-
--@kindex maint set linux-async
--@kindex maint show linux-async
--@cindex asynchronous support
--@item maint set linux-async
--@itemx maint show linux-async
--Control the GNU/Linux native asynchronous support
--(@pxref{Background Execution}) of @value{GDBN}.
--
--GNU/Linux native asynchronous support will be disabled until you use
--the @samp{maint set linux-async} command to enable it.
--
--@kindex maint set remote-async
--@kindex maint show remote-async
--@cindex asynchronous support
--@item maint set remote-async
--@itemx maint show remote-async
--Control the remote asynchronous support
--(@pxref{Background Execution}) of @value{GDBN}.
--
--Remote asynchronous support will be disabled until you use
--the @samp{maint set remote-async} command to enable it.
--
- @kindex maint show-debug-regs
- @cindex x86 hardware debug registers
- @item maint show-debug-regs
-diff --git a/gdb/dwarf2-frame.c b/gdb/dwarf2-frame.c
-index ce11d89..eaa6a13 100644
---- a/gdb/dwarf2-frame.c
-+++ b/gdb/dwarf2-frame.c
-@@ -38,6 +38,7 @@
-
- #include "complaints.h"
- #include "dwarf2-frame.h"
-+#include "addrmap.h"
-
- struct comp_unit;
-
-@@ -1499,6 +1500,14 @@ dwarf2_frame_find_fde (CORE_ADDR *pc)
- struct dwarf2_fde *fde;
- CORE_ADDR offset;
-
-+ if (objfile->quick_addrmap)
-+ {
-+ if (!addrmap_find (objfile->quick_addrmap, *pc))
-+ continue;
-+ }
-+ /* FIXME: Read-in only .debug_frame/.eh_frame without .debug_info? */
-+ require_partial_symbols (objfile);
++ xfree (TYPE_MAIN_TYPE (type));
++}
+
- fde = objfile_data (objfile, dwarf2_frame_objfile_data);
- if (fde == NULL)
- continue;
-diff --git a/gdb/dwarf2expr.c b/gdb/dwarf2expr.c
-index 75a4ec7..aa8ab33 100644
---- a/gdb/dwarf2expr.c
-+++ b/gdb/dwarf2expr.c
-@@ -752,6 +752,13 @@ execute_stack_op (struct dwarf_expr_context *ctx,
- ctx->initialized = 0;
- goto no_push;
-
-+ case DW_OP_push_object_address:
-+ if (ctx->get_object_address == NULL)
-+ error (_("DWARF-2 expression error: DW_OP_push_object_address must "
-+ "have a value to push."));
-+ result = (ctx->get_object_address) (ctx->baton);
-+ break;
++/* Delete all the instances on TYPE_CHAIN of TYPE, including their referenced
++ main_type. TYPE must be a reclaimable type - neither permanent nor objfile
++ associated. */
+
- default:
- error (_("Unhandled dwarf expression opcode 0x%x"), op);
- }
-diff --git a/gdb/dwarf2expr.h b/gdb/dwarf2expr.h
-index 7047922..a287b6f 100644
---- a/gdb/dwarf2expr.h
-+++ b/gdb/dwarf2expr.h
-@@ -67,10 +67,10 @@ struct dwarf_expr_context
- The result must be live until the current expression evaluation
- is complete. */
- unsigned char *(*get_subr) (void *baton, off_t offset, size_t *length);
-+#endif
-
- /* Return the `object address' for DW_OP_push_object_address. */
- CORE_ADDR (*get_object_address) (void *baton);
--#endif
-
- /* The current depth of dwarf expression recursion, via DW_OP_call*,
- DW_OP_fbreg, DW_OP_push_object_address, etc., and the maximum
-diff --git a/gdb/dwarf2loc.c b/gdb/dwarf2loc.c
-index cad3db8..2251e48 100644
---- a/gdb/dwarf2loc.c
-+++ b/gdb/dwarf2loc.c
-@@ -107,6 +107,9 @@ struct dwarf_expr_baton
- {
- struct frame_info *frame;
- struct objfile *objfile;
-+ /* From DW_TAG_variable's DW_AT_location (not DW_TAG_type's
-+ DW_AT_data_location) for DW_OP_push_object_address. */
-+ CORE_ADDR object_address;
- };
-
- /* Helper functions for dwarf2_evaluate_loc_desc. */
-@@ -163,22 +166,32 @@ dwarf_expr_frame_base (void *baton, gdb_byte **start, size_t * length)
- *start = find_location_expression (symbaton, length,
- get_frame_address_in_block (frame));
- }
-- else
-+ else if (SYMBOL_OPS (framefunc) == &dwarf2_locexpr_funcs)
- {
- struct dwarf2_locexpr_baton *symbaton;
++static void
++delete_type_chain (struct type *type)
++{
++ struct type *type_iter, *type_iter_to_free;
+
- symbaton = SYMBOL_LOCATION_BATON (framefunc);
-- if (symbaton != NULL)
-- {
-- *length = symbaton->size;
-- *start = symbaton->data;
-- }
-- else
-- *start = NULL;
-+ gdb_assert (symbaton != NULL);
-+ *start = symbaton->data;
-+ *length = symbaton->size;
-+ }
-+ else if (SYMBOL_OPS (framefunc) == &dwarf2_missing_funcs)
++ gdb_assert (TYPE_DISCARDABLE (type));
++ gdb_assert (TYPE_OBJFILE (type) == NULL);
++
++ delete_main_type (type);
++
++ type_iter = type;
++ do
+ {
-+ struct dwarf2_locexpr_baton *symbaton;
++ type_iter_to_free = type_iter;
++ type_iter = TYPE_CHAIN (type_iter);
++ xfree (type_iter_to_free);
++ }
++ while (type_iter != type);
++}
+
-+ symbaton = SYMBOL_LOCATION_BATON (framefunc);
-+ gdb_assert (symbaton == NULL);
-+ *start = NULL;
-+ *length = 0; /* unused */
- }
-+ else
-+ internal_error (__FILE__, __LINE__,
-+ _("Unsupported SYMBOL_OPS %p for \"%s\""),
-+ SYMBOL_OPS (framefunc), SYMBOL_PRINT_NAME (framefunc));
-
- if (*start == NULL)
- error (_("Could not find the frame base for \"%s\"."),
-- SYMBOL_NATURAL_NAME (framefunc));
-+ SYMBOL_PRINT_NAME (framefunc));
- }
-
- /* Using the objfile specified in BATON, find the address for the
-@@ -191,6 +204,119 @@ dwarf_expr_tls_address (void *baton, CORE_ADDR offset)
- return target_translate_tls_address (debaton->objfile, offset);
- }
-
-+static CORE_ADDR
-+dwarf_expr_object_address (void *baton)
-+{
-+ struct dwarf_expr_baton *debaton = baton;
++/* Hash function for type_discardable_table. */
+
-+ /* The message is suppressed in DWARF_BLOCK_EXEC. */
-+ if (debaton->object_address == 0)
-+ error (_("Cannot resolve DW_OP_push_object_address for a missing object"));
++static hashval_t
++type_discardable_hash (const void *p)
++{
++ const struct type *type = p;
+
-+ return debaton->object_address;
++ return htab_hash_pointer (TYPE_MAIN_TYPE (type));
+}
+
-+/* Address of the variable we are currently referring to. It is set from
-+ DW_TAG_variable's DW_AT_location (not DW_TAG_type's DW_AT_data_location) for
-+ DW_OP_push_object_address. */
++/* Equality function for type_discardable_table. */
+
-+static CORE_ADDR object_address;
++static int
++type_discardable_equal (const void *a, const void *b)
++{
++ const struct type *left = a;
++ const struct type *right = b;
+
-+/* Callers use object_address_set while their callers use the result set so we
-+ cannot run the cleanup at the local block of our direct caller. Still we
-+ should reset OBJECT_ADDRESS at least for the next GDB command. */
++ return TYPE_MAIN_TYPE (left) == TYPE_MAIN_TYPE (right);
++}
+
-+static void
-+object_address_cleanup (void *prev_save_voidp)
++/* A helper for type_mark_used. */
++
++static int
++type_mark_used_crawl (struct type *type, void *unused)
+{
-+ CORE_ADDR *prev_save = prev_save_voidp;
++ if (!TYPE_DISCARDABLE (type))
++ return 0;
+
-+ object_address = *prev_save;
-+ xfree (prev_save);
-+}
++ if (TYPE_DISCARDABLE_AGE (type) == type_discardable_age_current)
++ return 0;
+
-+/* Set the base address - DW_AT_location - of a variable. It is being later
-+ used to derive other object addresses by DW_OP_push_object_address.
++ TYPE_DISCARDABLE_AGE (type) = type_discardable_age_current;
+
-+ It would be useful to sanity check ADDRESS - such as for some objects with
-+ unset VALUE_ADDRESS - but some valid addresses may be zero (such as first
-+ objects in relocatable .o files). */
++ /* Continue the traversal. */
++ return 1;
++}
++
++/* Mark TYPE and its connected types as used in this free_all_types pass. */
+
+void
-+object_address_set (CORE_ADDR address)
++type_mark_used (struct type *type)
+{
-+ CORE_ADDR *prev_save;
++ if (type == NULL)
++ return;
+
-+ prev_save = xmalloc (sizeof *prev_save);
-+ *prev_save = object_address;
-+ make_cleanup (object_address_cleanup, prev_save);
++ if (!TYPE_DISCARDABLE (type))
++ return;
+
-+ object_address = address;
++ main_type_crawl (type, type_mark_used_crawl, NULL);
+}
+
-+/* Evaluate DWARF expression at DATA ... DATA + SIZE with its result readable
-+ by dwarf_expr_fetch (RETVAL, 0). FRAME parameter can be NULL to call
-+ get_selected_frame to find it. Returned dwarf_expr_context freeing is
-+ pushed on the cleanup chain. */
++/* A traverse callback for type_discardable_table which removes any
++ type_discardable whose reference count is now zero (unused link). */
+
-+static struct dwarf_expr_context *
-+dwarf_expr_prep_ctx (struct frame_info *frame, gdb_byte *data,
-+ unsigned short size, struct dwarf2_per_cu_data *per_cu)
++static int
++type_discardable_remove (void **slot, void *unused)
+{
-+ struct dwarf_expr_context *ctx;
-+ struct dwarf_expr_baton baton;
-+
-+ if (!frame)
-+ frame = get_selected_frame (NULL);
-+
-+ baton.frame = frame;
-+ baton.objfile = dwarf2_per_cu_objfile (per_cu);
-+ baton.object_address = object_address;
-+
-+ ctx = new_dwarf_expr_context ();
-+ ctx->gdbarch = get_objfile_arch (baton.objfile);
-+ ctx->addr_size = dwarf2_per_cu_addr_size (per_cu);
-+ ctx->baton = &baton;
-+ ctx->read_reg = dwarf_expr_read_reg;
-+ ctx->read_mem = dwarf_expr_read_mem;
-+ ctx->get_frame_base = dwarf_expr_frame_base;
-+ ctx->get_tls_address = dwarf_expr_tls_address;
-+ ctx->get_object_address = dwarf_expr_object_address;
++ struct type *type = *slot;
+
-+ make_cleanup ((make_cleanup_ftype *) free_dwarf_expr_context, ctx);
++ gdb_assert (TYPE_DISCARDABLE (type));
+
-+ dwarf_expr_eval (ctx, data, size);
++ if (TYPE_DISCARDABLE_AGE (type) != type_discardable_age_current)
++ {
++ delete_type_chain (type);
+
-+ /* It was used only during dwarf_expr_eval. */
-+ ctx->baton = NULL;
++ htab_clear_slot (type_discardable_table, slot);
++ }
+
-+ return ctx;
++ return 1;
+}
+
-+/* Evaluate DWARF expression at DLBATON expecting it produces exactly one
-+ CORE_ADDR result on the DWARF stack stack. */
-+
-+CORE_ADDR
-+dwarf_locexpr_baton_eval (struct dwarf2_locexpr_baton *dlbaton)
-+{
-+ struct dwarf_expr_context *ctx;
-+ CORE_ADDR retval;
-+ struct cleanup *back_to = make_cleanup (null_cleanup, 0);
++/* Free all the reclaimable types that have been allocated and that have
++ currently zero reference counter.
+
-+ ctx = dwarf_expr_prep_ctx (NULL, dlbaton->data, dlbaton->size,
-+ dlbaton->per_cu);
-+ if (ctx->num_pieces > 0)
-+ error (_("DW_OP_*piece is unsupported for DW_FORM_block"));
-+ else if (ctx->in_reg)
-+ error (_("Register result is unsupported for DW_FORM_block"));
++ This function is called after each command, successful or not. Use this
++ cleanup only in the GDB idle state as GDB only marks those types used by
++ globally tracked objects (with no autovariable references tracking). */
+
-+ retval = dwarf_expr_fetch (ctx, 0);
++void
++free_all_types (void)
++{
++ /* Mark a new pass. As GDB checks all the entries were visited after each
++ pass there cannot be any stale entries already containing the changed
++ value. */
++ type_discardable_age_current ^= 1;
+
-+ do_cleanups (back_to);
++ observer_notify_mark_used ();
+
-+ return retval;
++ htab_traverse (type_discardable_table, type_discardable_remove, NULL);
+}
-+
- /* Evaluate a location description, starting at DATA and with length
- SIZE, to find the current location of variable VAR in the context
- of FRAME. */
-@@ -200,8 +326,8 @@ dwarf2_evaluate_loc_desc (struct symbol *var, struct frame_info *frame,
- struct dwarf2_per_cu_data *per_cu)
- {
- struct value *retval;
-- struct dwarf_expr_baton baton;
- struct dwarf_expr_context *ctx;
-+ struct cleanup *back_to = make_cleanup (null_cleanup, 0);
-
- if (size == 0)
- {
-@@ -211,19 +337,8 @@ dwarf2_evaluate_loc_desc (struct symbol *var, struct frame_info *frame,
- return retval;
- }
-
-- baton.frame = frame;
-- baton.objfile = dwarf2_per_cu_objfile (per_cu);
-+ ctx = dwarf_expr_prep_ctx (frame, data, size, per_cu);
++#endif
-- ctx = new_dwarf_expr_context ();
-- ctx->gdbarch = get_objfile_arch (baton.objfile);
-- ctx->addr_size = dwarf2_per_cu_addr_size (per_cu);
-- ctx->baton = &baton;
-- ctx->read_reg = dwarf_expr_read_reg;
-- ctx->read_mem = dwarf_expr_read_mem;
-- ctx->get_frame_base = dwarf_expr_frame_base;
-- ctx->get_tls_address = dwarf_expr_tls_address;
--
-- dwarf_expr_eval (ctx, data, size);
- if (ctx->num_pieces > 0)
- {
- int i;
-@@ -261,15 +376,19 @@ dwarf2_evaluate_loc_desc (struct symbol *var, struct frame_info *frame,
- {
- CORE_ADDR address = dwarf_expr_fetch (ctx, 0);
+ /* Helper functions to initialize architecture-specific types. */
-+ /* object_address_set called here is required in ALLOCATE_VALUE's
-+ CHECK_TYPEDEF for the object's possible DW_OP_push_object_address. */
-+ object_address_set (address);
+@@ -3955,6 +4522,13 @@ void
+ _initialize_gdbtypes (void)
+ {
+ gdbtypes_data = gdbarch_data_register_post_init (gdbtypes_post_init);
+
- retval = allocate_value (SYMBOL_TYPE (var));
- VALUE_LVAL (retval) = lval_memory;
- set_value_lazy (retval, 1);
-- VALUE_ADDRESS (retval) = address;
-+ set_value_address (retval, address);
- }
-
- set_value_initialized (retval, ctx->initialized);
-
-- free_dwarf_expr_context (ctx);
-+ do_cleanups (back_to);
++#if 0
++ type_discardable_table = htab_create_alloc (20, type_discardable_hash,
++ type_discardable_equal, NULL,
++ xcalloc, xfree);
++#endif
++
+ objfile_type_data = register_objfile_data ();
- return retval;
- }
-@@ -587,7 +706,7 @@ static int
- loclist_describe_location (struct symbol *symbol, struct ui_file *stream)
- {
- /* FIXME: Could print the entire list of locations. */
-- fprintf_filtered (stream, "a variable with multiple locations");
-+ fprintf_filtered (stream, _("a variable with multiple locations"));
- return 1;
- }
+ add_setshow_zinteger_cmd ("overload", no_class, &overload_debug,
+Index: gdb-7.2.90.20110703/gdb/gdbtypes.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/gdbtypes.h 2011-03-28 22:21:03.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/gdbtypes.h 2011-07-03 10:33:11.000000000 +0200
+@@ -215,6 +215,11 @@ enum type_instance_flag_value
-@@ -603,16 +722,56 @@ loclist_tracepoint_var_ref (struct symbol * symbol, struct agent_expr * ax,
+ #define TYPE_TARGET_STUB(t) (TYPE_MAIN_TYPE (t)->flag_target_stub)
- data = find_location_expression (dlbaton, &size, ax->scope);
- if (data == NULL)
-- error (_("Variable \"%s\" is not available."), SYMBOL_NATURAL_NAME (symbol));
-+ error (_("Variable \"%s\" is not available."), SYMBOL_PRINT_NAME (symbol));
++/* Type needs to be evaluated on each CHECK_TYPEDEF and its results must not be
++ sticky. */
++
++#define TYPE_DYNAMIC(t) (TYPE_MAIN_TYPE (t)->flag_dynamic)
++
+ /* Static type. If this is set, the corresponding type had
+ a static modifier.
+ Note: This may be unnecessary, since static data members
+@@ -292,6 +297,50 @@ enum type_instance_flag_value
- dwarf2_tracepoint_var_ref (symbol, ax, value, data, size);
- }
+ #define TYPE_DECLARED_CLASS(t) (TYPE_MAIN_TYPE (t)->flag_declared_class)
--/* The set of location functions used with the DWARF-2 expression
-- evaluator and location lists. */
-+/* The set of location functions used with the DWARF-2 location lists. */
- const struct symbol_ops dwarf2_loclist_funcs = {
- loclist_read_variable,
- loclist_read_needs_frame,
- loclist_describe_location,
- loclist_tracepoint_var_ref
- };
++#if 0
++/* Define this type as being reclaimable during free_all_types. Type is
++ required to be have TYPE_OBJFILE set to NULL. Setting this flag requires
++ initializing TYPE_DISCARDABLE_AGE, see alloc_type_discardable. */
+
-+static struct value *
-+missing_read_variable (struct symbol *symbol, struct frame_info *frame)
-+{
-+ struct dwarf2_loclist_baton *dlbaton = SYMBOL_LOCATION_BATON (symbol);
++#define TYPE_DISCARDABLE(t) (TYPE_MAIN_TYPE (t)->flag_discardable)
+
-+ gdb_assert (dlbaton == NULL);
-+ error (_("Unable to resolve variable \"%s\""), SYMBOL_PRINT_NAME (symbol));
-+}
++/* Marker this type has been visited by the type_mark_used by this
++ mark-and-sweep types garbage collecting pass. Current pass is represented
++ by TYPE_DISCARDABLE_AGE_CURRENT. */
+
-+static int
-+missing_read_needs_frame (struct symbol *symbol)
-+{
-+ return 0;
-+}
++#define TYPE_DISCARDABLE_AGE(t) (TYPE_MAIN_TYPE (t)->flag_discardable_age)
++#endif
+
-+static int
-+missing_describe_location (struct symbol *symbol, struct ui_file *stream)
-+{
-+ fprintf_filtered (stream, _("a variable we are unable to resolve"));
-+ return 1;
-+}
++/* Is HIGH_BOUND a low-bound relative count (1) or the high bound itself (0)? */
+
-+static void
-+missing_tracepoint_var_ref (struct symbol *symbol, struct agent_expr *ax,
-+ struct axs_value *value)
-+{
-+ struct dwarf2_loclist_baton *dlbaton = SYMBOL_LOCATION_BATON (symbol);
++#define TYPE_RANGE_HIGH_BOUND_IS_COUNT(range_type) \
++ (TYPE_MAIN_TYPE (range_type)->flag_range_high_bound_is_count)
+
-+ gdb_assert (dlbaton == NULL);
-+ error (_("Unable to resolve variable \"%s\""), SYMBOL_PRINT_NAME (symbol));
-+}
++/* Not allocated. TYPE_ALLOCATED(t) must be NULL in such case. If this flag
++ is unset and TYPE_ALLOCATED(t) is NULL then the type is allocated. If this
++ flag is unset and TYPE_ALLOCATED(t) is not NULL then its DWARF block
++ determines the actual allocation state. */
+
-+/* The set of location functions used with the DWARF-2 evaluator when we are
-+ unable to resolve the symbols. */
-+const struct symbol_ops dwarf2_missing_funcs = {
-+ missing_read_variable,
-+ missing_read_needs_frame,
-+ missing_describe_location,
-+ missing_tracepoint_var_ref
-+};
-diff --git a/gdb/dwarf2loc.h b/gdb/dwarf2loc.h
-index 76577f1..bf46761 100644
---- a/gdb/dwarf2loc.h
-+++ b/gdb/dwarf2loc.h
-@@ -71,5 +71,11 @@ struct dwarf2_loclist_baton
-
- extern const struct symbol_ops dwarf2_locexpr_funcs;
- extern const struct symbol_ops dwarf2_loclist_funcs;
-+extern const struct symbol_ops dwarf2_missing_funcs;
++#define TYPE_NOT_ALLOCATED(t) (TYPE_MAIN_TYPE (t)->flag_not_allocated)
+
-+extern void object_address_set (CORE_ADDR address);
++/* Not associated. TYPE_ASSOCIATED(t) must be NULL in such case. If this flag
++ is unset and TYPE_ASSOCIATED(t) is NULL then the type is associated. If
++ this flag is unset and TYPE_ASSOCIATED(t) is not NULL then its DWARF block
++ determines the actual association state. */
+
-+extern CORE_ADDR dwarf_locexpr_baton_eval
-+ (struct dwarf2_locexpr_baton *dlbaton);
++#define TYPE_NOT_ASSOCIATED(t) (TYPE_MAIN_TYPE (t)->flag_not_associated)
++
++/* Address of the actual data as for DW_AT_data_location. Its dwarf block must
++ not be evaluated unless both TYPE_NOT_ALLOCATED and TYPE_NOT_ASSOCIATED are
++ false. If TYPE_DATA_LOCATION_IS_ADDR set then TYPE_DATA_LOCATION_ADDR value
++ is the actual data address value. If unset and
++ TYPE_DATA_LOCATION_DWARF_BLOCK is NULL then the value is the normal
++ value_raw_address. If unset and TYPE_DATA_LOCATION_DWARF_BLOCK is not NULL
++ then its DWARF block determines the actual data address. */
++
++#define TYPE_DATA_LOCATION_IS_ADDR(t) \
++ (TYPE_MAIN_TYPE (t)->flag_data_location_is_addr)
++
+ /* Constant type. If this is set, the corresponding type has a
+ const modifier. */
- #endif /* dwarf2loc.h */
-diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
-index 55868da..de93d08 100644
---- a/gdb/dwarf2read.c
-+++ b/gdb/dwarf2read.c
-@@ -1,8 +1,7 @@
- /* DWARF 2 debugging format support for GDB.
-
- Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
-- 2004, 2005, 2006, 2007, 2008, 2009
-- Free Software Foundation, Inc.
-+ 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
-
- Adapted by Gary Funck (gary@intrepid.com), Intrepid Technology,
- Inc. with support from Florida State University (under contract
-@@ -47,6 +46,9 @@
- #include "command.h"
- #include "gdbcmd.h"
- #include "addrmap.h"
-+#include "f-lang.h"
-+#include "c-lang.h"
-+#include "typeprint.h"
+@@ -400,6 +449,15 @@ struct main_type
+ /* True if this type was declared with "class" rather than
+ "struct". */
+ unsigned int flag_declared_class : 1;
++#if 0
++ unsigned int flag_discardable : 1;
++ unsigned int flag_discardable_age : 1;
++#endif
++ unsigned int flag_dynamic : 1;
++ unsigned int flag_range_high_bound_is_count : 1;
++ unsigned int flag_not_allocated : 1;
++ unsigned int flag_not_associated : 1;
++ unsigned int flag_data_location_is_addr : 1;
- #include <fcntl.h>
- #include "gdb_string.h"
-@@ -103,7 +105,7 @@ typedef struct pubnames_header
- _PUBNAMES_HEADER;
- #define _ACTUAL_PUBNAMES_HEADER_SIZE 13
-
--/* .debug_pubnames header
-+/* .debug_aranges header
- Because of alignment constraints, this structure has padding and cannot
- be mapped directly onto the beginning of the .debug_info section. */
- typedef struct aranges_header
-@@ -299,9 +301,6 @@ struct dwarf2_cu
- /* Hash table holding all the loaded partial DIEs. */
- htab_t partial_dies;
-
-- /* `.debug_ranges' offset for this `DW_TAG_compile_unit' DIE. */
-- unsigned int ranges_offset;
--
- /* Storage for things with the same lifetime as this read-in compilation
- unit, including partial DIEs. */
- struct obstack comp_unit_obstack;
-@@ -349,9 +348,6 @@ struct dwarf2_cu
- DIEs for namespaces, we don't need to try to infer them
- from mangled names. */
- unsigned int has_namespace_info : 1;
--
-- /* Field `ranges_offset' is filled in; flag as the value may be zero. */
-- unsigned int has_ranges_offset : 1;
- };
+ /* A discriminant telling us which field of the type_specific union
+ is being used for this type, if any. */
+@@ -473,6 +531,20 @@ struct main_type
+
+ struct type *target_type;
- /* Persistent data held for a compilation unit, even when not
-@@ -451,17 +447,12 @@ struct partial_die_info
- /* DWARF-2 tag for this DIE. */
- ENUM_BITFIELD(dwarf_tag) tag : 16;
++ /* For DW_AT_data_location. */
++ union
++ {
++ struct dwarf2_locexpr_baton *dwarf_block;
++ CORE_ADDR addr;
++ }
++ data_location;
++
++ /* For DW_AT_allocated. */
++ struct dwarf2_locexpr_baton *allocated;
++
++ /* For DW_AT_associated. */
++ struct dwarf2_locexpr_baton *associated;
++
+ /* For structure and union types, a description of each field.
+ For set and pascal array types, there is one "field",
+ whose type is the domain type of the set or array.
+@@ -547,13 +619,34 @@ struct main_type
-- /* Language code associated with this DIE. This is only used
-- for the compilation unit DIE. */
-- unsigned int language : 8;
+ struct range_bounds
+ {
++ struct
++ {
++ union
++ {
++ LONGEST constant;
++ struct dwarf2_locexpr_baton *dwarf_block;
++ struct
++ {
++ struct dwarf2_loclist_baton *loclist;
++ struct type *type;
++ }
++ dwarf_loclist;
++ }
++ u;
++ enum range_bound_kind
++ {
++ RANGE_BOUND_KIND_CONSTANT,
++ RANGE_BOUND_KIND_DWARF_BLOCK,
++ RANGE_BOUND_KIND_DWARF_LOCLIST
++ }
++ kind;
++ }
+ /* Low bound of range. */
-
- /* Assorted flags describing the data found in this DIE. */
- unsigned int has_children : 1;
- unsigned int is_external : 1;
- unsigned int is_declaration : 1;
- unsigned int has_type : 1;
- unsigned int has_specification : 1;
-- unsigned int has_stmt_list : 1;
- unsigned int has_pc_info : 1;
-
- /* Flag set if the SCOPE field of this structure has been
-@@ -472,10 +463,12 @@ struct partial_die_info
- unsigned int has_byte_size : 1;
-
- /* The name of this DIE. Normally the value of DW_AT_name, but
-- sometimes DW_TAG_MIPS_linkage_name or a string computed in some
-- other fashion. */
-+ sometimes a default name for unnamed DIEs. */
- char *name;
-- char *dirname;
-+
-+ /* The linkage name of this DIE, from DW_AT_MIPS_linkage_name, or
-+ NULL if no linkage name was present. */
-+ char *linkage_name;
-
- /* The scope to prepend to our children. This is generally
- allocated on the comp_unit_obstack, so will disappear
-@@ -498,9 +491,6 @@ struct partial_die_info
- DW_AT_extension). */
- unsigned int spec_offset;
-
-- /* If HAS_STMT_LIST, the offset of the Line Number Information data. */
-- unsigned int line_offset;
+- LONGEST low;
-
- /* Pointers to this DIE's parent, first child, and next sibling,
- if any. */
- struct partial_die_info *die_parent, *die_child, *die_sibling;
-@@ -523,6 +513,15 @@ struct attr_abbrev
- ENUM_BITFIELD(dwarf_form) form : 16;
- };
-
-+/* Additional GDB-specific attribute forms. */
-+enum
-+ {
-+ /* A string which has been updated to GDB's internal
-+ representation (e.g. converted to canonical form) and does not
-+ need to be updated again. */
-+ GDB_FORM_cached_string = 0xff
-+ };
-+
- /* Attributes have a name and a value */
- struct attribute
- {
-@@ -756,7 +755,7 @@ static void dwarf2_create_include_psymtab (char *, struct partial_symtab *,
- struct objfile *);
++ low,
+ /* High bound of range. */
+-
+- LONGEST high;
++ high,
++ /* Byte stride of range. */
++ byte_stride;
- static void dwarf2_build_include_psymtabs (struct dwarf2_cu *,
-- struct partial_die_info *,
-+ struct die_info *,
- struct partial_symtab *);
+ /* Flags indicating whether the values of low and high are
+ valid. When true, the respective range value is
+@@ -926,9 +1019,9 @@ extern void allocate_gnat_aux_type (stru
+ #define TYPE_POINTER_TYPE(thistype) (thistype)->pointer_type
+ #define TYPE_REFERENCE_TYPE(thistype) (thistype)->reference_type
+ #define TYPE_CHAIN(thistype) (thistype)->chain
+-/* Note that if thistype is a TYPEDEF type, you have to call check_typedef.
+- But check_typedef does set the TYPE_LENGTH of the TYPEDEF type,
+- so you only have to call check_typedef once. Since allocate_value
++/* Note that if thistype is a TYPEDEF, ARRAY or STRING type, you have to call
++ check_typedef. But check_typedef does set the TYPE_LENGTH of the TYPEDEF
++ type, so you only have to call check_typedef once. Since allocate_value
+ calls check_typedef, TYPE_LENGTH (VALUE_TYPE (X)) is safe. */
+ #define TYPE_LENGTH(thistype) (thistype)->length
+ /* Note that TYPE_CODE can be TYPE_CODE_TYPEDEF, so if you want the real
+@@ -936,11 +1029,16 @@ extern void allocate_gnat_aux_type (stru
+ #define TYPE_CODE(thistype) TYPE_MAIN_TYPE(thistype)->code
+ #define TYPE_NFIELDS(thistype) TYPE_MAIN_TYPE(thistype)->nfields
+ #define TYPE_FIELDS(thistype) TYPE_MAIN_TYPE(thistype)->flds_bnds.fields
++#define TYPE_DATA_LOCATION_DWARF_BLOCK(thistype) TYPE_MAIN_TYPE (thistype)->data_location.dwarf_block
++#define TYPE_DATA_LOCATION_ADDR(thistype) TYPE_MAIN_TYPE (thistype)->data_location.addr
++#define TYPE_ALLOCATED(thistype) TYPE_MAIN_TYPE (thistype)->allocated
++#define TYPE_ASSOCIATED(thistype) TYPE_MAIN_TYPE (thistype)->associated
- static void dwarf2_build_psymtabs_hard (struct objfile *, int);
-@@ -768,6 +767,9 @@ static void scan_partial_symbols (struct partial_die_info *,
- static void add_partial_symbol (struct partial_die_info *,
- struct dwarf2_cu *);
+ #define TYPE_INDEX_TYPE(type) TYPE_FIELD_TYPE (type, 0)
+ #define TYPE_RANGE_DATA(thistype) TYPE_MAIN_TYPE(thistype)->flds_bnds.bounds
+-#define TYPE_LOW_BOUND(range_type) TYPE_RANGE_DATA(range_type)->low
+-#define TYPE_HIGH_BOUND(range_type) TYPE_RANGE_DATA(range_type)->high
++#define TYPE_LOW_BOUND(range_type) TYPE_RANGE_DATA(range_type)->low.u.constant
++#define TYPE_HIGH_BOUND(range_type) TYPE_RANGE_DATA(range_type)->high.u.constant
++#define TYPE_BYTE_STRIDE(range_type) TYPE_RANGE_DATA(range_type)->byte_stride.u.constant
+ #define TYPE_LOW_BOUND_UNDEFINED(range_type) \
+ TYPE_RANGE_DATA(range_type)->low_undefined
+ #define TYPE_HIGH_BOUND_UNDEFINED(range_type) \
+@@ -957,7 +1055,14 @@ extern void allocate_gnat_aux_type (stru
+ (TYPE_HIGH_BOUND(TYPE_INDEX_TYPE((arraytype))))
-+static gdb_byte *read_comp_unit_head (struct comp_unit_head *, gdb_byte *,
-+ bfd *);
+ #define TYPE_ARRAY_LOWER_BOUND_VALUE(arraytype) \
+- (TYPE_LOW_BOUND(TYPE_INDEX_TYPE((arraytype))))
++ TYPE_LOW_BOUND (TYPE_INDEX_TYPE (arraytype))
+
- static int pdi_needs_namespace (enum dwarf_tag tag);
++/* TYPE_BYTE_STRIDE (TYPE_INDEX_TYPE (arraytype)) with a fallback to the
++ element size if no specific stride value is known. */
++#define TYPE_ARRAY_BYTE_STRIDE_VALUE(arraytype) \
++ (TYPE_BYTE_STRIDE (TYPE_INDEX_TYPE (arraytype)) == 0 \
++ ? TYPE_LENGTH (TYPE_TARGET_TYPE (arraytype)) \
++ : TYPE_BYTE_STRIDE (TYPE_INDEX_TYPE (arraytype)))
- static void add_partial_namespace (struct partial_die_info *pdi,
-@@ -794,6 +796,10 @@ static void dwarf2_psymtab_to_symtab (struct partial_symtab *);
+ /* C++ */
- static void psymtab_to_symtab_1 (struct partial_symtab *);
+@@ -1379,6 +1484,18 @@ extern struct type *create_array_type (s
+ struct type *);
+ extern struct type *lookup_array_range_type (struct type *, int, int);
-+static gdb_byte *dwarf2_read_section_1 (struct objfile *objfile,
-+ struct obstack *obstack,
-+ asection *sectp);
++extern CORE_ADDR type_range_any_field_internal (struct type *range_type,
++ int fieldno);
+
- gdb_byte *dwarf2_read_section (struct objfile *, asection *);
-
- static void dwarf2_read_abbrevs (bfd *abfd, struct dwarf2_cu *cu);
-@@ -929,7 +935,8 @@ static int dwarf2_ranges_read (unsigned, CORE_ADDR *, CORE_ADDR *,
- struct dwarf2_cu *, struct partial_symtab *);
-
- static int dwarf2_get_pc_bounds (struct die_info *,
-- CORE_ADDR *, CORE_ADDR *, struct dwarf2_cu *);
-+ CORE_ADDR *, CORE_ADDR *, struct dwarf2_cu *,
-+ struct partial_symtab *pst);
-
- static void get_scope_pc_bounds (struct die_info *,
- CORE_ADDR *, CORE_ADDR *,
-@@ -962,6 +969,8 @@ static void read_namespace (struct die_info *die, struct dwarf2_cu *);
-
- static void read_module (struct die_info *die, struct dwarf2_cu *cu);
-
-+static void read_import_statement (struct die_info *die, struct dwarf2_cu *);
++extern int type_range_high_bound_internal (struct type *range_type);
+
- static const char *namespace_name (struct die_info *die,
- int *is_anonymous, struct dwarf2_cu *);
-
-@@ -993,6 +1002,9 @@ static void process_die (struct die_info *, struct dwarf2_cu *);
++extern int type_range_count_bound_internal (struct type *range_type);
++
++extern CORE_ADDR type_range_byte_stride_internal (struct type *range_type,
++ struct type *element_type);
++
++extern void finalize_type (struct type *type);
++
+ extern struct type *create_string_type (struct type *, struct type *,
+ struct type *);
+ extern struct type *lookup_string_range_type (struct type *, int, int);
+@@ -1424,6 +1541,10 @@ extern int is_public_ancestor (struct ty
- static char *dwarf2_linkage_name (struct die_info *, struct dwarf2_cu *);
+ extern int is_unique_ancestor (struct type *, struct value *);
-+static char *dwarf2_canonicalize_name (char *, struct dwarf2_cu *,
-+ struct obstack *);
++#if 0
++extern void type_mark_used (struct type *type);
++#endif
+
- static char *dwarf2_name (struct die_info *die, struct dwarf2_cu *);
+ /* Overload resolution */
- static struct die_info *dwarf2_extension (struct die_info *die,
-@@ -1030,7 +1042,14 @@ static void store_in_ref_table (struct die_info *,
+ #define LENGTH_MATCH(bv) ((bv)->rank[0])
+@@ -1496,10 +1617,13 @@ extern void maintenance_print_type (char
- static unsigned int dwarf2_get_ref_die_offset (struct attribute *);
+ extern htab_t create_copied_types_hash (struct objfile *objfile);
--static int dwarf2_get_attr_constant_value (struct attribute *, int);
-+enum dwarf2_get_attr_constant_value
-+ {
-+ dwarf2_attr_unknown,
-+ dwarf2_attr_const,
-+ dwarf2_attr_block
-+ };
-+static enum dwarf2_get_attr_constant_value dwarf2_get_attr_constant_value
-+ (struct attribute *attr, int *val_return);
+-extern struct type *copy_type_recursive (struct objfile *objfile,
+- struct type *type,
++extern struct type *copy_type_recursive (struct type *type,
+ htab_t copied_types);
- static struct die_info *follow_die_ref (struct die_info *,
- struct attribute *,
-@@ -1085,6 +1104,9 @@ static void age_cached_comp_units (void);
+ extern struct type *copy_type (const struct type *type);
- static void free_one_cached_comp_unit (void *);
-
-+static void fetch_die_type_attrs (struct die_info *die, struct type *type,
-+ struct dwarf2_cu *cu);
++#if 0
++extern void free_all_types (void);
++#endif
+
- static struct type *set_die_type (struct die_info *, struct type *,
- struct dwarf2_cu *);
-
-@@ -1104,19 +1126,28 @@ static void dwarf2_clear_marks (struct dwarf2_per_cu_data *);
-
- static struct type *get_die_type (struct die_info *die, struct dwarf2_cu *cu);
+ #endif /* GDBTYPES_H */
+Index: gdb-7.2.90.20110703/gdb/i386-linux-nat.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/i386-linux-nat.c 2011-02-27 17:25:37.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/i386-linux-nat.c 2011-07-03 10:33:11.000000000 +0200
+@@ -649,22 +649,13 @@ i386_linux_store_inferior_registers (str
+ }
+ \f
-+static struct dwarf2_locexpr_baton *dwarf2_attr_to_locexpr_baton
-+ (struct attribute *attr, struct dwarf2_cu *cu);
-+
- /* Try to locate the sections we need for DWARF 2 debugging
- information and return true if we have enough to do something. */
+-/* Support for debug registers. */
+-
+-static unsigned long i386_linux_dr[DR_CONTROL + 1];
+-
+ /* Get debug register REGNUM value from only the one LWP of PTID. */
- int
- dwarf2_has_info (struct objfile *objfile)
+ static unsigned long
+-i386_linux_dr_get (ptid_t ptid, int regnum)
++i386_linux_dr_get (int tid, int regnum)
{
-- struct dwarf2_per_objfile *data;
-+ int update_sizes = 0;
-
- /* Initialize per-objfile state. */
-- data = obstack_alloc (&objfile->objfile_obstack, sizeof (*data));
-- memset (data, 0, sizeof (*data));
-- set_objfile_data (objfile, dwarf2_objfile_data_key, data);
-- dwarf2_per_objfile = data;
-+ dwarf2_per_objfile = objfile_data (objfile, dwarf2_objfile_data_key);
-+ if (!dwarf2_per_objfile)
-+ {
-+ struct dwarf2_per_objfile *data
-+ = obstack_alloc (&objfile->objfile_obstack, sizeof (*data));
-+ memset (data, 0, sizeof (*data));
-+ set_objfile_data (objfile, dwarf2_objfile_data_key, data);
-+ dwarf2_per_objfile = data;
-+ update_sizes = 1;
-+ }
-
- dwarf_info_section = 0;
- dwarf_abbrev_section = 0;
-@@ -1127,8 +1158,9 @@ dwarf2_has_info (struct objfile *objfile)
- dwarf_eh_frame_section = 0;
- dwarf_ranges_section = 0;
- dwarf_loc_section = 0;
-+ dwarf_aranges_section = 0;
-
-- bfd_map_over_sections (objfile->obfd, dwarf2_locate_sections, NULL);
-+ bfd_map_over_sections (objfile->obfd, dwarf2_locate_sections, &update_sizes);
- return (dwarf_info_section != NULL && dwarf_abbrev_section != NULL);
- }
+- int tid;
+ unsigned long value;
-@@ -1149,51 +1181,61 @@ section_is_p (asection *sectp, const char *name)
- in. */
+- tid = TIDGET (ptid);
+- if (tid == 0)
+- tid = PIDGET (ptid);
+-
+ /* FIXME: kettenis/2001-03-27: Calling perror_with_name if the
+ ptrace call fails breaks debugging remote targets. The correct
+ way to fix this is to add the hardware breakpoint and watchpoint
+@@ -686,14 +677,8 @@ i386_linux_dr_get (ptid_t ptid, int regn
+ /* Set debug register REGNUM to VALUE in only the one LWP of PTID. */
static void
--dwarf2_locate_sections (bfd *abfd, asection *sectp, void *ignore_ptr)
-+dwarf2_locate_sections (bfd *abfd, asection *sectp, void *user_data)
+-i386_linux_dr_set (ptid_t ptid, int regnum, unsigned long value)
++i386_linux_dr_set (int tid, int regnum, unsigned long value)
{
-+ int update_sizes = * (int *) user_data;
- if (section_is_p (sectp, INFO_SECTION))
- {
-- dwarf2_per_objfile->info_size = bfd_get_section_size (sectp);
-+ if (update_sizes)
-+ dwarf2_per_objfile->info_size = bfd_get_section_size (sectp);
- dwarf_info_section = sectp;
- }
- else if (section_is_p (sectp, ABBREV_SECTION))
- {
-- dwarf2_per_objfile->abbrev_size = bfd_get_section_size (sectp);
-+ if (update_sizes)
-+ dwarf2_per_objfile->abbrev_size = bfd_get_section_size (sectp);
- dwarf_abbrev_section = sectp;
- }
- else if (section_is_p (sectp, LINE_SECTION))
- {
-- dwarf2_per_objfile->line_size = bfd_get_section_size (sectp);
-+ if (update_sizes)
-+ dwarf2_per_objfile->line_size = bfd_get_section_size (sectp);
- dwarf_line_section = sectp;
- }
- else if (section_is_p (sectp, PUBNAMES_SECTION))
- {
-- dwarf2_per_objfile->pubnames_size = bfd_get_section_size (sectp);
-+ if (update_sizes)
-+ dwarf2_per_objfile->pubnames_size = bfd_get_section_size (sectp);
- dwarf_pubnames_section = sectp;
- }
- else if (section_is_p (sectp, ARANGES_SECTION))
- {
-- dwarf2_per_objfile->aranges_size = bfd_get_section_size (sectp);
-+ if (update_sizes)
-+ dwarf2_per_objfile->aranges_size = bfd_get_section_size (sectp);
- dwarf_aranges_section = sectp;
- }
- else if (section_is_p (sectp, LOC_SECTION))
- {
-- dwarf2_per_objfile->loc_size = bfd_get_section_size (sectp);
-+ if (update_sizes)
-+ dwarf2_per_objfile->loc_size = bfd_get_section_size (sectp);
- dwarf_loc_section = sectp;
- }
- else if (section_is_p (sectp, MACINFO_SECTION))
- {
-- dwarf2_per_objfile->macinfo_size = bfd_get_section_size (sectp);
-+ if (update_sizes)
-+ dwarf2_per_objfile->macinfo_size = bfd_get_section_size (sectp);
- dwarf_macinfo_section = sectp;
- }
- else if (section_is_p (sectp, STR_SECTION))
- {
-- dwarf2_per_objfile->str_size = bfd_get_section_size (sectp);
-+ if (update_sizes)
-+ dwarf2_per_objfile->str_size = bfd_get_section_size (sectp);
- dwarf_str_section = sectp;
- }
- else if (section_is_p (sectp, FRAME_SECTION))
- {
-- dwarf2_per_objfile->frame_size = bfd_get_section_size (sectp);
-+ if (update_sizes)
-+ dwarf2_per_objfile->frame_size = bfd_get_section_size (sectp);
- dwarf_frame_section = sectp;
- }
- else if (section_is_p (sectp, EH_FRAME_SECTION))
-@@ -1201,13 +1243,15 @@ dwarf2_locate_sections (bfd *abfd, asection *sectp, void *ignore_ptr)
- flagword aflag = bfd_get_section_flags (ignore_abfd, sectp);
- if (aflag & SEC_HAS_CONTENTS)
- {
-- dwarf2_per_objfile->eh_frame_size = bfd_get_section_size (sectp);
-+ if (update_sizes)
-+ dwarf2_per_objfile->eh_frame_size = bfd_get_section_size (sectp);
- dwarf_eh_frame_section = sectp;
- }
- }
- else if (section_is_p (sectp, RANGES_SECTION))
- {
-- dwarf2_per_objfile->ranges_size = bfd_get_section_size (sectp);
-+ if (update_sizes)
-+ dwarf2_per_objfile->ranges_size = bfd_get_section_size (sectp);
- dwarf_ranges_section = sectp;
- }
-
-@@ -1250,6 +1294,86 @@ dwarf2_resize_section (asection *sectp, bfd_size_type new_size)
- sectp->name);
+- int tid;
+-
+- tid = TIDGET (ptid);
+- if (tid == 0)
+- tid = PIDGET (ptid);
+-
+ errno = 0;
+ ptrace (PTRACE_POKEUSER, tid,
+ offsetof (struct user, u_debugreg[regnum]), value);
+@@ -701,35 +686,78 @@ i386_linux_dr_set (ptid_t ptid, int regn
+ perror_with_name (_("Couldn't write debug register"));
}
-+/* A cleanup that frees an obstack. */
-+static void
-+finalize_obstack (void *o)
-+{
-+ struct obstack *ob = o;
-+ obstack_free (o, 0);
-+}
+-/* Set DR_CONTROL to ADDR in all LWPs of LWP_LIST. */
++/* Helper for i386_linux_dr_set_control. */
+
-+/* Read the .debug_aranges section and construct an address map. */
-+
-+void
-+dwarf2_create_quick_addrmap (struct objfile *objfile)
++static void
++i386_linux_dr_set_control_callback (int tid, void *control_voidp)
+{
-+ char *aranges_buffer, *aranges_ptr;
-+ bfd *abfd = objfile->obfd;
-+ CORE_ADDR baseaddr;
-+ struct cleanup *old;
-+ struct obstack temp_obstack;
-+ struct addrmap *mutable_map;
-+
-+ if (!dwarf_aranges_section)
-+ return;
++ unsigned long control = *(unsigned long *) control_voidp;
+
-+ baseaddr = ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
++ i386_linux_dr_set (tid, DR_CONTROL, control);
++}
+
-+ aranges_buffer = dwarf2_read_section_1 (objfile, NULL, dwarf_aranges_section);
-+ aranges_ptr = aranges_buffer;
-+ old = make_cleanup (xfree, aranges_buffer);
++static void i386_linux_dr_set_addr (int regnum, CORE_ADDR addr);
+
-+ obstack_init (&temp_obstack);
-+ make_cleanup (finalize_obstack, &temp_obstack);
-+ mutable_map = addrmap_create_mutable (&temp_obstack);
++/* Set DR_CONTROL to ADDR in all LWPs of CURRENT_INFERIOR. */
+
+ static void
+ i386_linux_dr_set_control (unsigned long control)
+ {
+- struct lwp_info *lp;
+- ptid_t ptid;
++ int inferior_pid = ptid_get_pid (inferior_ptid);
++ struct inferior *inf = current_inferior ();
+
-+ while ((aranges_ptr - aranges_buffer) < dwarf2_per_objfile->aranges_size)
++ /* The amd64 counterpart and description is amd64_linux_dr_set_control. */
++ if (inf->pid != inferior_pid)
+ {
-+ struct comp_unit_head cu_header;
-+ unsigned int bytes_read, segment_size, delta;
-+ LONGEST info_offset;
-+ struct dwarf2_cu cu;
-+
-+ cu_header.initial_length_size = 0;
-+ aranges_ptr = read_comp_unit_head (&cu_header, aranges_ptr, abfd);
-+
-+ segment_size = read_1_byte (abfd, aranges_ptr);
-+ aranges_ptr += 1;
-+
-+ /* Align the pointer to twice the pointer size. I didn't see
-+ this in the spec but it appears to be required. */
-+ delta = (aranges_ptr - aranges_buffer) % (2 * cu_header.addr_size);
-+ delta = (2 * cu_header.addr_size - delta) % (2 * cu_header.addr_size);
-+ aranges_ptr += delta;
-+
-+ memset (&cu, 0, sizeof (cu));
-+ cu.header.addr_size = cu_header.addr_size;
++ struct i386_dr_mirror *dr_mirror = i386_dr_mirror_get ();
++ int i;
+
-+ while (1)
++ if (!dr_mirror->addr_preset)
+ {
-+ CORE_ADDR address, length;
-+
-+ address = read_address (abfd, aranges_ptr, &cu, &bytes_read);
-+ aranges_ptr += bytes_read;
-+
-+ length = read_address (abfd, aranges_ptr, &cu, &bytes_read);
-+ aranges_ptr += bytes_read;
++ dr_mirror->addr_preset = 1;
+
+- i386_linux_dr[DR_CONTROL] = control;
+- ALL_LWPS (lp, ptid)
+- i386_linux_dr_set (ptid, DR_CONTROL, control);
++ for (i = 0; i < DR_LASTADDR - DR_FIRSTADDR; i++)
++ i386_linux_dr_set_addr (i, dr_mirror->addr[i]);
++ }
++ }
+
-+ if (address == 0 && length == 0)
-+ break;
++ linux_nat_iterate_watchpoint_lwps (i386_linux_dr_set_control_callback,
++ &control);
+ }
+
+-/* Set address REGNUM (zero based) to ADDR in all LWPs of LWP_LIST. */
++/* Helper for i386_linux_dr_set_addr. */
+
-+ address += baseaddr;
++struct i386_linux_dr_set_addr_data
++ {
++ int regnum;
++ CORE_ADDR addr;
++ };
+
-+ addrmap_set_empty (mutable_map, address, address + length, objfile);
-+ }
-+ }
++static void
++i386_linux_dr_set_addr_callback (int tid, void *datap_voidp)
++{
++ const struct i386_linux_dr_set_addr_data *datap = datap_voidp;
+
-+ objfile->quick_addrmap = addrmap_create_fixed (mutable_map,
-+ &objfile->objfile_obstack);
-+ do_cleanups (old);
++ i386_linux_dr_set (tid, DR_FIRSTADDR + datap->regnum, datap->addr);
+}
+
-+
- /* Build a partial symbol table. */
-
- void
-@@ -1453,22 +1577,24 @@ dwarf2_create_include_psymtab (char *name, struct partial_symtab *pst,
-
- /* Read the Line Number Program data and extract the list of files
- included by the source file represented by PST. Build an include
-- partial symtab for each of these included files.
--
-- This procedure assumes that there *is* a Line Number Program in
-- the given CU. Callers should check that PDI->HAS_STMT_LIST is set
-- before calling this procedure. */
-+ partial symtab for each of these included files. */
++/* Set address REGNUM (zero based) to ADDR in all LWPs of CURRENT_INFERIOR.
++ */
static void
- dwarf2_build_include_psymtabs (struct dwarf2_cu *cu,
-- struct partial_die_info *pdi,
-+ struct die_info *die,
- struct partial_symtab *pst)
+ i386_linux_dr_set_addr (int regnum, CORE_ADDR addr)
{
- struct objfile *objfile = cu->objfile;
- bfd *abfd = objfile->obfd;
-- struct line_header *lh;
-+ struct line_header *lh = NULL;
-+ struct attribute *attr;
+- struct lwp_info *lp;
+- ptid_t ptid;
++ struct i386_linux_dr_set_addr_data data;
-- lh = dwarf_decode_line_header (pdi->line_offset, abfd, cu);
-+ attr = dwarf2_attr (die, DW_AT_stmt_list, cu);
-+ if (attr)
-+ {
-+ unsigned int line_offset = DW_UNSND (attr);
-+ lh = dwarf_decode_line_header (line_offset, abfd, cu);
-+ }
- if (lh == NULL)
- return; /* No linetable, so no includes. */
+ gdb_assert (regnum >= 0 && regnum <= DR_LASTADDR - DR_FIRSTADDR);
+
+- i386_linux_dr[DR_FIRSTADDR + regnum] = addr;
+- ALL_LWPS (lp, ptid)
+- i386_linux_dr_set (ptid, DR_FIRSTADDR + regnum, addr);
++ data.regnum = regnum;
++ data.addr = addr;
++ linux_nat_iterate_watchpoint_lwps (i386_linux_dr_set_addr_callback, &data);
+ }
+
+-/* Set address REGNUM (zero based) to zero in all LWPs of LWP_LIST. */
++/* Set address REGNUM (zero based) to zero in all LWPs of CURRENT_INFERIOR.
++ */
-@@ -1477,6 +1603,36 @@ dwarf2_build_include_psymtabs (struct dwarf2_cu *cu,
- free_line_header (lh);
+ static void
+ i386_linux_dr_reset_addr (int regnum)
+@@ -742,36 +770,54 @@ i386_linux_dr_reset_addr (int regnum)
+ static unsigned long
+ i386_linux_dr_get_status (void)
+ {
+- return i386_linux_dr_get (inferior_ptid, DR_STATUS);
++ int tid;
++
++ tid = TIDGET (inferior_ptid);
++ if (tid == 0)
++ tid = PIDGET (inferior_ptid);
++
++ return i386_linux_dr_get (tid, DR_STATUS);
}
-+/* Find the base address of the compilation unit for range lists and
-+ location lists. It will normally be specified by DW_AT_low_pc.
-+ In DWARF-3 draft 4, the base address could be overridden by
-+ DW_AT_entry_pc. It's been removed, but GCC still uses this for
-+ compilation units with discontinuous ranges. */
+-/* Unset MASK bits in DR_STATUS in all LWPs of LWP_LIST. */
++/* Helper for i386_linux_dr_unset_status. */
+
+ static void
+-i386_linux_dr_unset_status (unsigned long mask)
++i386_linux_dr_unset_status_callback (int tid, void *mask_voidp)
+ {
+- struct lwp_info *lp;
+- ptid_t ptid;
+-
+- ALL_LWPS (lp, ptid)
+- {
+- unsigned long value;
++ unsigned long mask = *(unsigned long *) mask_voidp;
++ unsigned long value;
+
+- value = i386_linux_dr_get (ptid, DR_STATUS);
+- value &= ~mask;
+- i386_linux_dr_set (ptid, DR_STATUS, value);
+- }
++ value = i386_linux_dr_get (tid, DR_STATUS);
++ value &= ~mask;
++ i386_linux_dr_set (tid, DR_STATUS, value);
++}
++
++/* Unset MASK bits in DR_STATUS in all LWPs of CURRENT_INFERIOR. */
+
+static void
-+dwarf2_find_base_address (struct die_info *die, struct dwarf2_cu *cu)
++i386_linux_dr_unset_status (unsigned long mask)
+{
-+ struct attribute *attr;
++ linux_nat_iterate_watchpoint_lwps (i386_linux_dr_unset_status_callback,
++ &mask);
+ }
+
+ static void
+ i386_linux_new_thread (ptid_t ptid)
+ {
+- int i;
++ struct i386_dr_mirror *dr_mirror = i386_dr_mirror_get ();
++ int i, tid;
+
-+ cu->base_known = 0;
-+ cu->base_address = 0;
++ /* Verify DR_MIRROR is valid. */
++ gdb_assert (PIDGET (ptid) == PIDGET (inferior_ptid));
+
-+ attr = dwarf2_attr (die, DW_AT_entry_pc, cu);
-+ if (attr)
-+ {
-+ cu->base_address = DW_ADDR (attr);
-+ cu->base_known = 1;
-+ }
-+ else
-+ {
-+ attr = dwarf2_attr (die, DW_AT_low_pc, cu);
-+ if (attr)
-+ {
-+ cu->base_address = DW_ADDR (attr);
-+ cu->base_known = 1;
-+ }
-+ }
-+}
++ tid = TIDGET (ptid);
++ if (tid == 0)
++ tid = PIDGET (ptid);
- /* Build the partial symbol table by doing a quick pass through the
- .debug_info and .debug_abbrev sections. */
-@@ -1489,7 +1645,7 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
- bfd *abfd = objfile->obfd;
- gdb_byte *info_ptr;
- gdb_byte *beg_of_comp_unit;
-- struct partial_die_info comp_unit_die;
-+ struct die_info *comp_unit_die;
- struct partial_symtab *pst;
- struct cleanup *back_to;
- CORE_ADDR baseaddr;
-@@ -1523,9 +1679,12 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
- {
- struct cleanup *back_to_inner;
- struct dwarf2_cu cu;
-- struct abbrev_info *abbrev;
- unsigned int bytes_read;
- struct dwarf2_per_cu_data *this_cu;
-+ int has_children, has_pc_info;
-+ struct attribute *attr;
-+ const char *name;
-+ CORE_ADDR best_lowpc, best_highpc;
-
- beg_of_comp_unit = info_ptr;
-
-@@ -1551,11 +1710,10 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
- this_cu = dwarf2_find_comp_unit (cu.header.offset, objfile);
-
- /* Read the compilation unit die */
-- abbrev = peek_die_abbrev (info_ptr, &bytes_read, &cu);
-- info_ptr = read_partial_die (&comp_unit_die, abbrev, bytes_read,
-- abfd, info_ptr, &cu);
-+ info_ptr = read_full_die (&comp_unit_die, abfd, info_ptr, &cu,
-+ &has_children);
-
-- if (comp_unit_die.tag == DW_TAG_partial_unit)
-+ if (comp_unit_die->tag == DW_TAG_partial_unit)
- {
- info_ptr = (beg_of_comp_unit + cu.header.length
- + cu.header.initial_length_size);
-@@ -1564,20 +1722,27 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
- }
+- for (i = DR_FIRSTADDR; i <= DR_LASTADDR; i++)
+- i386_linux_dr_set (ptid, i, i386_linux_dr[i]);
++ for (i = 0; i < DR_LASTADDR - DR_FIRSTADDR; i++)
++ i386_linux_dr_set (tid, DR_FIRSTADDR + i, dr_mirror->addr[i]);
- /* Set the language we're debugging */
-- set_cu_language (comp_unit_die.language, &cu);
-+ attr = dwarf2_attr (comp_unit_die, DW_AT_language, &cu);
-+ if (attr != NULL)
-+ set_cu_language (DW_UNSND (attr), &cu);
-+ else
-+ set_cu_language (language_minimal, &cu);
-
- /* Allocate a new partial symbol table structure */
-- pst = start_psymtab_common (objfile, objfile->section_offsets,
-- comp_unit_die.name ? comp_unit_die.name : "",
-+ attr = dwarf2_attr (comp_unit_die, DW_AT_name, &cu);
-+ if (attr != NULL)
-+ name = DW_STRING (attr);
-+ else
-+ name = "";
-+ pst = start_psymtab_common (objfile, objfile->section_offsets, name,
- /* TEXTLOW and TEXTHIGH are set below. */
- 0,
- objfile->global_psymbols.next,
- objfile->static_psymbols.next);
-
-- if (comp_unit_die.dirname)
-- pst->dirname = obsavestring (comp_unit_die.dirname,
-- strlen (comp_unit_die.dirname),
-- &objfile->objfile_obstack);
-+ attr = dwarf2_attr (comp_unit_die, DW_AT_comp_dir, &cu);
-+ if (attr != NULL)
-+ pst->dirname = xstrdup (DW_STRING (attr));
-
- pst->read_symtab_private = (char *) this_cu;
-
-@@ -1607,24 +1772,17 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
-
- /* Possibly set the default values of LOWPC and HIGHPC from
- `DW_AT_ranges'. */
-- if (cu.has_ranges_offset)
-- {
-- if (dwarf2_ranges_read (cu.ranges_offset, &comp_unit_die.lowpc,
-- &comp_unit_die.highpc, &cu, pst))
-- comp_unit_die.has_pc_info = 1;
-- }
-- else if (comp_unit_die.has_pc_info
-- && comp_unit_die.lowpc < comp_unit_die.highpc)
-- /* Store the contiguous range if it is not empty; it can be empty for
-- CUs with no code. */
-- addrmap_set_empty (objfile->psymtabs_addrmap,
-- comp_unit_die.lowpc + baseaddr,
-- comp_unit_die.highpc + baseaddr - 1, pst);
-+ has_pc_info = 0;
-+
-+ if (dwarf2_get_pc_bounds (comp_unit_die, &best_lowpc, &best_highpc, &cu,
-+ pst))
-+ has_pc_info = 1;
-+ dwarf2_find_base_address (comp_unit_die, &cu);
-
- /* Check if comp unit has_children.
- If so, read the rest of the partial symbols from this comp unit.
- If not, there's no more debug_info for this comp unit. */
-- if (comp_unit_die.has_children)
-+ if (has_children)
- {
- struct partial_die_info *first_die;
- CORE_ADDR lowpc, highpc;
-@@ -1634,8 +1792,7 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
+- i386_linux_dr_set (ptid, DR_CONTROL, i386_linux_dr[DR_CONTROL]);
++ i386_linux_dr_set (tid, DR_CONTROL, dr_mirror->control);
+ }
+ \f
- first_die = load_partial_dies (abfd, info_ptr, 1, &cu);
+Index: gdb-7.2.90.20110703/gdb/i386-nat.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/i386-nat.c 2011-02-26 23:04:51.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/i386-nat.c 2011-07-03 10:33:11.000000000 +0200
+@@ -25,6 +25,7 @@
+ #include "gdbcmd.h"
+ #include "target.h"
+ #include "gdb_assert.h"
++#include "inferior.h"
-- scan_partial_symbols (first_die, &lowpc, &highpc,
-- ! comp_unit_die.has_pc_info, &cu);
-+ scan_partial_symbols (first_die, &lowpc, &highpc, ! has_pc_info, &cu);
+ /* Support for hardware watchpoints and breakpoints using the i386
+ debug registers.
+@@ -44,7 +45,6 @@ struct i386_dr_low_type i386_dr_low;
+ #define TARGET_HAS_DR_LEN_8 (i386_dr_low.debug_register_length == 8)
- /* If we didn't find a lowpc, set it to highpc to avoid
- complaints from `maint check'. */
-@@ -1644,14 +1801,14 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
+ /* Debug registers' indices. */
+-#define DR_NADDR 4 /* The number of debug address registers. */
+ #define DR_STATUS 6 /* Index of debug status register (DR6). */
+ #define DR_CONTROL 7 /* Index of debug control register (DR7). */
- /* If the compilation unit didn't have an explicit address range,
- then use the information extracted from its child dies. */
-- if (! comp_unit_die.has_pc_info)
-+ if (! has_pc_info)
- {
-- comp_unit_die.lowpc = lowpc;
-- comp_unit_die.highpc = highpc;
-+ best_lowpc = lowpc;
-+ best_highpc = highpc;
- }
- }
-- pst->textlow = comp_unit_die.lowpc + baseaddr;
-- pst->texthigh = comp_unit_die.highpc + baseaddr;
-+ pst->textlow = best_lowpc + baseaddr;
-+ pst->texthigh = best_highpc + baseaddr;
-
- pst->n_global_syms = objfile->global_psymbols.next -
- (objfile->global_psymbols.list + pst->globals_offset);
-@@ -1667,12 +1824,9 @@ dwarf2_build_psymtabs_hard (struct objfile *objfile, int mainline)
- info_ptr = beg_of_comp_unit + cu.header.length
- + cu.header.initial_length_size;
-
-- if (comp_unit_die.has_stmt_list)
-- {
-- /* Get the list of files included in the current compilation unit,
-- and build a psymtab for each of them. */
-- dwarf2_build_include_psymtabs (&cu, &comp_unit_die, pst);
-- }
-+ /* Get the list of files included in the current compilation unit,
-+ and build a psymtab for each of them. */
-+ dwarf2_build_include_psymtabs (&cu, comp_unit_die, pst);
+@@ -111,49 +111,60 @@ struct i386_dr_low_type i386_dr_low;
- do_cleanups (back_to_inner);
- }
-@@ -1690,11 +1844,12 @@ load_comp_unit (struct dwarf2_per_cu_data *this_cu, struct objfile *objfile)
- {
- bfd *abfd = objfile->obfd;
- gdb_byte *info_ptr, *beg_of_comp_unit;
-- struct partial_die_info comp_unit_die;
-+ struct die_info *comp_unit_die;
- struct dwarf2_cu *cu;
-- struct abbrev_info *abbrev;
- unsigned int bytes_read;
- struct cleanup *back_to;
-+ struct attribute *attr;
-+ int has_children;
-
- info_ptr = dwarf2_per_objfile->info_buffer + this_cu->offset;
- beg_of_comp_unit = info_ptr;
-@@ -1716,12 +1871,15 @@ load_comp_unit (struct dwarf2_per_cu_data *this_cu, struct objfile *objfile)
- back_to = make_cleanup (dwarf2_free_abbrev_table, cu);
-
- /* Read the compilation unit die. */
-- abbrev = peek_die_abbrev (info_ptr, &bytes_read, cu);
-- info_ptr = read_partial_die (&comp_unit_die, abbrev, bytes_read,
-- abfd, info_ptr, cu);
-+ info_ptr = read_full_die (&comp_unit_die, abfd, info_ptr, cu,
-+ &has_children);
-
- /* Set the language we're debugging. */
-- set_cu_language (comp_unit_die.language, cu);
-+ attr = dwarf2_attr (comp_unit_die, DW_AT_language, cu);
-+ if (attr)
-+ set_cu_language (DW_UNSND (attr), cu);
-+ else
-+ set_cu_language (language_minimal, cu);
-
- /* Link this compilation unit into the compilation unit tree. */
- this_cu->cu = cu;
-@@ -1731,7 +1889,7 @@ load_comp_unit (struct dwarf2_per_cu_data *this_cu, struct objfile *objfile)
- /* Check if comp unit has_children.
- If so, read the rest of the partial symbols from this comp unit.
- If not, there's no more debug_info for this comp unit. */
-- if (comp_unit_die.has_children)
-+ if (has_children)
- load_partial_dies (abfd, info_ptr, 0, cu);
-
- do_cleanups (back_to);
-@@ -1948,7 +2106,7 @@ partial_die_parent_scope (struct partial_die_info *pdi,
- ignoring them. */
- complaint (&symfile_complaints,
- _("unhandled containing DIE tag %d for DIE at %d"),
-- parent->tag, pdi->offset);
-+ parent->tag, real_pdi->offset);
- parent->scope = grandparent_scope;
- }
+ /* The I'th debug register is vacant if its Local and Global Enable
+ bits are reset in the Debug Control register. */
+-#define I386_DR_VACANT(i) \
+- ((dr_control_mirror & (3 << (DR_ENABLE_SIZE * (i)))) == 0)
++
++static inline int
++i386_dr_vacant (struct i386_dr_mirror *dr_mirror, int i)
++{
++ return (dr_mirror->control & (3 << (DR_ENABLE_SIZE * i))) == 0;
++}
-@@ -1963,12 +2121,37 @@ partial_die_full_name (struct partial_die_info *pdi,
- struct dwarf2_cu *cu)
- {
- char *parent_scope;
-+ struct partial_die_info *real_pdi;
+ /* Locally enable the break/watchpoint in the I'th debug register. */
+-#define I386_DR_LOCAL_ENABLE(i) \
+- dr_control_mirror |= (1 << (DR_LOCAL_ENABLE_SHIFT + DR_ENABLE_SIZE * (i)))
-- parent_scope = partial_die_parent_scope (pdi, cu);
-- if (parent_scope == NULL)
-- return NULL;
-- else
-+ /* We need to look at our parent DIE; if we have a DW_AT_specification,
-+ then this means the parent of the specification DIE.
-+ partial_die_parent_scope does this loop also, but we do it here
-+ since we need to examine real_pdi->parent ourselves. */
-+
-+ real_pdi = pdi;
-+ while (real_pdi->has_specification)
-+ real_pdi = find_partial_die (real_pdi->spec_offset, cu);
-+
-+ parent_scope = partial_die_parent_scope (real_pdi, cu);
-+ if (parent_scope != NULL)
- return typename_concat (NULL, parent_scope, pdi->name, cu);
-+
-+ if (!cu->has_namespace_info && pdi->linkage_name
-+ && !real_pdi->die_parent)
-+ {
-+ char *actual_scope
-+ = language_class_name_from_physname (cu->language_defn,
-+ pdi->linkage_name);
-+ if (actual_scope != NULL)
-+ {
-+ char *actual_name = typename_concat (NULL, actual_scope,
-+ pdi->name, cu);
-+ xfree (actual_scope);
-+ return actual_name;
-+ }
-+ }
-+
-+ return NULL;
- }
+-/* Globally enable the break/watchpoint in the I'th debug register. */
+-#define I386_DR_GLOBAL_ENABLE(i) \
+- dr_control_mirror |= (1 << (DR_GLOBAL_ENABLE_SHIFT + DR_ENABLE_SIZE * (i)))
++static inline void
++i386_dr_local_enable (struct i386_dr_mirror *dr_mirror, int i)
++{
++ dr_mirror->control |= 1 << (DR_LOCAL_ENABLE_SHIFT + DR_ENABLE_SIZE * i);
++}
- static void
-@@ -1984,7 +2167,9 @@ add_partial_symbol (struct partial_die_info *pdi, struct dwarf2_cu *cu)
+ /* Disable the break/watchpoint in the I'th debug register. */
+-#define I386_DR_DISABLE(i) \
+- dr_control_mirror &= ~(3 << (DR_ENABLE_SIZE * (i)))
++
++static inline void
++i386_dr_disable (struct i386_dr_mirror *dr_mirror, int i)
++{
++ dr_mirror->control &= ~(3 << (DR_ENABLE_SIZE * i));
++}
- baseaddr = ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
+ /* Set in DR7 the RW and LEN fields for the I'th debug register. */
+-#define I386_DR_SET_RW_LEN(i,rwlen) \
+- do { \
+- dr_control_mirror &= ~(0x0f << (DR_CONTROL_SHIFT+DR_CONTROL_SIZE*(i))); \
+- dr_control_mirror |= ((rwlen) << (DR_CONTROL_SHIFT+DR_CONTROL_SIZE*(i))); \
+- } while (0)
++
++static inline void
++i386_dr_set_rw_len (struct i386_dr_mirror *dr_mirror, int i, unsigned rwlen)
++{
++ dr_mirror->control &= ~(0x0f << (DR_CONTROL_SHIFT + DR_CONTROL_SIZE * i));
++ dr_mirror->control |= rwlen << (DR_CONTROL_SHIFT + DR_CONTROL_SIZE * i);
++}
-- if (pdi_needs_namespace (pdi->tag))
-+ if (pdi->linkage_name != NULL)
-+ actual_name = pdi->linkage_name;
-+ else if (pdi_needs_namespace (pdi->tag))
- {
- actual_name = partial_die_full_name (pdi, cu);
- if (actual_name)
-@@ -2133,9 +2318,8 @@ add_partial_symbol (struct partial_die_info *pdi, struct dwarf2_cu *cu)
- if (cu->language == language_cplus
- && cu->has_namespace_info == 0
- && psym != NULL
-- && SYMBOL_CPLUS_DEMANGLED_NAME (psym) != NULL)
-- cp_check_possible_namespace_symbols (SYMBOL_CPLUS_DEMANGLED_NAME (psym),
-- objfile);
-+ && pdi->linkage_name != NULL)
-+ cp_check_possible_namespace_symbols (actual_name, objfile);
-
- if (built_actual_name)
- xfree (actual_name);
-@@ -2158,6 +2342,14 @@ pdi_needs_namespace (enum dwarf_tag tag)
- case DW_TAG_union_type:
- case DW_TAG_enumeration_type:
- case DW_TAG_enumerator:
-+ case DW_TAG_subprogram:
-+ case DW_TAG_variable:
-+ return 1;
-+ case DW_TAG_member:
-+ /* The only time we will encounter member variables in this
-+ function is when we are creating a "linkage" name for them;
-+ therefore they must be static members, so they do need a
-+ class prefix. */
- return 1;
- default:
- return 0;
-@@ -2290,11 +2482,11 @@ guess_structure_name (struct partial_die_info *struct_pdi,
+ /* Get from DR7 the RW and LEN fields for the I'th debug register. */
+-#define I386_DR_GET_RW_LEN(i) \
+- ((dr_control_mirror >> (DR_CONTROL_SHIFT + DR_CONTROL_SIZE * (i))) & 0x0f)
++
++static inline unsigned
++i386_dr_get_rw_len (struct i386_dr_mirror *dr_mirror, int i)
++{
++ return ((dr_mirror->control >> (DR_CONTROL_SHIFT + DR_CONTROL_SIZE * i))
++ & 0x0f);
++}
- while (child_pdi != NULL)
- {
-- if (child_pdi->tag == DW_TAG_subprogram)
-+ if (child_pdi->tag == DW_TAG_subprogram && child_pdi->linkage_name)
- {
- char *actual_class_name
- = language_class_name_from_physname (cu->language_defn,
-- child_pdi->name);
-+ child_pdi->linkage_name);
- if (actual_class_name != NULL)
- {
- struct_pdi->name
-@@ -2741,7 +2933,6 @@ process_full_comp_unit (struct dwarf2_per_cu_data *per_cu)
- CORE_ADDR lowpc, highpc;
- struct symtab *symtab;
- struct cleanup *back_to;
-- struct attribute *attr;
- CORE_ADDR baseaddr;
+ /* Mask that this I'th watchpoint has triggered. */
+ #define I386_DR_WATCH_MASK(i) (1 << (i))
- baseaddr = ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
-@@ -2751,30 +2942,7 @@ process_full_comp_unit (struct dwarf2_per_cu_data *per_cu)
+ /* Did the watchpoint whose address is in the I'th register break? */
+-#define I386_DR_WATCH_HIT(i) (dr_status_mirror & I386_DR_WATCH_MASK (i))
++static inline int
++i386_dr_watch_hit (struct i386_dr_mirror *dr_mirror, int i)
++{
++ return (dr_mirror->status & I386_DR_WATCH_MASK (i)) != 0;
++}
- cu->list_in_scope = &file_symbols;
+ /* A macro to loop over all debug registers. */
+ #define ALL_DEBUG_REGISTERS(i) for (i = 0; i < DR_NADDR; i++)
-- /* Find the base address of the compilation unit for range lists and
-- location lists. It will normally be specified by DW_AT_low_pc.
-- In DWARF-3 draft 4, the base address could be overridden by
-- DW_AT_entry_pc. It's been removed, but GCC still uses this for
-- compilation units with discontinuous ranges. */
+-/* Mirror the inferior's DRi registers. We keep the status and
+- control registers separated because they don't hold addresses. */
+-static CORE_ADDR dr_mirror[DR_NADDR];
+-static unsigned long dr_status_mirror, dr_control_mirror;
-
-- cu->base_known = 0;
-- cu->base_address = 0;
+-/* Reference counts for each debug register. */
+-static int dr_ref_count[DR_NADDR];
-
-- attr = dwarf2_attr (cu->dies, DW_AT_entry_pc, cu);
-- if (attr)
-- {
-- cu->base_address = DW_ADDR (attr);
-- cu->base_known = 1;
-- }
-- else
-- {
-- attr = dwarf2_attr (cu->dies, DW_AT_low_pc, cu);
-- if (attr)
-- {
-- cu->base_address = DW_ADDR (attr);
-- cu->base_known = 1;
-- }
-- }
-+ dwarf2_find_base_address (cu->dies, cu);
+ /* Whether or not to print the mirrored debug registers. */
+ static int maint_show_dr;
- /* Do line number decoding in read_file_scope () */
- process_die (cu->dies, cu);
-@@ -2805,6 +2973,7 @@ process_full_comp_unit (struct dwarf2_per_cu_data *per_cu)
- static void
- process_die (struct die_info *die, struct dwarf2_cu *cu)
- {
-+
- switch (die->tag)
- {
- case DW_TAG_padding:
-@@ -2849,6 +3018,7 @@ process_die (struct die_info *die, struct dwarf2_cu *cu)
-
- case DW_TAG_base_type:
- case DW_TAG_subrange_type:
-+ case DW_TAG_typedef:
- /* Add a typedef symbol for the type definition, if it has a
- DW_AT_name. */
- new_symbol (die, read_type_die (die, cu), cu);
-@@ -2867,14 +3037,12 @@ process_die (struct die_info *die, struct dwarf2_cu *cu)
- break;
- case DW_TAG_imported_declaration:
- case DW_TAG_imported_module:
-- /* FIXME: carlton/2002-10-16: Eventually, we should use the
-- information contained in these. DW_TAG_imported_declaration
-- dies shouldn't have children; DW_TAG_imported_module dies
-- shouldn't in the C++ case, but conceivably could in the
-- Fortran case. */
- processing_has_namespace_info = 1;
-- complaint (&symfile_complaints, _("unsupported tag: '%s'"),
-- dwarf_tag_name (die->tag));
-+ if (die->child != NULL && (die->tag == DW_TAG_imported_declaration
-+ || cu->language != language_fortran))
-+ complaint (&symfile_complaints, _("Tag '%s' has unexpected children"),
-+ dwarf_tag_name (die->tag));
-+ read_import_statement (die, cu);
- break;
- default:
- new_symbol (die, NULL, cu);
-@@ -2904,22 +3072,130 @@ dwarf2_full_name (struct die_info *die, struct dwarf2_cu *cu)
- return name;
-
- /* If no prefix is necessary for this type of DIE, return the
-- unqualified name. The other three tags listed could be handled
-- in pdi_needs_namespace, but that requires broader changes. */
-- if (!pdi_needs_namespace (die->tag)
-- && die->tag != DW_TAG_subprogram
-- && die->tag != DW_TAG_variable
-- && die->tag != DW_TAG_member)
-+ unqualified name. */
-+ if (!pdi_needs_namespace (die->tag))
- return name;
-
- prefix = determine_prefix (die, cu);
- if (*prefix != '\0')
-- name = typename_concat (&cu->objfile->objfile_obstack, prefix,
-- name, cu);
-+ {
-+ char *prefixed_name = typename_concat (NULL, prefix, name, cu);
-+ buf = mem_fileopen ();
-+ fputs_unfiltered (prefixed_name, buf);
-+ xfree (prefixed_name);
-+ }
-+
-+ if (cu->language == language_cplus && die->tag == DW_TAG_subprogram)
-+ {
-+ struct type *type = read_type_die (die, cu);
-+
-+ if (buf == NULL)
-+ {
-+ buf = mem_fileopen ();
-+ fputs_unfiltered (name, buf);
-+ }
-+
-+ c_type_print_args (type, buf, 0);
-+ }
-+
-+ if (buf != NULL)
-+ {
-+ long length;
-+ name = ui_file_obsavestring (buf, &cu->objfile->objfile_obstack,
-+ &length);
-+ ui_file_delete (buf);
-+ }
+@@ -195,21 +206,80 @@ static int i386_handle_nonaligned_watchp
- return name;
- }
+ /* Implementation. */
-+/* read the given die's decl_line number. Return -1 if in case of an error */
-+static int dwarf2_read_decl_line (struct die_info *die, struct dwarf2_cu *cu){
-+ struct attribute *line_attr;
++/* Per-inferior data key. */
++static const struct inferior_data *i386_inferior_data;
+
-+ line_attr = dwarf2_attr (die, DW_AT_decl_line, cu);
-+ if (line_attr){
-+ return DW_UNSND (line_attr);
-+ }
++struct i386_inferior_data
++ {
++ /* Copy of i386 hardware debug registers for performance reasons. */
++ struct i386_dr_mirror dr_mirror;
++ };
+
-+ return -1;
-+}
++static void
++i386_inferior_data_cleanup (struct inferior *inf, void *arg)
++{
++ struct i386_inferior_data *inf_data = arg;
+
-+/* Read the import statement specified by the given die and record it. */
++ xfree (inf_data);
++}
+
-+static void
-+read_import_statement (struct die_info *die, struct dwarf2_cu *cu)
++static struct i386_inferior_data *
++i386_inferior_data_get (void)
+{
-+ struct attribute *import_attr;
-+ struct die_info *imported_die;
-+ const char *imported_name;
-+ const char *imported_name_prefix;
-+ char *canonical_name;
-+ const char *import_alias;
-+ const char *imported_declaration = "";
-+ const char *import_prefix;
-+
-+ int line_number = -1;
-+
-+ int is_anonymous = 0;
-+
-+ import_attr = dwarf2_attr (die, DW_AT_import, cu);
-+ if (import_attr == NULL)
++ struct inferior *inf = current_inferior ();
++ struct i386_inferior_data *inf_data;
++
++ inf_data = inferior_data (inf, i386_inferior_data);
++ if (inf_data == NULL)
+ {
-+ complaint (&symfile_complaints, _("Tag '%s' has no DW_AT_import"),
-+ dwarf_tag_name (die->tag));
-+ return;
++ inf_data = xzalloc (sizeof (*inf_data));
++ set_inferior_data (current_inferior (), i386_inferior_data, inf_data);
+ }
+
-+ imported_die = follow_die_ref (die, import_attr, &cu);
-+ imported_name = namespace_name (imported_die, &is_anonymous, cu);
-+ if (imported_name == NULL)
++ if (inf->pid != ptid_get_pid (inferior_ptid))
+ {
-+ /* C++ imports from std:: DW_TAG_base_type with no DW_AT_name - why? */
-+ return;
-+ }
++ static struct i386_inferior_data detached_inf_data_local;
++ static int detached_inf_pid = -1;
+
-+ /* Figure out the local name after import. */
-+ import_alias = dwarf2_name(die, cu);
-+ if(import_alias == NULL){
-+ import_alias = "";
-+ }
-+
-+ /* Determine the line number at which the import was made */
-+ line_number = dwarf2_read_decl_line(die, cu);
-+
-+ /* Figure out where the statement is being imported to */
-+ import_prefix = determine_prefix (die, cu);
++ if (detached_inf_pid != ptid_get_pid (inferior_ptid))
++ {
++ detached_inf_pid = ptid_get_pid (inferior_ptid);
+
-+ /*
-+ Figure out what the scope of the imported die is and prepend it
-+ to the name of the imported die
-+ */
-+ imported_name_prefix = determine_prefix (imported_die, cu);
-+
-+ if(imported_die->tag != DW_TAG_namespace){
-+ imported_declaration = imported_name;
-+ canonical_name = (char*)imported_name_prefix;
-+ }else{
-+ if(strlen (imported_name_prefix) > 0){
-+ canonical_name = alloca (strlen (imported_name_prefix) + 2 + strlen (imported_name) + 1);
-+ strcpy (canonical_name, imported_name_prefix);
-+ strcat (canonical_name, "::");
-+ strcat (canonical_name, imported_name);
-+ }else{
-+ canonical_name = alloca (strlen (imported_name) + 1);
-+ strcpy (canonical_name, imported_name);
++ /* Forked processes get a copy of the debug registers. */
++ memcpy (&detached_inf_data_local, inf_data,
++ sizeof (detached_inf_data_local));
++ detached_inf_data_local.dr_mirror.addr_preset = 0;
++ }
++
++ return &detached_inf_data_local;
+ }
-+ }
-+
-+ using_directives = cp_add_using (import_prefix,
-+ canonical_name,
-+ import_alias,
-+ imported_declaration,
-+ line_number,
-+ using_directives);
++
++ return inf_data;
+}
+
- static void
- initialize_cu_func_list (struct dwarf2_cu *cu)
- {
-@@ -3076,6 +3352,103 @@ add_to_cu_func_list (const char *name, CORE_ADDR lowpc, CORE_ADDR highpc,
- cu->last_fn = thisfn;
- }
+ /* Clear the reference counts and forget everything we knew about the
+ debug registers. */
-+static int
-+unsigned_int_compar (const void *ap, const void *bp)
++struct i386_dr_mirror *
++i386_dr_mirror_get (void)
+{
-+ unsigned int a = *(unsigned int *) ap;
-+ unsigned int b = *(unsigned int *) bp;
-+
-+ return (a > b) - (b > a);
++ return &i386_inferior_data_get ()->dr_mirror;
+}
+
-+static void explore_abstract_origin(struct die_info *die, struct dwarf2_cu *cu, unsigned* die_children_p){
-+ struct attribute *attr;
-+ unsigned die_children = *die_children_p;
-+ struct die_info *child_die;
-+
-+ attr = dwarf2_attr (die, DW_AT_abstract_origin, cu);
-+
-+ /* GCC currently uses DW_AT_specification to indicate die inheritence
-+ in the case of import statements. The following is to accommodate that */
-+ if(!attr){
-+ attr = dwarf2_attr (die, DW_AT_specification, cu);
-+ }
-+
-+ if (attr)
-+ {
-+ /* For the list of CHILD_DIEs. */
-+ unsigned *offsets;
-+ unsigned *offsets_end, *offsetp;
-+ struct die_info *origin_die, *origin_child_die;
-+ struct cleanup *cleanups;
-+
-+ origin_die = follow_die_ref (die, attr, &cu);
-+ if (die->tag != origin_die->tag)
-+ complaint (&symfile_complaints,
-+ _("DIE 0x%x and its abstract origin 0x%x have different "
-+ "tags"),
-+ die->offset, origin_die->offset);
-+
-+ offsets = xmalloc (sizeof (*offsets) * die_children);
-+ cleanups = make_cleanup (xfree, offsets);
-+
-+ offsets_end = offsets;
-+ child_die = die->child;
-+ while (child_die && child_die->tag)
-+ {
-+ attr = dwarf2_attr (child_die, DW_AT_abstract_origin, cu);
-+ if (!attr)
-+ complaint (&symfile_complaints,
-+ _("Child DIE 0x%x of DIE 0x%x has missing "
-+ "DW_AT_abstract_origin"),
-+ child_die->offset, die->offset);
-+ else
-+ {
-+ struct die_info *child_origin_die;
-+
-+ child_origin_die = follow_die_ref (child_die, attr, &cu);
-+ if (child_die->tag != child_origin_die->tag)
-+ complaint (&symfile_complaints,
-+ _("Child DIE 0x%x and its abstract origin 0x%x have "
-+ "different tags"),
-+ child_die->offset, child_origin_die->offset);
-+ *offsets_end++ = child_origin_die->offset;
-+ }
-+ child_die = sibling_die (child_die);
-+ }
-+ qsort (offsets, offsets_end - offsets, sizeof (*offsets),
-+ unsigned_int_compar);
-+ /* Disabled as excessively expensive - check if we may ever complain. */
-+ if (0)
-+ {
-+ for (offsetp = offsets + 1; offsetp < offsets_end; offsetp++)
-+ if (offsetp[-1] == *offsetp)
-+ complaint (&symfile_complaints,
-+ _("Child DIEs of DIE 0x%x duplicitly abstract-origin "
-+ "referenced DIE 0x%x"),
-+ die->offset, *offsetp);
-+ }
-+
-+ offsetp = offsets;
-+ origin_child_die = origin_die->child;
-+ while (origin_child_die && origin_child_die->tag)
-+ {
-+ /* Is origin_child_die referenced by any of the DIE children? */
-+ while (offsetp < offsets_end && *offsetp < origin_child_die->offset)
-+ offsetp++;
-+ if (offsetp >= offsets_end || *offsetp > origin_child_die->offset)
-+ {
-+ /* Found that origin_child_die is really not referenced. */
-+ process_die (origin_child_die, cu);
-+ }
-+ origin_child_die = sibling_die (origin_child_die);
-+ }
-+
-+ do_cleanups (cleanups);
-+ }
-+
-+}
-+
- static void
- read_func_scope (struct die_info *die, struct dwarf2_cu *cu)
+ void
+ i386_cleanup_dregs (void)
{
-@@ -3088,16 +3461,27 @@ read_func_scope (struct die_info *die, struct dwarf2_cu *cu)
- char *name;
- CORE_ADDR baseaddr;
- struct block *block;
-+ unsigned die_children = 0;
-
- baseaddr = ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
-
-- name = dwarf2_linkage_name (die, cu);
-+ name = dwarf2_name (die, cu);
-
- /* Ignore functions with missing or empty names and functions with
- missing or invalid low and high pc attributes. */
-- if (name == NULL || !dwarf2_get_pc_bounds (die, &lowpc, &highpc, cu))
-+ if (name == NULL || !dwarf2_get_pc_bounds (die, &lowpc, &highpc, cu, NULL)){
-+ /* explore abstract origins if present. They might contain useful information
-+ such as import statements. */
-+ child_die = die->child;
-+ while (child_die && child_die->tag)
-+ {
-+ child_die = sibling_die (child_die);
-+ die_children++;
-+ }
-+ explore_abstract_origin(die, cu, &die_children);
- return;
--
-+ }
-+
- lowpc += baseaddr;
- highpc += baseaddr;
++ struct i386_dr_mirror *dr_mirror = i386_dr_mirror_get ();
+ int i;
-@@ -3124,16 +3508,91 @@ read_func_scope (struct die_info *die, struct dwarf2_cu *cu)
+ ALL_DEBUG_REGISTERS(i)
+ {
+- dr_mirror[i] = 0;
+- dr_ref_count[i] = 0;
++ dr_mirror->addr[i] = 0;
++ dr_mirror->ref_count[i] = 0;
+ }
+- dr_control_mirror = 0;
+- dr_status_mirror = 0;
++ dr_mirror->addr_preset = 0;
++ dr_mirror->control = 0;
++ dr_mirror->status = 0;
+ }
+
+ /* Print the values of the mirrored debug registers. This is called
+@@ -220,6 +290,7 @@ static void
+ i386_show_dr (const char *func, CORE_ADDR addr,
+ int len, enum target_hw_bp_type type)
+ {
++ struct i386_dr_mirror *dr_mirror = i386_dr_mirror_get ();
+ int addr_size = gdbarch_addr_bit (target_gdbarch) / 8;
+ int i;
- cu->list_in_scope = &local_symbols;
+@@ -239,13 +310,16 @@ i386_show_dr (const char *func, CORE_ADD
+ : "??unknown??"))));
+ puts_unfiltered (":\n");
+ printf_unfiltered ("\tCONTROL (DR7): %s STATUS (DR6): %s\n",
+- phex (dr_control_mirror, 8), phex (dr_status_mirror, 8));
++ phex (dr_mirror->control, 8),
++ phex (dr_mirror->status, 8));
+ ALL_DEBUG_REGISTERS(i)
+ {
+ printf_unfiltered ("\
+ \tDR%d: addr=0x%s, ref.count=%d DR%d: addr=0x%s, ref.count=%d\n",
+- i, phex (dr_mirror[i], addr_size), dr_ref_count[i],
+- i+1, phex (dr_mirror[i+1], addr_size), dr_ref_count[i+1]);
++ i, phex (dr_mirror->addr[i], addr_size),
++ dr_mirror->ref_count[i], i + 1,
++ phex (dr_mirror->addr[i + 1], addr_size),
++ dr_mirror->ref_count[i + 1]);
+ i++;
+ }
+ }
+@@ -313,6 +387,7 @@ Invalid hardware breakpoint length %d in
+ static int
+ i386_insert_aligned_watchpoint (CORE_ADDR addr, unsigned len_rw_bits)
+ {
++ struct i386_dr_mirror *dr_mirror = i386_dr_mirror_get ();
+ int i;
-- if (die->child != NULL)
-+ child_die = die->child;
-+ die_children = 0;
-+ while (child_die && child_die->tag)
+ if (!i386_dr_low.set_addr || !i386_dr_low.set_control)
+@@ -323,11 +398,10 @@ i386_insert_aligned_watchpoint (CORE_ADD
+ reuse it for this watchpoint as well (and save a register). */
+ ALL_DEBUG_REGISTERS(i)
{
-+ process_die (child_die, cu);
-+ child_die = sibling_die (child_die);
-+ die_children++;
-+ }
-+
-+ attr = dwarf2_attr (die, DW_AT_abstract_origin, cu);
-+ if (attr)
-+ {
-+ /* For the list of CHILD_DIEs. */
-+ unsigned *offsets;
-+ unsigned *offsets_end, *offsetp;
-+ struct die_info *origin_die, *origin_child_die;
-+ struct cleanup *cleanups;
-+
-+ origin_die = follow_die_ref (die, attr, &cu);
-+ if (die->tag != origin_die->tag)
-+ complaint (&symfile_complaints,
-+ _("DIE 0x%x and its abstract origin 0x%x have different "
-+ "tags"),
-+ die->offset, origin_die->offset);
-+
-+ offsets = xmalloc (sizeof (*offsets) * die_children);
-+ cleanups = make_cleanup (xfree, offsets);
-+
-+ offsets_end = offsets;
- child_die = die->child;
- while (child_die && child_die->tag)
+- if (!I386_DR_VACANT (i)
+- && dr_mirror[i] == addr
+- && I386_DR_GET_RW_LEN (i) == len_rw_bits)
++ if (!i386_dr_vacant (dr_mirror, i) && dr_mirror->addr[i] == addr
++ && i386_dr_get_rw_len (dr_mirror, i) == len_rw_bits)
{
-- process_die (child_die, cu);
-+ attr = dwarf2_attr (child_die, DW_AT_abstract_origin, cu);
-+ if (!attr)
-+ complaint (&symfile_complaints,
-+ _("Child DIE 0x%x of DIE 0x%x has missing "
-+ "DW_AT_abstract_origin"),
-+ child_die->offset, die->offset);
-+ else
-+ {
-+ struct die_info *child_origin_die;
-+
-+ child_origin_die = follow_die_ref (child_die, attr, &cu);
-+ if (child_die->tag != child_origin_die->tag)
-+ complaint (&symfile_complaints,
-+ _("Child DIE 0x%x and its abstract origin 0x%x have "
-+ "different tags"),
-+ child_die->offset, child_origin_die->offset);
-+ *offsets_end++ = child_origin_die->offset;
-+ }
- child_die = sibling_die (child_die);
+- dr_ref_count[i]++;
++ dr_mirror->ref_count[i]++;
+ return 0;
}
-+ qsort (offsets, offsets_end - offsets, sizeof (*offsets),
-+ unsigned_int_compar);
-+ /* Disabled as excessively expensive - check if we may ever complain. */
-+ if (0)
-+ {
-+ for (offsetp = offsets + 1; offsetp < offsets_end; offsetp++)
-+ if (offsetp[-1] == *offsetp)
-+ complaint (&symfile_complaints,
-+ _("Child DIEs of DIE 0x%x duplicitly abstract-origin "
-+ "referenced DIE 0x%x"),
-+ die->offset, *offsetp);
-+ }
-+
-+ offsetp = offsets;
-+ origin_child_die = origin_die->child;
-+ while (origin_child_die && origin_child_die->tag)
-+ {
-+ /* Is origin_child_die referenced by any of the DIE children? */
-+ while (offsetp < offsets_end && *offsetp < origin_child_die->offset)
-+ offsetp++;
-+ if (offsetp >= offsets_end || *offsetp > origin_child_die->offset)
-+ {
-+ /* Found that origin_child_die is really not referenced. */
-+ process_die (origin_child_die, cu);
-+ }
-+ origin_child_die = sibling_die (origin_child_die);
-+ }
-+
-+ do_cleanups (cleanups);
}
-
-+ explore_abstract_origin(die, cu, &die_children);
-+
- new = pop_context ();
- /* Make a block for the local symbols within. */
- block = finish_block (new->name, &local_symbols, new->old_blocks,
-@@ -3154,6 +3613,7 @@ read_func_scope (struct die_info *die, struct dwarf2_cu *cu)
- back to building a containing block's symbol lists. */
- local_symbols = new->locals;
- param_symbols = new->params;
-+ using_directives = new->using_directives;
-
- /* If we've finished processing a top-level function, subsequent
- symbols go in the file symbol list. */
-@@ -3180,7 +3640,7 @@ read_lexical_block_scope (struct die_info *die, struct dwarf2_cu *cu)
- as multiple lexical blocks? Handling children in a sane way would
- be nasty. Might be easier to properly extend generic blocks to
- describe ranges. */
-- if (!dwarf2_get_pc_bounds (die, &lowpc, &highpc, cu))
-+ if (!dwarf2_get_pc_bounds (die, &lowpc, &highpc, cu, NULL))
- return;
- lowpc += baseaddr;
- highpc += baseaddr;
-@@ -3216,6 +3676,7 @@ read_lexical_block_scope (struct die_info *die, struct dwarf2_cu *cu)
- dwarf2_record_block_ranges (die, block, baseaddr, cu);
+@@ -335,7 +409,7 @@ i386_insert_aligned_watchpoint (CORE_ADD
+ /* Next, look for a vacant debug register. */
+ ALL_DEBUG_REGISTERS(i)
+ {
+- if (I386_DR_VACANT (i))
++ if (i386_dr_vacant (dr_mirror, i))
+ break;
}
- local_symbols = new->locals;
-+ using_directives = new->using_directives;
- }
- /* Get low and high pc attributes from DW_AT_ranges attribute value OFFSET.
-@@ -3351,7 +3812,8 @@ dwarf2_ranges_read (unsigned offset, CORE_ADDR *low_return,
- discontinuous, i.e. derived from DW_AT_ranges information. */
+@@ -346,9 +420,9 @@ i386_insert_aligned_watchpoint (CORE_ADD
+ /* Now set up the register I to watch our region. */
+
+ /* Record the info in our local mirrored array. */
+- dr_mirror[i] = addr;
+- dr_ref_count[i] = 1;
+- I386_DR_SET_RW_LEN (i, len_rw_bits);
++ dr_mirror->addr[i] = addr;
++ dr_mirror->ref_count[i] = 1;
++ i386_dr_set_rw_len (dr_mirror, i, len_rw_bits);
+ /* Note: we only enable the watchpoint locally, i.e. in the current
+ task. Currently, no i386 target allows or supports global
+ watchpoints; however, if any target would want that in the
+@@ -356,13 +430,13 @@ i386_insert_aligned_watchpoint (CORE_ADD
+ to enable watchpoints globally or locally, and the code below
+ should use global or local enable and slow-down flags as
+ appropriate. */
+- I386_DR_LOCAL_ENABLE (i);
+- dr_control_mirror |= DR_LOCAL_SLOWDOWN;
+- dr_control_mirror &= I386_DR_CONTROL_MASK;
++ i386_dr_local_enable (dr_mirror, i);
++ dr_mirror->control |= DR_LOCAL_SLOWDOWN;
++ dr_mirror->control &= I386_DR_CONTROL_MASK;
+
+ /* Finally, actually pass the info to the inferior. */
+ i386_dr_low.set_addr (i, addr);
+- i386_dr_low.set_control (dr_control_mirror);
++ i386_dr_low.set_control (dr_mirror->control);
+
+ /* Only a sanity check for leftover bits (set possibly only by inferior). */
+ if (i386_dr_low.unset_status)
+@@ -380,21 +454,21 @@ i386_insert_aligned_watchpoint (CORE_ADD
static int
- dwarf2_get_pc_bounds (struct die_info *die, CORE_ADDR *lowpc,
-- CORE_ADDR *highpc, struct dwarf2_cu *cu)
-+ CORE_ADDR *highpc, struct dwarf2_cu *cu,
-+ struct partial_symtab *pst)
+ i386_remove_aligned_watchpoint (CORE_ADDR addr, unsigned len_rw_bits)
{
- struct attribute *attr;
- CORE_ADDR low = 0;
-@@ -3379,7 +3841,7 @@ dwarf2_get_pc_bounds (struct die_info *die, CORE_ADDR *lowpc,
- {
- /* Value of the DW_AT_ranges attribute is the offset in the
- .debug_ranges section. */
-- if (!dwarf2_ranges_read (DW_UNSND (attr), &low, &high, cu, NULL))
-+ if (!dwarf2_ranges_read (DW_UNSND (attr), &low, &high, cu, pst))
- return 0;
- /* Found discontinuous range of addresses. */
- ret = -1;
-@@ -3418,7 +3880,7 @@ dwarf2_get_subprogram_pc_bounds (struct die_info *die,
- CORE_ADDR low, high;
- struct die_info *child = die->child;
-
-- if (dwarf2_get_pc_bounds (die, &low, &high, cu))
-+ if (dwarf2_get_pc_bounds (die, &low, &high, cu, NULL))
- {
- *lowpc = min (*lowpc, low);
- *highpc = max (*highpc, high);
-@@ -3455,7 +3917,7 @@ get_scope_pc_bounds (struct die_info *die,
- CORE_ADDR best_high = (CORE_ADDR) 0;
- CORE_ADDR current_low, current_high;
-
-- if (dwarf2_get_pc_bounds (die, ¤t_low, ¤t_high, cu))
-+ if (dwarf2_get_pc_bounds (die, ¤t_low, ¤t_high, cu, NULL))
- {
- best_low = current_low;
- best_high = current_high;
-@@ -3750,8 +4212,14 @@ dwarf2_add_field (struct field_info *fip, struct die_info *die,
- if (fieldname == NULL)
- return;
-
-- /* Get physical name. */
-+ /* Get physical name. We prefer the linkage name if one was specified,
-+ because this lets GDB find a non-debugging version of the symbol.
-+ Otherwise construct the full name from type information. Ideally,
-+ when GDB supports canonicalization of C++ symbol names, we will not
-+ need the linkage name for anything. */
- physname = dwarf2_linkage_name (die, cu);
-+ if (physname == NULL)
-+ physname = (char *) dwarf2_full_name (die, cu);
-
- /* The name is already allocated along with this objfile, so we don't
- need to duplicate it for the type. */
-@@ -3881,8 +4349,14 @@ dwarf2_add_member_fn (struct field_info *fip, struct die_info *die,
- if (fieldname == NULL)
- return;
++ struct i386_dr_mirror *dr_mirror = i386_dr_mirror_get ();
+ int i, retval = -1;
-- /* Get the mangled name. */
-+ /* Get physical name. We prefer the linkage name if one was specified,
-+ because this lets GDB find a non-debugging version of the symbol.
-+ Otherwise construct the full name from type information. Ideally,
-+ when GDB supports canonicalization of C++ symbol names, we will not
-+ need the linkage name for anything. */
- physname = dwarf2_linkage_name (die, cu);
-+ if (physname == NULL)
-+ physname = (char *) dwarf2_full_name (die, cu);
-
- /* Look up member function name in fieldlist. */
- for (i = 0; i < fip->nfnfields; i++)
-@@ -3926,7 +4400,7 @@ dwarf2_add_member_fn (struct field_info *fip, struct die_info *die,
- /* The name is already allocated along with this objfile, so we don't
- need to duplicate it for the type. */
- fnp->physname = physname ? physname : "";
-- fnp->type = alloc_type (objfile);
-+ fnp->type = alloc_type (objfile, NULL);
- this_type = read_type_die (die, cu);
- if (this_type && TYPE_CODE (this_type) == TYPE_CODE_FUNC)
+ ALL_DEBUG_REGISTERS(i)
{
-@@ -4110,7 +4584,7 @@ quirk_gcc_member_function_pointer (struct die_info *die, struct dwarf2_cu *cu)
- return NULL;
-
- domain_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (pfn_type, 0));
-- type = alloc_type (objfile);
-+ type = alloc_type (objfile, NULL);
- smash_to_method_type (type, domain_type, TYPE_TARGET_TYPE (pfn_type),
- TYPE_FIELDS (pfn_type), TYPE_NFIELDS (pfn_type),
- TYPE_VARARGS (pfn_type));
-@@ -4147,7 +4621,7 @@ read_structure_type (struct die_info *die, struct dwarf2_cu *cu)
- if (type)
- return type;
+- if (!I386_DR_VACANT (i)
+- && dr_mirror[i] == addr
+- && I386_DR_GET_RW_LEN (i) == len_rw_bits)
++ if (!i386_dr_vacant (dr_mirror, i) && dr_mirror->addr[i] == addr
++ && i386_dr_get_rw_len (dr_mirror, i) == len_rw_bits)
+ {
+- if (--dr_ref_count[i] == 0) /* no longer in use? */
++ if (--dr_mirror->ref_count[i] == 0) /* no longer in use? */
+ {
+ /* Reset our mirror. */
+- dr_mirror[i] = 0;
+- I386_DR_DISABLE (i);
++ dr_mirror->addr[i] = 0;
++ i386_dr_disable (dr_mirror, i);
+ /* Reset it in the inferior. */
+- i386_dr_low.set_control (dr_control_mirror);
++ i386_dr_low.set_control (dr_mirror->control);
+ if (i386_dr_low.reset_addr)
+ i386_dr_low.reset_addr (i);
+ }
+@@ -556,26 +630,27 @@ i386_region_ok_for_watchpoint (CORE_ADDR
+ static int
+ i386_stopped_data_address (struct target_ops *ops, CORE_ADDR *addr_p)
+ {
++ struct i386_dr_mirror *dr_mirror = i386_dr_mirror_get ();
+ CORE_ADDR addr = 0;
+ int i;
+ int rc = 0;
+
+- dr_status_mirror = i386_dr_low.get_status ();
++ dr_mirror->status = i386_dr_low.get_status ();
+
+ ALL_DEBUG_REGISTERS(i)
+ {
+- if (I386_DR_WATCH_HIT (i)
++ if (i386_dr_watch_hit (dr_mirror, i)
+ /* This second condition makes sure DRi is set up for a data
+ watchpoint, not a hardware breakpoint. The reason is
+ that GDB doesn't call the target_stopped_data_address
+ method except for data watchpoints. In other words, I'm
+ being paranoiac. */
+- && I386_DR_GET_RW_LEN (i) != 0
++ && i386_dr_get_rw_len (dr_mirror, i) != 0
+ /* This third condition makes sure DRi is not vacant, this
+ avoids false positives in windows-nat.c. */
+- && !I386_DR_VACANT (i))
++ && !i386_dr_vacant (dr_mirror, i))
+ {
+- addr = dr_mirror[i];
++ addr = dr_mirror->addr[i];
+ rc = 1;
+ if (maint_show_dr)
+ i386_show_dr ("watchpoint_hit", addr, -1, hw_write);
+@@ -689,6 +764,10 @@ i386_use_watchpoints (struct target_ops
+ t->to_remove_watchpoint = i386_remove_watchpoint;
+ t->to_insert_hw_breakpoint = i386_insert_hw_breakpoint;
+ t->to_remove_hw_breakpoint = i386_remove_hw_breakpoint;
++
++ if (i386_inferior_data == NULL)
++ i386_inferior_data
++ = register_inferior_data_with_cleanup (i386_inferior_data_cleanup);
+ }
-- type = alloc_type (objfile);
-+ type = alloc_type (objfile, NULL);
- INIT_CPLUS_SPECIFIC (type);
- name = dwarf2_name (die, cu);
- if (name != NULL)
-@@ -4360,7 +4834,7 @@ read_enumeration_type (struct die_info *die, struct dwarf2_cu *cu)
- struct attribute *attr;
- const char *name;
+ void
+Index: gdb-7.2.90.20110703/gdb/i386-nat.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/i386-nat.h 2011-01-09 04:08:56.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/i386-nat.h 2011-07-03 10:33:11.000000000 +0200
+@@ -78,6 +78,28 @@ struct i386_dr_low_type
-- type = alloc_type (objfile);
-+ type = alloc_type (objfile, NULL);
+ extern struct i386_dr_low_type i386_dr_low;
- TYPE_CODE (type) = TYPE_CODE_ENUM;
- name = dwarf2_full_name (die, cu);
-@@ -4410,10 +4884,15 @@ determine_class_name (struct die_info *die, struct dwarf2_cu *cu)
- {
- if (child->tag == DW_TAG_subprogram)
- {
-- char *phys_prefix
-+ char *phys_prefix;
-+ char *linkage_name = dwarf2_linkage_name (child, cu);
++/* The number of debug address registers. */
++#define DR_NADDR 4
+
-+ if (linkage_name == NULL)
-+ continue;
++/* Copy of hardware debug registers for performance reasons. */
+
-+ phys_prefix
- = language_class_name_from_physname (cu->language_defn,
-- dwarf2_linkage_name
-- (child, cu));
-+ linkage_name);
++struct i386_dr_mirror
++ {
++ /* Mirror the inferior's DRi registers. We keep the status and
++ control registers separated because they don't hold addresses. */
++ CORE_ADDR addr[DR_NADDR];
++
++ /* All the ADDR hardware registers have been written at least once. */
++ unsigned addr_preset : 1;
++
++ /* Reference counts for each debug register. */
++ int ref_count[DR_NADDR];
++
++ unsigned long status, control;
++ };
++
++extern struct i386_dr_mirror *i386_dr_mirror_get (void);
++
+ /* Use this function to set i386_dr_low debug_register_length field
+ rather than setting it directly to check that the length is only
+ set once. It also enables the 'maint set/show show-debug-regs'
+Index: gdb-7.2.90.20110703/gdb/infrun.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/infrun.c 2011-06-03 17:32:13.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/infrun.c 2011-07-03 10:33:11.000000000 +0200
+@@ -54,6 +54,8 @@
+ #include "inline-frame.h"
+ #include "jit.h"
+ #include "tracepoint.h"
++#include "stap-probe.h"
++#include "objfiles.h"
- if (phys_prefix != NULL)
- {
-@@ -4510,6 +4989,29 @@ process_enumeration_scope (struct die_info *die, struct dwarf2_cu *cu)
- new_symbol (die, this_type, cu);
+ /* Prototypes for local functions */
+
+@@ -2247,7 +2249,7 @@ static void insert_step_resume_breakpoin
+ struct frame_id);
+ static void insert_longjmp_resume_breakpoint (struct gdbarch *, CORE_ADDR);
+ static void check_exception_resume (struct execution_control_state *,
+- struct frame_info *, struct symbol *);
++ struct frame_info *);
+
+ static void stop_stepping (struct execution_control_state *ecs);
+ static void prepare_to_wait (struct execution_control_state *ecs);
+@@ -4169,9 +4171,17 @@ process_event_stop_test:
+
+ if (what.is_longjmp)
+ {
+- if (!gdbarch_get_longjmp_target_p (gdbarch)
+- || !gdbarch_get_longjmp_target (gdbarch,
+- frame, &jmp_buf_pc))
++ struct value *arg_value;
++
++ /* If we set the longjmp breakpoint via a SystemTap probe,
++ then use it to extract the arguments. The destination
++ PC is the third argument to the probe. */
++ arg_value = stap_safe_evaluate_at_pc (frame, 2);
++ if (arg_value)
++ jmp_buf_pc = value_as_address (arg_value);
++ else if (!gdbarch_get_longjmp_target_p (gdbarch)
++ || !gdbarch_get_longjmp_target (gdbarch,
++ frame, &jmp_buf_pc))
+ {
+ if (debug_infrun)
+ fprintf_unfiltered (gdb_stdlog,
+@@ -4189,12 +4199,7 @@ process_event_stop_test:
+ insert_longjmp_resume_breakpoint (gdbarch, jmp_buf_pc);
+ }
+ else
+- {
+- struct symbol *func = get_frame_function (frame);
+-
+- if (func)
+- check_exception_resume (ecs, frame, func);
+- }
++ check_exception_resume (ecs, frame);
+ keep_going (ecs);
+ return;
+
+@@ -5268,15 +5273,65 @@ insert_exception_resume_breakpoint (stru
+ }
}
-+/* Create a new array dimension referencing its target type TYPE.
-+
-+ Multidimensional arrays are internally represented as a stack of
-+ singledimensional arrays being referenced by their TYPE_TARGET_TYPE. */
++/* A helper for check_exception_resume that sets an
++ exception-breakpoint based on a SystemTap probe. */
+
-+static struct type *
-+create_single_array_dimension (struct type *type, struct type *range_type,
-+ struct die_info *die, struct dwarf2_cu *cu)
++static void
++insert_exception_resume_from_probe (struct thread_info *tp,
++ const struct stap_probe *probe,
++ struct objfile *objfile,
++ struct frame_info *frame)
+{
-+ type = create_array_type (NULL, type, range_type);
++ struct value *arg_value;
++ CORE_ADDR handler;
++ struct breakpoint *bp;
+
-+ /* These generic type attributes need to be fetched by
-+ evaluate_subexp_standard <multi_f77_subscript>'s call of
-+ value_subscripted_rvalue only for the innermost array type. */
-+ fetch_die_type_attrs (die, type, cu);
++ arg_value = stap_safe_evaluate_at_pc (frame, 1);
++ if (!arg_value)
++ return;
+
-+ /* These generic type attributes are checked for allocated/associated
-+ validity while accessing FIELD_LOC_KIND_DWARF_BLOCK. */
-+ fetch_die_type_attrs (die, range_type, cu);
++ handler = value_as_address (arg_value);
+
-+ return type;
++ if (debug_infrun)
++ fprintf_unfiltered (gdb_stdlog,
++ "infrun: exception resume at %s\n",
++ paddress (get_objfile_arch (objfile),
++ handler));
++
++ bp = set_momentary_breakpoint_at_pc (get_frame_arch (frame),
++ handler, bp_exception_resume);
++ bp->thread = tp->num;
++ inferior_thread ()->control.exception_resume_breakpoint = bp;
+}
+
- /* Extract all information from a DW_TAG_array_type DIE and put it in
- the DIE's type field. For now, this only handles one dimensional
- arrays. */
-@@ -4523,7 +5025,7 @@ read_array_type (struct die_info *die, struct dwarf2_cu *cu)
- struct type *element_type, *range_type, *index_type;
- struct type **range_types = NULL;
- struct attribute *attr;
-- int ndim = 0;
-+ int ndim = 0, i;
- struct cleanup *back_to;
- char *name;
+ /* This is called when an exception has been intercepted. Check to
+ see whether the exception's destination is of interest, and if so,
+ set an exception resume breakpoint there. */
-@@ -4570,16 +5072,11 @@ read_array_type (struct die_info *die, struct dwarf2_cu *cu)
- type = element_type;
+ static void
+ check_exception_resume (struct execution_control_state *ecs,
+- struct frame_info *frame, struct symbol *func)
++ struct frame_info *frame)
+ {
+ struct gdb_exception e;
++ struct objfile *objfile;
++ const struct stap_probe *probe;
++ struct symbol *func;
++
++ /* First see if this exception unwinding breakpoint was set via a
++ SystemTap probe point. If so, the probe has two arguments: the
++ CFA and the HANDLER. We ignore the CFA, extract the handler, and
++ set a breakpoint there. */
++ probe = find_probe_by_pc (get_frame_pc (frame), &objfile);
++ if (probe)
++ {
++ insert_exception_resume_from_probe (ecs->event_thread, probe,
++ objfile, frame);
++ return;
++ }
++
++ func = get_frame_function (frame);
++ if (!func)
++ return;
- if (read_array_order (die, cu) == DW_ORD_col_major)
-- {
-- int i = 0;
-- while (i < ndim)
-- type = create_array_type (NULL, type, range_types[i++]);
-- }
-- else
-- {
-- while (ndim-- > 0)
-- type = create_array_type (NULL, type, range_types[ndim]);
-- }
-+ for (i = 0; i < ndim; i++)
-+ type = create_single_array_dimension (type, range_types[i], die, cu);
-+ else /* (read_array_order (die, cu) == DW_ORD_row_major) */
-+ for (i = ndim - 1; i >= 0; i--)
-+ type = create_single_array_dimension (type, range_types[i], die, cu);
+ TRY_CATCH (e, RETURN_MASK_ERROR)
+ {
+@@ -6258,7 +6313,8 @@ static struct lval_funcs siginfo_value_f
+ if there's no object available. */
- /* Understand Dwarf2 support for vector types (like they occur on
- the PowerPC w/ AltiVec). Gcc just adds another attribute to the
-@@ -4646,12 +5143,14 @@ read_set_type (struct die_info *die, struct dwarf2_cu *cu)
- return set_die_type (die, set_type, cu);
+ static struct value *
+-siginfo_make_value (struct gdbarch *gdbarch, struct internalvar *var)
++siginfo_make_value (struct gdbarch *gdbarch, struct internalvar *var,
++ void *ignore)
+ {
+ if (target_has_stack
+ && !ptid_equal (inferior_ptid, null_ptid)
+@@ -6826,6 +6882,15 @@ show_schedule_multiple (struct ui_file *
+ "of all processes is %s.\n"), value);
}
--/* First cut: install each common block member as a global variable. */
-+/* Create appropriate locally-scoped variables for all the DW_TAG_common_block
-+ entries. Create also TYPE_CODE_STRUCT listing all such variables to be
-+ available for `info common'. COMMON_BLOCK_DOMAIN is used to sepate the
-+ common blocks name namespace from regular variable names. */
++/* Implementation of `siginfo' variable. */
++
++static const struct internalvar_funcs siginfo_funcs =
++{
++ siginfo_make_value,
++ NULL,
++ NULL
++};
++
+ void
+ _initialize_infrun (void)
+ {
+@@ -7098,7 +7163,7 @@ Tells gdb whether to detach the child of
+ value with a void typed value, and when we get here, gdbarch
+ isn't initialized yet. At this point, we're quite sure there
+ isn't another convenience variable of the same name. */
+- create_internalvar_type_lazy ("_siginfo", siginfo_make_value);
++ create_internalvar_type_lazy ("_siginfo", &siginfo_funcs, NULL);
+
+ add_setshow_boolean_cmd ("observer", no_class,
+ &observer_mode_1, _("\
+Index: gdb-7.2.90.20110703/gdb/linespec.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/linespec.c 2011-07-02 22:13:08.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/linespec.c 2011-07-03 10:33:11.000000000 +0200
+@@ -43,6 +43,7 @@
+ #include "arch-utils.h"
+ #include <ctype.h>
+ #include "cli/cli-utils.h"
++#include "stap-probe.h"
+
+ /* We share this one with symtab.c, but it is not exported widely. */
+
+@@ -786,6 +787,7 @@ keep_name_info (char *p, int on_boundary
+ PC returned is 0.
+ FILE:FUNCTION -- likewise, but prefer functions in that file.
+ *EXPR -- line in which address EXPR appears.
++ probe:[OBJFILE:][PROVIDER:]NAME -- a systemtap static probe
+
+ This may all be followed by an "if EXPR", which we ignore.
+
+@@ -854,6 +856,9 @@ decode_line_1 (char **argptr, int funfir
+ if (**argptr == '*')
+ return decode_indirect (argptr);
+
++ if (strncmp (*argptr, "probe:", 6) == 0)
++ return parse_stap_probe (argptr, canonical);
++
+ is_quoted = (strchr (get_gdb_completer_quote_characters (),
+ **argptr) != NULL);
+
+Index: gdb-7.2.90.20110703/gdb/linespec.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/linespec.h 2011-07-02 21:33:09.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/linespec.h 2011-07-03 10:33:11.000000000 +0200
+@@ -30,6 +30,10 @@ struct linespec_result
+ display mechanism would do the wrong thing. */
+ int special_display;
+
++ /* If non-zero, the linespec result should be considered to be a
++ "pre-expanded" multi-location linespec. */
++ int pre_expanded;
++
+ /* If non-NULL, an array of canonical names for returned
+ symtab_and_line objects. The array has as many elements as the
+ `nelts' field in the symtabs_and_line returned by decode_line_1.
+Index: gdb-7.2.90.20110703/gdb/linux-nat.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/linux-nat.c 2011-04-29 18:02:10.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/linux-nat.c 2011-07-03 10:33:11.000000000 +0200
+@@ -1272,6 +1272,64 @@ iterate_over_lwps (ptid_t filter,
+ return NULL;
+ }
- static void
- read_common_block (struct die_info *die, struct dwarf2_cu *cu)
- {
-- struct die_info *child_die;
- struct attribute *attr;
- struct symbol *sym;
- CORE_ADDR base = (CORE_ADDR) 0;
-@@ -4676,10 +5175,40 @@ read_common_block (struct die_info *die, struct dwarf2_cu *cu)
- }
- if (die->child != NULL)
- {
-+ struct objfile *objfile = cu->objfile;
-+ struct die_info *child_die;
-+ struct type *type;
-+ struct field *field;
-+ char *name;
-+ struct symbol *sym;
-+
-+ type = alloc_type (objfile, NULL);
-+ TYPE_CODE (type) = TYPE_CODE_STRUCT;
-+ /* Artificial type to be used only by `info common'. */
-+ TYPE_NAME (type) = "<common>";
-+
- child_die = die->child;
- while (child_die && child_die->tag)
- {
-+ TYPE_NFIELDS (type)++;
-+ child_die = sibling_die (child_die);
-+ }
++/* Helper for linux_nat_iterate_watchpoint_lwps. */
+
-+ TYPE_FIELDS (type) = obstack_alloc (&objfile->objfile_obstack,
-+ sizeof (*TYPE_FIELDS (type))
-+ * TYPE_NFIELDS (type));
-+ memset (TYPE_FIELDS (type), 0, sizeof (*TYPE_FIELDS (type))
-+ * TYPE_NFIELDS (type));
-+
-+ field = TYPE_FIELDS (type);
-+ child_die = die->child;
-+ while (child_die && child_die->tag)
-+ {
-+ /* Create the symbol in the DW_TAG_common_block block in the current
-+ symbol scope. */
- sym = new_symbol (child_die, NULL, cu);
++struct iterate_watchpoint_lwps_data
++ {
++ linux_nat_iterate_watchpoint_lwps_ftype callback;
++ void *callback_data;
++ };
+
-+ /* Undocumented in DWARF3, when it can be present? */
- attr = dwarf2_attr (child_die, DW_AT_data_member_location, cu);
- if (attr)
- {
-@@ -4687,8 +5216,25 @@ read_common_block (struct die_info *die, struct dwarf2_cu *cu)
- base + decode_locdesc (DW_BLOCK (attr), cu);
- add_symbol_to_list (sym, &global_symbols);
- }
++static int
++iterate_watchpoint_lwps_callback (struct lwp_info *lp, void *datap_voidp)
++{
++ struct iterate_watchpoint_lwps_data *datap = datap_voidp;
++ int tid;
+
-+ if (SYMBOL_CLASS (sym) == LOC_STATIC)
-+ SET_FIELD_PHYSADDR (*field, SYMBOL_VALUE_ADDRESS (sym));
-+ else
-+ SET_FIELD_PHYSNAME (*field, SYMBOL_LINKAGE_NAME (sym));
-+ FIELD_TYPE (*field) = SYMBOL_TYPE (sym);
-+ FIELD_NAME (*field) = SYMBOL_NATURAL_NAME (sym);
-+ field++;
- child_die = sibling_die (child_die);
- }
++ tid = TIDGET (lp->ptid);
++ if (tid == 0)
++ tid = PIDGET (lp->ptid);
+
-+ /* TYPE_LENGTH (type) is left 0 - it is only a virtual structure even
-+ with no consecutive address space. */
++ datap->callback (tid, datap->callback_data);
+
-+ sym = new_symbol (die, type, cu);
-+ /* SYMBOL_VALUE_ADDRESS never gets used as all its fields are static. */
-+ SYMBOL_VALUE_ADDRESS (sym) = base;
++ /* Continue the traversal. */
++ return 0;
++}
+
-+ set_die_type (die, type, cu);
- }
- }
-
-@@ -4756,9 +5302,7 @@ read_namespace (struct die_info *die, struct dwarf2_cu *cu)
- if (is_anonymous)
- {
- const char *previous_prefix = determine_prefix (die, cu);
-- cp_add_using_directive (TYPE_NAME (type),
-- strlen (previous_prefix),
-- strlen (TYPE_NAME (type)));
-+ cp_add_using_directive (previous_prefix, TYPE_NAME (type), "", "", dwarf2_read_decl_line(die, cu));
- }
- }
-
-@@ -4951,29 +5495,95 @@ read_tag_string_type (struct die_info *die, struct dwarf2_cu *cu)
- struct objfile *objfile = cu->objfile;
- struct type *type, *range_type, *index_type, *char_type;
- struct attribute *attr;
-- unsigned int length;
-+ int length;
++/* Iterate like iterate_over_lwps does except when forking-off a child call
++ CALLBACK with CALLBACK_DATA specifically only for that new child PID.
+
-+ index_type = builtin_type_int32;
-+ /* RANGE_TYPE is allocated from OBJFILE, not OBJFILE_INTERNAL. */
-+ range_type = alloc_type (objfile, index_type);
-+ /* LOW_BOUND and HIGH_BOUND are set for real below. */
-+ range_type = create_range_type (range_type, index_type, 0, -1);
++ During `set follow-fork-mode child' the call is also made for the new child
++ PID; parent watchpoints get detached elsewhere (during target_detach). */
+
-+ /* C/C++ should probably have the low bound 0 but C/C++ does not use
-+ DW_TAG_string_type. */
-+ TYPE_LOW_BOUND (range_type) = 1;
-
- attr = dwarf2_attr (die, DW_AT_string_length, cu);
-- if (attr)
-- {
-- length = DW_UNSND (attr);
-- }
-- else
-- {
-- /* check for the DW_AT_byte_size attribute */
-+ switch (dwarf2_get_attr_constant_value (attr, &length))
++void
++linux_nat_iterate_watchpoint_lwps
++ (linux_nat_iterate_watchpoint_lwps_ftype callback, void *callback_data)
++{
++ struct iterate_watchpoint_lwps_data data;
++ int inferior_pid = ptid_get_pid (inferior_ptid);
++ struct inferior *inf = current_inferior ();
++
++ data.callback = callback;
++ data.callback_data = callback_data;
++
++ if (inf->pid == inferior_pid)
+ {
-+ case dwarf2_attr_const:
-+ /* We currently do not support a constant address where the location
-+ should be read from - DWARF2_ATTR_BLOCK is expected instead. See
-+ DWARF for the DW_AT_STRING_LENGTH vs. DW_AT_BYTE_SIZE difference. */
-+ /* PASSTHRU */
-+ case dwarf2_attr_unknown:
- attr = dwarf2_attr (die, DW_AT_byte_size, cu);
-- if (attr)
-- {
-- length = DW_UNSND (attr);
-- }
-- else
-- {
-- length = 1;
-- }
-+ switch (dwarf2_get_attr_constant_value (attr, &length))
-+ {
-+ case dwarf2_attr_unknown:
-+ length = 1;
-+ /* PASSTHRU */
-+ case dwarf2_attr_const:
-+ TYPE_HIGH_BOUND (range_type) = length;
-+ break;
-+ case dwarf2_attr_block:
-+ TYPE_RANGE_BOUND_SET_DWARF_BLOCK (range_type, 1);
-+ TYPE_FIELD_DWARF_BLOCK (range_type, 1) =
-+ dwarf2_attr_to_locexpr_baton (attr, cu);
-+ TYPE_DYNAMIC (range_type) = 1;
-+ break;
-+ }
-+ break;
-+ case dwarf2_attr_block:
-+ /* Security check for a size overflow. */
-+ if (DW_BLOCK (attr)->size + 2 < DW_BLOCK (attr)->size)
-+ {
-+ TYPE_HIGH_BOUND (range_type) = 1;
-+ break;
-+ }
-+ /* Extend the DWARF block by a new DW_OP_deref/DW_OP_deref_size
-+ instruction as DW_AT_string_length specifies the length location, not
-+ its value. */
-+ {
-+ struct dwarf2_locexpr_baton *length_baton;
-+ struct attribute *size_attr;
-+
-+ length_baton = obstack_alloc (&cu->comp_unit_obstack,
-+ sizeof (*length_baton));
-+ length_baton->per_cu = cu->per_cu;
-+ length_baton->data = obstack_alloc (&cu->comp_unit_obstack,
-+ DW_BLOCK (attr)->size + 2);
-+ memcpy (length_baton->data, DW_BLOCK (attr)->data,
-+ DW_BLOCK (attr)->size);
-+
-+ /* DW_AT_BYTE_SIZE existing together with DW_AT_STRING_LENGTH specifies
-+ the size of an integer to fetch. */
-+
-+ size_attr = dwarf2_attr (die, DW_AT_byte_size, cu);
-+ if (size_attr)
-+ {
-+ length_baton->size = DW_BLOCK (attr)->size + 2;
-+ length_baton->data[DW_BLOCK (attr)->size] = DW_OP_deref_size;
-+ length_baton->data[DW_BLOCK (attr)->size + 1]
-+ = DW_UNSND (size_attr);
-+ if (length_baton->data[DW_BLOCK (attr)->size + 1]
-+ != DW_UNSND (size_attr))
-+ complaint (&symfile_complaints,
-+ _("DW_AT_string_length's DW_AT_byte_size integer "
-+ "exceeds the byte size storage"));
-+ }
-+ else
-+ {
-+ length_baton->size = DW_BLOCK (attr)->size + 1;
-+ length_baton->data[DW_BLOCK (attr)->size] = DW_OP_deref;
-+ }
++ /* Standard mode. Iterate all the threads of the current inferior.
++ Without specifying INFERIOR_PID it would iterate all the threads of
++ all the inferiors, which is inappropriate for watchpoints. */
+
-+ TYPE_RANGE_BOUND_SET_DWARF_BLOCK (range_type, 1);
-+ TYPE_FIELD_DWARF_BLOCK (range_type, 1) = length_baton;
-+ TYPE_DYNAMIC (range_type) = 1;
-+ }
-+ break;
- }
-
-- index_type = builtin_type_int32;
-- range_type = create_range_type (NULL, index_type, 1, length);
- type = create_string_type (NULL, range_type);
++ iterate_over_lwps (pid_to_ptid (inferior_pid),
++ iterate_watchpoint_lwps_callback, &data);
++ }
++ else
++ {
++ /* Detaching a new child PID temporarily present in INFERIOR_PID. */
++
++ callback (inferior_pid, callback_data);
++ }
++}
++
+ /* Update our internal state when changing from one checkpoint to
+ another indicated by NEW_PTID. We can only switch single-threaded
+ applications, so we only create one new LWP, and the previous list
+Index: gdb-7.2.90.20110703/gdb/linux-nat.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/linux-nat.h 2011-01-05 23:22:49.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/linux-nat.h 2011-07-03 10:33:11.000000000 +0200
+@@ -140,6 +140,11 @@ struct lwp_info *iterate_over_lwps (ptid
+ void *),
+ void *data);
+
++typedef void (*linux_nat_iterate_watchpoint_lwps_ftype) (int tid, void *data);
++
++extern void linux_nat_iterate_watchpoint_lwps
++ (linux_nat_iterate_watchpoint_lwps_ftype callback, void *callback_data);
++
+ /* Create a prototype generic GNU/Linux target. The client can
+ override it with local methods. */
+ struct target_ops * linux_target (void);
+Index: gdb-7.2.90.20110703/gdb/machoread.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/machoread.c 2011-03-07 17:17:29.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/machoread.c 2011-07-03 10:33:11.000000000 +0200
+@@ -849,6 +849,7 @@ static const struct sym_fns macho_sym_fn
+ default_symfile_segments, /* Get segment information from a file. */
+ NULL,
+ macho_symfile_relocate, /* Relocate a debug section. */
++ NULL, /* sym_get_probes */
+ &psym_functions
+ };
- return set_die_type (die, type, cu);
-@@ -5067,7 +5677,6 @@ static struct type *
- read_typedef (struct die_info *die, struct dwarf2_cu *cu)
- {
- struct objfile *objfile = cu->objfile;
-- struct attribute *attr;
- const char *name = NULL;
- struct type *this_type;
+Index: gdb-7.2.90.20110703/gdb/main.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/main.c 2011-03-07 19:34:31.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/main.c 2011-07-03 10:33:11.000000000 +0200
+@@ -39,6 +39,7 @@
-@@ -5175,8 +5784,8 @@ read_subrange_type (struct die_info *die, struct dwarf2_cu *cu)
- struct type *base_type;
- struct type *range_type;
- struct attribute *attr;
-- int low = 0;
-- int high = -1;
-+ int low, high, byte_stride_int;
-+ enum dwarf2_get_attr_constant_value high_type;
- char *name;
-
- base_type = die_type (die, cu);
-@@ -5189,42 +5798,90 @@ read_subrange_type (struct die_info *die, struct dwarf2_cu *cu)
- 0, NULL, cu->objfile);
- }
+ #include "interps.h"
+ #include "main.h"
++#include "python/python.h"
+ #include "source.h"
+ #include "cli/cli-cmds.h"
+ #include "python/python.h"
+@@ -260,6 +261,8 @@ captured_main (void *data)
+ char *cdarg = NULL;
+ char *ttyarg = NULL;
-- if (cu->language == language_fortran)
-- {
-- /* FORTRAN implies a lower bound of 1, if not given. */
-- low = 1;
-- }
-+ /* LOW_BOUND and HIGH_BOUND are set for real below. */
-+ range_type = create_range_type (NULL, base_type, 0, -1);
++ int python_script = 0;
++
+ /* These are static so that we can take their address in an
+ initializer. */
+ static int print_help;
+@@ -451,10 +454,14 @@ captured_main (void *data)
+ {"args", no_argument, &set_args, 1},
+ {"l", required_argument, 0, 'l'},
+ {"return-child-result", no_argument, &return_child_result, 1},
++#if HAVE_PYTHON
++ {"python", no_argument, 0, 'P'},
++ {"P", no_argument, 0, 'P'},
++#endif
+ {0, no_argument, 0, 0}
+ };
-- /* FIXME: For variable sized arrays either of these could be
-- a variable rather than a constant value. We'll allow it,
-- but we don't know how to handle it. */
- attr = dwarf2_attr (die, DW_AT_lower_bound, cu);
-- if (attr)
-- low = dwarf2_get_attr_constant_value (attr, 0);
-+ switch (dwarf2_get_attr_constant_value (attr, &low))
+- while (1)
++ while (!python_script)
+ {
+ int option_index;
+
+@@ -472,6 +479,9 @@ captured_main (void *data)
+ case 0:
+ /* Long option that just sets a flag. */
+ break;
++ case 'P':
++ python_script = 1;
++ break;
+ case OPT_SE:
+ symarg = optarg;
+ execarg = optarg;
+@@ -667,7 +677,31 @@ captured_main (void *data)
+
+ /* Now that gdb_init has created the initial inferior, we're in
+ position to set args for that inferior. */
+- if (set_args)
++ if (python_script)
+ {
-+ case dwarf2_attr_unknown:
-+ if (cu->language == language_fortran)
++ /* The first argument is a python script to evaluate, and
++ subsequent arguments are passed to the script for
++ processing there. */
++ if (optind >= argc)
+ {
-+ /* FORTRAN implies a lower bound of 1, if not given. */
-+ low = 1;
-+ }
-+ else
-+ {
-+ /* According to DWARF we should assume the value 0 only for
-+ LANGUAGE_C and LANGUAGE_CPLUS. */
-+ low = 0;
-+ }
-+ /* PASSTHRU */
-+ case dwarf2_attr_const:
-+ TYPE_LOW_BOUND (range_type) = low;
-+ if (low >= 0)
-+ TYPE_UNSIGNED (range_type) = 1;
-+ break;
-+ case dwarf2_attr_block:
-+ TYPE_RANGE_BOUND_SET_DWARF_BLOCK (range_type, 0);
-+ TYPE_FIELD_DWARF_BLOCK (range_type, 0) = dwarf2_attr_to_locexpr_baton
-+ (attr, cu);
-+ TYPE_DYNAMIC (range_type) = 1;
-+ /* For setting a default if DW_AT_UPPER_BOUND would be missing. */
-+ low = 0;
-+ break;
-+ }
++ fprintf_unfiltered (gdb_stderr,
++ _("%s: Python script file name required\n"),
++ argv[0]);
++ exit (1);
++ }
++
++ /* FIXME: should handle inferior I/O intelligently here.
++ E.g., should be possible to run gdb in pipeline and have
++ Python (and gdb) output go to stderr or file; and if a
++ prompt is needed, open the tty. */
++ quiet = 1;
++ /* FIXME: should read .gdbinit if, and only if, a prompt is
++ requested by the script. Though... maybe this is not
++ ideal? */
++ /* FIXME: likewise, reading in history. */
++ inhibit_gdbinit = 1;
++ }
++ else if (set_args)
+ {
+ /* The remaining options are the command-line options for the
+ inferior. The first one is the sym/exec file, and the rest
+@@ -916,7 +950,8 @@ captured_main (void *data)
+
+ /* Read in the old history after all the command files have been
+ read. */
+- init_history ();
++ if (!python_script)
++ init_history ();
- attr = dwarf2_attr (die, DW_AT_upper_bound, cu);
-- if (attr)
-- {
-- if (attr->form == DW_FORM_block1)
-- {
-- /* GCC encodes arrays with unspecified or dynamic length
-- with a DW_FORM_block1 attribute.
-- FIXME: GDB does not yet know how to handle dynamic
-- arrays properly, treat them as arrays with unspecified
-- length for now.
--
-- FIXME: jimb/2003-09-22: GDB does not really know
-- how to handle arrays of unspecified length
-- either; we just represent them as zero-length
-- arrays. Choose an appropriate upper bound given
-- the lower bound we've computed above. */
-- high = low - 1;
-- }
-- else
-- high = dwarf2_get_attr_constant_value (attr, 1);
-+ high_type = dwarf2_get_attr_constant_value (attr, &high);
-+ if (high_type == dwarf2_attr_unknown)
-+ {
-+ attr = dwarf2_attr (die, DW_AT_count, cu);
-+ high_type = dwarf2_get_attr_constant_value (attr, &high);
-+ /* It does not hurt but it is needlessly ineffective in check_typedef. */
-+ if (high_type != dwarf2_attr_unknown)
-+ {
-+ TYPE_RANGE_HIGH_BOUND_IS_COUNT (range_type) = 1;
-+ TYPE_DYNAMIC (range_type) = 1;
-+ }
-+ /* Pass it now as the regular DW_AT_upper_bound. */
+ if (batch_flag)
+ {
+@@ -927,13 +962,25 @@ captured_main (void *data)
+ /* Show time and/or space usage. */
+ do_cleanups (pre_stat_chain);
+
+- /* NOTE: cagney/1999-11-07: There is probably no reason for not
+- moving this loop and the code found in captured_command_loop()
+- into the command_loop() proper. The main thing holding back that
+- change - SET_TOP_LEVEL() - has been eliminated. */
+- while (1)
++#if HAVE_PYTHON
++ if (python_script)
+ {
+- catch_errors (captured_command_loop, 0, "", RETURN_MASK_ALL);
++ extern int pagination_enabled;
++ pagination_enabled = 0;
++ run_python_script (argc - optind, &argv[optind]);
++ return 1;
+ }
-+ switch (high_type)
++ else
++#endif
+ {
-+ case dwarf2_attr_unknown:
-+ TYPE_RANGE_UPPER_BOUND_IS_UNDEFINED (range_type) = 1;
-+ high = low - 1;
-+ /* PASSTHRU */
-+ case dwarf2_attr_const:
-+ TYPE_HIGH_BOUND (range_type) = high;
-+ break;
-+ case dwarf2_attr_block:
-+ TYPE_RANGE_BOUND_SET_DWARF_BLOCK (range_type, 1);
-+ TYPE_FIELD_DWARF_BLOCK (range_type, 1) = dwarf2_attr_to_locexpr_baton
-+ (attr, cu);
-+ TYPE_DYNAMIC (range_type) = 1;
-+ break;
++ /* NOTE: cagney/1999-11-07: There is probably no reason for not
++ moving this loop and the code found in captured_command_loop()
++ into the command_loop() proper. The main thing holding back that
++ change - SET_TOP_LEVEL() - has been eliminated. */
++ while (1)
++ {
++ catch_errors (captured_command_loop, 0, "", RETURN_MASK_ALL);
++ }
+ }
+ /* No exit -- exit is through quit_command. */
+ }
+@@ -965,7 +1012,12 @@ print_gdb_help (struct ui_file *stream)
+ fputs_unfiltered (_("\
+ This is the GNU debugger. Usage:\n\n\
+ gdb [options] [executable-file [core-file or process-id]]\n\
+- gdb [options] --args executable-file [inferior-arguments ...]\n\n\
++ gdb [options] --args executable-file [inferior-arguments ...]\n"), stream);
++#if HAVE_PYTHON
++ fputs_unfiltered (_("\
++ gdb [options] [--python|-P] script-file [script-arguments ...]\n"), stream);
++#endif
++ fputs_unfiltered (_("\n\
+ Options:\n\n\
+ "), stream);
+ fputs_unfiltered (_("\
+@@ -1003,7 +1055,13 @@ Options:\n\n\
+ --nw Do not use a window interface.\n\
+ --nx Do not read "), stream);
+ fputs_unfiltered (gdbinit, stream);
+- fputs_unfiltered (_(" file.\n\
++ fputs_unfiltered (_(" file.\n"), stream);
++#if HAVE_PYTHON
++ fputs_unfiltered (_("\
++ --python, -P Following argument is Python script file; remaining\n\
++ arguments are passed to script.\n"), stream);
++#endif
++ fputs_unfiltered (_("\
+ --quiet Do not print version number on startup.\n\
+ --readnow Fully read symbol files on first access.\n\
+ "), stream);
+Index: gdb-7.2.90.20110703/gdb/mi/mi-cmd-var.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/mi/mi-cmd-var.c 2011-01-12 22:09:39.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/mi/mi-cmd-var.c 2011-07-03 10:33:11.000000000 +0200
+@@ -707,7 +707,6 @@ mi_cmd_var_update (char *command, char *
}
+ else
+ {
+- /* Get varobj handle, if a valid var obj name was specified */
+ struct varobj *var = varobj_get_handle (name);
+
+ varobj_update_one (var, print_values, 1 /* explicit */);
+Index: gdb-7.2.90.20110703/gdb/mipsread.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/mipsread.c 2011-03-07 17:17:29.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/mipsread.c 2011-07-03 10:33:11.000000000 +0200
+@@ -402,6 +402,7 @@ static const struct sym_fns ecoff_sym_fn
+ default_symfile_segments, /* Get segment information from a file. */
+ NULL,
+ default_symfile_relocate, /* Relocate a debug section. */
++ NULL, /* sym_probe_fns */
+ &psym_functions
+ };
-- range_type = create_range_type (NULL, base_type, low, high);
-+ /* DW_AT_bit_stride is currently unsupported as we count in bytes. */
-+ attr = dwarf2_attr (die, DW_AT_byte_stride, cu);
-+ switch (dwarf2_get_attr_constant_value (attr, &byte_stride_int))
-+ {
-+ case dwarf2_attr_unknown:
-+ break;
-+ case dwarf2_attr_const:
-+ if (byte_stride_int == 0)
-+ complaint (&symfile_complaints,
-+ _("Found DW_AT_byte_stride with unsupported value 0"));
-+ TYPE_BYTE_STRIDE (range_type) = byte_stride_int;
-+ break;
-+ case dwarf2_attr_block:
-+ TYPE_RANGE_BOUND_SET_DWARF_BLOCK (range_type, 2);
-+ TYPE_FIELD_DWARF_BLOCK (range_type, 2) = dwarf2_attr_to_locexpr_baton
-+ (attr, cu);
-+ TYPE_DYNAMIC (range_type) = 1;
-+ break;
-+ }
+Index: gdb-7.2.90.20110703/gdb/objfiles.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/objfiles.c 2011-04-25 23:25:18.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/objfiles.c 2011-07-03 10:33:11.000000000 +0200
+@@ -846,6 +846,11 @@ objfile_relocate1 (struct objfile *objfi
+ obj_section_addr (s));
+ }
- name = dwarf2_name (die, cu);
- if (name)
-@@ -5386,10 +6043,13 @@ read_die_and_siblings (gdb_byte *info_ptr, bfd *abfd,
++ /* Relocating SystemTap probes. */
++ if (objfile->sf && objfile->sf->sym_probe_fns)
++ objfile->sf->sym_probe_fns->sym_relocate_probe (objfile,
++ new_offsets, delta);
++
+ /* Data changed. */
+ return 1;
}
+Index: gdb-7.2.90.20110703/gdb/p-valprint.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/p-valprint.c 2011-03-15 17:00:56.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/p-valprint.c 2011-07-03 10:33:11.000000000 +0200
+@@ -39,6 +39,7 @@
+ #include "cp-abi.h"
+ #include "cp-support.h"
+ #include "exceptions.h"
++#include "dwarf2loc.h"
+ \f
- /* Decompress a section that was compressed using zlib. Store the
-- decompressed buffer, and its size, in OUTBUF and OUTSIZE. */
-+ decompressed buffer, and its size, in OUTBUF and OUTSIZE. The
-+ result is allocated on OBSTACK; if OBSTACK is NULL, xmalloc is
-+ used. */
-
- static void
--zlib_decompress_section (struct objfile *objfile, asection *sectp,
-+zlib_decompress_section (struct objfile *objfile, struct obstack *obstack,
-+ asection *sectp,
- gdb_byte **outbuf, bfd_size_type *outsize)
- {
- bfd *abfd = objfile->obfd;
-@@ -5405,6 +6065,7 @@ zlib_decompress_section (struct objfile *objfile, asection *sectp,
- z_stream strm;
- int rc;
- int header_size = 12;
-+ struct cleanup *old = NULL;
-
- if (bfd_seek (abfd, sectp->filepos, SEEK_SET) != 0
- || bfd_bread (compressed_buffer, compressed_size, abfd) != compressed_size)
-@@ -5434,8 +6095,13 @@ zlib_decompress_section (struct objfile *objfile, asection *sectp,
- strm.avail_in = compressed_size - header_size;
- strm.next_in = (Bytef*) compressed_buffer + header_size;
- strm.avail_out = uncompressed_size;
-- uncompressed_buffer = obstack_alloc (&objfile->objfile_obstack,
-- uncompressed_size);
-+ if (obstack)
-+ uncompressed_buffer = obstack_alloc (obstack, uncompressed_size);
-+ else
+ /* See val_print for a description of the various parameters of this
+@@ -63,8 +64,31 @@ pascal_val_print (struct type *type, con
+ struct type *char_type;
+ LONGEST val;
+ CORE_ADDR addr;
++ struct cleanup *back_to;
++ struct type *saved_type = type;
++ CORE_ADDR saved_address = address;
++
++ back_to = make_cleanup (null_cleanup, 0);
++ address += embedded_offset;
++ type = object_address_get_data (type, &address);
++ if (type == NULL)
++ {
++ fputs_filtered (object_address_data_not_valid (saved_type), stream);
++ gdb_flush (stream);
++ do_cleanups (back_to);
++ return 0;
++ }
++ if (address != saved_address + embedded_offset)
+ {
-+ uncompressed_buffer = xmalloc (uncompressed_size);
-+ old = make_cleanup (xfree, uncompressed_buffer);
++ size_t length = TYPE_LENGTH (type);
+
+- CHECK_TYPEDEF (type);
++ valaddr = xmalloc (length);
++ make_cleanup (xfree, (gdb_byte *) valaddr);
++ read_memory (address, (gdb_byte *) valaddr, length);
++ embedded_offset = 0;
+ }
- rc = inflateInit (&strm);
- while (strm.avail_in > 0)
++ else
++ address -= embedded_offset;
+ switch (TYPE_CODE (type))
{
-@@ -5456,6 +6122,8 @@ zlib_decompress_section (struct objfile *objfile, asection *sectp,
- error (_("Dwarf Error: concluding DWARF uncompression in '%s': %d"),
- bfd_get_filename (abfd), rc);
-
-+ if (old)
-+ discard_cleanups (old);
- xfree (compressed_buffer);
- *outbuf = uncompressed_buffer;
- *outsize = uncompressed_size;
-@@ -5463,17 +6131,20 @@ zlib_decompress_section (struct objfile *objfile, asection *sectp,
+ case TYPE_CODE_ARRAY:
+@@ -120,8 +144,8 @@ pascal_val_print (struct type *type, con
+ {
+ i = 0;
+ }
+- val_print_array_elements (type, valaddr, embedded_offset,
+- address, stream, recurse,
++ val_print_array_elements (saved_type, valaddr, embedded_offset,
++ saved_address, stream, recurse,
+ original_value, options, i);
+ fprintf_filtered (stream, "}");
+ }
+@@ -160,6 +184,7 @@ pascal_val_print (struct type *type, con
+ /* Try to print what function it points to. */
+ print_address_demangle (gdbarch, addr, stream, demangle);
+ /* Return value is irrelevant except for string pointers. */
++ do_cleanups (back_to);
+ return (0);
+ }
+
+@@ -251,6 +276,7 @@ pascal_val_print (struct type *type, con
+ /* Return number of characters printed, including the terminating
+ '\0' if we reached the end. val_print_string takes care including
+ the terminating '\0' if necessary. */
++ do_cleanups (back_to);
+ return i;
+
+ break;
+@@ -567,6 +593,7 @@ pascal_val_print (struct type *type, con
+ TYPE_CODE (type));
+ }
+ gdb_flush (stream);
++ do_cleanups (back_to);
+ return (0);
}
+ \f
+Index: gdb-7.2.90.20110703/gdb/parse.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/parse.c 2011-03-28 22:21:03.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/parse.c 2011-07-03 10:33:11.000000000 +0200
+@@ -1502,6 +1502,7 @@ parser_fprintf (FILE *x, const char *y,
+ int
+ operator_check_standard (struct expression *exp, int pos,
++ int (*type_func) (struct type *type, void *data),
+ int (*objfile_func) (struct objfile *objfile,
+ void *data),
+ void *data)
+@@ -1543,7 +1544,7 @@ operator_check_standard (struct expressi
+ struct type *type = elts[pos + 2 + arg].type;
+ struct objfile *objfile = TYPE_OBJFILE (type);
+
+- if (objfile && (*objfile_func) (objfile, data))
++ if (objfile && objfile_func && (*objfile_func) (objfile, data))
+ return 1;
+ }
+ }
+@@ -1561,7 +1562,8 @@ operator_check_standard (struct expressi
--/* Read the contents of the section at OFFSET and of size SIZE from the
-- object file specified by OBJFILE into the objfile_obstack and return it.
-- If the section is compressed, uncompress it before returning. */
-+/* Read the contents of the section at OFFSET and of size SIZE from
-+ the object file specified by OBJFILE into OBSTACK and return it.
-+ If OBSTACK is NULL, xmalloc is used instead. If the section is
-+ compressed, uncompress it before returning. */
+ /* Check objfile where the variable itself is placed.
+ SYMBOL_OBJ_SECTION (symbol) may be NULL. */
+- if ((*objfile_func) (SYMBOL_SYMTAB (symbol)->objfile, data))
++ if (objfile_func
++ && (*objfile_func) (SYMBOL_SYMTAB (symbol)->objfile, data))
+ return 1;
--gdb_byte *
--dwarf2_read_section (struct objfile *objfile, asection *sectp)
-+static gdb_byte *
-+dwarf2_read_section_1 (struct objfile *objfile, struct obstack *obstack,
-+ asection *sectp)
- {
- bfd *abfd = objfile->obfd;
- gdb_byte *buf, *retbuf;
- bfd_size_type size = bfd_get_section_size (sectp);
- unsigned char header[4];
-+ struct cleanup *old = NULL;
-
- if (size == 0)
- return NULL;
-@@ -5486,30 +6157,49 @@ dwarf2_read_section (struct objfile *objfile, asection *sectp)
- /* Upon decompression, update the buffer and its size. */
- if (strncmp (header, "ZLIB", sizeof (header)) == 0)
- {
-- zlib_decompress_section (objfile, sectp, &buf, &size);
-+ zlib_decompress_section (objfile, obstack, sectp, &buf, &size);
- dwarf2_resize_section (sectp, size);
- return buf;
- }
- }
+ /* Check objfile where is placed the code touching the variable. */
+@@ -1574,24 +1576,27 @@ operator_check_standard (struct expressi
- /* If we get here, we are a normal, not-compressed section. */
-- buf = obstack_alloc (&objfile->objfile_obstack, size);
-+ if (obstack)
-+ buf = obstack_alloc (obstack, size);
-+ else
-+ {
-+ buf = xmalloc (size);
-+ old = make_cleanup (xfree, buf);
-+ }
- /* When debugging .o files, we may need to apply relocations; see
- http://sourceware.org/ml/gdb-patches/2002-04/msg00136.html .
- We never compress sections in .o files, so we only need to
- try this when the section is not compressed. */
- retbuf = symfile_relocate_debug_section (abfd, sectp, buf);
- if (retbuf != NULL)
-- return retbuf;
-+ {
-+ if (old)
-+ discard_cleanups (old);
-+ return retbuf;
-+ }
+ /* Invoke callbacks for TYPE and OBJFILE if they were set as non-NULL. */
+
+- if (type && TYPE_OBJFILE (type)
++ if (type && type_func && (*type_func) (type, data))
++ return 1;
++ if (type && TYPE_OBJFILE (type) && objfile_func
+ && (*objfile_func) (TYPE_OBJFILE (type), data))
+ return 1;
+- if (objfile && (*objfile_func) (objfile, data))
++ if (objfile && objfile_func && (*objfile_func) (objfile, data))
+ return 1;
+
+ return 0;
+ }
+
+-/* Call OBJFILE_FUNC for any TYPE and OBJFILE found being referenced by EXP.
+- The functions are never called with NULL OBJFILE. Functions get passed an
+- arbitrary caller supplied DATA pointer. If any of the functions returns
+- non-zero value then (any other) non-zero value is immediately returned to
+- the caller. Otherwise zero is returned after iterating through whole EXP.
+- */
++/* Call TYPE_FUNC and OBJFILE_FUNC for any TYPE and OBJFILE found being
++ referenced by EXP. The functions are never called with NULL TYPE or NULL
++ OBJFILE. Functions get passed an arbitrary caller supplied DATA pointer.
++ If any of the functions returns non-zero value then (any other) non-zero
++ value is immediately returned to the caller. Otherwise zero is returned
++ after iterating through whole EXP. */
+
+ static int
+ exp_iterate (struct expression *exp,
++ int (*type_func) (struct type *type, void *data),
+ int (*objfile_func) (struct objfile *objfile, void *data),
+ void *data)
+ {
+@@ -1606,7 +1611,9 @@ exp_iterate (struct expression *exp,
+
+ pos = endpos - oplen;
+ if (exp->language_defn->la_exp_desc->operator_check (exp, pos,
+- objfile_func, data))
++ type_func,
++ objfile_func,
++ data))
+ return 1;
+
+ endpos = pos;
+@@ -1637,8 +1644,29 @@ exp_uses_objfile (struct expression *exp
+ {
+ gdb_assert (objfile->separate_debug_objfile_backlink == NULL);
- if (bfd_seek (abfd, sectp->filepos, SEEK_SET) != 0
- || bfd_bread (buf, size, abfd) != size)
- error (_("Dwarf Error: Can't read DWARF data from '%s'"),
- bfd_get_filename (abfd));
+- return exp_iterate (exp, exp_uses_objfile_iter, objfile);
++ return exp_iterate (exp, NULL, exp_uses_objfile_iter, objfile);
++}
++
++/* Helper for exp_types_mark_used. */
++
++#if 0
++static int
++exp_types_mark_used_iter (struct type *type, void *unused)
++{
++ type_mark_used (type);
++
++ /* Continue the traversal. */
++ return 0;
++}
++
++/* Call type_mark_used for any type contained in EXP. */
++
++void
++exp_types_mark_used (struct expression *exp)
++{
++ exp_iterate (exp, exp_types_mark_used_iter, NULL, NULL);
+ }
++#endif
-+ if (old)
-+ discard_cleanups (old);
+ void
+ _initialize_parse (void)
+Index: gdb-7.2.90.20110703/gdb/parser-defs.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/parser-defs.h 2011-01-10 21:38:49.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/parser-defs.h 2011-07-03 10:33:11.000000000 +0200
+@@ -194,6 +194,8 @@ extern void operator_length_standard (co
+ int *);
+
+ extern int operator_check_standard (struct expression *exp, int pos,
++ int (*type_func) (struct type *type,
++ void *data),
+ int (*objfile_func)
+ (struct objfile *objfile, void *data),
+ void *data);
+@@ -291,6 +293,7 @@ struct exp_descriptor
+ value should be immediately returned to the caller. Otherwise zero
+ should be returned. */
+ int (*operator_check) (struct expression *exp, int pos,
++ int (*type_func) (struct type *type, void *data),
+ int (*objfile_func) (struct objfile *objfile,
+ void *data),
+ void *data);
+@@ -329,4 +332,10 @@ extern void parser_fprintf (FILE *, cons
+
+ extern int exp_uses_objfile (struct expression *exp, struct objfile *objfile);
+
++extern int exp_uses_objfile (struct expression *exp, struct objfile *objfile);
++
++#if 0
++extern void exp_types_mark_used (struct expression *exp);
++#endif
+
- return buf;
+ #endif /* PARSER_DEFS_H */
+Index: gdb-7.2.90.20110703/gdb/ppc-linux-nat.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/ppc-linux-nat.c 2011-04-18 23:29:18.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/ppc-linux-nat.c 2011-07-03 10:33:11.000000000 +0200
+@@ -1637,6 +1637,14 @@ booke_remove_point (struct ppc_hw_breakp
+ hw_breaks[i].hw_break = NULL;
}
-+gdb_byte *
-+dwarf2_read_section (struct objfile *objfile, asection *sectp)
++static void
++booke_insert_point_callback (int tid, void *pp_voidp)
+{
-+ return dwarf2_read_section_1 (objfile, &objfile->objfile_obstack, sectp);
++ struct ppc_hw_breakpoint *pp = pp_voidp;
++
++ booke_insert_point (pp, tid);
+}
+
- /* In DWARF version 2, the description of the debugging information is
- stored in a separate .debug_abbrev section. Before we read any
- dies from a section we read in all abbreviations and install them
-@@ -5914,15 +6604,6 @@ read_partial_die (struct partial_die_info *part_die,
- struct attribute attr;
- int has_low_pc_attr = 0;
- int has_high_pc_attr = 0;
-- CORE_ADDR base_address = 0;
-- enum
-- {
-- base_address_none,
-- base_address_low_pc,
-- /* Overrides BASE_ADDRESS_LOW_PC. */
-- base_address_entry_pc
-- }
-- base_address_type = base_address_none;
+ /* Return the number of registers needed for a ranged breakpoint. */
- memset (part_die, 0, sizeof (struct partial_die_info));
+ static int
+@@ -1654,8 +1662,6 @@ static int
+ ppc_linux_insert_hw_breakpoint (struct gdbarch *gdbarch,
+ struct bp_target_info *bp_tgt)
+ {
+- ptid_t ptid;
+- struct lwp_info *lp;
+ struct ppc_hw_breakpoint p;
-@@ -5945,47 +6626,35 @@ read_partial_die (struct partial_die_info *part_die,
- switch (attr.name)
- {
- case DW_AT_name:
--
-- /* Prefer DW_AT_MIPS_linkage_name over DW_AT_name. */
-- if (part_die->name == NULL)
-- part_die->name = DW_STRING (&attr);
-- break;
-- case DW_AT_comp_dir:
-- if (part_die->dirname == NULL)
-- part_die->dirname = DW_STRING (&attr);
-+ switch (part_die->tag)
-+ {
-+ case DW_TAG_compile_unit:
-+ /* Compilation units have a DW_AT_name that is a filename, not
-+ a source language identifier. */
-+ case DW_TAG_enumeration_type:
-+ case DW_TAG_enumerator:
-+ /* These tags always have simple identifiers already; no need
-+ to canonicalize them. */
-+ part_die->name = DW_STRING (&attr);
-+ break;
-+ default:
-+ part_die->name
-+ = dwarf2_canonicalize_name (DW_STRING (&attr), cu,
-+ &cu->comp_unit_obstack);
-+ break;
-+ }
- break;
- case DW_AT_MIPS_linkage_name:
-- part_die->name = DW_STRING (&attr);
-+ part_die->linkage_name = DW_STRING (&attr);
- break;
- case DW_AT_low_pc:
- has_low_pc_attr = 1;
- part_die->lowpc = DW_ADDR (&attr);
-- if (part_die->tag == DW_TAG_compile_unit
-- && base_address_type < base_address_low_pc)
-- {
-- base_address = DW_ADDR (&attr);
-- base_address_type = base_address_low_pc;
-- }
- break;
- case DW_AT_high_pc:
- has_high_pc_attr = 1;
- part_die->highpc = DW_ADDR (&attr);
- break;
-- case DW_AT_entry_pc:
-- if (part_die->tag == DW_TAG_compile_unit
-- && base_address_type < base_address_entry_pc)
-- {
-- base_address = DW_ADDR (&attr);
-- base_address_type = base_address_entry_pc;
-- }
-- break;
-- case DW_AT_ranges:
-- if (part_die->tag == DW_TAG_compile_unit)
-- {
-- cu->ranges_offset = DW_UNSND (&attr);
-- cu->has_ranges_offset = 1;
-- }
-- break;
- case DW_AT_location:
- /* Support the .debug_loc offsets */
- if (attr_form_is_block (&attr))
-@@ -6002,9 +6671,6 @@ read_partial_die (struct partial_die_info *part_die,
- "partial symbol information");
- }
- break;
-- case DW_AT_language:
-- part_die->language = DW_UNSND (&attr);
-- break;
- case DW_AT_external:
- part_die->is_external = DW_UNSND (&attr);
- break;
-@@ -6029,10 +6695,6 @@ read_partial_die (struct partial_die_info *part_die,
- part_die->sibling = dwarf2_per_objfile->info_buffer
- + dwarf2_get_ref_die_offset (&attr);
- break;
-- case DW_AT_stmt_list:
-- part_die->has_stmt_list = 1;
-- part_die->line_offset = DW_UNSND (&attr);
-- break;
- case DW_AT_byte_size:
- part_die->has_byte_size = 1;
- break;
-@@ -6074,13 +6736,6 @@ read_partial_die (struct partial_die_info *part_die,
- || dwarf2_per_objfile->has_section_at_zero))
- part_die->has_pc_info = 1;
-
-- if (base_address_type != base_address_none && !cu->base_known)
-- {
-- gdb_assert (part_die->tag == DW_TAG_compile_unit);
-- cu->base_known = 1;
-- cu->base_address = base_address;
-- }
--
- return info_ptr;
- }
-
-@@ -6173,7 +6828,9 @@ fixup_partial_die (struct partial_die_info *part_die,
- /* If we found a reference attribute and the DIE has no name, try
- to find a name in the referred to DIE. */
-
-- if (part_die->name == NULL && part_die->has_specification)
-+ if (part_die->has_specification
-+ && (part_die->name == NULL || part_die->linkage_name == NULL
-+ || !part_die->is_external))
- {
- struct partial_die_info *spec_die;
-
-@@ -6189,6 +6846,9 @@ fixup_partial_die (struct partial_die_info *part_die,
- if (spec_die->is_external)
- part_die->is_external = spec_die->is_external;
- }
-+
-+ if (spec_die->linkage_name)
-+ part_die->linkage_name = spec_die->linkage_name;
+ if (!have_ptrace_booke_interface ())
+@@ -1681,18 +1687,23 @@ ppc_linux_insert_hw_breakpoint (struct g
+ p.addr2 = 0;
}
- /* Set default names for some unnamed DIEs. */
-@@ -7512,10 +8172,12 @@ var_decode_location (struct attribute *attr, struct symbol *sym,
- (i.e. when the value of a register or memory location is
- referenced, or a thread-local block, etc.). Then again, it might
- not be worthwhile. I'm assuming that it isn't unless performance
-- or memory numbers show me otherwise. */
-+ or memory numbers show me otherwise.
-+
-+ SYMBOL_CLASS may get overriden by dwarf2_symbol_mark_computed. */
+- ALL_LWPS (lp, ptid)
+- booke_insert_point (&p, TIDGET (ptid));
++ linux_nat_iterate_watchpoint_lwps (booke_insert_point_callback, &p);
-- dwarf2_symbol_mark_computed (attr, sym, cu);
- SYMBOL_CLASS (sym) = LOC_COMPUTED;
-+ dwarf2_symbol_mark_computed (attr, sym, cu);
+ return 0;
}
- /* Given a pointer to a DWARF information entry, figure out if we need
-@@ -7538,20 +8200,43 @@ new_symbol (struct die_info *die, struct type *type, struct dwarf2_cu *cu)
- baseaddr = ANOFFSET (objfile->section_offsets, SECT_OFF_TEXT (objfile));
-
- if (die->tag != DW_TAG_namespace)
-- name = dwarf2_linkage_name (die, cu);
-+ name = dwarf2_name (die, cu);
- else
- name = TYPE_NAME (type);
-
- if (name)
- {
-+ const char *linkagename;
++static void
++booke_remove_point_callback (int tid, void *pp_voidp)
++{
++ struct ppc_hw_breakpoint *pp = pp_voidp;
+
- sym = (struct symbol *) obstack_alloc (&objfile->objfile_obstack,
- sizeof (struct symbol));
- OBJSTAT (objfile, n_syms++);
- memset (sym, 0, sizeof (struct symbol));
-+ /* Some methods are called without checking SYMBOL_OPS validity. */
-+ SYMBOL_OPS (sym) = &dwarf2_missing_funcs;
-
-- /* Cache this symbol's name and the name's demangled form (if any). */
- SYMBOL_LANGUAGE (sym) = cu->language;
-- SYMBOL_SET_NAMES (sym, name, strlen (name), objfile);
-+
-+ /* Cache this symbol's name and the name's demangled form (if any). */
-+
-+ linkagename = dwarf2_linkage_name (die, cu);
-+ if (linkagename)
-+ /* We use the linkage name if available, for the same reason
-+ we used it for TYPE_FN_FIELD_PHYSNAME earlier in this file.
-+ This usage can be removed someday. */
-+ SYMBOL_SET_NAMES (sym, linkagename, strlen (linkagename), objfile);
-+ else if (die->tag == DW_TAG_namespace)
-+ SYMBOL_SET_LINKAGE_NAME (sym, name);
-+ else
-+ {
-+ linkagename = dwarf2_full_name (die, cu);
++ booke_remove_point (pp, tid);
++}
+
-+ /* Set just the "linkage" name to the fully qualified name.
-+ While this is not really a linkage name, it should match
-+ the demangled version of the corresponding minimal symbol
-+ if there is one. */
-+ SYMBOL_SET_LINKAGE_NAME (sym, (char *) linkagename);
-+ }
+ static int
+ ppc_linux_remove_hw_breakpoint (struct gdbarch *gdbarch,
+ struct bp_target_info *bp_tgt)
+ {
+- ptid_t ptid;
+- struct lwp_info *lp;
+ struct ppc_hw_breakpoint p;
- /* Default assumptions.
- Use the passed type or decode it from the die. */
-@@ -7637,7 +8322,15 @@ new_symbol (struct die_info *die, struct type *type, struct dwarf2_cu *cu)
- if (attr)
- {
- var_decode_location (attr, sym, cu);
-- attr2 = dwarf2_attr (die, DW_AT_external, cu);
-+
-+ /* Fortran explicitely imports any global symbols to the local
-+ scope by DW_TAG_common_block. DW_AT_external means for
-+ Fortran the variable is importable versus it is automatically
-+ imported. */
-+ if (cu->language == language_fortran)
-+ attr2 = NULL;
-+ else
-+ attr2 = dwarf2_attr (die, DW_AT_external, cu);
- if (attr2 && (DW_UNSND (attr2) != 0))
- add_symbol_to_list (sym, &global_symbols);
- else
-@@ -7780,6 +8473,11 @@ new_symbol (struct die_info *die, struct type *type, struct dwarf2_cu *cu)
- SYMBOL_CLASS (sym) = LOC_TYPEDEF;
- add_symbol_to_list (sym, &global_symbols);
- break;
-+ case DW_TAG_common_block:
-+ SYMBOL_CLASS (sym) = LOC_STATIC;
-+ SYMBOL_DOMAIN (sym) = COMMON_BLOCK_DOMAIN;
-+ add_symbol_to_list (sym, cu->list_in_scope);
-+ break;
- default:
- /* Not a tag we recognize. Hopefully we aren't processing
- trash data, but since we must specifically ignore things
-@@ -8048,6 +8746,9 @@ read_type_die (struct die_info *die, struct dwarf2_cu *cu)
- break;
+ if (!have_ptrace_booke_interface ())
+@@ -1718,8 +1729,7 @@ ppc_linux_remove_hw_breakpoint (struct g
+ p.addr2 = 0;
}
-+ if (this_type)
-+ finalize_type (this_type);
-+
- return this_type;
- }
+- ALL_LWPS (lp, ptid)
+- booke_remove_point (&p, TIDGET (ptid));
++ linux_nat_iterate_watchpoint_lwps (booke_remove_point_callback, &p);
-@@ -8128,6 +8829,19 @@ determine_prefix (struct die_info *die, struct dwarf2_cu *cu)
- members; no typedefs, no member functions, et cetera.
- So it does not need a prefix. */
- return "";
-+
-+ case DW_TAG_subprogram:
-+ /* A class's symbol, or a variable's symbol, will live
-+ directly in a function's block, so no prefix is
-+ appropriate. However, what about methods of a
-+ function-local class? They end up in the global symbol
-+ table because they are separate functions... their mangling
-+ normally would make them inaccessible. They'll show up
-+ wrong in breakpoints too. This is a symptom of the
-+ inconsistent way we handle symbol tables. Namespaces and
-+ classes should have dictionaries just like blocks do. */
-+ return "";
-+
- default:
- return determine_prefix (parent, cu);
- }
-@@ -8192,23 +8906,62 @@ dwarf2_linkage_name (struct die_info *die, struct dwarf2_cu *cu)
- attr = dwarf2_attr (die, DW_AT_MIPS_linkage_name, cu);
- if (attr && DW_STRING (attr))
- return DW_STRING (attr);
-- attr = dwarf2_attr (die, DW_AT_name, cu);
-- if (attr && DW_STRING (attr))
-- return DW_STRING (attr);
- return NULL;
+ return 0;
+ }
+@@ -1946,6 +1956,15 @@ ppc_linux_can_accel_watchpoint_condition
+ && check_condition (addr, cond, &data_value, &len));
}
- /* Get name of a die, return NULL if not found. */
-
- static char *
-+dwarf2_canonicalize_name (char *name, struct dwarf2_cu *cu,
-+ struct obstack *obstack)
++static void
++set_saved_dabr_value_callback (int tid, void *retp_voidp)
+{
-+ if (cu->language == language_cplus)
-+ {
-+ char *canon_name = cp_canonicalize_string (name);
-+
-+ if (canon_name != NULL)
-+ {
-+ if (strcmp (canon_name, name) != 0)
-+ name = obsavestring (canon_name, strlen (canon_name),
-+ obstack);
-+ xfree (canon_name);
-+ }
-+ }
++ int *retp = retp_voidp;
+
-+ return name;
++ if (ptrace (PTRACE_SET_DEBUGREG, tid, 0, saved_dabr_value) < 0)
++ *retp = -1;
+}
+
-+/* Get name of a die, return NULL if not found. */
-+
-+static char *
- dwarf2_name (struct die_info *die, struct dwarf2_cu *cu)
+ /* Set up P with the parameters necessary to request a watchpoint covering
+ LEN bytes starting at ADDR and if possible with condition expression COND
+ evaluated by hardware. INSERT tells if we are creating a request for
+@@ -2000,8 +2019,6 @@ static int
+ ppc_linux_insert_watchpoint (CORE_ADDR addr, int len, int rw,
+ struct expression *cond)
{
- struct attribute *attr;
+- struct lwp_info *lp;
+- ptid_t ptid;
+ int ret = -1;
- attr = dwarf2_attr (die, DW_AT_name, cu);
-- if (attr && DW_STRING (attr))
-- return DW_STRING (attr);
-- return NULL;
-+ if (!attr || !DW_STRING (attr))
-+ return NULL;
-+
-+ switch (die->tag)
-+ {
-+ case DW_TAG_compile_unit:
-+ /* Compilation units have a DW_AT_name that is a filename, not
-+ a source language identifier. */
-+ case DW_TAG_enumeration_type:
-+ case DW_TAG_enumerator:
-+ /* These tags always have simple identifiers already; no need
-+ to canonicalize them. */
-+ return DW_STRING (attr);
-+ default:
-+ if (attr->form != GDB_FORM_cached_string)
-+ {
-+ DW_STRING (attr)
-+ = dwarf2_canonicalize_name (DW_STRING (attr), cu,
-+ &cu->objfile->objfile_obstack);
-+ attr->form = GDB_FORM_cached_string;
-+ }
-+ return DW_STRING (attr);
-+ }
- }
+ if (have_ptrace_booke_interface ())
+@@ -2010,8 +2027,7 @@ ppc_linux_insert_watchpoint (CORE_ADDR a
- /* Return the die that this die in an extension of, or NULL if there
-@@ -8703,6 +9456,8 @@ dwarf_form_name (unsigned form)
- return "DW_FORM_ref_udata";
- case DW_FORM_indirect:
- return "DW_FORM_indirect";
-+ case GDB_FORM_cached_string:
-+ return "GDB_FORM_cached_string";
- default:
- return "DW_FORM_<unknown>";
+ create_watchpoint_request (&p, addr, len, rw, cond, 1);
+
+- ALL_LWPS (lp, ptid)
+- booke_insert_point (&p, TIDGET (ptid));
++ linux_nat_iterate_watchpoint_lwps (booke_insert_point_callback, &p);
+
+ ret = 0;
}
-@@ -9248,6 +10003,7 @@ dump_die_shallow (struct ui_file *f, int indent, struct die_info *die)
- break;
- case DW_FORM_string:
- case DW_FORM_strp:
-+ case GDB_FORM_cached_string:
- fprintf_unfiltered (f, "string: \"%s\"",
- DW_STRING (&die->attrs[i])
- ? DW_STRING (&die->attrs[i]) : "");
-@@ -9353,26 +10109,35 @@ dwarf2_get_ref_die_offset (struct attribute *attr)
- return result;
- }
+@@ -2054,12 +2070,8 @@ ppc_linux_insert_watchpoint (CORE_ADDR a
--/* Return the constant value held by the given attribute. Return -1
-- if the value held by the attribute is not constant. */
-+/* (*val_return) is filled only if returning dwarf2_attr_const. */
+ saved_dabr_value = dabr_value;
--static int
--dwarf2_get_attr_constant_value (struct attribute *attr, int default_value)
-+static enum dwarf2_get_attr_constant_value
-+dwarf2_get_attr_constant_value (struct attribute *attr, int *val_return)
- {
-+ if (attr == NULL)
-+ return dwarf2_attr_unknown;
- if (attr->form == DW_FORM_sdata)
-- return DW_SND (attr);
-- else if (attr->form == DW_FORM_udata
-- || attr->form == DW_FORM_data1
-- || attr->form == DW_FORM_data2
-- || attr->form == DW_FORM_data4
-- || attr->form == DW_FORM_data8)
-- return DW_UNSND (attr);
-- else
- {
-- complaint (&symfile_complaints, _("Attribute value is not a constant (%s)"),
-- dwarf_form_name (attr->form));
-- return default_value;
-+ *val_return = DW_SND (attr);
-+ return dwarf2_attr_const;
+- ALL_LWPS (lp, ptid)
+- if (ptrace (PTRACE_SET_DEBUGREG, TIDGET (ptid), 0,
+- saved_dabr_value) < 0)
+- return -1;
+-
+ ret = 0;
++ linux_nat_iterate_watchpoint_lwps (set_saved_dabr_value_callback, &ret);
}
-+ if (attr->form == DW_FORM_udata
-+ || attr->form == DW_FORM_data1
-+ || attr->form == DW_FORM_data2
-+ || attr->form == DW_FORM_data4
-+ || attr->form == DW_FORM_data8)
-+ {
-+ *val_return = DW_UNSND (attr);
-+ return dwarf2_attr_const;
-+ }
-+ if (attr->form == DW_FORM_block
-+ || attr->form == DW_FORM_block1
-+ || attr->form == DW_FORM_block2
-+ || attr->form == DW_FORM_block4)
-+ return dwarf2_attr_block;
-+ complaint (&symfile_complaints, _("Attribute value is not a constant (%s)"),
-+ dwarf_form_name (attr->form));
-+ return dwarf2_attr_unknown;
- }
- /* THIS_CU has a reference to PER_CU. If necessary, load the new compilation
-@@ -9963,6 +10728,17 @@ dwarf_decode_macros (struct line_header *lh, unsigned int offset,
+ return ret;
+@@ -2069,8 +2081,6 @@ static int
+ ppc_linux_remove_watchpoint (CORE_ADDR addr, int len, int rw,
+ struct expression *cond)
{
- gdb_byte *mac_ptr, *mac_end;
- struct macro_source_file *current_file = 0;
-+ enum dwarf_macinfo_record_type macinfo_type;
-+
-+ /* Flag is in use by the second pass and determines if GDB is still before
-+ first DW_MACINFO_start_file. If true GDB is still reading the definitions
-+ from command line. First DW_MACINFO_start_file will need to be ignored as
-+ it was already executed to create CURRENT_FILE for the main source holding
-+ also the command line definitions. On first met DW_MACINFO_start_file
-+ this flag is reset to normally execute all the remaining
-+ DW_MACINFO_start_file macinfos. */
-+
-+ int at_commandline;
+- struct lwp_info *lp;
+- ptid_t ptid;
+ int ret = -1;
- if (dwarf2_per_objfile->macinfo_buffer == NULL)
+ if (have_ptrace_booke_interface ())
+@@ -2079,20 +2089,16 @@ ppc_linux_remove_watchpoint (CORE_ADDR a
+
+ create_watchpoint_request (&p, addr, len, rw, cond, 0);
+
+- ALL_LWPS (lp, ptid)
+- booke_remove_point (&p, TIDGET (ptid));
++ linux_nat_iterate_watchpoint_lwps (booke_remove_point_callback, &p);
+
+ ret = 0;
+ }
+ else
{
-@@ -9970,19 +10746,24 @@ dwarf_decode_macros (struct line_header *lh, unsigned int offset,
- return;
+ saved_dabr_value = 0;
+- ALL_LWPS (lp, ptid)
+- if (ptrace (PTRACE_SET_DEBUGREG, TIDGET (ptid), 0,
+- saved_dabr_value) < 0)
+- return -1;
+
+ ret = 0;
++ linux_nat_iterate_watchpoint_lwps (set_saved_dabr_value_callback, &ret);
}
-+ /* Start the first pass to find ahead the main source file name. GDB has to
-+ create CURRENT_FILE where to place the macros given to the compiler
-+ from the command line. Such command line macros are present before first
-+ DW_MACINFO_start_file but still those macros are associated to the
-+ compilation unit. The compilation unit GDB identifies by its main source
-+ file name. */
-+
- mac_ptr = dwarf2_per_objfile->macinfo_buffer + offset;
- mac_end = dwarf2_per_objfile->macinfo_buffer
- + dwarf2_per_objfile->macinfo_size;
+ return ret;
+Index: gdb-7.2.90.20110703/gdb/printcmd.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/printcmd.c 2011-03-22 15:39:40.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/printcmd.c 2011-07-03 10:33:11.000000000 +0200
+@@ -975,6 +975,11 @@ print_command_1 (char *exp, int inspect,
+ else
+ val = access_value_history (0);
-- for (;;)
-+ do
++ /* Do not try to OBJECT_ADDRESS_SET here anything. We are interested in the
++ source variable base addresses as found by READ_VAR_VALUE. The value here
++ can be already a calculated expression address inappropriate for
++ DW_OP_push_object_address. */
++
+ if (voidprint || (val && value_type (val) &&
+ TYPE_CODE (value_type (val)) != TYPE_CODE_VOID))
{
-- enum dwarf_macinfo_record_type macinfo_type;
--
- /* Do we at least have room for a macinfo type byte? */
- if (mac_ptr >= mac_end)
- {
- dwarf2_macros_too_long_complaint ();
-- return;
-+ break;
- }
-
- macinfo_type = read_1_byte (abfd, mac_ptr);
-@@ -9993,7 +10774,81 @@ dwarf_decode_macros (struct line_header *lh, unsigned int offset,
- /* A zero macinfo type indicates the end of the macro
- information. */
- case 0:
-- return;
-+ break;
+@@ -1476,6 +1481,24 @@ x_command (char *exp, int from_tty)
+ set_internalvar (lookup_internalvar ("__"), last_examine_value);
+ }
+ }
+
-+ case DW_MACINFO_define:
-+ case DW_MACINFO_undef:
-+ /* Only skip the data by MAC_PTR. */
-+ {
-+ unsigned int bytes_read;
++#if 0
++/* Call type_mark_used for any TYPEs referenced from this GDB source file. */
+
-+ read_unsigned_leb128 (abfd, mac_ptr, &bytes_read);
-+ mac_ptr += bytes_read;
-+ read_string (abfd, mac_ptr, &bytes_read);
-+ mac_ptr += bytes_read;
-+ }
-+ break;
++static void
++print_types_mark_used (void)
++{
++ struct display *d;
+
-+ case DW_MACINFO_start_file:
-+ {
-+ unsigned int bytes_read;
-+ int line, file;
++ if (last_examine_value)
++ type_mark_used (value_type (last_examine_value));
+
-+ line = read_unsigned_leb128 (abfd, mac_ptr, &bytes_read);
-+ mac_ptr += bytes_read;
-+ file = read_unsigned_leb128 (abfd, mac_ptr, &bytes_read);
-+ mac_ptr += bytes_read;
++ for (d = display_chain; d; d = d->next)
++ if (d->exp)
++ exp_types_mark_used (d->exp);
++}
++#endif
+
-+ current_file = macro_start_file (file, line, current_file, comp_dir,
-+ lh, cu->objfile);
-+ }
-+ break;
+ \f
+
+ /* Add an expression to the auto-display chain.
+@@ -2870,4 +2893,8 @@ Show printing of source filename and lin
+ add_com ("eval", no_class, eval_command, _("\
+ Convert \"printf format string\", arg1, arg2, arg3, ..., argn to\n\
+ a command line, and call it."));
+
-+ case DW_MACINFO_end_file:
-+ /* No data to skip by MAC_PTR. */
-+ break;
++#if 0
++ observer_attach_mark_used (print_types_mark_used);
++#endif
+ }
+Index: gdb-7.2.90.20110703/gdb/python/lib/gdb/FrameIterator.py
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/python/lib/gdb/FrameIterator.py 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,33 @@
++# Iterator over frames.
+
-+ case DW_MACINFO_vendor_ext:
-+ /* Only skip the data by MAC_PTR. */
-+ {
-+ unsigned int bytes_read;
++# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
-+ read_unsigned_leb128 (abfd, mac_ptr, &bytes_read);
-+ mac_ptr += bytes_read;
-+ read_string (abfd, mac_ptr, &bytes_read);
-+ mac_ptr += bytes_read;
-+ }
-+ break;
++# 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/>.
+
-+ default:
-+ break;
-+ }
-+ } while (macinfo_type != 0 && current_file == NULL);
++class FrameIterator:
++ """An iterator that iterates over frames."""
+
-+ /* Here is the second pass to read in the macros starting from the ones
-+ defined at the command line. */
++ def __init__ (self, frame):
++ "Initialize a FrameIterator. FRAME is the starting frame."
++ self.frame = frame
+
-+ mac_ptr = dwarf2_per_objfile->macinfo_buffer + offset;
-+ at_commandline = 1;
++ def __iter__ (self):
++ return self
+
-+ do
-+ {
-+ /* Do we at least have room for a macinfo type byte? */
-+ if (mac_ptr >= mac_end)
-+ {
-+ /* Complaint is in the first pass above. */
-+ break;
-+ }
++ def next (self):
++ result = self.frame
++ if result is None:
++ raise StopIteration
++ self.frame = result.older ()
++ return result
+Index: gdb-7.2.90.20110703/gdb/python/lib/gdb/FrameWrapper.py
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/python/lib/gdb/FrameWrapper.py 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,112 @@
++# Wrapper API for frames.
+
-+ macinfo_type = read_1_byte (abfd, mac_ptr);
-+ mac_ptr++;
++# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
-+ switch (macinfo_type)
-+ {
-+ /* A zero macinfo type indicates the end of the macro
-+ information. */
-+ case 0:
-+ break;
-
- case DW_MACINFO_define:
- case DW_MACINFO_undef:
-@@ -10008,19 +10863,31 @@ dwarf_decode_macros (struct line_header *lh, unsigned int offset,
- mac_ptr += bytes_read;
-
- if (! current_file)
-+ {
-+ /* DWARF violation as no main source is present. */
-+ complaint (&symfile_complaints,
-+ _("debug info with no main source gives macro %s "
-+ "on line %d: %s"),
-+ macinfo_type ==
-+ DW_MACINFO_define ? _("definition") : macinfo_type ==
-+ DW_MACINFO_undef ? _("undefinition") :
-+ "something-or-other", line, body);
-+ break;
-+ }
-+ if (at_commandline != (line == 0))
- complaint (&symfile_complaints,
-- _("debug info gives macro %s outside of any file: %s"),
-+ _("debug info gives %s macro %s with %s line %d: %s"),
-+ at_commandline ? _("command-line") : _("in-file"),
- macinfo_type ==
-- DW_MACINFO_define ? "definition" : macinfo_type ==
-- DW_MACINFO_undef ? "undefinition" :
-- "something-or-other", body);
-- else
-- {
-- if (macinfo_type == DW_MACINFO_define)
-- parse_macro_definition (current_file, line, body);
-- else if (macinfo_type == DW_MACINFO_undef)
-- macro_undef (current_file, line, body);
-- }
-+ DW_MACINFO_define ? _("definition") : macinfo_type ==
-+ DW_MACINFO_undef ? _("undefinition") :
-+ "something-or-other",
-+ line == 0 ? _("zero") : _("non-zero"), line, body);
-+
-+ if (macinfo_type == DW_MACINFO_define)
-+ parse_macro_definition (current_file, line, body);
-+ else if (macinfo_type == DW_MACINFO_undef)
-+ macro_undef (current_file, line, body);
- }
- break;
-
-@@ -10034,9 +10901,22 @@ dwarf_decode_macros (struct line_header *lh, unsigned int offset,
- file = read_unsigned_leb128 (abfd, mac_ptr, &bytes_read);
- mac_ptr += bytes_read;
-
-- current_file = macro_start_file (file, line,
-- current_file, comp_dir,
-- lh, cu->objfile);
-+ if (at_commandline != (line == 0))
-+ complaint (&symfile_complaints,
-+ _("debug info gives source %d included "
-+ "from %s at %s line %d"),
-+ file, at_commandline ? _("command-line") : _("file"),
-+ line == 0 ? _("zero") : _("non-zero"), line);
++# 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/>.
+
-+ if (at_commandline)
-+ {
-+ /* This DW_MACINFO_start_file was executed in the pass one. */
-+ at_commandline = 0;
-+ }
-+ else
-+ current_file = macro_start_file (file, line,
-+ current_file, comp_dir,
-+ lh, cu->objfile);
- }
- break;
-
-@@ -10090,7 +10970,7 @@ dwarf_decode_macros (struct line_header *lh, unsigned int offset,
- }
- break;
- }
-- }
-+ } while (macinfo_type != 0);
- }
-
- /* Check if the attribute's form is a DW_FORM_block*
-@@ -10150,6 +11030,34 @@ attr_form_is_constant (struct attribute *attr)
- }
- }
-
-+/* Convert DW_BLOCK into struct dwarf2_locexpr_baton. ATTR must be a DW_BLOCK
-+ attribute type. */
++import gdb
+
-+static struct dwarf2_locexpr_baton *
-+dwarf2_attr_to_locexpr_baton (struct attribute *attr, struct dwarf2_cu *cu)
-+{
-+ struct dwarf2_locexpr_baton *baton;
++# FIXME: arguably all this should be on Frame somehow.
++class FrameWrapper:
++ def __init__ (self, frame):
++ self.frame = frame;
+
-+ gdb_assert (attr_form_is_block (attr));
++ def write_symbol (self, stream, sym, block):
++ if len (sym.linkage_name):
++ nsym, is_field_of_this = gdb.lookup_symbol (sym.linkage_name, block)
++ if nsym.addr_class != gdb.SYMBOL_LOC_REGISTER:
++ sym = nsym
+
-+ baton = obstack_alloc (&cu->objfile->objfile_obstack, sizeof (*baton));
-+ baton->per_cu = cu->per_cu;
-+ gdb_assert (baton->per_cu);
++ stream.write (sym.print_name + "=")
++ try:
++ val = self.read_var (sym)
++ if val != None:
++ val = str (val)
++ # FIXME: would be nice to have a more precise exception here.
++ except RuntimeError, text:
++ val = text
++ if val == None:
++ stream.write ("???")
++ else:
++ stream.write (str (val))
+
-+ /* Note that we're just copying the block's data pointer
-+ here, not the actual data. We're still pointing into the
-+ info_buffer for SYM's objfile; right now we never release
-+ that buffer, but when we do clean up properly this may
-+ need to change. */
-+ baton->size = DW_BLOCK (attr)->size;
-+ baton->data = DW_BLOCK (attr)->data;
-+ gdb_assert (baton->size == 0 || baton->data != NULL);
++ def print_frame_locals (self, stream, func):
++ if not func:
++ return
+
-+ return baton;
-+}
++ first = True
++ block = func.value
+
-+/* SYM may get its SYMBOL_CLASS overriden on invalid ATTR content. */
++ for sym in block:
++ if sym.is_argument:
++ continue;
+
- static void
- dwarf2_symbol_mark_computed (struct attribute *attr, struct symbol *sym,
- struct dwarf2_cu *cu)
-@@ -10179,35 +11087,24 @@ dwarf2_symbol_mark_computed (struct attribute *attr, struct symbol *sym,
- SYMBOL_OPS (sym) = &dwarf2_loclist_funcs;
- SYMBOL_LOCATION_BATON (sym) = baton;
- }
-+ else if (attr_form_is_block (attr))
-+ {
-+ SYMBOL_OPS (sym) = &dwarf2_locexpr_funcs;
-+ SYMBOL_LOCATION_BATON (sym) = dwarf2_attr_to_locexpr_baton (attr, cu);
-+ }
- else
- {
-- struct dwarf2_locexpr_baton *baton;
-+ dwarf2_invalid_attrib_class_complaint ("location description",
-+ SYMBOL_NATURAL_NAME (sym));
-
-- baton = obstack_alloc (&cu->objfile->objfile_obstack,
-- sizeof (struct dwarf2_locexpr_baton));
-- baton->per_cu = cu->per_cu;
-- gdb_assert (baton->per_cu);
-+ /* Some methods are called without checking SYMBOL_OPS validity. */
-+ SYMBOL_OPS (sym) = &dwarf2_missing_funcs;
-+ SYMBOL_LOCATION_BATON (sym) = NULL;
-
-- if (attr_form_is_block (attr))
-- {
-- /* Note that we're just copying the block's data pointer
-- here, not the actual data. We're still pointing into the
-- info_buffer for SYM's objfile; right now we never release
-- that buffer, but when we do clean up properly this may
-- need to change. */
-- baton->size = DW_BLOCK (attr)->size;
-- baton->data = DW_BLOCK (attr)->data;
-- }
-- else
-- {
-- dwarf2_invalid_attrib_class_complaint ("location description",
-- SYMBOL_NATURAL_NAME (sym));
-- baton->size = 0;
-- baton->data = NULL;
-- }
--
-- SYMBOL_OPS (sym) = &dwarf2_locexpr_funcs;
-- SYMBOL_LOCATION_BATON (sym) = baton;
-+ /* For functions a missing DW_AT_frame_base does not optimize out the
-+ whole function definition, only its frame base resolving. */
-+ if (attr->name == DW_AT_location)
-+ SYMBOL_CLASS (sym) = LOC_OPTIMIZED_OUT;
- }
- }
-
-@@ -10482,6 +11379,31 @@ offset_and_type_eq (const void *item_lhs, const void *item_rhs)
- return ofs_lhs->offset == ofs_rhs->offset;
- }
-
-+/* Fill in generic attributes applicable for type DIEs. */
-+
-+static void
-+fetch_die_type_attrs (struct die_info *die, struct type *type,
-+ struct dwarf2_cu *cu)
-+{
-+ struct attribute *attr;
-+
-+ attr = dwarf2_attr (die, DW_AT_data_location, cu);
-+ if (attr_form_is_block (attr))
-+ TYPE_DATA_LOCATION_DWARF_BLOCK (type) = dwarf2_attr_to_locexpr_baton (attr,
-+ cu);
-+ gdb_assert (!TYPE_DATA_LOCATION_IS_ADDR (type));
++ self.write_symbol (stream, sym, block)
++ stream.write ('\n')
+
-+ attr = dwarf2_attr (die, DW_AT_allocated, cu);
-+ if (attr_form_is_block (attr))
-+ TYPE_ALLOCATED (type) = dwarf2_attr_to_locexpr_baton (attr, cu);
-+ gdb_assert (!TYPE_NOT_ALLOCATED (type));
++ def print_frame_args (self, stream, func):
++ if not func:
++ return
+
-+ attr = dwarf2_attr (die, DW_AT_associated, cu);
-+ if (attr_form_is_block (attr))
-+ TYPE_ASSOCIATED (type) = dwarf2_attr_to_locexpr_baton (attr, cu);
-+ gdb_assert (!TYPE_NOT_ASSOCIATED (type));
-+}
++ first = True
++ block = func.value
+
- /* Set the type associated with DIE to TYPE. Save it in CU's hash
- table if necessary. For convenience, return TYPE. */
-
-@@ -10490,6 +11412,8 @@ set_die_type (struct die_info *die, struct type *type, struct dwarf2_cu *cu)
- {
- struct dwarf2_offset_and_type **slot, ofs;
-
-+ fetch_die_type_attrs (die, type, cu);
++ for sym in block:
++ if not sym.is_argument:
++ continue;
+
- if (cu->type_hash == NULL)
- {
- gdb_assert (cu->per_cu != NULL);
-diff --git a/gdb/elfread.c b/gdb/elfread.c
-index ff220a2..13158f4 100644
---- a/gdb/elfread.c
-+++ b/gdb/elfread.c
-@@ -727,10 +727,18 @@ elf_symfile_read (struct objfile *objfile, int mainline)
- str_sect->filepos,
- bfd_section_size (abfd, str_sect));
- }
++ if not first:
++ stream.write (", ")
+
-+ if (dwarf2_has_info (objfile))
-+ dwarf2_create_quick_addrmap (objfile);
-+}
++ self.write_symbol (stream, sym, block)
++ first = False
+
-+static void
-+read_psyms (struct objfile *objfile)
-+{
- if (dwarf2_has_info (objfile))
- {
- /* DWARF 2 sections */
-- dwarf2_build_psymtabs (objfile, mainline);
-+ dwarf2_build_psymtabs (objfile, 0);
- }
-
- /* FIXME: kettenis/20030504: This still needs to be integrated with
-@@ -880,6 +888,7 @@ static struct sym_fns elf_sym_fns =
- elf_new_init, /* sym_new_init: init anything gbl to entire symtab */
- elf_symfile_init, /* sym_init: read initial info, setup for sym_read() */
- elf_symfile_read, /* sym_read: read a symbol file into symtab */
-+ read_psyms, /* sym_read_psymbols */
- elf_symfile_finish, /* sym_finish: finished with file, cleanup */
- default_symfile_offsets, /* sym_offsets: Translate ext. to int. relocation */
- elf_symfile_segments, /* sym_segments: Get segment information from
-diff --git a/gdb/eval.c b/gdb/eval.c
-index 1d35571..6a97e09 100644
---- a/gdb/eval.c
-+++ b/gdb/eval.c
-@@ -39,10 +39,16 @@
- #include "exceptions.h"
- #include "regcache.h"
- #include "user-regs.h"
-+#include "python/python.h"
- #include "valprint.h"
-+#include "dwarf2loc.h"
-+#include "gdb_obstack.h"
-+#include "objfiles.h"
-
- #include "gdb_assert.h"
-
-+#include <ctype.h>
++ # FIXME: this should probably just be a method on gdb.Frame.
++ # But then we need stream wrappers.
++ def describe (self, stream, full):
++ if self.type () == gdb.DUMMY_FRAME:
++ stream.write (" <function called from gdb>\n")
++ elif self.type () == gdb.SIGTRAMP_FRAME:
++ stream.write (" <signal handler called>\n")
++ else:
++ sal = self.find_sal ()
++ pc = self.pc ()
++ name = self.name ()
++ if not name:
++ name = "??"
++ if pc != sal.pc or not sal.symtab:
++ stream.write (" 0x%08x in" % pc)
++ stream.write (" " + name + " (")
+
- /* This is defined in valops.c */
- extern int overload_resolution;
-
-@@ -651,6 +657,64 @@ ptrmath_type_p (struct type *type)
- }
- }
-
-+/* Compares the two method/function types T1 and T2 for "equality"
-+ with respect to the the methods' parameters. If the types of the
-+ two parameter lists are the same, returns 1; 0 otherwise. This
-+ comparison ignores any artificial this pointer. */
-+int
-+compare_parameters (struct type *t1, struct type *t2)
-+{
-+ int i, has_this;
-+ /* Hacky: we don't know a priori whether or not t1 is a static
-+ method, so we skip any artificial "this" pointer and hope
-+ for the best. t2, which comes as user input, never contains a
-+ "this" pointer (a user would never enter it into expressions. */
-+ if (TYPE_NFIELDS (t1) > 0)
-+ has_this = TYPE_FIELD_ARTIFICIAL (t1, 0) ? 1 : 0;
-+ else
-+ has_this = 0;
++ func = self.function ()
++ self.print_frame_args (stream, func)
+
-+ /* Special case: a method taking void. t1 will contain either
-+ no fields or just "this". t2 will contain TYPE_CODE_VOID. */
-+ if ((TYPE_NFIELDS (t1) - has_this) == 0 && TYPE_NFIELDS (t2) == 1
-+ && TYPE_CODE (TYPE_FIELD_TYPE (t2, 0)) == TYPE_CODE_VOID)
-+ return 1;
++ stream.write (")")
+
-+ if ((TYPE_NFIELDS (t1) - has_this) == TYPE_NFIELDS (t2))
-+ {
-+ for (i = has_this; i < TYPE_NFIELDS (t1); ++i)
-+ {
-+ if (rank_one_type (TYPE_FIELD_TYPE (t1, i),
-+ TYPE_FIELD_TYPE (t2, i - has_this))
-+ != 0)
-+ return 0;
-+ }
++ if sal.symtab and sal.symtab.filename:
++ stream.write (" at " + sal.symtab.filename)
++ stream.write (":" + str (sal.line))
+
-+ return 1;
-+ }
++ if not self.name () or (not sal.symtab or not sal.symtab.filename):
++ lib = gdb.solib_address (pc)
++ if lib:
++ stream.write (" from " + lib)
+
-+ return 0;
-+}
++ stream.write ("\n")
+
-+/* Constructs a fake method with the given parameter types. */
++ if full:
++ self.print_frame_locals (stream, func)
+
-+static struct type *
-+make_params (int num_types, struct type **param_types)
-+{
-+ struct type *type = alloc_type (NULL, NULL);
-+ TYPE_LENGTH (type) = 1;
-+ TYPE_CODE (type) = TYPE_CODE_METHOD;
-+ TYPE_NFIELDS (type) = num_types;
-+ TYPE_FIELDS (type) = (struct field *)
-+ TYPE_ALLOC (type, sizeof (struct field) * num_types);
-+ memset (TYPE_FIELDS (type), 0, sizeof (struct field) * num_types);
++ def __getattr__ (self, name):
++ return getattr (self.frame, name)
+Index: gdb-7.2.90.20110703/gdb/python/lib/gdb/backtrace.py
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/python/lib/gdb/backtrace.py 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,42 @@
++# Filtering backtrace.
+
-+ while (num_types-- > 0)
-+ TYPE_FIELD_TYPE (type, num_types) = param_types[num_types];
++# Copyright (C) 2008, 2011 Free Software Foundation, Inc.
+
-+ return type;
-+}
++# 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/>.
+
- struct value *
- evaluate_subexp_standard (struct type *expect_type,
- struct expression *exp, int *pos,
-@@ -671,6 +735,7 @@ evaluate_subexp_standard (struct type *expect_type,
- long mem_offset;
- struct type **arg_types;
- int save_pos1;
-+ struct cleanup *old_chain;
-
- pc = (*pos)++;
- op = exp->elts[pc].opcode;
-@@ -684,7 +749,7 @@ evaluate_subexp_standard (struct type *expect_type,
- goto nosideret;
- arg1 = value_aggregate_elt (exp->elts[pc + 1].type,
- &exp->elts[pc + 3].string,
-- 0, noside);
-+ expect_type, 0, noside);
- if (arg1 == NULL)
- error (_("There is no field named %s"), &exp->elts[pc + 3].string);
- return arg1;
-@@ -1208,9 +1273,9 @@ evaluate_subexp_standard (struct type *expect_type,
- if (TYPE_CODE (value_type (method)) != TYPE_CODE_FUNC)
- error (_("method address has symbol information with non-function type; skipping"));
- if (struct_return)
-- VALUE_ADDRESS (method) = value_as_address (msg_send_stret);
-+ set_value_address (method, value_as_address (msg_send_stret));
- else
-- VALUE_ADDRESS (method) = value_as_address (msg_send);
-+ set_value_address (method, value_as_address (msg_send));
- called_method = method;
- }
- else
-@@ -1284,7 +1349,6 @@ evaluate_subexp_standard (struct type *expect_type,
- argvec = (struct value **) alloca (sizeof (struct value *) * (nargs + 3));
- if (op == STRUCTOP_MEMBER || op == STRUCTOP_MPTR)
- {
-- nargs++;
- /* First, evaluate the structure into arg2 */
- pc2 = (*pos)++;
-
-@@ -1308,21 +1372,40 @@ evaluate_subexp_standard (struct type *expect_type,
-
- arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
-
-- if (TYPE_CODE (check_typedef (value_type (arg1)))
-- != TYPE_CODE_METHODPTR)
-- error (_("Non-pointer-to-member value used in pointer-to-member "
-- "construct"));
--
-- if (noside == EVAL_AVOID_SIDE_EFFECTS)
-+ type = check_typedef (value_type (arg1));
-+ switch (TYPE_CODE (type))
- {
-- struct type *method_type = check_typedef (value_type (arg1));
-- arg1 = value_zero (method_type, not_lval);
-+ case TYPE_CODE_METHODPTR:
-+ if (noside == EVAL_AVOID_SIDE_EFFECTS)
-+ arg1 = value_zero (TYPE_TARGET_TYPE (type), not_lval);
-+ else
-+ arg1 = cplus_method_ptr_to_value (&arg2, arg1);
++import gdb
++import itertools
+
-+ /* Now, say which argument to start evaluating from */
-+ nargs++;
-+ tem = 2;
-+ argvec[1] = arg2;
-+ break;
++# Our only exports.
++__all__ = ['push_frame_filter', 'create_frame_filter']
+
-+ case TYPE_CODE_MEMBERPTR:
-+ /* Now, convert these values to an address. */
-+ arg2 = value_cast (lookup_pointer_type (TYPE_DOMAIN_TYPE (type)),
-+ arg2);
++frame_filter = None
+
-+ mem_offset = value_as_long (arg1);
++def push_frame_filter (constructor):
++ """Register a new backtrace filter class with the 'backtrace' command.
++The filter will be passed an iterator as an argument. The iterator
++will return gdb.Frame-like objects. The filter should in turn act as
++an iterator returning such objects."""
++ global frame_filter
++ if frame_filter == None:
++ frame_filter = constructor
++ else:
++ frame_filter = lambda iterator, filter = frame_filter: constructor (filter (iterator))
+
-+ arg1 = value_from_pointer (lookup_pointer_type (TYPE_TARGET_TYPE (type)),
-+ value_as_long (arg2) + mem_offset);
-+ arg1 = value_ind (arg1);
-+ tem = 1;
-+ break;
++def create_frame_filter (iter):
++ global frame_filter
++ if frame_filter is None:
++ return iter
++ return frame_filter (iter)
+
-+ default:
-+ error (_("Non-pointer-to-member value used in pointer-to-member "
-+ "construct"));
- }
-- else
-- arg1 = cplus_method_ptr_to_value (&arg2, arg1);
-
-- /* Now, say which argument to start evaluating from */
-- tem = 2;
-+ argvec[0] = arg1;
- }
- else if (op == STRUCTOP_STRUCT || op == STRUCTOP_PTR)
- {
-@@ -1434,7 +1517,7 @@ evaluate_subexp_standard (struct type *expect_type,
- of the ``this'' pointer if necessary, so modify argvec[1] to
- reflect any ``this'' changes. */
- arg2 = value_from_longest (lookup_pointer_type(value_type (temp)),
-- VALUE_ADDRESS (temp) + value_offset (temp)
-+ value_address (temp)
- + value_embedded_offset (temp));
- argvec[1] = arg2; /* the ``this'' pointer */
- }
-@@ -1448,8 +1531,7 @@ evaluate_subexp_standard (struct type *expect_type,
- }
- else if (op == STRUCTOP_MEMBER || op == STRUCTOP_MPTR)
- {
-- argvec[1] = arg2;
-- argvec[0] = arg1;
-+ /* Pointer to member. argvec is already set up. */
- }
- else if (op == OP_VAR_VALUE)
- {
-@@ -1512,6 +1594,9 @@ evaluate_subexp_standard (struct type *expect_type,
- else
- error (_("Expression of type other than \"Function returning ...\" used as function"));
- }
-+ if (TYPE_CODE (value_type (argvec[0])) == TYPE_CODE_INTERNAL_FUNCTION)
-+ return call_internal_function (argvec[0], nargs, argvec + 1);
+Index: gdb-7.2.90.20110703/gdb/python/lib/gdb/command/alias.py
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/python/lib/gdb/command/alias.py 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,59 @@
++# Alias command.
+
- return call_function_by_hand (argvec[0], nargs, argvec + 1);
- /* pai: FIXME save value from call_function_by_hand, then adjust pc by adjust_fn_pc if +ve */
-
-@@ -1529,7 +1614,10 @@ evaluate_subexp_standard (struct type *expect_type,
-
- /* First determine the type code we are dealing with. */
- arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
-+ old_chain = make_cleanup (null_cleanup, 0);
-+ object_address_set (VALUE_ADDRESS (arg1));
- type = check_typedef (value_type (arg1));
-+ do_cleanups (old_chain);
- code = TYPE_CODE (type);
-
- if (code == TYPE_CODE_PTR)
-@@ -1696,6 +1784,37 @@ evaluate_subexp_standard (struct type *expect_type,
- error (_("non-pointer-to-member value used in pointer-to-member construct"));
- }
-
-+ case TYPE_INSTANCE:
-+ nargs = longest_to_int (exp->elts[pc + 1].longconst);
-+ arg_types = (struct type **) alloca (nargs * sizeof (struct type *));
-+ for (ix = 0; ix < nargs; ++ix)
-+ arg_types[ix] = exp->elts[pc + 1 + ix + 1].type;
++# Copyright (C) 2008 Free Software Foundation, Inc.
+
-+ expect_type = make_params (nargs, arg_types);
-+ *(pos) += 3 + nargs;
-+ return evaluate_subexp_standard (expect_type, exp, pos, noside);
++# 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/>.
+
-+ case TYPE_INSTANCE_LOOKUP:
-+ {
-+ int i;
-+ struct symbol *sym;
-+ struct type **arg_types;
-+ (*pos) += 3;
-+ printf ("TYPE_INSTANCE_LOOKUP\n");
-+ arg_types = (struct type **) alloca (TYPE_NFIELDS (expect_type)
-+ * sizeof (struct type *));
-+ for (i = 0; i < TYPE_NFIELDS (expect_type); ++i)
-+ arg_types[i] = TYPE_FIELD_TYPE (expect_type, i);
-+ (void) find_overload_match (arg_types, TYPE_NFIELDS (expect_type),
-+ NULL /* no need for name */,
-+ 0 /* not method */,
-+ 0 /* strict match */,
-+ NULL, exp->elts[pc + 1].symbol, NULL,
-+ &sym, NULL);
-+ i = 0;
-+ }
-+ break;
++import gdb
+
- case BINOP_CONCAT:
- arg1 = evaluate_subexp_with_coercion (exp, pos, noside);
- arg2 = evaluate_subexp_with_coercion (exp, pos, noside);
-@@ -1963,13 +2082,19 @@ evaluate_subexp_standard (struct type *expect_type,
- {
- int subscript_array[MAX_FORTRAN_DIMS];
- int array_size_array[MAX_FORTRAN_DIMS];
-+ int byte_stride_array[MAX_FORTRAN_DIMS];
- int ndimensions = 1, i;
- struct type *tmp_type;
- int offset_item; /* The array offset where the item lives */
-+ CORE_ADDR offset_byte; /* byte_stride based offset */
-+ unsigned element_size;
-
- if (nargs > MAX_FORTRAN_DIMS)
- error (_("Too many subscripts for F77 (%d Max)"), MAX_FORTRAN_DIMS);
-
-+ old_chain = make_cleanup (null_cleanup, 0);
-+ object_address_set (VALUE_ADDRESS (arg1));
++class AliasImplementation (gdb.Command):
++ def __init__ (self, name, real, doc):
++ # Have to set __doc__ before the super init call.
++ # It would be nice if gdb's help looked up __doc__ dynamically.
++ self.__doc__ = doc
++ # Note: no good way to complete :(
++ super (AliasImplementation, self).__init__ (name, gdb.COMMAND_NONE)
++ self.real = real
+
- tmp_type = check_typedef (value_type (arg1));
- ndimensions = calc_f77_array_dims (type);
-
-@@ -1999,6 +2124,9 @@ evaluate_subexp_standard (struct type *expect_type,
- upper = f77_get_upperbound (tmp_type);
- lower = f77_get_lowerbound (tmp_type);
-
-+ byte_stride_array[nargs - i - 1] =
-+ TYPE_ARRAY_BYTE_STRIDE_VALUE (tmp_type);
++ def invoke(self, arg, from_tty):
++ gdb.execute (self.real + ' ' + arg, from_tty)
+
- array_size_array[nargs - i - 1] = upper - lower + 1;
-
- /* Zero-normalize subscripts so that offsetting will work. */
-@@ -2017,17 +2145,25 @@ evaluate_subexp_standard (struct type *expect_type,
- tmp_type = check_typedef (TYPE_TARGET_TYPE (tmp_type));
- }
-
-- /* Now let us calculate the offset for this item */
-+ /* Kept for the f77_get_upperbound / f77_get_lowerbound calls above. */
-+ do_cleanups (old_chain);
-
-- offset_item = subscript_array[ndimensions - 1];
-+ /* Now let us calculate the offset for this item */
-
-- for (i = ndimensions - 1; i > 0; --i)
-- offset_item =
-- array_size_array[i - 1] * offset_item + subscript_array[i - 1];
-+ offset_item = 0;
-+ offset_byte = 0;
-
-- /* Construct a value node with the value of the offset */
-+ for (i = ndimensions - 1; i >= 0; --i)
-+ {
-+ offset_item *= array_size_array[i];
-+ if (byte_stride_array[i] == 0)
-+ offset_item += subscript_array[i];
-+ else
-+ offset_byte += subscript_array[i] * byte_stride_array[i];
-+ }
-
-- arg2 = value_from_longest (builtin_type_int32, offset_item);
-+ element_size = TYPE_LENGTH (TYPE_TARGET_TYPE (tmp_type));
-+ offset_byte += offset_item * element_size;
-
- /* Let us now play a dirty trick: we will take arg1
- which is a value node pointing to the topmost level
-@@ -2037,7 +2173,7 @@ evaluate_subexp_standard (struct type *expect_type,
- returns the correct type value */
-
- deprecated_set_value_type (arg1, tmp_type);
-- return value_subscripted_rvalue (arg1, arg2, 0);
-+ return value_subscripted_rvalue (arg1, offset_byte);
- }
-
- case BINOP_LOGICAL_AND:
-@@ -2475,7 +2611,17 @@ evaluate_subexp_standard (struct type *expect_type,
- if (noside == EVAL_SKIP)
- goto nosideret;
- else if (noside == EVAL_AVOID_SIDE_EFFECTS)
-- return allocate_value (exp->elts[pc + 1].type);
-+ {
-+ struct type *type = exp->elts[pc + 1].type;
-+ /* If this is a typedef, then find its immediate target. We
-+ use check_typedef to resolve stubs, but we ignore its
-+ result because we do not want to dig past all
-+ typedefs. */
-+ check_typedef (type);
-+ if (TYPE_CODE (type) == TYPE_CODE_TYPEDEF)
-+ type = TYPE_TARGET_TYPE (type);
-+ return allocate_value (type);
-+ }
- else
- error (_("Attempt to use a type name as an expression"));
-
-@@ -2568,7 +2714,7 @@ evaluate_subexp_for_address (struct expression *exp, int *pos,
- (*pos) += 5 + BYTES_TO_EXP_ELEM (tem + 1);
- x = value_aggregate_elt (exp->elts[pc + 1].type,
- &exp->elts[pc + 3].string,
-- 1, noside);
-+ NULL, 1, noside);
- if (x == NULL)
- error (_("There is no field named %s"), &exp->elts[pc + 3].string);
- return x;
-@@ -2613,7 +2759,7 @@ evaluate_subexp_with_coercion (struct expression *exp,
- {
- enum exp_opcode op;
- int pc;
-- struct value *val;
-+ struct value *val = NULL;
- struct symbol *var;
- struct type *type;
-
-@@ -2624,12 +2770,17 @@ evaluate_subexp_with_coercion (struct expression *exp,
- {
- case OP_VAR_VALUE:
- var = exp->elts[pc + 2].symbol;
-+ /* address_of_variable will call object_address_set for check_typedef.
-+ Call it only if required as it can error-out on VAR in register. */
-+ if (TYPE_DYNAMIC (SYMBOL_TYPE (var)))
-+ val = address_of_variable (var, exp->elts[pc + 1].block);
- type = check_typedef (SYMBOL_TYPE (var));
- if (TYPE_CODE (type) == TYPE_CODE_ARRAY
- && CAST_IS_CONVERSION)
- {
- (*pos) += 4;
-- val = address_of_variable (var, exp->elts[pc + 1].block);
-+ if (!val)
-+ val = address_of_variable (var, exp->elts[pc + 1].block);
- return value_cast (lookup_pointer_type (TYPE_TARGET_TYPE (type)),
- val);
- }
-@@ -2681,9 +2832,13 @@ evaluate_subexp_for_sizeof (struct expression *exp, int *pos)
-
- case OP_VAR_VALUE:
- (*pos) += 4;
-- type = check_typedef (SYMBOL_TYPE (exp->elts[pc + 2].symbol));
-- return
-- value_from_longest (size_type, (LONGEST) TYPE_LENGTH (type));
-+ /* We do not need to call read_var_value but the object evaluation may
-+ need to have executed object_address_set which needs valid
-+ SYMBOL_VALUE_ADDRESS of the symbol. Still VALUE returned by
-+ read_var_value we left as lazy. */
-+ type = value_type (read_var_value (exp->elts[pc + 2].symbol,
-+ deprecated_safe_get_selected_frame ()));
-+ return value_from_longest (size_type, (LONGEST) TYPE_LENGTH (type));
-
- default:
- val = evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS);
-diff --git a/gdb/expprint.c b/gdb/expprint.c
-index 89bae03..f768940 100644
---- a/gdb/expprint.c
-+++ b/gdb/expprint.c
-@@ -186,8 +186,8 @@ print_subexp_standard (struct expression *exp, int *pos,
- If necessary, we can temporarily set it to zero, or pass it as an
- additional parameter to LA_PRINT_STRING. -fnf */
- get_user_print_options (&opts);
-- LA_PRINT_STRING (stream, &exp->elts[pc + 2].string, nargs, 1, 0,
-- &opts);
-+ LA_PRINT_STRING (stream, builtin_type (exp->gdbarch)->builtin_char,
-+ &exp->elts[pc + 2].string, nargs, 0, &opts);
- }
- return;
-
-@@ -205,8 +205,8 @@ print_subexp_standard (struct expression *exp, int *pos,
- (*pos) += 3 + BYTES_TO_EXP_ELEM (nargs + 1);
- fputs_filtered ("@\"", stream);
- get_user_print_options (&opts);
-- LA_PRINT_STRING (stream, &exp->elts[pc + 2].string, nargs, 1, 0,
-- &opts);
-+ LA_PRINT_STRING (stream, builtin_type (exp->gdbarch)->builtin_char,
-+ &exp->elts[pc + 2].string, nargs, 0, &opts);
- fputs_filtered ("\"", stream);
- }
- return;
-@@ -291,8 +291,8 @@ print_subexp_standard (struct expression *exp, int *pos,
- {
- struct value_print_options opts;
- get_user_print_options (&opts);
-- LA_PRINT_STRING (stream, tempstr, nargs - 1, 1, 0,
-- &opts);
-+ LA_PRINT_STRING (stream, builtin_type (exp->gdbarch)->builtin_char,
-+ tempstr, nargs - 1, 0, &opts);
- (*pos) = pc;
- }
- else
-diff --git a/gdb/expression.h b/gdb/expression.h
-index 12163e3..789cb89 100644
---- a/gdb/expression.h
-+++ b/gdb/expression.h
-@@ -88,6 +88,16 @@ enum exp_opcode
- when X is a pointer instead of an aggregate. */
- STRUCTOP_MPTR,
-
-+ /* TYPE_INSTANCE is used when the user specifies a specific
-+ type instantiation for overloaded methods/functions. The format
-+ is: TYPE_INSTANCE num_types type0 ... typeN num_types TYPE_INSTANCE*/
-+ TYPE_INSTANCE,
-+
-+ /* TYPE_INSTANCE_LOOKUP is used when the user specifies a specific
-+ type instantiation of a function (not a method). In this case,
-+ we must toss the results of the parser and manually do the lookup. */
-+ TYPE_INSTANCE_LOOKUP,
-+
- /* end of C++. */
-
- /* For Modula-2 integer division DIV */
-@@ -426,6 +436,8 @@ enum noside
- extern struct value *evaluate_subexp_standard
- (struct type *, struct expression *, int *, enum noside);
-
-+extern int compare_parameters (struct type *, struct type *);
-+
- /* From expprint.c */
-
- extern void print_expression (struct expression *, struct ui_file *);
-@@ -435,4 +447,5 @@ extern char *op_string (enum exp_opcode);
- extern void dump_raw_expression (struct expression *, struct ui_file *, char *);
- extern void dump_prefix_expression (struct expression *, struct ui_file *);
-
-+
- #endif /* !defined (EXPRESSION_H) */
-diff --git a/gdb/f-exp.y b/gdb/f-exp.y
-index d91c413..c984e85 100644
---- a/gdb/f-exp.y
-+++ b/gdb/f-exp.y
-@@ -198,6 +198,7 @@ static int parse_number (char *, int, int, YYSTYPE *);
- /* Special type cases, put in to allow the parser to distinguish different
- legal basetypes. */
- %token INT_KEYWORD INT_S2_KEYWORD LOGICAL_S1_KEYWORD LOGICAL_S2_KEYWORD
-+%token LOGICAL_S8_KEYWORD
- %token LOGICAL_KEYWORD REAL_KEYWORD REAL_S8_KEYWORD REAL_S16_KEYWORD
- %token COMPLEX_S8_KEYWORD COMPLEX_S16_KEYWORD COMPLEX_S32_KEYWORD
- %token BOOL_AND BOOL_OR BOOL_NOT
-@@ -608,6 +609,8 @@ typebase /* Implements (approximately): (type-qualifier)* type-specifier */
- { $$ = parse_f_type->builtin_integer_s2; }
- | CHARACTER
- { $$ = parse_f_type->builtin_character; }
-+ | LOGICAL_S8_KEYWORD
-+ { $$ = parse_f_type->builtin_logical_s8;}
- | LOGICAL_KEYWORD
- { $$ = parse_f_type->builtin_logical; }
- | LOGICAL_S2_KEYWORD
-@@ -860,6 +863,7 @@ static const struct token f77_keywords[] =
- { "integer_2", INT_S2_KEYWORD, BINOP_END },
- { "logical_1", LOGICAL_S1_KEYWORD, BINOP_END },
- { "logical_2", LOGICAL_S2_KEYWORD, BINOP_END },
-+ { "logical_8", LOGICAL_S8_KEYWORD, BINOP_END },
- { "complex_8", COMPLEX_S8_KEYWORD, BINOP_END },
- { "integer", INT_KEYWORD, BINOP_END },
- { "logical", LOGICAL_KEYWORD, BINOP_END },
-diff --git a/gdb/f-lang.c b/gdb/f-lang.c
-index 6359841..1754c44 100644
---- a/gdb/f-lang.c
-+++ b/gdb/f-lang.c
-@@ -55,23 +55,10 @@ typedef struct saved_bf_symnum SAVED_BF, *SAVED_BF_PTR;
- /* Local functions */
-
- extern void _initialize_f_language (void);
--#if 0
--static void clear_function_list (void);
--static long get_bf_for_fcn (long);
--static void clear_bf_list (void);
--static void patch_all_commons_by_name (char *, CORE_ADDR, int);
--static SAVED_F77_COMMON_PTR find_first_common_named (char *);
--static void add_common_entry (struct symbol *);
--static void add_common_block (char *, CORE_ADDR, int, char *);
--static SAVED_FUNCTION *allocate_saved_function_node (void);
--static SAVED_BF_PTR allocate_saved_bf_node (void);
--static COMMON_ENTRY_PTR allocate_common_entry_node (void);
--static SAVED_F77_COMMON_PTR allocate_saved_f77_common_node (void);
--static void patch_common_entries (SAVED_F77_COMMON_PTR, CORE_ADDR, int);
--#endif
--
--static void f_printchar (int c, struct ui_file * stream);
--static void f_emit_char (int c, struct ui_file * stream, int quoter);
++class AliasCommand (gdb.Command):
++ """Alias one command to another.
++In the simplest form, the first word is the name of the alias, and
++the remaining words are the the expansion.
++An '=' by itself can be used to define a multi-word alias; words
++before the '=' are the name of the new command."""
+
-+static void f_printchar (int c, struct type *type, struct ui_file * stream);
-+static void f_emit_char (int c, struct type *type,
-+ struct ui_file * stream, int quoter);
-
- /* Print the character C on STREAM as part of the contents of a literal
- string whose delimiter is QUOTER. Note that that format for printing
-@@ -80,7 +67,7 @@ static void f_emit_char (int c, struct ui_file * stream, int quoter);
- be replaced with a true F77 version. */
-
- static void
--f_emit_char (int c, struct ui_file *stream, int quoter)
-+f_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
- {
- c &= 0xFF; /* Avoid sign bit follies */
-
-@@ -126,10 +113,10 @@ f_emit_char (int c, struct ui_file *stream, int quoter)
- be replaced with a true F77version. */
-
- static void
--f_printchar (int c, struct ui_file *stream)
-+f_printchar (int c, struct type *type, struct ui_file *stream)
- {
- fputs_filtered ("'", stream);
-- LA_EMIT_CHAR (c, stream, '\'');
-+ LA_EMIT_CHAR (c, type, stream, '\'');
- fputs_filtered ("'", stream);
- }
-
-@@ -141,14 +128,15 @@ f_printchar (int c, struct ui_file *stream)
- be replaced with a true F77 version. */
-
- static void
--f_printstr (struct ui_file *stream, const gdb_byte *string,
-- unsigned int length, int width, int force_ellipses,
-+f_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
-+ unsigned int length, int force_ellipses,
- const struct value_print_options *options)
- {
- unsigned int i;
- unsigned int things_printed = 0;
- int in_quotes = 0;
- int need_comma = 0;
-+ int width = TYPE_LENGTH (type);
-
- if (length == 0)
- {
-@@ -190,7 +178,7 @@ f_printstr (struct ui_file *stream, const gdb_byte *string,
- fputs_filtered ("', ", stream);
- in_quotes = 0;
- }
-- f_printchar (string[i], stream);
-+ f_printchar (string[i], type, stream);
- fprintf_filtered (stream, " <repeats %u times>", reps);
- i = rep1 - 1;
- things_printed += options->repeat_count_threshold;
-@@ -206,7 +194,7 @@ f_printstr (struct ui_file *stream, const gdb_byte *string,
- fputs_filtered ("'", stream);
- in_quotes = 1;
- }
-- LA_EMIT_CHAR (string[i], stream, '"');
-+ LA_EMIT_CHAR (string[i], type, stream, '"');
- ++things_printed;
- }
- }
-@@ -257,6 +245,7 @@ enum f_primitive_types {
- f_primitive_type_logical,
- f_primitive_type_logical_s1,
- f_primitive_type_logical_s2,
-+ f_primitive_type_logical_s8,
- f_primitive_type_integer,
- f_primitive_type_integer_s2,
- f_primitive_type_real,
-@@ -287,6 +276,8 @@ f_language_arch_info (struct gdbarch *gdbarch,
- = builtin->builtin_logical_s1;
- lai->primitive_type_vector [f_primitive_type_logical_s2]
- = builtin->builtin_logical_s2;
-+ lai->primitive_type_vector [f_primitive_type_logical_s8]
-+ = builtin->builtin_logical_s8;
- lai->primitive_type_vector [f_primitive_type_real]
- = builtin->builtin_real;
- lai->primitive_type_vector [f_primitive_type_real_s8]
-@@ -378,6 +369,11 @@ build_fortran_types (struct gdbarch *gdbarch)
- gdbarch_short_bit (gdbarch) / TARGET_CHAR_BIT,
- TYPE_FLAG_UNSIGNED, "logical*2", (struct objfile *) NULL);
-
-+ builtin_f_type->builtin_logical_s8 =
-+ init_type (TYPE_CODE_BOOL,
-+ gdbarch_long_long_bit (gdbarch) / TARGET_CHAR_BIT,
-+ TYPE_FLAG_UNSIGNED, "logical*8", (struct objfile *) NULL);
-+
- builtin_f_type->builtin_integer =
- init_type (TYPE_CODE_INT,
- gdbarch_int_bit (gdbarch) / TARGET_CHAR_BIT,
-@@ -451,395 +447,3 @@ _initialize_f_language (void)
-
- add_language (&f_language_defn);
- }
--
--#if 0
--static SAVED_BF_PTR
--allocate_saved_bf_node (void)
--{
-- SAVED_BF_PTR new;
--
-- new = (SAVED_BF_PTR) xmalloc (sizeof (SAVED_BF));
-- return (new);
--}
--
--static SAVED_FUNCTION *
--allocate_saved_function_node (void)
--{
-- SAVED_FUNCTION *new;
--
-- new = (SAVED_FUNCTION *) xmalloc (sizeof (SAVED_FUNCTION));
-- return (new);
--}
--
--static SAVED_F77_COMMON_PTR
--allocate_saved_f77_common_node (void)
--{
-- SAVED_F77_COMMON_PTR new;
--
-- new = (SAVED_F77_COMMON_PTR) xmalloc (sizeof (SAVED_F77_COMMON));
-- return (new);
--}
--
--static COMMON_ENTRY_PTR
--allocate_common_entry_node (void)
--{
-- COMMON_ENTRY_PTR new;
--
-- new = (COMMON_ENTRY_PTR) xmalloc (sizeof (COMMON_ENTRY));
-- return (new);
--}
--#endif
--
--SAVED_F77_COMMON_PTR head_common_list = NULL; /* Ptr to 1st saved COMMON */
--SAVED_F77_COMMON_PTR tail_common_list = NULL; /* Ptr to last saved COMMON */
--SAVED_F77_COMMON_PTR current_common = NULL; /* Ptr to current COMMON */
--
--#if 0
--static SAVED_BF_PTR saved_bf_list = NULL; /* Ptr to (.bf,function)
-- list */
--static SAVED_BF_PTR saved_bf_list_end = NULL; /* Ptr to above list's end */
--static SAVED_BF_PTR current_head_bf_list = NULL; /* Current head of above list
-- */
--
--static SAVED_BF_PTR tmp_bf_ptr; /* Generic temporary for use
-- in macros */
--
--/* The following function simply enters a given common block onto
-- the global common block chain */
--
--static void
--add_common_block (char *name, CORE_ADDR offset, int secnum, char *func_stab)
--{
-- SAVED_F77_COMMON_PTR tmp;
-- char *c, *local_copy_func_stab;
--
-- /* If the COMMON block we are trying to add has a blank
-- name (i.e. "#BLNK_COM") then we set it to __BLANK
-- because the darn "#" character makes GDB's input
-- parser have fits. */
--
--
-- if (strcmp (name, BLANK_COMMON_NAME_ORIGINAL) == 0
-- || strcmp (name, BLANK_COMMON_NAME_MF77) == 0)
-- {
--
-- xfree (name);
-- name = alloca (strlen (BLANK_COMMON_NAME_LOCAL) + 1);
-- strcpy (name, BLANK_COMMON_NAME_LOCAL);
-- }
--
-- tmp = allocate_saved_f77_common_node ();
--
-- local_copy_func_stab = xmalloc (strlen (func_stab) + 1);
-- strcpy (local_copy_func_stab, func_stab);
--
-- tmp->name = xmalloc (strlen (name) + 1);
--
-- /* local_copy_func_stab is a stabstring, let us first extract the
-- function name from the stab by NULLing out the ':' character. */
--
--
-- c = NULL;
-- c = strchr (local_copy_func_stab, ':');
--
-- if (c)
-- *c = '\0';
-- else
-- error (_("Malformed function STAB found in add_common_block()"));
--
--
-- tmp->owning_function = xmalloc (strlen (local_copy_func_stab) + 1);
--
-- strcpy (tmp->owning_function, local_copy_func_stab);
--
-- strcpy (tmp->name, name);
-- tmp->offset = offset;
-- tmp->next = NULL;
-- tmp->entries = NULL;
-- tmp->secnum = secnum;
--
-- current_common = tmp;
--
-- if (head_common_list == NULL)
-- {
-- head_common_list = tail_common_list = tmp;
-- }
-- else
-- {
-- tail_common_list->next = tmp;
-- tail_common_list = tmp;
-- }
--}
--#endif
--
--/* The following function simply enters a given common entry onto
-- the "current_common" block that has been saved away. */
--
--#if 0
--static void
--add_common_entry (struct symbol *entry_sym_ptr)
--{
-- COMMON_ENTRY_PTR tmp;
--
--
--
-- /* The order of this list is important, since
-- we expect the entries to appear in decl.
-- order when we later issue "info common" calls */
--
-- tmp = allocate_common_entry_node ();
--
-- tmp->next = NULL;
-- tmp->symbol = entry_sym_ptr;
--
-- if (current_common == NULL)
-- error (_("Attempt to add COMMON entry with no block open!"));
-- else
-- {
-- if (current_common->entries == NULL)
-- {
-- current_common->entries = tmp;
-- current_common->end_of_entries = tmp;
-- }
-- else
-- {
-- current_common->end_of_entries->next = tmp;
-- current_common->end_of_entries = tmp;
-- }
-- }
--}
--#endif
--
--/* This routine finds the first encountred COMMON block named "name" */
--
--#if 0
--static SAVED_F77_COMMON_PTR
--find_first_common_named (char *name)
--{
--
-- SAVED_F77_COMMON_PTR tmp;
--
-- tmp = head_common_list;
--
-- while (tmp != NULL)
-- {
-- if (strcmp (tmp->name, name) == 0)
-- return (tmp);
-- else
-- tmp = tmp->next;
-- }
-- return (NULL);
--}
--#endif
--
--/* This routine finds the first encountred COMMON block named "name"
-- that belongs to function funcname */
--
--SAVED_F77_COMMON_PTR
--find_common_for_function (char *name, char *funcname)
--{
--
-- SAVED_F77_COMMON_PTR tmp;
--
-- tmp = head_common_list;
--
-- while (tmp != NULL)
-- {
-- if (strcmp (tmp->name, name) == 0
-- && strcmp (tmp->owning_function, funcname) == 0)
-- return (tmp);
-- else
-- tmp = tmp->next;
-- }
-- return (NULL);
--}
--
--
--#if 0
--
--/* The following function is called to patch up the offsets
-- for the statics contained in the COMMON block named
-- "name." */
--
--static void
--patch_common_entries (SAVED_F77_COMMON_PTR blk, CORE_ADDR offset, int secnum)
--{
-- COMMON_ENTRY_PTR entry;
--
-- blk->offset = offset; /* Keep this around for future use. */
--
-- entry = blk->entries;
--
-- while (entry != NULL)
-- {
-- SYMBOL_VALUE (entry->symbol) += offset;
-- SYMBOL_SECTION (entry->symbol) = secnum;
--
-- entry = entry->next;
-- }
-- blk->secnum = secnum;
--}
--
--/* Patch all commons named "name" that need patching.Since COMMON
-- blocks occur with relative infrequency, we simply do a linear scan on
-- the name. Eventually, the best way to do this will be a
-- hashed-lookup. Secnum is the section number for the .bss section
-- (which is where common data lives). */
--
--static void
--patch_all_commons_by_name (char *name, CORE_ADDR offset, int secnum)
--{
--
-- SAVED_F77_COMMON_PTR tmp;
--
-- /* For blank common blocks, change the canonical reprsentation
-- of a blank name */
--
-- if (strcmp (name, BLANK_COMMON_NAME_ORIGINAL) == 0
-- || strcmp (name, BLANK_COMMON_NAME_MF77) == 0)
-- {
-- xfree (name);
-- name = alloca (strlen (BLANK_COMMON_NAME_LOCAL) + 1);
-- strcpy (name, BLANK_COMMON_NAME_LOCAL);
-- }
--
-- tmp = head_common_list;
--
-- while (tmp != NULL)
-- {
-- if (COMMON_NEEDS_PATCHING (tmp))
-- if (strcmp (tmp->name, name) == 0)
-- patch_common_entries (tmp, offset, secnum);
--
-- tmp = tmp->next;
-- }
--}
--#endif
--
--/* This macro adds the symbol-number for the start of the function
-- (the symbol number of the .bf) referenced by symnum_fcn to a
-- list. This list, in reality should be a FIFO queue but since
-- #line pragmas sometimes cause line ranges to get messed up
-- we simply create a linear list. This list can then be searched
-- first by a queueing algorithm and upon failure fall back to
-- a linear scan. */
--
--#if 0
--#define ADD_BF_SYMNUM(bf_sym,fcn_sym) \
-- \
-- if (saved_bf_list == NULL) \
--{ \
-- tmp_bf_ptr = allocate_saved_bf_node(); \
-- \
-- tmp_bf_ptr->symnum_bf = (bf_sym); \
-- tmp_bf_ptr->symnum_fcn = (fcn_sym); \
-- tmp_bf_ptr->next = NULL; \
-- \
-- current_head_bf_list = saved_bf_list = tmp_bf_ptr; \
-- saved_bf_list_end = tmp_bf_ptr; \
-- } \
--else \
--{ \
-- tmp_bf_ptr = allocate_saved_bf_node(); \
-- \
-- tmp_bf_ptr->symnum_bf = (bf_sym); \
-- tmp_bf_ptr->symnum_fcn = (fcn_sym); \
-- tmp_bf_ptr->next = NULL; \
-- \
-- saved_bf_list_end->next = tmp_bf_ptr; \
-- saved_bf_list_end = tmp_bf_ptr; \
-- }
--#endif
--
--/* This function frees the entire (.bf,function) list */
--
--#if 0
--static void
--clear_bf_list (void)
--{
--
-- SAVED_BF_PTR tmp = saved_bf_list;
-- SAVED_BF_PTR next = NULL;
--
-- while (tmp != NULL)
-- {
-- next = tmp->next;
-- xfree (tmp);
-- tmp = next;
-- }
-- saved_bf_list = NULL;
--}
--#endif
--
--int global_remote_debug;
--
--#if 0
--
--static long
--get_bf_for_fcn (long the_function)
--{
-- SAVED_BF_PTR tmp;
-- int nprobes = 0;
--
-- /* First use a simple queuing algorithm (i.e. look and see if the
-- item at the head of the queue is the one you want) */
--
-- if (saved_bf_list == NULL)
-- internal_error (__FILE__, __LINE__,
-- _("cannot get .bf node off empty list"));
--
-- if (current_head_bf_list != NULL)
-- if (current_head_bf_list->symnum_fcn == the_function)
-- {
-- if (global_remote_debug)
-- fprintf_unfiltered (gdb_stderr, "*");
--
-- tmp = current_head_bf_list;
-- current_head_bf_list = current_head_bf_list->next;
-- return (tmp->symnum_bf);
-- }
--
-- /* If the above did not work (probably because #line directives were
-- used in the sourcefile and they messed up our internal tables) we now do
-- the ugly linear scan */
--
-- if (global_remote_debug)
-- fprintf_unfiltered (gdb_stderr, "\ndefaulting to linear scan\n");
--
-- nprobes = 0;
-- tmp = saved_bf_list;
-- while (tmp != NULL)
-- {
-- nprobes++;
-- if (tmp->symnum_fcn == the_function)
-- {
-- if (global_remote_debug)
-- fprintf_unfiltered (gdb_stderr, "Found in %d probes\n", nprobes);
-- current_head_bf_list = tmp->next;
-- return (tmp->symnum_bf);
-- }
-- tmp = tmp->next;
-- }
--
-- return (-1);
--}
--
--static SAVED_FUNCTION_PTR saved_function_list = NULL;
--static SAVED_FUNCTION_PTR saved_function_list_end = NULL;
--
--static void
--clear_function_list (void)
--{
-- SAVED_FUNCTION_PTR tmp = saved_function_list;
-- SAVED_FUNCTION_PTR next = NULL;
--
-- while (tmp != NULL)
-- {
-- next = tmp->next;
-- xfree (tmp);
-- tmp = next;
-- }
--
-- saved_function_list = NULL;
--}
--#endif
-diff --git a/gdb/f-lang.h b/gdb/f-lang.h
-index 711bdba..cd2f804 100644
---- a/gdb/f-lang.h
-+++ b/gdb/f-lang.h
-@@ -28,6 +28,10 @@ extern void f_error (char *); /* Defined in f-exp.y */
- extern void f_print_type (struct type *, char *, struct ui_file *, int,
- int);
-
-+extern const char *f_object_address_data_valid_print_to_stream
-+ (struct type *type, struct ui_file *stream);
-+extern void f_object_address_data_valid_or_error (struct type *type);
++ def __init__ (self):
++ # Completion is not quite right here.
++ super (AliasCommand, self).__init__ ("alias", gdb.COMMAND_NONE,
++ gdb.COMPLETE_COMMAND)
+
- extern int f_val_print (struct type *, const gdb_byte *, int, CORE_ADDR,
- struct ui_file *, int,
- const struct value_print_options *);
-@@ -47,41 +51,8 @@ enum f90_range_type
- NONE_BOUND_DEFAULT /* "(low:high)" */
- };
-
--struct common_entry
-- {
-- struct symbol *symbol; /* The symbol node corresponding
-- to this component */
-- struct common_entry *next; /* The next component */
-- };
--
--struct saved_f77_common
-- {
-- char *name; /* Name of COMMON */
-- char *owning_function; /* Name of parent function */
-- int secnum; /* Section # of .bss */
-- CORE_ADDR offset; /* Offset from .bss for
-- this block */
-- struct common_entry *entries; /* List of block's components */
-- struct common_entry *end_of_entries; /* ptr. to end of components */
-- struct saved_f77_common *next; /* Next saved COMMON block */
-- };
--
--typedef struct saved_f77_common SAVED_F77_COMMON, *SAVED_F77_COMMON_PTR;
--
--typedef struct common_entry COMMON_ENTRY, *COMMON_ENTRY_PTR;
--
--extern SAVED_F77_COMMON_PTR head_common_list; /* Ptr to 1st saved COMMON */
--extern SAVED_F77_COMMON_PTR tail_common_list; /* Ptr to last saved COMMON */
--extern SAVED_F77_COMMON_PTR current_common; /* Ptr to current COMMON */
--
--extern SAVED_F77_COMMON_PTR find_common_for_function (char *, char *);
--
--#define UNINITIALIZED_SECNUM -1
--#define COMMON_NEEDS_PATCHING(blk) ((blk)->secnum == UNINITIALIZED_SECNUM)
--
- #define BLANK_COMMON_NAME_ORIGINAL "#BLNK_COM" /* XLF assigned */
- #define BLANK_COMMON_NAME_MF77 "__BLNK__" /* MF77 assigned */
--#define BLANK_COMMON_NAME_LOCAL "__BLANK" /* Local GDB */
-
- /* When reasonable array bounds cannot be fetched, such as when
- you ask to 'mt print symbols' and there is no stack frame and
-@@ -113,6 +84,7 @@ struct builtin_f_type
- struct type *builtin_logical;
- struct type *builtin_logical_s1;
- struct type *builtin_logical_s2;
-+ struct type *builtin_logical_s8;
- struct type *builtin_real;
- struct type *builtin_real_s8;
- struct type *builtin_real_s16;
-diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c
-index 6c9668f..852b9a8 100644
---- a/gdb/f-typeprint.c
-+++ b/gdb/f-typeprint.c
-@@ -31,7 +31,7 @@
- #include "gdbcore.h"
- #include "target.h"
- #include "f-lang.h"
--
-+#include "dwarf2loc.h"
- #include "gdb_string.h"
- #include <errno.h>
-
-@@ -48,6 +48,34 @@ void f_type_print_varspec_prefix (struct type *, struct ui_file *,
- void f_type_print_base (struct type *, struct ui_file *, int, int);
- \f
-
-+const char *
-+f_object_address_data_valid_print_to_stream (struct type *type,
-+ struct ui_file *stream)
-+{
-+ const char *msg;
-+
-+ msg = object_address_data_not_valid (type);
-+ if (msg != NULL)
-+ {
-+ /* Assuming the content printed to STREAM should not be localized. */
-+ fprintf_filtered (stream, "<%s>", msg);
-+ }
++ def invoke (self, arg, from_tty):
++ self.dont_repeat ()
++ # Without some form of quoting we can't alias a multi-word
++ # command to another command.
++ args = arg.split()
++ try:
++ start = args.index ('=')
++ end = start + 1
++ except ValueError:
++ start = 1
++ end = 1
++ target = " ".join(args[end:])
++ AliasImplementation (" ".join (args[0:start]), target,
++ "This command is an alias for '%s'." % target)
+
-+ return msg;
-+}
++AliasCommand()
+Index: gdb-7.2.90.20110703/gdb/python/lib/gdb/command/backtrace.py
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/python/lib/gdb/command/backtrace.py 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,106 @@
++# New backtrace command.
+
-+void
-+f_object_address_data_valid_or_error (struct type *type)
-+{
-+ const char *msg;
++# Copyright (C) 2008, 2009, 2011 Free Software Foundation, Inc.
+
-+ msg = object_address_data_not_valid (type);
-+ if (msg != NULL)
-+ {
-+ error (_("Cannot access it because the %s."), _(msg));
-+ }
-+}
++# 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/>.
+
- /* LEVEL is the depth to indent lines by. */
-
- void
-@@ -57,6 +85,9 @@ f_print_type (struct type *type, char *varstring, struct ui_file *stream,
- enum type_code code;
- int demangled_args;
-
-+ if (f_object_address_data_valid_print_to_stream (type, stream) != NULL)
-+ return;
++import gdb
++import gdb.backtrace
++import itertools
++from gdb.FrameIterator import FrameIterator
++from gdb.FrameWrapper import FrameWrapper
++import sys
+
- f_type_print_base (type, stream, show, level);
- code = TYPE_CODE (type);
- if ((varstring != NULL && *varstring != '\0')
-@@ -166,6 +197,9 @@ f_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
-
- QUIT;
-
-+ if (TYPE_CODE (type) != TYPE_CODE_TYPEDEF)
-+ CHECK_TYPEDEF (type);
++class ReverseBacktraceParameter (gdb.Parameter):
++ """The new-backtrace command can show backtraces in 'reverse' order.
++This means that the innermost frame will be printed last.
++Note that reverse backtraces are more expensive to compute."""
+
- switch (TYPE_CODE (type))
- {
- case TYPE_CODE_ARRAY:
-diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
-index 5721041..2cff7bc 100644
---- a/gdb/f-valprint.c
-+++ b/gdb/f-valprint.c
-@@ -34,10 +34,8 @@
- #include "gdbcore.h"
- #include "command.h"
- #include "block.h"
--
--#if 0
--static int there_is_a_visible_common_named (char *);
--#endif
-+#include "dictionary.h"
-+#include "gdb_assert.h"
-
- extern void _initialize_f_valprint (void);
- static void info_common_command (char *, int);
-@@ -54,15 +52,17 @@ int f77_array_offset_tbl[MAX_FORTRAN_DIMS + 1][2];
- /* The following macro gives us the size of the nth dimension, Where
- n is 1 based. */
-
--#define F77_DIM_SIZE(n) (f77_array_offset_tbl[n][1])
-+#define F77_DIM_COUNT(n) (f77_array_offset_tbl[n][1])
-
--/* The following gives us the offset for row n where n is 1-based. */
-+/* The following gives us the element size for row n where n is 1-based. */
-
--#define F77_DIM_OFFSET(n) (f77_array_offset_tbl[n][0])
-+#define F77_DIM_BYTE_STRIDE(n) (f77_array_offset_tbl[n][0])
-
- int
- f77_get_lowerbound (struct type *type)
- {
-+ f_object_address_data_valid_or_error (type);
++ set_doc = "Enable or disable reverse backtraces."
++ show_doc = "Show whether backtraces will be printed in reverse order."
+
- if (TYPE_ARRAY_LOWER_BOUND_IS_UNDEFINED (type))
- error (_("Lower bound may not be '*' in F77"));
-
-@@ -72,14 +72,17 @@ f77_get_lowerbound (struct type *type)
- int
- f77_get_upperbound (struct type *type)
- {
-+ f_object_address_data_valid_or_error (type);
++ def __init__(self):
++ gdb.Parameter.__init__ (self, "reverse-backtrace",
++ gdb.COMMAND_STACK, gdb.PARAM_BOOLEAN)
++ # Default to compatibility with gdb.
++ self.value = False
+
- if (TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED (type))
- {
-- /* We have an assumed size array on our hands. Assume that
-- upper_bound == lower_bound so that we show at least 1 element.
-- If the user wants to see more elements, let him manually ask for 'em
-- and we'll subscript the array and show him. */
-+ /* We have an assumed size array on our hands. As type_length_get
-+ already assumes a length zero of arrays with underfined bounds VALADDR
-+ passed to the Fortran functions does not contained the real inferior
-+ memory content. User should request printing of specific array
-+ elements instead. */
-
-- return f77_get_lowerbound (type);
-+ return f77_get_lowerbound (type) - 1;
- }
-
- return TYPE_ARRAY_UPPER_BOUND_VALUE (type);
-@@ -135,24 +138,29 @@ f77_create_arrayprint_offset_tbl (struct type *type, struct ui_file *stream)
- upper = f77_get_upperbound (tmp_type);
- lower = f77_get_lowerbound (tmp_type);
-
-- F77_DIM_SIZE (ndimen) = upper - lower + 1;
-+ F77_DIM_COUNT (ndimen) = upper - lower + 1;
++class FilteringBacktrace (gdb.Command):
++ """Print backtrace of all stack frames, or innermost COUNT frames.
++With a negative argument, print outermost -COUNT frames.
++Use of the 'full' qualifier also prints the values of the local variables.
++Use of the 'raw' qualifier avoids any filtering by loadable modules.
++"""
+
-+ F77_DIM_BYTE_STRIDE (ndimen) =
-+ TYPE_ARRAY_BYTE_STRIDE_VALUE (tmp_type);
-
- tmp_type = TYPE_TARGET_TYPE (tmp_type);
- ndimen++;
- }
-
-- /* Now we multiply eltlen by all the offsets, so that later we
-+ /* Now we multiply eltlen by all the BYTE_STRIDEs, so that later we
- can print out array elements correctly. Up till now we
-- know an offset to apply to get the item but we also
-+ know an eltlen to apply to get the item but we also
- have to know how much to add to get to the next item */
-
- ndimen--;
- eltlen = TYPE_LENGTH (tmp_type);
-- F77_DIM_OFFSET (ndimen) = eltlen;
-+ if (F77_DIM_BYTE_STRIDE (ndimen) == 0)
-+ F77_DIM_BYTE_STRIDE (ndimen) = eltlen;
- while (--ndimen > 0)
- {
-- eltlen *= F77_DIM_SIZE (ndimen + 1);
-- F77_DIM_OFFSET (ndimen) = eltlen;
-+ eltlen *= F77_DIM_COUNT (ndimen + 1);
-+ if (F77_DIM_BYTE_STRIDE (ndimen) == 0)
-+ F77_DIM_BYTE_STRIDE (ndimen) = eltlen;
- }
- }
-
-@@ -172,34 +180,34 @@ f77_print_array_1 (int nss, int ndimensions, struct type *type,
-
- if (nss != ndimensions)
- {
-- for (i = 0; (i < F77_DIM_SIZE (nss) && (*elts) < options->print_max); i++)
-+ for (i = 0; (i < F77_DIM_COUNT (nss) && (*elts) < options->print_max); i++)
- {
- fprintf_filtered (stream, "( ");
- f77_print_array_1 (nss + 1, ndimensions, TYPE_TARGET_TYPE (type),
-- valaddr + i * F77_DIM_OFFSET (nss),
-- address + i * F77_DIM_OFFSET (nss),
-+ valaddr + i * F77_DIM_BYTE_STRIDE (nss),
-+ address + i * F77_DIM_BYTE_STRIDE (nss),
- stream, recurse, options, elts);
- fprintf_filtered (stream, ") ");
- }
-- if (*elts >= options->print_max && i < F77_DIM_SIZE (nss))
-+ if (*elts >= options->print_max && i < F77_DIM_COUNT (nss))
- fprintf_filtered (stream, "...");
- }
- else
- {
-- for (i = 0; i < F77_DIM_SIZE (nss) && (*elts) < options->print_max;
-+ for (i = 0; i < F77_DIM_COUNT (nss) && (*elts) < options->print_max;
- i++, (*elts)++)
- {
- val_print (TYPE_TARGET_TYPE (type),
-- valaddr + i * F77_DIM_OFFSET (ndimensions),
-+ valaddr + i * F77_DIM_BYTE_STRIDE (ndimensions),
- 0,
-- address + i * F77_DIM_OFFSET (ndimensions),
-+ address + i * F77_DIM_BYTE_STRIDE (ndimensions),
- stream, recurse, options, current_language);
-
-- if (i != (F77_DIM_SIZE (nss) - 1))
-+ if (i != (F77_DIM_COUNT (nss) - 1))
- fprintf_filtered (stream, ", ");
-
- if ((*elts == options->print_max - 1)
-- && (i != (F77_DIM_SIZE (nss) - 1)))
-+ && (i != (F77_DIM_COUNT (nss) - 1)))
- fprintf_filtered (stream, "...");
- }
- }
-@@ -251,12 +259,16 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- CORE_ADDR addr;
- int index;
-
-+ if (f_object_address_data_valid_print_to_stream (type, stream) != NULL)
-+ return 0;
++ def __init__ (self):
++ # FIXME: this is not working quite well enough to replace
++ # "backtrace" yet.
++ gdb.Command.__init__ (self, "new-backtrace", gdb.COMMAND_STACK)
++ self.reverse = ReverseBacktraceParameter()
+
- CHECK_TYPEDEF (type);
- switch (TYPE_CODE (type))
- {
- case TYPE_CODE_STRING:
- f77_get_dynamic_length_of_aggregate (type);
-- LA_PRINT_STRING (stream, valaddr, TYPE_LENGTH (type), 1, 0, options);
-+ LA_PRINT_STRING (stream, builtin_type (current_gdbarch)->builtin_char,
-+ valaddr, TYPE_LENGTH (type), 0, options);
- break;
-
- case TYPE_CODE_ARRAY:
-@@ -293,7 +305,7 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- && TYPE_CODE (elttype) == TYPE_CODE_INT
- && (options->format == 0 || options->format == 's')
- && addr != 0)
-- i = val_print_string (addr, -1, TYPE_LENGTH (elttype), stream,
-+ i = val_print_string (TYPE_TARGET_TYPE (type), addr, -1, stream,
- options);
-
- /* Return number of characters printed, including the terminating
-@@ -365,7 +377,7 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- {
- fputs_filtered (" ", stream);
- LA_PRINT_CHAR ((unsigned char) unpack_long (type, valaddr),
-- stream);
-+ type, stream);
- }
- }
- break;
-@@ -464,22 +476,54 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- return 0;
- }
-
--static void
--list_all_visible_commons (char *funname)
-+static int
-+info_common_command_for_block (struct block *block, struct frame_info *frame,
-+ const char *comname)
- {
-- SAVED_F77_COMMON_PTR tmp;
--
-- tmp = head_common_list;
--
-- printf_filtered (_("All COMMON blocks visible at this level:\n\n"));
--
-- while (tmp != NULL)
-- {
-- if (strcmp (tmp->owning_function, funname) == 0)
-- printf_filtered ("%s\n", tmp->name);
--
-- tmp = tmp->next;
-- }
-+ struct dict_iterator iter;
-+ struct symbol *sym;
-+ int values_printed = 0;
-+ const char *name;
-+ struct value_print_options opts;
++ def reverse_iter (self, iter):
++ result = []
++ for item in iter:
++ result.append (item)
++ result.reverse()
++ return result
+
-+ get_user_print_options (&opts);
++ def final_n (self, iter, x):
++ result = []
++ for item in iter:
++ result.append (item)
++ return result[x:]
+
-+ ALL_BLOCK_SYMBOLS (block, iter, sym)
-+ if (SYMBOL_DOMAIN (sym) == COMMON_BLOCK_DOMAIN)
-+ {
-+ struct type *type = SYMBOL_TYPE (sym);
-+ int index;
++ def invoke (self, arg, from_tty):
++ i = 0
++ count = 0
++ filter = True
++ full = False
+
-+ gdb_assert (SYMBOL_CLASS (sym) == LOC_STATIC);
-+ gdb_assert (TYPE_CODE (type) == TYPE_CODE_STRUCT);
-+
-+ if (comname && (!SYMBOL_LINKAGE_NAME (sym)
-+ || strcmp (comname, SYMBOL_LINKAGE_NAME (sym)) != 0))
-+ continue;
-+
-+ values_printed = 1;
-+ if (SYMBOL_PRINT_NAME (sym))
-+ printf_filtered (_("Contents of F77 COMMON block '%s':\n"),
-+ SYMBOL_PRINT_NAME (sym));
-+ else
-+ printf_filtered (_("Contents of blank COMMON block:\n"));
-+
-+ for (index = 0; index < TYPE_NFIELDS (type); index++)
-+ {
-+ struct value *val;
-+
-+ gdb_assert (field_is_static (&TYPE_FIELD (type, index)));
-+ val = value_static_field (type, index);
++ for word in arg.split (" "):
++ if word == '':
++ continue
++ elif word == 'raw':
++ filter = False
++ elif word == 'full':
++ full = True
++ else:
++ count = int (word)
+
-+ printf_filtered ("%s = ", TYPE_FIELD_NAME (type, index));
-+ value_print (val, gdb_stdout, &opts);
-+ putchar_filtered ('\n');
-+ }
++ # FIXME: provide option to start at selected frame
++ # However, should still number as if starting from newest
++ newest_frame = gdb.newest_frame()
++ iter = itertools.imap (FrameWrapper,
++ FrameIterator (newest_frame))
++ if filter:
++ iter = gdb.backtrace.create_frame_filter (iter)
+
-+ putchar_filtered ('\n');
-+ }
++ # Now wrap in an iterator that numbers the frames.
++ iter = itertools.izip (itertools.count (0), iter)
+
-+ return values_printed;
- }
-
- /* This function is used to print out the values in a given COMMON
-@@ -489,11 +533,9 @@ list_all_visible_commons (char *funname)
- static void
- info_common_command (char *comname, int from_tty)
- {
-- SAVED_F77_COMMON_PTR the_common;
-- COMMON_ENTRY_PTR entry;
- struct frame_info *fi;
-- char *funname = 0;
-- struct symbol *func;
-+ struct block *block;
-+ int values_printed = 0;
-
- /* We have been told to display the contents of F77 COMMON
- block supposedly visible in this function. Let us
-@@ -505,136 +547,32 @@ info_common_command (char *comname, int from_tty)
- /* The following is generally ripped off from stack.c's routine
- print_frame_info() */
-
-- func = find_pc_function (get_frame_pc (fi));
-- if (func)
-- {
-- /* In certain pathological cases, the symtabs give the wrong
-- function (when we are in the first function in a file which
-- is compiled without debugging symbols, the previous function
-- is compiled with debugging symbols, and the "foo.o" symbol
-- that is supposed to tell us where the file with debugging symbols
-- ends has been truncated by ar because it is longer than 15
-- characters).
--
-- So look in the minimal symbol tables as well, and if it comes
-- up with a larger address for the function use that instead.
-- I don't think this can ever cause any problems; there shouldn't
-- be any minimal symbols in the middle of a function.
-- FIXME: (Not necessarily true. What about text labels) */
--
-- struct minimal_symbol *msymbol =
-- lookup_minimal_symbol_by_pc (get_frame_pc (fi));
--
-- if (msymbol != NULL
-- && (SYMBOL_VALUE_ADDRESS (msymbol)
-- > BLOCK_START (SYMBOL_BLOCK_VALUE (func))))
-- funname = SYMBOL_LINKAGE_NAME (msymbol);
-- else
-- funname = SYMBOL_LINKAGE_NAME (func);
-- }
-- else
-- {
-- struct minimal_symbol *msymbol =
-- lookup_minimal_symbol_by_pc (get_frame_pc (fi));
--
-- if (msymbol != NULL)
-- funname = SYMBOL_LINKAGE_NAME (msymbol);
-- else /* Got no 'funname', code below will fail. */
-- error (_("No function found for frame."));
-- }
--
-- /* If comname is NULL, we assume the user wishes to see the
-- which COMMON blocks are visible here and then return */
--
-- if (comname == 0)
-+ block = get_frame_block (fi, 0);
-+ if (block == NULL)
- {
-- list_all_visible_commons (funname);
-+ printf_filtered (_("No symbol table info available.\n"));
- return;
- }
-
-- the_common = find_common_for_function (comname, funname);
--
-- if (the_common)
-+ while (block)
- {
-- if (strcmp (comname, BLANK_COMMON_NAME_LOCAL) == 0)
-- printf_filtered (_("Contents of blank COMMON block:\n"));
-- else
-- printf_filtered (_("Contents of F77 COMMON block '%s':\n"), comname);
--
-- printf_filtered ("\n");
-- entry = the_common->entries;
--
-- while (entry != NULL)
-- {
-- print_variable_and_value (NULL, entry->symbol, fi, gdb_stdout, 0);
-- entry = entry->next;
-- }
-+ if (info_common_command_for_block (block, fi, comname))
-+ values_printed = 1;
-+ /* After handling the function's top-level block, stop. Don't
-+ continue to its superblock, the block of per-file symbols. */
-+ if (BLOCK_FUNCTION (block))
-+ break;
-+ block = BLOCK_SUPERBLOCK (block);
- }
-- else
-- printf_filtered (_("Cannot locate the common block %s in function '%s'\n"),
-- comname, funname);
--}
--
--/* This function is used to determine whether there is a
-- F77 common block visible at the current scope called 'comname'. */
--
--#if 0
--static int
--there_is_a_visible_common_named (char *comname)
--{
-- SAVED_F77_COMMON_PTR the_common;
-- struct frame_info *fi;
-- char *funname = 0;
-- struct symbol *func;
--
-- if (comname == NULL)
-- error (_("Cannot deal with NULL common name!"));
-
-- fi = get_selected_frame (_("No frame selected"));
--
-- /* The following is generally ripped off from stack.c's routine
-- print_frame_info() */
--
-- func = find_pc_function (fi->pc);
-- if (func)
-+ if (!values_printed)
- {
-- /* In certain pathological cases, the symtabs give the wrong
-- function (when we are in the first function in a file which
-- is compiled without debugging symbols, the previous function
-- is compiled with debugging symbols, and the "foo.o" symbol
-- that is supposed to tell us where the file with debugging symbols
-- ends has been truncated by ar because it is longer than 15
-- characters).
--
-- So look in the minimal symbol tables as well, and if it comes
-- up with a larger address for the function use that instead.
-- I don't think this can ever cause any problems; there shouldn't
-- be any minimal symbols in the middle of a function.
-- FIXME: (Not necessarily true. What about text labels) */
--
-- struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (fi->pc);
--
-- if (msymbol != NULL
-- && (SYMBOL_VALUE_ADDRESS (msymbol)
-- > BLOCK_START (SYMBOL_BLOCK_VALUE (func))))
-- funname = SYMBOL_LINKAGE_NAME (msymbol);
-+ if (comname)
-+ printf_filtered (_("No common block '%s'.\n"), comname);
- else
-- funname = SYMBOL_LINKAGE_NAME (func);
-+ printf_filtered (_("No common blocks.\n"));
- }
-- else
-- {
-- struct minimal_symbol *msymbol =
-- lookup_minimal_symbol_by_pc (fi->pc);
--
-- if (msymbol != NULL)
-- funname = SYMBOL_LINKAGE_NAME (msymbol);
-- }
--
-- the_common = find_common_for_function (comname, funname);
--
-- return (the_common ? 1 : 0);
- }
--#endif
-
- void
- _initialize_f_valprint (void)
-diff --git a/gdb/findcmd.c b/gdb/findcmd.c
-index 7ae43e5..2894948 100644
---- a/gdb/findcmd.c
-+++ b/gdb/findcmd.c
-@@ -26,7 +26,7 @@
-
- /* Copied from bfd_put_bits. */
-
--static void
-+void
- put_bits (bfd_uint64_t data, char *buf, int bits, bfd_boolean big_p)
- {
- int i;
-@@ -44,6 +44,41 @@ put_bits (bfd_uint64_t data, char *buf, int bits, bfd_boolean big_p)
- }
- }
-
-+/* Allocates a buffer in *PATTERN_BUF, with a hard-coded initial size which
-+ will be returned in *PATTERN_BUF_SIZE. *PATTERN_BUF_END points to the same
-+ place as *PATTERN_BUF, indicating that the buffer is initially empty. */
++ # Reverse if the user wanted that.
++ if self.reverse.value:
++ iter = self.reverse_iter (iter)
+
-+void
-+allocate_pattern_buffer (char **pattern_buf, char **pattern_buf_end,
-+ ULONGEST *pattern_buf_size)
-+{
-+#define INITIAL_PATTERN_BUF_SIZE 100
-+ *pattern_buf_size = INITIAL_PATTERN_BUF_SIZE;
-+ *pattern_buf = xmalloc (*pattern_buf_size);
-+ *pattern_buf_end = *pattern_buf;
-+}
++ # Extract sub-range user wants.
++ if count < 0:
++ iter = self.final_n (iter, count)
++ elif count > 0:
++ iter = itertools.islice (iter, 0, count)
+
-+/* Grows *PATTERN_BUF by a factor of two if it's not large enough to hold
-+ VAL_BYTES more bytes or a 64-bit value, whichever is larger.
-+ *PATTERN_BUF_END is updated as necessary. */
++ for pair in iter:
++ sys.stdout.write ("#%-2d" % pair[0])
++ pair[1].describe (sys.stdout, full)
+
-+void
-+increase_pattern_buffer (char **pattern_buf, char **pattern_buf_end,
-+ ULONGEST *pattern_buf_size, int val_bytes)
-+{
-+ /* Keep it simple and assume size == 'g' when watching for when we
-+ need to grow the pattern buf. */
-+ if ((*pattern_buf_end - *pattern_buf + max (val_bytes, sizeof (int64_t)))
-+ > *pattern_buf_size)
-+ {
-+ size_t current_offset = *pattern_buf_end - *pattern_buf;
++FilteringBacktrace()
+Index: gdb-7.2.90.20110703/gdb/python/lib/gdb/command/ignore_errors.py
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/python/lib/gdb/command/ignore_errors.py 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,37 @@
++# Ignore errors in user commands.
+
-+ *pattern_buf_size *= 2;
-+ *pattern_buf = xrealloc (*pattern_buf, *pattern_buf_size);
-+ *pattern_buf_end = *pattern_buf + current_offset;
-+ }
-+}
++# Copyright (C) 2008 Free Software Foundation, Inc.
+
- /* Subroutine of find_command to simplify it.
- Parse the arguments of the "find" command. */
-
-@@ -59,8 +94,7 @@ parse_find_args (char *args, ULONGEST *max_countp,
- char *pattern_buf;
- /* Current size of search pattern buffer.
- We realloc space as needed. */
--#define INITIAL_PATTERN_BUF_SIZE 100
-- ULONGEST pattern_buf_size = INITIAL_PATTERN_BUF_SIZE;
-+ ULONGEST pattern_buf_size;
- /* Pointer to one past the last in-use part of pattern_buf. */
- char *pattern_buf_end;
- ULONGEST pattern_len;
-@@ -74,8 +108,7 @@ parse_find_args (char *args, ULONGEST *max_countp,
- if (args == NULL)
- error (_("Missing search parameters."));
-
-- pattern_buf = xmalloc (pattern_buf_size);
-- pattern_buf_end = pattern_buf;
-+ allocate_pattern_buffer (&pattern_buf, &pattern_buf_end, &pattern_buf_size);
- old_cleanups = make_cleanup (free_current_contents, &pattern_buf);
-
- /* Get search granularity and/or max count if specified.
-@@ -172,16 +205,8 @@ parse_find_args (char *args, ULONGEST *max_countp,
- v = parse_to_comma_and_eval (&s);
- val_bytes = TYPE_LENGTH (value_type (v));
-
-- /* Keep it simple and assume size == 'g' when watching for when we
-- need to grow the pattern buf. */
-- if ((pattern_buf_end - pattern_buf + max (val_bytes, sizeof (int64_t)))
-- > pattern_buf_size)
-- {
-- size_t current_offset = pattern_buf_end - pattern_buf;
-- pattern_buf_size *= 2;
-- pattern_buf = xrealloc (pattern_buf, pattern_buf_size);
-- pattern_buf_end = pattern_buf + current_offset;
-- }
-+ increase_pattern_buffer (&pattern_buf, &pattern_buf_end,
-+ &pattern_buf_size, val_bytes);
-
- if (size != '\0')
- {
-@@ -236,6 +261,45 @@ parse_find_args (char *args, ULONGEST *max_countp,
- discard_cleanups (old_cleanups);
- }
-
-+/* Drives target_search_memory to sweep through the specified search space,
-+ possibly in several iterations (with one call to this function for each
-+ iteration). *START_ADDR is the address where the search starts, and is
-+ updated to the next starting address to continue the search.
-+ *SEARCH_SPACE_LEN is the amount of bytes which will be searched, and is
-+ updated for the next iteration. PATTERN_BUF holds the pattern to be searched
-+ for, PATTERN_LEN is the size of the pattern in bytes. If a match is found,
-+ it's address is put in *FOUND_ADDR.
++# 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/>.
+
-+ Returns 1 if found, 0 if not found, and -1 if there was an error requiring
-+ halting of the search (e.g. memory read error). */
++import gdb
+
-+int
-+search_memory (CORE_ADDR *start_addr, ULONGEST *search_space_len,
-+ const char *pattern_buf, ULONGEST pattern_len,
-+ CORE_ADDR *found_addr)
-+{
-+ /* Offset from start of this iteration to the next iteration. */
-+ ULONGEST next_iter_incr;
-+ int found;
-+
-+ found = target_search_memory (*start_addr, *search_space_len,
-+ pattern_buf, pattern_len, found_addr);
-+ if (found <= 0)
-+ return found;
++class IgnoreErrorsCommand (gdb.Command):
++ """Execute a single command, ignoring all errors.
++Only one-line commands are supported.
++This is primarily useful in scripts."""
+
-+ /* Begin next iteration at one byte past this match. */
-+ next_iter_incr = (*found_addr - *start_addr) + 1;
++ def __init__ (self):
++ super (IgnoreErrorsCommand, self).__init__ ("ignore-errors",
++ gdb.COMMAND_OBSCURE,
++ # FIXME...
++ gdb.COMPLETE_COMMAND)
+
-+ /* For robustness, we don't let search_space_len go -ve here. */
-+ if (*search_space_len >= next_iter_incr)
-+ *search_space_len -= next_iter_incr;
-+ else
-+ *search_space_len = 0;
-+ *start_addr += next_iter_incr;
++ def invoke (self, arg, from_tty):
++ try:
++ gdb.execute (arg, from_tty)
++ except:
++ pass
+
-+ return found;
-+}
++IgnoreErrorsCommand ()
+Index: gdb-7.2.90.20110703/gdb/python/lib/gdb/command/pahole.py
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/python/lib/gdb/command/pahole.py 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,75 @@
++# pahole command for gdb
+
- static void
- find_command (char *args, int from_tty)
- {
-@@ -264,12 +328,11 @@ find_command (char *args, int from_tty)
- while (search_space_len >= pattern_len
- && found_count < max_count)
- {
-- /* Offset from start of this iteration to the next iteration. */
-- ULONGEST next_iter_incr;
- CORE_ADDR found_addr;
-- int found = target_search_memory (start_addr, search_space_len,
-- pattern_buf, pattern_len, &found_addr);
-+ int found;
-
-+ found = search_memory (&start_addr, &search_space_len, pattern_buf,
-+ pattern_len, &found_addr);
- if (found <= 0)
- break;
-
-@@ -277,16 +340,6 @@ find_command (char *args, int from_tty)
- printf_filtered ("\n");
- ++found_count;
- last_found_addr = found_addr;
--
-- /* Begin next iteration at one byte past this match. */
-- next_iter_incr = (found_addr - start_addr) + 1;
--
-- /* For robustness, we don't let search_space_len go -ve here. */
-- if (search_space_len >= next_iter_incr)
-- search_space_len -= next_iter_incr;
-- else
-- search_space_len = 0;
-- start_addr += next_iter_incr;
- }
-
- /* Record and print the results. */
-diff --git a/gdb/findvar.c b/gdb/findvar.c
-index 1048887..b958ec6 100644
---- a/gdb/findvar.c
-+++ b/gdb/findvar.c
-@@ -35,6 +35,7 @@
- #include "user-regs.h"
- #include "block.h"
- #include "objfiles.h"
-+#include "dwarf2loc.h"
-
- /* Basic byte-swapping routines. GDB has needed these for a long time...
- All extract a target-format integer at ADDR which is LEN bytes long. */
-@@ -275,7 +276,7 @@ value_of_register (int regnum, struct frame_info *frame)
- memcpy (value_contents_raw (reg_val), raw_buffer,
- register_size (gdbarch, regnum));
- VALUE_LVAL (reg_val) = lval;
-- VALUE_ADDRESS (reg_val) = addr;
-+ set_value_address (reg_val, addr);
- VALUE_REGNUM (reg_val) = regnum;
- set_value_optimized_out (reg_val, optim);
- VALUE_FRAME_ID (reg_val) = get_frame_id (frame);
-@@ -382,27 +383,16 @@ symbol_read_needs_frame (struct symbol *sym)
- /* Given a struct symbol for a variable,
- and a stack frame id, read the value of the variable
- and return a (pointer to a) struct value containing the value.
-- If the variable cannot be found, return a zero pointer. */
-+ If the variable cannot be found, return a zero pointer.
-+ We have to first find the address of the variable before allocating struct
-+ value to return as its size may depend on DW_OP_PUSH_OBJECT_ADDRESS possibly
-+ used by its type. */
-
- struct value *
- read_var_value (struct symbol *var, struct frame_info *frame)
- {
-- struct value *v;
- struct type *type = SYMBOL_TYPE (var);
- CORE_ADDR addr;
-- int len;
--
-- if (SYMBOL_CLASS (var) == LOC_COMPUTED
-- || SYMBOL_CLASS (var) == LOC_REGISTER)
-- /* These cases do not use V. */
-- v = NULL;
-- else
-- {
-- v = allocate_value (type);
-- VALUE_LVAL (v) = lval_memory; /* The most likely possibility. */
-- }
--
-- len = TYPE_LENGTH (type);
-
- if (symbol_read_needs_frame (var))
- gdb_assert (frame);
-@@ -410,31 +400,39 @@ read_var_value (struct symbol *var, struct frame_info *frame)
- switch (SYMBOL_CLASS (var))
- {
- case LOC_CONST:
-- /* Put the constant back in target format. */
-- store_signed_integer (value_contents_raw (v), len,
-- (LONGEST) SYMBOL_VALUE (var));
-- VALUE_LVAL (v) = not_lval;
-- return v;
-+ {
-+ /* Put the constant back in target format. */
-+ struct value *v = allocate_value (type);
-+ VALUE_LVAL (v) = not_lval;
-+ store_signed_integer (value_contents_raw (v), TYPE_LENGTH (type),
-+ (LONGEST) SYMBOL_VALUE (var));
-+ return v;
-+ }
-
- case LOC_LABEL:
-- /* Put the constant back in target format. */
-- if (overlay_debugging)
-- {
-- CORE_ADDR addr
-- = symbol_overlayed_address (SYMBOL_VALUE_ADDRESS (var),
-- SYMBOL_OBJ_SECTION (var));
-- store_typed_address (value_contents_raw (v), type, addr);
-- }
-- else
-- store_typed_address (value_contents_raw (v), type,
-- SYMBOL_VALUE_ADDRESS (var));
-- VALUE_LVAL (v) = not_lval;
-- return v;
-+ {
-+ /* Put the constant back in target format. */
-+ struct value *v = allocate_value (type);
-+ VALUE_LVAL (v) = not_lval;
-+ if (overlay_debugging)
-+ {
-+ CORE_ADDR addr
-+ = symbol_overlayed_address (SYMBOL_VALUE_ADDRESS (var),
-+ SYMBOL_OBJ_SECTION (var));
-+ store_typed_address (value_contents_raw (v), type, addr);
-+ }
-+ else
-+ store_typed_address (value_contents_raw (v), type,
-+ SYMBOL_VALUE_ADDRESS (var));
-+ return v;
-+ }
-
- case LOC_CONST_BYTES:
- {
-- memcpy (value_contents_raw (v), SYMBOL_VALUE_BYTES (var), len);
-+ struct value *v = allocate_value (type);
- VALUE_LVAL (v) = not_lval;
-+ memcpy (value_contents_raw (v), SYMBOL_VALUE_BYTES (var),
-+ TYPE_LENGTH (type));
- return v;
- }
-
-@@ -476,12 +474,23 @@ read_var_value (struct symbol *var, struct frame_info *frame)
- break;
-
- case LOC_BLOCK:
-- if (overlay_debugging)
-- VALUE_ADDRESS (v) = symbol_overlayed_address
-- (BLOCK_START (SYMBOL_BLOCK_VALUE (var)), SYMBOL_OBJ_SECTION (var));
-- else
-- VALUE_ADDRESS (v) = BLOCK_START (SYMBOL_BLOCK_VALUE (var));
-- return v;
-+ {
-+ CORE_ADDR addr;
-+ struct value *v;
++# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
-+ if (overlay_debugging)
-+ addr = symbol_overlayed_address
-+ (BLOCK_START (SYMBOL_BLOCK_VALUE (var)), SYMBOL_OBJ_SECTION (var));
-+ else
-+ addr = BLOCK_START (SYMBOL_BLOCK_VALUE (var));
-+ /* ADDR is set here for ALLOCATE_VALUE's CHECK_TYPEDEF for
-+ DW_OP_push_object_address. */
-+ object_address_set (addr);
-+ v = allocate_value (type);
-+ VALUE_ADDRESS (v) = addr;
-+ VALUE_LVAL (v) = lval_memory;
-+ return v;
-+ }
-
- case LOC_REGISTER:
- case LOC_REGPARM_ADDR:
-@@ -499,7 +508,6 @@ read_var_value (struct symbol *var, struct frame_info *frame)
- error (_("Value of register variable not available."));
-
- addr = value_as_address (regval);
-- VALUE_LVAL (v) = lval_memory;
- }
- else
- {
-@@ -542,18 +550,33 @@ read_var_value (struct symbol *var, struct frame_info *frame)
- break;
-
- case LOC_OPTIMIZED_OUT:
-- VALUE_LVAL (v) = not_lval;
-- set_value_optimized_out (v, 1);
-- return v;
-+ {
-+ struct value *v = allocate_value (type);
++# 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/>.
+
-+ VALUE_LVAL (v) = not_lval;
-+ set_value_optimized_out (v, 1);
-+ return v;
-+ }
-
- default:
- error (_("Cannot look up value of a botched symbol."));
- break;
- }
-
-- VALUE_ADDRESS (v) = addr;
-- set_value_lazy (v, 1);
-- return v;
-+ {
-+ struct value *v;
++import gdb
+
-+ /* ADDR is set here for ALLOCATE_VALUE's CHECK_TYPEDEF for
-+ DW_OP_PUSH_OBJECT_ADDRESS. */
-+ object_address_set (addr);
-+ v = allocate_value (type);
-+ VALUE_ADDRESS (v) = addr;
-+ VALUE_LVAL (v) = lval_memory;
++class Pahole (gdb.Command):
++ """Show the holes in a structure.
++This command takes a single argument, a type name.
++It prints the type and displays comments showing where holes are."""
+
-+ set_value_lazy (v, 1);
++ def __init__ (self):
++ super (Pahole, self).__init__ ("pahole", gdb.COMMAND_NONE,
++ gdb.COMPLETE_SYMBOL)
+
-+ return v;
-+ }
- }
-
- /* Install default attributes for register values. */
-@@ -590,10 +613,11 @@ struct value *
- value_from_register (struct type *type, int regnum, struct frame_info *frame)
- {
- struct gdbarch *gdbarch = get_frame_arch (frame);
-- struct type *type1 = check_typedef (type);
- struct value *v;
-
-- if (gdbarch_convert_register_p (gdbarch, regnum, type1))
-+ type = check_typedef (type);
++ def pahole (self, type, level, name):
++ if name is None:
++ name = ''
++ tag = type.tag
++ if tag is None:
++ tag = ''
++ print '%sstruct %s {' % (' ' * (2 * level), tag)
++ bitpos = 0
++ for field in type.fields ():
++ # Skip static fields.
++ if not hasattr (field, ('bitpos')):
++ continue
+
-+ if (gdbarch_convert_register_p (gdbarch, regnum, type))
- {
- /* The ISA/ABI need to something weird when obtaining the
- specified value from this register. It might need to
-@@ -607,7 +631,7 @@ value_from_register (struct type *type, int regnum, struct frame_info *frame)
- VALUE_FRAME_ID (v) = get_frame_id (frame);
- VALUE_REGNUM (v) = regnum;
- gdbarch_register_to_value (gdbarch,
-- frame, regnum, type1, value_contents_raw (v));
-+ frame, regnum, type, value_contents_raw (v));
- }
- else
- {
-diff --git a/gdb/frame.c b/gdb/frame.c
-index dfd6b3d..2ea37c3 100644
---- a/gdb/frame.c
-+++ b/gdb/frame.c
-@@ -596,7 +596,7 @@ frame_register_unwind (struct frame_info *frame, int regnum,
-
- *optimizedp = value_optimized_out (value);
- *lvalp = VALUE_LVAL (value);
-- *addrp = VALUE_ADDRESS (value);
-+ *addrp = value_address (value);
- *realnump = VALUE_REGNUM (value);
-
- if (bufferp)
-@@ -682,7 +682,7 @@ frame_unwind_register_value (struct frame_info *frame, int regnum)
- VALUE_REGNUM (value));
- else if (VALUE_LVAL (value) == lval_memory)
- fprintf_unfiltered (gdb_stdlog, " address=0x%s",
-- paddr_nz (VALUE_ADDRESS (value)));
-+ paddr_nz (value_address (value)));
- else
- fprintf_unfiltered (gdb_stdlog, " computed");
-
-diff --git a/gdb/frv-tdep.c b/gdb/frv-tdep.c
-index ff387db..452f70c 100644
---- a/gdb/frv-tdep.c
-+++ b/gdb/frv-tdep.c
-@@ -1230,7 +1230,7 @@ frv_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
-
- if (typecode == TYPE_CODE_STRUCT || typecode == TYPE_CODE_UNION)
- {
-- store_unsigned_integer (valbuf, 4, VALUE_ADDRESS (arg));
-+ store_unsigned_integer (valbuf, 4, value_address (arg));
- typecode = TYPE_CODE_PTR;
- len = 4;
- val = valbuf;
-diff --git a/gdb/gdb_locale.h b/gdb/gdb_locale.h
-index e8ba0ea..4fa4d3d 100644
---- a/gdb/gdb_locale.h
-+++ b/gdb/gdb_locale.h
-@@ -41,4 +41,8 @@
- # define N_(String) (String)
- #endif
-
-+#ifdef HAVE_LANGINFO_CODESET
-+#include <langinfo.h>
-+#endif
++ ftype = field.type.strip_typedefs()
+
- #endif /* GDB_LOCALE_H */
-diff --git a/gdb/gdb_obstack.h b/gdb/gdb_obstack.h
-index 48f49cd..cd1a1d7 100644
---- a/gdb/gdb_obstack.h
-+++ b/gdb/gdb_obstack.h
-@@ -45,4 +45,7 @@
- #define obstack_grow_str0(OBSTACK,STRING) \
- obstack_grow0 (OBSTACK, STRING, strlen (STRING))
-
-+#define obstack_grow_wstr(OBSTACK, WSTRING) \
-+ obstack_grow (OBSTACK, WSTRING, sizeof (wchar_t) * wcslen (WSTRING))
-+
- #endif
-diff --git a/gdb/gdbarch.c b/gdb/gdbarch.c
-index 3273b34..d6c737b 100644
---- a/gdb/gdbarch.c
-+++ b/gdb/gdbarch.c
-@@ -243,6 +243,11 @@ struct gdbarch
- gdbarch_target_signal_to_host_ftype *target_signal_to_host;
- gdbarch_get_siginfo_type_ftype *get_siginfo_type;
- gdbarch_record_special_symbol_ftype *record_special_symbol;
-+ gdbarch_get_syscall_number_ftype *get_syscall_number;
-+ gdbarch_get_syscall_by_number_ftype *get_syscall_by_number;
-+ gdbarch_get_syscall_by_name_ftype *get_syscall_by_name;
-+ gdbarch_get_syscall_names_ftype *get_syscall_names;
-+ const char * xml_syscall_filename;
- int has_global_solist;
- };
-
-@@ -378,6 +383,11 @@ struct gdbarch startup_gdbarch =
- default_target_signal_to_host, /* target_signal_to_host */
- 0, /* get_siginfo_type */
- 0, /* record_special_symbol */
-+ 0, /* get_syscall_number */
-+ 0, /* get_syscall_by_number */
-+ 0, /* get_syscall_by_name */
-+ 0, /* get_syscall_names */
-+ 0, /* xml_syscall_filename */
- 0, /* has_global_solist */
- /* startup_gdbarch() */
- };
-@@ -634,6 +644,11 @@ verify_gdbarch (struct gdbarch *gdbarch)
- /* Skip verify of target_signal_to_host, invalid_p == 0 */
- /* Skip verify of get_siginfo_type, has predicate */
- /* Skip verify of record_special_symbol, has predicate */
-+ /* Skip verify of get_syscall_number, has predicate */
-+ /* Skip verify of get_syscall_by_number, has predicate */
-+ /* Skip verify of get_syscall_by_name, has predicate */
-+ /* Skip verify of get_syscall_names, has predicate */
-+ /* Skip verify of xml_syscall_filename, invalid_p == 0 */
- /* Skip verify of has_global_solist, invalid_p == 0 */
- buf = ui_file_xstrdup (log, &dummy);
- make_cleanup (xfree, buf);
-@@ -859,6 +874,30 @@ gdbarch_dump (struct gdbarch *gdbarch, struct ui_file *file)
- "gdbarch_dump: get_siginfo_type = <%s>\n",
- host_address_to_string (gdbarch->get_siginfo_type));
- fprintf_unfiltered (file,
-+ "gdbarch_dump: gdbarch_get_syscall_by_name_p() = %d\n",
-+ gdbarch_get_syscall_by_name_p (gdbarch));
-+ fprintf_unfiltered (file,
-+ "gdbarch_dump: get_syscall_by_name = <%s>\n",
-+ host_address_to_string (gdbarch->get_syscall_by_name));
-+ fprintf_unfiltered (file,
-+ "gdbarch_dump: gdbarch_get_syscall_by_number_p() = %d\n",
-+ gdbarch_get_syscall_by_number_p (gdbarch));
-+ fprintf_unfiltered (file,
-+ "gdbarch_dump: get_syscall_by_number = <%s>\n",
-+ host_address_to_string (gdbarch->get_syscall_by_number));
-+ fprintf_unfiltered (file,
-+ "gdbarch_dump: gdbarch_get_syscall_names_p() = %d\n",
-+ gdbarch_get_syscall_names_p (gdbarch));
-+ fprintf_unfiltered (file,
-+ "gdbarch_dump: get_syscall_names = <%s>\n",
-+ host_address_to_string (gdbarch->get_syscall_names));
-+ fprintf_unfiltered (file,
-+ "gdbarch_dump: gdbarch_get_syscall_number_p() = %d\n",
-+ gdbarch_get_syscall_number_p (gdbarch));
-+ fprintf_unfiltered (file,
-+ "gdbarch_dump: get_syscall_number = <%s>\n",
-+ host_address_to_string (gdbarch->get_syscall_number));
-+ fprintf_unfiltered (file,
- "gdbarch_dump: has_global_solist = %s\n",
- plongest (gdbarch->has_global_solist));
- fprintf_unfiltered (file,
-@@ -1122,6 +1161,9 @@ gdbarch_dump (struct gdbarch *gdbarch, struct ui_file *file)
- fprintf_unfiltered (file,
- "gdbarch_dump: write_pc = <%s>\n",
- host_address_to_string (gdbarch->write_pc));
-+ fprintf_unfiltered (file,
-+ "gdbarch_dump: xml_syscall_filename = %s\n",
-+ gdbarch->xml_syscall_filename);
- if (gdbarch->dump_tdep != NULL)
- gdbarch->dump_tdep (gdbarch, file);
- }
-@@ -3333,6 +3375,119 @@ set_gdbarch_record_special_symbol (struct gdbarch *gdbarch,
- }
-
- int
-+gdbarch_get_syscall_number_p (struct gdbarch *gdbarch)
-+{
-+ gdb_assert (gdbarch != NULL);
-+ return gdbarch->get_syscall_number != NULL;
-+}
++ if bitpos != field.bitpos:
++ hole = field.bitpos - bitpos
++ print ' /* XXX %d bit hole, try to pack */' % hole
++ bitpos = field.bitpos
++ if field.bitsize > 0:
++ fieldsize = field.bitsize
++ else:
++ # TARGET_CHAR_BIT here...
++ fieldsize = 8 * ftype.sizeof
+
-+LONGEST
-+gdbarch_get_syscall_number (struct gdbarch *gdbarch, ptid_t ptid)
-+{
-+ gdb_assert (gdbarch != NULL);
-+ gdb_assert (gdbarch->get_syscall_number != NULL);
-+ if (gdbarch_debug >= 2)
-+ fprintf_unfiltered (gdb_stdlog, "gdbarch_get_syscall_number called\n");
-+ return gdbarch->get_syscall_number (gdbarch, ptid);
-+}
++ # TARGET_CHAR_BIT
++ print ' /* %3d %3d */' % (int (bitpos / 8), int (fieldsize / 8)),
++ bitpos = bitpos + fieldsize
+
-+void
-+set_gdbarch_get_syscall_number (struct gdbarch *gdbarch,
-+ gdbarch_get_syscall_number_ftype get_syscall_number)
-+{
-+ gdbarch->get_syscall_number = get_syscall_number;
-+}
++ if ftype.code == gdb.TYPE_CODE_STRUCT:
++ self.pahole (ftype, level + 1, field.name)
++ else:
++ print ' ' * (2 + 2 * level),
++ print '%s %s' % (str (ftype), field.name)
+
-+int
-+gdbarch_get_syscall_by_number_p (struct gdbarch *gdbarch)
-+{
-+ gdb_assert (gdbarch != NULL);
-+ return gdbarch->get_syscall_by_number != NULL;
-+}
++ print ' ' * (14 + 2 * level),
++ print '} %s' % name
+
-+void
-+gdbarch_get_syscall_by_number (struct gdbarch *gdbarch, int syscall_number, struct syscall *s)
-+{
-+ gdb_assert (gdbarch != NULL);
-+ gdb_assert (gdbarch->get_syscall_by_number != NULL);
-+ if (gdbarch_debug >= 2)
-+ fprintf_unfiltered (gdb_stdlog, "gdbarch_get_syscall_by_number called\n");
-+ gdbarch->get_syscall_by_number (gdbarch, syscall_number, s);
-+}
++ def invoke (self, arg, from_tty):
++ type = gdb.lookup_type (arg)
++ type = type.strip_typedefs ()
++ if type.code != gdb.TYPE_CODE_STRUCT:
++ raise TypeError, '%s is not a struct type' % arg
++ print ' ' * 14,
++ self.pahole (type, 0, '')
+
-+void
-+set_gdbarch_get_syscall_by_number (struct gdbarch *gdbarch,
-+ gdbarch_get_syscall_by_number_ftype get_syscall_by_number)
-+{
-+ gdbarch->get_syscall_by_number = get_syscall_by_number;
-+}
++Pahole()
+Index: gdb-7.2.90.20110703/gdb/python/lib/gdb/command/require.py
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/python/lib/gdb/command/require.py 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,57 @@
++# Demand-loading commands.
+
-+int
-+gdbarch_get_syscall_by_name_p (struct gdbarch *gdbarch)
-+{
-+ gdb_assert (gdbarch != NULL);
-+ return gdbarch->get_syscall_by_name != NULL;
-+}
++# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+
-+void
-+gdbarch_get_syscall_by_name (struct gdbarch *gdbarch, const char *syscall_name, struct syscall *s)
-+{
-+ gdb_assert (gdbarch != NULL);
-+ gdb_assert (gdbarch->get_syscall_by_name != NULL);
-+ if (gdbarch_debug >= 2)
-+ fprintf_unfiltered (gdb_stdlog, "gdbarch_get_syscall_by_name called\n");
-+ gdbarch->get_syscall_by_name (gdbarch, syscall_name, s);
-+}
++# 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/>.
+
-+void
-+set_gdbarch_get_syscall_by_name (struct gdbarch *gdbarch,
-+ gdbarch_get_syscall_by_name_ftype get_syscall_by_name)
-+{
-+ gdbarch->get_syscall_by_name = get_syscall_by_name;
-+}
++import gdb
++import os
+
-+int
-+gdbarch_get_syscall_names_p (struct gdbarch *gdbarch)
-+{
-+ gdb_assert (gdbarch != NULL);
-+ return gdbarch->get_syscall_names != NULL;
-+}
++class RequireCommand (gdb.Command):
++ """Prefix command for requiring features."""
+
-+const char **
-+gdbarch_get_syscall_names (struct gdbarch *gdbarch)
-+{
-+ gdb_assert (gdbarch != NULL);
-+ gdb_assert (gdbarch->get_syscall_names != NULL);
-+ if (gdbarch_debug >= 2)
-+ fprintf_unfiltered (gdb_stdlog, "gdbarch_get_syscall_names called\n");
-+ return gdbarch->get_syscall_names (gdbarch);
-+}
++ def __init__ (self):
++ super (RequireCommand, self).__init__ ("require",
++ gdb.COMMAND_SUPPORT,
++ gdb.COMPLETE_NONE,
++ True)
+
-+void
-+set_gdbarch_get_syscall_names (struct gdbarch *gdbarch,
-+ gdbarch_get_syscall_names_ftype get_syscall_names)
-+{
-+ gdbarch->get_syscall_names = get_syscall_names;
-+}
++class RequireSubcommand (gdb.Command):
++ """Demand-load a command by name."""
+
-+const char *
-+gdbarch_xml_syscall_filename (struct gdbarch *gdbarch)
-+{
-+ gdb_assert (gdbarch != NULL);
-+ /* Skip verify of xml_syscall_filename, invalid_p == 0 */
-+ if (gdbarch_debug >= 2)
-+ fprintf_unfiltered (gdb_stdlog, "gdbarch_xml_syscall_filename called\n");
-+ return gdbarch->xml_syscall_filename;
-+}
++ def __init__ (self, name):
++ self.__doc__ = "Demand-load a %s by name." % name
++ super (RequireSubcommand, self).__init__ ("require %s" % name,
++ gdb.COMMAND_SUPPORT)
++ self.name = name
+
-+void
-+set_gdbarch_xml_syscall_filename (struct gdbarch *gdbarch,
-+ const char * xml_syscall_filename)
-+{
-+ gdbarch->xml_syscall_filename = xml_syscall_filename;
-+}
++ def invoke (self, arg, from_tty):
++ for cmd in arg.split():
++ exec ('import gdb.' + self.name + '.' + cmd, globals ())
+
-+int
- gdbarch_has_global_solist (struct gdbarch *gdbarch)
- {
- gdb_assert (gdbarch != NULL);
-diff --git a/gdb/gdbarch.h b/gdb/gdbarch.h
-index 04c8920..017b9df 100644
---- a/gdb/gdbarch.h
-+++ b/gdb/gdbarch.h
-@@ -52,6 +52,7 @@ struct bp_target_info;
- struct target_desc;
- struct displaced_step_closure;
- struct core_regset_section;
-+struct syscall;
-
- extern struct gdbarch *current_gdbarch;
- extern struct gdbarch *target_gdbarch;
-@@ -839,6 +840,47 @@ typedef void (gdbarch_record_special_symbol_ftype) (struct gdbarch *gdbarch, str
- extern void gdbarch_record_special_symbol (struct gdbarch *gdbarch, struct objfile *objfile, asymbol *sym);
- extern void set_gdbarch_record_special_symbol (struct gdbarch *gdbarch, gdbarch_record_special_symbol_ftype *record_special_symbol);
-
-+/* Functions for the 'catch syscall' feature.
-+ Get architecture-specific system calls information from registers. */
++ def complete (self, text, word):
++ dir = gdb.pythondir + '/gdb/' + self.name
++ result = []
++ for file in os.listdir(dir):
++ if not file.startswith (word) or not file.endswith ('.py'):
++ continue
++ feature = file[0:-3]
++ if feature == 'require' or feature == '__init__':
++ continue
++ result.append (feature)
++ return result
+
-+extern int gdbarch_get_syscall_number_p (struct gdbarch *gdbarch);
++RequireCommand()
++RequireSubcommand("command")
++RequireSubcommand("function")
+Index: gdb-7.2.90.20110703/gdb/python/lib/gdb/command/upto.py
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/python/lib/gdb/command/upto.py 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,129 @@
++# upto command.
+
-+typedef LONGEST (gdbarch_get_syscall_number_ftype) (struct gdbarch *gdbarch, ptid_t ptid);
-+extern LONGEST gdbarch_get_syscall_number (struct gdbarch *gdbarch, ptid_t ptid);
-+extern void set_gdbarch_get_syscall_number (struct gdbarch *gdbarch, gdbarch_get_syscall_number_ftype *get_syscall_number);
++# Copyright (C) 2009 Free Software Foundation, Inc.
+
-+/* Fills the struct syscall (passed as argument) with the corresponding
-+ system call represented by syscall_number. */
++# 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/>.
+
-+extern int gdbarch_get_syscall_by_number_p (struct gdbarch *gdbarch);
++import gdb
++import re
++from gdb.FrameIterator import FrameIterator
++from gdb.FrameWrapper import FrameWrapper
+
-+typedef void (gdbarch_get_syscall_by_number_ftype) (struct gdbarch *gdbarch, int syscall_number, struct syscall *s);
-+extern void gdbarch_get_syscall_by_number (struct gdbarch *gdbarch, int syscall_number, struct syscall *s);
-+extern void set_gdbarch_get_syscall_by_number (struct gdbarch *gdbarch, gdbarch_get_syscall_by_number_ftype *get_syscall_by_number);
++class UptoPrefix (gdb.Command):
++ def __init__ (self):
++ super (UptoPrefix, self).__init__ ("upto", gdb.COMMAND_STACK,
++ prefix = True)
++
++class UptoImplementation (gdb.Command):
++ def __init__ (self, subcommand):
++ super (UptoImplementation, self).__init__ ("upto " + subcommand,
++ gdb.COMMAND_STACK)
++
++ def search (self):
++ saved = gdb.selected_frame ()
++ iter = FrameIterator (saved)
++ found = False
++ try:
++ for frame in iter:
++ frame.select ()
++ try:
++ if self.filter (frame):
++ wrapper = FrameWrapper (frame)
++ wrapper.describe (sys.stdout, False)
++ return
++ except:
++ pass
++ except:
++ pass
++ saved.select ()
++ raise RuntimeError, 'Could not find a matching frame'
+
-+/* Fills the struct syscall (passed as argument) with the corresponding
-+ system call represented by syscall_name. */
++ def invoke (self, arg, from_tty):
++ self.rx = re.compile (arg)
++ self.search ()
+
-+extern int gdbarch_get_syscall_by_name_p (struct gdbarch *gdbarch);
++class UptoSymbolCommand (UptoImplementation):
++ """Select and print some calling stack frame, based on symbol.
++The argument is a regular expression. This command moves up the
++stack, stopping at the first frame whose symbol matches the regular
++expression."""
+
-+typedef void (gdbarch_get_syscall_by_name_ftype) (struct gdbarch *gdbarch, const char *syscall_name, struct syscall *s);
-+extern void gdbarch_get_syscall_by_name (struct gdbarch *gdbarch, const char *syscall_name, struct syscall *s);
-+extern void set_gdbarch_get_syscall_by_name (struct gdbarch *gdbarch, gdbarch_get_syscall_by_name_ftype *get_syscall_by_name);
++ def __init__ (self):
++ super (UptoSymbolCommand, self).__init__ ("symbol")
+
-+/* Returns the array containing the syscall names for the architecture. */
++ def filter (self, frame):
++ name = frame.name ()
++ if name is not None:
++ if self.rx.search (name) is not None:
++ return True
++ return False
+
-+extern int gdbarch_get_syscall_names_p (struct gdbarch *gdbarch);
++class UptoSourceCommand (UptoImplementation):
++ """Select and print some calling stack frame, based on source file.
++The argument is a regular expression. This command moves up the
++stack, stopping at the first frame whose source file name matches the
++regular expression."""
+
-+typedef const char ** (gdbarch_get_syscall_names_ftype) (struct gdbarch *gdbarch);
-+extern const char ** gdbarch_get_syscall_names (struct gdbarch *gdbarch);
-+extern void set_gdbarch_get_syscall_names (struct gdbarch *gdbarch, gdbarch_get_syscall_names_ftype *get_syscall_names);
++ def __init__ (self):
++ super (UptoSourceCommand, self).__init__ ("source")
+
-+/* Stores the name of syscall's XML file. Contains NULL if the file
-+ was not set. */
++ def filter (self, frame):
++ name = frame.find_sal ().symtab.filename
++ if name is not None:
++ if self.rx.search (name) is not None:
++ return True
++ return False
+
-+extern const char * gdbarch_xml_syscall_filename (struct gdbarch *gdbarch);
-+extern void set_gdbarch_xml_syscall_filename (struct gdbarch *gdbarch, const char * xml_syscall_filename);
++class UptoObjectCommand (UptoImplementation):
++ """Select and print some calling stack frame, based on object file.
++The argument is a regular expression. This command moves up the
++stack, stopping at the first frame whose object file name matches the
++regular expression."""
+
- /* True if the list of shared libraries is one and only for all
- processes, as opposed to a list of shared libraries per inferior.
- When this property is true, GDB assumes that since shared libraries
-@@ -848,6 +890,9 @@ extern void set_gdbarch_record_special_symbol (struct gdbarch *gdbarch, gdbarch_
- extern int gdbarch_has_global_solist (struct gdbarch *gdbarch);
- extern void set_gdbarch_has_global_solist (struct gdbarch *gdbarch, int has_global_solist);
-
-+/* Definition for an unknown syscall, used basically in error-cases. */
-+#define UNKNOWN_SYSCALL (-1)
++ def __init__ (self):
++ super (UptoObjectCommand, self).__init__ ("object")
+
- extern struct gdbarch_tdep *gdbarch_tdep (struct gdbarch *gdbarch);
-
-
-diff --git a/gdb/gdbarch.sh b/gdb/gdbarch.sh
-index f93bfc1..66cbcd0 100755
---- a/gdb/gdbarch.sh
-+++ b/gdb/gdbarch.sh
-@@ -724,6 +724,26 @@ M:struct type *:get_siginfo_type:void:
- # Record architecture-specific information from the symbol table.
- M:void:record_special_symbol:struct objfile *objfile, asymbol *sym:objfile, sym
-
-+# Functions for the 'catch syscall' feature.
++ def filter (self, frame):
++ name = frame.find_sal ().symtab.objfile.filename
++ if name is not None:
++ if self.rx.search (name) is not None:
++ return True
++ return False
+
-+# Get architecture-specific system calls information from registers.
-+M:LONGEST:get_syscall_number:ptid_t ptid:ptid
++class UptoWhereCommand (UptoImplementation):
++ """Select and print some calling stack frame, based on expression.
++The argument is an expression. This command moves up the stack,
++parsing and evaluating the expression in each frame. This stops when
++the expression evaluates to a non-zero (true) value."""
+
-+# Fills the struct syscall (passed as argument) with the corresponding
-+# system call represented by syscall_number.
-+M:void:get_syscall_by_number:int syscall_number, struct syscall *s:syscall_number, s
++ def __init__ (self):
++ super (UptoWhereCommand, self).__init__ ("where")
+
-+# Fills the struct syscall (passed as argument) with the corresponding
-+# system call represented by syscall_name.
-+M:void:get_syscall_by_name:const char *syscall_name, struct syscall *s:syscall_name, s
++ def filter (self, frame):
++ try:
++ if gdb.parse_and_eval (self.expression):
++ return True
++ except:
++ pass
++ return False
+
-+# Returns the array containing the syscall names for the architecture.
-+M:const char **:get_syscall_names:void:
++ def invoke (self, arg, from_tty):
++ self.expression = arg
++ self.search ()
++
++UptoPrefix ()
++UptoSymbolCommand ()
++UptoSourceCommand ()
++UptoObjectCommand ()
++UptoWhereCommand ()
+Index: gdb-7.2.90.20110703/gdb/python/lib/gdb/function/__init__.py
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/python/lib/gdb/function/__init__.py 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1 @@
+
-+# Stores the name of syscall's XML file. Contains NULL if the file
-+# was not set.
-+v:const char *:xml_syscall_filename:::0:0::0:gdbarch->xml_syscall_filename
+Index: gdb-7.2.90.20110703/gdb/python/lib/gdb/function/caller_is.py
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/python/lib/gdb/function/caller_is.py 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,58 @@
++# Caller-is functions.
+
- # True if the list of shared libraries is one and only for all
- # processes, as opposed to a list of shared libraries per inferior.
- # When this property is true, GDB assumes that since shared libraries
-@@ -842,6 +862,7 @@ struct bp_target_info;
- struct target_desc;
- struct displaced_step_closure;
- struct core_regset_section;
-+struct syscall;
-
- extern struct gdbarch *current_gdbarch;
- extern struct gdbarch *target_gdbarch;
-@@ -911,6 +932,9 @@ done
- # close it off
- cat <<EOF
-
-+/* Definition for an unknown syscall, used basically in error-cases. */
-+#define UNKNOWN_SYSCALL (-1)
++# Copyright (C) 2008 Free Software Foundation, Inc.
+
- extern struct gdbarch_tdep *gdbarch_tdep (struct gdbarch *gdbarch);
-
-
-diff --git a/gdb/gdbinit.in b/gdb/gdbinit.in
-index ffb7f53..a2e7e94 100644
---- a/gdb/gdbinit.in
-+++ b/gdb/gdbinit.in
-@@ -1,5 +1,15 @@
- echo Setting up the environment for debugging gdb.\n
-
-+# Set up the Python library and "require" command.
-+python
-+from os.path import abspath
-+gdb.datadir = abspath ('@srcdir@/python/lib')
-+gdb.pythonlibdir = gdb.datadir
-+gdb.__path__ = [gdb.datadir + '/gdb']
-+sys.path.insert(0, gdb.datadir)
-+end
-+source @srcdir@/python/lib/gdb/__init__.py
++# 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/>.
+
- set complaints 1
-
- b internal_error
-diff --git a/gdb/gdbthread.h b/gdb/gdbthread.h
-index 3a405a8..a2e2636 100644
---- a/gdb/gdbthread.h
-+++ b/gdb/gdbthread.h
-@@ -228,6 +228,9 @@ struct thread_info *find_thread_id (int num);
- /* Change the ptid of thread OLD_PTID to NEW_PTID. */
- void thread_change_ptid (ptid_t old_ptid, ptid_t new_ptid);
-
-+/* Prune dead threads from the list of threads. */
-+extern void prune_threads (void);
-+
- /* Iterator function to call a user-provided callback function
- once for each known thread. */
- typedef int (*thread_callback_func) (struct thread_info *, void *);
-diff --git a/gdb/gdbtypes.c b/gdb/gdbtypes.c
-index 8102321..012485c 100644
---- a/gdb/gdbtypes.c
-+++ b/gdb/gdbtypes.c
-@@ -38,6 +38,8 @@
- #include "cp-abi.h"
- #include "gdb_assert.h"
- #include "hashtab.h"
-+#include "dwarf2expr.h"
-+#include "dwarf2loc.h"
-
- /* These variables point to the objects
- representing the predefined C data types. */
-@@ -146,6 +148,23 @@ static void print_bit_vector (B_TYPE *, int);
- static void print_arg_types (struct field *, int, int);
- static void dump_fn_fieldlists (struct type *, int);
- static void print_cplus_stuff (struct type *, int);
-+static void type_init_refc (struct type *new_type, struct type *parent_type);
++import gdb
++import re
+
-+/* A reference count structure for the type reference count map. Each
-+ type in a hierarchy of types is mapped to the same reference
-+ count. */
-+struct type_refc_entry
-+{
-+ /* One type in the hierarchy. Each type in the hierarchy gets its
-+ own slot. */
-+ struct type *type;
++class CallerIs (gdb.Function):
++ """Return True if the calling function's name is equal to a string.
++This function takes one or two arguments.
++The first argument is the name of a function; if the calling function's
++name is equal to this argument, this function returns True.
++The optional second argument tells this function how many stack frames
++to traverse to find the calling function. The default is 1."""
+
-+ /* A pointer to the shared reference count. */
-+ int *refc;
-+};
++ def __init__ (self):
++ super (CallerIs, self).__init__ ("caller_is")
+
-+/* The hash table holding all reference counts. */
-+static htab_t type_refc_table;
-
-
- /* Alloc a new type structure and fill it with some defaults. If
-@@ -154,23 +173,25 @@ static void print_cplus_stuff (struct type *, int);
- structure by xmalloc () (for permanent types). */
-
- struct type *
--alloc_type (struct objfile *objfile)
-+alloc_type (struct objfile *objfile, struct type *parent)
- {
- struct type *type;
-
- /* Alloc the structure and start off with all fields zeroed. */
-
-- if (objfile == NULL)
-+ switch ((long) objfile)
- {
-+ case (long) OBJFILE_INTERNAL:
-+ case (long) OBJFILE_MALLOC:
- type = XZALLOC (struct type);
- TYPE_MAIN_TYPE (type) = XZALLOC (struct main_type);
-- }
-- else
-- {
-+ break;
-+ default:
- type = OBSTACK_ZALLOC (&objfile->objfile_obstack, struct type);
- TYPE_MAIN_TYPE (type) = OBSTACK_ZALLOC (&objfile->objfile_obstack,
- struct main_type);
- OBJSTAT (objfile, n_types++);
-+ break;
- }
++ def invoke (self, name, nframes = 1):
++ frame = gdb.selected_frame ()
++ while nframes > 0:
++ frame = frame.older ()
++ nframes = nframes - 1
++ return frame.name () == name.string ()
++
++class CallerMatches (gdb.Function):
++ """Return True if the calling function's name matches a string.
++This function takes one or two arguments.
++The first argument is a regular expression; if the calling function's
++name is matched by this argument, this function returns True.
++The optional second argument tells this function how many stack frames
++to traverse to find the calling function. The default is 1."""
++
++ def __init__ (self):
++ super (CallerMatches, self).__init__ ("caller_matches")
++
++ def invoke (self, name, nframes = 1):
++ frame = gdb.selected_frame ()
++ while nframes > 0:
++ frame = frame.older ()
++ nframes = nframes - 1
++ return re.match (name.string (), frame.name ()) is not None
++
++CallerIs()
++CallerMatches()
+Index: gdb-7.2.90.20110703/gdb/python/lib/gdb/function/in_scope.py
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/python/lib/gdb/function/in_scope.py 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,47 @@
++# In-scope function.
++
++# Copyright (C) 2008 Free Software Foundation, Inc.
++
++# 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/>.
++
++import gdb
++
++class InScope (gdb.Function):
++ """Return True if all the given variables or macros are in scope.
++Takes one argument for each variable name to be checked."""
++
++ def __init__ (self):
++ super (InScope, self).__init__ ("in_scope")
++
++ def invoke (self, *vars):
++ if len (vars) == 0:
++ raise TypeError, "in_scope takes at least one argument"
++
++ # gdb.Value isn't hashable so it can't be put in a map.
++ # Convert to string first.
++ wanted = set (map (lambda x: x.string (), vars))
++ found = set ()
++ block = gdb.selected_frame ().block ()
++ while block:
++ for sym in block:
++ if (sym.is_argument or sym.is_constant
++ or sym.is_function or sym.is_variable):
++ if sym.name in wanted:
++ found.add (sym.name)
++
++ block = block.superblock
++
++ return wanted == found
++
++InScope ()
+Index: gdb-7.2.90.20110703/gdb/python/py-type.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/python/py-type.c 2011-01-26 21:53:45.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/python/py-type.c 2011-07-03 10:33:11.000000000 +0200
+@@ -29,6 +29,8 @@
+ #include "language.h"
+ #include "vec.h"
+ #include "bcache.h"
++#include "observer.h"
++#include "gdb_assert.h"
- /* Initialize the fields that might not be zero. */
-@@ -180,6 +201,9 @@ alloc_type (struct objfile *objfile)
- TYPE_VPTR_FIELDNO (type) = -1;
- TYPE_CHAIN (type) = type; /* Chain back to itself. */
+ typedef struct pyty_type_object
+ {
+@@ -37,11 +39,19 @@ typedef struct pyty_type_object
-+ if (objfile == NULL)
-+ type_init_refc (type, parent);
+ /* If a Type object is associated with an objfile, it is kept on a
+ doubly-linked list, rooted in the objfile. This lets us copy the
+- underlying struct type when the objfile is deleted. */
++ underlying struct type when the objfile is deleted.
+
- return (type);
- }
++ With NULL objfile Type still can be doubly-linked in the list
++ PYTY_OBJECTS_DISCARDABLE. */
+ struct pyty_type_object *prev;
+ struct pyty_type_object *next;
+ } type_object;
-@@ -194,16 +218,24 @@ alloc_type_instance (struct type *oldtype)
++#if 0
++/* First element of a doubly-linked list of TYPE_DISCARDABLE Types. */
++static type_object *pyty_objects_discardable;
++#endif
++
+ static PyTypeObject type_object_type;
- /* Allocate the structure. */
+ /* A Field object. */
+@@ -919,8 +929,63 @@ typy_richcompare (PyObject *self, PyObje
-- if (TYPE_OBJFILE (oldtype) == NULL)
-- type = XZALLOC (struct type);
-- else
-- type = OBSTACK_ZALLOC (&TYPE_OBJFILE (oldtype)->objfile_obstack,
-- struct type);
--
-+ switch ((long) TYPE_OBJFILE (oldtype))
-+ {
-+ case (long) OBJFILE_INTERNAL:
-+ case (long) OBJFILE_MALLOC:
-+ type = XZALLOC (struct type);
-+ break;
-+ default:
-+ type = OBSTACK_ZALLOC (&TYPE_OBJFILE (oldtype)->objfile_obstack,
-+ struct type);
-+ break;
-+ }
- TYPE_MAIN_TYPE (type) = TYPE_MAIN_TYPE (oldtype);
+ \f
- TYPE_CHAIN (type) = type; /* Chain back to itself for now. */
++/* Key associated with each objfile pointing to the first element of
++ a doubly-linked list of Types associated with this objfile. */
+ static const struct objfile_data *typy_objfile_data_key;
-+ if (TYPE_OBJFILE (oldtype) == NULL)
-+ type_init_refc (type, oldtype);
++/* Link TYPE_OBJ to its appropriate list. Either to its objfile associated one
++ or at least to the global list for TYPE_DISCARDABLE Types. Permanent types
++ do not get linked anywhere. */
++static void
++typy_link (type_object *type_obj)
++{
++ type_obj->prev = NULL;
+
- return (type);
- }
-
-@@ -248,7 +280,7 @@ make_pointer_type (struct type *type, struct type **typeptr)
-
- if (typeptr == 0 || *typeptr == 0) /* We'll need to allocate one. */
- {
-- ntype = alloc_type (TYPE_OBJFILE (type));
-+ ntype = alloc_type (TYPE_OBJFILE (type), type);
- if (typeptr)
- *typeptr = ntype;
- }
-@@ -260,6 +292,9 @@ make_pointer_type (struct type *type, struct type **typeptr)
- smash_type (ntype);
- TYPE_CHAIN (ntype) = chain;
- TYPE_OBJFILE (ntype) = objfile;
++ if (type_obj->type && TYPE_OBJFILE (type_obj->type))
++ {
++ struct objfile *objfile = TYPE_OBJFILE (type_obj->type);
+
-+ /* Callers may only supply storage if there is an objfile. */
-+ gdb_assert (objfile);
- }
++ type_obj->next = objfile_data (objfile, typy_objfile_data_key);
++ if (type_obj->next)
++ type_obj->next->prev = type_obj;
++ set_objfile_data (objfile, typy_objfile_data_key, type_obj);
++ }
++#if 0
++ else if (type_obj->type && TYPE_DISCARDABLE (type_obj->type))
++ {
++ type_obj->next = pyty_objects_discardable;
++ if (type_obj->next)
++ type_obj->next->prev = type_obj;
++ pyty_objects_discardable = type_obj;
++ }
++#endif
++ else
++ type_obj->next = NULL;
++}
++
++/* Unlink TYPE_OBJ from its current list. Permanent types are not linked
++ anywhere and this function has no effect on them. */
++static void
++typy_unlink (type_object *type_obj)
++{
++ if (type_obj->prev)
++ type_obj->prev->next = type_obj->next;
++ else if (type_obj->type && TYPE_OBJFILE (type_obj->type))
++ {
++ /* Must reset head of list. */
++ struct objfile *objfile = TYPE_OBJFILE (type_obj->type);
++
++ set_objfile_data (objfile, typy_objfile_data_key, type_obj->next);
++ }
++#if 0
++ else if (pyty_objects_discardable == type_obj)
++ pyty_objects_discardable = type_obj->next;
++#endif
++
++ if (type_obj->next)
++ type_obj->next->prev = type_obj->prev;
++}
++
+ static void
+ save_objfile_types (struct objfile *objfile, void *datum)
+ {
+@@ -938,12 +1003,13 @@ save_objfile_types (struct objfile *objf
+ {
+ type_object *next = obj->next;
- TYPE_TARGET_TYPE (ntype) = type;
-@@ -328,7 +363,7 @@ make_reference_type (struct type *type, struct type **typeptr)
+- htab_empty (copied_types);
++ gdb_assert (TYPE_OBJFILE (obj->type) == objfile);
++ typy_unlink (obj);
- if (typeptr == 0 || *typeptr == 0) /* We'll need to allocate one. */
- {
-- ntype = alloc_type (TYPE_OBJFILE (type));
-+ ntype = alloc_type (TYPE_OBJFILE (type), type);
- if (typeptr)
- *typeptr = ntype;
- }
-@@ -340,6 +375,9 @@ make_reference_type (struct type *type, struct type **typeptr)
- smash_type (ntype);
- TYPE_CHAIN (ntype) = chain;
- TYPE_OBJFILE (ntype) = objfile;
-+
-+ /* Callers may only supply storage if there is an objfile. */
-+ gdb_assert (objfile);
- }
+- obj->type = copy_type_recursive (objfile, obj->type, copied_types);
++ obj->type = copy_type_recursive (obj->type, copied_types);
- TYPE_TARGET_TYPE (ntype) = type;
-@@ -388,7 +426,7 @@ make_function_type (struct type *type, struct type **typeptr)
+- obj->next = NULL;
+- obj->prev = NULL;
++ gdb_assert (TYPE_OBJFILE (obj->type) == NULL);
++ typy_link (obj);
- if (typeptr == 0 || *typeptr == 0) /* We'll need to allocate one. */
- {
-- ntype = alloc_type (TYPE_OBJFILE (type));
-+ ntype = alloc_type (TYPE_OBJFILE (type), type);
- if (typeptr)
- *typeptr = ntype;
+ obj = next;
}
-@@ -398,6 +436,9 @@ make_function_type (struct type *type, struct type **typeptr)
- objfile = TYPE_OBJFILE (ntype);
- smash_type (ntype);
- TYPE_OBJFILE (ntype) = objfile;
+@@ -954,43 +1020,28 @@ save_objfile_types (struct objfile *objf
+ }
+
+ static void
+-set_type (type_object *obj, struct type *type)
++typy_dealloc (PyObject *obj)
+ {
+- obj->type = type;
+- obj->prev = NULL;
+- if (type && TYPE_OBJFILE (type))
+- {
+- struct objfile *objfile = TYPE_OBJFILE (type);
+-
+- obj->next = objfile_data (objfile, typy_objfile_data_key);
+- if (obj->next)
+- obj->next->prev = obj;
+- set_objfile_data (objfile, typy_objfile_data_key, obj);
+- }
+- else
+- obj->next = NULL;
++ type_object *type_obj = (type_object *) obj;
+
-+ /* Callers may only supply storage if there is an objfile. */
-+ gdb_assert (objfile);
- }
++ typy_unlink (type_obj);
++
++ type_obj->ob_type->tp_free (obj);
+ }
- TYPE_TARGET_TYPE (ntype) = type;
-@@ -643,7 +684,7 @@ lookup_memberptr_type (struct type *type, struct type *domain)
++#if 0
++/* Call type_mark_used for any TYPEs referenced from this GDB source file. */
+ static void
+-typy_dealloc (PyObject *obj)
++typy_types_mark_used (void)
{
- struct type *mtype;
+- type_object *type = (type_object *) obj;
+-
+- if (type->prev)
+- type->prev->next = type->next;
+- else if (type->type && TYPE_OBJFILE (type->type))
+- {
+- /* Must reset head of list. */
+- struct objfile *objfile = TYPE_OBJFILE (type->type);
+-
+- if (objfile)
+- set_objfile_data (objfile, typy_objfile_data_key, type->next);
+- }
+- if (type->next)
+- type->next->prev = type->prev;
++ type_object *type_obj;
-- mtype = alloc_type (TYPE_OBJFILE (type));
-+ mtype = alloc_type (TYPE_OBJFILE (type), NULL);
- smash_to_memberptr_type (mtype, domain, type);
- return (mtype);
+- type->ob_type->tp_free (type);
++ for (type_obj = pyty_objects_discardable;
++ type_obj != NULL;
++ type_obj = type_obj->next)
++ type_mark_used (type_obj->type);
}
-@@ -655,7 +696,7 @@ lookup_methodptr_type (struct type *to_type)
- {
- struct type *mtype;
-
-- mtype = alloc_type (TYPE_OBJFILE (to_type));
-+ mtype = alloc_type (TYPE_OBJFILE (to_type), NULL);
- TYPE_TARGET_TYPE (mtype) = to_type;
- TYPE_DOMAIN_TYPE (mtype) = TYPE_DOMAIN_TYPE (to_type);
- TYPE_LENGTH (mtype) = cplus_method_ptr_size (to_type);
-@@ -696,19 +737,20 @@ create_range_type (struct type *result_type, struct type *index_type,
- int low_bound, int high_bound)
- {
- if (result_type == NULL)
-- result_type = alloc_type (TYPE_OBJFILE (index_type));
-+ result_type = alloc_type (TYPE_OBJFILE (index_type), index_type);
- TYPE_CODE (result_type) = TYPE_CODE_RANGE;
- TYPE_TARGET_TYPE (result_type) = index_type;
- if (TYPE_STUB (index_type))
- TYPE_TARGET_STUB (result_type) = 1;
- else
- TYPE_LENGTH (result_type) = TYPE_LENGTH (check_typedef (index_type));
-- TYPE_NFIELDS (result_type) = 2;
-+ TYPE_NFIELDS (result_type) = 3;
- TYPE_FIELDS (result_type) = TYPE_ZALLOC (result_type,
- TYPE_NFIELDS (result_type)
- * sizeof (struct field));
- TYPE_LOW_BOUND (result_type) = low_bound;
- TYPE_HIGH_BOUND (result_type) = high_bound;
-+ TYPE_BYTE_STRIDE (result_type) = 0;
++#endif
- if (low_bound >= 0)
- TYPE_UNSIGNED (result_type) = 1;
-@@ -727,6 +769,9 @@ get_discrete_bounds (struct type *type, LONGEST *lowp, LONGEST *highp)
- switch (TYPE_CODE (type))
- {
- case TYPE_CODE_RANGE:
-+ if (TYPE_RANGE_UPPER_BOUND_IS_UNDEFINED (type)
-+ || TYPE_RANGE_LOWER_BOUND_IS_UNDEFINED (type))
-+ return -1;
- *lowp = TYPE_LOW_BOUND (type);
- *highp = TYPE_HIGH_BOUND (type);
- return 1;
-@@ -805,30 +850,56 @@ create_array_type (struct type *result_type,
-
- if (result_type == NULL)
- {
-- result_type = alloc_type (TYPE_OBJFILE (range_type));
-+ result_type = alloc_type (TYPE_OBJFILE (range_type), range_type);
- }
-+ else
-+ {
-+ /* Callers may only supply storage if there is an objfile. */
-+ gdb_assert (TYPE_OBJFILE (result_type));
-+ }
-+
- TYPE_CODE (result_type) = TYPE_CODE_ARRAY;
- TYPE_TARGET_TYPE (result_type) = element_type;
-- if (get_discrete_bounds (range_type, &low_bound, &high_bound) < 0)
-- low_bound = high_bound = 0;
-- CHECK_TYPEDEF (element_type);
-- /* Be careful when setting the array length. Ada arrays can be
-- empty arrays with the high_bound being smaller than the low_bound.
-- In such cases, the array length should be zero. */
-- if (high_bound < low_bound)
-- TYPE_LENGTH (result_type) = 0;
-- else
-- TYPE_LENGTH (result_type) =
-- TYPE_LENGTH (element_type) * (high_bound - low_bound + 1);
- TYPE_NFIELDS (result_type) = 1;
- TYPE_FIELDS (result_type) =
- (struct field *) TYPE_ZALLOC (result_type, sizeof (struct field));
-+ /* FIXME: type alloc. */
- TYPE_INDEX_TYPE (result_type) = range_type;
- TYPE_VPTR_FIELDNO (result_type) = -1;
+ /* Create a new Type referring to TYPE. */
+ PyObject *
+@@ -1000,7 +1051,10 @@ type_to_type_object (struct type *type)
-- /* TYPE_FLAG_TARGET_STUB will take care of zero length arrays */
-+ /* DWARF blocks may depend on runtime information like
-+ DW_OP_PUSH_OBJECT_ADDRESS not being available during the
-+ CREATE_ARRAY_TYPE time. */
-+ if (TYPE_RANGE_BOUND_IS_DWARF_BLOCK (range_type, 0)
-+ || TYPE_RANGE_BOUND_IS_DWARF_BLOCK (range_type, 1)
-+ || TYPE_RANGE_UPPER_BOUND_IS_UNDEFINED (range_type)
-+ || TYPE_RANGE_LOWER_BOUND_IS_UNDEFINED (range_type)
-+ || get_discrete_bounds (range_type, &low_bound, &high_bound) < 0)
-+ {
-+ low_bound = 0;
-+ high_bound = -1;
-+ }
-+
-+ /* Be careful when setting the array length. Ada arrays can be
-+ empty arrays with the high_bound being smaller than the low_bound.
-+ In such cases, the array length should be zero. TYPE_TARGET_STUB needs to
-+ be checked as it may have dependencies on DWARF blocks depending on
-+ runtime information not available during the CREATE_ARRAY_TYPE time. */
-+ if (high_bound < low_bound || TYPE_TARGET_STUB (element_type))
-+ TYPE_LENGTH (result_type) = 0;
-+ else
-+ {
-+ CHECK_TYPEDEF (element_type);
-+ TYPE_LENGTH (result_type) =
-+ TYPE_LENGTH (element_type) * (high_bound - low_bound + 1);
-+ }
-+
- if (TYPE_LENGTH (result_type) == 0)
-- TYPE_TARGET_STUB (result_type) = 1;
+ type_obj = PyObject_New (type_object, &type_object_type);
+ if (type_obj)
+- set_type (type_obj, type);
+ {
-+ /* The real size will be computed for specific instances by
-+ CHECK_TYPEDEF. */
-+ TYPE_TARGET_STUB (result_type) = 1;
++ type_obj->type = type;
++ typy_link (type_obj);
+ }
- return (result_type);
- }
-@@ -865,7 +936,12 @@ create_set_type (struct type *result_type, struct type *domain_type)
- {
- if (result_type == NULL)
- {
-- result_type = alloc_type (TYPE_OBJFILE (domain_type));
-+ result_type = alloc_type (TYPE_OBJFILE (domain_type), domain_type);
-+ }
-+ else
-+ {
-+ /* Callers may only supply storage if there is an objfile. */
-+ gdb_assert (TYPE_OBJFILE (result_type));
- }
- TYPE_CODE (result_type) = TYPE_CODE_SET;
- TYPE_NFIELDS (result_type) = 1;
-@@ -1368,6 +1444,84 @@ stub_noname_complaint (void)
- complaint (&symfile_complaints, _("stub type has NULL name"));
+ return (PyObject *) type_obj;
}
+@@ -1074,6 +1128,10 @@ gdbpy_initialize_types (void)
-+/* Calculate the memory length of array TYPE.
+ Py_INCREF (&field_object_type);
+ PyModule_AddObject (gdb_module, "Field", (PyObject *) &field_object_type);
+
-+ TARGET_TYPE should be set to `check_typedef (TYPE_TARGET_TYPE (type))' as
-+ a performance hint. Feel free to pass NULL. Set FULL_SPAN to return the
-+ size incl. the possible padding of the last element - it may differ from the
-+ cleared FULL_SPAN return value (the expected SIZEOF) for non-zero
-+ TYPE_BYTE_STRIDE values. */
++#if 0
++ observer_attach_mark_used (typy_types_mark_used);
++#endif
+ }
+
+ \f
+Index: gdb-7.2.90.20110703/gdb/python/py-value.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/python/py-value.c 2011-03-18 17:09:57.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/python/py-value.c 2011-07-03 10:33:11.000000000 +0200
+@@ -28,6 +28,7 @@
+ #include "infcall.h"
+ #include "expression.h"
+ #include "cp-abi.h"
++#include "observer.h"
+
+ #ifdef HAVE_PYTHON
+
+@@ -1210,6 +1211,19 @@ gdbpy_is_value_object (PyObject *obj)
+ return PyObject_TypeCheck (obj, &value_object_type);
+ }
+
++#if 0
++/* Call type_mark_used for any TYPEs referenced from this GDB source file. */
+
-+static CORE_ADDR
-+type_length_get (struct type *type, struct type *target_type, int full_span)
++static void
++python_types_mark_used (void)
+{
-+ struct type *range_type;
-+ int count;
-+ CORE_ADDR byte_stride = 0; /* `= 0' for a false GCC warning. */
-+ CORE_ADDR element_size;
-+
-+ if (TYPE_CODE (type) != TYPE_CODE_ARRAY
-+ && TYPE_CODE (type) != TYPE_CODE_STRING)
-+ return TYPE_LENGTH (type);
++ value_object *iter;
+
-+ /* Avoid executing TYPE_HIGH_BOUND for invalid (unallocated/unassociated)
-+ Fortran arrays. The allocated data will never be used so they can be
-+ zero-length. */
-+ if (object_address_data_not_valid (type))
-+ return 0;
++ for (iter = values_in_python; iter; iter = iter->next)
++ type_mark_used (value_type (iter->value));
++}
++#endif
+
-+ range_type = TYPE_INDEX_TYPE (type);
-+ if (TYPE_RANGE_LOWER_BOUND_IS_UNDEFINED (range_type)
-+ || TYPE_RANGE_UPPER_BOUND_IS_UNDEFINED (range_type))
-+ return 0;
-+ count = TYPE_HIGH_BOUND (range_type) - TYPE_LOW_BOUND (range_type) + 1;
-+ /* It may happen for wrong DWARF annotations returning garbage data. */
-+ if (count < 0)
-+ warning (_("Range for type %s has invalid bounds %d..%d"),
-+ TYPE_NAME (type), TYPE_LOW_BOUND (range_type),
-+ TYPE_HIGH_BOUND (range_type));
-+ /* The code below does not handle count == 0 right. */
-+ if (count <= 0)
-+ return 0;
-+ if (full_span || count > 1)
-+ {
-+ /* We do not use TYPE_ARRAY_BYTE_STRIDE_VALUE (type) here as we want to
-+ force FULL_SPAN to 1. */
-+ byte_stride = TYPE_BYTE_STRIDE (range_type);
-+ if (byte_stride == 0)
-+ {
-+ if (target_type == NULL)
-+ target_type = check_typedef (TYPE_TARGET_TYPE (type));
-+ byte_stride = type_length_get (target_type, NULL, 1);
-+ }
-+ }
-+ if (full_span)
-+ return count * byte_stride;
-+ if (target_type == NULL)
-+ target_type = check_typedef (TYPE_TARGET_TYPE (type));
-+ element_size = type_length_get (target_type, NULL, 1);
-+ return (count - 1) * byte_stride + element_size;
-+}
+ void
+ gdbpy_initialize_values (void)
+ {
+@@ -1220,6 +1234,10 @@ gdbpy_initialize_values (void)
+ PyModule_AddObject (gdb_module, "Value", (PyObject *) &value_object_type);
+
+ values_in_python = NULL;
+
-+/* Prepare TYPE after being read in by the backend. Currently this function
-+ only propagates the TYPE_DYNAMIC flag. */
++#if 0
++ observer_attach_mark_used (python_types_mark_used);
++#endif
+ }
+
+ \f
+Index: gdb-7.2.90.20110703/gdb/python/python.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/python/python.c 2011-07-02 21:33:10.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/python/python.c 2011-07-03 10:33:11.000000000 +0200
+@@ -49,8 +49,11 @@ static int gdbpy_should_print_stack = 1;
+ #include "linespec.h"
+ #include "source.h"
+ #include "version.h"
++#include "inferior.h"
++#include "gdbthread.h"
+ #include "target.h"
+ #include "gdbthread.h"
++#include "event-top.h"
+
+ static PyMethodDef GdbMethods[];
+
+@@ -769,6 +772,53 @@ gdbpy_print_stack (void)
+
+ /* Return the current Progspace.
+ There always is one. */
++/* True if 'gdb -P' was used, false otherwise. */
++static int running_python_script;
+
-+void
-+finalize_type (struct type *type)
++/* True if we are currently in a call to 'gdb.cli', false otherwise. */
++static int in_cli;
++
++/* Enter the command loop. */
++
++static PyObject *
++gdbpy_cli (PyObject *unused1, PyObject *unused2)
+{
-+ int i;
++ if (! running_python_script || in_cli)
++ return PyErr_Format (PyExc_RuntimeError, "cannot invoke CLI recursively");
+
-+ for (i = 0; i < TYPE_NFIELDS (type); ++i)
-+ if (TYPE_FIELD_TYPE (type, i) && TYPE_DYNAMIC (TYPE_FIELD_TYPE (type, i)))
-+ break;
++ in_cli = 1;
++ cli_command_loop ();
++ in_cli = 0;
+
-+ /* FIXME: cplus_stuff is ignored here. */
-+ if (i < TYPE_NFIELDS (type)
-+ || (TYPE_VPTR_BASETYPE (type) && TYPE_DYNAMIC (TYPE_VPTR_BASETYPE (type)))
-+ || (TYPE_TARGET_TYPE (type) && TYPE_DYNAMIC (TYPE_TARGET_TYPE (type))))
-+ TYPE_DYNAMIC (type) = 1;
++ Py_RETURN_NONE;
+}
+
- /* Added by Bryan Boreham, Kewill, Sun Sep 17 18:07:17 1989.
-
- If this is a stubbed struct (i.e. declared as struct foo *), see if
-@@ -1384,7 +1538,8 @@ stub_noname_complaint (void)
- /* Find the real type of TYPE. This function returns the real type,
- after removing all layers of typedefs and completing opaque or stub
- types. Completion changes the TYPE argument, but stripping of
-- typedefs does not. */
-+ typedefs does not. Still original passed TYPE will have TYPE_LENGTH
-+ updated. FIXME: Remove this dependency (only ada_to_fixed_type?). */
-
- struct type *
- check_typedef (struct type *type)
-@@ -1420,7 +1575,7 @@ check_typedef (struct type *type)
- if (sym)
- TYPE_TARGET_TYPE (type) = SYMBOL_TYPE (sym);
- else /* TYPE_CODE_UNDEF */
-- TYPE_TARGET_TYPE (type) = alloc_type (NULL);
-+ TYPE_TARGET_TYPE (type) = alloc_type (NULL, NULL);
- }
- type = TYPE_TARGET_TYPE (type);
- }
-@@ -1494,34 +1649,37 @@ check_typedef (struct type *type)
- }
- }
-
-- if (TYPE_TARGET_STUB (type))
-+ /* copy_type_recursive automatically makes the resulting type containing only
-+ constant values expected by the callers of this function. */
-+ if (TYPE_DYNAMIC (type))
-+ {
-+ htab_t copied_types;
-+ struct type *type_old = type;
++/* Set up the Python argument vector and evaluate a script. This is
++ used to implement 'gdb -P'. */
+
-+ copied_types = create_copied_types_hash (NULL);
-+ type = copy_type_recursive (type, copied_types);
-+ htab_delete (copied_types);
++void
++run_python_script (int argc, char **argv)
++{
++ FILE *input;
+
-+ gdb_assert (TYPE_DYNAMIC (type) == 0);
-+ }
++ /* We never free this, since we plan to exit at the end. */
++ ensure_python_env (get_current_arch (), current_language);
+
-+ if (!currently_reading_symtab
-+ && (TYPE_TARGET_STUB (type) || TYPE_DYNAMIC (type)))
- {
-- struct type *range_type;
- struct type *target_type = check_typedef (TYPE_TARGET_TYPE (type));
-
-+ if (TYPE_DYNAMIC (type))
-+ TYPE_TARGET_TYPE (type) = target_type;
- if (TYPE_STUB (target_type) || TYPE_TARGET_STUB (target_type))
- {
- /* Empty. */
- }
- else if (TYPE_CODE (type) == TYPE_CODE_ARRAY
-- && TYPE_NFIELDS (type) == 1
-- && (TYPE_CODE (range_type = TYPE_INDEX_TYPE (type))
-- == TYPE_CODE_RANGE))
-+ || TYPE_CODE (type) == TYPE_CODE_STRING)
- {
- /* Now recompute the length of the array type, based on its
-- number of elements and the target type's length.
-- Watch out for Ada null Ada arrays where the high bound
-- is smaller than the low bound. */
-- const int low_bound = TYPE_LOW_BOUND (range_type);
-- const int high_bound = TYPE_HIGH_BOUND (range_type);
-- int nb_elements;
--
-- if (high_bound < low_bound)
-- nb_elements = 0;
-- else
-- nb_elements = high_bound - low_bound + 1;
--
-- TYPE_LENGTH (type) = nb_elements * TYPE_LENGTH (target_type);
-+ number of elements and the target type's length. */
-+ TYPE_LENGTH (type) = type_length_get (type, target_type, 0);
- TYPE_TARGET_STUB (type) = 0;
- }
- else if (TYPE_CODE (type) == TYPE_CODE_RANGE)
-@@ -1529,9 +1687,12 @@ check_typedef (struct type *type)
- TYPE_LENGTH (type) = TYPE_LENGTH (target_type);
- TYPE_TARGET_STUB (type) = 0;
- }
-+ TYPE_DYNAMIC (type) = 0;
- }
++ running_python_script = 1;
++ PySys_SetArgv (argc - 1, argv + 1);
++ input = fopen (argv[0], "r");
++ if (! input)
++ {
++ fprintf (stderr, "could not open %s: %s\n", argv[0], strerror (errno));
++ exit (1);
++ }
++ PyRun_SimpleFile (input, argv[0]);
++ fclose (input);
++ exit (0);
++}
+
- /* Cache TYPE_LENGTH for future use. */
- TYPE_LENGTH (orig_type) = TYPE_LENGTH (type);
++\f
+
- return type;
- }
-@@ -1753,7 +1914,7 @@ init_type (enum type_code code, int length, int flags,
- {
- struct type *type;
-
-- type = alloc_type (objfile);
-+ type = alloc_type (objfile, NULL);
- TYPE_CODE (type) = code;
- TYPE_LENGTH (type) = length;
+ static PyObject *
+ gdbpy_get_current_progspace (PyObject *unused1, PyObject *unused2)
+@@ -1194,6 +1244,8 @@ static PyMethodDef GdbMethods[] =
+ "Get a value from history" },
+ { "execute", (PyCFunction) execute_gdb_command, METH_VARARGS | METH_KEYWORDS,
+ "Execute a gdb command" },
++ { "cli", gdbpy_cli, METH_NOARGS,
++ "Enter the gdb CLI" },
+ { "parameter", gdbpy_parameter, METH_VARARGS,
+ "Return a gdb parameter's value" },
-@@ -1783,15 +1944,24 @@ init_type (enum type_code code, int length, int flags,
- if (flags & TYPE_FLAG_FIXED_INSTANCE)
- TYPE_FIXED_INSTANCE (type) = 1;
+Index: gdb-7.2.90.20110703/gdb/python/python.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/python/python.h 2011-03-14 17:09:54.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/python/python.h 2011-07-03 10:33:11.000000000 +0200
+@@ -32,6 +32,8 @@ void eval_python_from_control_command (s
-- if ((name != NULL) && (objfile != NULL))
-- {
-- TYPE_NAME (type) = obsavestring (name, strlen (name),
-- &objfile->objfile_obstack);
-- }
-- else
-- {
-- TYPE_NAME (type) = name;
-- }
-+ if (name)
-+ switch ((long) objfile)
-+ {
-+ case (long) OBJFILE_INTERNAL:
-+ TYPE_NAME (type) = name;
-+ break;
-+ case (long) OBJFILE_MALLOC:
-+ TYPE_NAME (type) = xstrdup (name);
-+ break;
-+#if 0 /* OBJFILE_MALLOC duplication now. */
-+ case (long) NULL:
-+ internal_error (__FILE__, __LINE__,
-+ _("OBJFILE pointer NULL should be OBJFILE_* instead"));
-+#endif
-+ default:
-+ TYPE_NAME (type) = obsavestring (name, strlen (name),
-+ &objfile->objfile_obstack);
-+ }
+ void source_python_script (FILE *stream, const char *file);
- /* C++ fancies. */
++void run_python_script (int argc, char **argv);
++
+ int apply_val_pretty_printer (struct type *type, const gdb_byte *valaddr,
+ int embedded_offset, CORE_ADDR address,
+ struct ui_file *stream, int recurse,
+Index: gdb-7.2.90.20110703/gdb/somread.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/somread.c 2011-03-07 17:17:29.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/somread.c 2011-07-03 10:33:11.000000000 +0200
+@@ -439,6 +439,7 @@ static const struct sym_fns som_sym_fns
+ default_symfile_segments, /* Get segment information from a file. */
+ NULL,
+ default_symfile_relocate, /* Relocate a debug section. */
++ NULL, /* sym_get_probes */
+ &psym_functions
+ };
-@@ -1803,6 +1973,10 @@ init_type (enum type_code code, int length, int flags,
- {
- INIT_CPLUS_SPECIFIC (type);
- }
+Index: gdb-7.2.90.20110703/gdb/stack.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/stack.c 2011-03-18 19:48:56.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/stack.c 2011-07-03 10:33:11.000000000 +0200
+@@ -366,6 +366,7 @@ print_frame_args (struct symbol *func, s
+ {
+ const struct language_defn *language;
+ struct value_print_options opts;
++ struct cleanup *old_chain;
+
+ /* Use the appropriate language to display our symbol,
+ unless the user forced the language to a specific
+@@ -378,7 +379,13 @@ print_frame_args (struct symbol *func, s
+ get_raw_print_options (&opts);
+ opts.deref_ref = 0;
+ opts.summary = summary;
+
-+ if (!objfile)
-+ type_incref (type);
++ /* Frame may be needed for check_typedef of TYPE_DYNAMIC. */
++ old_chain = make_cleanup_restore_selected_frame ();
++ select_frame (frame);
+ common_val_print (val, stb->stream, 2, &opts, language);
++ do_cleanups (old_chain);
+
- return (type);
- }
-
-@@ -2916,33 +3090,47 @@ type_pair_eq (const void *item_lhs, const void *item_rhs)
- }
-
- /* Allocate the hash table used by copy_type_recursive to walk
-- types without duplicates. We use OBJFILE's obstack, because
-- OBJFILE is about to be deleted. */
-+ types without duplicates. */
-
- htab_t
- create_copied_types_hash (struct objfile *objfile)
- {
-- return htab_create_alloc_ex (1, type_pair_hash, type_pair_eq,
-- NULL, &objfile->objfile_obstack,
-- hashtab_obstack_allocate,
-- dummy_obstack_deallocate);
-+ if (objfile == NULL)
-+ {
-+ /* NULL OBJFILE is for TYPE_DYNAMIC types already contained in
-+ OBJFILE_MALLOC memory, such as those from VALUE_HISTORY_CHAIN. Table
-+ element entries get allocated by xmalloc - so use xfree. */
-+ return htab_create (1, type_pair_hash, type_pair_eq, xfree);
-+ }
-+ else
-+ {
-+ /* Use OBJFILE's obstack, because OBJFILE is about to be deleted. Table
-+ element entries get allocated by xmalloc - so use xfree. */
-+ return htab_create_alloc_ex (1, type_pair_hash, type_pair_eq,
-+ xfree, &objfile->objfile_obstack,
-+ hashtab_obstack_allocate,
-+ dummy_obstack_deallocate);
-+ }
- }
-
--/* Recursively copy (deep copy) TYPE, if it is associated with
-- OBJFILE. Return a new type allocated using malloc, a saved type if
-- we have already visited TYPE (using COPIED_TYPES), or TYPE if it is
-- not associated with OBJFILE. */
-+/* A helper for copy_type_recursive. This does all the work.
-+ REPRESENTATIVE is a pointer to a type. This is used to register
-+ newly-created types in the type_refc_table. Initially it pointer
-+ to a NULL pointer, but it is filled in the first time a type is
-+ copied. OBJFILE is used only for an assertion checking. */
-
--struct type *
--copy_type_recursive (struct objfile *objfile,
-- struct type *type,
-- htab_t copied_types)
-+static struct type *
-+copy_type_recursive_1 (struct objfile *objfile,
-+ struct type *type,
-+ htab_t copied_types,
-+ struct type **representative)
- {
- struct type_pair *stored, pair;
- void **slot;
- struct type *new_type;
-
-- if (TYPE_OBJFILE (type) == NULL)
-+ if (TYPE_OBJFILE (type) == OBJFILE_INTERNAL
-+ || (objfile == OBJFILE_MALLOC && !TYPE_DYNAMIC (type)))
- return type;
-
- /* This type shouldn't be pointing to any types in other objfiles;
-@@ -2954,11 +3142,15 @@ copy_type_recursive (struct objfile *objfile,
- if (*slot != NULL)
- return ((struct type_pair *) *slot)->new;
-
-- new_type = alloc_type (NULL);
-+ new_type = alloc_type (OBJFILE_MALLOC, *representative);
-+ if (!*representative)
-+ *representative = new_type;
-
- /* We must add the new type to the hash table immediately, in case
-- we encounter this type again during a recursive call below. */
-- stored = obstack_alloc (&objfile->objfile_obstack, sizeof (struct type_pair));
-+ we encounter this type again during a recursive call below. Memory could
-+ be allocated from OBJFILE in the case we will be removing OBJFILE, this
-+ optimization is missed and xfree is called for it from COPIED_TYPES. */
-+ stored = xmalloc (sizeof (*stored));
- stored->old = type;
- stored->new = new_type;
- *slot = stored;
-@@ -2968,6 +3160,13 @@ copy_type_recursive (struct objfile *objfile,
- *TYPE_MAIN_TYPE (new_type) = *TYPE_MAIN_TYPE (type);
- TYPE_OBJFILE (new_type) = NULL;
-
-+ /* Pre-clear the fields processed by delete_main_type. If DWARF block
-+ evaluations below call error we would leave an unfreeable TYPE. */
-+ TYPE_TARGET_TYPE (new_type) = NULL;
-+ TYPE_VPTR_BASETYPE (new_type) = NULL;
-+ TYPE_NFIELDS (new_type) = 0;
-+ TYPE_FIELDS (new_type) = NULL;
+ ui_out_field_stream (uiout, "value", stb);
+ }
+ else
+Index: gdb-7.2.90.20110703/gdb/stap-probe.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/stap-probe.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,2041 @@
++/* SystemTap probe support for GDB.
+
- if (TYPE_NAME (type))
- TYPE_NAME (new_type) = xstrdup (TYPE_NAME (type));
- if (TYPE_TAG_NAME (type))
-@@ -2976,12 +3175,45 @@ copy_type_recursive (struct objfile *objfile,
- TYPE_INSTANCE_FLAGS (new_type) = TYPE_INSTANCE_FLAGS (type);
- TYPE_LENGTH (new_type) = TYPE_LENGTH (type);
-
-+ if (TYPE_ALLOCATED (new_type))
-+ {
-+ gdb_assert (!TYPE_NOT_ALLOCATED (new_type));
++ Copyright (C) 2011 Free Software Foundation, Inc.
+
-+ if (!dwarf_locexpr_baton_eval (TYPE_ALLOCATED (new_type)))
-+ TYPE_NOT_ALLOCATED (new_type) = 1;
-+ TYPE_ALLOCATED (new_type) = NULL;
-+ }
++ This file is part of GDB.
+
-+ if (TYPE_ASSOCIATED (new_type))
-+ {
-+ gdb_assert (!TYPE_NOT_ASSOCIATED (new_type));
++ 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.
+
-+ if (!dwarf_locexpr_baton_eval (TYPE_ASSOCIATED (new_type)))
-+ TYPE_NOT_ASSOCIATED (new_type) = 1;
-+ TYPE_ASSOCIATED (new_type) = NULL;
-+ }
++ 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.
+
-+ if (!TYPE_DATA_LOCATION_IS_ADDR (new_type)
-+ && TYPE_DATA_LOCATION_DWARF_BLOCK (new_type))
-+ {
-+ if (TYPE_NOT_ALLOCATED (new_type)
-+ || TYPE_NOT_ASSOCIATED (new_type))
-+ TYPE_DATA_LOCATION_DWARF_BLOCK (new_type) = NULL;
-+ else
-+ {
-+ TYPE_DATA_LOCATION_IS_ADDR (new_type) = 1;
-+ TYPE_DATA_LOCATION_ADDR (new_type) = dwarf_locexpr_baton_eval
-+ (TYPE_DATA_LOCATION_DWARF_BLOCK (new_type));
-+ }
-+ }
++ You should have received a copy of the GNU General Public License
++ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
- /* Copy the fields. */
- if (TYPE_NFIELDS (type))
- {
- int i, nfields;
-
- nfields = TYPE_NFIELDS (type);
-+ TYPE_NFIELDS (new_type) = nfields;
- TYPE_FIELDS (new_type) = XCALLOC (nfields, struct field);
- for (i = 0; i < nfields; i++)
- {
-@@ -2990,8 +3222,8 @@ copy_type_recursive (struct objfile *objfile,
- TYPE_FIELD_BITSIZE (new_type, i) = TYPE_FIELD_BITSIZE (type, i);
- if (TYPE_FIELD_TYPE (type, i))
- TYPE_FIELD_TYPE (new_type, i)
-- = copy_type_recursive (objfile, TYPE_FIELD_TYPE (type, i),
-- copied_types);
-+ = copy_type_recursive_1 (objfile, TYPE_FIELD_TYPE (type, i),
-+ copied_types, representative);
- if (TYPE_FIELD_NAME (type, i))
- TYPE_FIELD_NAME (new_type, i) =
- xstrdup (TYPE_FIELD_NAME (type, i));
-@@ -3010,6 +3242,16 @@ copy_type_recursive (struct objfile *objfile,
- xstrdup (TYPE_FIELD_STATIC_PHYSNAME (type,
- i)));
- break;
-+ case FIELD_LOC_KIND_DWARF_BLOCK:
-+ /* `struct dwarf2_locexpr_baton' is too bound to its objfile so
-+ it is expected to be made constant by CHECK_TYPEDEF. */
-+ if (TYPE_NOT_ALLOCATED (new_type)
-+ || TYPE_NOT_ASSOCIATED (new_type))
-+ SET_FIELD_DWARF_BLOCK (TYPE_FIELD (new_type, i), NULL);
-+ else
-+ SET_FIELD_BITPOS (TYPE_FIELD (new_type, i),
-+ dwarf_locexpr_baton_eval (TYPE_FIELD_DWARF_BLOCK (type, i)));
-+ break;
- default:
- internal_error (__FILE__, __LINE__,
- _("Unexpected type field location kind: %d"),
-@@ -3018,17 +3260,32 @@ copy_type_recursive (struct objfile *objfile,
- }
- }
-
-+ /* Convert TYPE_RANGE_HIGH_BOUND_IS_COUNT into a regular bound. */
-+ if (TYPE_CODE (type) == TYPE_CODE_RANGE
-+ && TYPE_RANGE_HIGH_BOUND_IS_COUNT (type))
-+ {
-+ TYPE_RANGE_HIGH_BOUND_IS_COUNT (new_type) = 0;
-+ TYPE_HIGH_BOUND (new_type) = TYPE_LOW_BOUND (type)
-+ + TYPE_HIGH_BOUND (type) - 1;
-+ }
++#include "defs.h"
++#include "stap-probe.h"
++#include "vec.h"
++#include "ui-out.h"
++#include "gdb_regex.h"
++#include "objfiles.h"
++#include "arch-utils.h"
++#include "command.h"
++#include "filenames.h"
++#include "value.h"
++#include "exceptions.h"
++#include "ax.h"
++#include "ax-gdb.h"
++#include "user-regs.h"
++#include "complaints.h"
++#include "cli/cli-utils.h"
++#include "linespec.h"
+
-+ /* Both FIELD_LOC_KIND_DWARF_BLOCK and TYPE_RANGE_HIGH_BOUND_IS_COUNT were
-+ possibly converted. */
-+ TYPE_DYNAMIC (new_type) = 0;
++#include <ctype.h>
+
- /* Copy pointers to other types. */
- if (TYPE_TARGET_TYPE (type))
- TYPE_TARGET_TYPE (new_type) =
-- copy_type_recursive (objfile,
-- TYPE_TARGET_TYPE (type),
-- copied_types);
-+ copy_type_recursive_1 (objfile,
-+ TYPE_TARGET_TYPE (type),
-+ copied_types,
-+ representative);
- if (TYPE_VPTR_BASETYPE (type))
- TYPE_VPTR_BASETYPE (new_type) =
-- copy_type_recursive (objfile,
-- TYPE_VPTR_BASETYPE (type),
-- copied_types);
-+ copy_type_recursive_1 (objfile,
-+ TYPE_VPTR_BASETYPE (type),
-+ copied_types,
-+ representative);
- /* Maybe copy the type_specific bits.
-
- NOTE drow/2005-12-09: We do not copy the C++-specific bits like
-@@ -3046,6 +3303,20 @@ copy_type_recursive (struct objfile *objfile,
- return new_type;
- }
-
-+/* Recursively copy (deep copy) TYPE. Return a new type allocated using
-+ malloc, a saved type if we have already visited TYPE (using COPIED_TYPES),
-+ or TYPE if it is not associated with OBJFILE. */
++/* This define is used to inform whether we are compiling an agent
++ expression or not. */
+
-+struct type *
-+copy_type_recursive (struct type *type,
-+ htab_t copied_types)
++#define STAP_COMPILING_AGENT_EXPR_P(eval_info) \
++ (eval_info->aexpr != NULL)
++
++/* The various possibilities of bitness defined for a probe's argument.
++
++ The relationship is:
++
++ - STAP_ARG_BITNESS_UNDEFINED: The user hasn't specified the bitness.
++ - STAP_ARG_BITNESS_32BIT_UNSIGNED: argument string starts with `4@'.
++ - STAP_ARG_BITNESS_32BIT_SIGNED: argument string starts with `-4@'.
++ - STAP_ARG_BITNESS_64BIT_UNSIGNED: argument string starts with `8@'.
++ - STAP_ARG_BITNESS_64BIT_SIGNED: argument string starts with `-8@'. */
++
++enum stap_arg_bitness
+{
-+ struct type *representative = NULL;
++ STAP_ARG_BITNESS_UNDEFINED,
++ STAP_ARG_BITNESS_32BIT_UNSIGNED,
++ STAP_ARG_BITNESS_32BIT_SIGNED,
++ STAP_ARG_BITNESS_64BIT_UNSIGNED,
++ STAP_ARG_BITNESS_64BIT_SIGNED,
++};
+
-+ return copy_type_recursive_1 (TYPE_OBJFILE (type), type, copied_types,
-+ &representative);
-+}
++/* The following structure represents a single argument for the probe. */
+
- /* Make a copy of the given TYPE, except that the pointer & reference
- types are not preserved.
-
-@@ -3059,7 +3330,7 @@ copy_type (const struct type *type)
-
- gdb_assert (TYPE_OBJFILE (type) != NULL);
-
-- new_type = alloc_type (TYPE_OBJFILE (type));
-+ new_type = alloc_type (TYPE_OBJFILE (type), NULL);
- TYPE_INSTANCE_FLAGS (new_type) = TYPE_INSTANCE_FLAGS (type);
- TYPE_LENGTH (new_type) = TYPE_LENGTH (type);
- memcpy (TYPE_MAIN_TYPE (new_type), TYPE_MAIN_TYPE (type),
-@@ -3068,6 +3339,232 @@ copy_type (const struct type *type)
- return new_type;
- }
-
-+static void delete_type (struct type *type);
++struct stap_probe_arg
++{
++ /* The bitness of this argument. */
++ enum stap_arg_bitness bitness;
+
-+/* A helper for delete_type which deletes a main_type and the things to which
-+ it refers. TYPE is a type whose main_type we wish to destroy. */
++ /* The string representing this argument. */
++ char *arg_str;
++};
+
-+static void
-+delete_main_type (struct main_type *main_type)
++/* The maximum number of arguments that a probe can have,
++ as defined in <sys/sdt.h>. */
++
++#define STAP_MAX_ARGS 10
++
++/* Structure that holds information about all arguments of a probe. */
++
++struct stap_args_info
+{
-+ int i;
-+ void **slot;
-+ struct
-+ {
-+ struct main_type *main_type;
-+ } type_local = { main_type }, *type = &type_local;
++ /* The number of valid parsed arguments. */
++ int n_args;
+
-+ gdb_assert (TYPE_OBJFILE (type) == OBJFILE_MALLOC);
++ /* The probe to which these arguments belong. */
++ struct stap_probe *probe;
+
-+ xfree (TYPE_NAME (type));
-+ xfree (TYPE_TAG_NAME (type));
++ /* Information about each argument. */
++ struct stap_probe_arg *arg;
++};
+
-+ for (i = 0; i < TYPE_NFIELDS (type); ++i)
-+ {
-+ xfree (TYPE_FIELD_NAME (type, i));
++/* Structure that contains all the necessary information to evaluate
++ an expression. */
+
-+ if (TYPE_FIELD_LOC_KIND (type, i) == FIELD_LOC_KIND_PHYSNAME)
-+ xfree (TYPE_FIELD_STATIC_PHYSNAME (type, i));
-+ }
-+ xfree (TYPE_FIELDS (type));
++struct stap_evaluation_info
++{
++ /* The constant pointer which holds the expression. This is primarily
++ used for printing error messages. Evaluation functions should
++ not modify this pointer directly; instead, they should use the
++ EXP_BUFFER pointer below. */
++ const char *saved_expr;
+
-+ /* Strangely, HAVE_CPLUS_STRUCT will return true when there isn't
-+ one at all. */
-+ gdb_assert (!HAVE_CPLUS_STRUCT (type) || !TYPE_CPLUS_SPECIFIC (type));
++ /* Modifiable version of the above pointer. */
++ char *exp_buf;
+
-+ xfree (TYPE_MAIN_TYPE (type));
-+}
++ /* The pointer to the current gdbarch. */
++ struct gdbarch *gdbarch;
++
++ /* The pointer to the current frame, used when accessing registers'
++ contents. */
++ struct frame_info *frame;
++
++ /* The bitness specified for this argument. */
++ enum stap_arg_bitness bitness;
++
++ /* If the above flag is true (one), this field will contain the
++ pointer to the agent expression. */
++ struct agent_expr *aexpr;
++
++ /* The value we are modifying (for agent expression). */
++ struct axs_value *avalue;
++};
++
++/* This dummy variable is used when parsing a probe's argument fails.
++ In this case, the number of arguments for this probe is zero, so that's
++ why this variable is useful. */
+
-+/* Store `struct main_type *' entries which got `struct type *' deleted. */
++static struct stap_args_info dummy_stap_args_info =
++ { 0, NULL, NULL };
+
-+static htab_t deleted_main_types_hash;
++static struct value *stap_evaluate_probe_argument_2
++ (struct stap_evaluation_info *eval_info,
++ struct value *lhs, int prec);
+
-+/* To be called before any call of delete_type. */
++static struct value *stap_evaluate_conditionally
++ (struct stap_evaluation_info *eval_info);
++
++/* Helper function which decides to skip whitespaces or not in a probe's
++ argument string. Basically, if we are inside a parenthesis expression
++ (i.e., inside a subexpression), we can skip whitespaces; otherwise we
++ cannot. */
+
+static void
-+delete_type_begin (void)
++stap_skip_whitespace_cond (char **s, int inside_paren)
+{
-+ gdb_assert (deleted_main_types_hash == NULL);
-+
-+ deleted_main_types_hash = htab_create_alloc (10, htab_hash_pointer,
-+ htab_eq_pointer, NULL, xcalloc, xfree);
++ if (inside_paren)
++ *s = skip_spaces (*s);
+}
+
-+/* Helper for delete_type_finish. */
++/* Helper function which parses a single argument in a probe's argument
++ string, based on various rules (which can be learned from the `gas'
++ manual). It returns 1 on success, or 0 otherwise. */
+
+static int
-+delete_type_finish_traverse (void **slot, void *unused)
++stap_parse_arg (const char **p)
+{
-+ struct main_type *main_type = *slot;
++ char *cur = (char *) *p;
++ int done = 0;
++ int paren_open = 0;
+
-+ delete_main_type (main_type);
++ while (!done)
++ {
++ switch (*cur)
++ {
++ case ' ': case 0:
++ /* If we're here, then we have already parsed everything
++ from this argument. */
++ if (paren_open)
++ return 0;
++ done = 1;
++ break;
+
-+ return 1;
-+}
++ case '(':
++ ++paren_open;
++ ++cur;
++ stap_skip_whitespace_cond (&cur, paren_open);
++ break;
+
-+/* To be called after all the calls of delete_type. Each MAIN_TYPE must have
-+ either none or all of its TYPE entries deleted. */
++ case ')':
++ if (!paren_open)
++ return 0;
+
-+static void
-+delete_type_finish (void)
-+{
-+ htab_traverse (deleted_main_types_hash, delete_type_finish_traverse, NULL);
++ --paren_open;
++ ++cur;
++ if (paren_open)
++ cur = skip_spaces (cur);
++ break;
+
-+ htab_delete (deleted_main_types_hash);
-+ deleted_main_types_hash = NULL;
-+}
++ case '+': case '-':
++ case '*': case '/':
++ case '>': case '<': case '|': case '&':
++ case '^': case '!':
++ {
++ char c = *cur;
+
-+/* Delete TYPE and remember MAIN_TYPE it references. TYPE must have been
-+ allocated using xmalloc -- not using an objfile. You must wrap calls of
-+ this function by delete_type_begin and delete_type_finish. */
++ ++cur;
++ switch (*cur)
++ {
++ case '>':
++ if (c != '<' && c != '>')
++ return 0;
+
-+static void
-+delete_type (struct type *type)
-+{
-+ void **slot;
++ ++cur;
++ break;
+
-+ if (!type)
-+ return;
++ case '<':
++ if (c != '<')
++ return 0;
+
-+ if (TYPE_OBJFILE (type) == OBJFILE_INTERNAL)
-+ return;
-+ gdb_assert (TYPE_OBJFILE (type) == OBJFILE_MALLOC);
++ ++cur;
++ break;
+
-+ slot = htab_find_slot (deleted_main_types_hash, TYPE_MAIN_TYPE (type),
-+ INSERT);
-+ gdb_assert (!*slot);
-+ *slot = TYPE_MAIN_TYPE (type);
++ case '=':
++ if (c != '=' && c != '<' && c != '>' && c != '!')
++ return 0;
+
-+ xfree (type);
-+}
++ ++cur;
++ break;
+
-+/* Hash function for type_refc_table. */
++ case '|':
++ if (c != '|')
++ return 0;
+
-+static hashval_t
-+type_refc_hash (const void *p)
-+{
-+ const struct type_refc_entry *entry = p;
-+ return htab_hash_pointer (entry->type);
-+}
++ ++cur;
++ break;
+
-+/* Equality function for type_refc_table. */
++ case '&':
++ if (c != '&')
++ return 0;
+
-+static int
-+type_refc_equal (const void *a, const void *b)
-+{
-+ const struct type_refc_entry *left = a;
-+ const struct type_refc_entry *right = b;
-+ return left->type == right->type;
-+}
++ ++cur;
++ break;
+
-+/* Insert the new type NEW_TYPE into the table. Does nothing if
-+ NEW_TYPE has an objfile. If PARENT_TYPE is not NULL, then NEW_TYPE
-+ will be inserted into the same hierarchy as PARENT_TYPE. In this
-+ case, PARENT_TYPE must already exist in the reference count map.
-+ If PARENT_TYPE is NULL, a new reference count is allocated and set
-+ to one. */
++ default:
++ break;
++ }
++ /* Infix operators take two arguments, one on either
++ side. Skipping the whitespaces that may happen on the
++ right side. */
++ stap_skip_whitespace_cond (&cur, paren_open);
++ }
++ break;
+
-+static void
-+type_init_refc (struct type *new_type, struct type *parent_type)
-+{
-+ int *refc;
-+ void **slot;
-+ struct type_refc_entry *new_entry;
++ case '%':
++ {
++ ++cur;
++ stap_skip_whitespace_cond (&cur, paren_open);
++ if (*cur >= 'a' && *cur <= 'z')
++ {
++ /* We're dealing with a register name. */
++ while (isalnum (*cur))
++ ++cur;
+
-+ if (TYPE_OBJFILE (new_type))
-+ return;
++ stap_skip_whitespace_cond (&cur, paren_open);
+
-+ if (parent_type)
-+ {
-+ struct type_refc_entry entry, *found;
-+ entry.type = parent_type;
-+ found = htab_find (type_refc_table, &entry);
-+ gdb_assert (found);
-+ refc = found->refc;
-+ }
-+ else
-+ {
-+ refc = xmalloc (sizeof (int));
-+ *refc = 0;
-+ }
++ /* Some registers (e.g. floating-point register stack
++ registers on Intel i386) have the following syntax:
+
-+ new_entry = XNEW (struct type_refc_entry);
-+ new_entry->type = new_type;
-+ new_entry->refc = refc;
++ `%st(0)', `%st(1)', and so on.
+
-+ slot = htab_find_slot (type_refc_table, new_entry, INSERT);
-+ gdb_assert (!*slot);
-+ *slot = new_entry;
-+}
++ So it's ok to expect parenthesis here. */
++ if (*cur == '(')
++ {
++ ++cur;
++ stap_skip_whitespace_cond (&cur, paren_open);
++ if (!isdigit (*cur))
++ /* This is an error, since we only expect numbers
++ inside this parenthesis. */
++ return 0;
++ ++cur;
++ stap_skip_whitespace_cond (&cur, paren_open);
++ if (*cur != ')')
++ /* We only expect one number. */
++ return 0;
++ ++cur;
++ stap_skip_whitespace_cond (&cur, paren_open);
++ }
++ }
++ }
++ break;
+
-+/* Increment the reference count for TYPE. */
++ case '$':
++ {
++ /* This is an integer constant. */
++ ++cur;
++ stap_skip_whitespace_cond (&cur, paren_open);
+
-+void
-+type_incref (struct type *type)
-+{
-+ struct type_refc_entry entry, *found;
++ while (isdigit (*cur))
++ ++cur;
+
-+ if (TYPE_OBJFILE (type))
-+ return;
++ stap_skip_whitespace_cond (&cur, paren_open);
++ }
++ break;
+
-+ entry.type = type;
-+ found = htab_find (type_refc_table, &entry);
-+ gdb_assert (found);
-+ ++*(found->refc);
-+}
++ case '0': case '1': case '2': case '3': case '4':
++ case '5': case '6': case '7': case '8': case '9':
++ {
++ char *old = cur;
+
-+/* A traverse callback for type_refc_table which removes any entry
-+ whose reference count is zero (unused entry). */
++ /* Number. */
++ while (isdigit (*cur))
++ ++cur;
+
-+static int
-+type_refc_remove (void **slot, void *unused)
-+{
-+ struct type_refc_entry *entry = *slot;
++ /* We have to do a lookahead here, because the user may
++ input `2 + 2' (with spaces), and this is not an error. */
++ cur = skip_spaces (cur);
+
-+ if (*entry->refc == 0)
-+ {
-+ delete_type (entry->type);
++ switch (*cur)
++ {
++ case '+': case '-':
++ /* We may find the `@' sign, and it means that the
++ argument has finished, so we shouldn't advance the
++ pointer. */
++ if (cur[1] && (cur[1] == '4' || cur[1] == '8')
++ && cur[2] && cur[2] == '@')
++ {
++ cur = old;
++ goto fin;
++ }
++ break;
++
++ case '*': case '/': case '>': case '<':
++ case '|': case '&': case '^': case '!':
++ /* This is a binary operation, which means we'll
++ have to find another number after the operator. */
++ break;
+
-+ xfree (entry);
-+ htab_clear_slot (type_refc_table, slot);
++ case '(':
++ /* We may also have sentences in the form:
++
++ `4 (%rax)' */
++ break;
++ }
++ }
++fin:
++ break;
++ }
+ }
+
++ *p = cur;
++
+ return 1;
+}
+
-+/* Decrement the reference count for TYPE. Even if TYPE has no more
-+ references still do not delete it as callers may hold pointers to types
-+ dynamically generated by check_typedef where type_incref is never called.
-+ Always rely on the free_all_types garbage collector. */
++/* Helper function which is responsible for freeing the space allocated to
++ hold information about a probe's arguments. */
+
-+void
-+type_decref (struct type *type)
++static void
++stap_free_args_info (void *args_info_ptr)
+{
-+ struct type_refc_entry entry, *found;
++ struct stap_args_info *a = (struct stap_args_info *) args_info_ptr;
++ int i;
+
-+ if (TYPE_OBJFILE (type))
-+ return;
++ for (i = 0; i < a->n_args; i++)
++ {
++ xfree (a->arg[i].arg_str);
++ }
+
-+ entry.type = type;
-+ found = htab_find (type_refc_table, &entry);
-+ gdb_assert (found);
-+ gdb_assert (found->refc > 0);
-+ --*(found->refc);
++ xfree (a->arg);
++ xfree (a);
+}
+
-+/* Free all the types that have been allocated and that are not used according
-+ to type_refc_entry->refc. Called after each command, successful or not.
-+ Use this cleanup only in the GDB idle state as GDB code does not necessarily
-+ use type_incref / type_decref during temporary use of types. */
++/* Function which parses an argument string from PROBE, correctly splitting
++ the arguments and storing their information in properly ways. This function
++ only separates the arguments, but does not evaluate them.
+
-+void
-+free_all_types (void)
-+{
-+ delete_type_begin ();
-+ htab_traverse (type_refc_table, type_refc_remove, NULL);
-+ delete_type_finish ();
-+}
++ Consider the following argument string:
+
- static struct type *
- build_flt (int bit, char *name, const struct floatformat **floatformats)
- {
-@@ -3105,7 +3602,7 @@ build_complex (int bit, char *name, struct type *target_type)
- return builtin_type_error;
- }
- t = init_type (TYPE_CODE_COMPLEX, 2 * bit / TARGET_CHAR_BIT,
-- 0, name, (struct objfile *) NULL);
-+ 0, name, OBJFILE_INTERNAL);
- TYPE_TARGET_TYPE (t) = target_type;
- return t;
- }
-@@ -3119,56 +3616,56 @@ gdbtypes_post_init (struct gdbarch *gdbarch)
- builtin_type->builtin_void =
- init_type (TYPE_CODE_VOID, 1,
- 0,
-- "void", (struct objfile *) NULL);
-+ "void", OBJFILE_INTERNAL);
- builtin_type->builtin_char =
- init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
- (TYPE_FLAG_NOSIGN
- | (gdbarch_char_signed (gdbarch) ? 0 : TYPE_FLAG_UNSIGNED)),
-- "char", (struct objfile *) NULL);
-+ "char", OBJFILE_INTERNAL);
- builtin_type->builtin_signed_char =
- init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
- 0,
-- "signed char", (struct objfile *) NULL);
-+ "signed char", OBJFILE_INTERNAL);
- builtin_type->builtin_unsigned_char =
- init_type (TYPE_CODE_INT, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
- TYPE_FLAG_UNSIGNED,
-- "unsigned char", (struct objfile *) NULL);
-+ "unsigned char", OBJFILE_INTERNAL);
- builtin_type->builtin_short =
- init_type (TYPE_CODE_INT,
- gdbarch_short_bit (gdbarch) / TARGET_CHAR_BIT,
-- 0, "short", (struct objfile *) NULL);
-+ 0, "short", OBJFILE_INTERNAL);
- builtin_type->builtin_unsigned_short =
- init_type (TYPE_CODE_INT,
- gdbarch_short_bit (gdbarch) / TARGET_CHAR_BIT,
- TYPE_FLAG_UNSIGNED, "unsigned short",
-- (struct objfile *) NULL);
-+ OBJFILE_INTERNAL);
- builtin_type->builtin_int =
- init_type (TYPE_CODE_INT,
- gdbarch_int_bit (gdbarch) / TARGET_CHAR_BIT,
-- 0, "int", (struct objfile *) NULL);
-+ 0, "int", OBJFILE_INTERNAL);
- builtin_type->builtin_unsigned_int =
- init_type (TYPE_CODE_INT,
- gdbarch_int_bit (gdbarch) / TARGET_CHAR_BIT,
- TYPE_FLAG_UNSIGNED, "unsigned int",
-- (struct objfile *) NULL);
-+ OBJFILE_INTERNAL);
- builtin_type->builtin_long =
- init_type (TYPE_CODE_INT,
- gdbarch_long_bit (gdbarch) / TARGET_CHAR_BIT,
-- 0, "long", (struct objfile *) NULL);
-+ 0, "long", OBJFILE_INTERNAL);
- builtin_type->builtin_unsigned_long =
- init_type (TYPE_CODE_INT,
- gdbarch_long_bit (gdbarch) / TARGET_CHAR_BIT,
- TYPE_FLAG_UNSIGNED, "unsigned long",
-- (struct objfile *) NULL);
-+ OBJFILE_INTERNAL);
- builtin_type->builtin_long_long =
- init_type (TYPE_CODE_INT,
- gdbarch_long_long_bit (gdbarch) / TARGET_CHAR_BIT,
-- 0, "long long", (struct objfile *) NULL);
-+ 0, "long long", OBJFILE_INTERNAL);
- builtin_type->builtin_unsigned_long_long =
- init_type (TYPE_CODE_INT,
- gdbarch_long_long_bit (gdbarch) / TARGET_CHAR_BIT,
- TYPE_FLAG_UNSIGNED, "unsigned long long",
-- (struct objfile *) NULL);
-+ OBJFILE_INTERNAL);
- builtin_type->builtin_float
- = build_flt (gdbarch_float_bit (gdbarch), "float",
- gdbarch_float_format (gdbarch));
-@@ -3187,26 +3684,26 @@ gdbtypes_post_init (struct gdbarch *gdbarch)
- builtin_type->builtin_string =
- init_type (TYPE_CODE_STRING, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
- 0,
-- "string", (struct objfile *) NULL);
-+ "string", OBJFILE_INTERNAL);
- builtin_type->builtin_bool =
- init_type (TYPE_CODE_BOOL, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
- 0,
-- "bool", (struct objfile *) NULL);
-+ "bool", OBJFILE_INTERNAL);
-
- /* The following three are about decimal floating point types, which
- are 32-bits, 64-bits and 128-bits respectively. */
- builtin_type->builtin_decfloat
- = init_type (TYPE_CODE_DECFLOAT, 32 / 8,
- 0,
-- "_Decimal32", (struct objfile *) NULL);
-+ "_Decimal32", OBJFILE_INTERNAL);
- builtin_type->builtin_decdouble
- = init_type (TYPE_CODE_DECFLOAT, 64 / 8,
- 0,
-- "_Decimal64", (struct objfile *) NULL);
-+ "_Decimal64", OBJFILE_INTERNAL);
- builtin_type->builtin_declong
- = init_type (TYPE_CODE_DECFLOAT, 128 / 8,
- 0,
-- "_Decimal128", (struct objfile *) NULL);
-+ "_Decimal128", OBJFILE_INTERNAL);
-
- /* Pointer/Address types. */
-
-@@ -3245,27 +3742,28 @@ gdbtypes_post_init (struct gdbarch *gdbarch)
- init_type (TYPE_CODE_INT,
- gdbarch_addr_bit (gdbarch) / 8,
- TYPE_FLAG_UNSIGNED,
-- "__CORE_ADDR", (struct objfile *) NULL);
-+ "__CORE_ADDR", OBJFILE_INTERNAL);
-
-
- /* The following set of types is used for symbols with no
- debug information. */
- builtin_type->nodebug_text_symbol =
- init_type (TYPE_CODE_FUNC, 1, 0,
-- "<text variable, no debug info>", NULL);
-+ "<text variable, no debug info>", OBJFILE_INTERNAL);
- TYPE_TARGET_TYPE (builtin_type->nodebug_text_symbol) =
- builtin_type->builtin_int;
- builtin_type->nodebug_data_symbol =
- init_type (TYPE_CODE_INT,
- gdbarch_int_bit (gdbarch) / HOST_CHAR_BIT, 0,
-- "<data variable, no debug info>", NULL);
-+ "<data variable, no debug info>", OBJFILE_INTERNAL);
- builtin_type->nodebug_unknown_symbol =
- init_type (TYPE_CODE_INT, 1, 0,
-- "<variable (not text or data), no debug info>", NULL);
-+ "<variable (not text or data), no debug info>",
-+ OBJFILE_INTERNAL);
- builtin_type->nodebug_tls_symbol =
- init_type (TYPE_CODE_INT,
- gdbarch_int_bit (gdbarch) / HOST_CHAR_BIT, 0,
-- "<thread local variable, no debug info>", NULL);
-+ "<thread local variable, no debug info>", OBJFILE_INTERNAL);
-
- return builtin_type;
- }
-@@ -3276,6 +3774,9 @@ _initialize_gdbtypes (void)
- {
- gdbtypes_data = gdbarch_data_register_post_init (gdbtypes_post_init);
-
-+ type_refc_table = htab_create_alloc (20, type_refc_hash, type_refc_equal,
-+ NULL, xcalloc, xfree);
-+
- /* FIXME: The following types are architecture-neutral. However,
- they contain pointer_type and reference_type fields potentially
- caching pointer or reference types that *are* architecture
-@@ -3284,47 +3785,47 @@ _initialize_gdbtypes (void)
- builtin_type_int0 =
- init_type (TYPE_CODE_INT, 0 / 8,
- 0,
-- "int0_t", (struct objfile *) NULL);
-+ "int0_t", OBJFILE_INTERNAL);
- builtin_type_int8 =
- init_type (TYPE_CODE_INT, 8 / 8,
- TYPE_FLAG_NOTTEXT,
-- "int8_t", (struct objfile *) NULL);
-+ "int8_t", OBJFILE_INTERNAL);
- builtin_type_uint8 =
- init_type (TYPE_CODE_INT, 8 / 8,
- TYPE_FLAG_UNSIGNED | TYPE_FLAG_NOTTEXT,
-- "uint8_t", (struct objfile *) NULL);
-+ "uint8_t", OBJFILE_INTERNAL);
- builtin_type_int16 =
- init_type (TYPE_CODE_INT, 16 / 8,
- 0,
-- "int16_t", (struct objfile *) NULL);
-+ "int16_t", OBJFILE_INTERNAL);
- builtin_type_uint16 =
- init_type (TYPE_CODE_INT, 16 / 8,
- TYPE_FLAG_UNSIGNED,
-- "uint16_t", (struct objfile *) NULL);
-+ "uint16_t", OBJFILE_INTERNAL);
- builtin_type_int32 =
- init_type (TYPE_CODE_INT, 32 / 8,
- 0,
-- "int32_t", (struct objfile *) NULL);
-+ "int32_t", OBJFILE_INTERNAL);
- builtin_type_uint32 =
- init_type (TYPE_CODE_INT, 32 / 8,
- TYPE_FLAG_UNSIGNED,
-- "uint32_t", (struct objfile *) NULL);
-+ "uint32_t", OBJFILE_INTERNAL);
- builtin_type_int64 =
- init_type (TYPE_CODE_INT, 64 / 8,
- 0,
-- "int64_t", (struct objfile *) NULL);
-+ "int64_t", OBJFILE_INTERNAL);
- builtin_type_uint64 =
- init_type (TYPE_CODE_INT, 64 / 8,
- TYPE_FLAG_UNSIGNED,
-- "uint64_t", (struct objfile *) NULL);
-+ "uint64_t", OBJFILE_INTERNAL);
- builtin_type_int128 =
- init_type (TYPE_CODE_INT, 128 / 8,
- 0,
-- "int128_t", (struct objfile *) NULL);
-+ "int128_t", OBJFILE_INTERNAL);
- builtin_type_uint128 =
- init_type (TYPE_CODE_INT, 128 / 8,
- TYPE_FLAG_UNSIGNED,
-- "uint128_t", (struct objfile *) NULL);
-+ "uint128_t", OBJFILE_INTERNAL);
-
- builtin_type_ieee_single =
- build_flt (-1, "builtin_type_ieee_single", floatformats_ieee_single);
-@@ -3344,15 +3845,15 @@ _initialize_gdbtypes (void)
- builtin_type_void =
- init_type (TYPE_CODE_VOID, 1,
- 0,
-- "void", (struct objfile *) NULL);
-+ "void", OBJFILE_INTERNAL);
- builtin_type_true_char =
- init_type (TYPE_CODE_CHAR, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
- 0,
-- "true character", (struct objfile *) NULL);
-+ "true character", OBJFILE_INTERNAL);
- builtin_type_true_unsigned_char =
- init_type (TYPE_CODE_CHAR, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
- TYPE_FLAG_UNSIGNED,
-- "true character", (struct objfile *) NULL);
-+ "true character", OBJFILE_INTERNAL);
-
- add_setshow_zinteger_cmd ("overload", no_class, &overload_debug, _("\
- Set debugging of C++ overloading."), _("\
-diff --git a/gdb/gdbtypes.h b/gdb/gdbtypes.h
-index c90b6d7..077b89c 100644
---- a/gdb/gdbtypes.h
-+++ b/gdb/gdbtypes.h
-@@ -134,7 +134,10 @@ enum type_code
-
- TYPE_CODE_NAMESPACE, /* C++ namespace. */
-
-- TYPE_CODE_DECFLOAT /* Decimal floating point. */
-+ TYPE_CODE_DECFLOAT, /* Decimal floating point. */
-+
-+ /* Internal function type. */
-+ TYPE_CODE_INTERNAL_FUNCTION
- };
-
- /* For now allow source to use TYPE_CODE_CLASS for C++ classes, as an
-@@ -209,6 +212,11 @@ enum type_instance_flag_value
-
- #define TYPE_TARGET_STUB(t) (TYPE_MAIN_TYPE (t)->flag_target_stub)
-
-+/* Type needs to be evaluated on each CHECK_TYPEDEF and its results must not be
-+ sticky. */
++ `4@%eax 4@$10'
+
-+#define TYPE_DYNAMIC(t) (TYPE_MAIN_TYPE (t)->flag_dynamic)
++ We have two arguments, `%eax' and `$10', both with 32-bit unsigned bitness.
++ This function basically handles them, properly filling some structures with
++ this information. */
+
- /* Static type. If this is set, the corresponding type had
- * a static modifier.
- * Note: This may be unnecessary, since static data members
-@@ -266,6 +274,36 @@ enum type_instance_flag_value
-
- #define TYPE_NOTTEXT(t) (TYPE_MAIN_TYPE (t)->flag_nottext)
-
-+/* Is HIGH_BOUND a low-bound relative count (1) or the high bound itself (0)? */
++static void
++stap_parse_probe_arguments (struct stap_probe *probe)
++{
++ struct stap_args_info *args_info;
++ struct cleanup *back_to;
++ const char *cur = probe->args;
++ int current_arg = -1;
++ /* This is a state-machine parser, which means we will always be
++ in a known state when parsing an argument. The state could be
++ either `NEW_ARG' if we are parsing a new argument, `BITNESS' if
++ we are parsing the bitness-definition part (i.e., `4@'), or
++ `PARSE_ARG' if we are actually parsing the argument part. */
++ enum
++ {
++ NEW_ARG,
++ BITNESS,
++ PARSE_ARG,
++ } current_state;
++
++ /* For now, we assume everything is not going to work. */
++ probe->parsed_args = &dummy_stap_args_info;
++
++ if (!cur || !*cur || *cur == ':')
++ return;
+
-+#define TYPE_RANGE_HIGH_BOUND_IS_COUNT(range_type) \
-+ (TYPE_MAIN_TYPE (range_type)->flag_range_high_bound_is_count)
++ args_info = xmalloc (sizeof (struct stap_args_info));
++ back_to = make_cleanup (stap_free_args_info, args_info);
++ args_info->arg = xcalloc (STAP_MAX_ARGS, sizeof (struct stap_probe_arg));
+
-+/* Not allocated. TYPE_ALLOCATED(t) must be NULL in such case. If this flag
-+ is unset and TYPE_ALLOCATED(t) is NULL then the type is allocated. If this
-+ flag is unset and TYPE_ALLOCATED(t) is not NULL then its DWARF block
-+ determines the actual allocation state. */
-+
-+#define TYPE_NOT_ALLOCATED(t) (TYPE_MAIN_TYPE (t)->flag_not_allocated)
-+
-+/* Not associated. TYPE_ASSOCIATED(t) must be NULL in such case. If this flag
-+ is unset and TYPE_ASSOCIATED(t) is NULL then the type is associated. If
-+ this flag is unset and TYPE_ASSOCIATED(t) is not NULL then its DWARF block
-+ determines the actual association state. */
-+
-+#define TYPE_NOT_ASSOCIATED(t) (TYPE_MAIN_TYPE (t)->flag_not_associated)
-+
-+/* Address of the actual data as for DW_AT_data_location. Its dwarf block must
-+ not be evaluated unless both TYPE_NOT_ALLOCATED and TYPE_NOT_ASSOCIATED are
-+ false. If TYPE_DATA_LOCATION_IS_ADDR set then TYPE_DATA_LOCATION_ADDR value
-+ is the actual data address value. If unset and
-+ TYPE_DATA_LOCATION_DWARF_BLOCK is NULL then the value is the normal
-+ VALUE_ADDRESS copy. If unset and TYPE_DATA_LOCATION_DWARF_BLOCK is not NULL
-+ then its DWARF block determines the actual data address. */
-+
-+#define TYPE_DATA_LOCATION_IS_ADDR(t) \
-+ (TYPE_MAIN_TYPE (t)->flag_data_location_is_addr)
++ /* Ok, let's start. */
++ current_state = NEW_ARG;
+
- /* Constant type. If this is set, the corresponding type has a
- * const modifier.
- */
-@@ -352,6 +390,11 @@ struct main_type
- unsigned int flag_stub_supported : 1;
- unsigned int flag_nottext : 1;
- unsigned int flag_fixed_instance : 1;
-+ unsigned int flag_dynamic : 1;
-+ unsigned int flag_range_high_bound_is_count : 1;
-+ unsigned int flag_not_allocated : 1;
-+ unsigned int flag_not_associated : 1;
-+ unsigned int flag_data_location_is_addr : 1;
-
- /* Number of fields described for this type. This field appears at
- this location because it packs nicely here. */
-@@ -414,6 +457,20 @@ struct main_type
-
- struct type *target_type;
-
-+ /* For DW_AT_data_location. */
-+ union
++ while (*cur)
+ {
-+ struct dwarf2_locexpr_baton *dwarf_block;
-+ CORE_ADDR addr;
-+ }
-+ data_location;
++ switch (current_state)
++ {
++ case NEW_ARG:
++ ++current_arg;
+
-+ /* For DW_AT_allocated. */
-+ struct dwarf2_locexpr_baton *allocated;
++ if (current_arg >= STAP_MAX_ARGS)
++ {
++ complaint (&symfile_complaints,
++ _("probe `%s' has more arguments than the maximum "
++ "allowed"), probe->name);
++ do_cleanups (back_to);
++ return;
++ }
+
-+ /* For DW_AT_associated. */
-+ struct dwarf2_locexpr_baton *associated;
++ current_state = BITNESS;
++ break;
+
- /* For structure and union types, a description of each field.
- For set and pascal array types, there is one "field",
- whose type is the domain type of the set or array.
-@@ -795,9 +852,9 @@ extern void allocate_cplus_struct_type (struct type *);
- #define TYPE_POINTER_TYPE(thistype) (thistype)->pointer_type
- #define TYPE_REFERENCE_TYPE(thistype) (thistype)->reference_type
- #define TYPE_CHAIN(thistype) (thistype)->chain
--/* Note that if thistype is a TYPEDEF type, you have to call check_typedef.
-- But check_typedef does set the TYPE_LENGTH of the TYPEDEF type,
-- so you only have to call check_typedef once. Since allocate_value
-+/* Note that if thistype is a TYPEDEF, ARRAY or STRING type, you have to call
-+ check_typedef. But check_typedef does set the TYPE_LENGTH of the TYPEDEF
-+ type, so you only have to call check_typedef once. Since allocate_value
- calls check_typedef, TYPE_LENGTH (VALUE_TYPE (X)) is safe. */
- #define TYPE_LENGTH(thistype) (thistype)->length
- #define TYPE_OBJFILE(thistype) TYPE_MAIN_TYPE(thistype)->objfile
-@@ -807,23 +864,44 @@ extern void allocate_cplus_struct_type (struct type *);
- #define TYPE_NFIELDS(thistype) TYPE_MAIN_TYPE(thistype)->nfields
- #define TYPE_FIELDS(thistype) TYPE_MAIN_TYPE(thistype)->fields
- #define TYPE_TEMPLATE_ARGS(thistype) TYPE_CPLUS_SPECIFIC(thistype)->template_args
-+#define TYPE_DATA_LOCATION_DWARF_BLOCK(thistype) TYPE_MAIN_TYPE (thistype)->data_location.dwarf_block
-+#define TYPE_DATA_LOCATION_ADDR(thistype) TYPE_MAIN_TYPE (thistype)->data_location.addr
-+#define TYPE_ALLOCATED(thistype) TYPE_MAIN_TYPE (thistype)->allocated
-+#define TYPE_ASSOCIATED(thistype) TYPE_MAIN_TYPE (thistype)->associated
-
- #define TYPE_INDEX_TYPE(type) TYPE_FIELD_TYPE (type, 0)
- #define TYPE_LOW_BOUND(range_type) TYPE_FIELD_BITPOS (range_type, 0)
- #define TYPE_HIGH_BOUND(range_type) TYPE_FIELD_BITPOS (range_type, 1)
--
--/* Moto-specific stuff for FORTRAN arrays */
--
--#define TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED(arraytype) \
-- (TYPE_FIELD_ARTIFICIAL(TYPE_INDEX_TYPE((arraytype)),1))
-+#define TYPE_BYTE_STRIDE(range_type) TYPE_FIELD_BITPOS (range_type, 2)
-+
-+/* Whether we should use TYPE_FIELD_DWARF_BLOCK (and not TYPE_FIELD_BITPOS). */
-+#define TYPE_RANGE_BOUND_IS_DWARF_BLOCK(range_type, fieldno) \
-+ (TYPE_FIELD_LOC_KIND (range_type, fieldno) == FIELD_LOC_KIND_DWARF_BLOCK)
-+#define TYPE_RANGE_BOUND_SET_DWARF_BLOCK(range_type, fieldno) \
-+ (TYPE_FIELD_LOC_KIND (range_type, fieldno) = FIELD_LOC_KIND_DWARF_BLOCK)
-+#define TYPE_ARRAY_BOUND_IS_DWARF_BLOCK(array_type, fieldno) \
-+ TYPE_RANGE_BOUND_IS_DWARF_BLOCK (TYPE_INDEX_TYPE (array_type), fieldno)
-+
-+/* Unbound arrays, such as GCC array[]; at end of struct. */
-+#define TYPE_RANGE_LOWER_BOUND_IS_UNDEFINED(rangetype) \
-+ TYPE_FIELD_ARTIFICIAL((rangetype),0)
-+#define TYPE_RANGE_UPPER_BOUND_IS_UNDEFINED(rangetype) \
-+ TYPE_FIELD_ARTIFICIAL((rangetype),1)
- #define TYPE_ARRAY_LOWER_BOUND_IS_UNDEFINED(arraytype) \
-- (TYPE_FIELD_ARTIFICIAL(TYPE_INDEX_TYPE((arraytype)),0))
--
--#define TYPE_ARRAY_UPPER_BOUND_VALUE(arraytype) \
-- (TYPE_HIGH_BOUND(TYPE_INDEX_TYPE((arraytype))))
-+ TYPE_RANGE_LOWER_BOUND_IS_UNDEFINED (TYPE_INDEX_TYPE (arraytype))
-+#define TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED(arraytype) \
-+ TYPE_RANGE_UPPER_BOUND_IS_UNDEFINED (TYPE_INDEX_TYPE (arraytype))
-
- #define TYPE_ARRAY_LOWER_BOUND_VALUE(arraytype) \
-- (TYPE_LOW_BOUND(TYPE_INDEX_TYPE((arraytype))))
-+ TYPE_LOW_BOUND (TYPE_INDEX_TYPE (arraytype))
-+#define TYPE_ARRAY_UPPER_BOUND_VALUE(arraytype) \
-+ TYPE_HIGH_BOUND (TYPE_INDEX_TYPE (arraytype))
-+/* TYPE_BYTE_STRIDE (TYPE_INDEX_TYPE (arraytype)) with a fallback to the
-+ element size if no specific stride value is known. */
-+#define TYPE_ARRAY_BYTE_STRIDE_VALUE(arraytype) \
-+ (TYPE_BYTE_STRIDE (TYPE_INDEX_TYPE (arraytype)) == 0 \
-+ ? TYPE_LENGTH (TYPE_TARGET_TYPE (arraytype)) \
-+ : TYPE_BYTE_STRIDE (TYPE_INDEX_TYPE (arraytype)))
-
- /* C++ */
-
-@@ -1078,6 +1156,16 @@ extern struct type *builtin_type_error;
- (TYPE_UNSIGNED(t) ? UMIN_OF_SIZE(TYPE_LENGTH(t)) \
- : MIN_OF_SIZE(TYPE_LENGTH(t)))
-
-+/* Virtual OBJFILE used for builtin types. */
-+#define OBJFILE_INTERNAL ((struct objfile *) 1L)
-+
-+/* Virtual OBJFILE used for types allocated by malloc. FIXME: Currently
-+ backward compatible with the old NULL value; fix then also init_type. */
-+#define OBJFILE_MALLOC ((struct objfile *) 0L)
-+
-+#define OBJFILE_IS_VIRTUAL(objfile) ((objfile) == OBJFILE_INTERNAL \
-+ || (objfile) == OBJFILE_MALLOC)
-+
- /* Allocate space for storing data associated with a particular type.
- We ensure that the space is allocated using the same mechanism that
- was used to allocate the space for the type structure itself. I.E.
-@@ -1087,18 +1175,18 @@ extern struct type *builtin_type_error;
- builtin types), then the data space will be allocated with xmalloc,
- the same as for the type structure. */
-
--#define TYPE_ALLOC(t,size) \
-- (TYPE_OBJFILE (t) != NULL \
-- ? obstack_alloc (&TYPE_OBJFILE (t) -> objfile_obstack, size) \
-- : xmalloc (size))
-+#define TYPE_ALLOC(t,size) \
-+ (OBJFILE_IS_VIRTUAL (TYPE_OBJFILE (t)) \
-+ ? xmalloc (size) \
-+ : obstack_alloc (&TYPE_OBJFILE (t) -> objfile_obstack, size))
-
--#define TYPE_ZALLOC(t,size) \
-- (TYPE_OBJFILE (t) != NULL \
-- ? memset (obstack_alloc (&TYPE_OBJFILE (t)->objfile_obstack, size), \
-- 0, size) \
-- : xzalloc (size))
-+#define TYPE_ZALLOC(t,size) \
-+ (OBJFILE_IS_VIRTUAL (TYPE_OBJFILE (t)) \
-+ ? xzalloc (size) \
-+ : memset (obstack_alloc (&TYPE_OBJFILE (t)->objfile_obstack, size), \
-+ 0, size))
-
--extern struct type *alloc_type (struct objfile *);
-+extern struct type *alloc_type (struct objfile *, struct type *);
-
- extern struct type *init_type (enum type_code, int, int, char *,
- struct objfile *);
-@@ -1172,6 +1260,18 @@ extern struct type *create_range_type (struct type *, struct type *, int,
- extern struct type *create_array_type (struct type *, struct type *,
- struct type *);
-
-+extern CORE_ADDR type_range_any_field_internal (struct type *range_type,
-+ int fieldno);
++ case BITNESS:
++ {
++ enum stap_arg_bitness b;
++ int got_minus = 0;
+
-+extern int type_range_high_bound_internal (struct type *range_type);
++ /* We expect to find something like:
+
-+extern int type_range_count_bound_internal (struct type *range_type);
++ N@OP
+
-+extern CORE_ADDR type_range_byte_stride_internal (struct type *range_type,
-+ struct type *element_type);
++ Where `N' can be [+,-][4,8]. This is not mandatory, so
++ we check it here. If we don't find it, go to the next
++ state. */
++ if ((*cur == '-' && cur[1] && cur[2] != '@')
++ && cur[1] != '@')
++ {
++ current_state = PARSE_ARG;
++ args_info->arg[current_arg].bitness
++ = STAP_ARG_BITNESS_UNDEFINED;
++ break;
++ }
+
-+extern void finalize_type (struct type *type);
++ if (*cur == '-')
++ {
++ /* Discard the `-'. */
++ ++cur;
++ got_minus = 1;
++ }
+
- extern struct type *create_string_type (struct type *, struct type *);
-
- extern struct type *create_set_type (struct type *, struct type *);
-@@ -1263,10 +1363,15 @@ extern void maintenance_print_type (char *, int);
-
- extern htab_t create_copied_types_hash (struct objfile *objfile);
-
--extern struct type *copy_type_recursive (struct objfile *objfile,
-- struct type *type,
-+extern struct type *copy_type_recursive (struct type *type,
- htab_t copied_types);
-
- extern struct type *copy_type (const struct type *type);
-
-+extern void type_incref (struct type *type);
++ if (*cur == '4')
++ b = got_minus ? STAP_ARG_BITNESS_32BIT_SIGNED
++ : STAP_ARG_BITNESS_32BIT_UNSIGNED;
++ else if (*cur == '8')
++ b = got_minus ? STAP_ARG_BITNESS_64BIT_SIGNED
++ : STAP_ARG_BITNESS_64BIT_UNSIGNED;
++ else
++ {
++ /* We have an error, because we don't expect anything
++ except 4 and 8. */
++ complaint (&symfile_complaints,
++ _("unrecognized bitness `%c' for probe `%s'"),
++ *cur, probe->name);
++ do_cleanups (back_to);
++ return;
++ }
+
-+extern void type_decref (struct type *type);
++ args_info->arg[current_arg].bitness = b;
++ /* Discard the number and the `@' sign. */
++ cur += 2;
++ /* Move on. */
++ current_state = PARSE_ARG;
++ }
++ break;
+
-+extern void free_all_types (void);
++ case PARSE_ARG:
++ {
++ const char *start = cur;
+
- #endif /* GDBTYPES_H */
-diff --git a/gdb/gnu-v2-abi.c b/gdb/gnu-v2-abi.c
-index 7cacac1..a456228 100644
---- a/gdb/gnu-v2-abi.c
-+++ b/gdb/gnu-v2-abi.c
-@@ -242,7 +242,7 @@ gnuv2_value_rtti_type (struct value *v, int *full, int *top, int *using_enc)
- we'd waste a bunch of time figuring out we already know the type.
- Besides, we don't care about the type, just the actual pointer
- */
-- if (VALUE_ADDRESS (value_field (v, known_type_vptr_fieldno)) == 0)
-+ if (value_address (value_field (v, known_type_vptr_fieldno)) == 0)
- return NULL;
-
- vtbl = value_as_address (value_field (v, known_type_vptr_fieldno));
-diff --git a/gdb/gnu-v3-abi.c b/gdb/gnu-v3-abi.c
-index 3a52df3..6cdf716 100644
---- a/gdb/gnu-v3-abi.c
-+++ b/gdb/gnu-v3-abi.c
-@@ -269,8 +269,7 @@ gnuv3_rtti_type (struct value *value,
-
- /* Find the linker symbol for this vtable. */
- vtable_symbol
-- = lookup_minimal_symbol_by_pc (VALUE_ADDRESS (vtable)
-- + value_offset (vtable)
-+ = lookup_minimal_symbol_by_pc (value_address (vtable)
- + value_embedded_offset (vtable));
- if (! vtable_symbol)
- return NULL;
-@@ -487,10 +486,8 @@ gnuv3_find_method_in (struct type *domain, CORE_ADDR voffset,
- LONGEST adjustment)
- {
- int i;
-- const char *physname;
-
- /* Search this class first. */
-- physname = NULL;
- if (adjustment == 0)
- {
- int len;
-@@ -615,13 +612,15 @@ gnuv3_print_method_ptr (const gdb_byte *contents,
- {
- char *demangled_name = cplus_demangle (physname,
- DMGL_ANSI | DMGL_PARAMS);
-- if (demangled_name != NULL)
-+ fprintf_filtered (stream, "&virtual ");
-+ if (demangled_name == NULL)
-+ fputs_filtered (physname, stream);
-+ else
- {
-- fprintf_filtered (stream, "&virtual ");
- fputs_filtered (demangled_name, stream);
- xfree (demangled_name);
-- return;
- }
-+ return;
- }
- }
-
-diff --git a/gdb/i386-linux-nat.c b/gdb/i386-linux-nat.c
-index 2366474..f83de32 100644
---- a/gdb/i386-linux-nat.c
-+++ b/gdb/i386-linux-nat.c
-@@ -751,7 +751,13 @@ i386_linux_resume (struct target_ops *ops,
- {
- int pid = PIDGET (ptid);
-
-- int request = PTRACE_CONT;
-+ int request;
++ if (!stap_parse_arg (&cur))
++ {
++ /* We have tried to parse this argument, but it's
++ malformed. This is an error. */
++ do_cleanups (back_to);
++ return;
++ }
+
-+ if (target_passed_by_entrypoint () > 0
-+ && catch_syscall_enabled () > 0)
-+ request = PTRACE_SYSCALL;
-+ else
-+ request = PTRACE_CONT;
-
- if (step)
- {
-diff --git a/gdb/i386-linux-tdep.c b/gdb/i386-linux-tdep.c
-index 1a2e4f0..973eced 100644
---- a/gdb/i386-linux-tdep.c
-+++ b/gdb/i386-linux-tdep.c
-@@ -37,6 +37,10 @@
- #include "symtab.h"
- #include "arch-utils.h"
- #include "regset.h"
-+#include "linux-tdep.h"
++ args_info->arg[current_arg].arg_str
++ = savestring (start, cur - start);
++ /* Start it over again. */
++ cur = skip_spaces ((char *) cur);
++ current_state = NEW_ARG;
++ }
++ break;
++ }
+
-+/* The syscall's XML filename for i386. */
-+#define XML_SYSCALL_FILENAME_I386 "syscalls/i386-linux.xml"
-
- /* Supported register note sections. */
- static struct core_regset_section i386_linux_regset_sections[] =
-@@ -349,6 +353,26 @@ i386_linux_write_pc (struct regcache *regcache, CORE_ADDR pc)
- }
- \f
-
-+static LONGEST
-+i386_linux_get_syscall_number (struct gdbarch *gdbarch,
-+ ptid_t ptid)
-+{
-+ struct regcache *regcache = get_thread_regcache (ptid);
-+ /* The content of a register. */
-+ gdb_byte buf[4];
-+ /* The result. */
-+ LONGEST ret;
++ if (!*cur && current_state != NEW_ARG)
++ {
++ /* We reached the end of the argument string, but we're
++ still in the middle of the process of parsing an argument.
++ It means the argument string is malformed. */
++ complaint (&symfile_complaints,
++ _("malformed argument for probe `%s'"),
++ probe->name);
++ do_cleanups (back_to);
++ return;
++ }
++ }
+
-+ /* Getting the system call number from the register.
-+ When dealing with x86 architecture, this information
-+ is stored at %eax register. */
-+ regcache_cooked_read (regcache, I386_LINUX_ORIG_EAX_REGNUM, buf);
++ args_info->n_args = current_arg + 1;
++ args_info->arg = xrealloc (args_info->arg,
++ args_info->n_args
++ * sizeof (struct stap_probe_arg));
++ args_info->probe = probe;
+
-+ ret = extract_signed_integer (buf, 4);
++ probe->parsed_args = args_info;
+
-+ return ret;
++ discard_cleanups (back_to);
+}
+
- /* The register sets used in GNU/Linux ELF core-dumps are identical to
- the register sets in `struct user' that are used for a.out
- core-dumps. These are also used by ptrace(2). The corresponding
-@@ -419,6 +443,9 @@ i386_linux_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
- {
- struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
-
-+ /* Initializing common functions. */
-+ linux_tdep_init (gdbarch);
-+
- /* GNU/Linux uses ELF. */
- i386_elf_init_abi (info, gdbarch);
-
-@@ -472,6 +499,11 @@ i386_linux_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
- displaced_step_at_entry_point);
-
- set_gdbarch_get_siginfo_type (gdbarch, linux_get_siginfo_type);
++/* See definition in stap-probe.h. */
+
-+ /* Functions for 'catch syscall'. */
-+ set_gdbarch_xml_syscall_filename (gdbarch, XML_SYSCALL_FILENAME_I386);
-+ set_gdbarch_get_syscall_number (gdbarch,
-+ i386_linux_get_syscall_number);
- }
-
- /* Provide a prototype to silence -Wmissing-prototypes. */
-diff --git a/gdb/inf-child.c b/gdb/inf-child.c
-index 38311f1..fc968cf 100644
---- a/gdb/inf-child.c
-+++ b/gdb/inf-child.c
-@@ -148,6 +148,15 @@ inf_child_remove_exec_catchpoint (int pid)
- }
-
- static int
-+inf_child_set_syscall_catchpoint (int pid, int needed, int any_count,
-+ int table_size, int *table)
++int
++stap_get_probe_argument_count (const struct stap_probe *probe)
+{
-+ /* This version of Unix doesn't support notification of syscall
-+ events. */
-+ return 0;
-+}
-+
-+static int
- inf_child_can_run (void)
- {
- return 1;
-@@ -190,6 +199,7 @@ inf_child_target (void)
- t->to_follow_fork = inf_child_follow_fork;
- t->to_insert_exec_catchpoint = inf_child_insert_exec_catchpoint;
- t->to_remove_exec_catchpoint = inf_child_remove_exec_catchpoint;
-+ t->to_set_syscall_catchpoint = inf_child_set_syscall_catchpoint;
- t->to_can_run = inf_child_can_run;
- t->to_pid_to_exec_file = inf_child_pid_to_exec_file;
- t->to_stratum = process_stratum;
-diff --git a/gdb/inf-ptrace.c b/gdb/inf-ptrace.c
-index f40b6b7..ff429c4 100644
---- a/gdb/inf-ptrace.c
-+++ b/gdb/inf-ptrace.c
-@@ -356,13 +356,19 @@ inf_ptrace_resume (struct target_ops *ops,
- ptid_t ptid, int step, enum target_signal signal)
- {
- pid_t pid = ptid_get_pid (ptid);
-- int request = PT_CONTINUE;
-+ int request;
-
- if (pid == -1)
- /* Resume all threads. Traditionally ptrace() only supports
- single-threaded processes, so simply resume the inferior. */
- pid = ptid_get_pid (inferior_ptid);
-
-+ if (target_passed_by_entrypoint () > 0
-+ && catch_syscall_enabled () > 0)
-+ request = PT_SYSCALL;
-+ else
-+ request = PT_CONTINUE;
-+
- if (step)
- {
- /* If this system does not support PT_STEP, a higher level
-diff --git a/gdb/infcall.c b/gdb/infcall.c
-index d6da8b2..80168b3 100644
---- a/gdb/infcall.c
-+++ b/gdb/infcall.c
-@@ -98,6 +98,28 @@ Unwinding of stack if a signal is received while in a call dummy is %s.\n"),
- value);
- }
-
-+/* This boolean tells what gdb should do if a std::terminate call is
-+ made while in a function called from gdb (call dummy).
-+ As the confines of a single dummy stack prohibit out-of-frame
-+ handlers from handling a raised exception, and as out-of-frame
-+ handlers are common in C++, this can lead to no handler being found
-+ by the unwinder, and a std::terminate call. This is a false positive.
-+ If set, gdb unwinds the stack and restores the context to what it
-+ was before the call.
++ if (!probe->parsed_args)
++ stap_parse_probe_arguments ((struct stap_probe *) probe);
+
-+ The default is to unwind the frame if a std::terminate call is made.. */
-+
-+static int unwind_on_terminating_exception_p = 1;
-+static void
-+show_unwind_on_terminating_exception_p (struct ui_file *file, int from_tty,
-+ struct cmd_list_element *c,
-+ const char *value)
-+
-+{
-+ fprintf_filtered (file, _("\
-+Unwind stack if a C++ exception is unhandled while in a call dummy is %s.\n"),
-+ value);
++ return probe->parsed_args->n_args;
+}
-
- /* Perform the standard coercions that are specified
- for arguments to be passed to C or Ada functions.
-@@ -217,7 +239,7 @@ find_function_addr (struct value *function, struct type **retval_type)
- /* Determine address to call. */
- if (code == TYPE_CODE_FUNC || code == TYPE_CODE_METHOD)
- {
-- funaddr = VALUE_ADDRESS (function);
-+ funaddr = value_address (function);
- value_type = TYPE_TARGET_TYPE (ftype);
- }
- else if (code == TYPE_CODE_PTR)
-@@ -419,6 +441,8 @@ call_function_by_hand (struct value *function, int nargs, struct value **args)
- struct cleanup *args_cleanup;
- struct frame_info *frame;
- struct gdbarch *gdbarch;
-+ struct breakpoint *terminate_bp = 0;
-+ struct minimal_symbol *tm;
- ptid_t call_thread_ptid;
- struct gdb_exception e;
- const char *name;
-@@ -718,6 +742,29 @@ call_function_by_hand (struct value *function, int nargs, struct value **args)
- bpt = set_momentary_breakpoint (sal, dummy_id, bp_call_dummy);
- bpt->disposition = disp_del;
- }
-+
-+ /* Create a breakpoint in std::terminate.
-+ If a C++ exception is raised in the dummy-frame, and the
-+ exception handler is (normally, and expected to be) out-of-frame,
-+ the default C++ handler will (wrongly) be called in an inferior
-+ function call. This is wrong, as an exception can be normally
-+ and legally handled out-of-frame. The confines of the dummy frame
-+ prevent the unwinder from finding the correct handler (or any
-+ handler, unless it is in-frame). The default handler calls
-+ std::terminate. This will kill the inferior. Assert that
-+ terminate should never be called in an inferior function
-+ call. Place a momentary breakpoint in the std::terminate function
-+ and if triggered in the call, rewind */
-+ if (unwind_on_terminating_exception_p)
-+ {
-+ tm = lookup_minimal_symbol ("std::terminate()", NULL, NULL);
-+ if (tm != NULL)
-+ {
-+ terminate_bp = set_momentary_breakpoint_at_pc
-+ (SYMBOL_VALUE_ADDRESS (tm), bp_breakpoint);
-+ make_cleanup_delete_breakpoint (terminate_bp);
-+ }
-+ }
-
- /* Everything's ready, push all the info needed to restore the
- caller (and identify the dummy-frame) onto the dummy-frame
-@@ -828,6 +875,16 @@ When the function is done executing, GDB will silently stop."),
- name);
- }
-
-+ if (! target_has_execution)
-+ {
-+ /* If we try to restore the inferior status (via the cleanup),
-+ we'll crash as the inferior is no longer running. */
-+ discard_cleanups (inf_status_cleanup);
-+ discard_inferior_status (inf_status);
-+ error (_("\
-+The program being debugged exited while in a function called from GDB."));
-+ }
-+
- if (stopped_by_random_signal || !stop_stack_dummy)
- {
- const char *name = get_function_name (funaddr,
-@@ -884,6 +941,38 @@ When the function is done executing, GDB will silently stop."),
-
- if (!stop_stack_dummy)
- {
-+
-+ /* Check if unwind on terminating exception behaviour is on */
-+ if (unwind_on_terminating_exception_p)
-+ {
-+ /* Check that the breakpoint is our special std::terminate
-+ breakpoint. If it is, we do not want to kill the inferior
-+ in an inferior function call. Rewind, and warn the user */
-+
-+ if ((terminate_bp != NULL) &&
-+ (inferior_thread()->stop_bpstat->breakpoint_at->address
-+ == terminate_bp->loc->address))
-+
-+
-+ {
-+
-+ /* We must get back to the frame we were before the
-+ dummy call. */
-+ dummy_frame_pop (dummy_id);
-+
-+ /* We also need to restore inferior status to that before the
-+ dummy call. */
-+ restore_inferior_status (inf_status);
-+
-+ error (_("\
-+The program being debugged entered a std::terminate call which would\n\
-+have terminated the program being debugged. GDB has restored the\n\
-+context to what it was before the call\n\
-+To change this behaviour use \"set unwind-on-terminating-exception off\"\n\
-+Evaluation of the expression containing the function (%s) will be abandoned."),
-+ name);
-+ }
-+ }
- /* We hit a breakpoint inside the FUNCTION.
- Keep the dummy frame, the user may want to examine its state.
- Discard inferior status, we're not at the same point
-@@ -992,4 +1081,19 @@ The default is to stop in the frame where the signal was received."),
- NULL,
- show_unwind_on_signal_p,
- &setlist, &showlist);
-+
-+ add_setshow_boolean_cmd ("unwind-on-terminating-exception", no_class,
-+ &unwind_on_terminating_exception_p, _("\
-+Set unwinding of stack if a std::terminate() call originates from\n\
-+the default C++ exception handler."), _("\
-+Show unwinding of stack if a std::terminate() call originates from\n\
-+the default C++ exception handler."), _("\
-+The unwind on terminating exception flag lets the user determine\n\
-+what gdb should do if a std::terminate() call is made from the\n\
-+default exception handler.\n\
-+The default is to unwind the frame."),
-+ NULL,
-+ show_unwind_on_terminating_exception_p,
-+ &setlist, &showlist);
+
- }
-diff --git a/gdb/infcmd.c b/gdb/infcmd.c
-index 0a17dab..d48f4b1 100644
---- a/gdb/infcmd.c
-+++ b/gdb/infcmd.c
-@@ -466,6 +466,11 @@ run_command_1 (char *args, int from_tty, int tbreak_at_main)
- init_wait_for_inferior ();
- clear_breakpoint_hit_counts ();
-
-+ /* If we already caught a syscall catchpoint, then reset its
-+ syscall_number information because we are starting all over
-+ again. */
-+ clear_syscall_catchpoints_info ();
-+
- /* Clean up any leftovers from other runs. Some other things from
- this function should probably be moved into target_pre_inferior. */
- target_pre_inferior (from_tty);
-diff --git a/gdb/infrun.c b/gdb/infrun.c
-index ee5f987..2f627ea 100644
---- a/gdb/infrun.c
-+++ b/gdb/infrun.c
-@@ -1046,7 +1046,7 @@ a command like `return' or `jump' to continue execution."));
- }
- }
-
-- /* If there were any forks/vforks/execs that were caught and are
-+ /* If there were any forks/vforks/execs/syscalls that were caught and are
- now to be followed, then do so. */
- switch (pending_follow.kind)
- {
-@@ -1069,6 +1069,11 @@ a command like `return' or `jump' to continue execution."));
- pending_follow.kind = TARGET_WAITKIND_SPURIOUS;
- break;
-
-+ case TARGET_WAITKIND_SYSCALL_ENTRY:
-+ case TARGET_WAITKIND_SYSCALL_RETURN:
-+ pending_follow.kind = TARGET_WAITKIND_SPURIOUS;
-+ break;
++/* Returns the operator precedence level of OP, or zero if the operator
++ code was not recognized.
++ The levels were taken from the gas manual. */
+
- default:
- break;
- }
-@@ -1509,7 +1514,7 @@ init_wait_for_inferior (void)
-
- breakpoint_init_inferior (inf_starting);
-
-- /* The first resume is not following a fork/vfork/exec. */
-+ /* The first resume is not following a fork/vfork/exec/syscall. */
- pending_follow.kind = TARGET_WAITKIND_SPURIOUS; /* I.e., none. */
-
- clear_proceed_status ();
-@@ -2155,6 +2160,50 @@ ensure_not_running (void)
- error_is_running ();
- }
-
-+/* Auxiliary function that handles syscall entry/return events.
-+ It returns 1 if the inferior should keep going (and GDB
-+ should ignore the event), or 0 if the event deserves to be
-+ processed. */
+static int
-+deal_with_syscall_event (struct execution_control_state *ecs)
++stap_get_operator_prec (enum exp_opcode op)
+{
-+ int syscall_number = gdbarch_get_syscall_number (current_gdbarch,
-+ ecs->ptid);
-+ if (catch_syscall_enabled () > 0
-+ && catching_syscall_number (syscall_number) > 0)
++ switch (op)
+ {
-+ ecs->event_thread->stop_signal = TARGET_SIGNAL_TRAP;
-+ pending_follow.kind = ecs->ws.kind;
++ case BINOP_LOGICAL_OR:
++ return 1;
+
-+ if (!ptid_equal (ecs->ptid, inferior_ptid))
-+ {
-+ context_switch (ecs->ptid);
-+ reinit_frame_cache ();
-+ }
++ case BINOP_LOGICAL_AND:
++ return 2;
+
-+ stop_pc = read_pc ();
++ case BINOP_ADD: case BINOP_SUB:
++ case BINOP_EQUAL: case BINOP_NOTEQUAL:
++ case BINOP_LESS: case BINOP_LEQ:
++ case BINOP_GTR: case BINOP_GEQ:
++ return 3;
+
-+ ecs->event_thread->stop_bpstat = bpstat_stop_status (stop_pc, ecs->ptid);
++ case BINOP_BITWISE_IOR: case BINOP_BITWISE_AND:
++ case BINOP_BITWISE_XOR: case UNOP_LOGICAL_NOT:
++ return 4;
+
-+ ecs->random_signal = !bpstat_explains_signal (ecs->event_thread->stop_bpstat);
++ case BINOP_MUL: case BINOP_DIV: case BINOP_REM:
++ case BINOP_LSH: case BINOP_RSH:
++ return 5;
+
-+ /* If no catchpoint triggered for this, then keep going. */
-+ if (ecs->random_signal)
-+ {
-+ ecs->event_thread->stop_signal = TARGET_SIGNAL_0;
-+ keep_going (ecs);
-+ return 1;
-+ }
++ default:
+ return 0;
+ }
-+ else
-+ {
-+ resume (0, TARGET_SIGNAL_0);
-+ prepare_to_wait (ecs);
-+ return 1;
-+ }
+}
+
- /* Given an execution control state that has been freshly filled in
- by an event from the inferior, figure out what it means and take
- appropriate action. */
-@@ -2449,9 +2498,11 @@ handle_inferior_event (struct execution_control_state *ecs)
- case TARGET_WAITKIND_SYSCALL_ENTRY:
- if (debug_infrun)
- fprintf_unfiltered (gdb_stdlog, "infrun: TARGET_WAITKIND_SYSCALL_ENTRY\n");
-- resume (0, TARGET_SIGNAL_0);
-- prepare_to_wait (ecs);
-- return;
-+ /* Getting the current syscall number */
-+ if (deal_with_syscall_event (ecs) != 0)
-+ return;
-+ goto process_event_stop_test;
++/* Given S, this function reads the operator in it and fills the OP
++ pointer with its code. Returns 1 on success, zero if the operator
++ was not recognized. */
++
++static int
++stap_get_opcode (char **s, enum exp_opcode *op)
++{
++ char c = **s;
++ int ret = 1;
++
++ *s += 1;
++
++ switch (c)
++ {
++ case '*':
++ *op = BINOP_MUL;
+ break;
-
- /* Before examining the threads further, step this thread to
- get it entirely out of the syscall. (We get notice of the
-@@ -2461,9 +2512,10 @@ handle_inferior_event (struct execution_control_state *ecs)
- case TARGET_WAITKIND_SYSCALL_RETURN:
- if (debug_infrun)
- fprintf_unfiltered (gdb_stdlog, "infrun: TARGET_WAITKIND_SYSCALL_RETURN\n");
-- target_resume (ecs->ptid, 1, TARGET_SIGNAL_0);
-- prepare_to_wait (ecs);
-- return;
-+ if (deal_with_syscall_event (ecs) != 0)
-+ return;
-+ goto process_event_stop_test;
++
++ case '/':
++ *op = BINOP_DIV;
+ break;
-
- case TARGET_WAITKIND_STOPPED:
- if (debug_infrun)
-@@ -5166,6 +5218,25 @@ inferior_has_execd (ptid_t pid, char **execd_pathname)
- return 1;
- }
-
-+int
-+inferior_has_called_syscall (ptid_t pid, int *syscall_number)
-+{
-+ struct target_waitstatus last;
-+ ptid_t last_ptid;
+
-+ get_last_target_status (&last_ptid, &last);
++ case '%':
++ {
++ if (isalpha (**s))
++ {
++ /* Dealing with a register name. */
++ ret = 0;
++ break;
++ }
+
-+ if (last.kind != TARGET_WAITKIND_SYSCALL_ENTRY &&
-+ last.kind != TARGET_WAITKIND_SYSCALL_RETURN)
-+ return 0;
++ *op = BINOP_REM;
++ }
++ break;
+
-+ if (!ptid_equal (last_ptid, pid))
-+ return 0;
++ case '<':
++ *op = BINOP_LESS;
++ if (**s == '<')
++ {
++ *s += 1;
++ *op = BINOP_LSH;
++ }
++ else if (**s == '=')
++ {
++ *s += 1;
++ *op = BINOP_LEQ;
++ }
++ else if (**s == '>')
++ {
++ *s += 1;
++ *op = BINOP_NOTEQUAL;
++ }
++ break;
+
-+ *syscall_number = last.value.syscall_number;
-+ return 1;
-+}
++ case '>':
++ *op = BINOP_GTR;
++ if (**s == '>')
++ {
++ *s += 1;
++ *op = BINOP_RSH;
++ }
++ else if (**s == '=')
++ {
++ *s += 1;
++ *op = BINOP_GEQ;
++ }
++ break;
+
- /* Oft used ptids */
- ptid_t null_ptid;
- ptid_t minus_one_ptid;
-diff --git a/gdb/jv-lang.c b/gdb/jv-lang.c
-index b702ebf..a211adf 100644
---- a/gdb/jv-lang.c
-+++ b/gdb/jv-lang.c
-@@ -61,7 +61,8 @@ static char *get_java_utf8_name (struct obstack *obstack, struct value *name);
- static int java_class_is_primitive (struct value *clas);
- static struct value *java_value_string (char *ptr, int len);
-
--static void java_emit_char (int c, struct ui_file * stream, int quoter);
-+static void java_emit_char (int c, struct type *type,
-+ struct ui_file * stream, int quoter);
-
- static char *java_class_name_from_physname (const char *physname);
-
-@@ -210,8 +211,7 @@ get_java_utf8_name (struct obstack *obstack, struct value *name)
- CORE_ADDR data_addr;
- temp = value_struct_elt (&temp, NULL, "length", NULL, "structure");
- name_length = (int) value_as_long (temp);
-- data_addr = VALUE_ADDRESS (temp) + value_offset (temp)
-- + TYPE_LENGTH (value_type (temp));
-+ data_addr = value_address (temp) + TYPE_LENGTH (value_type (temp));
- chrs = obstack_alloc (obstack, name_length + 1);
- chrs[name_length] = '\0';
- read_memory (data_addr, (gdb_byte *) chrs, name_length);
-@@ -266,7 +266,7 @@ type_from_class (struct value *clas)
- return NULL;
- clas = value_ind (clas);
- }
-- addr = VALUE_ADDRESS (clas) + value_offset (clas);
-+ addr = value_address (clas);
-
- #if 0
- get_java_class_symtab ();
-@@ -302,7 +302,7 @@ type_from_class (struct value *clas)
- if (type != NULL)
- return type;
-
-- type = alloc_type (objfile);
-+ type = alloc_type (objfile, NULL);
- TYPE_CODE (type) = TYPE_CODE_STRUCT;
- INIT_CPLUS_SPECIFIC (type);
-
-@@ -422,7 +422,7 @@ java_link_class_type (struct type *type, struct value *clas)
- fields = NULL;
- nfields--; /* First set up dummy "class" field. */
- SET_FIELD_PHYSADDR (TYPE_FIELD (type, nfields),
-- VALUE_ADDRESS (clas) + value_offset (clas));
-+ value_address (clas));
- TYPE_FIELD_NAME (type, nfields) = "class";
- TYPE_FIELD_TYPE (type, nfields) = value_type (clas);
- SET_TYPE_FIELD_PRIVATE (type, nfields);
-@@ -439,7 +439,9 @@ java_link_class_type (struct type *type, struct value *clas)
- }
- else
- { /* Re-use field value for next field. */
-- VALUE_ADDRESS (field) += TYPE_LENGTH (value_type (field));
-+ CORE_ADDR addr
-+ = value_address (field) + TYPE_LENGTH (value_type (field));
-+ set_value_address (field, addr);
- set_value_lazy (field, 1);
- }
- temp = field;
-@@ -509,7 +511,9 @@ java_link_class_type (struct type *type, struct value *clas)
- }
- else
- { /* Re-use method value for next method. */
-- VALUE_ADDRESS (method) += TYPE_LENGTH (value_type (method));
-+ CORE_ADDR addr
-+ = value_address (method) + TYPE_LENGTH (value_type (method));
-+ set_value_address (method, addr);
- set_value_lazy (method, 1);
- }
-
-@@ -796,7 +800,7 @@ java_value_string (char *ptr, int len)
- characters and strings is language specific. */
-
- static void
--java_emit_char (int c, struct ui_file *stream, int quoter)
-+java_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
- {
- switch (c)
- {
-diff --git a/gdb/jv-valprint.c b/gdb/jv-valprint.c
-index d3606fd..cdcb440 100644
---- a/gdb/jv-valprint.c
-+++ b/gdb/jv-valprint.c
-@@ -45,7 +45,7 @@ java_value_print (struct value *val, struct ui_file *stream,
- struct value_print_options opts;
-
- type = value_type (val);
-- address = VALUE_ADDRESS (val) + value_offset (val);
-+ address = value_address (val);
-
- if (is_object_type (type))
- {
-@@ -143,8 +143,8 @@ java_value_print (struct value *val, struct ui_file *stream,
- struct value *v = allocate_value (el_type);
- struct value *next_v = allocate_value (el_type);
-
-- VALUE_ADDRESS (v) = address + JAVA_OBJECT_SIZE + 4;
-- VALUE_ADDRESS (next_v) = VALUE_ADDRESS (v);
-+ set_value_address (v, address + JAVA_OBJECT_SIZE + 4);
-+ set_value_address (next_v, value_raw_address (v));
-
- while (i < length && things_printed < options->print_max)
- {
-@@ -230,7 +230,7 @@ java_value_print (struct value *val, struct ui_file *stream,
-
- value_free_to_mark (mark); /* Release unnecessary values */
-
-- val_print_string (data + boffset, count, 2, stream, options);
-+ val_print_string (java_char_type, data + boffset, count, stream, options);
-
- return 0;
- }
-@@ -520,7 +520,7 @@ java_val_print (struct type *type, const gdb_byte *valaddr,
- || (TYPE_CODE (type) == TYPE_CODE_INT
- && TYPE_LENGTH (type) == 2
- && strcmp (TYPE_NAME (type), "char") == 0))
-- LA_PRINT_CHAR ((int) unpack_long (type, valaddr), stream);
-+ LA_PRINT_CHAR ((int) unpack_long (type, valaddr), type, stream);
- else
- val_print_type_code_int (type, valaddr, stream);
- break;
-diff --git a/gdb/language.c b/gdb/language.c
-index 3c37a64..6209d7f 100644
---- a/gdb/language.c
-+++ b/gdb/language.c
-@@ -65,9 +65,11 @@ static void set_check (char *, int);
-
- static void set_type_range_case (void);
-
--static void unk_lang_emit_char (int c, struct ui_file *stream, int quoter);
-+static void unk_lang_emit_char (int c, struct type *type,
-+ struct ui_file *stream, int quoter);
-
--static void unk_lang_printchar (int c, struct ui_file *stream);
-+static void unk_lang_printchar (int c, struct type *type,
-+ struct ui_file *stream);
-
- static void unk_lang_print_type (struct type *, char *, struct ui_file *,
- int, int);
-@@ -1065,20 +1067,22 @@ unk_lang_error (char *msg)
- }
-
- static void
--unk_lang_emit_char (int c, struct ui_file *stream, int quoter)
-+unk_lang_emit_char (int c, struct type *type, struct ui_file *stream,
-+ int quoter)
- {
- error (_("internal error - unimplemented function unk_lang_emit_char called."));
- }
-
- static void
--unk_lang_printchar (int c, struct ui_file *stream)
-+unk_lang_printchar (int c, struct type *type, struct ui_file *stream)
- {
- error (_("internal error - unimplemented function unk_lang_printchar called."));
- }
-
- static void
--unk_lang_printstr (struct ui_file *stream, const gdb_byte *string,
-- unsigned int length, int width, int force_ellipses,
-+unk_lang_printstr (struct ui_file *stream, struct type *type,
-+ const gdb_byte *string, unsigned int length,
-+ int force_ellipses,
- const struct value_print_options *options)
- {
- error (_("internal error - unimplemented function unk_lang_printstr called."));
-diff --git a/gdb/language.h b/gdb/language.h
-index 85826fd..e5f80ab 100644
---- a/gdb/language.h
-+++ b/gdb/language.h
-@@ -186,14 +186,15 @@ struct language_defn
-
- void (*la_post_parser) (struct expression ** expp, int void_context_p);
-
-- void (*la_printchar) (int ch, struct ui_file * stream);
-+ void (*la_printchar) (int ch, struct type *chtype, struct ui_file * stream);
-
-- void (*la_printstr) (struct ui_file * stream, const gdb_byte *string,
-- unsigned int length, int width,
-+ void (*la_printstr) (struct ui_file * stream, struct type *elttype,
-+ const gdb_byte *string, unsigned int length,
- int force_ellipses,
- const struct value_print_options *);
-
-- void (*la_emitchar) (int ch, struct ui_file * stream, int quoter);
-+ void (*la_emitchar) (int ch, struct type *chtype,
-+ struct ui_file * stream, int quoter);
-
- /* Print a type using syntax appropriate for this language. */
-
-@@ -381,13 +382,13 @@ extern enum language set_language (enum language);
- #define LA_VALUE_PRINT(val,stream,options) \
- (current_language->la_value_print(val,stream,options))
-
--#define LA_PRINT_CHAR(ch, stream) \
-- (current_language->la_printchar(ch, stream))
--#define LA_PRINT_STRING(stream, string, length, width, force_ellipses,options) \
-- (current_language->la_printstr(stream, string, length, width, \
-+#define LA_PRINT_CHAR(ch, type, stream) \
-+ (current_language->la_printchar(ch, type, stream))
-+#define LA_PRINT_STRING(stream, elttype, string, length, force_ellipses,options) \
-+ (current_language->la_printstr(stream, elttype, string, length, \
- force_ellipses,options))
--#define LA_EMIT_CHAR(ch, stream, quoter) \
-- (current_language->la_emitchar(ch, stream, quoter))
-+#define LA_EMIT_CHAR(ch, type, stream, quoter) \
-+ (current_language->la_emitchar(ch, type, stream, quoter))
- #define LA_GET_STRING(value, buffer, length, encoding) \
- (current_language->la_get_string(value, buffer, length, encoding))
-
-diff --git a/gdb/linespec.c b/gdb/linespec.c
-index 6579d42..b3ae6c0 100644
---- a/gdb/linespec.c
-+++ b/gdb/linespec.c
-@@ -842,13 +842,33 @@ decode_line_1 (char **argptr, int funfirstline, struct symtab *default_symtab,
- }
- else if (paren_pointer != NULL)
- {
-- p = paren_pointer + 1;
-+ /* We need to deal with method and function overloads
-+ with no parameters. Gdb and gcc (and who knows about other
-+ compilers) are very inconsistent with the keyword "void".
-+ Canonicalizing C++ types is insufficient in this case, since
-+ we still need to enforce the presence (or lack thereof) of
-+ "void". For simplicity, omit the keyword "void" if present. */
-+ if (strncmp (paren_pointer - 5, "(void)", 6) == 0)
++ case '|':
++ *op = BINOP_BITWISE_IOR;
++ if (**s == '|')
+ {
-+ char *a, *b;
-+ a = paren_pointer - 4;
-+ b = paren_pointer;
-+ while ((*(a++) = *(b++)) != '\0') ;
-+ *a = '\0';
-+ p = paren_pointer - 3;
++ *s += 1;
++ *op = BINOP_LOGICAL_OR;
+ }
-+ else
-+ p = paren_pointer + 1;
- }
- else
- {
- p = skip_quoted (*argptr);
- }
-
-+ /* Make sure we keep important kewords like "const" */
-+ if (strncmp (p, " const", 6) == 0)
-+ p += 6;
++ break;
+
- copy = (char *) alloca (p - *argptr + 1);
- memcpy (copy, *argptr, p - *argptr);
- copy[p - *argptr] = '\0';
-diff --git a/gdb/linux-nat.c b/gdb/linux-nat.c
-index 12b786e..e30bf9a 100644
---- a/gdb/linux-nat.c
-+++ b/gdb/linux-nat.c
-@@ -61,6 +61,10 @@
- # endif
- #endif /* HAVE_PERSONALITY */
-
-+/* To be used when one needs to know wether a
-+ WSTOPSIG (status) is a syscall */
-+#define TRAP_IS_SYSCALL (SIGTRAP | 0x80)
++ case '&':
++ *op = BINOP_BITWISE_AND;
++ if (**s == '&')
++ {
++ *s += 1;
++ *op = BINOP_LOGICAL_AND;
++ }
++ break;
+
- /* This comment documents high-level logic of this file.
-
- Waiting for events in sync mode
-@@ -281,17 +285,29 @@ struct simple_pid_list *stopped_pids;
-
- static int linux_supports_tracefork_flag = -1;
-
-+/* This variable is a tri-state flag: -1 for unknown, 0 if PTRACE_O_TRACESYSGOOD
-+ can not be used, 1 if it can. */
++ case '^':
++ *op = BINOP_BITWISE_XOR;
++ break;
+
-+static int linux_supports_tracesysgood_flag = -1;
++ case '!':
++ *op = UNOP_LOGICAL_NOT;
++ break;
+
- /* If we have PTRACE_O_TRACEFORK, this flag indicates whether we also have
- PTRACE_O_TRACEVFORKDONE. */
-
- static int linux_supports_tracevforkdone_flag = -1;
-
-+/* If the inferior have passed through its entrypoint (AT_ENTRY),
-+ then this flag is set to 1. Otherwise, its value is 0. */
-+static int linux_passed_by_entrypoint_flag = 0;
++ case '+':
++ *op = BINOP_ADD;
++ break;
+
- /* Async mode support */
-
- /* Zero if the async mode, although enabled, is masked, which means
- linux_nat_wait should behave as if async mode was off. */
- static int linux_nat_async_mask_value = 1;
-
-+/* Stores the current used ptrace() options. */
-+static int current_ptrace_options = 0;
++ case '-':
++ *op = BINOP_SUB;
++ break;
+
- /* The read/write ends of the pipe registered as waitable file in the
- event loop. */
- static int linux_nat_event_pipe[2] = { -1, -1 };
-@@ -636,6 +652,41 @@ linux_test_for_tracefork (int original_pid)
- linux_nat_async_events (async_events_original_state);
- }
-
-+/* Determine if PTRACE_O_TRACESYSGOOD can be used to follow syscalls.
++ case '=':
++ if (**s != '=')
++ {
++ ret = 0;
++ break;
++ }
++ *op = BINOP_EQUAL;
++ break;
+
-+ We try to enable syscall tracing on ORIGINAL_PID. If this fails,
-+ we know that the feature is not available. This may change the tracing
-+ options for ORIGINAL_PID, but we'll be setting them shortly anyway. */
++ default:
++ /* We didn't find any operator. */
++ *s -= 1;
++ return 0;
++ }
++
++ return ret;
++}
++
++/* Given the operator OPCODE, this function generates agent bytecode
++ for it. */
+
+static void
-+linux_test_for_tracesysgood (int original_pid)
++stap_opcode_to_ax (struct stap_evaluation_info *eval_info,
++ enum exp_opcode opcode)
+{
-+ int ret;
-+ enum sigchld_state async_events_original_state;
++ struct agent_expr *expr = eval_info->aexpr;
+
-+ async_events_original_state = linux_nat_async_events (sigchld_sync);
++ switch (opcode)
++ {
++ case BINOP_MUL:
++ ax_simple (expr, aop_mul);
++ break;
+
-+ linux_supports_tracesysgood_flag = 0;
++ case BINOP_DIV:
++ ax_simple (expr, aop_div_signed);
++ break;
+
-+ ret = ptrace (PTRACE_SETOPTIONS, original_pid, 0, PTRACE_O_TRACESYSGOOD);
-+ if (ret != 0)
-+ return;
++ case BINOP_REM:
++ ax_simple (expr, aop_rem_unsigned);
++ break;
+
-+ linux_supports_tracesysgood_flag = 1;
-+ linux_nat_async_events (async_events_original_state);
-+}
++ case BINOP_LESS:
++ ax_simple (expr, aop_less_signed);
++ break;
+
-+/* Determine wether we support PTRACE_O_TRACESYSGOOD option available.
-+ This function also sets linux_supports_tracesysgood_flag. */
++ case BINOP_LEQ:
++ /* A <= B is !(B < A) */
++ ax_simple (expr, aop_swap);
++ ax_simple (expr, aop_less_signed);
++ ax_simple (expr, aop_log_not);
++ break;
+
-+static int
-+linux_supports_tracesysgood (int pid)
-+{
-+ if (linux_supports_tracesysgood_flag == -1)
-+ linux_test_for_tracesysgood (pid);
-+ return linux_supports_tracesysgood_flag;
-+}
++ case BINOP_GTR:
++ /* A > B is B < A */
++ ax_simple (expr, aop_swap);
++ ax_simple (expr, aop_less_signed);
++ break;
+
- /* Return non-zero iff we have tracefork functionality available.
- This function also sets linux_supports_tracefork_flag. */
-
-@@ -655,12 +706,34 @@ linux_supports_tracevforkdone (int pid)
- return linux_supports_tracevforkdone_flag;
- }
-
-+static void
-+linux_enable_tracesysgood (ptid_t ptid)
-+{
-+ int pid = ptid_get_lwp (ptid);
++ case BINOP_GEQ:
++ /* A >= B is !(A < B) */
++ ax_simple (expr, aop_less_signed);
++ ax_simple (expr, aop_log_not);
++ break;
+
-+ if (pid == 0)
-+ pid = ptid_get_pid (ptid);
++ case BINOP_NOTEQUAL:
++ ax_simple (expr, aop_equal);
++ ax_simple (expr, aop_log_not);
++ break;
+
-+ if (linux_supports_tracesysgood (pid) == 0)
-+ return;
++ case BINOP_LSH:
++ ax_simple (expr, aop_lsh);
++ break;
+
-+ current_ptrace_options |= PTRACE_O_TRACESYSGOOD;
-+ linux_passed_by_entrypoint_flag = 1;
++ case BINOP_RSH:
++ ax_simple (expr, aop_rsh_unsigned);
++ break;
+
-+ ptrace (PTRACE_SETOPTIONS, pid, 0, current_ptrace_options);
-+}
++ case BINOP_BITWISE_IOR:
++ ax_simple (expr, aop_bit_or);
++ break;
++
++ case BINOP_LOGICAL_OR:
++ error (_("Operator logical-or (`||') not supported yet."));
++ break;
+
-+static int
-+linux_passed_by_entrypoint (void)
-+{
-+ return linux_passed_by_entrypoint_flag;
-+}
++ case BINOP_BITWISE_AND:
++ ax_simple (expr, aop_bit_and);
++ break;
+
- \f
- void
- linux_enable_event_reporting (ptid_t ptid)
- {
- int pid = ptid_get_lwp (ptid);
-- int options;
-
- if (pid == 0)
- pid = ptid_get_pid (ptid);
-@@ -668,15 +741,16 @@ linux_enable_event_reporting (ptid_t ptid)
- if (! linux_supports_tracefork (pid))
- return;
-
-- options = PTRACE_O_TRACEFORK | PTRACE_O_TRACEVFORK | PTRACE_O_TRACEEXEC
-- | PTRACE_O_TRACECLONE;
-+ current_ptrace_options |= PTRACE_O_TRACEFORK | PTRACE_O_TRACEVFORK
-+ | PTRACE_O_TRACEEXEC | PTRACE_O_TRACECLONE;
++ case BINOP_LOGICAL_AND:
++ error (_("Operator logical-and (`&&') not supported yet."));
++ break;
+
- if (linux_supports_tracevforkdone (pid))
-- options |= PTRACE_O_TRACEVFORKDONE;
-+ current_ptrace_options |= PTRACE_O_TRACEVFORKDONE;
-
- /* Do not enable PTRACE_O_TRACEEXIT until GDB is more prepared to support
- read-only process state. */
-
-- ptrace (PTRACE_SETOPTIONS, pid, 0, options);
-+ ptrace (PTRACE_SETOPTIONS, pid, 0, current_ptrace_options);
- }
-
- static void
-@@ -684,6 +758,7 @@ linux_child_post_attach (int pid)
- {
- linux_enable_event_reporting (pid_to_ptid (pid));
- check_for_thread_db ();
-+ linux_enable_tracesysgood (pid_to_ptid (pid));
- }
-
- static void
-@@ -691,6 +766,7 @@ linux_child_post_startup_inferior (ptid_t ptid)
- {
- linux_enable_event_reporting (ptid);
- check_for_thread_db ();
-+ linux_enable_tracesysgood (ptid);
- }
-
- static int
-@@ -931,6 +1007,16 @@ linux_child_insert_exec_catchpoint (int pid)
- error (_("Your system does not support exec catchpoints."));
- }
-
-+static int
-+linux_child_set_syscall_catchpoint (int pid, int needed, int any_count,
-+ int table_size, int *table)
-+{
-+ if (! linux_supports_tracesysgood (pid))
-+ error (_("Your system does not support syscall catchpoints."));
-+ /* We ignore the arguments. */
-+ return 0;
-+}
++ case BINOP_BITWISE_XOR:
++ ax_simple (expr, aop_bit_xor);
++ break;
+
- /* On GNU/Linux there are no real LWP's. The closest thing to LWP's
- are processes sharing the same VM space. A multi-threaded process
- is basically a group of such processes. However, such a grouping
-@@ -1352,6 +1438,9 @@ linux_nat_create_inferior (struct target_ops *ops,
- int personality_orig = 0, personality_set = 0;
- #endif /* HAVE_PERSONALITY */
-
-+ /* We are sarting, so we still have not passed through our entrypoint. */
-+ linux_passed_by_entrypoint_flag = 0;
++ case UNOP_LOGICAL_NOT:
++ ax_simple (expr, aop_log_not);
++ break;
+
- /* The fork_child mechanism is synchronous and calls target_wait, so
- we have to mask the async mode. */
-
-@@ -1996,6 +2085,26 @@ linux_handle_extended_wait (struct lwp_info *lp, int status,
- return 0;
- }
-
-+ /* Used for 'catch syscall' feature. */
-+ if (WSTOPSIG (status) == TRAP_IS_SYSCALL)
-+ {
-+ if (catch_syscall_enabled () == 0)
-+ ourstatus->kind = TARGET_WAITKIND_IGNORE;
-+ else
-+ {
-+ struct regcache *regcache = get_thread_regcache (lp->ptid);
-+ struct gdbarch *gdbarch = get_regcache_arch (regcache);
-+
-+ ourstatus->kind =
-+ (lp->syscall_state == TARGET_WAITKIND_SYSCALL_ENTRY) ?
-+ TARGET_WAITKIND_SYSCALL_RETURN : TARGET_WAITKIND_SYSCALL_ENTRY;
-+ lp->syscall_state = ourstatus->kind;
-+ ourstatus->value.syscall_number =
-+ (int) gdbarch_get_syscall_number (gdbarch, lp->ptid);
-+ }
-+ return 0;
-+ }
++ case BINOP_ADD:
++ ax_simple (expr, aop_add);
++ break;
+
- internal_error (__FILE__, __LINE__,
- _("unknown ptrace event %d"), event);
- }
-@@ -2606,11 +2715,16 @@ linux_nat_filter_event (int lwpid, int status, int options)
- }
-
- /* Save the trap's siginfo in case we need it later. */
-- if (WIFSTOPPED (status) && WSTOPSIG (status) == SIGTRAP)
-+ if (WIFSTOPPED (status)
-+ && (WSTOPSIG (status) == SIGTRAP || WSTOPSIG (status) == TRAP_IS_SYSCALL))
- save_siginfo (lp);
-
-- /* Handle GNU/Linux's extended waitstatus for trace events. */
-- if (WIFSTOPPED (status) && WSTOPSIG (status) == SIGTRAP && status >> 16 != 0)
-+ /* Handle GNU/Linux's extended waitstatus for trace events.
-+ It is necessary to check if WSTOPSIG is signaling a that
-+ the inferior is entering/exiting a system call. */
-+ if (WIFSTOPPED (status)
-+ && ((WSTOPSIG (status) == TRAP_IS_SYSCALL)
-+ || (WSTOPSIG (status) == SIGTRAP && status >> 16 != 0)))
- {
- if (debug_linux_nat)
- fprintf_unfiltered (gdb_stdlog,
-@@ -4262,12 +4376,14 @@ linux_target_install_ops (struct target_ops *t)
- t->to_insert_fork_catchpoint = linux_child_insert_fork_catchpoint;
- t->to_insert_vfork_catchpoint = linux_child_insert_vfork_catchpoint;
- t->to_insert_exec_catchpoint = linux_child_insert_exec_catchpoint;
-+ t->to_set_syscall_catchpoint = linux_child_set_syscall_catchpoint;
- t->to_pid_to_exec_file = linux_child_pid_to_exec_file;
- t->to_post_startup_inferior = linux_child_post_startup_inferior;
- t->to_post_attach = linux_child_post_attach;
- t->to_follow_fork = linux_child_follow_fork;
- t->to_find_memory_regions = linux_nat_find_memory_regions;
- t->to_make_corefile_notes = linux_nat_make_corefile_notes;
-+ t->to_passed_by_entrypoint = linux_passed_by_entrypoint;
-
- super_xfer_partial = t->to_xfer_partial;
- t->to_xfer_partial = linux_xfer_partial;
-diff --git a/gdb/linux-nat.h b/gdb/linux-nat.h
-index fec5139..36d2439 100644
---- a/gdb/linux-nat.h
-+++ b/gdb/linux-nat.h
-@@ -70,6 +70,13 @@ struct lwp_info
- or to a local variable in lin_lwp_wait. */
- struct target_waitstatus waitstatus;
-
-+ /* Signal wether we are in a SYSCALL_ENTRY or
-+ in a SYSCALL_RETURN event.
-+ Values:
-+ - TARGET_WAITKIND_SYSCALL_ENTRY
-+ - TARGET_WAITKIND_SYSCALL_RETURN */
-+ int syscall_state;
-+
- /* Next LWP in list. */
- struct lwp_info *next;
- };
-diff --git a/gdb/linux-tdep.c b/gdb/linux-tdep.c
-index e18e134..d44b505 100644
---- a/gdb/linux-tdep.c
-+++ b/gdb/linux-tdep.c
-@@ -20,6 +20,8 @@
- #include "defs.h"
- #include "gdbtypes.h"
- #include "linux-tdep.h"
-+#include "xml-syscall.h"
-+#include "target.h"
-
- /* This function is suitable for architectures that don't
- extend/override the standard siginfo structure. */
-@@ -137,3 +139,81 @@ linux_get_siginfo_type (struct gdbarch *gdbarch)
-
- return siginfo_type;
- }
++ case BINOP_SUB:
++ ax_simple (expr, aop_sub);
++ break;
+
-+/* Structure used to store information about the available syscalls in
-+ the system. */
-+static const struct syscalls_info *sysinfo = NULL;
++ case BINOP_EQUAL:
++ ax_simple (expr, aop_equal);
++ break;
+
-+/* A flag to tell if we already initialized the structure above. */
-+static int have_initialized_sysinfo = 0;
++ default:
++ error (_("Invalid operator."));
++ }
++}
+
-+/* The filename of the syscall's XML. */
-+static const char *xml_syscall_file = NULL;
++/* Returns 1 if *S is an operator, zero otherwise. */
+
-+/* Initializes the syscalls_info structure according to the
-+ architecture. */
-+static void
-+init_sysinfo (struct gdbarch *gdbarch)
++static int
++stap_is_operator (char *s)
+{
-+ /* Did we already try to initialize the structure? */
-+ if (have_initialized_sysinfo)
-+ return;
++ char op;
+
-+ if (xml_syscall_file == NULL)
-+ xml_syscall_file = gdbarch_xml_syscall_filename (gdbarch);
++ if (!s || !*s)
++ return 0;
+
-+ sysinfo = xml_init_syscalls_info (xml_syscall_file);
++ op = *s;
+
-+ have_initialized_sysinfo = 1;
++ if (*s == '%' && isalpha (s[1]))
++ /* Register name. */
++ return 0;
+
-+ if (sysinfo == NULL)
-+ {
-+ if (xml_syscall_file)
-+ /* The initialization failed. Let's show a warning
-+ message to the user (just this time) and leave. */
-+ warning (_("Could not load the syscall XML file '%s'.\n\
-+GDB will not be able to display syscall names."), xml_syscall_file);
-+ else
-+ /* There's no file to open. Let's warn the user. */
-+ warning (_("There is no XML file to open.\n\
-+GDB will not be able to display syscall names."));
-+ }
++ return (op == '+' || op == '-' || op == '*' || op == '/'
++ || op == '>' || op == '<' || op == '!' || op == '^'
++ || op == '|' || op == '&' || op == '%' || op == '=');
+}
+
-+static void
-+linux_get_syscall_by_number (struct gdbarch *gdbarch,
-+ int syscall_number,
-+ struct syscall *s)
-+{
-+ init_sysinfo (gdbarch);
++/* This function fetches the value of the register whose
++ name starts in the expression buffer. It also applies any register
++ displacements (e.g., `-4(%eax)'), and indirects the contents of the
++ register (e.g., `(%eax)'). It returns RET if the operation has succeeded,
++ or calls `error' otherwise. */
+
-+ s->number = syscall_number;
-+ s->name = xml_get_syscall_name (sysinfo, syscall_number);
-+}
++static struct value *
++stap_fetch_reg_value (struct stap_evaluation_info *eval_info,
++ struct value *displacement)
++{
++ const char *start;
++ char *s = eval_info->exp_buf;
++ struct gdbarch *gdbarch = eval_info->gdbarch;
++ struct frame_info *frame = eval_info->frame;
++ enum stap_arg_bitness bitness = eval_info->bitness;
++ char *regname;
++ int len, regnum, indirect_p = 0;
++ struct value *ret = NULL;
++
++ /* The function which called us did not check if the expression
++ buffer was empty. */
++ gdb_assert (s && *s);
+
-+static void
-+linux_get_syscall_by_name (struct gdbarch *gdbarch,
-+ const char *syscall_name,
-+ struct syscall *s)
-+{
-+ init_sysinfo (gdbarch);
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ /* If we are compiling, we cannot return NULL because that would
++ lead to errors in future evaluations. That's why we just make
++ this dummy value, representing that the return value of this
++ function is not NULL. */
++ ret = value_from_longest (builtin_type (gdbarch)->builtin_int, 0);
+
-+ s->number = xml_get_syscall_number (sysinfo, syscall_name);
-+ s->name = syscall_name;
-+}
++ /* Valid register name on x86 platforms are:
+
-+static const char **
-+linux_get_syscall_names (struct gdbarch *gdbarch)
-+{
-+ init_sysinfo (gdbarch);
++ [paren]%{a-z0-9}[paren]
+
-+ return xml_list_of_syscalls (sysinfo);
-+}
++ Let's check for that here. */
++ if (*s == '(')
++ {
++ ++s;
++ if (!*s || *s != '%'
++ || (*s == '%' && !isalpha (s[1])))
++ error (_("Invalid register name on expression `%s'."),
++ eval_info->saved_expr);
++ ++s;
++ /* The presence of parenthesis means that we want to indirect
++ the register. */
++ indirect_p = 1;
++ }
++ else if (*s == '%')
++ {
++ ++s;
++ if (!*s || !isalpha (*s))
++ error (_("Invalid register name on expression `%s'."),
++ eval_info->saved_expr);
++ }
++ else
++ error (_("Invalid register name on expression `%s'."),
++ eval_info->saved_expr);
+
-+void
-+linux_tdep_init (struct gdbarch *gdbarch)
-+{
-+ set_gdbarch_get_syscall_by_number (gdbarch, linux_get_syscall_by_number);
-+ set_gdbarch_get_syscall_by_name (gdbarch, linux_get_syscall_by_name);
-+ set_gdbarch_get_syscall_names (gdbarch, linux_get_syscall_names);
-+}
-diff --git a/gdb/linux-tdep.h b/gdb/linux-tdep.h
-index 50af511..1e1e541 100644
---- a/gdb/linux-tdep.h
-+++ b/gdb/linux-tdep.h
-@@ -22,4 +22,6 @@
-
- struct type *linux_get_siginfo_type (struct gdbarch *);
-
-+extern void linux_tdep_init (struct gdbarch *gdbarch);
-+
- #endif /* linux-tdep.h */
-diff --git a/gdb/m2-lang.c b/gdb/m2-lang.c
-index 9e4bb1b..9ca3ae1 100644
---- a/gdb/m2-lang.c
-+++ b/gdb/m2-lang.c
-@@ -29,8 +29,8 @@
- #include "valprint.h"
-
- extern void _initialize_m2_language (void);
--static void m2_printchar (int, struct ui_file *);
--static void m2_emit_char (int, struct ui_file *, int);
-+static void m2_printchar (int, struct type *, struct ui_file *);
-+static void m2_emit_char (int, struct type *, struct ui_file *, int);
-
- /* Print the character C on STREAM as part of the contents of a literal
- string whose delimiter is QUOTER. Note that that format for printing
-@@ -39,7 +39,7 @@ static void m2_emit_char (int, struct ui_file *, int);
- be replaced with a true Modula version. */
-
- static void
--m2_emit_char (int c, struct ui_file *stream, int quoter)
-+m2_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
- {
-
- c &= 0xFF; /* Avoid sign bit follies */
-@@ -88,10 +88,10 @@ m2_emit_char (int c, struct ui_file *stream, int quoter)
- be replaced with a true Modula version. */
-
- static void
--m2_printchar (int c, struct ui_file *stream)
-+m2_printchar (int c, struct type *type, struct ui_file *stream)
- {
- fputs_filtered ("'", stream);
-- LA_EMIT_CHAR (c, stream, '\'');
-+ LA_EMIT_CHAR (c, type, stream, '\'');
- fputs_filtered ("'", stream);
- }
-
-@@ -103,14 +103,15 @@ m2_printchar (int c, struct ui_file *stream)
- be replaced with a true Modula version. */
-
- static void
--m2_printstr (struct ui_file *stream, const gdb_byte *string,
-- unsigned int length, int width, int force_ellipses,
-+m2_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
-+ unsigned int length, int force_ellipses,
- const struct value_print_options *options)
- {
- unsigned int i;
- unsigned int things_printed = 0;
- int in_quotes = 0;
- int need_comma = 0;
-+ int width = TYPE_LENGTH (type);
-
- if (length == 0)
- {
-@@ -152,7 +153,7 @@ m2_printstr (struct ui_file *stream, const gdb_byte *string,
- fputs_filtered ("\", ", stream);
- in_quotes = 0;
- }
-- m2_printchar (string[i], stream);
-+ m2_printchar (string[i], type, stream);
- fprintf_filtered (stream, " <repeats %u times>", reps);
- i = rep1 - 1;
- things_printed += options->repeat_count_threshold;
-@@ -168,7 +169,7 @@ m2_printstr (struct ui_file *stream, const gdb_byte *string,
- fputs_filtered ("\"", stream);
- in_quotes = 1;
- }
-- LA_EMIT_CHAR (string[i], stream, '"');
-+ LA_EMIT_CHAR (string[i], type, stream, '"');
- ++things_printed;
- }
- }
-diff --git a/gdb/m2-valprint.c b/gdb/m2-valprint.c
-index 71c410c..41fb8fe 100644
---- a/gdb/m2-valprint.c
-+++ b/gdb/m2-valprint.c
-@@ -237,7 +237,8 @@ print_unpacked_pointer (struct type *type,
- && TYPE_CODE (elttype) == TYPE_CODE_INT
- && (options->format == 0 || options->format == 's')
- && addr != 0)
-- return val_print_string (addr, -1, TYPE_LENGTH (elttype), stream, options);
-+ return val_print_string (TYPE_TARGET_TYPE (type), addr, -1,
-+ stream, options);
-
- return 0;
- }
-@@ -294,7 +295,7 @@ m2_print_array_contents (struct type *type, const gdb_byte *valaddr,
- || ((current_language->la_language == language_m2)
- && (TYPE_CODE (type) == TYPE_CODE_CHAR)))
- && (options->format == 0 || options->format == 's'))
-- val_print_string (address, len+1, eltlen, stream, options);
-+ val_print_string (type, address, len+1, stream, options);
- else
- {
- fprintf_filtered (stream, "{");
-@@ -359,7 +360,8 @@ m2_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- len = temp_len;
- }
-
-- LA_PRINT_STRING (stream, valaddr + embedded_offset, len, 1, 0,
-+ LA_PRINT_STRING (stream, TYPE_TARGET_TYPE (type),
-+ valaddr + embedded_offset, len, 0,
- options);
- i = len;
- }
-@@ -547,7 +549,7 @@ m2_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- else
- fprintf_filtered (stream, "%d", (int) val);
- fputs_filtered (" ", stream);
-- LA_PRINT_CHAR ((unsigned char) val, stream);
-+ LA_PRINT_CHAR ((unsigned char) val, type, stream);
- }
- break;
-
-diff --git a/gdb/m32r-tdep.c b/gdb/m32r-tdep.c
-index 5f4b9a6..eccfe31 100644
---- a/gdb/m32r-tdep.c
-+++ b/gdb/m32r-tdep.c
-@@ -713,7 +713,7 @@ m32r_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
- if (len > 8
- && (typecode == TYPE_CODE_STRUCT || typecode == TYPE_CODE_UNION))
- {
-- store_unsigned_integer (valbuf, 4, VALUE_ADDRESS (args[argnum]));
-+ store_unsigned_integer (valbuf, 4, value_address (args[argnum]));
- typecode = TYPE_CODE_PTR;
- len = 4;
- val = valbuf;
-diff --git a/gdb/macroexp.c b/gdb/macroexp.c
-index f0a8c1f..752a939 100644
---- a/gdb/macroexp.c
-+++ b/gdb/macroexp.c
-@@ -23,6 +23,7 @@
- #include "macrotab.h"
- #include "macroexp.h"
- #include "gdb_assert.h"
-+#include "c-lang.h"
-
-
- \f
-@@ -320,14 +321,17 @@ get_character_constant (struct macro_buffer *tok, char *p, char *end)
- way GDB's C/C++ lexer does. So we call parse_escape in utils.c
- to handle escape sequences. */
- if ((p + 1 <= end && *p == '\'')
-- || (p + 2 <= end && p[0] == 'L' && p[1] == '\''))
-+ || (p + 2 <= end
-+ && (p[0] == 'L' || p[0] == 'u' || p[0] == 'U')
-+ && p[1] == '\''))
- {
- char *tok_start = p;
- char *body_start;
-+ int char_count = 0;
-
- if (*p == '\'')
- p++;
-- else if (*p == 'L')
-+ else if (*p == 'L' || *p == 'u' || *p == 'U')
- p += 2;
- else
- gdb_assert (0);
-@@ -339,7 +343,7 @@ get_character_constant (struct macro_buffer *tok, char *p, char *end)
- error (_("Unmatched single quote."));
- else if (*p == '\'')
- {
-- if (p == body_start)
-+ if (!char_count)
- error (_("A character constant must contain at least one "
- "character."));
- p++;
-@@ -348,10 +352,13 @@ get_character_constant (struct macro_buffer *tok, char *p, char *end)
- else if (*p == '\\')
- {
- p++;
-- parse_escape (&p);
-+ char_count += c_parse_escape (&p, NULL);
- }
- else
-- p++;
-+ {
-+ p++;
-+ char_count++;
-+ }
- }
-
- set_token (tok, tok_start, p);
-@@ -370,16 +377,16 @@ static int
- get_string_literal (struct macro_buffer *tok, char *p, char *end)
- {
- if ((p + 1 <= end
-- && *p == '\"')
-+ && *p == '"')
- || (p + 2 <= end
-- && p[0] == 'L'
-- && p[1] == '\"'))
-+ && (p[0] == 'L' || p[0] == 'u' || p[0] == 'U')
-+ && p[1] == '"'))
- {
- char *tok_start = p;
-
-- if (*p == '\"')
-+ if (*p == '"')
- p++;
-- else if (*p == 'L')
-+ else if (*p == 'L' || *p == 'u' || *p == 'U')
- p += 2;
- else
- gdb_assert (0);
-@@ -388,7 +395,7 @@ get_string_literal (struct macro_buffer *tok, char *p, char *end)
- {
- if (p >= end)
- error (_("Unterminated string in expression."));
-- else if (*p == '\"')
-+ else if (*p == '"')
- {
- p++;
- break;
-@@ -399,7 +406,7 @@ get_string_literal (struct macro_buffer *tok, char *p, char *end)
- else if (*p == '\\')
- {
- p++;
-- parse_escape (&p);
-+ c_parse_escape (&p, NULL);
- }
- else
- p++;
-diff --git a/gdb/main.c b/gdb/main.c
-index 5d4640b..6f9e61b 100644
---- a/gdb/main.c
-+++ b/gdb/main.c
-@@ -40,6 +40,8 @@
- #include "interps.h"
- #include "main.h"
-
-+#include "python/python.h"
++ if (displacement && !indirect_p)
++ /* We cannot apply displacement to non-indirect register access. */
++ error (_("Trying to apply displacement without indirecting register "
++ "on expression `%s'."), eval_info->saved_expr);
+
- /* If nonzero, display time usage both at startup and for each command. */
-
- int display_time;
-@@ -62,6 +64,9 @@ int dbx_commands = 0;
- /* System root path, used to find libraries etc. */
- char *gdb_sysroot = 0;
-
-+/* GDB datadir, used to store data files. */
-+char *gdb_datadir = 0;
++ /* Ok, let's calculate the size of the register name. */
++ start = s;
++ while (isalnum (*s))
++ ++s;
+
- struct ui_file *gdb_stdout;
- struct ui_file *gdb_stderr;
- struct ui_file *gdb_stdlog;
-@@ -211,6 +216,8 @@ captured_main (void *data)
- char *cdarg = NULL;
- char *ttyarg = NULL;
-
-+ int python_script = 0;
++ len = s - start;
+
- /* These are static so that we can take their address in an initializer. */
- static int print_help;
- static int print_version;
-@@ -357,6 +364,40 @@ captured_main (void *data)
- }
- }
-
-+#ifdef GDB_DATADIR_RELOCATABLE
-+ gdb_datadir = make_relative_prefix (argv[0], BINDIR, GDB_DATADIR);
-+ if (gdb_datadir)
-+ {
-+ struct stat s;
-+ int res = 0;
++ if (indirect_p && *s == ')')
++ ++s;
+
-+ if (stat (gdb_datadir, &s) == 0)
-+ if (S_ISDIR (s.st_mode))
-+ res = 1;
++ regname = alloca (len + 1);
++ strncpy (regname, start, len);
++ regname[len] = '\0';
+
-+ if (res == 0)
-+ {
-+ xfree (gdb_datadir);
-+ gdb_datadir = xstrdup (GDB_DATADIR);
-+ }
-+ }
++ /* Translating the register name into the corresponding number. */
++ regnum = user_reg_map_name_to_regnum (gdbarch, regname, len);
++
++ if (regnum == -1)
++ error (_("Invalid register name `%s' on expression `%s'."),
++ regname, eval_info->saved_expr);
++
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ ax_reg (eval_info->aexpr, regnum);
+ else
-+ gdb_datadir = xstrdup (GDB_DATADIR);
-+#else
-+ gdb_datadir = xstrdup (GDB_DATADIR);
-+#endif /* GDB_DATADIR_RELOCATABLE */
++ ret = value_of_register (regnum, frame);
+
-+ /* Canonicalize the GDB's datadir path. */
-+ if (*gdb_datadir)
++ if (indirect_p)
+ {
-+ char *canon_debug = lrealpath (gdb_datadir);
-+ if (canon_debug)
++ struct type *t = NULL;
++ enum agent_op aop = aop_ref32;
++
++ /* If the user has specified that the register must be indirected,
++ we should know what's the correct type to cast it before making
++ the indirection. This type corresponds to the bitness specified
++ before the `@' sign on the argument string, or it defaults to
++ `unsigned long' if the `@' were not present. */
++
++ switch (bitness)
+ {
-+ xfree (gdb_datadir);
-+ gdb_datadir = canon_debug;
-+ }
-+ }
++ case STAP_ARG_BITNESS_UNDEFINED:
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ {
++ if (gdbarch_addr_bit (gdbarch) == 32)
++ aop = aop_ref32;
++ else
++ aop = aop_ref64;
++ }
++ else
++ {
++ if (gdbarch_addr_bit (gdbarch) == 32)
++ t = lookup_pointer_type
++ (builtin_type (gdbarch)->builtin_uint32);
++ else
++ t = lookup_pointer_type
++ (builtin_type (gdbarch)->builtin_uint64);
++ }
++ break;
+
- get_init_files (&system_gdbinit, &home_gdbinit, &local_gdbinit);
-
- /* There will always be an interpreter. Either the one passed into
-@@ -441,10 +482,14 @@ captured_main (void *data)
- {"args", no_argument, &set_args, 1},
- {"l", required_argument, 0, 'l'},
- {"return-child-result", no_argument, &return_child_result, 1},
-+#if HAVE_PYTHON
-+ {"python", no_argument, 0, 'P'},
-+ {"P", no_argument, 0, 'P'},
-+#endif
- {0, no_argument, 0, 0}
- };
-
-- while (1)
-+ while (!python_script)
- {
- int option_index;
-
-@@ -462,6 +507,9 @@ captured_main (void *data)
- case 0:
- /* Long option that just sets a flag. */
- break;
-+ case 'P':
-+ python_script = 1;
-+ break;
- case OPT_SE:
- symarg = optarg;
- execarg = optarg;
-@@ -638,7 +686,31 @@ extern int gdbtk_test (char *);
- use_windows = 0;
- }
-
-- if (set_args)
-+ if (python_script)
-+ {
-+ /* The first argument is a python script to evaluate, and
-+ subsequent arguments are passed to the script for
-+ processing there. */
-+ if (optind >= argc)
-+ {
-+ fprintf_unfiltered (gdb_stderr,
-+ _("%s: Python script file name required\n"),
-+ argv[0]);
-+ exit (1);
-+ }
++ case STAP_ARG_BITNESS_32BIT_SIGNED:
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ aop = aop_ref32;
++ else
++ t = lookup_pointer_type
++ (builtin_type (gdbarch)->builtin_int32);
++ break;
+
-+ /* FIXME: should handle inferior I/O intelligently here.
-+ E.g., should be possible to run gdb in pipeline and have
-+ Python (and gdb) output go to stderr or file; and if a
-+ prompt is needed, open the tty. */
-+ quiet = 1;
-+ /* FIXME: should read .gdbinit if, and only if, a prompt is
-+ requested by the script. Though... maybe this is not
-+ ideal? */
-+ /* FIXME: likewise, reading in history. */
-+ inhibit_gdbinit = 1;
-+ }
-+ else if (set_args)
- {
- /* The remaining options are the command-line options for the
- inferior. The first one is the sym/exec file, and the rest
-@@ -866,7 +938,8 @@ Can't attach to process and specify a core file at the same time."));
- xfree (cmdarg);
-
- /* Read in the old history after all the command files have been read. */
-- init_history ();
-+ if (!python_script)
-+ init_history ();
-
- if (batch)
- {
-@@ -895,13 +968,25 @@ Can't attach to process and specify a core file at the same time."));
- #endif
- }
-
-- /* NOTE: cagney/1999-11-07: There is probably no reason for not
-- moving this loop and the code found in captured_command_loop()
-- into the command_loop() proper. The main thing holding back that
-- change - SET_TOP_LEVEL() - has been eliminated. */
-- while (1)
-+#if HAVE_PYTHON
-+ if (python_script)
- {
-- catch_errors (captured_command_loop, 0, "", RETURN_MASK_ALL);
-+ extern int pagination_enabled;
-+ pagination_enabled = 0;
-+ run_python_script (argc - optind, &argv[optind]);
-+ return 1;
-+ }
-+ else
-+#endif
-+ {
-+ /* NOTE: cagney/1999-11-07: There is probably no reason for not
-+ moving this loop and the code found in captured_command_loop()
-+ into the command_loop() proper. The main thing holding back that
-+ change - SET_TOP_LEVEL() - has been eliminated. */
-+ while (1)
-+ {
-+ catch_errors (captured_command_loop, 0, "", RETURN_MASK_ALL);
++ case STAP_ARG_BITNESS_32BIT_UNSIGNED:
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ aop = aop_ref32;
++ else
++ t = lookup_pointer_type
++ (builtin_type (gdbarch)->builtin_uint32);
++ break;
++
++ case STAP_ARG_BITNESS_64BIT_SIGNED:
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ aop = aop_ref64;
++ else
++ t = lookup_pointer_type
++ (builtin_type (gdbarch)->builtin_int64);
++ break;
++
++ case STAP_ARG_BITNESS_64BIT_UNSIGNED:
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ aop = aop_ref64;
++ else
++ t = lookup_pointer_type
++ (builtin_type (gdbarch)->builtin_uint64);
++ break;
++
++ default:
++ internal_error (__FILE__, __LINE__,
++ _("Undefined bitness for probe."));
++ break;
+ }
- }
- /* No exit -- exit is through quit_command. */
- }
-@@ -933,7 +1018,12 @@ print_gdb_help (struct ui_file *stream)
- fputs_unfiltered (_("\
- This is the GNU debugger. Usage:\n\n\
- gdb [options] [executable-file [core-file or process-id]]\n\
-- gdb [options] --args executable-file [inferior-arguments ...]\n\n\
-+ gdb [options] --args executable-file [inferior-arguments ...]\n"), stream);
-+#if HAVE_PYTHON
-+ fputs_unfiltered (_("\
-+ gdb [options] [--python|-P] script-file [script-arguments ...]\n"), stream);
-+#endif
-+ fputs_unfiltered (_("\n\
- Options:\n\n\
- "), stream);
- fputs_unfiltered (_("\
-@@ -971,7 +1061,13 @@ Options:\n\n\
- --nw Do not use a window interface.\n\
- --nx Do not read "), stream);
- fputs_unfiltered (gdbinit, stream);
-- fputs_unfiltered (_(" file.\n\
-+ fputs_unfiltered (_(" file.\n"), stream);
-+#if HAVE_PYTHON
-+ fputs_unfiltered (_("\
-+ --python, -P Following argument is Python script file; remaining\n\
-+ arguments are passed to script.\n"), stream);
-+#endif
-+ fputs_unfiltered (_("\
- --quiet Do not print version number on startup.\n\
- --readnow Fully read symbol files on first access.\n\
- "), stream);
-diff --git a/gdb/maint.c b/gdb/maint.c
-index 56cafe9..1b57ff5 100644
---- a/gdb/maint.c
-+++ b/gdb/maint.c
-@@ -906,4 +906,12 @@ When enabled GDB is profiled."),
- show_maintenance_profile_p,
- &maintenance_set_cmdlist,
- &maintenance_show_cmdlist);
-+ add_setshow_filename_cmd ("gdb_datadir", class_maintenance,
-+ &gdb_datadir, _("Set GDB's datadir path."),
-+ _("Show GDB's datadir path."),
-+ _("\
-+When set, GDB uses the specified path to search for data files."),
-+ NULL, NULL,
-+ &maintenance_set_cmdlist,
-+ &maintenance_show_cmdlist);
- }
-diff --git a/gdb/mdebugread.c b/gdb/mdebugread.c
-index 7cbcc59..e507c3b 100644
---- a/gdb/mdebugread.c
-+++ b/gdb/mdebugread.c
-@@ -4696,7 +4696,7 @@ new_type (char *name)
- {
- struct type *t;
-
-- t = alloc_type (current_objfile);
-+ t = alloc_type (current_objfile, NULL);
- TYPE_NAME (t) = name;
- TYPE_CPLUS_SPECIFIC (t) = (struct cplus_struct_type *) &cplus_struct_default;
- return t;
-diff --git a/gdb/mi/mi-cmd-var.c b/gdb/mi/mi-cmd-var.c
-index 143074b..0f4efba 100644
---- a/gdb/mi/mi-cmd-var.c
-+++ b/gdb/mi/mi-cmd-var.c
-@@ -249,6 +249,41 @@ mi_cmd_var_set_format (char *command, char **argv, int argc)
- }
-
- void
-+mi_cmd_var_set_visualizer (char *command, char **argv, int argc)
-+{
-+ struct varobj *var;
+
-+ if (argc != 2)
-+ error ("Usage: NAME VISUALIZER_FUNCTION.");
++ if (displacement)
++ {
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ {
++ ax_const_l (eval_info->aexpr, value_as_long (displacement));
++ ax_simple (eval_info->aexpr, aop_add);
++ }
++ else
++ ret = value_ptradd (ret, value_as_long (displacement));
++ }
+
-+ var = varobj_get_handle (argv[0]);
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ {
++ if (trace_kludge)
++ {
++ gdb_assert (aop == aop_ref32 || aop == aop_ref64);
++ ax_trace_quick (eval_info->aexpr, aop == aop_ref32 ? 4 : 8);
++ }
++ ax_simple (eval_info->aexpr, aop);
++ }
++ else
++ {
++ ret = value_cast (t, ret);
++ ret = value_ind (ret);
++ }
++ }
+
-+ if (var == NULL)
-+ error ("Variable object not found");
++ /* Updating the expression buffer pointer, because we have made
++ some modifications to it before. */
++ eval_info->exp_buf = s;
+
-+ varobj_set_visualizer (var, argv[1]);
++ return ret;
+}
+
-+void
-+mi_cmd_var_set_child_range (char *command, char **argv, int argc)
-+{
-+ struct varobj *var;
-+ int from, to;
++/* This function tries to evaluate a single operand of the expression.
+
-+ if (argc != 3)
-+ error (_("-var-set-child-range: NAME FROM TO"));
++ Single operands can be:
+
-+ var = varobj_get_handle (argv[0]);
-+ if (var == NULL)
-+ error (_("Variable object not found"));
++ - unary operators `-' and `~';
++ - integer constants (beginning with `$');
++ - register access, with/out displacement and indirection. */
+
-+ from = atoi (argv[1]);
-+ to = atoi (argv[2]);
++static struct value *
++stap_evaluate_single_operand (struct stap_evaluation_info *eval_info)
++{
++ struct gdbarch *gdbarch = eval_info->gdbarch;
++ struct frame_info *frame = eval_info->frame;
++ enum stap_arg_bitness bitness = eval_info->bitness;
++ struct value *res = NULL;
+
-+ varobj_set_child_range (var, from, to);
-+}
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ /* If we are compiling, we cannot return NULL because that would
++ lead to errors in future evaluations. That's why we just make
++ this dummy value, representing that the return value of this
++ function is not NULL. */
++ res = value_from_longest (builtin_type (gdbarch)->builtin_int, 0);
+
-+void
- mi_cmd_var_set_frozen (char *command, char **argv, int argc)
- {
- struct varobj *var;
-@@ -369,6 +404,8 @@ mi_cmd_var_list_children (char *command, char **argv, int argc)
- int numchild;
- enum print_values print_values;
- int ix;
-+ int from, to;
-+ char *display_hint;
-
- if (argc != 1 && argc != 2)
- error (_("mi_cmd_var_list_children: Usage: [PRINT_VALUES] NAME"));
-@@ -388,14 +425,22 @@ mi_cmd_var_list_children (char *command, char **argv, int argc)
- else
- print_values = PRINT_NO_VALUES;
-
-- if (VEC_length (varobj_p, children) == 0)
-+ varobj_get_child_range (var, children, &from, &to);
-+ if (from >= to)
- return;
-
-+ display_hint = varobj_get_display_hint (var);
-+ if (display_hint)
++ switch (*eval_info->exp_buf)
+ {
-+ ui_out_field_string (uiout, "displayhint", display_hint);
-+ xfree (display_hint);
-+ }
-+
- if (mi_version (uiout) == 1)
- cleanup_children = make_cleanup_ui_out_tuple_begin_end (uiout, "children");
- else
- cleanup_children = make_cleanup_ui_out_list_begin_end (uiout, "children");
-- for (ix = 0; VEC_iterate (varobj_p, children, ix, child); ++ix)
-+ for (ix = from; ix < to && VEC_iterate (varobj_p, children, ix, child); ++ix)
- {
- struct cleanup *cleanup_child;
- cleanup_child = make_cleanup_ui_out_tuple_begin_end (uiout, "child");
-@@ -662,6 +707,8 @@ varobj_update_one (struct varobj *var, enum print_values print_values,
-
- for (i = 0; VEC_iterate (varobj_update_result, changes, i, r); ++i)
- {
-+ char *display_hint;
-+
- if (mi_version (uiout) > 1)
- cleanup = make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
- ui_out_field_string (uiout, "name", varobj_get_objname (r->varobj));
-@@ -695,6 +742,36 @@ varobj_update_one (struct varobj *var, enum print_values print_values,
- ui_out_field_int (uiout, "new_num_children",
- varobj_get_num_children (r->varobj));
- }
-+
-+ display_hint = varobj_get_display_hint (var);
-+ if (display_hint)
++ case '-': case '~':
+ {
-+ ui_out_field_string (uiout, "displayhint", display_hint);
-+ xfree (display_hint);
-+ }
++ char c = *eval_info->exp_buf;
+
-+ if (r->children_changed)
-+ {
-+ int ix, from, to;
-+ struct varobj *child;
-+ struct cleanup *cleanup =
-+ make_cleanup_ui_out_list_begin_end (uiout, "children");
++ /* This is an unary operator (either `-' or `~').
+
-+ VEC (varobj_p)* children = varobj_list_children (r->varobj);
-+ varobj_get_child_range (r->varobj, children, &from, &to);
++ If it is followed by a parenthesis, and this parenthesis
++ is NOT followed by a `%', then we are dealing with an expression
++ like `-(2 + 3)' or `~(2 + 3)'. We just have to treat separately
++ and return the result after applying the operation (`-' or `~').
+
-+ for (ix = from;
-+ ix < to && VEC_iterate (varobj_p, children, ix, child);
-+ ++ix)
-+ {
-+ struct cleanup *cleanup_child;
-+ cleanup_child = make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
-+ print_varobj (child, print_values, 1 /* print expression */);
-+ do_cleanups (cleanup_child);
-+ }
++ If it is followed by a digit, then we have only one choice: it
++ is a displacement argument for a register access, like
++ `-4(%eax)'. It also means that the operator can *only* be `-',
++ and the characters immediately after the number *must* be `(%'.
+
-+ do_cleanups (cleanup);
-+ }
-
- if (mi_version (uiout) > 1)
- do_cleanups (cleanup);
-diff --git a/gdb/mi/mi-cmds.c b/gdb/mi/mi-cmds.c
-index 2610b6a..f31233b 100644
---- a/gdb/mi/mi-cmds.c
-+++ b/gdb/mi/mi-cmds.c
-@@ -160,7 +160,9 @@ struct mi_cmd mi_cmds[] =
- { "var-info-num-children", { NULL, 0 }, mi_cmd_var_info_num_children},
- { "var-info-type", { NULL, 0 }, mi_cmd_var_info_type},
- { "var-list-children", { NULL, 0 }, mi_cmd_var_list_children},
-+ { "var-set-child-range", { NULL, 0 }, mi_cmd_var_set_child_range },
- { "var-set-format", { NULL, 0 }, mi_cmd_var_set_format},
-+ { "var-set-visualizer", { NULL, 0 }, mi_cmd_var_set_visualizer},
- { "var-set-frozen", { NULL, 0 }, mi_cmd_var_set_frozen},
- { "var-show-attributes", { NULL, 0 }, mi_cmd_var_show_attributes},
- { "var-show-format", { NULL, 0 }, mi_cmd_var_show_format},
-diff --git a/gdb/mi/mi-cmds.h b/gdb/mi/mi-cmds.h
-index 39f16fb..291a07f 100644
---- a/gdb/mi/mi-cmds.h
-+++ b/gdb/mi/mi-cmds.h
-@@ -92,7 +92,9 @@ extern mi_cmd_argv_ftype mi_cmd_var_info_num_children;
- extern mi_cmd_argv_ftype mi_cmd_var_info_type;
- extern mi_cmd_argv_ftype mi_cmd_var_list_children;
- extern mi_cmd_argv_ftype mi_cmd_var_set_format;
-+extern mi_cmd_argv_ftype mi_cmd_var_set_child_range;
- extern mi_cmd_argv_ftype mi_cmd_var_set_frozen;
-+extern mi_cmd_argv_ftype mi_cmd_var_set_visualizer;
- extern mi_cmd_argv_ftype mi_cmd_var_show_attributes;
- extern mi_cmd_argv_ftype mi_cmd_var_show_format;
- extern mi_cmd_argv_ftype mi_cmd_var_update;
-diff --git a/gdb/mi/mi-main.c b/gdb/mi/mi-main.c
-index b905a9e..eaa5f12 100644
---- a/gdb/mi/mi-main.c
-+++ b/gdb/mi/mi-main.c
-@@ -777,7 +777,7 @@ mi_cmd_data_evaluate_expression (char *command, char **argv, int argc)
- get_user_print_options (&opts);
- opts.deref_ref = 0;
- val_print (value_type (val), value_contents (val),
-- value_embedded_offset (val), VALUE_ADDRESS (val),
-+ value_embedded_offset (val), value_address (val),
- stb->stream, 0, &opts, current_language);
-
- ui_out_field_stream (uiout, "value", stb);
-@@ -1101,6 +1101,10 @@ mi_cmd_list_features (char *command, char **argv, int argc)
- ui_out_field_string (uiout, NULL, "frozen-varobjs");
- ui_out_field_string (uiout, NULL, "pending-breakpoints");
- ui_out_field_string (uiout, NULL, "thread-info");
++ If it is followed by a `$', then it is an integer constant, and
++ we should apply the correct operation to it. */
+
-+#if HAVE_PYTHON
-+ ui_out_field_string (uiout, NULL, "python");
-+#endif
-
- do_cleanups (cleanup);
- return;
-@@ -1317,6 +1321,7 @@ mi_cmd_execute (struct mi_parse *parse)
- struct cleanup *cleanup;
- int i;
- free_all_values ();
-+ free_all_types ();
-
- current_token = xstrdup (parse->token);
- cleanup = make_cleanup (free_current_contents, ¤t_token);
-diff --git a/gdb/minsyms.c b/gdb/minsyms.c
-index bf776b3..e4b0f31 100644
---- a/gdb/minsyms.c
-+++ b/gdb/minsyms.c
-@@ -48,6 +48,8 @@
- #include "value.h"
- #include "cp-abi.h"
- #include "target.h"
-+#include "cp-support.h"
-+#include "language.h"
-
- /* Accumulate the minimal symbols for each objfile in bunches of BUNCH_SIZE.
- At the end, copy them all into one newly allocated location on an objfile's
-@@ -187,6 +189,9 @@ lookup_minimal_symbol (const char *name, const char *sfile,
- unsigned int hash = msymbol_hash (name) % MINIMAL_SYMBOL_HASH_SIZE;
- unsigned int dem_hash = msymbol_hash_iw (name) % MINIMAL_SYMBOL_HASH_SIZE;
-
-+ int needtofreename = 0;
-+ const char *modified_name;
++ ++eval_info->exp_buf;
++ eval_info->exp_buf = skip_spaces (eval_info->exp_buf);
++ if (*eval_info->exp_buf
++ && *eval_info->exp_buf == '('
++ && eval_info->exp_buf[1] != '%')
++ {
++ struct value *tmp_res;
+
- if (sfile != NULL)
- {
- char *p = strrchr (sfile, '/');
-@@ -194,6 +199,18 @@ lookup_minimal_symbol (const char *name, const char *sfile,
- sfile = p + 1;
- }
-
-+ /* For C++, canonicalize the input name. */
-+ modified_name = name;
-+ if (current_language->la_language == language_cplus)
-+ {
-+ char *cname = cp_canonicalize_string (name);
-+ if (cname)
-+ {
-+ modified_name = cname;
-+ needtofreename = 1;
-+ }
-+ }
++ /* We're not dealing with a register name, but with an
++ expression like `-(2 + 3)' or `~(2 + 3)'. We first have
++ to evaluate the right side of the expression (i.e., the
++ parenthesis), and then apply the specified operation
++ (either `-' or `~') to it. */
++ tmp_res = stap_evaluate_conditionally (eval_info);
+
- for (objfile = object_files;
- objfile != NULL && found_symbol == NULL;
- objfile = objfile->next)
-@@ -218,9 +235,16 @@ lookup_minimal_symbol (const char *name, const char *sfile,
- int match;
-
- if (pass == 1)
-- match = strcmp (SYMBOL_LINKAGE_NAME (msymbol), name) == 0;
-+ {
-+ match = strcmp (SYMBOL_LINKAGE_NAME (msymbol),
-+ modified_name) == 0;
-+ }
- else
-- match = SYMBOL_MATCHES_SEARCH_NAME (msymbol, name);
++ if (c == '-')
++ {
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
+ {
-+ match = SYMBOL_MATCHES_SEARCH_NAME (msymbol,
-+ modified_name);
++ /* We have to add `-1' to the stack, and multiply
++ the two values. */
++ ax_const_l (eval_info->aexpr, -1);
++ ax_simple (eval_info->aexpr, aop_mul);
+ }
++ else
++ res = value_neg (tmp_res);
++ }
++ else
++ {
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ ax_simple (eval_info->aexpr, aop_bit_not);
++ else
++ res = value_complement (tmp_res);
++ }
++ }
++ else if (isdigit (*eval_info->exp_buf))
++ {
++ int number;
++
++ /* This is a number, so it MUST be a register displacement.
++ The only operator allowed here is `-', it MUST be
++ followed by a number, and the number MUST be followed by
++ `(%'. */
++ if (c != '-')
++ error (_("Invalid operator `%c' for register displacement "
++ "on expression `%s'."), c, eval_info->saved_expr);
++
++ number = strtol (eval_info->exp_buf,
++ &eval_info->exp_buf, 0) * -1;
++
++ if (!*eval_info->exp_buf
++ || *eval_info->exp_buf != '('
++ || (*eval_info->exp_buf == '('
++ && eval_info->exp_buf[1] != '%'))
++ error (_("Invalid method of indirecting a register on "
++ "expression `%s'."), eval_info->saved_expr);
++
++ res
++ = value_from_longest (builtin_type (gdbarch)->builtin_int,
++ number);
++
++ res = stap_fetch_reg_value (eval_info, res);
++ }
++ else if (*eval_info->exp_buf == '$')
++ {
++ int number;
++
++ /* Last case. We are dealing with an integer constant, so
++ we must read it and then apply the necessary operation,
++ either `-' or `~'. */
++ ++eval_info->exp_buf;
++ number = strtol (eval_info->exp_buf,
++ &eval_info->exp_buf, 0);
++
++ if (!STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ res
++ = value_from_longest (builtin_type (gdbarch)->builtin_int,
++ number);
++ else
++ ax_const_l (eval_info->aexpr, number);
+
- if (match)
- {
- switch (MSYMBOL_TYPE (msymbol))
-@@ -259,6 +283,10 @@ lookup_minimal_symbol (const char *name, const char *sfile,
- }
- }
- }
++ eval_info->exp_buf = skip_spaces (eval_info->exp_buf);
+
-+ if (needtofreename)
-+ xfree ((void *) modified_name);
-+
- /* External symbols are best. */
- if (found_symbol)
- return found_symbol;
-diff --git a/gdb/mips-tdep.c b/gdb/mips-tdep.c
-index 6c8c4c0..7d283a4 100644
---- a/gdb/mips-tdep.c
-+++ b/gdb/mips-tdep.c
-@@ -2757,7 +2757,7 @@ mips_eabi_push_dummy_call (struct gdbarch *gdbarch, struct value *function,
- if (len > regsize
- && (typecode == TYPE_CODE_STRUCT || typecode == TYPE_CODE_UNION))
- {
-- store_unsigned_integer (valbuf, regsize, VALUE_ADDRESS (arg));
-+ store_unsigned_integer (valbuf, regsize, value_address (arg));
- typecode = TYPE_CODE_PTR;
- len = regsize;
- val = valbuf;
-diff --git a/gdb/mipsread.c b/gdb/mipsread.c
-index a84003f..924c1c5 100644
---- a/gdb/mipsread.c
-+++ b/gdb/mipsread.c
-@@ -394,6 +394,7 @@ static struct sym_fns ecoff_sym_fns =
- mipscoff_new_init, /* sym_new_init: init anything gbl to entire symtab */
- mipscoff_symfile_init, /* sym_init: read initial info, setup for sym_read() */
- mipscoff_symfile_read, /* sym_read: read a symbol file into symtab */
-+ NULL, /* sym_read_psymbols */
- mipscoff_symfile_finish, /* sym_finish: finished with file, cleanup */
- default_symfile_offsets, /* sym_offsets: dummy FIXME til implem sym reloc */
- default_symfile_segments, /* sym_segments: Get segment information from
-diff --git a/gdb/mn10300-tdep.c b/gdb/mn10300-tdep.c
-index f0cea27..02be43a 100644
---- a/gdb/mn10300-tdep.c
-+++ b/gdb/mn10300-tdep.c
-@@ -1027,7 +1027,7 @@ mn10300_push_dummy_call (struct gdbarch *gdbarch,
- /* Change to pointer-to-type. */
- arg_len = push_size;
- store_unsigned_integer (valbuf, push_size,
-- VALUE_ADDRESS (*args));
-+ value_address (*args));
- val = &valbuf[0];
- }
- else
-diff --git a/gdb/objc-lang.c b/gdb/objc-lang.c
-index a6c74a3..9b8d801 100644
---- a/gdb/objc-lang.c
-+++ b/gdb/objc-lang.c
-@@ -280,7 +280,7 @@ objc_demangle (const char *mangled, int options)
- for printing characters and strings is language specific. */
-
- static void
--objc_emit_char (int c, struct ui_file *stream, int quoter)
-+objc_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
- {
-
- c &= 0xFF; /* Avoid sign bit follies. */
-@@ -326,10 +326,10 @@ objc_emit_char (int c, struct ui_file *stream, int quoter)
- }
-
- static void
--objc_printchar (int c, struct ui_file *stream)
-+objc_printchar (int c, struct type *type, struct ui_file *stream)
- {
- fputs_filtered ("'", stream);
-- objc_emit_char (c, stream, '\'');
-+ objc_emit_char (c, type, stream, '\'');
- fputs_filtered ("'", stream);
- }
-
-@@ -340,14 +340,16 @@ objc_printchar (int c, struct ui_file *stream)
- FORCE_ELLIPSES. */
-
- static void
--objc_printstr (struct ui_file *stream, const gdb_byte *string,
-- unsigned int length, int width, int force_ellipses,
-+objc_printstr (struct ui_file *stream, struct type *type,
-+ const gdb_byte *string, unsigned int length,
-+ int force_ellipses,
- const struct value_print_options *options)
- {
- unsigned int i;
- unsigned int things_printed = 0;
- int in_quotes = 0;
- int need_comma = 0;
-+ int width = TYPE_LENGTH (type);
-
- /* If the string was not truncated due to `set print elements', and
- the last byte of it is a null, we don't print that, in
-@@ -395,7 +397,7 @@ objc_printstr (struct ui_file *stream, const gdb_byte *string,
- fputs_filtered ("\", ", stream);
- in_quotes = 0;
- }
-- objc_printchar (string[i], stream);
-+ objc_printchar (string[i], type, stream);
- fprintf_filtered (stream, " <repeats %u times>", reps);
- i = rep1 - 1;
- things_printed += options->repeat_count_threshold;
-@@ -411,7 +413,7 @@ objc_printstr (struct ui_file *stream, const gdb_byte *string,
- fputs_filtered ("\"", stream);
- in_quotes = 1;
- }
-- objc_emit_char (string[i], stream, '"');
-+ objc_emit_char (string[i], type, stream, '"');
- ++things_printed;
- }
- }
-diff --git a/gdb/objfiles.c b/gdb/objfiles.c
-index bc77de8..079ebcf 100644
---- a/gdb/objfiles.c
-+++ b/gdb/objfiles.c
-@@ -691,6 +691,20 @@ have_partial_symbols (void)
- return 1;
- }
- }
++ if (c == '-')
++ {
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ ax_simple (eval_info->aexpr, aop_log_not);
++ else
++ res = value_neg (res);
++ }
++ else
++ {
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ ax_simple (eval_info->aexpr, aop_bit_not);
++ else
++ res = value_complement (res);
++ }
++ }
++ else
++ error (_("Invalid operand to unary operator `%c' on "
++ "expression `%s'."), c, eval_info->saved_expr);
++ }
++ break;
+
-+ /* Try again, after reading partial symbols. We do this in two
-+ passes because objfiles are always added to the head of the list,
-+ and there might be a later objfile for which we've already read
-+ partial symbols. */
-+ ALL_OBJFILES (ofp)
-+ {
-+ require_partial_symbols (ofp);
-+ if (ofp->psymtabs != NULL)
++ case '0': case '1': case '2': case '3': case '4':
++ case '5': case '6': case '7': case '8': case '9':
+ {
-+ return 1;
++ int number = strtol (eval_info->exp_buf, &eval_info->exp_buf, 0);
++
++ /* This is a register displacement with a positive value. We read
++ the number, and then check for the mandatory `(%' part. */
++ if (!*eval_info->exp_buf
++ || !(*eval_info->exp_buf == '('
++ && eval_info->exp_buf[1] == '%'))
++ error (_("Invalid register access on expression `%s'."),
++ eval_info->saved_expr);
++
++ res = value_from_longest (builtin_type (gdbarch)->builtin_int,
++ number);
++
++ res = stap_fetch_reg_value (eval_info, res);
+ }
-+ }
++ break;
+
- return 0;
- }
-
-diff --git a/gdb/objfiles.h b/gdb/objfiles.h
-index 60d3143..b6fdd92 100644
---- a/gdb/objfiles.h
-+++ b/gdb/objfiles.h
-@@ -212,6 +212,11 @@ struct objfile
-
- struct partial_symtab *psymtabs;
-
-+ /* An address map that can be used to quickly determine if an
-+ address comes from this objfile. This can be NULL. */
++ case '$':
++ {
++ int number;
+
-+ struct addrmap *quick_addrmap;
++ /* This is an integer constant. We just have to read the number
++ and return it. */
++ ++eval_info->exp_buf;
++ eval_info->exp_buf = skip_spaces (eval_info->exp_buf);
+
- /* Map addresses to the entries of PSYMTABS. It would be more efficient to
- have a map per the whole process but ADDRMAP cannot selectively remove
- its items during FREE_OBJFILE. This mapping is already present even for
-@@ -420,6 +425,15 @@ struct objfile
- #define OBJF_KEEPBFD (1 << 4) /* Do not delete bfd */
-
-
-+/* Set if we have tried to read partial symtabs for this objfile.
-+ This is used to allow lazy reading of partial symtabs. */
++ number = strtol (eval_info->exp_buf, &eval_info->exp_buf, 0);
+
-+#define OBJF_SYMTABS_READ (1 << 6)
++ if (STAP_COMPILING_AGENT_EXPR_P (eval_info))
++ ax_const_l (eval_info->aexpr, number);
++ else
++ res = value_from_longest (builtin_type (gdbarch)->builtin_int,
++ number);
+
-+/* This flag is set for the main objfile. */
++ eval_info->exp_buf = skip_spaces (eval_info->exp_buf);
++ }
++ break;
+
-+#define OBJF_MAIN (1 << 7)
++ case '(': case '%':
++ {
++ /* Register access, with or without indirection. */
++ res = stap_fetch_reg_value (eval_info, /*displacement=*/NULL);
++ eval_info->exp_buf = skip_spaces (eval_info->exp_buf);
++ }
++ break;
+
- /* The object file that the main symbol table was loaded from (e.g. the
- argument to the "symbol-file" or "file" command). */
-
-@@ -556,6 +570,13 @@ extern void *objfile_data (struct objfile *objfile,
- ALL_OBJFILES (objfile) \
- ALL_OBJFILE_PSYMTABS (objfile, p)
-
-+/* Like ALL_PSYMTABS, but ensure that partial symbols have been read
-+ before examining the objfile. */
++ default:
++ {
++ error (_("Operator `%c' not recognized on expression `%s'."),
++ *eval_info->exp_buf, eval_info->saved_expr);
++ }
++ }
+
-+#define ALL_PSYMTABS_REQUIRED(objfile, p) \
-+ ALL_OBJFILES (objfile) \
-+ ALL_OBJFILE_PSYMTABS (require_partial_symbols (objfile), p)
++ return res;
++}
+
- /* Traverse all minimal symbols in all objfiles. */
-
- #define ALL_MSYMBOLS(objfile, m) \
-diff --git a/gdb/p-lang.c b/gdb/p-lang.c
-index 41da3e0..e743a6f 100644
---- a/gdb/p-lang.c
-+++ b/gdb/p-lang.c
-@@ -97,7 +97,8 @@ pascal_main_name (void)
- but this does not happen for Free Pascal nor for GPC. */
- int
- is_pascal_string_type (struct type *type,int *length_pos,
-- int *length_size, int *string_pos, int *char_size,
-+ int *length_size, int *string_pos,
-+ struct type **char_type,
- char **arrayname)
- {
- if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
-@@ -114,8 +115,8 @@ is_pascal_string_type (struct type *type,int *length_pos,
- *length_size = TYPE_LENGTH (TYPE_FIELD_TYPE (type, 0));
- if (string_pos)
- *string_pos = TYPE_FIELD_BITPOS (type, 1) / TARGET_CHAR_BIT;
-- if (char_size)
-- *char_size = 1;
-+ if (char_type)
-+ *char_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 1));
- if (arrayname)
- *arrayname = TYPE_FIELDS (type)[1].name;
- return 2;
-@@ -126,7 +127,6 @@ is_pascal_string_type (struct type *type,int *length_pos,
- && strcmp (TYPE_FIELDS (type)[0].name, "Capacity") == 0
- && strcmp (TYPE_FIELDS (type)[1].name, "length") == 0)
- {
-- struct type *char_type;
- if (length_pos)
- *length_pos = TYPE_FIELD_BITPOS (type, 1) / TARGET_CHAR_BIT;
- if (length_size)
-@@ -134,13 +134,12 @@ is_pascal_string_type (struct type *type,int *length_pos,
- if (string_pos)
- *string_pos = TYPE_FIELD_BITPOS (type, 2) / TARGET_CHAR_BIT;
- /* FIXME: how can I detect wide chars in GPC ?? */
-- char_type = TYPE_FIELD_TYPE (type,2);
-- if (char_size && TYPE_CODE (char_type) == TYPE_CODE_ARRAY)
-+ if (char_type)
- {
-- *char_size = TYPE_LENGTH (TYPE_TARGET_TYPE (char_type));
-+ *char_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 2));
-+ if (TYPE_CODE (*char_type) == TYPE_CODE_ARRAY)
-+ *char_type = TYPE_TARGET_TYPE (*char_type);
- }
-- else if (char_size)
-- *char_size = 1;
- if (arrayname)
- *arrayname = TYPE_FIELDS (type)[2].name;
- return 3;
-@@ -182,14 +181,15 @@ pascal_one_char (int c, struct ui_file *stream, int *in_quotes)
- }
- }
-
--static void pascal_emit_char (int c, struct ui_file *stream, int quoter);
-+static void pascal_emit_char (int c, struct type *type,
-+ struct ui_file *stream, int quoter);
-
- /* Print the character C on STREAM as part of the contents of a literal
- string whose delimiter is QUOTER. Note that that format for printing
- characters and strings is language specific. */
-
- static void
--pascal_emit_char (int c, struct ui_file *stream, int quoter)
-+pascal_emit_char (int c, struct type *type, struct ui_file *stream, int quoter)
- {
- int in_quotes = 0;
- pascal_one_char (c, stream, &in_quotes);
-@@ -198,7 +198,7 @@ pascal_emit_char (int c, struct ui_file *stream, int quoter)
- }
-
- void
--pascal_printchar (int c, struct ui_file *stream)
-+pascal_printchar (int c, struct type *type, struct ui_file *stream)
- {
- int in_quotes = 0;
- pascal_one_char (c, stream, &in_quotes);
-@@ -212,14 +212,16 @@ pascal_printchar (int c, struct ui_file *stream)
- had to stop before printing LENGTH characters, or if FORCE_ELLIPSES. */
-
- void
--pascal_printstr (struct ui_file *stream, const gdb_byte *string,
-- unsigned int length, int width, int force_ellipses,
-+pascal_printstr (struct ui_file *stream, struct type *type,
-+ const gdb_byte *string, unsigned int length,
-+ int force_ellipses,
- const struct value_print_options *options)
- {
- unsigned int i;
- unsigned int things_printed = 0;
- int in_quotes = 0;
- int need_comma = 0;
-+ int width = TYPE_LENGTH (type);
-
- /* If the string was not truncated due to `set print elements', and
- the last byte of it is a null, we don't print that, in traditional C
-@@ -273,7 +275,7 @@ pascal_printstr (struct ui_file *stream, const gdb_byte *string,
- fputs_filtered ("', ", stream);
- in_quotes = 0;
- }
-- pascal_printchar (current_char, stream);
-+ pascal_printchar (current_char, type, stream);
- fprintf_filtered (stream, " <repeats %u times>", reps);
- i = rep1 - 1;
- things_printed += options->repeat_count_threshold;
-diff --git a/gdb/p-lang.h b/gdb/p-lang.h
-index 09a4569..2b2eb2d 100644
---- a/gdb/p-lang.h
-+++ b/gdb/p-lang.h
-@@ -48,12 +48,13 @@ extern void pascal_type_print_method_args (char *, char *,
- /* These are in p-lang.c: */
-
- extern int
-- is_pascal_string_type (struct type *, int *, int *, int *, int *, char **);
-+ is_pascal_string_type (struct type *, int *, int *, int *,
-+ struct type **, char **);
-
--extern void pascal_printchar (int, struct ui_file *);
-+extern void pascal_printchar (int, struct type *, struct ui_file *);
-
--extern void pascal_printstr (struct ui_file *, const gdb_byte *,
-- unsigned int, int, int,
-+extern void pascal_printstr (struct ui_file *, struct type *, const gdb_byte *,
-+ unsigned int, int,
- const struct value_print_options *);
-
- extern struct type **const (pascal_builtin_types[]);
-diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
-index 27ae619..29f0e6d 100644
---- a/gdb/p-valprint.c
-+++ b/gdb/p-valprint.c
-@@ -61,7 +61,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
- struct type *elttype;
- unsigned eltlen;
- int length_pos, length_size, string_pos;
-- int char_size;
-+ struct type *char_type;
- LONGEST val;
- CORE_ADDR addr;
-
-@@ -100,8 +100,9 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
- len = temp_len;
- }
-
-- LA_PRINT_STRING (stream, valaddr + embedded_offset, len,
-- eltlen, 0, options);
-+ LA_PRINT_STRING (stream, TYPE_TARGET_TYPE (type),
-+ valaddr + embedded_offset, len, 0,
-+ options);
- i = len;
- }
- else
-@@ -175,8 +176,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
- && addr != 0)
- {
- /* no wide string yet */
-- i = val_print_string (addr, -1, TYPE_LENGTH (elttype), stream,
-- options);
-+ i = val_print_string (elttype, addr, -1, stream, options);
- }
- /* also for pointers to pascal strings */
- /* Note: this is Free Pascal specific:
-@@ -184,7 +184,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
- Pascal strings are mapped to records
- with lowercase names PM */
- if (is_pascal_string_type (elttype, &length_pos, &length_size,
-- &string_pos, &char_size, NULL)
-+ &string_pos, &char_type, NULL)
- && addr != 0)
- {
- ULONGEST string_length;
-@@ -193,7 +193,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
- read_memory (addr + length_pos, buffer, length_size);
- string_length = extract_unsigned_integer (buffer, length_size);
- xfree (buffer);
-- i = val_print_string (addr + string_pos, string_length, char_size, stream, options);
-+ i = val_print_string (char_type ,addr + string_pos, string_length, stream, options);
- }
- else if (pascal_object_is_vtbl_member (type))
- {
-@@ -298,10 +298,10 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
- else
- {
- if (is_pascal_string_type (type, &length_pos, &length_size,
-- &string_pos, &char_size, NULL))
-+ &string_pos, &char_type, NULL))
- {
- len = extract_unsigned_integer (valaddr + embedded_offset + length_pos, length_size);
-- LA_PRINT_STRING (stream, valaddr + embedded_offset + string_pos, len, char_size, 0, options);
-+ LA_PRINT_STRING (stream, char_type, valaddr + embedded_offset + string_pos, len, 0, options);
- }
- else
- pascal_object_print_value_fields (type, valaddr + embedded_offset, address, stream,
-@@ -426,7 +426,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
- else
- fprintf_filtered (stream, "%d", (int) val);
- fputs_filtered (" ", stream);
-- LA_PRINT_CHAR ((unsigned char) val, stream);
-+ LA_PRINT_CHAR ((unsigned char) val, type, stream);
- }
- break;
-
-@@ -931,7 +931,7 @@ pascal_object_print_static_field (struct value *val,
-
- if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
- {
-- CORE_ADDR *first_dont_print;
-+ CORE_ADDR *first_dont_print, addr;
- int i;
-
- first_dont_print
-@@ -941,7 +941,7 @@ pascal_object_print_static_field (struct value *val,
-
- while (--i >= 0)
- {
-- if (VALUE_ADDRESS (val) == first_dont_print[i])
-+ if (value_address (val) == first_dont_print[i])
- {
- fputs_filtered ("<same as static member of an already seen type>",
- stream);
-@@ -949,11 +949,12 @@ pascal_object_print_static_field (struct value *val,
- }
- }
-
-- obstack_grow (&dont_print_statmem_obstack, (char *) &VALUE_ADDRESS (val),
-+ addr = value_address (val);
-+ obstack_grow (&dont_print_statmem_obstack, (char *) &addr,
- sizeof (CORE_ADDR));
-
- CHECK_TYPEDEF (type);
-- pascal_object_print_value_fields (type, value_contents (val), VALUE_ADDRESS (val),
-+ pascal_object_print_value_fields (type, value_contents (val), value_address (val),
- stream, recurse, options, NULL, 1);
- return;
- }
-diff --git a/gdb/parse.c b/gdb/parse.c
-index eee1f8e..66aaf6a 100644
---- a/gdb/parse.c
-+++ b/gdb/parse.c
-@@ -306,7 +306,7 @@ write_exp_elt_intern (struct internalvar *expelt)
- strings with embedded null bytes, as is required for some languages.
-
- Don't be fooled by the fact that the string is null byte terminated,
-- this is strictly for the convenience of debugging gdb itself. Gdb
-+ this is strictly for the convenience of debugging gdb itself.
- Gdb does not depend up the string being null terminated, since the
- actual length is recorded in expression elements at each end of the
- string. The null byte is taken into consideration when computing how
-@@ -352,6 +352,65 @@ write_exp_string (struct stoken str)
- write_exp_elt_longcst ((LONGEST) len);
- }
-
-+/* Add a vector of string constants to the end of the expression.
++/* This function is responsible for checking the necessary type of evaluation
++ depending on what is the next "thing" in the buffer. Valid values are:
+
-+ This adds an OP_STRING operation, but encodes the contents
-+ differently from write_exp_string. The language is expected to
-+ handle evaluation of this expression itself.
-+
-+ After the usual OP_STRING header, TYPE is written into the
-+ expression as a long constant. The interpretation of this field is
-+ up to the language evaluator.
-+
-+ Next, each string in VEC is written. The length is written as a
-+ long constant, followed by the contents of the string. */
++ - Unary operators;
++ - Integer constants;
++ - Register displacement, indirection, and direct access;
++ - Parenthesized operand. */
+
-+void
-+write_exp_string_vector (int type, struct stoken_vector *vec)
++static struct value *
++stap_evaluate_conditionally (struct stap_evaluation_info *eval_info)
+{
-+ int i, n_slots, len;
++ char *s = eval_info->exp_buf;
++ struct value *ret = NULL;
+
-+ /* Compute the size. We compute the size in number of slots to
-+ avoid issues with string padding. */
-+ n_slots = 0;
-+ for (i = 0; i < vec->len; ++i)
++ if (*s == '-' || *s == '~' /* Unary operators. */
++ || *s == '$' /* Number (integer constant). */
++ || (isdigit (*s) && s[1] == '(' && s[2] == '%') /* Displacement. */
++ || (*s == '(' && s[1] == '%') /* Register indirection. */
++ || (*s == '%' && isalpha (s[1]))) /* Register value. */
++ /* This is a single operand, so just evaluate it and return. */
++ ret = stap_evaluate_single_operand (eval_info);
++ else if (*s == '(')
+ {
-+ /* One slot for the length of this element, plus the number of
-+ slots needed for this string. */
-+ n_slots += 1 + BYTES_TO_EXP_ELEM (vec->tokens[i].length);
-+ }
++ /* We are dealing with a parenthesized operand. It means we
++ have to evaluate it as it was a separate expression, without
++ left-side or precedence. */
++ ++eval_info->exp_buf;
++ eval_info->exp_buf = skip_spaces (eval_info->exp_buf);
+
-+ /* One more slot for the type of the string. */
-+ ++n_slots;
++ ret = stap_evaluate_probe_argument_2 (eval_info,
++ /*lhs=*/NULL, /*prec=*/0);
+
-+ /* Now compute a phony string length. */
-+ len = EXP_ELEM_TO_BYTES (n_slots) - 1;
++ if (*eval_info->exp_buf != ')')
++ error (_("Missign close-paren on expression `%s'."),
++ eval_info->saved_expr);
+
-+ n_slots += 4;
-+ if ((expout_ptr + n_slots) >= expout_size)
-+ {
-+ expout_size = max (expout_size * 2, expout_ptr + n_slots + 10);
-+ expout = (struct expression *)
-+ xrealloc ((char *) expout, (sizeof (struct expression)
-+ + EXP_ELEM_TO_BYTES (expout_size)));
++ ++eval_info->exp_buf;
++ eval_info->exp_buf = skip_spaces (eval_info->exp_buf);
+ }
++ else
++ error (_("Cannot evaluate expression `%s'."),
++ eval_info->saved_expr);
++
++ return ret;
++}
+
-+ write_exp_elt_opcode (OP_STRING);
-+ write_exp_elt_longcst (len);
-+ write_exp_elt_longcst (type);
++/* Evaluation function for probe's argument expressions. LHS represents
++ the left side of the expression, and PREC is the precedence of the
++ last operator identified before calling the function. */
+
-+ for (i = 0; i < vec->len; ++i)
-+ {
-+ write_exp_elt_longcst (vec->tokens[i].length);
-+ memcpy (&expout->elts[expout_ptr], vec->tokens[i].ptr,
-+ vec->tokens[i].length);
-+ expout_ptr += BYTES_TO_EXP_ELEM (vec->tokens[i].length);
-+ }
++static struct value *
++stap_evaluate_probe_argument_2 (struct stap_evaluation_info *eval_info,
++ struct value *lhs, int prec)
++{
++ struct value *rhs = NULL;
++ int compiling_p = STAP_COMPILING_AGENT_EXPR_P (eval_info);
++
++ /* This is an operator-precedence parser and evaluator.
++
++ We work with left- and right-sides of expressions, and
++ evaluate them depending on the precedence of the operators
++ we find. */
++
++ eval_info->exp_buf = skip_spaces (eval_info->exp_buf);
++
++ if (!lhs)
++ /* We were called without a left-side, either because this is the
++ first call, or because we were called to evaluate a parenthesized
++ expression. It doesn't really matter; we have to evaluate the
++ left-side in order to continue the process. */
++ lhs = stap_evaluate_conditionally (eval_info);
++
++ /* Start to evaluate the right-side, and to "join" left and right sides
++ depending on the operation specified.
++
++ This loop shall continue until we run out of characters in the input,
++ or until we find a close-parenthesis, which means that we've reached
++ the end of a sub-expression. */
++ while (eval_info->exp_buf
++ && *eval_info->exp_buf
++ && *eval_info->exp_buf != ')')
++ {
++ char *tmp_exp_buf;
++ enum exp_opcode opcode;
++ int cur_prec;
++
++ if (!stap_is_operator (eval_info->exp_buf))
++ error (_("Invalid operator `%c' on expression `%s'."),
++ *eval_info->exp_buf, eval_info->saved_expr);
++
++ /* We have to save the current value of the expression buffer because
++ the `stap_get_opcode' modifies it in order to get the current
++ operator. If this operator's precedence is lower than PREC, we
++ should return and not advance the expression buffer pointer. */
++ tmp_exp_buf = eval_info->exp_buf;
++ stap_get_opcode (&tmp_exp_buf, &opcode);
++
++ cur_prec = stap_get_operator_prec (opcode);
++ if (cur_prec < prec)
++ /* If the precedence of the operator that we are seeing now is
++ lower than the precedence of the first operator seen before
++ this evaluation process began, it means we should stop evaluating
++ and return. */
++ break;
+
-+ write_exp_elt_longcst (len);
-+ write_exp_elt_opcode (OP_STRING);
-+}
++ eval_info->exp_buf = tmp_exp_buf;
++ eval_info->exp_buf = skip_spaces (eval_info->exp_buf);
+
- /* Add a bitstring constant to the end of the expression.
-
- Bitstring constants are stored by first writing an expression element
-@@ -777,6 +836,15 @@ operator_length_standard (struct expression *expr, int endpos,
- args = 1 + longest_to_int (expr->elts[endpos - 2].longconst);
- break;
-
-+ case TYPE_INSTANCE:
-+ oplen = 4 + longest_to_int (expr->elts[endpos - 2].longconst);
-+ args = 1;
-+ break;
++ /* Evaluate the right-side of the expression. */
++ rhs = stap_evaluate_conditionally (eval_info);
+
-+ case TYPE_INSTANCE_LOOKUP:
-+ oplen = 3;
-+ break;
++ /* While we still have operators, try to evaluate another
++ right-side, but using the current right-side as a left-side. */
++ while (*eval_info->exp_buf
++ && stap_is_operator (eval_info->exp_buf))
++ {
++ enum exp_opcode lookahead_opcode;
++ int lookahead_prec;
++
++ /* Saving the current expression buffer position. The explanation
++ is the same as above. */
++ tmp_exp_buf = eval_info->exp_buf;
++ stap_get_opcode (&tmp_exp_buf, &lookahead_opcode);
++ lookahead_prec = stap_get_operator_prec (lookahead_opcode);
++
++ if (lookahead_prec <= prec)
++ /* If we are dealing with an operator whose precedence is lower
++ than the first one, just abandon the attempt. */
++ break;
+
- case OP_OBJC_MSGCALL: /* Objective C message (method) call */
- oplen = 4;
- args = 1 + longest_to_int (expr->elts[endpos - 2].longconst);
-diff --git a/gdb/parser-defs.h b/gdb/parser-defs.h
-index 2c4b755..cbda9c3 100644
---- a/gdb/parser-defs.h
-+++ b/gdb/parser-defs.h
-@@ -69,6 +69,22 @@ struct stoken
- int length;
- };
-
-+struct typed_stoken
-+ {
-+ /* A language-specific type field. */
-+ int type;
-+ /* Pointer to first byte of char-string or first bit of bit-string */
-+ char *ptr;
-+ /* Length of string in bytes for char-string or bits for bit-string */
-+ int length;
-+ };
++ rhs = stap_evaluate_probe_argument_2 (eval_info,
++ rhs, lookahead_prec);
++ }
+
-+struct stoken_vector
-+ {
-+ int len;
-+ struct typed_stoken *tokens;
-+ };
++ /* Now, "join" both left and right sides into one left-side, using
++ the specified operator. */
++ if (compiling_p)
++ stap_opcode_to_ax (eval_info, opcode);
++ else
++ lhs = value_binop (lhs, rhs, opcode);
++ }
+
- struct ttype
- {
- struct stoken stoken;
-@@ -130,6 +146,8 @@ extern void write_exp_elt_intern (struct internalvar *);
-
- extern void write_exp_string (struct stoken);
-
-+void write_exp_string_vector (int type, struct stoken_vector *vec);
-+
- extern void write_exp_bitstring (struct stoken);
-
- extern void write_exp_elt_block (struct block *);
-diff --git a/gdb/ppc-linux-tdep.c b/gdb/ppc-linux-tdep.c
-index d08d4fc..c2bbdf9 100644
---- a/gdb/ppc-linux-tdep.c
-+++ b/gdb/ppc-linux-tdep.c
-@@ -38,6 +38,7 @@
- #include "trad-frame.h"
- #include "frame-unwind.h"
- #include "tramp-frame.h"
-+#include "linux-tdep.h"
-
- #include "features/rs6000/powerpc-32l.c"
- #include "features/rs6000/powerpc-altivec32l.c"
-@@ -53,6 +54,9 @@
- #include "features/rs6000/powerpc-isa205-vsx64l.c"
- #include "features/rs6000/powerpc-e500l.c"
-
-+/* The syscall's XML filename for PPC and PPC64. */
-+#define XML_SYSCALL_FILENAME_PPC "syscalls/ppc-linux.xml"
-+#define XML_SYSCALL_FILENAME_PPC64 "syscalls/ppc64-linux.xml"
-
- /* ppc_linux_memory_remove_breakpoints attempts to remove a breakpoint
- in much the same fashion as memory_remove_breakpoint in mem-break.c,
-@@ -1009,6 +1013,38 @@ ppc_linux_trap_reg_p (struct gdbarch *gdbarch)
- && register_size (gdbarch, PPC_TRAP_REGNUM) > 0;
- }
-
-+/* Return the current system call's number present in the
-+ r0 register. When the function fails, it returns -1. */
-+static LONGEST
-+ppc_linux_get_syscall_number (struct gdbarch *gdbarch,
-+ ptid_t ptid)
-+{
-+ struct regcache *regcache = get_thread_regcache (ptid);
-+ struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
-+ struct cleanup *cleanbuf;
-+ /* The content of a register */
-+ gdb_byte *buf;
-+ /* The result */
-+ LONGEST ret;
++ return lhs;
++}
+
-+ /* Make sure we're in a 32- or 64-bit machine */
-+ gdb_assert (tdep->wordsize == 4 || tdep->wordsize == 8);
++/* This function fills the necessary arguments for the evaluation function
++ to work. */
+
-+ buf = (gdb_byte *) xmalloc (tdep->wordsize * sizeof (gdb_byte));
++static struct value *
++stap_evaluate_probe_argument_1 (struct objfile *objfile,
++ const struct stap_probe *probe,
++ struct frame_info *frame,
++ int n)
++{
++ struct stap_evaluation_info eval_info;
++ char *s = (char *) probe->parsed_args->arg[n].arg_str;
++ struct value *res, *vs[4];
+
-+ cleanbuf = make_cleanup (xfree, buf);
++ /* Filling necessary information for evaluation function. */
++ eval_info.saved_expr = s;
++ eval_info.exp_buf = s;
++ eval_info.gdbarch = get_objfile_arch (objfile);
++ eval_info.frame = frame;
++ eval_info.bitness = probe->parsed_args->arg[n].bitness;
++ /* We are not compiling to an agent expression. */
++ eval_info.aexpr = NULL;
++ eval_info.avalue = NULL;
+
-+ /* Getting the system call number from the register.
-+ When dealing with PowerPC architecture, this information
-+ is stored at 0th register. */
-+ regcache_cooked_read (regcache, tdep->ppc_gp0_regnum, buf);
++ res = stap_evaluate_probe_argument_2 (&eval_info,
++ /*lhs=*/NULL, /*prec=*/0);
+
-+ ret = extract_signed_integer (buf, tdep->wordsize);
-+ do_cleanups (cleanbuf);
++ if (!res)
++ error (_("Could not evaluate expression `%s'."),
++ eval_info.saved_expr);
+
-+ return ret;
++ return res;
+}
+
- static void
- ppc_linux_write_pc (struct regcache *regcache, CORE_ADDR pc)
- {
-@@ -1069,6 +1105,9 @@ ppc_linux_init_abi (struct gdbarch_info info,
- struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
- struct tdesc_arch_data *tdesc_data = (void *) info.tdep_info;
-
-+ /* Initializing common methods. */
-+ linux_tdep_init (gdbarch);
++/* See definition in stap-probe.h. */
+
- /* PPC GNU/Linux uses either 64-bit or 128-bit long doubles; where
- 128-bit, they are IBM long double, not IEEE quad long double as
- in the System V ABI PowerPC Processor Supplement. We can safely
-@@ -1080,6 +1119,9 @@ ppc_linux_init_abi (struct gdbarch_info info,
- /* Handle inferior calls during interrupted system calls. */
- set_gdbarch_write_pc (gdbarch, ppc_linux_write_pc);
-
-+ /* Get the syscall number from the arch's register. */
-+ set_gdbarch_get_syscall_number (gdbarch, ppc_linux_get_syscall_number);
++struct value *
++stap_evaluate_probe_argument (struct objfile *objfile,
++ const struct stap_probe *probe,
++ struct frame_info *frame,
++ int n)
++{
++ if (!probe->parsed_args)
++ stap_parse_probe_arguments ((struct stap_probe *) probe);
+
- if (tdep->wordsize == 4)
- {
- /* Until November 2001, gcc did not comply with the 32 bit SysV
-@@ -1099,6 +1141,9 @@ ppc_linux_init_abi (struct gdbarch_info info,
- set_solib_svr4_fetch_link_map_offsets
- (gdbarch, svr4_ilp32_fetch_link_map_offsets);
-
-+ /* Setting the correct XML syscall filename. */
-+ set_gdbarch_xml_syscall_filename (gdbarch, XML_SYSCALL_FILENAME_PPC);
-+
- /* Trampolines. */
- tramp_frame_prepend_unwinder (gdbarch, &ppc32_linux_sigaction_tramp_frame);
- tramp_frame_prepend_unwinder (gdbarch, &ppc32_linux_sighandler_tramp_frame);
-@@ -1116,6 +1161,9 @@ ppc_linux_init_abi (struct gdbarch_info info,
- set_solib_svr4_fetch_link_map_offsets
- (gdbarch, svr4_lp64_fetch_link_map_offsets);
-
-+ /* Setting the correct XML syscall filename. */
-+ set_gdbarch_xml_syscall_filename (gdbarch, XML_SYSCALL_FILENAME_PPC64);
-+
- /* Trampolines. */
- tramp_frame_prepend_unwinder (gdbarch, &ppc64_linux_sigaction_tramp_frame);
- tramp_frame_prepend_unwinder (gdbarch, &ppc64_linux_sighandler_tramp_frame);
-diff --git a/gdb/printcmd.c b/gdb/printcmd.c
-index 375f82e..8c3f476 100644
---- a/gdb/printcmd.c
-+++ b/gdb/printcmd.c
-@@ -43,6 +43,7 @@
- #include "disasm.h"
- #include "dfp.h"
- #include "valprint.h"
-+#include "charset.h"
-
- #ifdef TUI
- #include "tui/tui.h" /* For tui_active et.al. */
-@@ -62,11 +63,15 @@ struct format_data
- int count;
- char format;
- char size;
-+
-+ /* True if the value should be printed raw -- that is, bypassing
-+ python-based formatters. */
-+ unsigned char raw;
- };
-
- /* Last specified output format. */
-
--static char last_format = 'x';
-+static char last_format = 0;
-
- /* Last specified examination size. 'b', 'h', 'w' or `q'. */
-
-@@ -175,6 +180,7 @@ decode_format (char **string_ptr, int oformat, int osize)
- val.format = '?';
- val.size = '?';
- val.count = 1;
-+ val.raw = 0;
-
- if (*p >= '0' && *p <= '9')
- val.count = atoi (p);
-@@ -187,6 +193,11 @@ decode_format (char **string_ptr, int oformat, int osize)
- {
- if (*p == 'b' || *p == 'h' || *p == 'w' || *p == 'g')
- val.size = *p++;
-+ else if (*p == 'r')
-+ {
-+ val.raw = 1;
-+ p++;
-+ }
- else if (*p >= 'a' && *p <= 'z')
- val.format = *p++;
- else
-@@ -264,24 +275,27 @@ print_formatted (struct value *val, int size,
- int len = TYPE_LENGTH (type);
-
- if (VALUE_LVAL (val) == lval_memory)
-- next_address = VALUE_ADDRESS (val) + len;
-+ next_address = value_address (val) + len;
-
- if (size)
- {
- switch (options->format)
- {
- case 's':
-- /* FIXME: Need to handle wchar_t's here... */
-- next_address = VALUE_ADDRESS (val)
-- + val_print_string (VALUE_ADDRESS (val), -1, 1, stream,
-- options);
-+ {
-+ struct type *elttype = value_type (val);
-+ next_address = (value_address (val)
-+ + val_print_string (elttype,
-+ value_address (val), -1,
-+ stream, options));
-+ }
- return;
-
- case 'i':
- /* We often wrap here if there are long symbolic names. */
- wrap_here (" ");
-- next_address = (VALUE_ADDRESS (val)
-- + gdb_print_insn (VALUE_ADDRESS (val), stream,
-+ next_address = (value_address (val)
-+ + gdb_print_insn (value_address (val), stream,
- &branch_delay_insns));
- return;
- }
-@@ -369,7 +383,7 @@ print_scalar_formatted (const void *valaddr, struct type *type,
- print_hex_chars (stream, valaddr, len, byte_order);
- return;
- case 'c':
-- print_char_chars (stream, valaddr, len, byte_order);
-+ print_char_chars (stream, type, valaddr, len, byte_order);
- return;
- default:
- break;
-@@ -865,6 +879,7 @@ print_command_1 (char *exp, int inspect, int voidprint)
- fmt.count = 1;
- fmt.format = 0;
- fmt.size = 0;
-+ fmt.raw = 0;
- }
-
- if (exp && *exp)
-@@ -878,6 +893,11 @@ print_command_1 (char *exp, int inspect, int voidprint)
- else
- val = access_value_history (0);
-
-+ /* Do not try to OBJECT_ADDRESS_SET here anything. We are interested in the
-+ source variable base addresses as found by READ_VAR_VALUE. The value here
-+ can be already a calculated expression address inappropriate for
-+ DW_OP_push_object_address. */
++ if (!probe->parsed_args->arg
++ || n >= probe->parsed_args->n_args)
++ return NULL;
+
- if (voidprint || (val && value_type (val) &&
- TYPE_CODE (value_type (val)) != TYPE_CODE_VOID))
- {
-@@ -900,6 +920,7 @@ print_command_1 (char *exp, int inspect, int voidprint)
-
- get_formatted_print_options (&opts, format);
- opts.inspect_it = inspect;
-+ opts.raw = fmt.raw;
-
- print_formatted (val, fmt.size, &opts, gdb_stdout);
- printf_filtered ("\n");
-@@ -950,6 +971,7 @@ output_command (char *exp, int from_tty)
- struct value_print_options opts;
-
- fmt.size = 0;
-+ fmt.raw = 0;
-
- if (exp && *exp == '/')
- {
-@@ -967,6 +989,7 @@ output_command (char *exp, int from_tty)
- annotate_value_begin (value_type (val));
-
- get_formatted_print_options (&opts, format);
-+ opts.raw = fmt.raw;
- print_formatted (val, fmt.size, &opts, gdb_stdout);
-
- annotate_value_end ();
-@@ -1287,9 +1310,10 @@ x_command (char *exp, int from_tty)
- struct cleanup *old_chain;
- struct value *val;
-
-- fmt.format = last_format;
-+ fmt.format = last_format ? last_format : 'x';
- fmt.size = last_size;
- fmt.count = 1;
-+ fmt.raw = 0;
-
- if (exp && *exp == '/')
- {
-@@ -1316,7 +1340,7 @@ x_command (char *exp, int from_tty)
- if (/* last_format == 'i' && */
- TYPE_CODE (value_type (val)) == TYPE_CODE_FUNC
- && VALUE_LVAL (val) == lval_memory)
-- next_address = VALUE_ADDRESS (val);
-+ next_address = value_address (val);
- else
- next_address = value_as_address (val);
- do_cleanups (old_chain);
-@@ -1393,6 +1417,7 @@ display_command (char *exp, int from_tty)
- fmt.format = 0;
- fmt.size = 0;
- fmt.count = 0;
-+ fmt.raw = 0;
- }
-
- innermost_block = 0;
-@@ -1585,6 +1610,7 @@ do_one_display (struct display *d)
- annotate_display_expression ();
-
- get_formatted_print_options (&opts, d->format.format);
-+ opts.raw = d->format.raw;
- print_formatted (evaluate_expression (d->exp),
- d->format.size, &opts, gdb_stdout);
- printf_filtered ("\n");
-@@ -1865,7 +1891,8 @@ printf_command (char *arg, int from_tty)
-
- enum argclass
- {
-- int_arg, long_arg, long_long_arg, ptr_arg, string_arg,
-+ int_arg, long_arg, long_long_arg, ptr_arg,
-+ string_arg, wide_string_arg, wide_char_arg,
- double_arg, long_double_arg, decfloat_arg
- };
- enum argclass *argclass;
-@@ -1997,8 +2024,8 @@ printf_command (char *arg, int from_tty)
- break;
-
- case 'c':
-- this_argclass = int_arg;
-- if (lcount || seen_h || seen_big_l)
-+ this_argclass = lcount == 0 ? int_arg : wide_char_arg;
-+ if (lcount > 1 || seen_h || seen_big_l)
- bad = 1;
- if (seen_prec || seen_zero || seen_space || seen_plus)
- bad = 1;
-@@ -2013,8 +2040,8 @@ printf_command (char *arg, int from_tty)
- break;
-
- case 's':
-- this_argclass = string_arg;
-- if (lcount || seen_h || seen_big_l)
-+ this_argclass = lcount == 0 ? string_arg : wide_string_arg;
-+ if (lcount > 1 || seen_h || seen_big_l)
- bad = 1;
- if (seen_zero || seen_space || seen_plus)
- bad = 1;
-@@ -2066,6 +2093,15 @@ printf_command (char *arg, int from_tty)
- last_arg[length_before_ll + lcount];
- current_substring += length_before_ll + 4;
- }
-+ else if (this_argclass == wide_string_arg
-+ || this_argclass == wide_char_arg)
-+ {
-+ /* Convert %ls or %lc to %s. */
-+ int length_before_ls = f - last_arg - 2;
-+ strncpy (current_substring, last_arg, length_before_ls);
-+ strcpy (current_substring + length_before_ls, "s");
-+ current_substring += length_before_ls + 2;
-+ }
- else
- {
- strncpy (current_substring, last_arg, f - last_arg);
-@@ -2130,6 +2166,76 @@ printf_command (char *arg, int from_tty)
- printf_filtered (current_substring, (char *) str);
- }
- break;
-+ case wide_string_arg:
-+ {
-+ gdb_byte *str;
-+ CORE_ADDR tem;
-+ int j;
-+ struct type *wctype = lookup_typename ("wchar_t", NULL, 0);
-+ int wcwidth = TYPE_LENGTH (wctype);
-+ gdb_byte *buf = alloca (wcwidth);
-+ struct obstack output;
-+ struct cleanup *inner_cleanup;
-+
-+ tem = value_as_address (val_args[i]);
-+
-+ /* This is a %s argument. Find the length of the string. */
-+ for (j = 0;; j += wcwidth)
-+ {
-+ QUIT;
-+ read_memory (tem + j, buf, wcwidth);
-+ if (extract_unsigned_integer (buf, wcwidth) == 0)
-+ break;
-+ }
++ return stap_evaluate_probe_argument_1 (objfile, probe, frame, n);
++}
+
-+ /* Copy the string contents into a string inside GDB. */
-+ str = (gdb_byte *) alloca (j + wcwidth);
-+ if (j != 0)
-+ read_memory (tem, str, j);
-+ memset (&str[j], 0, wcwidth);
++/* Helper function which compiles the probe's argument N into an
++ agent expression, suitable for using with tracepoints. */
+
-+ obstack_init (&output);
-+ inner_cleanup = make_cleanup_obstack_free (&output);
++static void
++stap_compile_to_ax_1 (struct objfile *objfile,
++ const struct stap_probe *probe,
++ struct agent_expr *expr,
++ struct axs_value *value,
++ int n)
++{
++ struct stap_evaluation_info eval_info;
++ struct gdbarch *gdbarch = expr->gdbarch;
++ char *s = (char *) probe->parsed_args->arg[n].arg_str;
++
++ /* Filling necessary information for evaluation function. */
++ eval_info.saved_expr = s;
++ eval_info.exp_buf = s;
++ eval_info.gdbarch = expr->gdbarch;
++ eval_info.frame = NULL;
++ eval_info.bitness = probe->parsed_args->arg[n].bitness;
++ /* We are compiling to an agent expression. */
++ eval_info.aexpr = expr;
++ eval_info.avalue = value;
++
++ /* We can always use this kind. */
++ value->kind = axs_rvalue;
++
++ /* Figuring out the correct type for this axs_value. */
++ switch (eval_info.bitness)
++ {
++ case STAP_ARG_BITNESS_UNDEFINED:
++ if (gdbarch_addr_bit (gdbarch) == 32)
++ value->type = builtin_type (gdbarch)->builtin_uint32;
++ else
++ value->type = builtin_type (gdbarch)->builtin_uint64;
++ break;
+
-+ convert_between_encodings (target_wide_charset (),
-+ host_charset (),
-+ str, j, wcwidth,
-+ &output, translit_char);
-+ obstack_grow_str0 (&output, "");
++ case STAP_ARG_BITNESS_32BIT_SIGNED:
++ value->type = builtin_type (gdbarch)->builtin_int32;
++ break;
+
-+ printf_filtered (current_substring, obstack_base (&output));
-+ do_cleanups (inner_cleanup);
-+ }
-+ break;
-+ case wide_char_arg:
-+ {
-+ struct type *wctype = lookup_typename ("wchar_t", NULL, 0);
-+ struct type *valtype;
-+ struct obstack output;
-+ struct cleanup *inner_cleanup;
-+ const gdb_byte *bytes;
-+
-+ valtype = value_type (val_args[i]);
-+ if (TYPE_LENGTH (valtype) != TYPE_LENGTH (wctype)
-+ || TYPE_CODE (valtype) != TYPE_CODE_INT)
-+ error (_("expected wchar_t argument for %%lc"));
-+
-+ bytes = value_contents (val_args[i]);
-+
-+ obstack_init (&output);
-+ inner_cleanup = make_cleanup_obstack_free (&output);
-+
-+ convert_between_encodings (target_wide_charset (),
-+ host_charset (),
-+ bytes, TYPE_LENGTH (valtype),
-+ TYPE_LENGTH (valtype),
-+ &output, translit_char);
-+ obstack_grow_str0 (&output, "");
-+
-+ printf_filtered (current_substring, obstack_base (&output));
-+ do_cleanups (inner_cleanup);
-+ }
-+ break;
- case double_arg:
- {
- struct type *type = value_type (val_args[i]);
-diff --git a/gdb/python/lib/gdb/FrameIterator.py b/gdb/python/lib/gdb/FrameIterator.py
-new file mode 100644
-index 0000000..87fb074
---- /dev/null
-+++ b/gdb/python/lib/gdb/FrameIterator.py
-@@ -0,0 +1,33 @@
-+# Iterator over frames.
++ case STAP_ARG_BITNESS_32BIT_UNSIGNED:
++ value->type = builtin_type (gdbarch)->builtin_uint32;
++ break;
+
-+# Copyright (C) 2008 Free Software Foundation, Inc.
++ case STAP_ARG_BITNESS_64BIT_SIGNED:
++ value->type = builtin_type (gdbarch)->builtin_int64;
++ break;
+
-+# 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/>.
++ case STAP_ARG_BITNESS_64BIT_UNSIGNED:
++ value->type = builtin_type (gdbarch)->builtin_uint64;
++ break;
+
-+class FrameIterator:
-+ """An iterator that iterates over frames."""
++ default:
++ internal_error (__FILE__, __LINE__,
++ _("Undefined bitness for probe."));
++ break;
++ }
+
-+ def __init__ (self, frame):
-+ "Initialize a FrameIterator. FRAME is the starting frame."
-+ self.frame = frame
++ stap_evaluate_probe_argument_2 (&eval_info,
++ /*lhs=*/NULL, /*prec=*/0);
++}
+
-+ def __iter__ (self):
-+ return self
++/* See definition in stap-probe.h. */
+
-+ def next (self):
-+ result = self.frame
-+ if result == None:
-+ raise StopIteration
-+ self.frame = result.older ()
-+ return result
-diff --git a/gdb/python/lib/gdb/__init__.py b/gdb/python/lib/gdb/__init__.py
-new file mode 100644
-index 0000000..b375c68
---- /dev/null
-+++ b/gdb/python/lib/gdb/__init__.py
-@@ -0,0 +1,19 @@
-+# Startup code.
++void
++stap_compile_to_ax (struct objfile *objfile,
++ const struct stap_probe *probe,
++ struct agent_expr *expr,
++ struct axs_value *value,
++ int n)
++{
++ if (!probe->parsed_args)
++ stap_parse_probe_arguments ((struct stap_probe *) probe);
+
-+# Copyright (C) 2008 Free Software Foundation, Inc.
++ if (!probe->parsed_args->arg
++ || n >= probe->parsed_args->n_args)
++ return;
+
-+# 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/>.
++ stap_compile_to_ax_1 (objfile, probe, expr, value, n);
++}
+
-+# Load the require command by default.
-+import gdb.command.require
-diff --git a/gdb/python/lib/gdb/backtrace.py b/gdb/python/lib/gdb/backtrace.py
-new file mode 100644
-index 0000000..2baab5f
---- /dev/null
-+++ b/gdb/python/lib/gdb/backtrace.py
-@@ -0,0 +1,42 @@
-+# Filtering backtrace.
++struct value *
++stap_safe_evaluate_at_pc (struct frame_info *frame, int n)
++{
++ const struct stap_probe *probe;
++ struct objfile *objfile;
++ int n_probes;
+
-+# Copyright (C) 2008 Free Software Foundation, Inc.
++ probe = find_probe_by_pc (get_frame_pc (frame), &objfile);
++ if (!probe)
++ return NULL;
++ gdb_assert (objfile->sf && objfile->sf->sym_probe_fns);
+
-+# 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/>.
++ n_probes
++ = objfile->sf->sym_probe_fns->sym_get_probe_argument_count (objfile,
++ probe);
++ if (n >= n_probes)
++ return NULL;
+
-+import gdb
-+import itertools
++ return objfile->sf->sym_probe_fns->sym_evaluate_probe_argument (objfile,
++ probe,
++ frame,
++ n);
++}
+
-+# Our only exports.
-+__all__ = ['push_frame_filter', 'create_frame_filter']
++/* This function frees the space allocated to hold information about
++ the probe's parsed arguments. */
+
-+frame_filter = None
++void
++stap_free_parsed_args (struct stap_args_info *parsed_args)
++{
++ int i;
+
-+def push_frame_filter (constructor):
-+ """Register a new backtrace filter class with the 'backtrace' command.
-+The filter will be passed an iterator as an argument. The iterator
-+will return gdb.Frame-like objects. The filter should in turn act as
-+an iterator returning such objects."""
-+ global frame_filter
-+ if frame_filter == None:
-+ frame_filter = constructor
-+ else:
-+ frame_filter = lambda iterator: constructor (frame_filter (iterator))
++ if (!parsed_args
++ || parsed_args == &dummy_stap_args_info
++ || parsed_args->n_args == 0)
++ return;
+
-+def create_frame_filter (iter):
-+ global frame_filter
-+ if frame_filter is None:
-+ return iter
-+ return frame_filter (iter)
++ for (i = 0; i < parsed_args->n_args; i++)
++ xfree (parsed_args->arg);
+
-diff --git a/gdb/python/lib/gdb/command/__init__.py b/gdb/python/lib/gdb/command/__init__.py
-new file mode 100644
-index 0000000..8b13789
---- /dev/null
-+++ b/gdb/python/lib/gdb/command/__init__.py
-@@ -0,0 +1 @@
++ xfree (parsed_args);
++}
+
-diff --git a/gdb/python/lib/gdb/command/alias.py b/gdb/python/lib/gdb/command/alias.py
-new file mode 100644
-index 0000000..96b6618
---- /dev/null
-+++ b/gdb/python/lib/gdb/command/alias.py
-@@ -0,0 +1,59 @@
-+# Alias command.
++/* A utility structure. A VEC of these is built when handling "info
++ probes". */
+
-+# Copyright (C) 2008 Free Software Foundation, Inc.
++struct stap_probe_and_objfile
++{
++ /* The probe. */
++ const struct stap_probe *probe;
++ /* The probe's objfile. */
++ struct objfile *objfile;
++};
+
-+# 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/>.
++typedef struct stap_probe_and_objfile stap_entry;
++DEF_VEC_O (stap_entry);
+
-+import gdb
++/* A helper function for collect_probes that compiles a regexp and
++ throws an exception on error. This installs a cleanup to free the
++ resulting pattern on success. If RX is NULL, this does nothing. */
+
-+class AliasImplementation (gdb.Command):
-+ def __init__ (self, name, real, doc):
-+ # Have to set __doc__ before the super init call.
-+ # It would be nice if gdb's help looked up __doc__ dynamically.
-+ self.__doc__ = doc
-+ # Note: no good way to complete :(
-+ super (AliasImplementation, self).__init__ (name, gdb.COMMAND_NONE)
-+ self.real = real
++static void
++compile_rx_or_error (regex_t *pattern, const char *rx, const char *message)
++{
++ int code;
+
-+ def invoke(self, arg, from_tty):
-+ gdb.execute (self.real + ' ' + arg, from_tty)
++ if (!rx)
++ return;
+
-+class AliasCommand (gdb.Command):
-+ """Alias one command to another.
-+In the simplest form, the first word is the name of the alias, and
-+the remaining words are the the expansion.
-+An '=' by itself can be used to define a multi-word alias; words
-+before the '=' are the name of the new command."""
++ code = regcomp (pattern, rx, REG_NOSUB);
++ if (code == 0)
++ make_regfree_cleanup (pattern);
++ else
++ {
++ char *err = get_regcomp_error (code, pattern);
+
-+ def __init__ (self):
-+ # Completion is not quite right here.
-+ super (AliasCommand, self).__init__ ("alias", gdb.COMMAND_NONE,
-+ gdb.COMPLETE_COMMAND)
++ make_cleanup (xfree, err);
++ error (_("%s: %s"), message, err);
++ }
++}
+
-+ def invoke (self, arg, from_tty):
-+ self.dont_repeat ()
-+ # Without some form of quoting we can't alias a multi-word
-+ # command to another command.
-+ args = arg.split()
-+ try:
-+ start = args.index ('=')
-+ end = start + 1
-+ except ValueError:
-+ start = 1
-+ end = 1
-+ target = " ".join(args[end:])
-+ AliasImplementation (" ".join (args[0:start]), target,
-+ "This command is an alias for '%s'." % target)
++/* Make a vector of probes matching OBJNAME, PROVIDER, and PROBE.
++ Each argument is a regexp, or NULL, which matches anything. */
+
-+AliasCommand()
-diff --git a/gdb/python/lib/gdb/command/backtrace.py b/gdb/python/lib/gdb/command/backtrace.py
-new file mode 100644
-index 0000000..f07696e
---- /dev/null
-+++ b/gdb/python/lib/gdb/command/backtrace.py
-@@ -0,0 +1,197 @@
-+# New backtrace command.
++static VEC (stap_entry) *
++collect_probes (char *objname, char *provider, char *probe)
++{
++ struct objfile *objfile;
++ VEC (stap_entry) *result = NULL;
++ struct cleanup *cleanup;
++ regex_t obj_pat, prov_pat, probe_pat;
+
-+# Copyright (C) 2008 Free Software Foundation, Inc.
++ cleanup = make_cleanup (VEC_cleanup (stap_entry), &result);
+
-+# 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/>.
++ compile_rx_or_error (&prov_pat, provider, _("Invalid provider regexp"));
++ compile_rx_or_error (&probe_pat, probe, _("Invalid probe regexp"));
++ compile_rx_or_error (&obj_pat, objname, _("Invalid object file regexp"));
+
-+import gdb
-+import gdb.backtrace
-+import itertools
-+from gdb.FrameIterator import FrameIterator
-+import sys
++ ALL_OBJFILES (objfile)
++ {
++ const struct stap_probe *probes;
++ int i, num_probes;
+
-+class FrameWrapper:
-+ def __init__ (self, frame):
-+ self.frame = frame;
++ if (! objfile->sf || ! objfile->sf->sym_probe_fns)
++ continue;
+
-+ def write_symbol (self, stream, sym, block):
-+ if len (sym.linkage_name):
-+ nsym, is_field_of_this = gdb.lookup_symbol (sym.linkage_name, block)
-+ if nsym.addr_class != gdb.SYMBOL_LOC_REGISTER:
-+ sym = nsym
++ if (objname)
++ {
++ if (regexec (&obj_pat, objfile->name, 0, NULL, 0) != 0)
++ continue;
++ }
+
-+ stream.write (sym.print_name + "=")
-+ try:
-+ val = self.frame.read_var (sym)
-+ if val != None:
-+ val = str (val)
-+ # FIXME: would be nice to have a more precise exception here.
-+ except RuntimeError, text:
-+ val = text
-+ if val == None:
-+ stream.write ("???")
-+ else:
-+ stream.write (str (val))
++ probes = objfile->sf->sym_probe_fns->sym_get_probes (objfile, &num_probes);
++ for (i = 0; i < num_probes; ++i)
++ {
++ stap_entry entry;
+
-+ def print_frame_locals (self, stream, func):
-+ if not func:
-+ return
++ if (provider)
++ {
++ if (regexec (&prov_pat, probes[i].provider, 0, NULL, 0) != 0)
++ continue;
++ }
+
-+ first = True
-+ block = func.value
++ if (probe)
++ {
++ if (regexec (&probe_pat, probes[i].name, 0, NULL, 0) != 0)
++ continue;
++ }
+
-+ for sym in block:
-+ if sym.is_argument:
-+ continue;
++ entry.probe = &probes[i];
++ entry.objfile = objfile;
++ VEC_safe_push (stap_entry, result, &entry);
++ }
++ }
+
-+ self.write_symbol (stream, sym, block)
-+ stream.write ('\n')
++ discard_cleanups (cleanup);
++ return result;
++}
+
-+ def print_frame_args (self, stream, func):
-+ if not func:
-+ return
++/* A qsort comparison function for stap_entry objects. */
+
-+ first = True
-+ block = func.value
++static int
++compare_entries (const void *a, const void *b)
++{
++ const stap_entry *ea = a;
++ const stap_entry *eb = b;
++ int v;
+
-+ for sym in block:
-+ if not sym.is_argument:
-+ continue;
++ v = strcmp (ea->probe->provider, eb->probe->provider);
++ if (v)
++ return v;
+
-+ if not first:
-+ stream.write (", ")
++ v = strcmp (ea->probe->name, eb->probe->name);
++ if (v)
++ return v;
+
-+ self.write_symbol (stream, sym, block)
-+ first = False
++ if (ea->probe->address < eb->probe->address)
++ return -1;
++ if (ea->probe->address > eb->probe->address)
++ return 1;
+
-+ # FIXME: this should probably just be a method on gdb.Frame.
-+ # But then we need stream wrappers.
-+ def describe (self, stream, full):
-+ if self.frame.type () == gdb.DUMMY_FRAME:
-+ stream.write (" <function called from gdb>\n")
-+ elif self.frame.type () == gdb.SIGTRAMP_FRAME:
-+ stream.write (" <signal handler called>\n")
-+ else:
-+ sal = self.frame.find_sal ()
-+ pc = self.frame.pc ()
-+ name = self.frame.name ()
-+ if not name:
-+ name = "??"
-+ if pc != sal.pc or not sal.symtab:
-+ stream.write (" 0x%08x in" % pc)
-+ stream.write (" " + name + " (")
++ return strcmp (ea->objfile->name, eb->objfile->name);
++}
+
-+ func = gdb.find_pc_function (self.frame.addr_in_block ())
-+ self.print_frame_args (stream, func)
++/* Implementation of the "info probes" command. */
+
-+ stream.write (")")
++static void
++info_probes_command (char *arg, int from_tty)
++{
++ char *provider, *probe = NULL, *objname = NULL;
++ struct cleanup *cleanup = make_cleanup (null_cleanup, NULL);
++ VEC (stap_entry) *items;
++ int i, addr_width, any_found;
++ stap_entry *entry;
+
-+ if sal.symtab and sal.symtab.filename:
-+ stream.write (" at " + sal.symtab.filename)
-+ stream.write (":" + str (sal.line))
++ provider = extract_arg (&arg);
++ if (provider)
++ {
++ make_cleanup (xfree, provider);
+
-+ if not self.frame.name () or (not sal.symtab or not sal.symtab.filename):
-+ lib = gdb.solib_address (pc)
-+ if lib:
-+ stream.write (" from " + lib)
++ probe = extract_arg (&arg);
++ if (probe)
++ {
++ make_cleanup (xfree, probe);
+
-+ stream.write ("\n")
++ objname = extract_arg (&arg);
++ if (objname)
++ make_cleanup (xfree, objname);
++ }
++ }
+
-+ if full:
-+ self.print_frame_locals (stream, func)
++ items = collect_probes (objname, provider, probe);
++ make_cleanup (VEC_cleanup (stap_entry), &items);
++ make_cleanup_ui_out_table_begin_end (uiout, 5,
++ VEC_length (stap_entry, items),
++ "SystemTapProbes");
+
-+ def __getattr__ (self, name):
-+ return getattr (self.frame, name)
++ if (! VEC_empty (stap_entry, items))
++ qsort (VEC_address (stap_entry, items),
++ VEC_length (stap_entry, items),
++ sizeof (stap_entry),
++ compare_entries);
+
-+class ReverseBacktraceParameter (gdb.Parameter):
-+ """The new-backtrace command can show backtraces in 'reverse' order.
-+This means that the innermost frame will be printed last.
-+Note that reverse backtraces are more expensive to compute."""
++ addr_width = 4 + (gdbarch_ptr_bit (get_current_arch ()) / 4);
+
-+ set_doc = "Enable or disable reverse backtraces."
-+ show_doc = "Show whether backtraces will be printed in reverse order."
++ ui_out_table_header (uiout, 10, ui_left, "provider", _("Provider"));
++ ui_out_table_header (uiout, 10, ui_left, "name", _("Name"));
++ ui_out_table_header (uiout, addr_width - 1, ui_left, "addr", _("Where"));
++ ui_out_table_header (uiout, addr_width - 1, ui_left, "semaphore",
++ _("Semaphore"));
++ ui_out_table_header (uiout, 30, ui_left, "object", _("Object"));
++ ui_out_table_body (uiout);
+
-+ def __init__(self):
-+ gdb.Parameter.__init__ (self, "reverse-backtrace",
-+ gdb.COMMAND_STACK, gdb.PARAM_BOOLEAN)
-+ # Default to compatibility with gdb.
-+ self.value = False
++ for (i = 0; VEC_iterate (stap_entry, items, i, entry); ++i)
++ {
++ struct cleanup *inner;
+
-+class FilteringBacktrace (gdb.Command):
-+ """Print backtrace of all stack frames, or innermost COUNT frames.
-+With a negative argument, print outermost -COUNT frames.
-+Use of the 'full' qualifier also prints the values of the local variables.
-+Use of the 'raw' qualifier avoids any filtering by loadable modules.
-+"""
++ inner = make_cleanup_ui_out_tuple_begin_end (uiout, "probe");
+
-+ def __init__ (self):
-+ # FIXME: this is not working quite well enough to replace
-+ # "backtrace" yet.
-+ gdb.Command.__init__ (self, "new-backtrace", gdb.COMMAND_STACK)
-+ self.reverse = ReverseBacktraceParameter()
++ ui_out_field_string (uiout, "provider", entry->probe->provider);
++ ui_out_field_string (uiout, "name", entry->probe->name);
++ ui_out_field_core_addr (uiout, "addr", get_current_arch (),
++ entry->probe->address);
++ if (entry->probe->sem_addr == 0)
++ ui_out_field_skip (uiout, "semaphore");
++ else
++ ui_out_field_core_addr (uiout, "semaphore", get_current_arch (),
++ entry->probe->sem_addr);
++ ui_out_field_string (uiout, "object", entry->objfile->name);
++ ui_out_text (uiout, "\n");
+
-+ def reverse_iter (self, iter):
-+ result = []
-+ for item in iter:
-+ result.append (item)
-+ result.reverse()
-+ return result
++ do_cleanups (inner);
++ }
+
-+ def final_n (self, iter, x):
-+ result = []
-+ for item in iter:
-+ result.append (item)
-+ return result[x:]
++ any_found = ! VEC_empty (stap_entry, items);
++ do_cleanups (cleanup);
+
-+ def invoke (self, arg, from_tty):
-+ i = 0
-+ count = 0
-+ filter = True
-+ full = False
++ if (! any_found)
++ ui_out_message (uiout, 0, _("No probes matched.\n"));
++}
+
-+ for word in arg.split (" "):
-+ if word == '':
-+ continue
-+ elif word == 'raw':
-+ filter = False
-+ elif word == 'full':
-+ full = True
-+ else:
-+ count = int (word)
++\f
+
-+ # FIXME: provide option to start at selected frame
-+ # However, should still number as if starting from newest
-+ iter = itertools.imap (FrameWrapper,
-+ FrameIterator (gdb.newest_frame ()))
-+ if filter:
-+ iter = gdb.backtrace.create_frame_filter (iter)
++/* See definition in stap-probe.h. */
+
-+ # Now wrap in an iterator that numbers the frames.
-+ iter = itertools.izip (itertools.count (0), iter)
++const struct stap_probe *
++find_probe_in_objfile (struct objfile *objfile,
++ const char *provider,
++ const char *name)
++{
++ const struct stap_probe *probes;
++ int i, num_probes;
+
-+ # Reverse if the user wanted that.
-+ if self.reverse.value:
-+ iter = self.reverse_iter (iter)
++ if (! objfile->sf || ! objfile->sf->sym_probe_fns)
++ return NULL;
+
-+ # Extract sub-range user wants.
-+ if count < 0:
-+ iter = self.final_n (iter, count)
-+ elif count > 0:
-+ iter = itertools.islice (iter, 0, count)
++ probes = objfile->sf->sym_probe_fns->sym_get_probes (objfile, &num_probes);
++ for (i = 0; i < num_probes; ++i)
++ {
++ if (strcmp (probes[i].provider, provider) != 0)
++ continue;
+
-+ for pair in iter:
-+ sys.stdout.write ("#%-2d" % pair[0])
-+ pair[1].describe (sys.stdout, full)
++ if (strcmp (probes[i].name, name) != 0)
++ continue;
+
-+FilteringBacktrace()
-diff --git a/gdb/python/lib/gdb/command/ignore_errors.py b/gdb/python/lib/gdb/command/ignore_errors.py
-new file mode 100644
-index 0000000..6fa48ff
---- /dev/null
-+++ b/gdb/python/lib/gdb/command/ignore_errors.py
-@@ -0,0 +1,37 @@
-+# Ignore errors in user commands.
++ return &probes[i];
++ }
+
-+# Copyright (C) 2008 Free Software Foundation, Inc.
++ return NULL;
++}
+
-+# 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/>.
++/* See definition in stap-probe.h. */
+
-+import gdb
++struct symtabs_and_lines
++parse_stap_probe (char **argptr, struct linespec_result *canonical)
++{
++ char *full_arg = extract_arg (argptr);
++ char *arg = xstrdup (full_arg);
++ char *objfile_name = NULL, *provider = NULL, *name, *p;
++ struct cleanup *cleanup;
++ struct symtabs_and_lines result;
++ struct objfile *objfile;
+
-+class IgnoreErrorsCommand (gdb.Command):
-+ """Execute a single command, ignoring all errors.
-+Only one-line commands are supported.
-+This is primarily useful in scripts."""
++ result.sals = NULL;
++ result.nelts = 0;
+
-+ def __init__ (self):
-+ super (IgnoreErrorsCommand, self).__init__ ("ignore-errors",
-+ gdb.COMMAND_OBSCURE,
-+ # FIXME...
-+ gdb.COMPLETE_COMMAND)
++ /* The caller ensured that this starts with 'probe:'. */
++ gdb_assert (arg && strncmp (arg, "probe:", 6) == 0);
++ cleanup = make_cleanup (xfree, arg);
++ make_cleanup (xfree, full_arg);
++ arg += 6;
+
-+ def invoke (self, arg, from_tty):
-+ try:
-+ gdb.execute (arg, from_tty)
-+ except:
-+ pass
++ /* Extract each word from the argument, separated by ":"s. */
++ p = strchr (arg, ':');
++ if (p == NULL)
++ {
++ /* This is `probe:name'. */
++ name = arg;
++ }
++ else
++ {
++ char *hold = p + 1;
+
-+IgnoreErrorsCommand ()
-diff --git a/gdb/python/lib/gdb/command/pahole.py b/gdb/python/lib/gdb/command/pahole.py
-new file mode 100644
-index 0000000..569b816
---- /dev/null
-+++ b/gdb/python/lib/gdb/command/pahole.py
-@@ -0,0 +1,81 @@
-+# pahole command for gdb
++ *p = '\0';
++ p = strchr (hold, ':');
++ if (p == NULL)
++ {
++ /* This is `probe:provider:name'. */
++ provider = arg;
++ name = hold;
++ }
++ else
++ {
++ /* This is `probe:objfile:provider:name'. */
++ *p = '\0';
++ objfile_name = arg;
++ provider = hold;
++ name = p + 1;
++ }
++ }
+
-+# Copyright (C) 2008 Free Software Foundation, Inc.
++ if (*name == '\0')
++ error (_("no probe name specified"));
++ if (provider && *provider == '\0')
++ error (_("invalid provider name"));
++ if (objfile_name && *objfile_name == '\0')
++ error (_("invalid objfile name"));
+
-+# 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/>.
++ if (canonical)
++ canonical->canonical = NULL;
+
-+import gdb
++ ALL_OBJFILES (objfile)
++ {
++ const struct stap_probe *probes;
++ int i, num_probes;
+
-+class Pahole (gdb.Command):
-+ """Show the holes in a structure.
-+This command takes a single argument, a type name.
-+It prints the type and displays comments showing where holes are."""
++ if (! objfile->sf || ! objfile->sf->sym_probe_fns)
++ continue;
+
-+ def __init__ (self):
-+ super (Pahole, self).__init__ ("pahole", gdb.COMMAND_NONE,
-+ gdb.COMPLETE_SYMBOL)
++ if (objfile_name
++ && FILENAME_CMP (objfile->name, objfile_name) != 0
++ && FILENAME_CMP (lbasename (objfile->name), objfile_name) != 0)
++ continue;
+
-+ @staticmethod
-+ def strip (type):
-+ while type.code () == gdb.TYPE_CODE_TYPEDEF:
-+ type = type.target ()
-+ return type
++ probes = objfile->sf->sym_probe_fns->sym_get_probes (objfile, &num_probes);
++ for (i = 0; i < num_probes; ++i)
++ {
++ struct symtab_and_line *sal;
+
-+ def pahole (self, type, level, name):
-+ if name is None:
-+ name = ''
-+ tag = type.tag ()
-+ if tag is None:
-+ tag = ''
-+ print '%sstruct %s {' % (' ' * (2 * level), tag)
-+ bitpos = 0
-+ for field in type.fields ():
-+ # Skip static fields.
-+ if not hasattr (field, ('bitpos')):
-+ continue
++ if (provider && strcmp (probes[i].provider, provider) != 0)
++ continue;
+
-+ ftype = self.strip (field.type)
++ if (strcmp (probes[i].name, name) != 0)
++ continue;
+
-+ if bitpos != field.bitpos:
-+ hole = field.bitpos - bitpos
-+ print ' /* XXX %d bit hole, try to pack */' % hole
-+ bitpos = field.bitpos
-+ if field.bitsize > 0:
-+ fieldsize = field.bitsize
-+ else:
-+ # TARGET_CHAR_BIT here...
-+ fieldsize = 8 * ftype.sizeof ()
++ ++result.nelts;
++ result.sals = xrealloc (result.sals,
++ result.nelts * sizeof (struct symtab_and_line));
++ sal = &result.sals[result.nelts - 1];
+
-+ # TARGET_CHAR_BIT
-+ print ' /* %3d %3d */' % (int (bitpos / 8), int (fieldsize / 8)),
-+ bitpos = bitpos + fieldsize
++ init_sal (sal);
+
-+ if ftype.code () == gdb.TYPE_CODE_STRUCT:
-+ self.pahole (ftype, level + 1, field.name)
-+ else:
-+ print ' ' * (2 + 2 * level),
-+ print '%s %s' % (str (ftype), field.name)
++ sal->pc = probes[i].address;
++ sal->explicit_pc = 1;
++ sal->section = find_pc_overlay (sal->pc);
++ sal->pspace = current_program_space;
++ sal->semaphore = probes[i].sem_addr;
+
-+ print ' ' * (14 + 2 * level),
-+ print '} %s' % name
++ if (canonical)
++ {
++ canonical->canonical = xrealloc (canonical->canonical,
++ result.nelts * sizeof (char **));
++ canonical->canonical[result.nelts - 1] = xstrdup (full_arg);
++ }
++ }
++ }
+
-+ def invoke (self, arg, from_tty):
-+ type = gdb.Type (arg)
-+ type = self.strip (type)
-+ if type.code () != gdb.TYPE_CODE_STRUCT:
-+ raise TypeError, '%s is not a struct type' % arg
-+ print ' ' * 14,
-+ self.pahole (type, 0, '')
++ if (result.nelts == 0)
++ {
++ throw_error (NOT_FOUND_ERROR,
++ _("No probe matching objfile=`%s', provider=`%s', name=`%s'"),
++ objfile_name ? objfile_name : _("<any>"),
++ provider ? provider : _("<any>"),
++ name);
++ }
+
-+Pahole()
-diff --git a/gdb/python/lib/gdb/command/require.py b/gdb/python/lib/gdb/command/require.py
-new file mode 100644
-index 0000000..1fbc1e8
---- /dev/null
-+++ b/gdb/python/lib/gdb/command/require.py
-@@ -0,0 +1,57 @@
-+# Demand-loading commands.
++ if (canonical)
++ {
++ canonical->special_display = 1;
++ canonical->pre_expanded = 1;
++ }
+
-+# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
++ do_cleanups (cleanup);
+
-+# 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/>.
++ return result;
++}
+
-+import gdb
-+import os
++\f
+
-+class RequireCommand (gdb.Command):
-+ """Prefix command for requiring features."""
++/* See definition in stap-probe.h. */
+
-+ def __init__ (self):
-+ super (RequireCommand, self).__init__ ("require",
-+ gdb.COMMAND_SUPPORT,
-+ gdb.COMPLETE_NONE,
-+ True)
++const struct stap_probe *
++find_probe_by_pc (CORE_ADDR pc, struct objfile **objfile_out)
++{
++ struct objfile *objfile;
+
-+class RequireSubcommand (gdb.Command):
-+ """Demand-load a command by name."""
++ ALL_OBJFILES (objfile)
++ {
++ const struct stap_probe *probes;
++ int i, num_probes;
++ stap_entry entry;
+
-+ def __init__ (self, name):
-+ self.__doc__ = "Demand-load a %s by name." % name
-+ super (RequireSubcommand, self).__init__ ("require %s" % name,
-+ gdb.COMMAND_SUPPORT)
-+ self.name = name
++ if (! objfile->sf || ! objfile->sf->sym_probe_fns)
++ continue;
+
-+ def invoke (self, arg, from_tty):
-+ for cmd in arg.split():
-+ exec ('import gdb.' + self.name + '.' + cmd, globals ())
++ /* If this proves too inefficient, we can replace with a hash. */
++ probes = objfile->sf->sym_probe_fns->sym_get_probes (objfile, &num_probes);
++ for (i = 0; i < num_probes; ++i)
++ {
++ if (probes[i].address == pc)
++ {
++ *objfile_out = objfile;
++ return &probes[i];
++ }
++ }
++ }
+
-+ def complete (self, text, word):
-+ dir = gdb.pythondir + '/gdb/' + self.name
-+ result = []
-+ for file in os.listdir(dir):
-+ if not file.startswith (word) or not file.endswith ('.py'):
-+ continue
-+ feature = file[0:-3]
-+ if feature == 'require' or feature == '__init__':
-+ continue
-+ result.append (feature)
-+ return result
++ return NULL;
++}
+
-+RequireCommand()
-+RequireSubcommand("command")
-+RequireSubcommand("function")
-diff --git a/gdb/python/lib/gdb/command/save_breakpoints.py b/gdb/python/lib/gdb/command/save_breakpoints.py
-new file mode 100644
-index 0000000..90e07db
---- /dev/null
-+++ b/gdb/python/lib/gdb/command/save_breakpoints.py
-@@ -0,0 +1,65 @@
-+# Save breakpoints.
++/* This is called to compute the value of one of the $_probe_arg*
++ convenience variables. */
+
-+# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
++static struct value *
++compute_probe_arg (struct gdbarch *arch, struct internalvar *ivar,
++ void *data)
++{
++ struct frame_info *frame = get_selected_frame (_("No frame selected"));
++ CORE_ADDR pc = get_frame_pc (frame);
++ int sel = (int) (uintptr_t) data;
++ struct objfile *objfile;
++ const struct stap_probe *pc_probe;
++ int n_probes;
+
-+# 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/>.
++ /* SEL==10 means "_probe_argc". */
++ gdb_assert (sel >= 0 && sel <= STAP_MAX_ARGS);
+
-+from __future__ import with_statement
-+import gdb
++ pc_probe = find_probe_by_pc (pc, &objfile);
++ if (pc_probe == NULL)
++ error (_("No SystemTap probe at PC %s"), core_addr_to_string (pc));
+
-+class SavePrefixCommand (gdb.Command):
-+ "Prefix command for saving things."
++ n_probes
++ = objfile->sf->sym_probe_fns->sym_get_probe_argument_count (objfile,
++ pc_probe);
++ if (sel == 10)
++ return value_from_longest (builtin_type (arch)->builtin_int, n_probes);
+
-+ def __init__ (self):
-+ super (SavePrefixCommand, self).__init__ ("save",
-+ gdb.COMMAND_SUPPORT,
-+ gdb.COMPLETE_NONE, True)
++ if (sel >= n_probes)
++ error (_("Invalid probe argument %d -- probe has %d arguments available"),
++ sel, n_probes);
+
-+class SaveBreakpointsCommand (gdb.Command):
-+ """Save the current breakpoints to a file.
-+This command takes a single argument, a file name.
-+The breakpoints can be restored using the 'source' command."""
++ return objfile->sf->sym_probe_fns->sym_evaluate_probe_argument (objfile,
++ pc_probe,
++ frame, sel);
++}
+
-+ def __init__ (self):
-+ super (SaveBreakpointsCommand, self).__init__ ("save breakpoints",
-+ gdb.COMMAND_SUPPORT,
-+ gdb.COMPLETE_FILENAME)
++/* This is called to compile one of the $_probe_arg* convenience
++ variables into an agent expression. */
+
-+ def invoke (self, arg, from_tty):
-+ self.dont_repeat ()
-+ bps = gdb.breakpoints ()
-+ if bps is None:
-+ raise RuntimeError, 'No breakpoints to save'
-+ with open (arg.strip (), 'w') as f:
-+ for bp in bps:
-+ print >> f, "break", bp.location,
-+ if bp.thread is not None:
-+ print >> f, " thread", bp.thread,
-+ if bp.condition is not None:
-+ print >> f, " if", bp.condition,
-+ print >> f
-+ if not bp.enabled:
-+ print >> f, "disable %d" % bp.number
-+ # Note: we don't save the ignore count; there doesn't
-+ # seem to be much point.
-+ commands = bp.commands
-+ if commands is not None:
-+ print >> f, "commands"
-+ # Note that COMMANDS has a trailing newline.
-+ print >> f, commands,
-+ print >> f, "end"
-+ print >> f
-+
-+SavePrefixCommand ()
-+SaveBreakpointsCommand ()
-diff --git a/gdb/python/lib/gdb/function/__init__.py b/gdb/python/lib/gdb/function/__init__.py
-new file mode 100644
-index 0000000..8b13789
---- /dev/null
-+++ b/gdb/python/lib/gdb/function/__init__.py
-@@ -0,0 +1 @@
++static void
++compile_probe_arg (struct internalvar *ivar, struct agent_expr *expr,
++ struct axs_value *value, void *data)
++{
++ CORE_ADDR pc = expr->scope;
++ int sel = (int) (uintptr_t) data;
++ struct objfile *objfile;
++ const struct stap_probe *pc_probe;
++ int n_probes;
+
-diff --git a/gdb/python/lib/gdb/function/caller_is.py b/gdb/python/lib/gdb/function/caller_is.py
-new file mode 100644
-index 0000000..2b9c5c7
---- /dev/null
-+++ b/gdb/python/lib/gdb/function/caller_is.py
-@@ -0,0 +1,58 @@
-+# Caller-is functions.
++ /* SEL==10 means "_probe_argc". */
++ gdb_assert (sel >= 0 && sel <= 10);
+
-+# Copyright (C) 2008 Free Software Foundation, Inc.
++ pc_probe = find_probe_by_pc (pc, &objfile);
++ if (pc_probe == NULL)
++ error (_("No SystemTap probe at PC %s"), core_addr_to_string (pc));
+
-+# 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/>.
++ n_probes
++ = objfile->sf->sym_probe_fns->sym_get_probe_argument_count (objfile,
++ pc_probe);
++ if (sel == 10)
++ {
++ value->kind = axs_rvalue;
++ value->type = builtin_type (expr->gdbarch)->builtin_int;
++ ax_const_l (expr, n_probes);
++ return;
++ }
+
-+import gdb
-+import re
++ gdb_assert (sel >= 0);
++ if (sel >= n_probes)
++ error (_("Invalid probe argument %d -- probe has %d arguments available"),
++ sel, n_probes);
+
-+class CallerIs (gdb.Function):
-+ """Return True if the calling function's name is equal to a string.
-+This function takes one or two arguments.
-+The first argument is the name of a function; if the calling function's
-+name is equal to this argument, this function returns True.
-+The optional second argument tells this function how many stack frames
-+to traverse to find the calling function. The default is 1."""
++ objfile->sf->sym_probe_fns->sym_compile_to_ax (objfile, pc_probe,
++ expr, value, sel);
++}
+
-+ def __init__ (self):
-+ super (CallerIs, self).__init__ ("caller_is")
++\f
+
-+ def invoke (self, name, nframes = 1):
-+ frame = gdb.selected_frame ()
-+ while nframes > 0:
-+ frame = frame.older ()
-+ nframes = nframes - 1
-+ return frame.name () == name.string ()
-+
-+class CallerMatches (gdb.Function):
-+ """Return True if the calling function's name matches a string.
-+This function takes one or two arguments.
-+The first argument is a regular expression; if the calling function's
-+name is matched by this argument, this function returns True.
-+The optional second argument tells this function how many stack frames
-+to traverse to find the calling function. The default is 1."""
-+
-+ def __init__ (self):
-+ super (CallerMatches, self).__init__ ("caller_matches")
-+
-+ def invoke (self, name, nframes = 1):
-+ frame = gdb.selected_frame ()
-+ while nframes > 0:
-+ frame = frame.older ()
-+ nframes = nframes - 1
-+ return re.match (name.string (), frame.name ()) is not None
-+
-+CallerIs()
-+CallerMatches()
-diff --git a/gdb/python/lib/gdb/function/in_scope.py b/gdb/python/lib/gdb/function/in_scope.py
-new file mode 100644
-index 0000000..debb3bb
---- /dev/null
-+++ b/gdb/python/lib/gdb/function/in_scope.py
-@@ -0,0 +1,47 @@
-+# In-scope function.
-+
-+# Copyright (C) 2008 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+import gdb
-+
-+class InScope (gdb.Function):
-+ """Return True if all the given variables or macros are in scope.
-+Takes one argument for each variable name to be checked."""
-+
-+ def __init__ (self):
-+ super (InScope, self).__init__ ("in_scope")
-+
-+ def invoke (self, *vars):
-+ if len (vars) == 0:
-+ raise TypeError, "in_scope takes at least one argument"
-+
-+ # gdb.Value isn't hashable so it can't be put in a map.
-+ # Convert to string first.
-+ wanted = set (map (lambda x: x.string (), vars))
-+ found = set ()
-+ block = gdb.selected_frame ().block ()
-+ while block:
-+ for sym in block:
-+ if (sym.is_argument or sym.is_constant
-+ or sym.is_function or sym.is_variable):
-+ if sym.name in wanted:
-+ found.add (sym.name)
-+
-+ block = block.superblock
-+
-+ return wanted == found
-+
-+InScope ()
-diff --git a/gdb/python/lib/gdb/libstdcxx/__init__.py b/gdb/python/lib/gdb/libstdcxx/__init__.py
-new file mode 100644
-index 0000000..8b13789
---- /dev/null
-+++ b/gdb/python/lib/gdb/libstdcxx/__init__.py
-@@ -0,0 +1 @@
-+
-diff --git a/gdb/python/lib/gdb/libstdcxx/v6/__init__.py b/gdb/python/lib/gdb/libstdcxx/v6/__init__.py
-new file mode 100644
-index 0000000..8b13789
---- /dev/null
-+++ b/gdb/python/lib/gdb/libstdcxx/v6/__init__.py
-@@ -0,0 +1 @@
-+
-diff --git a/gdb/python/lib/gdb/libstdcxx/v6/hook.in b/gdb/python/lib/gdb/libstdcxx/v6/hook.in
-new file mode 100644
-index 0000000..fe7c072
---- /dev/null
-+++ b/gdb/python/lib/gdb/libstdcxx/v6/hook.in
-@@ -0,0 +1,27 @@
-+# -*- python -*-
-+# Copyright (C) 2009 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+import sys
-+import gdb
-+
-+# Update module path.
-+dir = '@dir@'
-+if not dir in sys.path:
-+ sys.path.insert(0, dir)
-+
-+# Load the pretty-printers.
-+from libstdcxx.v6.printers import register_libstdcxx_printers
-+register_libstdcxx_printers (gdb.current_objfile ())
-diff --git a/gdb/python/lib/gdb/libstdcxx/v6/printers.py b/gdb/python/lib/gdb/libstdcxx/v6/printers.py
-new file mode 100644
-index 0000000..c0dc987
---- /dev/null
-+++ b/gdb/python/lib/gdb/libstdcxx/v6/printers.py
-@@ -0,0 +1,647 @@
-+# Pretty-printers for libstc++.
-+
-+# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+import gdb
-+import itertools
-+import re
-+
-+class StdPointerPrinter:
-+ "Print a smart pointer of some kind"
-+
-+ def __init__ (self, typename, val):
-+ self.typename = typename
-+ self.val = val
-+
-+ def to_string (self):
-+ return '%s (count %d) %s' % (self.typename,
-+ self.val['_M_refcount']['_M_pi']['_M_use_count'],
-+ self.val['_M_ptr'])
-+
-+class UniquePointerPrinter:
-+ "Print a unique_ptr"
-+
-+ def __init__ (self, val):
-+ self.val = val
-+
-+ def to_string (self):
-+ return self.val['_M_t']
-+
-+class StdListPrinter:
-+ "Print a std::list"
-+
-+ class _iterator:
-+ def __init__(self, nodetype, head):
-+ self.nodetype = nodetype
-+ self.base = head['_M_next']
-+ self.head = head.address()
-+ self.count = 0
-+
-+ def __iter__(self):
-+ return self
-+
-+ def next(self):
-+ if self.base == self.head:
-+ raise StopIteration
-+ elt = self.base.cast(self.nodetype).dereference()
-+ self.base = elt['_M_next']
-+ count = self.count
-+ self.count = self.count + 1
-+ return ('[%d]' % count, elt['_M_data'])
-+
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def children(self):
-+ itype = self.val.type().template_argument(0)
-+ nodetype = gdb.Type('std::_List_node<%s>' % itype).pointer()
-+ return self._iterator(nodetype, self.val['_M_impl']['_M_node'])
-+
-+ def to_string(self):
-+ if self.val['_M_impl']['_M_node'].address() == self.val['_M_impl']['_M_node']['_M_next']:
-+ return 'empty std::list'
-+ return 'std::list'
-+
-+class StdListIteratorPrinter:
-+ "Print std::list::iterator"
-+
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def to_string(self):
-+ itype = self.val.type().template_argument(0)
-+ nodetype = gdb.Type('std::_List_node<%s>' % itype).pointer()
-+ return self.val['_M_node'].cast(nodetype).dereference()['_M_data']
-+
-+class StdSlistPrinter:
-+ "Print a __gnu_cxx::slist"
-+
-+ class _iterator:
-+ def __init__(self, nodetype, head):
-+ self.nodetype = nodetype
-+ self.base = head['_M_head']['_M_next']
-+ self.count = 0
-+
-+ def __iter__(self):
-+ return self
-+
-+ def next(self):
-+ if self.base == 0:
-+ raise StopIteration
-+ elt = self.base.cast(self.nodetype).dereference()
-+ self.base = elt['_M_next']
-+ count = self.count
-+ self.count = self.count + 1
-+ return ('[%d]' % count, elt['_M_data'])
-+
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def children(self):
-+ itype = self.val.type().template_argument(0)
-+ nodetype = gdb.Type('__gnu_cxx::_Slist_node<%s>' % itype).pointer()
-+ return self._iterator(nodetype, self.val)
-+
-+ def to_string(self):
-+ if self.val['_M_head']['_M_next'] == 0:
-+ return 'empty __gnu_cxx::slist'
-+ return '__gnu_cxx::slist'
-+
-+class StdSlistIteratorPrinter:
-+ "Print __gnu_cxx::slist::iterator"
-+
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def to_string(self):
-+ itype = self.val.type().template_argument(0)
-+ nodetype = gdb.Type('__gnu_cxx::_Slist_node<%s>' % itype).pointer()
-+ return self.val['_M_node'].cast(nodetype).dereference()['_M_data']
-+
-+class StdVectorPrinter:
-+ "Print a std::vector"
-+
-+ class _iterator:
-+ def __init__ (self, start, finish):
-+ self.item = start
-+ self.finish = finish
-+ self.count = 0
-+
-+ def __iter__(self):
-+ return self
-+
-+ def next(self):
-+ if self.item == self.finish:
-+ raise StopIteration
-+ count = self.count
-+ self.count = self.count + 1
-+ elt = self.item.dereference()
-+ self.item = self.item + 1
-+ return ('[%d]' % count, elt)
-+
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def children(self):
-+ return self._iterator(self.val['_M_impl']['_M_start'],
-+ self.val['_M_impl']['_M_finish'])
-+
-+ def to_string(self):
-+ start = self.val['_M_impl']['_M_start']
-+ finish = self.val['_M_impl']['_M_finish']
-+ end = self.val['_M_impl']['_M_end_of_storage']
-+ return ('std::vector of length %d, capacity %d'
-+ % (int (finish - start), int (end - start)))
-+
-+ def display_hint(self):
-+ return 'array'
-+
-+class StdVectorIteratorPrinter:
-+ "Print std::vector::iterator"
-+
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def to_string(self):
-+ return self.val['_M_current'].dereference()
-+
-+class StdStackOrQueuePrinter:
-+ "Print a std::stack or std::queue"
-+
-+ def __init__ (self, typename, val):
-+ self.typename = typename
-+ self.visualizer = gdb.default_visualizer(val['c'])
-+
-+ def children (self):
-+ return self.visualizer.children()
-+
-+ def to_string (self):
-+ return '%s wrapping: %s' % (self.typename,
-+ self.visualizer.to_string())
-+
-+ def display_hint (self):
-+ if hasattr (self.visualizer, 'display_hint'):
-+ return self.visualizer.display_hint ()
-+ return None
-+
-+class RbtreeIterator:
-+ def __init__(self, rbtree):
-+ self.size = rbtree['_M_t']['_M_impl']['_M_node_count']
-+ self.node = rbtree['_M_t']['_M_impl']['_M_header']['_M_left']
-+ self.count = 0
-+
-+ def __iter__(self):
-+ return self
-+
-+ def __len__(self):
-+ return int (self.size)
-+
-+ def next(self):
-+ if self.count == self.size:
-+ raise StopIteration
-+ result = self.node
-+ self.count = self.count + 1
-+ if self.count < self.size:
-+ # Compute the next node.
-+ node = self.node
-+ if node.dereference()['_M_right']:
-+ node = node.dereference()['_M_right']
-+ while node.dereference()['_M_left']:
-+ node = node.dereference()['_M_left']
-+ else:
-+ parent = node.dereference()['_M_parent']
-+ while node == parent.dereference()['_M_right']:
-+ node = parent
-+ parent = parent.dereference()['_M_parent']
-+ if node.dereference()['_M_right'] != parent:
-+ node = parent
-+ self.node = node
-+ return result
-+
-+# This is a pretty printer for std::_Rb_tree_iterator (which is
-+# std::map::iterator), and has nothing to do with the RbtreeIterator
-+# class above.
-+class StdRbtreeIteratorPrinter:
-+ "Print std::map::iterator"
-+
-+ def __init__ (self, val):
-+ self.val = val
-+
-+ def to_string (self):
-+ valuetype = self.val.type().template_argument(0)
-+ nodetype = gdb.Type('std::_Rb_tree_node < %s >' % valuetype)
-+ nodetype = nodetype.pointer()
-+ return self.val.cast(nodetype).dereference()['_M_value_field']
-+
-+
-+class StdMapPrinter:
-+ "Print a std::map or std::multimap"
-+
-+ # Turn an RbtreeIterator into a pretty-print iterator.
-+ class _iter:
-+ def __init__(self, rbiter, type):
-+ self.rbiter = rbiter
-+ self.count = 0
-+ self.type = type
-+
-+ def __iter__(self):
-+ return self
-+
-+ def next(self):
-+ if self.count % 2 == 0:
-+ n = self.rbiter.next()
-+ n = n.cast(self.type).dereference()['_M_value_field']
-+ self.pair = n
-+ item = n['first']
-+ else:
-+ item = self.pair['second']
-+ result = ('[%d]' % self.count, item)
-+ self.count = self.count + 1
-+ return result
-+
-+ def __init__ (self, typename, val):
-+ self.typename = typename
-+ self.val = val
-+ self.iter = RbtreeIterator (val)
-+
-+ def to_string (self):
-+ return '%s with %d elements' % (self.typename, len (self.iter))
-+
-+ def children (self):
-+ keytype = self.val.type().template_argument(0).const()
-+ valuetype = self.val.type().template_argument(1)
-+ nodetype = gdb.Type('std::_Rb_tree_node< std::pair< %s, %s > >' % (keytype, valuetype))
-+ nodetype = nodetype.pointer()
-+ return self._iter (self.iter, nodetype)
-+
-+ def display_hint (self):
-+ return 'map'
-+
-+class StdSetPrinter:
-+ "Print a std::set or std::multiset"
-+
-+ # Turn an RbtreeIterator into a pretty-print iterator.
-+ class _iter:
-+ def __init__(self, rbiter, type):
-+ self.rbiter = rbiter
-+ self.count = 0
-+ self.type = type
-+
-+ def __iter__(self):
-+ return self
-+
-+ def next(self):
-+ item = self.rbiter.next()
-+ item = item.cast(self.type).dereference()['_M_value_field']
-+ # FIXME: this is weird ... what to do?
-+ # Maybe a 'set' display hint?
-+ result = ('[%d]' % self.count, item)
-+ self.count = self.count + 1
-+ return result
-+
-+ def __init__ (self, typename, val):
-+ self.typename = typename
-+ self.val = val
-+ self.iter = RbtreeIterator (val)
-+
-+ def to_string (self):
-+ return '%s with %d elements' % (self.typename, len (self.iter))
-+
-+ def children (self):
-+ keytype = self.val.type().template_argument(0)
-+ nodetype = gdb.Type('std::_Rb_tree_node< %s >' % keytype).pointer()
-+ return self._iter (self.iter, nodetype)
-+
-+class StdBitsetPrinter:
-+ "Print a std::bitset"
-+
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def to_string (self):
-+ # If template_argument handled values, we could print the
-+ # size. Or we could use a regexp on the type.
-+ return 'std::bitset'
-+
-+ def children (self):
-+ words = self.val['_M_w']
-+ wtype = words.type()
-+
-+ # The _M_w member can be either an unsigned long, or an
-+ # array. This depends on the template specialization used.
-+ # If it is a single long, convert to a single element list.
-+ if wtype.code () == gdb.TYPE_CODE_ARRAY:
-+ tsize = wtype.target ().sizeof ()
-+ else:
-+ words = [words]
-+ tsize = wtype.sizeof ()
-+
-+ nwords = wtype.sizeof() / tsize
-+ result = []
-+ byte = 0
-+ while byte < nwords:
-+ w = words[byte]
-+ bit = 0
-+ while w != 0:
-+ if (w & 1) != 0:
-+ # Another spot where we could use 'set'?
-+ result.append(('[%d]' % (byte * tsize * 8 + bit), 1))
-+ bit = bit + 1
-+ w = w >> 1
-+ byte = byte + 1
-+ return result
++/* Implementation of `$_probe_arg*' set of variables. */
+
-+class StdDequePrinter:
-+ "Print a std::deque"
-+
-+ class _iter:
-+ def __init__(self, node, start, end, last, buffer_size):
-+ self.node = node
-+ self.p = start
-+ self.end = end
-+ self.last = last
-+ self.buffer_size = buffer_size
-+ self.count = 0
-+
-+ def __iter__(self):
-+ return self
-+
-+ def next(self):
-+ if self.p == self.last:
-+ raise StopIteration
-+
-+ result = ('[%d]' % self.count, self.p.dereference())
-+ self.count = self.count + 1
-+
-+ # Advance the 'cur' pointer.
-+ self.p = self.p + 1
-+ if self.p == self.end:
-+ # If we got to the end of this bucket, move to the
-+ # next bucket.
-+ self.node = self.node + 1
-+ self.p = self.node[0]
-+ self.end = self.p + self.buffer_size
-+
-+ return result
-+
-+ def __init__(self, val):
-+ self.val = val
-+ self.elttype = val.type().template_argument(0)
-+ size = self.elttype.sizeof ()
-+ if size < 512:
-+ self.buffer_size = int (512 / size)
-+ else:
-+ self.buffer_size = 1
-+
-+ def to_string(self):
-+ start = self.val['_M_impl']['_M_start']
-+ end = self.val['_M_impl']['_M_finish']
-+
-+ delta_n = end['_M_node'] - start['_M_node'] - 1
-+ delta_s = start['_M_last'] - start['_M_cur']
-+ delta_e = end['_M_cur'] - end['_M_first']
-+
-+ size = self.buffer_size * delta_n + delta_s + delta_e
-+
-+ return 'std::deque with %d elements' % long (size)
-+
-+ def children(self):
-+ start = self.val['_M_impl']['_M_start']
-+ end = self.val['_M_impl']['_M_finish']
-+ return self._iter(start['_M_node'], start['_M_cur'], start['_M_last'],
-+ end['_M_cur'], self.buffer_size)
-+
-+ def display_hint (self):
-+ return 'array'
-+
-+class StdDequeIteratorPrinter:
-+ "Print std::deque::iterator"
-+
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def to_string(self):
-+ return self.val['_M_cur'].dereference()
-+
-+class WideEncoding (gdb.Parameter):
-+ """The target wide character set is the encoding used for wchar_t."""
-+
-+ set_doc = "Set the target wide character set."
-+ show_doc = "Show the target wide character set."
-+
-+ # FIXME: needs a complete method -- but does Parameter support it?
-+ def __init__ (self):
-+ super (WideEncoding, self).__init__ ("target-wide-charset",
-+ gdb.COMMAND_SUPPORT,
-+ gdb.PARAM_STRING)
-+ # I think this is ok for most glibc locales.
-+ self.value = 'UTF-32'
-+
-+target_wide_charset = WideEncoding()
-+
-+class StdStringPrinter:
-+ "Print a std::basic_string of some kind"
-+
-+ def __init__(self, encoding, val):
-+ self.encoding = encoding
-+ self.val = val
-+
-+ def to_string(self):
-+ # Look up the target encoding as late as possible.
-+ encoding = self.encoding
-+ if encoding is None:
-+ encoding = gdb.parameter('target-charset')
-+ elif isinstance(encoding, WideEncoding):
-+ encoding = encoding.value
-+ return self.val['_M_dataplus']['_M_p'].string(encoding)
-+
-+ def display_hint (self):
-+ return 'string'
-+
-+class Tr1HashtableIterator:
-+ def __init__ (self, hash):
-+ self.count = 0
-+ self.n_buckets = hash['_M_element_count']
-+ if self.n_buckets == 0:
-+ self.node = False
-+ else:
-+ self.bucket = hash['_M_buckets']
-+ self.node = self.bucket[0]
-+ self.update ()
-+
-+ def __iter__ (self):
-+ return self
-+
-+ def update (self):
-+ # If we advanced off the end of the chain, move to the next
-+ # bucket.
-+ while self.node == 0:
-+ self.bucket = self.bucket + 1
-+ self.node = self.bucket[0]
-+
-+ # If we advanced off the end of the bucket array, then
-+ # we're done.
-+ if self.count == self.n_buckets:
-+ self.node = False
-+ else:
-+ self.count = self.count + 1
-+
-+ def next (self):
-+ if not self.node:
-+ raise StopIteration
-+ result = self.node.dereference()['_M_v']
-+ self.node = self.node.dereference()['_M_next']
-+ self.update ()
-+ return result
++static const struct internalvar_funcs probe_funcs =
++{
++ compute_probe_arg,
++ compile_probe_arg,
++ NULL
++};
+
-+class Tr1UnorderedSetPrinter:
-+ "Print a tr1::unordered_set"
-+
-+ def __init__ (self, typename, val):
-+ self.typename = typename
-+ self.val = val
-+
-+ def to_string (self):
-+ return '%s with %d elements' % (self.typename, self.val['_M_element_count'])
-+
-+ @staticmethod
-+ def format_count (i):
-+ return '[%d]' % i
-+
-+ def children (self):
-+ counter = itertools.imap (self.format_count, itertools.count())
-+ return itertools.izip (counter, Tr1HashtableIterator (self.val))
-+
-+class Tr1UnorderedMapPrinter:
-+ "Print a tr1::unordered_map"
-+
-+ def __init__ (self, typename, val):
-+ self.typename = typename
-+ self.val = val
-+
-+ def to_string (self):
-+ return '%s with %d elements' % (self.typename, self.val['_M_element_count'])
-+
-+ @staticmethod
-+ def flatten (list):
-+ for elt in list:
-+ for i in elt:
-+ yield i
-+
-+ @staticmethod
-+ def format_one (elt):
-+ return (elt['first'], elt['second'])
-+
-+ @staticmethod
-+ def format_count (i):
-+ return '[%d]' % i
-+
-+ def children (self):
-+ counter = itertools.imap (self.format_count, itertools.count())
-+ # Map over the hash table and flatten the result.
-+ data = self.flatten (itertools.imap (self.format_one, Tr1HashtableIterator (self.val)))
-+ # Zip the two iterators together.
-+ return itertools.izip (counter, data)
-+
-+ def display_hint (self):
-+ return 'map'
-+
-+def register_libstdcxx_printers (obj):
-+ "Register libstdc++ pretty-printers with objfile Obj."
-+
-+ if obj == None:
-+ obj = gdb
-+
-+ obj.pretty_printers.append (lookup_function)
-+
-+def lookup_function (val):
-+ "Look-up and return a pretty-printer that can print val."
-+
-+ # Get the type.
-+ type = val.type ();
-+
-+ # If it points to a reference, get the reference.
-+ if type.code () == gdb.TYPE_CODE_REF:
-+ type = type.target ()
-+
-+ # Get the unqualified type, stripped of typedefs.
-+ type = type.unqualified ().strip_typedefs ()
-+
-+ # Get the type name.
-+ typename = type.tag ()
-+ if typename == None:
-+ return None
-+
-+ # Iterate over local dictionary of types to determine
-+ # if a printer is registered for that type. Return an
-+ # instantiation of the printer if found.
-+ for function in pretty_printers_dict:
-+ if function.search (typename):
-+ return pretty_printers_dict[function] (val)
-+
-+ # Cannot find a pretty printer. Return None.
-+ return None
-+
-+def build_libstdcxx_dictionary ():
-+ # libstdc++ objects requiring pretty-printing.
-+ # In order from:
-+ # http://gcc.gnu.org/onlinedocs/libstdc++/latest-doxygen/a01847.html
-+ pretty_printers_dict[re.compile('^std::basic_string<char,.*>$')] = lambda val: StdStringPrinter(None, val)
-+ pretty_printers_dict[re.compile('^std::basic_string<wchar_t,.*>$')] = lambda val: StdStringPrinter(target_wide_charset, val)
-+ pretty_printers_dict[re.compile('^std::basic_string<char16_t,.*>$')] = lambda val: StdStringPrinter('UTF-16', val)
-+ pretty_printers_dict[re.compile('^std::basic_string<char32_t,.*>$')] = lambda val: StdStringPrinter('UTF-32', val)
-+ pretty_printers_dict[re.compile('^std::bitset<.*>$')] = StdBitsetPrinter
-+ pretty_printers_dict[re.compile('^std::deque<.*>$')] = StdDequePrinter
-+ pretty_printers_dict[re.compile('^std::list<.*>$')] = StdListPrinter
-+ pretty_printers_dict[re.compile('^std::map<.*>$')] = lambda val: StdMapPrinter("std::map", val)
-+ pretty_printers_dict[re.compile('^std::multimap<.*>$')] = lambda val: StdMapPrinter("std::multimap", val)
-+ pretty_printers_dict[re.compile('^std::multiset<.*>$')] = lambda val: StdSetPrinter("std::multiset", val)
-+ pretty_printers_dict[re.compile('^std::priority_queue<.*>$')] = lambda val: StdStackOrQueuePrinter("std::priority_queue", val)
-+ pretty_printers_dict[re.compile('^std::queue<.*>$')] = lambda val: StdStackOrQueuePrinter("std::queue", val)
-+ pretty_printers_dict[re.compile('^std::set<.*>$')] = lambda val: StdSetPrinter("std::set", val)
-+ pretty_printers_dict[re.compile('^std::stack<.*>$')] = lambda val: StdStackOrQueuePrinter("std::stack", val)
-+ pretty_printers_dict[re.compile('^std::unique_ptr<.*>$')] = UniquePointerPrinter
-+ pretty_printers_dict[re.compile('^std::vector<.*>$')] = StdVectorPrinter
-+ # vector<bool>
-+
-+ # These are the C++0x printers. They also exist in the standard namespace.
-+ # For array - the default GDB pretty-printer seems reasonable.
-+ pretty_printers_dict[re.compile('^std::(tr1::)?shared_ptr<.*>$')] = lambda val: StdPointerPrinter ('std::shared_ptr', val)
-+ pretty_printers_dict[re.compile('^std::(tr1::)?weak_ptr<.*>$')] = lambda val: StdPointerPrinter ('std::weak_ptr', val)
-+ pretty_printers_dict[re.compile('^std::(tr1::)?unordered_map<.*>$')] = lambda val: Tr1UnorderedMapPrinter ('std::tr1::unordered_map', val)
-+ pretty_printers_dict[re.compile('^std::(tr1::)?unordered_set<.*>$')] = lambda val: Tr1UnorderedSetPrinter ('std::tr1::unordered_set', val)
-+ pretty_printers_dict[re.compile('^std::(tr1::)?unordered_multimap<.*>$')] = lambda val: Tr1UnorderedMapPrinter ('std::tr1::unordered_multimap', val)
-+ pretty_printers_dict[re.compile('^std::(tr1::)?unordered_multiset<.*>$')] = lambda val: Tr1UnorderedSetPrinter ('std::tr1::unordered_multiset', val)
-+
-+
-+ # Extensions.
-+ pretty_printers_dict[re.compile('^__gnu_cxx::slist<.*>$')] = StdSlistPrinter
-+
-+ if True:
-+ # These shouldn't be necessary, if GDB "print *i" worked.
-+ # But it often doesn't, so here they are.
-+ pretty_printers_dict[re.compile('^std::_List_iterator<.*>$')] = lambda val: StdListIteratorPrinter(val)
-+ pretty_printers_dict[re.compile('^std::_List_const_iterator<.*>$')] = lambda val: StdListIteratorPrinter(val)
-+ pretty_printers_dict[re.compile('^std::_Rb_tree_iterator<.*>$')] = lambda val: StdRbtreeIteratorPrinter(val)
-+ pretty_printers_dict[re.compile('^std::_Rb_tree_const_iterator<.*>$')] = lambda val: StdRbtreeIteratorPrinter(val)
-+ pretty_printers_dict[re.compile('^std::_Deque_iterator<.*>$')] = lambda val: StdDequeIteratorPrinter(val)
-+ pretty_printers_dict[re.compile('^std::_Deque_const_iterator<.*>$')] = lambda val: StdDequeIteratorPrinter(val)
-+ pretty_printers_dict[re.compile('^__gnu_cxx::__normal_iterator<.*>$')] = lambda val: StdVectorIteratorPrinter(val)
-+ pretty_printers_dict[re.compile('^__gnu_cxx::_Slist_iterator<.*>$')] = lambda val: StdSlistIteratorPrinter(val)
-+
-+pretty_printers_dict = {}
-+
-+build_libstdcxx_dictionary ()
-diff --git a/gdb/python/python-block.c b/gdb/python/python-block.c
-new file mode 100644
-index 0000000..8019e9d
---- /dev/null
-+++ b/gdb/python/python-block.c
-@@ -0,0 +1,265 @@
-+/* Python interface to blocks.
-+
-+ Copyright (C) 2008 Free Software Foundation, Inc.
++void
++_initialize_stap_probe (void)
++{
++ add_info ("probes", info_probes_command, _("\
++Show available static probes.\n\
++Usage: info probes [PROVIDER [NAME [OBJECT]]]\n\
++Each argument is a regular expression, used to select probes.\n\
++PROVIDER matches probe provider names.\n\
++NAME matches the probe names.\n\
++OBJECT match the executable or shared library name."));
++
++ create_internalvar_type_lazy ("_probe_argc", &probe_funcs,
++ (void *) (uintptr_t) 10);
++ create_internalvar_type_lazy ("_probe_arg0", &probe_funcs,
++ (void *) (uintptr_t) 0);
++ create_internalvar_type_lazy ("_probe_arg1", &probe_funcs,
++ (void *) (uintptr_t) 1);
++ create_internalvar_type_lazy ("_probe_arg2", &probe_funcs,
++ (void *) (uintptr_t) 2);
++ create_internalvar_type_lazy ("_probe_arg3", &probe_funcs,
++ (void *) (uintptr_t) 3);
++ create_internalvar_type_lazy ("_probe_arg4", &probe_funcs,
++ (void *) (uintptr_t) 4);
++ create_internalvar_type_lazy ("_probe_arg5", &probe_funcs,
++ (void *) (uintptr_t) 5);
++ create_internalvar_type_lazy ("_probe_arg6", &probe_funcs,
++ (void *) (uintptr_t) 6);
++ create_internalvar_type_lazy ("_probe_arg7", &probe_funcs,
++ (void *) (uintptr_t) 7);
++ create_internalvar_type_lazy ("_probe_arg8", &probe_funcs,
++ (void *) (uintptr_t) 8);
++ create_internalvar_type_lazy ("_probe_arg9", &probe_funcs,
++ (void *) (uintptr_t) 9);
++}
+Index: gdb-7.2.90.20110703/gdb/stap-probe.h
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/stap-probe.h 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,109 @@
++/* SystemTap probe support for GDB.
++
++ Copyright (C) 2011 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
-+#include "defs.h"
-+#include "block.h"
-+#include "dictionary.h"
-+#include "symtab.h"
-+#include "python-internal.h"
-+
-+typedef struct {
-+ PyObject_HEAD
-+ struct block *block;
-+} block_object;
-+
-+typedef struct {
-+ PyObject_HEAD
-+ struct dictionary *dict;
-+ struct dict_iterator iter;
-+ int initialized_p;
-+} block_syms_iterator_object;
-+
-+static PyTypeObject block_syms_iterator_object_type;
-+
-+static PyObject *
-+blpy_iter (PyObject *self)
-+{
-+ block_syms_iterator_object *block_iter_obj;
-+
-+ block_iter_obj = PyObject_New (block_syms_iterator_object,
-+ &block_syms_iterator_object_type);
-+ if (block_iter_obj == NULL)
-+ {
-+ PyErr_SetString (PyExc_MemoryError,
-+ "Could not allocate iterator object.");
-+ return NULL;
-+ }
-+
-+ block_iter_obj->dict = BLOCK_DICT (((block_object *) self)->block);
-+ block_iter_obj->initialized_p = 0;
-+
-+ return (PyObject *) block_iter_obj;
-+}
-+
-+static PyObject *
-+blpy_get_start (PyObject *self, void *closure)
-+{
-+ block_object *self_block = (block_object *) self;
-+
-+ return PyLong_FromUnsignedLongLong (BLOCK_START (self_block->block));
-+}
-+
-+static PyObject *
-+blpy_get_end (PyObject *self, void *closure)
-+{
-+ block_object *self_block = (block_object *) self;
-+
-+ return PyLong_FromUnsignedLongLong (BLOCK_END (self_block->block));
-+}
-+
-+static PyObject *
-+blpy_get_function (PyObject *self, void *closure)
-+{
-+ block_object *self_block = (block_object *) self;
-+ struct symbol *sym;
++#if !defined (STAP_PROBE_H)
++#define STAP_PROBE_H 1
+
-+ sym = BLOCK_FUNCTION (self_block->block);
-+ if (sym)
-+ return symbol_to_symbol_object (sym);
++struct stap_args_info;
++struct axs_value;
++struct linespec_result;
+
-+ Py_RETURN_NONE;
-+}
++/* Main structure which holds information about a SystemTap probe. */
+
-+static PyObject *
-+blpy_get_superblock (PyObject *self, void *closure)
++struct stap_probe
+{
-+ block_object *self_block = (block_object *) self;
-+ struct block *block;
-+
-+ block = BLOCK_SUPERBLOCK (self_block->block);
-+ if (block)
-+ return block_to_block_object (block);
++ /* The provider of this probe. */
++ const char *provider;
+
-+ Py_RETURN_NONE;
-+}
++ /* The name of the probe. */
++ const char *name;
+
-+PyObject *
-+block_to_block_object (struct block *block)
-+{
-+ block_object *block_obj;
++ /* The address where the probe is inserted. */
++ CORE_ADDR address;
+
-+ block_obj = PyObject_New (block_object, &block_object_type);
-+ if (block_obj == NULL)
-+ {
-+ PyErr_SetString (PyExc_MemoryError, "Could not allocate block object.");
-+ return NULL;
-+ }
++ /* The address of the probe's semaphore, or 0 if this probe does not
++ have an associated semaphore. */
++ CORE_ADDR sem_addr;
+
-+ block_obj->block = block;
++ /* Probe's arguments. Users should generally not examine this, but
++ should instead extract information about the arguments using the
++ methods provided in sym_probe_fns. */
++ const char *args;
+
-+ return (PyObject *) block_obj;
-+}
++ /* Probe's arguments after parsing. This is an opaque structure that
++ will hold information about the arguments pointed by ARGS. */
++ struct stap_args_info *parsed_args;
++};
+
-+struct block *
-+block_object_to_block (PyObject *obj)
-+{
-+ if (! PyObject_TypeCheck (obj, &block_object_type))
-+ return NULL;
-+ return ((block_object *) obj)->block;
-+}
+
-+static PyObject *
-+blpy_block_syms_iter (PyObject *self)
-+{
-+ return self;
-+}
++/* A helper for linespec that decodes a stap probe specification. It
++ returns a symtabs_and_lines object and updates *ARGPTR or throws an
++ error. */
+
-+static PyObject *
-+blpy_block_syms_iternext (PyObject *self)
-+{
-+ block_syms_iterator_object *iter_obj = (block_syms_iterator_object *) self;
-+ struct symbol *sym;
++extern struct symtabs_and_lines parse_stap_probe (char **argptr,
++ struct linespec_result *canon);
+
-+ if (!iter_obj->initialized_p)
-+ {
-+ sym = dict_iterator_first (iter_obj->dict, &(iter_obj->iter));
-+ iter_obj->initialized_p = 1;
-+ }
-+ else
-+ sym = dict_iterator_next (&(iter_obj->iter));
++/* Search OBJFILE for a probe with the given PROVIDER and NAME. If a
++ probe is found, return it. If no probe is found, return NULL. */
+
-+ return (sym == NULL)? NULL : symbol_to_symbol_object (sym);
-+}
++extern const struct stap_probe *find_probe_in_objfile (struct objfile *objfile,
++ const char *provider,
++ const char *name);
+
-+/* Return the innermost lexical block containing the specified pc value,
-+ or 0 if there is none. */
++/* Given a PC, find an associated SystemTap probe. If a probe is
++ found, set *OBJFILE_OUT to the probe's objfile, and return the
++ probe. If no probe is found, return NULL. */
+
-+PyObject *
-+gdbpy_block_for_pc (PyObject *self, PyObject *args)
-+{
-+ unsigned PY_LONG_LONG pc;
-+ struct block *block;
-+ PyObject *sym_obj;
++extern const struct stap_probe *find_probe_by_pc (CORE_ADDR pc,
++ struct objfile **objfile_out);
+
-+ if (!PyArg_ParseTuple (args, "K", &pc))
-+ return NULL;
++/* Given PROBE, returns the number of arguments present in that probe's
++ argument string. */
+
-+ block = block_for_pc (pc);
-+ if (block)
-+ return block_to_block_object (block);
++extern int stap_get_probe_argument_count (const struct stap_probe *probe);
+
-+ Py_RETURN_NONE;
-+}
++/* Given PARSED_ARGS, frees the space allocated to hold information about
++ the probe's parsed arguments. */
+
-+void
-+gdbpy_initialize_blocks (void)
-+{
-+ block_object_type.tp_new = PyType_GenericNew;
-+ if (PyType_Ready (&block_object_type) < 0)
-+ return;
++extern void stap_free_parsed_args (struct stap_args_info *parsed_args);
+
-+ block_syms_iterator_object_type.tp_new = PyType_GenericNew;
-+ if (PyType_Ready (&block_syms_iterator_object_type) < 0)
-+ return;
++/* Evaluates the probe's argument N, returning a value corresponding
++ to it. */
+
-+ Py_INCREF (&block_object_type);
-+ PyModule_AddObject (gdb_module, "Block", (PyObject *) &block_object_type);
++extern struct value *stap_evaluate_probe_argument (struct objfile *objfile,
++ const struct stap_probe *probe,
++ struct frame_info *frame,
++ int n);
+
-+ Py_INCREF (&block_syms_iterator_object_type);
-+ PyModule_AddObject (gdb_module, "BlockIterator",
-+ (PyObject *) &block_syms_iterator_object_type);
-+}
++/* Compile the probe's argument N to agent expression. */
+
-+\f
++extern void stap_compile_to_ax (struct objfile *objfile,
++ const struct stap_probe *probe,
++ struct agent_expr *expr,
++ struct axs_value *value,
++ int n);
+
-+static PyGetSetDef block_object_getset[] = {
-+ { "start", blpy_get_start, NULL, "Start address of the block.", NULL },
-+ { "end", blpy_get_end, NULL, "End address of the block.", NULL },
-+ { "function", blpy_get_function, NULL,
-+ "Symbol that names the block, or None.", NULL },
-+ { "superblock", blpy_get_superblock, NULL,
-+ "Block containing the block, or None.", NULL },
-+ { NULL } /* Sentinel */
-+};
++/* A convenience function that finds a probe at the PC in FRAME and
++ evaluates argument N. If there is no probe at that location, or if
++ the probe does not have enough arguments, this returns NULL. */
+
-+PyTypeObject block_object_type = {
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /*ob_size*/
-+ "gdb.Block", /*tp_name*/
-+ sizeof (block_object), /*tp_basicsize*/
-+ 0, /*tp_itemsize*/
-+ 0, /*tp_dealloc*/
-+ 0, /*tp_print*/
-+ 0, /*tp_getattr*/
-+ 0, /*tp_setattr*/
-+ 0, /*tp_compare*/
-+ 0, /*tp_repr*/
-+ 0, /*tp_as_number*/
-+ 0, /*tp_as_sequence*/
-+ 0, /*tp_as_mapping*/
-+ 0, /*tp_hash */
-+ 0, /*tp_call*/
-+ 0, /*tp_str*/
-+ 0, /*tp_getattro*/
-+ 0, /*tp_setattro*/
-+ 0, /*tp_as_buffer*/
-+ Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_ITER, /*tp_flags*/
-+ "GDB block object", /* tp_doc */
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ blpy_iter, /* tp_iter */
-+ 0, /* tp_iternext */
-+ 0, /* tp_methods */
-+ 0, /* tp_members */
-+ block_object_getset /* tp_getset */
-+};
++extern struct value *stap_safe_evaluate_at_pc (struct frame_info *frame,
++ int n);
+
-+static PyTypeObject block_syms_iterator_object_type = {
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /*ob_size*/
-+ "gdb.BlockIterator", /*tp_name*/
-+ sizeof (block_syms_iterator_object), /*tp_basicsize*/
-+ 0, /*tp_itemsize*/
-+ 0, /*tp_dealloc*/
-+ 0, /*tp_print*/
-+ 0, /*tp_getattr*/
-+ 0, /*tp_setattr*/
-+ 0, /*tp_compare*/
-+ 0, /*tp_repr*/
-+ 0, /*tp_as_number*/
-+ 0, /*tp_as_sequence*/
-+ 0, /*tp_as_mapping*/
-+ 0, /*tp_hash */
-+ 0, /*tp_call*/
-+ 0, /*tp_str*/
-+ 0, /*tp_getattro*/
-+ 0, /*tp_setattro*/
-+ 0, /*tp_as_buffer*/
-+ Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_ITER, /*tp_flags*/
-+ "GDB block syms iterator object", /* tp_doc */
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ blpy_block_syms_iter, /* tp_iter */
-+ blpy_block_syms_iternext, /* tp_iternext */
-+ 0 /* tp_methods */
++#endif /* !defined (STAP_PROBE_H) */
+Index: gdb-7.2.90.20110703/gdb/symfile.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/symfile.h 2011-04-25 23:25:18.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/symfile.h 2011-07-03 10:33:11.000000000 +0200
+@@ -31,6 +31,11 @@ struct objfile;
+ struct obj_section;
+ struct obstack;
+ struct block;
++struct stap_probe;
++struct value;
++struct frame_info;
++struct agent_expr;
++struct axs_value;
+
+ /* Comparison function for symbol look ups. */
+
+@@ -290,6 +295,52 @@ struct quick_symbol_functions
+ void *data);
+ };
+
++/* Structure of functions used for SystemTap probe support. If one of
++ these functions is provided, all must be. */
++
++struct sym_probe_fns
++{
++ /* If non-NULL, return an array of SystemTap probe objects. The
++ number of objects is returned in *NUM_PROBES. */
++ const struct stap_probe *(*sym_get_probes) (struct objfile *,
++ int *num_probes);
++
++ /* Return the number of arguments available to PROBE. PROBE will
++ have come from a call to this objfile's sym_get_probes method.
++ If you provide an implementation of sym_get_probes, you must
++ implement this method as well. */
++ int (*sym_get_probe_argument_count) (struct objfile *objfile,
++ const struct stap_probe *probe);
++
++ /* Evaluate the Nth argument available to PROBE. PROBE will have
++ come from a call to this objfile's sym_get_probes method. N will
++ be between 0 and the number of arguments available to this probe.
++ FRAME is the frame in which the evaluation is done; the frame's
++ PC will match the address of the probe. If you provide an
++ implementation of sym_get_probes, you must implement this method
++ as well. */
++ struct value *(*sym_evaluate_probe_argument) (struct objfile *objfile,
++ const struct stap_probe *probe,
++ struct frame_info *frame,
++ int n);
++
++ /* Compile the Nth probe argument to an agent expression. PROBE
++ will have come from a call to this objfile's sym_get_probes
++ method. N will be between 0 and the number of arguments
++ available to this probe. EXPR and VALUE are the agent expression
++ that is being updated. */
++ void (*sym_compile_to_ax) (struct objfile *objfile,
++ const struct stap_probe *probe,
++ struct agent_expr *expr,
++ struct axs_value *value,
++ int n);
++
++ /* Relocate the probe section of OBJFILE. */
++ void (*sym_relocate_probe) (struct objfile *objfile,
++ struct section_offsets *new_offsets,
++ struct section_offsets *delta);
+};
-diff --git a/gdb/python/python-breakpoint.c b/gdb/python/python-breakpoint.c
-new file mode 100644
-index 0000000..ec80419
---- /dev/null
-+++ b/gdb/python/python-breakpoint.c
-@@ -0,0 +1,665 @@
-+/* Python interface to breakpoints
-+
-+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
-+
-+ This file is part of GDB.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+#include "defs.h"
-+#include "value.h"
-+#include "exceptions.h"
-+#include "python-internal.h"
-+#include "charset.h"
-+#include "breakpoint.h"
-+#include "gdbcmd.h"
-+#include "gdbthread.h"
-+#include "observer.h"
-+
+
-+/* From breakpoint.c. */
-+extern struct breakpoint *breakpoint_chain;
-+
-+
-+typedef struct breakpoint_object breakpoint_object;
-+
-+static PyTypeObject breakpoint_object_type;
-+
-+/* A dynamically allocated vector of breakpoint objects. Each
-+ breakpoint has a number. A breakpoint is valid if its slot in this
-+ vector is non-null. When a breakpoint is deleted, we drop our
-+ reference to it and zero its slot; this is how we let the Python
-+ object have a lifetime which is independent from that of the gdb
-+ breakpoint. */
-+static breakpoint_object **bppy_breakpoints;
-+
-+/* Number of slots in bppy_breakpoints. */
-+static int bppy_slots;
+ /* Structure to keep track of symbol reading functions for various
+ object file types. */
+
+@@ -360,6 +411,10 @@ struct sym_fns
+
+ bfd_byte *(*sym_relocate) (struct objfile *, asection *sectp, bfd_byte *buf);
+
++ /* If non-NULL, this objfile has probe support, and all the probe
++ functions referred to here will be non-NULL. */
++ const struct sym_probe_fns *sym_probe_fns;
+
-+/* Number of live breakpoints. */
-+static int bppy_live;
-+
-+/* Variables used to pass information between the Breakpoint
-+ constructor and the breakpoint-created hook function. */
-+static breakpoint_object *bppy_pending_object;
-+
-+struct breakpoint_object
-+{
-+ PyObject_HEAD
-+
-+ /* The breakpoint number according to gdb. */
-+ int number;
-+
-+ /* The gdb breakpoint object, or NULL if the breakpoint has been
-+ deleted. */
-+ struct breakpoint *bp;
-+};
-+
-+/* Evaluate to true if the breakpoint NUM is valid, false otherwise. */
-+#define BPPY_VALID_P(Num) \
-+ ((Num) >= 0 \
-+ && (Num) < bppy_slots \
-+ && bppy_breakpoints[Num] != NULL)
-+
-+/* Require that BREAKPOINT be a valid breakpoint ID; throw a Python
-+ exception if it is invalid. */
-+#define BPPY_REQUIRE_VALID(Breakpoint) \
-+ do { \
-+ if (! BPPY_VALID_P ((Breakpoint)->number)) \
-+ return PyErr_Format (PyExc_RuntimeError, "breakpoint %d is invalid", \
-+ (Breakpoint)->number); \
-+ } while (0)
-+
-+/* Require that BREAKPOINT be a valid breakpoint ID; throw a Python
-+ exception if it is invalid. This macro is for use in setter functions. */
-+#define BPPY_SET_REQUIRE_VALID(Breakpoint) \
-+ do { \
-+ if (! BPPY_VALID_P ((Breakpoint)->number)) \
-+ { \
-+ PyErr_Format (PyExc_RuntimeError, "breakpoint %d is invalid", \
-+ (Breakpoint)->number); \
-+ return -1; \
-+ } \
-+ } while (0)
-+
-+/* Python function which checks the validity of a breakpoint object. */
-+static PyObject *
-+bppy_is_valid (PyObject *self, PyObject *args)
-+{
-+ if (((breakpoint_object *) self)->bp)
-+ Py_RETURN_TRUE;
-+ Py_RETURN_FALSE;
-+}
-+
-+/* Python function to test whether or not the breakpoint is enabled. */
-+static PyObject *
-+bppy_get_enabled (PyObject *self, void *closure)
-+{
-+ if (! ((breakpoint_object *) self)->bp)
-+ Py_RETURN_FALSE;
-+ /* Not clear what we really want here. */
-+ if (((breakpoint_object *) self)->bp->enable_state == bp_enabled)
-+ Py_RETURN_TRUE;
-+ Py_RETURN_FALSE;
-+}
-+
-+/* Python function to test whether or not the breakpoint is silent. */
-+static PyObject *
-+bppy_get_silent (PyObject *self, void *closure)
-+{
-+ BPPY_REQUIRE_VALID ((breakpoint_object *) self);
-+ if (((breakpoint_object *) self)->bp->silent)
-+ Py_RETURN_TRUE;
-+ Py_RETURN_FALSE;
-+}
-+
-+/* Python function to set the enabled state of a breakpoint. */
-+static int
-+bppy_set_enabled (PyObject *self, PyObject *newvalue, void *closure)
-+{
-+ breakpoint_object *self_bp = (breakpoint_object *) self;
-+ int cmp;
-+
-+ BPPY_SET_REQUIRE_VALID (self_bp);
-+
-+ if (newvalue == NULL)
-+ {
-+ PyErr_SetString (PyExc_TypeError, "cannot delete `enabled' attribute");
-+ return -1;
-+ }
-+ else if (! PyBool_Check (newvalue))
-+ {
-+ PyErr_SetString (PyExc_TypeError,
-+ "the value of `enabled' must be a boolean");
-+ return -1;
-+ }
-+
-+ cmp = PyObject_IsTrue (newvalue);
-+ if (cmp < 0)
-+ return -1;
-+ else if (cmp == 1)
-+ enable_breakpoint (self_bp->bp);
-+ else
-+ disable_breakpoint (self_bp->bp);
-+ return 0;
-+}
-+
-+/* Python function to set the 'silent' state of a breakpoint. */
-+static int
-+bppy_set_silent (PyObject *self, PyObject *newvalue, void *closure)
-+{
-+ breakpoint_object *self_bp = (breakpoint_object *) self;
-+ int cmp;
-+
-+ BPPY_SET_REQUIRE_VALID (self_bp);
-+
-+ if (newvalue == NULL)
-+ {
-+ PyErr_SetString (PyExc_TypeError, "cannot delete `silent' attribute");
-+ return -1;
-+ }
-+ else if (! PyBool_Check (newvalue))
-+ {
-+ PyErr_SetString (PyExc_TypeError,
-+ "the value of `silent' must be a boolean");
-+ return -1;
-+ }
-+
-+ cmp = PyObject_IsTrue (newvalue);
-+ if (cmp < 0)
-+ return -1;
-+ else
-+ self_bp->bp->silent = cmp;
-+
-+ return 0;
-+}
-+
-+/* Python function to set the thread of a breakpoint. */
-+static int
-+bppy_set_thread (PyObject *self, PyObject *newvalue, void *closure)
-+{
-+ breakpoint_object *self_bp = (breakpoint_object *) self;
-+ int id;
-+
-+ BPPY_SET_REQUIRE_VALID (self_bp);
-+
-+ if (newvalue == NULL)
-+ {
-+ PyErr_SetString (PyExc_TypeError, "cannot delete `thread' attribute");
-+ return -1;
-+ }
-+ else if (PyInt_Check (newvalue))
-+ {
-+ id = (int) PyInt_AsLong (newvalue);
-+ if (! valid_thread_id (id))
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "invalid thread id");
-+ return -1;
-+ }
-+ }
-+ else if (newvalue == Py_None)
-+ id = -1;
-+ else
-+ {
-+ PyErr_SetString (PyExc_TypeError,
-+ "the value of `thread' must be an integer or None");
-+ return -1;
-+ }
-+
-+ self_bp->bp->thread = id;
-+
-+ return 0;
-+}
-+
-+/* Python function to set the ignore count of a breakpoint. */
-+static int
-+bppy_set_ignore_count (PyObject *self, PyObject *newvalue, void *closure)
-+{
-+ breakpoint_object *self_bp = (breakpoint_object *) self;
-+ long value;
-+
-+ BPPY_SET_REQUIRE_VALID (self_bp);
-+
-+ if (newvalue == NULL)
-+ {
-+ PyErr_SetString (PyExc_TypeError,
-+ "cannot delete `ignore_count' attribute");
-+ return -1;
-+ }
-+ else if (! PyInt_Check (newvalue))
-+ {
-+ PyErr_SetString (PyExc_TypeError,
-+ "the value of `ignore_count' must be an integer");
-+ return -1;
-+ }
-+
-+ value = PyInt_AsLong (newvalue);
-+ if (value < 0)
-+ value = 0;
-+ set_ignore_count (self_bp->number, (int) value, 0);
-+
-+ return 0;
-+}
-+
-+/* Python function to set the hit count of a breakpoint. */
-+static int
-+bppy_set_hit_count (PyObject *self, PyObject *newvalue, void *closure)
-+{
-+ breakpoint_object *self_bp = (breakpoint_object *) self;
-+
-+ BPPY_SET_REQUIRE_VALID (self_bp);
-+
-+ if (newvalue == NULL)
-+ {
-+ PyErr_SetString (PyExc_TypeError, "cannot delete `hit_count' attribute");
-+ return -1;
-+ }
-+ else if (! PyInt_Check (newvalue) || PyInt_AsLong (newvalue) != 0)
-+ {
-+ PyErr_SetString (PyExc_AttributeError,
-+ "the value of `hit_count' must be zero");
-+ return -1;
-+ }
-+
-+ self_bp->bp->hit_count = 0;
-+
-+ return 0;
-+}
-+
-+/* Python function to get the location of a breakpoint. */
-+static PyObject *
-+bppy_get_location (PyObject *self, void *closure)
-+{
-+ char *str;
-+
-+ BPPY_REQUIRE_VALID ((breakpoint_object *) self);
-+ str = ((breakpoint_object *) self)->bp->addr_string;
-+ /* FIXME: watchpoints? tracepoints? */
-+ if (! str)
-+ str = "";
-+ return PyString_Decode (str, strlen (str), host_charset (), NULL);
-+}
-+
-+/* Python function to get the condition expression of a breakpoint. */
-+static PyObject *
-+bppy_get_condition (PyObject *self, void *closure)
-+{
-+ char *str;
-+ BPPY_REQUIRE_VALID ((breakpoint_object *) self);
-+
-+ str = ((breakpoint_object *) self)->bp->cond_string;
-+ if (! str)
-+ Py_RETURN_NONE;
-+ return PyString_Decode (str, strlen (str), host_charset (), NULL);
-+}
-+
-+static int
-+bppy_set_condition (PyObject *self, PyObject *newvalue, void *closure)
-+{
-+ char *exp;
-+ breakpoint_object *self_bp = (breakpoint_object *) self;
-+ volatile struct gdb_exception except;
-+
-+ BPPY_SET_REQUIRE_VALID (self_bp);
-+
-+ if (newvalue == NULL)
-+ {
-+ PyErr_SetString (PyExc_TypeError, "cannot delete `condition' attribute");
-+ return -1;
-+ }
-+ else if (newvalue == Py_None)
-+ exp = "";
-+ else
-+ {
-+ exp = python_string_to_host_string (newvalue);
-+ if (exp == NULL)
-+ return -1;
-+ }
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ set_breakpoint_condition (self_bp->bp, exp, 0);
-+ }
-+ GDB_PY_SET_HANDLE_EXCEPTION (except);
-+
-+ return 0;
-+}
-+
-+/* Python function to get the commands attached to a breakpoint. */
-+static PyObject *
-+bppy_get_commands (PyObject *self, void *closure)
-+{
-+ breakpoint_object *self_bp = (breakpoint_object *) self;
-+ long length;
-+ volatile struct gdb_exception except;
-+ struct ui_file *string_file;
-+ struct cleanup *chain;
-+ PyObject *result;
-+ char *cmdstr;
-+
-+ BPPY_REQUIRE_VALID (self_bp);
-+
-+ if (! self_bp->bp->commands)
-+ Py_RETURN_NONE;
-+
-+ string_file = mem_fileopen ();
-+ chain = make_cleanup_ui_file_delete (string_file);
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ /* FIXME: this can fail. Maybe we need to be making a new
-+ ui_out object here? */
-+ ui_out_redirect (uiout, string_file);
-+ print_command_lines (uiout, self_bp->bp->commands, 0);
-+ ui_out_redirect (uiout, NULL);
-+ }
-+ cmdstr = ui_file_xstrdup (string_file, &length);
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ result = PyString_Decode (cmdstr, strlen (cmdstr), host_charset (), NULL);
-+ do_cleanups (chain);
-+ xfree (cmdstr);
-+ return result;
-+}
-+
-+/* Python function to get the breakpoint's number. */
-+static PyObject *
-+bppy_get_number (PyObject *self, void *closure)
-+{
-+ breakpoint_object *self_bp = (breakpoint_object *) self;
-+
-+ BPPY_REQUIRE_VALID (self_bp);
-+
-+ return PyInt_FromLong (self_bp->number);
-+}
-+
-+/* Python function to get the breakpoint's thread ID. */
-+static PyObject *
-+bppy_get_thread (PyObject *self, void *closure)
-+{
-+ breakpoint_object *self_bp = (breakpoint_object *) self;
-+
-+ BPPY_REQUIRE_VALID (self_bp);
-+
-+ if (self_bp->bp->thread == -1)
-+ Py_RETURN_NONE;
-+
-+ return PyInt_FromLong (self_bp->bp->thread);
-+}
-+
-+/* Python function to get the breakpoint's hit count. */
-+static PyObject *
-+bppy_get_hit_count (PyObject *self, void *closure)
-+{
-+ breakpoint_object *self_bp = (breakpoint_object *) self;
-+
-+ BPPY_REQUIRE_VALID (self_bp);
-+
-+ return PyInt_FromLong (self_bp->bp->hit_count);
-+}
-+
-+/* Python function to get the breakpoint's ignore count. */
-+static PyObject *
-+bppy_get_ignore_count (PyObject *self, void *closure)
-+{
-+ breakpoint_object *self_bp = (breakpoint_object *) self;
-+
-+ BPPY_REQUIRE_VALID (self_bp);
-+
-+ return PyInt_FromLong (self_bp->bp->ignore_count);
-+}
-+
-+/* Python function to create a new breakpoint. */
-+static PyObject *
-+bppy_new (PyTypeObject *subtype, PyObject *args, PyObject *kwargs)
-+{
-+ PyObject *result;
-+ char *spec;
-+ volatile struct gdb_exception except;
-+
-+ /* FIXME: allow condition, thread, temporary, ... ? */
-+ if (! PyArg_ParseTuple (args, "s", &spec))
-+ return NULL;
-+ result = subtype->tp_alloc (subtype, 0);
-+ if (! result)
-+ return NULL;
-+ bppy_pending_object = (breakpoint_object *) result;
-+ bppy_pending_object->number = -1;
-+ bppy_pending_object->bp = NULL;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ set_breakpoint (spec, NULL, 0, 0, -1, 0, AUTO_BOOLEAN_TRUE,
-+ 1 /*enabled*/);
-+ }
-+ if (except.reason < 0)
-+ {
-+ subtype->tp_free (result);
-+ return PyErr_Format (except.reason == RETURN_QUIT
-+ ? PyExc_KeyboardInterrupt : PyExc_RuntimeError,
-+ "%s", except.message);
-+ }
-+
-+ BPPY_REQUIRE_VALID ((breakpoint_object *) result);
-+ return result;
-+}
-+
-+\f
-+
-+/* Static function to return a tuple holding all breakpoints. */
-+
-+PyObject *
-+gdbpy_breakpoints (PyObject *self, PyObject *args)
-+{
-+ PyObject *result;
-+
-+ if (bppy_live == 0)
-+ Py_RETURN_NONE;
-+
-+ result = PyTuple_New (bppy_live);
-+ if (result)
-+ {
-+ int i, out = 0;
-+ for (i = 0; out < bppy_live; ++i)
-+ {
-+ if (! bppy_breakpoints[i])
-+ continue;
-+ Py_INCREF (bppy_breakpoints[i]);
-+ PyTuple_SetItem (result, out, (PyObject *) bppy_breakpoints[i]);
-+ ++out;
-+ }
-+ }
-+ return result;
-+}
-+
-+\f
-+
-+/* Event callback functions. */
-+
-+/* Callback that is used when a breakpoint is created. This function
-+ will create a new Python breakpoint object. */
-+static void
-+gdbpy_breakpoint_created (int num)
-+{
-+ breakpoint_object *newbp;
-+ struct breakpoint *bp;
-+ PyGILState_STATE state;
-+
-+ if (num < 0)
-+ return;
-+
-+ for (bp = breakpoint_chain; bp; bp = bp->next)
-+ if (bp->number == num)
-+ break;
-+ if (! bp)
-+ return;
-+
-+ if (num >= bppy_slots)
-+ {
-+ int old = bppy_slots;
-+ bppy_slots = bppy_slots * 2 + 10;
-+ bppy_breakpoints
-+ = (breakpoint_object **) xrealloc (bppy_breakpoints,
-+ (bppy_slots
-+ * sizeof (breakpoint_object *)));
-+ memset (&bppy_breakpoints[old], 0,
-+ (bppy_slots - old) * sizeof (PyObject *));
-+ }
-+
-+ ++bppy_live;
-+
-+ state = PyGILState_Ensure ();
-+
-+ if (bppy_pending_object)
-+ {
-+ newbp = bppy_pending_object;
-+ bppy_pending_object = NULL;
-+ }
-+ else
-+ newbp = PyObject_New (breakpoint_object, &breakpoint_object_type);
-+ if (newbp)
-+ {
-+ PyObject *hookfn;
-+
-+ newbp->number = num;
-+ newbp->bp = bp;
-+ bppy_breakpoints[num] = newbp;
-+
-+ hookfn = gdbpy_get_hook_function ("new_breakpoint");
-+ if (hookfn)
-+ {
-+ PyObject *result;
-+ result = PyObject_CallFunctionObjArgs (hookfn, newbp, NULL);
-+ if (result)
-+ {
-+ Py_DECREF (result);
-+ }
-+ Py_DECREF (hookfn);
-+ }
-+ }
-+
-+ /* Just ignore errors here. */
-+ PyErr_Clear ();
-+
-+ PyGILState_Release (state);
-+}
-+
-+/* Callback that is used when a breakpoint is deleted. This will
-+ invalidate the corresponding Python object. */
-+static void
-+gdbpy_breakpoint_deleted (int num)
-+{
-+ PyGILState_STATE state;
-+
-+ state = PyGILState_Ensure ();
-+ if (BPPY_VALID_P (num))
-+ {
-+ bppy_breakpoints[num]->bp = NULL;
-+ Py_DECREF (bppy_breakpoints[num]);
-+ bppy_breakpoints[num] = NULL;
-+ --bppy_live;
-+ }
-+ PyGILState_Release (state);
-+}
-+
-+\f
-+
-+/* Initialize the Python breakpoint code. */
-+void
-+gdbpy_initialize_breakpoints (void)
-+{
-+ breakpoint_object_type.tp_new = bppy_new;
-+ if (PyType_Ready (&breakpoint_object_type) < 0)
-+ return;
-+
-+ Py_INCREF (&breakpoint_object_type);
-+ PyModule_AddObject (gdb_module, "Breakpoint",
-+ (PyObject *) &breakpoint_object_type);
-+
-+ observer_attach_breakpoint_created (gdbpy_breakpoint_created);
-+ observer_attach_breakpoint_deleted (gdbpy_breakpoint_deleted);
-+}
-+
-+\f
-+
-+static PyGetSetDef breakpoint_object_getset[] = {
-+ { "enabled", bppy_get_enabled, bppy_set_enabled,
-+ "Boolean telling whether the breakpoint is enabled.", NULL },
-+ { "silent", bppy_get_silent, bppy_set_silent,
-+ "Boolean telling whether the breakpoint is silent.", NULL },
-+ { "thread", bppy_get_thread, bppy_set_thread,
-+ "Thread ID for the breakpoint.\n\
-+If the value is a thread ID (integer), then this is a thread-specific breakpoint.\n\
-+If the value is None, then this breakpoint not thread-specific.\n\
-+No other type of value can be used.", NULL },
-+ { "ignore_count", bppy_get_ignore_count, bppy_set_ignore_count,
-+ "Number of times this breakpoint should be automatically continued.",
-+ NULL },
-+ { "number", bppy_get_number, NULL,
-+ "Breakpoint's number assigned by GDB.", NULL },
-+ { "hit_count", bppy_get_hit_count, bppy_set_hit_count,
-+ "Number of times the breakpoint has been hit.\n\
-+Can be set to zero to clear the count. No other value is valid\n\
-+when setting this property.", NULL },
-+ { "location", bppy_get_location, NULL,
-+ "Location of the breakpoint, as specified by the user.", NULL},
-+ { "condition", bppy_get_condition, bppy_set_condition,
-+ "Condition of the breakpoint, as specified by the user,\
-+or None if no condition set."},
-+ { "commands", bppy_get_commands, NULL,
-+ "Commands of the breakpoint, as specified by the user."},
-+ { NULL } /* Sentinel. */
-+};
-+
-+static PyMethodDef breakpoint_object_methods[] =
-+{
-+ { "is_valid", bppy_is_valid, METH_NOARGS,
-+ "Return true if this breakpoint is valid, false if not." },
-+ { NULL } /* Sentinel. */
-+};
-+
-+static PyTypeObject breakpoint_object_type =
-+{
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /*ob_size*/
-+ "gdb.Breakpoint", /*tp_name*/
-+ sizeof (breakpoint_object), /*tp_basicsize*/
-+ 0, /*tp_itemsize*/
-+ 0, /*tp_dealloc*/
-+ 0, /*tp_print*/
-+ 0, /*tp_getattr*/
-+ 0, /*tp_setattr*/
-+ 0, /*tp_compare*/
-+ 0, /*tp_repr*/
-+ 0, /*tp_as_number*/
-+ 0, /*tp_as_sequence*/
-+ 0, /*tp_as_mapping*/
-+ 0, /*tp_hash */
-+ 0, /*tp_call*/
-+ 0, /*tp_str*/
-+ 0, /*tp_getattro*/
-+ 0, /*tp_setattro*/
-+ 0, /*tp_as_buffer*/
-+ Py_TPFLAGS_DEFAULT, /*tp_flags*/
-+ "GDB breakpoint object", /* tp_doc */
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ 0, /* tp_iter */
-+ 0, /* tp_iternext */
-+ breakpoint_object_methods, /* tp_methods */
-+ 0, /* tp_members */
-+ breakpoint_object_getset /* tp_getset */
-+};
-diff --git a/gdb/python/python-cmd.c b/gdb/python/python-cmd.c
-index 36cde34..e6e3ac0 100644
---- a/gdb/python/python-cmd.c
-+++ b/gdb/python/python-cmd.c
-@@ -47,8 +47,7 @@ static struct cmdpy_completer completers[] =
-
- #define N_COMPLETERS (sizeof (completers) / sizeof (completers[0]))
-
--/* A gdb command. For the time being only ordinary commands (not
-- set/show commands) are allowed. */
-+/* A gdb command. */
- struct cmdpy_object
- {
- PyObject_HEAD
-@@ -68,7 +67,6 @@ typedef struct cmdpy_object cmdpy_object;
-
- static PyTypeObject cmdpy_object_type;
-
--
- /* Constants used by this module. */
- static PyObject *invoke_cst;
- static PyObject *complete_cst;
-@@ -265,10 +263,13 @@ cmdpy_completer (struct cmd_list_element *command, char *text, char *word)
- *BASE_LIST is set to the final prefix command's list of
- *sub-commands.
-
-+ START_LIST is the list in which the search starts.
-+
- This function returns the xmalloc()d name of the new command. On
- error sets the Python error and returns NULL. */
--static char *
--parse_command_name (char *text, struct cmd_list_element ***base_list)
-+char *
-+gdbpy_parse_command_name (char *text, struct cmd_list_element ***base_list,
-+ struct cmd_list_element **start_list)
- {
- struct cmd_list_element *elt;
- int len = strlen (text);
-@@ -301,7 +302,7 @@ parse_command_name (char *text, struct cmd_list_element ***base_list)
- ;
- if (i < 0)
- {
-- *base_list = &cmdlist;
-+ *base_list = start_list;
- return result;
- }
-
-@@ -310,7 +311,7 @@ parse_command_name (char *text, struct cmd_list_element ***base_list)
- prefix_text[i + 1] = '\0';
-
- text = prefix_text;
-- elt = lookup_cmd_1 (&text, cmdlist, NULL, 1);
-+ elt = lookup_cmd_1 (&text, *start_list, NULL, 1);
- if (!elt || elt == (struct cmd_list_element *) -1)
- {
- PyErr_Format (PyExc_RuntimeError, _("could not find command prefix %s"),
-@@ -336,16 +337,16 @@ parse_command_name (char *text, struct cmd_list_element ***base_list)
-
- /* Object initializer; sets up gdb-side structures for command.
-
-- Use: __init__(NAME, CMDCLASS, [COMPLETERCLASS, [PREFIX]]).
-+ Use: __init__(NAME, COMMAND_CLASS, [COMPLETER_CLASS, [PREFIX]]).
-
- NAME is the name of the command. It may consist of multiple words,
- in which case the final word is the name of the new command, and
- earlier words must be prefix commands.
+ /* The "quick" (aka partial) symbol functions for this symbol
+ reader. */
+ const struct quick_symbol_functions *qf;
+Index: gdb-7.2.90.20110703/gdb/symtab.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/symtab.c 2011-07-02 22:03:43.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/symtab.c 2011-07-03 10:33:11.000000000 +0200
+@@ -770,6 +770,7 @@ init_sal (struct symtab_and_line *sal)
+ sal->end = 0;
+ sal->explicit_pc = 0;
+ sal->explicit_line = 0;
++ sal->semaphore = 0;
+ }
+ \f
-- CMDCLASS is the kind of command. It should be one of the COMMAND_*
-+ COMMAND_CLASS is the kind of command. It should be one of the COMMAND_*
- constants defined in the gdb module.
+Index: gdb-7.2.90.20110703/gdb/symtab.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/symtab.h 2011-05-06 17:13:37.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/symtab.h 2011-07-03 10:33:11.000000000 +0200
+@@ -1118,6 +1118,10 @@ struct symtab_and_line
+ CORE_ADDR end;
+ int explicit_pc;
+ int explicit_line;
++
++ /* If non-zero, the semaphore location associated with a SystemTap
++ probe. */
++ CORE_ADDR semaphore;
+ };
-- COMPLETERCLASS is the kind of completer. If not given, the
-+ COMPLETER_CLASS is the kind of completer. If not given, the
- "complete" method will be used. Otherwise, it should be one of the
- COMPLETE_* constants defined in the gdb module.
-
-@@ -356,7 +357,7 @@ parse_command_name (char *text, struct cmd_list_element ***base_list)
-
- */
- static int
--cmdpy_init (PyObject *self, PyObject *args, PyObject *kwds)
-+cmdpy_init (PyObject *self, PyObject *args, PyObject *kw)
- {
- cmdpy_object *obj = (cmdpy_object *) self;
- char *name;
-@@ -366,6 +367,8 @@ cmdpy_init (PyObject *self, PyObject *args, PyObject *kwds)
- volatile struct gdb_exception except;
- struct cmd_list_element **cmd_list;
- char *cmd_name, *pfx_name;
-+ static char *keywords[] = { "name", "command_class", "completer_class",
-+ "prefix", NULL };
- PyObject *is_prefix = NULL;
- int cmp;
-
-@@ -378,7 +381,7 @@ cmdpy_init (PyObject *self, PyObject *args, PyObject *kwds)
- return -1;
- }
-
-- if (! PyArg_ParseTuple (args, "si|iO", &name, &cmdtype,
-+ if (! PyArg_ParseTupleAndKeywords (args, kw, "si|iO", keywords, &name, &cmdtype,
- &completetype, &is_prefix))
- return -1;
-
-@@ -399,7 +402,7 @@ cmdpy_init (PyObject *self, PyObject *args, PyObject *kwds)
- return -1;
- }
-
-- cmd_name = parse_command_name (name, &cmd_list);
-+ cmd_name = gdbpy_parse_command_name (name, &cmd_list, &cmdlist);
- if (! cmd_name)
- return -1;
-
-diff --git a/gdb/python/python-frame.c b/gdb/python/python-frame.c
-new file mode 100644
-index 0000000..c257ac3
---- /dev/null
-+++ b/gdb/python/python-frame.c
-@@ -0,0 +1,686 @@
-+/* Python interface to stack frames
-+
-+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
-+
-+ This file is part of GDB.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+#include "defs.h"
-+#include "charset.h"
-+#include "block.h"
-+#include "frame.h"
-+#include "exceptions.h"
-+#include "symtab.h"
-+#include "stack.h"
-+#include "value.h"
-+#include "python-internal.h"
-+
-+typedef struct {
-+ PyObject_HEAD
-+ struct frame_id frame_id;
-+ struct gdbarch *gdbarch;
-+
-+ /* Marks that the FRAME_ID member actually holds the ID of the frame next
-+ to this, and not this frames' ID itself. This is a hack to permit Python
-+ frame objects which represent invalid frames (i.e., the last frame_info
-+ in a corrupt stack). The problem arises from the fact that this code
-+ relies on FRAME_ID to uniquely identify a frame, which is not always true
-+ for the last "frame" in a corrupt stack (it can have a null ID, or the same
-+ ID as the previous frame). Whenever get_prev_frame returns NULL, we
-+ record the frame_id of the next frame and set FRAME_ID_IS_NEXT to 1. */
-+ int frame_id_is_next;
-+} frame_object;
-+
-+/* Require a valid frame. This must be called inside a TRY_CATCH, or
-+ another context in which a gdb exception is allowed. */
-+#define FRAPY_REQUIRE_VALID(frame_obj, frame) \
-+ do { \
-+ frame = frame_object_to_frame_info (frame_obj); \
-+ if (frame == NULL) \
-+ error ("Frame is invalid."); \
-+ } while (0)
-+
-+static PyTypeObject frame_object_type;
-+
-+/* Returns the frame_info object corresponding to the given Python Frame
-+ object. If the frame doesn't exist anymore (the frame id doesn't
-+ correspond to any frame in the inferior), returns NULL. */
-+
-+static struct frame_info *
-+frame_object_to_frame_info (frame_object *frame_obj)
-+{
-+ struct frame_info *frame;
-+
-+ frame = frame_find_by_id (frame_obj->frame_id);
-+ if (frame == NULL)
-+ return NULL;
-+
-+ if (frame_obj->frame_id_is_next)
-+ frame = get_prev_frame (frame);
-+
-+ return frame;
-+}
-+
-+/* Called by the Python interpreter to obtain string representation
-+ of the object. */
-+
-+static PyObject *
-+frapy_str (PyObject *self)
-+{
-+ char *s;
-+ long len;
-+ PyObject *result;
-+ struct ui_file *strfile;
-+
-+ strfile = mem_fileopen ();
-+ fprint_frame_id (strfile, ((frame_object *) self)->frame_id);
-+ s = ui_file_xstrdup (strfile, &len);
-+ result = PyString_FromString (s);
-+ xfree (s);
-+
-+ return result;
-+}
-+
-+/* Implementation of gdb.Frame.is_valid (self) -> Boolean.
-+ Returns True if the frame corresponding to the frame_id of this
-+ object still exists in the inferior. */
-+
-+static PyObject *
-+frapy_is_valid (PyObject *self, PyObject *args)
-+{
-+ struct frame_info *frame;
-+
-+ frame = frame_object_to_frame_info ((frame_object *) self);
-+ if (frame == NULL)
-+ Py_RETURN_FALSE;
-+
-+ Py_RETURN_TRUE;
-+}
-+
-+/* Implementation of gdb.Frame.equals (self, other) -> Boolean. */
-+
-+static PyObject *
-+frapy_equal_p (PyObject *self, PyObject *args)
-+{
-+ int equalp = 0; /* Initialize to appease gcc warning. */
-+ frame_object *self_frame = (frame_object *) self;
-+ frame_object *other;
-+ volatile struct gdb_exception except;
-+
-+ if (!PyArg_ParseTuple (args, "O!", &frame_object_type, &other))
-+ return NULL;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ equalp = frame_id_eq (self_frame->frame_id, other->frame_id);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ if (equalp)
-+ Py_RETURN_TRUE;
-+
-+ Py_RETURN_FALSE;
-+}
-+
-+/* Implementation of gdb.Frame.name (self) -> String.
-+ Returns the name of the function corresponding to this frame. */
-+
-+static PyObject *
-+frapy_name (PyObject *self, PyObject *args)
-+{
-+ struct frame_info *frame;
-+ char *name;
-+ enum language lang;
-+ PyObject *result;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
-+
-+ find_frame_funname (frame, &name, &lang);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ if (name)
-+ result = target_string_to_unicode (name, strlen (name));
-+ else
-+ {
-+ result = Py_None;
-+ Py_INCREF (Py_None);
-+ }
-+
-+ return result;
-+}
-+
-+/* Implementation of gdb.Frame.type (self) -> Integer.
-+ Returns the frame type, namely one of the gdb.*_FRAME constants. */
-+
-+static PyObject *
-+frapy_type (PyObject *self, PyObject *args)
-+{
-+ struct frame_info *frame;
-+ enum frame_type type = NORMAL_FRAME;/* Initialize to appease gcc warning. */
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
-+
-+ type = get_frame_type (frame);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return PyInt_FromLong (type);
-+}
-+
-+/* Implementation of gdb.Frame.unwind_stop_reason (self) -> Integer.
-+ Returns one of the gdb.FRAME_UNWIND_* constants. */
-+
-+static PyObject *
-+frapy_unwind_stop_reason (PyObject *self, PyObject *args)
-+{
-+ struct frame_info *frame = NULL; /* Initialize to appease gcc warning. */
-+ volatile struct gdb_exception except;
-+ enum unwind_stop_reason stop_reason;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ stop_reason = get_frame_unwind_stop_reason (frame);
-+
-+ return PyInt_FromLong (stop_reason);
-+}
-+
-+/* Implementation of gdb.Frame.pc (self) -> Long.
-+ Returns the frame's resume address. */
-+
-+static PyObject *
-+frapy_pc (PyObject *self, PyObject *args)
-+{
-+ CORE_ADDR pc = 0; /* Initialize to appease gcc warning. */
-+ struct frame_info *frame;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
-+
-+ pc = get_frame_pc (frame);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return PyLong_FromUnsignedLongLong (pc);
-+}
-+
-+/* Implementation of gdb.Frame.block (self) -> gdb.Block.
-+ Returns the frame's code block. */
-+
-+static PyObject *
-+frapy_block (PyObject *self, PyObject *args)
-+{
-+ struct frame_info *frame;
-+ struct block *block = NULL;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
-+
-+ block = block_for_pc (get_frame_address_in_block (frame));
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ if (block)
-+ return block_to_block_object (block);
-+
-+ Py_RETURN_NONE;
-+}
-+
-+
-+/* Implementation of gdb.Frame.addr_in_block (self) -> Long.
-+ Returns an address which falls within the frame's code block. */
-+
-+static PyObject *
-+frapy_addr_in_block (PyObject *self, PyObject *args)
-+{
-+ CORE_ADDR pc = 0; /* Initialize to appease gcc warning. */
-+ struct frame_info *frame;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
-+
-+ pc = get_frame_address_in_block (frame);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return PyLong_FromUnsignedLongLong (pc);
-+}
-+
-+/* Convert a frame_info struct to a Python Frame object.
-+ Sets a Python exception and returns NULL on error. */
-+
-+static frame_object *
-+frame_info_to_frame_object (struct frame_info *frame)
-+{
-+ frame_object *frame_obj;
-+
-+ frame_obj = PyObject_New (frame_object, &frame_object_type);
-+ if (frame_obj == NULL)
-+ {
-+ PyErr_SetString (PyExc_MemoryError, "Could not allocate frame object.");
-+ return NULL;
-+ }
-+
-+ /* Try to get the previous frame, to determine if this is the last frame
-+ in a corrupt stack. If so, we need to store the frame_id of the next
-+ frame and not of this one (which is possibly invalid). */
-+ if (get_prev_frame (frame) == NULL
-+ && get_frame_unwind_stop_reason (frame) != UNWIND_NO_REASON
-+ && get_next_frame (frame) != NULL)
-+ {
-+ frame_obj->frame_id = get_frame_id (get_next_frame (frame));
-+ frame_obj->frame_id_is_next = 1;
-+ }
-+ else
-+ {
-+ frame_obj->frame_id = get_frame_id (frame);
-+ frame_obj->frame_id_is_next = 0;
-+ }
-+
-+ frame_obj->gdbarch = get_frame_arch (frame);
-+
-+ return frame_obj;
-+}
-+
-+/* Implementation of gdb.Frame.older (self) -> gdb.Frame.
-+ Returns the frame immediately older (outer) to this frame, or None if
-+ there isn't one. */
-+
-+static PyObject *
-+frapy_older (PyObject *self, PyObject *args)
-+{
-+ struct frame_info *frame, *prev;
-+ volatile struct gdb_exception except;
-+ PyObject *prev_obj = NULL; /* Initialize to appease gcc warning. */
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
-+
-+ prev = get_prev_frame (frame);
-+ if (prev)
-+ prev_obj = (PyObject *) frame_info_to_frame_object (prev);
-+ else
-+ {
-+ Py_INCREF (Py_None);
-+ prev_obj = Py_None;
-+ }
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return prev_obj;
-+}
-+
-+/* Implementation of gdb.Frame.newer (self) -> gdb.Frame.
-+ Returns the frame immediately newer (inner) to this frame, or None if
-+ there isn't one. */
-+
-+static PyObject *
-+frapy_newer (PyObject *self, PyObject *args)
-+{
-+ struct frame_info *frame, *next;
-+ volatile struct gdb_exception except;
-+ PyObject *next_obj = NULL; /* Initialize to appease gcc warning. */
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
-+
-+ next = get_next_frame (frame);
-+ if (next)
-+ next_obj = (PyObject *) frame_info_to_frame_object (next);
-+ else
-+ {
-+ Py_INCREF (Py_None);
-+ next_obj = Py_None;
-+ }
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return next_obj;
-+}
-+
-+/* Implementation of gdb.Frame.find_sal (self) -> gdb.Symtab_and_line.
-+ Returns the frame's symtab and line. */
-+
-+static PyObject *
-+frapy_find_sal (PyObject *self, PyObject *args)
-+{
-+ struct frame_info *frame;
-+ struct symtab_and_line sal;
-+ volatile struct gdb_exception except;
-+ PyObject *sal_obj = NULL; /* Initialize to appease gcc warning. */
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
-+
-+ find_frame_sal (frame, &sal);
-+ sal_obj = symtab_and_line_to_sal_object (sal);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return sal_obj;
-+}
-+
-+/* Implementation of gdb.Frame.read_var (self, variable) -> gdb.Value.
-+ Returns the value of the given variable in this frame. The argument can be
-+ either a gdb.Symbol or a string. Returns None if GDB can't find the
-+ specified variable. */
-+
-+static PyObject *
-+frapy_read_var (PyObject *self, PyObject *args)
-+{
-+ struct frame_info *frame;
-+ PyObject *sym_obj;
-+ struct symbol *var = NULL; /* gcc-4.3.2 false warning. */
-+ struct value *val = NULL;
-+ volatile struct gdb_exception except;
-+
-+ if (!PyArg_ParseTuple (args, "O", &sym_obj))
-+ return NULL;
-+
-+ if (PyObject_TypeCheck (sym_obj, &symbol_object_type))
-+ var = symbol_object_to_symbol (sym_obj);
-+ else if (gdbpy_is_string (sym_obj))
-+ {
-+ char *var_name;
-+ struct block *block = NULL;
-+ struct cleanup *cleanup;
-+ volatile struct gdb_exception except;
-+
-+ var_name = python_string_to_target_string (sym_obj);
-+ if (!var_name)
-+ return NULL;
-+ cleanup = make_cleanup (xfree, var_name);
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
-+
-+ block = block_for_pc (get_frame_address_in_block (frame));
-+ var = lookup_symbol (var_name, block, VAR_DOMAIN, NULL);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ if (!var)
-+ {
-+ PyErr_Format (PyExc_ValueError,
-+ _("variable '%s' not found"), var_name);
-+ do_cleanups (cleanup);
-+
-+ return NULL;
-+ }
-+
-+ do_cleanups (cleanup);
-+ }
-+ else
-+ {
-+ PyErr_SetString (PyExc_TypeError,
-+ _("argument must be a symbol or string"));
-+ return NULL;
-+ }
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ FRAPY_REQUIRE_VALID ((frame_object *) self, frame);
-+
-+ val = read_var_value (var, frame);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ if (val)
-+ return value_to_value_object (val);
-+
-+ Py_RETURN_NONE;
-+}
-+
-+/* Implementation of gdb.frames () -> (gdb.Frame, ...).
-+ Returns a tuple of all frame objects. */
-+
-+PyObject *
-+gdbpy_frames (PyObject *self, PyObject *args)
-+{
-+ int result = 0;
-+ struct frame_info *frame;
-+ frame_object *frame_obj;
-+ PyObject *list, *tuple;
-+ volatile struct gdb_exception except;
-+
-+ list = PyList_New (0);
-+ if (list == NULL)
-+ {
-+ PyErr_SetString (PyExc_MemoryError, "Could not allocate frames list.");
-+ return NULL;
-+ }
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ for (frame = get_current_frame (); frame; frame = get_prev_frame (frame))
-+ {
-+ frame_obj = frame_info_to_frame_object (frame);
-+ if (frame_obj == NULL)
-+ {
-+ Py_DECREF (list);
-+ list = NULL;
-+ break;
-+ }
-+
-+ PyList_Append (list, (PyObject *) frame_obj);
-+ }
-+ }
-+ if (except.reason < 0)
-+ {
-+ Py_DECREF (list);
-+ return PyErr_Format (except.reason == RETURN_QUIT
-+ ? PyExc_KeyboardInterrupt : PyExc_RuntimeError,
-+ "%s", except.message);
-+ }
-+
-+ if (list)
-+ {
-+ tuple = PyList_AsTuple (list);
-+ Py_DECREF (list);
-+ }
-+ else
-+ tuple = NULL;
-+
-+ return tuple;
-+}
-+
-+/* Implementation of gdb.newest_frame () -> gdb.Frame.
-+ Returns the newest frame object. */
-+
-+PyObject *
-+gdbpy_newest_frame (PyObject *self, PyObject *args)
-+{
-+ struct frame_info *frame;
-+ frame_object *frame_obj = NULL; /* Initialize to appease gcc warning. */
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ frame = get_current_frame ();
-+ frame_obj = frame_info_to_frame_object (frame);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return (PyObject *) frame_obj;
-+}
-+
-+/* Implementation of gdb.selected_frame () -> gdb.Frame.
-+ Returns the selected frame object. */
-+
-+PyObject *
-+gdbpy_selected_frame (PyObject *self, PyObject *args)
-+{
-+ struct frame_info *frame;
-+ frame_object *frame_obj = NULL; /* Initialize to appease gcc warning. */
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ frame = get_selected_frame ("No frame is currently selected.");
-+ frame_obj = frame_info_to_frame_object (frame);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return (PyObject *) frame_obj;
-+}
-+
-+/* Implementation of gdb.stop_reason_string (Integer) -> String.
-+ Return a string explaining the unwind stop reason. */
-+
-+PyObject *
-+gdbpy_frame_stop_reason_string (PyObject *self, PyObject *args)
-+{
-+ int reason;
-+ const char *str;
-+
-+ if (!PyArg_ParseTuple (args, "i", &reason))
-+ return NULL;
-+
-+ if (reason < 0 || reason > UNWIND_NO_SAVED_PC)
-+ {
-+ PyErr_SetString (PyExc_ValueError, "Invalid frame stop reason.");
-+ return NULL;
-+ }
-+
-+ str = frame_stop_reason_string (reason);
-+ return PyUnicode_Decode (str, strlen (str), host_charset (), NULL);
-+}
-+
-+/* Sets up the Frame API in the gdb module. */
-+
-+void
-+gdbpy_initialize_frames (void)
-+{
-+ frame_object_type.tp_new = PyType_GenericNew;
-+ if (PyType_Ready (&frame_object_type) < 0)
-+ return;
-+
-+ /* Note: These would probably be best exposed as class attributes of Frame,
-+ but I don't know how to do it except by messing with the type's dictionary.
-+ That seems too messy. */
-+ PyModule_AddIntConstant (gdb_module, "NORMAL_FRAME", NORMAL_FRAME);
-+ PyModule_AddIntConstant (gdb_module, "DUMMY_FRAME", DUMMY_FRAME);
-+ PyModule_AddIntConstant (gdb_module, "SIGTRAMP_FRAME", SIGTRAMP_FRAME);
-+ PyModule_AddIntConstant (gdb_module, "SENTINEL_FRAME", SENTINEL_FRAME);
-+ PyModule_AddIntConstant (gdb_module,
-+ "FRAME_UNWIND_NO_REASON", UNWIND_NO_REASON);
-+ PyModule_AddIntConstant (gdb_module,
-+ "FRAME_UNWIND_NULL_ID", UNWIND_NULL_ID);
-+ PyModule_AddIntConstant (gdb_module,
-+ "FRAME_UNWIND_FIRST_ERROR", UNWIND_FIRST_ERROR);
-+ PyModule_AddIntConstant (gdb_module,
-+ "FRAME_UNWIND_INNER_ID", UNWIND_INNER_ID);
-+ PyModule_AddIntConstant (gdb_module,
-+ "FRAME_UNWIND_SAME_ID", UNWIND_SAME_ID);
-+ PyModule_AddIntConstant (gdb_module,
-+ "FRAME_UNWIND_NO_SAVED_PC", UNWIND_NO_SAVED_PC);
-+
-+ Py_INCREF (&frame_object_type);
-+ PyModule_AddObject (gdb_module, "Frame", (PyObject *) &frame_object_type);
-+}
-+
-+\f
-+
-+static PyMethodDef frame_object_methods[] = {
-+ { "equals", frapy_equal_p, METH_VARARGS,
-+ "equals (frame) -> Boolean.\n\
-+Compare this frame to the given frame." },
-+ { "is_valid", frapy_is_valid, METH_NOARGS,
-+ "is_valid () -> Boolean.\n\
-+Return true if this frame is valid, false if not." },
-+ { "name", frapy_name, METH_NOARGS,
-+ "name () -> String.\n\
-+Return the function name of the frame, or None if it can't be determined." },
-+ { "type", frapy_type, METH_NOARGS,
-+ "type () -> Integer.\n\
-+Return the type of the frame." },
-+ { "unwind_stop_reason", frapy_unwind_stop_reason, METH_NOARGS,
-+ "unwind_stop_reason () -> Integer.\n\
-+Return the reason why it's not possible to find frames older than this." },
-+ { "pc", frapy_pc, METH_NOARGS,
-+ "pc () -> Long.\n\
-+Return the frame's resume address." },
-+ { "block", frapy_block, METH_NOARGS,
-+ "block () -> gdb.Block.\n\
-+Return the frame's code block." },
-+ { "addr_in_block", frapy_addr_in_block, METH_NOARGS,
-+ "addr_in_block () -> Long.\n\
-+Return an address which falls within the frame's code block." },
-+ { "older", frapy_older, METH_NOARGS,
-+ "older () -> gdb.Frame.\n\
-+Return the frame immediately older (outer) to this frame." },
-+ { "newer", frapy_newer, METH_NOARGS,
-+ "newer () -> gdb.Frame.\n\
-+Return the frame immetidaely newer (inner) to this frame." },
-+ { "find_sal", frapy_find_sal, METH_NOARGS,
-+ "find_sal () -> gdb.Symtab_and_line.\n\
-+Return the frame's symtab and line." },
-+ { "read_var", frapy_read_var, METH_VARARGS,
-+ "read_var (variable) -> gdb.Value.\n\
-+Return the value of the variable in this frame." },
-+ {NULL} /* Sentinel */
-+};
-+
-+static PyTypeObject frame_object_type = {
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /* ob_size */
-+ "gdb.Frame", /* tp_name */
-+ sizeof (frame_object), /* tp_basicsize */
-+ 0, /* tp_itemsize */
-+ 0, /* tp_dealloc */
-+ 0, /* tp_print */
-+ 0, /* tp_getattr */
-+ 0, /* tp_setattr */
-+ 0, /* tp_compare */
-+ 0, /* tp_repr */
-+ 0, /* tp_as_number */
-+ 0, /* tp_as_sequence */
-+ 0, /* tp_as_mapping */
-+ 0, /* tp_hash */
-+ 0, /* tp_call */
-+ frapy_str, /* tp_str */
-+ 0, /* tp_getattro */
-+ 0, /* tp_setattro */
-+ 0, /* tp_as_buffer */
-+ Py_TPFLAGS_DEFAULT, /* tp_flags */
-+ "GDB frame object", /* tp_doc */
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ 0, /* tp_iter */
-+ 0, /* tp_iternext */
-+ frame_object_methods /* tp_methods */
-+};
-diff --git a/gdb/python/python-function.c b/gdb/python/python-function.c
-new file mode 100644
-index 0000000..4a85a33
---- /dev/null
-+++ b/gdb/python/python-function.c
-@@ -0,0 +1,180 @@
-+/* Convenience functions implemented in Python.
-+
-+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
-+
-+ This file is part of GDB.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+
-+#include "defs.h"
-+#include "value.h"
-+#include "exceptions.h"
-+#include "python-internal.h"
-+#include "charset.h"
-+#include "gdbcmd.h"
-+#include "cli/cli-decode.h"
-+#include "completer.h"
-+#include "expression.h"
-+
-+static PyTypeObject fnpy_object_type;
-+
-+\f
-+
-+static PyObject *
-+convert_values_to_python (int argc, struct value **argv)
-+{
-+ int i;
-+ PyObject *result = PyTuple_New (argc);
-+ for (i = 0; i < argc; ++i)
-+ {
-+ PyObject *elt = value_to_value_object (argv[i]);
-+ if (! elt)
-+ {
-+ Py_DECREF (result);
-+ error (_("Could not convert value to Python object."));
-+ }
-+ PyTuple_SetItem (result, i, elt);
-+ }
-+ return result;
-+}
-+
-+/* Call a Python function object's invoke method. */
-+
-+static struct value *
-+fnpy_call (void *cookie, int argc, struct value **argv)
-+{
-+ int i;
-+ struct value *value = NULL;
-+ PyObject *result, *callable, *args;
-+ struct cleanup *cleanup;
-+ PyGILState_STATE state;
-+
-+ state = PyGILState_Ensure ();
-+ cleanup = make_cleanup_py_restore_gil (&state);
-+
-+ args = convert_values_to_python (argc, argv);
-+
-+ callable = PyObject_GetAttrString ((PyObject *) cookie, "invoke");
-+ if (! callable)
-+ {
-+ Py_DECREF (args);
-+ error (_("No method named 'invoke' in object."));
-+ }
-+
-+ result = PyObject_Call (callable, args, NULL);
-+ Py_DECREF (callable);
-+ Py_DECREF (args);
-+
-+ if (!result)
-+ {
-+ gdbpy_print_stack ();
-+ error (_("Error while executing Python code."));
-+ }
-+
-+ value = convert_value_from_python (result);
-+ if (value == NULL)
-+ {
-+ Py_DECREF (result);
-+ gdbpy_print_stack ();
-+ error (_("Error while executing Python code."));
-+ }
-+
-+ Py_DECREF (result);
-+ do_cleanups (cleanup);
-+
-+ return value;
-+}
-+
-+/* Initializer for a Function object. It takes one argument, the name
-+ of the function. */
-+
-+static int
-+fnpy_init (PyObject *self, PyObject *args, PyObject *kwds)
-+{
-+ char *name, *docstring = NULL;
-+ if (! PyArg_ParseTuple (args, "s", &name))
-+ return -1;
-+ Py_INCREF (self);
-+
-+ if (PyObject_HasAttrString (self, "__doc__"))
-+ {
-+ PyObject *ds_obj = PyObject_GetAttrString (self, "__doc__");
-+ if (ds_obj && gdbpy_is_string (ds_obj))
-+ /* Nothing ever frees this. */
-+ docstring = python_string_to_host_string (ds_obj);
-+ }
-+ if (! docstring)
-+ docstring = _("This function is not documented.");
-+
-+ add_internal_function (name, docstring, fnpy_call, self);
-+ return 0;
-+}
-+
-+/* Initialize internal function support. */
-+
-+void
-+gdbpy_initialize_functions (void)
-+{
-+ if (PyType_Ready (&fnpy_object_type) < 0)
-+ return;
-+
-+ Py_INCREF (&fnpy_object_type);
-+ PyModule_AddObject (gdb_module, "Function", (PyObject *) &fnpy_object_type);
-+}
-+
-+\f
-+
-+static PyTypeObject fnpy_object_type =
-+{
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /*ob_size*/
-+ "gdb.Function", /*tp_name*/
-+ sizeof (PyObject), /*tp_basicsize*/
-+ 0, /*tp_itemsize*/
-+ 0, /*tp_dealloc*/
-+ 0, /*tp_print*/
-+ 0, /*tp_getattr*/
-+ 0, /*tp_setattr*/
-+ 0, /*tp_compare*/
-+ 0, /*tp_repr*/
-+ 0, /*tp_as_number*/
-+ 0, /*tp_as_sequence*/
-+ 0, /*tp_as_mapping*/
-+ 0, /*tp_hash */
-+ 0, /*tp_call*/
-+ 0, /*tp_str*/
-+ 0, /*tp_getattro*/
-+ 0, /*tp_setattro*/
-+ 0, /*tp_as_buffer*/
-+ Py_TPFLAGS_DEFAULT | Py_TPFLAGS_BASETYPE, /*tp_flags*/
-+ "GDB function object", /* tp_doc */
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ 0, /* tp_iter */
-+ 0, /* tp_iternext */
-+ 0, /* tp_methods */
-+ 0, /* tp_members */
-+ 0, /* tp_getset */
-+ 0, /* tp_base */
-+ 0, /* tp_dict */
-+ 0, /* tp_descr_get */
-+ 0, /* tp_descr_set */
-+ 0, /* tp_dictoffset */
-+ fnpy_init, /* tp_init */
-+ 0, /* tp_alloc */
-+ PyType_GenericNew /* tp_new */
-+};
-diff --git a/gdb/python/python-hooks.c b/gdb/python/python-hooks.c
-new file mode 100644
-index 0000000..a3140bc
---- /dev/null
-+++ b/gdb/python/python-hooks.c
-@@ -0,0 +1,50 @@
-+/* Notifications from gdb to Python
-+
-+ Copyright (C) 2008 Free Software Foundation, Inc.
-+
-+ This file is part of GDB.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+#include "defs.h"
-+#include "cli/cli-decode.h"
-+#include "charset.h"
-+#include "python.h"
-+#include "python-internal.h"
-+#include "observer.h"
-+
-+PyObject *
-+gdbpy_get_hook_function (const char *name)
-+{
-+ PyObject *hooks;
-+ PyObject *result;
-+
-+ if (! PyObject_HasAttrString (gdb_module, "hooks"))
-+ return NULL;
-+ hooks = PyObject_GetAttrString (gdb_module, "hooks");
-+ if (! hooks)
-+ return NULL;
-+ /* The cast is because the Python function doesn't declare const argument.
-+ This is a problem in Python version 2.4, but not in 2.5. */
-+ if (! PyObject_HasAttrString (hooks, (char *) name))
-+ {
-+ Py_DECREF (hooks);
-+ return NULL;
-+ }
-+ /* The cast is because the Python function doesn't declare const argument.
-+ This is a problem in Python version 2.4, but not in 2.5. */
-+ result = PyObject_GetAttrString (hooks, (char *) name);
-+ Py_DECREF (hooks);
-+ return result;
-+}
-diff --git a/gdb/python/python-internal.h b/gdb/python/python-internal.h
-index 02dbfc4..4aae0aa 100644
---- a/gdb/python/python-internal.h
-+++ b/gdb/python/python-internal.h
-@@ -33,6 +33,7 @@
-
- #if HAVE_LIBPYTHON2_4
- #include "python2.4/Python.h"
-+#include "python2.4/frameobject.h"
- /* Py_ssize_t is not defined until 2.5.
- Logical type for Py_ssize_t is Py_intptr_t, but that fails in 64-bit
- compilation due to several apparent mistakes in python2.4 API, so we
-@@ -40,8 +41,10 @@
- typedef int Py_ssize_t;
- #elif HAVE_LIBPYTHON2_5
- #include "python2.5/Python.h"
-+#include "python2.5/frameobject.h"
- #elif HAVE_LIBPYTHON2_6
- #include "python2.6/Python.h"
-+#include "python2.6/frameobject.h"
- #else
- #error "Unable to find usable Python.h"
- #endif
-@@ -58,23 +61,69 @@ typedef int Py_ssize_t;
- #define PyEval_ReleaseLock() 0
- #endif
-
-+#include "command.h"
-+
-+struct block;
-+struct symbol;
-+struct symtab_and_line;
- struct value;
-
- extern PyObject *gdb_module;
-+extern PyTypeObject block_object_type;
- extern PyTypeObject value_object_type;
-+extern PyTypeObject symbol_object_type;
-
- PyObject *gdbpy_history (PyObject *self, PyObject *args);
--
-+PyObject *gdbpy_breakpoints (PyObject *, PyObject *);
-+PyObject *gdbpy_frames (PyObject *, PyObject *);
-+PyObject *gdbpy_newest_frame (PyObject *, PyObject *);
-+PyObject *gdbpy_frame_stop_reason_string (PyObject *, PyObject *);
-+PyObject *gdbpy_lookup_symbol (PyObject *self, PyObject *args, PyObject *kw);
-+PyObject *gdbpy_selected_frame (PyObject *self, PyObject *args);
-+PyObject *gdbpy_block_for_pc (PyObject *self, PyObject *args);
-+PyObject *gdbpy_read_memory (PyObject *self, PyObject *args);
-+PyObject *gdbpy_write_memory (PyObject *self, PyObject *args);
-+
-+PyObject *symtab_and_line_to_sal_object (struct symtab_and_line sal);
-+PyObject *symtab_to_symtab_object (struct symtab *symtab);
-+PyObject *symbol_to_symbol_object (struct symbol *sym);
-+PyObject *block_to_block_object (struct block *block);
- PyObject *value_to_value_object (struct value *v);
-+PyObject *type_to_type_object (struct type *);
-+PyObject *objfile_to_objfile_object (struct objfile *);
-
-+PyObject *objfpy_get_printers (PyObject *, void *);
-+
-+struct block *block_object_to_block (PyObject *obj);
-+struct symbol *symbol_object_to_symbol (PyObject *obj);
-+struct value *value_object_to_value (PyObject *self);
- struct value *convert_value_from_python (PyObject *obj);
-+struct type *type_object_to_type (PyObject *obj);
-+
-+PyObject *gdbpy_get_hook_function (const char *);
-
- void gdbpy_initialize_values (void);
-+void gdbpy_initialize_breakpoints (void);
-+void gdbpy_initialize_frames (void);
-+void gdbpy_initialize_symtabs (void);
- void gdbpy_initialize_commands (void);
-+void gdbpy_initialize_symbols (void);
-+void gdbpy_initialize_types (void);
-+void gdbpy_initialize_blocks (void);
-+void gdbpy_initialize_functions (void);
-+void gdbpy_initialize_objfile (void);
-+void gdbpy_initialize_parameters (void);
-+void gdbpy_initialize_membuf (void);
-
- struct cleanup *make_cleanup_py_decref (PyObject *py);
- struct cleanup *make_cleanup_py_restore_gil (PyGILState_STATE *state);
-
-+char *gdbpy_parse_command_name (char *text,
-+ struct cmd_list_element ***base_list,
-+ struct cmd_list_element **start_list);
-+
-+PyObject *gdbpy_parameter_value (enum var_types, void *);
-+
- /* Use this after a TRY_EXCEPT to throw the appropriate Python
- exception. */
- #define GDB_PY_HANDLE_EXCEPTION(Exception) \
-@@ -85,6 +134,19 @@ struct cleanup *make_cleanup_py_restore_gil (PyGILState_STATE *state);
- "%s", Exception.message); \
- } while (0)
-
-+/* Use this after a TRY_EXCEPT to throw the appropriate Python
-+ exception. This macro is for use inside setter functions. */
-+#define GDB_PY_SET_HANDLE_EXCEPTION(Exception) \
-+ do { \
-+ if (Exception.reason < 0) \
-+ { \
-+ PyErr_Format (Exception.reason == RETURN_QUIT \
-+ ? PyExc_KeyboardInterrupt : PyExc_RuntimeError, \
-+ "%s", Exception.message); \
-+ return -1; \
-+ } \
-+ } while (0)
-+
-
- void gdbpy_print_stack (void);
-
-@@ -95,6 +157,21 @@ char *python_string_to_host_string (PyObject *obj);
- PyObject *target_string_to_unicode (const gdb_byte *str, int length);
- int gdbpy_is_string (PyObject *obj);
-
-+int gdbpy_is_value_object (PyObject *obj);
-+
-+/* Note that these are declared here, and not in python.h with the
-+ other pretty-printer functions, because they refer to PyObject. */
-+char *apply_varobj_pretty_printer (PyObject *print_obj,
-+ struct value **replacement);
-+PyObject *gdbpy_get_varobj_pretty_printer (struct value *value);
-+PyObject *gdbpy_instantiate_printer (PyObject *cons, PyObject *value);
-+char *gdbpy_get_display_hint (PyObject *printer);
-+
-+extern PyObject *gdbpy_children_cst;
-+extern PyObject *gdbpy_to_string_cst;
-+extern PyObject *gdbpy_display_hint_cst;
- extern PyObject *gdbpy_doc_cst;
-
-+int get_addr_from_python (PyObject *obj, CORE_ADDR *addr);
-+
- #endif /* GDB_PYTHON_INTERNAL_H */
-diff --git a/gdb/python/python-membuf.c b/gdb/python/python-membuf.c
-new file mode 100644
-index 0000000..a4c7d74
---- /dev/null
-+++ b/gdb/python/python-membuf.c
-@@ -0,0 +1,243 @@
-+/* Python interface to the inferior memory.
-+
-+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
-+
-+ This file is part of GDB.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+#include "defs.h"
-+#include "exceptions.h"
-+#include "gdbcore.h"
-+#include "python-internal.h"
-+
-+typedef struct {
-+ PyObject_HEAD
-+ void *buffer;
-+
-+ /* These are kept just for mbpy_str. */
-+ CORE_ADDR addr;
-+ CORE_ADDR length;
-+} membuf_object;
-+
-+static PyTypeObject membuf_object_type;
-+
-+/* Implementation of gdb.read_memory (address, length).
-+ Returns a Python buffer object with LENGTH bytes of the inferior's memory
-+ at ADDRESS. Both arguments are integers. */
-+
-+PyObject *
-+gdbpy_read_memory (PyObject *self, PyObject *args)
-+{
-+ CORE_ADDR addr, length;
-+ void *buffer;
-+ membuf_object *membuf_obj;
-+ struct cleanup *cleanups;
-+ volatile struct gdb_exception except;
-+
-+ /* Assume CORE_ADDR corresponds to unsigned long. */
-+ if (! PyArg_ParseTuple (args, "kk", &addr, &length))
-+ return NULL;
-+
-+ buffer = xmalloc (length);
-+ cleanups = make_cleanup (xfree, buffer);
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ read_memory (addr, buffer, length);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ discard_cleanups (cleanups);
-+
-+ membuf_obj = PyObject_New (membuf_object, &membuf_object_type);
-+ if (membuf_obj == NULL)
-+ {
-+ xfree (buffer);
-+ PyErr_SetString (PyExc_MemoryError,
-+ "Could not allocate memory buffer object.");
-+ return NULL;
-+ }
-+
-+ membuf_obj->buffer = buffer;
-+
-+ membuf_obj->addr = addr;
-+ membuf_obj->length = length;
-+
-+ return PyBuffer_FromReadWriteObject ((PyObject *) membuf_obj, 0, Py_END_OF_BUFFER);
-+}
-+
-+/* Implementation of gdb.write_memory (address, buffer [, length]).
-+ Writes the contents of BUFFER (a Python object supporting the read buffer
-+ protocol) at ADDRESS in the inferior's memory. Write LENGTH bytes from
-+ BUFFER, or its entire contents if the argument is not provided. The
-+ function returns nothing. */
-+
-+PyObject *
-+gdbpy_write_memory (PyObject *self, PyObject *args)
-+{
-+ int buf_len;
-+ const char *buffer;
-+ long length = -1;
-+ CORE_ADDR addr;
-+ volatile struct gdb_exception except;
-+
-+ /* Assume CORE_ADDR corresponds to unsigned long. */
-+ if (! PyArg_ParseTuple (args, "ks#|l", &addr, &buffer, &buf_len, &length))
-+ return NULL;
-+
-+ if (length == -1)
-+ length = buf_len;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ write_memory (addr, buffer, length);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ Py_RETURN_NONE;
-+}
-+
-+/* Destructor of Membuf objects. */
-+
-+static void
-+mbpy_dealloc (PyObject *self)
-+{
-+ xfree (((membuf_object *) self)->buffer);
-+ self->ob_type->tp_free (self);
-+}
-+
-+/* Return a description of the Membuf object. */
-+
-+static PyObject *
-+mbpy_str (PyObject *self)
-+{
-+ membuf_object *membuf_obj = (membuf_object *) self;
-+
-+ return PyString_FromFormat ("memory buffer for address %s, %s bytes long",
-+ paddress (membuf_obj->addr),
-+ pulongest (membuf_obj->length));
-+}
-+
-+static Py_ssize_t
-+get_read_buffer (PyObject *self, Py_ssize_t segment, void **ptrptr)
-+{
-+ membuf_object *membuf_obj = (membuf_object *) self;
-+
-+ if (segment)
-+ {
-+ PyErr_SetString (PyExc_SystemError,
-+ "The memory buffer supports only one segment.");
-+ return -1;
-+ }
-+
-+ *ptrptr = membuf_obj->buffer;
-+
-+ return membuf_obj->length;
-+}
-+
-+static Py_ssize_t
-+get_write_buffer (PyObject *self, Py_ssize_t segment, void **ptrptr)
-+{
-+ return get_read_buffer (self, segment, ptrptr);
-+}
-+
-+static Py_ssize_t
-+get_seg_count (PyObject *self, Py_ssize_t *lenp)
-+{
-+ if (lenp)
-+ *lenp = ((membuf_object *) self)->length;
-+
-+ return 1;
-+}
-+
-+static Py_ssize_t
-+get_char_buffer (PyObject *self, Py_ssize_t segment, char **ptrptr)
-+{
-+ void *ptr = NULL;
-+ Py_ssize_t ret;
-+
-+ ret = get_read_buffer (self, segment, &ptr);
-+ *ptrptr = (char *) ptr;
-+
-+ return ret;
-+}
-+
-+/* Python doesn't provide a decent way to get compatibility here. */
-+#if HAVE_LIBPYTHON2_4
-+#define CHARBUFFERPROC_NAME getcharbufferproc
-+#else
-+#define CHARBUFFERPROC_NAME charbufferproc
-+#endif
-+
-+static PyBufferProcs buffer_procs = {
-+ get_read_buffer,
-+ get_write_buffer,
-+ get_seg_count,
-+ /* The cast here works around a difference between Python 2.4 and
-+ Python 2.5. */
-+ (CHARBUFFERPROC_NAME) get_char_buffer
-+};
-+
-+static PyTypeObject membuf_object_type = {
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /*ob_size*/
-+ "gdb.Membuf", /*tp_name*/
-+ sizeof (membuf_object), /*tp_basicsize*/
-+ 0, /*tp_itemsize*/
-+ mbpy_dealloc, /*tp_dealloc*/
-+ 0, /*tp_print*/
-+ 0, /*tp_getattr*/
-+ 0, /*tp_setattr*/
-+ 0, /*tp_compare*/
-+ 0, /*tp_repr*/
-+ 0, /*tp_as_number*/
-+ 0, /*tp_as_sequence*/
-+ 0, /*tp_as_mapping*/
-+ 0, /*tp_hash */
-+ 0, /*tp_call*/
-+ mbpy_str, /*tp_str*/
-+ 0, /*tp_getattro*/
-+ 0, /*tp_setattro*/
-+ &buffer_procs, /*tp_as_buffer*/
-+ Py_TPFLAGS_DEFAULT, /*tp_flags*/
-+ "GDB memory buffer object", /*tp_doc*/
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ 0, /* tp_iter */
-+ 0, /* tp_iternext */
-+ 0, /* tp_methods */
-+ 0, /* tp_members */
-+ 0, /* tp_getset */
-+ 0, /* tp_base */
-+ 0, /* tp_dict */
-+ 0, /* tp_descr_get */
-+ 0, /* tp_descr_set */
-+ 0, /* tp_dictoffset */
-+ 0, /* tp_init */
-+ 0, /* tp_alloc */
-+ PyType_GenericNew /* tp_new */
-+};
-+
-+void
-+gdbpy_initialize_membuf (void)
-+{
-+ if (PyType_Ready (&membuf_object_type) < 0)
-+ return;
-+
-+ Py_INCREF (&membuf_object_type);
-+ PyModule_AddObject (gdb_module, "Membuf", (PyObject *) &membuf_object_type);
-+}
-diff --git a/gdb/python/python-objfile.c b/gdb/python/python-objfile.c
-new file mode 100644
-index 0000000..e97d3a2
---- /dev/null
-+++ b/gdb/python/python-objfile.c
-@@ -0,0 +1,221 @@
-+/* Python interface to objfiles.
-+
-+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
-+
-+ This file is part of GDB.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+#include "defs.h"
-+#include "python-internal.h"
-+#include "charset.h"
-+#include "objfiles.h"
-+
-+typedef struct
-+{
-+ PyObject_HEAD
-+
-+ /* The corresponding objfile. */
-+ struct objfile *objfile;
-+
-+ /* The pretty-printer list of functions. */
-+ PyObject *printers;
-+} objfile_object;
-+
-+static PyTypeObject objfile_object_type;
-+
-+static const struct objfile_data *objfpy_objfile_data_key;
-+
-+\f
-+
-+/* An Objfile method which returns the objfile's file name, or None. */
-+static PyObject *
-+objfpy_get_filename (PyObject *self, void *closure)
-+{
-+ objfile_object *obj = (objfile_object *) self;
-+ if (obj->objfile && obj->objfile->name)
-+ return PyString_Decode (obj->objfile->name, strlen (obj->objfile->name),
-+ host_charset (), NULL);
-+ Py_RETURN_NONE;
-+}
-+
-+static void
-+objfpy_dealloc (PyObject *o)
-+{
-+ objfile_object *self = (objfile_object *) o;
-+ Py_XDECREF (self->printers);
-+ self->ob_type->tp_free ((PyObject *) self);
-+}
-+
-+static PyObject *
-+objfpy_new (PyTypeObject *type, PyObject *args, PyObject *keywords)
-+{
-+ objfile_object *self = (objfile_object *) type->tp_alloc (type, 0);
-+ if (self)
-+ {
-+ self->objfile = NULL;
-+
-+ self->printers = PyList_New (0);
-+ if (!self->printers)
-+ {
-+ Py_DECREF (self);
-+ return NULL;
-+ }
-+ }
-+ return (PyObject *) self;
-+}
-+
-+PyObject *
-+objfpy_get_printers (PyObject *o, void *ignore)
-+{
-+ objfile_object *self = (objfile_object *) o;
-+ Py_INCREF (self->printers);
-+ return self->printers;
-+}
-+
-+static int
-+objfpy_set_printers (PyObject *o, PyObject *value, void *ignore)
-+{
-+ objfile_object *self = (objfile_object *) o;
-+ if (! value)
-+ {
-+ PyErr_SetString (PyExc_TypeError,
-+ "cannot delete the pretty_printers attribute");
-+ return -1;
-+ }
-+
-+ if (! PyList_Check (value))
-+ {
-+ PyErr_SetString (PyExc_TypeError,
-+ "the pretty_printers attribute must be a list");
-+ return -1;
-+ }
-+
-+ Py_XDECREF (self->printers);
-+ Py_INCREF (value);
-+ self->printers = value;
-+
-+ return 0;
-+}
-+
-+\f
-+
-+/* Clear the OBJFILE pointer in an Objfile object and remove the
-+ reference. */
-+static void
-+clean_up_objfile (struct objfile *objfile, void *datum)
-+{
-+ objfile_object *object = datum;
-+ object->objfile = NULL;
-+ Py_DECREF ((PyObject *) object);
-+}
-+
-+/* Return the Python object of type Objfile representing OBJFILE. If
-+ the object has already been created, return it. Otherwise, create
-+ it. Return NULL and set the Python error on failure. */
-+PyObject *
-+objfile_to_objfile_object (struct objfile *objfile)
-+{
-+ objfile_object *object;
-+
-+ object = objfile_data (objfile, objfpy_objfile_data_key);
-+ if (!object)
-+ {
-+ object = PyObject_New (objfile_object, &objfile_object_type);
-+ if (object)
-+ {
-+ PyObject *dict;
-+
-+ object->objfile = objfile;
-+
-+ object->printers = PyList_New (0);
-+ if (!object->printers)
-+ {
-+ Py_DECREF (object);
-+ return NULL;
-+ }
-+
-+ set_objfile_data (objfile, objfpy_objfile_data_key, object);
-+ }
-+ }
-+
-+ return (PyObject *) object;
-+}
-+
-+void
-+gdbpy_initialize_objfile (void)
-+{
-+ objfpy_objfile_data_key
-+ = register_objfile_data_with_cleanup (clean_up_objfile);
-+
-+ if (PyType_Ready (&objfile_object_type) < 0)
-+ return;
-+
-+ Py_INCREF (&objfile_object_type);
-+ PyModule_AddObject (gdb_module, "Objfile", (PyObject *) &objfile_object_type);
-+}
-+
-+\f
-+
-+static PyGetSetDef objfile_getset[] =
-+{
-+ { "filename", objfpy_get_filename, NULL,
-+ "The objfile's filename, or None.", NULL },
-+ { "pretty_printers", objfpy_get_printers, objfpy_set_printers,
-+ "Pretty printers.", NULL },
-+ { NULL }
-+};
-+
-+static PyTypeObject objfile_object_type =
-+{
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /*ob_size*/
-+ "gdb.Objfile", /*tp_name*/
-+ sizeof (objfile_object), /*tp_basicsize*/
-+ 0, /*tp_itemsize*/
-+ objfpy_dealloc, /*tp_dealloc*/
-+ 0, /*tp_print*/
-+ 0, /*tp_getattr*/
-+ 0, /*tp_setattr*/
-+ 0, /*tp_compare*/
-+ 0, /*tp_repr*/
-+ 0, /*tp_as_number*/
-+ 0, /*tp_as_sequence*/
-+ 0, /*tp_as_mapping*/
-+ 0, /*tp_hash */
-+ 0, /*tp_call*/
-+ 0, /*tp_str*/
-+ 0, /*tp_getattro*/
-+ 0, /*tp_setattro*/
-+ 0, /*tp_as_buffer*/
-+ Py_TPFLAGS_DEFAULT, /*tp_flags*/
-+ "GDB objfile object", /* tp_doc */
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ 0, /* tp_iter */
-+ 0, /* tp_iternext */
-+ 0, /* tp_methods */
-+ 0, /* tp_members */
-+ objfile_getset, /* tp_getset */
-+ 0, /* tp_base */
-+ 0, /* tp_dict */
-+ 0, /* tp_descr_get */
-+ 0, /* tp_descr_set */
-+ 0, /* tp_dictoffset */
-+ 0, /* tp_init */
-+ 0, /* tp_alloc */
-+ objfpy_new, /* tp_new */
-+};
-diff --git a/gdb/python/python-param.c b/gdb/python/python-param.c
-new file mode 100644
-index 0000000..1f591a8
---- /dev/null
-+++ b/gdb/python/python-param.c
-@@ -0,0 +1,606 @@
-+/* gdb parameters implemented in Python
-+
-+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
-+
-+ This file is part of GDB.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+
-+#include "defs.h"
-+#include "value.h"
-+#include "exceptions.h"
-+#include "python-internal.h"
-+#include "charset.h"
-+#include "gdbcmd.h"
-+#include "cli/cli-decode.h"
-+#include "completer.h"
-+
-+/* Parameter constants and their values. */
-+struct parm_constant
-+{
-+ char *name;
-+ int value;
-+};
-+
-+struct parm_constant parm_constants[] =
-+{
-+ { "PARAM_BOOLEAN", var_boolean },
-+ { "PARAM_AUTO_BOOLEAN", var_auto_boolean },
-+ { "PARAM_UINTEGER", var_uinteger },
-+ { "PARAM_INTEGER", var_integer },
-+ { "PARAM_STRING", var_string },
-+ { "PARAM_STRING_NOESCAPE", var_string_noescape },
-+ { "PARAM_OPTIONAL_FILENAME", var_optional_filename },
-+ { "PARAM_FILENAME", var_filename },
-+ { "PARAM_ZINTEGER", var_zinteger },
-+ { "PARAM_ENUM", var_enum },
-+ { NULL, 0 }
-+};
-+
-+/* A union that can hold anything described by enum var_types. */
-+union parmpy_variable
-+{
-+ /* Hold an integer value, for boolean and integer types. */
-+ int intval;
-+
-+ /* Hold an auto_boolean. */
-+ enum auto_boolean autoboolval;
-+
-+ /* Hold an unsigned integer value, for uinteger. */
-+ unsigned int uintval;
-+
-+ /* Hold a string, for the various string types. */
-+ char *stringval;
-+
-+ /* Hold a string, for enums. */
-+ const char *cstringval;
-+};
-+
-+/* A gdb parameter. */
-+struct parmpy_object
-+{
-+ PyObject_HEAD
-+
-+ /* The type of the parameter. */
-+ enum var_types type;
-+
-+ /* The value of the parameter. */
-+ union parmpy_variable value;
-+
-+ /* For an enum command, the possible values. The vector is
-+ allocated with xmalloc, as is each element. It is
-+ NULL-terminated. */
-+ const char **enumeration;
-+};
-+
-+typedef struct parmpy_object parmpy_object;
-+
-+static PyTypeObject parmpy_object_type;
-+
-+/* Some handy string constants. */
-+static PyObject *set_doc_cst;
-+static PyObject *show_doc_cst;
-+
-+\f
-+
-+/* Get an attribute. */
-+static PyObject *
-+get_attr (PyObject *obj, PyObject *attr_name)
-+{
-+ if (PyString_Check (attr_name)
-+ && ! strcmp (PyString_AsString (attr_name), "value"))
-+ {
-+ parmpy_object *self = (parmpy_object *) obj;
-+ return gdbpy_parameter_value (self->type, &self->value);
-+ }
-+
-+ return PyObject_GenericGetAttr (obj, attr_name);
-+}
-+
-+/* Set a parameter value from a Python value. Return 0 on success, -1
-+ on failure. */
-+static int
-+set_parameter_value (parmpy_object *self, PyObject *value)
-+{
-+ int cmp;
-+
-+ switch (self->type)
-+ {
-+ case var_string:
-+ case var_string_noescape:
-+ case var_optional_filename:
-+ case var_filename:
-+ if (! gdbpy_is_string (value)
-+ && (self->type == var_filename
-+ || value != Py_None))
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "string required");
-+ return -1;
-+ }
-+ if (self->value.stringval)
-+ xfree (self->value.stringval);
-+ if (value == Py_None)
-+ {
-+ if (self->type == var_optional_filename)
-+ self->value.stringval = xstrdup ("");
-+ else
-+ self->value.stringval = NULL;
-+ }
-+ else
-+ self->value.stringval = python_string_to_host_string (value);
-+ break;
-+
-+ case var_enum:
-+ {
-+ int i;
-+ char *str;
-+
-+ if (! gdbpy_is_string (value))
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "string required");
-+ return -1;
-+ }
-+
-+ str = python_string_to_host_string (value);
-+ for (i = 0; self->enumeration[i]; ++i)
-+ if (! strcmp (self->enumeration[i], str))
-+ break;
-+ xfree (str);
-+ if (! self->enumeration[i])
-+ {
-+ PyErr_SetString (PyExc_RuntimeError,
-+ "value must be member of enumeration");
-+ return -1;
-+ }
-+ self->value.cstringval = self->enumeration[i];
-+ break;
-+ }
-+
-+ case var_boolean:
-+ if (! PyBool_Check (value))
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "boolean required");
-+ return -1;
-+ }
-+ cmp = PyObject_IsTrue (value);
-+ if (cmp < 0)
-+ return -1;
-+ self->value.intval = cmp;
-+ break;
-+
-+ case var_auto_boolean:
-+ if (! PyBool_Check (value) && value != Py_None)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError,
-+ "boolean or None required");
-+ return -1;
-+ }
-+
-+ if (value == Py_None)
-+ self->value.autoboolval = AUTO_BOOLEAN_AUTO;
-+ else
-+ {
-+ cmp = PyObject_IsTrue (value);
-+ if (cmp < 0 )
-+ return -1;
-+ if (cmp == 1)
-+ self->value.autoboolval = AUTO_BOOLEAN_TRUE;
-+ else
-+ self->value.autoboolval = AUTO_BOOLEAN_FALSE;
-+
-+ break;
-+ }
-+
-+ case var_integer:
-+ case var_zinteger:
-+ case var_uinteger:
-+ {
-+ long l;
-+ int ok;
-+
-+ if (! PyInt_Check (value))
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "value must be integer");
-+ return -1;
-+ }
-+
-+ l = PyInt_AsLong (value);
-+ if (self->type == var_uinteger)
-+ {
-+ ok = (l >= 0 && l <= UINT_MAX);
-+ if (l == 0)
-+ l = UINT_MAX;
-+ }
-+ else if (self->type == var_integer)
-+ {
-+ ok = (l >= INT_MIN && l <= INT_MAX);
-+ if (l == 0)
-+ l = INT_MAX;
-+ }
-+ else
-+ ok = (l >= INT_MIN && l <= INT_MAX);
-+
-+ if (! ok)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "range exceeded");
-+ return -1;
-+ }
-+
-+ self->value.intval = (int) l;
-+ break;
-+ }
-+
-+ default:
-+ PyErr_SetString (PyExc_RuntimeError, "programmer error: unhandled type");
-+ return -1;
-+ }
-+
-+ return 0;
-+}
-+
-+/* Set an attribute. */
-+static int
-+set_attr (PyObject *obj, PyObject *attr_name, PyObject *val)
-+{
-+ if (PyString_Check (attr_name)
-+ && ! strcmp (PyString_AsString (attr_name), "value"))
-+ {
-+ if (!val)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError,
-+ "cannot delete a parameter's value");
-+ return -1;
-+ }
-+ return set_parameter_value ((parmpy_object *) obj, val);
-+ }
-+
-+ return PyObject_GenericSetAttr (obj, attr_name, val);
-+}
-+
-+\f
-+
-+/* A helper function that dispatches to the appropriate add_setshow
-+ function. */
-+static void
-+add_setshow_generic (int parmclass, enum command_class cmdclass,
-+ char *cmd_name, parmpy_object *self,
-+ char *set_doc, char *show_doc, char *help_doc,
-+ struct cmd_list_element **set_list,
-+ struct cmd_list_element **show_list)
-+{
-+ switch (parmclass)
-+ {
-+ case var_boolean:
-+ add_setshow_boolean_cmd (cmd_name, cmdclass, &self->value.intval,
-+ set_doc, show_doc, help_doc,
-+ NULL, NULL, set_list, show_list);
-+ break;
-+
-+ case var_auto_boolean:
-+ add_setshow_auto_boolean_cmd (cmd_name, cmdclass,
-+ &self->value.autoboolval,
-+ set_doc, show_doc, help_doc,
-+ NULL, NULL, set_list, show_list);
-+ break;
-+
-+ case var_uinteger:
-+ add_setshow_uinteger_cmd (cmd_name, cmdclass, &self->value.uintval,
-+ set_doc, show_doc, help_doc,
-+ NULL, NULL, set_list, show_list);
-+ break;
-+
-+ case var_integer:
-+ add_setshow_integer_cmd (cmd_name, cmdclass, &self->value.intval,
-+ set_doc, show_doc, help_doc,
-+ NULL, NULL, set_list, show_list);
-+ break;
-+
-+ case var_string:
-+ add_setshow_string_cmd (cmd_name, cmdclass, &self->value.stringval,
-+ set_doc, show_doc, help_doc,
-+ NULL, NULL, set_list, show_list);
-+ break;
-+
-+ case var_string_noescape:
-+ add_setshow_string_noescape_cmd (cmd_name, cmdclass,
-+ &self->value.stringval,
-+ set_doc, show_doc, help_doc,
-+ NULL, NULL, set_list, show_list);
-+ break;
-+
-+ case var_optional_filename:
-+ add_setshow_optional_filename_cmd (cmd_name, cmdclass,
-+ &self->value.stringval,
-+ set_doc, show_doc, help_doc,
-+ NULL, NULL, set_list, show_list);
-+ break;
-+
-+ case var_filename:
-+ add_setshow_filename_cmd (cmd_name, cmdclass, &self->value.stringval,
-+ set_doc, show_doc, help_doc,
-+ NULL, NULL, set_list, show_list);
-+ break;
-+
-+ case var_zinteger:
-+ add_setshow_zinteger_cmd (cmd_name, cmdclass, &self->value.intval,
-+ set_doc, show_doc, help_doc,
-+ NULL, NULL, set_list, show_list);
-+ break;
-+
-+ case var_enum:
-+ add_setshow_enum_cmd (cmd_name, cmdclass, self->enumeration,
-+ &self->value.cstringval,
-+ set_doc, show_doc, help_doc,
-+ NULL, NULL, set_list, show_list);
-+ /* Initialize the value, just in case. */
-+ self->value.cstringval = self->enumeration[0];
-+ break;
-+ }
-+}
-+
-+/* A helper which computes enum values. Returns 1 on success, 0 on
-+ error. */
-+static int
-+compute_enum_values (parmpy_object *self, PyObject *enum_values)
-+{
-+ Py_ssize_t size, i;
-+
-+ if (! enum_values)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError,
-+ "enumeration required for PARAM_ENUM");
-+ return 0;
-+ }
-+
-+ if (! PySequence_Check (enum_values))
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "enumeration is not a sequence");
-+ return 0;
-+ }
-+
-+ size = PySequence_Size (enum_values);
-+ if (size < 0)
-+ return 0;
-+ if (size == 0)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "empty enumeration");
-+ return 0;
-+ }
-+
-+ self->enumeration = xmalloc ((size + 1) * sizeof (char *));
-+ memset (self->enumeration, 0, (size + 1) * sizeof (char *));
-+
-+ for (i = 0; i < size; ++i)
-+ {
-+ PyObject *item = PySequence_GetItem (enum_values, i);
-+ if (! item)
-+ return 0;
-+ if (! gdbpy_is_string (item))
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "enumeration item not a string");
-+ return 0;
-+ }
-+ self->enumeration[i] = python_string_to_host_string (item);
-+ }
-+
-+ return 1;
-+}
-+
-+/* A helper function which returns a documentation string for an
-+ object. */
-+static char *
-+get_doc_string (PyObject *object, PyObject *attr)
-+{
-+ char *result = NULL;
-+ if (PyObject_HasAttr (object, attr))
-+ {
-+ PyObject *ds_obj = PyObject_GetAttr (object, attr);
-+ if (ds_obj && gdbpy_is_string (ds_obj))
-+ result = python_string_to_host_string (ds_obj);
-+ }
-+ if (! result)
-+ result = xstrdup ("This command is not documented.");
-+ return result;
-+}
-+
-+/* Object initializer; sets up gdb-side structures for command.
-+
-+ Use: __init__(NAME, CMDCLASS, PARMCLASS, [ENUM])
-+
-+ NAME is the name of the parameter. It may consist of multiple
-+ words, in which case the final word is the name of the new command,
-+ and earlier words must be prefix commands.
-+
-+ CMDCLASS is the kind of command. It should be one of the COMMAND_*
-+ constants defined in the gdb module.
-+
-+ PARMCLASS is the type of the parameter. It should be one of the
-+ PARAM_* constants defined in the gdb module.
-+
-+ If PARMCLASS is PARAM_ENUM, then the final argument should be a
-+ collection of strings. These strings are the valid values for this
-+ parameter.
-+
-+ The documentation for the parameter is taken from the doc string
-+ for the python class.
-+
-+*/
-+static int
-+parmpy_init (PyObject *self, PyObject *args, PyObject *kwds)
-+{
-+ parmpy_object *obj = (parmpy_object *) self;
-+ char *name;
-+ char *set_doc, *show_doc, *doc;
-+ char *cmd_name;
-+ int parmclass, cmdtype;
-+ PyObject *enum_values = NULL;
-+ struct cmd_list_element *cmd_list;
-+ struct cmd_list_element **set_list, **show_list;
-+ volatile struct gdb_exception except;
-+
-+ if (! PyArg_ParseTuple (args, "sii|O", &name, &cmdtype, &parmclass,
-+ &enum_values))
-+ return -1;
-+
-+ if (cmdtype != no_class && cmdtype != class_run
-+ && cmdtype != class_vars && cmdtype != class_stack
-+ && cmdtype != class_files && cmdtype != class_support
-+ && cmdtype != class_info && cmdtype != class_breakpoint
-+ && cmdtype != class_trace && cmdtype != class_obscure
-+ && cmdtype != class_maintenance)
-+ {
-+ PyErr_Format (PyExc_RuntimeError, "invalid command class argument");
-+ return -1;
-+ }
-+
-+ if (parmclass != var_boolean && parmclass != var_auto_boolean
-+ && parmclass != var_uinteger && parmclass != var_integer
-+ && parmclass != var_string && parmclass != var_string_noescape
-+ && parmclass != var_optional_filename && parmclass != var_filename
-+ && parmclass != var_zinteger && parmclass != var_enum)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "invalid parameter class argument");
-+ return -1;
-+ }
-+
-+ if (enum_values && parmclass != var_enum)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError,
-+ "only PARAM_ENUM accepts a fourth argument");
-+ return -1;
-+ }
-+ if (parmclass == var_enum)
-+ {
-+ if (! compute_enum_values (obj, enum_values))
-+ return -1;
-+ }
-+
-+ obj->type = (enum var_types) parmclass;
-+ memset (&obj->value, 0, sizeof (obj->value));
-+ obj->enumeration = NULL;
-+
-+ cmd_name = gdbpy_parse_command_name (name, &set_list, &setlist);
-+ if (! cmd_name)
-+ return -1;
-+ xfree (cmd_name);
-+ cmd_name = gdbpy_parse_command_name (name, &show_list, &showlist);
-+ if (! cmd_name)
-+ return -1;
-+
-+ /* FIXME: there is no way to register a destructor function for
-+ set/show commands. So, these are leaked. */
-+ set_doc = get_doc_string (self, set_doc_cst);
-+ show_doc = get_doc_string (self, show_doc_cst);
-+ doc = get_doc_string (self, gdbpy_doc_cst);
-+
-+ Py_INCREF (self);
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ add_setshow_generic (parmclass, (enum command_class) cmdtype,
-+ cmd_name, obj,
-+ set_doc, show_doc,
-+ doc, set_list, show_list);
-+ }
-+ if (except.reason < 0)
-+ {
-+ xfree (cmd_name);
-+ xfree (set_doc);
-+ xfree (show_doc);
-+ xfree (doc);
-+ Py_DECREF (self);
-+ PyErr_Format (except.reason == RETURN_QUIT
-+ ? PyExc_KeyboardInterrupt : PyExc_RuntimeError,
-+ "%s", except.message);
-+ return -1;
-+ }
-+ return 0;
-+}
-+
-+\f
-+
-+/* Initialize the 'parameters' module. */
-+void
-+gdbpy_initialize_parameters (void)
-+{
-+ int i;
-+
-+ if (PyType_Ready (&parmpy_object_type) < 0)
-+ return;
-+
-+ set_doc_cst = PyString_FromString ("set_doc");
-+ if (! set_doc_cst)
-+ return;
-+ show_doc_cst = PyString_FromString ("show_doc");
-+ if (! show_doc_cst)
-+ return;
-+
-+ for (i = 0; parm_constants[i].name; ++i)
-+ {
-+ if (PyModule_AddIntConstant (gdb_module,
-+ parm_constants[i].name,
-+ parm_constants[i].value) < 0)
-+ return;
-+ }
-+
-+ Py_INCREF (&parmpy_object_type);
-+ PyModule_AddObject (gdb_module, "Parameter",
-+ (PyObject *) &parmpy_object_type);
-+}
-+
-+\f
-+
-+static PyTypeObject parmpy_object_type =
-+{
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /*ob_size*/
-+ "gdb.Parameter", /*tp_name*/
-+ sizeof (parmpy_object), /*tp_basicsize*/
-+ 0, /*tp_itemsize*/
-+ 0, /*tp_dealloc*/
-+ 0, /*tp_print*/
-+ 0, /*tp_getattr*/
-+ 0, /*tp_setattr*/
-+ 0, /*tp_compare*/
-+ 0, /*tp_repr*/
-+ 0, /*tp_as_number*/
-+ 0, /*tp_as_sequence*/
-+ 0, /*tp_as_mapping*/
-+ 0, /*tp_hash */
-+ 0, /*tp_call*/
-+ 0, /*tp_str*/
-+ get_attr, /*tp_getattro*/
-+ set_attr, /*tp_setattro*/
-+ 0, /*tp_as_buffer*/
-+ Py_TPFLAGS_DEFAULT | Py_TPFLAGS_BASETYPE, /*tp_flags*/
-+ "GDB parameter object", /* tp_doc */
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ 0, /* tp_iter */
-+ 0, /* tp_iternext */
-+ 0, /* tp_methods */
-+ 0, /* tp_members */
-+ 0, /* tp_getset */
-+ 0, /* tp_base */
-+ 0, /* tp_dict */
-+ 0, /* tp_descr_get */
-+ 0, /* tp_descr_set */
-+ 0, /* tp_dictoffset */
-+ parmpy_init, /* tp_init */
-+ 0, /* tp_alloc */
-+ PyType_GenericNew /* tp_new */
-+};
-diff --git a/gdb/python/python-symbol.c b/gdb/python/python-symbol.c
-new file mode 100644
-index 0000000..c7fda5c
---- /dev/null
-+++ b/gdb/python/python-symbol.c
-@@ -0,0 +1,337 @@
-+/* Python interface to symbols.
-+
-+ Copyright (C) 2008 Free Software Foundation, Inc.
-+
-+ This file is part of GDB.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+#include "defs.h"
-+#include "block.h"
-+#include "exceptions.h"
-+#include "frame.h"
-+#include "symtab.h"
-+#include "python-internal.h"
-+
-+typedef struct {
-+ PyObject_HEAD
-+ struct symbol *symbol;
-+} symbol_object;
-+
-+
-+static PyObject *
-+sympy_str (PyObject *self)
-+{
-+ int ret;
-+ char *s;
-+ PyObject *result;
-+
-+ ret = asprintf (&s, "symbol for %s",
-+ SYMBOL_PRINT_NAME (((symbol_object *) self)->symbol));
-+ if (ret < 0)
-+ Py_RETURN_NONE;
-+
-+ result = PyString_FromString (s);
-+ xfree (s);
-+
-+ return result;
-+}
-+
-+static PyObject *
-+sympy_get_value (PyObject *self, void *closure)
-+{
-+ symbol_object *self_sym = (symbol_object *) self;
-+
-+ switch (SYMBOL_CLASS (self_sym->symbol))
-+ {
-+ case LOC_BLOCK:
-+ return block_to_block_object (SYMBOL_BLOCK_VALUE (self_sym->symbol));
-+ }
-+
-+ PyErr_SetString (PyExc_NotImplementedError,
-+ "Symbol type not yet supported in Python scripts.");
-+ return NULL;
-+}
-+
-+static PyObject *
-+sympy_get_symtab (PyObject *self, void *closure)
-+{
-+ symbol_object *self_sym = (symbol_object *) self;
-+
-+ return symtab_to_symtab_object (SYMBOL_SYMTAB (self_sym->symbol));
-+}
-+
-+static PyObject *
-+sympy_get_name (PyObject *self, void *closure)
-+{
-+ symbol_object *self_sym = (symbol_object *) self;
-+
-+ return PyString_FromString (SYMBOL_NATURAL_NAME (self_sym->symbol));
-+}
-+
-+static PyObject *
-+sympy_get_linkage_name (PyObject *self, void *closure)
-+{
-+ symbol_object *self_sym = (symbol_object *) self;
-+
-+ return PyString_FromString (SYMBOL_LINKAGE_NAME (self_sym->symbol));
-+}
-+
-+static PyObject *
-+sympy_get_print_name (PyObject *self, void *closure)
-+{
-+ symbol_object *self_sym = (symbol_object *) self;
-+
-+ return PyString_FromString (SYMBOL_PRINT_NAME (self_sym->symbol));
-+}
-+
-+static PyObject *
-+sympy_get_addr_class (PyObject *self, void *closure)
-+{
-+ symbol_object *self_sym = (symbol_object *) self;
-+
-+ return PyInt_FromLong (SYMBOL_CLASS (self_sym->symbol));
-+}
-+
-+static PyObject *
-+sympy_is_argument (PyObject *self, void *closure)
-+{
-+ symbol_object *self_sym = (symbol_object *) self;
-+
-+ return PyBool_FromLong (SYMBOL_IS_ARGUMENT (self_sym->symbol));
-+}
-+
-+static PyObject *
-+sympy_is_constant (PyObject *self, void *closure)
-+{
-+ symbol_object *self_sym = (symbol_object *) self;
-+ enum address_class class = SYMBOL_CLASS (self_sym->symbol);
-+
-+ return PyBool_FromLong (class == LOC_CONST || class == LOC_CONST_BYTES);
-+}
-+
-+static PyObject *
-+sympy_is_function (PyObject *self, void *closure)
-+{
-+ symbol_object *self_sym = (symbol_object *) self;
-+ enum address_class class = SYMBOL_CLASS (self_sym->symbol);
-+
-+ return PyBool_FromLong (class == LOC_BLOCK);
-+}
-+
-+static PyObject *
-+sympy_is_variable (PyObject *self, void *closure)
-+{
-+ symbol_object *self_sym = (symbol_object *) self;
-+ enum address_class class = SYMBOL_CLASS (self_sym->symbol);
-+
-+ return PyBool_FromLong (!SYMBOL_IS_ARGUMENT (self_sym->symbol)
-+ && (class == LOC_LOCAL || class == LOC_REGISTER || class == LOC_STATIC
-+ || class == LOC_COMPUTED || class == LOC_OPTIMIZED_OUT));
-+}
-+
-+PyObject *
-+symbol_to_symbol_object (struct symbol *sym)
-+{
-+ symbol_object *sym_obj;
-+
-+ sym_obj = PyObject_New (symbol_object, &symbol_object_type);
-+ if (sym_obj == NULL)
-+ {
-+ PyErr_SetString (PyExc_MemoryError, "Could not allocate symbol object.");
-+ return NULL;
-+ }
-+
-+ sym_obj->symbol = sym;
-+
-+ return (PyObject *) sym_obj;
-+}
-+
-+struct symbol *
-+symbol_object_to_symbol (PyObject *obj)
-+{
-+ if (! PyObject_TypeCheck (obj, &symbol_object_type))
-+ return NULL;
-+ return ((symbol_object *) obj)->symbol;
-+}
-+
-+/* Implementation of
-+ gdb.lookup_symbol (name [, block] [, domain]) -> (symbol, is_field_of_this)
-+ A tuple with 2 elements is always returned. The first is the symbol
-+ object or None, the second is a boolean with the value of
-+ is_a_field_of_this (see comment in lookup_symbol_in_language). */
-+
-+PyObject *gdbpy_lookup_symbol (PyObject *self, PyObject *args, PyObject *kw)
-+{
-+ int domain = VAR_DOMAIN, is_a_field_of_this = 0;
-+ const char *name;
-+ static char *keywords[] = { "name", "block", "domain", NULL };
-+ struct symbol *symbol;
-+ PyObject *block_obj = NULL, *ret_tuple, *sym_obj, *bool_obj;
-+ struct block *block = NULL;
-+
-+ if (! PyArg_ParseTupleAndKeywords (args, kw, "s|O!i", keywords, &name,
-+ &block_object_type, &block_obj, &domain))
-+ return NULL;
-+
-+ if (block_obj)
-+ block = block_object_to_block (block_obj);
-+ else
-+ {
-+ struct frame_info *selected_frame;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ selected_frame = get_selected_frame (_("No frame selected."));
-+ block = block_for_pc (get_frame_address_in_block (selected_frame));
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+ }
-+
-+ symbol = lookup_symbol (name, block, domain, &is_a_field_of_this);
-+
-+ ret_tuple = PyTuple_New (2);
-+ if (!ret_tuple)
-+ {
-+ PyErr_SetString (PyExc_MemoryError, "Could not allocate tuple object.");
-+ return NULL;
-+ }
-+
-+ if (symbol)
-+ {
-+ sym_obj = symbol_to_symbol_object (symbol);
-+ if (!sym_obj)
-+ {
-+ Py_DECREF (ret_tuple);
-+ return NULL;
-+ }
-+ }
-+ else
-+ {
-+ sym_obj = Py_None;
-+ Py_INCREF (Py_None);
-+ }
-+ PyTuple_SET_ITEM (ret_tuple, 0, sym_obj);
-+
-+ bool_obj = is_a_field_of_this? Py_True : Py_False;
-+ Py_INCREF (bool_obj);
-+ PyTuple_SET_ITEM (ret_tuple, 1, bool_obj);
-+
-+ return ret_tuple;
-+}
-+
-+void
-+gdbpy_initialize_symbols (void)
-+{
-+ symbol_object_type.tp_new = PyType_GenericNew;
-+ if (PyType_Ready (&symbol_object_type) < 0)
-+ return;
-+
-+ /* FIXME: These would probably be best exposed as class attributes of Symbol,
-+ but I don't know how to do it except by messing with the type's dictionary.
-+ That seems too messy. */
-+ /* FIXME 2: Some of these were removed from GDB since I first wrote this code,
-+ so it's probably a good idea not to expose them to Python. */
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_UNDEF", LOC_UNDEF);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_CONST", LOC_CONST);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_STATIC", LOC_STATIC);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_REGISTER", LOC_REGISTER);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_ARG", LOC_ARG);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_REF_ARG", LOC_REF_ARG);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_LOCAL", LOC_LOCAL);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_TYPEDEF", LOC_TYPEDEF);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_LABEL", LOC_LABEL);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_BLOCK", LOC_BLOCK);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_CONST_BYTES",
-+ LOC_CONST_BYTES);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_UNRESOLVED", LOC_UNRESOLVED);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_OPTIMIZED_OUT",
-+ LOC_OPTIMIZED_OUT);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_COMPUTED", LOC_COMPUTED);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LOC_REGPARM_ADDR",
-+ LOC_REGPARM_ADDR);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_UNDEF_DOMAIN", UNDEF_DOMAIN);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_VAR_DOMAIN", VAR_DOMAIN);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_STRUCT_DOMAIN", STRUCT_DOMAIN);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_LABEL_DOMAIN", LABEL_DOMAIN);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_VARIABLES_DOMAIN",
-+ VARIABLES_DOMAIN);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_FUNCTIONS_DOMAIN",
-+ FUNCTIONS_DOMAIN);
-+ PyModule_AddIntConstant (gdb_module, "SYMBOL_TYPES_DOMAIN", TYPES_DOMAIN);
-+
-+ Py_INCREF (&symbol_object_type);
-+ PyModule_AddObject (gdb_module, "Symbol", (PyObject *) &symbol_object_type);
-+}
-+
-+\f
-+
-+static PyGetSetDef symbol_object_getset[] = {
-+ { "value", sympy_get_value, NULL, "Value of the symbol.", NULL },
-+ { "symtab", sympy_get_symtab, NULL,
-+ "Symbol table in which the symbol appears.", NULL },
-+ { "name", sympy_get_name, NULL,
-+ "Name of the symbol, as it appears in the source code.", NULL },
-+ { "linkage_name", sympy_get_linkage_name, NULL,
-+ "Name of the symbol, as used by the linker (i.e., may be mangled).", NULL },
-+ { "print_name", sympy_get_print_name, NULL,
-+ "Name of the symbol in a form suitable for output.\n\
-+This is either name or linkage_name, depending on whether the user asked GDB\n\
-+to display demangled or mangled names.", NULL },
-+ { "addr_class", sympy_get_addr_class, NULL, "Address class of the symbol." },
-+ { "is_argument", sympy_is_argument, NULL,
-+ "True if the symbol is an argument of a function." },
-+ { "is_constant", sympy_is_constant, NULL,
-+ "True if the symbol is a constant." },
-+ { "is_function", sympy_is_function, NULL,
-+ "True if the symbol is a function or method." },
-+ { "is_variable", sympy_is_variable, NULL,
-+ "True if the symbol is a variable." },
-+ { NULL } /* Sentinel */
-+};
-+
-+PyTypeObject symbol_object_type = {
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /*ob_size*/
-+ "gdb.Symbol", /*tp_name*/
-+ sizeof (symbol_object), /*tp_basicsize*/
-+ 0, /*tp_itemsize*/
-+ 0, /*tp_dealloc*/
-+ 0, /*tp_print*/
-+ 0, /*tp_getattr*/
-+ 0, /*tp_setattr*/
-+ 0, /*tp_compare*/
-+ 0, /*tp_repr*/
-+ 0, /*tp_as_number*/
-+ 0, /*tp_as_sequence*/
-+ 0, /*tp_as_mapping*/
-+ 0, /*tp_hash */
-+ 0, /*tp_call*/
-+ sympy_str, /*tp_str*/
-+ 0, /*tp_getattro*/
-+ 0, /*tp_setattro*/
-+ 0, /*tp_as_buffer*/
-+ Py_TPFLAGS_DEFAULT, /*tp_flags*/
-+ "GDB symbol object", /* tp_doc */
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ 0, /* tp_iter */
-+ 0, /* tp_iternext */
-+ 0, /* tp_methods */
-+ 0, /* tp_members */
-+ symbol_object_getset /* tp_getset */
-+};
-diff --git a/gdb/python/python-symtab.c b/gdb/python/python-symtab.c
-new file mode 100644
-index 0000000..a48c38c
---- /dev/null
-+++ b/gdb/python/python-symtab.c
-@@ -0,0 +1,311 @@
-+/* Python interface to symbol tables.
-+
-+ Copyright (C) 2008 Free Software Foundation, Inc.
-+
-+ This file is part of GDB.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+#include "defs.h"
-+#include "charset.h"
-+#include "symtab.h"
-+#include "source.h"
-+#include "python-internal.h"
-+
-+typedef struct {
-+ PyObject_HEAD
-+ struct symtab *symtab;
-+} symtab_object;
-+
-+static PyTypeObject symtab_object_type;
-+
-+typedef struct {
-+ PyObject_HEAD
-+ symtab_object *symtab;
-+ struct symtab_and_line *sal;
-+} sal_object;
-+
-+static PyTypeObject sal_object_type;
-+
-+
-+static PyObject *
-+stpy_str (PyObject *self)
-+{
-+ int ret;
-+ char *s;
-+ PyObject *result;
-+
-+ ret = asprintf (&s, "symbol table for %s",
-+ ((symtab_object *) self)->symtab->filename);
-+ if (ret < 0)
-+ Py_RETURN_NONE;
-+
-+ result = PyString_FromString (s);
-+ xfree (s);
-+
-+ return result;
-+}
-+
-+static PyObject *
-+stpy_get_filename (PyObject *self, void *closure)
-+{
-+ symtab_object *self_symtab = (symtab_object *) self;
-+ PyObject *str_obj;
-+
-+ /* FIXME: Can symtab->filename really be NULL? */
-+ if (self_symtab->symtab->filename)
-+ str_obj = PyString_Decode (self_symtab->symtab->filename,
-+ strlen (self_symtab->symtab->filename),
-+ host_charset (), NULL);
-+ else
-+ {
-+ str_obj = Py_None;
-+ Py_INCREF (Py_None);
-+ }
-+
-+ return str_obj;
-+}
-+
-+static PyObject *
-+stpy_fullname (PyObject *self, PyObject *args)
-+{
-+ char *fullname;
-+
-+ fullname = symtab_to_fullname (((symtab_object *) self)->symtab);
-+ if (fullname)
-+ return PyString_Decode (fullname, strlen (fullname), host_charset (), NULL);
-+
-+ Py_RETURN_NONE;
-+}
-+
-+static PyObject *
-+salpy_str (PyObject *self)
-+{
-+ int ret;
-+ char *s, *filename;
-+ sal_object *sal_obj;
-+ PyObject *result;
-+
-+ sal_obj = (sal_object *) self;
-+ filename = (sal_obj->symtab == (symtab_object *) Py_None)? "<unknown>" :
-+ sal_obj->symtab->symtab->filename;
-+ ret = asprintf (&s, "symbol and line for %s, line %d", filename,
-+ sal_obj->sal->line);
-+ if (ret < 0)
-+ Py_RETURN_NONE;
-+
-+ result = PyString_FromString (s);
-+ xfree (s);
-+
-+ return result;
-+}
-+
-+static PyObject *
-+salpy_get_pc (PyObject *self, void *closure)
-+{
-+ return PyLong_FromUnsignedLongLong (((sal_object *) self)->sal->pc);
-+}
-+
-+static PyObject *
-+salpy_get_line (PyObject *self, void *closure)
-+{
-+ return PyLong_FromUnsignedLongLong (((sal_object *) self)->sal->line);
-+}
-+
-+static PyObject *
-+salpy_get_symtab (PyObject *self, void *closure)
-+{
-+ sal_object *self_sal = (sal_object *) self;
-+
-+ Py_INCREF (self_sal->symtab);
-+
-+ return (PyObject *) self_sal->symtab;
-+}
-+
-+static void
-+salpy_dealloc (PyObject *self)
-+{
-+ sal_object *self_sal = (sal_object *) self;
-+
-+ Py_DECREF (self_sal->symtab);
-+ xfree (self_sal->sal);
-+ self_sal->ob_type->tp_free (self);
-+}
-+
-+PyObject *
-+symtab_and_line_to_sal_object (struct symtab_and_line sal)
-+{
-+ sal_object *sal_obj;
-+ symtab_object *symtab_obj;
-+
-+ sal_obj = PyObject_New (sal_object, &sal_object_type);
-+ if (sal_obj == NULL)
-+ {
-+ PyErr_SetString (PyExc_MemoryError,
-+ "Could not allocate Symtab_and_line object.");
-+ return NULL;
-+ }
-+
-+ if (sal.symtab)
-+ {
-+ symtab_obj = (symtab_object *) symtab_to_symtab_object (sal.symtab);
-+ if (symtab_obj == NULL)
-+ {
-+ Py_DECREF (sal_obj);
-+ return NULL;
-+ }
-+
-+ symtab_obj->symtab = sal.symtab;
-+ }
-+ else
-+ {
-+ symtab_obj = (symtab_object *) Py_None;
-+ Py_INCREF (Py_None);
-+ }
-+
-+ sal_obj->sal = (struct symtab_and_line *)
-+ xmalloc (sizeof (struct symtab_and_line));
-+ *(sal_obj->sal) = sal;
-+ sal_obj->symtab = symtab_obj;
-+
-+ return (PyObject *) sal_obj;
-+}
-+
-+PyObject *
-+symtab_to_symtab_object (struct symtab *symtab)
-+{
-+ symtab_object *symtab_obj;
-+
-+ symtab_obj = PyObject_New (symtab_object, &symtab_object_type);
-+ if (symtab_obj == NULL)
-+ {
-+ PyErr_SetString (PyExc_MemoryError,
-+ "Could not allocate Symtab object.");
-+
-+ return NULL;
-+ }
-+
-+ symtab_obj->symtab = symtab;
-+
-+ return (PyObject *) symtab_obj;
-+}
-+
-+void
-+gdbpy_initialize_symtabs (void)
-+{
-+ symtab_object_type.tp_new = PyType_GenericNew;
-+ if (PyType_Ready (&symtab_object_type) < 0)
-+ return;
-+
-+ sal_object_type.tp_new = PyType_GenericNew;
-+ if (PyType_Ready (&sal_object_type) < 0)
-+ return;
-+
-+ Py_INCREF (&symtab_object_type);
-+ PyModule_AddObject (gdb_module, "Symtab", (PyObject *) &symtab_object_type);
-+
-+ Py_INCREF (&sal_object_type);
-+ PyModule_AddObject (gdb_module, "Symtab_and_line",
-+ (PyObject *) &sal_object_type);
-+}
-+
-+\f
-+
-+static PyGetSetDef symtab_object_getset[] = {
-+ { "filename", stpy_get_filename, NULL,
-+ "The symbol table's source filename.", NULL },
-+ {NULL} /* Sentinel */
-+};
-+
-+static PyMethodDef symtab_object_methods[] = {
-+ { "fullname", stpy_fullname, METH_NOARGS,
-+ "Return the symtab's full source filename." },
-+ {NULL} /* Sentinel */
-+};
-+
-+static PyTypeObject symtab_object_type = {
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /*ob_size*/
-+ "gdb.Symtab", /*tp_name*/
-+ sizeof (symtab_object), /*tp_basicsize*/
-+ 0, /*tp_itemsize*/
-+ 0, /*tp_dealloc*/
-+ 0, /*tp_print*/
-+ 0, /*tp_getattr*/
-+ 0, /*tp_setattr*/
-+ 0, /*tp_compare*/
-+ 0, /*tp_repr*/
-+ 0, /*tp_as_number*/
-+ 0, /*tp_as_sequence*/
-+ 0, /*tp_as_mapping*/
-+ 0, /*tp_hash */
-+ 0, /*tp_call*/
-+ stpy_str, /*tp_str*/
-+ 0, /*tp_getattro*/
-+ 0, /*tp_setattro*/
-+ 0, /*tp_as_buffer*/
-+ Py_TPFLAGS_DEFAULT, /*tp_flags*/
-+ "GDB symtab object", /* tp_doc */
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ 0, /* tp_iter */
-+ 0, /* tp_iternext */
-+ symtab_object_methods, /* tp_methods */
-+ 0, /* tp_members */
-+ symtab_object_getset /* tp_getset */
-+};
-+
-+static PyGetSetDef sal_object_getset[] = {
-+ { "symtab", salpy_get_symtab, NULL, "Symtab object.", NULL },
-+ { "pc", salpy_get_pc, NULL, "Return the symtab_and_line's pc.", NULL },
-+ { "line", salpy_get_line, NULL,
-+ "Return the symtab_and_line's line.", NULL },
-+ {NULL} /* Sentinel */
-+};
-+
-+static PyTypeObject sal_object_type = {
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /*ob_size*/
-+ "gdb.Symtab_and_line", /*tp_name*/
-+ sizeof (sal_object), /*tp_basicsize*/
-+ 0, /*tp_itemsize*/
-+ salpy_dealloc, /*tp_dealloc*/
-+ 0, /*tp_print*/
-+ 0, /*tp_getattr*/
-+ 0, /*tp_setattr*/
-+ 0, /*tp_compare*/
-+ 0, /*tp_repr*/
-+ 0, /*tp_as_number*/
-+ 0, /*tp_as_sequence*/
-+ 0, /*tp_as_mapping*/
-+ 0, /*tp_hash */
-+ 0, /*tp_call*/
-+ salpy_str, /*tp_str*/
-+ 0, /*tp_getattro*/
-+ 0, /*tp_setattro*/
-+ 0, /*tp_as_buffer*/
-+ Py_TPFLAGS_DEFAULT, /*tp_flags*/
-+ "GDB symtab_and_line object", /* tp_doc */
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ 0, /* tp_iter */
-+ 0, /* tp_iternext */
-+ 0, /* tp_methods */
-+ 0, /* tp_members */
-+ sal_object_getset /* tp_getset */
-+};
-diff --git a/gdb/python/python-type.c b/gdb/python/python-type.c
-new file mode 100644
-index 0000000..772a011
---- /dev/null
-+++ b/gdb/python/python-type.c
-@@ -0,0 +1,821 @@
-+/* Python interface to types.
-+
-+ Copyright (C) 2008, 2009 Free Software Foundation, Inc.
-+
-+ This file is part of GDB.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+#include "defs.h"
-+#include "value.h"
-+#include "exceptions.h"
-+#include "python-internal.h"
-+#include "charset.h"
-+#include "gdbtypes.h"
-+#include "cp-support.h"
-+#include "demangle.h"
-+#include "objfiles.h"
-+#include "gdb_assert.h"
-+
-+typedef struct pyty_type_object
-+{
-+ PyObject_HEAD
-+ struct type *type;
-+
-+ /* If a Type object is associated with an objfile, it is kept on a
-+ doubly-linked list, rooted in the objfile. This lets us copy the
-+ underlying struct type when the objfile is deleted. */
-+ struct pyty_type_object *prev;
-+ struct pyty_type_object *next;
-+} type_object;
-+
-+static PyTypeObject type_object_type;
-+
-+/* A Field object. */
-+typedef struct pyty_field_object
-+{
-+ PyObject_HEAD
-+
-+ /* Dictionary holding our attributes. */
-+ PyObject *dict;
-+} field_object;
-+
-+static PyTypeObject field_object_type;
-+
-+/* This is used to initialize various gdb.TYPE_ constants. */
-+struct pyty_code
-+{
-+ /* The code. */
-+ enum type_code code;
-+ /* The name. */
-+ const char *name;
-+};
-+
-+#define ENTRY(X) { X, #X }
-+
-+static struct pyty_code pyty_codes[] =
-+{
-+ ENTRY (TYPE_CODE_PTR),
-+ ENTRY (TYPE_CODE_ARRAY),
-+ ENTRY (TYPE_CODE_STRUCT),
-+ ENTRY (TYPE_CODE_UNION),
-+ ENTRY (TYPE_CODE_ENUM),
-+ ENTRY (TYPE_CODE_FLAGS),
-+ ENTRY (TYPE_CODE_FUNC),
-+ ENTRY (TYPE_CODE_INT),
-+ ENTRY (TYPE_CODE_FLT),
-+ ENTRY (TYPE_CODE_VOID),
-+ ENTRY (TYPE_CODE_SET),
-+ ENTRY (TYPE_CODE_RANGE),
-+ ENTRY (TYPE_CODE_STRING),
-+ ENTRY (TYPE_CODE_BITSTRING),
-+ ENTRY (TYPE_CODE_ERROR),
-+ ENTRY (TYPE_CODE_METHOD),
-+ ENTRY (TYPE_CODE_METHODPTR),
-+ ENTRY (TYPE_CODE_MEMBERPTR),
-+ ENTRY (TYPE_CODE_REF),
-+ ENTRY (TYPE_CODE_CHAR),
-+ ENTRY (TYPE_CODE_BOOL),
-+ ENTRY (TYPE_CODE_COMPLEX),
-+ ENTRY (TYPE_CODE_TYPEDEF),
-+ ENTRY (TYPE_CODE_TEMPLATE),
-+ ENTRY (TYPE_CODE_TEMPLATE_ARG),
-+ ENTRY (TYPE_CODE_NAMESPACE),
-+ ENTRY (TYPE_CODE_DECFLOAT),
-+ ENTRY (TYPE_CODE_INTERNAL_FUNCTION),
-+ { TYPE_CODE_UNDEF, NULL }
-+};
-+
-+\f
-+
-+static void
-+field_dealloc (PyObject *obj)
-+{
-+ field_object *f = (field_object *) obj;
-+ Py_XDECREF (f->dict);
-+}
-+
-+static PyObject *
-+field_new (void)
-+{
-+ field_object *result = PyObject_New (field_object, &field_object_type);
-+ if (result)
-+ {
-+ result->dict = PyDict_New ();
-+ if (!result->dict)
-+ {
-+ Py_DECREF (result);
-+ result = NULL;
-+ }
-+ }
-+ return (PyObject *) result;
-+}
-+
-+\f
-+
-+/* Return the code for this type. */
-+static PyObject *
-+typy_code (PyObject *self, PyObject *args)
-+{
-+ struct type *type = ((type_object *) self)->type;
-+ return PyInt_FromLong (TYPE_CODE (type));
-+}
-+
-+/* Helper function for typy_fields which converts a single field to a
-+ dictionary. Returns NULL on error. */
-+static PyObject *
-+convert_field (struct type *type, int field)
-+{
-+ PyObject *result = field_new ();
-+ PyObject *arg;
-+
-+ if (!result)
-+ return NULL;
-+
-+ if (!field_is_static (&TYPE_FIELD (type, field)))
-+ {
-+ arg = PyLong_FromLong (TYPE_FIELD_BITPOS (type, field));
-+ if (!arg)
-+ goto fail;
-+
-+ if (PyObject_SetAttrString (result, "bitpos", arg) < 0)
-+ goto failarg;
-+ }
-+
-+ if (TYPE_FIELD_NAME (type, field))
-+ arg = PyString_FromString (TYPE_FIELD_NAME (type, field));
-+ else
-+ {
-+ arg = Py_None;
-+ Py_INCREF (arg);
-+ }
-+ if (!arg)
-+ goto fail;
-+ if (PyObject_SetAttrString (result, "name", arg) < 0)
-+ goto failarg;
-+
-+ arg = TYPE_FIELD_ARTIFICIAL (type, field) ? Py_True : Py_False;
-+ Py_INCREF (arg);
-+ if (PyObject_SetAttrString (result, "artificial", arg) < 0)
-+ goto failarg;
-+
-+ arg = PyLong_FromLong (TYPE_FIELD_BITSIZE (type, field));
-+ if (!arg)
-+ goto fail;
-+ if (PyObject_SetAttrString (result, "bitsize", arg) < 0)
-+ goto failarg;
-+
-+ arg = type_to_type_object (TYPE_FIELD_TYPE (type, field));
-+ if (!arg)
-+ goto fail;
-+ if (PyObject_SetAttrString (result, "type", arg) < 0)
-+ goto failarg;
-+
-+ return result;
-+
-+ failarg:
-+ Py_DECREF (arg);
-+ fail:
-+ Py_DECREF (result);
-+ return NULL;
-+}
-+
-+/* Return a sequence of all fields. Each field is a dictionary with
-+ some pre-defined keys. */
-+static PyObject *
-+typy_fields (PyObject *self, PyObject *args)
-+{
-+ PyObject *result;
-+ int i;
-+ struct type *type = ((type_object *) self)->type;
-+
-+ /* We would like to make a tuple here, make fields immutable, and
-+ then memoize the result (and perhaps make Field.type() lazy).
-+ However, that can lead to cycles. */
-+ result = PyList_New (0);
-+
-+ for (i = 0; i < TYPE_NFIELDS (type); ++i)
-+ {
-+ PyObject *dict = convert_field (type, i);
-+ if (!dict)
-+ {
-+ Py_DECREF (result);
-+ return NULL;
-+ }
-+ if (PyList_Append (result, dict))
-+ {
-+ Py_DECREF (dict);
-+ Py_DECREF (result);
-+ return NULL;
-+ }
-+ }
-+
-+ return result;
-+}
-+
-+/* Return the type's tag, or None. */
-+static PyObject *
-+typy_tag (PyObject *self, PyObject *args)
-+{
-+ struct type *type = ((type_object *) self)->type;
-+ if (!TYPE_TAG_NAME (type))
-+ Py_RETURN_NONE;
-+ return PyString_FromString (TYPE_TAG_NAME (type));
-+}
-+
-+/* Return the type, stripped of typedefs. */
-+static PyObject *
-+typy_strip_typedefs (PyObject *self, PyObject *args)
-+{
-+ struct type *type = ((type_object *) self)->type;
-+
-+ return type_to_type_object (check_typedef (type));
-+}
-+
-+/* Return a Type object which represents a pointer to SELF. */
-+static PyObject *
-+typy_pointer (PyObject *self, PyObject *args)
-+{
-+ struct type *type = ((type_object *) self)->type;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ type = lookup_pointer_type (type);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return type_to_type_object (type);
-+}
-+
-+/* Return a Type object which represents a reference to SELF. */
-+static PyObject *
-+typy_reference (PyObject *self, PyObject *args)
-+{
-+ struct type *type = ((type_object *) self)->type;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ type = lookup_reference_type (type);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return type_to_type_object (type);
-+}
-+
-+/* Return a Type object which represents the target type of SELF. */
-+static PyObject *
-+typy_target (PyObject *self, PyObject *args)
-+{
-+ struct type *type = ((type_object *) self)->type;
-+
-+ if (!TYPE_TARGET_TYPE (type))
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "type does not have a target");
-+ return NULL;
-+ }
-+
-+ return type_to_type_object (TYPE_TARGET_TYPE (type));
-+}
-+
-+/* Return a const-qualified type variant. */
-+static PyObject *
-+typy_const (PyObject *self, PyObject *args)
-+{
-+ struct type *type = ((type_object *) self)->type;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ type = make_cv_type (1, 0, type, NULL);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return type_to_type_object (type);
-+}
-+
-+/* Return a volatile-qualified type variant. */
-+static PyObject *
-+typy_volatile (PyObject *self, PyObject *args)
-+{
-+ struct type *type = ((type_object *) self)->type;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ type = make_cv_type (0, 1, type, NULL);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return type_to_type_object (type);
-+}
-+
-+/* Return an unqualified type variant. */
-+static PyObject *
-+typy_unqualified (PyObject *self, PyObject *args)
-+{
-+ struct type *type = ((type_object *) self)->type;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ type = make_cv_type (0, 0, type, NULL);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return type_to_type_object (type);
-+}
-+
-+/* Return the size of the type represented by SELF, in bytes. */
-+static PyObject *
-+typy_sizeof (PyObject *self, PyObject *args)
-+{
-+ struct type *type = ((type_object *) self)->type;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ CHECK_TYPEDEF (type);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return PyLong_FromLong (TYPE_LENGTH (type));
-+}
-+
-+static struct type *
-+typy_lookup_typename (char *type_name, struct block *block)
-+{
-+ struct type *type = NULL;
-+ volatile struct gdb_exception except;
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ if (!strncmp (type_name, "struct ", 7))
-+ type = lookup_struct (type_name + 7, block);
-+ else if (!strncmp (type_name, "union ", 6))
-+ type = lookup_union (type_name + 6, block);
-+ else if (!strncmp (type_name, "enum ", 5))
-+ type = lookup_enum (type_name + 5, block);
-+ else
-+ type = lookup_typename (type_name, block, 0);
-+ }
-+ if (except.reason < 0)
-+ {
-+ PyErr_Format (except.reason == RETURN_QUIT
-+ ? PyExc_KeyboardInterrupt : PyExc_RuntimeError,
-+ "%s", except.message);
-+ return NULL;
-+ }
-+
-+ return type;
-+}
-+
-+static struct type *
-+typy_lookup_type (struct demangle_component *demangled,
-+ struct block *block)
-+{
-+ struct type *type;
-+ char *type_name;
-+ enum demangle_component_type demangled_type;
-+
-+ /* Save the type: typy_lookup_type() may (indirectly) overwrite
-+ memory pointed by demangled. */
-+ demangled_type = demangled->type;
-+
-+ if (demangled_type == DEMANGLE_COMPONENT_POINTER
-+ || demangled_type == DEMANGLE_COMPONENT_REFERENCE
-+ || demangled_type == DEMANGLE_COMPONENT_CONST
-+ || demangled_type == DEMANGLE_COMPONENT_VOLATILE)
-+ {
-+ type = typy_lookup_type (demangled->u.s_binary.left, block);
-+ if (! type)
-+ return NULL;
-+
-+ switch (demangled_type)
-+ {
-+ case DEMANGLE_COMPONENT_REFERENCE:
-+ return lookup_reference_type (type);
-+ case DEMANGLE_COMPONENT_POINTER:
-+ return lookup_pointer_type (type);
-+ case DEMANGLE_COMPONENT_CONST:
-+ return make_cv_type (1, 0, type, NULL);
-+ case DEMANGLE_COMPONENT_VOLATILE:
-+ return make_cv_type (0, 1, type, NULL);
-+ }
-+ }
-+
-+ type_name = cp_comp_to_string (demangled, 10);
-+ type = typy_lookup_typename (type_name, block);
-+ xfree (type_name);
-+
-+ return type;
-+}
-+
-+static PyObject *
-+typy_template_argument (PyObject *self, PyObject *args)
-+{
-+ int i, argno, n_pointers;
-+ struct type *type = ((type_object *) self)->type;
-+ struct demangle_component *demangled;
-+ const char *err;
-+ struct type *argtype;
-+ struct block *block = NULL;
-+ PyObject *block_obj = NULL;
-+
-+ if (! PyArg_ParseTuple (args, "i|O", &argno, &block_obj))
-+ return NULL;
-+
-+ if (block_obj)
-+ {
-+ block = block_object_to_block (block_obj);
-+ if (! block)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError,
-+ "second argument must be block");
-+ return NULL;
-+ }
-+ }
-+
-+ type = check_typedef (type);
-+ if (TYPE_CODE (type) == TYPE_CODE_REF)
-+ type = check_typedef (TYPE_TARGET_TYPE (type));
-+
-+ if (TYPE_NAME (type) == NULL)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "null type name");
-+ return NULL;
-+ }
-+
-+ /* Note -- this is not thread-safe. */
-+ demangled = cp_demangled_name_to_comp (TYPE_NAME (type), &err);
-+ if (! demangled)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, err);
-+ return NULL;
-+ }
-+
-+ /* Strip off component names. */
-+ while (demangled->type == DEMANGLE_COMPONENT_QUAL_NAME
-+ || demangled->type == DEMANGLE_COMPONENT_LOCAL_NAME)
-+ demangled = demangled->u.s_binary.right;
-+
-+ if (demangled->type != DEMANGLE_COMPONENT_TEMPLATE)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "type is not a template");
-+ return NULL;
-+ }
-+
-+ /* Skip from the template to the arguments. */
-+ demangled = demangled->u.s_binary.right;
-+
-+ for (i = 0; demangled && i < argno; ++i)
-+ demangled = demangled->u.s_binary.right;
-+
-+ if (! demangled)
-+ {
-+ PyErr_Format (PyExc_RuntimeError, "no argument %d in template",
-+ argno);
-+ return NULL;
-+ }
-+
-+ argtype = typy_lookup_type (demangled->u.s_binary.left, block);
-+ if (! argtype)
-+ return NULL;
-+
-+ return type_to_type_object (argtype);
-+}
-+
-+static PyObject *
-+typy_str (PyObject *self)
-+{
-+ volatile struct gdb_exception except;
-+ char *thetype = NULL;
-+ PyObject *result;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ struct cleanup *old_chain;
-+ struct ui_file *stb;
-+ long length;
-+
-+ stb = mem_fileopen ();
-+ old_chain = make_cleanup_ui_file_delete (stb);
-+
-+ type_print (type_object_to_type (self), "", stb, -1);
-+
-+ thetype = ui_file_xstrdup (stb, &length);
-+ do_cleanups (old_chain);
-+ }
-+ if (except.reason < 0)
-+ {
-+ xfree (thetype);
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+ }
-+
-+ result = PyUnicode_Decode (thetype, strlen (thetype), host_charset (), NULL);
-+ xfree (thetype);
-+
-+ return result;
-+}
-+
-+\f
-+
-+static const struct objfile_data *typy_objfile_data_key;
-+
-+static void
-+clean_up_objfile_types (struct objfile *objfile, void *datum)
-+{
-+ type_object *obj = datum;
-+ htab_t copied_types;
-+ struct cleanup *cleanup;
-+ PyGILState_STATE state;
-+
-+ /* This prevents another thread from freeing the objects we're
-+ operating on. */
-+ state = PyGILState_Ensure ();
-+ cleanup = make_cleanup_py_restore_gil (&state);
-+
-+ copied_types = create_copied_types_hash (objfile);
-+
-+ while (obj)
-+ {
-+ type_object *next = obj->next;
-+
-+ htab_empty (copied_types);
-+
-+ /* No need to decref the old type here, since we know it has no
-+ reference count. */
-+ gdb_assert (objfile == TYPE_OBJFILE (obj->type));
-+ obj->type = copy_type_recursive (obj->type, copied_types);
-+ type_incref (obj->type);
-+
-+ obj->next = NULL;
-+ obj->prev = NULL;
-+
-+ obj = next;
-+ }
-+
-+ htab_delete (copied_types);
-+
-+ do_cleanups (cleanup);
-+}
-+
-+static void
-+set_type (type_object *obj, struct type *type)
-+{
-+ obj->type = type;
-+ type_incref (type);
-+ obj->prev = NULL;
-+ if (type && !OBJFILE_IS_VIRTUAL (TYPE_OBJFILE (type)))
-+ {
-+ struct objfile *objfile = TYPE_OBJFILE (type);
-+
-+ obj->next = objfile_data (objfile, typy_objfile_data_key);
-+ if (obj->next)
-+ obj->next->prev = obj;
-+ set_objfile_data (objfile, typy_objfile_data_key, obj);
-+ }
-+ else
-+ obj->next = NULL;
-+}
-+
-+static PyObject *
-+typy_new (PyTypeObject *subtype, PyObject *args, PyObject *kwargs)
-+{
-+ char *type_name = NULL;
-+ struct type *type = NULL;
-+ type_object *result;
-+ PyObject *block_obj = NULL;
-+ struct block *block = NULL;
-+
-+ /* FIXME: it is strange to allow a Type with no name, but we need
-+ this for type_to_type_object. */
-+ if (! PyArg_ParseTuple (args, "|sO", &type_name, &block_obj))
-+ return NULL;
-+
-+ if (block_obj)
-+ {
-+ block = block_object_to_block (block_obj);
-+ if (! block)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError,
-+ "second argument must be block");
-+ return NULL;
-+ }
-+ }
-+
-+ if (type_name)
-+ {
-+ type = typy_lookup_typename (type_name, block);
-+ if (! type)
-+ return NULL;
-+ }
-+
-+ result = (type_object *) subtype->tp_alloc (subtype, 1);
-+ if (! result)
-+ return NULL;
-+
-+ set_type (result, type);
-+
-+ return (PyObject *) result;
-+}
-+
-+static void
-+typy_dealloc (PyObject *obj)
-+{
-+ type_object *type = (type_object *) obj;
-+
-+ if (type->type)
-+ type_decref (type->type);
-+
-+ if (type->prev)
-+ type->prev->next = type->next;
-+ else if (type->type && !OBJFILE_IS_VIRTUAL (TYPE_OBJFILE (type->type)))
-+ {
-+ /* Must reset head of list. */
-+ struct objfile *objfile = TYPE_OBJFILE (type->type);
-+ if (objfile)
-+ set_objfile_data (objfile, typy_objfile_data_key, type->next);
-+ }
-+ if (type->next)
-+ type->next->prev = type->prev;
-+
-+ type->ob_type->tp_free (type);
-+}
-+
-+/* Create a new Type referring to TYPE. */
-+PyObject *
-+type_to_type_object (struct type *type)
-+{
-+ type_object *type_obj;
-+
-+ type_obj = PyObject_New (type_object, &type_object_type);
-+ if (type_obj)
-+ set_type (type_obj, type);
-+
-+ return (PyObject *) type_obj;
-+}
-+
-+struct type *
-+type_object_to_type (PyObject *obj)
-+{
-+ if (! PyObject_TypeCheck (obj, &type_object_type))
-+ return NULL;
-+ return ((type_object *) obj)->type;
-+}
-+
-+\f
-+
-+void
-+gdbpy_initialize_types (void)
-+{
-+ int i;
-+
-+ typy_objfile_data_key
-+ = register_objfile_data_with_cleanup (clean_up_objfile_types);
-+
-+ if (PyType_Ready (&type_object_type) < 0)
-+ return;
-+ if (PyType_Ready (&field_object_type) < 0)
-+ return;
-+
-+ for (i = 0; pyty_codes[i].name; ++i)
-+ {
-+ if (PyModule_AddIntConstant (gdb_module,
-+ /* Cast needed for Python 2.4. */
-+ (char *) pyty_codes[i].name,
-+ pyty_codes[i].code) < 0)
-+ return;
-+ }
-+
-+ Py_INCREF (&type_object_type);
-+ PyModule_AddObject (gdb_module, "Type", (PyObject *) &type_object_type);
-+
-+ Py_INCREF (&field_object_type);
-+ PyModule_AddObject (gdb_module, "Field", (PyObject *) &field_object_type);
-+}
-+
-+\f
-+
-+static PyMethodDef type_object_methods[] =
-+{
-+ { "code", typy_code, METH_NOARGS, "Return the code for this type" },
-+ { "const", typy_const, METH_NOARGS, "Return a const variant of this type" },
-+ { "fields", typy_fields, METH_NOARGS,
-+ "Return a sequence holding all the fields of this type.\n\
-+Each field is a dictionary." },
-+ { "pointer", typy_pointer, METH_NOARGS, "Return pointer to this type" },
-+ { "reference", typy_reference, METH_NOARGS, "Return reference to this type" },
-+ { "sizeof", typy_sizeof, METH_NOARGS,
-+ "Return the size of this type, in bytes" },
-+ { "tag", typy_tag, METH_NOARGS,
-+ "Return the tag name for this type, or None." },
-+ { "strip_typedefs", typy_strip_typedefs, METH_NOARGS,
-+ "Return a type stripped of typedefs"},
-+ { "target", typy_target, METH_NOARGS,
-+ "Return the target type of this type" },
-+ { "template_argument", typy_template_argument, METH_VARARGS,
-+ "Return a single template argument type" },
-+ { "unqualified", typy_unqualified, METH_NOARGS,
-+ "Return a variant of this type without const or volatile attributes" },
-+ { "volatile", typy_volatile, METH_NOARGS,
-+ "Return a volatile variant of this type" },
-+ { NULL }
-+};
-+
-+static PyTypeObject type_object_type =
-+{
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /*ob_size*/
-+ "gdb.Type", /*tp_name*/
-+ sizeof (type_object), /*tp_basicsize*/
-+ 0, /*tp_itemsize*/
-+ typy_dealloc, /*tp_dealloc*/
-+ 0, /*tp_print*/
-+ 0, /*tp_getattr*/
-+ 0, /*tp_setattr*/
-+ 0, /*tp_compare*/
-+ 0, /*tp_repr*/
-+ 0, /*tp_as_number*/
-+ 0, /*tp_as_sequence*/
-+ 0, /*tp_as_mapping*/
-+ 0, /*tp_hash */
-+ 0, /*tp_call*/
-+ typy_str, /*tp_str*/
-+ 0, /*tp_getattro*/
-+ 0, /*tp_setattro*/
-+ 0, /*tp_as_buffer*/
-+ Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_ITER, /*tp_flags*/
-+ "GDB type object", /* tp_doc */
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ 0, /* tp_iter */
-+ 0, /* tp_iternext */
-+ type_object_methods, /* tp_methods */
-+ 0, /* tp_members */
-+ 0, /* tp_getset */
-+ 0, /* tp_base */
-+ 0, /* tp_dict */
-+ 0, /* tp_descr_get */
-+ 0, /* tp_descr_set */
-+ 0, /* tp_dictoffset */
-+ 0, /* tp_init */
-+ 0, /* tp_alloc */
-+ typy_new, /* tp_new */
-+};
-+
-+static PyTypeObject field_object_type =
-+{
-+ PyObject_HEAD_INIT (NULL)
-+ 0, /*ob_size*/
-+ "gdb.Field", /*tp_name*/
-+ sizeof (field_object), /*tp_basicsize*/
-+ 0, /*tp_itemsize*/
-+ field_dealloc, /*tp_dealloc*/
-+ 0, /*tp_print*/
-+ 0, /*tp_getattr*/
-+ 0, /*tp_setattr*/
-+ 0, /*tp_compare*/
-+ 0, /*tp_repr*/
-+ 0, /*tp_as_number*/
-+ 0, /*tp_as_sequence*/
-+ 0, /*tp_as_mapping*/
-+ 0, /*tp_hash */
-+ 0, /*tp_call*/
-+ 0, /*tp_str*/
-+ 0, /*tp_getattro*/
-+ 0, /*tp_setattro*/
-+ 0, /*tp_as_buffer*/
-+ Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_ITER, /*tp_flags*/
-+ "GDB field object", /* tp_doc */
-+ 0, /* tp_traverse */
-+ 0, /* tp_clear */
-+ 0, /* tp_richcompare */
-+ 0, /* tp_weaklistoffset */
-+ 0, /* tp_iter */
-+ 0, /* tp_iternext */
-+ 0, /* tp_methods */
-+ 0, /* tp_members */
-+ 0, /* tp_getset */
-+ 0, /* tp_base */
-+ 0, /* tp_dict */
-+ 0, /* tp_descr_get */
-+ 0, /* tp_descr_set */
-+ offsetof (field_object, dict), /* tp_dictoffset */
-+ 0, /* tp_init */
-+ 0, /* tp_alloc */
-+ 0, /* tp_new */
-+};
-diff --git a/gdb/python/python-utils.c b/gdb/python/python-utils.c
-index ddac2f5..f9c9486 100644
---- a/gdb/python/python-utils.c
-+++ b/gdb/python/python-utils.c
-@@ -19,6 +19,7 @@
-
- #include "defs.h"
- #include "charset.h"
-+#include "value.h"
- #include "python-internal.h"
-
-
-@@ -99,8 +100,8 @@ python_string_to_unicode (PyObject *obj)
- }
-
- /* Returns a newly allocated string with the contents of the given unicode
-- string object converted to CHARSET. If an error occurs during the
-- conversion, NULL will be returned and a python exception will be set.
-+ string object converted to a named charset. If an error occurs during
-+ the conversion, NULL will be returned and a python exception will be set.
-
- The caller is responsible for xfree'ing the string. */
- static char *
-@@ -191,3 +192,48 @@ gdbpy_is_string (PyObject *obj)
- {
- return PyString_Check (obj) || PyUnicode_Check (obj);
- }
-+
-+/* Converts OBJ to a CORE_ADDR value.
-+
-+ Returns 1 on success or 0 on failure, with a Python exception set. This
-+ function can also throw GDB exceptions. */
-+
-+int
-+get_addr_from_python (PyObject *obj, CORE_ADDR *addr)
-+{
-+ if (gdbpy_is_value_object (obj))
-+ *addr = value_as_address (value_object_to_value (obj));
-+ else if (PyLong_Check (obj))
-+ {
-+ /* Assume CORE_ADDR corresponds to unsigned long. */
-+ *addr = PyLong_AsUnsignedLong (obj);
-+ if (PyErr_Occurred () != NULL)
-+ return 0;
-+ }
-+ else if (PyInt_Check (obj))
-+ {
-+ long val;
-+
-+ /* Assume CORE_ADDR corresponds to unsigned long. */
-+ val = PyInt_AsLong (obj);
-+
-+ if (val >= 0)
-+ *addr = val;
-+ else
-+ {
-+ /* If no error ocurred, VAL is indeed negative. */
-+ if (PyErr_Occurred () != NULL)
-+ return 0;
-+
-+ PyErr_SetString (PyExc_ValueError, "negative address");
-+ return 0;
-+ }
-+ }
-+ else
-+ {
-+ PyErr_SetString (PyExc_TypeError, "invalid type for address");
-+ return 0;
-+ }
-+
-+ return 1;
-+}
-diff --git a/gdb/python/python-value.c b/gdb/python/python-value.c
-index bc077b6..2507fcd 100644
---- a/gdb/python/python-value.c
-+++ b/gdb/python/python-value.c
-@@ -52,6 +52,10 @@ struct value *values_in_python = NULL;
- /* Python's long type corresponds to C's long long type. */
- #define builtin_type_pylong builtin_type (current_gdbarch)->builtin_long_long
-
-+/* Python's long type corresponds to C's long long type. Unsigned version. */
-+#define builtin_type_upylong builtin_type \
-+ (current_gdbarch)->builtin_unsigned_long_long
-+
- #define builtin_type_pybool \
- language_bool_type (current_language, current_gdbarch)
-
-@@ -143,10 +147,19 @@ valpy_address (PyObject *self, PyObject *args)
- return value_to_value_object (res_val);
- }
-
--/* Return Unicode string with value contents (assumed to be encoded in the
-- target's charset). */
-+/* Return type of the value. */
-+static PyObject *
-+valpy_type (PyObject *self, PyObject *args)
-+{
-+ struct value *value = ((value_object *) self)->value;
-+ return type_to_type_object (value_type (value));
-+}
-+
-+/* Implementation of gdb.Value.string ([encoding] [, errors]) -> string
-+ Return Unicode string with value contents. If ENCODING is not given,
-+ the string is assumed to be encoded in the target's charset. */
- static PyObject *
--valpy_string (PyObject *self, PyObject *args)
-+valpy_string (PyObject *self, PyObject *args, PyObject *kw)
- {
- int length, ret = 0;
- gdb_byte *buffer;
-@@ -157,8 +170,10 @@ valpy_string (PyObject *self, PyObject *args)
- const char *errors = NULL;
- const char *user_encoding = NULL;
- const char *la_encoding = NULL;
-+ static char *keywords[] = { "encoding", "errors" };
-
-- if (!PyArg_ParseTuple (args, "|ss", &user_encoding, &errors))
-+ if (!PyArg_ParseTupleAndKeywords (args, kw, "|ss", keywords,
-+ &user_encoding, &errors))
- return NULL;
-
- TRY_CATCH (except, RETURN_MASK_ALL)
-@@ -174,6 +189,34 @@ valpy_string (PyObject *self, PyObject *args)
- return unicode;
- }
-
-+/* Cast a value to a given type. */
-+static PyObject *
-+valpy_cast (PyObject *self, PyObject *args)
-+{
-+ PyObject *type_obj;
-+ struct type *type;
-+ struct value *res_val = NULL; /* Initialize to appease gcc warning. */
-+ volatile struct gdb_exception except;
-+
-+ if (! PyArg_ParseTuple (args, "O", &type_obj))
-+ return NULL;
-+
-+ type = type_object_to_type (type_obj);
-+ if (! type)
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "argument must be a Type");
-+ return NULL;
-+ }
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ res_val = value_cast (type, ((value_object *) self)->value);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return value_to_value_object (res_val);
-+}
-+
- static Py_ssize_t
- valpy_length (PyObject *self)
- {
-@@ -306,11 +349,11 @@ valpy_binop (enum valpy_opcode opcode, PyObject *self, PyObject *other)
- a gdb.Value object and need to convert it from python as well. */
- arg1 = convert_value_from_python (self);
- if (arg1 == NULL)
-- return NULL;
-+ break;
-
- arg2 = convert_value_from_python (other);
- if (arg2 == NULL)
-- return NULL;
-+ break;
-
- switch (opcode)
- {
-@@ -387,7 +430,7 @@ valpy_binop (enum valpy_opcode opcode, PyObject *self, PyObject *other)
- }
- GDB_PY_HANDLE_EXCEPTION (except);
-
-- return value_to_value_object (res_val);
-+ return res_val ? value_to_value_object (res_val) : NULL;
- }
-
- static PyObject *
-@@ -718,6 +761,17 @@ value_to_value_object (struct value *val)
- return (PyObject *) val_obj;
- }
-
-+/* Returns value structure corresponding to the given value object. */
-+struct value *
-+value_object_to_value (PyObject *self)
-+{
-+ value_object *real;
-+ if (! PyObject_TypeCheck (self, &value_object_type))
-+ return NULL;
-+ real = (value_object *) self;
-+ return real->value;
-+}
-+
- /* Try to convert a Python value to a gdb value. If the value cannot
- be converted, set a Python exception and return NULL. */
-
-@@ -751,7 +805,34 @@ convert_value_from_python (PyObject *obj)
- {
- LONGEST l = PyLong_AsLongLong (obj);
-
-- if (! PyErr_Occurred ())
-+ if (PyErr_Occurred ())
-+ {
-+ /* If the error was an overflow, we can try converting to
-+ ULONGEST instead. */
-+ if (PyErr_ExceptionMatches (PyExc_OverflowError))
-+ {
-+ PyObject *etype, *evalue, *etraceback, *zero;
-+
-+ PyErr_Fetch (&etype, &evalue, &etraceback);
-+ zero = PyInt_FromLong (0);
-+
-+ /* Check whether obj is positive. */
-+ if (PyObject_RichCompareBool (obj, zero, Py_GT) > 0)
-+ {
-+ ULONGEST ul;
-+
-+ ul = PyLong_AsUnsignedLongLong (obj);
-+ if (! PyErr_Occurred ())
-+ value = value_from_ulongest (builtin_type_upylong, ul);
-+ }
-+ else
-+ /* There's nothing we can do. */
-+ PyErr_Restore (etype, evalue, etraceback);
-+
-+ Py_DECREF (zero);
-+ }
-+ }
-+ else
- value = value_from_longest (builtin_type_pylong, l);
- }
- else if (PyFloat_Check (obj))
-@@ -774,7 +855,7 @@ convert_value_from_python (PyObject *obj)
- }
- }
- else if (PyObject_TypeCheck (obj, &value_object_type))
-- value = ((value_object *) obj)->value;
-+ value = value_copy (((value_object *) obj)->value);
- else
- PyErr_Format (PyExc_TypeError, _("Could not convert Python object: %s"),
- PyString_AsString (PyObject_Str (obj)));
-@@ -810,6 +891,14 @@ gdbpy_history (PyObject *self, PyObject *args)
- return value_to_value_object (res_val);
- }
-
-+/* Returns 1 in OBJ is a gdb.Value object, 0 otherwise. */
-+
-+int
-+gdbpy_is_value_object (PyObject *obj)
-+{
-+ return PyObject_TypeCheck (obj, &value_object_type);
-+}
-+
- void
- gdbpy_initialize_values (void)
- {
-@@ -822,11 +911,16 @@ gdbpy_initialize_values (void)
- values_in_python = NULL;
- }
-
-+\f
-+
- static PyMethodDef value_object_methods[] = {
- { "address", valpy_address, METH_NOARGS, "Return the address of the value." },
-+ { "cast", valpy_cast, METH_VARARGS, "Cast the value to the supplied type." },
- { "dereference", valpy_dereference, METH_NOARGS, "Dereferences the value." },
-- { "string", valpy_string, METH_VARARGS,
-- "Return Unicode string representation of the value." },
-+ { "type", valpy_type, METH_NOARGS, "Return type of the value." },
-+ { "string", (PyCFunction) valpy_string, METH_VARARGS | METH_KEYWORDS,
-+ "string ([encoding] [, errors]) -> string\n\
-+Return Unicode string representation of the value." },
- {NULL} /* Sentinel */
- };
-
-diff --git a/gdb/python/python.c b/gdb/python/python.c
-index b3a27d6..2b06748 100644
---- a/gdb/python/python.c
-+++ b/gdb/python/python.c
-@@ -22,6 +22,12 @@
- #include "ui-out.h"
- #include "cli/cli-script.h"
- #include "gdbcmd.h"
-+#include "objfiles.h"
-+#include "observer.h"
-+#include "gdb_regex.h"
-+#include "language.h"
-+#include "valprint.h"
-+#include "event-loop.h"
-
- #include <ctype.h>
-
-@@ -29,6 +35,10 @@
- false otherwise. */
- static int gdbpy_should_print_stack = 1;
-
-+/* This is true if we should auto-load python code when an objfile is
-+ opened, false otherwise. */
-+static int gdbpy_auto_load = 1;
-+
- #ifdef HAVE_PYTHON
-
- #include "python.h"
-@@ -36,16 +46,29 @@ static int gdbpy_should_print_stack = 1;
- #include "cli/cli-decode.h"
- #include "charset.h"
- #include "top.h"
-+#include "solib.h"
- #include "exceptions.h"
- #include "python-internal.h"
-+#include "linespec.h"
-+#include "symtab.h"
-+#include "source.h"
- #include "version.h"
-+#include "inferior.h"
-+#include "gdbthread.h"
- #include "target.h"
- #include "gdbthread.h"
-+#include "event-top.h"
-+
-+static PyMethodDef GdbMethods[];
-
- static PyMethodDef GdbMethods[];
-
- PyObject *gdb_module;
-
-+/* Some string constants we may wish to use. */
-+PyObject *gdbpy_to_string_cst;
-+PyObject *gdbpy_children_cst;
-+PyObject *gdbpy_display_hint_cst;
- PyObject *gdbpy_doc_cst;
-
- /* Given a command_line, return a command string suitable for passing
-@@ -143,10 +166,10 @@ python_command (char *arg, int from_tty)
- NULL (and set a Python exception) on error. Helper function for
- get_parameter. */
-
--static PyObject *
--parameter_to_python (struct cmd_list_element *cmd)
-+PyObject *
-+gdbpy_parameter_value (enum var_types type, void *var)
- {
-- switch (cmd->var_type)
-+ switch (type)
- {
- case var_string:
- case var_string_noescape:
-@@ -154,7 +177,7 @@ parameter_to_python (struct cmd_list_element *cmd)
- case var_filename:
- case var_enum:
- {
-- char *str = * (char **) cmd->var;
-+ char *str = * (char **) var;
- if (! str)
- str = "";
- return PyString_Decode (str, strlen (str), host_charset (), NULL);
-@@ -162,7 +185,7 @@ parameter_to_python (struct cmd_list_element *cmd)
-
- case var_boolean:
- {
-- if (* (int *) cmd->var)
-+ if (* (int *) var)
- Py_RETURN_TRUE;
- else
- Py_RETURN_FALSE;
-@@ -170,7 +193,7 @@ parameter_to_python (struct cmd_list_element *cmd)
-
- case var_auto_boolean:
- {
-- enum auto_boolean ab = * (enum auto_boolean *) cmd->var;
-+ enum auto_boolean ab = * (enum auto_boolean *) var;
- if (ab == AUTO_BOOLEAN_TRUE)
- Py_RETURN_TRUE;
- else if (ab == AUTO_BOOLEAN_FALSE)
-@@ -180,15 +203,15 @@ parameter_to_python (struct cmd_list_element *cmd)
- }
-
- case var_integer:
-- if ((* (int *) cmd->var) == INT_MAX)
-+ if ((* (int *) var) == INT_MAX)
- Py_RETURN_NONE;
- /* Fall through. */
- case var_zinteger:
-- return PyLong_FromLong (* (int *) cmd->var);
-+ return PyLong_FromLong (* (int *) var);
-
- case var_uinteger:
- {
-- unsigned int val = * (unsigned int *) cmd->var;
-+ unsigned int val = * (unsigned int *) var;
- if (val == UINT_MAX)
- Py_RETURN_NONE;
- return PyLong_FromUnsignedLong (val);
-@@ -202,10 +225,11 @@ parameter_to_python (struct cmd_list_element *cmd)
- value. */
-
- static PyObject *
--get_parameter (PyObject *self, PyObject *args)
-+gdbpy_parameter (PyObject *self, PyObject *args)
- {
- struct cmd_list_element *alias, *prefix, *cmd;
- char *arg, *newarg;
-+ int found = -1;
- volatile struct gdb_exception except;
-
- if (! PyArg_ParseTuple (args, "s", &arg))
-@@ -215,19 +239,17 @@ get_parameter (PyObject *self, PyObject *args)
-
- TRY_CATCH (except, RETURN_MASK_ALL)
- {
-- if (! lookup_cmd_composition (newarg, &alias, &prefix, &cmd))
-- {
-- xfree (newarg);
-- return PyErr_Format (PyExc_RuntimeError,
-- "could not find variable `%s'", arg);
-- }
-+ found = lookup_cmd_composition (newarg, &alias, &prefix, &cmd);
- }
- xfree (newarg);
- GDB_PY_HANDLE_EXCEPTION (except);
-+ if (!found)
-+ return PyErr_Format (PyExc_RuntimeError,
-+ "could not find parameter `%s'", arg);
-
- if (! cmd->var)
-- return PyErr_Format (PyExc_RuntimeError, "`%s' is not a variable", arg);
-- return parameter_to_python (cmd);
-+ return PyErr_Format (PyExc_RuntimeError, "`%s' is not a parameter", arg);
-+ return gdbpy_parameter_value (cmd->var_type, cmd->var);
- }
-
- /* A Python function which evaluates a string using the gdb CLI. */
-@@ -266,6 +288,570 @@ execute_gdb_command (PyObject *self, PyObject *args)
- Py_RETURN_NONE;
- }
-
-+/* Implementation of gdb.solib_address (Long) -> String.
-+ Returns the name of the shared library holding a given address, or None. */
-+
-+static PyObject *
-+gdbpy_solib_address (PyObject *self, PyObject *args)
-+{
-+ unsigned long long pc;
-+ char *soname;
-+ PyObject *str_obj;
-+
-+ if (!PyArg_ParseTuple (args, "K", &pc))
-+ return NULL;
-+
-+ soname = solib_address (pc);
-+ if (soname)
-+ str_obj = PyString_Decode (soname, strlen (soname), host_charset (), NULL);
-+ else
-+ {
-+ str_obj = Py_None;
-+ Py_INCREF (Py_None);
-+ }
-+
-+ return str_obj;
-+}
-+
-+static PyObject *
-+gdbpy_find_pc_function (PyObject *self, PyObject *args)
-+{
-+ unsigned long long pc;
-+ struct symbol *sym;
-+ PyObject *sym_obj;
-+
-+ if (!PyArg_ParseTuple (args, "K", &pc))
-+ return NULL;
-+
-+ sym = find_pc_function (pc);
-+ if (sym)
-+ return symbol_to_symbol_object (sym);
-+
-+ Py_RETURN_NONE;
-+}
-+
-+/* Adds GDB value V to the pattern buffer in *PATTERN_BUF. If SIZE is not zero,
-+ it specifies the number of bytes from V to copy to *PATTERN_BUF. The
-+ function increases the size of *PATTERN_BUF as necessary, adjusting
-+ *PATTERN_BUF_END and *PATTERN_BUF_SIZE in the process. */
-+
-+static void
-+add_value_pattern (struct value *v, int size, char **pattern_buf,
-+ char **pattern_buf_end, ULONGEST *pattern_buf_size)
-+{
-+ int val_bytes;
-+
-+ if (size)
-+ {
-+ LONGEST x = value_as_long (v);
-+
-+ if (size == 1)
-+ *(*pattern_buf_end)++ = x;
-+ else
-+ {
-+ put_bits (x, *pattern_buf_end, size * 8,
-+ gdbarch_byte_order (current_gdbarch) == BFD_ENDIAN_BIG);
-+ *pattern_buf_end += size;
-+ }
-+ }
-+ else
-+ {
-+ val_bytes = TYPE_LENGTH (value_type (v));
-+
-+ increase_pattern_buffer (pattern_buf, pattern_buf_end,
-+ pattern_buf_size, val_bytes);
-+
-+ memcpy (*pattern_buf_end, value_contents_raw (v), val_bytes);
-+ *pattern_buf_end += val_bytes;
-+ }
-+}
-+
-+/* This function does the actual work of constructing the pattern buffer from
-+ OBJ. If OBJ is an object which implements the read buffer protocol (such
-+ as a string, a byte array or gdb.Membuf), then its contents are directly
-+ copied to *PATTERN_BUF. If it is a list, then this function is recursively
-+ called for each of its elements. If OBJ is an object which can be converted
-+ to a GDB value, then the contents of the value are copied to PATTERN_BUF.
-+ If SIZE is different than zero, then it limits the number of bytes which
-+ are copied to the buffer in case OBJ is converted to a GDB value. That
-+ means that SIZE influences only Python scalars and gdb.Value objects.
-+ The function increases the size of *PATTERN_BUF as necessary, adjusting
-+ *PATTERN_BUF_END and *PATTERN_BUF_SIZE in the process.
-+
-+ Returns 1 on success or 0 on failure, with a Python exception set. This
-+ function can also throw GDB exceptions. */
-+
-+static int
-+add_pattern_element (PyObject *obj, int size, char **pattern_buf,
-+ char **pattern_buf_end, ULONGEST *pattern_buf_size)
-+{
-+ if (PyObject_CheckReadBuffer (obj))
-+ {
-+ /* Handle string, Unicode string, byte array, gdb.Membuf and any other
-+ object implementing the buffer protocol. The SIZE parameter is
-+ ignored in this case. */
-+
-+ Py_ssize_t val_bytes;
-+ const void *buffer;
-+
-+ if (PyObject_AsReadBuffer (obj, &buffer, &val_bytes) == -1)
-+ return 0;
-+
-+ increase_pattern_buffer (pattern_buf, pattern_buf_end,
-+ pattern_buf_size, val_bytes);
-+
-+ memcpy (*pattern_buf_end, buffer, val_bytes);
-+ *pattern_buf_end += val_bytes;
-+ }
-+ else if (gdbpy_is_value_object (obj))
-+ add_value_pattern (value_object_to_value (obj), size, pattern_buf,
-+ pattern_buf_end, pattern_buf_size);
-+ else if (PySequence_Check (obj))
-+ {
-+ /* Handle lists and tuples. */
-+
-+ Py_ssize_t i, num_objs;
-+
-+ num_objs = PySequence_Size (obj);
-+ for (i = 0; i < num_objs; i++)
-+ if (!add_pattern_element (PySequence_GetItem (obj, i), size,
-+ pattern_buf, pattern_buf_end,
-+ pattern_buf_size))
-+ return 0;
-+ }
-+ else
-+ {
-+ /* See if we can convert from a Python object to a GDB value. */
-+
-+ struct value *v = convert_value_from_python (obj);
-+
-+ if (v)
-+ add_value_pattern (v, size, pattern_buf, pattern_buf_end,
-+ pattern_buf_size);
-+ else
-+ return 0;
-+ }
-+
-+ return 1;
-+}
-+
-+/* Constructs the search pattern from OBJ, putting it in *PATTERN_BUFP, and its
-+ size in *PATTERN_LENP. See the function add_pattern_element to learn how
-+ the search pattern is obtained from OBJ.
-+
-+ Returns 1 on success or 0 on failure, with a Python exception set. This
-+ function can also throw GDB exceptions. */
-+
-+static int
-+get_search_pattern (PyObject *obj, int size, char **pattern_bufp,
-+ ULONGEST *pattern_lenp)
-+{
-+ /* Buffer to hold the search pattern. */
-+ char *pattern_buf;
-+ /* Current size of search pattern buffer.
-+ We realloc space as needed. */
-+ ULONGEST pattern_buf_size;
-+ /* Pointer to one past the last in-use part of pattern_buf. */
-+ char *pattern_buf_end;
-+ struct cleanup *old_cleanups;
-+
-+ allocate_pattern_buffer (&pattern_buf, &pattern_buf_end, &pattern_buf_size);
-+ old_cleanups = make_cleanup (free_current_contents, &pattern_buf);
-+
-+ if (!add_pattern_element (obj, size, &pattern_buf, &pattern_buf_end,
-+ &pattern_buf_size))
-+ {
-+ do_cleanups (old_cleanups);
-+
-+ return 0;
-+ }
-+
-+ *pattern_bufp = pattern_buf;
-+ *pattern_lenp = pattern_buf_end - pattern_buf;
-+
-+ discard_cleanups (old_cleanups);
-+
-+ return 1;
-+}
-+
-+/* Implementation of
-+ gdb.search_memory (address, length, pattern [, size] [, max_count]).
-+ The third argument may be either a pattern, or a list or tupple of patterns
-+ to be searched. Size is the size in bytes of each search query value, either
-+ 1, 2, 4 or 8. Returns a list of the addresses where matches were found. */
-+
-+PyObject *
-+gdbpy_search_memory (PyObject *self, PyObject *args, PyObject *kw)
-+{
-+ int size = 0;
-+ long length;
-+ unsigned int found_count = 0;
-+ long max_count = 0;
-+ CORE_ADDR start_addr;
-+ char *pattern_buf;
-+ static char *keywords[] = { "address", "length", "pattern", "size",
-+ "max_count", NULL };
-+ ULONGEST pattern_len, search_space_len;
-+ PyObject *pattern, *list = NULL, *start_addr_obj;
-+ volatile struct gdb_exception except;
-+
-+ /* Assume CORE_ADDR corresponds to unsigned long. */
-+ if (! PyArg_ParseTupleAndKeywords (args, kw, "OlO|il", keywords,
-+ &start_addr_obj, &length, &pattern,
-+ &size, &max_count))
-+ return NULL;
-+
-+ if (!max_count)
-+ max_count = LONG_MAX;
-+
-+ if (!length)
-+ {
-+ PyErr_SetString (PyExc_ValueError, "empty search range");
-+ return NULL;
-+ }
-+ else if (length < 0)
-+ {
-+ PyErr_SetString (PyExc_ValueError, "invalid search range");
-+ return NULL;
-+ }
-+ else
-+ {
-+ /* Watch for overflows. */
-+ if (length > CORE_ADDR_MAX
-+ || (start_addr + length - 1) < start_addr)
-+ {
-+ PyErr_SetString (PyExc_ValueError, "search range too large");
-+ return NULL;
-+ }
-+
-+ search_space_len = length;
-+ }
-+
-+ if (size != 0 && size != 1 && size != 2 && size != 4 && size != 8)
-+ {
-+ PyErr_SetString (PyExc_ValueError, "invalid pattern size");
-+ return NULL;
-+ }
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ if (get_addr_from_python (start_addr_obj, &start_addr))
-+ {
-+ if (get_search_pattern (pattern, size, &pattern_buf, &pattern_len))
-+ {
-+ /* Any cleanups get automatically executed on an exception. */
-+ struct cleanup *cleanups = make_cleanup (xfree, pattern_buf);
-+
-+ list = PyList_New (0);
-+
-+ while (search_space_len >= pattern_len && found_count < max_count)
-+ {
-+ CORE_ADDR found_addr;
-+ int found;
-+
-+ found = search_memory (&start_addr, &search_space_len,
-+ pattern_buf, pattern_len, &found_addr);
-+ if (found <= 0)
-+ break;
-+
-+ PyList_Append (list, PyLong_FromUnsignedLong (found_addr));
-+ ++found_count;
-+ }
-+
-+ do_cleanups (cleanups);
-+ }
-+ }
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return list;
-+}
-+
-+/* A Python function which is a wrapper for decode_line_1. */
-+
-+static PyObject *
-+gdbpy_decode_line (PyObject *self, PyObject *args)
-+{
-+ struct symtabs_and_lines sals = { NULL, 0 }; /* Initialize to appease gcc. */
-+ struct symtab_and_line sal;
-+ char *arg = NULL;
-+ int free_sals = 0, i;
-+ PyObject *result = NULL;
-+ volatile struct gdb_exception except;
-+
-+ if (! PyArg_ParseTuple (args, "|s", &arg))
-+ return NULL;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ if (arg)
-+ {
-+ char *copy;
-+
-+ arg = strdup (arg);
-+ copy = arg;
-+
-+ sals = decode_line_1 (©, 0, 0, 0, 0, 0);
-+ free_sals = 1;
-+ }
-+ else
-+ {
-+ set_default_source_symtab_and_line ();
-+ sal = get_current_source_symtab_and_line ();
-+ sals.sals = &sal;
-+ sals.nelts = 1;
-+ }
-+ }
-+ if (arg)
-+ xfree (arg);
-+
-+ if (except.reason < 0)
-+ {
-+ if (free_sals)
-+ xfree (sals.sals);
-+ /* We know this will always throw. */
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+ }
-+
-+ if (sals.nelts)
-+ {
-+ result = PyTuple_New (sals.nelts);
-+ for (i = 0; i < sals.nelts; ++i)
-+ {
-+ PyObject *obj;
-+ char *str;
-+
-+ obj = symtab_and_line_to_sal_object (sals.sals[i]);
-+ if (! obj)
-+ {
-+ Py_DECREF (result);
-+ result = NULL;
-+ break;
-+ }
-+
-+ PyTuple_SetItem (result, i, obj);
-+ }
-+ }
-+
-+ if (free_sals)
-+ xfree (sals.sals);
-+
-+ if (result)
-+ return result;
-+ Py_RETURN_NONE;
-+}
-+
-+/* Parse a string and evaluate it as an expression. */
-+static PyObject *
-+gdbpy_parse_and_eval (PyObject *self, PyObject *args)
-+{
-+ char *expr_str;
-+ struct value *result = NULL;
-+ volatile struct gdb_exception except;
-+
-+ if (!PyArg_ParseTuple (args, "s", &expr_str))
-+ return NULL;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ result = parse_and_eval (expr_str);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ return value_to_value_object (result);
-+}
-+
-+\f
-+
-+/* Posting and handling events. */
-+
-+/* A single event. */
-+struct gdbpy_event
-+{
-+ /* The Python event. This is just a callable object. */
-+ PyObject *event;
-+ /* The next event. */
-+ struct gdbpy_event *next;
-+};
-+
-+/* All pending events. */
-+static struct gdbpy_event *gdbpy_event_list;
-+/* The final link of the event list. */
-+static struct gdbpy_event **gdbpy_event_list_end;
-+
-+/* We use a file handler, and not an async handler, so that we can
-+ wake up the main thread even when it is blocked in poll(). */
-+static int gdbpy_event_fds[2];
-+
-+/* The file handler callback. This reads from the internal pipe, and
-+ then processes the Python event queue. This will always be run in
-+ the main gdb thread. */
-+static void
-+gdbpy_run_events (int err, gdb_client_data ignore)
-+{
-+ PyGILState_STATE state;
-+ char buffer[100];
-+ int r;
-+
-+ state = PyGILState_Ensure ();
-+
-+ /* Just read whatever is available on the fd. It is relatively
-+ harmless if there are any bytes left over. */
-+ r = read (gdbpy_event_fds[0], buffer, sizeof (buffer));
-+
-+ while (gdbpy_event_list)
-+ {
-+ /* Dispatching the event might push a new element onto the event
-+ loop, so we update here "atomically enough". */
-+ struct gdbpy_event *item = gdbpy_event_list;
-+ gdbpy_event_list = gdbpy_event_list->next;
-+ if (gdbpy_event_list == NULL)
-+ gdbpy_event_list_end = &gdbpy_event_list;
-+
-+ /* Ignore errors. */
-+ PyObject_CallObject (item->event, NULL);
-+
-+ Py_DECREF (item->event);
-+ xfree (item);
-+ }
-+
-+ PyGILState_Release (state);
-+}
-+
-+/* Submit an event to the gdb thread. */
-+static PyObject *
-+gdbpy_post_event (PyObject *self, PyObject *args)
-+{
-+ struct gdbpy_event *event;
-+ PyObject *func;
-+ int wakeup;
-+
-+ if (!PyArg_ParseTuple (args, "O", &func))
-+ return NULL;
-+
-+ if (!PyCallable_Check (func))
-+ {
-+ PyErr_SetString (PyExc_RuntimeError, "Posted event is not callable");
-+ return NULL;
-+ }
-+
-+ Py_INCREF (func);
-+
-+ /* From here until the end of the function, we have the GIL, so we
-+ can operate on our global data structures without worrying. */
-+ wakeup = gdbpy_event_list == NULL;
-+
-+ event = XNEW (struct gdbpy_event);
-+ event->event = func;
-+ event->next = NULL;
-+ *gdbpy_event_list_end = event;
-+ gdbpy_event_list_end = &event->next;
-+
-+ /* Wake up gdb when needed. */
-+ if (wakeup)
-+ {
-+ char c = 'q'; /* Anything. */
-+ if (write (gdbpy_event_fds[1], &c, 1) != 1)
-+ return PyErr_SetFromErrno (PyExc_IOError);
-+ }
-+
-+ Py_RETURN_NONE;
-+}
-+
-+/* Initialize the Python event handler. */
-+static void
-+gdbpy_initialize_events (void)
-+{
-+ if (!pipe (gdbpy_event_fds))
-+ {
-+ gdbpy_event_list_end = &gdbpy_event_list;
-+ add_file_handler (gdbpy_event_fds[0], gdbpy_run_events, NULL);
-+ }
-+}
-+
-+\f
-+
-+/* Threads. */
-+
-+/* Callback function for use with iterate_over_threads. This function
-+ just counts the number of threads. */
-+
-+static int
-+count_callback (struct thread_info *info, void *user_data)
-+{
-+ int *count = (int *) user_data;
-+ ++*count;
-+ return 0;
-+}
-+
-+/* Structure for storing some state when iterating over threads. */
-+
-+struct set_thread_info
-+{
-+ PyObject *tuple;
-+ int index;
-+};
-+
-+/* Callback function for use with iterate_over_threads. This function
-+ stores the thread ID into a Python tuple. */
-+
-+static int
-+update_tuple_callback (struct thread_info *info, void *user_data)
-+{
-+ struct set_thread_info *tinfo = (struct set_thread_info *) user_data;
-+ PyTuple_SetItem (tinfo->tuple, tinfo->index, PyInt_FromLong (info->num));
-+ ++tinfo->index;
-+ return 0;
-+}
-+
-+/* Python function which yields a tuple holding all valid thread IDs. */
-+
-+static PyObject *
-+gdbpy_threads (PyObject *unused1, PyObject *unused2)
-+{
-+ int thread_count = 0;
-+ struct set_thread_info info;
-+ PyObject *result;
-+
-+ prune_threads ();
-+ target_find_new_threads ();
-+
-+ iterate_over_threads (count_callback, &thread_count);
-+
-+ if (!thread_count)
-+ Py_RETURN_NONE;
-+
-+ result = PyTuple_New (thread_count);
-+ info.tuple = result;
-+ info.index = 0;
-+ iterate_over_threads (update_tuple_callback, &info);
-+ return result;
-+}
-+
-+/* Python function that returns the current thread's ID. */
-+
-+static PyObject *
-+gdbpy_current_thread (PyObject *unused1, PyObject *unused2)
-+{
-+ if (PIDGET (inferior_ptid) == 0)
-+ Py_RETURN_NONE;
-+ return PyInt_FromLong (pid_to_thread_id (inferior_ptid));
-+}
-+
-+/* Python function for switching to a given thread. */
-+
-+static PyObject *
-+gdbpy_switch_to_thread (PyObject *self, PyObject *args)
-+{
-+ int id;
-+ if (! PyArg_ParseTuple (args, "i", &id))
-+ return NULL;
-+ if (! valid_thread_id (id))
-+ return PyErr_Format (PyExc_RuntimeError, "invalid thread id");
-+ switch_to_thread (thread_id_to_pid (id));
-+ Py_RETURN_NONE;
-+}
-+
- \f
-
- /* Printing. */
-@@ -302,6 +888,769 @@ gdbpy_print_stack (void)
- PyErr_Clear ();
- }
-
-+\f
-+
-+/* Script interface. */
-+
-+/* True if 'gdb -P' was used, false otherwise. */
-+static int running_python_script;
-+
-+/* True if we are currently in a call to 'gdb.cli', false otherwise. */
-+static int in_cli;
-+
-+/* Enter the command loop. */
-+
-+static PyObject *
-+gdbpy_cli (PyObject *unused1, PyObject *unused2)
-+{
-+ if (! running_python_script || in_cli)
-+ return PyErr_Format (PyExc_RuntimeError, "cannot invoke CLI recursively");
-+
-+ in_cli = 1;
-+ cli_command_loop ();
-+ in_cli = 0;
-+
-+ Py_RETURN_NONE;
-+}
-+
-+/* Set up the Python argument vector and evaluate a script. This is
-+ used to implement 'gdb -P'. */
-+
-+void
-+run_python_script (int argc, char **argv)
-+{
-+ FILE *input;
-+ PyGILState_STATE state;
-+
-+ /* We never free this, since we plan to exit at the end. */
-+ state = PyGILState_Ensure ();
-+
-+ running_python_script = 1;
-+ PySys_SetArgv (argc - 1, argv + 1);
-+ input = fopen (argv[0], "r");
-+ if (! input)
-+ {
-+ fprintf (stderr, "could not open %s: %s\n", argv[0], strerror (errno));
-+ exit (1);
-+ }
-+ PyRun_SimpleFile (input, argv[0]);
-+ fclose (input);
-+ exit (0);
-+}
-+
-+void
-+source_python_script (FILE *stream, char *file)
-+{
-+ PyGILState_STATE state;
-+
-+ state = PyGILState_Ensure ();
-+
-+ PyRun_SimpleFile (stream, file);
-+
-+ fclose (stream);
-+ PyGILState_Release (state);
-+}
-+
-+\f
-+
-+/* The "current" objfile. This is set when gdb detects that a new
-+ objfile has been loaded. It is only set for the duration of a call
-+ to gdbpy_new_objfile; it is NULL at other times. */
-+static struct objfile *gdbpy_current_objfile;
-+
-+/* The file name we attempt to read. */
-+#define GDBPY_AUTO_FILENAME "-gdb.py"
-+
-+/* This is a new_objfile observer callback which loads python code
-+ based on the path to the objfile. */
-+static void
-+gdbpy_new_objfile (struct objfile *objfile)
-+{
-+ char *realname;
-+ char *filename, *debugfile;
-+ int len;
-+ FILE *input;
-+ PyGILState_STATE state;
-+ struct cleanup *cleanups;
-+
-+ if (!gdbpy_auto_load || !objfile || !objfile->name)
-+ return;
-+
-+ state = PyGILState_Ensure ();
-+
-+ gdbpy_current_objfile = objfile;
-+
-+ realname = gdb_realpath (objfile->name);
-+ len = strlen (realname);
-+ filename = xmalloc (len + sizeof (GDBPY_AUTO_FILENAME));
-+ memcpy (filename, realname, len);
-+ strcpy (filename + len, GDBPY_AUTO_FILENAME);
-+
-+ input = fopen (filename, "r");
-+ debugfile = filename;
-+
-+ cleanups = make_cleanup (xfree, filename);
-+ make_cleanup (xfree, realname);
-+
-+ if (!input && debug_file_directory)
-+ {
-+ /* Also try the same file in the separate debug info directory. */
-+ debugfile = xmalloc (strlen (filename)
-+ + strlen (debug_file_directory) + 1);
-+ strcpy (debugfile, debug_file_directory);
-+ /* FILENAME is absolute, so we don't need a "/" here. */
-+ strcat (debugfile, filename);
-+
-+ make_cleanup (xfree, debugfile);
-+ input = fopen (debugfile, "r");
-+ }
-+
-+ if (!input && gdb_datadir)
-+ {
-+ /* Also try the same file in a subdirectory of gdb's data
-+ directory. */
-+ debugfile = xmalloc (strlen (gdb_datadir) + strlen (filename)
-+ + strlen ("/auto-load") + 1);
-+ strcpy (debugfile, gdb_datadir);
-+ strcat (debugfile, "/auto-load");
-+ /* FILENAME is absolute, so we don't need a "/" here. */
-+ strcat (debugfile, filename);
-+
-+ make_cleanup (xfree, debugfile);
-+ input = fopen (debugfile, "r");
-+ }
-+
-+ if (input)
-+ {
-+ /* We don't want to throw an exception here -- but the user
-+ would like to know that something went wrong. */
-+ if (PyRun_SimpleFile (input, debugfile))
-+ gdbpy_print_stack ();
-+ fclose (input);
-+ }
-+
-+ do_cleanups (cleanups);
-+ gdbpy_current_objfile = NULL;
-+
-+ PyGILState_Release (state);
-+}
-+
-+/* Return the current Objfile, or None if there isn't one. */
-+static PyObject *
-+gdbpy_get_current_objfile (PyObject *unused1, PyObject *unused2)
-+{
-+ PyObject *result;
-+
-+ if (! gdbpy_current_objfile)
-+ Py_RETURN_NONE;
-+
-+ result = objfile_to_objfile_object (gdbpy_current_objfile);
-+ if (result)
-+ Py_INCREF (result);
-+ return result;
-+}
-+
-+/* Return a sequence holding all the Objfiles. */
-+static PyObject *
-+gdbpy_objfiles (PyObject *unused1, PyObject *unused2)
-+{
-+ struct objfile *objf;
-+ PyObject *list;
-+
-+ list = PyList_New (0);
-+ if (!list)
-+ return NULL;
-+
-+ ALL_OBJFILES (objf)
-+ {
-+ PyObject *item = objfile_to_objfile_object (objf);
-+ if (!item || PyList_Append (list, item) == -1)
-+ {
-+ Py_DECREF (list);
-+ return NULL;
-+ }
-+ }
-+
-+ return list;
-+}
-+
-+\f
-+
-+/* Helper function for find_pretty_printer which iterates over a
-+ list, calls each function and inspects output. */
-+static PyObject *
-+search_pp_list (PyObject *list, PyObject *value)
-+{
-+ Py_ssize_t pp_list_size, list_index;
-+ PyObject *function, *printer = NULL;
-+
-+ pp_list_size = PyList_Size (list);
-+ for (list_index = 0; list_index < pp_list_size; list_index++)
-+ {
-+ function = PyList_GetItem (list, list_index);
-+ if (! function)
-+ return NULL;
-+
-+ /* gdbpy_instantiate_printer can return three possible return
-+ values: NULL on error; Py_None if the pretty-printer
-+ in the list cannot print the value; or a printer instance if
-+ the printer can print the value. */
-+ printer = gdbpy_instantiate_printer (function, value);
-+ if (! printer)
-+ return NULL;
-+ else if (printer != Py_None)
-+ return printer;
-+
-+ Py_DECREF (printer);
-+ }
-+
-+ Py_RETURN_NONE;
-+}
-+
-+/* Find the pretty-printing constructor function for TYPE. If no
-+ pretty-printer exists, return NULL. If one exists, return a new
-+ reference. */
-+static PyObject *
-+find_pretty_printer (PyObject *value)
-+{
-+ PyObject *pp_list = NULL;
-+ PyObject *function = NULL;
-+ struct objfile *obj;
-+ volatile struct gdb_exception except;
-+
-+ /* Look at the pretty-printer dictionary for each objfile. */
-+ ALL_OBJFILES (obj)
-+ {
-+ PyObject *objf = objfile_to_objfile_object (obj);
-+ if (!objf)
-+ continue;
-+
-+ pp_list = objfpy_get_printers (objf, NULL);
-+ function = search_pp_list (pp_list, value);
-+
-+ /* If there is an error in any objfile list, abort the search and
-+ exit. */
-+ if (! function)
-+ {
-+ Py_XDECREF (pp_list);
-+ return NULL;
-+ }
-+
-+ if (function != Py_None)
-+ goto done;
-+
-+ /* In this loop, if function is not an instantiation of a
-+ pretty-printer, and it is not null, then it is a return of
-+ Py_RETURN_NONE, which must be decremented. */
-+ Py_DECREF (function);
-+ Py_XDECREF (pp_list);
-+ }
-+
-+ pp_list = NULL;
-+ /* Fetch the global pretty printer dictionary. */
-+ if (! PyObject_HasAttrString (gdb_module, "pretty_printers"))
-+ goto done;
-+ pp_list = PyObject_GetAttrString (gdb_module, "pretty_printers");
-+ if (! pp_list)
-+ goto done;
-+ if (! PyList_Check (pp_list))
-+ goto done;
-+
-+ function = search_pp_list (pp_list, value);
-+
-+ done:
-+ Py_XDECREF (pp_list);
-+
-+ return function;
-+}
-+
-+/* Pretty-print a single value, via the printer object PRINTER. If
-+ the function returns a string, an xmalloc()d copy is returned.
-+ Otherwise, if the function returns a value, a *OUT_VALUE is set to
-+ the value, and NULL is returned. On error, *OUT_VALUE is set to
-+ NULL and NULL is returned. */
-+static char *
-+pretty_print_one_value (PyObject *printer, struct value **out_value)
-+{
-+ char *output = NULL;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ PyObject *result;
-+
-+ result = PyObject_CallMethodObjArgs (printer, gdbpy_to_string_cst, NULL);
-+ if (result)
-+ {
-+ if (gdbpy_is_string (result))
-+ output = python_string_to_host_string (result);
-+ else if (PyObject_TypeCheck (result, &value_object_type))
-+ {
-+ /* If we just call convert_value_from_python for this
-+ type, we won't know who owns the result. For this
-+ one case we need to copy the resulting value. */
-+ struct value *v = value_object_to_value (result);
-+ *out_value = value_copy (v);
-+ }
-+ else
-+ *out_value = convert_value_from_python (result);
-+ Py_DECREF (result);
-+ }
-+ }
-+
-+ return output;
-+}
-+
-+/* Instantiate a pretty-printer given a constructor, CONS, and a
-+ value, VAL. Return NULL on error. Ownership of the object
-+ instance is transferred to the reciever */
-+PyObject *
-+gdbpy_instantiate_printer (PyObject *cons, PyObject *value)
-+{
-+ PyObject *result;
-+ result = PyObject_CallFunctionObjArgs (cons, value, NULL);
-+ return result;
-+}
-+
-+/* Return the display hint for the object printer, PRINTER. Return
-+ NULL if there is no display_hint method, or if the method did not
-+ return a string. On error, print stack trace and return NULL. On
-+ success, return an xmalloc()d string. */
-+char *
-+gdbpy_get_display_hint (PyObject *printer)
-+{
-+ PyObject *hint;
-+ char *result = NULL;
-+
-+ if (! PyObject_HasAttr (printer, gdbpy_display_hint_cst))
-+ return NULL;
-+
-+ hint = PyObject_CallMethodObjArgs (printer, gdbpy_display_hint_cst, NULL);
-+ if (gdbpy_is_string (hint))
-+ result = python_string_to_host_string (hint);
-+ if (hint)
-+ Py_DECREF (hint);
-+ else
-+ gdbpy_print_stack ();
-+
-+ return result;
-+}
-+
-+/* Helper for apply_val_pretty_printer which calls to_string and
-+ formats the result. */
-+static void
-+print_string_repr (PyObject *printer, const char *hint,
-+ struct ui_file *stream, int recurse,
-+ const struct value_print_options *options,
-+ const struct language_defn *language)
-+{
-+ char *output;
-+ struct value *replacement = NULL;
-+
-+ output = pretty_print_one_value (printer, &replacement);
-+ if (output)
-+ {
-+ if (hint && !strcmp (hint, "string"))
-+ {
-+ struct type *string_char_type;
-+
-+ /* OUTPUT is already in the hosts's charset. */
-+ string_char_type = language_string_char_type (language,
-+ current_gdbarch);
-+ LA_PRINT_STRING (stream, string_char_type, (gdb_byte *) output,
-+ strlen (output), 0, options);
-+ }
-+ else
-+ fputs_filtered (output, stream);
-+ xfree (output);
-+ }
-+ else if (replacement)
-+ common_val_print (replacement, stream, recurse, options, language);
-+ else
-+ gdbpy_print_stack ();
-+}
-+
-+static void
-+py_restore_tstate (void *p)
-+{
-+ PyFrameObject *frame = p;
-+ PyThreadState *tstate = PyThreadState_GET ();
-+ tstate->frame = frame;
-+}
-+
-+/* Create a dummy PyFrameObject, needed to work around
-+ a Python-2.4 bug with generators. */
-+static PyObject *
-+push_dummy_python_frame ()
-+{
-+ PyObject *empty_string, *null_tuple, *globals;
-+ PyCodeObject *code;
-+ PyFrameObject *frame;
-+ PyThreadState *tstate;
-+
-+ empty_string = PyString_FromString ("");
-+ if (!empty_string)
-+ return NULL;
-+
-+ null_tuple = PyTuple_New (0);
-+ if (!null_tuple)
-+ {
-+ Py_DECREF (empty_string);
-+ return NULL;
-+ }
-+
-+ code = PyCode_New (0, /* argcount */
-+ 0, /* nlocals */
-+ 0, /* stacksize */
-+ 0, /* flags */
-+ empty_string, /* code */
-+ null_tuple, /* consts */
-+ null_tuple, /* names */
-+ null_tuple, /* varnames */
-+#if PYTHON_API_VERSION >= 1010
-+ null_tuple, /* freevars */
-+ null_tuple, /* cellvars */
-+#endif
-+ empty_string, /* filename */
-+ empty_string, /* name */
-+ 1, /* firstlineno */
-+ empty_string /* lnotab */
-+ );
-+
-+ Py_DECREF (empty_string);
-+ Py_DECREF (null_tuple);
-+
-+ if (!code)
-+ return NULL;
-+
-+ globals = PyDict_New ();
-+ if (!globals)
-+ {
-+ Py_DECREF (code);
-+ return NULL;
-+ }
-+
-+ tstate = PyThreadState_GET ();
-+
-+ frame = PyFrame_New (tstate, code, globals, NULL);
-+
-+ Py_DECREF (globals);
-+ Py_DECREF (code);
-+
-+ if (!frame)
-+ return NULL;
-+
-+ tstate->frame = frame;
-+ make_cleanup (py_restore_tstate, frame->f_back);
-+ return (PyObject *) frame;
-+}
-+
-+/* Helper for apply_val_pretty_printer that formats children of the
-+ printer, if any exist. */
-+static void
-+print_children (PyObject *printer, const char *hint,
-+ struct ui_file *stream, int recurse,
-+ const struct value_print_options *options,
-+ const struct language_defn *language)
-+{
-+ int is_map, is_array, done_flag, pretty;
-+ unsigned int i;
-+ PyObject *children, *iter, *frame;
-+ struct cleanup *cleanups;
-+
-+ if (! PyObject_HasAttr (printer, gdbpy_children_cst))
-+ return;
-+
-+ /* If we are printing a map or an array, we want some special
-+ formatting. */
-+ is_map = hint && ! strcmp (hint, "map");
-+ is_array = hint && ! strcmp (hint, "array");
-+
-+ children = PyObject_CallMethodObjArgs (printer, gdbpy_children_cst,
-+ NULL);
-+ if (! children)
-+ {
-+ gdbpy_print_stack ();
-+ return;
-+ }
-+
-+ cleanups = make_cleanup_py_decref (children);
-+
-+ iter = PyObject_GetIter (children);
-+ if (!iter)
-+ {
-+ gdbpy_print_stack ();
-+ goto done;
-+ }
-+ make_cleanup_py_decref (iter);
-+
-+ /* Use the prettyprint_arrays option if we are printing an array,
-+ and the pretty option otherwise. */
-+ pretty = is_array ? options->prettyprint_arrays : options->pretty;
-+
-+ /* Manufacture a dummy Python frame to work around Python 2.4 bug,
-+ where it insists on having a non-NULL tstate->frame when
-+ a generator is called. */
-+ frame = push_dummy_python_frame ();
-+ if (!frame)
-+ {
-+ gdbpy_print_stack ();
-+ goto done;
-+ }
-+ make_cleanup_py_decref (frame);
-+
-+ done_flag = 0;
-+ for (i = 0; i < options->print_max; ++i)
-+ {
-+ PyObject *py_v, *item = PyIter_Next (iter);
-+ char *name;
-+ struct cleanup *inner_cleanup;
-+
-+ if (! item)
-+ {
-+ if (PyErr_Occurred ())
-+ gdbpy_print_stack ();
-+ /* Set a flag so we can know whether we printed all the
-+ available elements. */
-+ else
-+ done_flag = 1;
-+ break;
-+ }
-+
-+ if (! PyArg_ParseTuple (item, "sO", &name, &py_v))
-+ {
-+ gdbpy_print_stack ();
-+ Py_DECREF (item);
-+ continue;
-+ }
-+ inner_cleanup = make_cleanup_py_decref (item);
-+
-+ /* Print initial "{". For other elements, there are three
-+ cases:
-+ 1. Maps. Print a "," after each value element.
-+ 2. Arrays. Always print a ",".
-+ 3. Other. Always print a ",". */
-+ if (i == 0)
-+ fputs_filtered (" = {", stream);
-+ else if (! is_map || i % 2 == 0)
-+ fputs_filtered (pretty ? "," : ", ", stream);
-+
-+ /* In summary mode, we just want to print "= {...}" if there is
-+ a value. */
-+ if (options->summary)
-+ {
-+ /* This increment tricks the post-loop logic to print what
-+ we want. */
-+ ++i;
-+ /* Likewise. */
-+ pretty = 0;
-+ break;
-+ }
-+
-+ if (! is_map || i % 2 == 0)
-+ {
-+ if (pretty)
-+ {
-+ fputs_filtered ("\n", stream);
-+ print_spaces_filtered (2 + 2 * recurse, stream);
-+ }
-+ else
-+ wrap_here (n_spaces (2 + 2 *recurse));
-+ }
-+
-+ if (is_map && i % 2 == 0)
-+ fputs_filtered ("[", stream);
-+ else if (is_array)
-+ {
-+ /* We print the index, not whatever the child method
-+ returned as the name. */
-+ if (options->print_array_indexes)
-+ fprintf_filtered (stream, "[%d] = ", i);
-+ }
-+ else if (! is_map)
-+ {
-+ fputs_filtered (name, stream);
-+ fputs_filtered (" = ", stream);
-+ }
-+
-+ if (gdbpy_is_string (py_v))
-+ {
-+ char *text = python_string_to_host_string (py_v);
-+ if (! text)
-+ gdbpy_print_stack ();
-+ else
-+ {
-+ fputs_filtered (text, stream);
-+ xfree (text);
-+ }
-+ }
-+ else
-+ {
-+ struct value *value = convert_value_from_python (py_v);
-+
-+ if (value == NULL)
-+ {
-+ gdbpy_print_stack ();
-+ error (_("Error while executing Python code."));
-+ }
-+ else
-+ common_val_print (value, stream, recurse + 1, options, language);
-+ }
-+
-+ if (is_map && i % 2 == 0)
-+ fputs_filtered ("] = ", stream);
-+
-+ do_cleanups (inner_cleanup);
-+ }
-+
-+ if (i)
-+ {
-+ if (!done_flag)
-+ {
-+ if (pretty)
-+ {
-+ fputs_filtered ("\n", stream);
-+ print_spaces_filtered (2 + 2 * recurse, stream);
-+ }
-+ fputs_filtered ("...", stream);
-+ }
-+ if (pretty)
-+ {
-+ fputs_filtered ("\n", stream);
-+ print_spaces_filtered (2 * recurse, stream);
-+ }
-+ fputs_filtered ("}", stream);
-+ }
-+
-+ done:
-+ do_cleanups (cleanups);
-+}
-+
-+int
-+apply_val_pretty_printer (struct type *type, const gdb_byte *valaddr,
-+ int embedded_offset, CORE_ADDR address,
-+ struct ui_file *stream, int recurse,
-+ const struct value_print_options *options,
-+ const struct language_defn *language)
-+{
-+ PyObject *printer = NULL;
-+ PyObject *val_obj = NULL;
-+ struct value *value;
-+ char *hint = NULL;
-+ struct cleanup *cleanups;
-+ int result = 0;
-+ PyGILState_STATE state;
-+
-+ state = PyGILState_Ensure ();
-+ cleanups = make_cleanup_py_restore_gil (&state);
-+
-+ /* Instantiate the printer. */
-+ if (valaddr)
-+ valaddr += embedded_offset;
-+ value = value_from_contents_and_address (type, valaddr, address);
-+
-+ val_obj = value_to_value_object (value);
-+ if (! val_obj)
-+ goto done;
-+
-+ /* Find the constructor. */
-+ printer = find_pretty_printer (val_obj);
-+ Py_DECREF (val_obj);
-+ make_cleanup_py_decref (printer);
-+ if (! printer || printer == Py_None)
-+ goto done;
-+
-+ /* If we are printing a map, we want some special formatting. */
-+ hint = gdbpy_get_display_hint (printer);
-+ make_cleanup (free_current_contents, &hint);
-+
-+ /* Print the section */
-+ print_string_repr (printer, hint, stream, recurse, options, language);
-+ print_children (printer, hint, stream, recurse, options, language);
-+ result = 1;
-+
-+
-+ done:
-+ if (PyErr_Occurred ())
-+ gdbpy_print_stack ();
-+ do_cleanups (cleanups);
-+ return result;
-+}
-+
-+/* Apply a pretty-printer for the varobj code. PRINTER_OBJ is the
-+ print object. It must have a 'to_string' method (but this is
-+ checked by varobj, not here) which takes no arguments and
-+ returns a string. This function returns an xmalloc()d string if
-+ the printer returns a string. The printer may return a replacement
-+ value instead; in this case *REPLACEMENT is set to the replacement
-+ value, and this function returns NULL. On error, *REPLACEMENT is
-+ set to NULL and this function also returns NULL. */
-+char *
-+apply_varobj_pretty_printer (PyObject *printer_obj,
-+ struct value **replacement)
-+{
-+ char *result;
-+ PyGILState_STATE state = PyGILState_Ensure ();
-+
-+ *replacement = NULL;
-+ result = pretty_print_one_value (printer_obj, replacement);
-+ if (result == NULL);
-+ gdbpy_print_stack ();
-+ PyGILState_Release (state);
-+
-+ return result;
-+}
-+
-+/* Find a pretty-printer object for the varobj module. Returns a new
-+ reference to the object if successful; returns NULL if not. VALUE
-+ is the value for which a printer tests to determine if it
-+ can pretty-print the value. */
-+PyObject *
-+gdbpy_get_varobj_pretty_printer (struct value *value)
-+{
-+ PyObject *val_obj;
-+ PyObject *pretty_printer = NULL;
-+ volatile struct gdb_exception except;
-+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
-+ {
-+ value = value_copy (value);
-+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+
-+ val_obj = value_to_value_object (value);
-+ if (! val_obj)
-+ return NULL;
-+
-+ pretty_printer = find_pretty_printer (val_obj);
-+ Py_DECREF (val_obj);
-+ return pretty_printer;
-+}
-+
-+/* A Python function which wraps find_pretty_printer and instantiates
-+ the resulting class. This accepts a Value argument and returns a
-+ pretty printer instance, or None. This function is useful as an
-+ argument to the MI command -var-set-visualizer. */
-+static PyObject *
-+gdbpy_default_visualizer (PyObject *self, PyObject *args)
-+{
-+ PyObject *val_obj;
-+ PyObject *cons, *printer = NULL;
-+ struct value *value;
-+
-+ if (! PyArg_ParseTuple (args, "O", &val_obj))
-+ return NULL;
-+ value = value_object_to_value (val_obj);
-+ if (! value)
-+ {
-+ PyErr_SetString (PyExc_TypeError, "argument must be a gdb.Value");
-+ return NULL;
-+ }
-+
-+ cons = find_pretty_printer (val_obj);
-+ return cons;
-+}
-+
- #else /* HAVE_PYTHON */
-
- /* Dummy implementation of the gdb "python" command. */
-@@ -328,6 +1677,24 @@ eval_python_from_control_command (struct command_line *cmd)
- error (_("Python scripting is not supported in this copy of GDB."));
- }
-
-+int
-+apply_val_pretty_printer (struct type *type, const gdb_byte *valaddr,
-+ int embedded_offset, CORE_ADDR address,
-+ struct ui_file *stream, int format,
-+ int deref_ref, int recurse,
-+ enum val_prettyprint pretty,
-+ const struct language_defn *language)
-+{
-+ return 0;
-+}
-+
-+void
-+source_python_script (FILE *stream)
-+{
-+ fclose (stream);
-+ error (_("Python scripting is not supported in this copy of GDB."));
-+}
-+
- #endif /* HAVE_PYTHON */
-
- \f
-@@ -355,9 +1722,6 @@ show_python (char *args, int from_tty)
-
- /* Initialize the Python code. */
-
--/* Provide a prototype to silence -Wmissing-prototypes. */
--extern initialize_file_ftype _initialize_python;
--
- void
- _initialize_python (void)
- {
-@@ -400,6 +1764,15 @@ Enables or disables printing of Python stack traces."),
- &set_python_list,
- &show_python_list);
-
-+ add_setshow_boolean_cmd ("auto-load", class_maintenance,
-+ &gdbpy_auto_load, _("\
-+Enable or disable auto-loading of Python code when an object is opened."), _("\
-+Show whether Python code will be auto-loaded when an object is opened."), _("\
-+Enables or disables auto-loading of Python code when an object is opened."),
-+ NULL, NULL,
-+ &set_python_list,
-+ &show_python_list);
-+
- #ifdef HAVE_PYTHON
- Py_Initialize ();
- PyEval_InitThreads ();
-@@ -410,11 +1783,36 @@ Enables or disables printing of Python stack traces."),
- PyModule_AddStringConstant (gdb_module, "VERSION", (char*) version);
- PyModule_AddStringConstant (gdb_module, "HOST_CONFIG", (char*) host_name);
- PyModule_AddStringConstant (gdb_module, "TARGET_CONFIG", (char*) target_name);
-+#ifdef PYTHONDIR
-+ PyModule_AddStringConstant (gdb_module, "pythondir", PYTHONDIR);
-+#else
-+ if (gdb_datadir)
-+ PyModule_AddStringConstant (gdb_module, "datadir", gdb_datadir);
-+#endif
-
- gdbpy_initialize_values ();
-+ gdbpy_initialize_breakpoints ();
-+ gdbpy_initialize_frames ();
-+ gdbpy_initialize_symtabs ();
- gdbpy_initialize_commands ();
-+ gdbpy_initialize_symbols ();
-+ gdbpy_initialize_blocks ();
-+ gdbpy_initialize_functions ();
-+ gdbpy_initialize_types ();
-+ gdbpy_initialize_parameters ();
-+ gdbpy_initialize_objfile ();
-+ gdbpy_initialize_events ();
-+ gdbpy_initialize_membuf ();
-
- PyRun_SimpleString ("import gdb");
-+ PyRun_SimpleString ("gdb.pretty_printers = []");
-+
-+ observer_attach_new_objfile (gdbpy_new_objfile);
-+
-+ gdbpy_to_string_cst = PyString_FromString ("to_string");
-+ gdbpy_children_cst = PyString_FromString ("children");
-+ gdbpy_display_hint_cst = PyString_FromString ("display_hint");
-+ gdbpy_doc_cst = PyString_FromString ("__doc__");
-
- gdbpy_doc_cst = PyString_FromString ("__doc__");
-
-@@ -442,6 +1840,15 @@ class GdbOutputFile:\n\
- \n\
- sys.stderr = GdbOutputFile()\n\
- sys.stdout = GdbOutputFile()\n\
-+if hasattr (gdb, 'datadir'):\n\
-+ gdb.pythondir = gdb.datadir + '/python'\n\
-+if hasattr (gdb, 'pythondir'):\n\
-+ sys.path.insert(0, gdb.pythondir)\n\
-+ gdb.__path__ = [gdb.pythondir + '/gdb']\n\
-+ from os.path import exists\n\
-+ ipy = gdb.pythondir + '/gdb/__init__.py'\n\
-+ if exists (ipy):\n\
-+ execfile (ipy)\n\
- ");
-
- /* Release the GIL while gdb runs. */
-@@ -461,9 +1868,79 @@ static PyMethodDef GdbMethods[] =
- "Get a value from history" },
- { "execute", execute_gdb_command, METH_VARARGS,
- "Execute a gdb command" },
-- { "get_parameter", get_parameter, METH_VARARGS,
-+ { "cli", gdbpy_cli, METH_NOARGS,
-+ "Enter the gdb CLI" },
-+ { "parameter", gdbpy_parameter, METH_VARARGS,
- "Return a gdb parameter's value" },
-
-+ { "breakpoints", gdbpy_breakpoints, METH_NOARGS,
-+ "Return a tuple of all breakpoint objects" },
-+
-+ { "default_visualizer", gdbpy_default_visualizer, METH_VARARGS,
-+ "Find the default visualizer for a Value." },
-+
-+ { "current_objfile", gdbpy_get_current_objfile, METH_NOARGS,
-+ "Return the current Objfile being loaded, or None." },
-+ { "objfiles", gdbpy_objfiles, METH_NOARGS,
-+ "Return a sequence of all loaded objfiles." },
-+
-+ { "frames", gdbpy_frames, METH_NOARGS,
-+ "frames () -> (gdb.Frame, ...).\n\
-+Return a tuple of all frame objects." },
-+ { "newest_frame", gdbpy_newest_frame, METH_NOARGS,
-+ "newest_frame () -> gdb.Frame.\n\
-+Return the newest frame object." },
-+ { "selected_frame", gdbpy_selected_frame, METH_NOARGS,
-+ "selected_frame () -> gdb.Frame.\n\
-+Return the selected frame object." },
-+ { "frame_stop_reason_string", gdbpy_frame_stop_reason_string, METH_VARARGS,
-+ "stop_reason_string (Integer) -> String.\n\
-+Return a string explaining unwind stop reason." },
-+
-+ { "lookup_symbol", (PyCFunction) gdbpy_lookup_symbol,
-+ METH_VARARGS | METH_KEYWORDS,
-+ "lookup_symbol (name [, block] [, domain]) -> (symbol, is_field_of_this)\n\
-+Return a tuple with the symbol corresponding to the given name (or None) and\n\
-+a boolean indicating if name is a field of the current implied argument\n\
-+`this' (when the current language is object-oriented)." },
-+ { "solib_address", gdbpy_solib_address, METH_VARARGS,
-+ "solib_address (Long) -> String.\n\
-+Return the name of the shared library holding a given address, or None." },
-+
-+ { "find_pc_function", gdbpy_find_pc_function, METH_VARARGS,
-+ "Return the function containing the given pc value, or None." },
-+
-+ { "block_for_pc", gdbpy_block_for_pc, METH_VARARGS,
-+ "Return the block containing the given pc value, or None." },
-+
-+ { "decode_line", gdbpy_decode_line, METH_VARARGS,
-+ "Decode a string argument the way that 'break' or 'edit' does.\n\
-+Return a tuple holding the file name (or None) and line number (or None).\n\
-+Note: may later change to return an object." },
-+
-+ { "threads", gdbpy_threads, METH_NOARGS,
-+ "Return a tuple holding all the valid thread IDs." },
-+ { "current_thread", gdbpy_current_thread, METH_NOARGS,
-+ "Return the thread ID of the current thread." },
-+ { "switch_to_thread", gdbpy_switch_to_thread, METH_VARARGS,
-+ "Switch to a thread, given the thread ID." },
-+
-+ { "parse_and_eval", gdbpy_parse_and_eval, METH_VARARGS,
-+ "Parse a string as an expression, evaluate it, and return the result." },
-+
-+ { "post_event", gdbpy_post_event, METH_VARARGS,
-+ "Post an event into gdb's event loop." },
-+
-+ { "read_memory", gdbpy_read_memory, METH_VARARGS,
-+ "read_memory (address, length) -> buffer\n\
-+Return a buffer object for reading from the inferior's memory." },
-+ { "write_memory", gdbpy_write_memory, METH_VARARGS,
-+ "write_memory (address, buffer [, length])\n\
-+Write the given buffer object to the inferior's memory." },
-+ { "search_memory", (PyCFunction) gdbpy_search_memory, METH_VARARGS | METH_KEYWORDS,
-+ "search_memory (address, length, pattern [, size] [, max_count]) -> list\n\
-+Return a list with the addresses where matches were found." },
-+
- { "write", gdbpy_write, METH_VARARGS,
- "Write a string using gdb's filtered stream." },
- { "flush", gdbpy_flush, METH_NOARGS,
-diff --git a/gdb/python/python.h b/gdb/python/python.h
-index e63c447..767af86 100644
---- a/gdb/python/python.h
-+++ b/gdb/python/python.h
-@@ -26,4 +26,14 @@ extern struct value *values_in_python;
-
- void eval_python_from_control_command (struct command_line *);
-
-+void source_python_script (FILE *stream, char *file);
-+
-+void run_python_script (int argc, char **argv);
-+
-+int apply_val_pretty_printer (struct type *type, const gdb_byte *valaddr,
-+ int embedded_offset, CORE_ADDR address,
-+ struct ui_file *stream, int recurse,
-+ const struct value_print_options *options,
-+ const struct language_defn *language);
-+
- #endif /* GDB_PYTHON_H */
-diff --git a/gdb/scm-lang.c b/gdb/scm-lang.c
-index 345befd..e2568c8 100644
---- a/gdb/scm-lang.c
-+++ b/gdb/scm-lang.c
-@@ -43,14 +43,14 @@ static int in_eval_c (void);
- struct type *builtin_type_scm;
-
- void
--scm_printchar (int c, struct ui_file *stream)
-+scm_printchar (int c, struct type *type, struct ui_file *stream)
- {
- fprintf_filtered (stream, "#\\%c", c);
- }
-
- static void
--scm_printstr (struct ui_file *stream, const gdb_byte *string,
-- unsigned int length, int width, int force_ellipses,
-+scm_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
-+ unsigned int length, int force_ellipses,
- const struct value_print_options *options)
- {
- fprintf_filtered (stream, "\"%s\"", string);
-diff --git a/gdb/scm-lang.h b/gdb/scm-lang.h
-index 6bf88f5..1798b2f 100644
---- a/gdb/scm-lang.h
-+++ b/gdb/scm-lang.h
-@@ -59,7 +59,7 @@ extern void scm_scmval_print (LONGEST, struct ui_file *, int,
-
- extern int is_scmvalue_type (struct type *);
-
--extern void scm_printchar (int, struct ui_file *);
-+extern void scm_printchar (int, struct type *, struct ui_file *);
-
- extern struct value *scm_evaluate_string (char *, int);
-
-diff --git a/gdb/scm-valprint.c b/gdb/scm-valprint.c
-index f0a7642..a32add5 100644
---- a/gdb/scm-valprint.c
-+++ b/gdb/scm-valprint.c
-@@ -187,7 +187,8 @@ taloop:
- if (SCM_ICHRP (svalue))
- {
- svalue = SCM_ICHR (svalue);
-- scm_printchar (svalue, stream);
-+ scm_printchar (svalue, builtin_type (current_gdbarch)->builtin_char,
-+ stream);
- break;
- }
- else if (SCM_IFLAGP (svalue)
-diff --git a/gdb/stabsread.c b/gdb/stabsread.c
-index 2d7eb15..7423b32 100644
---- a/gdb/stabsread.c
-+++ b/gdb/stabsread.c
-@@ -322,7 +322,7 @@ dbx_alloc_type (int typenums[2], struct objfile *objfile)
-
- if (typenums[0] == -1)
- {
-- return (alloc_type (objfile));
-+ return (alloc_type (objfile, NULL));
- }
-
- type_addr = dbx_lookup_type (typenums);
-@@ -332,7 +332,7 @@ dbx_alloc_type (int typenums[2], struct objfile *objfile)
- We will fill it in later if we find out how. */
- if (*type_addr == 0)
- {
-- *type_addr = alloc_type (objfile);
-+ *type_addr = alloc_type (objfile, NULL);
- }
-
- return (*type_addr);
-@@ -589,6 +589,7 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type,
- int deftype;
- int synonym = 0;
- int i;
-+ char *new_name = NULL;
-
- /* We would like to eliminate nameless symbols, but keep their types.
- E.g. stab entry ":t10=*2" should produce a type 10, which is a pointer
-@@ -683,9 +684,37 @@ define_symbol (CORE_ADDR valu, char *string, int desc, int type,
- {
- normal:
- SYMBOL_LANGUAGE (sym) = current_subfile->language;
-- SYMBOL_SET_NAMES (sym, string, p - string, objfile);
-+ if (current_subfile->language == language_cplus)
-+ {
-+ char *name = alloca (p - string + 1);
-+ memcpy (name, string, p - string);
-+ name[p - string] = '\0';
-+ new_name = cp_canonicalize_string (name);
-+ }
-+
-+ if (new_name != NULL)
-+ {
-+ SYMBOL_SET_NAMES (sym, new_name, strlen (new_name), objfile);
-+ xfree (new_name);
-+ }
-+ else
-+ SYMBOL_SET_NAMES (sym, string, p - string, objfile);
-+
- if (SYMBOL_LANGUAGE (sym) == language_cplus)
-- cp_scan_for_anonymous_namespaces (sym);
-+ {
-+ char *name = alloca (p - string + 1);
-+ memcpy (name, string, p - string);
-+ name[p - string] = '\0';
-+ new_name = cp_canonicalize_string (name);
-+ cp_scan_for_anonymous_namespaces (sym);
-+ }
-+ if (new_name != NULL)
-+ {
-+ SYMBOL_SET_NAMES (sym, new_name, strlen (new_name), objfile);
-+ xfree (new_name);
-+ }
-+ else
-+ SYMBOL_SET_NAMES (sym, string, p - string, objfile);
- }
- p++;
-
-@@ -1519,18 +1548,35 @@ again:
- if (*p != ':')
- return error_type (pp, objfile);
- }
-- to = type_name =
-- (char *) obstack_alloc (&objfile->objfile_obstack, p - *pp + 1);
--
-- /* Copy the name. */
-- from = *pp + 1;
-- while (from < p)
-- *to++ = *from++;
-- *to = '\0';
-+ type_name = NULL;
-+ if (current_subfile->language == language_cplus)
-+ {
-+ char *new_name, *name = alloca (p - *pp + 1);
-+ memcpy (name, *pp, p - *pp);
-+ name[p - *pp] = '\0';
-+ new_name = cp_canonicalize_string (name);
-+ if (new_name != NULL)
-+ {
-+ type_name = obsavestring (new_name, strlen (new_name),
-+ &objfile->objfile_obstack);
-+ xfree (new_name);
-+ }
-+ }
-+ if (type_name == NULL)
-+ {
-+ to = type_name =
-+ (char *) obstack_alloc (&objfile->objfile_obstack, p - *pp + 1);
-+
-+ /* Copy the name. */
-+ from = *pp + 1;
-+ while (from < p)
-+ *to++ = *from++;
-+ *to = '\0';
-+ }
-
- /* Set the pointer ahead of the name which we just read, and
- the colon. */
-- *pp = from + 1;
-+ *pp = p + 1;
- }
-
- /* If this type has already been declared, then reuse the same
-diff --git a/gdb/stack.c b/gdb/stack.c
-index 3bcf758..fa7fc61 100644
---- a/gdb/stack.c
-+++ b/gdb/stack.c
-@@ -380,6 +380,7 @@ print_frame_args (struct symbol *func, struct frame_info *frame,
-
- get_raw_print_options (&opts);
- opts.deref_ref = 0;
-+ opts.summary = 1;
- common_val_print (val, stb->stream, 2,
- &opts, language);
- ui_out_field_stream (uiout, "value", stb);
-@@ -579,20 +580,16 @@ print_frame_info (struct frame_info *frame, int print_level,
- gdb_flush (gdb_stdout);
- }
-
--static void
--print_frame (struct frame_info *frame, int print_level,
-- enum print_what print_what, int print_args,
-- struct symtab_and_line sal)
-+/* Attempt to obtain the FUNNAME and FUNLANG of the function corresponding
-+ to FRAME. */
-+void
-+find_frame_funname (struct frame_info *frame, char **funname,
-+ enum language *funlang)
- {
- struct symbol *func;
-- char *funname = NULL;
-- enum language funlang = language_unknown;
-- struct ui_stream *stb;
-- struct cleanup *old_chain, *list_chain;
-- struct value_print_options opts;
-
-- stb = ui_out_stream_new (uiout);
-- old_chain = make_cleanup_ui_out_stream_delete (stb);
-+ *funname = NULL;
-+ *funlang = language_unknown;
-
- func = find_pc_function (get_frame_address_in_block (frame));
- if (func)
-@@ -625,24 +622,24 @@ print_frame (struct frame_info *frame, int print_level,
- /* We also don't know anything about the function besides
- its address and name. */
- func = 0;
-- funname = SYMBOL_PRINT_NAME (msymbol);
-- funlang = SYMBOL_LANGUAGE (msymbol);
-+ *funname = SYMBOL_PRINT_NAME (msymbol);
-+ *funlang = SYMBOL_LANGUAGE (msymbol);
- }
- else
- {
-- funname = SYMBOL_PRINT_NAME (func);
-- funlang = SYMBOL_LANGUAGE (func);
-- if (funlang == language_cplus)
-+ *funname = SYMBOL_PRINT_NAME (func);
-+ *funlang = SYMBOL_LANGUAGE (func);
-+ if (*funlang == language_cplus)
- {
- /* It seems appropriate to use SYMBOL_PRINT_NAME() here,
- to display the demangled name that we already have
- stored in the symbol table, but we stored a version
- with DMGL_PARAMS turned on, and here we don't want to
- display parameters. So remove the parameters. */
-- char *func_only = cp_remove_params (funname);
-+ char *func_only = cp_remove_params (*funname);
- if (func_only)
- {
-- funname = func_only;
-+ *funname = func_only;
- make_cleanup (xfree, func_only);
- }
- }
-@@ -655,10 +652,27 @@ print_frame (struct frame_info *frame, int print_level,
-
- if (msymbol != NULL)
- {
-- funname = SYMBOL_PRINT_NAME (msymbol);
-- funlang = SYMBOL_LANGUAGE (msymbol);
-+ *funname = SYMBOL_PRINT_NAME (msymbol);
-+ *funlang = SYMBOL_LANGUAGE (msymbol);
- }
- }
-+}
-+
-+static void
-+print_frame (struct frame_info *frame, int print_level,
-+ enum print_what print_what, int print_args,
-+ struct symtab_and_line sal)
-+{
-+ char *funname = NULL;
-+ enum language funlang = language_unknown;
-+ struct ui_stream *stb;
-+ struct cleanup *old_chain, *list_chain;
-+ struct value_print_options opts;
-+
-+ stb = ui_out_stream_new (uiout);
-+ old_chain = make_cleanup_ui_out_stream_delete (stb);
-+
-+ find_frame_funname (frame, &funname, &funlang);
-
- annotate_frame_begin (print_level ? frame_relative_level (frame) : 0,
- get_frame_pc (frame));
-@@ -694,7 +708,7 @@ print_frame (struct frame_info *frame, int print_level,
- struct print_args_args args;
- struct cleanup *args_list_chain;
- args.frame = frame;
-- args.func = func;
-+ args.func = find_pc_function (get_frame_address_in_block (frame));
- args.stream = gdb_stdout;
- args_list_chain = make_cleanup_ui_out_list_begin_end (uiout, "args");
- catch_errors (print_args_stub, &args, "", RETURN_MASK_ERROR);
-@@ -1208,24 +1222,24 @@ backtrace_command_1 (char *count_exp, int show_locals, int from_tty)
- else
- count = -1;
-
-- if (info_verbose)
-- {
-- struct partial_symtab *ps;
--
-- /* Read in symbols for all of the frames. Need to do this in a
-- separate pass so that "Reading in symbols for xxx" messages
-- don't screw up the appearance of the backtrace. Also if
-- people have strong opinions against reading symbols for
-- backtrace this may have to be an option. */
-- i = count;
-- for (fi = trailing; fi != NULL && i--; fi = get_prev_frame (fi))
-- {
-- QUIT;
-- ps = find_pc_psymtab (get_frame_address_in_block (fi));
-- if (ps)
-- PSYMTAB_TO_SYMTAB (ps); /* Force syms to come in. */
-- }
-- }
-+ {
-+ struct partial_symtab *ps;
-+
-+ /* Read in symbols for all of the frames. Need to do this
-+ unconditionally to ensure that psymbols are read. Also need to
-+ do this in a separate pass so that "Reading in symbols for xxx"
-+ messages don't screw up the appearance of the backtrace. Also
-+ if people have strong opinions against reading symbols for
-+ backtrace this may have to be an option. */
-+ i = count;
-+ for (fi = trailing; fi != NULL && i--; fi = get_prev_frame (fi))
-+ {
-+ QUIT;
-+ ps = find_pc_psymtab (get_frame_address_in_block (fi));
-+ if (info_verbose && ps)
-+ PSYMTAB_TO_SYMTAB (ps); /* Force syms to come in. */
-+ }
-+ }
-
- for (i = 0, fi = trailing; fi && count--; i++, fi = get_prev_frame (fi))
- {
-@@ -1373,6 +1387,8 @@ print_block_frame_locals (struct block *b, struct frame_info *frame,
- case LOC_COMPUTED:
- if (SYMBOL_IS_ARGUMENT (sym))
- break;
-+ if (SYMBOL_DOMAIN (sym) == COMMON_BLOCK_DOMAIN)
-+ break;
- values_printed = 1;
- print_variable_and_value (NULL, sym, frame, stream, 4 * num_tabs);
- break;
-@@ -1777,7 +1793,75 @@ down_command (char *count_exp, int from_tty)
- down_silently_base (count_exp);
- print_stack_frame (get_selected_frame (NULL), 1, SRC_AND_LOC);
- }
--\f
-+
-+/* Verify whether if RETURN_VALUE width gets extended to EXT_TYPE it will still
-+ be the same value after reading it back using the RETURN_VALUE type. */
-+
-+static int
-+return_extended_value_cast (struct value *return_value, struct type *ext_type)
-+{
-+ struct regcache *current_regcache = get_current_regcache ();
-+ struct gdbarch *gdbarch = get_regcache_arch (current_regcache);
-+ struct type *return_type = value_type (return_value);
-+ struct value *ext_value, *compare_value;
-+
-+ if (gdbarch_return_value (gdbarch, NULL, ext_type, NULL, NULL, NULL)
-+ != RETURN_VALUE_REGISTER_CONVENTION)
-+ return 0;
-+
-+ ext_value = value_cast (ext_type, return_value);
-+ gdbarch_return_value (gdbarch, NULL, ext_type,
-+ current_regcache, NULL /*read*/,
-+ value_contents (ext_value) /*write*/);
-+
-+ compare_value = allocate_value (return_type);
-+ gdbarch_return_value (gdbarch, NULL, return_type, current_regcache,
-+ value_contents_raw (compare_value) /*read*/,
-+ NULL /*write*/);
-+
-+ return value_equal (return_value, compare_value);
-+}
-+
-+/* Set RETURN_VALUE extended to the largest type width which will still be the
-+ same value after reading it back using the RETURN_VALUE type. */
-+
-+static void
-+return_extended_value (struct value *return_value)
-+{
-+ struct type *return_type = value_type (return_value);
-+ struct regcache *current_regcache = get_current_regcache ();
-+ struct gdbarch *gdbarch = get_regcache_arch (current_regcache);
-+ const struct builtin_type *builtins = builtin_type (gdbarch);
-+ struct type **extp, *ext_tab[] =
-+ {
-+ builtins->builtin_long_long,
-+ builtins->builtin_long,
-+ return_type
-+ };
-+ unsigned width_tried = 0;
-+
-+ for (extp = ext_tab; extp < ext_tab + ARRAY_SIZE (ext_tab); extp++)
-+ {
-+ struct type *ext_type = *extp;
-+
-+ /* Do not retry extension to the integer of an already tried width. */
-+ if (ext_type != return_type && width_tried == TYPE_LENGTH (ext_type))
-+ continue;
-+
-+ /* Do not extend to non-original smaller (or the same size) type. */
-+ if (ext_type != return_type
-+ && TYPE_LENGTH (ext_type) <= TYPE_LENGTH (return_type))
-+ continue;
-+
-+ gdb_assert (TYPE_LENGTH (return_type) <= TYPE_LENGTH (ext_type));
-+ width_tried = TYPE_LENGTH (ext_type);
-+ if (return_extended_value_cast (return_value, ext_type))
-+ break;
-+ }
-+
-+ /* Ensure at least the attempt with original RETURN_TYPE was successful. */
-+ gdb_assert (extp < ext_tab + ARRAY_SIZE (ext_tab));
-+}
-
- void
- return_command (char *retval_exp, int from_tty)
-@@ -1806,6 +1890,8 @@ return_command (char *retval_exp, int from_tty)
- the cast fail, this call throws an error. */
- if (thisfun != NULL)
- return_type = TYPE_TARGET_TYPE (SYMBOL_TYPE (thisfun));
-+ else
-+ return_type = value_type (return_value);
- if (return_type == NULL)
- return_type = builtin_type (get_frame_arch (thisframe))->builtin_int;
- CHECK_TYPEDEF (return_type);
-@@ -1862,9 +1948,13 @@ If you continue, the return value that you specified will be ignored.\n";
- gdb_assert (gdbarch_return_value (gdbarch, func_type, return_type, NULL,
- NULL, NULL)
- == RETURN_VALUE_REGISTER_CONVENTION);
-- gdbarch_return_value (gdbarch, func_type, return_type,
-- get_current_regcache (), NULL /*read*/,
-- value_contents (return_value) /*write*/);
-+
-+ if (thisfun != NULL)
-+ gdbarch_return_value (gdbarch, func_type, return_type,
-+ get_current_regcache (), NULL /*read*/,
-+ value_contents (return_value) /*write*/);
-+ else
-+ return_extended_value (return_value);
- }
-
- /* If we are at the end of a call dummy now, pop the dummy frame
-diff --git a/gdb/stack.h b/gdb/stack.h
-index 973a57f..56b1d91 100644
---- a/gdb/stack.h
-+++ b/gdb/stack.h
-@@ -22,4 +22,9 @@
-
- void select_frame_command (char *level_exp, int from_tty);
-
-+/* Attempt to obtain the FUNNAME and FUNLANG of the function corresponding
-+ to FRAME. */
-+void find_frame_funname (struct frame_info *frame, char **funname,
-+ enum language *funlang);
-+
- #endif /* #ifndef STACK_H */
-diff --git a/gdb/symfile.c b/gdb/symfile.c
-index 63b5c1d..b047e94 100644
---- a/gdb/symfile.c
-+++ b/gdb/symfile.c
-@@ -929,6 +929,17 @@ new_symfile_objfile (struct objfile *objfile, int mainline, int verbo)
- clear_complaints (&symfile_complaints, 0, verbo);
- }
-
-+/* A helper function which returns true if OBJFILE has any debug
-+ symbols, and false otherwise. */
-+static int
-+has_any_debug_symbols (struct objfile *objfile)
-+{
-+ return (objfile->psymtabs || objfile->quick_addrmap
-+ || (objfile->separate_debug_objfile
-+ && (objfile->separate_debug_objfile->psymtabs
-+ || objfile->separate_debug_objfile->quick_addrmap)));
-+}
-+
- /* Process a symbol file, as either the main file or as a dynamically
- loaded file.
-
-@@ -965,13 +976,15 @@ symbol_file_add_with_addrs_or_offsets (bfd *abfd, int from_tty,
- /* Give user a chance to burp if we'd be
- interactively wiping out any existing symbols. */
-
-- if ((have_full_symbols () || have_partial_symbols ())
-- && mainline
-+ if (mainline
- && from_tty
-+ && (have_full_symbols () || have_partial_symbols ())
- && !query (_("Load new symbol table from \"%s\"? "), name))
- error (_("Not confirmed."));
-
- objfile = allocate_objfile (abfd, flags);
-+ if (mainline)
-+ objfile->flags |= OBJF_MAIN;
- discard_cleanups (my_cleanups);
-
- if (addrs)
-@@ -1007,6 +1020,8 @@ symbol_file_add_with_addrs_or_offsets (bfd *abfd, int from_tty,
-
- if ((flags & OBJF_READNOW) || readnow_symbol_files)
- {
-+ require_partial_symbols (objfile);
-+
- if ((from_tty || info_verbose) && print_symbol_loading)
- {
- printf_unfiltered (_("expanding to full symbols..."));
-@@ -1025,7 +1040,7 @@ symbol_file_add_with_addrs_or_offsets (bfd *abfd, int from_tty,
- /* If the file has its own symbol tables it has no separate debug info.
- `.dynsym'/`.symtab' go to MSYMBOLS, `.debug_info' goes to SYMTABS/PSYMTABS.
- `.gnu_debuglink' may no longer be present with `.note.gnu.build-id'. */
-- if (objfile->psymtabs == NULL)
-+ if (!has_any_debug_symbols (objfile))
- debugfile = find_separate_debug_file (objfile);
- if (debugfile)
- {
-@@ -1049,8 +1064,10 @@ symbol_file_add_with_addrs_or_offsets (bfd *abfd, int from_tty,
- xfree (debugfile);
- }
-
-- if (!have_partial_symbols () && !have_full_symbols ()
-- && print_symbol_loading)
-+ /* has_any_debug_symbols is not fully compatible with the former calls which
-+ would just be needlessly expensive here. */
-+ if ((from_tty || info_verbose) && print_symbol_loading
-+ && !has_any_debug_symbols (objfile) && mainline)
- {
- wrap_here ("");
- printf_unfiltered (_("(no debugging symbols found)"));
-@@ -2423,13 +2440,15 @@ reread_symbols (void)
- zero is OK since dbxread.c also does what it needs to do if
- objfile->global_psymbols.size is 0. */
- (*objfile->sf->sym_read) (objfile, 0);
-- if (!have_partial_symbols () && !have_full_symbols ())
-+ if (!has_any_debug_symbols (objfile))
- {
- wrap_here ("");
- printf_unfiltered (_("(no debugging symbols found)\n"));
- wrap_here ("");
- }
-
-+ objfile->flags &= ~OBJF_SYMTABS_READ;
-+
- /* We're done reading the symbol file; finish off complaints. */
- clear_complaints (&symfile_complaints, 0, 1);
-
-@@ -2726,7 +2745,7 @@ allocate_symtab (char *filename, struct objfile *objfile)
- }
-
- struct partial_symtab *
--allocate_psymtab (char *filename, struct objfile *objfile)
-+allocate_psymtab (const char *filename, struct objfile *objfile)
- {
- struct partial_symtab *psymtab;
-
-@@ -3040,7 +3059,8 @@ again2:
-
- struct partial_symtab *
- start_psymtab_common (struct objfile *objfile,
-- struct section_offsets *section_offsets, char *filename,
-+ struct section_offsets *section_offsets,
-+ const char *filename,
- CORE_ADDR textlow, struct partial_symbol **global_syms,
- struct partial_symbol **static_syms)
- {
-diff --git a/gdb/symfile.h b/gdb/symfile.h
-index 88f8326..50671c1 100644
---- a/gdb/symfile.h
-+++ b/gdb/symfile.h
-@@ -140,6 +140,12 @@ struct sym_fns
-
- void (*sym_read) (struct objfile *, int);
-
-+ /* Read the partial symbols for an objfile. This may be NULL, in
-+ which case gdb assumes that sym_read already read the partial
-+ symbols. */
-+
-+ void (*sym_read_psymbols) (struct objfile *);
-+
- /* Called when we are finished with an objfile. Should do all
- cleanup that is specific to the object file format for the
- particular objfile. */
-@@ -250,7 +256,7 @@ extern void free_section_addr_info (struct section_addr_info *);
-
- extern struct partial_symtab *start_psymtab_common (struct objfile *,
- struct section_offsets *,
-- char *, CORE_ADDR,
-+ const char *, CORE_ADDR,
- struct partial_symbol **,
- struct partial_symbol **);
-
-@@ -300,7 +306,7 @@ extern int auto_solib_limit;
-
- extern void set_initial_language (void);
-
--extern struct partial_symtab *allocate_psymtab (char *, struct objfile *);
-+extern struct partial_symtab *allocate_psymtab (const char *, struct objfile *);
-
- extern void discard_psymtab (struct partial_symtab *);
-
-@@ -369,7 +375,7 @@ void free_symfile_segment_data (struct symfile_segment_data *data);
- /* From dwarf2read.c */
-
- extern int dwarf2_has_info (struct objfile *);
--
-+extern void dwarf2_create_quick_addrmap (struct objfile *);
- extern void dwarf2_build_psymtabs (struct objfile *, int);
- extern void dwarf2_build_frame_info (struct objfile *);
-
-diff --git a/gdb/symtab.c b/gdb/symtab.c
-index d2ba1f3..593cded 100644
---- a/gdb/symtab.c
-+++ b/gdb/symtab.c
-@@ -42,6 +42,7 @@
- #include "ada-lang.h"
- #include "p-lang.h"
- #include "addrmap.h"
-+#include "cp-support.h"
-
- #include "hashtab.h"
-
-@@ -55,6 +56,7 @@
- #include "gdb_stat.h"
- #include <ctype.h>
- #include "cp-abi.h"
-+#include "cp-support.h"
- #include "observer.h"
- #include "gdb_assert.h"
- #include "solist.h"
-@@ -273,7 +275,7 @@ lookup_partial_symtab (const char *name)
- make_cleanup (xfree, real_path);
- }
-
-- ALL_PSYMTABS (objfile, pst)
-+ ALL_PSYMTABS_REQUIRED (objfile, pst)
- {
- if (FILENAME_CMP (name, pst->filename) == 0)
- {
-@@ -870,7 +872,13 @@ find_pc_sect_psymtab (CORE_ADDR pc, struct obj_section *section)
- than the later used TEXTLOW/TEXTHIGH one. */
-
- ALL_OBJFILES (objfile)
-- if (objfile->psymtabs_addrmap != NULL)
-+ {
-+ if (objfile->quick_addrmap)
-+ {
-+ if (!addrmap_find (objfile->quick_addrmap, pc))
-+ continue;
-+ }
-+ if (require_partial_symbols (objfile)->psymtabs_addrmap != NULL)
- {
- struct partial_symtab *pst;
-
-@@ -903,6 +911,7 @@ find_pc_sect_psymtab (CORE_ADDR pc, struct obj_section *section)
- return pst;
- }
- }
-+ }
-
- /* Existing PSYMTABS_ADDRMAP mapping is present even for PARTIAL_SYMTABs
- which still have no corresponding full SYMTABs read. But it is not
-@@ -1170,6 +1179,22 @@ fixup_psymbol_section (struct partial_symbol *psym, struct objfile *objfile)
- return psym;
- }
-
-+/* Ensure that the partial symbols for OBJFILE have been loaded. This
-+ function always returns its argument, as a convenience. */
-+
-+struct objfile *
-+require_partial_symbols (struct objfile *objfile)
-+{
-+ if ((objfile->flags & OBJF_SYMTABS_READ) == 0)
-+ {
-+ objfile->flags |= OBJF_SYMTABS_READ;
-+
-+ if (objfile->sf->sym_read_psymbols)
-+ (*objfile->sf->sym_read_psymbols) (objfile);
-+ }
-+ return objfile;
-+}
-+
- /* Find the definition for a specified symbol name NAME
- in domain DOMAIN, visible from lexical block BLOCK.
- Returns the struct symbol pointer, or zero if no symbol is found.
-@@ -1200,6 +1225,11 @@ lookup_symbol_in_language (const char *name, const struct block *block,
- int needtofreename = 0;
- struct symbol *returnval;
-
-+ if(strncmp(name, "::", 2) == 0){/* this must be a global name */
-+ name = name+2;
-+ block = NULL;
-+ }
-+
- modified_name = name;
-
- /* If we are using C++ or Java, demangle the name before doing a lookup, so
-@@ -1213,6 +1243,17 @@ lookup_symbol_in_language (const char *name, const struct block *block,
- modified_name = demangled_name;
- needtofreename = 1;
- }
-+ else
-+ {
-+ /* If we were given a non-mangled name, canonicalize it
-+ according to the language (so far only for C++). */
-+ demangled_name = cp_canonicalize_string (name);
-+ if (demangled_name)
-+ {
-+ modified_name = demangled_name;
-+ needtofreename = 1;
-+ }
-+ }
- }
- else if (lang == language_java)
- {
-@@ -1361,22 +1402,23 @@ lookup_symbol_aux_local (const char *name, const char *linkage_name,
- const domain_enum domain)
- {
- struct symbol *sym;
-- const struct block *static_block = block_static_block (block);
-+ const struct block *global_block = block_global_block (block);
-
- /* Check if either no block is specified or it's a global block. */
-
-- if (static_block == NULL)
-+ if (global_block == NULL)
- return NULL;
-
-- while (block != static_block)
-+ while (block != global_block)
- {
- sym = lookup_symbol_aux_block (name, linkage_name, block, domain);
- if (sym != NULL)
- return sym;
-+
- block = BLOCK_SUPERBLOCK (block);
- }
-
-- /* We've reached the static block without finding a result. */
-+ /* We've reached the global block without finding a result. */
-
- return NULL;
- }
-@@ -1450,6 +1492,7 @@ lookup_global_symbol_from_objfile (const struct objfile *objfile,
- }
-
- /* Now go through psymtabs. */
-+ require_partial_symbols ((struct objfile *) objfile);
- ALL_OBJFILE_PSYMTABS (objfile, ps)
- {
- if (!ps->readin
-@@ -1520,7 +1563,7 @@ lookup_symbol_aux_psymtabs (int block_index, const char *name,
- struct symtab *s;
- const int psymtab_index = (block_index == GLOBAL_BLOCK ? 1 : 0);
-
-- ALL_PSYMTABS (objfile, ps)
-+ ALL_PSYMTABS_REQUIRED (objfile, ps)
- {
- if (!ps->readin
- && lookup_partial_symbol (ps, name, linkage_name,
-@@ -1805,7 +1848,11 @@ basic_lookup_transparent_type (const char *name)
- }
- }
-
-- ALL_PSYMTABS (objfile, ps)
-+ /* FIXME: .debug_pubnames should be read in.
-+
-+ One may also try to the first pass without the require_partial_symbols
-+ call but that would behave nondeterministically. */
-+ ALL_PSYMTABS_REQUIRED (objfile, ps)
- {
- if (!ps->readin && lookup_partial_symbol (ps, name, NULL,
- 1, STRUCT_DOMAIN))
-@@ -1853,7 +1900,12 @@ basic_lookup_transparent_type (const char *name)
- }
- }
-
-- ALL_PSYMTABS (objfile, ps)
-+ /* FIXME: Something like .debug_pubnames containing also static symbols
-+ should be read in. Compiler needs to be taught to generate it first.
-+
-+ One may also try to the first pass without the require_partial_symbols
-+ call but that would behave nondeterministically. */
-+ ALL_PSYMTABS_REQUIRED (objfile, ps)
- {
- if (!ps->readin && lookup_partial_symbol (ps, name, NULL, 0, STRUCT_DOMAIN))
- {
-@@ -1894,7 +1946,21 @@ find_main_psymtab (void)
- struct partial_symtab *pst;
- struct objfile *objfile;
-
-- ALL_PSYMTABS (objfile, pst)
-+ ALL_OBJFILES (objfile)
-+ {
-+ if ((objfile->flags & OBJF_MAIN) == 0)
-+ continue;
-+ require_partial_symbols (objfile);
-+ ALL_OBJFILE_PSYMTABS (objfile, pst)
-+ {
-+ if (lookup_partial_symbol (pst, main_name (), NULL, 1, VAR_DOMAIN))
-+ {
-+ return pst;
-+ }
-+ }
-+ }
-+
-+ ALL_PSYMTABS_REQUIRED (objfile, pst)
- {
- if (lookup_partial_symbol (pst, main_name (), NULL, 1, VAR_DOMAIN))
- {
-@@ -3085,7 +3151,7 @@ search_symbols (char *regexp, domain_enum kind, int nfiles, char *files[],
- matching the regexp. That way we don't have to reproduce all of
- the machinery below. */
-
-- ALL_PSYMTABS (objfile, ps)
-+ ALL_PSYMTABS_REQUIRED (objfile, ps)
- {
- struct partial_symbol **bound, **gbound, **sbound;
- int keep_going = 1;
-diff --git a/gdb/symtab.h b/gdb/symtab.h
-index 8b086f3..06bf7e8 100644
---- a/gdb/symtab.h
-+++ b/gdb/symtab.h
-@@ -171,9 +171,6 @@ extern CORE_ADDR symbol_overlayed_address (CORE_ADDR, struct obj_section *);
- #define SYMBOL_SECTION(symbol) (symbol)->ginfo.section
- #define SYMBOL_OBJ_SECTION(symbol) (symbol)->ginfo.obj_section
-
--#define SYMBOL_CPLUS_DEMANGLED_NAME(symbol) \
-- (symbol)->ginfo.language_specific.cplus_specific.demangled_name
--
- /* Initializes the language dependent portion of a symbol
- depending upon the language for the symbol. */
- #define SYMBOL_INIT_LANGUAGE_SPECIFIC(symbol,language) \
-@@ -394,7 +391,10 @@ typedef enum domain_enum_tag
- FUNCTIONS_DOMAIN,
-
- /* All defined types */
-- TYPES_DOMAIN
-+ TYPES_DOMAIN,
-+
-+ /* Fortran common blocks. Their naming must be separate from VAR_DOMAIN. */
-+ COMMON_BLOCK_DOMAIN
- }
- domain_enum;
-
-@@ -1027,6 +1027,8 @@ extern void clear_pc_function_cache (void);
-
- /* from symtab.c: */
-
-+struct objfile *require_partial_symbols (struct objfile *);
-+
- /* lookup partial symbol table by filename */
-
- extern struct partial_symtab *lookup_partial_symtab (const char *);
-diff --git a/gdb/syscalls/gdb-syscalls.dtd b/gdb/syscalls/gdb-syscalls.dtd
-new file mode 100644
-index 0000000..0d40ab4
---- /dev/null
-+++ b/gdb/syscalls/gdb-syscalls.dtd
-@@ -0,0 +1,21 @@
-+<!-- Copyright (C) 2007, 2008 Free Software Foundation, Inc.
-+
-+ Copying and distribution of this file, with or without modification,
-+ are permitted in any medium without royalty provided the copyright
-+ notice and this notice are preserved. -->
-+
-+<!-- The root element of a syscall info is <syscalls_info>. -->
-+
-+<!ELEMENT syscalls_info (syscall*)>
-+
-+<!-- Maybe the 'number' attribute will have to be changed from
-+ ID to CDATA. -->
-+<!ELEMENT syscall EMPTY>
-+<!ATTLIST syscall
-+ name CDATA #REQUIRED
-+ number ID #REQUIRED>
-+
-+<!ELEMENT xi:include (EMPTY)>
-+<!ATTLIST xi:include
-+ xmlns:xi CDATA #FIXED "http://www.w3.org/2001/XInclude"
-+ href CDATA #REQUIRED>
-diff --git a/gdb/syscalls/i386-linux.xml b/gdb/syscalls/i386-linux.xml
-new file mode 100644
-index 0000000..6f2beee
---- /dev/null
-+++ b/gdb/syscalls/i386-linux.xml
-@@ -0,0 +1,334 @@
-+<?xml version="1.0"?>
-+<!-- Copyright (C) 2007, 2008 Free Software Foundation, Inc.
-+
-+ Copying and distribution of this file, with or without modification,
-+ are permitted in any medium without royalty provided the copyright
-+ notice and this notice are preserved. -->
-+
-+<!DOCTYPE feature SYSTEM "gdb-syscalls.dtd">
-+
-+<syscalls_info>
-+ <syscall name="restart_syscall" number="0"/>
-+ <syscall name="exit" number="1"/>
-+ <syscall name="fork" number="2"/>
-+ <syscall name="read" number="3"/>
-+ <syscall name="write" number="4"/>
-+ <syscall name="open" number="5"/>
-+ <syscall name="close" number="6"/>
-+ <syscall name="waitpid" number="7"/>
-+ <syscall name="creat" number="8"/>
-+ <syscall name="link" number="9"/>
-+ <syscall name="unlink" number="10"/>
-+ <syscall name="execve" number="11"/>
-+ <syscall name="chdir" number="12"/>
-+ <syscall name="time" number="13"/>
-+ <syscall name="mknod" number="14"/>
-+ <syscall name="chmod" number="15"/>
-+ <syscall name="lchown" number="16"/>
-+ <syscall name="break" number="17"/>
-+ <syscall name="oldstat" number="18"/>
-+ <syscall name="lseek" number="19"/>
-+ <syscall name="getpid" number="20"/>
-+ <syscall name="mount" number="21"/>
-+ <syscall name="umount" number="22"/>
-+ <syscall name="setuid" number="23"/>
-+ <syscall name="getuid" number="24"/>
-+ <syscall name="stime" number="25"/>
-+ <syscall name="ptrace" number="26"/>
-+ <syscall name="alarm" number="27"/>
-+ <syscall name="oldfstat" number="28"/>
-+ <syscall name="pause" number="29"/>
-+ <syscall name="utime" number="30"/>
-+ <syscall name="stty" number="31"/>
-+ <syscall name="gtty" number="32"/>
-+ <syscall name="access" number="33"/>
-+ <syscall name="nice" number="34"/>
-+ <syscall name="ftime" number="35"/>
-+ <syscall name="sync" number="36"/>
-+ <syscall name="kill" number="37"/>
-+ <syscall name="rename" number="38"/>
-+ <syscall name="mkdir" number="39"/>
-+ <syscall name="rmdir" number="40"/>
-+ <syscall name="dup" number="41"/>
-+ <syscall name="pipe" number="42"/>
-+ <syscall name="times" number="43"/>
-+ <syscall name="prof" number="44"/>
-+ <syscall name="brk" number="45"/>
-+ <syscall name="setgid" number="46"/>
-+ <syscall name="getgid" number="47"/>
-+ <syscall name="signal" number="48"/>
-+ <syscall name="geteuid" number="49"/>
-+ <syscall name="getegid" number="50"/>
-+ <syscall name="acct" number="51"/>
-+ <syscall name="umount2" number="52"/>
-+ <syscall name="lock" number="53"/>
-+ <syscall name="ioctl" number="54"/>
-+ <syscall name="fcntl" number="55"/>
-+ <syscall name="mpx" number="56"/>
-+ <syscall name="setpgid" number="57"/>
-+ <syscall name="ulimit" number="58"/>
-+ <syscall name="oldolduname" number="59"/>
-+ <syscall name="umask" number="60"/>
-+ <syscall name="chroot" number="61"/>
-+ <syscall name="ustat" number="62"/>
-+ <syscall name="dup2" number="63"/>
-+ <syscall name="getppid" number="64"/>
-+ <syscall name="getpgrp" number="65"/>
-+ <syscall name="setsid" number="66"/>
-+ <syscall name="sigaction" number="67"/>
-+ <syscall name="sgetmask" number="68"/>
-+ <syscall name="ssetmask" number="69"/>
-+ <syscall name="setreuid" number="70"/>
-+ <syscall name="setregid" number="71"/>
-+ <syscall name="sigsuspend" number="72"/>
-+ <syscall name="sigpending" number="73"/>
-+ <syscall name="sethostname" number="74"/>
-+ <syscall name="setrlimit" number="75"/>
-+ <syscall name="getrlimit" number="76"/>
-+ <syscall name="getrusage" number="77"/>
-+ <syscall name="gettimeofday" number="78"/>
-+ <syscall name="settimeofday" number="79"/>
-+ <syscall name="getgroups" number="80"/>
-+ <syscall name="setgroups" number="81"/>
-+ <syscall name="select" number="82"/>
-+ <syscall name="symlink" number="83"/>
-+ <syscall name="oldlstat" number="84"/>
-+ <syscall name="readlink" number="85"/>
-+ <syscall name="uselib" number="86"/>
-+ <syscall name="swapon" number="87"/>
-+ <syscall name="reboot" number="88"/>
-+ <syscall name="readdir" number="89"/>
-+ <syscall name="mmap" number="90"/>
-+ <syscall name="munmap" number="91"/>
-+ <syscall name="truncate" number="92"/>
-+ <syscall name="ftruncate" number="93"/>
-+ <syscall name="fchmod" number="94"/>
-+ <syscall name="fchown" number="95"/>
-+ <syscall name="getpriority" number="96"/>
-+ <syscall name="setpriority" number="97"/>
-+ <syscall name="profil" number="98"/>
-+ <syscall name="statfs" number="99"/>
-+ <syscall name="fstatfs" number="100"/>
-+ <syscall name="ioperm" number="101"/>
-+ <syscall name="socketcall" number="102"/>
-+ <syscall name="syslog" number="103"/>
-+ <syscall name="setitimer" number="104"/>
-+ <syscall name="getitimer" number="105"/>
-+ <syscall name="stat" number="106"/>
-+ <syscall name="lstat" number="107"/>
-+ <syscall name="fstat" number="108"/>
-+ <syscall name="olduname" number="109"/>
-+ <syscall name="iopl" number="110"/>
-+ <syscall name="vhangup" number="111"/>
-+ <syscall name="idle" number="112"/>
-+ <syscall name="vm86old" number="113"/>
-+ <syscall name="wait4" number="114"/>
-+ <syscall name="swapoff" number="115"/>
-+ <syscall name="sysinfo" number="116"/>
-+ <syscall name="ipc" number="117"/>
-+ <syscall name="fsync" number="118"/>
-+ <syscall name="sigreturn" number="119"/>
-+ <syscall name="clone" number="120"/>
-+ <syscall name="setdomainname" number="121"/>
-+ <syscall name="uname" number="122"/>
-+ <syscall name="modify_ldt" number="123"/>
-+ <syscall name="adjtimex" number="124"/>
-+ <syscall name="mprotect" number="125"/>
-+ <syscall name="sigprocmask" number="126"/>
-+ <syscall name="create_module" number="127"/>
-+ <syscall name="init_module" number="128"/>
-+ <syscall name="delete_module" number="129"/>
-+ <syscall name="get_kernel_syms" number="130"/>
-+ <syscall name="quotactl" number="131"/>
-+ <syscall name="getpgid" number="132"/>
-+ <syscall name="fchdir" number="133"/>
-+ <syscall name="bdflush" number="134"/>
-+ <syscall name="sysfs" number="135"/>
-+ <syscall name="personality" number="136"/>
-+ <syscall name="afs_syscall" number="137"/>
-+ <syscall name="setfsuid" number="138"/>
-+ <syscall name="setfsgid" number="139"/>
-+ <syscall name="_llseek" number="140"/>
-+ <syscall name="getdents" number="141"/>
-+ <syscall name="_newselect" number="142"/>
-+ <syscall name="flock" number="143"/>
-+ <syscall name="msync" number="144"/>
-+ <syscall name="readv" number="145"/>
-+ <syscall name="writev" number="146"/>
-+ <syscall name="getsid" number="147"/>
-+ <syscall name="fdatasync" number="148"/>
-+ <syscall name="_sysctl" number="149"/>
-+ <syscall name="mlock" number="150"/>
-+ <syscall name="munlock" number="151"/>
-+ <syscall name="mlockall" number="152"/>
-+ <syscall name="munlockall" number="153"/>
-+ <syscall name="sched_setparam" number="154"/>
-+ <syscall name="sched_getparam" number="155"/>
-+ <syscall name="sched_setscheduler" number="156"/>
-+ <syscall name="sched_getscheduler" number="157"/>
-+ <syscall name="sched_yield" number="158"/>
-+ <syscall name="sched_get_priority_max" number="159"/>
-+ <syscall name="sched_get_priority_min" number="160"/>
-+ <syscall name="sched_rr_get_interval" number="161"/>
-+ <syscall name="nanosleep" number="162"/>
-+ <syscall name="mremap" number="163"/>
-+ <syscall name="setresuid" number="164"/>
-+ <syscall name="getresuid" number="165"/>
-+ <syscall name="vm86" number="166"/>
-+ <syscall name="query_module" number="167"/>
-+ <syscall name="poll" number="168"/>
-+ <syscall name="nfsservctl" number="169"/>
-+ <syscall name="setresgid" number="170"/>
-+ <syscall name="getresgid" number="171"/>
-+ <syscall name="prctl" number="172"/>
-+ <syscall name="rt_sigreturn" number="173"/>
-+ <syscall name="rt_sigaction" number="174"/>
-+ <syscall name="rt_sigprocmask" number="175"/>
-+ <syscall name="rt_sigpending" number="176"/>
-+ <syscall name="rt_sigtimedwait" number="177"/>
-+ <syscall name="rt_sigqueueinfo" number="178"/>
-+ <syscall name="rt_sigsuspend" number="179"/>
-+ <syscall name="pread64" number="180"/>
-+ <syscall name="pwrite64" number="181"/>
-+ <syscall name="chown" number="182"/>
-+ <syscall name="getcwd" number="183"/>
-+ <syscall name="capget" number="184"/>
-+ <syscall name="capset" number="185"/>
-+ <syscall name="sigaltstack" number="186"/>
-+ <syscall name="sendfile" number="187"/>
-+ <syscall name="getpmsg" number="188"/>
-+ <syscall name="putpmsg" number="189"/>
-+ <syscall name="vfork" number="190"/>
-+ <syscall name="ugetrlimit" number="191"/>
-+ <syscall name="mmap2" number="192"/>
-+ <syscall name="truncate64" number="193"/>
-+ <syscall name="ftruncate64" number="194"/>
-+ <syscall name="stat64" number="195"/>
-+ <syscall name="lstat64" number="196"/>
-+ <syscall name="fstat64" number="197"/>
-+ <syscall name="lchown32" number="198"/>
-+ <syscall name="getuid32" number="199"/>
-+ <syscall name="getgid32" number="200"/>
-+ <syscall name="geteuid32" number="201"/>
-+ <syscall name="getegid32" number="202"/>
-+ <syscall name="setreuid32" number="203"/>
-+ <syscall name="setregid32" number="204"/>
-+ <syscall name="getgroups32" number="205"/>
-+ <syscall name="setgroups32" number="206"/>
-+ <syscall name="fchown32" number="207"/>
-+ <syscall name="setresuid32" number="208"/>
-+ <syscall name="getresuid32" number="209"/>
-+ <syscall name="setresgid32" number="210"/>
-+ <syscall name="getresgid32" number="211"/>
-+ <syscall name="chown32" number="212"/>
-+ <syscall name="setuid32" number="213"/>
-+ <syscall name="setgid32" number="214"/>
-+ <syscall name="setfsuid32" number="215"/>
-+ <syscall name="setfsgid32" number="216"/>
-+ <syscall name="pivot_root" number="217"/>
-+ <syscall name="mincore" number="218"/>
-+ <syscall name="madvise" number="219"/>
-+ <syscall name="madvise1" number="220"/>
-+ <syscall name="getdents64" number="221"/>
-+ <syscall name="fcntl64" number="222"/>
-+ <syscall name="gettid" number="224"/>
-+ <syscall name="readahead" number="225"/>
-+ <syscall name="setxattr" number="226"/>
-+ <syscall name="lsetxattr" number="227"/>
-+ <syscall name="fsetxattr" number="228"/>
-+ <syscall name="getxattr" number="229"/>
-+ <syscall name="lgetxattr" number="230"/>
-+ <syscall name="fgetxattr" number="231"/>
-+ <syscall name="listxattr" number="232"/>
-+ <syscall name="llistxattr" number="233"/>
-+ <syscall name="flistxattr" number="234"/>
-+ <syscall name="removexattr" number="235"/>
-+ <syscall name="lremovexattr" number="236"/>
-+ <syscall name="fremovexattr" number="237"/>
-+ <syscall name="tkill" number="238"/>
-+ <syscall name="sendfile64" number="239"/>
-+ <syscall name="futex" number="240"/>
-+ <syscall name="sched_setaffinity" number="241"/>
-+ <syscall name="sched_getaffinity" number="242"/>
-+ <syscall name="set_thread_area" number="243"/>
-+ <syscall name="get_thread_area" number="244"/>
-+ <syscall name="io_setup" number="245"/>
-+ <syscall name="io_destroy" number="246"/>
-+ <syscall name="io_getevents" number="247"/>
-+ <syscall name="io_submit" number="248"/>
-+ <syscall name="io_cancel" number="249"/>
-+ <syscall name="fadvise64" number="250"/>
-+ <syscall name="exit_group" number="252"/>
-+ <syscall name="lookup_dcookie" number="253"/>
-+ <syscall name="epoll_create" number="254"/>
-+ <syscall name="epoll_ctl" number="255"/>
-+ <syscall name="epoll_wait" number="256"/>
-+ <syscall name="remap_file_pages" number="257"/>
-+ <syscall name="set_tid_address" number="258"/>
-+ <syscall name="timer_create" number="259"/>
-+ <syscall name="timer_settime" number="260"/>
-+ <syscall name="timer_gettime" number="261"/>
-+ <syscall name="timer_getoverrun" number="262"/>
-+ <syscall name="timer_delete" number="263"/>
-+ <syscall name="clock_settime" number="264"/>
-+ <syscall name="clock_gettime" number="265"/>
-+ <syscall name="clock_getres" number="266"/>
-+ <syscall name="clock_nanosleep" number="267"/>
-+ <syscall name="statfs64" number="268"/>
-+ <syscall name="fstatfs64" number="269"/>
-+ <syscall name="tgkill" number="270"/>
-+ <syscall name="utimes" number="271"/>
-+ <syscall name="fadvise64_64" number="272"/>
-+ <syscall name="vserver" number="273"/>
-+ <syscall name="mbind" number="274"/>
-+ <syscall name="get_mempolicy" number="275"/>
-+ <syscall name="set_mempolicy" number="276"/>
-+ <syscall name="mq_open" number="277"/>
-+ <syscall name="mq_unlink" number="278"/>
-+ <syscall name="mq_timedsend" number="279"/>
-+ <syscall name="mq_timedreceive" number="280"/>
-+ <syscall name="mq_notify" number="281"/>
-+ <syscall name="mq_getsetattr" number="282"/>
-+ <syscall name="kexec_load" number="283"/>
-+ <syscall name="waitid" number="284"/>
-+ <syscall name="add_key" number="286"/>
-+ <syscall name="request_key" number="287"/>
-+ <syscall name="keyctl" number="288"/>
-+ <syscall name="ioprio_set" number="289"/>
-+ <syscall name="ioprio_get" number="290"/>
-+ <syscall name="inotify_init" number="291"/>
-+ <syscall name="inotify_add_watch" number="292"/>
-+ <syscall name="inotify_rm_watch" number="293"/>
-+ <syscall name="migrate_pages" number="294"/>
-+ <syscall name="openat" number="295"/>
-+ <syscall name="mkdirat" number="296"/>
-+ <syscall name="mknodat" number="297"/>
-+ <syscall name="fchownat" number="298"/>
-+ <syscall name="futimesat" number="299"/>
-+ <syscall name="fstatat64" number="300"/>
-+ <syscall name="unlinkat" number="301"/>
-+ <syscall name="renameat" number="302"/>
-+ <syscall name="linkat" number="303"/>
-+ <syscall name="symlinkat" number="304"/>
-+ <syscall name="readlinkat" number="305"/>
-+ <syscall name="fchmodat" number="306"/>
-+ <syscall name="faccessat" number="307"/>
-+ <syscall name="pselect6" number="308"/>
-+ <syscall name="ppoll" number="309"/>
-+ <syscall name="unshare" number="310"/>
-+ <syscall name="set_robust_list" number="311"/>
-+ <syscall name="get_robust_list" number="312"/>
-+ <syscall name="splice" number="313"/>
-+ <syscall name="sync_file_range" number="314"/>
-+ <syscall name="tee" number="315"/>
-+ <syscall name="vmsplice" number="316"/>
-+ <syscall name="move_pages" number="317"/>
-+ <syscall name="getcpu" number="318"/>
-+ <syscall name="epoll_pwait" number="319"/>
-+ <syscall name="utimensat" number="320"/>
-+ <syscall name="signalfd" number="321"/>
-+ <syscall name="timerfd_create" number="322"/>
-+ <syscall name="eventfd" number="323"/>
-+ <syscall name="fallocate" number="324"/>
-+ <syscall name="timerfd_settime" number="325"/>
-+</syscalls_info>
-diff --git a/gdb/syscalls/ppc-linux.xml b/gdb/syscalls/ppc-linux.xml
-new file mode 100644
-index 0000000..f09fabd
---- /dev/null
-+++ b/gdb/syscalls/ppc-linux.xml
-@@ -0,0 +1,304 @@
-+<?xml version="1.0"?>
-+<!-- Copyright (C) 2007, 2008 Free Software Foundation, Inc.
-+
-+ Copying and distribution of this file, with or without modification,
-+ are permitted in any medium without royalty provided the copyright
-+ notice and this notice are preserved. -->
-+
-+<!DOCTYPE feature SYSTEM "gdb-syscalls.dtd">
-+
-+<syscalls_info>
-+ <syscall name="restart_syscall" number="0"/>
-+ <syscall name="exit" number="1"/>
-+ <syscall name="fork" number="2"/>
-+ <syscall name="read" number="3"/>
-+ <syscall name="write" number="4"/>
-+ <syscall name="open" number="5"/>
-+ <syscall name="close" number="6"/>
-+ <syscall name="waitpid" number="7"/>
-+ <syscall name="creat" number="8"/>
-+ <syscall name="link" number="9"/>
-+ <syscall name="unlink" number="10"/>
-+ <syscall name="execve" number="11"/>
-+ <syscall name="chdir" number="12"/>
-+ <syscall name="time" number="13"/>
-+ <syscall name="mknod" number="14"/>
-+ <syscall name="chmod" number="15"/>
-+ <syscall name="lchown" number="16"/>
-+ <syscall name="break" number="17"/>
-+ <syscall name="oldstat" number="18"/>
-+ <syscall name="lseek" number="19"/>
-+ <syscall name="getpid" number="20"/>
-+ <syscall name="mount" number="21"/>
-+ <syscall name="umount" number="22"/>
-+ <syscall name="setuid" number="23"/>
-+ <syscall name="getuid" number="24"/>
-+ <syscall name="stime" number="25"/>
-+ <syscall name="ptrace" number="26"/>
-+ <syscall name="alarm" number="27"/>
-+ <syscall name="oldfstat" number="28"/>
-+ <syscall name="pause" number="29"/>
-+ <syscall name="utime" number="30"/>
-+ <syscall name="stty" number="31"/>
-+ <syscall name="gtty" number="32"/>
-+ <syscall name="access" number="33"/>
-+ <syscall name="nice" number="34"/>
-+ <syscall name="ftime" number="35"/>
-+ <syscall name="sync" number="36"/>
-+ <syscall name="kill" number="37"/>
-+ <syscall name="rename" number="38"/>
-+ <syscall name="mkdir" number="39"/>
-+ <syscall name="rmdir" number="40"/>
-+ <syscall name="dup" number="41"/>
-+ <syscall name="pipe" number="42"/>
-+ <syscall name="times" number="43"/>
-+ <syscall name="prof" number="44"/>
-+ <syscall name="brk" number="45"/>
-+ <syscall name="setgid" number="46"/>
-+ <syscall name="getgid" number="47"/>
-+ <syscall name="signal" number="48"/>
-+ <syscall name="geteuid" number="49"/>
-+ <syscall name="getegid" number="50"/>
-+ <syscall name="acct" number="51"/>
-+ <syscall name="umount2" number="52"/>
-+ <syscall name="lock" number="53"/>
-+ <syscall name="ioctl" number="54"/>
-+ <syscall name="fcntl" number="55"/>
-+ <syscall name="mpx" number="56"/>
-+ <syscall name="setpgid" number="57"/>
-+ <syscall name="ulimit" number="58"/>
-+ <syscall name="oldolduname" number="59"/>
-+ <syscall name="umask" number="60"/>
-+ <syscall name="chroot" number="61"/>
-+ <syscall name="ustat" number="62"/>
-+ <syscall name="dup2" number="63"/>
-+ <syscall name="getppid" number="64"/>
-+ <syscall name="getpgrp" number="65"/>
-+ <syscall name="setsid" number="66"/>
-+ <syscall name="sigaction" number="67"/>
-+ <syscall name="sgetmask" number="68"/>
-+ <syscall name="ssetmask" number="69"/>
-+ <syscall name="setreuid" number="70"/>
-+ <syscall name="setregid" number="71"/>
-+ <syscall name="sigsuspend" number="72"/>
-+ <syscall name="sigpending" number="73"/>
-+ <syscall name="sethostname" number="74"/>
-+ <syscall name="setrlimit" number="75"/>
-+ <syscall name="getrlimit" number="76"/>
-+ <syscall name="getrusage" number="77"/>
-+ <syscall name="gettimeofday" number="78"/>
-+ <syscall name="settimeofday" number="79"/>
-+ <syscall name="getgroups" number="80"/>
-+ <syscall name="setgroups" number="81"/>
-+ <syscall name="select" number="82"/>
-+ <syscall name="symlink" number="83"/>
-+ <syscall name="oldlstat" number="84"/>
-+ <syscall name="readlink" number="85"/>
-+ <syscall name="uselib" number="86"/>
-+ <syscall name="swapon" number="87"/>
-+ <syscall name="reboot" number="88"/>
-+ <syscall name="readdir" number="89"/>
-+ <syscall name="mmap" number="90"/>
-+ <syscall name="munmap" number="91"/>
-+ <syscall name="truncate" number="92"/>
-+ <syscall name="ftruncate" number="93"/>
-+ <syscall name="fchmod" number="94"/>
-+ <syscall name="fchown" number="95"/>
-+ <syscall name="getpriority" number="96"/>
-+ <syscall name="setpriority" number="97"/>
-+ <syscall name="profil" number="98"/>
-+ <syscall name="statfs" number="99"/>
-+ <syscall name="fstatfs" number="100"/>
-+ <syscall name="ioperm" number="101"/>
-+ <syscall name="socketcall" number="102"/>
-+ <syscall name="syslog" number="103"/>
-+ <syscall name="setitimer" number="104"/>
-+ <syscall name="getitimer" number="105"/>
-+ <syscall name="stat" number="106"/>
-+ <syscall name="lstat" number="107"/>
-+ <syscall name="fstat" number="108"/>
-+ <syscall name="olduname" number="109"/>
-+ <syscall name="iopl" number="110"/>
-+ <syscall name="vhangup" number="111"/>
-+ <syscall name="idle" number="112"/>
-+ <syscall name="vm86" number="113"/>
-+ <syscall name="wait4" number="114"/>
-+ <syscall name="swapoff" number="115"/>
-+ <syscall name="sysinfo" number="116"/>
-+ <syscall name="ipc" number="117"/>
-+ <syscall name="fsync" number="118"/>
-+ <syscall name="sigreturn" number="119"/>
-+ <syscall name="clone" number="120"/>
-+ <syscall name="setdomainname" number="121"/>
-+ <syscall name="uname" number="122"/>
-+ <syscall name="modify_ldt" number="123"/>
-+ <syscall name="adjtimex" number="124"/>
-+ <syscall name="mprotect" number="125"/>
-+ <syscall name="sigprocmask" number="126"/>
-+ <syscall name="create_module" number="127"/>
-+ <syscall name="init_module" number="128"/>
-+ <syscall name="delete_module" number="129"/>
-+ <syscall name="get_kernel_syms" number="130"/>
-+ <syscall name="quotactl" number="131"/>
-+ <syscall name="getpgid" number="132"/>
-+ <syscall name="fchdir" number="133"/>
-+ <syscall name="bdflush" number="134"/>
-+ <syscall name="sysfs" number="135"/>
-+ <syscall name="personality" number="136"/>
-+ <syscall name="afs_syscall" number="137"/>
-+ <syscall name="setfsuid" number="138"/>
-+ <syscall name="setfsgid" number="139"/>
-+ <syscall name="_llseek" number="140"/>
-+ <syscall name="getdents" number="141"/>
-+ <syscall name="_newselect" number="142"/>
-+ <syscall name="flock" number="143"/>
-+ <syscall name="msync" number="144"/>
-+ <syscall name="readv" number="145"/>
-+ <syscall name="writev" number="146"/>
-+ <syscall name="getsid" number="147"/>
-+ <syscall name="fdatasync" number="148"/>
-+ <syscall name="_sysctl" number="149"/>
-+ <syscall name="mlock" number="150"/>
-+ <syscall name="munlock" number="151"/>
-+ <syscall name="mlockall" number="152"/>
-+ <syscall name="munlockall" number="153"/>
-+ <syscall name="sched_setparam" number="154"/>
-+ <syscall name="sched_getparam" number="155"/>
-+ <syscall name="sched_setscheduler" number="156"/>
-+ <syscall name="sched_getscheduler" number="157"/>
-+ <syscall name="sched_yield" number="158"/>
-+ <syscall name="sched_get_priority_max" number="159"/>
-+ <syscall name="sched_get_priority_min" number="160"/>
-+ <syscall name="sched_rr_get_interval" number="161"/>
-+ <syscall name="nanosleep" number="162"/>
-+ <syscall name="mremap" number="163"/>
-+ <syscall name="setresuid" number="164"/>
-+ <syscall name="getresuid" number="165"/>
-+ <syscall name="query_module" number="166"/>
-+ <syscall name="poll" number="167"/>
-+ <syscall name="nfsservctl" number="168"/>
-+ <syscall name="setresgid" number="169"/>
-+ <syscall name="getresgid" number="170"/>
-+ <syscall name="prctl" number="171"/>
-+ <syscall name="rt_sigreturn" number="172"/>
-+ <syscall name="rt_sigaction" number="173"/>
-+ <syscall name="rt_sigprocmask" number="174"/>
-+ <syscall name="rt_sigpending" number="175"/>
-+ <syscall name="rt_sigtimedwait" number="176"/>
-+ <syscall name="rt_sigqueueinfo" number="177"/>
-+ <syscall name="rt_sigsuspend" number="178"/>
-+ <syscall name="pread64" number="179"/>
-+ <syscall name="pwrite64" number="180"/>
-+ <syscall name="chown" number="181"/>
-+ <syscall name="getcwd" number="182"/>
-+ <syscall name="capget" number="183"/>
-+ <syscall name="capset" number="184"/>
-+ <syscall name="sigaltstack" number="185"/>
-+ <syscall name="sendfile" number="186"/>
-+ <syscall name="getpmsg" number="187"/>
-+ <syscall name="putpmsg" number="188"/>
-+ <syscall name="vfork" number="189"/>
-+ <syscall name="ugetrlimit" number="190"/>
-+ <syscall name="readahead" number="191"/>
-+ <syscall name="mmap2" number="192"/>
-+ <syscall name="truncate64" number="193"/>
-+ <syscall name="ftruncate64" number="194"/>
-+ <syscall name="stat64" number="195"/>
-+ <syscall name="lstat64" number="196"/>
-+ <syscall name="fstat64" number="197"/>
-+ <syscall name="pciconfig_read" number="198"/>
-+ <syscall name="pciconfig_write" number="199"/>
-+ <syscall name="pciconfig_iobase" number="200"/>
-+ <syscall name="multiplexer" number="201"/>
-+ <syscall name="getdents64" number="202"/>
-+ <syscall name="pivot_root" number="203"/>
-+ <syscall name="fcntl64" number="204"/>
-+ <syscall name="madvise" number="205"/>
-+ <syscall name="mincore" number="206"/>
-+ <syscall name="gettid" number="207"/>
-+ <syscall name="tkill" number="208"/>
-+ <syscall name="setxattr" number="209"/>
-+ <syscall name="lsetxattr" number="210"/>
-+ <syscall name="fsetxattr" number="211"/>
-+ <syscall name="getxattr" number="212"/>
-+ <syscall name="lgetxattr" number="213"/>
-+ <syscall name="fgetxattr" number="214"/>
-+ <syscall name="listxattr" number="215"/>
-+ <syscall name="llistxattr" number="216"/>
-+ <syscall name="flistxattr" number="217"/>
-+ <syscall name="removexattr" number="218"/>
-+ <syscall name="lremovexattr" number="219"/>
-+ <syscall name="fremovexattr" number="220"/>
-+ <syscall name="futex" number="221"/>
-+ <syscall name="sched_setaffinity" number="222"/>
-+ <syscall name="sched_getaffinity" number="223"/>
-+ <syscall name="tuxcall" number="225"/>
-+ <syscall name="sendfile64" number="226"/>
-+ <syscall name="io_setup" number="227"/>
-+ <syscall name="io_destroy" number="228"/>
-+ <syscall name="io_getevents" number="229"/>
-+ <syscall name="io_submit" number="230"/>
-+ <syscall name="io_cancel" number="231"/>
-+ <syscall name="set_tid_address" number="232"/>
-+ <syscall name="fadvise64" number="233"/>
-+ <syscall name="exit_group" number="234"/>
-+ <syscall name="lookup_dcookie" number="235"/>
-+ <syscall name="epoll_create" number="236"/>
-+ <syscall name="epoll_ctl" number="237"/>
-+ <syscall name="epoll_wait" number="238"/>
-+ <syscall name="remap_file_pages" number="239"/>
-+ <syscall name="timer_create" number="240"/>
-+ <syscall name="timer_settime" number="241"/>
-+ <syscall name="timer_gettime" number="242"/>
-+ <syscall name="timer_getoverrun" number="243"/>
-+ <syscall name="timer_delete" number="244"/>
-+ <syscall name="clock_settime" number="245"/>
-+ <syscall name="clock_gettime" number="246"/>
-+ <syscall name="clock_getres" number="247"/>
-+ <syscall name="clock_nanosleep" number="248"/>
-+ <syscall name="swapcontext" number="249"/>
-+ <syscall name="tgkill" number="250"/>
-+ <syscall name="utimes" number="251"/>
-+ <syscall name="statfs64" number="252"/>
-+ <syscall name="fstatfs64" number="253"/>
-+ <syscall name="fadvise64_64" number="254"/>
-+ <syscall name="rtas" number="255"/>
-+ <syscall name="sys_debug_setcontext" number="256"/>
-+ <syscall name="mbind" number="259"/>
-+ <syscall name="get_mempolicy" number="260"/>
-+ <syscall name="set_mempolicy" number="261"/>
-+ <syscall name="mq_open" number="262"/>
-+ <syscall name="mq_unlink" number="263"/>
-+ <syscall name="mq_timedsend" number="264"/>
-+ <syscall name="mq_timedreceive" number="265"/>
-+ <syscall name="mq_notify" number="266"/>
-+ <syscall name="mq_getsetattr" number="267"/>
-+ <syscall name="kexec_load" number="268"/>
-+ <syscall name="add_key" number="269"/>
-+ <syscall name="request_key" number="270"/>
-+ <syscall name="keyctl" number="271"/>
-+ <syscall name="waitid" number="272"/>
-+ <syscall name="ioprio_set" number="273"/>
-+ <syscall name="ioprio_get" number="274"/>
-+ <syscall name="inotify_init" number="275"/>
-+ <syscall name="inotify_add_watch" number="276"/>
-+ <syscall name="inotify_rm_watch" number="277"/>
-+ <syscall name="spu_run" number="278"/>
-+ <syscall name="spu_create" number="279"/>
-+ <syscall name="pselect6" number="280"/>
-+ <syscall name="ppoll" number="281"/>
-+ <syscall name="unshare" number="282"/>
-+ <syscall name="openat" number="286"/>
-+ <syscall name="mkdirat" number="287"/>
-+ <syscall name="mknodat" number="288"/>
-+ <syscall name="fchownat" number="289"/>
-+ <syscall name="futimesat" number="290"/>
-+ <syscall name="fstatat64" number="291"/>
-+ <syscall name="unlinkat" number="292"/>
-+ <syscall name="renameat" number="293"/>
-+ <syscall name="linkat" number="294"/>
-+ <syscall name="symlinkat" number="295"/>
-+ <syscall name="readlinkat" number="296"/>
-+ <syscall name="fchmodat" number="297"/>
-+ <syscall name="faccessat" number="298"/>
-+</syscalls_info>
-diff --git a/gdb/syscalls/ppc64-linux.xml b/gdb/syscalls/ppc64-linux.xml
-new file mode 100644
-index 0000000..7ee929c
---- /dev/null
-+++ b/gdb/syscalls/ppc64-linux.xml
-@@ -0,0 +1,289 @@
-+<?xml version="1.0"?>
-+<!-- Copyright (C) 2007, 2008 Free Software Foundation, Inc.
-+
-+ Copying and distribution of this file, with or without modification,
-+ are permitted in any medium without royalty provided the copyright
-+ notice and this notice are preserved. -->
-+
-+<!DOCTYPE feature SYSTEM "gdb-syscalls.dtd">
-+
-+<syscalls_info>
-+ <syscall name="restart_syscall" number="0"/>
-+ <syscall name="exit" number="1"/>
-+ <syscall name="fork" number="2"/>
-+ <syscall name="read" number="3"/>
-+ <syscall name="write" number="4"/>
-+ <syscall name="open" number="5"/>
-+ <syscall name="close" number="6"/>
-+ <syscall name="waitpid" number="7"/>
-+ <syscall name="creat" number="8"/>
-+ <syscall name="link" number="9"/>
-+ <syscall name="unlink" number="10"/>
-+ <syscall name="execve" number="11"/>
-+ <syscall name="chdir" number="12"/>
-+ <syscall name="time" number="13"/>
-+ <syscall name="mknod" number="14"/>
-+ <syscall name="chmod" number="15"/>
-+ <syscall name="lchown" number="16"/>
-+ <syscall name="break" number="17"/>
-+ <syscall name="oldstat" number="18"/>
-+ <syscall name="lseek" number="19"/>
-+ <syscall name="getpid" number="20"/>
-+ <syscall name="mount" number="21"/>
-+ <syscall name="umount" number="22"/>
-+ <syscall name="setuid" number="23"/>
-+ <syscall name="getuid" number="24"/>
-+ <syscall name="stime" number="25"/>
-+ <syscall name="ptrace" number="26"/>
-+ <syscall name="alarm" number="27"/>
-+ <syscall name="oldfstat" number="28"/>
-+ <syscall name="pause" number="29"/>
-+ <syscall name="utime" number="30"/>
-+ <syscall name="stty" number="31"/>
-+ <syscall name="gtty" number="32"/>
-+ <syscall name="access" number="33"/>
-+ <syscall name="nice" number="34"/>
-+ <syscall name="ftime" number="35"/>
-+ <syscall name="sync" number="36"/>
-+ <syscall name="kill" number="37"/>
-+ <syscall name="rename" number="38"/>
-+ <syscall name="mkdir" number="39"/>
-+ <syscall name="rmdir" number="40"/>
-+ <syscall name="dup" number="41"/>
-+ <syscall name="pipe" number="42"/>
-+ <syscall name="times" number="43"/>
-+ <syscall name="prof" number="44"/>
-+ <syscall name="brk" number="45"/>
-+ <syscall name="setgid" number="46"/>
-+ <syscall name="getgid" number="47"/>
-+ <syscall name="signal" number="48"/>
-+ <syscall name="geteuid" number="49"/>
-+ <syscall name="getegid" number="50"/>
-+ <syscall name="acct" number="51"/>
-+ <syscall name="umount2" number="52"/>
-+ <syscall name="lock" number="53"/>
-+ <syscall name="ioctl" number="54"/>
-+ <syscall name="fcntl" number="55"/>
-+ <syscall name="mpx" number="56"/>
-+ <syscall name="setpgid" number="57"/>
-+ <syscall name="ulimit" number="58"/>
-+ <syscall name="oldolduname" number="59"/>
-+ <syscall name="umask" number="60"/>
-+ <syscall name="chroot" number="61"/>
-+ <syscall name="ustat" number="62"/>
-+ <syscall name="dup2" number="63"/>
-+ <syscall name="getppid" number="64"/>
-+ <syscall name="getpgrp" number="65"/>
-+ <syscall name="setsid" number="66"/>
-+ <syscall name="sigaction" number="67"/>
-+ <syscall name="sgetmask" number="68"/>
-+ <syscall name="ssetmask" number="69"/>
-+ <syscall name="setreuid" number="70"/>
-+ <syscall name="setregid" number="71"/>
-+ <syscall name="sigsuspend" number="72"/>
-+ <syscall name="sigpending" number="73"/>
-+ <syscall name="sethostname" number="74"/>
-+ <syscall name="setrlimit" number="75"/>
-+ <syscall name="getrlimit" number="76"/>
-+ <syscall name="getrusage" number="77"/>
-+ <syscall name="gettimeofday" number="78"/>
-+ <syscall name="settimeofday" number="79"/>
-+ <syscall name="getgroups" number="80"/>
-+ <syscall name="setgroups" number="81"/>
-+ <syscall name="select" number="82"/>
-+ <syscall name="symlink" number="83"/>
-+ <syscall name="oldlstat" number="84"/>
-+ <syscall name="readlink" number="85"/>
-+ <syscall name="uselib" number="86"/>
-+ <syscall name="swapon" number="87"/>
-+ <syscall name="reboot" number="88"/>
-+ <syscall name="readdir" number="89"/>
-+ <syscall name="mmap" number="90"/>
-+ <syscall name="munmap" number="91"/>
-+ <syscall name="truncate" number="92"/>
-+ <syscall name="ftruncate" number="93"/>
-+ <syscall name="fchmod" number="94"/>
-+ <syscall name="fchown" number="95"/>
-+ <syscall name="getpriority" number="96"/>
-+ <syscall name="setpriority" number="97"/>
-+ <syscall name="profil" number="98"/>
-+ <syscall name="statfs" number="99"/>
-+ <syscall name="fstatfs" number="100"/>
-+ <syscall name="ioperm" number="101"/>
-+ <syscall name="socketcall" number="102"/>
-+ <syscall name="syslog" number="103"/>
-+ <syscall name="setitimer" number="104"/>
-+ <syscall name="getitimer" number="105"/>
-+ <syscall name="stat" number="106"/>
-+ <syscall name="lstat" number="107"/>
-+ <syscall name="fstat" number="108"/>
-+ <syscall name="olduname" number="109"/>
-+ <syscall name="iopl" number="110"/>
-+ <syscall name="vhangup" number="111"/>
-+ <syscall name="idle" number="112"/>
-+ <syscall name="vm86" number="113"/>
-+ <syscall name="wait4" number="114"/>
-+ <syscall name="swapoff" number="115"/>
-+ <syscall name="sysinfo" number="116"/>
-+ <syscall name="ipc" number="117"/>
-+ <syscall name="fsync" number="118"/>
-+ <syscall name="sigreturn" number="119"/>
-+ <syscall name="clone" number="120"/>
-+ <syscall name="setdomainname" number="121"/>
-+ <syscall name="uname" number="122"/>
-+ <syscall name="modify_ldt" number="123"/>
-+ <syscall name="adjtimex" number="124"/>
-+ <syscall name="mprotect" number="125"/>
-+ <syscall name="sigprocmask" number="126"/>
-+ <syscall name="create_module" number="127"/>
-+ <syscall name="init_module" number="128"/>
-+ <syscall name="delete_module" number="129"/>
-+ <syscall name="get_kernel_syms" number="130"/>
-+ <syscall name="quotactl" number="131"/>
-+ <syscall name="getpgid" number="132"/>
-+ <syscall name="fchdir" number="133"/>
-+ <syscall name="bdflush" number="134"/>
-+ <syscall name="sysfs" number="135"/>
-+ <syscall name="personality" number="136"/>
-+ <syscall name="afs_syscall" number="137"/>
-+ <syscall name="setfsuid" number="138"/>
-+ <syscall name="setfsgid" number="139"/>
-+ <syscall name="_llseek" number="140"/>
-+ <syscall name="getdents" number="141"/>
-+ <syscall name="_newselect" number="142"/>
-+ <syscall name="flock" number="143"/>
-+ <syscall name="msync" number="144"/>
-+ <syscall name="readv" number="145"/>
-+ <syscall name="writev" number="146"/>
-+ <syscall name="getsid" number="147"/>
-+ <syscall name="fdatasync" number="148"/>
-+ <syscall name="_sysctl" number="149"/>
-+ <syscall name="mlock" number="150"/>
-+ <syscall name="munlock" number="151"/>
-+ <syscall name="mlockall" number="152"/>
-+ <syscall name="munlockall" number="153"/>
-+ <syscall name="sched_setparam" number="154"/>
-+ <syscall name="sched_getparam" number="155"/>
-+ <syscall name="sched_setscheduler" number="156"/>
-+ <syscall name="sched_getscheduler" number="157"/>
-+ <syscall name="sched_yield" number="158"/>
-+ <syscall name="sched_get_priority_max" number="159"/>
-+ <syscall name="sched_get_priority_min" number="160"/>
-+ <syscall name="sched_rr_get_interval" number="161"/>
-+ <syscall name="nanosleep" number="162"/>
-+ <syscall name="mremap" number="163"/>
-+ <syscall name="setresuid" number="164"/>
-+ <syscall name="getresuid" number="165"/>
-+ <syscall name="query_module" number="166"/>
-+ <syscall name="poll" number="167"/>
-+ <syscall name="nfsservctl" number="168"/>
-+ <syscall name="setresgid" number="169"/>
-+ <syscall name="getresgid" number="170"/>
-+ <syscall name="prctl" number="171"/>
-+ <syscall name="rt_sigreturn" number="172"/>
-+ <syscall name="rt_sigaction" number="173"/>
-+ <syscall name="rt_sigprocmask" number="174"/>
-+ <syscall name="rt_sigpending" number="175"/>
-+ <syscall name="rt_sigtimedwait" number="176"/>
-+ <syscall name="rt_sigqueueinfo" number="177"/>
-+ <syscall name="rt_sigsuspend" number="178"/>
-+ <syscall name="pread64" number="179"/>
-+ <syscall name="pwrite64" number="180"/>
-+ <syscall name="chown" number="181"/>
-+ <syscall name="getcwd" number="182"/>
-+ <syscall name="capget" number="183"/>
-+ <syscall name="capset" number="184"/>
-+ <syscall name="sigaltstack" number="185"/>
-+ <syscall name="sendfile" number="186"/>
-+ <syscall name="getpmsg" number="187"/>
-+ <syscall name="putpmsg" number="188"/>
-+ <syscall name="vfork" number="189"/>
-+ <syscall name="ugetrlimit" number="190"/>
-+ <syscall name="readahead" number="191"/>
-+ <syscall name="pciconfig_read" number="198"/>
-+ <syscall name="pciconfig_write" number="199"/>
-+ <syscall name="pciconfig_iobase" number="200"/>
-+ <syscall name="multiplexer" number="201"/>
-+ <syscall name="getdents64" number="202"/>
-+ <syscall name="pivot_root" number="203"/>
-+ <syscall name="madvise" number="205"/>
-+ <syscall name="mincore" number="206"/>
-+ <syscall name="gettid" number="207"/>
-+ <syscall name="tkill" number="208"/>
-+ <syscall name="setxattr" number="209"/>
-+ <syscall name="lsetxattr" number="210"/>
-+ <syscall name="fsetxattr" number="211"/>
-+ <syscall name="getxattr" number="212"/>
-+ <syscall name="lgetxattr" number="213"/>
-+ <syscall name="fgetxattr" number="214"/>
-+ <syscall name="listxattr" number="215"/>
-+ <syscall name="llistxattr" number="216"/>
-+ <syscall name="flistxattr" number="217"/>
-+ <syscall name="removexattr" number="218"/>
-+ <syscall name="lremovexattr" number="219"/>
-+ <syscall name="fremovexattr" number="220"/>
-+ <syscall name="futex" number="221"/>
-+ <syscall name="sched_setaffinity" number="222"/>
-+ <syscall name="sched_getaffinity" number="223"/>
-+ <syscall name="tuxcall" number="225"/>
-+ <syscall name="io_setup" number="227"/>
-+ <syscall name="io_destroy" number="228"/>
-+ <syscall name="io_getevents" number="229"/>
-+ <syscall name="io_submit" number="230"/>
-+ <syscall name="io_cancel" number="231"/>
-+ <syscall name="set_tid_address" number="232"/>
-+ <syscall name="fadvise64" number="233"/>
-+ <syscall name="exit_group" number="234"/>
-+ <syscall name="lookup_dcookie" number="235"/>
-+ <syscall name="epoll_create" number="236"/>
-+ <syscall name="epoll_ctl" number="237"/>
-+ <syscall name="epoll_wait" number="238"/>
-+ <syscall name="remap_file_pages" number="239"/>
-+ <syscall name="timer_create" number="240"/>
-+ <syscall name="timer_settime" number="241"/>
-+ <syscall name="timer_gettime" number="242"/>
-+ <syscall name="timer_getoverrun" number="243"/>
-+ <syscall name="timer_delete" number="244"/>
-+ <syscall name="clock_settime" number="245"/>
-+ <syscall name="clock_gettime" number="246"/>
-+ <syscall name="clock_getres" number="247"/>
-+ <syscall name="clock_nanosleep" number="248"/>
-+ <syscall name="swapcontext" number="249"/>
-+ <syscall name="tgkill" number="250"/>
-+ <syscall name="utimes" number="251"/>
-+ <syscall name="statfs64" number="252"/>
-+ <syscall name="fstatfs64" number="253"/>
-+ <syscall name="rtas" number="255"/>
-+ <syscall name="sys_debug_setcontext" number="256"/>
-+ <syscall name="mbind" number="259"/>
-+ <syscall name="get_mempolicy" number="260"/>
-+ <syscall name="set_mempolicy" number="261"/>
-+ <syscall name="mq_open" number="262"/>
-+ <syscall name="mq_unlink" number="263"/>
-+ <syscall name="mq_timedsend" number="264"/>
-+ <syscall name="mq_timedreceive" number="265"/>
-+ <syscall name="mq_notify" number="266"/>
-+ <syscall name="mq_getsetattr" number="267"/>
-+ <syscall name="kexec_load" number="268"/>
-+ <syscall name="add_key" number="269"/>
-+ <syscall name="request_key" number="270"/>
-+ <syscall name="keyctl" number="271"/>
-+ <syscall name="waitid" number="272"/>
-+ <syscall name="ioprio_set" number="273"/>
-+ <syscall name="ioprio_get" number="274"/>
-+ <syscall name="inotify_init" number="275"/>
-+ <syscall name="inotify_add_watch" number="276"/>
-+ <syscall name="inotify_rm_watch" number="277"/>
-+ <syscall name="spu_run" number="278"/>
-+ <syscall name="spu_create" number="279"/>
-+ <syscall name="pselect6" number="280"/>
-+ <syscall name="ppoll" number="281"/>
-+ <syscall name="unshare" number="282"/>
-+ <syscall name="unlinkat" number="286"/>
-+ <syscall name="renameat" number="287"/>
-+ <syscall name="linkat" number="288"/>
-+ <syscall name="symlinkat" number="289"/>
-+ <syscall name="readlinkat" number="290"/>
-+ <syscall name="fchmodat" number="291"/>
-+ <syscall name="faccessat" number="292"/>
-+</syscalls_info>
-diff --git a/gdb/target.c b/gdb/target.c
-index b89d551..831070c 100644
---- a/gdb/target.c
-+++ b/gdb/target.c
-@@ -443,6 +443,8 @@ update_current_target (void)
- /* Do not inherit to_follow_fork. */
- INHERIT (to_insert_exec_catchpoint, t);
- INHERIT (to_remove_exec_catchpoint, t);
-+ INHERIT (to_passed_by_entrypoint, t);
-+ INHERIT (to_set_syscall_catchpoint, t);
- INHERIT (to_has_exited, t);
- /* Do not inherit to_mourn_inferiour. */
- INHERIT (to_can_run, t);
-@@ -586,9 +588,15 @@ update_current_target (void)
- de_fault (to_insert_exec_catchpoint,
- (void (*) (int))
- tcomplain);
-+ de_fault (to_passed_by_entrypoint,
-+ (int (*) (void))
-+ tcomplain);
- de_fault (to_remove_exec_catchpoint,
- (int (*) (int))
- tcomplain);
-+ de_fault (to_set_syscall_catchpoint,
-+ (int (*) (int, int, int, int, int *))
-+ tcomplain);
- de_fault (to_has_exited,
- (int (*) (int, int, int *))
- return_zero);
-@@ -2677,9 +2685,9 @@ target_waitstatus_to_string (const struct target_waitstatus *ws)
- case TARGET_WAITKIND_EXECD:
- return xstrprintf ("%sexecd", kind_str);
- case TARGET_WAITKIND_SYSCALL_ENTRY:
-- return xstrprintf ("%ssyscall-entry", kind_str);
-+ return xstrprintf ("%sentered syscall", kind_str);
- case TARGET_WAITKIND_SYSCALL_RETURN:
-- return xstrprintf ("%ssyscall-return", kind_str);
-+ return xstrprintf ("%sexited syscall", kind_str);
- case TARGET_WAITKIND_SPURIOUS:
- return xstrprintf ("%sspurious", kind_str);
- case TARGET_WAITKIND_IGNORE:
-diff --git a/gdb/target.h b/gdb/target.h
-index 7f4cd8f..8dcc3d6 100644
---- a/gdb/target.h
-+++ b/gdb/target.h
-@@ -140,18 +140,34 @@ struct target_waitstatus
- {
- enum target_waitkind kind;
-
-- /* Forked child pid, execd pathname, exit status or signal number. */
-+ /* Forked child pid, execd pathname, exit status, signal number or
-+ syscall name. */
- union
- {
- int integer;
- enum target_signal sig;
- ptid_t related_pid;
- char *execd_pathname;
-- int syscall_id;
-+ int syscall_number;
- }
- value;
- };
-
-+/* The structure below stores information about a system call.
-+ It is basically used in the "catch syscall" command, and in
-+ every function that gives information about a system call.
-+
-+ It's also good to mention that its fields represent everything
-+ that we currently know about a syscall in GDB. */
-+struct syscall
-+ {
-+ /* The syscall number. */
-+ int number;
-+
-+ /* The syscall name. */
-+ const char *name;
-+ };
-+
- /* Return a pretty printed form of target_waitstatus.
- Space for the result is malloc'd, caller must free. */
- extern char *target_waitstatus_to_string (const struct target_waitstatus *);
-@@ -392,6 +408,8 @@ struct target_ops
- int (*to_follow_fork) (struct target_ops *, int);
- void (*to_insert_exec_catchpoint) (int);
- int (*to_remove_exec_catchpoint) (int);
-+ int (*to_passed_by_entrypoint) (void);
-+ int (*to_set_syscall_catchpoint) (int, int, int, int, int *);
- int (*to_has_exited) (int, int, int *);
- void (*to_mourn_inferior) (struct target_ops *);
- int (*to_can_run) (void);
-@@ -723,6 +741,8 @@ extern int inferior_has_vforked (ptid_t pid, ptid_t *child_pid);
-
- extern int inferior_has_execd (ptid_t pid, char **execd_pathname);
-
-+extern int inferior_has_called_syscall (ptid_t pid, int *syscall_number);
-+
- /* From exec.c */
-
- extern void print_section_info (struct target_ops *, bfd *);
-@@ -881,6 +901,21 @@ int target_follow_fork (int follow_child);
- #define target_remove_exec_catchpoint(pid) \
- (*current_target.to_remove_exec_catchpoint) (pid)
-
-+/* Has the inferior already passed through its entrypoint? */
-+#define target_passed_by_entrypoint() \
-+ (*current_target.to_passed_by_entrypoint) ()
-+
-+/* Syscall catch. NEEDED is nonzero if any syscall catch (of any
-+ kind) is requested. ANY_COUNT is nonzero if a generic
-+ (filter-less) syscall catch is being requested. TABLE is an array
-+ of ints, indexed by syscall number. An element in this array is
-+ nonzero if that syscall should be caught. TABLE_SIZE is the number
-+ of elements in TABLE. */
-+
-+#define target_set_syscall_catchpoint(pid, needed, any_count, table_size, table) \
-+ (*current_target.to_set_syscall_catchpoint) (pid, needed, any_count, \
-+ table_size, table)
-+
- /* Returns TRUE if PID has exited. And, also sets EXIT_STATUS to the
- exit code of PID, if any. */
-
-@@ -1146,6 +1181,20 @@ extern int target_search_memory (CORE_ADDR start_addr,
- ULONGEST pattern_len,
- CORE_ADDR *found_addrp);
-
-+/* Utility functions which can be used by search_memory implementations. */
-+
-+void allocate_pattern_buffer (char **pattern_bufp, char **pattern_buf_end,
-+ ULONGEST *pattern_buf_size);
-+
-+void increase_pattern_buffer (char **pattern_bufp, char **pattern_buf_end,
-+ ULONGEST *pattern_buf_size, int val_bytes);
-+
-+int search_memory (CORE_ADDR *start_addr, ULONGEST *search_space_len,
-+ const char *pattern_buf, ULONGEST pattern_len,
-+ CORE_ADDR *found_addr);
-+
-+void put_bits (bfd_uint64_t data, char *buf, int bits, bfd_boolean big_p);
-+
- /* Command logging facility. */
-
- #define target_log_command(p) \
-diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
-index e3aaeab..e886869 100644
---- a/gdb/testsuite/ChangeLog
-+++ b/gdb/testsuite/ChangeLog
-@@ -1,3 +1,7 @@
-+2009-03-05 Pedro Alves <pedro@codesourcery.com>
-+
-+ * gdb.arch/i386-permbkpt.S, gdb.arch/i386-permbkpt.exp: New.
-+
- 2009-02-18 Jan Kratochvil <jan.kratochvil@redhat.com>
-
- * gdb.base/macscp.exp (objfile): Move it to ${objdir}/${subdir}/.
-diff --git a/gdb/testsuite/configure.ac b/gdb/testsuite/configure.ac
-index 3d8fae4..5fb9067 100644
---- a/gdb/testsuite/configure.ac
-+++ b/gdb/testsuite/configure.ac
-@@ -1,7 +1,7 @@
- # -*- Autoconf -*-
- # Process this file with autoconf to produce a configure script.
-
--# Copyright 2002, 2003, 2004, 2005
-+# Copyright 2002, 2003, 2004, 2005, 2008
- # Free Software Foundation, Inc.
- #
- # This program is free software; you can redistribute it and/or modify
-diff --git a/gdb/testsuite/gdb.arch/i386-permbkpt.S b/gdb/testsuite/gdb.arch/i386-permbkpt.S
-new file mode 100644
-index 0000000..02a31d6
---- /dev/null
-+++ b/gdb/testsuite/gdb.arch/i386-permbkpt.S
-@@ -0,0 +1,30 @@
-+/* Copyright 2009 Free Software Foundation, Inc.
-+
-+ 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/>.
-+
-+ This file is part of the gdb testsuite. */
-+
-+#define CONCAT1(a, b) CONCAT2(a, b)
-+#define CONCAT2(a, b) a ## b
-+
-+#ifdef SYMBOL_PREFIX
-+# define SYMBOL(str) CONCAT1(SYMBOL_PREFIX, str)
-+#else
-+# define SYMBOL(str) str
-+#endif
-+
-+ .global SYMBOL(main)
-+SYMBOL(main):
-+ int3
-+ ret
-diff --git a/gdb/testsuite/gdb.arch/i386-permbkpt.exp b/gdb/testsuite/gdb.arch/i386-permbkpt.exp
-new file mode 100644
-index 0000000..f1930e5
---- /dev/null
-+++ b/gdb/testsuite/gdb.arch/i386-permbkpt.exp
-@@ -0,0 +1,52 @@
-+# Copyright (C) 2009 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+
-+# This file is part of the gdb testsuite.
-+
-+if $tracelevel {
-+ strace $tracelevel
-+}
-+
-+# Test inserting breakpoints over permanent breakpoints on i386 and amd64.
-+
-+if { ![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"] } then {
-+ verbose "Skipping i386 test for multi break at permanent breakpoint location."
-+ return
-+}
-+
-+set testfile "i386-permbkpt"
-+set srcfile ${testfile}.S
-+set binfile ${objdir}/${subdir}/${testfile}
-+
-+# Some targets have leading underscores on assembly symbols.
-+# TODO: detect this automatically
-+set additional_flags ""
-+if { [istarget "*-*-cygwin*"] || [istarget "*-*-mingw*"] } then {
-+ set additional_flags "additional_flags=-DSYMBOL_PREFIX=_"
-+}
-+
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug $additional_flags]] != "" } {
-+ untested i386-permbkpt.exp
-+ return -1
-+}
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+gdb_test "break main" "" "First permanent break"
-+gdb_test "break main" "" "Second permanent break"
-diff --git a/gdb/testsuite/gdb.arch/powerpc-power7.exp b/gdb/testsuite/gdb.arch/powerpc-power7.exp
-new file mode 100644
-index 0000000..d9c48f9
---- /dev/null
-+++ b/gdb/testsuite/gdb.arch/powerpc-power7.exp
-@@ -0,0 +1,166 @@
-+# Copyright 2009 Free Software Foundation, Inc.
-+
-+# 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 2 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, write to the Free Software
-+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-+
-+# Test PowerPC Power7 instructions disassembly.
-+
-+if {![istarget "powerpc*-*-*"]} then {
-+ verbose "Skipping PowerPC Power7 instructions disassembly."
-+ return
-+}
-+
-+set testfile "powerpc-power7"
-+set srcfile ${testfile}.s
-+set objfile ${objdir}/${subdir}/${testfile}.o
-+
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
-+ untested "PowerPC Power7 instructions disassembly"
-+ return -1
-+}
-+
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${objfile}
-+
-+
-+# Disassemble the function.
-+
-+set test "disass func"
-+gdb_test_multiple $test $test {
-+ -re "\r\nDump of assembler code for function func:(\r\n.*\r\n)End of assembler dump.\r\n$gdb_prompt $" {
-+ set func $expect_out(1,string)
-+ pass $test
-+ }
-+}
-+
-+proc func_check {offset instr} {
-+ global func
-+
-+ # 0x0000000000000018 <func+24>: stxvd2x vs43,r4,r5
-+ set patt ".*\r\n[string map {0x 0x0*} $offset] <func\\+?\[0-9\]*>:\[ \t\]*[string map [list { } "\[ \t\]+" . {\.}] $instr]\[ \t\]*\r\n.*"
-+ set test "Found $offset: $instr"
-+ if [regexp -nocase -line $patt $func] {
-+ pass $test
-+ } else {
-+ fail $test
-+ }
-+}
-+
-+func_check 0x0 "lxvd2x vs3,r4,r5"
-+func_check 0x4 "lxvd2ux vs3,r4,r5"
-+func_check 0x8 "lxvd2x vs43,r4,r5"
-+func_check 0xc "lxvd2ux vs43,r4,r5"
-+func_check 0x10 "stxvd2x vs3,r4,r5"
-+func_check 0x14 "stxvd2ux vs3,r4,r5"
-+func_check 0x18 "stxvd2x vs43,r4,r5"
-+func_check 0x1c "stxvd2ux vs43,r4,r5"
-+func_check 0x20 "xxmrghd vs3,vs4,vs5"
-+func_check 0x24 "xxmrghd vs43,vs44,vs45"
-+func_check 0x28 "xxmrgld vs3,vs4,vs5"
-+func_check 0x2c "xxmrgld vs43,vs44,vs45"
-+func_check 0x30 "xxmrghd vs3,vs4,vs5"
-+func_check 0x34 "xxmrghd vs43,vs44,vs45"
-+func_check 0x38 "xxmrgld vs3,vs4,vs5"
-+func_check 0x3c "xxmrgld vs43,vs44,vs45"
-+func_check 0x40 "xxpermdi vs3,vs4,vs5,1"
-+func_check 0x44 "xxpermdi vs43,vs44,vs45,1"
-+func_check 0x48 "xxpermdi vs3,vs4,vs5,2"
-+func_check 0x4c "xxpermdi vs43,vs44,vs45,2"
-+func_check 0x50 "xvmovdp vs3,vs4"
-+func_check 0x54 "xvmovdp vs43,vs44"
-+func_check 0x58 "xvmovdp vs3,vs4"
-+func_check 0x5c "xvmovdp vs43,vs44"
-+func_check 0x60 "xvcpsgndp vs3,vs4,vs5"
-+func_check 0x64 "xvcpsgndp vs43,vs44,vs45"
-+func_check 0x68 "wait"
-+func_check 0x6c "wait"
-+func_check 0x70 "waitrsv"
-+func_check 0x74 "waitrsv"
-+func_check 0x78 "waitimpl"
-+func_check 0x7c "waitimpl"
-+func_check 0x80 "doze"
-+func_check 0x84 "nap"
-+func_check 0x88 "sleep"
-+func_check 0x8c "rvwinkle"
-+func_check 0x90 "prtyw r3,r4"
-+func_check 0x94 "prtyd r13,r14"
-+func_check 0x98 "mfcfar r10"
-+func_check 0x9c "mtcfar r11"
-+func_check 0xa0 "cmpb r3,r4,r5"
-+func_check 0xa4 "lwzcix r10,r11,r12"
-+func_check 0xa8 "dadd f16,f17,f18"
-+func_check 0xac "daddq f20,f22,f24"
-+func_check 0xb0 "dss 3"
-+func_check 0xb4 "dssall"
-+func_check 0xb8 "dst r5,r4,1"
-+func_check 0xbc "dstt r8,r7,0"
-+func_check 0xc0 "dstst r5,r6,3"
-+func_check 0xc4 "dststt r4,r5,2"
-+func_check 0xc8 "divwe r10,r11,r12"
-+func_check 0xcc "divwe. r11,r12,r13"
-+func_check 0xd0 "divweo r12,r13,r14"
-+func_check 0xd4 "divweo. r13,r14,r15"
-+func_check 0xd8 "divweu r10,r11,r12"
-+func_check 0xdc "divweu. r11,r12,r13"
-+func_check 0xe0 "divweuo r12,r13,r14"
-+func_check 0xe4 "divweuo. r13,r14,r15"
-+func_check 0xe8 "bpermd r7,r17,r27"
-+func_check 0xec "popcntw r10,r20"
-+func_check 0xf0 "popcntd r10,r20"
-+func_check 0xf4 "ldbrx r20,r21,r22"
-+func_check 0xf8 "stdbrx r20,r21,r22"
-+func_check 0xfc "lfiwzx f10,0,r10"
-+func_check 0x100 "lfiwzx f10,r9,r10"
-+func_check 0x104 "fcfids f4,f5"
-+func_check 0x108 "fcfids. f4,f5"
-+func_check 0x10c "fcfidus f4,f5"
-+func_check 0x110 "fcfidus. f4,f5"
-+func_check 0x114 "fctiwu f4,f5"
-+func_check 0x118 "fctiwu. f4,f5"
-+func_check 0x11c "fctiwuz f4,f5"
-+func_check 0x120 "fctiwuz. f4,f5"
-+func_check 0x124 "fctidu f4,f5"
-+func_check 0x128 "fctidu. f4,f5"
-+func_check 0x12c "fctiduz f4,f5"
-+func_check 0x130 "fctiduz. f4,f5"
-+func_check 0x134 "fcfidu f4,f5"
-+func_check 0x138 "fcfidu. f4,f5"
-+func_check 0x13c "ftdiv cr0,f10,f11"
-+func_check 0x140 "ftdiv cr7,f10,f11"
-+func_check 0x144 "ftsqrt cr0,f10"
-+func_check 0x148 "ftsqrt cr7,f10"
-+func_check 0x14c "dcbtt r8,r9"
-+func_check 0x150 "dcbtstt r8,r9"
-+func_check 0x154 "dcffix f10,f12"
-+func_check 0x158 "dcffix. f20,f22"
-+func_check 0x15c "lbarx r10,r11,r12"
-+func_check 0x160 "lbarx r10,r11,r12"
-+func_check 0x164 "lbarx r10,r11,r12,1"
-+func_check 0x168 "lharx r20,r21,r22"
-+func_check 0x16c "lharx r20,r21,r22"
-+func_check 0x170 "lharx r20,r21,r22,1"
-+func_check 0x174 "stbcx. r10,r11,r12"
-+func_check 0x178 "sthcx. r10,r11,r12"
-+func_check 0x17c "fre f14,f15"
-+func_check 0x180 "fre. f14,f15"
-+func_check 0x184 "fres f14,f15"
-+func_check 0x188 "fres. f14,f15"
-+func_check 0x18c "frsqrte f14,f15"
-+func_check 0x190 "frsqrte. f14,f15"
-+func_check 0x194 "frsqrtes f14,f15"
-+func_check 0x198 "frsqrtes. f14,f15"
-+func_check 0x19c "isel r2,r3,r4,28"
-diff --git a/gdb/testsuite/gdb.arch/powerpc-power7.s b/gdb/testsuite/gdb.arch/powerpc-power7.s
-new file mode 100644
-index 0000000..98b2e79
---- /dev/null
-+++ b/gdb/testsuite/gdb.arch/powerpc-power7.s
-@@ -0,0 +1,107 @@
-+ .text
-+ .globl func
-+func:
-+ .long 0x7c642e98 /* 0: lxvd2x vs3,r4,r5 */
-+ .long 0x7c642ed8 /* 4: lxvd2ux vs3,r4,r5 */
-+ .long 0x7d642e99 /* 8: lxvd2x vs43,r4,r5 */
-+ .long 0x7d642ed9 /* c: lxvd2ux vs43,r4,r5 */
-+ .long 0x7c642f98 /* 10: stxvd2x vs3,r4,r5 */
-+ .long 0x7c642fd8 /* 14: stxvd2ux vs3,r4,r5 */
-+ .long 0x7d642f99 /* 18: stxvd2x vs43,r4,r5 */
-+ .long 0x7d642fd9 /* 1c: stxvd2ux vs43,r4,r5 */
-+ .long 0xf0642850 /* 20: xxmrghd vs3,vs4,vs5 */
-+ .long 0xf16c6857 /* 24: xxmrghd vs43,vs44,vs45 */
-+ .long 0xf0642b50 /* 28: xxmrgld vs3,vs4,vs5 */
-+ .long 0xf16c6b57 /* 2c: xxmrgld vs43,vs44,vs45 */
-+ .long 0xf0642850 /* 30: xxmrghd vs3,vs4,vs5 */
-+ .long 0xf16c6857 /* 34: xxmrghd vs43,vs44,vs45 */
-+ .long 0xf0642b50 /* 38: xxmrgld vs3,vs4,vs5 */
-+ .long 0xf16c6b57 /* 3c: xxmrgld vs43,vs44,vs45 */
-+ .long 0xf0642950 /* 40: xxpermdi vs3,vs4,vs5,1 */
-+ .long 0xf16c6957 /* 44: xxpermdi vs43,vs44,vs45,1 */
-+ .long 0xf0642a50 /* 48: xxpermdi vs3,vs4,vs5,2 */
-+ .long 0xf16c6a57 /* 4c: xxpermdi vs43,vs44,vs45,2 */
-+ .long 0xf0642780 /* 50: xvmovdp vs3,vs4 */
-+ .long 0xf16c6787 /* 54: xvmovdp vs43,vs44 */
-+ .long 0xf0642780 /* 58: xvmovdp vs3,vs4 */
-+ .long 0xf16c6787 /* 5c: xvmovdp vs43,vs44 */
-+ .long 0xf0642f80 /* 60: xvcpsgndp vs3,vs4,vs5 */
-+ .long 0xf16c6f87 /* 64: xvcpsgndp vs43,vs44,vs45 */
-+ .long 0x7c00007c /* 68: wait */
-+ .long 0x7c00007c /* 6c: wait */
-+ .long 0x7c20007c /* 70: waitrsv */
-+ .long 0x7c20007c /* 74: waitrsv */
-+ .long 0x7c40007c /* 78: waitimpl */
-+ .long 0x7c40007c /* 7c: waitimpl */
-+ .long 0x4c000324 /* 80: doze */
-+ .long 0x4c000364 /* 84: nap */
-+ .long 0x4c0003a4 /* 88: sleep */
-+ .long 0x4c0003e4 /* 8c: rvwinkle */
-+ .long 0x7c830134 /* 90: prtyw r3,r4 */
-+ .long 0x7dcd0174 /* 94: prtyd r13,r14 */
-+ .long 0x7d5c02a6 /* 98: mfcfar r10 */
-+ .long 0x7d7c03a6 /* 9c: mtcfar r11 */
-+ .long 0x7c832bf8 /* a0: cmpb r3,r4,r5 */
-+ .long 0x7d4b662a /* a4: lwzcix r10,r11,r12 */
-+ .long 0xee119004 /* a8: dadd f16,f17,f18 */
-+ .long 0xfe96c004 /* ac: daddq f20,f22,f24 */
-+ .long 0x7c60066c /* b0: dss 3 */
-+ .long 0x7e00066c /* b4: dssall */
-+ .long 0x7c2522ac /* b8: dst r5,r4,1 */
-+ .long 0x7e083aac /* bc: dstt r8,r7,0 */
-+ .long 0x7c6532ec /* c0: dstst r5,r6,3 */
-+ .long 0x7e442aec /* c4: dststt r4,r5,2 */
-+ .long 0x7d4b6356 /* c8: divwe r10,r11,r12 */
-+ .long 0x7d6c6b57 /* cc: divwe. r11,r12,r13 */
-+ .long 0x7d8d7756 /* d0: divweo r12,r13,r14 */
-+ .long 0x7dae7f57 /* d4: divweo. r13,r14,r15 */
-+ .long 0x7d4b6316 /* d8: divweu r10,r11,r12 */
-+ .long 0x7d6c6b17 /* dc: divweu. r11,r12,r13 */
-+ .long 0x7d8d7716 /* e0: divweuo r12,r13,r14 */
-+ .long 0x7dae7f17 /* e4: divweuo. r13,r14,r15 */
-+ .long 0x7e27d9f8 /* e8: bpermd r7,r17,r27 */
-+ .long 0x7e8a02f4 /* ec: popcntw r10,r20 */
-+ .long 0x7e8a03f4 /* f0: popcntd r10,r20 */
-+ .long 0x7e95b428 /* f4: ldbrx r20,r21,r22 */
-+ .long 0x7e95b528 /* f8: stdbrx r20,r21,r22 */
-+ .long 0x7d4056ee /* fc: lfiwzx f10,0,r10 */
-+ .long 0x7d4956ee /* 100: lfiwzx f10,r9,r10 */
-+ .long 0xec802e9c /* 104: fcfids f4,f5 */
-+ .long 0xec802e9d /* 108: fcfids. f4,f5 */
-+ .long 0xec802f9c /* 10c: fcfidus f4,f5 */
-+ .long 0xec802f9d /* 110: fcfidus. f4,f5 */
-+ .long 0xfc80291c /* 114: fctiwu f4,f5 */
-+ .long 0xfc80291d /* 118: fctiwu. f4,f5 */
-+ .long 0xfc80291e /* 11c: fctiwuz f4,f5 */
-+ .long 0xfc80291f /* 120: fctiwuz. f4,f5 */
-+ .long 0xfc802f5c /* 124: fctidu f4,f5 */
-+ .long 0xfc802f5d /* 128: fctidu. f4,f5 */
-+ .long 0xfc802f5e /* 12c: fctiduz f4,f5 */
-+ .long 0xfc802f5f /* 130: fctiduz. f4,f5 */
-+ .long 0xfc802f9c /* 134: fcfidu f4,f5 */
-+ .long 0xfc802f9d /* 138: fcfidu. f4,f5 */
-+ .long 0xfc0a5900 /* 13c: ftdiv cr0,f10,f11 */
-+ .long 0xff8a5900 /* 140: ftdiv cr7,f10,f11 */
-+ .long 0xfc005140 /* 144: ftsqrt cr0,f10 */
-+ .long 0xff805140 /* 148: ftsqrt cr7,f10 */
-+ .long 0x7e084a2c /* 14c: dcbtt r8,r9 */
-+ .long 0x7e0849ec /* 150: dcbtstt r8,r9 */
-+ .long 0xed406644 /* 154: dcffix f10,f12 */
-+ .long 0xee80b645 /* 158: dcffix. f20,f22 */
-+ .long 0x7d4b6068 /* 15c: lbarx r10,r11,r12 */
-+ .long 0x7d4b6068 /* 160: lbarx r10,r11,r12 */
-+ .long 0x7d4b6069 /* 164: lbarx r10,r11,r12,1 */
-+ .long 0x7e95b0e8 /* 168: lharx r20,r21,r22 */
-+ .long 0x7e95b0e8 /* 16c: lharx r20,r21,r22 */
-+ .long 0x7e95b0e9 /* 170: lharx r20,r21,r22,1 */
-+ .long 0x7d4b656d /* 174: stbcx. r10,r11,r12 */
-+ .long 0x7d4b65ad /* 178: sthcx. r10,r11,r12 */
-+ .long 0xfdc07830 /* 17c: fre f14,f15 */
-+ .long 0xfdc07831 /* 180: fre. f14,f15 */
-+ .long 0xedc07830 /* 184: fres f14,f15 */
-+ .long 0xedc07831 /* 188: fres. f14,f15 */
-+ .long 0xfdc07834 /* 18c: frsqrte f14,f15 */
-+ .long 0xfdc07835 /* 190: frsqrte. f14,f15 */
-+ .long 0xedc07834 /* 194: frsqrtes f14,f15 */
-+ .long 0xedc07835 /* 198: frsqrtes. f14,f15 */
-+ .long 0x7c43271e /* 19c: isel r2,r3,r4,28 */
-diff --git a/gdb/testsuite/gdb.arch/x86_64-vla-typedef-foo.S b/gdb/testsuite/gdb.arch/x86_64-vla-typedef-foo.S
-new file mode 100644
-index 0000000..66f7a39
---- /dev/null
-+++ b/gdb/testsuite/gdb.arch/x86_64-vla-typedef-foo.S
-@@ -0,0 +1,455 @@
-+ .file "x86_64-vla-typedef.c"
-+ .section .debug_abbrev,"",@progbits
-+.Ldebug_abbrev0:
-+ .section .debug_info,"",@progbits
-+.Ldebug_info0:
-+ .section .debug_line,"",@progbits
-+.Ldebug_line0:
-+ .text
-+.Ltext0:
-+.globl foo
-+ .type foo, @function
-+foo:
-+.LFB2:
-+ .file 1 "x86_64-vla-typedef.c"
-+ .loc 1 22 0
-+ pushq %rbp
-+.LCFI0:
-+ movq %rsp, %rbp
-+.LCFI1:
-+ subq $64, %rsp
-+.LCFI2:
-+ movl %edi, -36(%rbp)
-+ .loc 1 22 0
-+ movq %rsp, %rax
-+ movq %rax, -48(%rbp)
-+ .loc 1 23 0
-+ movl -36(%rbp), %edx
-+ movslq %edx,%rax
-+ subq $1, %rax
-+ movq %rax, -24(%rbp)
-+ .loc 1 24 0
-+ movslq %edx,%rax
-+ addq $15, %rax
-+ addq $15, %rax
-+ shrq $4, %rax
-+ salq $4, %rax
-+ subq %rax, %rsp
-+ movq %rsp, -56(%rbp)
-+ movq -56(%rbp), %rax
-+ addq $15, %rax
-+ shrq $4, %rax
-+ salq $4, %rax
-+ movq %rax, -56(%rbp)
-+ movq -56(%rbp), %rax
-+ movq %rax, -16(%rbp)
-+ .loc 1 27 0
-+ movl $0, -4(%rbp)
-+ jmp .L2
-+.L3:
-+ .loc 1 28 0
-+ movl -4(%rbp), %esi
-+ movl -4(%rbp), %eax
-+ movl %eax, %ecx
-+ movq -16(%rbp), %rdx
-+ movslq %esi,%rax
-+ movb %cl, (%rdx,%rax)
-+ .loc 1 27 0
-+ addl $1, -4(%rbp)
-+.L2:
-+ movl -4(%rbp), %eax
-+ cmpl -36(%rbp), %eax
-+ jl .L3
-+ .loc 1 30 0
-+ .globl break_here
-+break_here:
-+ movq -16(%rbp), %rax
-+ movb $0, (%rax)
-+ movq -48(%rbp), %rsp
-+ .loc 1 31 0
-+ leave
-+ ret
-+.LFE2:
-+ .size foo, .-foo
-+ .section .debug_frame,"",@progbits
-+.Lframe0:
-+ .long .LECIE0-.LSCIE0
-+.LSCIE0:
-+ .long 0xffffffff
-+ .byte 0x1
-+ .string ""
-+ .uleb128 0x1
-+ .sleb128 -8
-+ .byte 0x10
-+ .byte 0xc
-+ .uleb128 0x7
-+ .uleb128 0x8
-+ .byte 0x90
-+ .uleb128 0x1
-+ .align 8
-+.LECIE0:
-+.LSFDE0:
-+ .long .LEFDE0-.LASFDE0
-+.LASFDE0:
-+ .long .Lframe0
-+ .quad .LFB2
-+ .quad .LFE2-.LFB2
-+ .byte 0x4
-+ .long .LCFI0-.LFB2
-+ .byte 0xe
-+ .uleb128 0x10
-+ .byte 0x86
-+ .uleb128 0x2
-+ .byte 0x4
-+ .long .LCFI1-.LCFI0
-+ .byte 0xd
-+ .uleb128 0x6
-+ .align 8
-+.LEFDE0:
-+ .section .eh_frame,"a",@progbits
-+.Lframe1:
-+ .long .LECIE1-.LSCIE1
-+.LSCIE1:
-+ .long 0x0
-+ .byte 0x1
-+ .string "zR"
-+ .uleb128 0x1
-+ .sleb128 -8
-+ .byte 0x10
-+ .uleb128 0x1
-+ .byte 0x3
-+ .byte 0xc
-+ .uleb128 0x7
-+ .uleb128 0x8
-+ .byte 0x90
-+ .uleb128 0x1
-+ .align 8
-+.LECIE1:
-+.LSFDE1:
-+ .long .LEFDE1-.LASFDE1
-+.LASFDE1:
-+ .long .LASFDE1-.Lframe1
-+ .long .LFB2
-+ .long .LFE2-.LFB2
-+ .uleb128 0x0
-+ .byte 0x4
-+ .long .LCFI0-.LFB2
-+ .byte 0xe
-+ .uleb128 0x10
-+ .byte 0x86
-+ .uleb128 0x2
-+ .byte 0x4
-+ .long .LCFI1-.LCFI0
-+ .byte 0xd
-+ .uleb128 0x6
-+ .align 8
-+.LEFDE1:
-+ .text
-+.Letext0:
-+ .section .debug_loc,"",@progbits
-+.Ldebug_loc0:
-+.LLST0:
-+ .quad .LFB2-.Ltext0
-+ .quad .LCFI0-.Ltext0
-+ .value 0x2
-+ .byte 0x77
-+ .sleb128 8
-+ .quad .LCFI0-.Ltext0
-+ .quad .LCFI1-.Ltext0
-+ .value 0x2
-+ .byte 0x77
-+ .sleb128 16
-+ .quad .LCFI1-.Ltext0
-+ .quad .LFE2-.Ltext0
-+ .value 0x2
-+ .byte 0x76
-+ .sleb128 16
-+ .quad 0x0
-+ .quad 0x0
-+ .section .debug_info
-+ .long .Ldebug_end - .Ldebug_start
-+.Ldebug_start:
-+ .value 0x2
-+ .long .Ldebug_abbrev0
-+ .byte 0x8
-+ .uleb128 0x1
-+ .long .LASF2
-+ .byte 0x1
-+ .long .LASF3
-+ .long .LASF4
-+ .quad .Ltext0
-+ .quad .Letext0
-+ .long .Ldebug_line0
-+ .uleb128 0x2
-+ .byte 0x1
-+ .string "foo"
-+ .byte 0x1
-+ .byte 0x16
-+ .byte 0x1
-+ .quad .LFB2
-+ .quad .LFE2
-+ .long .LLST0
-+ .long 0x83
-+ .uleb128 0x3
-+ .long .LASF5
-+ .byte 0x1
-+ .byte 0x15
-+ .long 0x83
-+ .byte 0x2
-+ .byte 0x91
-+ .sleb128 -52
-+.Ltag_typedef:
-+ .uleb128 0x4
-+ .long .LASF6
-+ .byte 0x1
-+ .byte 0x17
-+ .long .Ltag_array_type - .debug_info
-+ .uleb128 0x5 /* Abbrev Number: 5 (DW_TAG_variable) */
-+ .long .LASF0
-+ .byte 0x1
-+ .byte 0x18
-+#if 1
-+ .long .Ltag_typedef - .debug_info
-+#else
-+ /* Debugging only: Skip the typedef indirection. */
-+ .long .Ltag_array_type - .debug_info
-+#endif
-+ /* DW_AT_location: DW_FORM_block1: start */
-+ .byte 0x3
-+ .byte 0x91
-+ .sleb128 -32
-+#if 0
-+ .byte 0x6 /* DW_OP_deref */
-+#else
-+ .byte 0x96 /* DW_OP_nop */
-+#endif
-+ /* DW_AT_location: DW_FORM_block1: end */
-+ .uleb128 0x6
-+ .string "i"
-+ .byte 0x1
-+ .byte 0x19
-+ .long 0x83
-+ .byte 0x2
-+ .byte 0x91
-+ .sleb128 -20
-+ .byte 0x0
-+ .uleb128 0x7
-+ .byte 0x4
-+ .byte 0x5
-+ .string "int"
-+.Ltag_array_type:
-+ .uleb128 0x8 /* Abbrev Number: 8 (DW_TAG_array_type) */
-+ .long 0xa0 + (2f - 1f) /* DW_AT_type: DW_FORM_ref4 */
-+ .long 0x9d + (2f - 1f) /* DW_AT_sibling: DW_FORM_ref4 */
-+1: /* DW_AT_data_location: DW_FORM_block1: start */
-+ .byte 2f - 3f /* length */
-+3:
-+ .byte 0x97 /* DW_OP_push_object_address */
-+ .byte 0x6 /* DW_OP_deref */
-+2: /* DW_AT_data_location: DW_FORM_block1: end */
-+ .uleb128 0x9
-+ .long 0x9d + (2b - 1b) /* DW_AT_type: DW_FORM_ref4 */
-+ .byte 0x3
-+ .byte 0x91
-+ .sleb128 -40
-+ .byte 0x6
-+ .byte 0x0
-+ .uleb128 0xa
-+ .byte 0x8
-+ .byte 0x7
-+ .uleb128 0xb
-+ .byte 0x1
-+ .byte 0x6
-+ .long .LASF1
-+ .byte 0x0
-+.Ldebug_end:
-+ .section .debug_abbrev
-+ .uleb128 0x1
-+ .uleb128 0x11
-+ .byte 0x1
-+ .uleb128 0x25
-+ .uleb128 0xe
-+ .uleb128 0x13
-+ .uleb128 0xb
-+ .uleb128 0x3
-+ .uleb128 0xe
-+ .uleb128 0x1b
-+ .uleb128 0xe
-+ .uleb128 0x11
-+ .uleb128 0x1
-+ .uleb128 0x12
-+ .uleb128 0x1
-+ .uleb128 0x10
-+ .uleb128 0x6
-+ .byte 0x0
-+ .byte 0x0
-+ .uleb128 0x2
-+ .uleb128 0x2e
-+ .byte 0x1
-+ .uleb128 0x3f
-+ .uleb128 0xc
-+ .uleb128 0x3
-+ .uleb128 0x8
-+ .uleb128 0x3a
-+ .uleb128 0xb
-+ .uleb128 0x3b
-+ .uleb128 0xb
-+ .uleb128 0x27
-+ .uleb128 0xc
-+ .uleb128 0x11
-+ .uleb128 0x1
-+ .uleb128 0x12
-+ .uleb128 0x1
-+ .uleb128 0x40
-+ .uleb128 0x6
-+ .uleb128 0x1
-+ .uleb128 0x13
-+ .byte 0x0
-+ .byte 0x0
-+ .uleb128 0x3
-+ .uleb128 0x5
-+ .byte 0x0
-+ .uleb128 0x3
-+ .uleb128 0xe
-+ .uleb128 0x3a
-+ .uleb128 0xb
-+ .uleb128 0x3b
-+ .uleb128 0xb
-+ .uleb128 0x49
-+ .uleb128 0x13
-+ .uleb128 0x2
-+ .uleb128 0xa
-+ .byte 0x0
-+ .byte 0x0
-+ .uleb128 0x4
-+ .uleb128 0x16
-+ .byte 0x0
-+ .uleb128 0x3
-+ .uleb128 0xe
-+ .uleb128 0x3a
-+ .uleb128 0xb
-+ .uleb128 0x3b
-+ .uleb128 0xb
-+ .uleb128 0x49
-+ .uleb128 0x13
-+ .byte 0x0
-+ .byte 0x0
-+ .uleb128 0x5
-+ .uleb128 0x34
-+ .byte 0x0
-+ .uleb128 0x3
-+ .uleb128 0xe
-+ .uleb128 0x3a
-+ .uleb128 0xb
-+ .uleb128 0x3b
-+ .uleb128 0xb
-+ .uleb128 0x49
-+ .uleb128 0x13
-+ .uleb128 0x2
-+ .uleb128 0xa
-+ .byte 0x0
-+ .byte 0x0
-+ .uleb128 0x6
-+ .uleb128 0x34
-+ .byte 0x0
-+ .uleb128 0x3
-+ .uleb128 0x8
-+ .uleb128 0x3a
-+ .uleb128 0xb
-+ .uleb128 0x3b
-+ .uleb128 0xb
-+ .uleb128 0x49
-+ .uleb128 0x13
-+ .uleb128 0x2
-+ .uleb128 0xa
-+ .byte 0x0
-+ .byte 0x0
-+ .uleb128 0x7
-+ .uleb128 0x24
-+ .byte 0x0
-+ .uleb128 0xb
-+ .uleb128 0xb
-+ .uleb128 0x3e
-+ .uleb128 0xb
-+ .uleb128 0x3
-+ .uleb128 0x8
-+ .byte 0x0
-+ .byte 0x0
-+ .uleb128 0x8 /* Abbrev Number: 8 (DW_TAG_array_type) */
-+ .uleb128 0x1
-+ .byte 0x1
-+ .uleb128 0x49 /* DW_AT_type */
-+ .uleb128 0x13 /* DW_FORM_ref4 */
-+ .uleb128 0x1 /* DW_AT_sibling */
-+ .uleb128 0x13 /* DW_FORM_ref4 */
-+ .uleb128 0x50 /* DW_AT_data_location */
-+ .uleb128 0xa /* DW_FORM_block1 */
-+ .byte 0x0
-+ .byte 0x0
-+ .uleb128 0x9
-+ .uleb128 0x21
-+ .byte 0x0
-+ .uleb128 0x49 /* DW_AT_type */
-+ .uleb128 0x13 /* DW_FORM_ref4 */
-+ .uleb128 0x2f
-+ .uleb128 0xa
-+ .byte 0x0
-+ .byte 0x0
-+ .uleb128 0xa
-+ .uleb128 0x24
-+ .byte 0x0
-+ .uleb128 0xb
-+ .uleb128 0xb
-+ .uleb128 0x3e
-+ .uleb128 0xb
-+ .byte 0x0
-+ .byte 0x0
-+ .uleb128 0xb
-+ .uleb128 0x24
-+ .byte 0x0
-+ .uleb128 0xb
-+ .uleb128 0xb
-+ .uleb128 0x3e
-+ .uleb128 0xb
-+ .uleb128 0x3
-+ .uleb128 0xe
-+ .byte 0x0
-+ .byte 0x0
-+ .byte 0x0
-+ .section .debug_pubnames,"",@progbits
-+ .long 0x16
-+ .value 0x2
-+ .long .Ldebug_info0
-+ .long 0xa8
-+ .long 0x2d
-+ .string "foo"
-+ .long 0x0
-+ .section .debug_aranges,"",@progbits
-+ .long 0x2c
-+ .value 0x2
-+ .long .Ldebug_info0
-+ .byte 0x8
-+ .byte 0x0
-+ .value 0x0
-+ .value 0x0
-+ .quad .Ltext0
-+ .quad .Letext0-.Ltext0
-+ .quad 0x0
-+ .quad 0x0
-+ .section .debug_str,"MS",@progbits,1
-+.LASF0:
-+ .string "array"
-+.LASF5:
-+ .string "size"
-+.LASF3:
-+ .string "x86_64-vla-typedef.c"
-+.LASF6:
-+ .string "array_t"
-+.LASF1:
-+ .string "char"
-+.LASF4:
-+ .string "gdb.arch"
-+.LASF2:
-+ .string "GNU C 4.3.2 20081105 (Red Hat 4.3.2-7)"
-+ .ident "GCC: (GNU) 4.3.2 20081105 (Red Hat 4.3.2-7)"
-+ .section .note.GNU-stack,"",@progbits
-diff --git a/gdb/testsuite/gdb.arch/x86_64-vla-typedef.c b/gdb/testsuite/gdb.arch/x86_64-vla-typedef.c
-new file mode 100644
-index 0000000..b809c4e
---- /dev/null
-+++ b/gdb/testsuite/gdb.arch/x86_64-vla-typedef.c
-@@ -0,0 +1,43 @@
-+/* This testcase is part of GDB, the GNU debugger.
-+
-+ Copyright 2008 Free Software Foundation, Inc.
-+
-+ 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/>. */
-+
-+#if 0
-+
-+void
-+foo (int size)
-+{
-+ typedef char array_t[size];
-+ array_t array;
-+ int i;
-+
-+ for (i = 0; i < size; i++)
-+ array[i] = i;
-+
-+ array[0] = 0; /* break-here */
-+}
-+
-+#else
-+
-+int
-+main (void)
-+{
-+ foo (26);
-+ foo (78);
-+ return 0;
-+}
-+
-+#endif
-diff --git a/gdb/testsuite/gdb.arch/x86_64-vla-typedef.exp b/gdb/testsuite/gdb.arch/x86_64-vla-typedef.exp
-new file mode 100644
-index 0000000..534120a
---- /dev/null
-+++ b/gdb/testsuite/gdb.arch/x86_64-vla-typedef.exp
-@@ -0,0 +1,64 @@
-+# Copyright 2009 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+# Test DW_AT_data_location accessed through DW_TAG_typedef intermediate.
-+
-+if ![istarget "x86_64-*-*"] then {
-+ verbose "Skipping over gdb.arch/x86_64-vla-typedef.exp test made only for x86_64."
-+ return
-+}
-+
-+set testfile x86_64-vla-typedef
-+set srcasmfile ${testfile}-foo.S
-+set srcfile ${testfile}.c
-+set binfile ${objdir}/${subdir}/${testfile}
-+set binobjfile ${objdir}/${subdir}/${testfile}-foo.o
-+if { [gdb_compile "${srcdir}/${subdir}/${srcasmfile}" "${binobjfile}" object {}] != "" } {
-+ untested "Couldn't compile test program"
-+ return -1
-+}
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile} ${binobjfile}" "${binfile}" executable {debug}] != "" } {
-+ untested "Couldn't compile test program"
-+ return -1
-+}
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+if ![runto_main] {
-+ untested x86_64-vla-typedef
-+ return -1
-+}
-+
-+gdb_breakpoint "break_here"
-+
-+gdb_continue_to_breakpoint "break_here"
-+
-+gdb_test "whatis array" "type = array_t" "first: whatis array"
-+
-+gdb_test "ptype array" "type = char \\\[26\\\]" "first: ptype array"
-+
-+gdb_test "p array\[1\]" "\\$\[0-9\] = 1 '\\\\1'"
-+gdb_test "p array\[2\]" "\\$\[0-9\] = 2 '\\\\2'"
-+gdb_test "p array\[3\]" "\\$\[0-9\] = 3 '\\\\3'"
-+gdb_test "p array\[4\]" "\\$\[0-9\] = 4 '\\\\4'"
-+
-+gdb_continue_to_breakpoint "break_here"
-+
-+gdb_test "whatis array" "type = array_t" "second: whatis array"
-+
-+gdb_test "ptype array" "type = char \\\[78\\\]" "second: ptype array"
-diff --git a/gdb/testsuite/gdb.base/Makefile.in b/gdb/testsuite/gdb.base/Makefile.in
-index 9f382db..12db521 100644
---- a/gdb/testsuite/gdb.base/Makefile.in
-+++ b/gdb/testsuite/gdb.base/Makefile.in
-@@ -12,7 +12,7 @@ EXECUTABLES = all-types annota1 bitfields break \
- scope section_command setshow setvar shmain sigall signals \
- solib solib_sl so-impl-ld so-indr-cl \
- step-line step-test structs structs2 \
-- twice-tmp varargs vforked-prog watchpoint whatis
-+ twice-tmp varargs vforked-prog watchpoint whatis catch-syscall
-
- MISCELLANEOUS = coremmap.data ../foobar.baz \
- shr1.sl shr2.sl solib_sl.sl solib1.sl solib2.sl
-diff --git a/gdb/testsuite/gdb.base/call-rt-st.exp b/gdb/testsuite/gdb.base/call-rt-st.exp
-index 3359c70..f73dd7f 100644
---- a/gdb/testsuite/gdb.base/call-rt-st.exp
-+++ b/gdb/testsuite/gdb.base/call-rt-st.exp
-@@ -186,7 +186,7 @@ if {![gdb_skip_float_test "print print_two_floats(*f3)"] && \
-
- if ![gdb_skip_stdio_test "print print_bit_flags_char(*cflags)"] {
- print_struct_call "print_bit_flags_char(*cflags)" \
-- ".*alpha\[ \r\n\]+gamma\[ \r\n\]+epsilon\[ \r\n\]+.\[0-9\]+ = \\{alpha = 1 '\\\\001', beta = 0 '\\\\0', gamma = 1 '\\\\001', delta = 0 '\\\\0', epsilon = 1 '\\\\001', omega = 0 '\\\\0'\\}"
-+ ".*alpha\[ \r\n\]+gamma\[ \r\n\]+epsilon\[ \r\n\]+.\[0-9\]+ = \\{alpha = 1 '\\\\1', beta = 0 '\\\\0', gamma = 1 '\\\\1', delta = 0 '\\\\0', epsilon = 1 '\\\\1', omega = 0 '\\\\0'\\}"
- }
-
- if ![gdb_skip_stdio_test "print print_bit_flags_short(*sflags)"] {
-diff --git a/gdb/testsuite/gdb.base/callfuncs.exp b/gdb/testsuite/gdb.base/callfuncs.exp
-index 6d8aa45..be6a872 100644
---- a/gdb/testsuite/gdb.base/callfuncs.exp
-+++ b/gdb/testsuite/gdb.base/callfuncs.exp
-@@ -437,7 +437,7 @@ gdb_test "print t_small_values(1,3,5,7,9,11,13,15,17,19)" \
- "The program being debugged stopped while.*" \
- "stop at nested call level 4"
- gdb_test "backtrace" \
-- "\#0 t_small_values \\(arg1=1 '.001', arg2=3, arg3=5, arg4=7 '.a', arg5=9, arg6=11 '.v', arg7=13, arg8=15, arg9=17, arg10=19\\).*\#2 sum10 \\(i0=2, i1=4, i2=6, i3=8, i4=10, i5=12, i6=14, i7=16, i8=18, i9=20\\).*\#3 <function called from gdb>.*\#4 add \\(a=4, b=5\\).*\#5 <function called from gdb>.*\#6 add \\(a=2, b=3\\).*\#7 <function called from gdb>.*\#8 main.*" \
-+ "\#0 t_small_values \\(arg1=1 '.1', arg2=3, arg3=5, arg4=7 '.a', arg5=9, arg6=11 '.v', arg7=13, arg8=15, arg9=17, arg10=19\\).*\#2 sum10 \\(i0=2, i1=4, i2=6, i3=8, i4=10, i5=12, i6=14, i7=16, i8=18, i9=20\\).*\#3 <function called from gdb>.*\#4 add \\(a=4, b=5\\).*\#5 <function called from gdb>.*\#6 add \\(a=2, b=3\\).*\#7 <function called from gdb>.*\#8 main.*" \
- "backtrace at nested call level 4"
- gdb_test "finish" "Value returned is .* = 100" \
- "Finish from nested call level 4"
-diff --git a/gdb/testsuite/gdb.base/catch-syscall.c b/gdb/testsuite/gdb.base/catch-syscall.c
-new file mode 100644
-index 0000000..64850de
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/catch-syscall.c
-@@ -0,0 +1,25 @@
-+/* This file is used to test the 'catch syscall' feature on GDB.
-+
-+ Please, if you are going to edit this file DO NOT change the syscalls
-+ being called (nor the order of them). If you really must do this, then
-+ take a look at catch-syscall.exp and modify there too.
-+
-+ Written by Sergio Durigan Junior <sergiodj@linux.vnet.ibm.com>
-+ September, 2008 */
-+
-+#include <unistd.h>
-+#include <fcntl.h>
-+#include <sys/stat.h>
-+
-+int
-+main (void)
-+{
-+ /* A close() with a wrong argument. We are only
-+ interested in the syscall. */
-+ close (-1);
-+
-+ chroot (".");
-+
-+ /* The last syscall. Do not change this. */
-+ _exit (0);
-+}
-diff --git a/gdb/testsuite/gdb.base/catch-syscall.exp b/gdb/testsuite/gdb.base/catch-syscall.exp
-new file mode 100644
-index 0000000..a9f6937
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/catch-syscall.exp
-@@ -0,0 +1,386 @@
-+# Copyright 1997, 1999, 2007, 2008 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+
-+# This program tests the 'catch syscall' functionality.
-+#
-+# It was written by Sergio Durigan Junior <sergiodj@linux.vnet.ibm.com>
-+# on September/2008.
-+
-+if { [is_remote target] || ![isnative] } then {
-+ continue
-+}
-+
-+set prms_id 0
-+set bug_id 0
-+
-+global srcfile
-+set testfile "catch-syscall"
-+set srcfile ${testfile}.c
-+set binfile ${objdir}/${subdir}/${testfile}
-+
-+# All (but the last) syscalls from the example code
-+# They are ordered according to the file, so do not change this.
-+set all_syscalls { "close" "chroot" }
-+# The last syscall (exit()) does not return, so
-+# we cannot expect the catchpoint to be triggered
-+# twice. It is a special case.
-+set last_syscall "exit_group"
-+
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
-+ untested catch-syscall.exp
-+ return -1
-+}
-+
-+# Until "catch syscall" is implemented on other targets...
-+if {![istarget "hppa*-hp-hpux*"] && ![istarget "*-linux*"]} then {
-+ continue
-+}
-+
-+# This shall be updated whenever 'catch syscall' is implemented
-+# on some architecture.
-+#if { ![istarget "x86_64-*-linux*"] && ![istarget "i\[34567\]86-*-linux*"]
-+if { ![istarget "i\[34567\]86-*-linux*"]
-+ && ![istarget "powerpc-*-linux*"] && ![istarget "powerpc64-*-linux*"] } {
-+ continue
-+}
-+
-+# Internal procedure used to check if, before any syscall is caught,
-+# the command 'info breakpoints' correctly lists the catchpoints AND
-+# says that nothing was caught yet.
-+proc check_init_info_breakpoints {} {
-+ global gdb_prompt
-+
-+ # Verifying that the catchpoint appears in the 'info breakpoints'
-+ # command, but with "<any syscall>".
-+ set thistest "catch syscall appears in 'info breakpoints'"
-+ gdb_test "info breakpoints" ".*catchpoint.*keep y.*syscall \"<any syscall>\".*" $thistest
-+}
-+
-+# This procedure checks if, after a syscall catchpoint is hit, the
-+# command 'info breakpoints' correctly lists the syscall name.
-+proc check_info_breakpoints { syscall } {
-+ global gdb_prompt
-+
-+ set thistest "syscall $syscall appears in 'info breakpoints'"
-+ gdb_test "info breakpoints" ".*catchpoint.*keep y.*syscall (.)?${syscall}(.)?.*" $thistest
-+}
-+
-+# This procedure checks if there was a call to a syscall.
-+proc check_call_to_syscall { syscall } {
-+ global gdb_prompt
-+
-+ set thistest "program has called $syscall"
-+ gdb_test "continue" "Catchpoint .*(call to syscall .?${syscall}.?).*" $thistest
-+
-+ # Checking if the syscall is reported to be caught in
-+ # 'info breakpoints'.
-+ check_info_breakpoints "$syscall"
-+}
-+
-+# This procedure checks if the syscall returned.
-+proc check_return_from_syscall { syscall } {
-+ global gdb_prompt
-+
-+ set thistest "syscall $syscall has returned"
-+ gdb_test "continue" "Catchpoint .*(returned from syscall (.)?${syscall}(.)?).*" $thistest
-+
-+ # Checking if the syscall is reported to be caught in
-+ # 'info breakpoints'.
-+ check_info_breakpoints "$syscall"
-+}
-+
-+# Internal procedure that performs two 'continue' commands and checks if
-+# a syscall call AND return occur.
-+proc check_continue { syscall } {
-+ global gdb_prompt
-+
-+ # Testing if the 'continue' stops at the
-+ # specified syscall_name. If it does, then it should
-+ # first print that the infeior has called the syscall,
-+ # and after print that the syscall has returned.
-+
-+ # Testing if the inferiorr has called the syscall.
-+ check_call_to_syscall $syscall
-+ # And now, that the syscall has returned.
-+ check_return_from_syscall $syscall
-+}
-+
-+# Inserts a syscall catchpoint with an argument.
-+proc insert_catch_syscall_with_arg { syscall } {
-+ global gdb_prompt
-+
-+ # Trying to set the syscall
-+ set thistest "catch syscall with arguments ($syscall)"
-+ gdb_test "catch syscall $syscall" "Catchpoint .*(syscall\[(\]s\[)\] (.)?${syscall}(.)?).*" $thistest
-+}
-+
-+proc check_for_program_end {} {
-+ global gdb_prompt
-+
-+ # Deleting the catchpoints
-+ delete_breakpoints
-+
-+ set thistest "successful program end"
-+ gdb_test "continue" "Program exited normally.*" $thistest
-+
-+}
-+
-+proc test_catch_syscall_without_args {} {
-+ global gdb_prompt all_syscalls last_syscall
-+
-+ # Trying to set the syscall
-+ set thistest "setting catch syscall without arguments"
-+ gdb_test "catch syscall" "Catchpoint .*(syscall).*" $thistest
-+
-+ check_init_info_breakpoints
-+
-+ # We have to check every syscall
-+ foreach name $all_syscalls {
-+ check_continue $name
-+ }
-+
-+ # At last but not least, we check if the inferior
-+ # has called the last (exit) syscall.
-+ check_call_to_syscall $last_syscall
-+
-+ # Now let's see if the inferior correctly finishes.
-+ check_for_program_end
-+}
-+
-+proc test_catch_syscall_with_args {} {
-+ global gdb_prompt
-+ set syscall_name "close"
-+
-+ insert_catch_syscall_with_arg $syscall_name
-+ check_init_info_breakpoints
-+
-+ # Can we continue until we catch the syscall?
-+ check_continue $syscall_name
-+
-+ # Now let's see if the inferior correctly finishes.
-+ check_for_program_end
-+}
-+
-+proc test_catch_syscall_with_wrong_args {} {
-+ global gdb_prompt
-+ # mlock is not called from the source
-+ set syscall_name "mlock"
-+
-+ insert_catch_syscall_with_arg $syscall_name
-+ check_init_info_breakpoints
-+
-+ # Now, we must verify if the program stops with a continue.
-+ # If it doesn't, everything is right (since we don't have
-+ # a syscall named "mlock" in it). Otherwise, this is a failure.
-+ set thistest "catch syscall with unused syscall ($syscall_name)"
-+ gdb_test "continue" "Program exited normally.*" $thistest
-+}
-+
-+proc test_catch_syscall_restarting_inferior {} {
-+ global gdb_prompt
-+ set syscall_name "chroot"
-+
-+ insert_catch_syscall_with_arg $syscall_name
-+ check_init_info_breakpoints
-+
-+ # Let's first reach the call of the syscall.
-+ check_call_to_syscall $syscall_name
-+
-+ # Now, restart the program
-+ rerun_to_main
-+
-+ # And check for call/return
-+ check_continue $syscall_name
-+
-+ # Can we finish?
-+ check_for_program_end
-+}
-+
-+proc do_syscall_tests {} {
-+ global gdb_prompt srcdir
-+
-+ # First, we need to set GDB datadir.
-+ send_gdb "maintenance set gdb_datadir $srcdir/..\n"
-+ gdb_expect 10 {
-+ -re "$gdb_prompt $" {
-+ verbose "Setting GDB datadir to $srcdir/..." 2
-+ }
-+ timeout {
-+ error "Couldn't set GDB datadir."
-+ }
-+ }
-+
-+ # Verify that the 'catch syscall' help is available
-+ set thistest "help catch syscall"
-+ gdb_test "help catch syscall" "Catch system calls.*" $thistest
-+
-+ # Try to set a catchpoint to a nonsense syscall
-+ set thistest "catch syscall to a nonsense syscall is prohibited"
-+ gdb_test "catch syscall nonsense_syscall" "Unknown syscall name .*" $thistest
-+
-+ # Testing the 'catch syscall' command without arguments.
-+ # This test should catch any syscalls.
-+ if [runto_main] then { test_catch_syscall_without_args }
-+
-+ # Testing the 'catch syscall' command with arguments.
-+ # This test should only catch the specified syscall.
-+ if [runto_main] then { test_catch_syscall_with_args }
-+
-+ # Testing the 'catch syscall' command with WRONG arguments.
-+ # This test should not trigger any catchpoints.
-+ if [runto_main] then { test_catch_syscall_with_wrong_args }
-+
-+ # Testing the 'catch' syscall command during a restart of
-+ # the inferior.
-+ if [runto_main] then { test_catch_syscall_restarting_inferior }
-+}
-+
-+proc test_catch_syscall_fail_noxml {} {
-+ global gdb_prompt
-+
-+ # Sanitizing.
-+ delete_breakpoints
-+
-+ # Testing to see if we receive a warning when calling "catch syscall"
-+ # without XML support.
-+ set thistest "Catch syscall displays a warning when there is no XML support"
-+ gdb_test "catch syscall" "warning: Could not open .*warning: Could not load the syscall XML file .*GDB will not be able to display syscall names.*Catchpoint .*(syscall).*" $thistest
-+
-+ # Since the catchpoint was set, we must check if it's present at
-+ # "info breakpoints"
-+ check_init_info_breakpoints
-+
-+ # Sanitizing.
-+ delete_breakpoints
-+}
-+
-+proc test_catch_syscall_without_args_noxml {} {
-+ # We will need the syscall names even not using it
-+ # because we need to know know many syscalls are in
-+ # the example file.
-+ global gdb_prompt all_syscalls last_syscall
-+
-+ delete_breakpoints
-+
-+ set thistest "Catch syscall without arguments and without XML support"
-+ gdb_test "catch syscall" "Catchpoint .*(syscall).*"
-+
-+ # Now, we should be able to set a catchpoint,
-+ # and GDB shall not display the warning anymore.
-+ foreach name $all_syscalls {
-+ # Unfortunately, we don't know the syscall number
-+ # that will be caught because this information is
-+ # arch-dependent. Thus, we try to catch anything
-+ # similar to a number.
-+ check_continue "\[0-9\]*"
-+ }
-+
-+ # At last but not least, we check if the inferior
-+ # has called the last (exit) syscall.
-+ check_call_to_syscall "\[0-9\]*"
-+
-+ delete_breakpoints
-+}
-+
-+proc test_catch_syscall_with_args_noxml {} {
-+ global gdb_prompt
-+
-+ # The number of the "close" syscall. This is our
-+ # options for a "long-estabilished" syscall in all
-+ # Linux architectures, but unfortunately x86_64 and
-+ # a few other platforms don't "follow the convention".
-+ # Because of this, we need this ugly check :-(.
-+ set close_number ""
-+ if { [istarget "x86_64-*-linux*"] } {
-+ set close_number "3"
-+ } else {
-+ set close_number "6"
-+ }
-+
-+ delete_breakpoints
-+
-+ insert_catch_syscall_with_arg $close_number
-+ check_init_info_breakpoints
-+
-+ check_continue $close_number
-+
-+ delete_breakpoints
-+}
-+
-+proc test_catch_syscall_with_wrong_args_noxml {} {
-+ global gdb_prompt
-+
-+ delete_breakpoints
-+
-+ # Even without XML support, GDB should not accept unknown
-+ # syscall names for the catchpoint.
-+ set thistest "Catch a nonsense syscall without XML support"
-+ gdb_test "catch syscall nonsense_syscall" "Unknown syscall name .nonsense_syscall.*" $thistest
-+
-+ delete_breakpoints
-+}
-+
-+proc do_syscall_tests_without_xml {} {
-+ global gdb_prompt srcdir
-+
-+ # In this case, we don't need to set GDB's datadir because
-+ # we want GDB to display only numbers, not names. So, let's
-+ # begin with the tests.
-+
-+ # The first test is to see if GDB displays a warning when we
-+ # try to catch syscalls without the XML support.
-+ test_catch_syscall_fail_noxml
-+
-+ # Now, let's test if we can catch syscalls without XML support.
-+ # We should succeed, but GDB is not supposed to print syscall names.
-+ if [runto_main] then { test_catch_syscall_without_args_noxml }
-+
-+ # The only valid argument "catch syscall" should accept is the
-+ # syscall number, and not the name (since it can't translate a
-+ # name to a number).
-+ #
-+ # It's worth mentioning that we only try to catch the syscall
-+ # close(). This is because the syscall number is an arch-dependent
-+ # information, so we can't assume that we know every syscall number
-+ # in this system. Therefore, we have decided to use a "long-estabilished"
-+ # system call, and close() just sounded the right choice :-).
-+ if [runto_main] then { test_catch_syscall_with_args_noxml }
-+
-+ # Now, we'll try to provide a syscall name (valid or not) to the command,
-+ # and expect it to fail.
-+ if [runto_main] then { test_catch_syscall_with_wrong_args_noxml }
-+}
-+
-+# Start with a fresh gdb
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+# Execute the tests, using XML support
-+do_syscall_tests
-+
-+# Restart gdb
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+# Execute the tests, without XML support. In this case, GDB will
-+# only display syscall numbers, and not syscall names.
-+do_syscall_tests_without_xml
-diff --git a/gdb/testsuite/gdb.base/charset.c b/gdb/testsuite/gdb.base/charset.c
-index b640702..55a50ce 100644
---- a/gdb/testsuite/gdb.base/charset.c
-+++ b/gdb/testsuite/gdb.base/charset.c
-@@ -20,11 +20,6 @@
- Please email any bugs, comments, and/or additions to this file to:
- bug-gdb@gnu.org */
-
--#include <stdio.h>
--#include <stdlib.h>
--#include <string.h>
--
--
- /* X_string is a null-terminated string in the X charset whose
- elements are as follows. X should be the name the `set charset'
- command uses for the character set, in lower-case, with any
-@@ -54,6 +49,21 @@ char iso_8859_1_string[NUM_CHARS];
- char ebcdic_us_string[NUM_CHARS];
- char ibm1047_string[NUM_CHARS];
-
-+/* We make a phony wchar_t and then pretend that this platform uses
-+ UCS-4 (or UCS-2, depending on the size -- same difference for the
-+ purposes of this test). */
-+typedef unsigned int wchar_t;
-+wchar_t ucs_4_string[NUM_CHARS];
-+
-+/* We also define a couple phony types for testing the u'' and U''
-+ support. It is ok if these have the wrong size on some platforms
-+ -- the test case will skip the tests in that case. */
-+typedef unsigned short char16_t;
-+typedef unsigned int char32_t;
-+
-+/* Make sure to use the typedefs. */
-+char16_t uvar;
-+char32_t Uvar;
-
- void
- init_string (char string[],
-@@ -62,7 +72,10 @@ init_string (char string[],
- char line_feed, char carriage_return, char horizontal_tab,
- char vertical_tab, char cent, char misc_ctrl)
- {
-- memset (string, x, NUM_CHARS);
-+ int i;
-+
-+ for (i = 0; i < NUM_CHARS; ++i)
-+ string[i] = x;
- string[0] = alert;
- string[1] = backspace;
- string[2] = form_feed;
-@@ -85,13 +98,21 @@ fill_run (char string[], int start, int len, int first)
- }
-
-
-+void
-+init_ucs4 ()
-+{
-+ int i;
-+
-+ for (i = 0; i < NUM_CHARS; ++i)
-+ ucs_4_string[i] = iso_8859_1_string[i] & 0xff;
-+}
-+
- int main ()
- {
- #ifdef usestubs
- set_debug_traps();
- breakpoint();
- #endif
-- (void) malloc (1);
- /* Initialize ascii_string. */
- init_string (ascii_string,
- 120,
-@@ -146,5 +167,7 @@ int main ()
- /* The digits, at least, are contiguous. */
- fill_run (ibm1047_string, 59, 10, 240);
-
-- puts ("All set!"); /* all strings initialized */
-+ init_ucs4 ();
-+
-+ return 0; /* all strings initialized */
- }
-diff --git a/gdb/testsuite/gdb.base/charset.exp b/gdb/testsuite/gdb.base/charset.exp
-index fa26521..93f66c0 100644
---- a/gdb/testsuite/gdb.base/charset.exp
-+++ b/gdb/testsuite/gdb.base/charset.exp
-@@ -47,13 +47,7 @@ proc parse_show_charset_output {testname} {
- global gdb_prompt
-
- gdb_expect {
-- -re "The current host and target character set is `(.*)'\\.\[\r\n\]+$gdb_prompt $" {
-- set host_charset $expect_out(1,string)
-- set target_charset $expect_out(1,string)
-- set retlist [list $host_charset $target_charset]
-- pass $testname
-- }
-- -re "The current host character set is `(.*)'\\.\[\r\n\]+The current target character set is `(.*)'\\.\[\r\n\]+$gdb_prompt $" {
-+ -re "The host character set is \"(.*)\"\\.\[\r\n\]+The target character set is \"(.*)\"\\.\[\r\n\]+The target wide character set is \"(.*)\"\\.\[\r\n\]+$gdb_prompt $" {
- set host_charset $expect_out(1,string)
- set target_charset $expect_out(2,string)
- set retlist [list $host_charset $target_charset]
-@@ -81,79 +75,35 @@ proc parse_show_charset_output {testname} {
- }
-
-
--# Try the various `show charset' commands. These are all aliases of each
--# other; `show target-charset' and `show host-charset' actually print
--# both the host and target charsets.
-+# Try the various `show charset' commands.
-
- send_gdb "show charset\n"
- set show_charset [parse_show_charset_output "show charset"]
-
- send_gdb "show target-charset\n"
--set show_target_charset [parse_show_charset_output "show target-charset"]
-+set show_target_charset \
-+ [lindex [parse_show_charset_output "show target-charset"] 0]
-
--if {[lsearch $show_charset $show_target_charset] >= 0} {
-+if {[lsearch -exact $show_charset $show_target_charset] >= 0} {
- pass "check `show target-charset' against `show charset'"
- } else {
- fail "check `show target-charset' against `show charset'"
- }
-
- send_gdb "show host-charset\n"
--set show_host_charset [parse_show_charset_output "show host-charset"]
-+set show_host_charset \
-+ [lindex [parse_show_charset_output "show host-charset"] 0]
-
--if {[lsearch $show_charset $show_host_charset] >= 0} {
-+if {[lsearch -exact $show_charset $show_host_charset] >= 0} {
- pass "check `show host-charset' against `show charset'"
- } else {
- fail "check `show host-charset' against `show charset'"
- }
-
--
--# Get the list of supported (host) charsets as possible completions.
--send_gdb "set charset \t\t"
--
--# Check that we can at least use ASCII as a host character set.
--sleep 1
--gdb_expect {
-- -re "^set charset .*\r\nASCII.*\r\n$gdb_prompt set charset " {
-- # We got the output that we wanted, including ASCII as possible
-- # charset. Send a newline to get us back to the prompt. This will
-- # also generate an error message. Let's not check here that the error
-- # message makes sense, we do that below, as a separate testcase.
-- send_gdb "\n"
-- gdb_expect {
-- -re ".*Requires an argument.*$gdb_prompt $" {
-- pass "get valid character sets"
-- }
-- -re ".*$gdb_prompt $" {
-- send_gdb "\n"
-- gdb_expect {
-- -re ".*$gdb_prompt $" {
-- fail "get valid character sets"
-- }
-- }
-- }
-- timeout {
-- fail "(timeout) get valid character sets"
-- }
-- }
-- }
-- -re ".*$gdb_prompt $" {
-- # We got some output that ended with a regular prompt
-- fail "get valid character sets"
-- }
-- -re ".*$gdb_prompt set charset.*$" {
-- # We got some other output, send a cntrl-c to gdb to get us back
-- # to the prompt.
-- send_gdb "\003"
-- fail "get valid character sets"
-- }
-- timeout {
-- fail "get valid character sets (timeout)"
-- }
--}
--
- # Try a malformed `set charset'.
-+# Also check that we can at least use ASCII as a host character set.
- gdb_test "set charset" \
-- "Requires an argument. Valid arguments are.*" \
-+ "Requires an argument. Valid arguments are.* ASCII,.*" \
- "try malformed `set charset'"
-
- # Try using `set host-charset' on an invalid character set.
-@@ -244,8 +194,10 @@ gdb_expect {
- }
- }
-
--# Make sure that GDB supports every host/target charset combination.
--foreach host_charset [all_charset_names] {
-+# We don't want to test all the charset names here, since that would
-+# be too many combinations. We we pick a subset.
-+set charset_subset {ASCII ISO-8859-1 EBCDIC-US IBM1047}
-+foreach host_charset $charset_subset {
- if {[valid_host_charset $host_charset]} {
-
- set testname "try `set host-charset $host_charset'"
-@@ -279,7 +231,7 @@ foreach host_charset [all_charset_names] {
-
- # Now try setting every possible target character set,
- # given that host charset.
-- foreach target_charset [all_charset_names] {
-+ foreach target_charset $charset_subset {
- set testname "try `set target-charset $target_charset'"
- send_gdb "set target-charset $target_charset\n"
- gdb_expect {
-@@ -404,23 +356,42 @@ gdb_expect {
- }
-
-
-+# We only try the wide character tests on machines where the wchar_t
-+# typedef in the test case has the right size.
-+set wchar_size [get_sizeof wchar_t 99]
-+set wchar_ok 0
-+if {$wchar_size == 2} {
-+ lappend charset_subset UCS-2
-+ set wchar_ok 1
-+} elseif {$wchar_size == 4} {
-+ lappend charset_subset UCS-4
-+ set wchar_ok 1
-+}
-+
- gdb_test "set host-charset ASCII" ""
--foreach target_charset [all_charset_names] {
-- send_gdb "set target-charset $target_charset\n"
-+foreach target_charset $charset_subset {
-+ if {$target_charset == "UCS-4" || $target_charset == "UCS-2"} {
-+ set param target-wide-charset
-+ set L L
-+ } else {
-+ set param target-charset
-+ set L ""
-+ }
-+ send_gdb "set $param $target_charset\n"
- gdb_expect {
- -re "$gdb_prompt $" {
-- pass "set target-charset $target_charset"
-+ pass "set $param $target_charset"
- }
- timeout {
-- fail "set target-charset $target_charset (timeout)"
-+ fail "set $param $target_charset (timeout)"
- }
- }
-
- # Try printing the null character. There seems to be a bug in
- # gdb_test that requires us to use gdb_expect here.
-- send_gdb "print '\\0'\n"
-+ send_gdb "print $L'\\0'\n"
- gdb_expect {
-- -re "\\\$${decimal} = 0 '\\\\0'\[\r\n\]+$gdb_prompt $" {
-+ -re "\\\$${decimal} = 0 $L'\\\\0'\[\r\n\]+$gdb_prompt $" {
- pass "print the null character in ${target_charset}"
- }
- -re "$gdb_prompt $" {
-@@ -435,8 +406,14 @@ foreach target_charset [all_charset_names] {
- # a string in $target_charset. The variable's name is the
- # character set's name, in lower-case, with all non-identifier
- # characters replaced with '_', with "_string" stuck on the end.
-- set var_name [string tolower "${target_charset}_string"]
-- regsub -all -- "\[^a-z0-9_\]" $var_name "_" var_name
-+ if {$target_charset == "UCS-2"} {
-+ # We still use the ucs_4_string variable -- but the size is
-+ # correct for UCS-2.
-+ set var_name ucs_4_string
-+ } else {
-+ set var_name [string tolower "${target_charset}_string"]
-+ regsub -all -- "\[^a-z0-9_\]" $var_name "_" var_name
-+ }
-
- # Compute a regexp matching the results we expect. This is static,
- # but it's easier than writing it out.
-@@ -444,12 +421,12 @@ foreach target_charset [all_charset_names] {
- set uppercase "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
- set lowercase "abcdefghijklmnopqrstuvwxyz"
- set digits "0123456789"
-- set octal_escape "\\\\\[0-9\]\[0-9\]\[0-9\]"
-+ set octal_escape "\\\\\[0-9\]+"
-
- send_gdb "print $var_name\n"
- # ${escapes}${uppercase}${lowercase}${digits}${octal}${octal}
- gdb_expect {
-- -re ".* = \"(\\\\a|x)(\\\\b|x)(\\\\f|x)(\\\\n|x)(\\\\r|x)(\\\\t|x)(\\\\v|x)${uppercase}${lowercase}${digits}(\\\\\[0-9\]\[0-9\]\[0-9\]|x)(\\\\\[0-9\]\[0-9\]\[0-9\]|x).*\"\[\r\n\]+$gdb_prompt $" {
-+ -re ".* = $L\"(\\\\a|x)(\\\\b|x)(\\\\f|x)(\\\\n|x)(\\\\r|x)(\\\\t|x)(\\\\v|x)${uppercase}${lowercase}${digits}(${octal_escape}|x)+\"\[\r\n\]+$gdb_prompt $" {
- pass "print string in $target_charset"
- }
- -re "$gdb_prompt $" {
-@@ -461,22 +438,22 @@ foreach target_charset [all_charset_names] {
- }
-
- # Try entering a character literal, and see if it comes back unchanged.
-- gdb_test "print 'A'" \
-- " = \[0-9-\]+ 'A'" \
-+ gdb_test "print $L'A'" \
-+ " = \[0-9-\]+ $L'A'" \
- "parse character literal in ${target_charset}"
-
- # Check that the character literal was encoded correctly.
-- gdb_test "print 'A' == $var_name\[7\]" \
-+ gdb_test "print $L'A' == $var_name\[7\]" \
- " = 1" \
- "check value of parsed character literal in ${target_charset}"
-
- # Try entering a string literal, and see if it comes back unchanged.
-- gdb_test "print \"abcdefABCDEF012345\"" \
-- " = \"abcdefABCDEF012345\"" \
-+ gdb_test "print $L\"abcdefABCDEF012345\"" \
-+ " = $L\"abcdefABCDEF012345\"" \
- "parse string literal in ${target_charset}"
-
- # Check that the string literal was encoded correctly.
-- gdb_test "print \"q\"\[0\] == $var_name\[49\]" \
-+ gdb_test "print $L\"q\"\[0\] == $var_name\[49\]" \
- " = 1" \
- "check value of parsed string literal in ${target_charset}"
-
-@@ -509,7 +486,7 @@ foreach target_charset [all_charset_names] {
- send_gdb "print $var_name\[$i\]\n"
- set have_escape 1
- gdb_expect {
-- -re "= \[0-9-\]+ '\\\\${escape}'\[\r\n\]+$gdb_prompt $" {
-+ -re "= \[0-9-\]+ $L'\\\\${escape}'\[\r\n\]+$gdb_prompt $" {
- pass "try printing '\\${escape}' in ${target_charset}"
- }
- -re "= \[0-9-\]+ 'x'\[\r\n\]+$gdb_prompt $" {
-@@ -527,12 +504,12 @@ foreach target_charset [all_charset_names] {
- if {$have_escape} {
-
- # Try parsing a backslash escape in a character literal.
-- gdb_test "print '\\${escape}' == $var_name\[$i\]" \
-+ gdb_test "print $L'\\${escape}' == $var_name\[$i\]" \
- " = 1" \
- "check value of '\\${escape}' in ${target_charset}"
-
- # Try parsing a backslash escape in a string literal.
-- gdb_test "print \"\\${escape}\"\[0\] == $var_name\[$i\]" \
-+ gdb_test "print $L\"\\${escape}\"\[0\] == $var_name\[$i\]" \
- " = 1" \
- "check value of \"\\${escape}\" in ${target_charset}"
- }
-@@ -540,10 +517,73 @@ foreach target_charset [all_charset_names] {
-
- # Try printing a character escape that doesn't exist. We should
- # get the unescaped character, in the target character set.
-- gdb_test "print '\\q'" " = \[0-9-\]+ 'q'" \
-+ gdb_test "print $L'\\q'" " = \[0-9-\]+ $L'q'" \
- "print escape that doesn't exist in $target_charset"
-- gdb_test "print '\\q' == $var_name\[49\]" " = 1" \
-+ gdb_test "print $L'\\q' == $var_name\[49\]" " = 1" \
- "check value of escape that doesn't exist in $target_charset"
- }
-
-+# Reset the target charset.
-+gdb_test "set target-charset UTF-8" ""
-+
-+# \242 is not a valid UTF-8 character.
-+gdb_test "print \"\\242\"" " = \"\\\\242\"" \
-+ "non-representable target character"
-+
-+gdb_test "print '\\x'" "\\\\x escape without a following hex digit."
-+gdb_test "print '\\u'" "\\\\u escape without a following hex digit."
-+gdb_test "print '\\9'" " = \[0-9\]+ '9'"
-+
-+# Tests for wide- or unicode- strings. L is the prefix letter to use,
-+# either "L" (for wide strings), "u" (for UCS-2), or "U" (for UCS-4).
-+# NAME is used in the test names and should be related to the prefix
-+# letter in some easy-to-undestand way.
-+proc test_wide_or_unicode {L name} {
-+ gdb_test "print $L\"ab\" $L\"c\"" " = $L\"abc\"" \
-+ "basic $name string concatenation"
-+ gdb_test "print $L\"ab\" \"c\"" " = $L\"abc\"" \
-+ "narrow and $name string concatenation"
-+ gdb_test "print \"ab\" $L\"c\"" " = $L\"abc\"" \
-+ "$name and narrow string concatenation"
-+ gdb_test "print $L\"\\xe\" $L\"c\"" " = $L\"\\\\16c\"" \
-+ "$name string concatenation with escape"
-+ gdb_test "print $L\"\" \"abcdef\" \"g\"" \
-+ "$L\"abcdefg\"" \
-+ "concatenate three strings with empty $name string"
-+
-+ gdb_test "print $L'a'" "= \[0-9\]+ $L'a'" \
-+ "basic $name character"
-+}
-+
-+if {$wchar_ok} {
-+ test_wide_or_unicode L wide
-+}
-+
-+set ucs2_ok [expr {[get_sizeof char16_t 99] == 2}]
-+if {$ucs2_ok} {
-+ test_wide_or_unicode u UCS-2
-+}
-+
-+set ucs4_ok [expr {[get_sizeof char32_t 99] == 4}]
-+if {$ucs4_ok} {
-+ test_wide_or_unicode U UCS-4
-+}
-+
-+# Test an invalid string combination.
-+proc test_combination {L1 name1 L2 name2} {
-+ gdb_test "print $L1\"abc\" $L2\"def\"" \
-+ "Undefined string concatenation." \
-+ "undefined concatenation of $name1 and $name2"
-+}
-+
-+if {$wchar_ok && $ucs2_ok} {
-+ test_combination L wide u UCS-2
-+}
-+if {$wchar_ok && $ucs4_ok} {
-+ test_combination L wide U UCS-4
-+}
-+if {$ucs2_ok && $ucs4_ok} {
-+ test_combination u UCS-2 U UCS-4
-+}
-+
- gdb_exit
-diff --git a/gdb/testsuite/gdb.base/constvars.exp b/gdb/testsuite/gdb.base/constvars.exp
-index d53a826..6d1bd12 100644
---- a/gdb/testsuite/gdb.base/constvars.exp
-+++ b/gdb/testsuite/gdb.base/constvars.exp
-@@ -161,7 +161,7 @@ proc do_constvar_tests {} {
- gdb_test "print laconic" " = 65 'A'"
- local_compiler_xfail_check
- gdb_test "ptype laconic" "type = const char"
-- gdb_test "print laggard" " = 1 '.001'"
-+ gdb_test "print laggard" " = 1 '.1'"
- local_compiler_xfail_check
- gdb_test "ptype laggard" "type = const unsigned char"
- gdb_test "print lagoon" " = 2"
-@@ -209,7 +209,7 @@ proc do_constvar_tests {} {
- gdb_test "print *lewd" " = 65 'A'"
- local_compiler_xfail_check
- gdb_test "ptype lewd" "type = const char \\* const"
-- gdb_test "print *lexicographer" " = 1 '.001'"
-+ gdb_test "print *lexicographer" " = 1 '.1'"
- local_compiler_xfail_check
- gdb_test "ptype lexicographer" "type = const unsigned char \\* const"
- gdb_test "print *lexicon" " = 2"
-@@ -233,7 +233,7 @@ proc do_constvar_tests {} {
- gdb_test "print *languish" " = 65 'A'"
- local_compiler_xfail_check
- gdb_test "ptype languish" "type = const char \\*"
-- gdb_test "print *languor" " = 1 '.001'"
-+ gdb_test "print *languor" " = 1 '.1'"
- local_compiler_xfail_check
- gdb_test "ptype languor" "type = const unsigned char \\*"
- gdb_test "print *lank" " = 2"
-diff --git a/gdb/testsuite/gdb.base/display.exp b/gdb/testsuite/gdb.base/display.exp
-index d62e8bf..aa65373 100644
---- a/gdb/testsuite/gdb.base/display.exp
-+++ b/gdb/testsuite/gdb.base/display.exp
-@@ -180,8 +180,12 @@ gdb_test "printf \"%p\\n\", 1" "0x1"
-
- # play with "print", too
- #
--gdb_test "print/r j" ".*Undefined output format.*"
--gdb_test "print j" ".*" "debug test output"
-+gdb_test "print/z j" ".*Undefined output format.*"
-+gdb_test "print/d j" " = 0\[\\r\\n\]+" "debug test output 1"
-+gdb_test "print/r j" " = 0\[\\r\\n\]+" "debug test output 1a"
-+gdb_test "print/x j" " = 0x0\[\\r\\n\]+" "debug test output 2"
-+gdb_test "print/r j" " = 0x0\[\\r\\n\]+" "debug test output 2a"
-+gdb_test "print j" " = 0\[\\r\\n\]+" "debug test output 3"
-
- # x/0 j doesn't produce any output and terminates PA64 process when testing
- if [istarget "hppa2.0w-hp-hpux11*"] {
-diff --git a/gdb/testsuite/gdb.base/help.exp b/gdb/testsuite/gdb.base/help.exp
-index 4618a2c..40830c3 100644
---- a/gdb/testsuite/gdb.base/help.exp
-+++ b/gdb/testsuite/gdb.base/help.exp
-@@ -603,7 +603,7 @@ gdb_test "help stepi" "Step one instruction exactly\.\[\r\n\]+Argument N means d
- gdb_test "help signal" "Continue program giving it signal.*" "help signal"
- # test help source
- # vxgdb reads .vxgdbinit
--gdb_test "help source" "Read commands from a file named FILE\.\[\r\n\]+Optional -v switch \\(before the filename\\) causes each command in\[\r\n\]+FILE to be echoed as it is executed\.\[\r\n\]+Note that the file \"\[^\"\]*\" is read automatically in this way\[\r\n\]+when GDB is started\." "help source"
-+gdb_test "help source" "Read commands from a file named FILE\.\[\r\n\]+Optional -v switch \\(before the filename\\) causes each command in\[\r\n\]+FILE to be echoed as it is executed\.\[\r\n\]+Note that the file \"\[^\"\]*\" is read automatically in this way\[\r\n\]+when GDB is started\.\[\r\n\]+Optional -p switch \\(before the filename\\) causes FILE to be evaluated\[\r\n\]+as Python code\." "help source"
- # test help stack
- test_class_help "stack" {
- "Examining the stack\..*\[\r\n\]+"
-diff --git a/gdb/testsuite/gdb.base/lineno-makeup-func.c b/gdb/testsuite/gdb.base/lineno-makeup-func.c
-new file mode 100644
-index 0000000..1a0220e
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/lineno-makeup-func.c
-@@ -0,0 +1,21 @@
-+/* This testcase is part of GDB, the GNU debugger.
-+
-+ Copyright 2009 Free Software Foundation, Inc.
-+
-+ 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/>. */
-+
-+void
-+func (void)
-+{
-+}
-diff --git a/gdb/testsuite/gdb.base/lineno-makeup.c b/gdb/testsuite/gdb.base/lineno-makeup.c
-new file mode 100644
-index 0000000..bb20e98
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/lineno-makeup.c
-@@ -0,0 +1,35 @@
-+/* This testcase is part of GDB, the GNU debugger.
-+
-+ Copyright 2009 Free Software Foundation, Inc.
-+
-+ 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/>. */
-+
-+/* DW_AT_low_pc-DW_AT_high_pc should cover the function without line number
-+ information (.debug_line) so we cannot use an external object file.
-+
-+ It must not be just a label as it would alias on the next function even for
-+ correct GDB. Therefore some stub data must be placed there.
-+
-+ We need to provide a real stub function body as at least s390
-+ (s390_analyze_prologue) would skip the whole body till reaching `main'. */
-+
-+extern void func (void);
-+asm ("func: .incbin \"gdb.base/lineno-makeup-func.bin\"");
-+
-+int
-+main (void)
-+{
-+ func ();
-+ return 0;
-+}
-diff --git a/gdb/testsuite/gdb.base/lineno-makeup.exp b/gdb/testsuite/gdb.base/lineno-makeup.exp
-new file mode 100644
-index 0000000..0c75b84
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/lineno-makeup.exp
-@@ -0,0 +1,78 @@
-+# Copyright 2009 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+set testfile "lineno-makeup"
-+set srcfuncfile ${testfile}-func.c
-+set srcfile ${testfile}.c
-+set objfuncfile ${objdir}/${subdir}/${testfile}-func.o
-+set binfuncfile ${objdir}/${subdir}/${testfile}-func.bin
-+set binfile ${objdir}/${subdir}/${testfile}
-+
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfuncfile}" "${objfuncfile}" object {}] != "" } {
-+ gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
-+}
-+
-+set objcopy [catch "exec objcopy -O binary --only-section .text ${objfuncfile} ${binfuncfile}" output]
-+verbose -log "objcopy=$objcopy: $output"
-+if { $objcopy != 0 } {
-+ gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
-+}
-+set binfuncfilesize [file size $binfuncfile]
-+verbose -log "file size $binfuncfile = $binfuncfilesize"
-+
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
-+ gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
-+}
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+set b_addr ""
-+set test "break func"
-+gdb_test_multiple $test $test {
-+ -re "Breakpoint \[0-9\]+ at (0x\[0-9a-f\]+)\r\n$gdb_prompt $" {
-+ set b_addr $expect_out(1,string)
-+ pass $test
-+ }
-+ -re "Breakpoint \[0-9\]+ at (0x\[0-9a-f\]+): .*\r\n$gdb_prompt $" {
-+ set b_addr $expect_out(1,string)
-+ fail $test
-+ }
-+}
-+verbose -log "b_addr=<$b_addr>"
-+
-+set p_addr ""
-+set test "print func"
-+gdb_test_multiple $test $test {
-+ -re "\\$\[0-9\]+ = {<text variable, no debug info>} (0x\[0-9a-f\]+) <func>\r\n$gdb_prompt $" {
-+ set p_addr $expect_out(1,string)
-+ pass $test
-+ }
-+}
-+verbose -log "p_addr=<$p_addr>"
-+
-+set test "break address belongs to func"
-+if {$b_addr == $p_addr} {
-+ pass "$test (exact match)"
-+} else {
-+ set skip [expr $b_addr - $p_addr]
-+ if {$skip > 0 && $skip < $binfuncfilesize} {
-+ pass "$test (prologue skip by $skip bytes)"
-+ } else {
-+ fail $test
-+ }
-+}
-diff --git a/gdb/testsuite/gdb.base/long_long.exp b/gdb/testsuite/gdb.base/long_long.exp
-index d0ad5ba..5189324 100644
---- a/gdb/testsuite/gdb.base/long_long.exp
-+++ b/gdb/testsuite/gdb.base/long_long.exp
-@@ -210,7 +210,7 @@ gdb_test_char "p/o *(char *)c" "01"
- gdb_test_char "p/t *(char *)c" "1"
- gdb_test_char "p/a *(char *)c" "0x1( <.*>)?"
- gdb_test_char "p/f *(char *)c" "1"
--gdb_test_char "p/c *(char *)c" "1 '.001'"
-+gdb_test_char "p/c *(char *)c" "1 '.1'"
-
- gdb_test_short "p/x *(short *)s" "" "0x123" ""
- gdb_test_short "p/d *(short *)s" "" "291" ""
-@@ -257,7 +257,7 @@ gdb_test "x/u w" "19088743"
- gdb_test "x/o w" "0110642547"
- gdb_test "x/t w" "00000001001000110100010101100111"
- gdb_test_xptr "x/a" { b "" } { h "" } { w "0x1234567" } { g "0x123456789abcdef" }
--gdb_test "x/c b" "1 '.001'"
-+gdb_test "x/c b" "1 '.1'"
- if { $sizeof_double == 8 || $sizeof_long_double == 8 } {
- gdb_test "x/f &val.oct" "-5.9822653797615723e-120"
- } else {
-@@ -273,7 +273,7 @@ gdb_test "x/2u g" "81985529216486895.*12046818088235383159"
- gdb_test "x/2o g" "04432126361152746757.*01234567123456701234567"
- gdb_test "x/2t g" "0000000100100011010001010110011110001001101010111100110111101111.*1010011100101110111001010011100101110111000001010011100101110111"
- gdb_test_xptr "x/2a" { b "" } { h "" } { w "0x1234567.*0xa72ee539" } { g "0x123456789abcdef.*0xa72ee53977053977" }
--gdb_test "x/2c b" "1 '.001'.*-89 '.'"
-+gdb_test "x/2c b" "1 '.1'.*-89 '.\[0-9\]*'"
- if { $sizeof_double == 8 || $sizeof_long_double == 8 } {
- gdb_test "x/2f &val.oct" "-5.9822653797615723e-120.*-5.9041889495880968e-100"
- } else {
-@@ -288,7 +288,7 @@ gdb_test "x/2bu b" "1.*167"
- gdb_test "x/2bo b" "01.*0247"
- gdb_test "x/2bt b" "00000001.*10100111"
- gdb_test_ptr "x/2ba b" "" "" "0x1.*0xffffffa7" "0x1.*0xffffffffffffffa7"
--gdb_test "x/2bc b" "1 '.001'.*-89 '.'"
-+gdb_test "x/2bc b" "1 '.1'.*-89 '.\[0-9\]*'"
- gdb_test "x/2bf b" "1.*-89"
-
- gdb_test "x/2hx h" "0x0123.*0xa72e"
-@@ -315,7 +315,7 @@ gdb_test "x/2gu g" "81985529216486895.*12046818088235383159"
- gdb_test "x/2go g" "04432126361152746757.*01234567123456701234567"
- gdb_test "x/2gt g" "0000000100100011010001010110011110001001101010111100110111101111.*1010011100101110111001010011100101110111000001010011100101110111"
- gdb_test_ptr "x/2ga g" "" "" "0x89abcdef.*0x77053977" "0x123456789abcdef.*0xa72ee53977053977"
--gdb_test "x/2gc g" "-17 '.'.*119 'w'"
-+gdb_test "x/2gc g" "-17 '.\[0-9\]*'.*119 'w'"
- gdb_test "x/2gf g" "3.5127005640885037e-303.*-5.9822653797615723e-120"
-
- gdb_exit
-diff --git a/gdb/testsuite/gdb.base/macscp.exp b/gdb/testsuite/gdb.base/macscp.exp
-index 7086e90..dd196d7 100644
---- a/gdb/testsuite/gdb.base/macscp.exp
-+++ b/gdb/testsuite/gdb.base/macscp.exp
-@@ -26,13 +26,21 @@ set testfile "macscp"
- set objfile ${objdir}/${subdir}/${testfile}.o
- set binfile ${objdir}/${subdir}/${testfile}
-
--set options { debug }
-+set options { debug additional_flags=-DFROM_COMMANDLINE=ARG}
-
- get_compiler_info ${binfile}
- if [test_compiler_info gcc*] {
- lappend options additional_flags=-g3
- }
-
-+# Workaround ccache making lineno non-zero for command-line definitions.
-+if {[find_gcc] == "gcc" && [file executable "/usr/bin/gcc"]} {
-+ set result [catch "exec which gcc" output]
-+ if {$result == 0 && [string first "/ccache/" $output] >= -1} {
-+ lappend options "compiler=/usr/bin/gcc"
-+ }
-+}
-+
- # Generate the intermediate object file. This is required by Darwin to
- # have access to the .debug_macinfo section.
- if {[gdb_compile "${srcdir}/${subdir}/macscp1.c" "${objfile}" \
-@@ -79,11 +87,15 @@ proc info_macro {macro} {
-
- if {$debug_me} {exp_internal 1}
- gdb_expect {
-- -re "Defined at \[^\r\n\]*(${filepat}):${decimal}\[\r\n\]" {
-+ -re "Defined at \[^\r\n\]*(${filepat}):(${decimal})\[\r\n\]" {
- # `location' and `definition' should be empty when we see
- # this message.
- if {[llength $location] == 0 && [llength $definition] == 0} {
- set location $expect_out(1,string)
-+ # Definitions from gcc command-line get suffixed by the lineno.
-+ if {$expect_out(2,string) == "0" } {
-+ set location "$location:$expect_out(2,string)"
-+ }
- exp_continue
- } else {
- # Exit this expect loop, with a result indicating failure.
-@@ -198,6 +210,8 @@ proc list_and_check_macro {func macro expected} {
- }
-
-
-+list_and_check_macro main FROM_COMMANDLINE "macscp1.c:0 ARG"
-+
- if {[list_and_check_macro main WHERE {macscp1.c {before macscp1_3}}]} {
- return 0
- }
-diff --git a/gdb/testsuite/gdb.base/nodebug.exp b/gdb/testsuite/gdb.base/nodebug.exp
-index 4c01be4..31fb88e 100644
---- a/gdb/testsuite/gdb.base/nodebug.exp
-+++ b/gdb/testsuite/gdb.base/nodebug.exp
-@@ -215,5 +215,12 @@ if [runto inner] then {
- if [runto middle] then {
- gdb_test "backtrace 10" "#0.*middle.*#1.*top.*#2.*main.*" \
- "backtrace from middle in nodebug.exp"
-+
-+ # Test return from a function with no debug info (symbol; still it may
-+ # have a minimal-symbol). In gdb.base/return*.exp we would need to
-+ # build a separate executable with no "debug" option.
-+ gdb_test "return 0" "#0 .* top \\(.*" \
-+ "return from function with no debug info" \
-+ "Make selected stack frame return now\\? \\(y or n\\) " "y"
- }
- }
-diff --git a/gdb/testsuite/gdb.base/pointers.exp b/gdb/testsuite/gdb.base/pointers.exp
-index 91838a2..2d0a70e 100644
---- a/gdb/testsuite/gdb.base/pointers.exp
-+++ b/gdb/testsuite/gdb.base/pointers.exp
-@@ -389,7 +389,7 @@ gdb_expect {
-
- send_gdb "print *pUC\n"
- gdb_expect {
-- -re ".\[0-9\]* = 21 \'.025\'.*$gdb_prompt $" {
-+ -re ".\[0-9\]* = 21 \'.25\'.*$gdb_prompt $" {
- pass "print value of *pUC"
- }
- -re ".*$gdb_prompt $" { fail "print value of *pUC" }
-diff --git a/gdb/testsuite/gdb.base/printcmds.exp b/gdb/testsuite/gdb.base/printcmds.exp
-index 1e17da4..b6f8a1f 100644
---- a/gdb/testsuite/gdb.base/printcmds.exp
-+++ b/gdb/testsuite/gdb.base/printcmds.exp
-@@ -137,12 +137,12 @@ proc test_print_all_chars {} {
- global gdb_prompt
-
- gdb_test "p ctable1\[0\]" " = 0 '\\\\0'"
-- gdb_test "p ctable1\[1\]" " = 1 '\\\\001'"
-- gdb_test "p ctable1\[2\]" " = 2 '\\\\002'"
-- gdb_test "p ctable1\[3\]" " = 3 '\\\\003'"
-- gdb_test "p ctable1\[4\]" " = 4 '\\\\004'"
-- gdb_test "p ctable1\[5\]" " = 5 '\\\\005'"
-- gdb_test "p ctable1\[6\]" " = 6 '\\\\006'"
-+ gdb_test "p ctable1\[1\]" " = 1 '\\\\1'"
-+ gdb_test "p ctable1\[2\]" " = 2 '\\\\2'"
-+ gdb_test "p ctable1\[3\]" " = 3 '\\\\3'"
-+ gdb_test "p ctable1\[4\]" " = 4 '\\\\4'"
-+ gdb_test "p ctable1\[5\]" " = 5 '\\\\5'"
-+ gdb_test "p ctable1\[6\]" " = 6 '\\\\6'"
- gdb_test "p ctable1\[7\]" " = 7 '\\\\a'"
- gdb_test "p ctable1\[8\]" " = 8 '\\\\b'"
- gdb_test "p ctable1\[9\]" " = 9 '\\\\t'"
-@@ -150,24 +150,24 @@ proc test_print_all_chars {} {
- gdb_test "p ctable1\[11\]" " = 11 '\\\\v'"
- gdb_test "p ctable1\[12\]" " = 12 '\\\\f'"
- gdb_test "p ctable1\[13\]" " = 13 '\\\\r'"
-- gdb_test "p ctable1\[14\]" " = 14 '\\\\016'"
-- gdb_test "p ctable1\[15\]" " = 15 '\\\\017'"
-- gdb_test "p ctable1\[16\]" " = 16 '\\\\020'"
-- gdb_test "p ctable1\[17\]" " = 17 '\\\\021'"
-- gdb_test "p ctable1\[18\]" " = 18 '\\\\022'"
-- gdb_test "p ctable1\[19\]" " = 19 '\\\\023'"
-- gdb_test "p ctable1\[20\]" " = 20 '\\\\024'"
-- gdb_test "p ctable1\[21\]" " = 21 '\\\\025'"
-- gdb_test "p ctable1\[22\]" " = 22 '\\\\026'"
-- gdb_test "p ctable1\[23\]" " = 23 '\\\\027'"
-- gdb_test "p ctable1\[24\]" " = 24 '\\\\030'"
-- gdb_test "p ctable1\[25\]" " = 25 '\\\\031'"
-- gdb_test "p ctable1\[26\]" " = 26 '\\\\032'"
-- gdb_test "p ctable1\[27\]" " = 27 '\\\\033'"
-- gdb_test "p ctable1\[28\]" " = 28 '\\\\034'"
-- gdb_test "p ctable1\[29\]" " = 29 '\\\\035'"
-- gdb_test "p ctable1\[30\]" " = 30 '\\\\036'"
-- gdb_test "p ctable1\[31\]" " = 31 '\\\\037'"
-+ gdb_test "p ctable1\[14\]" " = 14 '\\\\16'"
-+ gdb_test "p ctable1\[15\]" " = 15 '\\\\17'"
-+ gdb_test "p ctable1\[16\]" " = 16 '\\\\20'"
-+ gdb_test "p ctable1\[17\]" " = 17 '\\\\21'"
-+ gdb_test "p ctable1\[18\]" " = 18 '\\\\22'"
-+ gdb_test "p ctable1\[19\]" " = 19 '\\\\23'"
-+ gdb_test "p ctable1\[20\]" " = 20 '\\\\24'"
-+ gdb_test "p ctable1\[21\]" " = 21 '\\\\25'"
-+ gdb_test "p ctable1\[22\]" " = 22 '\\\\26'"
-+ gdb_test "p ctable1\[23\]" " = 23 '\\\\27'"
-+ gdb_test "p ctable1\[24\]" " = 24 '\\\\30'"
-+ gdb_test "p ctable1\[25\]" " = 25 '\\\\31'"
-+ gdb_test "p ctable1\[26\]" " = 26 '\\\\32'"
-+ gdb_test "p ctable1\[27\]" " = 27 '\\\\33'"
-+ gdb_test "p ctable1\[28\]" " = 28 '\\\\34'"
-+ gdb_test "p ctable1\[29\]" " = 29 '\\\\35'"
-+ gdb_test "p ctable1\[30\]" " = 30 '\\\\36'"
-+ gdb_test "p ctable1\[31\]" " = 31 '\\\\37'"
- gdb_test "p ctable1\[32\]" " = 32 ' '"
- gdb_test "p ctable1\[33\]" " = 33 '!'"
- gdb_test "p ctable1\[34\]" " = 34 '\"'"
-@@ -475,13 +475,13 @@ proc test_print_strings {} {
- gdb_test "p &ctable1\[0\]" \
- " = \\(unsigned char \\*\\) \"\""
- gdb_test "p &ctable1\[1\]" \
-- " = \\(unsigned char \\*\\) \"\\\\001\\\\002\\\\003\\\\004\\\\005\\\\006\\\\a\\\\b\"..."
-+ " = \\(unsigned char \\*\\) \"\\\\1\\\\2\\\\3\\\\4\\\\5\\\\6\\\\a\\\\b\"..."
- gdb_test "p &ctable1\[1*8\]" \
-- " = \\(unsigned char \\*\\) \"\\\\b\\\\t\\\\n\\\\v\\\\f\\\\r\\\\016\\\\017\"..."
-+ " = \\(unsigned char \\*\\) \"\\\\b\\\\t\\\\n\\\\v\\\\f\\\\r\\\\16\\\\17\"..."
- gdb_test "p &ctable1\[2*8\]" \
-- " = \\(unsigned char \\*\\) \"\\\\020\\\\021\\\\022\\\\023\\\\024\\\\025\\\\026\\\\027\"..."
-+ " = \\(unsigned char \\*\\) \"\\\\20\\\\21\\\\22\\\\23\\\\24\\\\25\\\\26\\\\27\"..."
- gdb_test "p &ctable1\[3*8\]" \
-- " = \\(unsigned char \\*\\) \"\\\\030\\\\031\\\\032\\\\033\\\\034\\\\035\\\\036\\\\037\"..."
-+ " = \\(unsigned char \\*\\) \"\\\\30\\\\31\\\\32\\\\33\\\\34\\\\35\\\\36\\\\37\"..."
- gdb_test "p &ctable1\[4*8\]" \
- " = \\(unsigned char \\*\\) \" !\\\\\"#\\\$%&'\"..."
- gdb_test "p &ctable1\[5*8\]" \
-@@ -622,7 +622,7 @@ proc test_print_string_constants {} {
- set timeout 60;
-
- gdb_test "p \"a string\"" " = \"a string\""
-- gdb_test "p \"embedded \\000 null\"" " = \"embedded \\\\000 null\""
-+ gdb_test "p \"embedded \\000 null\"" " = \"embedded \\\\0 null\""
- gdb_test "p \"abcd\"\[2\]" " = 99 'c'"
- gdb_test "p sizeof (\"abcdef\")" " = 7"
- gdb_test "ptype \"foo\"" " = char \\\[4\\\]"
-diff --git a/gdb/testsuite/gdb.base/return-nodebug.c b/gdb/testsuite/gdb.base/return-nodebug.c
-new file mode 100644
-index 0000000..e1211b3
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/return-nodebug.c
-@@ -0,0 +1,49 @@
-+/* This testcase is part of GDB, the GNU debugger.
-+
-+ Copyright 2009 Free Software Foundation, Inc.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+#include <stdio.h>
-+
-+static TYPE
-+init (void)
-+{
-+ return 0;
-+}
-+
-+static TYPE
-+func (void)
-+{
-+ return 31;
-+}
-+
-+static void
-+marker (void)
-+{
-+}
-+
-+int
-+main (void)
-+{
-+ /* Preinitialize registers to 0 to avoid false PASS by leftover garbage. */
-+ init ();
-+
-+ printf ("result=" FORMAT "\n", CAST func ());
-+
-+ /* Cannot `next' with no debug info. */
-+ marker ();
-+
-+ return 0;
-+}
-diff --git a/gdb/testsuite/gdb.base/return-nodebug.exp b/gdb/testsuite/gdb.base/return-nodebug.exp
-new file mode 100644
-index 0000000..6f32aa9
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/return-nodebug.exp
-@@ -0,0 +1,54 @@
-+# Copyright (C) 2009 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+proc do_test {type} {
-+ set typenospace [string map {{ } -} $type]
-+
-+ global pf_prefix
-+ set old_prefix $pf_prefix
-+ lappend pf_prefix "$typenospace:"
-+
-+ if {[runto "func"]} {
-+ # Test return from a function with no debug info (symbol; still it may
-+ # have a minimal-symbol) if it does not crash.
-+ gdb_test "return -1" "#0 .* main \\(.*" \
-+ "return from function with no debug info" \
-+ "Make selected stack frame return now\\? \\(y or n\\) " "y"
-+
-+ # And if it returned the full width of the result.
-+ gdb_test "adv marker" "\r\nresult=-1\r\n.* in marker \\(.*" \
-+ "full width of the returned result"
-+ }
-+
-+ set pf_prefix $old_prefix
-+}
-+
-+foreach case {{{signed char} %d (int)} \
-+ {{short} %d (int)} \
-+ {{int} %d} \
-+ {{long} %ld} \
-+ {{long long} %lld}} {
-+ set type [lindex $case 0]
-+ set format [lindex $case 1]
-+ set cast [lindex $case 2]
-+
-+ set typeesc [string map {{ } {\ }} $type]
-+ set typenospace [string map {{ } -} $type]
-+
-+ if {[prepare_for_testing return-nodebug.exp "return-nodebug-$typenospace" "return-nodebug.c" \
-+ [list "additional_flags=-DFORMAT=\"$format\" -DTYPE=$typeesc -DCAST=$cast"]] == 0} {
-+ do_test $type
-+ }
-+}
-diff --git a/gdb/testsuite/gdb.base/setvar.exp b/gdb/testsuite/gdb.base/setvar.exp
-index 2350a33..3be8424 100644
---- a/gdb/testsuite/gdb.base/setvar.exp
-+++ b/gdb/testsuite/gdb.base/setvar.exp
-@@ -121,7 +121,7 @@ proc test_set { args } {
- #
-
- test_set "set variable v_char=0" "print v_char" ".\[0-9\]* = 0 \'.0\'" "set variable char=0"
--test_set "set variable v_char=1" "print v_char" ".\[0-9\]* = 1 \'.001\'" "set variable char=1"
-+test_set "set variable v_char=1" "print v_char" ".\[0-9\]* = 1 \'.1\'" "set variable char=1"
- test_set "set variable v_char=7" "print v_char" ".\[0-9\]* = 7 \'.a\'" "set variable char=7 (Bel)"
- test_set "set variable v_char=32" "print v_char" ".\[0-9\]* = 32 \' \'" "set variable char=32 (SPC)"
- test_set "set variable v_char=65" "print v_char" ".\[0-9\]* = 65 \'A\'" "set variable char=65 ('A')"
-@@ -132,7 +132,7 @@ test_set "set variable v_char=127" "print v_char" ".\[0-9\]* = 127 \'.177\'"
- # test "set variable" for type "signed char"
- #
- test_set "set variable v_char=0" "print v_signed_char" ".\[0-9\]* = 0 \'.0\'" "set variable signed char=0"
--test_set "set variable v_signed_char=1" "print v_signed_char" ".\[0-9\]* = 1 \'.001\'" "set variable signed char=1"
-+test_set "set variable v_signed_char=1" "print v_signed_char" ".\[0-9\]* = 1 \'.1\'" "set variable signed char=1"
- test_set "set variable v_signed_char=7" "print v_signed_char" ".\[0-9\]* = 7 \'.a\'" "set variable signed char=7 (Bel)"
- test_set "set variable v_signed_char=32" "print v_signed_char" ".\[0-9\]* = 32 \' \'" "set variable signed char=32 (SPC)"
- test_set "set variable v_signed_char=65" "print v_signed_char" ".\[0-9\]* = 65 \'A\'" "set variable signed char=65 ('A')"
-@@ -151,7 +151,7 @@ gdb_test "print v_signed_char" ".\[0-9\]* = -1 \'.377\'" \
- # test "set variable" for type "unsigned char"
- #
- test_set "set variable v_unsigned_char=0" "print v_unsigned_char" ".\[0-9\]* = 0 \'.0\'" "set variable unsigned char=0"
--test_set "set variable v_unsigned_char=1" "print v_unsigned_char" ".\[0-9\]* = 1 \'.001\'" "set variable unsigned char=1"
-+test_set "set variable v_unsigned_char=1" "print v_unsigned_char" ".\[0-9\]* = 1 \'.1\'" "set variable unsigned char=1"
- test_set "set variable v_unsigned_char=7" "print v_unsigned_char" ".\[0-9\]* = 7 \'.a\'" "set variable unsigned char=7 (Bel)"
- test_set "set variable v_unsigned_char=32" "print v_unsigned_char" ".\[0-9\]* = 32 \' \'" "set variable unsigned char=32 (SPC)"
- test_set "set variable v_unsigned_char=65" "print v_unsigned_char" ".\[0-9\]* = 65 \'A\'" "set variable unsigned char=65 ('A')"
-diff --git a/gdb/testsuite/gdb.base/store.exp b/gdb/testsuite/gdb.base/store.exp
-index 963bb19..feab6bd 100644
---- a/gdb/testsuite/gdb.base/store.exp
-+++ b/gdb/testsuite/gdb.base/store.exp
-@@ -74,7 +74,7 @@ proc check_set { t l r new add } {
- "${prefix}; print incremented l, expecting ${add}"
- }
-
--check_set "charest" "-1 .*" "-2 .*" "4 ..004." "2 ..002."
-+check_set "charest" "-1 .*" "-2 .*" "4 ..4." "2 ..2."
- check_set "short" "-1" "-2" "4" "2"
- check_set "int" "-1" "-2" "4" "2"
- check_set "long" "-1" "-2" "4" "2"
-@@ -102,7 +102,7 @@ proc up_set { t l r new } {
- "${prefix}; print new l, expecting ${new}"
- }
-
--up_set "charest" "-1 .*" "-2 .*" "4 ..004."
-+up_set "charest" "-1 .*" "-2 .*" "4 ..4."
- up_set "short" "-1" "-2" "4"
- up_set "int" "-1" "-2" "4"
- up_set "long" "-1" "-2" "4"
-diff --git a/gdb/testsuite/gdb.base/valgrind-attach.c b/gdb/testsuite/gdb.base/valgrind-attach.c
-new file mode 100644
-index 0000000..84b57db
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/valgrind-attach.c
-@@ -0,0 +1,28 @@
-+/* This testcase is part of GDB, the GNU debugger.
-+
-+ Copyright 2009 Free Software Foundation, Inc.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+#include <stdlib.h>
-+
-+int
-+main (void)
-+{
-+ int *a = malloc (1);
-+
-+ a[10] = 0; /* crash-here */
-+
-+ return 0;
-+}
-diff --git a/gdb/testsuite/gdb.base/valgrind-attach.exp b/gdb/testsuite/gdb.base/valgrind-attach.exp
-new file mode 100644
-index 0000000..1f9b26e
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/valgrind-attach.exp
-@@ -0,0 +1,94 @@
-+# Copyright 2009 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+set testfile valgrind-attach
-+set shfile ${testfile}.sh
-+set srcfile ${testfile}.c
-+set binfile ${objdir}/${subdir}/${testfile}
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
-+ untested "Couldn't compile test program"
-+ return -1
-+}
-+
-+gdb_exit
-+gdb_stop_suppressing_tests;
-+
-+set VALGRIND "valgrind"
-+
-+# Syntax for ${shfile} is: <binfile> <valgrind> <db-command-arguments>
-+set VALGRIND_SPAWN "sh ${srcdir}/${subdir}/${shfile} $binfile $VALGRIND $GDB $INTERNAL_GDBFLAGS $GDBFLAGS [host_info gdb_opts]"
-+
-+set test "spawn valgrind"
-+verbose "Spawning $VALGRIND_SPAWN"
-+
-+if [info exists gdb_spawn_id] {
-+ fail $test
-+ return -1
-+}
-+
-+if ![is_remote host] {
-+ if { [which $VALGRIND] == 0 } then {
-+ untested "Couldn't find $VALGRIND"
-+ return -1
-+ }
-+}
-+set res [remote_spawn host "$VALGRIND_SPAWN"]
-+if { $res < 0 || $res == "" } {
-+ perror "Spawning $VALGRIND_SPAWN failed."
-+ return -1
-+}
-+set gdb_spawn_id -1;
-+
-+gdb_expect {
-+ -re "---- Attach to debugger \\? --- \\\[Return/N/n/Y/y/C/c\\\] ---- $" {
-+ pass $test
-+ }
-+ eof {
-+ perror "(eof) $VALGRIND never initialized"
-+ remote_close host
-+ return -1
-+ }
-+ timeout {
-+ perror "(timeout) $VALGRIND never initialized"
-+ remote_close host
-+ return -1
-+ }
-+}
-+send_gdb "y\n"
-+
-+set test "spawn gdb"
-+set test2 "crash line caught"
-+gdb_expect {
-+ -re "starting debugger with cmd:.* in main .* crash-here .*\[\r\n\]$gdb_prompt $" {
-+ pass $test
-+ pass $test2
-+ }
-+ -re "starting debugger with cmd:.*\[\r\n\]$gdb_prompt $" {
-+ pass $test
-+ fail $test2
-+ }
-+ eof {
-+ perror "(eof) $GDB never initialized"
-+ remote_close host
-+ return -1
-+ }
-+ timeout {
-+ perror "(timeout) $GDB never initialized"
-+ remote_close host
-+ return -1
-+ }
-+}
-+
-+remote_close host
-diff --git a/gdb/testsuite/gdb.base/valgrind-attach.sh b/gdb/testsuite/gdb.base/valgrind-attach.sh
-new file mode 100755
-index 0000000..f02c6f7
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/valgrind-attach.sh
-@@ -0,0 +1,20 @@
-+#! /bin/sh
-+
-+# Copyright 2009 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+BINFILE="$1"; shift
-+VALGRIND="$1"; shift
-+"$VALGRIND" --db-attach=yes --db-command="$* %f %p" "$BINFILE"
-diff --git a/gdb/testsuite/gdb.base/vla-overflow.c b/gdb/testsuite/gdb.base/vla-overflow.c
-new file mode 100644
-index 0000000..c5d5ee0
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/vla-overflow.c
-@@ -0,0 +1,30 @@
-+/* This testcase is part of GDB, the GNU debugger.
-+
-+ Copyright 2008 Free Software Foundation, Inc.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+#include <stdlib.h>
-+
-+int
-+main (int argc, char **argv)
-+{
-+ int array[argc];
-+
-+ array[0] = array[0];
-+
-+ abort ();
-+
-+ return 0;
-+}
-diff --git a/gdb/testsuite/gdb.base/vla-overflow.exp b/gdb/testsuite/gdb.base/vla-overflow.exp
-new file mode 100644
-index 0000000..7203a48
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/vla-overflow.exp
-@@ -0,0 +1,108 @@
-+# Copyright 2008 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+# We could crash in:
-+# #0 block_linkage_function (bl=0x0) at ../../gdb/block.c:69
-+# #1 in dwarf_block_get_frame_base (...) at ../../gdb/dwarf2block.c:97
-+# 97 framefunc = block_linkage_function (get_frame_block (frame, NULL));
-+# #2 in execute_stack_op (...) at ../../gdb/dwarf2expr.c:496
-+# #3 in dwarf_block_exec_core () at ../../gdb/dwarf2block.c:156
-+# #4 dwarf_block_exec (...) at ../../gdb/dwarf2block.c:206
-+# #5 in range_type_count_bound_internal (...) at ../../gdb/gdbtypes.c:1430
-+# #6 in create_array_type (...) at ../../gdb/gdbtypes.c:840
-+# ...
-+# #21 in psymtab_to_symtab (...) at ../../gdb/symfile.c:292
-+# ...
-+# #29 in backtrace_command_1 () at ../../gdb/stack.c:1273
-+
-+set testfile vla-overflow
-+set shfile ${objdir}/${subdir}/${testfile}-gdb.sh
-+set srcfile ${testfile}.c
-+set binfile ${objdir}/${subdir}/${testfile}
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
-+ untested "Couldn't compile test program"
-+ return -1
-+}
-+
-+set f [open "|getconf PAGESIZE" "r"]
-+gets $f pagesize
-+close $f
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+set pid_of_gdb [exp_pid -i [board_info host fileid]]
-+
-+if { [runto_main] < 0 } {
-+ untested vla-overflow
-+ return -1
-+}
-+
-+# Get the GDB memory size when we stay at main.
-+
-+proc memory_v_pages_get {} {
-+ global pid_of_gdb pagesize
-+ set fd [open "/proc/$pid_of_gdb/statm"]
-+ gets $fd line
-+ close $fd
-+ # number of pages of virtual memory
-+ scan $line "%d" drs
-+ return $drs
-+}
-+
-+set pages_found [memory_v_pages_get]
-+
-+set mb_reserve 10
-+verbose -log "pages_found = $pages_found, mb_reserve = $mb_reserve"
-+set kb_found [expr $pages_found * $pagesize / 1024]
-+set kb_permit [expr $kb_found + 1 * 1024 + $mb_reserve * 1024]
-+verbose -log "kb_found = $kb_found, kb_permit = $kb_permit"
-+
-+# Create the ulimit wrapper.
-+set f [open $shfile "w"]
-+puts $f "#! /bin/sh"
-+puts $f "ulimit -v $kb_permit"
-+puts $f "exec $GDB \"\$@\""
-+close $f
-+remote_exec host "chmod +x $shfile"
-+
-+gdb_exit
-+set GDBold $GDB
-+set GDB "$shfile"
-+gdb_start
-+set GDB $GDBold
-+
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+set pid_of_gdb [exp_pid -i [board_info host fileid]]
-+
-+# Check the size again after the second run.
-+# We must not stop in main as it would cache `array' and never crash later.
-+
-+gdb_run_cmd
-+
-+verbose -log "kb_found before abort() = [expr [memory_v_pages_get] * $pagesize / 1024]"
-+
-+gdb_test "" "Program received signal SIGABRT, Aborted..*" "Enter abort()"
-+
-+verbose -log "kb_found in abort() = [expr [memory_v_pages_get] * $pagesize / 1024]"
-+
-+# `abort' can get expressed as `*__GI_abort'.
-+gdb_test "bt" "in \[^ \]*abort \\(.* in main \\(.*" "Backtrace after abort()"
-+
-+verbose -log "kb_found in bt after abort() = [expr [memory_v_pages_get] * $pagesize / 1024]"
-diff --git a/gdb/testsuite/gdb.base/vla.c b/gdb/testsuite/gdb.base/vla.c
-new file mode 100644
-index 0000000..e1f3ed1
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/vla.c
-@@ -0,0 +1,55 @@
-+/* This testcase is part of GDB, the GNU debugger.
-+
-+ Copyright 2008 Free Software Foundation, Inc.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+#include <string.h>
-+
-+void
-+marker (void)
-+{
-+}
-+
-+void
-+bar (char *a, char *b, char *c, int size)
-+{
-+ memset (a, '1', size);
-+ memset (b, '2', size);
-+ memset (c, '3', 48);
-+}
-+
-+void
-+foo (int size)
-+{
-+ char temp1[size];
-+ char temp3[48];
-+
-+ temp1[size - 1] = '\0';
-+ {
-+ char temp2[size];
-+
-+ bar (temp1, temp2, temp3, size);
-+
-+ marker (); /* break-here */
-+ }
-+}
-+
-+int
-+main (void)
-+{
-+ foo (26);
-+ foo (78);
-+ return 0;
-+}
-diff --git a/gdb/testsuite/gdb.base/vla.exp b/gdb/testsuite/gdb.base/vla.exp
-new file mode 100644
-index 0000000..5da7378
---- /dev/null
-+++ b/gdb/testsuite/gdb.base/vla.exp
-@@ -0,0 +1,62 @@
-+# Copyright 2008 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+set testfile vla
-+set srcfile ${testfile}.c
-+set binfile ${objdir}/${subdir}/${testfile}
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
-+ untested "Couldn't compile test program"
-+ return -1
-+}
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+if ![runto_main] {
-+ untested vla
-+ return -1
-+}
-+
-+gdb_breakpoint [gdb_get_line_number "break-here"]
-+
-+gdb_continue_to_breakpoint "break-here"
-+
-+gdb_test "whatis temp1" "type = char \\\[variable\\\]" "first: whatis temp1"
-+gdb_test "whatis temp2" "type = char \\\[variable\\\]" "first: whatis temp2"
-+gdb_test "whatis temp3" "type = char \\\[48\\\]" "first: whatis temp3"
-+
-+gdb_test "ptype temp1" "type = char \\\[26\\\]" "first: ptype temp1"
-+gdb_test "ptype temp2" "type = char \\\[26\\\]" "first: ptype temp2"
-+gdb_test "ptype temp3" "type = char \\\[48\\\]" "first: ptype temp3"
-+
-+gdb_test "p temp1" " = '1' <repeats 26 times>" "first: print temp1"
-+gdb_test "p temp2" " = '2' <repeats 26 times>" "first: print temp2"
-+gdb_test "p temp3" " = '3' <repeats 48 times>" "first: print temp3"
-+
-+gdb_continue_to_breakpoint "break-here"
-+
-+gdb_test "whatis temp1" "type = char \\\[variable\\\]" "second: whatis temp1"
-+gdb_test "whatis temp2" "type = char \\\[variable\\\]" "second: whatis temp2"
-+gdb_test "whatis temp3" "type = char \\\[48\\\]" "second: whatis temp3"
-+
-+gdb_test "ptype temp1" "type = char \\\[78\\\]" "second: ptype temp1"
-+gdb_test "ptype temp2" "type = char \\\[78\\\]" "second: ptype temp2"
-+gdb_test "ptype temp3" "type = char \\\[48\\\]" "second: ptype temp3"
-+
-+gdb_test "p temp1" " = '1' <repeats 78 times>" "second: print temp1"
-+gdb_test "p temp2" " = '2' <repeats 78 times>" "second: print temp2"
-+gdb_test "p temp3" " = '3' <repeats 48 times>" "second: print temp3"
-diff --git a/gdb/testsuite/gdb.cp/Makefile.in b/gdb/testsuite/gdb.cp/Makefile.in
-index 1787ad5..391bfc2 100644
---- a/gdb/testsuite/gdb.cp/Makefile.in
-+++ b/gdb/testsuite/gdb.cp/Makefile.in
-@@ -4,7 +4,7 @@ srcdir = @srcdir@
- EXECUTABLES = ambiguous annota2 anon-union cplusfuncs cttiadd \
- derivation inherit local member-ptr method misc \
- overload ovldbreak ref-typ ref-typ2 templates userdef virtfunc namespace \
-- ref-types ref-params method2 pr9594
-+ ref-types ref-params method2 pr9594 gdb2495
-
- all info install-info dvi install uninstall installcheck check:
- @echo "Nothing to be done for $@..."
-diff --git a/gdb/testsuite/gdb.cp/abstract-origin.cc b/gdb/testsuite/gdb.cp/abstract-origin.cc
-new file mode 100644
-index 0000000..e2de3fb
---- /dev/null
-+++ b/gdb/testsuite/gdb.cp/abstract-origin.cc
-@@ -0,0 +1,42 @@
-+/* This testcase is part of GDB, the GNU debugger.
-+
-+ Copyright 2008 Free Software Foundation, Inc.
-+
-+ 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/>.
-+ */
-+
-+extern void f (int *);
-+
-+class A
-+{
-+public:
-+ A(int i);
-+};
-+
-+A::A(int i)
-+{
-+ static int *problem = new int(i);
-+ f (problem); /* break-here */
-+}
-+
-+void f (int *)
-+{
-+}
-+
-+int
-+main (void)
-+{
-+ A a(42);
-+ return 0;
-+}
-diff --git a/gdb/testsuite/gdb.cp/abstract-origin.exp b/gdb/testsuite/gdb.cp/abstract-origin.exp
-new file mode 100644
-index 0000000..92cc23c
---- /dev/null
-+++ b/gdb/testsuite/gdb.cp/abstract-origin.exp
-@@ -0,0 +1,40 @@
-+# Copyright 2008 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+set testfile abstract-origin
-+set srcfile ${testfile}.cc
-+set binfile ${objdir}/${subdir}/${testfile}
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
-+ untested "Couldn't compile test program"
-+ return -1
-+}
-+
-+# Get things started.
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+if ![runto_main] {
-+ untested abstract-origin
-+ return -1
-+}
-+
-+gdb_breakpoint [gdb_get_line_number "break-here"]
-+gdb_continue_to_breakpoint "break-here"
-+
-+# The Bug was: No symbol "problem" in current context.
-+gdb_test "p problem" " = \\(int \\*\\) 0x.*"
-diff --git a/gdb/testsuite/gdb.cp/cplusfuncs.cc b/gdb/testsuite/gdb.cp/cplusfuncs.cc
-index 7f033d6..1a50a32 100644
---- a/gdb/testsuite/gdb.cp/cplusfuncs.cc
-+++ b/gdb/testsuite/gdb.cp/cplusfuncs.cc
-@@ -191,6 +191,12 @@ char * dm_type_char_star (char * p) { return p; }
- int dm_type_foo_ref (foo & foo) { return foo.ifoo; }
- int * dm_type_int_star (int * p) { return p; }
- long * dm_type_long_star (long * p) { return p; }
-+int dm_type_short (short i) { return i; }
-+int dm_type_long (long i) { return i; }
- int dm_type_unsigned_int (unsigned int i) { return i; }
-+int dm_type_unsigned_short (unsigned short i) { return i; }
-+int dm_type_unsigned_long (unsigned long i) { return i; }
- int dm_type_void (void) { return 0; }
- void * dm_type_void_star (void * p) { return p; }
-+typedef int myint;
-+int dm_type_typedef (myint i) { return i; }
-diff --git a/gdb/testsuite/gdb.cp/cplusfuncs.exp b/gdb/testsuite/gdb.cp/cplusfuncs.exp
-index 5e08768..8c8e038 100644
---- a/gdb/testsuite/gdb.cp/cplusfuncs.exp
-+++ b/gdb/testsuite/gdb.cp/cplusfuncs.exp
-@@ -66,9 +66,25 @@ set dm_type_unsigned_int "unsigned"
- set dm_type_void ""
- set dm_type_void_star "void*"
-
-+# Some other vagaries of GDB's type printing machinery. The integer types
-+# may have unsigned before or after their length, and may have "int"
-+# appended. The char* conversion operator may have name "char*" even if
-+# the type is "char *", because the name comes from the debug information
-+# and the type from GDB. Function types may not see through typedefs.
-+
-+set dm_type_short "short"
-+set dm_type_long "long"
-+set dm_type_unsigned_short "unsigned short"
-+set dm_type_unsigned_long "unsigned long"
-+set dm_operator_char_star "char*"
-+set dm_operator_char_star_quoted "char\\*"
-+set dm_type_typedef 0
-+
- proc probe_demangler { } {
- global gdb_prompt
- global dm_operator_comma
-+ global dm_operator_char_star
-+ global dm_operator_char_star_quoted
- global dm_type_char_star
- global dm_type_char_star_quoted
- global dm_type_foo_ref
-@@ -77,6 +93,11 @@ proc probe_demangler { } {
- global dm_type_unsigned_int
- global dm_type_void
- global dm_type_void_star
-+ global dm_type_short
-+ global dm_type_unsigned_short
-+ global dm_type_long
-+ global dm_type_unsigned_long
-+ global dm_type_typedef
-
- send_gdb "print &'foo::operator,(foo&)'\n"
- gdb_expect {
-@@ -97,6 +118,26 @@ proc probe_demangler { } {
- }
- }
-
-+ send_gdb "print &'foo::operator char*()'\n"
-+ gdb_expect {
-+ -re ".*foo::operator char \\*\\(void\\).*\r\n$gdb_prompt $" {
-+ # v2 demangler or GDB type printer
-+ set dm_operator_char_star "char *"
-+ set dm_operator_char_star_quoted "char \\*"
-+ pass "detect dm_operator_char_star"
-+ }
-+ -re ".*foo::operator char\\*\\(\\).*\r\n$gdb_prompt $" {
-+ # v3 demangler
-+ pass "detect dm_operator_char_star"
-+ }
-+ -re ".*$gdb_prompt $" {
-+ fail "detect dm_operator_char_star"
-+ }
-+ timeout {
-+ fail "detect dm_operator_char_star"
-+ }
-+ }
-+
- send_gdb "print &'dm_type_char_star'\n"
- gdb_expect {
- -re ".*dm_type_char_star\\(char \\*\\).*\r\n$gdb_prompt $" {
-@@ -166,6 +207,11 @@ proc probe_demangler { } {
- # v3 demangler
- pass "detect dm_type_long_star"
- }
-+ -re ".*dm_type_long_star\\(long int \\*\\).*\r\n$gdb_prompt $" {
-+ # GCC v3 and GDB's type printer
-+ set dm_type_long_star "long int *"
-+ pass "detect dm_type_long_star"
-+ }
- -re ".*$gdb_prompt $" {
- fail "detect dm_type_long_star"
- }
-@@ -230,6 +276,101 @@ proc probe_demangler { } {
- fail "detect dm_type_void_star (timeout)"
- }
- }
-+
-+ send_gdb "print &'dm_type_short'\n"
-+ gdb_expect {
-+ -re ".*dm_type_short\\(short\\).*\r\n$gdb_prompt $" {
-+ # v2 and v3 demanglers
-+ pass "detect dm_type_short"
-+ }
-+ -re ".*dm_type_short\\(short int\\).*\r\n$gdb_prompt $" {
-+ # GDB type printer
-+ set dm_type_short "short int"
-+ pass "detect dm_type_short"
-+ }
-+ -re ".*$gdb_prompt $" {
-+ fail "detect dm_type_short"
-+ }
-+ timeout {
-+ fail "detect dm_type_short (timeout)"
-+ }
-+ }
-+
-+ send_gdb "print &'dm_type_unsigned_short'\n"
-+ gdb_expect {
-+ -re ".*dm_type_unsigned_short\\(unsigned short\\).*\r\n$gdb_prompt $" {
-+ # v2 and v3 demanglers
-+ pass "detect dm_type_unsigned_short"
-+ }
-+ -re ".*dm_type_unsigned_short\\(short unsigned int\\).*\r\n$gdb_prompt $" {
-+ # GDB type printer
-+ set dm_type_unsigned_short "short unsigned int"
-+ pass "detect dm_type_unsigned_short"
-+ }
-+ -re ".*$gdb_prompt $" {
-+ fail "detect dm_type_unsigned_short"
-+ }
-+ timeout {
-+ fail "detect dm_type_unsigned_short (timeout)"
-+ }
-+ }
-+
-+ send_gdb "print &'dm_type_long'\n"
-+ gdb_expect {
-+ -re ".*dm_type_long\\(long\\).*\r\n$gdb_prompt $" {
-+ # v2 and v3 demanglers
-+ pass "detect dm_type_long"
-+ }
-+ -re ".*dm_type_long\\(long int\\).*\r\n$gdb_prompt $" {
-+ # GDB type printer
-+ set dm_type_long "long int"
-+ pass "detect dm_type_long"
-+ }
-+ -re ".*$gdb_prompt $" {
-+ fail "detect dm_type_long"
-+ }
-+ timeout {
-+ fail "detect dm_type_long (timeout)"
-+ }
-+ }
-+
-+ send_gdb "print &'dm_type_unsigned_long'\n"
-+ gdb_expect {
-+ -re ".*dm_type_unsigned_long\\(unsigned long\\).*\r\n$gdb_prompt $" {
-+ # v2 and v3 demanglers
-+ pass "detect dm_type_unsigned_long"
-+ }
-+ -re ".*dm_type_unsigned_long\\(long unsigned int\\).*\r\n$gdb_prompt $" {
-+ # GDB type printer
-+ set dm_type_unsigned_long "long unsigned int"
-+ pass "detect dm_type_unsigned_long"
-+ }
-+ -re ".*$gdb_prompt $" {
-+ fail "detect dm_type_unsigned_long"
-+ }
-+ timeout {
-+ fail "detect dm_type_unsigned_long (timeout)"
-+ }
-+ }
-+
-+ send_gdb "print &'dm_type_typedef'\n"
-+ gdb_expect {
-+ -re ".*dm_type_typedef\\(int\\).*\r\n$gdb_prompt $" {
-+ # v2 and v3 demanglers
-+ pass "detect dm_type_typedef"
-+ }
-+ -re ".*dm_type_typedef\\(myint\\).*\r\n$gdb_prompt $" {
-+ # GDB type printer
-+ set dm_type_typedef 1
-+ pass "detect dm_type_typedef"
-+ }
-+ -re ".*$gdb_prompt $" {
-+ fail "detect dm_type_typedef"
-+ }
-+ timeout {
-+ fail "detect dm_type_typedef (timeout)"
-+ }
-+ }
- }
-
- #
-@@ -345,8 +486,9 @@ proc print_addr { name } {
-
- proc test_lookup_operator_functions {} {
- global dm_operator_comma
-+ global dm_operator_char_star
- global dm_type_char_star
-- global dm_type_char_star_quoted
-+ global dm_operator_char_star_quoted
- global dm_type_foo_ref
- global dm_type_void
- global dm_type_void_star
-@@ -404,8 +546,8 @@ proc test_lookup_operator_functions {} {
-
- info_func "operator int(" "int foo::operator int($dm_type_void);"
- info_func "operator()(" "void foo::operator()($dm_type_foo_ref);"
-- info_func "operator $dm_type_char_star_quoted\(" \
-- "char *foo::operator $dm_type_char_star\($dm_type_void);"
-+ info_func "operator $dm_operator_char_star_quoted\(" \
-+ "char *foo::operator $dm_operator_char_star\($dm_type_void);"
-
- }
-
-@@ -420,6 +562,7 @@ proc test_paddr_operator_functions {} {
- global dm_type_unsigned_int
- global dm_type_void
- global dm_type_void_star
-+ global dm_operator_char_star
-
- print_addr "foo::operator*($dm_type_foo_ref)"
- print_addr "foo::operator%($dm_type_foo_ref)"
-@@ -470,7 +613,7 @@ proc test_paddr_operator_functions {} {
- }
-
- print_addr "foo::operator int($dm_type_void)"
-- print_addr "foo::operator $dm_type_char_star\($dm_type_void)"
-+ print_addr "foo::operator $dm_operator_char_star\($dm_type_void)"
- }
-
- #
-@@ -480,17 +623,21 @@ proc test_paddr_operator_functions {} {
- proc test_paddr_overloaded_functions {} {
- global dm_type_unsigned_int
- global dm_type_void
-+ global dm_type_short
-+ global dm_type_unsigned_short
-+ global dm_type_long
-+ global dm_type_unsigned_long
-
- print_addr "overload1arg($dm_type_void)"
- print_addr "overload1arg(char)"
- print_addr "overload1arg(signed char)"
- print_addr "overload1arg(unsigned char)"
-- print_addr "overload1arg(short)"
-- print_addr "overload1arg(unsigned short)"
-+ print_addr "overload1arg($dm_type_short)"
-+ print_addr "overload1arg($dm_type_unsigned_short)"
- print_addr "overload1arg(int)"
- print_addr "overload1arg($dm_type_unsigned_int)"
-- print_addr "overload1arg(long)"
-- print_addr "overload1arg(unsigned long)"
-+ print_addr "overload1arg($dm_type_long)"
-+ print_addr "overload1arg($dm_type_unsigned_long)"
- print_addr "overload1arg(float)"
- print_addr "overload1arg(double)"
-
-@@ -513,17 +660,31 @@ proc test_paddr_hairy_functions {} {
- global dm_type_char_star
- global dm_type_int_star
- global dm_type_long_star
-+ global dm_type_typedef
-
- print_addr_2 "hairyfunc1" "hairyfunc1(int)"
-- print_addr_2 "hairyfunc2" "hairyfunc2(int (*)($dm_type_char_star))"
-- print_addr_2 "hairyfunc3" "hairyfunc3(int (*)(short (*)($dm_type_long_star)))"
-- print_addr_2 "hairyfunc4" "hairyfunc4(int (*)(short (*)($dm_type_char_star)))"
--
-- # gdb-gnats bug gdb/19:
-- # "gdb v3 demangler fails on hairyfunc5 hairyfunc6 hairyfunc7"
-- print_addr_2_kfail "hairyfunc5" "hairyfunc5(int (*(*)($dm_type_char_star))(long))" "hairyfunc5(int (*)(long) (*)(char*))" "gdb/19"
-- print_addr_2_kfail "hairyfunc6" "hairyfunc6(int (*(*)($dm_type_int_star))(long))" "hairyfunc6(int (*)(long) (*)(int*))" "gdb/19"
-- print_addr_2_kfail "hairyfunc7" "hairyfunc7(int (*(*)(int (*)($dm_type_char_star)))(long))" "hairyfunc7(int (*)(long) (*)(int (*)(char*)))" "gdb/19"
-+
-+ if {$dm_type_typedef == 0} {
-+ print_addr_2 "hairyfunc2" "hairyfunc2(int (*)($dm_type_char_star))"
-+ print_addr_2 "hairyfunc3" "hairyfunc3(int (*)(short (*)($dm_type_long_star)))"
-+ print_addr_2 "hairyfunc4" "hairyfunc4(int (*)(short (*)($dm_type_char_star)))"
-+
-+ # gdb-gnats bug gdb/19:
-+ # "gdb v3 demangler fails on hairyfunc5 hairyfunc6 hairyfunc7"
-+ print_addr_2_kfail "hairyfunc5" "hairyfunc5(int (*(*)($dm_type_char_star))(long))" "hairyfunc5(int (*)(long) (*)(char*))" "gdb/19"
-+ print_addr_2_kfail "hairyfunc6" "hairyfunc6(int (*(*)($dm_type_int_star))(long))" "hairyfunc6(int (*)(long) (*)(int*))" "gdb/19"
-+ print_addr_2_kfail "hairyfunc7" "hairyfunc7(int (*(*)(int (*)($dm_type_char_star)))(long))" "hairyfunc7(int (*)(long) (*)(int (*)(char*)))" "gdb/19"
-+ } else {
-+ print_addr_2 "hairyfunc2" "hairyfunc2(PFPc_i)"
-+ print_addr_2 "hairyfunc3" "hairyfunc3(PFPFPl_s_i)"
-+ print_addr_2 "hairyfunc4" "hairyfunc4(PFPFPc_s_i)"
-+
-+ # gdb-gnats bug gdb/19:
-+ # "gdb v3 demangler fails on hairyfunc5 hairyfunc6 hairyfunc7"
-+ print_addr_2 "hairyfunc5" "hairyfunc5(PFPc_PFl_i)"
-+ print_addr_2 "hairyfunc6" "hairyfunc6(PFPi_PFl_i)"
-+ print_addr_2 "hairyfunc7" "hairyfunc7(PFPFPc_i_PFl_i)"
-+ }
- }
-
- proc do_tests {} {
-diff --git a/gdb/testsuite/gdb.cp/expand-sals.cc b/gdb/testsuite/gdb.cp/expand-sals.cc
-new file mode 100644
-index 0000000..6169a05
---- /dev/null
-+++ b/gdb/testsuite/gdb.cp/expand-sals.cc
-@@ -0,0 +1,53 @@
-+/* This testcase is part of GDB, the GNU debugger.
-+
-+ Copyright (C) 2009 Free Software Foundation, Inc.
-+
-+ This file is part of GDB.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
-+
-+int
-+func ()
-+{
-+ return 42; /* func-line */
-+}
-+
-+volatile int global_x;
-+
-+class A
-+{
-+public:
-+ A ()
-+ {
-+ global_x = func (); /* caller-line */
-+ }
-+};
-+
-+/* class B is here just to make the `func' calling line above having multiple
-+ instances - multiple locations. Template cannot be used as its instances
-+ would have different function names which get discarded by GDB
-+ expand_line_sal_maybe. */
-+
-+class B : public A
-+{
-+};
-+
-+int
-+main (void)
-+{
-+ A a;
-+ B b;
-+
-+ return 0; /* exit-line */
-+}
-diff --git a/gdb/testsuite/gdb.cp/expand-sals.exp b/gdb/testsuite/gdb.cp/expand-sals.exp
-new file mode 100644
-index 0000000..a2631fb
---- /dev/null
-+++ b/gdb/testsuite/gdb.cp/expand-sals.exp
-@@ -0,0 +1,100 @@
-+# Copyright 2009 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+if { [skip_cplus_tests] } { continue }
-+
-+set srcfile expand-sals.cc
-+if { [prepare_for_testing expand-sals.exp expand-sals $srcfile {debug c++}] } {
-+ return -1
-+}
-+if ![runto_main] {
-+ return -1
-+}
-+
-+gdb_breakpoint [gdb_get_line_number "exit-line"]
-+
-+gdb_breakpoint [gdb_get_line_number "func-line"]
-+gdb_continue_to_breakpoint "func" ".*func-line.*"
-+
-+gdb_test "up" "caller-line.*"
-+
-+# PC should not be at the boundary of source lines to make the original bug
-+# exploitable.
-+
-+set test "p/x \$pc"
-+set pc {}
-+gdb_test_multiple $test $test {
-+ -re "\\$\[0-9\]+ = (0x\[0-9a-f\]+)\r\n$gdb_prompt $" {
-+ set pc $expect_out(1,string)
-+ pass $test
-+ }
-+}
-+
-+set test "info line"
-+set end {}
-+gdb_test_multiple $test $test {
-+ -re "Line \[0-9\]+ of .* starts at address 0x\[0-9a-f\]+.* and ends at (0x\[0-9a-f\]+).*\\.\r\n$gdb_prompt $" {
-+ set end $expect_out(1,string)
-+ pass $test
-+ }
-+}
-+
-+set test "caller line has trailing code"
-+if {$pc != $end} {
-+ pass $test
-+} else {
-+ fail $test
-+}
-+
-+# Original problem was an internal error here. Still sanity multiple locations
-+# were found at this code place as otherwise this test would not test anything.
-+set test "break"
-+gdb_test_multiple $test $test {
-+ -re "Breakpoint \[0-9\]+ at .*, line \[0-9\]+\\. \\(\[2-9\] locations\\)\r\n$gdb_prompt $" {
-+ pass $test
-+ }
-+ -re "Breakpoint \[0-9\]+ at .*, line \[0-9\]+\\.\r\n$gdb_prompt $" {
-+ # It just could not be decided if GDB is OK by this testcase.
-+ setup_xfail *-*-*
-+ fail $test
-+ return 0
-+ }
-+}
-+
-+gdb_continue_to_breakpoint "caller" ".*caller-line.*"
-+
-+# Test GDB caught this return call and not the next one through B::B()
-+gdb_test "bt" \
-+ "#0 \[^\r\n\]* A \[^\r\n\]*\r\n#1 \[^\r\n\]* main \[^\r\n\]*" \
-+ "bt from A"
-+
-+gdb_continue_to_breakpoint "next caller instance" ".*caller-line.*"
-+
-+# Test that GDB caught now already A through B::B() in the other instance.
-+# As discussed in GDB expand_line_sal_maybe it would more match the original
-+# instance behavior to catch here the `func' breakpoint and catch the
-+# multiple-locations breakpoint only during the call return. This is not the
-+# case, expecting here to catch the breakpoint before the call happens.
-+
-+gdb_test "bt" \
-+ "#0 \[^\r\n\]* A \[^\r\n\]*\r\n#1 \[^\r\n\]* B \[^\r\n\]*\r\n#2 \[^\r\n\]* main \[^\r\n\]*" \
-+ "bt from B before the call"
-+
-+gdb_continue_to_breakpoint "next caller func" ".*func-line.*"
-+
-+# Verify GDB really could not catch the originally intended point of the return
-+# from func.
-+
-+gdb_continue_to_breakpoint "uncaught return" ".*exit-line.*"
-diff --git a/gdb/testsuite/gdb.cp/gdb1355.exp b/gdb/testsuite/gdb.cp/gdb1355.exp
-index 77687a6..66d16cf 100644
---- a/gdb/testsuite/gdb.cp/gdb1355.exp
-+++ b/gdb/testsuite/gdb.cp/gdb1355.exp
-@@ -68,11 +68,11 @@ set s_tail ".*"
-
- set f_i "${ws}int m_int;"
- set f_c "${ws}char m_char;"
--set f_li "${ws}long int m_long_int;"
-+set f_li "${ws}long m_long_int;"
- set f_ui "${ws}unsigned int m_unsigned_int;"
--set f_lui "${ws}long unsigned int m_long_unsigned_int;"
--set f_si "${ws}short int m_short_int;"
--set f_sui "${ws}short unsigned int m_short_unsigned_int;"
-+set f_lui "${ws}unsigned long m_long_unsigned_int;"
-+set f_si "${ws}short m_short_int;"
-+set f_sui "${ws}unsigned short m_short_unsigned_int;"
- set f_uc "${ws}unsigned char m_unsigned_char;"
- set f_f "${ws}float m_float;"
- set f_d "${ws}double m_double;"
-diff --git a/gdb/testsuite/gdb.cp/gdb2495.cc b/gdb/testsuite/gdb.cp/gdb2495.cc
-new file mode 100644
-index 0000000..4df265f
---- /dev/null
-+++ b/gdb/testsuite/gdb.cp/gdb2495.cc
-@@ -0,0 +1,90 @@
-+/* This testcase is part of GDB, the GNU debugger.
-+
-+ Copyright 2008 Free Software Foundation, Inc.
-+
-+ This program is free software; you can redistribute it and/or modify
-+ it under the terms of the GNU General Public License as published by
-+ the Free Software Foundation; either version 3 of the License, or
-+ (at your option) any later version.
-+
-+ This program is distributed in the hope that it will be useful,
-+ but WITHOUT ANY WARRANTY; without even the implied warranty of
-+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-+ GNU General Public License for more details.
-+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>.
-+ */
-+
-+#include <iostream>
-+#include <signal.h>
-+
-+using namespace std;
-+
-+class SimpleException
-+{
-+
-+public:
-+
-+ void raise_signal (int dummy)
-+ {
-+ if (dummy > 0)
-+ raise(SIGABRT);
-+ }
-+
-+ int no_throw_function ()
-+ {
-+ return 1;
-+ }
-+
-+ void throw_function ()
-+ {
-+ throw 1;
-+ }
-+
-+ int throw_function_with_handler ()
-+ {
-+ try
-+ {
-+ throw 1;
-+ }
-+ catch (...)
-+ {
-+ cout << "Handled" << endl;
-+ }
-+
-+ return 2;
-+ }
-+
-+ void call_throw_function_no_handler ()
-+ {
-+ throw_function ();
-+ }
-+
-+ void call_throw_function_handler ()
-+ {
-+ throw_function_with_handler ();
-+ }
-+};
-+SimpleException exceptions;
-+
-+int
-+main()
-+{
-+ // Have to call all these functions
-+ // so not optimized away.
-+ exceptions.raise_signal (-1);
-+ exceptions.no_throw_function ();
-+ exceptions.throw_function_with_handler ();
-+ exceptions.call_throw_function_handler ();
-+ try
-+ {
-+ exceptions.throw_function ();
-+ exceptions.call_throw_function_no_handler ();
-+ }
-+ catch (...)
-+ {
-+ }
-+ return 0;
-+}
-+
-diff --git a/gdb/testsuite/gdb.cp/gdb2495.exp b/gdb/testsuite/gdb.cp/gdb2495.exp
-new file mode 100644
-index 0000000..62c09c2
---- /dev/null
-+++ b/gdb/testsuite/gdb.cp/gdb2495.exp
-@@ -0,0 +1,160 @@
-+# Copyright 2008 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+
-+# In gdb inferior function calls, if a C++ exception is raised in the
-+# dummy-frame, and the exception handler is (normally, and expected to
-+# be) out-of-frame, the default C++ handler will (wrongly) be called
-+# in an inferior function call.
-+# This is incorrect as an exception can normally and legally be handled
-+# out-of-frame. The confines of the dummy frame prevent the unwinder
-+# from finding the correct handler (or any handler, unless it is
-+# in-frame). The default handler calls std::terminate. This will kill
-+# the inferior. Assert that terminate should never be called in an
-+# inferior function call. These tests test the functionality around
-+# unwinding that sequence and also tests the flag behaviour gating this
-+# functionality.
-+
-+# This test is largley based off gdb.base/callfuncs.exp.
-+
-+if $tracelevel then {
-+ strace $tracelevel
-+}
-+
-+if { [skip_cplus_tests] } { continue }
-+
-+set prms_id 2495
-+set bug_id 0
-+
-+set testfile "gdb2495"
-+set srcfile ${testfile}.cc
-+set binfile $objdir/$subdir/$testfile
-+
-+# Create and source the file that provides information about the compiler
-+# used to compile the test case.
-+if [get_compiler_info ${binfile} "c++"] {
-+ return -1
-+}
-+
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
-+ untested gdb2495.exp
-+ return -1
-+}
-+
-+# Some targets can't do function calls, so don't even bother with this
-+# test.
-+if [target_info exists gdb,cannot_call_functions] {
-+ setup_xfail "*-*-*" 2416
-+ fail "This target can not call functions"
-+ continue
-+}
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+if ![runto_main] then {
-+ perror "couldn't run to main"
-+ continue
-+}
-+
-+# See http://sources.redhat.com/gdb/bugs/2495
-+
-+# Test normal baseline behaviour. Call a function that
-+# does not raise an exception ...
-+gdb_test "p exceptions.no_throw_function()" " = 1"
-+# And one that does but handles it in-frame ...
-+gdb_test "p exceptions.throw_function_with_handler()" " = 2"
-+# Both should return normally.
-+
-+# Test basic unwind. Call a function that raises an exception but
-+# does not handle it. It should be rewound ...
-+gdb_test "p exceptions.throw_function()" \
-+ "The program being debugged entered a std::terminate call .*" \
-+ "Call a function that raises an exception without a handler."
-+
-+# Make sure that after rewinding we are back at the call parent.
-+gdb_test "bt" \
-+ "#0 main.*" \
-+ "bt after returning from a popped frame"
-+
-+# Make sure the only breakpoint is the one set via the runto_main
-+# call and that the std::terminate breakpoint has evaporated and
-+# cleaned-up.
-+gdb_test "info breakpoints" \
-+ "gdb.cp/gdb2495\.cc.*"
-+
-+# Turn off this new behaviour ...
-+send_gdb "set unwind-on-terminating-exception off\n"
-+gdb_expect {
-+ -re "$gdb_prompt $" {pass "set unwind-on-terminating-exception"}
-+ timeout {fail "(timeout) set unwind-on-terminating-exception"}
-+}
-+
-+# Check that it is turned off ...
-+gdb_test "show unwind-on-terminating-exception" \
-+ "exception is unhandled while in a call dummy is off.*" \
-+ "Turn off unwind on terminating exception flag"
-+
-+# Check that the old behaviour is restored.
-+gdb_test "p exceptions.throw_function()" \
-+ "The program being debugged stopped while in a function called .*" \
-+ "Call a function that raises an exception with unwinding off.."
-+
-+
-+# Restart back at main
-+if ![runto_main] then {
-+ perror "couldn't run to main"
-+ continue
-+}
-+
-+
-+# Check to see if our new behaviour alters the unwind signal
-+# behaviour. It should not. Test both on and off states.
-+
-+# Turn on unwind on signal behaviour ...
-+send_gdb "set unwindonsignal on\n"
-+gdb_expect {
-+ -re "$gdb_prompt $" {pass "set unwindonsignal on"}
-+ timeout {fail "(timeout) set unwindonsignal on"}
-+}
-+
-+# Check that it is turned on ...
-+gdb_test "show unwindonsignal" \
-+ "signal is received while in a call dummy is on.*" \
-+ "Turn on unwind on signal"
-+
-+# Check to see if new behaviour interferes with
-+# normal signal handling in inferior function calls.
-+gdb_test "p exceptions.raise_signal(1)" \
-+ "To change this behavior use \"set unwindonsignal off\".*"
-+
-+# And reverse. Turn off
-+send_gdb "set unwindonsignal off\n"
-+gdb_expect {
-+ -re "$gdb_prompt $" {pass "set unwindonsignal off"}
-+ timeout {fail "(timeout) set unwindonsignal off"}
-+}
-+
-+# Check that it is turned off ...
-+gdb_test "show unwindonsignal" \
-+ "signal is received while in a call dummy is off.*" \
-+ "Turn off unwind on signal"
-+
-+# Check to see if new behaviour interferes with
-+# normal signal handling in inferior function calls.
-+gdb_test "p exceptions.raise_signal(1)" \
-+ "To change this behavior use \"set unwindonsignal on\".*"
-diff --git a/gdb/testsuite/gdb.cp/member-ptr.cc b/gdb/testsuite/gdb.cp/member-ptr.cc
-index 1dff70a..648b2af 100644
---- a/gdb/testsuite/gdb.cp/member-ptr.cc
-+++ b/gdb/testsuite/gdb.cp/member-ptr.cc
-@@ -138,6 +138,7 @@ class Diamond : public Padding, public Left, public Right
- {
- public:
- virtual int vget_base ();
-+ int (*func_ptr) (int);
- };
-
- int Diamond::vget_base ()
-@@ -145,6 +146,12 @@ int Diamond::vget_base ()
- return this->Left::x + 2000;
- }
-
-+int
-+func (int x)
-+{
-+ return 19 + x;
-+}
-+
- int main ()
- {
- A a;
-@@ -162,6 +169,7 @@ int main ()
- int (Diamond::*right_vpmf) ();
- int (Base::*base_vpmf) ();
- int Diamond::*diamond_pmi;
-+ int (* Diamond::*diamond_pfunc_ptr) (int);
-
- PMI null_pmi;
- PMF null_pmf;
-@@ -179,6 +187,7 @@ int main ()
-
- diamond.Left::x = 77;
- diamond.Right::x = 88;
-+ diamond.func_ptr = func;
-
- /* Some valid pointer to members from a base class. */
- left_pmf = (int (Diamond::*) ()) (int (Left::*) ()) (&Base::get_x);
-@@ -193,11 +202,19 @@ int main ()
- /* A pointer to data member from a base class. */
- diamond_pmi = (int Diamond::*) (int Left::*) &Base::x;
-
-+ /* A pointer to data member, where the member is itself a pointer to
-+ a function. */
-+ diamond_pfunc_ptr = (int (* Diamond::*) (int)) &Diamond::func_ptr;
-+
- null_pmi = NULL;
- null_pmf = NULL;
-
- pmi = NULL; /* Breakpoint 1 here. */
-
-+ // Invalid (uses diamond_pfunc_ptr as a function):
-+ // diamond.*diamond_pfunc_ptr (20);
-+ (diamond.*diamond_pfunc_ptr) (20);
-+
- k = (a.*pmf)(3);
-
- pmi = &A::jj;
-diff --git a/gdb/testsuite/gdb.cp/member-ptr.exp b/gdb/testsuite/gdb.cp/member-ptr.exp
-index b69d4ad..476711f 100644
---- a/gdb/testsuite/gdb.cp/member-ptr.exp
-+++ b/gdb/testsuite/gdb.cp/member-ptr.exp
-@@ -390,6 +390,33 @@ gdb_test_multiple "print ((int) pmi) == ((char *) &a.j - (char *) & a)" $name {
- }
- }
-
-+# Check pointers to data members, which are themselves pointers to
-+# functions. These behave like data members, not like pointers to
-+# member functions.
-+
-+gdb_test "ptype diamond_pfunc_ptr" \
-+ "type = int \\(\\*Diamond::\\*\\)\\(int\\)"
-+
-+gdb_test "ptype diamond.*diamond_pfunc_ptr" \
-+ "type = int \\(\\*\\)\\(int\\)"
-+
-+# This one is invalid; () binds more tightly than .*, so it tries to
-+# call the member pointer as a normal pointer-to-function.
-+
-+gdb_test "print diamond.*diamond_pfunc_ptr (20)" \
-+ "Invalid data type for function to be called."
-+
-+# With parentheses, it is valid.
-+
-+gdb_test "print (diamond.*diamond_pfunc_ptr) (20)" \
-+ "$vhn = 39"
-+
-+# Make sure that we do not interpret this as either a member pointer
-+# call or a member function call.
-+
-+gdb_test "print diamond.func_ptr (20)" \
-+ "$vhn = 39"
-+
- # ==========================
- # pointer to member function
- # ==========================
-@@ -608,6 +635,9 @@ gdb_test_multiple "print (a.*pmf)(3)" $name {
- }
- }
-
-+gdb_test "ptype a.*pmf" "type = int \\(A \\*, int\\)"
-+gdb_test "ptype (a.*pmf)(3)" "type = int"
-+
- # Print out a pointer to data member which requires looking into
- # a base class.
- gdb_test "print diamond_pmi" "$vhn = &Base::x"
-diff --git a/gdb/testsuite/gdb.cp/namespace-multiple-imports.cc b/gdb/testsuite/gdb.cp/namespace-multiple-imports.cc
-new file mode 100644
-index 0000000..6b180d6
---- /dev/null
-+++ b/gdb/testsuite/gdb.cp/namespace-multiple-imports.cc
-@@ -0,0 +1,20 @@
-+namespace A {
-+ int x = 11;
-+ namespace{
-+ int xx = 22;
-+ }
-+}
-+
-+using namespace A;
-+
-+namespace{
-+ int xxx = 33;
-+};
-+
-+int main()
-+{
-+ x;
-+ xx;
-+ xxx;
-+ return 0;
-+}
-diff --git a/gdb/testsuite/gdb.cp/namespace-multiple-imports.exp b/gdb/testsuite/gdb.cp/namespace-multiple-imports.exp
-new file mode 100644
-index 0000000..e4bb9f8
---- /dev/null
-+++ b/gdb/testsuite/gdb.cp/namespace-multiple-imports.exp
-@@ -0,0 +1,49 @@
-+# Copyright 2008 Free Software Foundation, Inc.
-+
-+# 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/>.
-+
-+if $tracelevel then {
-+ strace $tracelevel
-+}
-+
-+set prms_id 0
-+set bug_id 0
-+
-+set testfile namespace-multiple-imports
-+set srcfile ${testfile}.cc
-+set binfile ${objdir}/${subdir}/${testfile}
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
-+ untested "Couldn't compile test program"
-+ return -1
-+}
-+
-+# Get things started.
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+############################################
-+# test printing of namespace imported within
-+# the function.
-+
-+if ![runto_main] then {
-+ perror "couldn't run to breakpoint main"
-+ continue
-+}
-+
-+gdb_test "print x" "\\$\[0-9\].* = 11"
-+gdb_test "print xx" "\\$\[0-9\].* = 22"
-+gdb_test "print xxx" "\\$\[0-9\].* = 33"
-diff --git a/gdb/testsuite/gdb.cp/namespace-using.cc b/gdb/testsuite/gdb.cp/namespace-using.cc
-new file mode 100644
-index 0000000..97af850
---- /dev/null
-+++ b/gdb/testsuite/gdb.cp/namespace-using.cc
-@@ -0,0 +1,131 @@
-+//--------------------------
-+namespace M{
-+ int x = 911;
-+}
-+
-+namespace N{
-+ int x = 912;
-+}
-+
-+int marker10(){
-+ using namespace M;
-+ int y = x+1; // marker10 stop
-+ using namespace N;
-+ return y;
-+}
-+//--------------------------
-+namespace J {
-+ int jx = 44;
-+}
-+
-+namespace K{
-+ int marker9(){
-+ //x;
-+ return marker10();
-+ }
-+}
-+
-+namespace L{
-+ using namespace J;
-+ int marker8(){
-+ jx;
-+ return K::marker9();
-+ }
-+}
-+//--------------------------
-+
-+//--------------------------
-+namespace G{
-+ namespace H {
-+ int ghx = 6;
-+ }
-+}
+ extern void init_sal (struct symtab_and_line *sal);
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.arch/x86_64-vla-pointer-foo.S
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.arch/x86_64-vla-pointer-foo.S 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,457 @@
++ .file "x86_64-vla-pointer.c"
++ .section .debug_abbrev,"",@progbits
++.Ldebug_abbrev0:
++ .section .debug_info,"",@progbits
++.Ldebug_info0:
++ .section .debug_line,"",@progbits
++.Ldebug_line0:
++ .text
++.Ltext0:
++.globl foo
++ .type foo, @function
++foo:
++.LFB2:
++ .file 1 "x86_64-vla-pointer.c"
++ .loc 1 22 0
++ pushq %rbp
++.LCFI0:
++ movq %rsp, %rbp
++.LCFI1:
++ subq $64, %rsp
++.LCFI2:
++ movl %edi, -36(%rbp)
++ .loc 1 22 0
++ movq %rsp, %rax
++ movq %rax, -48(%rbp)
++ .loc 1 23 0
++ movl -36(%rbp), %edx
++ movslq %edx,%rax
++ subq $1, %rax
++ movq %rax, -24(%rbp)
++ .loc 1 24 0
++ movslq %edx,%rax
++ addq $15, %rax
++ addq $15, %rax
++ shrq $4, %rax
++ salq $4, %rax
++ subq %rax, %rsp
++ movq %rsp, -56(%rbp)
++ movq -56(%rbp), %rax
++ addq $15, %rax
++ shrq $4, %rax
++ salq $4, %rax
++ movq %rax, -56(%rbp)
++ movq -56(%rbp), %rax
++ movq %rax, -16(%rbp)
++ .loc 1 27 0
++ movl $0, -4(%rbp)
++ jmp .L2
++.L3:
++ .loc 1 28 0
++ movl -4(%rbp), %esi
++ movl -4(%rbp), %eax
++ movl %eax, %ecx
++ movq -16(%rbp), %rdx
++ movslq %esi,%rax
++ movb %cl, (%rdx,%rax)
++ .loc 1 27 0
++ addl $1, -4(%rbp)
++.L2:
++ movl -4(%rbp), %eax
++ cmpl -36(%rbp), %eax
++ jl .L3
++ .loc 1 30 0
++ .globl break_here
++break_here:
++ movq -16(%rbp), %rax
++ movb $0, (%rax)
++ movq -48(%rbp), %rsp
++ .loc 1 31 0
++ leave
++ ret
++.LFE2:
++ .size foo, .-foo
++ .section .debug_frame,"",@progbits
++.Lframe0:
++ .long .LECIE0-.LSCIE0
++.LSCIE0:
++ .long 0xffffffff
++ .byte 0x1
++ .string ""
++ .uleb128 0x1
++ .sleb128 -8
++ .byte 0x10
++ .byte 0xc
++ .uleb128 0x7
++ .uleb128 0x8
++ .byte 0x90
++ .uleb128 0x1
++ .align 8
++.LECIE0:
++.LSFDE0:
++ .long .LEFDE0-.LASFDE0
++.LASFDE0:
++ .long .Lframe0
++ .quad .LFB2
++ .quad .LFE2-.LFB2
++ .byte 0x4
++ .long .LCFI0-.LFB2
++ .byte 0xe
++ .uleb128 0x10
++ .byte 0x86
++ .uleb128 0x2
++ .byte 0x4
++ .long .LCFI1-.LCFI0
++ .byte 0xd
++ .uleb128 0x6
++ .align 8
++.LEFDE0:
++ .section .eh_frame,"a",@progbits
++.Lframe1:
++ .long .LECIE1-.LSCIE1
++.LSCIE1:
++ .long 0x0
++ .byte 0x1
++ .string "zR"
++ .uleb128 0x1
++ .sleb128 -8
++ .byte 0x10
++ .uleb128 0x1
++ .byte 0x3
++ .byte 0xc
++ .uleb128 0x7
++ .uleb128 0x8
++ .byte 0x90
++ .uleb128 0x1
++ .align 8
++.LECIE1:
++.LSFDE1:
++ .long .LEFDE1-.LASFDE1
++.LASFDE1:
++ .long .LASFDE1-.Lframe1
++ .long .LFB2
++ .long .LFE2-.LFB2
++ .uleb128 0x0
++ .byte 0x4
++ .long .LCFI0-.LFB2
++ .byte 0xe
++ .uleb128 0x10
++ .byte 0x86
++ .uleb128 0x2
++ .byte 0x4
++ .long .LCFI1-.LCFI0
++ .byte 0xd
++ .uleb128 0x6
++ .align 8
++.LEFDE1:
++ .text
++.Letext0:
++ .section .debug_loc,"",@progbits
++.Ldebug_loc0:
++.LLST0:
++ .quad .LFB2-.Ltext0
++ .quad .LCFI0-.Ltext0
++ .value 0x2
++ .byte 0x77
++ .sleb128 8
++ .quad .LCFI0-.Ltext0
++ .quad .LCFI1-.Ltext0
++ .value 0x2
++ .byte 0x77
++ .sleb128 16
++ .quad .LCFI1-.Ltext0
++ .quad .LFE2-.Ltext0
++ .value 0x2
++ .byte 0x76
++ .sleb128 16
++ .quad 0x0
++ .quad 0x0
++ .section .debug_info
++.Ldebug_relative:
++ .long .Ldebug_end - .Ldebug_start
++.Ldebug_start:
++ .value 0x2
++ .long .Ldebug_abbrev0
++ .byte 0x8
++ .uleb128 0x1
++ .long .LASF2
++ .byte 0x1
++ .long .LASF3
++ .long .LASF4
++ .quad .Ltext0
++ .quad .Letext0
++ .long .Ldebug_line0
++ .uleb128 0x2
++ .byte 0x1
++ .string "foo"
++ .byte 0x1
++ .byte 0x16
++ .byte 0x1
++ .quad .LFB2
++ .quad .LFE2
++ .long .LLST0
++ .long .Ltype_int - .Ldebug_relative
++ .uleb128 0x3
++ .long .LASF5
++ .byte 0x1
++ .byte 0x15
++ .long .Ltype_int - .Ldebug_relative
++ .byte 0x2
++ .byte 0x91
++ .sleb128 -52
++.Ltag_pointer:
++ .uleb128 0x4
++ .byte 0x8 /* DW_AT_byte_size */
++ .long .Ltag_array_type - .debug_info /* DW_AT_type */
++ .uleb128 0x5 /* Abbrev Number: 5 (DW_TAG_variable) */
++ .long .LASF0
++ .byte 0x1
++ .byte 0x18
++#if 1
++ .long .Ltag_pointer - .debug_info
++#else
++ /* Debugging only: Skip the typedef indirection. */
++ .long .Ltag_array_type - .debug_info
++#endif
++ /* DW_AT_location: DW_FORM_block1: start */
++ .byte 0x3
++ .byte 0x91
++ .sleb128 -32
++#if 0
++ .byte 0x6 /* DW_OP_deref */
++#else
++ .byte 0x96 /* DW_OP_nop */
++#endif
++ /* DW_AT_location: DW_FORM_block1: end */
++ .uleb128 0x6
++ .string "i"
++ .byte 0x1
++ .byte 0x19
++ .long .Ltype_int - .Ldebug_relative
++ .byte 0x2
++ .byte 0x91
++ .sleb128 -20
++ .byte 0x0
++.Ltype_int:
++ .uleb128 0x7
++ .byte 0x4
++ .byte 0x5
++ .string "int"
++.Ltag_array_type:
++ .uleb128 0x8 /* Abbrev Number: 8 (DW_TAG_array_type) */
++ .long .Ltype_char - .Ldebug_relative
++ .long .Ltype_ulong - .Ldebug_relative /* DW_AT_sibling: DW_FORM_ref4 */
++1: /* DW_AT_data_location: DW_FORM_block1: start */
++ .byte 2f - 3f /* length */
++3:
++ .byte 0x97 /* DW_OP_push_object_address */
++#if 1
++ .byte 0x6 /* DW_OP_deref */
++#else
++ .byte 0x96 /* DW_OP_nop */
++#endif
++2: /* DW_AT_data_location: DW_FORM_block1: end */
++ .uleb128 0x9
++ .long .Ltype_char - .Ldebug_relative /* DW_AT_type: DW_FORM_ref4 */
++ .byte 0x3
++ .byte 0x91
++ .sleb128 -40
++ .byte 0x6
++ .byte 0x0
++.Ltype_ulong:
++ .uleb128 0xa
++ .byte 0x8
++ .byte 0x7
++.Ltype_char:
++ .uleb128 0xb
++ .byte 0x1
++ .byte 0x6
++ .long .LASF1
++ .byte 0x0
++.Ldebug_end:
++ .section .debug_abbrev
++ .uleb128 0x1
++ .uleb128 0x11
++ .byte 0x1
++ .uleb128 0x25
++ .uleb128 0xe
++ .uleb128 0x13
++ .uleb128 0xb
++ .uleb128 0x3
++ .uleb128 0xe
++ .uleb128 0x1b
++ .uleb128 0xe
++ .uleb128 0x11
++ .uleb128 0x1
++ .uleb128 0x12
++ .uleb128 0x1
++ .uleb128 0x10
++ .uleb128 0x6
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x2
++ .uleb128 0x2e
++ .byte 0x1
++ .uleb128 0x3f
++ .uleb128 0xc
++ .uleb128 0x3
++ .uleb128 0x8
++ .uleb128 0x3a
++ .uleb128 0xb
++ .uleb128 0x3b
++ .uleb128 0xb
++ .uleb128 0x27
++ .uleb128 0xc
++ .uleb128 0x11
++ .uleb128 0x1
++ .uleb128 0x12
++ .uleb128 0x1
++ .uleb128 0x40
++ .uleb128 0x6
++ .uleb128 0x1
++ .uleb128 0x13
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x3
++ .uleb128 0x5
++ .byte 0x0
++ .uleb128 0x3
++ .uleb128 0xe
++ .uleb128 0x3a
++ .uleb128 0xb
++ .uleb128 0x3b
++ .uleb128 0xb
++ .uleb128 0x49
++ .uleb128 0x13
++ .uleb128 0x2
++ .uleb128 0xa
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x4 /* .Ltag_pointer abbrev */
++ .uleb128 0x0f /* DW_TAG_pointer_type */
++ .byte 0x0
++ .uleb128 0x0b
++ .uleb128 0xb
++ .uleb128 0x49
++ .uleb128 0x13
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x5
++ .uleb128 0x34
++ .byte 0x0
++ .uleb128 0x3
++ .uleb128 0xe
++ .uleb128 0x3a
++ .uleb128 0xb
++ .uleb128 0x3b
++ .uleb128 0xb
++ .uleb128 0x49
++ .uleb128 0x13
++ .uleb128 0x2
++ .uleb128 0xa
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x6
++ .uleb128 0x34
++ .byte 0x0
++ .uleb128 0x3
++ .uleb128 0x8
++ .uleb128 0x3a
++ .uleb128 0xb
++ .uleb128 0x3b
++ .uleb128 0xb
++ .uleb128 0x49
++ .uleb128 0x13
++ .uleb128 0x2
++ .uleb128 0xa
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x7
++ .uleb128 0x24
++ .byte 0x0
++ .uleb128 0xb
++ .uleb128 0xb
++ .uleb128 0x3e
++ .uleb128 0xb
++ .uleb128 0x3
++ .uleb128 0x8
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x8 /* Abbrev Number: 8 (DW_TAG_array_type) */
++ .uleb128 0x1
++ .byte 0x1
++ .uleb128 0x49 /* DW_AT_type */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .uleb128 0x1 /* DW_AT_sibling */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .uleb128 0x50 /* DW_AT_data_location */
++ .uleb128 0xa /* DW_FORM_block1 */
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x9
++ .uleb128 0x21
++ .byte 0x0
++ .uleb128 0x49 /* DW_AT_type */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .uleb128 0x2f
++ .uleb128 0xa
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0xa
++ .uleb128 0x24
++ .byte 0x0
++ .uleb128 0xb
++ .uleb128 0xb
++ .uleb128 0x3e
++ .uleb128 0xb
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0xb
++ .uleb128 0x24
++ .byte 0x0
++ .uleb128 0xb
++ .uleb128 0xb
++ .uleb128 0x3e
++ .uleb128 0xb
++ .uleb128 0x3
++ .uleb128 0xe
++ .byte 0x0
++ .byte 0x0
++ .byte 0x0
++ .section .debug_pubnames,"",@progbits
++ .long 0x16
++ .value 0x2
++ .long .Ldebug_info0
++ .long 0xa8
++ .long 0x2d
++ .string "foo"
++ .long 0x0
++ .section .debug_aranges,"",@progbits
++ .long 0x2c
++ .value 0x2
++ .long .Ldebug_info0
++ .byte 0x8
++ .byte 0x0
++ .value 0x0
++ .value 0x0
++ .quad .Ltext0
++ .quad .Letext0-.Ltext0
++ .quad 0x0
++ .quad 0x0
++ .section .debug_str,"MS",@progbits,1
++.LASF0:
++ .string "array"
++.LASF5:
++ .string "size"
++.LASF3:
++ .string "x86_64-vla-pointer.c"
++.LASF6:
++ .string "array_t"
++.LASF1:
++ .string "char"
++.LASF4:
++ .string "gdb.arch"
++.LASF2:
++ .string "GNU C 4.3.2 20081105 (Red Hat 4.3.2-7)"
++ .ident "GCC: (GNU) 4.3.2 20081105 (Red Hat 4.3.2-7)"
++ .section .note.GNU-stack,"",@progbits
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.arch/x86_64-vla-pointer.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.arch/x86_64-vla-pointer.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,43 @@
++/* This testcase is part of GDB, the GNU debugger.
+
-+namespace I{
-+
-+ int marker7(){
-+ using namespace G::H;
-+ ghx;
-+ return L::marker8();
-+ }
-+}
-+//--------------------------
++ Copyright 2009 Free Software Foundation, Inc.
+
-+//--------------------------
-+namespace E{
-+ namespace F{
-+ int efx = 5;
-+ }
-+}
-+using namespace E::F;
-+int marker6(){
-+ efx;
-+ return I::marker7();
-+}
-+//--------------------------
++ 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.
+
-+namespace A
-+{
-+ int _a = 1;
-+ int x = 2;
-+
-+}
++ 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.
+
-+namespace C
-+{
-+ int cc = 3;
-+}
++ You should have received a copy of the GNU General Public License
++ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
-+namespace D
-+{
-+ int dx = 4;
-+}
++#if 0
+
-+using namespace C;
-+int marker5()
++void
++foo (int size)
+{
-+ cc;
-+ return marker6();
-+}
++ typedef char array_t[size];
++ array_t array;
++ int i;
+
-+int marker4()
-+{
-+ using D::dx;
-+ return marker5();
-+}
++ for (i = 0; i < size; i++)
++ array[i] = i;
+
-+int marker3()
-+{
-+ return marker4();
++ array[0] = 0; /* break-here */
+}
+
-+int marker2()
-+{
-+ namespace B = A;
-+ B::_a;
-+ return marker3();
-+}
++#else
+
-+int marker1()
++int
++main (void)
+{
-+ int total = 0;
-+ {
-+ int b = 1;
-+ {
-+ using namespace A;
-+ int c = 2;
-+ {
-+ int d = 3;
-+ total = _a + b + c + d + marker2(); // marker1 stop
-+ }
-+ }
-+ }
-+ return total;
++ foo (26);
++ foo (78);
++ return 0;
+}
+
-+int main()
-+{
-+ using namespace A;
-+ _a;
-+ return marker1();
-+}
-diff --git a/gdb/testsuite/gdb.cp/namespace-using.exp b/gdb/testsuite/gdb.cp/namespace-using.exp
-new file mode 100644
-index 0000000..f73fa67
---- /dev/null
-+++ b/gdb/testsuite/gdb.cp/namespace-using.exp
-@@ -0,0 +1,186 @@
-+# Copyright 2008 Free Software Foundation, Inc.
++#endif
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.arch/x86_64-vla-pointer.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.arch/x86_64-vla-pointer.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,66 @@
++# Copyright 2009 Free Software Foundation, Inc.
+
+# 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
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
-+if $tracelevel then {
-+ strace $tracelevel
++if ![istarget "x86_64-*-*"] then {
++ verbose "Skipping over gdb.arch/x86_64-vla-pointer.exp test made only for x86_64."
++ return
+}
+
-+set prms_id 0
-+set bug_id 0
-+
-+set testfile namespace-using
-+set srcfile ${testfile}.cc
++set testfile x86_64-vla-pointer
++set srcasmfile ${testfile}-foo.S
++set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
++set binobjfile ${objdir}/${subdir}/${testfile}-foo.o
++if { [gdb_compile "${srcdir}/${subdir}/${srcasmfile}" "${binobjfile}" object {}] != "" } {
+ untested "Couldn't compile test program"
+ return -1
+}
-+
-+# Get things started.
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+############################################
-+# test printing of namespace imported within
-+# the function.
-+
-+if ![runto_main] then {
-+ perror "couldn't run to breakpoint main"
-+ continue
-+}
-+
-+gdb_test "print _a" "= 1"
-+
-+# Test that names are not printed when they
-+# are not imported
-+
-+gdb_breakpoint marker3
-+gdb_continue_to_breakpoint "marker3"
-+
-+#send_gdb "break marker3\n"
-+#send_gdb "continue\n"
-+
-+gdb_test "print _a" "No symbol \"_a\" in current context." "Print _a without import"
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+
-+############################################
-+# test printing of namespace imported into
-+# a scope containing the pc.
-+
-+if ![runto_main] then {
-+ perror "couldn't run to breakpoint main"
-+ continue
-+}
-+
-+gdb_breakpoint [gdb_get_line_number "marker1 stop"]
-+gdb_continue_to_breakpoint "marker1 stop"
-+
-+gdb_test "print _a" "= 1" "print _a in a nested scope"
-+
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+############################################
-+# test printing of namespace imported into
-+# file scope.
-+
-+
-+if ![runto marker5] then {
-+ perror "couldn't run to breakpoint marker5"
-+ continue
-+}
-+
-+gdb_test "print cc" "= 3"
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+
-+############################################
-+# Test printing of namespace aliases
-+
-+if ![runto marker2] then {
-+ perror "couldn't run to breakpoint marker2"
-+ continue
++if { [gdb_compile "${srcdir}/${subdir}/${srcfile} ${binobjfile}" "${binfile}" executable {debug}] != "" } {
++ untested "Couldn't compile test program"
++ return -1
+}
+
-+gdb_test "print B::_a" "= 1"
-+
-+gdb_test "print _a" "No symbol \"_a\" in current context." "print _a in namespace alias scope"
-+gdb_test "print x" "No symbol \"x\" in current context." "print x in namespace alias scope"
-+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
-+
-+############################################
-+# Test printing of namespace aliases
-+
-+if ![runto marker4] then {
-+ perror "couldn't run to breakpoint marker4"
-+ continue
-+}
-+
-+gdb_test "print dx" "= 4"
-+
-+############################################
-+# Test printing of namespace aliases
-+
-+if ![runto marker6] then {
-+ perror "couldn't run to breakpoint marker6"
-+ continue
-+}
-+
-+gdb_test "print efx" "= 5"
-+
-+############################################
-+# Test printing of variables imported from
-+# nested namespaces
-+
-+if ![runto I::marker7] then {
-+ perror "couldn't run to breakpoint I::marker7"
-+ continue
++if ![runto_main] {
++ untested x86_64-vla-pointer
++ return -1
+}
+
-+gdb_test "print ghx" "= 6"
-+
-+############################################
-+# Test that variables are not printed in a namespace
-+# that is sibling to the namespace containing an import
++gdb_breakpoint "break_here"
+
-+if ![runto L::marker8] then {
-+ perror "couldn't run to breakpoint L::marker8"
-+ continue
-+}
++gdb_continue_to_breakpoint "break_here"
+
-+gdb_test "print jx" "= 44"
++gdb_test "whatis array" "type = char \\(\\*\\)\\\[variable\\\]" "first: whatis array"
++gdb_test "ptype array" "type = char \\(\\*\\)\\\[26\\\]" "first: ptype array"
+
-+gdb_breakpoint "K::marker9"
-+gdb_continue_to_breakpoint "K::marker9"
++gdb_test "whatis *array" "type = char \\\[26\\\]" "first: whatis *array"
++gdb_test "ptype *array" "type = char \\\[26\\\]" "first: ptype *array"
+
-+gdb_test "print jx" "No symbol \"jx\" in current context."
++gdb_test "p (*array)\[1\]" "\\$\[0-9\] = 1 '\\\\001'"
++gdb_test "p (*array)\[2\]" "\\$\[0-9\] = 2 '\\\\002'"
++gdb_test "p (*array)\[3\]" "\\$\[0-9\] = 3 '\\\\003'"
++gdb_test "p (*array)\[4\]" "\\$\[0-9\] = 4 '\\\\004'"
+
-+############################################
-+# Test that variables are only printed after the line
-+# containing the import
++gdb_continue_to_breakpoint "break_here"
+
-+if ![runto_main] then {
-+ perror "couldn't run to breakpoint main"
-+ continue
-+}
++gdb_test "whatis array" "type = char \\(\\*\\)\\\[variable\\\]" "second: whatis array"
++gdb_test "ptype array" "type = char \\(\\*\\)\\\[78\\\]" "second: ptype array"
+
-+gdb_breakpoint [gdb_get_line_number "marker10 stop"]
-+gdb_continue_to_breakpoint "marker10 stop"
-+
-+gdb_test "print x" "= 911" "print x (from M::x)"
-+
-+gdb_test "next" ""
-+
-+gdb_test "print x" "= 912" "print x (from M::x)"
-diff --git a/gdb/testsuite/gdb.cp/namespace.exp b/gdb/testsuite/gdb.cp/namespace.exp
-index 76b1b82..2042db2 100644
---- a/gdb/testsuite/gdb.cp/namespace.exp
-+++ b/gdb/testsuite/gdb.cp/namespace.exp
-@@ -24,6 +24,7 @@
- # for namespaces.
- # Note: As of 2000-06-03, they passed under g++ - djb
-
-+load_lib "cp-support.exp"
-
- if $tracelevel then {
- strace $tracelevel
-@@ -259,11 +260,16 @@ gdb_test "ptype E" "type = namespace C::D::E"
- gdb_test "ptype CClass" "type = (class C::CClass \{\r\n public:|struct C::CClass \{)\r\n int x;\r\n\}"
- gdb_test "ptype CClass::NestedClass" "type = (class C::CClass::NestedClass \{\r\n public:|struct C::CClass::NestedClass \{)\r\n int y;\r\n\}"
- gdb_test "ptype NestedClass" "No symbol \"NestedClass\" in current context."
--setup_kfail "gdb/1448" "*-*-*"
--gdb_test "ptype ::C::CClass" "type = class C::CClass \{\r\n public:\r\n int x;\r\n\}"
--setup_kfail "gdb/1448" "*-*-*"
--gdb_test "ptype ::C::CClass::NestedClass" "type = class C::CClass::NestedClass \{\r\n public:\r\n int y;\r\n\}"
--setup_kfail "gdb/1448" "*-*-*"
-+cp_test_ptype_class \
-+ "ptype ::C::CClass" "" "class" "C::CClass" \
-+ {
-+ { field public "int x;" }
-+ }
-+cp_test_ptype_class \
-+ "ptype ::C::CClass::NestedClass" "" "class" "C::CClass::NestedClass" \
-+ {
-+ { field public "int y;" }
-+ }
- gdb_test "ptype ::C::NestedClass" "No symbol \"NestedClass\" in namespace \"C\"."
- gdb_test "ptype C::CClass" "No symbol \"CClass\" in namespace \"C::C\"."
- gdb_test "ptype C::CClass::NestedClass" "No type \"CClass\" within class or namespace \"C::C\"."
-@@ -273,8 +279,11 @@ gdb_test "ptype C::NestedClass" "No symbol \"NestedClass\" in namespace \"C::C\"
-
- gdb_test "print cOtherFile" "\\$\[0-9\].* = 316"
- gdb_test "ptype OtherFileClass" "type = (class C::OtherFileClass \{\r\n public:|struct C::OtherFileClass \{)\r\n int z;\r\n\}"
--setup_kfail "gdb/1448" "*-*-*"
--gdb_test "ptype ::C::OtherFileClass" "type = class C::OtherFileClass \{\r\n public:\r\n int z;\r\n\}"
-+cp_test_ptype_class \
-+ "ptype ::C::OtherFileClass" "" "class" "C::OtherFileClass" \
-+ {
-+ { field public "int z;" }
-+ }
- gdb_test "ptype C::OtherFileClass" "No symbol \"OtherFileClass\" in namespace \"C::C\"."
-
- # Some anonymous namespace tests.
-diff --git a/gdb/testsuite/gdb.cp/overload.exp b/gdb/testsuite/gdb.cp/overload.exp
-index 24025a2..a72932e 100644
---- a/gdb/testsuite/gdb.cp/overload.exp
-+++ b/gdb/testsuite/gdb.cp/overload.exp
-@@ -74,12 +74,12 @@ set re_methods "${re_methods}${ws}int overload1arg\\((void|)\\);"
- set re_methods "${re_methods}${ws}int overload1arg\\(char\\);"
- set re_methods "${re_methods}${ws}int overload1arg\\(signed char\\);"
- set re_methods "${re_methods}${ws}int overload1arg\\(unsigned char\\);"
--set re_methods "${re_methods}${ws}int overload1arg\\(short\\);"
--set re_methods "${re_methods}${ws}int overload1arg\\(unsigned short\\);"
-+set re_methods "${re_methods}${ws}int overload1arg\\(short( int)?\\);"
-+set re_methods "${re_methods}${ws}int overload1arg\\((unsigned short|short unsigned)( int)?\\);"
- set re_methods "${re_methods}${ws}int overload1arg\\(int\\);"
- set re_methods "${re_methods}${ws}int overload1arg\\(unsigned int\\);"
--set re_methods "${re_methods}${ws}int overload1arg\\(long\\);"
--set re_methods "${re_methods}${ws}int overload1arg\\(unsigned long\\);"
-+set re_methods "${re_methods}${ws}int overload1arg\\(long( int)?\\);"
-+set re_methods "${re_methods}${ws}int overload1arg\\((unsigned long|long unsigned)( int)?\\);"
- set re_methods "${re_methods}${ws}int overload1arg\\(float\\);"
- set re_methods "${re_methods}${ws}int overload1arg\\(double\\);"
- set re_methods "${re_methods}${ws}int overloadfnarg\\((void|)\\);"
-diff --git a/gdb/testsuite/gdb.cp/ovldbreak.exp b/gdb/testsuite/gdb.cp/ovldbreak.exp
-index 8a6b795..897171c 100644
---- a/gdb/testsuite/gdb.cp/ovldbreak.exp
-+++ b/gdb/testsuite/gdb.cp/ovldbreak.exp
-@@ -127,10 +127,24 @@ proc set_bp_overloaded {name expectedmenu mychoice bpnumber linenumber} {
- }
-
- # This is the expected menu for overload1arg.
--# Note the arg type variations on lines 6 and 13.
-+# Note the arg type variations for void and integer types.
- # This accommodates different versions of g++.
-
--set menu_overload1arg "\\\[0\\\] cancel\r\n\\\[1\\\] all\r\n\\\[2\\\] foo::overload1arg\\(double\\) at.*$srcfile:121\r\n\\\[3\\\] foo::overload1arg\\(float\\) at.*$srcfile:120\r\n\\\[4\\\] foo::overload1arg\\(unsigned long\\) at.*$srcfile:119\r\n\\\[5\\\] foo::overload1arg\\(long\\) at.*$srcfile:118\r\n\\\[6\\\] foo::overload1arg\\((unsigned int|unsigned)\\) at.*$srcfile:117\r\n\\\[7\\\] foo::overload1arg\\(int\\) at.*$srcfile:116\r\n\\\[8\\\] foo::overload1arg\\(unsigned short\\) at.*$srcfile:115\r\n\\\[9\\\] foo::overload1arg\\(short\\) at.*$srcfile:114\r\n\\\[10\\\] foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r\n\\\[11\\\] foo::overload1arg\\(signed char\\) at.*$srcfile:112\r\n\\\[12\\\] foo::overload1arg\\(char\\) at.*$srcfile:111\r\n\\\[13\\\] foo::overload1arg\\((void|)\\) at.*$srcfile:110\r\n> $"
-+set menu_overload1arg "\\\[0\\\] cancel\r\n"
-+append menu_overload1arg "\\\[1\\\] all\r\n"
-+append menu_overload1arg "\\\[2\\\] foo::overload1arg\\(double\\) at.*$srcfile:121\r\n"
-+append menu_overload1arg "\\\[3\\\] foo::overload1arg\\(float\\) at.*$srcfile:120\r\n"
-+append menu_overload1arg "\\\[4\\\] foo::overload1arg\\((unsigned long|long unsigned)( int)?\\) at.*$srcfile:119\r\n"
-+append menu_overload1arg "\\\[5\\\] foo::overload1arg\\(long( int)?\\) at.*$srcfile:118\r\n"
-+append menu_overload1arg "\\\[6\\\] foo::overload1arg\\((unsigned int|unsigned)\\) at.*$srcfile:117\r\n"
-+append menu_overload1arg "\\\[7\\\] foo::overload1arg\\(int\\) at.*$srcfile:116\r\n"
-+append menu_overload1arg "\\\[8\\\] foo::overload1arg\\((unsigned short|short unsigned)( int)?\\) at.*$srcfile:115\r\n"
-+append menu_overload1arg "\\\[9\\\] foo::overload1arg\\(short( int)?\\) at.*$srcfile:114\r\n"
-+append menu_overload1arg "\\\[10\\\] foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r\n"
-+append menu_overload1arg "\\\[11\\\] foo::overload1arg\\(signed char\\) at.*$srcfile:112\r\n"
-+append menu_overload1arg "\\\[12\\\] foo::overload1arg\\(char\\) at.*$srcfile:111\r\n"
-+append menu_overload1arg "\\\[13\\\] foo::overload1arg\\((void|)\\) at.*$srcfile:110\r\n"
-+append menu_overload1arg "> $"
-
- # Set multiple-symbols to "ask", to allow us to test the use
- # of the multiple-choice menu when breaking on an overloaded method.
-@@ -157,17 +171,17 @@ set_bp_overloaded "foo::overload1arg" "$menu_overload1arg" 13 13 110
-
- gdb_test "info break" \
- "Num Type\[\t \]+Disp Enb Address\[\t \]+What.*
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in main at.*$srcfile:49\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in main(\\(void\\))? at.*$srcfile:49\r
- \[\t \]+breakpoint already hit 1 time\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(char\\) at.*$srcfile:111\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(signed char\\) at.*$srcfile:112\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short\\) at.*$srcfile:114\r
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned short\\) at.*$srcfile:115\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short( int)?\\) at.*$srcfile:114\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned short|short unsigned)( int)?\\) at.*$srcfile:115\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(int\\) at.*$srcfile:116\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned|unsigned int)\\) at.*$srcfile:117\r
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long\\) at.*$srcfile:118\r
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned long\\) at.*$srcfile:119\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long( int)?\\) at.*$srcfile:118\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned long|long unsigned)( int)?\\) at.*$srcfile:119\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(float\\) at.*$srcfile:120\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(double\\) at.*$srcfile:121\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((void|)\\) at.*$srcfile:110" \
-@@ -215,17 +229,17 @@ gdb_expect {
-
- gdb_test "info break" \
- "Num Type\[\t \]+Disp Enb Address\[\t \]+What.*
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in main at.*$srcfile:49\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in main(\\(void\\))? at.*$srcfile:49\r
- \[\t \]+breakpoint already hit 1 time\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(char\\) at.*$srcfile:111\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(signed char\\) at.*$srcfile:112\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short\\) at.*$srcfile:114\r
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned short\\) at.*$srcfile:115\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short( int)?\\) at.*$srcfile:114\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned short|short unsigned)( int)?\\) at.*$srcfile:115\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(int\\) at.*$srcfile:116\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned|unsigned int)\\) at.*$srcfile:117\r
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long\\) at.*$srcfile:118\r
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned long\\) at.*$srcfile:119\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long( int)?\\) at.*$srcfile:118\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned long|long unsigned)( int)?\\) at.*$srcfile:119\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(float\\) at.*$srcfile:120\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(double\\) at.*$srcfile:121\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((void|)\\) at.*$srcfile:110" \
-@@ -296,12 +310,12 @@ gdb_test "info break" \
- "Num Type\[\t \]+Disp Enb Address\[\t \]+What.*
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(double\\) at.*$srcfile:121\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(float\\) at.*$srcfile:120\r
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned long\\) at.*$srcfile:119\r
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long\\) at.*$srcfile:118\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned long|long unsigned)( int)?\\) at.*$srcfile:119\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long( int)?\\) at.*$srcfile:118\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned|unsigned int)\\) at.*$srcfile:117\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(int\\) at.*$srcfile:116\r
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned short\\) at.*$srcfile:115\r
--\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short\\) at.*$srcfile:114\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned short|short unsigned)( int)?\\) at.*$srcfile:115\r
-+\[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short( int)?\\) at.*$srcfile:114\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(signed char\\) at.*$srcfile:112\r
- \[0-9\]+\[\t \]+breakpoint keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(char\\) at.*$srcfile:111\r
-diff --git a/gdb/testsuite/gdb.cp/ref-types.exp b/gdb/testsuite/gdb.cp/ref-types.exp
-index 4784cb2..b2e55cf 100644
---- a/gdb/testsuite/gdb.cp/ref-types.exp
-+++ b/gdb/testsuite/gdb.cp/ref-types.exp
-@@ -284,7 +284,7 @@ gdb_expect {
-
- send_gdb "print UC\n"
- gdb_expect {
-- -re ".\[0-9\]* = 21 '\.025'\.*$gdb_prompt $" {
-+ -re ".\[0-9\]* = 21 '\.25'\.*$gdb_prompt $" {
- pass "print value of UC"
- }
- -re ".*$gdb_prompt $" { fail "print value of UC" }
-@@ -557,7 +557,7 @@ gdb_expect {
-
- send_gdb "print rUC\n"
- gdb_expect {
-- -re ".\[0-9\]* = \\(unsigned char &\\) @$hex: 21 \'.025\'.*$gdb_prompt $" {
-+ -re ".\[0-9\]* = \\(unsigned char &\\) @$hex: 21 \'.25\'.*$gdb_prompt $" {
- pass "print value of rUC"
- }
- -re ".*$gdb_prompt $" { fail "print value of rUC" }
-diff --git a/gdb/testsuite/gdb.cp/templates.exp b/gdb/testsuite/gdb.cp/templates.exp
-index cd9b770..f49caff 100644
---- a/gdb/testsuite/gdb.cp/templates.exp
-+++ b/gdb/testsuite/gdb.cp/templates.exp
-@@ -329,13 +329,11 @@ gdb_expect {
-
- send_gdb "print Foo<volatile char *>::foo\n"
- gdb_expect {
-- -re "\\$\[0-9\]* = \\{.*char \\*\\((class |)Foo<volatile char ?\\*> \\*(| const), int, .*char \\*\\)\\} $hex <Foo<.*char.*\\*>::foo\\(int, .*char.*\\*\\)>\r\n$gdb_prompt $" { pass "print Foo<volatile char *>::foo" }
-+ -re "\\$\[0-9\]* = \\{.*char \\*\\((class |)Foo<(volatile char|char volatile) ?\\*> \\*(| const), int, .*char \\*\\)\\} $hex <Foo<.*char.*\\*>::foo\\(int, .*char.*\\*\\)>\r\n$gdb_prompt $" { pass "print Foo<volatile char *>::foo" }
- -re "No symbol \"Foo<volatile char \\*>\" in current context.\r\n$gdb_prompt $"
- {
-- # This used to be a kfail gdb/33. That problem has been
-- # fixed, but now gdb/931 and gdb/1512 are rearing their ugly
-- # heads.
-- kfail "gdb/931" "print Foo<volatile char *>::foo"
-+ # This used to be a kfail gdb/33 and then kfail gdb/931.
-+ fail "print Foo<volatile char *>::foo"
- }
- -re "$gdb_prompt $" { fail "print Foo<volatile char *>::foo" }
- timeout { fail "(timeout) print Foo<volatile char *>::foo" }
-@@ -343,13 +341,11 @@ gdb_expect {
-
- send_gdb "print Foo<volatile char*>::foo\n"
- gdb_expect {
-- -re "\\$\[0-9\]* = \\{.*char \\*\\((class |)Foo<volatile char ?\\*> \\*(| const), int, .*char \\*\\)\\} $hex <Foo<.*char.*\\*>::foo\\(int, .*char.*\\*\\)>\r\n$gdb_prompt $" { pass "print Foo<volatile char*>::foo" }
-+ -re "\\$\[0-9\]* = \\{.*char \\*\\((class |)Foo<(volatile char|char volatile) ?\\*> \\*(| const), int, .*char \\*\\)\\} $hex <Foo<.*char.*\\*>::foo\\(int, .*char.*\\*\\)>\r\n$gdb_prompt $" { pass "print Foo<volatile char*>::foo" }
- -re "No symbol \"Foo<volatile char\\*>\" in current context.\r\n$gdb_prompt $"
- {
-- # This used to be a kfail gdb/33. That problem has been
-- # fixed, but now gdb/931 and gdb/1512 are rearing their ugly
-- # heads.
-- kfail "gdb/931" "print Foo<volatile char*>::foo"
-+ # This used to be a kfail gdb/33 and then kfail gdb/931.
-+ fail "print Foo<volatile char*>::foo"
- }
- -re "$gdb_prompt $" { fail "print Foo<volatile char*>::foo" }
- timeout { fail "(timeout) print Foo<volatile char*>::foo" }
-@@ -459,7 +455,7 @@ send_gdb "ptype quxint\n"
- gdb_expect {
- -re "type = class Qux<int, ?& ?string> \\{\r\n\[ \t\]*public:\r\n\[ \t\]*int x;\r\n\[ \t\]*int t;\r\n\r\n\[ \t\]*.*int qux\\(int, int\\);\r\n\\}\r\n$gdb_prompt $" { pass "ptype quxint" }
- -re "type = class Qux<int, ?& ?string> \\{\r\n\[ \t\]*public:\r\n\[ \t\]*int x;\r\n\[ \t\]*int t;\r\n\r\n\[ \t\]*int qux\\(int, int\\);.*\r\n\\}\r\n$gdb_prompt $" { pass "ptype quxint" }
-- -re "type = class Qux<int, ?\\(char ?\\*\\)\\(& ?string\\)> \\{\r\n\[ \t\]*public:\r\n\[ \t\]*int x;\r\n\[ \t\]*int t;\r\n\r\n\[ \t\]*int qux\\(int, int\\);.*\r\n\\}\r\n$gdb_prompt $" { pass "ptype quxint" }
-+ -re "type = class Qux<int, ?\\(char ?\\*\\)\\(& ?\\(?string\\)?\\)> \\{\r\n\[ \t\]*public:\r\n\[ \t\]*int x;\r\n\[ \t\]*int t;\r\n\r\n\[ \t\]*int qux\\(int, int\\);.*\r\n\\}\r\n$gdb_prompt $" { pass "ptype quxint" }
- -re "type = class Qux<int, ?& ?\\(string\\)> \\{\r\n\[ \t\]*public:\r\n\[ \t\]*int x;\r\n\[ \t\]*int t;\r\n\r\n\[ \t\]*int qux\\(int, int\\);.*\r\n\\}\r\n$gdb_prompt $" {
- kfail "gdb/1512" "ptype quxint"
- }
-diff --git a/gdb/testsuite/gdb.dwarf2/dw2-stripped.c b/gdb/testsuite/gdb.dwarf2/dw2-stripped.c
-new file mode 100644
-index 0000000..1f02d90
---- /dev/null
-+++ b/gdb/testsuite/gdb.dwarf2/dw2-stripped.c
-@@ -0,0 +1,42 @@
++gdb_test "whatis *array" "type = char \\\[78\\\]" "second: whatis *array"
++gdb_test "ptype *array" "type = char \\\[78\\\]" "second: ptype *array"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.arch/x86_64-vla-typedef-foo.S
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.arch/x86_64-vla-typedef-foo.S 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,455 @@
++ .file "x86_64-vla-typedef.c"
++ .section .debug_abbrev,"",@progbits
++.Ldebug_abbrev0:
++ .section .debug_info,"",@progbits
++.Ldebug_info0:
++ .section .debug_line,"",@progbits
++.Ldebug_line0:
++ .text
++.Ltext0:
++.globl foo
++ .type foo, @function
++foo:
++.LFB2:
++ .file 1 "x86_64-vla-typedef.c"
++ .loc 1 22 0
++ pushq %rbp
++.LCFI0:
++ movq %rsp, %rbp
++.LCFI1:
++ subq $64, %rsp
++.LCFI2:
++ movl %edi, -36(%rbp)
++ .loc 1 22 0
++ movq %rsp, %rax
++ movq %rax, -48(%rbp)
++ .loc 1 23 0
++ movl -36(%rbp), %edx
++ movslq %edx,%rax
++ subq $1, %rax
++ movq %rax, -24(%rbp)
++ .loc 1 24 0
++ movslq %edx,%rax
++ addq $15, %rax
++ addq $15, %rax
++ shrq $4, %rax
++ salq $4, %rax
++ subq %rax, %rsp
++ movq %rsp, -56(%rbp)
++ movq -56(%rbp), %rax
++ addq $15, %rax
++ shrq $4, %rax
++ salq $4, %rax
++ movq %rax, -56(%rbp)
++ movq -56(%rbp), %rax
++ movq %rax, -16(%rbp)
++ .loc 1 27 0
++ movl $0, -4(%rbp)
++ jmp .L2
++.L3:
++ .loc 1 28 0
++ movl -4(%rbp), %esi
++ movl -4(%rbp), %eax
++ movl %eax, %ecx
++ movq -16(%rbp), %rdx
++ movslq %esi,%rax
++ movb %cl, (%rdx,%rax)
++ .loc 1 27 0
++ addl $1, -4(%rbp)
++.L2:
++ movl -4(%rbp), %eax
++ cmpl -36(%rbp), %eax
++ jl .L3
++ .loc 1 30 0
++ .globl break_here
++break_here:
++ movq -16(%rbp), %rax
++ movb $0, (%rax)
++ movq -48(%rbp), %rsp
++ .loc 1 31 0
++ leave
++ ret
++.LFE2:
++ .size foo, .-foo
++ .section .debug_frame,"",@progbits
++.Lframe0:
++ .long .LECIE0-.LSCIE0
++.LSCIE0:
++ .long 0xffffffff
++ .byte 0x1
++ .string ""
++ .uleb128 0x1
++ .sleb128 -8
++ .byte 0x10
++ .byte 0xc
++ .uleb128 0x7
++ .uleb128 0x8
++ .byte 0x90
++ .uleb128 0x1
++ .align 8
++.LECIE0:
++.LSFDE0:
++ .long .LEFDE0-.LASFDE0
++.LASFDE0:
++ .long .Lframe0
++ .quad .LFB2
++ .quad .LFE2-.LFB2
++ .byte 0x4
++ .long .LCFI0-.LFB2
++ .byte 0xe
++ .uleb128 0x10
++ .byte 0x86
++ .uleb128 0x2
++ .byte 0x4
++ .long .LCFI1-.LCFI0
++ .byte 0xd
++ .uleb128 0x6
++ .align 8
++.LEFDE0:
++ .section .eh_frame,"a",@progbits
++.Lframe1:
++ .long .LECIE1-.LSCIE1
++.LSCIE1:
++ .long 0x0
++ .byte 0x1
++ .string "zR"
++ .uleb128 0x1
++ .sleb128 -8
++ .byte 0x10
++ .uleb128 0x1
++ .byte 0x3
++ .byte 0xc
++ .uleb128 0x7
++ .uleb128 0x8
++ .byte 0x90
++ .uleb128 0x1
++ .align 8
++.LECIE1:
++.LSFDE1:
++ .long .LEFDE1-.LASFDE1
++.LASFDE1:
++ .long .LASFDE1-.Lframe1
++ .long .LFB2
++ .long .LFE2-.LFB2
++ .uleb128 0x0
++ .byte 0x4
++ .long .LCFI0-.LFB2
++ .byte 0xe
++ .uleb128 0x10
++ .byte 0x86
++ .uleb128 0x2
++ .byte 0x4
++ .long .LCFI1-.LCFI0
++ .byte 0xd
++ .uleb128 0x6
++ .align 8
++.LEFDE1:
++ .text
++.Letext0:
++ .section .debug_loc,"",@progbits
++.Ldebug_loc0:
++.LLST0:
++ .quad .LFB2-.Ltext0
++ .quad .LCFI0-.Ltext0
++ .value 0x2
++ .byte 0x77
++ .sleb128 8
++ .quad .LCFI0-.Ltext0
++ .quad .LCFI1-.Ltext0
++ .value 0x2
++ .byte 0x77
++ .sleb128 16
++ .quad .LCFI1-.Ltext0
++ .quad .LFE2-.Ltext0
++ .value 0x2
++ .byte 0x76
++ .sleb128 16
++ .quad 0x0
++ .quad 0x0
++ .section .debug_info
++ .long .Ldebug_end - .Ldebug_start
++.Ldebug_start:
++ .value 0x2
++ .long .Ldebug_abbrev0
++ .byte 0x8
++ .uleb128 0x1
++ .long .LASF2
++ .byte 0x1
++ .long .LASF3
++ .long .LASF4
++ .quad .Ltext0
++ .quad .Letext0
++ .long .Ldebug_line0
++ .uleb128 0x2
++ .byte 0x1
++ .string "foo"
++ .byte 0x1
++ .byte 0x16
++ .byte 0x1
++ .quad .LFB2
++ .quad .LFE2
++ .long .LLST0
++ .long 0x83
++ .uleb128 0x3
++ .long .LASF5
++ .byte 0x1
++ .byte 0x15
++ .long 0x83
++ .byte 0x2
++ .byte 0x91
++ .sleb128 -52
++.Ltag_typedef:
++ .uleb128 0x4
++ .long .LASF6
++ .byte 0x1
++ .byte 0x17
++ .long .Ltag_array_type - .debug_info
++ .uleb128 0x5 /* Abbrev Number: 5 (DW_TAG_variable) */
++ .long .LASF0
++ .byte 0x1
++ .byte 0x18
++#if 1
++ .long .Ltag_typedef - .debug_info
++#else
++ /* Debugging only: Skip the typedef indirection. */
++ .long .Ltag_array_type - .debug_info
++#endif
++ /* DW_AT_location: DW_FORM_block1: start */
++ .byte 0x3
++ .byte 0x91
++ .sleb128 -32
++#if 0
++ .byte 0x6 /* DW_OP_deref */
++#else
++ .byte 0x96 /* DW_OP_nop */
++#endif
++ /* DW_AT_location: DW_FORM_block1: end */
++ .uleb128 0x6
++ .string "i"
++ .byte 0x1
++ .byte 0x19
++ .long 0x83
++ .byte 0x2
++ .byte 0x91
++ .sleb128 -20
++ .byte 0x0
++ .uleb128 0x7
++ .byte 0x4
++ .byte 0x5
++ .string "int"
++.Ltag_array_type:
++ .uleb128 0x8 /* Abbrev Number: 8 (DW_TAG_array_type) */
++ .long 0xa0 + (2f - 1f) /* DW_AT_type: DW_FORM_ref4 */
++ .long 0x9d + (2f - 1f) /* DW_AT_sibling: DW_FORM_ref4 */
++1: /* DW_AT_data_location: DW_FORM_block1: start */
++ .byte 2f - 3f /* length */
++3:
++ .byte 0x97 /* DW_OP_push_object_address */
++ .byte 0x6 /* DW_OP_deref */
++2: /* DW_AT_data_location: DW_FORM_block1: end */
++ .uleb128 0x9
++ .long 0x9d + (2b - 1b) /* DW_AT_type: DW_FORM_ref4 */
++ .byte 0x3
++ .byte 0x91
++ .sleb128 -40
++ .byte 0x6
++ .byte 0x0
++ .uleb128 0xa
++ .byte 0x8
++ .byte 0x7
++ .uleb128 0xb
++ .byte 0x1
++ .byte 0x6
++ .long .LASF1
++ .byte 0x0
++.Ldebug_end:
++ .section .debug_abbrev
++ .uleb128 0x1
++ .uleb128 0x11
++ .byte 0x1
++ .uleb128 0x25
++ .uleb128 0xe
++ .uleb128 0x13
++ .uleb128 0xb
++ .uleb128 0x3
++ .uleb128 0xe
++ .uleb128 0x1b
++ .uleb128 0xe
++ .uleb128 0x11
++ .uleb128 0x1
++ .uleb128 0x12
++ .uleb128 0x1
++ .uleb128 0x10
++ .uleb128 0x6
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x2
++ .uleb128 0x2e
++ .byte 0x1
++ .uleb128 0x3f
++ .uleb128 0xc
++ .uleb128 0x3
++ .uleb128 0x8
++ .uleb128 0x3a
++ .uleb128 0xb
++ .uleb128 0x3b
++ .uleb128 0xb
++ .uleb128 0x27
++ .uleb128 0xc
++ .uleb128 0x11
++ .uleb128 0x1
++ .uleb128 0x12
++ .uleb128 0x1
++ .uleb128 0x40
++ .uleb128 0x6
++ .uleb128 0x1
++ .uleb128 0x13
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x3
++ .uleb128 0x5
++ .byte 0x0
++ .uleb128 0x3
++ .uleb128 0xe
++ .uleb128 0x3a
++ .uleb128 0xb
++ .uleb128 0x3b
++ .uleb128 0xb
++ .uleb128 0x49
++ .uleb128 0x13
++ .uleb128 0x2
++ .uleb128 0xa
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x4
++ .uleb128 0x16
++ .byte 0x0
++ .uleb128 0x3
++ .uleb128 0xe
++ .uleb128 0x3a
++ .uleb128 0xb
++ .uleb128 0x3b
++ .uleb128 0xb
++ .uleb128 0x49
++ .uleb128 0x13
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x5
++ .uleb128 0x34
++ .byte 0x0
++ .uleb128 0x3
++ .uleb128 0xe
++ .uleb128 0x3a
++ .uleb128 0xb
++ .uleb128 0x3b
++ .uleb128 0xb
++ .uleb128 0x49
++ .uleb128 0x13
++ .uleb128 0x2
++ .uleb128 0xa
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x6
++ .uleb128 0x34
++ .byte 0x0
++ .uleb128 0x3
++ .uleb128 0x8
++ .uleb128 0x3a
++ .uleb128 0xb
++ .uleb128 0x3b
++ .uleb128 0xb
++ .uleb128 0x49
++ .uleb128 0x13
++ .uleb128 0x2
++ .uleb128 0xa
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x7
++ .uleb128 0x24
++ .byte 0x0
++ .uleb128 0xb
++ .uleb128 0xb
++ .uleb128 0x3e
++ .uleb128 0xb
++ .uleb128 0x3
++ .uleb128 0x8
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x8 /* Abbrev Number: 8 (DW_TAG_array_type) */
++ .uleb128 0x1
++ .byte 0x1
++ .uleb128 0x49 /* DW_AT_type */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .uleb128 0x1 /* DW_AT_sibling */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .uleb128 0x50 /* DW_AT_data_location */
++ .uleb128 0xa /* DW_FORM_block1 */
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0x9
++ .uleb128 0x21
++ .byte 0x0
++ .uleb128 0x49 /* DW_AT_type */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .uleb128 0x2f
++ .uleb128 0xa
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0xa
++ .uleb128 0x24
++ .byte 0x0
++ .uleb128 0xb
++ .uleb128 0xb
++ .uleb128 0x3e
++ .uleb128 0xb
++ .byte 0x0
++ .byte 0x0
++ .uleb128 0xb
++ .uleb128 0x24
++ .byte 0x0
++ .uleb128 0xb
++ .uleb128 0xb
++ .uleb128 0x3e
++ .uleb128 0xb
++ .uleb128 0x3
++ .uleb128 0xe
++ .byte 0x0
++ .byte 0x0
++ .byte 0x0
++ .section .debug_pubnames,"",@progbits
++ .long 0x16
++ .value 0x2
++ .long .Ldebug_info0
++ .long 0xa8
++ .long 0x2d
++ .string "foo"
++ .long 0x0
++ .section .debug_aranges,"",@progbits
++ .long 0x2c
++ .value 0x2
++ .long .Ldebug_info0
++ .byte 0x8
++ .byte 0x0
++ .value 0x0
++ .value 0x0
++ .quad .Ltext0
++ .quad .Letext0-.Ltext0
++ .quad 0x0
++ .quad 0x0
++ .section .debug_str,"MS",@progbits,1
++.LASF0:
++ .string "array"
++.LASF5:
++ .string "size"
++.LASF3:
++ .string "x86_64-vla-typedef.c"
++.LASF6:
++ .string "array_t"
++.LASF1:
++ .string "char"
++.LASF4:
++ .string "gdb.arch"
++.LASF2:
++ .string "GNU C 4.3.2 20081105 (Red Hat 4.3.2-7)"
++ .ident "GCC: (GNU) 4.3.2 20081105 (Red Hat 4.3.2-7)"
++ .section .note.GNU-stack,"",@progbits
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.arch/x86_64-vla-typedef.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.arch/x86_64-vla-typedef.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,43 @@
+/* This testcase is part of GDB, the GNU debugger.
+
-+ Copyright 2004 Free Software Foundation, Inc.
++ Copyright 2008 Free Software Foundation, Inc.
+
+ 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 2 of the License, or
++ 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, write to the Free Software
-+ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
-+ USA. */
-+
-+
-+/* The function `func1' traced into must have debug info on offset > 0;
-+ (DW_UNSND (attr)). This is the reason of `func0' existence. */
+
-+void
-+func0(int a, int b)
-+{
-+}
++ You should have received a copy of the GNU General Public License
++ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
-+/* `func1' being traced into must have some arguments to dump. */
++#if 0
+
+void
-+func1(int a, int b)
-+{
-+ func0 (a,b);
-+}
-+
-+int
-+main(void)
++foo (int size)
+{
-+ func1 (1, 2);
-+ return 0;
-+}
-diff --git a/gdb/testsuite/gdb.dwarf2/dw2-stripped.exp b/gdb/testsuite/gdb.dwarf2/dw2-stripped.exp
-new file mode 100644
-index 0000000..1c6e84a
---- /dev/null
-+++ b/gdb/testsuite/gdb.dwarf2/dw2-stripped.exp
-@@ -0,0 +1,79 @@
-+# Copyright 2006 Free Software Foundation, Inc.
-+
-+# 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 2 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, write to the Free Software
-+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-+
-+# Minimal DWARF-2 unit test
-+
-+# This test can only be run on targets which support DWARF-2.
-+# For now pick a sampling of likely targets.
-+if {![istarget *-*-linux*]
-+ && ![istarget *-*-gnu*]
-+ && ![istarget *-*-elf*]
-+ && ![istarget *-*-openbsd*]
-+ && ![istarget arm-*-eabi*]
-+ && ![istarget powerpc-*-eabi*]} {
-+ return 0
-+}
-+
-+set testfile "dw2-stripped"
-+set srcfile ${testfile}.c
-+set binfile ${objdir}/${subdir}/${testfile}.x
-+
-+remote_exec build "rm -f ${binfile}"
-+
-+# get the value of gcc_compiled
-+if [get_compiler_info ${binfile}] {
-+ return -1
-+}
-+
-+# This test can only be run on gcc as we use additional_flags=FIXME
-+if {$gcc_compiled == 0} {
-+ return 0
-+}
-+
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-ggdb3}] != "" } {
-+ return -1
-+}
-+
-+remote_exec build "objcopy -R .debug_loc ${binfile}"
-+set strip_output [remote_exec build "objdump -h ${binfile}"]
-+
-+set test "stripping test file preservation"
-+if [ regexp ".debug_info " $strip_output] {
-+ pass "$test (.debug_info preserved)"
-+} else {
-+ fail "$test (.debug_info got also stripped)"
-+}
++ typedef char array_t[size];
++ array_t array;
++ int i;
+
-+set test "stripping test file functionality"
-+if [ regexp ".debug_loc " $strip_output] {
-+ fail "$test (.debug_loc still present)"
-+} else {
-+ pass "$test (.debug_loc stripped)"
++ for (i = 0; i < size; i++)
++ array[i] = i;
++
++ array[0] = 0; /* break-here */
+}
+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
++#else
+
-+# For C programs, "start" should stop in main().
++int
++main (void)
++{
++ foo (26);
++ foo (78);
++ return 0;
++}
+
-+gdb_test "start" \
-+ ".*main \\(\\) at .*" \
-+ "start"
-+gdb_test "step" \
-+ "func.* \\(.*\\) at .*" \
-+ "step"
-diff --git a/gdb/testsuite/gdb.fortran/common-block.exp b/gdb/testsuite/gdb.fortran/common-block.exp
-new file mode 100644
-index 0000000..888f6c3
---- /dev/null
-+++ b/gdb/testsuite/gdb.fortran/common-block.exp
-@@ -0,0 +1,101 @@
-+# Copyright 2008 Free Software Foundation, Inc.
++#endif
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.arch/x86_64-vla-typedef.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.arch/x86_64-vla-typedef.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,64 @@
++# Copyright 2009 Free Software Foundation, Inc.
+
+# 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 2 of the License, or
++# 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, write to the Free Software
-+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
++# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
-+# This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>.
++# Test DW_AT_data_location accessed through DW_TAG_typedef intermediate.
+
-+set testfile "common-block"
-+set srcfile ${testfile}.f90
-+set binfile ${objdir}/${subdir}/${testfile}
++if ![istarget "x86_64-*-*"] then {
++ verbose "Skipping over gdb.arch/x86_64-vla-typedef.exp test made only for x86_64."
++ return
++}
+
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
-+ untested "Couldn't compile ${srcfile}"
++set testfile x86_64-vla-typedef
++set srcasmfile ${testfile}-foo.S
++set srcfile ${testfile}.c
++set binfile ${objdir}/${subdir}/${testfile}
++set binobjfile ${objdir}/${subdir}/${testfile}-foo.o
++if { [gdb_compile "${srcdir}/${subdir}/${srcasmfile}" "${binobjfile}" object {}] != "" } {
++ untested "Couldn't compile test program"
++ return -1
++}
++if { [gdb_compile "${srcdir}/${subdir}/${srcfile} ${binobjfile}" "${binfile}" executable {debug}] != "" } {
++ untested "Couldn't compile test program"
+ return -1
+}
+
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
-+if ![runto MAIN__] then {
-+ perror "couldn't run to breakpoint MAIN__"
-+ continue
++if ![runto_main] {
++ untested x86_64-vla-typedef
++ return -1
+}
+
-+gdb_breakpoint [gdb_get_line_number "stop-here-out"]
-+gdb_continue_to_breakpoint "stop-here-out"
-+
-+# Common block naming with source name /foo/:
-+# .symtab DW_TAG_common_block's DW_AT_name
-+# Intel Fortran foo_ foo_
-+# GNU Fortran foo_ foo
-+#set suffix "_"
-+set suffix ""
-+
-+set int4 {(integer\(kind=4\)|INTEGER\(4\))}
-+set real4 {(real\(kind=4\)|REAL\(4\))}
-+set real8 {(real\(kind=8\)|REAL\(8\))}
-+
-+gdb_test "whatis foo$suffix" "No symbol \"foo$suffix\" in current context."
-+gdb_test "ptype foo$suffix" "No symbol \"foo$suffix\" in current context."
-+gdb_test "p foo$suffix" "No symbol \"foo$suffix\" in current context."
-+gdb_test "whatis fo_o$suffix" "No symbol \"fo_o$suffix\" in current context."
-+gdb_test "ptype fo_o$suffix" "No symbol \"fo_o$suffix\" in current context."
-+gdb_test "p fo_o$suffix" "No symbol \"fo_o$suffix\" in current context."
-+
-+gdb_test "info locals" "ix_x = 11\r\niy_y = 22\r\niz_z = 33\r\nix = 1\r\niy = 2\r\niz = 3" "info locals out"
-+gdb_test "info common" "Contents of F77 COMMON block 'fo_o':\r\nix_x = 11\r\niy_y = 22\r\niz_z = 33\r\n\r\nContents of F77 COMMON block 'foo':\r\nix = 1\r\niy = 2\r\niz = 3" "info common out"
-+
-+gdb_test "ptype ix" "type = $int4" "ptype ix out"
-+gdb_test "ptype iy" "type = $real4" "ptype iy out"
-+gdb_test "ptype iz" "type = $real8" "ptype iz out"
-+gdb_test "ptype ix_x" "type = $int4" "ptype ix_x out"
-+gdb_test "ptype iy_y" "type = $real4" "ptype iy_y out"
-+gdb_test "ptype iz_z" "type = $real8" "ptype iz_z out"
-+
-+gdb_test "p ix" " = 1 *" "p ix out"
-+gdb_test "p iy" " = 2 *" "p iy out"
-+gdb_test "p iz" " = 3 *" "p iz out"
-+gdb_test "p ix_x" " = 11 *" "p ix_x out"
-+gdb_test "p iy_y" " = 22 *" "p iy_y out"
-+gdb_test "p iz_z" " = 33 *" "p iz_z out"
-+
-+gdb_breakpoint [gdb_get_line_number "stop-here-in"]
-+gdb_continue_to_breakpoint "stop-here-in"
-+
-+gdb_test "whatis foo$suffix" "No symbol \"foo$suffix\" in current context." "whatis foo$suffix in"
-+gdb_test "ptype foo$suffix" "No symbol \"foo$suffix\" in current context." "ptype foo$suffix in"
-+gdb_test "p foo$suffix" "No symbol \"foo$suffix\" in current context." "p foo$suffix in"
-+gdb_test "whatis fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." "whatis fo_o$suffix in"
-+gdb_test "ptype fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." "ptype fo_o$suffix in"
-+gdb_test "p fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." "p fo_o$suffix in"
-+
-+gdb_test "info locals" "ix = 11\r\niy2 = 22\r\niz = 33\r\nix_x = 1\r\niy_y = 2\r\niz_z2 = 3\r\niy = 5\r\niz_z = 55" "info locals in"
-+gdb_test "info common" "Contents of F77 COMMON block 'fo_o':\r\nix = 11\r\niy2 = 22\r\niz = 33\r\n\r\nContents of F77 COMMON block 'foo':\r\nix_x = 1\r\niy_y = 2\r\niz_z2 = 3" "info common in"
-+
-+gdb_test "ptype ix" "type = $int4" "ptype ix in"
-+gdb_test "ptype iy2" "type = $real4" "ptype iy2 in"
-+gdb_test "ptype iz" "type = $real8" "ptype iz in"
-+gdb_test "ptype ix_x" "type = $int4" "ptype ix_x in"
-+gdb_test "ptype iy_y" "type = $real4" "ptype iy_y in"
-+gdb_test "ptype iz_z2" "type = $real8" "ptype iz_z2 in"
-+
-+gdb_test "p ix" " = 11 *" "p ix in"
-+gdb_test "p iy2" " = 22 *" "p iy2 in"
-+gdb_test "p iz" " = 33 *" "p iz in"
-+gdb_test "p ix_x" " = 1 *" "p ix_x in"
-+gdb_test "p iy_y" " = 2 *" "p iy_y in"
-+gdb_test "p iz_z2" " = 3 *" "p iz_z2 in"
-diff --git a/gdb/testsuite/gdb.fortran/common-block.f90 b/gdb/testsuite/gdb.fortran/common-block.f90
-new file mode 100644
-index 0000000..b614e8a
---- /dev/null
-+++ b/gdb/testsuite/gdb.fortran/common-block.f90
-@@ -0,0 +1,67 @@
-+! Copyright 2008 Free Software Foundation, Inc.
-+!
-+! 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 2 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, write to the Free Software
-+! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-+!
-+! Ihis file is the Fortran source file for dynamic.exp.
-+! Original file written by Jakub Jelinek <jakub@redhat.com>.
-+! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
-+
-+subroutine in
-+
-+ INTEGER*4 ix
-+ REAL*4 iy2
-+ REAL*8 iz
-+
-+ INTEGER*4 ix_x
-+ REAL*4 iy_y
-+ REAL*8 iz_z2
++gdb_breakpoint "break_here"
+
-+ common /fo_o/ix,iy2,iz
-+ common /foo/ix_x,iy_y,iz_z2
++gdb_continue_to_breakpoint "break_here"
+
-+ iy = 5
-+ iz_z = 55
++gdb_test "whatis array" "type = array_t" "first: whatis array"
+
-+ if (ix .ne. 11 .or. iy2 .ne. 22.0 .or. iz .ne. 33.0) call abort
-+ if (ix_x .ne. 1 .or. iy_y .ne. 2.0 .or. iz_z2 .ne. 3.0) call abort
++gdb_test "ptype array" "type = char \\\[26\\\]" "first: ptype array"
+
-+ ix = 0 ! stop-here-in
++gdb_test "p array\[1\]" "\\$\[0-9\] = 1 '\\\\001'"
++gdb_test "p array\[2\]" "\\$\[0-9\] = 2 '\\\\002'"
++gdb_test "p array\[3\]" "\\$\[0-9\] = 3 '\\\\003'"
++gdb_test "p array\[4\]" "\\$\[0-9\] = 4 '\\\\004'"
+
-+end subroutine in
++gdb_continue_to_breakpoint "break_here"
+
-+program common_test
++gdb_test "whatis array" "type = array_t" "second: whatis array"
+
-+ INTEGER*4 ix
-+ REAL*4 iy
-+ REAL*8 iz
++gdb_test "ptype array" "type = char \\\[78\\\]" "second: ptype array"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.base/arrayidx.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/testsuite/gdb.base/arrayidx.c 2011-01-01 16:33:40.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.base/arrayidx.c 2011-07-03 10:33:11.000000000 +0200
+@@ -17,6 +17,13 @@
+
+ int array[] = {1, 2, 3, 4};
+
++#ifdef __GNUC__
++struct
++ {
++ int a[0];
++ } unbound;
++#endif
+
-+ INTEGER*4 ix_x
-+ REAL*4 iy_y
-+ REAL*8 iz_z
+ int
+ main (void)
+ {
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.base/arrayidx.exp
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/testsuite/gdb.base/arrayidx.exp 2011-01-01 16:33:40.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.base/arrayidx.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -57,4 +57,12 @@ gdb_test "print array" \
+ "\\{\\\[0\\\] = 1, \\\[1\\\] = 2, \\\[2\\\] = 3, \\\[3\\\] = 4\\}" \
+ "Print array with array-indexes on"
+
+-
++set test "p unbound.a == &unbound.a\[0\]"
++gdb_test_multiple $test $test {
++ -re " = 1\r\n$gdb_prompt $" {
++ pass $test
++ }
++ -re "No symbol \"unbound\" in current context.\r\n$gdb_prompt $" {
++ unsupported "$test (no GCC)"
++ }
++}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.base/default.exp
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/testsuite/gdb.base/default.exp 2011-02-15 22:17:52.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.base/default.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -607,6 +607,17 @@ gdb_test_list_exact "show convenience" "
+ {$_sdata = void} \
+ {$_siginfo = void} \
+ {$_thread = 0} \
++ {$_probe_argc = <error: No frame selected>} \
++ {$_probe_arg0 = <error: No frame selected>} \
++ {$_probe_arg1 = <error: No frame selected>} \
++ {$_probe_arg2 = <error: No frame selected>} \
++ {$_probe_arg3 = <error: No frame selected>} \
++ {$_probe_arg4 = <error: No frame selected>} \
++ {$_probe_arg5 = <error: No frame selected>} \
++ {$_probe_arg6 = <error: No frame selected>} \
++ {$_probe_arg7 = <error: No frame selected>} \
++ {$_probe_arg8 = <error: No frame selected>} \
++ {$_probe_arg9 = <error: No frame selected>} \
+ }
+
+ #test show directories
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.base/internal-var-field-address.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.base/internal-var-field-address.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,20 @@
++/* This testcase is part of GDB, the GNU debugger.
+
-+ common /foo/ix,iy,iz
-+ common /fo_o/ix_x,iy_y,iz_z
++ Copyright 2009 Free Software Foundation, Inc.
+
-+ ix = 1
-+ iy = 2.0
-+ iz = 3.0
++ 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.
+
-+ ix_x = 11
-+ iy_y = 22.0
-+ iz_z = 33.0
++ 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.
+
-+ call in ! stop-here-out
++ You should have received a copy of the GNU General Public License
++ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
-+end program common_test
-diff --git a/gdb/testsuite/gdb.fortran/dynamic.exp b/gdb/testsuite/gdb.fortran/dynamic.exp
-new file mode 100644
-index 0000000..77a1203
---- /dev/null
-+++ b/gdb/testsuite/gdb.fortran/dynamic.exp
-@@ -0,0 +1,156 @@
-+# Copyright 2007 Free Software Foundation, Inc.
++struct {
++ int field;
++} staticstruct = { 1 };
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.base/internal-var-field-address.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.base/internal-var-field-address.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,26 @@
++# Copyright 2009 Free Software Foundation, Inc.
+
+# 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 2 of the License, or
++# 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, write to the Free Software
-+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-+
-+# This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>.
-+
-+# This file is part of the gdb testsuite. It contains tests for dynamically
-+# allocated Fortran arrays.
-+# It depends on the GCC dynamic Fortran arrays DWARF support:
-+# http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22244
-+
-+set testfile "dynamic"
-+set srcfile ${testfile}.f90
-+set binfile ${objdir}/${subdir}/${testfile}
++# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
-+ untested "Couldn't compile ${srcfile}"
++set test internal-var-field-address
++set binfile ${test}.x
++if { [gdb_compile "${srcdir}/${subdir}/${test}.c" "${objdir}/${subdir}/${binfile}" object {debug}] != "" } {
++ untested "Couldn't compile test program"
+ return -1
+}
+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
++clean_restart $binfile
+
-+if ![runto MAIN__] then {
-+ perror "couldn't run to breakpoint MAIN__"
-+ continue
-+}
++gdb_test {set $varstruct = staticstruct}
++gdb_test {p $varstruct.field} " = 1"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.base/stap-probe.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.base/stap-probe.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,69 @@
++/* This testcase is part of GDB, the GNU debugger.
+
-+gdb_breakpoint [gdb_get_line_number "varx-init"]
-+gdb_continue_to_breakpoint "varx-init"
-+gdb_test "p varx" "\\$\[0-9\]* = <(object|the array) is not allocated>" "p varx unallocated"
-+gdb_test "ptype varx" "type = <(object|the array) is not allocated>" "ptype varx unallocated"
-+gdb_test "p varx(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "p varx(1,5,17) unallocated"
-+gdb_test "p varx(1,5,17)=1" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "p varx(1,5,17)=1 unallocated"
-+gdb_test "ptype varx(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "ptype varx(1,5,17) unallocated"
++ Copyright 2011 Free Software Foundation, Inc.
+
-+gdb_breakpoint [gdb_get_line_number "varx-allocated"]
-+gdb_continue_to_breakpoint "varx-allocated"
-+# $1 = (( ( 0, 0, 0, 0, 0, 0) ( 0, 0, 0, 0, 0, 0) --- , 0) ) ( ( 0, 0, ...) ...) ...)
-+gdb_test "ptype varx" "type = real(\\(kind=4\\)|\\*4) \\(6,5:15,17:28\\)" "ptype varx allocated"
-+# Intel Fortran Compiler 10.1.008 uses -1 there, GCC uses 1.
-+gdb_test "p l" "\\$\[0-9\]* = (\\.TRUE\\.|4294967295)" "p l if varx allocated"
++ 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.
+
-+gdb_breakpoint [gdb_get_line_number "varx-filled"]
-+gdb_continue_to_breakpoint "varx-filled"
-+gdb_test "p varx(2, 5, 17)" "\\$\[0-9\]* = 6"
-+gdb_test "p varx(1, 5, 17)" "\\$\[0-9\]* = 7"
-+gdb_test "p varx(2, 6, 18)" "\\$\[0-9\]* = 8"
-+gdb_test "p varx(6, 15, 28)" "\\$\[0-9\]* = 9"
-+# The latter one is for the Intel Fortran Compiler 10.1.008 pointer type.
-+gdb_test "p varv" "\\$\[0-9\]* = (<(object|the array) is not associated>|.*(Cannot access it|Unable to access the object) because the object is not associated.)" "p varv unassociated"
-+gdb_test "ptype varv" "type = (<(object|the array) is not associated>|.*(Cannot access it|Unable to access the object) because the object is not associated.)" "ptype varv unassociated"
++ 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.
+
-+gdb_breakpoint [gdb_get_line_number "varv-associated"]
-+gdb_continue_to_breakpoint "varv-associated"
-+gdb_test "p varx(3, 7, 19)" "\\$\[0-9\]* = 6" "p varx(3, 7, 19) with varv associated"
-+gdb_test "p varv(3, 7, 19)" "\\$\[0-9\]* = 6" "p varv(3, 7, 19) associated"
-+# Intel Fortran Compiler 10.1.008 uses -1 there, GCC uses 1.
-+gdb_test "p l" "\\$\[0-9\]* = (\\.TRUE\\.|4294967295)" "p l if varv associated"
-+gdb_test "ptype varx" "type = real(\\(kind=4\\)|\\*4) \\(6,5:15,17:28\\)" "ptype varx with varv associated"
-+# Intel Fortran Compiler 10.1.008 uses the pointer type.
-+gdb_test "ptype varv" "type = (PTR TO -> \\( )?real(\\(kind=4\\)|\\*4) \\(6,5:15,17:28\\)\\)?" "ptype varv associated"
++ You should have received a copy of the GNU General Public License
++ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
-+gdb_breakpoint [gdb_get_line_number "varv-filled"]
-+gdb_continue_to_breakpoint "varv-filled"
-+gdb_test "p varx(3, 7, 19)" "\\$\[0-9\]* = 10" "p varx(3, 7, 19) with varv filled"
-+gdb_test "p varv(3, 7, 19)" "\\$\[0-9\]* = 10" "p varv(3, 7, 19) filled"
++#if USE_PROBES
+
-+gdb_breakpoint [gdb_get_line_number "varv-deassociated"]
-+gdb_continue_to_breakpoint "varv-deassociated"
-+# The latter one is for the Intel Fortran Compiler 10.1.008 pointer type.
-+gdb_test "p varv" "\\$\[0-9\]* = (<(object|the array) is not associated>|.*(Cannot access it|Unable to access the object) because the object is not associated.)" "p varv deassociated"
-+gdb_test "ptype varv" "type = (<(object|the array) is not associated>|.*(Cannot access it|Unable to access the object) because the object is not associated.)" "ptype varv deassociated"
-+gdb_test "p l" "\\$\[0-9\]* = \\.FALSE\\." "p l if varv deassociated"
-+gdb_test "p varv(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not associated\\."
-+gdb_test "ptype varv(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not associated\\."
++#define _SDT_HAS_SEMAPHORES
++__extension__ unsigned short teste_user_semaphore __attribute__ ((unused)) __attribute__ ((section (".probes")));
++#define TEST teste_user_semaphore
+
-+gdb_breakpoint [gdb_get_line_number "varx-deallocated"]
-+gdb_continue_to_breakpoint "varx-deallocated"
-+gdb_test "p varx" "\\$\[0-9\]* = <(object|the array) is not allocated>" "p varx deallocated"
-+gdb_test "ptype varx" "type = <(object|the array) is not allocated>" "ptype varx deallocated"
-+gdb_test "p l" "\\$\[0-9\]* = \\.FALSE\\." "p l if varx deallocated"
-+gdb_test "p varx(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "p varx(1,5,17) deallocated"
-+gdb_test "ptype varx(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "ptype varx(1,5,17) deallocated"
++__extension__ unsigned short teste_two_semaphore __attribute__ ((unused)) __attribute__ ((section (".probes")));
++#define TEST2 teste_two_semaphore
+
-+gdb_breakpoint [gdb_get_line_number "vary-passed"]
-+gdb_continue_to_breakpoint "vary-passed"
-+# $1 = (( ( 1, 1, 1, 1, 1, 1) ( 1, 1, 1, 1, 1, 1) --- , 1) ) ( ( 1, 1, ...) ...) ...)
-+gdb_test "p vary" "\\$\[0-9\]* = \\(\[()1, .\]*\\)"
++#else
+
-+gdb_breakpoint [gdb_get_line_number "vary-filled"]
-+gdb_continue_to_breakpoint "vary-filled"
-+gdb_test "ptype vary" "type = real(\\(kind=4\\)|\\*4) \\(10,10\\)"
-+gdb_test "p vary(1, 1)" "\\$\[0-9\]* = 8"
-+gdb_test "p vary(2, 2)" "\\$\[0-9\]* = 9"
-+gdb_test "p vary(1, 3)" "\\$\[0-9\]* = 10"
-+# $1 = (( ( 3, 3, 3, 3, 3, 3) ( 3, 3, 3, 3, 3, 3) --- , 3) ) ( ( 3, 3, ...) ...) ...)
-+gdb_test "p varw" "\\$\[0-9\]* = \\(\[()3, .\]*\\)"
++#define TEST 1
++#define TEST2 1
+
-+gdb_breakpoint [gdb_get_line_number "varw-almostfilled"]
-+gdb_continue_to_breakpoint "varw-almostfilled"
-+gdb_test "ptype varw" "type = real(\\(kind=4\\)|\\*4) \\(5,4,3\\)"
-+gdb_test "p varw(3,1,1)=1" "\\$\[0-9\]* = 1"
-+# $1 = (( ( 6, 5, 1, 5, 5, 5) ( 5, 5, 5, 5, 5, 5) --- , 5) ) ( ( 5, 5, ...) ...) ...)
-+gdb_test "p varw" "\\$\[0-9\]* = \\( *\\( *\\( *6, *5, *1,\[()5, .\]*\\)" "p varw filled"
-+# "up" works with GCC but other Fortran compilers may copy the values into the
-+# outer function only on the exit of the inner function.
-+gdb_test "finish" ".*call bar \\(y, x\\)"
-+gdb_test "p z(2,4,5)" "\\$\[0-9\]* = 3"
-+gdb_test "p z(2,4,6)" "\\$\[0-9\]* = 6"
-+gdb_test "p z(2,4,7)" "\\$\[0-9\]* = 5"
-+gdb_test "p z(4,4,6)" "\\$\[0-9\]* = 1"
++#endif
+
-+gdb_breakpoint [gdb_get_line_number "varz-almostfilled"]
-+gdb_continue_to_breakpoint "varz-almostfilled"
-+# GCC uses the pointer type here, Intel Fortran Compiler 10.1.008 does not.
-+gdb_test "ptype varz" "type = (PTR TO -> \\( )?real(\\(kind=4\\)|\\*4) \\(\\*\\)\\)?"
-+# Intel Fortran Compiler 10.1.008 has a bug here - (2:11,7:7)
-+# as it produces DW_AT_lower_bound == DW_AT_upper_bound == 7.
-+gdb_test "ptype vart" "type = (PTR TO -> \\( )?real(\\(kind=4\\)|\\*4) \\(2:11,7:\\*\\)\\)?"
-+gdb_test "p varz" "\\$\[0-9\]* = \\(\\)"
-+gdb_test "p vart" "\\$\[0-9\]* = \\(\\)"
-+gdb_test "p varz(3)" "\\$\[0-9\]* = 4"
-+# maps to foo::vary(1,1)
-+gdb_test "p vart(2,7)" "\\$\[0-9\]* = 8"
-+# maps to foo::vary(2,2)
-+gdb_test "p vart(3,8)" "\\$\[0-9\]* = 9"
-+# maps to foo::vary(1,3)
-+gdb_test "p vart(2,9)" "\\$\[0-9\]* = 10"
++#include <sys/sdt.h>
++
++/* We only support SystemTap and only the v3 form. */
++#if _SDT_NOTE_TYPE != 3
++#error "not using SystemTap v3 probes"
++#endif
++
++void
++m1 (void)
++{
++ if (TEST2)
++ STAP_PROBE (teste, two);
++}
+
-+set test "quit #1"
-+gdb_test_multiple "quit" $test {
-+ -re "The program is running. Quit anyway \\(and kill it\\)\\? \\(y or n\\) " {
-+ pass $test
-+ }
++void
++m2 (void)
++{
++ if (TEST2)
++ STAP_PROBE (teste, two);
+}
-+set test "quit #2"
-+gdb_test_multiple "y" $test {
-+ eof {
-+ pass $test
-+ }
++
++int
++f (int x)
++{
++ if (TEST)
++ STAP_PROBE1(teste, user, x);
++ return x+5;
+}
-diff --git a/gdb/testsuite/gdb.fortran/dynamic.f90 b/gdb/testsuite/gdb.fortran/dynamic.f90
-new file mode 100644
-index 0000000..0f43564
---- /dev/null
-+++ b/gdb/testsuite/gdb.fortran/dynamic.f90
-@@ -0,0 +1,98 @@
-+! Copyright 2007 Free Software Foundation, Inc.
-+!
-+! 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 2 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, write to the Free Software
-+! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-+!
-+! Ihis file is the Fortran source file for dynamic.exp.
-+! Original file written by Jakub Jelinek <jakub@redhat.com>.
-+! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
-+subroutine baz
-+ real, target, allocatable :: varx (:, :, :)
-+ real, pointer :: varv (:, :, :)
-+ real, target :: varu (1, 2, 3)
-+ logical :: l
-+ allocate (varx (1:6, 5:15, 17:28)) ! varx-init
-+ l = allocated (varx)
-+ varx(:, :, :) = 6 ! varx-allocated
-+ varx(1, 5, 17) = 7
-+ varx(2, 6, 18) = 8
-+ varx(6, 15, 28) = 9
-+ varv => varx ! varx-filled
-+ l = associated (varv)
-+ varv(3, 7, 19) = 10 ! varv-associated
-+ varv => null () ! varv-filled
-+ l = associated (varv)
-+ deallocate (varx) ! varv-deassociated
-+ l = allocated (varx)
-+ varu(:, :, :) = 10 ! varx-deallocated
-+ allocate (varv (1:6, 5:15, 17:28))
-+ l = associated (varv)
-+ varv(:, :, :) = 6
-+ varv(1, 5, 17) = 7
-+ varv(2, 6, 18) = 8
-+ varv(6, 15, 28) = 9
-+ deallocate (varv)
-+ l = associated (varv)
-+ varv => varu
-+ varv(1, 1, 1) = 6
-+ varv(1, 2, 3) = 7
-+ l = associated (varv)
-+end subroutine baz
-+subroutine foo (vary, varw)
-+ real :: vary (:, :)
-+ real :: varw (:, :, :)
-+ vary(:, :) = 4 ! vary-passed
-+ vary(1, 1) = 8
-+ vary(2, 2) = 9
-+ vary(1, 3) = 10
-+ varw(:, :, :) = 5 ! vary-filled
-+ varw(1, 1, 1) = 6
-+ varw(2, 2, 2) = 7 ! varw-almostfilled
-+end subroutine foo
-+subroutine bar (varz, vart)
-+ real :: varz (*)
-+ real :: vart (2:11, 7:*)
-+ varz(1:3) = 4
-+ varz(2) = 5 ! varz-almostfilled
-+ vart(2,7) = vart(2,7)
-+end subroutine bar
-+program test
-+ interface
-+ subroutine foo (vary, varw)
-+ real :: vary (:, :)
-+ real :: varw (:, :, :)
-+ end subroutine
-+ end interface
-+ interface
-+ subroutine bar (varz, vart)
-+ real :: varz (*)
-+ real :: vart (2:11, 7:*)
-+ end subroutine
-+ end interface
-+ real :: x (10, 10), y (5), z(8, 8, 8)
-+ x(:,:) = 1
-+ y(:) = 2
-+ z(:,:,:) = 3
-+ call baz
-+ call foo (x, z(2:6, 4:7, 6:8))
-+ call bar (y, x)
-+ if (x (1, 1) .ne. 8 .or. x (2, 2) .ne. 9 .or. x (1, 2) .ne. 4) call abort
-+ if (x (1, 3) .ne. 10) call abort
-+ if (z (2, 4, 6) .ne. 6 .or. z (3, 5, 7) .ne. 7 .or. z (2, 4, 7) .ne. 5) call abort
-+ if (any (y .ne. (/4, 5, 4, 2, 2/))) call abort
-+ call foo (transpose (x), z)
-+ if (x (1, 1) .ne. 8 .or. x (2, 2) .ne. 9 .or. x (1, 2) .ne. 4) call abort
-+ if (x (3, 1) .ne. 10) call abort
-+end
-diff --git a/gdb/testsuite/gdb.fortran/logical.exp b/gdb/testsuite/gdb.fortran/logical.exp
-new file mode 100644
-index 0000000..ef76f43
---- /dev/null
-+++ b/gdb/testsuite/gdb.fortran/logical.exp
-@@ -0,0 +1,44 @@
-+# Copyright 2007 Free Software Foundation, Inc.
++int
++main()
++{
++ f(f(23));
++ m1();
++ m2();
++}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.base/stap-probe.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.base/stap-probe.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,72 @@
++# Copyright (C) 2011 Free Software Foundation, Inc.
+
+# 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 2 of the License, or
++# 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, write to the Free Software
-+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
++# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
-+# This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>.
++set testfile stap-probe
+
-+set testfile "logical"
-+set srcfile ${testfile}.f90
-+set binfile ${objdir}/${subdir}/${testfile}
++# Run the tests. We run the tests two different ways: once with a
++# plain probe, and once with a probe that has an associated semaphore.
++# This returns -1 on failure to compile or start, 0 otherwise.
++proc stap_test {{arg ""}} {
++ global testfile hex
+
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
-+ untested "Couldn't compile ${srcfile}"
++ if {$arg != ""} {
++ set arg "additional_flags=$arg"
++ set addendum ", with semaphore"
++ } else {
++ set addendum ", no semaphore"
++ }
++
++ if {[prepare_for_testing ${testfile}.exp ${testfile} ${testfile}.c \
++ [concat $arg debug]]} {
++ return -1
++ }
++
++ if ![runto_main] {
++ return -1
++ }
++
++ gdb_test "print \$_probe_argc" "No SystemTap probe at PC $hex" \
++ "check argument not at probe point$addendum"
++
++ gdb_test "info probes" \
++ "teste *user *$hex .*" \
++ "info probes$addendum"
++
++ if {[runto "probe:teste:user"]} {
++ pass "run to probe:teste:user$addendum"
++ } else {
++ fail "run to probe:teste:user$addendum"
++ }
++
++ # Test probe arguments.
++ gdb_test "print \$_probe_argc" " = 1" "print \$_probe_argc$addendum"
++ gdb_test "print \$_probe_arg0 == x" " = 1" "check \$_probe_arg0$addendum"
++ gdb_test "print \$_probe_arg1" \
++ "Invalid probe argument 1 -- probe has 1 arguments available" \
++ "check \$_probe_arg1$addendum"
++
++ # Set a breakpoint with multiple probe locations.
++ gdb_test "break probe:teste:two" \
++ "Breakpoint .* at $hex.*2 locations.*" \
++ "set multi-location probe breakpoint$addendum"
++
++ return 0
++}
++
++if {[stap_test] == -1} {
++ untested stap-probe.exp
+ return -1
+}
++stap_test "-DUSE_PROBES"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.base/vla-overflow.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.base/vla-overflow.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,30 @@
++/* This testcase is part of GDB, the GNU debugger.
+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
++ Copyright 2008 Free Software Foundation, Inc.
+
-+if ![runto MAIN__] then {
-+ perror "couldn't run to breakpoint MAIN__"
-+ continue
-+}
++ 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.
+
-+gdb_breakpoint [gdb_get_line_number "stop-here"]
-+gdb_continue_to_breakpoint "stop-here"
-+gdb_test "p l" " = \\.TRUE\\."
-+gdb_test "p l1" " = \\.TRUE\\."
-+gdb_test "p l2" " = \\.TRUE\\."
-+gdb_test "p l4" " = \\.TRUE\\."
-+gdb_test "p l8" " = \\.TRUE\\."
-diff --git a/gdb/testsuite/gdb.fortran/logical.f90 b/gdb/testsuite/gdb.fortran/logical.f90
-new file mode 100644
-index 0000000..4229304
---- /dev/null
-+++ b/gdb/testsuite/gdb.fortran/logical.f90
-@@ -0,0 +1,33 @@
-+! Copyright 2008 Free Software Foundation, Inc.
-+!
-+! 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 2 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, write to the Free Software
-+! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-+!
-+! Ihis file is the Fortran source file for dynamic.exp.
-+! Original file written by Jakub Jelinek <jakub@redhat.com>.
-+! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
++ 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.
+
-+program test
-+ logical :: l
-+ logical (kind=1) :: l1
-+ logical (kind=2) :: l2
-+ logical (kind=4) :: l4
-+ logical (kind=8) :: l8
-+ l = .TRUE.
-+ l1 = .TRUE.
-+ l2 = .TRUE.
-+ l4 = .TRUE.
-+ l8 = .TRUE.
-+ l = .FALSE. ! stop-here
-+end
-diff --git a/gdb/testsuite/gdb.fortran/string.exp b/gdb/testsuite/gdb.fortran/string.exp
-new file mode 100644
-index 0000000..ab72206
---- /dev/null
-+++ b/gdb/testsuite/gdb.fortran/string.exp
-@@ -0,0 +1,72 @@
++ You should have received a copy of the GNU General Public License
++ along with this program. If not, see <http://www.gnu.org/licenses/>. */
++
++#include <stdlib.h>
++
++int
++main (int argc, char **argv)
++{
++ int array[argc];
++
++ array[0] = array[0];
++
++ abort ();
++
++ return 0;
++}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.base/vla-overflow.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.base/vla-overflow.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,109 @@
+# Copyright 2008 Free Software Foundation, Inc.
+
+# 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 2 of the License, or
++# 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, write to the Free Software
-+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
++# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
-+# This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>.
++# We could crash in:
++# #0 block_linkage_function (bl=0x0) at ../../gdb/block.c:69
++# #1 in dwarf_block_get_frame_base (...) at ../../gdb/dwarf2block.c:97
++# 97 framefunc = block_linkage_function (get_frame_block (frame, NULL));
++# #2 in execute_stack_op (...) at ../../gdb/dwarf2expr.c:496
++# #3 in dwarf_block_exec_core () at ../../gdb/dwarf2block.c:156
++# #4 dwarf_block_exec (...) at ../../gdb/dwarf2block.c:206
++# #5 in range_type_count_bound_internal (...) at ../../gdb/gdbtypes.c:1430
++# #6 in create_array_type (...) at ../../gdb/gdbtypes.c:840
++# ...
++# #21 in psymtab_to_symtab (...) at ../../gdb/symfile.c:292
++# ...
++# #29 in backtrace_command_1 () at ../../gdb/stack.c:1273
+
-+# This file is part of the gdb testsuite. It contains tests for Fortran
-+# strings with dynamic length.
++set testfile vla-overflow
++set shfile ${objdir}/${subdir}/${testfile}-gdb.sh
++set srcfile ${testfile}.c
++set binfile ${objdir}/${subdir}/${testfile}
++if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
++ untested "Couldn't compile test program"
++ return -1
++}
++
++set f [open "|getconf PAGESIZE" "r"]
++gets $f pagesize
++close $f
++
++gdb_exit
++gdb_start
++gdb_reinitialize_dir $srcdir/$subdir
++gdb_load ${binfile}
++
++set pid_of_gdb [exp_pid -i [board_info host fileid]]
++
++if { [runto_main] < 0 } {
++ untested vla-overflow
++ return -1
++}
+
-+set testfile "string"
-+set srcfile ${testfile}.f90
-+set binfile ${objdir}/${subdir}/${testfile}
++# Get the GDB memory size when we stay at main.
+
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
-+ untested "Couldn't compile ${srcfile}"
-+ return -1
++proc memory_v_pages_get {} {
++ global pid_of_gdb pagesize
++ set fd [open "/proc/$pid_of_gdb/statm"]
++ gets $fd line
++ close $fd
++ # number of pages of virtual memory
++ scan $line "%d" drs
++ return $drs
+}
+
++set pages_found [memory_v_pages_get]
++
++# s390x with glibc-debuginfo.s390x installed used approx. 16MB.
++set mb_reserve 40
++verbose -log "pages_found = $pages_found, mb_reserve = $mb_reserve"
++set kb_found [expr $pages_found * $pagesize / 1024]
++set kb_permit [expr $kb_found + 1 * 1024 + $mb_reserve * 1024]
++verbose -log "kb_found = $kb_found, kb_permit = $kb_permit"
++
++# Create the ulimit wrapper.
++set f [open $shfile "w"]
++puts $f "#! /bin/sh"
++puts $f "ulimit -v $kb_permit"
++puts $f "exec $GDB \"\$@\""
++close $f
++remote_exec host "chmod +x $shfile"
++
+gdb_exit
++set GDBold $GDB
++set GDB "$shfile"
+gdb_start
++set GDB $GDBold
++
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
-+if ![runto MAIN__] then {
-+ perror "couldn't run to breakpoint MAIN__"
-+ continue
-+}
++set pid_of_gdb [exp_pid -i [board_info host fileid]]
+
-+gdb_breakpoint [gdb_get_line_number "var-init"]
-+gdb_continue_to_breakpoint "var-init"
-+gdb_test "ptype c" "type = character(\\(kind=1\\)|\\*1)"
-+gdb_test "ptype d" "type = character(\\(kind=8\\)|\\*8)"
-+gdb_test "ptype e" "type = character(\\(kind=4\\)|\\*4)"
-+gdb_test "ptype f" "type = character(\\(kind=4\\)|\\*4) \\(7,8:10\\)"
-+gdb_test "ptype *e" "Attempt to take contents of a non-pointer value."
-+gdb_test "ptype *f" "type = character(\\(kind=4\\)|\\*4) \\(7\\)"
-+gdb_test "p c" "\\$\[0-9\]* = 'c'"
-+gdb_test "p d" "\\$\[0-9\]* = 'd '"
-+gdb_test "p e" "\\$\[0-9\]* = 'g '"
-+gdb_test "p f" "\\$\[0-9\]* = \\(\\( 'h ', 'h ', 'h ', 'h ', 'h ', 'h ', 'h '\\) \\( 'h ', 'h ', 'h ', 'h ', 'h ', 'h ', 'h '\\) \\( 'h ', 'h ', 'h ', 'h ', 'h ', 'h ', 'h '\\) \\)"
-+gdb_test "p *e" "Attempt to take contents of a non-pointer value."
-+gdb_test "p *f" "Attempt to take contents of a non-pointer value."
++# Check the size again after the second run.
++# We must not stop in main as it would cache `array' and never crash later.
+
-+gdb_breakpoint [gdb_get_line_number "var-finish"]
-+gdb_continue_to_breakpoint "var-finish"
-+gdb_test "p e" "\\$\[0-9\]* = 'e '" "p e re-set"
-+gdb_test "p f" "\\$\[0-9\]* = \\(\\( 'f ', 'f ', 'f ', 'f ', 'f ', 'f ', 'f '\\) \\( 'f2 ', 'f ', 'f ', 'f ', 'f ', 'f ', 'f '\\) \\( 'f ', 'f ', 'f ', 'f ', 'f ', 'f ', 'f '\\) \\)" "p *f re-set"
++gdb_run_cmd
+
-+set test "quit #1"
-+gdb_test_multiple "quit" $test {
-+ -re "The program is running. Quit anyway \\(and kill it\\)\\? \\(y or n\\) " {
-+ pass $test
-+ }
-+}
-+set test "quit #2"
-+gdb_test_multiple "y" $test {
-+ eof {
-+ pass $test
-+ }
-+}
-diff --git a/gdb/testsuite/gdb.fortran/string.f90 b/gdb/testsuite/gdb.fortran/string.f90
-new file mode 100644
-index 0000000..226dc5d
---- /dev/null
-+++ b/gdb/testsuite/gdb.fortran/string.f90
-@@ -0,0 +1,37 @@
-+! Copyright 2008 Free Software Foundation, Inc.
-+!
-+! 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 2 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, write to the Free Software
-+! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-+!
-+! Ihis file is the Fortran source file for dynamic.exp.
-+! Original file written by Jakub Jelinek <jakub@redhat.com>.
-+! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
++verbose -log "kb_found before abort() = [expr [memory_v_pages_get] * $pagesize / 1024]"
+
-+subroutine foo (e, f)
-+ character (len=1) :: c
-+ character (len=8) :: d
-+ character (len=*) :: e
-+ character (len=*) :: f (1:7, 8:10)
-+ c = 'c'
-+ d = 'd'
-+ e = 'e' ! var-init
-+ f = 'f'
-+ f(1,9) = 'f2'
-+ c = 'c' ! var-finish
-+end subroutine foo
-+ character (len=4) :: g, h (1:7, 8:10)
-+ g = 'g'
-+ h = 'h'
-+ call foo (g, h)
-+end
-diff --git a/gdb/testsuite/gdb.gdb/selftest.exp b/gdb/testsuite/gdb.gdb/selftest.exp
-index 495ae45..d08d7a4 100644
---- a/gdb/testsuite/gdb.gdb/selftest.exp
-+++ b/gdb/testsuite/gdb.gdb/selftest.exp
-@@ -95,6 +95,10 @@ proc do_steps_and_nexts {} {
- set description "step over ttyarg initialization"
- set command "step"
- }
-+ -re ".*python_script = 0.*$gdb_prompt $" {
-+ set description "step over python_script initialization"
-+ set command "step"
-+ }
- -re ".*time_at_startup = get_run_time.*$gdb_prompt $" {
- set description "next over get_run_time and everything it calls"
- set command "next"
-diff --git a/gdb/testsuite/gdb.opt/array-from-register-func.c b/gdb/testsuite/gdb.opt/array-from-register-func.c
-new file mode 100644
-index 0000000..729f457
---- /dev/null
-+++ b/gdb/testsuite/gdb.opt/array-from-register-func.c
-@@ -0,0 +1,22 @@
-+/* This file is part of GDB, the GNU debugger.
++gdb_test "" "Program received signal SIGABRT, Aborted..*" "Enter abort()"
+
-+ Copyright 2009 Free Software Foundation, Inc.
++verbose -log "kb_found in abort() = [expr [memory_v_pages_get] * $pagesize / 1024]"
++
++# `abort' can get expressed as `*__GI_abort'.
++gdb_test "bt" "in \[^ \]*abort \\(.* in main \\(.*" "Backtrace after abort()"
++
++verbose -log "kb_found in bt after abort() = [expr [memory_v_pages_get] * $pagesize / 1024]"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.base/vla.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.base/vla.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,55 @@
++/* This testcase is part of GDB, the GNU debugger.
++
++ Copyright 2008 Free Software Foundation, Inc.
+
+ 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
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
-+int
-+func (int *arr)
++#include <string.h>
++
++void
++marker (void)
+{
-+ return arr[0];
+}
-diff --git a/gdb/testsuite/gdb.opt/array-from-register.c b/gdb/testsuite/gdb.opt/array-from-register.c
-new file mode 100644
-index 0000000..3090e7e
---- /dev/null
-+++ b/gdb/testsuite/gdb.opt/array-from-register.c
-@@ -0,0 +1,28 @@
-+/* This file is part of GDB, the GNU debugger.
+
-+ Copyright 2009 Free Software Foundation, Inc.
++void
++bar (char *a, char *b, char *c, int size)
++{
++ memset (a, '1', size);
++ memset (b, '2', size);
++ memset (c, '3', 48);
++}
+
-+ 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.
++void
++foo (int size)
++{
++ char temp1[size];
++ char temp3[48];
+
-+ 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.
++ temp1[size - 1] = '\0';
++ {
++ char temp2[size];
+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
++ bar (temp1, temp2, temp3, size);
+
-+extern int func (int *arr);
++ marker (); /* break-here */
++ }
++}
+
+int
+main (void)
+{
-+ int arr[] = { 42 };
-+
-+ func (arr);
-+
++ foo (26);
++ foo (78);
+ return 0;
+}
-diff --git a/gdb/testsuite/gdb.opt/array-from-register.exp b/gdb/testsuite/gdb.opt/array-from-register.exp
-new file mode 100644
-index 0000000..f2de718
---- /dev/null
-+++ b/gdb/testsuite/gdb.opt/array-from-register.exp
-@@ -0,0 +1,33 @@
-+# Copyright 2009 Free Software Foundation, Inc.
-+#
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.base/vla.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.base/vla.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,62 @@
++# Copyright 2008 Free Software Foundation, Inc.
++
+# 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 2 of the License, or
++# 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,
+# 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, write to the Free Software
-+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-+#
-+# This file is part of the gdb testsuite.
++# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
-+if { [prepare_for_testing array-from-register.exp "array-from-register" \
-+ {array-from-register.c array-from-register-func.c} \
-+ {debug optimize=-O2}] } {
++set testfile vla
++set srcfile ${testfile}.c
++set binfile ${objdir}/${subdir}/${testfile}
++if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
++ untested "Couldn't compile test program"
+ return -1
+}
+
-+if ![runto func] then {
++gdb_exit
++gdb_start
++gdb_reinitialize_dir $srcdir/$subdir
++gdb_load ${binfile}
++
++if ![runto_main] {
++ untested vla
+ return -1
+}
+
-+gdb_test "p arr" "\\$\[0-9\]+ = \\(int \\*\\) *0x\[0-9a-f\]+"
++gdb_breakpoint [gdb_get_line_number "break-here"]
+
-+# Seen regression:
-+# Address requested for identifier "arr" which is in register $rdi
-+gdb_test "p arr\[0\]" "\\$\[0-9\]+ = 42"
-diff --git a/gdb/testsuite/gdb.python/Makefile.in b/gdb/testsuite/gdb.python/Makefile.in
-index 79be9e7..c49f713 100644
---- a/gdb/testsuite/gdb.python/Makefile.in
-+++ b/gdb/testsuite/gdb.python/Makefile.in
-@@ -1,7 +1,7 @@
- VPATH = @srcdir@
- srcdir = @srcdir@
-
--EXECUTABLES = python-value
-+EXECUTABLES = python-value python-prettyprint python-template
-
- all info install-info dvi install uninstall installcheck check:
- @echo "Nothing to be done for $@..."
-diff --git a/gdb/testsuite/gdb.python/find.c b/gdb/testsuite/gdb.python/find.c
-new file mode 100644
-index 0000000..35ddd8c
---- /dev/null
-+++ b/gdb/testsuite/gdb.python/find.c
-@@ -0,0 +1,64 @@
-+/* Testcase for the search_memory Python function.
-+ This testcase is part of GDB, the GNU debugger.
++gdb_continue_to_breakpoint "break-here"
+
-+ Copyright 2009 Free Software Foundation, Inc.
++gdb_test "whatis temp1" "type = char \\\[variable\\\]" "first: whatis temp1"
++gdb_test "whatis temp2" "type = char \\\[variable\\\]" "first: whatis temp2"
++gdb_test "whatis temp3" "type = char \\\[48\\\]" "first: whatis temp3"
++
++gdb_test "ptype temp1" "type = char \\\[26\\\]" "first: ptype temp1"
++gdb_test "ptype temp2" "type = char \\\[26\\\]" "first: ptype temp2"
++gdb_test "ptype temp3" "type = char \\\[48\\\]" "first: ptype temp3"
++
++gdb_test "p temp1" " = '1' <repeats 26 times>" "first: print temp1"
++gdb_test "p temp2" " = '2' <repeats 26 times>" "first: print temp2"
++gdb_test "p temp3" " = '3' <repeats 48 times>" "first: print temp3"
++
++gdb_continue_to_breakpoint "break-here"
++
++gdb_test "whatis temp1" "type = char \\\[variable\\\]" "second: whatis temp1"
++gdb_test "whatis temp2" "type = char \\\[variable\\\]" "second: whatis temp2"
++gdb_test "whatis temp3" "type = char \\\[48\\\]" "second: whatis temp3"
++
++gdb_test "ptype temp1" "type = char \\\[78\\\]" "second: ptype temp1"
++gdb_test "ptype temp2" "type = char \\\[78\\\]" "second: ptype temp2"
++gdb_test "ptype temp3" "type = char \\\[48\\\]" "second: ptype temp3"
++
++gdb_test "p temp1" " = '1' <repeats 78 times>" "second: print temp1"
++gdb_test "p temp2" " = '2' <repeats 78 times>" "second: print temp2"
++gdb_test "p temp3" " = '3' <repeats 48 times>" "second: print temp3"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.cp/nextoverthrow.exp
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/testsuite/gdb.cp/nextoverthrow.exp 2011-01-01 16:33:44.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.cp/nextoverthrow.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -53,6 +53,17 @@ gdb_test_multiple "print _Unwind_DebugHo
+ }
+ }
+ if {!$ok} {
++ gdb_test_multiple "info probe" "check for stap probe in unwinder" {
++ -re ".*libgcc.*unwind.*\r\n$gdb_prompt $" {
++ pass "check for stap probe in unwinder"
++ set ok 1
++ }
++ -re "\r\n$gdb_prompt $" {
++ }
++ }
++}
++
++if {!$ok} {
+ unsupported "nextoverthrow.exp could not find _Unwind_DebugHook"
+ return -1
+ }
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.dwarf2/dw2-bound-loclist.S
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.dwarf2/dw2-bound-loclist.S 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,246 @@
++/* This testcase is part of GDB, the GNU debugger.
++
++ Copyright 2010 Free Software Foundation, Inc.
+
+ 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
+ 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/>.
-+
-+ Please email any bugs, comments, and/or additions to this file to:
-+ bug-gdb@gnu.org */
-+
-+/* Based on the gdb.base/find.c testcase. */
-+
-+#include <stdlib.h>
-+#include <stdint.h>
-+
-+#define CHUNK_SIZE 16000 /* same as findcmd.c's */
-+#define BUF_SIZE (2 * CHUNK_SIZE) /* at least two chunks */
-+
-+static int8_t int8_search_buf[100];
-+static int16_t int16_search_buf[100];
-+static int32_t int32_search_buf[100];
-+static int64_t int64_search_buf[100];
-+
-+static char *search_buf;
-+static int search_buf_size;
-+
-+static int x;
-+
-+static void
-+stop_here ()
-+{
-+ x = 1; // stop here
-+}
++ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
-+static void
-+init_bufs ()
-+{
-+ search_buf_size = BUF_SIZE;
-+ search_buf = malloc (search_buf_size);
-+ if (search_buf == NULL)
-+ exit (1);
-+ memset (search_buf, 'x', search_buf_size);
-+}
++/* Debug information */
+
-+int
-+main ()
-+{
-+ init_bufs ();
++/* We will `break *main' at the very first instruction. */
++#define main_length 1
+
-+ stop_here ();
++ .section .data
++vardata:
++ /* See DW_OP_lit3 + 1 (0-based). */
++ .string "seennotseen"
+
-+ return 0;
-+}
-diff --git a/gdb/testsuite/gdb.python/find.exp b/gdb/testsuite/gdb.python/find.exp
-new file mode 100644
-index 0000000..dd9aabc
---- /dev/null
-+++ b/gdb/testsuite/gdb.python/find.exp
-@@ -0,0 +1,203 @@
-+# Copyright 2008, 2009 Free Software Foundation, Inc.
++ .section .debug_info
++.Lcu1_begin:
++ .4byte .Lcu1_end - .Lcu1_start /* Length of Compilation Unit */
++.Lcu1_start:
++ .2byte 2 /* DWARF version number */
++ .4byte .Ldebug_abbrev0 /* Offset Into Abbrev. Section */
++ .byte 4 /* Pointer Size (in bytes) */
++
++ /* CU die */
++ .uleb128 1 /* Abbrev: DW_TAG_compile_unit */
++ .4byte .Lproducer /* DW_AT_producer */
++ /* Use C++ to exploit a bug in parsing DW_AT_name "". */
++ .byte 4 /* DW_AT_language (C++) - */
++ .4byte main /* DW_AT_low_pc */
++ .byte main_length /* DW_AT_high_pc */
++
++.Larray_type:
++ .uleb128 2 /* Abbrev: DW_TAG_array_type */
++ .4byte .Lchar_type-.Lcu1_begin /* DW_AT_type */
++
++ .uleb128 3 /* Abbrev: DW_TAG_subrange_type */
++ .4byte .Luint_type-.Lcu1_begin /* DW_AT_type */
++ .byte 0 /* DW_AT_lower_bound */
++ .4byte .Llen_var-.Lcu1_begin /* DW_AT_upper_bound */
++ .byte 0 /* End of children of die */
++
++ /* DW_AT_upper_bound is referencing an optimized-out variable. */
++.Larrayb_type:
++ .uleb128 2 /* Abbrev: DW_TAG_array_type */
++ .4byte .Lchar_type-.Lcu1_begin /* DW_AT_type */
++
++ .uleb128 3 /* Abbrev: DW_TAG_subrange_type */
++ .4byte .Luint_type-.Lcu1_begin /* DW_AT_type */
++ .byte 0 /* DW_AT_lower_bound */
++ .4byte .Llenb_var-.Lcu1_begin /* DW_AT_upper_bound */
++ .byte 0 /* End of children of die */
++
++ /* DW_AT_upper_bound is referencing register. */
++.Larrayreg_type:
++ .uleb128 2 /* Abbrev: DW_TAG_array_type */
++ .4byte .Lchar_type-.Lcu1_begin /* DW_AT_type */
++
++ .uleb128 8 /* Abbrev: DW_TAG_subrange_type with block */
++ .4byte .Luint_type-.Lcu1_begin /* DW_AT_type */
++ .byte 0 /* DW_AT_lower_bound */
++ .byte 2f - 1f /* DW_AT_upper_bound */
++1: .byte 0x50 /* DW_OP_reg0 */
++2:
++ .byte 0 /* End of children of die */
++
++.Luint_type:
++ .uleb128 4 /* Abbrev: DW_TAG_base_type */
++ .4byte .Luint_str /* DW_AT_name */
++ .byte 4 /* DW_AT_byte_size */
++ .byte 7 /* DW_AT_encoding */
++
++.Lchar_type:
++ .uleb128 4 /* Abbrev: DW_TAG_base_type */
++ .4byte .Lchar_str /* DW_AT_name */
++ .byte 1 /* DW_AT_byte_size */
++ .byte 6 /* DW_AT_encoding */
++
++.Llen_var:
++ .uleb128 5 /* Abbrev: DW_TAG_variable artificial */
++ .byte 1 /* DW_AT_artificial */
++ .4byte .Luint_type-.Lcu1_begin /* DW_AT_type */
++ .4byte .Llen_loclist-.Lloclist /* DW_AT_location */
++
++ /* optimized-out variable for b_string. */
++.Llenb_var:
++ .uleb128 7 /* Abbrev: DW_TAG_variable artificial no DW_AT_location */
++ .byte 1 /* DW_AT_artificial */
++ .4byte .Luint_type-.Lcu1_begin /* DW_AT_type */
++
++ .uleb128 6 /* Abbrev: DW_TAG_variable DW_FORM_string */
++ .string "a_string" /* DW_AT_name */
++ .4byte .Larray_type-.Lcu1_begin /* DW_AT_type */
++ .byte 2f - 1f /* DW_AT_location */
++1: .byte 3 /* DW_OP_addr */
++ .4byte vardata /* <addr> */
++2:
++
++ /* DW_AT_upper_bound is referencing an optimized-out variable. */
++ .uleb128 6 /* Abbrev: DW_TAG_variable DW_FORM_string */
++ .string "b_string" /* DW_AT_name */
++ .4byte .Larrayb_type-.Lcu1_begin /* DW_AT_type */
++ .byte 2f - 1f /* DW_AT_location */
++1: .byte 3 /* DW_OP_addr */
++ .4byte vardata /* <addr> */
++2:
++
++ /* DW_AT_upper_bound is referencing register. */
++ .uleb128 6 /* Abbrev: DW_TAG_variable DW_FORM_string */
++ .string "reg_string" /* DW_AT_name */
++ .4byte .Larrayreg_type-.Lcu1_begin /* DW_AT_type */
++ .byte 2f - 1f /* DW_AT_location */
++1: .byte 3 /* DW_OP_addr */
++ .4byte vardata /* <addr> */
++2:
++
++ .byte 0 /* End of children of CU */
++.Lcu1_end:
++
++ .section .debug_loc
++.Lloclist:
++.Llen_loclist:
++ .4byte 0 # Location list begin address
++ .4byte main_length # Location list end address
++ .value 2f-1f # Location expression size
++1: .byte 0x33 # DW_OP_lit3
++ .byte 0x9f # DW_OP_stack_value
++2:
++ .quad 0x0 # Location list terminator begin (*.LLST2)
++ .quad 0x0 # Location list terminator end (*.LLST2)
++
++ .section .debug_abbrev
++.Ldebug_abbrev0:
++ .uleb128 1 /* Abbrev code */
++ .uleb128 0x11 /* DW_TAG_compile_unit */
++ .byte 0x1 /* has_children */
++ .uleb128 0x25 /* DW_AT_producer */
++ .uleb128 0xe /* DW_FORM_strp */
++ .uleb128 0x13 /* DW_AT_language */
++ .uleb128 0xb /* DW_FORM_data1 */
++ .uleb128 0x11 /* DW_AT_low_pc */
++ .uleb128 0x1 /* DW_FORM_addr */
++ .uleb128 0x12 /* DW_AT_high_pc */
++ .uleb128 0xb /* DW_FORM_data1 */
++ .byte 0x0 /* Terminator */
++ .byte 0x0 /* Terminator */
++
++ .uleb128 2 /* Abbrev code */
++ .uleb128 0x1 /* TAG: DW_TAG_array_type */
++ .byte 0x1 /* DW_children_yes */
++ .uleb128 0x49 /* DW_AT_type */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .byte 0x0 /* Terminator */
++ .byte 0x0 /* Terminator */
++
++ .uleb128 3 /* Abbrev code */
++ .uleb128 0x21 /* DW_TAG_subrange_type */
++ .byte 0x0 /* no children */
++ .uleb128 0x49 /* DW_AT_type */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .uleb128 0x22 /* DW_AT_lower_bound */
++ .uleb128 0xb /* DW_FORM_data1 */
++ .uleb128 0x2f /* DW_AT_upper_bound */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .byte 0x0 /* Terminator */
++ .byte 0x0 /* Terminator */
++
++ .uleb128 4 /* Abbrev code */
++ .uleb128 0x24 /* DW_TAG_base_type */
++ .byte 0x0 /* no_children */
++ .uleb128 0x3 /* DW_AT_name */
++ .uleb128 0xe /* DW_FORM_strp */
++ .uleb128 0xb /* DW_AT_byte_size */
++ .uleb128 0xb /* DW_FORM_data1 */
++ .uleb128 0x3e /* DW_AT_encoding */
++ .uleb128 0xb /* DW_FORM_data1 */
++ .byte 0x0 /* Terminator */
++ .byte 0x0 /* Terminator */
++
++ .uleb128 5 /* Abbrev code */
++ .uleb128 0x34 /* DW_TAG_variable */
++ .byte 0x0 /* no_children */
++ .uleb128 0x34 /* DW_AT_artificial */
++ .uleb128 0x0c /* DW_FORM_flag */
++ .uleb128 0x49 /* DW_AT_type */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .uleb128 0x02 /* DW_AT_location */
++ .uleb128 0x06 /* DW_FORM_data4 */
++ .byte 0x0 /* Terminator */
++ .byte 0x0 /* Terminator */
++
++ .uleb128 6 /* Abbrev code */
++ .uleb128 0x34 /* DW_TAG_variable */
++ .byte 0x0 /* no_children */
++ .uleb128 0x3 /* DW_AT_name */
++ .uleb128 0x8 /* DW_FORM_string */
++ .uleb128 0x49 /* DW_AT_type */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .uleb128 0x2 /* DW_AT_location */
++ .uleb128 0xa /* DW_FORM_block1 */
++ .byte 0x0 /* Terminator */
++ .byte 0x0 /* Terminator */
++
++ .uleb128 7 /* Abbrev code */
++ .uleb128 0x34 /* DW_TAG_variable */
++ .byte 0x0 /* no_children */
++ .uleb128 0x34 /* DW_AT_artificial */
++ .uleb128 0x0c /* DW_FORM_flag */
++ .uleb128 0x49 /* DW_AT_type */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .byte 0x0 /* Terminator */
++ .byte 0x0 /* Terminator */
++
++ .uleb128 8 /* Abbrev code */
++ .uleb128 0x21 /* DW_TAG_subrange_type with block */
++ .byte 0x0 /* no children */
++ .uleb128 0x49 /* DW_AT_type */
++ .uleb128 0x13 /* DW_FORM_ref4 */
++ .uleb128 0x22 /* DW_AT_lower_bound */
++ .uleb128 0xb /* DW_FORM_data1 */
++ .uleb128 0x2f /* DW_AT_upper_bound */
++ .uleb128 0xa /* DW_FORM_block1 */
++ .byte 0x0 /* Terminator */
++ .byte 0x0 /* Terminator */
++
++ .byte 0x0 /* Terminator */
++
++/* String table */
++ .section .debug_str
++.Lproducer:
++ .string "GNU C 3.3.3"
++.Lchar_str:
++ .string "char"
++.Luint_str:
++ .string "unsigned int"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.dwarf2/dw2-bound-loclist.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.dwarf2/dw2-bound-loclist.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,54 @@
++# Copyright 2010 Free Software Foundation, Inc.
+
+# 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
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
-+# This tests the search_memory Python function.
-+# Based on the gdb.base/find.exp testcase.
-+
-+if $tracelevel then {
-+ strace $tracelevel
-+}
++# Test printing variable with dynamic bounds which reference a different
++# (artificial in the GCC case) variable containing loclist as its location.
++# This testcase uses value (not address) of the referenced variable:
++# http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43762
+
-+# Usage: gdb_py_test_multiple NAME INPUT RESULT {INPUT RESULT}...
-+# Run a test named NAME, consisting of multiple lines of input.
-+# After each input line INPUT, search for result line RESULT.
-+# Succeed if all results are seen; fail otherwise.
-+proc gdb_py_test_multiple {name args} {
-+ global gdb_prompt
-+ foreach {input result} $args {
-+ if {[gdb_test_multiple $input "$name - $input" {
-+ -re "\[\r\n\]*($result)\[\r\n\]+($gdb_prompt | *>)$" {
-+ pass "$name - $input"
-+ }
-+ }]} {
-+ return 1
-+ }
-+ }
++# This test can only be run on targets which support DWARF-2 and use gas.
++# For now pick a sampling of likely targets.
++if {![istarget *-*-linux*]
++ && ![istarget *-*-gnu*]
++ && ![istarget *-*-elf*]
++ && ![istarget *-*-openbsd*]
++ && ![istarget arm-*-eabi*]
++ && ![istarget powerpc-*-eabi*]} {
+ return 0
+}
+
-+set testfile "find"
-+set srcfile ${testfile}.c
-+set binfile ${objdir}/${subdir}/${testfile}
-+
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] != "" } {
-+ untested find.exp
++set testfile dw2-bound-loclist
++if { [prepare_for_testing ${testfile}.exp ${testfile} [list ${testfile}.S main.c] {}] } {
+ return -1
+}
+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+gdb_load ${binfile}
-+
-+gdb_test_multiple "python print 'hello, world!'" "verify python support" {
-+ -re "not supported.*$gdb_prompt $" {
-+ unsupported "python support is disabled"
-+ return -1
-+ }
-+ -re "$gdb_prompt $" {}
-+}
++# Verify it behaves at least as an unbound array without inferior.
+
-+gdb_test "break $srcfile:stop_here" \
-+ "Breakpoint.*at.* file .*$srcfile, line.*" \
-+ "breakpoint function in file"
++gdb_test "p a_string" { = 0x[0-9a-f]+ "seennotseen"}
++gdb_test "ptype a_string" {type = char \[\]}
+
-+gdb_run_cmd
-+gdb_expect {
-+ -re "Breakpoint \[0-9\]+,.*stop_here.* at .*$srcfile:.*$gdb_prompt $" {
-+ pass "run until function breakpoint"
-+ }
-+ -re "$gdb_prompt $" {
-+ fail "run until function breakpoint"
-+ }
-+ timeout {
-+ fail "run until function breakpoint (timeout)"
-+ }
++# Not runto_main as dw2-bound-loclist.S handles only the first byte of main.
++if ![runto "*main"] {
++ return -1
+}
+
-+# We've now got the target program in a state where we can test "find".
-+
-+set hex_number {0x[0-9a-fA-F][0-9a-fA-F]*}
-+set dec_number {[0-9]+}
-+set history_prefix {[$][0-9]* = }
-+set newline {[\r\n]+}
-+set pattern_not_found "${newline}.]"
-+set one_pattern_found "${newline}.${dec_number}L]"
-+set two_patterns_found "${newline}.${dec_number}L, ${dec_number}L]"
-+
-+# Test string pattern.
-+
-+gdb_test "set *(int32_t*) &int8_search_buf\[10\] = 0x61616161" "" ""
-+gdb_test "py search_buf = gdb.selected_frame ().read_var ('int8_search_buf')" "" ""
-+gdb_test "py start_addr = search_buf.address ()" "" ""
-+gdb_test "py length = search_buf.type ().sizeof ()" "" ""
-+
-+gdb_test "py print gdb.search_memory (start_addr, length, 'aaa')" \
-+ "${two_patterns_found}" "find string pattern"
-+
-+# Test not finding pattern because search range too small, with
-+# potential find at the edge of the range.
-+
-+gdb_test "py print gdb.search_memory (start_addr, 10+3, 'aaaa')" \
-+ "${pattern_not_found}" "pattern not found at end of range"
-+
-+# Increase the search range by 1 and we should find the pattern.
-+
-+gdb_test "py print gdb.search_memory (start_addr, 10+3+1, \['a', 'a', 'a', 'a'\])" \
-+ "${one_pattern_found}" "pattern found at end of range"
-+
-+# Test max-count with size, with different parameter position
-+
-+gdb_test "py print gdb.search_memory (start_addr, length, \[0x61, 0x61\], 1, 1)" \
-+ "${one_pattern_found}" "size = 1, max_count = 1"
-+
-+gdb_test "py print gdb.search_memory (start_addr, length, \[0x61, 0x61\], 1, 2)" \
-+ "${two_patterns_found}" "size = 1, max_count = 2, normal ordering"
-+
-+gdb_test "py print gdb.search_memory (start_addr, length, \[0x61, 0x61\], size = 1, max_count = 2)" \
-+ "${two_patterns_found}" "size = 1, max_count = 2, normal ordering, with keywords"
-+
-+gdb_test "py print gdb.search_memory (start_addr, length, \[0x61, 0x61\], max_count = 2, size = 1)" \
-+ "${two_patterns_found}" "size = 1, max_count = 2, inverted ordering"
-+
-+gdb_test "py print gdb.search_memory (start_addr, length, \['a', 'a'\], max_count = 2)" \
-+ "${two_patterns_found}" "max_count = 2, with keyword"
-+
-+# Test 16-bit pattern.
-+
-+gdb_test "set int16_search_buf\[10\] = 0x1234" "" ""
-+gdb_test "py search_buf = gdb.selected_frame ().read_var ('int16_search_buf')" "" ""
-+gdb_test "py start_addr = search_buf.address ()" "" ""
-+gdb_test "py length = search_buf.type ().sizeof ()" "" ""
-+gdb_test "py pattern = gdb.parse_and_eval ('(int16_t) 0x1234')" "" ""
-+
-+gdb_test "py print gdb.search_memory (start_addr, length, 0x1234, 2)" \
-+ "${one_pattern_found}" "find 16-bit pattern, with python pattern"
-+
-+gdb_test "py print gdb.search_memory (start_addr, length, pattern)" \
-+ "${one_pattern_found}" "find 16-bit pattern, with value pattern"
-+
-+# Test 32-bit pattern.
-+
-+gdb_test "set int32_search_buf\[10\] = 0x12345678" "" ""
-+gdb_test "py search_buf = gdb.selected_frame ().read_var ('int32_search_buf')" "" ""
-+gdb_test "py start_addr = search_buf.address ()" "" ""
-+gdb_test "py length = search_buf.type ().sizeof ()" "" ""
-+gdb_test "py pattern = gdb.parse_and_eval ('(int32_t) 0x12345678')" "" ""
-+
-+gdb_test "py print gdb.search_memory (start_addr, length, 0x12345678, 4)" \
-+ "${one_pattern_found}" "find 32-bit pattern, with python pattern"
-+gdb_test "py print gdb.search_memory (start_addr, length, pattern)" \
-+ "${one_pattern_found}" "find 32-bit pattern, with value pattern"
-+
-+# Test 64-bit pattern.
++gdb_test "p a_string" { = "seen"}
++gdb_test "ptype a_string" {type = char \[4\]}
+
-+gdb_test "set int64_search_buf\[10\] = 0xfedcba9876543210LL" "" ""
-+gdb_test "py search_buf = gdb.selected_frame ().read_var ('int64_search_buf')" "" ""
-+gdb_test "py start_addr = search_buf.address ()" "" ""
-+gdb_test "py length = search_buf.type ().sizeof ()" "" ""
-+gdb_test "py pattern = gdb.parse_and_eval ('(int64_t) 0xfedcba9876543210LL')" "" ""
++gdb_test "p b_string" { = (0x[0-9a-f]+ )?"seennotseen"}
++gdb_test "ptype b_string" {type = char \[\]}
+
-+gdb_test "py print gdb.search_memory (start_addr, length, 0xfedcba9876543210, 8)" \
-+ "${one_pattern_found}" "find 64-bit pattern, with python pattern"
-+gdb_test "py print gdb.search_memory (start_addr, length, pattern)" \
-+ "${one_pattern_found}" "find 64-bit pattern, with value pattern"
-+
-+# Test mixed-sized patterns.
-+
-+gdb_test "set *(int8_t*) &search_buf\[10\] = 0x62" "" ""
-+gdb_test "set *(int16_t*) &search_buf\[11\] = 0x6363" "" ""
-+gdb_test "set *(int32_t*) &search_buf\[13\] = 0x64646464" "" ""
-+gdb_test "py search_buf = gdb.selected_frame ().read_var ('search_buf')" "" ""
-+gdb_test "py start_addr = search_buf\[0\].address ()" "" ""
-+gdb_test "py pattern1 = gdb.parse_and_eval ('(int8_t) 0x62')" "" ""
-+gdb_test "py pattern2 = gdb.parse_and_eval ('(int16_t) 0x6363')" "" ""
-+gdb_test "py pattern3 = gdb.parse_and_eval ('(int32_t) 0x64646464')" "" ""
-+
-+gdb_test "py print gdb.search_memory (start_addr, 100, \[pattern1, pattern2, pattern3\])" \
-+ "${one_pattern_found}" "find mixed-sized pattern"
-+
-+# Test search spanning a large range, in the particular case of native
-+# targets, test the search spanning multiple chunks.
-+# Remote targets may implement the search differently.
++# The register contains unpredictable value - the array size.
++gdb_test "ptype reg_string" {type = char \[-?[0-9]+\]}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.dwarf2/dw2-stripped.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.dwarf2/dw2-stripped.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,42 @@
++/* This testcase is part of GDB, the GNU debugger.
+
-+set CHUNK_SIZE 16000 ;
++ Copyright 2004 Free Software Foundation, Inc.
+
-+gdb_test "set *(int32_t*) &search_buf\[0*${CHUNK_SIZE}+100\] = 0x12345678" "" ""
-+gdb_test "set *(int32_t*) &search_buf\[1*${CHUNK_SIZE}+100\] = 0x12345678" "" ""
-+gdb_test "py start_addr = gdb.selected_frame ().read_var ('search_buf')" "" ""
-+gdb_test "py length = gdb.selected_frame ().read_var ('search_buf_size')" "" ""
++ 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 2 of the License, or
++ (at your option) any later version.
+
-+gdb_test "py print gdb.search_memory (start_addr, length, 0x12345678, 4)" \
-+ "${two_patterns_found}" "search spanning large range"
++ 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, write to the Free Software
++ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
++ USA. */
+
-+# For native targets, test a pattern straddling a chunk boundary.
+
-+if [isnative] {
-+ gdb_test "set *(int32_t*) &search_buf\[${CHUNK_SIZE}-1\] = 0xfdb97531" "" ""
++/* The function `func1' traced into must have debug info on offset > 0;
++ (DW_UNSND (attr)). This is the reason of `func0' existence. */
+
-+ gdb_test "py print gdb.search_memory (start_addr, length, 0xfdb97531, 4)" \
-+ "${one_pattern_found}" "find pattern straddling chunk boundary"
-+}
-diff --git a/gdb/testsuite/gdb.python/python-cmd.exp b/gdb/testsuite/gdb.python/python-cmd.exp
-index 6c73ff2..f6ef938 100644
---- a/gdb/testsuite/gdb.python/python-cmd.exp
-+++ b/gdb/testsuite/gdb.python/python-cmd.exp
-@@ -92,6 +92,32 @@ gdb_py_test_multiple "input subcommand" \
-
- gdb_test "prefix_cmd subcmd ugh" "subcmd output, arg = ugh" "call subcmd"
-
-+# Test prefix command using keyword arguments.
-+
-+gdb_py_test_multiple "input prefix command, keyword arguments" \
-+ "python" "" \
-+ "class prefix_cmd2 (gdb.Command):" "" \
-+ " def __init__ (self):" "" \
-+ " super (prefix_cmd2, self).__init__ (\"prefix_cmd2\", gdb.COMMAND_OBSCURE, prefix = True, completer_class = gdb.COMPLETE_FILENAME)" "" \
-+ " def invoke (self, arg, from_tty):" "" \
-+ " print \"prefix_cmd2 output, arg = %s\" % arg" "" \
-+ "prefix_cmd2 ()" "" \
-+ "end" ""
-+
-+gdb_test "prefix_cmd2 argh" "prefix_cmd2 output, arg = argh" "call prefix command, keyword arguments"
-+
-+gdb_py_test_multiple "input subcommand under prefix_cmd2" \
-+ "python" "" \
-+ "class subcmd (gdb.Command):" "" \
-+ " def __init__ (self):" "" \
-+ " super (subcmd, self).__init__ (\"prefix_cmd2 subcmd\", gdb.COMMAND_OBSCURE)" "" \
-+ " def invoke (self, arg, from_tty):" "" \
-+ " print \"subcmd output, arg = %s\" % arg" "" \
-+ "subcmd ()" "" \
-+ "end" ""
-+
-+gdb_test "prefix_cmd2 subcmd ugh" "subcmd output, arg = ugh" "call subcmd under prefix_cmd2"
-+
- # Test a subcommand in an existing GDB prefix.
-
- gdb_py_test_multiple "input new subcommand" \
-diff --git a/gdb/testsuite/gdb.python/python-frame.c b/gdb/testsuite/gdb.python/python-frame.c
-new file mode 100644
-index 0000000..22eb9f2
---- /dev/null
-+++ b/gdb/testsuite/gdb.python/python-frame.c
-@@ -0,0 +1,14 @@
-+int f2 (int a)
++void
++func0(int a, int b)
+{
-+ return ++a;
+}
+
-+int f1 (int a, int b)
++/* `func1' being traced into must have some arguments to dump. */
++
++void
++func1(int a, int b)
+{
-+ return f2(a) + b;
++ func0 (a,b);
+}
+
-+int main (int argc, char *argv[])
++int
++main(void)
+{
-+ return f1 (1, 2);
++ func1 (1, 2);
++ return 0;
+}
-diff --git a/gdb/testsuite/gdb.python/python-frame.exp b/gdb/testsuite/gdb.python/python-frame.exp
-new file mode 100644
-index 0000000..674c25e
---- /dev/null
-+++ b/gdb/testsuite/gdb.python/python-frame.exp
-@@ -0,0 +1,92 @@
-+# Copyright (C) 2009 Free Software Foundation, Inc.
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.dwarf2/dw2-stripped.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.dwarf2/dw2-stripped.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,79 @@
++# Copyright 2006 Free Software Foundation, Inc.
+
+# 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
++# the Free Software Foundation; either version 2 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/>.
++# along with this program; if not, write to the Free Software
++# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
-+# This file is part of the GDB testsuite. It tests the mechanism
-+# exposing values to Python.
++# Minimal DWARF-2 unit test
+
-+if $tracelevel then {
-+ strace $tracelevel
++# This test can only be run on targets which support DWARF-2.
++# For now pick a sampling of likely targets.
++if {![istarget *-*-linux*]
++ && ![istarget *-*-gnu*]
++ && ![istarget *-*-elf*]
++ && ![istarget *-*-openbsd*]
++ && ![istarget arm-*-eabi*]
++ && ![istarget powerpc-*-eabi*]} {
++ return 0
+}
+
-+set testfile "python-frame"
++set testfile "dw2-stripped"
+set srcfile ${testfile}.c
-+set binfile ${objdir}/${subdir}/${testfile}
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
-+ untested "Couldn't compile ${srcfile}"
++set binfile ${objdir}/${subdir}/${testfile}.x
++
++remote_exec build "rm -f ${binfile}"
++
++# get the value of gcc_compiled
++if [get_compiler_info ${binfile}] {
+ return -1
+}
+
-+# Run a command in GDB, and report a failure if a Python exception is thrown.
-+# If report_pass is true, report a pass if no exception is thrown.
-+proc gdb_py_test_silent_cmd {cmd name report_pass} {
-+ global gdb_prompt
++# This test can only be run on gcc as we use additional_flags=FIXME
++if {$gcc_compiled == 0} {
++ return 0
++}
+
-+ gdb_test_multiple $cmd $name {
-+ -re "Traceback.*$gdb_prompt $" { fail $name }
-+ -re "$gdb_prompt $" { if $report_pass { pass $name } }
-+ }
++if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-ggdb3}] != "" } {
++ return -1
++}
++
++remote_exec build "objcopy -R .debug_loc ${binfile}"
++set strip_output [remote_exec build "objdump -h ${binfile}"]
++
++set test "stripping test file preservation"
++if [ regexp ".debug_info " $strip_output] {
++ pass "$test (.debug_info preserved)"
++} else {
++ fail "$test (.debug_info got also stripped)"
+}
+
-+# Start with a fresh gdb.
++set test "stripping test file functionality"
++if [ regexp ".debug_loc " $strip_output] {
++ fail "$test (.debug_loc still present)"
++} else {
++ pass "$test (.debug_loc stripped)"
++}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
-+gdb_test_multiple "python print 'hello, world!'" "verify python support" {
-+ -re "not supported.*$gdb_prompt $" {
-+ unsupported "python support is disabled"
-+ return -1
-+ }
-+ -re "$gdb_prompt $" {}
-+}
++# For C programs, "start" should stop in main().
++
++gdb_test "start" \
++ ".*main \\(\\) at .*" \
++ "start"
++gdb_test "step" \
++ "func.* \\(.*\\) at .*" \
++ "step"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.dwarf2/dw2-struct-member-data-location.S
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.dwarf2/dw2-struct-member-data-location.S 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,83 @@
++/* This testcase is part of GDB, the GNU debugger.
+
-+# The following tests require execution.
++ Copyright 2009 Free Software Foundation, Inc.
+
-+if ![runto_main] then {
-+ fail "Can't run to main"
-+ return 0
-+}
++ 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.
+
-+gdb_breakpoint "f2"
-+gdb_continue_to_breakpoint "breakpoint at f2"
-+gdb_test "up" "" ""
-+
-+gdb_py_test_silent_cmd "python frames = gdb.frames ()" "get frames list" 1
-+gdb_test "python print frames" "\\(<gdb.Frame object at 0x\[\[:xdigit:\]\]+>, <gdb.Frame object at 0x\[\[:xdigit:\]\]+>, <gdb.Frame object at 0x\[\[:xdigit:\]\]+>\\)" "verify frames list"
-+gdb_py_test_silent_cmd "python f0 = frames\[0\]" "get first frame" 0
-+gdb_py_test_silent_cmd "python f1 = frames\[1\]" "get second frame" 0
-+
-+gdb_test "python print 'result =', f0.equals (f1)" " = False" "test equals (false)"
-+gdb_test "python print 'result =', f0.equals (f0)" " = True" "test equals (true)"
-+gdb_test "python print 'result =', f0.is_valid ()" " = True" "test Frame.is_valid"
-+gdb_test "python print 'result =', f0.name ()" " = f2" "test Frame.name"
-+gdb_test "python print 'result =', f0.type () == gdb.NORMAL_FRAME" " = True" "test Frame.type"
-+gdb_test "python print 'result =', f0.unwind_stop_reason () == gdb.FRAME_UNWIND_NO_REASON" " = True" "test Frame.type"
-+gdb_test "python print 'result =', gdb.frame_stop_reason_string (gdb.FRAME_UNWIND_INNER_ID)" " = previous frame inner to this frame \\(corrupt stack\\?\\)" "test gdb.frame_stop_reason_string"
-+gdb_test "python print 'result =', f0.pc ()" " = \[0-9\]+" "test Frame.pc"
-+gdb_test "python print 'result =', f0.addr_in_block ()" " = \[0-9\]+" "test Frame.addr_in_block"
-+gdb_test "python print 'result =', f0.older ().equals (f1)" " = True" "test Frame.older"
-+gdb_test "python print 'result =', f1.newer ().equals (f0)" " = True" "test Frame.newer"
-+gdb_test "python print 'result =', f0.read_var ('variable_which_surely_doesnt_exist')" \
-+ "ValueError: variable 'variable_which_surely_doesnt_exist' not found.*Error while executing Python code." \
-+ "test Frame.read_var - error"
-+gdb_test "python print 'result =', f0.read_var ('a')" " = 1" "test Frame.read_var - success"
-+
-+gdb_test "python print 'result =', gdb.newest_frame ().equals (f0)" " = True" "test gdb.newest_frame"
-+gdb_test "python print 'result =', gdb.selected_frame ().equals (f1)" " = True" "test gdb.selected_frame"
++ You should have received a copy of the GNU General Public License
++ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
-+gdb_test "python print 'result =', f0.block ()" "<gdb.Block object at 0x\[\[:xdigit:\]\]+>" "test Frame.block"
-diff --git a/gdb/testsuite/gdb.python/python-function.exp b/gdb/testsuite/gdb.python/python-function.exp
-new file mode 100644
-index 0000000..7feca2b
---- /dev/null
-+++ b/gdb/testsuite/gdb.python/python-function.exp
-@@ -0,0 +1,79 @@
-+# Copyright (C) 2009 Free Software Foundation, Inc.
++/* Debug information */
++
++ .section .debug_info
++.Lcu1_begin:
++ /* CU header */
++ .4byte .Lcu1_end - .Lcu1_start /* Length of Compilation Unit */
++.Lcu1_start:
++ .2byte 2 /* DWARF Version */
++ .4byte .Labbrev1_begin /* Offset into abbrev section */
++ .byte 4 /* Pointer size */
++
++ /* CU die */
++ .uleb128 1 /* Abbrev: DW_TAG_compile_unit */
++ .ascii "dw2-struct-member-data-location.c\0" /* DW_AT_name */
++ .ascii "GNU C 4.3.2\0" /* DW_AT_producer */
++ .byte 1 /* DW_AT_language (C) */
++
++.Ltype_uchar:
++ .uleb128 2 /* Abbrev: DW_TAG_structure_type */
++ .ascii "some_struct\0" /* DW_AT_name */
++
++ .uleb128 3 /* Abbrev: DW_TAG_member */
++ .ascii "field\0" /* DW_AT_name */
++ .byte 0 /* DW_AT_data_member_location */
++
++ .byte 0 /* End of children of some_struct */
++
++ .byte 0 /* End of children of CU */
++
++.Lcu1_end:
++
++/* Abbrev table */
++ .section .debug_abbrev
++.Labbrev1_begin:
++ .uleb128 1 /* Abbrev code */
++ .uleb128 0x11 /* DW_TAG_compile_unit */
++ .byte 1 /* has_children */
++ .uleb128 0x3 /* DW_AT_name */
++ .uleb128 0x8 /* DW_FORM_string */
++ .uleb128 0x25 /* DW_AT_producer */
++ .uleb128 0x8 /* DW_FORM_string */
++ .uleb128 0x13 /* DW_AT_language */
++ .uleb128 0xb /* DW_FORM_data1 */
++ .byte 0x0 /* Terminator */
++ .byte 0x0 /* Terminator */
++
++ .uleb128 2 /* Abbrev code */
++ .uleb128 0x13 /* DW_TAG_structure_type */
++ .byte 1 /* has_children */
++ .uleb128 0x3 /* DW_AT_name */
++ .uleb128 0x8 /* DW_FORM_string */
++ .byte 0x0 /* Terminator */
++ .byte 0x0 /* Terminator */
++
++ .uleb128 3 /* Abbrev code */
++ .uleb128 0x0d /* DW_TAG_member */
++ .byte 0 /* has_children */
++ .uleb128 0x3 /* DW_AT_name */
++ .uleb128 0x8 /* DW_FORM_string */
++ .uleb128 0x38 /* DW_AT_data_member_location */
++ .uleb128 0x0b /* DW_FORM_data1 */
++ .byte 0x0 /* Terminator */
++ .byte 0x0 /* Terminator */
++
++ .byte 0x0 /* Terminator */
++ .byte 0x0 /* Terminator */
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.dwarf2/dw2-struct-member-data-location.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.dwarf2/dw2-struct-member-data-location.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,37 @@
++# Copyright 2009 Free Software Foundation, Inc.
+
+# 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
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
-+# This file is part of the GDB testsuite. It tests the mechanism
-+# exposing convenience functions to Python.
-+
-+if $tracelevel then {
-+ strace $tracelevel
-+}
-+
-+# Usage: gdb_py_test_multiple NAME INPUT RESULT {INPUT RESULT}...
-+# Run a test named NAME, consisting of multiple lines of input.
-+# After each input line INPUT, search for result line RESULT.
-+# Succeed if all results are seen; fail otherwise.
-+proc gdb_py_test_multiple {name args} {
-+ global gdb_prompt
-+ foreach {input result} $args {
-+ if {[gdb_test_multiple $input "$name - $input" {
-+ -re "\[\r\n\]*($result)\[\r\n\]+($gdb_prompt | *>)$" {
-+ pass "$name - $input"
-+ }
-+ }]} {
-+ return 1
-+ }
-+ }
-+ return 0
++# This test can only be run on targets which support DWARF-2 and use gas.
++# For now pick a sampling of likely targets.
++if {![istarget *-*-linux*]
++ && ![istarget *-*-gnu*]
++ && ![istarget *-*-elf*]
++ && ![istarget *-*-openbsd*]
++ && ![istarget arm-*-eabi*]
++ && ![istarget powerpc-*-eabi*]} {
++ return 0
+}
+
-+# Start with a fresh gdb.
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
++set testfile "dw2-struct-member-data-location"
++set srcfile ${testfile}.S
++set binfile ${testfile}.x
+
-+gdb_test_multiple "python print 'hello, world!'" "verify python support" {
-+ -re "not supported.*$gdb_prompt $" {
-+ unsupported "python support is disabled"
-+ return -1
-+ }
-+ -re "$gdb_prompt $" {}
++if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objdir}/${subdir}/${binfile}" object {nodebug}] != "" } {
++ return -1
+}
+
-+gdb_py_test_multiple "input convenience function" \
-+ "python" "" \
-+ "class test_func (gdb.Function):" "" \
-+ " def __init__ (self):" "" \
-+ " super (test_func, self).__init__ (\"test_func\")" "" \
-+ " def invoke (self, arg):" "" \
-+ " return \"test_func output, arg = %s\" % arg.string ()" "" \
-+ "test_func ()" "" \
-+ "end" ""
-+
-+gdb_test "print \$test_func (\"ugh\")" "= \"test_func output, arg = ugh\"" "call function"
-+
-+# Test returning a gdb.Value from the function. This segfaulted GDB at one point.
-+
-+gdb_py_test_multiple "input value-returning convenience function" \
-+ "python" "" \
-+ "class Double (gdb.Function):" "" \
-+ " def __init__ (self):" "" \
-+ " super (Double, self).__init__ (\"double\")" "" \
-+ " def invoke (self, n):" "" \
-+ " return n*2" "" \
-+ "Double ()" "" \
-+ "end" ""
-+
-+gdb_test "print \$double (1)" "= 2" "call value-returning function"
-diff --git a/gdb/testsuite/gdb.python/python-mi.exp b/gdb/testsuite/gdb.python/python-mi.exp
-new file mode 100644
-index 0000000..5c9f3c7
---- /dev/null
-+++ b/gdb/testsuite/gdb.python/python-mi.exp
-@@ -0,0 +1,124 @@
-+# Copyright (C) 2008 Free Software Foundation, Inc.
++clean_restart $binfile
++
++gdb_test "ptype struct some_struct" "type = struct some_struct {\[\r\n \t\]*void field;\[\r\n \t\]*}"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dwarf-stride.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dwarf-stride.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,42 @@
++# Copyright 2009 Free Software Foundation, Inc.
+
+# 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
++# the Free Software Foundation; either version 2 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/>.
-+
-+# This file is part of the GDB testsuite. It tests Python-based
-+# pretty-printing for MI.
-+
-+load_lib mi-support.exp
-+set MIFLAGS "-i=mi2"
-+
-+gdb_exit
-+if [mi_gdb_start] {
-+ continue
-+}
-+
-+set testfile "python-prettyprint"
-+set srcfile ${testfile}.c
-+set binfile ${objdir}/${subdir}/${testfile}
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DMI}] != "" } {
-+ untested mi2-var-child.exp
-+ return -1
-+}
-+
-+mi_delete_breakpoints
-+mi_gdb_reinitialize_dir $srcdir/$subdir
-+mi_gdb_load ${binfile}
-+
-+if {[lsearch -exact [mi_get_features] python] < 0} {
-+ unsupported "python support is disabled"
-+ return -1
-+}
-+
-+mi_runto main
-+
-+mi_gdb_test "python execfile ('${srcdir}/${subdir}/${testfile}.py')" ""
-+
-+mi_continue_to_line [gdb_get_line_number {MI breakpoint here} ${testfile}.c] \
-+ "step to breakpoint"
-+
-+mi_create_floating_varobj container c "create container varobj"
-+
-+mi_list_varobj_children container {
-+} "examine container children=0"
-+
-+mi_next "next over update 1"
-+
-+mi_varobj_update_dynamic container {
-+ { {container.\[0\]} {\[0\]} 0 int }
-+} "varobj update 1"
-+
-+mi_next "next over update 2"
-+
-+mi_varobj_update_dynamic container {
-+ { {container.\[0\]} {\[0\]} 0 int }
-+ { {container.\[1\]} {\[1\]} 0 int }
-+} "varobj update 2"
-+
-+mi_gdb_test "-var-set-visualizer container None" \
-+ "\\^done" \
-+ "clear visualizer"
-+
-+mi_gdb_test "-var-update container" \
-+ "\\^done,changelist=\\\[\\\]" \
-+ "varobj update after clearing"
-+
-+mi_gdb_test "-var-set-visualizer container gdb.default_visualizer" \
-+ "\\^done" \
-+ "choose default visualizer"
-+
-+mi_varobj_update_dynamic container {
-+ { {container.\[0\]} {\[0\]} 0 int }
-+ { {container.\[1\]} {\[1\]} 0 int }
-+} "varobj update after choosing default"
-+
-+mi_gdb_test "-var-set-visualizer container ContainerPrinter" \
-+ "\\^done" \
-+ "choose visualizer using expression"
++#
++# You should have received a copy of the GNU General Public License
++# along with this program; if not, write to the Free Software
++# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
-+mi_varobj_update_dynamic container {
-+ { {container.\[0\]} {\[0\]} 0 int }
-+ { {container.\[1\]} {\[1\]} 0 int }
-+} "varobj update after choosing via expression"
++# This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
-+mi_gdb_test "-var-set-child-range container 1 2" \
-+ "\\^done" \
-+ "select child range"
++# This file is part of the gdb testsuite. Array element stride must not be
++# specified in the number of elements but in a number of bytes instead.
++# Original problem:
++# (gdb) p c40pt(1)
++# $1 = '0-hello', ' ' <repeats 33 times>
++# (gdb) p c40pt(2)
++# warning: Fortran array stride not divisible by the element size
+
-+mi_gdb_test "-var-update container" \
-+ "\\^done,changelist=\\\[\\\]" \
-+ "varobj update after selecting child range"
++set testfile dwarf-stride
++set srcfile ${testfile}.f90
+
-+mi_list_varobj_children_range container 2 {
-+ { {container.\[1\]} {\[1\]} 0 int }
-+} "list varobj children after selecting child range"
++if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug f77}] } {
++ return -1
++}
+
-+mi_gdb_test "-var-set-child-range container -1 -1" \
-+ "\\^done" \
-+ "reset child range"
++if ![runto MAIN__] then {
++ perror "couldn't run to breakpoint MAIN__"
++ continue
++}
+
-+mi_gdb_test "-var-update container" \
-+ "\\^done,changelist=\\\[\\\]" \
-+ "varobj update after resetting child range"
++gdb_breakpoint [gdb_get_line_number "break-here"]
++gdb_continue_to_breakpoint "break-here" ".*break-here.*"
++gdb_test "p c40pt(1)" " = '0-hello.*"
++gdb_test "p c40pt(2)" " = '1-hello.*"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dwarf-stride.f90
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dwarf-stride.f90 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,40 @@
++! Copyright 2009 Free Software Foundation, Inc.
++!
++! 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 2 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, write to the Free Software
++! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
++!
++! File written by Alan Matsuoka.
+
-+mi_list_varobj_children container {
-+ { {container.\[0\]} {\[0\]} 0 int }
-+ { {container.\[1\]} {\[1\]} 0 int }
-+} "list varobj children after resetting child range"
++program repro
+
-+mi_continue_to_line \
-+ [gdb_get_line_number {Another MI breakpoint} ${testfile}.c] \
-+ "step to second breakpoint"
++ type small_stride
++ character*40 long_string
++ integer small_pad
++ end type small_stride
+
-+mi_varobj_update_with_type_change container int 0 "update after type change"
-diff --git a/gdb/testsuite/gdb.python/python-prettyprint.c b/gdb/testsuite/gdb.python/python-prettyprint.c
-new file mode 100644
-index 0000000..f8c2435
---- /dev/null
-+++ b/gdb/testsuite/gdb.python/python-prettyprint.c
-@@ -0,0 +1,159 @@
-+/* This testcase is part of GDB, the GNU debugger.
++ type(small_stride), dimension (20), target :: unpleasant
++ character*40, pointer, dimension(:):: c40pt
+
-+ Copyright 2008 Free Software Foundation, Inc.
++ integer i
+
-+ 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.
++ do i = 0,19
++ unpleasant(i+1)%small_pad = i+1
++ unpleasant(i+1)%long_string = char (ichar('0') + i) // '-hello'
++ end do
+
-+ 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.
++ c40pt => unpleasant%long_string
+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
++ print *, c40pt ! break-here
+
-+struct s
-+{
-+ int a;
-+ int *b;
-+};
++end program repro
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dynamic-other-frame-stub.f90
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dynamic-other-frame-stub.f90 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,24 @@
++! Copyright 2010 Free Software Foundation, Inc.
++!
++! 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 2 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, write to the Free Software
++! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
++!
++! Ihis file is the Fortran source file for dynamic.exp.
++! Original file written by Jakub Jelinek <jakub@redhat.com>.
++! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
-+struct ss
-+{
-+ struct s a;
-+ struct s b;
-+};
++subroutine bar
++ real :: dummy
++ dummy = 1
++end subroutine bar
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dynamic-other-frame.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dynamic-other-frame.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,37 @@
++# Copyright 2010 Free Software Foundation, Inc.
+
-+#ifdef __cplusplus
-+struct S : public s {
-+ int zs;
-+};
++# 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 2 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, write to the Free Software
++# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
-+struct SS {
-+ int zss;
-+ S s;
-+};
++set testfile "dynamic-other-frame"
++set srcfile1 ${testfile}.f90
++set srcfile2 ${testfile}-stub.f90
++set objfile2 ${objdir}/${subdir}/${testfile}-stub.o
++set executable ${testfile}
++set binfile ${objdir}/${subdir}/${executable}
+
-+struct SSS
-+{
-+ SSS (int x, const S& r);
-+ int a;
-+ const S &b;
-+};
-+SSS::SSS (int x, const S& r) : a(x), b(r) { }
-+#endif
++if { [gdb_compile "${srcdir}/${subdir}/${srcfile2}" "${objfile2}" object {f77}] != ""
++ || [gdb_compile "${srcdir}/${subdir}/${srcfile1} ${objfile2}" "${binfile}" executable {debug f77}] != "" } {
++ untested "Couldn't compile ${srcfile1} or ${srcfile2}"
++ return -1
++}
+
-+typedef struct string_repr
-+{
-+ struct whybother
-+ {
-+ const char *contents;
-+ } whybother;
-+} string;
++clean_restart ${executable}
+
-+/* This lets us avoid malloc. */
-+int array[100];
++if ![runto bar_] then {
++ perror "couldn't run to bar_"
++ continue
++}
+
-+struct container
-+{
-+ string name;
-+ int len;
-+ int *elements;
-+};
++gdb_test "bt" {foo \(string='hello'.*}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dynamic-other-frame.f90
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dynamic-other-frame.f90 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,36 @@
++! Copyright 2010 Free Software Foundation, Inc.
++!
++! 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 2 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, write to the Free Software
++! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
++!
++! Ihis file is the Fortran source file for dynamic.exp.
++! Original file written by Jakub Jelinek <jakub@redhat.com>.
++! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
-+typedef struct container zzz_type;
++subroutine foo (string)
++ interface
++ subroutine bar
++ end subroutine
++ end interface
++ character string*(*)
++ call bar ! stop-here
++end subroutine foo
++program test
++ interface
++ subroutine foo (string)
++ character string*(*)
++ end subroutine
++ end interface
++ call foo ('hello')
++end
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dynamic.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dynamic.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,145 @@
++# Copyright 2007 Free Software Foundation, Inc.
+
-+string
-+make_string (const char *s)
-+{
-+ string result;
-+ result.whybother.contents = s;
-+ return result;
-+}
++# 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 2 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, write to the Free Software
++# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
-+zzz_type
-+make_container (const char *s)
-+{
-+ zzz_type result;
++# This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
-+ result.name = make_string (s);
-+ result.len = 0;
-+ result.elements = 0;
++# This file is part of the gdb testsuite. It contains tests for dynamically
++# allocated Fortran arrays.
++# It depends on the GCC dynamic Fortran arrays DWARF support:
++# http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22244
+
-+ return result;
-+}
++set testfile "dynamic"
++set srcfile ${testfile}.f90
++set binfile ${objdir}/${subdir}/${testfile}
+
-+void
-+add_item (zzz_type *c, int val)
-+{
-+ if (c->len == 0)
-+ c->elements = array;
-+ c->elements[c->len] = val;
-+ ++c->len;
++if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
++ untested "Couldn't compile ${srcfile}"
++ return -1
+}
+
-+void init_s(struct s *s, int a)
-+{
-+ s->a = a;
-+ s->b = &s->a;
-+}
++gdb_exit
++gdb_start
++gdb_reinitialize_dir $srcdir/$subdir
++gdb_load ${binfile}
+
-+void init_ss(struct ss *s, int a, int b)
-+{
-+ init_s(&s->a, a);
-+ init_s(&s->b, b);
++if ![runto MAIN__] then {
++ perror "couldn't run to breakpoint MAIN__"
++ continue
+}
+
-+void do_nothing(void)
-+{
-+ int c;
-+
-+ c = 23; /* Another MI breakpoint */
-+}
++gdb_breakpoint [gdb_get_line_number "varx-init"]
++gdb_continue_to_breakpoint "varx-init"
++gdb_test "p varx" "\\$\[0-9\]* = <(object|the array) is not allocated>" "p varx unallocated"
++gdb_test "ptype varx" "type = <(object|the array) is not allocated>" "ptype varx unallocated"
++gdb_test "p varx(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "p varx(1,5,17) unallocated"
++gdb_test "p varx(1,5,17)=1" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "p varx(1,5,17)=1 unallocated"
++gdb_test "ptype varx(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "ptype varx(1,5,17) unallocated"
+
-+int
-+main ()
-+{
-+ struct ss ss;
-+ struct ss ssa[2];
-+ string x = make_string ("this is x");
-+ zzz_type c = make_container ("container");
-+ const struct string_repr cstring = { { "const string" } };
++gdb_breakpoint [gdb_get_line_number "varx-allocated"]
++gdb_continue_to_breakpoint "varx-allocated"
++# $1 = (( ( 0, 0, 0, 0, 0, 0) ( 0, 0, 0, 0, 0, 0) --- , 0) ) ( ( 0, 0, ...) ...) ...)
++gdb_test "ptype varx" "type = real(\\(kind=4\\)|\\*4) \\(6,5:15,17:28\\)" "ptype varx allocated"
++# Intel Fortran Compiler 10.1.008 uses -1 there, GCC uses 1.
++gdb_test "p l" "\\$\[0-9\]* = (\\.TRUE\\.|4294967295)" "p l if varx allocated"
+
-+ init_ss(&ss, 1, 2);
-+ init_ss(ssa+0, 3, 4);
-+ init_ss(ssa+1, 5, 6);
++gdb_breakpoint [gdb_get_line_number "varx-filled"]
++gdb_continue_to_breakpoint "varx-filled"
++gdb_test "p varx(2, 5, 17)" "\\$\[0-9\]* = 6"
++gdb_test "p varx(1, 5, 17)" "\\$\[0-9\]* = 7"
++gdb_test "p varx(2, 6, 18)" "\\$\[0-9\]* = 8"
++gdb_test "p varx(6, 15, 28)" "\\$\[0-9\]* = 9"
++# The latter one is for the Intel Fortran Compiler 10.1.008 pointer type.
++gdb_test "p varv" "\\$\[0-9\]* = (<(object|the array) is not associated>|.*(Cannot access it|Unable to access the object) because the object is not associated.)" "p varv unassociated"
++gdb_test "ptype varv" "type = (<(object|the array) is not associated>|.*(Cannot access it|Unable to access the object) because the object is not associated.)" "ptype varv unassociated"
+
-+#ifdef __cplusplus
-+ S cps;
++gdb_breakpoint [gdb_get_line_number "varv-associated"]
++gdb_continue_to_breakpoint "varv-associated"
++gdb_test "p varx(3, 7, 19)" "\\$\[0-9\]* = 6" "p varx(3, 7, 19) with varv associated"
++gdb_test "p varv(3, 7, 19)" "\\$\[0-9\]* = 6" "p varv(3, 7, 19) associated"
++# Intel Fortran Compiler 10.1.008 uses -1 there, GCC uses 1.
++gdb_test "p l" "\\$\[0-9\]* = (\\.TRUE\\.|4294967295)" "p l if varv associated"
++gdb_test "ptype varx" "type = real(\\(kind=4\\)|\\*4) \\(6,5:15,17:28\\)" "ptype varx with varv associated"
++# Intel Fortran Compiler 10.1.008 uses the pointer type.
++gdb_test "ptype varv" "type = (PTR TO -> \\( )?real(\\(kind=4\\)|\\*4) \\(6,5:15,17:28\\)\\)?" "ptype varv associated"
+
-+ cps.zs = 7;
-+ init_s(&cps, 8);
++gdb_breakpoint [gdb_get_line_number "varv-filled"]
++gdb_continue_to_breakpoint "varv-filled"
++gdb_test "p varx(3, 7, 19)" "\\$\[0-9\]* = 10" "p varx(3, 7, 19) with varv filled"
++gdb_test "p varv(3, 7, 19)" "\\$\[0-9\]* = 10" "p varv(3, 7, 19) filled"
+
-+ SS cpss;
-+ cpss.zss = 9;
-+ init_s(&cpss.s, 10);
++gdb_breakpoint [gdb_get_line_number "varv-deassociated"]
++gdb_continue_to_breakpoint "varv-deassociated"
++# The latter one is for the Intel Fortran Compiler 10.1.008 pointer type.
++gdb_test "p varv" "\\$\[0-9\]* = (<(object|the array) is not associated>|.*(Cannot access it|Unable to access the object) because the object is not associated.)" "p varv deassociated"
++gdb_test "ptype varv" "type = (<(object|the array) is not associated>|.*(Cannot access it|Unable to access the object) because the object is not associated.)" "ptype varv deassociated"
++gdb_test "p l" "\\$\[0-9\]* = \\.FALSE\\." "p l if varv deassociated"
++gdb_test "p varv(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not associated\\."
++gdb_test "ptype varv(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not associated\\."
+
-+ SS cpssa[2];
-+ cpssa[0].zss = 11;
-+ init_s(&cpssa[0].s, 12);
-+ cpssa[1].zss = 13;
-+ init_s(&cpssa[1].s, 14);
++gdb_breakpoint [gdb_get_line_number "varx-deallocated"]
++gdb_continue_to_breakpoint "varx-deallocated"
++gdb_test "p varx" "\\$\[0-9\]* = <(object|the array) is not allocated>" "p varx deallocated"
++gdb_test "ptype varx" "type = <(object|the array) is not allocated>" "ptype varx deallocated"
++gdb_test "p l" "\\$\[0-9\]* = \\.FALSE\\." "p l if varx deallocated"
++gdb_test "p varx(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "p varx(1,5,17) deallocated"
++gdb_test "ptype varx(1,5,17)" "(Cannot access it|Unable to access the object) because the (object|array) is not allocated\\." "ptype varx(1,5,17) deallocated"
+
-+ SSS sss(15, cps);
++gdb_breakpoint [gdb_get_line_number "vary-passed"]
++gdb_continue_to_breakpoint "vary-passed"
++# $1 = (( ( 1, 1, 1, 1, 1, 1) ( 1, 1, 1, 1, 1, 1) --- , 1) ) ( ( 1, 1, ...) ...) ...)
++gdb_test "p vary" "\\$\[0-9\]* = \\(\[()1, .\]*\\)"
+
-+ SSS& ref (sss);
-+#endif
++gdb_breakpoint [gdb_get_line_number "vary-filled"]
++gdb_continue_to_breakpoint "vary-filled"
++gdb_test "ptype vary" "type = real(\\(kind=4\\)|\\*4) \\(10,10\\)"
++gdb_test "p vary(1, 1)" "\\$\[0-9\]* = 8"
++gdb_test "p vary(2, 2)" "\\$\[0-9\]* = 9"
++gdb_test "p vary(1, 3)" "\\$\[0-9\]* = 10"
++# $1 = (( ( 3, 3, 3, 3, 3, 3) ( 3, 3, 3, 3, 3, 3) --- , 3) ) ( ( 3, 3, ...) ...) ...)
++gdb_test "p varw" "\\$\[0-9\]* = \\(\[()3, .\]*\\)"
+
-+ add_item (&c, 23); /* MI breakpoint here */
-+ add_item (&c, 72);
++gdb_breakpoint [gdb_get_line_number "varw-almostfilled"]
++gdb_continue_to_breakpoint "varw-almostfilled"
++gdb_test "ptype varw" "type = real(\\(kind=4\\)|\\*4) \\(5,4,3\\)"
++gdb_test "p varw(3,1,1)=1" "\\$\[0-9\]* = 1"
++# $1 = (( ( 6, 5, 1, 5, 5, 5) ( 5, 5, 5, 5, 5, 5) --- , 5) ) ( ( 5, 5, ...) ...) ...)
++gdb_test "p varw" "\\$\[0-9\]* = \\( *\\( *\\( *6, *5, *1,\[()5, .\]*\\)" "p varw filled"
++# "up" works with GCC but other Fortran compilers may copy the values into the
++# outer function only on the exit of the inner function.
++# We need both variants as depending on the arch we optionally may still be
++# executing the caller line or not after `finish'.
++gdb_test "finish" ".*(call bar \\(y, x\\)|call foo \\(x, z\\(2:6, 4:7, 6:8\\)\\))"
++gdb_test "p z(2,4,5)" "\\$\[0-9\]* = 3"
++gdb_test "p z(2,4,6)" "\\$\[0-9\]* = 6"
++gdb_test "p z(2,4,7)" "\\$\[0-9\]* = 5"
++gdb_test "p z(4,4,6)" "\\$\[0-9\]* = 1"
+
-+#ifdef MI
-+ do_nothing ();
-+#endif
++gdb_breakpoint [gdb_get_line_number "varz-almostfilled"]
++gdb_continue_to_breakpoint "varz-almostfilled"
++# GCC uses the pointer type here, Intel Fortran Compiler 10.1.008 does not.
++gdb_test "ptype varz" "type = (PTR TO -> \\( )?real(\\(kind=4\\)|\\*4) \\(\\*\\)\\)?"
++# Intel Fortran Compiler 10.1.008 has a bug here - (2:11,7:7)
++# as it produces DW_AT_lower_bound == DW_AT_upper_bound == 7.
++gdb_test "ptype vart" "type = (PTR TO -> \\( )?real(\\(kind=4\\)|\\*4) \\(2:11,7:\\*\\)\\)?"
++gdb_test "p varz" "\\$\[0-9\]* = \\(\\)"
++gdb_test "p vart" "\\$\[0-9\]* = \\(\\)"
++gdb_test "p varz(3)" "\\$\[0-9\]* = 4"
++# maps to foo::vary(1,1)
++gdb_test "p vart(2,7)" "\\$\[0-9\]* = 8"
++# maps to foo::vary(2,2)
++gdb_test "p vart(3,8)" "\\$\[0-9\]* = 9"
++# maps to foo::vary(1,3)
++gdb_test "p vart(2,9)" "\\$\[0-9\]* = 10"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dynamic.f90
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/dynamic.f90 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,98 @@
++! Copyright 2007 Free Software Foundation, Inc.
++!
++! 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 2 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, write to the Free Software
++! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
++!
++! Ihis file is the Fortran source file for dynamic.exp.
++! Original file written by Jakub Jelinek <jakub@redhat.com>.
++! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
-+ return 0; /* break to inspect struct and union */
-+}
-diff --git a/gdb/testsuite/gdb.python/python-prettyprint.exp b/gdb/testsuite/gdb.python/python-prettyprint.exp
-new file mode 100644
-index 0000000..b2ccb2b
---- /dev/null
-+++ b/gdb/testsuite/gdb.python/python-prettyprint.exp
-@@ -0,0 +1,90 @@
-+# Copyright (C) 2008 Free Software Foundation, Inc.
++subroutine baz
++ real, target, allocatable :: varx (:, :, :)
++ real, pointer :: varv (:, :, :)
++ real, target :: varu (1, 2, 3)
++ logical :: l
++ allocate (varx (1:6, 5:15, 17:28)) ! varx-init
++ l = allocated (varx)
++ varx(:, :, :) = 6 ! varx-allocated
++ varx(1, 5, 17) = 7
++ varx(2, 6, 18) = 8
++ varx(6, 15, 28) = 9
++ varv => varx ! varx-filled
++ l = associated (varv)
++ varv(3, 7, 19) = 10 ! varv-associated
++ varv => null () ! varv-filled
++ l = associated (varv)
++ deallocate (varx) ! varv-deassociated
++ l = allocated (varx)
++ varu(:, :, :) = 10 ! varx-deallocated
++ allocate (varv (1:6, 5:15, 17:28))
++ l = associated (varv)
++ varv(:, :, :) = 6
++ varv(1, 5, 17) = 7
++ varv(2, 6, 18) = 8
++ varv(6, 15, 28) = 9
++ deallocate (varv)
++ l = associated (varv)
++ varv => varu
++ varv(1, 1, 1) = 6
++ varv(1, 2, 3) = 7
++ l = associated (varv)
++end subroutine baz
++subroutine foo (vary, varw)
++ real :: vary (:, :)
++ real :: varw (:, :, :)
++ vary(:, :) = 4 ! vary-passed
++ vary(1, 1) = 8
++ vary(2, 2) = 9
++ vary(1, 3) = 10
++ varw(:, :, :) = 5 ! vary-filled
++ varw(1, 1, 1) = 6
++ varw(2, 2, 2) = 7 ! varw-almostfilled
++end subroutine foo
++subroutine bar (varz, vart)
++ real :: varz (*)
++ real :: vart (2:11, 7:*)
++ varz(1:3) = 4
++ varz(2) = 5 ! varz-almostfilled
++ vart(2,7) = vart(2,7)
++end subroutine bar
++program test
++ interface
++ subroutine foo (vary, varw)
++ real :: vary (:, :)
++ real :: varw (:, :, :)
++ end subroutine
++ end interface
++ interface
++ subroutine bar (varz, vart)
++ real :: varz (*)
++ real :: vart (2:11, 7:*)
++ end subroutine
++ end interface
++ real :: x (10, 10), y (5), z(8, 8, 8)
++ x(:,:) = 1
++ y(:) = 2
++ z(:,:,:) = 3
++ call baz
++ call foo (x, z(2:6, 4:7, 6:8))
++ call bar (y, x)
++ if (x (1, 1) .ne. 8 .or. x (2, 2) .ne. 9 .or. x (1, 2) .ne. 4) call abort
++ if (x (1, 3) .ne. 10) call abort
++ if (z (2, 4, 6) .ne. 6 .or. z (3, 5, 7) .ne. 7 .or. z (2, 4, 7) .ne. 5) call abort
++ if (any (y .ne. (/4, 5, 4, 2, 2/))) call abort
++ call foo (transpose (x), z)
++ if (x (1, 1) .ne. 8 .or. x (2, 2) .ne. 9 .or. x (1, 2) .ne. 4) call abort
++ if (x (3, 1) .ne. 10) call abort
++end
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/string.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/string.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,59 @@
++# Copyright 2008 Free Software Foundation, Inc.
+
+# 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
++# the Free Software Foundation; either version 2 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/>.
++# along with this program; if not, write to the Free Software
++# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
-+# This file is part of the GDB testsuite. It tests Python-based
-+# pretty-printing for the CLI.
++# This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
-+if $tracelevel then {
-+ strace $tracelevel
-+}
++# This file is part of the gdb testsuite. It contains tests for Fortran
++# strings with dynamic length.
+
-+set testfile "python-prettyprint"
-+set srcfile ${testfile}.c
++set testfile "string"
++set srcfile ${testfile}.f90
+set binfile ${objdir}/${subdir}/${testfile}
+
-+# Start with a fresh gdb.
-+gdb_exit
-+gdb_start
-+gdb_test_multiple "python print 'hello, world!'" "verify python support" {
-+ -re "not supported.*$gdb_prompt $" {
-+ unsupported "python support is disabled"
-+ return -1
-+ }
-+ -re "$gdb_prompt $" {}
++if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
++ untested "Couldn't compile ${srcfile}"
++ return -1
+}
+
-+proc run_lang_tests {lang} {
-+ global srcdir subdir srcfile binfile testfile hex
-+ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable "debug $lang"] != "" } {
-+ untested "Couldn't compile ${srcfile} in $lang mode"
-+ return -1
-+ }
-+
-+ set nl "\[\r\n\]+"
-+
-+ # Start with a fresh gdb.
-+ gdb_exit
-+ gdb_start
-+ gdb_reinitialize_dir $srcdir/$subdir
-+ gdb_load ${binfile}
-+
-+
-+ if ![runto_main ] then {
-+ perror "couldn't run to breakpoint"
-+ return
-+ }
-+
-+ gdb_test "set print pretty on" ""
-+
-+ gdb_test "b [gdb_get_line_number {break to inspect} ${testfile}.c ]" \
-+ ".*Breakpoint.*"
-+ gdb_test "continue" ".*Breakpoint.*"
-+
-+ gdb_test "python execfile ('${srcdir}/${subdir}/${testfile}.py')" ""
-+
-+ gdb_test "print ss" " = a=< a=<1> b=<$hex>> b=< a=<2> b=<$hex>>"
-+ gdb_test "print ssa\[1\]" " = a=< a=<5> b=<$hex>> b=< a=<6> b=<$hex>>"
-+ gdb_test "print ssa" " = {a=< a=<3> b=<$hex>> b=< a=<4> b=<$hex>>, a=< a=<5> b=<$hex>> b=< a=<6> b=<$hex>>}"
-+
-+ if {$lang == "c++"} {
-+ gdb_test "print cps" "= a=<8> b=<$hex>"
-+ gdb_test "print cpss" " = {$nl *zss = 9, *$nl *s = a=<10> b=<$hex>$nl}"
-+ gdb_test "print cpssa\[0\]" " = {$nl *zss = 11, *$nl *s = a=<12> b=<$hex>$nl}"
-+ gdb_test "print cpssa\[1\]" " = {$nl *zss = 13, *$nl *s = a=<14> b=<$hex>$nl}"
-+ gdb_test "print cpssa" " = {{$nl *zss = 11, *$nl *s = a=<12> b=<$hex>$nl *}, {$nl *zss = 13, *$nl *s = a=<14> b=<$hex>$nl *}}"
-+ gdb_test "print sss" "= a=<15> b=< a=<8> b=<$hex>>"
-+ gdb_test "print ref" "= a=<15> b=< a=<8> b=<$hex>>"
-+ }
++gdb_exit
++gdb_start
++gdb_reinitialize_dir $srcdir/$subdir
++gdb_load ${binfile}
+
-+ gdb_test "print x" " = $hex \"this is x\""
-+ gdb_test "print cstring" " = $hex \"const string\""
++if ![runto MAIN__] then {
++ perror "couldn't run to breakpoint MAIN__"
++ continue
++}
+
-+ gdb_test "print c" " = container $hex \"container\" with 2 elements = {$nl *.0. = 23,$nl *.1. = 72$nl}"
++gdb_breakpoint [gdb_get_line_number "var-init"]
++gdb_continue_to_breakpoint "var-init"
++gdb_test "ptype c" "type = character(\\(kind=1\\)|\\*1)"
++gdb_test "ptype d" "type = character(\\(kind=8\\)|\\*8)"
++gdb_test "ptype e" "type = character(\\(kind=4\\)|\\*4)"
++gdb_test "ptype f" "type = character(\\(kind=4\\)|\\*4) \\(7,8:10\\)"
++gdb_test "ptype *e" "Attempt to take contents of a non-pointer value."
++gdb_test "ptype *f" "type = character(\\(kind=4\\)|\\*4) \\(7\\)"
++gdb_test "p c" "\\$\[0-9\]* = 'c'"
++gdb_test "p d" "\\$\[0-9\]* = 'd '"
++gdb_test "p e" "\\$\[0-9\]* = 'g '"
++gdb_test "p f" "\\$\[0-9\]* = \\(\\( 'h ', 'h ', 'h ', 'h ', 'h ', 'h ', 'h '\\) \\( 'h ', 'h ', 'h ', 'h ', 'h ', 'h ', 'h '\\) \\( 'h ', 'h ', 'h ', 'h ', 'h ', 'h ', 'h '\\) \\)"
++gdb_test "p *e" "Attempt to take contents of a non-pointer value."
++gdb_test "p *f" "Attempt to take contents of a non-pointer value."
+
-+ gdb_test "continue" "Program exited normally\."
-+}
++gdb_breakpoint [gdb_get_line_number "var-finish"]
++gdb_continue_to_breakpoint "var-finish"
++gdb_test "p e" "\\$\[0-9\]* = 'e '" "p e re-set"
++gdb_test "p f" "\\$\[0-9\]* = \\(\\( 'f ', 'f ', 'f ', 'f ', 'f ', 'f ', 'f '\\) \\( 'f2 ', 'f ', 'f ', 'f ', 'f ', 'f ', 'f '\\) \\( 'f ', 'f ', 'f ', 'f ', 'f ', 'f ', 'f '\\) \\)" "p *f re-set"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/string.f90
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/string.f90 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,37 @@
++! Copyright 2008 Free Software Foundation, Inc.
++!
++! 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 2 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, write to the Free Software
++! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
++!
++! Ihis file is the Fortran source file for dynamic.exp.
++! Original file written by Jakub Jelinek <jakub@redhat.com>.
++! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
+
-+run_lang_tests "c"
-+run_lang_tests "c++"
-diff --git a/gdb/testsuite/gdb.python/python-prettyprint.py b/gdb/testsuite/gdb.python/python-prettyprint.py
-new file mode 100644
-index 0000000..0d9cb87
---- /dev/null
-+++ b/gdb/testsuite/gdb.python/python-prettyprint.py
-@@ -0,0 +1,134 @@
-+# Copyright (C) 2008, 2009 Free Software Foundation, Inc.
++subroutine foo (e, f)
++ character (len=1) :: c
++ character (len=8) :: d
++ character (len=*) :: e
++ character (len=*) :: f (1:7, 8:10)
++ c = 'c'
++ d = 'd'
++ e = 'e' ! var-init
++ f = 'f'
++ f(1,9) = 'f2'
++ c = 'c' ! var-finish
++end subroutine foo
++ character (len=4) :: g, h (1:7, 8:10)
++ g = 'g'
++ h = 'h'
++ call foo (g, h)
++end
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/subrange.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/subrange.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,60 @@
++# Copyright 2011 Free Software Foundation, Inc.
+
+# 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
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
-+# This file is part of the GDB testsuite. It tests python pretty
-+# printers.
-+
-+import re
-+
-+# Test returning a Value from a printer.
-+class string_print:
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def to_string(self):
-+ return self.val['whybother']['contents']
-+
-+# Test a class-based printer.
-+class ContainerPrinter:
-+ class _iterator:
-+ def __init__ (self, pointer, len):
-+ self.start = pointer
-+ self.pointer = pointer
-+ self.end = pointer + len
-+
-+ def __iter__(self):
-+ return self
-+
-+ def next(self):
-+ if self.pointer == self.end:
-+ raise StopIteration
-+ result = self.pointer
-+ self.pointer = self.pointer + 1
-+ return ('[%d]' % int (result - self.start), result.dereference())
-+
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def to_string(self):
-+ return 'container %s with %d elements' % (self.val['name'], self.val['len'])
-+
-+ def children(self):
-+ return self._iterator(self.val['elements'], self.val['len'])
-+
-+class pp_s:
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def to_string(self):
-+ a = self.val["a"]
-+ b = self.val["b"]
-+ if a.address() != b:
-+ raise Exception("&a(%s) != b(%s)" % (str(a.address()), str(b)))
-+ return " a=<" + str(self.val["a"]) + "> b=<" + str(self.val["b"]) + ">"
-+
-+class pp_ss:
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def to_string(self):
-+ return "a=<" + str(self.val["a"]) + "> b=<" + str(self.val["b"]) + ">"
-+
-+class pp_sss:
-+ def __init__(self, val):
-+ self.val = val
-+
-+ def to_string(self):
-+ return "a=<" + str(self.val['a']) + "> b=<" + str(self.val["b"]) + ">"
-+
-+def lookup_function (val):
-+ "Look-up and return a pretty-printer that can print val."
-+
-+ # Get the type.
-+ type = val.type ();
++if { [skip_fortran_tests] } { return -1 }
+
-+ # If it points to a reference, get the reference.
-+ if type.code () == gdb.TYPE_CODE_REF:
-+ type = type.target ()
-+
-+ # Get the unqualified type, stripped of typedefs.
-+ type = type.unqualified ().strip_typedefs ()
++set testfile "subrange"
++set srcfile ${testfile}.f90
++if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug f77}] } {
++ return -1
++}
+
-+ # Get the type name.
-+ typename = type.tag ()
++if ![runto MAIN__] {
++ perror "Couldn't run to MAIN__"
++ continue
++}
+
-+ if typename == None:
-+ return None
++# Depending on the compiler version being used, the name of the 4-byte integer
++# and real types can be printed differently. For instance, gfortran-4.1 uses
++# "int4" whereas gfortran-4.3 uses "int(kind=4)".
++set int4 "(int4|integer\\(kind=4\\))"
+
-+ # Iterate over local dictionary of types to determine
-+ # if a printer is registered for that type. Return an
-+ # instantiation of the printer if found.
-+ for function in pretty_printers_dict:
-+ if function.match (typename):
-+ return pretty_printers_dict[function] (val)
-+
-+ # Cannot find a pretty printer. Return None.
++gdb_breakpoint [gdb_get_line_number "break-static"]
++gdb_continue_to_breakpoint "break-static" ".*break-static.*"
+
-+ return None
++foreach var {a alloc ptr} {
++ global pf_prefix
++ set old_prefix $pf_prefix
++ lappend pf_prefix "$var:"
++
++ gdb_test "p $var (2, 2:3)" { = \(22, 32\)}
++ gdb_test "p $var (2:3, 3)" { = \(32, 33\)}
++ gdb_test "p $var (1, 2:)" { = \(21, 31\)}
++ gdb_test "p $var (2, :2)" { = \(12, 22\)}
++ gdb_test "p $var (3, 2:2)" { = \(23\)}
++ gdb_test "ptype $var (3, 2:2)" " = $int4 \\(2:2\\)"
++ gdb_test "p $var (4, :)" { = \(14, 24, 34\)}
++ gdb_test "p $var (:, :)" { = \(\( *11, 12, 13, 14\) \( *21, 22, 23, 24\) \( *31, 32, 33, 34\) *\)}
++ gdb_test "ptype $var (:, :)" " = $int4 \\(4,3\\)"
++ gdb_test "p $var (:)" "Wrong number of subscripts"
++ gdb_test "p $var (:, :, :)" "Wrong number of subscripts"
+
++ set pf_prefix $old_prefix
++}
+
-+def register_pretty_printers ():
-+ pretty_printers_dict[re.compile ('^struct s$')] = pp_s
-+ pretty_printers_dict[re.compile ('^s$')] = pp_s
-+ pretty_printers_dict[re.compile ('^S$')] = pp_s
++gdb_test_no_output {set $a=a}
++delete_breakpoints
++gdb_unload
++gdb_test {p $a (3, 2:2)} { = \(23\)}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/subrange.f90
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.fortran/subrange.f90 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,28 @@
++! Copyright 2011 Free Software Foundation, Inc.
++!
++! 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/>.
+
-+ pretty_printers_dict[re.compile ('^struct ss$')] = pp_ss
-+ pretty_printers_dict[re.compile ('^ss$')] = pp_ss
-+ pretty_printers_dict[re.compile ('^const S &$')] = pp_s
-+ pretty_printers_dict[re.compile ('^SSS$')] = pp_sss
-+
-+ # Note that we purposely omit the typedef names here.
-+ # Printer lookup is based on canonical name.
-+ # However, we do need both tagged and untagged variants, to handle
-+ # both the C and C++ cases.
-+ pretty_printers_dict[re.compile ('^struct string_repr$')] = string_print
-+ pretty_printers_dict[re.compile ('^struct container$')] = ContainerPrinter
-+ pretty_printers_dict[re.compile ('^string_repr$')] = string_print
-+ pretty_printers_dict[re.compile ('^container$')] = ContainerPrinter
-+
-+pretty_printers_dict = {}
-+
-+register_pretty_printers ()
-+gdb.pretty_printers.append (lookup_function)
-diff --git a/gdb/testsuite/gdb.python/python-template.cc b/gdb/testsuite/gdb.python/python-template.cc
-new file mode 100644
-index 0000000..bd6a212
---- /dev/null
-+++ b/gdb/testsuite/gdb.python/python-template.cc
-@@ -0,0 +1,30 @@
-+/* This testcase is part of GDB, the GNU debugger.
++program test
++ integer, target :: a (4, 3)
++ integer, allocatable :: alloc (:, :)
++ integer, pointer :: ptr (:, :)
++ do 1 i = 1, 4
++ do 1 j = 1, 3
++ a (i, j) = j * 10 + i
++1 continue
++ allocate (alloc (4, 3))
++ alloc = a
++ ptr => a
++ write (*,*) a ! break-static
++end
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.gdb/selftest.exp
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/testsuite/gdb.gdb/selftest.exp 2011-07-03 10:33:07.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.gdb/selftest.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -92,6 +92,10 @@ proc do_steps_and_nexts {} {
+ set description "step over ttyarg initialization"
+ set command "step"
+ }
++ -re ".*python_script = 0.*$gdb_prompt $" {
++ set description "step over python_script initialization"
++ set command "step"
++ }
+ -re ".*pre_stat_chain = make_command_stats_cleanup.*$gdb_prompt $" {
+ set description "next over make_command_stats_cleanup and everything it calls"
+ set command "next"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.mi/mi2-var-stale-type.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.mi/mi2-var-stale-type.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,26 @@
++/* Copyright 2011 Free Software Foundation, Inc.
+
-+ Copyright 2008 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
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
-+template <typename T>
-+struct Foo {
-+};
++int
++main (int argc, char **argv)
++{
++ char vla[argc];
+
-+#ifndef TYPE
-+#define TYPE int
-+#endif
++ vla[0] = 0; /* break-here */
+
-+int main()
-+{
-+ Foo<TYPE> foo;
-+ return 0; // break here
++ return 0;
+}
-diff --git a/gdb/testsuite/gdb.python/python-template.exp b/gdb/testsuite/gdb.python/python-template.exp
-new file mode 100644
-index 0000000..561ff73
---- /dev/null
-+++ b/gdb/testsuite/gdb.python/python-template.exp
-@@ -0,0 +1,75 @@
-+# Copyright (C) 2008 Free Software Foundation, Inc.
-+
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.mi/mi2-var-stale-type.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.mi/mi2-var-stale-type.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,57 @@
++# Copyright 2011 Free Software Foundation, Inc.
++#
+# 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
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
-+# This file is part of the GDB testsuite. It tests the mechanism
-+# exposing values to Python.
++load_lib mi-support.exp
++set MIFLAGS "-i=mi2"
+
-+if $tracelevel then {
-+ strace $tracelevel
++gdb_exit
++if [mi_gdb_start] {
++ continue
+}
+
-+set testfile "python-template"
-+set srcfile ${testfile}.cc
++set testfile "mi2-var-stale-type"
++set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
-+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable \
-+ {debug c++}] != "" } {
-+ untested "Couldn't compile ${srcfile}"
++if {[build_executable ${testfile}.exp $testfile $srcfile] == -1} {
+ return -1
+}
+
-+# Start with a fresh gdb.
-+
-+gdb_exit
-+gdb_start
-+gdb_reinitialize_dir $srcdir/$subdir
-+
-+gdb_test_multiple "python print 23" "verify python support" {
-+ -re "not supported.*$gdb_prompt $" {
-+ unsupported "python support is disabled"
-+ return -1
-+ }
-+ -re "$gdb_prompt $" {}
-+}
-+
-+proc test_template_arg {type} {
-+ global testfile srcdir subdir srcfile binfile
-+ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
-+ executable \
-+ [list debug c++ additional_flags="-DTYPE=$type"]] != "" } {
-+ untested $type
-+ return -1
-+ }
-+ gdb_load ${binfile}
-+ if ![runto_main ] then {
-+ perror "couldn't run to breakpoint"
-+ return
-+ }
-+ # There is no executable code in main(), so we are where we want to be
-+ gdb_test "print foo" ""
-+ gdb_test "python foo = gdb.history(0)" ""
-+
-+ # Replace '*' with '\*' in regex.
-+ regsub -all {\*} $type {\*} t
-+ gdb_test "python print foo.type().template_argument(0)" $t $type
-+}
-+
-+test_template_arg "const int"
-+test_template_arg "volatile int"
-+test_template_arg "const int &"
-+test_template_arg "volatile int &"
-+test_template_arg "volatile int * const"
-+test_template_arg "volatile int * const *"
-+test_template_arg "const int * volatile"
-+test_template_arg "const int * volatile * const * volatile *"
-diff --git a/gdb/testsuite/gdb.python/python-value.c b/gdb/testsuite/gdb.python/python-value.c
-index 17e5c62..9637fe9 100644
---- a/gdb/testsuite/gdb.python/python-value.c
-+++ b/gdb/testsuite/gdb.python/python-value.c
-@@ -33,13 +33,17 @@ enum e
- TWO = 2
- };
-
-+typedef struct s *PTR;
-+
- enum e evalue = TWO;
-
- int
- main (int argc, char *argv[])
- {
-+ char *cp = argv[0]; /* Prevent gcc from optimizing argv[] out. */
- struct s s;
- union u u;
-+ PTR x = &s;
-
- s.a = 3;
- s.b = 5;
-diff --git a/gdb/testsuite/gdb.python/python-value.exp b/gdb/testsuite/gdb.python/python-value.exp
-index 8f5e0ab..9ca9593 100644
---- a/gdb/testsuite/gdb.python/python-value.exp
-+++ b/gdb/testsuite/gdb.python/python-value.exp
-@@ -227,6 +227,37 @@ proc test_value_in_inferior {} {
- gdb_test "python print arg0" "0x.*$testfile\"" "verify dereferenced value"
- }
-
-+proc test_value_after_death {} {
-+ # Construct a type while the inferior is still running.
-+ gdb_py_test_silent_cmd "python ptrtype = gdb.Type('PTR')" \
-+ "create PTR type" 1
-+
-+ # Check the type has the expected name.
-+ gdb_test "python print ptrtype" "PTR" \
-+ "check initial PTR type"
-+
-+ # Kill the inferior and remove the symbols.
-+ gdb_test "kill" "" "kill the inferior" \
-+ "Kill the program being debugged. .y or n. $" \
-+ "y"
-+ gdb_test "file" "" "Discard the symbols" \
-+ "Discard symbol table from.*y or n. $" \
-+ "y"
-+
-+ # Now create a value using that type. Relies on arg0, created by
-+ # test_value_in_inferior.
-+ gdb_py_test_silent_cmd "python castval = arg0.cast(ptrtype.pointer())" \
-+ "cast arg0 to PTR" 1
-+
-+ # Make sure the type is deleted.
-+ gdb_py_test_silent_cmd "python ptrtype = None" \
-+ "delete PTR type" 1
-+
-+ # Now see if the value's type is still valid.
-+ gdb_test "python print castval.type()" "PTR \\*" \
-+ "print value's type"
-+}
-+
-
- # Start with a fresh gdb.
-
-@@ -256,3 +287,4 @@ if ![runto_main] then {
- }
-
- test_value_in_inferior
-+test_value_after_death
-diff --git a/gdb/testsuite/lib/cp-support.exp b/gdb/testsuite/lib/cp-support.exp
-index dbd2f59..44e1b51 100644
---- a/gdb/testsuite/lib/cp-support.exp
-+++ b/gdb/testsuite/lib/cp-support.exp
-@@ -222,7 +222,7 @@ proc cp_test_ptype_class { in_command in_testname in_key in_tag in_class_table {
-
- set parse_okay 0
- gdb_test_multiple "$in_command" "$in_testname // parse failed" {
-- -re "type = (struct|class)${wsopt}(\[A-Za-z0-9_\]*)${wsopt}((:\[^\{\]*)?)${wsopt}\{(.*)\}${wsopt}(\[^\r\n\]*)\[\r\n\]+$gdb_prompt $" {
-+ -re "type = (struct|class)${wsopt}(\[A-Za-z0-9_:\]*)${wsopt}((:\[^\{\]*)?)${wsopt}\{(.*)\}${wsopt}(\[^\r\n\]*)\[\r\n\]+$gdb_prompt $" {
- set parse_okay 1
- set actual_key $expect_out(1,string)
- set actual_tag $expect_out(2,string)
-@@ -231,6 +231,7 @@ proc cp_test_ptype_class { in_command in_testname in_key in_tag in_class_table {
- set actual_tail $expect_out(6,string)
- }
- }
-+
- if { ! $parse_okay } then { return }
-
- # Check the actual key. It would be nice to require that it match
-diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
-index 820ab20..8b8e7c6 100644
---- a/gdb/testsuite/lib/gdb.exp
-+++ b/gdb/testsuite/lib/gdb.exp
-@@ -1162,9 +1162,12 @@ proc default_gdb_start { } {
- global gdb_prompt
- global timeout
- global gdb_spawn_id;
-+ global env
-
- gdb_stop_suppressing_tests;
-
-+ set env(LC_CTYPE) C
-+
- verbose "Spawning $GDB $INTERNAL_GDBFLAGS $GDBFLAGS"
-
- if [info exists gdb_spawn_id] {
-diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp
-index f62c240..bda7ea1 100644
---- a/gdb/testsuite/lib/mi-support.exp
-+++ b/gdb/testsuite/lib/mi-support.exp
-@@ -1237,6 +1237,21 @@ proc mi_varobj_update_with_type_change { name new_type new_children testname } {
- mi_gdb_test "-var-update $name" $er $testname
- }
-
-+# Update a dynamic varobj named NAME. CHILDREN is a list of children,
-+# in the same form as mi_list_varobj_children. TESTNAME is the name
-+# of the test.
-+proc mi_varobj_update_dynamic {name children testname} {
-+ set children_exp_j [mi_child_regexp $children 0]
-+
-+ set er "\\^done,changelist=\\\["
-+
-+ append er "{name=\"$name\",in_scope=\"true\",type_changed=\"false\""
-+ append er ",children=\\\[$children_exp_j.*\\\]}\\\]"
-+
-+ verbose -log "Expecting: $er"
-+ mi_gdb_test "-var-update $name" $er $testname
-+}
-+
- proc mi_check_varobj_value { name value testname } {
-
- mi_gdb_test "-var-evaluate-expression $name" \
-@@ -1244,6 +1259,42 @@ proc mi_check_varobj_value { name value testname } {
- $testname
- }
-
-+# Helper proc which constructs a child regexp for
-+# mi_list_varobj_children and mi_varobj_update_dynamic.
-+proc mi_child_regexp {children add_child} {
-+ set children_exp {}
-+ set whatever "\"\[^\"\]+\""
-+
-+ if {$add_child} {
-+ set pre "child="
-+ } else {
-+ set pre ""
-+ }
-+
-+ foreach item $children {
-+
-+ set name [lindex $item 0]
-+ set exp [lindex $item 1]
-+ set numchild [lindex $item 2]
-+ if {[llength $item] == 5} {
-+ set type [lindex $item 3]
-+ set value [lindex $item 4]
-+
-+ lappend children_exp\
-+ "$pre{name=\"$name\",exp=\"$exp\",numchild=\"$numchild\",value=\"$value\",type=\"$type\"\(,thread-id=\"\[0-9\]+\")?}"
-+ } elseif {[llength $item] == 4} {
-+ set type [lindex $item 3]
-+
-+ lappend children_exp\
-+ "$pre{name=\"$name\",exp=\"$exp\",numchild=\"$numchild\",type=\"$type\"\(,thread-id=\"\[0-9\]+\")?}"
-+ } else {
-+ lappend children_exp\
-+ "$pre{name=\"$name\",exp=\"$exp\",numchild=\"$numchild\"(,thread-id=\"\[0-9\]+\")?}"
-+ }
-+ }
-+ return [join $children_exp ","]
-+}
-+
- # Check the results of the:
- #
- # -var-list-children VARNAME
-@@ -1265,39 +1316,23 @@ proc mi_check_varobj_value { name value testname } {
- # have no value.
- #
- proc mi_list_varobj_children { varname children testname } {
-+ mi_list_varobj_children_range $varname [llength $children] $children \
-+ $testname
-+}
-
-+# Like mi_list_varobj_children, but assumes that a subrange has been
-+# selected with -var-set-child-range. NUMCHILDREN is the total number
-+# of children.
-+proc mi_list_varobj_children_range {varname numchildren children testname} {
- set options ""
- if {[llength $varname] == 2} {
- set options [lindex $varname 1]
- set varname [lindex $varname 0]
- }
-
-- set numchildren [llength $children]
-- set children_exp {}
- set whatever "\"\[^\"\]+\""
-
-- foreach item $children {
--
-- set name [lindex $item 0]
-- set exp [lindex $item 1]
-- set numchild [lindex $item 2]
-- if {[llength $item] == 5} {
-- set type [lindex $item 3]
-- set value [lindex $item 4]
--
-- lappend children_exp\
-- "child={name=\"$name\",exp=\"$exp\",numchild=\"$numchild\",value=\"$value\",type=\"$type\"\(,thread-id=\"\[0-9\]+\")?}"
-- } elseif {[llength $item] == 4} {
-- set type [lindex $item 3]
--
-- lappend children_exp\
-- "child={name=\"$name\",exp=\"$exp\",numchild=\"$numchild\",type=\"$type\"\(,thread-id=\"\[0-9\]+\")?}"
-- } else {
-- lappend children_exp\
-- "child={name=\"$name\",exp=\"$exp\",numchild=\"$numchild\"(,thread-id=\"\[0-9\]+\")?}"
-- }
-- }
-- set children_exp_j [join $children_exp ","]
-+ set children_exp_j [mi_child_regexp $children 1]
- if {$numchildren} {
- set expected "\\^done,numchild=\".*\",children=\\\[$children_exp_j.*\\\]"
- } {
-@@ -1770,3 +1805,25 @@ proc mi_check_thread_states { xstates test } {
- verbose -log "expecting: $pattern"
- mi_gdb_test "-thread-info" $pattern $test
- }
-+
-+# Return a list of MI features supported by this gdb.
-+proc mi_get_features {} {
-+ global expect_out mi_gdb_prompt
-+
-+ send_gdb "-list-features\n"
++mi_delete_breakpoints
++mi_gdb_reinitialize_dir $srcdir/$subdir
++mi_gdb_load ${binfile}
+
-+ gdb_expect {
-+ -re "\\^done,features=\\\[(.*)\\\]\r\n$mi_gdb_prompt$" {
-+ regsub -all -- \" $expect_out(1,string) "" features
-+ return [split $features ,]
-+ }
-+ -re ".*\r\n$mi_gdb_prompt$" {
-+ verbose -log "got $expect_out(buffer)"
-+ return ""
-+ }
-+ timeout {
-+ verbose -log "timeout in mi_gdb_prompt"
-+ return ""
-+ }
-+ }
-+}
-diff --git a/gdb/thread.c b/gdb/thread.c
-index 9dea7c2..326e44e 100644
---- a/gdb/thread.c
-+++ b/gdb/thread.c
-@@ -61,7 +61,6 @@ static int thread_alive (struct thread_info *);
- static void info_threads_command (char *, int);
- static void thread_apply_command (char *, int);
- static void restore_current_thread (ptid_t);
--static void prune_threads (void);
-
- /* Frontend view of the thread state. Possible extensions: stepping,
- finishing, until(ling),... */
-@@ -459,16 +458,23 @@ thread_alive (struct thread_info *tp)
- return 1;
- }
-
--static void
-+void
- prune_threads (void)
- {
-- struct thread_info *tp, *next;
-+ struct thread_info *tp;
-+ struct thread_info **prevp = &thread_list;
-
-- for (tp = thread_list; tp; tp = next)
-+ for (tp = *prevp; tp; tp = *prevp)
- {
-- next = tp->next;
-+ /* If the thread has died, free it and unlink it from the list.
-+ Otherwise, advance to the next thread. */
- if (!thread_alive (tp))
-- delete_thread (tp->ptid);
-+ {
-+ *prevp = tp->next;
-+ free_thread (tp);
-+ }
-+ else
-+ prevp = &tp->next;
- }
- }
-
-diff --git a/gdb/top.c b/gdb/top.c
-index d676f02..d6b17f0 100644
---- a/gdb/top.c
-+++ b/gdb/top.c
-@@ -377,6 +377,7 @@ execute_command (char *p, int from_tty)
- }
-
- free_all_values ();
-+ free_all_types ();
-
- /* Force cleanup of any alloca areas if using C alloca instead of
- a builtin alloca. */
-@@ -1246,7 +1247,8 @@ quit_target (void *arg)
- struct qt_args *qt = (struct qt_args *)arg;
-
- /* Kill or detach all inferiors. */
-- iterate_over_inferiors (kill_or_detach, qt);
-+ if (target_has_execution)
-+ iterate_over_inferiors (kill_or_detach, qt);
-
- /* Give all pushed targets a chance to do minimal cleanup, and pop
- them all out. */
-diff --git a/gdb/tracepoint.c b/gdb/tracepoint.c
-index 83df64e..003ef3a 100644
---- a/gdb/tracepoint.c
-+++ b/gdb/tracepoint.c
-@@ -1587,7 +1587,7 @@ encode_actions (struct tracepoint *t, char ***tdp_actions,
- case UNOP_MEMVAL:
- /* safe because we know it's a simple expression */
- tempval = evaluate_expression (exp);
-- addr = VALUE_ADDRESS (tempval) + value_offset (tempval);
-+ addr = value_address (tempval);
- len = TYPE_LENGTH (check_typedef (exp->elts[1].type));
- add_memrange (collect, memrange_absolute, addr, len);
- break;
-diff --git a/gdb/typeprint.c b/gdb/typeprint.c
-index 1f824fa..4a92a13 100644
---- a/gdb/typeprint.c
-+++ b/gdb/typeprint.c
-@@ -35,6 +35,7 @@
- #include "gdb_string.h"
- #include "exceptions.h"
- #include "valprint.h"
-+#include "dwarf2loc.h"
- #include <errno.h>
-
- extern void _initialize_typeprint (void);
-@@ -76,6 +77,9 @@ void
- type_print (struct type *type, char *varstring, struct ui_file *stream,
- int show)
- {
-+ if (show >= 0)
-+ type = check_typedef (type);
++mi_gdb_test {-interpreter-exec console "maintenance set internal-error quit yes"} \
++ {\^done} \
++ "maintenance set internal-error quit yes"
+
- LA_PRINT_TYPE (type, varstring, stream, show, 0);
- }
-
-@@ -115,7 +119,8 @@ whatis_exp (char *exp, int show)
- {
- struct expression *expr;
- struct value *val;
-- struct cleanup *old_chain = NULL;
-+ /* Required at least for the object_address_set call. */
-+ struct cleanup *old_chain = make_cleanup (null_cleanup, NULL);
- struct type *real_type = NULL;
- struct type *type;
- int full = 0;
-@@ -126,12 +131,13 @@ whatis_exp (char *exp, int show)
- if (exp)
- {
- expr = parse_expression (exp);
-- old_chain = make_cleanup (free_current_contents, &expr);
-+ make_cleanup (free_current_contents, &expr);
- val = evaluate_type (expr);
- }
- else
- val = access_value_history (0);
-
-+ object_address_set (VALUE_ADDRESS (val));
- type = value_type (val);
-
- get_user_print_options (&opts);
-@@ -168,8 +174,7 @@ whatis_exp (char *exp, int show)
- type_print (type, "", gdb_stdout, show);
- printf_filtered ("\n");
-
-- if (exp)
-- do_cleanups (old_chain);
-+ do_cleanups (old_chain);
- }
-
- static void
-@@ -236,7 +241,7 @@ print_type_scalar (struct type *type, LONGEST val, struct ui_file *stream)
- break;
-
- case TYPE_CODE_CHAR:
-- LA_PRINT_CHAR ((unsigned char) val, stream);
-+ LA_PRINT_CHAR ((unsigned char) val, type, stream);
- break;
-
- case TYPE_CODE_BOOL:
-diff --git a/gdb/typeprint.h b/gdb/typeprint.h
-index f561310..b39fd17 100644
---- a/gdb/typeprint.h
-+++ b/gdb/typeprint.h
-@@ -26,4 +26,6 @@ void print_type_scalar (struct type * type, LONGEST, struct ui_file *);
-
- void c_type_print_varspec_suffix (struct type *, struct ui_file *, int,
- int, int);
-+
-+void c_type_print_args (struct type *, struct ui_file *, int);
- #endif
-diff --git a/gdb/ui-file.c b/gdb/ui-file.c
-index 02a0314..5c8c96e 100644
---- a/gdb/ui-file.c
-+++ b/gdb/ui-file.c
-@@ -22,6 +22,7 @@
-
- #include "defs.h"
- #include "ui-file.h"
-+#include "gdb_obstack.h"
- #include "gdb_string.h"
-
- #include <errno.h>
-@@ -263,7 +264,7 @@ set_ui_file_data (struct ui_file *file, void *data,
- }
-
- /* ui_file utility function for converting a ``struct ui_file'' into
-- a memory buffer''. */
-+ a memory buffer. */
-
- struct accumulated_ui_file
- {
-@@ -297,6 +298,23 @@ ui_file_xstrdup (struct ui_file *file,
- *length = acc.length;
- return acc.buffer;
- }
++mi_gdb_test {-interpreter-exec console "maintenance set internal-error corefile yes"} \
++ {\^done} \
++ "maintenance set internal-error corefile yes"
+
-+static void
-+do_ui_file_obsavestring (void *context, const char *buffer, long length)
-+{
-+ struct obstack *obstack = (struct obstack *) context;
-+ obstack_grow (obstack, buffer, length);
-+}
++set line [gdb_get_line_number "break-here"]
++set func "main"
+
-+char *
-+ui_file_obsavestring (struct ui_file *file, struct obstack *obstack,
-+ long *length)
-+{
-+ ui_file_put (file, do_ui_file_obsavestring, obstack);
-+ *length = obstack_object_size (obstack);
-+ obstack_1grow (obstack, '\0');
-+ return obstack_finish (obstack);
-+}
- \f
- /* A pure memory based ``struct ui_file'' that can be used an output
- buffer. The buffers accumulated contents are available via
-diff --git a/gdb/ui-file.h b/gdb/ui-file.h
-index 1562d5a..d86a7eb 100644
---- a/gdb/ui-file.h
-+++ b/gdb/ui-file.h
-@@ -19,6 +19,7 @@
- #ifndef UI_FILE_H
- #define UI_FILE_H
-
-+struct obstack;
- struct ui_file;
-
- /* Create a generic ui_file object with null methods. */
-@@ -77,7 +78,10 @@ extern void ui_file_put (struct ui_file *src, ui_file_put_method_ftype *write, v
- appended NUL. */
- extern char *ui_file_xstrdup (struct ui_file *file, long *length);
-
--
-+/* Similar to ui_file_xstrdup, but return a new string allocated on
-+ OBSTACK. */
-+extern char *ui_file_obsavestring (struct ui_file *file,
-+ struct obstack *obstack, long *length);
-
- extern long ui_file_read (struct ui_file *file, char *buf, long length_buf);
-
-diff --git a/gdb/utils.c b/gdb/utils.c
-index 9224839..88a9a39 100644
---- a/gdb/utils.c
-+++ b/gdb/utils.c
-@@ -272,6 +272,19 @@ make_cleanup_fclose (FILE *file)
- }
-
- static void
-+do_obstack_free (void *arg)
-+{
-+ struct obstack *ob = arg;
-+ obstack_free (ob, NULL);
-+}
++mi_gdb_test "-break-insert -t $srcfile:$line" \
++ "\\^done,bkpt=\{number=\"\[0-9\]+\",type=\"breakpoint\",disp=\"del\",enabled=\"y\",addr=\"$hex\",func=\"$func\(\\\(.*\\\)\)?\",file=\".*\",line=\"$line\",times=\"0\",original-location=\".*\"\}" \
++ "breakpoint at $func"
+
-+struct cleanup *
-+make_cleanup_obstack_free (struct obstack *obstack)
-+{
-+ return make_cleanup (do_obstack_free, obstack);
++if { [mi_run_cmd] < 0 } {
++ return -1
+}
++mi_expect_stop "breakpoint-hit" $func ".*" ".*" "\[0-9\]+" { "" "disp=\"del\"" } "stop after initializing vla"
+
-+static void
- do_ui_file_delete (void *arg)
- {
- ui_file_delete (arg);
-@@ -1554,21 +1567,33 @@ query (const char *ctlstr, ...)
- va_end (args);
- }
-
--/* Print an error message saying that we couldn't make sense of a
-- \^mumble sequence in a string or character constant. START and END
-- indicate a substring of some larger string that contains the
-- erroneous backslash sequence, missing the initial backslash. */
--static NORETURN int
--no_control_char_error (const char *start, const char *end)
-+/* A helper for parse_escape that converts a host character to a
-+ target character. C is the host character. If conversion is
-+ possible, then the target character is stored in *TARGET_C and the
-+ function returns 1. Otherwise, the function returns 0. */
-+
-+static int
-+host_char_to_target (int c, int *target_c)
- {
-- int len = end - start;
-- char *copy = alloca (end - start + 1);
-+ struct obstack host_data;
-+ char the_char = c;
-+ struct cleanup *cleanups;
-+ int result = 0;
-+
-+ obstack_init (&host_data);
-+ cleanups = make_cleanup_obstack_free (&host_data);
-+
-+ convert_between_encodings (target_charset (), host_charset (),
-+ &the_char, 1, 1, &host_data, translit_none);
-
-- memcpy (copy, start, len);
-- copy[len] = '\0';
-+ if (obstack_object_size (&host_data) == 1)
-+ {
-+ result = 1;
-+ *target_c = *(char *) obstack_base (&host_data);
-+ }
-
-- error (_("There is no control character `\\%s' in the `%s' character set."),
-- copy, target_charset ());
-+ do_cleanups (cleanups);
-+ return result;
- }
-
- /* Parse a C escape sequence. STRING_PTR points to a variable
-@@ -1591,53 +1616,13 @@ parse_escape (char **string_ptr)
- {
- int target_char;
- int c = *(*string_ptr)++;
-- if (c_parse_backslash (c, &target_char))
-- return target_char;
-- else
-- switch (c)
-- {
-+ switch (c)
-+ {
- case '\n':
- return -2;
- case 0:
- (*string_ptr)--;
- return 0;
-- case '^':
-- {
-- /* Remember where this escape sequence started, for reporting
-- errors. */
-- char *sequence_start_pos = *string_ptr - 1;
--
-- c = *(*string_ptr)++;
--
-- if (c == '?')
-- {
-- /* XXXCHARSET: What is `delete' in the host character set? */
-- c = 0177;
--
-- if (!host_char_to_target (c, &target_char))
-- error (_("There is no character corresponding to `Delete' "
-- "in the target character set `%s'."), host_charset ());
--
-- return target_char;
-- }
-- else if (c == '\\')
-- target_char = parse_escape (string_ptr);
-- else
-- {
-- if (!host_char_to_target (c, &target_char))
-- no_control_char_error (sequence_start_pos, *string_ptr);
-- }
--
-- /* Now target_char is something like `c', and we want to find
-- its control-character equivalent. */
-- if (!target_char_to_control_char (target_char, &target_char))
-- no_control_char_error (sequence_start_pos, *string_ptr);
--
-- return target_char;
-- }
--
-- /* XXXCHARSET: we need to use isdigit and value-of-digit
-- methods of the host character set here. */
-
- case '0':
- case '1':
-@@ -1648,16 +1633,16 @@ parse_escape (char **string_ptr)
- case '6':
- case '7':
- {
-- int i = c - '0';
-+ int i = host_hex_value (c);
- int count = 0;
- while (++count < 3)
- {
- c = (**string_ptr);
-- if (c >= '0' && c <= '7')
-+ if (isdigit (c) && c != '8' && c != '9')
- {
- (*string_ptr)++;
- i *= 8;
-- i += c - '0';
-+ i += host_hex_value (c);
- }
- else
- {
-@@ -1666,14 +1651,39 @@ parse_escape (char **string_ptr)
- }
- return i;
- }
-- default:
-- if (!host_char_to_target (c, &target_char))
-- error
-- ("The escape sequence `\%c' is equivalent to plain `%c', which"
-- " has no equivalent\n" "in the `%s' character set.", c, c,
-- target_charset ());
-- return target_char;
-- }
++mi_create_varobj "vla" "vla" "create local variable vla"
+
-+ case 'a':
-+ c = '\a';
-+ break;
-+ case 'b':
-+ c = '\b';
-+ break;
-+ case 'f':
-+ c = '\f';
-+ break;
-+ case 'n':
-+ c = '\n';
-+ break;
-+ case 'r':
-+ c = '\r';
-+ break;
-+ case 't':
-+ c = '\t';
-+ break;
-+ case 'v':
-+ c = '\v';
-+ break;
++mi_gdb_test "-var-update *" "\\^done,changelist=.*" "-var-update *"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.multi/watchpoint-multi.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.multi/watchpoint-multi.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,59 @@
++/* This testcase is part of GDB, the GNU debugger.
+
-+ default:
-+ break;
-+ }
++ Copyright 2010 Free Software Foundation, Inc.
+
-+ if (!host_char_to_target (c, &target_char))
-+ error
-+ ("The escape sequence `\%c' is equivalent to plain `%c', which"
-+ " has no equivalent\n" "in the `%s' character set.", c, c,
-+ target_charset ());
-+ return target_char;
- }
- \f
- /* Print the character C on STREAM as part of the contents of a literal
-diff --git a/gdb/v850-tdep.c b/gdb/v850-tdep.c
-index 9850de4..285fe3f 100644
---- a/gdb/v850-tdep.c
-+++ b/gdb/v850-tdep.c
-@@ -705,7 +705,7 @@ v850_push_dummy_call (struct gdbarch *gdbarch,
- if (!v850_type_is_scalar (value_type (*args))
- && TYPE_LENGTH (value_type (*args)) > E_MAX_RETTYPE_SIZE_IN_REGS)
- {
-- store_unsigned_integer (valbuf, 4, VALUE_ADDRESS (*args));
-+ store_unsigned_integer (valbuf, 4, value_address (*args));
- len = 4;
- val = valbuf;
- }
-diff --git a/gdb/valarith.c b/gdb/valarith.c
-index f38cdb8..8e103cf 100644
---- a/gdb/valarith.c
-+++ b/gdb/valarith.c
-@@ -164,9 +164,9 @@ an integer nor a pointer of the same type."));
- struct value *
- value_subscript (struct value *array, struct value *idx)
- {
-- struct value *bound;
- int c_style = current_language->c_style_arrays;
- struct type *tarray;
-+ LONGEST index = value_as_long (idx);
-
- array = coerce_ref (array);
- tarray = check_typedef (value_type (array));
-@@ -179,13 +179,26 @@ value_subscript (struct value *array, struct value *idx)
- get_discrete_bounds (range_type, &lowerbound, &upperbound);
-
- if (VALUE_LVAL (array) != lval_memory)
-- return value_subscripted_rvalue (array, idx, lowerbound);
-+ {
-+ if (index >= lowerbound && index <= upperbound)
-+ {
-+ CORE_ADDR element_size = TYPE_LENGTH (TYPE_TARGET_TYPE (tarray));
-+ CORE_ADDR offset = (index - lowerbound) * element_size;
++ 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.
+
-+ return value_subscripted_rvalue (array, offset);
-+ }
-+ error (_("array or string index out of range"));
-+ }
-
- if (c_style == 0)
- {
-- LONGEST index = value_as_long (idx);
- if (index >= lowerbound && index <= upperbound)
-- return value_subscripted_rvalue (array, idx, lowerbound);
-+ {
-+ CORE_ADDR element_size = TYPE_LENGTH (TYPE_TARGET_TYPE (tarray));
-+ CORE_ADDR offset = (index - lowerbound) * element_size;
++ 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.
+
-+ return value_subscripted_rvalue (array, offset);
-+ }
- /* Emit warning unless we have an array of unknown size.
- An array of unknown size has lowerbound 0 and upperbound -1. */
- if (upperbound > -1)
-@@ -194,49 +207,52 @@ value_subscript (struct value *array, struct value *idx)
- c_style = 1;
- }
-
-- if (lowerbound != 0)
-- {
-- bound = value_from_longest (value_type (idx), (LONGEST) lowerbound);
-- idx = value_binop (idx, bound, BINOP_SUB);
-- }
--
-+ index -= lowerbound;
- array = value_coerce_array (array);
- }
-
- if (c_style)
-- return value_ind (value_ptradd (array, idx));
-+ {
-+ struct value *idx;
++ You should have received a copy of the GNU General Public License
++ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
-+ idx = value_from_longest (builtin_type_int32, index);
-+ return value_ind (value_ptradd (array, idx));
-+ }
- else
- error (_("not an array or string"));
- }
-
--/* Return the value of EXPR[IDX], expr an aggregate rvalue
-- (eg, a vector register). This routine used to promote floats
-- to doubles, but no longer does. */
-+/* Return the value of *((void *) ARRAY + ELEMENT), ARRAY an aggregate rvalue
-+ (eg, a vector register). This routine used to promote floats to doubles,
-+ but no longer does. OFFSET is zero-based with 0 for the lowermost existing
-+ element, it must be expressed in bytes (therefore multiplied by
-+ check_typedef (TYPE_TARGET_TYPE (array_type)). */
-
- struct value *
--value_subscripted_rvalue (struct value *array, struct value *idx, int lowerbound)
-+value_subscripted_rvalue (struct value *array, CORE_ADDR offset)
- {
- struct type *array_type = check_typedef (value_type (array));
- struct type *elt_type = check_typedef (TYPE_TARGET_TYPE (array_type));
-- unsigned int elt_size = TYPE_LENGTH (elt_type);
-- LONGEST index = value_as_long (idx);
-- unsigned int elt_offs = elt_size * longest_to_int (index - lowerbound);
- struct value *v;
-
-- if (index < lowerbound || elt_offs >= TYPE_LENGTH (array_type))
-- error (_("no such vector element"));
-+ /* Do not check TYPE_LENGTH (array_type) as we may have been given the
-+ innermost dimension of a multi-dimensional Fortran array where its length
-+ is shorter than the possibly accessed element offset. */
-
- v = allocate_value (elt_type);
- if (VALUE_LVAL (array) == lval_memory && value_lazy (array))
- set_value_lazy (v, 1);
- else
-- memcpy (value_contents_writeable (v),
-- value_contents (array) + elt_offs, elt_size);
-+ {
-+ unsigned int elt_size = TYPE_LENGTH (elt_type);
-+ memcpy (value_contents_writeable (v),
-+ value_contents (array) + offset, elt_size);
-+ }
-
- set_value_component_location (v, array);
- VALUE_REGNUM (v) = VALUE_REGNUM (array);
- VALUE_FRAME_ID (v) = VALUE_FRAME_ID (array);
-- set_value_offset (v, value_offset (array) + elt_offs);
-+ set_value_offset (v, value_offset (array) + offset);
- return v;
- }
-
-diff --git a/gdb/valops.c b/gdb/valops.c
-index 9810f2b..14c562e 100644
---- a/gdb/valops.c
-+++ b/gdb/valops.c
-@@ -38,6 +38,7 @@
- #include "cp-support.h"
- #include "dfp.h"
- #include "user-regs.h"
-+#include "dwarf2loc.h"
-
- #include <errno.h>
- #include "gdb_string.h"
-@@ -254,9 +255,8 @@ value_cast_structs (struct type *type, struct value *v2)
- if (v)
- {
- /* Downcasting is possible (t1 is superclass of v2). */
-- CORE_ADDR addr2 = VALUE_ADDRESS (v2);
-- addr2 -= (VALUE_ADDRESS (v)
-- + value_offset (v)
-+ CORE_ADDR addr2 = value_address (v2);
-+ addr2 -= (value_address (v)
- + value_embedded_offset (v));
- return value_at (type, addr2);
- }
-@@ -371,8 +371,6 @@ value_cast (struct type *type, struct value *arg2)
- new_length = val_length / element_length;
- if (val_length % element_length != 0)
- warning (_("array element type size does not divide object size in cast"));
-- /* FIXME-type-allocation: need a way to free this type when
-- we are done with it. */
- range_type = create_range_type ((struct type *) NULL,
- TYPE_TARGET_TYPE (range_type),
- low_bound,
-@@ -511,7 +509,7 @@ value_cast (struct type *type, struct value *arg2)
- }
- else if (VALUE_LVAL (arg2) == lval_memory)
- return value_at_lazy (type,
-- VALUE_ADDRESS (arg2) + value_offset (arg2));
-+ value_address (arg2));
- else if (code1 == TYPE_CODE_VOID)
- {
- return value_zero (builtin_type_void, not_lval);
-@@ -568,6 +566,64 @@ value_one (struct type *type, enum lval_type lv)
- return val;
- }
-
-+/* object_address_set must be already called before this function. */
++#include <pthread.h>
++#include <assert.h>
+
-+const char *
-+object_address_data_not_valid (struct type *type)
++static volatile int a, b, c;
++
++static void
++marker_exit1 (void)
+{
-+ /* Attributes are present only at the target type of a typedef. Make the
-+ call conditional as it would otherwise loop through type_length_get. */
-+ if (TYPE_CODE (type) == TYPE_CODE_TYPEDEF)
-+ CHECK_TYPEDEF (type);
++ a = 1;
++}
+
-+ /* DW_AT_associated has a preference over DW_AT_allocated. */
-+ if (TYPE_NOT_ASSOCIATED (type)
-+ || (TYPE_ASSOCIATED (type) != NULL
-+ && 0 == dwarf_locexpr_baton_eval (TYPE_ASSOCIATED (type))))
-+ return N_("object is not associated");
++/* Workaround PR breakpoints/12272 by two different breakpoint locations. */
++static void
++marker_exit2 (void)
++{
++ a = 1;
++}
+
-+ if (TYPE_NOT_ALLOCATED (type)
-+ || (TYPE_ALLOCATED (type) != NULL
-+ && 0 == dwarf_locexpr_baton_eval (TYPE_ALLOCATED (type))))
-+ return N_("object is not allocated");
++static void *
++start (void *arg)
++{
++ b = 2;
++ c = 3;
+
+ return NULL;
+}
+
-+/* Return non-zero if the variable is valid. If it is valid the function
-+ may store the data address (DW_AT_DATA_LOCATION) of TYPE at *ADDRESS_RETURN.
-+ You must set *ADDRESS_RETURN as VALUE_ADDRESS (VAL) before calling this
-+ function. If no DW_AT_DATA_LOCATION is present for TYPE the address at
-+ *ADDRESS_RETURN is left unchanged. ADDRESS_RETURN must not be NULL, use
-+ object_address_data_not_valid () for just the data validity check. */
-+
+int
-+object_address_get_data (struct type *type, CORE_ADDR *address_return)
++main (void)
+{
-+ gdb_assert (address_return != NULL);
++ pthread_t thread;
++ int i;
+
-+ object_address_set (*address_return);
++ i = pthread_create (&thread, NULL, start, NULL);
++ assert (i == 0);
++ i = pthread_join (thread, NULL);
++ assert (i == 0);
+
-+ /* TYPE_DATA_LOCATION_DWARF_BLOCK / TYPE_DATA_LOCATION_ADDR are present only
-+ at the target type of a typedef. */
-+ CHECK_TYPEDEF (type);
++ marker_exit1 ();
++ marker_exit2 ();
++ return 0;
++}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.multi/watchpoint-multi.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.multi/watchpoint-multi.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,113 @@
++# Copyright 2010 Free Software Foundation, Inc.
+
-+ if (object_address_data_not_valid (type) != NULL)
-+ {
-+ /* Do not try to evaluate DW_AT_data_location as it may even crash
-+ (it would just return the value zero in the gfortran case). */
-+ return 0;
-+ }
++# 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/>.
+
-+ if (TYPE_DATA_LOCATION_IS_ADDR (type))
-+ *address_return = TYPE_DATA_LOCATION_ADDR (type);
-+ else if (TYPE_DATA_LOCATION_DWARF_BLOCK (type) != NULL)
-+ *address_return
-+ = dwarf_locexpr_baton_eval (TYPE_DATA_LOCATION_DWARF_BLOCK (type));
++if { [is_remote target] || ![isnative] } then {
++ continue
++}
+
-+ return 1;
++set testfile "watchpoint-multi"
++
++set executable ${testfile}
++set srcfile ${testfile}.c
++set binfile ${objdir}/${subdir}/${executable}
++
++if { [gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
++ untested ${testfile}.exp
++ return -1
+}
+
- /* Return a value with type TYPE located at ADDR.
-
- Call value_at only if the data needs to be fetched immediately;
-@@ -593,7 +649,7 @@ value_at (struct type *type, CORE_ADDR addr)
- read_memory (addr, value_contents_all_raw (val), TYPE_LENGTH (type));
-
- VALUE_LVAL (val) = lval_memory;
-- VALUE_ADDRESS (val) = addr;
-+ set_value_address (val, addr);
-
- return val;
- }
-@@ -611,7 +667,7 @@ value_at_lazy (struct type *type, CORE_ADDR addr)
- val = allocate_value_lazy (type);
-
- VALUE_LVAL (val) = lval_memory;
-- VALUE_ADDRESS (val) = addr;
-+ set_value_address (val, addr);
-
- return val;
- }
-@@ -637,11 +693,19 @@ value_fetch_lazy (struct value *val)
- allocate_value_contents (val);
- if (VALUE_LVAL (val) == lval_memory)
- {
-- CORE_ADDR addr = VALUE_ADDRESS (val) + value_offset (val);
-- int length = TYPE_LENGTH (check_typedef (value_enclosing_type (val)));
-+ CORE_ADDR addr = VALUE_ADDRESS (val);
++clean_restart $executable
+
-+ if (object_address_get_data (value_type (val), &addr))
-+ {
-+ struct type *type = value_enclosing_type (val);
-+ int length = TYPE_LENGTH (check_typedef (type));
-
-- if (length)
-- read_memory (addr, value_contents_all_raw (val), length);
-+ if (length)
-+ {
-+ addr += value_offset (val);
-+ read_memory (addr, value_contents_all_raw (val), length);
-+ }
-+ }
- }
- else if (VALUE_LVAL (val) == lval_register)
- {
-@@ -709,7 +773,7 @@ value_fetch_lazy (struct value *val)
- VALUE_REGNUM (new_val));
- else if (VALUE_LVAL (new_val) == lval_memory)
- fprintf_unfiltered (gdb_stdlog, " address=0x%s",
-- paddr_nz (VALUE_ADDRESS (new_val)));
-+ paddr_nz (value_address (new_val)));
- else
- fprintf_unfiltered (gdb_stdlog, " computed");
-
-@@ -813,16 +877,15 @@ value_assign (struct value *toval, struct value *fromval)
- error (_("Can't handle bitfields which don't fit in a %d bit word."),
- (int) sizeof (LONGEST) * HOST_CHAR_BIT);
-
-- read_memory (VALUE_ADDRESS (toval) + value_offset (toval),
-- buffer, changed_len);
-+ read_memory (value_address (toval), buffer, changed_len);
- modify_field (buffer, value_as_long (fromval),
- value_bitpos (toval), value_bitsize (toval));
-- changed_addr = VALUE_ADDRESS (toval) + value_offset (toval);
-+ changed_addr = value_address (toval);
- dest_buffer = buffer;
- }
- else
- {
-- changed_addr = VALUE_ADDRESS (toval) + value_offset (toval);
-+ changed_addr = value_address (toval);
- changed_len = TYPE_LENGTH (type);
- dest_buffer = value_contents (fromval);
- }
-@@ -985,11 +1048,11 @@ value_repeat (struct value *arg1, int count)
-
- val = allocate_repeat_value (value_enclosing_type (arg1), count);
-
-- read_memory (VALUE_ADDRESS (arg1) + value_offset (arg1),
-+ read_memory (value_address (arg1),
- value_contents_all_raw (val),
- TYPE_LENGTH (value_enclosing_type (val)));
- VALUE_LVAL (val) = lval_memory;
-- VALUE_ADDRESS (val) = VALUE_ADDRESS (arg1) + value_offset (arg1);
-+ set_value_address (val, value_address (arg1));
-
- return val;
- }
-@@ -1036,10 +1099,11 @@ address_of_variable (struct symbol *var, struct block *b)
-
- val = value_of_variable (var, b);
-
-- if ((VALUE_LVAL (val) == lval_memory && value_lazy (val))
-+ if ((VALUE_LVAL (val) == lval_memory && value_lazy (val)
-+ && object_address_get_data (type, &VALUE_ADDRESS (val)))
- || TYPE_CODE (type) == TYPE_CODE_FUNC)
- {
-- CORE_ADDR addr = VALUE_ADDRESS (val);
-+ CORE_ADDR addr = value_address (val);
- return value_from_pointer (lookup_pointer_type (type), addr);
- }
-
-@@ -1145,6 +1209,7 @@ struct value *
- value_coerce_array (struct value *arg1)
- {
- struct type *type = check_typedef (value_type (arg1));
-+ CORE_ADDR address;
-
- /* If the user tries to do something requiring a pointer with an
- array that has not yet been pushed to the target, then this would
-@@ -1154,8 +1219,12 @@ value_coerce_array (struct value *arg1)
- if (VALUE_LVAL (arg1) != lval_memory)
- error (_("Attempt to take address of value not located in memory."));
-
-+ address = VALUE_ADDRESS (arg1);
-+ if (!object_address_get_data (type, &address))
-+ error (_("Attempt to take address of non-valid value."));
++if ![runto_main] {
++ return
++}
++# Never keep/use any non-hw breakpoints to workaround a multi-inferior bug.
++delete_breakpoints
+
- return value_from_pointer (lookup_pointer_type (TYPE_TARGET_TYPE (type)),
-- (VALUE_ADDRESS (arg1) + value_offset (arg1)));
-+ address + value_offset (arg1));
- }
-
- /* Given a value which is a function, return a value which is a pointer
-@@ -1170,7 +1239,7 @@ value_coerce_function (struct value *arg1)
- error (_("Attempt to take address of value not located in memory."));
-
- retval = value_from_pointer (lookup_pointer_type (value_type (arg1)),
-- (VALUE_ADDRESS (arg1) + value_offset (arg1)));
-+ (value_address (arg1)));
- return retval;
- }
-
-@@ -1205,8 +1274,7 @@ value_addr (struct value *arg1)
-
- /* Get target memory address */
- arg2 = value_from_pointer (lookup_pointer_type (value_type (arg1)),
-- (VALUE_ADDRESS (arg1)
-- + value_offset (arg1)
-+ (value_address (arg1)
- + value_embedded_offset (arg1)));
-
- /* This may be a pointer to a base subobject; so remember the
-@@ -1352,6 +1420,24 @@ value_array (int lowbound, int highbound, struct value **elemvec)
- return val;
- }
-
-+struct value *
-+value_typed_string (char *ptr, int len, struct type *char_type)
-+{
-+ struct value *val;
-+ int lowbound = current_language->string_lower_bound;
-+ int highbound = len / TYPE_LENGTH (char_type);
-+ struct type *rangetype = create_range_type ((struct type *) NULL,
-+ builtin_type_int32,
-+ lowbound,
-+ highbound + lowbound - 1);
-+ struct type *stringtype
-+ = create_array_type ((struct type *) NULL, char_type, rangetype);
-+
-+ val = allocate_value (stringtype);
-+ memcpy (value_contents_raw (val), ptr, len);
-+ return val;
++gdb_test "add-inferior" "Added inferior 2"
++gdb_test "inferior 2" "witching to inferior 2 .*"
++gdb_load $binfile
++
++if ![runto_main] {
++ return
+}
++delete_breakpoints
+
- /* Create a value for a string constant by allocating space in the
- inferior, copying the data into that space, and returning the
- address with type TYPE_CODE_STRING. PTR points to the string
-@@ -1600,8 +1686,7 @@ search_struct_field (char *name, struct value *arg1, int offset,
-
- boffset = baseclass_offset (type, i,
- value_contents (arg1) + offset,
-- VALUE_ADDRESS (arg1)
-- + value_offset (arg1) + offset);
-+ value_address (arg1) + offset);
- if (boffset == -1)
- error (_("virtual baseclass botch"));
-
-@@ -1616,13 +1701,13 @@ search_struct_field (char *name, struct value *arg1, int offset,
-
- v2 = allocate_value (basetype);
- base_addr =
-- VALUE_ADDRESS (arg1) + value_offset (arg1) + boffset;
-+ value_address (arg1) + boffset;
- if (target_read_memory (base_addr,
- value_contents_raw (v2),
- TYPE_LENGTH (basetype)) != 0)
- error (_("virtual baseclass botch"));
- VALUE_LVAL (v2) = lval_memory;
-- VALUE_ADDRESS (v2) = base_addr;
-+ set_value_address (v2, base_addr);
- }
- else
- {
-@@ -1745,8 +1830,7 @@ search_struct_method (char *name, struct value **arg1p,
- if (offset < 0 || offset >= TYPE_LENGTH (type))
- {
- gdb_byte *tmp = alloca (TYPE_LENGTH (baseclass));
-- if (target_read_memory (VALUE_ADDRESS (*arg1p)
-- + value_offset (*arg1p) + offset,
-+ if (target_read_memory (value_address (*arg1p) + offset,
- tmp, TYPE_LENGTH (baseclass)) != 0)
- error (_("virtual baseclass botch"));
- base_valaddr = tmp;
-@@ -1755,8 +1839,7 @@ search_struct_method (char *name, struct value **arg1p,
- base_valaddr = value_contents (*arg1p) + offset;
-
- base_offset = baseclass_offset (type, i, base_valaddr,
-- VALUE_ADDRESS (*arg1p)
-- + value_offset (*arg1p) + offset);
-+ value_address (*arg1p) + offset);
- if (base_offset == -1)
- error (_("virtual baseclass botch"));
- }
-@@ -1965,7 +2048,7 @@ find_method_list (struct value **argp, char *method,
- base_offset = value_offset (*argp) + offset;
- base_offset = baseclass_offset (type, i,
- value_contents (*argp) + base_offset,
-- VALUE_ADDRESS (*argp) + base_offset);
-+ value_address (*argp) + base_offset);
- if (base_offset == -1)
- error (_("virtual baseclass botch"));
- }
-@@ -2083,12 +2166,25 @@ find_overload_match (struct type **arg_types, int nargs,
- if (method)
- {
- gdb_assert (obj);
-+
-+ /* OBJ may be a pointer value rather than the object itself. */
-+ obj = coerce_ref (obj);
-+ while (TYPE_CODE (check_typedef (value_type (obj))) == TYPE_CODE_PTR)
-+ obj = coerce_ref (value_ind (obj));
- obj_type_name = TYPE_NAME (value_type (obj));
-- /* Hack: evaluate_subexp_standard often passes in a pointer
-- value rather than the object itself, so try again. */
-- if ((!obj_type_name || !*obj_type_name)
-- && (TYPE_CODE (value_type (obj)) == TYPE_CODE_PTR))
-- obj_type_name = TYPE_NAME (TYPE_TARGET_TYPE (value_type (obj)));
-+
-+ /* First check whether this is a data member, e.g. a pointer to
-+ a function. */
-+ if (TYPE_CODE (check_typedef (value_type (obj))) == TYPE_CODE_STRUCT)
-+ {
-+ *valp = search_struct_field (name, obj, 0,
-+ check_typedef (value_type (obj)), 0);
-+ if (*valp)
-+ {
-+ *staticp = 1;
-+ return 0;
-+ }
-+ }
-
- fns_ptr = value_find_oload_method_list (&temp, name,
- 0, &num_fns,
-@@ -2108,16 +2204,29 @@ find_overload_match (struct type **arg_types, int nargs,
- }
- else
- {
-- const char *qualified_name = SYMBOL_CPLUS_DEMANGLED_NAME (fsym);
-+ const char *qualified_name = SYMBOL_NATURAL_NAME (fsym);
-
-- /* If we have a C++ name, try to extract just the function
-- part. */
-- if (qualified_name)
-- func_name = cp_func_name (qualified_name);
-+ /* If we have a function with a C++ name, try to extract just
-+ the function part. Do not try this for non-functions (e.g.
-+ function pointers). */
-+ if (qualified_name
-+ && TYPE_CODE (check_typedef (SYMBOL_TYPE (fsym))) == TYPE_CODE_FUNC)
-+ {
-+ func_name = cp_func_name (qualified_name);
++# Simulate non-stop+target-async which also uses breakpoint always-inserted.
++gdb_test_no_output "set breakpoint always-inserted on"
++# displaced-stepping is also needed as other GDB sometimes still removes the
++# breakpoints, even with always-inserted on.
++gdb_test_no_output "set displaced-stepping on"
+
-+ /* If cp_func_name did not remove anything, the name of the
-+ symbol did not include scope or argument types - it was
-+ probably a C-style function. */
-+ if (func_name && strcmp (func_name, qualified_name) == 0)
-+ {
-+ xfree (func_name);
-+ func_name = NULL;
-+ }
-+ }
-
-- /* If there was no C++ name, this must be a C-style function.
-- Just return the same symbol. Do the same if cp_func_name
-- fails for some reason. */
-+ /* If there was no C++ name, this must be a C-style function or
-+ not a function at all. Just return the same symbol. Do the
-+ same if cp_func_name fails for some reason. */
- if (func_name == NULL)
- {
- *symp = fsym;
-@@ -2558,8 +2667,8 @@ check_field (struct type *type, const char *name)
- the comment before value_struct_elt_for_reference. */
-
- struct value *
--value_aggregate_elt (struct type *curtype,
-- char *name, int want_address,
-+value_aggregate_elt (struct type *curtype, char *name,
-+ struct type *expect_type, int want_address,
- enum noside noside)
- {
- switch (TYPE_CODE (curtype))
-@@ -2567,7 +2676,7 @@ value_aggregate_elt (struct type *curtype,
- case TYPE_CODE_STRUCT:
- case TYPE_CODE_UNION:
- return value_struct_elt_for_reference (curtype, 0, curtype,
-- name, NULL,
-+ name, expect_type,
- want_address, noside);
- case TYPE_CODE_NAMESPACE:
- return value_namespace_elt (curtype, name,
-@@ -2671,7 +2780,7 @@ value_struct_elt_for_reference (struct type *domain, int offset,
- if (intype)
- {
- while (j--)
-- if (TYPE_FN_FIELD_TYPE (f, j) == intype)
-+ if (compare_parameters (TYPE_FN_FIELD_TYPE (f, j), intype))
- break;
- if (j < 0)
- error (_("no member function matches that type instantiation"));
-@@ -2725,7 +2834,7 @@ value_struct_elt_for_reference (struct type *domain, int offset,
- result = allocate_value (lookup_methodptr_type (TYPE_FN_FIELD_TYPE (f, j)));
- cplus_make_method_ptr (value_type (result),
- value_contents_writeable (result),
-- VALUE_ADDRESS (v), 0);
-+ value_address (v), 0);
- }
- }
- return result;
-@@ -2791,7 +2900,7 @@ value_maybe_namespace_elt (const struct type *curtype,
- struct symbol *sym;
- struct value *result;
-
-- sym = cp_lookup_symbol_namespace (namespace_name, name, NULL,
-+ sym = cp_lookup_symbol_namespace_incremental (namespace_name, name, NULL,
- get_selected_block (0),
- VAR_DOMAIN);
-
-@@ -2884,7 +2993,7 @@ value_full_object (struct value *argp,
- /* Go back by the computed top_offset from the beginning of the
- object, adjusting for the embedded offset of argp if that's what
- value_rtti_type used for its computation. */
-- new_val = value_at_lazy (real_type, VALUE_ADDRESS (argp) - top +
-+ new_val = value_at_lazy (real_type, value_address (argp) - top +
- (using_enc ? 0 : value_embedded_offset (argp)));
- deprecated_set_value_type (new_val, value_type (argp));
- set_value_embedded_offset (new_val, (using_enc
-@@ -2989,8 +3098,6 @@ value_slice (struct value *array, int lowbound, int length)
- || lowbound + length - 1 > upperbound)
- error (_("slice out of range"));
-
-- /* FIXME-type-allocation: need a way to free this type when we are
-- done with it. */
- slice_range_type = create_range_type ((struct type *) NULL,
- TYPE_TARGET_TYPE (range_type),
- lowbound,
-diff --git a/gdb/valprint.c b/gdb/valprint.c
-index b02e9df..a9e8227 100644
---- a/gdb/valprint.c
-+++ b/gdb/valprint.c
-@@ -34,6 +34,7 @@
- #include "doublest.h"
- #include "exceptions.h"
- #include "dfp.h"
-+#include "python/python.h"
-
- #include <errno.h>
-
-@@ -80,7 +81,9 @@ struct value_print_options user_print_options =
- 0, /* print_array_indexes */
- 0, /* deref_ref */
- 1, /* static_field_print */
-- 1 /* pascal_static_field_print */
-+ 1, /* pascal_static_field_print */
-+ 0, /* raw */
-+ 0 /* summary */
- };
-
- /* Initialize *OPTS to be a copy of the user print options. */
-@@ -257,6 +260,15 @@ val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
- return (0);
- }
-
-+ if (!options->raw)
-+ {
-+ ret = apply_val_pretty_printer (type, valaddr, embedded_offset,
-+ address, stream, recurse, options,
-+ language);
-+ if (ret)
-+ return ret;
++# Debugging of this testcase:
++#gdb_test_no_output "maintenance set show-debug-regs on"
++#gdb_test_no_output "set debug infrun 1"
++
++# Do not use simple hardware watchpoint ("watch") as its false hit may be
++# unnoticed by GDB if it reads it still has the same value.
++gdb_test "awatch c" "Hardware access \\(read/write\\) watchpoint \[0-9\]+: c"
++# Never keep/use any non-hw breakpoints to workaround a multi-inferior bug.
++# Use `*' to workaround a multi-inferior bug.
++set test "hbreak *marker_exit2"
++gdb_test_multiple $test $test {
++ -re "Hardware assisted breakpoint \[0-9\]+ at .*\r\n$gdb_prompt $" {
++ pass $test
++ }
++ -re "(No hardware breakpoint support in the target\\.|Hardware breakpoints used exceeds limit\\.)\r\n$gdb_prompt $" {
++ pass $test
++ untested ${testfile}.exp
++ return
++ }
++}
++
++gdb_test "inferior 1" "witching to inferior 1 .*"
++
++gdb_test "awatch b" "Hardware access \\(read/write\\) watchpoint \[0-9\]+: b"
++gdb_test "hbreak *marker_exit1" {Hardware assisted breakpoint [0-9]+ at .*}
++
++gdb_test "inferior 2" "witching to inferior 2 .*"
++
++# FAIL would be a hit on watchpoint for `b' - that one is for the other
++# inferior.
++gdb_test "continue" "Hardware access \\(read/write\\) watchpoint \[0-9\]+: c\r\n\r\nOld value = 0\r\nNew value = 3\r\n.*" "catch c"
++
++set test "catch marker_exit2"
++gdb_test_multiple "continue" $test {
++ -re "Breakpoint \[0-9\]+, marker_exit2 .*\r\n$gdb_prompt $" {
++ setup_kfail breakpoints/12312 *-*-*
++ pass $test
++ }
++ -re "Hardware access \\(read/write\\) watchpoint \[0-9\]+: c\r\n\r\nValue = 3\r\n(.* in )?\\*?(__GI_)?__nptl_death_event .*\r\n$gdb_prompt $" {
++ setup_kfail breakpoints/12312 *-*-*
++ fail $test
+ }
++}
+
- TRY_CATCH (except, RETURN_MASK_ERROR)
- {
- ret = language->la_val_print (type, valaddr, embedded_offset, address,
-@@ -287,6 +299,13 @@ value_check_printable (struct value *val, struct ui_file *stream)
- return 0;
- }
-
-+ if (TYPE_CODE (value_type (val)) == TYPE_CODE_INTERNAL_FUNCTION)
-+ {
-+ fprintf_filtered (stream, _("<internal function %s>"),
-+ value_internal_function_name (val));
-+ return 0;
-+ }
++gdb_test "inferior 1" "witching to inferior 1 .*"
+
- return 1;
- }
-
-@@ -308,7 +327,7 @@ common_val_print (struct value *val, struct ui_file *stream, int recurse,
- return 0;
-
- return val_print (value_type (val), value_contents_all (val),
-- value_embedded_offset (val), VALUE_ADDRESS (val),
-+ value_embedded_offset (val), value_address (val),
- stream, recurse, options, language);
- }
-
-@@ -324,6 +343,18 @@ value_print (struct value *val, struct ui_file *stream,
- if (!value_check_printable (val, stream))
- return 0;
-
-+ if (!options->raw)
-+ {
-+ int r = apply_val_pretty_printer (value_type (val),
-+ value_contents_all (val),
-+ value_embedded_offset (val),
-+ value_address (val),
-+ stream, 0, options,
-+ current_language);
-+ if (r)
-+ return r;
++gdb_test "continue" "Hardware access \\(read/write\\) watchpoint \[0-9\]+: b\r\n\r\nOld value = 0\r\nNew value = 2\r\n.*" "catch b"
++
++set test "catch marker_exit1"
++gdb_test_multiple "continue" $test {
++ -re "Breakpoint \[0-9\]+, marker_exit1 .*\r\n$gdb_prompt $" {
++ setup_kfail breakpoints/12312 *-*-*
++ pass $test
++ }
++ -re "Hardware access \\(read/write\\) watchpoint \[0-9\]+: b\r\n\r\nValue = 2\r\n(.* in )?\\*?(__GI_)?__nptl_death_event .*\r\n$gdb_prompt $" {
++ setup_kfail breakpoints/12312 *-*-*
++ fail $test
+ }
++}
+
- return LA_VALUE_PRINT (val, stream, options);
- }
-
-@@ -919,7 +950,8 @@ print_hex_chars (struct ui_file *stream, const gdb_byte *valaddr,
- Omit any leading zero chars. */
-
- void
--print_char_chars (struct ui_file *stream, const gdb_byte *valaddr,
-+print_char_chars (struct ui_file *stream, struct type *type,
-+ const gdb_byte *valaddr,
- unsigned len, enum bfd_endian byte_order)
- {
- const gdb_byte *p;
-@@ -932,7 +964,7 @@ print_char_chars (struct ui_file *stream, const gdb_byte *valaddr,
-
- while (p < valaddr + len)
- {
-- LA_EMIT_CHAR (*p, stream, '\'');
-+ LA_EMIT_CHAR (*p, type, stream, '\'');
- ++p;
- }
- }
-@@ -944,7 +976,7 @@ print_char_chars (struct ui_file *stream, const gdb_byte *valaddr,
-
- while (p >= valaddr)
- {
-- LA_EMIT_CHAR (*p, stream, '\'');
-+ LA_EMIT_CHAR (*p, type, stream, '\'');
- --p;
- }
- }
-@@ -1085,6 +1117,7 @@ val_print_array_elements (struct type *type, const gdb_byte *valaddr,
-
- for (; i < len && things_printed < options->print_max; i++)
- {
-+ size_t elt_offset = i * eltlen;
- if (i != 0)
- {
- if (options->prettyprint_arrays)
-@@ -1104,7 +1137,7 @@ val_print_array_elements (struct type *type, const gdb_byte *valaddr,
- rep1 = i + 1;
- reps = 1;
- while ((rep1 < len) &&
-- !memcmp (valaddr + i * eltlen, valaddr + rep1 * eltlen, eltlen))
-+ !memcmp (valaddr + elt_offset, valaddr + rep1 * eltlen, eltlen))
- {
- ++reps;
- ++rep1;
-@@ -1112,7 +1145,7 @@ val_print_array_elements (struct type *type, const gdb_byte *valaddr,
-
- if (reps > options->repeat_count_threshold)
- {
-- val_print (elttype, valaddr + i * eltlen, 0, address + i * eltlen,
-+ val_print (elttype, valaddr + elt_offset, 0, address + elt_offset,
- stream, recurse + 1, options, current_language);
- annotate_elt_rep (reps);
- fprintf_filtered (stream, " <repeats %u times>", reps);
-@@ -1123,7 +1156,7 @@ val_print_array_elements (struct type *type, const gdb_byte *valaddr,
- }
- else
- {
-- val_print (elttype, valaddr + i * eltlen, 0, address + i * eltlen,
-+ val_print (elttype, valaddr + elt_offset, 0, address + elt_offset,
- stream, recurse + 1, options, current_language);
- annotate_elt ();
- things_printed++;
-@@ -1315,7 +1348,8 @@ read_string (CORE_ADDR addr, int len, int width, unsigned int fetchlimit,
- whichever is smaller. */
-
- int
--val_print_string (CORE_ADDR addr, int len, int width, struct ui_file *stream,
-+val_print_string (struct type *elttype, CORE_ADDR addr, int len,
-+ struct ui_file *stream,
- const struct value_print_options *options)
- {
- int force_ellipsis = 0; /* Force ellipsis to be printed if nonzero. */
-@@ -1325,6 +1359,7 @@ val_print_string (CORE_ADDR addr, int len, int width, struct ui_file *stream,
- int bytes_read;
- gdb_byte *buffer = NULL; /* Dynamically growable fetch buffer. */
- struct cleanup *old_chain = NULL; /* Top of the old cleanup chain. */
-+ int width = TYPE_LENGTH (elttype);
-
- /* First we need to figure out the limit on the number of characters we are
- going to attempt to fetch and print. This is actually pretty simple. If
-@@ -1378,7 +1413,7 @@ val_print_string (CORE_ADDR addr, int len, int width, struct ui_file *stream,
- {
- fputs_filtered (" ", stream);
- }
-- LA_PRINT_STRING (stream, buffer, bytes_read / width, width, force_ellipsis, options);
-+ LA_PRINT_STRING (stream, elttype, buffer, bytes_read / width, force_ellipsis, options);
- }
-
- if (errcode != 0)
-diff --git a/gdb/valprint.h b/gdb/valprint.h
-index 8b65af6..4f63fa6 100644
---- a/gdb/valprint.h
-+++ b/gdb/valprint.h
-@@ -84,6 +84,12 @@ struct value_print_options
- /* If nonzero, print static fields for Pascal. FIXME: C++ and Java
- share one flag, why not Pascal too? */
- int pascal_static_field_print;
-+
-+ /* Controls Python pretty-printing. */
-+ int raw;
-+
-+ /* If nonzero, print the value in "summary" form. */
-+ int summary;
- };
-
- /* The global print options set by the user. In general this should
-@@ -134,9 +140,10 @@ extern void print_decimal_chars (struct ui_file *, const gdb_byte *,
- extern void print_hex_chars (struct ui_file *, const gdb_byte *,
- unsigned int, enum bfd_endian);
-
--extern void print_char_chars (struct ui_file *, const gdb_byte *,
-- unsigned int, enum bfd_endian);
-+extern void print_char_chars (struct ui_file *, struct type *,
-+ const gdb_byte *, unsigned int, enum bfd_endian);
-
- int read_string (CORE_ADDR addr, int len, int width, unsigned int fetchlimit,
- gdb_byte **buffer, int *bytes_read);
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.opt/array-from-register-func.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.opt/array-from-register-func.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,22 @@
++/* This file is part of GDB, the GNU debugger.
+
- #endif
-diff --git a/gdb/value.c b/gdb/value.c
-index 4d4329e..5c81d83 100644
---- a/gdb/value.c
-+++ b/gdb/value.c
-@@ -36,6 +36,7 @@
- #include "block.h"
- #include "dfp.h"
- #include "objfiles.h"
-+#include "cli/cli-decode.h"
- #include "valprint.h"
-
- #include "python/python.h"
-@@ -44,6 +45,23 @@
-
- void _initialize_values (void);
-
-+/* Definition of a user function. */
-+struct internal_function
++ Copyright 2009 Free Software Foundation, Inc.
++
++ 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/>. */
++
++int
++func (int *arr)
+{
-+ /* The name of the function. It is a bit odd to have this in the
-+ function itself -- the user might use a differently-named
-+ convenience variable to hold the function. */
-+ char *name;
++ return arr[0];
++}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.opt/array-from-register.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.opt/array-from-register.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,28 @@
++/* This file is part of GDB, the GNU debugger.
+
-+ /* The handler. */
-+ internal_function_fn handler;
++ Copyright 2009 Free Software Foundation, Inc.
+
-+ /* User data for the handler. */
-+ void *cookie;
-+};
++ 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.
+
-+static struct cmd_list_element *functionlist;
++ 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.
+
- struct value
- {
- /* Type of value; either not an lval, or one of the various
-@@ -203,6 +221,10 @@ struct value_history_chunk
- static struct value_history_chunk *value_history_chain;
-
- static int value_history_count; /* Abs number of last entry stored */
++ You should have received a copy of the GNU General Public License
++ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
-+/* The type of internal functions. */
++extern int func (int *arr);
+
-+static struct type *internal_fn_type;
- \f
- /* List of all value objects currently allocated
- (except for those released by calls to release_value)
-@@ -225,9 +247,11 @@ allocate_value_lazy (struct type *type)
- val->next = all_values;
- all_values = val;
- val->type = type;
-+ type_incref (type);
- val->enclosing_type = type;
-+ type_incref (type);
- VALUE_LVAL (val) = not_lval;
-- VALUE_ADDRESS (val) = 0;
-+ val->location.address = 0;
- VALUE_FRAME_ID (val) = null_frame_id;
- val->offset = 0;
- val->bitpos = 0;
-@@ -269,13 +293,9 @@ struct value *
- allocate_repeat_value (struct type *type, int count)
- {
- int low_bound = current_language->string_lower_bound; /* ??? */
-- /* FIXME-type-allocation: need a way to free this type when we are
-- done with it. */
- struct type *range_type
- = create_range_type ((struct type *) NULL, builtin_type_int32,
- low_bound, count + low_bound - 1);
-- /* FIXME-type-allocation: need a way to free this type when we are
-- done with it. */
- return allocate_value (create_array_type ((struct type *) NULL,
- type, range_type));
- }
-@@ -335,6 +355,8 @@ value_type (struct value *value)
- void
- deprecated_set_value_type (struct value *value, struct type *type)
- {
-+ type_incref (type);
-+ type_decref (value->type);
- value->type = type;
- }
-
-@@ -509,6 +531,32 @@ deprecated_value_address_hack (struct value *value)
- return &value->location.address;
- }
-
-+CORE_ADDR
-+value_address (struct value *value)
++int
++main (void)
+{
-+ if (value->lval == lval_internalvar
-+ || value->lval == lval_internalvar_component)
-+ return 0;
-+ return value->location.address + value->offset;
++ int arr[] = { 42 };
++
++ func (arr);
++
++ return 0;
++}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.opt/array-from-register.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.opt/array-from-register.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,33 @@
++# Copyright 2009 Free Software Foundation, Inc.
++#
++# 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 2 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, write to the Free Software
++# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
++#
++# This file is part of the gdb testsuite.
++
++if { [prepare_for_testing array-from-register.exp "array-from-register" \
++ {array-from-register.c array-from-register-func.c} \
++ {debug optimize=-O2}] } {
++ return -1
+}
+
-+CORE_ADDR
-+value_raw_address (struct value *value)
-+{
-+ if (value->lval == lval_internalvar
-+ || value->lval == lval_internalvar_component)
-+ return 0;
-+ return value->location.address;
++if ![runto func] then {
++ return -1
+}
+
-+void
-+set_value_address (struct value *value, CORE_ADDR addr)
-+{
-+ gdb_assert (value->lval != lval_internalvar
-+ && value->lval != lval_internalvar_component);
-+ value->location.address = addr;
++gdb_test "p arr" "\\$\[0-9\]+ = \\(int \\*\\) *0x\[0-9a-f\]+"
++
++# Seen regression:
++# Address requested for identifier "arr" which is in register $rdi
++gdb_test "p arr\[0\]" "\\$\[0-9\]+ = 42"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.pascal/arrays.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.pascal/arrays.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,104 @@
++# Copyright 2008, 2009 Free Software Foundation, Inc.
++#
++# 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/>.
++
++if $tracelevel then {
++ strace $tracelevel
+}
+
- struct internalvar **
- deprecated_value_internalvar_hack (struct value *value)
- {
-@@ -547,11 +595,16 @@ value_mark (void)
- return all_values;
- }
-
-+/* Deallocate a value and run destructors if needed. */
++load_lib "pascal.exp"
+
- void
- value_free (struct value *val)
- {
- if (val)
- {
-+ type_decref (val->type);
-+ type_decref (val->enclosing_type);
++set testfile "arrays"
++set srcfile ${testfile}.pas
++set binfile ${objdir}/${subdir}/${testfile}$EXEEXT
+
- if (VALUE_LVAL (val) == lval_computed)
- {
- struct lval_funcs *funcs = val->location.computed.funcs;
-@@ -655,6 +708,8 @@ value_copy (struct value *arg)
- val = allocate_value_lazy (encl_type);
- else
- val = allocate_value (encl_type);
-+ type_incref (arg->type);
-+ type_decref (val->type);
- val->type = arg->type;
- VALUE_LVAL (val) = VALUE_LVAL (arg);
- val->location = arg->location;
-@@ -693,6 +748,7 @@ set_value_component_location (struct value *component, struct value *whole)
- VALUE_LVAL (component) = VALUE_LVAL (whole);
-
- component->location = whole->location;
++# These tests only work with fpc, using the -gw3 compile-option
++pascal_init
++if { $pascal_compiler_is_fpc != 1 } {
++ return -1
++}
+
- if (VALUE_LVAL (whole) == lval_computed)
- {
- struct lval_funcs *funcs = whole->location.computed.funcs;
-@@ -700,6 +756,8 @@ set_value_component_location (struct value *component, struct value *whole)
- if (funcs->copy_closure)
- component->location.computed.closure = funcs->copy_closure (whole);
- }
++# Detect if the fpc version is below 2.3.0
++set fpc_generates_dwarf_for_dynamic_arrays 1
++if { ($fpcversion_major < 2) || ( ($fpcversion_major == 2) && ($fpcversion_minor < 3))} {
++ set fpc_generates_dwarf_for_dynamic_arrays 0
++}
+
-+ object_address_get_data (value_type (whole), &VALUE_ADDRESS (component));
- }
-
- \f
-@@ -830,6 +888,25 @@ show_values (char *num_exp, int from_tty)
- num_exp[1] = '\0';
- }
- }
+
-+/* Sanity check for memory leaks and proper types reference counting. */
++if {[gdb_compile_pascal "-gw3 ${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug ]] != "" } {
++ return -1
++}
+
-+static void
-+value_history_cleanup (void *unused)
-+{
-+ while (value_history_chain)
-+ {
-+ struct value_history_chunk *chunk = value_history_chain;
-+ int i;
++gdb_exit
++gdb_start
++gdb_reinitialize_dir $srcdir/$subdir
++gdb_load ${binfile}
++set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
++set bp_location2 [gdb_get_line_number "set breakpoint 2 here"]
+
-+ for (i = 0; i < ARRAY_SIZE (chunk->values); i++)
-+ value_free (chunk->values[i]);
+
-+ value_history_chain = chunk->next;
-+ xfree (chunk);
-+ }
-+ value_history_count = 0;
++if { [gdb_breakpoint ${srcfile}:${bp_location1}] } {
++ pass "setting breakpoint 1"
++}
++if { [gdb_breakpoint ${srcfile}:${bp_location2}] } {
++ pass "setting breakpoint 2"
+}
- \f
- /* Internal variables. These are variables within the debugger
- that hold values assigned by debugger commands.
-@@ -878,7 +955,7 @@ init_if_undefined_command (char* args, int from_tty)
- the return value is NULL. */
-
- struct internalvar *
--lookup_only_internalvar (char *name)
-+lookup_only_internalvar (const char *name)
- {
- struct internalvar *var;
-
-@@ -894,7 +971,7 @@ lookup_only_internalvar (char *name)
- NAME should not normally include a dollar sign. */
-
- struct internalvar *
--create_internalvar (char *name)
-+create_internalvar (const char *name)
- {
- struct internalvar *var;
- var = (struct internalvar *) xmalloc (sizeof (struct internalvar));
-@@ -902,6 +979,7 @@ create_internalvar (char *name)
- var->value = allocate_value (builtin_type_void);
- var->endian = gdbarch_byte_order (current_gdbarch);
- var->make_value = NULL;
-+ var->canonical = 0;
- release_value (var->value);
- var->next = internalvars;
- internalvars = var;
-@@ -934,7 +1012,7 @@ create_internalvar_type_lazy (char *name, internalvar_make_value fun)
- one is created, with a void value. */
-
- struct internalvar *
--lookup_internalvar (char *name)
-+lookup_internalvar (const char *name)
- {
- struct internalvar *var;
-
-@@ -1031,6 +1109,9 @@ set_internalvar (struct internalvar *var, struct value *val)
- {
- struct value *newval;
-
-+ if (var->canonical)
-+ error (_("Cannot overwrite convenience function %s"), var->name);
+
- newval = value_copy (val);
- newval->modifiable = 1;
-
-@@ -1042,7 +1123,7 @@ set_internalvar (struct internalvar *var, struct value *val)
-
- /* Begin code which must not call error(). If var->value points to
- something free'd, an error() obviously leaves a dangling pointer.
-- But we also get a danling pointer if var->value points to
-+ But we also get a dangling pointer if var->value points to
- something in the value chain (i.e., before release_value is
- called), because after the error free_all_values will get called before
- long. */
-@@ -1059,6 +1140,76 @@ internalvar_name (struct internalvar *var)
- return var->name;
- }
-
-+static struct value *
-+value_create_internal_function (const char *name,
-+ internal_function_fn handler,
-+ void *cookie)
-+{
-+ struct value *result = allocate_value (internal_fn_type);
-+ gdb_byte *addr = value_contents_writeable (result);
-+ struct internal_function **fnp = (struct internal_function **) addr;
-+ struct internal_function *ifn = XNEW (struct internal_function);
-+ ifn->name = xstrdup (name);
-+ ifn->handler = handler;
-+ ifn->cookie = cookie;
-+ *fnp = ifn;
-+ return result;
++# Verify that "start" lands inside the right procedure.
++if { [gdb_start_cmd] < 0 } {
++ untested start
++ return -1
+}
+
-+char *
-+value_internal_function_name (struct value *val)
-+{
-+ gdb_byte *addr = value_contents_writeable (val);
-+ struct internal_function *ifn = * (struct internal_function **) addr;
-+ return ifn->name;
++gdb_test "" ".* at .*${srcfile}.*" "start"
++
++gdb_test "cont" "Breakpoint .*:${bp_location1}.*" "Going to first breakpoint"
++
++gdb_test "print StatArrInt" ".* = \\{50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61\\}" "Print static array of integer type"
++gdb_test "print StatArrInt_" ".* = \\{50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61\\}" "Print static array of integer"
++
++gdb_test "cont" "Breakpoint .*:${bp_location2}.*" "Going to second breakpoint"
++
++gdb_test "print StatArrChar" ".* = 'abcdefghijkl'" "Print static array of char"
++gdb_test "print Stat2dArrInt" ".* = \\{\\{0, 1, 2, 3, 4\\}, \\{1, 2, 3, 4, 5\\}, \\{2, 3, 4, 5, 6\\}, \\{3, 4, 5, 6, 7\\}, \\{4, 5, 6, 7, 8\\}, \\{5, 6, 7, 8, 9\\}, \\{6, 7, 8, 9, 10\\}, \\{7, 8, 9, 10, 11\\}, \\{8, 9, 10, 11, 12\\}, \\{9, 10, 11, 12, 13\\}, \\{10, 11, 12, 13, 14\\}, \\{11, 12, 13, 14, 15\\}\\}" "Print static 2-dimensional array of integer"
++
++if { $fpc_generates_dwarf_for_dynamic_arrays == 0} {
++ setup_xfail "*-*-*"
++}
++gdb_test "print DynArrInt" ".* = \\{50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62\\}" "Print dynamic array of integer type"
++if { $fpc_generates_dwarf_for_dynamic_arrays == 0} {
++ setup_xfail "*-*-*"
+}
++gdb_test "print DynArrInt_" ".* = \\{50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62\\}" "Print dynamic array of integer"
+
-+struct value *
-+call_internal_function (struct value *func, int argc, struct value **argv)
-+{
-+ gdb_byte *addr = value_contents_writeable (func);
-+ struct internal_function *ifn = * (struct internal_function **) addr;
-+ return (*ifn->handler) (ifn->cookie, argc, argv);
++if { $fpc_generates_dwarf_for_dynamic_arrays == 0} {
++ setup_xfail "*-*-*"
++}
++gdb_test "print s" ".* = 'test'#0'string'" "Print string containing null-char"
++
++if { $fpc_generates_dwarf_for_dynamic_arrays == 0} {
++ setup_xfail "*-*-*"
++}
++gdb_test "print DynArrStr" ".* = \\{'dstr0', 'dstr1', 'dstr2', 'dstr3', 'dstr4', 'dstr5', 'dstr6', 'dstr7', 'dstr8', 'dstr9', 'dstr10', 'dstr11', 'dstr12'\\}" "Print dynamic array of string"
++
++if { $fpc_generates_dwarf_for_dynamic_arrays == 0} {
++ setup_xfail "*-*-*"
++}
++gdb_test "print StatArrStr" ".* = \\{'str0', 'str1', 'str2', 'str3', 'str4', 'str5', 'str6', 'str7', 'str8', 'str9', 'str10', 'str11', 'str12'\\}" "Print static array of string"
++
++if { $fpc_generates_dwarf_for_dynamic_arrays == 0} {
++ setup_xfail "*-*-*"
+}
++gdb_test "print DynArrChar" ".* = 'abcdefghijklm'" "Print dynamic array of char"
+
-+/* The 'function' command. This does nothing -- it is just a
-+ placeholder to let "help function NAME" work. This is also used as
-+ the implementation of the sub-command that is created when
-+ registering an internal function. */
-+static void
-+function_command (char *command, int from_tty)
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.pascal/arrays.pas
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.pascal/arrays.pas 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,82 @@
+{
-+ /* Do nothing. */
++ Copyright 2008, 2009 Free Software Foundation, Inc.
++
++ 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/>.
+}
+
-+/* Clean up if an internal function's command is destroyed. */
++program arrays;
++
++{$mode objfpc}{$h+}
++
++uses sysutils;
++
++type TStatArrInt= array[0..11] of integer;
++ TDynArrInt= array of integer;
++ TStatArrStr= array[0..12] of string;
++ TDynArrStr= array of string;
++ TDynArrChar = array of char;
++ TStatArrChar = array [0..11] of char;
++
++ TStat2dArrInt = array[0..11,0..4] of integer;
++
++var StatArrInt: TStatArrInt;
++ StatArrInt_: Array[0..11] of integer;
++ DynArrInt: TDynArrInt;
++ DynArrInt_: Array of integer;
++ StatArrStr: TStatArrStr;
++ DynArrStr: TDynArrStr;
++ StatArrChar: TStatArrChar;
++ DynArrChar: TDynArrChar;
++
++ Stat2dArrInt: TStat2dArrInt;
++
++ s: string;
++
++ i,j : integer;
++
++begin
++ for i := 0 to 11 do
++ begin
++ StatArrInt[i]:= i+50;
++ StatArrInt_[i]:= i+50;
++ StatArrChar[i]:= chr(ord('a')+i);
++ for j := 0 to 4 do
++ Stat2dArrInt[i,j]:=i+j;
++ end;
++ writeln(StatArrInt_[0]);
++ writeln(StatArrInt[0]); { set breakpoint 1 here }
++ writeln(StatArrChar[0]);
++ writeln(Stat2dArrInt[0,0]);
++
++ setlength(DynArrInt,13);
++ setlength(DynArrInt_,13);
++ setlength(DynArrStr,13);
++ setlength(DynArrChar,13);
++ for i := 0 to 12 do
++ begin
++ DynArrInt[i]:= i+50;
++ DynArrInt_[i]:= i+50;
++ DynArrChar[i]:= chr(ord('a')+i);
++ StatArrStr[i]:='str'+inttostr(i);
++ DynArrStr[i]:='dstr'+inttostr(i);
++ end;
++ writeln(DynArrInt_[1]);
++ writeln(DynArrInt[1]);
++ writeln(DynArrStr[1]);
++ writeln(StatArrStr[1]);
++ writeln(DynArrChar[1]);
++
++ s := 'test'#0'string';
++ writeln(s); { set breakpoint 2 here }
++end.
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.python/py-frame.exp
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/testsuite/gdb.python/py-frame.exp 2011-02-26 15:06:28.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.python/py-frame.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -78,8 +78,6 @@ gdb_test "python print bframe == gdb.new
+
+ gdb_test "python print 'result =', f0 == f1" " = False" "test equality comparison (false)"
+ gdb_test "python print 'result =', f0 == f0" " = True" "test equality comparison (true)"
+-gdb_test "python print 'result =', f0 != f1" " = True" "test inequality comparison (true)"
+-gdb_test "python print 'result =', f0 != f0" " = False" "test inequality comparison (false)"
+ gdb_test "python print 'result =', f0.is_valid ()" " = True" "test Frame.is_valid"
+ gdb_test "python print 'result =', f0.name ()" " = f2" "test Frame.name"
+ gdb_test "python print 'result =', f0.type () == gdb.NORMAL_FRAME" " = True" "test Frame.type"
+@@ -94,3 +92,5 @@ gdb_test "python print 'result =', f0.re
+ gdb_test "python print 'result =', f0.read_var ('a')" " = 1" "test Frame.read_var - success"
+
+ gdb_test "python print 'result =', gdb.selected_frame () == f1" " = True" "test gdb.selected_frame"
++
++gdb_test "python print 'result =', f0.block ()" "<gdb.Block object at 0x\[\[:xdigit:\]\]+>" "test Frame.block"
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.python/py-value.exp
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/testsuite/gdb.python/py-value.exp 2011-01-01 16:33:49.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.python/py-value.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -318,6 +318,15 @@ proc test_value_after_death {} {
+ "print value's type"
+ }
+
++# Regression test for a cast failure. The bug was that if we cast a
++# value to its own type, gdb could crash. This happened because we
++# could end up double-freeing a struct value.
++proc test_cast_regression {} {
++ gdb_test "python v = gdb.Value(5)" "" "create value for cast test"
++ gdb_test "python v = v.cast(v.type)" "" "cast value for cast test"
++ gdb_test "python print v" "5" "print value for cast test"
++}
++
+ # Regression test for invalid subscript operations. The bug was that
+ # the type of the value was not being checked before allowing a
+ # subscript operation to proceed.
+@@ -455,6 +464,7 @@ test_value_in_inferior
+ test_inferior_function_call
+ test_lazy_strings
+ test_value_after_death
++test_cast_regression
+
+ # The following test recompiles the binary to test either C or C++
+ # values.
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.threads/watchpoint-fork-child.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.threads/watchpoint-fork-child.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,127 @@
++/* Test case for forgotten hw-watchpoints after fork()-off of a process.
++
++ Copyright 2008, 2009, 2010 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 2 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, write to the Free Software
++ Foundation, Inc., 59 Temple Place - Suite 330,
++ Boston, MA 02111-1307, USA. */
++
++#include <string.h>
++#include <errno.h>
++#include <unistd.h>
++#include <assert.h>
++#include <signal.h>
++#include <stdio.h>
++
++#include "watchpoint-fork.h"
++
++static volatile int usr1_got;
++
+static void
-+function_destroyer (struct cmd_list_element *self, void *ignore)
++handler_usr1 (int signo)
+{
-+ xfree (self->name);
-+ xfree (self->doc);
++ usr1_got++;
+}
+
-+/* Add a new internal function. NAME is the name of the function; DOC
-+ is a documentation string describing the function. HANDLER is
-+ called when the function is invoked. COOKIE is an arbitrary
-+ pointer which is passed to HANDLER and is intended for "user
-+ data". */
+void
-+add_internal_function (const char *name, const char *doc,
-+ internal_function_fn handler, void *cookie)
++forkoff (int nr)
+{
-+ struct cmd_list_element *cmd;
-+ struct internalvar *var = lookup_internalvar (name);
-+ struct value *fnval = value_create_internal_function (name, handler, cookie);
-+ set_internalvar (var, fnval);
-+ var->canonical = 1;
-+
-+ cmd = add_cmd (xstrdup (name), no_class, function_command, (char *) doc,
-+ &functionlist);
-+ cmd->destroyer = function_destroyer;
-+}
++ pid_t child, save_parent = getpid ();
++ int i;
++ struct sigaction act, oldact;
++#ifdef THREAD
++ void *thread_result;
++#endif
+
- /* Update VALUE before discarding OBJFILE. COPIED_TYPES is used to
- prevent cycles / duplicates. */
-
-@@ -1067,12 +1218,21 @@ preserve_one_value (struct value *value, struct objfile *objfile,
- htab_t copied_types)
- {
- if (TYPE_OBJFILE (value->type) == objfile)
-- value->type = copy_type_recursive (objfile, value->type, copied_types);
-+ {
-+ /* No need to decref the old type here, since we know it has no
-+ reference count. */
-+ value->type = copy_type_recursive (value->type, copied_types);
-+ type_incref (value->type);
-+ }
-
- if (TYPE_OBJFILE (value->enclosing_type) == objfile)
-- value->enclosing_type = copy_type_recursive (objfile,
-- value->enclosing_type,
-- copied_types);
++ memset (&act, 0, sizeof act);
++ act.sa_flags = SA_RESTART;
++ act.sa_handler = handler_usr1;
++ sigemptyset (&act.sa_mask);
++ i = sigaction (SIGUSR1, &act, &oldact);
++ assert (i == 0);
++
++ child = fork ();
++ switch (child)
+ {
-+ /* No need to decref the old type here, since we know it has no
-+ reference count. */
-+ value->enclosing_type = copy_type_recursive (value->enclosing_type,
-+ copied_types);
-+ type_incref (value->enclosing_type);
-+ }
- }
-
- /* Update the internal variables and value history when OBJFILE is
-@@ -1196,7 +1356,7 @@ value_as_address (struct value *val)
-
- Upon entry to this function, if VAL is a value of type `function'
- (that is, TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_FUNC), then
-- VALUE_ADDRESS (val) is the address of the function. This is what
-+ value_address (val) is the address of the function. This is what
- you'll get if you evaluate an expression like `main'. The call
- to COERCE_ARRAY below actually does all the usual unary
- conversions, which includes converting values of type `function'
-@@ -1216,7 +1376,7 @@ value_as_address (struct value *val)
- function, just return its address directly. */
- if (TYPE_CODE (value_type (val)) == TYPE_CODE_FUNC
- || TYPE_CODE (value_type (val)) == TYPE_CODE_METHOD)
-- return VALUE_ADDRESS (val);
-+ return value_address (val);
-
- val = coerce_array (val);
-
-@@ -1447,7 +1607,7 @@ value_static_field (struct type *type, int fieldno)
- }
- if (retval && VALUE_LVAL (retval) == lval_memory)
- SET_FIELD_PHYSADDR (TYPE_FIELD (type, fieldno),
-- VALUE_ADDRESS (retval));
-+ value_address (retval));
- }
- return retval;
- }
-@@ -1465,6 +1625,8 @@ value_change_enclosing_type (struct value *val, struct type *new_encl_type)
- val->contents =
- (gdb_byte *) xrealloc (val->contents, TYPE_LENGTH (new_encl_type));
-
-+ type_incref (new_encl_type);
-+ type_decref (val->enclosing_type);
- val->enclosing_type = new_encl_type;
- return val;
- }
-@@ -1516,6 +1678,8 @@ value_primitive_field (struct value *arg1, int offset,
- memcpy (value_contents_all_raw (v), value_contents_all_raw (arg1),
- TYPE_LENGTH (value_enclosing_type (arg1)));
- }
-+ type_incref (type);
-+ type_decref (v->type);
- v->type = type;
- v->offset = value_offset (arg1);
- v->embedded_offset = (offset + value_embedded_offset (arg1)
-@@ -1592,7 +1756,7 @@ value_fn_field (struct value **arg1p, struct fn_field *f, int j, struct type *ty
- v = allocate_value (ftype);
- if (sym)
- {
-- VALUE_ADDRESS (v) = BLOCK_START (SYMBOL_BLOCK_VALUE (sym));
-+ set_value_address (v, BLOCK_START (SYMBOL_BLOCK_VALUE (sym)));
- }
- else
- {
-@@ -1601,9 +1765,9 @@ value_fn_field (struct value **arg1p, struct fn_field *f, int j, struct type *ty
- struct objfile *objfile = msymbol_objfile (msym);
- struct gdbarch *gdbarch = get_objfile_arch (objfile);
-
-- VALUE_ADDRESS (v)
-- = gdbarch_convert_from_func_ptr_addr
-- (gdbarch, SYMBOL_VALUE_ADDRESS (msym), ¤t_target);
-+ set_value_address (v,
-+ gdbarch_convert_from_func_ptr_addr
-+ (gdbarch, SYMBOL_VALUE_ADDRESS (msym), ¤t_target));
- }
-
- if (arg1p)
-@@ -1750,6 +1914,41 @@ pack_long (gdb_byte *buf, struct type *type, LONGEST num)
- }
-
-
-+/* Pack NUM into BUF using a target format of TYPE. */
++ case -1:
++ assert (0);
++ default:
++ printf ("parent%d: %d\n", nr, (int) child);
+
-+void
-+pack_unsigned_long (gdb_byte *buf, struct type *type, ULONGEST num)
-+{
-+ int len;
++ /* Sleep for a while to possibly get incorrectly ATTACH_THREADed by GDB
++ tracing the child fork with no longer valid thread/lwp entries of the
++ parent. */
+
-+ type = check_typedef (type);
-+ len = TYPE_LENGTH (type);
++ i = sleep (2);
++ assert (i == 0);
+
-+ switch (TYPE_CODE (type))
-+ {
-+ case TYPE_CODE_INT:
-+ case TYPE_CODE_CHAR:
-+ case TYPE_CODE_ENUM:
-+ case TYPE_CODE_FLAGS:
-+ case TYPE_CODE_BOOL:
-+ case TYPE_CODE_RANGE:
-+ case TYPE_CODE_MEMBERPTR:
-+ store_unsigned_integer (buf, len, num);
-+ break;
++ /* We must not get caught here (against a forgotten breakpoint). */
+
-+ case TYPE_CODE_REF:
-+ case TYPE_CODE_PTR:
-+ store_typed_address (buf, type, (CORE_ADDR) num);
-+ break;
++ var++;
++ marker ();
+
-+ default:
-+ error (_("\
-+Unexpected type (%d) encountered for unsigned integer constant."),
-+ TYPE_CODE (type));
-+ }
-+}
++#ifdef THREAD
++ /* And neither got caught our thread. */
+
++ step = 99;
++ i = pthread_join (thread, &thread_result);
++ assert (i == 0);
++ assert (thread_result == (void *) 99UL);
++#endif
+
- /* Convert C numbers into newly allocated values. */
-
- struct value *
-@@ -1763,6 +1962,19 @@ value_from_longest (struct type *type, LONGEST num)
- }
-
-
-+/* Convert C unsigned numbers into newly allocated values. */
++ /* Be sure our child knows we did not get caught above. */
+
-+struct value *
-+value_from_ulongest (struct type *type, ULONGEST num)
-+{
-+ struct value *val = allocate_value (type);
++ i = kill (child, SIGUSR1);
++ assert (i == 0);
+
-+ pack_unsigned_long (value_contents_raw (val), type, num);
++ /* Sleep for a while to check GDB's `info threads' no longer tracks us in
++ the child fork. */
+
-+ return val;
-+}
++ i = sleep (2);
++ assert (i == 0);
+
++ _exit (0);
++ case 0:
++ printf ("child%d: %d\n", nr, (int) getpid ());
+
- /* Create a value representing a pointer of type TYPE to the address
- ADDR. */
- struct value *
-@@ -1816,8 +2028,9 @@ value_from_contents_and_address (struct type *type,
- set_value_lazy (v, 1);
- else
- memcpy (value_contents_raw (v), valaddr, TYPE_LENGTH (type));
-- VALUE_ADDRESS (v) = address;
-- VALUE_LVAL (v) = lval_memory;
-+ set_value_address (v, address);
-+ if (address != 0)
-+ VALUE_LVAL (v) = lval_memory;
- return v;
- }
-
-@@ -1944,4 +2157,15 @@ init-if-undefined VARIABLE = EXPRESSION\n\
- Set an internal VARIABLE to the result of the EXPRESSION if it does not\n\
- exist or does not contain a value. The EXPRESSION is not evaluated if the\n\
- VARIABLE is already initialized."));
++ /* Let the parent signal us about its success. Be careful of races. */
+
-+ add_prefix_cmd ("function", no_class, function_command, _("\
-+Placeholder command for showing help on convenience functions."),
-+ &functionlist, "function ", 0, &cmdlist);
++ for (;;)
++ {
++ /* Parent either died (and USR1_GOT is zero) or it succeeded. */
++ if (getppid () != save_parent)
++ break;
++ if (kill (getppid (), 0) != 0)
++ break;
++ /* Parent succeeded? */
++ if (usr1_got)
++ break;
+
-+ internal_fn_type = alloc_type (OBJFILE_INTERNAL, NULL);
-+ TYPE_CODE (internal_fn_type) = TYPE_CODE_INTERNAL_FUNCTION;
-+ TYPE_LENGTH (internal_fn_type) = sizeof (struct internal_function *);
-+ TYPE_NAME (internal_fn_type) = "<internal function>";
++#ifdef THREAD
++ i = pthread_yield ();
++ assert (i == 0);
++#endif
++ }
++ assert (usr1_got);
+
-+ make_final_cleanup (value_history_cleanup, NULL);
- }
-diff --git a/gdb/value.h b/gdb/value.h
-index aa43365..1ad3c75 100644
---- a/gdb/value.h
-+++ b/gdb/value.h
-@@ -272,12 +272,23 @@ extern void set_value_component_location (struct value *component,
- extern enum lval_type *deprecated_value_lval_hack (struct value *);
- #define VALUE_LVAL(val) (*deprecated_value_lval_hack (val))
-
--/* If lval == lval_memory, this is the address in the inferior. If
-- lval == lval_register, this is the byte offset into the registers
-- structure. */
-+/* Backward compatibility for the Fedora merge branch. */
- extern CORE_ADDR *deprecated_value_address_hack (struct value *);
- #define VALUE_ADDRESS(val) (*deprecated_value_address_hack (val))
-
-+/* If lval == lval_memory, return the address in the inferior. If
-+ lval == lval_register, return the byte offset into the registers
-+ structure. Otherwise, return 0. The returned address
-+ includes the offset, if any. */
-+extern CORE_ADDR value_address (struct value *);
-+
-+/* Like value_address, except the result does not include value's
-+ offset. */
-+extern CORE_ADDR value_raw_address (struct value *);
-+
-+/* Set the address of a value. */
-+extern void set_value_address (struct value *, CORE_ADDR);
-+
- /* Pointer to internal variable. */
- extern struct internalvar **deprecated_value_internalvar_hack (struct value *);
- #define VALUE_INTERNALVAR(val) (*deprecated_value_internalvar_hack (val))
-@@ -314,6 +325,9 @@ struct internalvar
- struct value *value;
- internalvar_make_value make_value;
- int endian;
-+ /* True if this internalvar is the canonical name for a convenience
-+ function. */
-+ int canonical;
- };
-
- \f
-@@ -342,12 +356,17 @@ extern LONGEST unpack_field_as_long (struct type *type,
- extern void pack_long (gdb_byte *buf, struct type *type, LONGEST num);
-
- extern struct value *value_from_longest (struct type *type, LONGEST num);
-+extern struct value *value_from_ulongest (struct type *type, ULONGEST num);
- extern struct value *value_from_pointer (struct type *type, CORE_ADDR addr);
- extern struct value *value_from_double (struct type *type, DOUBLEST num);
- extern struct value *value_from_decfloat (struct type *type,
- const gdb_byte *decbytes);
- extern struct value *value_from_string (char *string);
-
-+extern const char *object_address_data_not_valid (struct type *type);
-+extern int object_address_get_data (struct type *type,
-+ CORE_ADDR *address_return);
++ /* We must get caught here (against a false watchpoint removal). */
+
- extern struct value *value_at (struct type *type, CORE_ADDR addr);
- extern struct value *value_at_lazy (struct type *type, CORE_ADDR addr);
-
-@@ -388,6 +407,8 @@ extern struct value *value_mark (void);
-
- extern void value_free_to_mark (struct value *mark);
-
-+extern struct value *value_typed_string (char *ptr, int len,
-+ struct type *char_type);
- extern struct value *value_string (char *ptr, int len);
- extern struct value *value_bitstring (char *ptr, int len);
-
-@@ -435,6 +456,7 @@ extern struct value *value_struct_elt (struct value **argp,
-
- extern struct value *value_aggregate_elt (struct type *curtype,
- char *name,
-+ struct type *expect_type,
- int want_address,
- enum noside noside);
-
-@@ -533,14 +555,14 @@ extern void set_internalvar_component (struct internalvar *var,
- int bitpos, int bitsize,
- struct value *newvalue);
-
--extern struct internalvar *lookup_only_internalvar (char *name);
-+extern struct internalvar *lookup_only_internalvar (const char *name);
-
--extern struct internalvar *create_internalvar (char *name);
-+extern struct internalvar *create_internalvar (const char *name);
-
- extern struct internalvar *
- create_internalvar_type_lazy (char *name, internalvar_make_value fun);
-
--extern struct internalvar *lookup_internalvar (char *name);
-+extern struct internalvar *lookup_internalvar (const char *name);
-
- extern int value_equal (struct value *arg1, struct value *arg2);
-
-@@ -619,7 +641,7 @@ extern int common_val_print (struct value *val,
- const struct value_print_options *options,
- const struct language_defn *language);
-
--extern int val_print_string (CORE_ADDR addr, int len, int width,
-+extern int val_print_string (struct type *elttype, CORE_ADDR addr, int len,
- struct ui_file *stream,
- const struct value_print_options *options);
-
-@@ -658,5 +680,22 @@ extern struct value *value_allocate_space_in_inferior (int);
-
- extern struct value *value_of_local (const char *name, int complain);
-
--extern struct value * value_subscripted_rvalue (struct value *array, struct value *idx, int lowerbound);
-+extern struct value *value_subscripted_rvalue (struct value *array,
-+ CORE_ADDR offset);
++ marker ();
++ }
+
-+/* User function handler. */
++ i = sigaction (SIGUSR1, &oldact, NULL);
++ assert (i == 0);
++}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.threads/watchpoint-fork-mt.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.threads/watchpoint-fork-mt.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,174 @@
++/* Test case for forgotten hw-watchpoints after fork()-off of a process.
+
-+typedef struct value *(*internal_function_fn) (void *cookie,
-+ int argc,
-+ struct value **argv);
++ Copyright 2008, 2009, 2010 Free Software Foundation, Inc.
+
-+void add_internal_function (const char *name, const char *doc,
-+ internal_function_fn handler,
-+ void *cookie);
++ This file is part of GDB.
+
-+struct value *call_internal_function (struct value *function,
-+ int argc, struct value **argv);
++ 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 2 of the License, or
++ (at your option) any later version.
+
-+char *value_internal_function_name (struct value *);
++ 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.
+
- #endif /* !defined (VALUE_H) */
-diff --git a/gdb/varobj.c b/gdb/varobj.c
-index 2ec6d90..1237c96 100644
---- a/gdb/varobj.c
-+++ b/gdb/varobj.c
-@@ -29,11 +29,20 @@
-
- #include "gdb_assert.h"
- #include "gdb_string.h"
-+#include "gdb_regex.h"
-
- #include "varobj.h"
- #include "vec.h"
- #include "gdbthread.h"
- #include "inferior.h"
-+#include "valprint.h"
++ You should have received a copy of the GNU General Public License
++ along with this program; if not, write to the Free Software
++ Foundation, Inc., 59 Temple Place - Suite 330,
++ Boston, MA 02111-1307, USA. */
+
-+#if HAVE_PYTHON
-+#include "python/python.h"
-+#include "python/python-internal.h"
-+#else
-+typedef int PyObject;
-+#endif
-
- /* Non-zero if we want to see trace of varobj level stuff. */
-
-@@ -138,6 +147,12 @@ struct varobj
- /* Children of this object. */
- VEC (varobj_p) *children;
-
-+ /* Whether the children of this varobj were requested. This field is
-+ used to decide if dynamic varobj should recompute their children.
-+ In the event that the frontend never asked for the children, we
-+ can avoid that. */
-+ int children_requested;
++#include <assert.h>
++#include <unistd.h>
++#include <sys/wait.h>
++#include <stdio.h>
++#include <stdlib.h>
++#include <pthread.h>
+
- /* Description of the root variable. Points to root variable for children. */
- struct varobj_root *root;
-
-@@ -159,6 +174,16 @@ struct varobj
- not fetched if either the variable is frozen, or any parents is
- frozen. */
- int not_fetched;
++#include <asm/unistd.h>
++#include <unistd.h>
++#define gettid() syscall (__NR_gettid)
+
-+ /* Sub-range of children which the MI consumer has requested. If
-+ FROM < 0 or TO < 0, means that all children have been
-+ requested. */
-+ int from;
-+ int to;
++#include "watchpoint-fork.h"
+
-+ /* The pretty-printer that has been constructed. If NULL, then a
-+ new printer object is needed, and one will be constructed. */
-+ PyObject *pretty_printer;
- };
-
- struct cpstack
-@@ -190,6 +215,10 @@ static void uninstall_variable (struct varobj *);
-
- static struct varobj *create_child (struct varobj *, int, char *);
-
-+static struct varobj *
-+create_child_with_value (struct varobj *parent, int index, const char *name,
-+ struct value *value);
++/* Non-atomic `var++' should not hurt as we synchronize the threads by the STEP
++ variable. Hit-comments need to be duplicite there to catch both at-stops
++ and behind-stops, depending on the target. */
+
- /* Utility routines */
-
- static struct varobj *new_variable (void);
-@@ -200,6 +229,8 @@ static void free_variable (struct varobj *var);
-
- static struct cleanup *make_cleanup_free_variable (struct varobj *var);
-
-+static struct cleanup *make_cleanup_uninstall_variable (struct varobj *var);
++volatile int var;
+
- static struct type *get_type (struct varobj *var);
-
- static struct type *get_value_type (struct varobj *var);
-@@ -215,6 +246,8 @@ static char *cppop (struct cpstack **pstack);
- static int install_new_value (struct varobj *var, struct value *value,
- int initial);
-
-+static void install_default_visualizer (struct varobj *var);
++void
++marker (void)
++{
++}
+
- /* Language-specific routines. */
-
- static enum varobj_languages variable_language (struct varobj *var);
-@@ -232,13 +265,17 @@ static struct value *value_of_child (struct varobj *parent, int index);
- static char *my_value_of_variable (struct varobj *var,
- enum varobj_display_formats format);
-
--static char *value_get_print_value (struct value *value,
-- enum varobj_display_formats format);
-+char *value_get_print_value (struct value *value,
-+ enum varobj_display_formats format,
-+ PyObject *value_formatter);
-
- static int varobj_value_is_changeable_p (struct varobj *var);
-
- static int is_root_p (struct varobj *var);
-
-+static struct varobj *
-+varobj_add_child (struct varobj *var, const char *name, struct value *value);
++static void
++empty (void)
++{
++}
+
- /* C implementation */
-
- static int c_number_of_children (struct varobj *var);
-@@ -570,8 +607,10 @@ varobj_create (char *objname,
- do_cleanups (old_chain);
- return NULL;
- }
-+ make_cleanup_uninstall_variable (var);
- }
-
-+ install_default_visualizer (var);
- discard_cleanups (old_chain);
- return var;
- }
-@@ -678,6 +717,33 @@ varobj_delete (struct varobj *var, char ***dellist, int only_children)
- return delcount;
- }
-
-+/* Convenience function for varobj_set_visualizer. Instantiate a
-+ pretty-printer for a given value. */
-+static PyObject *
-+instantiate_pretty_printer (PyObject *constructor, struct value *value)
++static void
++mark_exit (void)
+{
-+#if HAVE_PYTHON
-+ PyObject *val_obj = NULL;
-+ PyObject *printer;
-+ volatile struct gdb_exception except;
++}
+
-+ TRY_CATCH (except, RETURN_MASK_ALL)
++pthread_t thread;
++volatile int step;
++
++static void *
++start (void *arg)
++{
++ int i;
++
++ if (step >= 3)
++ goto step_3;
++
++ while (step != 1)
+ {
-+ value = value_copy (value);
++ i = pthread_yield ();
++ assert (i == 0);
+ }
-+ GDB_PY_HANDLE_EXCEPTION (except);
-+ val_obj = value_to_value_object (value);
+
-+ if (! val_obj)
-+ return NULL;
++ var++; /* validity-thread-B */
++ empty (); /* validity-thread-B */
++ step = 2;
++ while (step != 3)
++ {
++ if (step == 99)
++ goto step_99;
+
-+ printer = gdbpy_instantiate_printer (constructor, val_obj);
-+ Py_DECREF (val_obj);
-+ return printer;
-+#endif
-+ return NULL;
-+}
++ i = pthread_yield ();
++ assert (i == 0);
++ }
+
- /* Set/Get variable object display format */
-
- enum varobj_display_formats
-@@ -702,7 +768,8 @@ varobj_set_display_format (struct varobj *var,
- && var->value && !value_lazy (var->value))
- {
- xfree (var->print_value);
-- var->print_value = value_get_print_value (var->value, var->format);
-+ var->print_value = value_get_print_value (var->value, var->format,
-+ var->pretty_printer);
- }
-
- return var->format;
-@@ -714,6 +781,21 @@ varobj_get_display_format (struct varobj *var)
- return var->format;
- }
-
-+char *
-+varobj_get_display_hint (struct varobj *var)
-+{
-+ char *result = NULL;
++step_3:
++ if (step >= 5)
++ goto step_5;
+
-+#if HAVE_PYTHON
-+ PyGILState_STATE state = PyGILState_Ensure ();
-+ if (var->pretty_printer)
-+ result = gdbpy_get_display_hint (var->pretty_printer);
-+ PyGILState_Release (state);
-+#endif
++ var++; /* after-fork1-B */
++ empty (); /* after-fork1-B */
++ step = 4;
++ while (step != 5)
++ {
++ if (step == 99)
++ goto step_99;
+
-+ return result;
-+}
++ i = pthread_yield ();
++ assert (i == 0);
++ }
+
- /* If the variable object is bound to a specific thread, that
- is its evaluation can always be done in context of a frame
- inside that thread, returns GDB id of the thread -- which
-@@ -746,12 +828,141 @@ varobj_get_frozen (struct varobj *var)
- return var->frozen;
- }
-
-+static int
-+update_dynamic_varobj_children (struct varobj *var,
-+ VEC (varobj_p) **changed,
-+ VEC (varobj_p) **new_and_unchanged,
-+ int *cchanged)
++step_5:
++ var++; /* after-fork2-B */
++ empty (); /* after-fork2-B */
++ return (void *) 5UL;
+
++step_99:
++ /* We must not get caught here (against a forgotten breakpoint). */
++ var++;
++ marker ();
++ return (void *) 99UL;
++}
++
++int
++main (void)
+{
-+#if HAVE_PYTHON
-+ /* FIXME: we *might* want to provide this functionality as
-+ a standalone function, so that other interested parties
-+ than varobj code can benefit for this. */
-+ struct cleanup *back_to;
-+ PyObject *children;
-+ PyObject *iterator;
+ int i;
-+ int children_changed = 0;
-+ PyObject *printer = var->pretty_printer;
-+ PyGILState_STATE state;
++ void *thread_result;
++
++ setbuf (stdout, NULL);
++ printf ("main: %d\n", (int) gettid ());
+
-+ state = PyGILState_Ensure ();
-+ back_to = make_cleanup_py_restore_gil (&state);
++ /* General hardware breakpoints and watchpoints validity. */
++ marker ();
++ var++; /* validity-first */
++ empty (); /* validity-first */
++
++ i = pthread_create (&thread, NULL, start, NULL);
++ assert (i == 0);
+
-+ *cchanged = 0;
-+ if (!PyObject_HasAttr (printer, gdbpy_children_cst))
++ var++; /* validity-thread-A */
++ empty (); /* validity-thread-A */
++ step = 1;
++ while (step != 2)
+ {
-+ do_cleanups (back_to);
-+ return 0;
++ i = pthread_yield ();
++ assert (i == 0);
+ }
+
-+ children = PyObject_CallMethodObjArgs (printer, gdbpy_children_cst,
-+ NULL);
++ /* Hardware watchpoints got disarmed here. */
++ forkoff (1);
++
++ var++; /* after-fork1-A */
++ empty (); /* after-fork1-A */
++ step = 3;
++#ifdef FOLLOW_CHILD
++ /* Spawn new thread as it was deleted in the child of FORK. */
++ i = pthread_create (&thread, NULL, start, NULL);
++ assert (i == 0);
++#endif
++ while (step != 4)
++ {
++ i = pthread_yield ();
++ assert (i == 0);
++ }
++
++ /* A sanity check for double hardware watchpoints removal. */
++ forkoff (2);
++
++ var++; /* after-fork2-A */
++ empty (); /* after-fork2-A */
++ step = 5;
++#ifdef FOLLOW_CHILD
++ /* Spawn new thread as it was deleted in the child of FORK. */
++ i = pthread_create (&thread, NULL, start, NULL);
++ assert (i == 0);
++#endif
++
++ i = pthread_join (thread, &thread_result);
++ assert (i == 0);
++ assert (thread_result == (void *) 5UL);
++
++ mark_exit ();
++ return 0;
++}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.threads/watchpoint-fork-parent.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.threads/watchpoint-fork-parent.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,74 @@
++/* Test case for forgotten hw-watchpoints after fork()-off of a process.
++
++ Copyright 2008, 2009, 2010 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 2 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.
+
-+ if (!children)
-+ {
-+ gdbpy_print_stack ();
-+ error ("Null value returned for children");
-+ }
++ You should have received a copy of the GNU General Public License
++ along with this program; if not, write to the Free Software
++ Foundation, Inc., 59 Temple Place - Suite 330,
++ Boston, MA 02111-1307, USA. */
+
-+ make_cleanup_py_decref (children);
++#include <string.h>
++#include <errno.h>
++#include <sys/types.h>
++#include <unistd.h>
++#include <assert.h>
++#include <stdio.h>
++#include <sys/wait.h>
+
-+ if (!PyIter_Check (children))
-+ error ("Returned value is not iterable");
++#include "watchpoint-fork.h"
+
-+ iterator = PyObject_GetIter (children);
-+ if (!iterator)
-+ {
-+ gdbpy_print_stack ();
-+ error ("Could not get children iterator");
-+ }
-+ make_cleanup_py_decref (iterator);
++void
++forkoff (int nr)
++{
++ pid_t child, pid_got;
++ int exit_code = 42 + nr;
++ int status, i;
++
++ child = fork ();
++ switch (child)
++ {
++ case -1:
++ assert (0);
++ case 0:
++ printf ("child%d: %d\n", nr, (int) getpid ());
++ /* Delay to get both the "child%d" and "parent%d" message printed without
++ a race breaking expect by its endless wait on `$gdb_prompt$':
++ Breakpoint 3, marker () at ../../../gdb/testsuite/gdb.threads/watchpoint-fork.c:33
++ 33 }
++ (gdb) parent2: 14223 */
++ i = sleep (1);
++ assert (i == 0);
++
++ /* We must not get caught here (against a forgotten breakpoint). */
++ var++;
++ marker ();
++
++ _exit (exit_code);
++ default:
++ printf ("parent%d: %d\n", nr, (int) child);
++ /* Delay to get both the "child%d" and "parent%d" message printed, see
++ above. */
++ i = sleep (1);
++ assert (i == 0);
+
-+ for (i = 0; ; ++i)
-+ {
-+ PyObject *item = PyIter_Next (iterator);
-+ PyObject *py_v;
-+ struct value *v;
-+ char *name;
-+ struct cleanup *inner;
-+
-+ if (!item)
-+ break;
-+ inner = make_cleanup_py_decref (item);
++ pid_got = wait (&status);
++ assert (pid_got == child);
++ assert (WIFEXITED (status));
++ assert (WEXITSTATUS (status) == exit_code);
+
-+ if (!PyArg_ParseTuple (item, "sO", &name, &py_v))
-+ error ("Invalid item from the child list");
-+
-+ if (PyObject_TypeCheck (py_v, &value_object_type))
-+ {
-+ /* If we just call convert_value_from_python for this type,
-+ we won't know who owns the result. For this one case we
-+ need to copy the resulting value. */
-+ v = value_object_to_value (py_v);
-+ v = value_copy (v);
-+ }
-+ else
-+ v = convert_value_from_python (py_v);
++ /* We must get caught here (against a false watchpoint removal). */
++ marker ();
++ }
++}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.threads/watchpoint-fork-st.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.threads/watchpoint-fork-st.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,61 @@
++/* Test case for forgotten hw-watchpoints after fork()-off of a process.
+
-+ /* TODO: This assume the name of the i-th child never changes. */
++ Copyright 2008, 2009, 2010 Free Software Foundation, Inc.
+
-+ /* Now see what to do here. */
-+ if (VEC_length (varobj_p, var->children) < i + 1)
-+ {
-+ /* There's no child yet. */
-+ struct varobj *child = varobj_add_child (var, name, v);
-+ if (new_and_unchanged)
-+ VEC_safe_push (varobj_p, *new_and_unchanged, child);
-+ children_changed = 1;
-+ }
-+ else
-+ {
-+ varobj_p existing = VEC_index (varobj_p, var->children, i);
-+ if (install_new_value (existing, v, 0) && changed)
-+ {
-+ if (changed)
-+ VEC_safe_push (varobj_p, *changed, existing);
-+ }
-+ else
-+ {
-+ if (new_and_unchanged)
-+ VEC_safe_push (varobj_p, *new_and_unchanged, existing);
-+ }
-+ }
++ This file is part of GDB.
+
-+ do_cleanups (inner);
-+ }
++ 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 2 of the License, or
++ (at your option) any later version.
+
-+ if (i < VEC_length (varobj_p, var->children))
-+ {
-+ int i;
-+ children_changed = 1;
-+ for (i = 0; i < VEC_length (varobj_p, var->children); ++i)
-+ varobj_delete (VEC_index (varobj_p, var->children, i), NULL, 0);
-+ }
-+ VEC_truncate (varobj_p, var->children, i);
-+ var->num_children = VEC_length (varobj_p, var->children);
-+
-+ do_cleanups (back_to);
++ 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.
+
-+ *cchanged = children_changed;
-+ return 1;
-+#else
-+ gdb_assert (0 && "should never be called if Python is not enabled");
-+#endif
-+}
-
- int
- varobj_get_num_children (struct varobj *var)
- {
- if (var->num_children == -1)
-- var->num_children = number_of_children (var);
-+ {
-+ int changed;
-+ if (!var->pretty_printer
-+ || !update_dynamic_varobj_children (var, NULL, NULL, &changed))
-+ var->num_children = number_of_children (var);
-+ }
-
- return var->num_children;
- }
-@@ -764,7 +975,16 @@ varobj_list_children (struct varobj *var)
- {
- struct varobj *child;
- char *name;
-- int i;
-+ int i, children_changed;
-+
-+ var->children_requested = 1;
-+
-+ if (var->pretty_printer
-+ /* This, in theory, can result in the number of children changing without
-+ frontend noticing. But well, calling -var-list-children on the same
-+ varobj twice is not something a sane frontend would do. */
-+ && update_dynamic_varobj_children (var, NULL, NULL, &children_changed))
-+ return var->children;
-
- if (var->num_children == -1)
- var->num_children = number_of_children (var);
-@@ -790,12 +1010,24 @@ varobj_list_children (struct varobj *var)
- name = name_of_child (var, i);
- existing = create_child (var, i, name);
- VEC_replace (varobj_p, var->children, i, existing);
-+ install_default_visualizer (existing);
- }
- }
-
- return var->children;
- }
-
-+static struct varobj *
-+varobj_add_child (struct varobj *var, const char *name, struct value *value)
-+{
-+ varobj_p v = create_child_with_value (var,
-+ VEC_length (varobj_p, var->children),
-+ name, value);
-+ VEC_safe_push (varobj_p, var->children, v);
-+ install_default_visualizer (v);
-+ return v;
-+}
++ You should have received a copy of the GNU General Public License
++ along with this program; if not, write to the Free Software
++ Foundation, Inc., 59 Temple Place - Suite 330,
++ Boston, MA 02111-1307, USA. */
+
- /* Obtain the type of an object Variable as a string similar to the one gdb
- prints on the console */
-
-@@ -1002,6 +1234,13 @@ install_new_value (struct varobj *var, struct value *value, int initial)
- a type. */
- gdb_assert (var->type || CPLUS_FAKE_CHILD (var));
- changeable = varobj_value_is_changeable_p (var);
++#include <assert.h>
++#include <unistd.h>
++#include <sys/wait.h>
++#include <stdio.h>
++#include <stdlib.h>
+
-+ /* If the type has custom visualizer, we consider it to be always
-+ changeable. FIXME: need to make sure this behaviour will not
-+ mess up read-sensitive values. */
-+ if (var->pretty_printer)
-+ changeable = 1;
++#include "watchpoint-fork.h"
+
- need_to_fetch = changeable;
-
- /* We are not interested in the address of references, and given
-@@ -1053,12 +1292,14 @@ install_new_value (struct varobj *var, struct value *value, int initial)
- }
- }
-
++volatile int var;
+
- /* Below, we'll be comparing string rendering of old and new
- values. Don't get string rendering if the value is
- lazy -- if it is, the code above has decided that the value
- should not be fetched. */
- if (value && !value_lazy (value))
-- print_value = value_get_print_value (value, var->format);
-+ print_value = value_get_print_value (value, var->format,
-+ var->pretty_printer);
-
- /* If the type is changeable, compare the old and the new values.
- If this is the initial assignment, we don't have any old value
-@@ -1123,6 +1364,150 @@ install_new_value (struct varobj *var, struct value *value, int initial)
- return changed;
- }
-
-+/* Return the effective requested range for a varobj. VAR is the
-+ varobj. CHILDREN is the computed list of children. FROM and TO
-+ are out parameters. If VAR has no bounds selected, *FROM and *TO
-+ will be set to the full range of CHILDREN. Otherwise, *FROM and
-+ *TO will be set to the selected sub-range of VAR, clipped to be in
-+ range of CHILDREN. */
+void
-+varobj_get_child_range (struct varobj *var, VEC (varobj_p) *children,
-+ int *from, int *to)
++marker (void)
+{
-+ if (var->from < 0 || var->to < 0)
-+ {
-+ *from = 0;
-+ *to = VEC_length (varobj_p, children);
-+ }
-+ else
-+ {
-+ *from = var->from;
-+ if (*from > VEC_length (varobj_p, children))
-+ *from = VEC_length (varobj_p, children);
-+ *to = var->to;
-+ if (*to > VEC_length (varobj_p, children))
-+ *to = VEC_length (varobj_p, children);
-+ }
+}
+
-+/* Set the selected sub-range of children of VAR to start at index
-+ FROM and end at index TO. If either FROM or TO is less than zero,
-+ this is interpreted as a request for all children. */
-+void
-+varobj_set_child_range (struct varobj *var, int from, int to)
++static void
++mark_exit (void)
+{
-+ var->from = from;
-+ var->to = to;
+}
+
-+static void
-+install_visualizer (struct varobj *var, PyObject *visualizer)
++int
++main (void)
+{
-+#if HAVE_PYTHON
-+ /* If there are any children now, wipe them. */
-+ varobj_delete (var, NULL, 1 /* children only */);
-+ var->num_children = -1;
++ setbuf (stdout, NULL);
++ printf ("main: %d\n", (int) getpid ());
+
-+ Py_XDECREF (var->pretty_printer);
-+ var->pretty_printer = visualizer;
++ /* General hardware breakpoints and watchpoints validity. */
++ marker ();
++ var++;
++ /* Hardware watchpoints got disarmed here. */
++ forkoff (1);
++ /* This watchpoint got lost before. */
++ var++;
++ /* A sanity check for double hardware watchpoints removal. */
++ forkoff (2);
++ var++;
++
++ mark_exit ();
++ return 0;
++}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.threads/watchpoint-fork.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.threads/watchpoint-fork.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,149 @@
++# Copyright 2008, 2009, 2010 Free Software Foundation, Inc.
+
-+ install_new_value (var, var->value, 1);
++# 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/>.
+
-+ /* If we removed the visualizer, and the user ever requested the
-+ object's children, then we must compute the list of children.
-+ Note that we needn't do this when installing a visualizer,
-+ because updating will recompute dynamic children. */
-+ if (!visualizer && var->children_requested)
-+ varobj_list_children (var);
-+#else
-+ error ("Python support required");
-+#endif
-+}
++# Test case for forgotten hw-watchpoints after fork()-off of a process.
+
-+static void
-+install_default_visualizer (struct varobj *var)
-+{
-+#if HAVE_PYTHON
-+ struct cleanup *cleanup;
-+ PyGILState_STATE state;
-+ PyObject *pretty_printer = NULL;
++proc test {type symbol} {
++ global objdir subdir srcdir gdb_prompt
+
-+ state = PyGILState_Ensure ();
-+ cleanup = make_cleanup_py_restore_gil (&state);
++ set testfile watchpoint-fork
+
-+ if (var->value)
-+ {
-+ pretty_printer = gdbpy_get_varobj_pretty_printer (var->value);
-+ if (! pretty_printer)
-+ {
-+ gdbpy_print_stack ();
-+ error (_("Cannot instantiate printer for default visualizer"));
-+ }
-+ }
-+
-+ if (pretty_printer == Py_None)
-+ {
-+ Py_DECREF (pretty_printer);
-+ pretty_printer = NULL;
-+ }
-+
-+ install_visualizer (var, pretty_printer);
-+ do_cleanups (cleanup);
-+#else
-+ /* No error is right as this function is inserted just as a hook. */
-+#endif
-+}
++ global pf_prefix
++ set prefix_test $pf_prefix
++ lappend pf_prefix "$type:"
++ set prefix_mt $pf_prefix
+
-+void
-+varobj_set_visualizer (struct varobj *var, const char *visualizer)
-+{
-+#if HAVE_PYTHON
-+ PyObject *mainmod, *globals, *pretty_printer, *constructor;
-+ struct cleanup *back_to, *value;
-+ PyGILState_STATE state;
++ set srcfile_type ${srcdir}/${subdir}/${testfile}-${type}.c
+
+
-+ state = PyGILState_Ensure ();
-+ back_to = make_cleanup_py_restore_gil (&state);
++ # no threads
+
-+ mainmod = PyImport_AddModule ("__main__");
-+ globals = PyModule_GetDict (mainmod);
-+ Py_INCREF (globals);
-+ make_cleanup_py_decref (globals);
++ set pf_prefix $prefix_mt
++ lappend pf_prefix "singlethreaded:"
+
-+ constructor = PyRun_String (visualizer, Py_eval_input, globals, globals);
-+
-+ /* Do not instantiate NoneType. */
-+ if (constructor == Py_None)
-+ {
-+ pretty_printer = Py_None;
-+ Py_INCREF (pretty_printer);
++ set executable ${testfile}-${type}-st
++ set srcfile_main ${srcdir}/${subdir}/${testfile}-st.c
++ if { [gdb_compile "${srcfile_main} ${srcfile_type}" ${objdir}/${subdir}/${executable} executable [list debug additional_flags=-D$symbol]] != "" } {
++ untested ${testfile}.exp
++ return
+ }
-+ else
-+ pretty_printer = instantiate_pretty_printer (constructor, var->value);
++ clean_restart $executable
+
-+ Py_XDECREF (constructor);
++ gdb_test "show detach-on-fork" "Whether gdb will detach the child of a fork is on\\."
++ gdb_test_no_output "set follow-fork-mode $type"
++ gdb_test "show follow-fork-mode" "Debugger response to a program call of fork or vfork is \"$type\"\\."
++ # Testcase uses it for the `follow-fork-mode child' type.
++ gdb_test "handle SIGUSR1 nostop noprint pass" "No\[ \t\]+No\[ \t\]+Yes.*"
+
-+ if (! pretty_printer)
-+ {
-+ gdbpy_print_stack ();
-+ error ("Could not evaluate visualizer expression: %s", visualizer);
++ if ![runto_main] {
++ return
+ }
+
-+ if (pretty_printer == Py_None)
-+ {
-+ Py_DECREF (pretty_printer);
-+ pretty_printer = NULL;
++ gdb_test "watch var" "atchpoint \[0-9\]+: var" "Set the watchpoint"
++
++ # It is never hit but it should not be left over in the fork()ed-off child.
++ set hbreak "hbreak"
++ set test "hbreak marker"
++ gdb_test_multiple $test $test {
++ -re "Hardware assisted breakpoint \[0-9\]+ at .*\r\n$gdb_prompt $" {
++ pass $test
++ }
++ -re "(No hardware breakpoint support in the target\\.|Hardware breakpoints used exceeds limit\\.)\r\n$gdb_prompt $" {
++ pass $test
++ set hbreak "break"
++ gdb_test "break marker"
++ }
+ }
+
-+ install_visualizer (var, pretty_printer);
++ gdb_breakpoint "mark_exit"
+
-+ do_cleanups (back_to);
-+#else
-+ error ("Python support required");
-+#endif
-+}
++ gdb_test "continue" \
++ "reakpoint \[0-9\]+, marker.*" "hardware breakpoints work"
++ gdb_test "continue" \
++ "atchpoint \[0-9\]+: var.*Old value = 0.*New value = 1.*forkoff *\\(1\\).*" "watchpoints work"
++ gdb_test "continue" \
++ "reakpoint \[0-9\]+, marker.*" "breakpoint after the first fork"
++ gdb_test "continue" \
++ "atchpoint \[0-9\]+: var.*Old value = 1.*New value = 2.*forkoff *\\(2\\).*" "watchpoint after the first fork"
++ gdb_test "continue" \
++ "reakpoint \[0-9\]+, marker.*" "breakpoint after the second fork"
++ gdb_test "continue" \
++ "atchpoint \[0-9\]+: var.*Old value = 2.*New value = 3.*mark_exit \\(\\);" "watchpoint after the second fork"
++ gdb_test "continue" "Continuing\\..*\r\nBreakpoint \[0-9\]+, mark_exit .*" "finish"
+
- /* Update the values for a variable and its children. This is a
- two-pronged attack. First, re-parse the value for the root's
- expression to see if it's changed. Then go all the way
-@@ -1148,7 +1533,7 @@ VEC(varobj_update_result) *varobj_update (struct varobj **varp, int explicit)
- struct varobj **cv;
- struct varobj **templist = NULL;
- struct value *new;
-- VEC (varobj_p) *stack = NULL;
-+ VEC (varobj_update_result) *stack = NULL;
- VEC (varobj_update_result) *result = NULL;
- struct frame_info *fi;
-
-@@ -1187,20 +1572,85 @@ VEC(varobj_update_result) *varobj_update (struct varobj **varp, int explicit)
-
- if (new == NULL)
- r.status = VAROBJ_NOT_IN_SCOPE;
--
-- if (r.type_changed || r.changed)
-- VEC_safe_push (varobj_update_result, result, &r);
-+ r.value_installed = 1;
-
- if (r.status == VAROBJ_NOT_IN_SCOPE)
-- return result;
-+ {
-+ VEC_safe_push (varobj_update_result, result, &r);
-+ return result;
-+ }
-+
-+ VEC_safe_push (varobj_update_result, stack, &r);
++
++ # threads
++
++ set pf_prefix $prefix_mt
++ lappend pf_prefix "multithreaded:"
++
++ set executable ${testfile}-${type}-mt
++ set srcfile_main ${srcdir}/${subdir}/${testfile}-mt.c
++ if { [gdb_compile_pthreads "${srcfile_main} ${srcfile_type}" ${objdir}/${subdir}/${executable} executable [list debug "additional_flags=-D$symbol -DTHREAD"]] != "" } {
++ untested ${testfile}.exp
++ return
+ }
-+ else
-+ {
-+ varobj_update_result r = {*varp};
-+ VEC_safe_push (varobj_update_result, stack, &r);
- }
--
-- VEC_safe_push (varobj_p, stack, *varp);
-
- /* Walk through the children, reconstructing them all. */
-- while (!VEC_empty (varobj_p, stack))
-+ while (!VEC_empty (varobj_update_result, stack))
- {
-- v = VEC_pop (varobj_p, stack);
-+ varobj_update_result r = *(VEC_last (varobj_update_result, stack));
-+ struct varobj *v = r.varobj;
-+
-+ VEC_pop (varobj_update_result, stack);
-+
-+ /* Update this variable, unless it's a root, which is already
-+ updated. */
-+ if (!r.value_installed)
-+ {
-+ new = value_of_child (v->parent, v->index);
-+ if (install_new_value (v, new, 0 /* type not changed */))
-+ {
-+ r.changed = 1;
-+ v->updated = 0;
-+ }
-+ }
++ clean_restart $executable
+
-+ /* We probably should not get children of a varobj that has a
-+ pretty-printer, but for which -var-list-children was never
-+ invoked. Presumably, such varobj is not yet expanded in the
-+ UI, so we need not bother getting it. */
-+ if (v->pretty_printer)
-+ {
-+ VEC (varobj_p) *changed = 0, *new_and_unchanged = 0;
-+ int i, children_changed;
-+ varobj_p tmp;
++ gdb_test_no_output "set follow-fork-mode $type"
++ # Testcase uses it for the `follow-fork-mode child' type.
++ gdb_test "handle SIGUSR1 nostop noprint pass" "No\[ \t\]+No\[ \t\]+Yes.*"
+
-+ if (!v->children_requested)
-+ continue;
++ if ![runto_main] {
++ return
++ }
+
-+ if (v->frozen)
-+ continue;
++ gdb_test "watch var" "atchpoint \[0-9\]+: var" "Set the watchpoint"
+
-+ /* If update_dynamic_varobj_children returns 0, then we have
-+ a non-conforming pretty-printer, so we skip it. */
-+ if (update_dynamic_varobj_children (v, &changed, &new_and_unchanged,
-+ &children_changed))
-+ {
-+ if (children_changed)
-+ r.children_changed = 1;
-+ for (i = 0; VEC_iterate (varobj_p, changed, i, tmp); ++i)
-+ {
-+ varobj_update_result r = {tmp};
-+ r.changed = 1;
-+ r.value_installed = 1;
-+ VEC_safe_push (varobj_update_result, stack, &r);
-+ }
-+ for (i = 0;
-+ VEC_iterate (varobj_p, new_and_unchanged, i, tmp);
-+ ++i)
-+ {
-+ varobj_update_result r = {tmp};
-+ r.value_installed = 1;
-+ VEC_safe_push (varobj_update_result, stack, &r);
-+ }
-+ if (r.changed || r.children_changed)
-+ VEC_safe_push (varobj_update_result, result, &r);
-+ continue;
-+ }
-+ }
-
- /* Push any children. Use reverse order so that the first
- child is popped from the work stack first, and so
-@@ -1211,26 +1661,18 @@ VEC(varobj_update_result) *varobj_update (struct varobj **varp, int explicit)
- varobj_p c = VEC_index (varobj_p, v->children, i);
- /* Child may be NULL if explicitly deleted by -var-delete. */
- if (c != NULL && !c->frozen)
-- VEC_safe_push (varobj_p, stack, c);
-- }
--
-- /* Update this variable, unless it's a root, which is already
-- updated. */
-- if (v->root->rootvar != v)
-- {
-- new = value_of_child (v->parent, v->index);
-- if (install_new_value (v, new, 0 /* type not changed */))
- {
-- /* Note that it's changed */
-- varobj_update_result r = {v};
-- r.changed = 1;
-- VEC_safe_push (varobj_update_result, result, &r);
-- v->updated = 0;
-+ varobj_update_result r = {c};
-+ VEC_safe_push (varobj_update_result, stack, &r);
- }
- }
++ # It should not be left over in the fork()ed-off child.
++ gdb_test "$hbreak marker" {reakpoint [0-9]+.*}
+
-+ if (r.changed || r.type_changed)
-+ VEC_safe_push (varobj_update_result, result, &r);
- }
-
-- VEC_free (varobj_p, stack);
-+ VEC_free (varobj_update_result, stack);
++ gdb_breakpoint "mark_exit"
+
- return result;
- }
- \f
-@@ -1429,16 +1871,23 @@ uninstall_variable (struct varobj *var)
- static struct varobj *
- create_child (struct varobj *parent, int index, char *name)
- {
-+ return create_child_with_value (parent, index, name,
-+ value_of_child (parent, index));
-+}
++ gdb_test "continue" \
++ "reakpoint \[0-9\]+, marker.*" "hardware breakpoints work"
++ gdb_test "continue" \
++ "atchpoint \[0-9\]+: var.*Old value = 0.*New value = 1.*validity-first.*" "singlethread watchpoints work"
++ gdb_test "continue" \
++ "atchpoint \[0-9\]+: var.*Old value = 1.*New value = 2.*validity-thread-A.*" "multithreaded watchpoints work at A"
++ gdb_test "continue" \
++ "atchpoint \[0-9\]+: var.*Old value = 2.*New value = 3.*validity-thread-B.*" "multithreaded watchpoints work at B"
++ gdb_test "continue" \
++ "reakpoint \[0-9\]+, marker.*" "breakpoint (A) after the first fork"
++ gdb_test "continue" \
++ "atchpoint \[0-9\]+: var.*Old value = 3.*New value = 4.*after-fork1-A.*" "watchpoint A after the first fork"
++ gdb_test "continue" \
++ "atchpoint \[0-9\]+: var.*Old value = 4.*New value = 5.*after-fork1-B.*" "watchpoint B after the first fork"
++ gdb_test "continue" \
++ "reakpoint \[0-9\]+, marker.*" "breakpoint (A) after the second fork"
++ gdb_test "continue" \
++ "atchpoint \[0-9\]+: var.*Old value = 5.*New value = 6.*after-fork2-A.*" "watchpoint A after the second fork"
++ gdb_test "continue" \
++ "atchpoint \[0-9\]+: var.*Old value = 6.*New value = 7.*after-fork2-B.*" "watchpoint B after the second fork"
++ gdb_test "continue" "Continuing\\..*\r\nBreakpoint \[0-9\]+, mark_exit .*" "finish"
+
-+static struct varobj *
-+create_child_with_value (struct varobj *parent, int index, const char *name,
-+ struct value *value)
-+{
- struct varobj *child;
- char *childs_name;
-- struct value *value;
-
- child = new_variable ();
-
- /* name is allocated by name_of_child */
-- child->name = name;
-+ /* FIXME: xstrdup should not be here. */
-+ child->name = xstrdup (name);
- child->index = index;
-- value = value_of_child (parent, index);
- child->parent = parent;
- child->root = parent->root;
- childs_name = xstrprintf ("%s.%s", parent->obj_name, name);
-@@ -1487,6 +1936,10 @@ new_variable (void)
- var->print_value = NULL;
- var->frozen = 0;
- var->not_fetched = 0;
-+ var->children_requested = 0;
-+ var->from = -1;
-+ var->to = -1;
-+ var->pretty_printer = 0;
-
- return var;
- }
-@@ -1519,6 +1972,14 @@ free_variable (struct varobj *var)
- xfree (var->root);
- }
-
-+#if HAVE_PYTHON
-+ {
-+ PyGILState_STATE state = PyGILState_Ensure ();
-+ Py_XDECREF (var->pretty_printer);
-+ PyGILState_Release (state);
-+ }
-+#endif
+
- xfree (var->name);
- xfree (var->obj_name);
- xfree (var->print_value);
-@@ -1538,6 +1999,18 @@ make_cleanup_free_variable (struct varobj *var)
- return make_cleanup (do_free_variable_cleanup, var);
- }
-
-+static void
-+do_uninstall_variable_cleanup (void *var)
-+{
-+ uninstall_variable (var);
++ # cleanup
++ set pf_prefix $prefix_test
+}
+
-+static struct cleanup *
-+make_cleanup_uninstall_variable (struct varobj *var)
-+{
-+ return make_cleanup (do_uninstall_variable_cleanup, var);
++test parent FOLLOW_PARENT
++
++# Only GNU/Linux is known to support `set follow-fork-mode child'.
++if {[istarget "*-*-linux*"] && ![is_remote target]} {
++ test child FOLLOW_CHILD
++} else {
++ untested "child"
+}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.threads/watchpoint-fork.h
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.threads/watchpoint-fork.h 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,32 @@
++/* Test case for forgotten hw-watchpoints after fork()-off of a process.
+
- /* This returns the type of the variable. It also skips past typedefs
- to return the real type of the variable.
-
-@@ -1792,24 +2265,71 @@ my_value_of_variable (struct varobj *var, enum varobj_display_formats format)
- return NULL;
- }
-
--static char *
--value_get_print_value (struct value *value, enum varobj_display_formats format)
-+char *
-+value_get_print_value (struct value *value, enum varobj_display_formats format,
-+ PyObject *value_formatter)
- {
- long dummy;
- struct ui_file *stb;
- struct cleanup *old_chain;
-- char *thevalue;
-+ char *thevalue = NULL;
- struct value_print_options opts;
-
- if (value == NULL)
- return NULL;
-
-+#if HAVE_PYTHON
-+ {
-+ PyGILState_STATE state = PyGILState_Ensure ();
-+ if (value_formatter && PyObject_HasAttr (value_formatter,
-+ gdbpy_to_string_cst))
-+ {
-+ char *hint;
-+ struct value *replacement;
-+ int string_print = 0;
++ Copyright 2008, 2009, 2010 Free Software Foundation, Inc.
+
-+ hint = gdbpy_get_display_hint (value_formatter);
-+ if (hint)
-+ {
-+ if (!strcmp (hint, "string"))
-+ string_print = 1;
-+ xfree (hint);
-+ }
++ This file is part of GDB.
+
-+ thevalue = apply_varobj_pretty_printer (value_formatter,
-+ &replacement);
-+ if (thevalue && !string_print)
-+ {
-+ PyGILState_Release (state);
-+ return thevalue;
-+ }
-+ if (replacement)
-+ value = replacement;
-+ }
-+ PyGILState_Release (state);
-+ }
-+#endif
++ 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 2 of the License, or
++ (at your option) any later version.
+
- stb = mem_fileopen ();
- old_chain = make_cleanup_ui_file_delete (stb);
-
- get_formatted_print_options (&opts, format_code[(int) format]);
- opts.deref_ref = 0;
-- common_val_print (value, stb, 0, &opts, current_language);
-+ opts.raw = 1;
-+ if (thevalue)
-+ {
-+ struct type *string_char_type;
-+
-+ make_cleanup (xfree, thevalue);
-+
-+ /* OUTPUT is already in the hosts's charset. */
-+ string_char_type = language_string_char_type (current_language,
-+ current_gdbarch);
-+ LA_PRINT_STRING (stb, string_char_type, (gdb_byte *) thevalue,
-+ strlen (thevalue), 0, &opts);
-+ }
-+ else
-+ common_val_print (value, stb, 0, &opts, current_language);
- thevalue = ui_file_xstrdup (stb, &dummy);
-
- do_cleanups (old_chain);
-@@ -1900,7 +2420,7 @@ varobj_floating_p (struct varobj *var)
- value is not known.
-
- If WAS_PTR is not NULL, set *WAS_PTR to 0 or 1
-- depending on whether pointer was deferenced
-+ depending on whether pointer was dereferenced
- in this function. */
- static void
- adjust_value_for_child_access (struct value **value,
-@@ -2269,6 +2789,11 @@ c_value_of_variable (struct varobj *var, enum varobj_display_formats format)
- catch that case explicitly. */
- struct type *type = get_type (var);
-
-+ /* If we have a custom formatter, return whatever string it has
-+ produced. */
-+ if (var->pretty_printer && var->print_value)
-+ return xstrdup (var->print_value);
-+
- /* Strip top-level references. */
- while (TYPE_CODE (type) == TYPE_CODE_REF)
- type = check_typedef (TYPE_TARGET_TYPE (type));
-@@ -2313,7 +2838,8 @@ c_value_of_variable (struct varobj *var, enum varobj_display_formats format)
- if (format == var->format)
- return xstrdup (var->print_value);
- else
-- return value_get_print_value (var->value, format);
-+ return value_get_print_value (var->value, format,
-+ var->pretty_printer);
- }
- }
- }
-diff --git a/gdb/varobj.h b/gdb/varobj.h
-index f2cdcf8..10758d6 100644
---- a/gdb/varobj.h
-+++ b/gdb/varobj.h
-@@ -72,7 +72,12 @@ typedef struct varobj_update_result_t
- struct varobj *varobj;
- int type_changed;
- int changed;
-+ int children_changed;
- enum varobj_scope_status status;
-+ /* This variable is used internally by varobj_update to indicate if the
-+ new value of varobj is already computed and installed, or has to
-+ be yet installed. Don't use this outside varobj.c */
-+ int value_installed;
- } varobj_update_result;
-
- DEF_VEC_O (varobj_update_result);
-@@ -107,6 +112,14 @@ extern void varobj_set_frozen (struct varobj *var, int frozen);
-
- extern int varobj_get_frozen (struct varobj *var);
-
-+extern void varobj_get_child_range (struct varobj *var,
-+ VEC (varobj_p) *children,
-+ int *from, int *to);
-+
-+extern void varobj_set_child_range (struct varobj *var, int from, int to);
-+
-+extern char *varobj_get_display_hint (struct varobj *var);
-+
- extern int varobj_get_num_children (struct varobj *var);
-
- /* Return the list of children of VAR. The returned vector
-@@ -141,4 +154,13 @@ extern int varobj_editable_p (struct varobj *var);
-
- extern int varobj_floating_p (struct varobj *var);
-
-+extern void
-+varobj_set_visualizer (struct varobj *var, const char *visualizer);
-+
-+extern void
-+varobj_clear_type_visualizers ();
-+
-+extern void
-+varobj_set_visualizer (struct varobj *var, const char *visualizer);
-+
- #endif /* VAROBJ_H */
-diff --git a/gdb/xcoffread.c b/gdb/xcoffread.c
-index aab3e48..d41738b 100644
---- a/gdb/xcoffread.c
-+++ b/gdb/xcoffread.c
-@@ -3021,6 +3021,7 @@ static struct sym_fns xcoff_sym_fns =
- xcoff_new_init, /* sym_new_init: init anything gbl to entire symtab */
- xcoff_symfile_init, /* sym_init: read initial info, setup for sym_read() */
- xcoff_initial_scan, /* sym_read: read a symbol file into symtab */
-+ NULL, /* sym_read_psymbols */
- xcoff_symfile_finish, /* sym_finish: finished with file, cleanup */
- xcoff_symfile_offsets, /* sym_offsets: xlate offsets ext->int form */
- default_symfile_segments, /* sym_segments: Get segment information from
-diff --git a/gdb/xml-syscall.c b/gdb/xml-syscall.c
-new file mode 100644
-index 0000000..498f58a
---- /dev/null
-+++ b/gdb/xml-syscall.c
-@@ -0,0 +1,423 @@
-+/* Functions that provide the mechanism to parse a syscall XML file
-+ and get its values.
-+
-+ Copyright (C) 1986, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
-+ 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2006, 2007, 2008
-+ Free Software Foundation, Inc.
++ 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.
+
-+ This file is part of GDB.
++ You should have received a copy of the GNU General Public License
++ along with this program; if not, write to the Free Software
++ Foundation, Inc., 59 Temple Place - Suite 330,
++ Boston, MA 02111-1307, USA. */
++
++#ifdef THREAD
++#include <pthread.h>
++
++extern volatile int step;
++extern pthread_t thread;
++#endif /* THREAD */
++
++extern volatile int var;
++
++extern void marker (void);
++extern void forkoff (int nr);
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.trace/stap-trace.c
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.trace/stap-trace.c 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,71 @@
++/* This testcase is part of GDB, the GNU debugger.
++
++ Copyright 2011 Free Software Foundation, Inc.
+
+ 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
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
-+#include "defs.h"
-+#include "gdbtypes.h"
-+#include "xml-support.h"
-+#include "xml-syscall.h"
-+
-+#include "filenames.h"
-+
-+#include "gdb_assert.h"
++#if USE_PROBES
+
-+#ifndef HAVE_LIBEXPAT
++#define _SDT_HAS_SEMAPHORES
++__extension__ unsigned short teste_user_semaphore __attribute__ ((unused)) __attribute__ ((section (".probes")));
++#define TEST teste_user_semaphore
+
-+/* Dummy functions to indicate that there's no support for fetching
-+ syscalls information. */
++__extension__ unsigned short teste_two_semaphore __attribute__ ((unused)) __attribute__ ((section (".probes")));
++#define TEST2 teste_two_semaphore
+
-+static void
-+syscall_warn_user (void)
-+{
-+ static int have_warned = 0;
-+ if (!have_warned)
-+ {
-+ have_warned = 1;
-+ warning (_("Can not parse XML syscalls information; XML support was "
-+ "disabled at compile time"));
-+ }
-+}
++#else
+
-+const struct syscalls_info *
-+xml_init_syscalls_info (const char *filename)
++#define TEST 1
++#define TEST2 1
++
++#endif /* USE_PROBES */
++
++#include <sys/sdt.h>
++
++/* We only support SystemTap and only the v3 form. */
++#if _SDT_NOTE_TYPE != 3
++#error "not using SystemTap v3 probes"
++#endif
++
++void
++m1 (int x)
+{
-+ syscall_warn_user ();
-+ return NULL;
++ if (TEST2)
++ STAP_PROBE1 (teste, two, x);
+}
+
+int
-+xml_get_syscall_number (const struct syscalls_info *sysinfo,
-+ const char *syscall_name)
++f (int x)
+{
-+ syscall_warn_user ();
-+ return UNKNOWN_SYSCALL;
++ if (TEST)
++ STAP_PROBE1(teste, user, x);
++ return x+5;
+}
+
-+const char *
-+xml_get_syscall_name (const struct syscalls_info *sysinfo,
-+ int syscall_number)
++void
++nothing (void)
+{
-+ syscall_warn_user ();
-+ return NULL;
++ int a = 1 + 1;
++ return;
+}
+
+int
-+xml_number_of_syscalls (const struct syscalls_info *sysinfo)
++main()
+{
-+ syscall_warn_user ();
++ f (f (23));
++ m1 (46);
++ nothing (); /* end-here */
++
+ return 0;
+}
+Index: gdb-7.2.90.20110703/gdb/testsuite/gdb.trace/stap-trace.exp
+===================================================================
+--- /dev/null 1970-01-01 00:00:00.000000000 +0000
++++ gdb-7.2.90.20110703/gdb/testsuite/gdb.trace/stap-trace.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -0,0 +1,129 @@
++# Copyright 2011
++# Free Software Foundation, Inc.
+
-+const char **
-+xml_list_of_syscalls (const struct syscalls_info *sysinfo)
-+{
-+ syscall_warn_user ();
-+ return NULL;
++# 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/>.
++
++load_lib "trace-support.exp"
++
++if $tracelevel then {
++ strace $tracelevel
+}
+
-+#else
++set testfile "stap-trace"
++set srcfile ${testfile}.c
++set executable $testfile
++set binfile $objdir/$subdir/$executable
+
-+/* Structure which describes a syscall. */
++set ws "\[\r\n\t \]+"
++set cr "\[\r\n\]+"
+
-+typedef struct syscall_desc
-+{
-+ /* The syscall number. */
++# Only x86 and x86_64 targets are supported for now.
+
-+ int number;
++if { ![istarget "x86_64-*"] && ![istarget "i?86-*"] } {
++ continue
++}
+
-+ /* The syscall name. */
++proc compile_stap_bin {{ arg "" }} {
++ global srcfile
++ global binfile
++ global srcdir
++ global subdir
+
-+ char *name;
-+} *syscall_desc_p;
-+DEF_VEC_P(syscall_desc_p);
++ if { $arg != "" } {
++ set arg "additional_flags=$arg"
++ }
+
-+/* Structure that represents syscalls information. */
++ if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
++ executable [concat $arg debug nowarnings]] != "" } {
++ untested "Could not compile ${srcfile}"
++ return -1
++ }
++}
+
-+struct syscalls_info
-+{
-+ /* The syscalls. */
++proc prepare_for_trace_test {} {
++ global executable
+
-+ VEC(syscall_desc_p) *syscalls;
-+};
++ clean_restart $executable
+
-+/* Callback data for syscall information parsing. */
++ if { ![runto_main] } {
++ perror "Could not run to `main'."
++ continue
++ }
+
-+struct syscall_parsing_data
-+{
-+ /* The syscalls_info we are building. */
++ gdb_breakpoint [gdb_get_line_number "end-here"]
++}
+
-+ struct syscalls_info *sysinfo;
-+};
++proc run_trace_experiment { test_probe msg } {
++ global gdb_prompt
+
++ set test "collect $msg: start trace experiment"
++ gdb_test_multiple "tstart" "$test" {
++ -re "^tstart\r\n$gdb_prompt $" {
++ pass "$test"
++ }
++ }
+
-+static struct syscalls_info *
-+allocate_syscalls_info (void)
-+{
-+ return XZALLOC (struct syscalls_info);
++ gdb_test "continue" \
++ "Continuing.*Breakpoint \[0-9\]+.*" \
++ "collect $msg: run trace experiment"
++ gdb_test "tstop" \
++ "\[\r\n\]+" \
++ "collect $msg: stop trace experiment"
++ gdb_test "tfind start" \
++ "#0 .*" \
++ "collect $msg: tfind test frame"
+}
+
-+static void
-+sysinfo_free_syscalls_desc (struct syscall_desc *sd)
-+{
-+ xfree (sd->name);
-+}
++proc gdb_collect_probe_arg { msg probe val_arg0 } {
++ global gdb_prompt
++ global cr
+
-+static void
-+free_syscalls_info (void *arg)
-+{
-+ struct syscalls_info *sysinfo = arg;
-+ struct syscall_desc *sysdesc;
-+ int i;
++ prepare_for_trace_test
++
++ gdb_test "trace $probe" \
++ "Tracepoint \[0-9\]+ at .*" \
++ "collect $msg: set tracepoint"
++ gdb_trace_setactions "collect $msg: define actions" \
++ "" \
++ "collect \$_probe_arg0" "^$"
+
-+ for (i = 0;
-+ VEC_iterate (syscall_desc_p, sysinfo->syscalls, i, sysdesc);
-+ i++)
-+ sysinfo_free_syscalls_desc (sysdesc);
-+ VEC_free (syscall_desc_p, sysinfo->syscalls);
++ # Begin the test.
++ run_trace_experiment $msg $probe
+
-+ xfree (sysinfo);
++ gdb_test "print \$_probe_arg0" \
++ "\\$\[0-9\]+ = $val_arg0$cr" \
++ "collect $msg: collected probe arg0"
+}
+
-+struct cleanup *
-+make_cleanup_free_syscalls_info (struct syscalls_info *sysinfo)
-+{
-+ return make_cleanup (free_syscalls_info, sysinfo);
++compile_stap_bin ""
++
++clean_restart $executable
++if { ![runto_main] } {
++ perror "Could not run to `main'."
++ continue
+}
+
-+/* Open FILENAME, read all its text into memory, close it, and return
-+ the text. If something goes wrong, return NULL and warn. */
++if { ![gdb_target_supports_trace] } {
++ # Test cannot run on this target.
++ return 1;
++}
++
++gdb_collect_probe_arg "probe args without semaphore" "probe:user" "23"
++gdb_exit
++
++compile_stap_bin "-DUSE_PROBES"
++gdb_collect_probe_arg "probe args with semaphore" "probe:two" "46"
++
++# Finished!
++gdb_test "tfind none" ".*" ""
+Index: gdb-7.2.90.20110703/gdb/testsuite/lib/gdb.exp
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/testsuite/lib/gdb.exp 2011-03-25 14:08:11.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/testsuite/lib/gdb.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -141,6 +141,11 @@ proc gdb_unload {} {
+ send_gdb "y\n"
+ exp_continue
+ }
++ -re "A program is being debugged already..*Are you sure you want to change the file.*y or n. $"\
++ { send_gdb "y\n"
++ verbose "\t\tUnloading symbols for program being debugged"
++ exp_continue
++ }
+ -re "Discard symbol table from .*y or n.*$" {
+ send_gdb "y\n"
+ exp_continue
+Index: gdb-7.2.90.20110703/gdb/testsuite/lib/pascal.exp
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/testsuite/lib/pascal.exp 2011-01-01 16:33:52.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/testsuite/lib/pascal.exp 2011-07-03 10:33:11.000000000 +0200
+@@ -37,6 +37,9 @@ proc pascal_init {} {
+ global pascal_compiler_is_fpc
+ global gpc_compiler
+ global fpc_compiler
++ global fpcversion_major
++ global fpcversion_minor
++ global fpcversion_release
+ global env
+
+ if { $pascal_init_done == 1 } {
+@@ -64,6 +67,20 @@ proc pascal_init {} {
+ set pascal_compiler_is_fpc 1
+ verbose -log "Free Pascal compiler found"
+ }
++
++ # Detect the fpc-version
++ if { $pascal_compiler_is_fpc == 1 } {
++ set fpcversion_major 1
++ set fpcversion_minor 0
++ set fpcversion_release 0
++ set fpcversion [ remote_exec host $fpc_compiler "-iV" ]
++ if [regexp {.*([0-9]+)\.([0-9]+)\.([0-9]+).?} $fpcversion] {
++ regsub {.*([0-9]+)\.([0-9]+)\.([0-9]+).?\n?.?} $fpcversion {\1} fpcversion_major
++ regsub {.*([0-9]+)\.([0-9]+)\.([0-9]+).?\n?.?} $fpcversion {\2} fpcversion_minor
++ regsub {.*([0-9]+)\.([0-9]+)\.([0-9]+).?\n?.?} $fpcversion {\3} fpcversion_release
++ }
++ verbose -log "Freepascal version: $fpcversion_major.$fpcversion_minor.$fpcversion_release"
++ }
+ }
+ set pascal_init_done 1
+ }
+Index: gdb-7.2.90.20110703/gdb/thread.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/thread.c 2011-04-19 17:24:49.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/thread.c 2011-07-03 10:33:11.000000000 +0200
+@@ -1438,7 +1438,8 @@ update_thread_list (void)
+ no thread is selected, or no threads exist. */
+
+ static struct value *
+-thread_id_make_value (struct gdbarch *gdbarch, struct internalvar *var)
++thread_id_make_value (struct gdbarch *gdbarch, struct internalvar *var,
++ void *ignore)
+ {
+ struct thread_info *tp = find_thread_ptid (inferior_ptid);
+
+@@ -1449,6 +1450,15 @@ thread_id_make_value (struct gdbarch *gd
+ /* Commands with a prefix of `thread'. */
+ struct cmd_list_element *thread_cmd_list = NULL;
+
++/* Implementation of `thread' variable. */
+
-+static char *
-+fetch_xml_from_file (const char *filename, void *baton)
++static struct internalvar_funcs thread_funcs =
+{
-+ const char *dirname = baton;
-+ FILE *file;
-+ struct cleanup *back_to;
-+ char *text;
-+ size_t len, offset;
++ thread_id_make_value,
++ NULL,
++ NULL
++};
+
-+ if (dirname && *dirname)
-+ {
-+ char *fullname = concat (dirname, "/", filename, (char *) NULL);
-+ if (fullname == NULL)
-+ nomem (0);
-+ file = fopen (fullname, FOPEN_RT);
-+ xfree (fullname);
-+ }
-+ else
-+ file = fopen (filename, FOPEN_RT);
+ void
+ _initialize_thread (void)
+ {
+@@ -1494,5 +1504,5 @@ Show printing of thread events (such as
+ show_print_thread_events,
+ &setprintlist, &showprintlist);
+
+- create_internalvar_type_lazy ("_thread", thread_id_make_value);
++ create_internalvar_type_lazy ("_thread", &thread_funcs, NULL);
+ }
+Index: gdb-7.2.90.20110703/gdb/top.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/top.c 2011-03-12 23:59:24.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/top.c 2011-07-03 10:33:11.000000000 +0200
+@@ -343,6 +343,9 @@ void
+ prepare_execute_command (void)
+ {
+ free_all_values ();
++#if 0
++ free_all_types ();
++#endif
+
+ /* With multiple threads running while the one we're examining is
+ stopped, the dcache can get stale without us being able to detect
+Index: gdb-7.2.90.20110703/gdb/tracepoint.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/tracepoint.c 2011-07-02 21:33:10.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/tracepoint.c 2011-07-03 10:33:11.000000000 +0200
+@@ -1603,6 +1603,8 @@ start_tracing (void)
+
+ for (ix = 0; VEC_iterate (breakpoint_p, tp_vec, ix, t); ix++)
+ {
++ struct bp_location *loc;
+
-+ if (file == NULL)
-+ return NULL;
+ if ((t->type == bp_fast_tracepoint
+ ? !may_insert_fast_tracepoints
+ : !may_insert_tracepoints))
+@@ -1611,6 +1613,9 @@ start_tracing (void)
+ t->number_on_target = 0;
+ target_download_tracepoint (t);
+ t->number_on_target = t->number;
++
++ for (loc = t->loc; loc; loc = loc->next)
++ modify_semaphore (loc, 1);
+ }
+ VEC_free (breakpoint_p, tp_vec);
+
+@@ -1672,7 +1677,28 @@ trace_stop_command (char *args, int from
+ void
+ stop_tracing (void)
+ {
++ VEC(breakpoint_p) *tp_vec = NULL;
++ int ix;
++ struct breakpoint *t;
+
-+ back_to = make_cleanup_fclose (file);
+ target_trace_stop ();
+
-+ /* Read in the whole file, one chunk at a time. */
-+ len = 4096;
-+ offset = 0;
-+ text = xmalloc (len);
-+ make_cleanup (free_current_contents, &text);
-+ while (1)
++ tp_vec = all_tracepoints ();
++ for (ix = 0; VEC_iterate (breakpoint_p, tp_vec, ix, t); ix++)
+ {
-+ size_t bytes_read;
++ struct bp_location *loc;
+
-+ /* Continue reading where the last read left off. Leave at least
-+ one byte so that we can NUL-terminate the result. */
-+ bytes_read = fread (text + offset, 1, len - offset - 1, file);
-+ if (ferror (file))
-+ {
-+ warning (_("Read error from \"%s\""), filename);
-+ do_cleanups (back_to);
-+ return NULL;
-+ }
++ if ((t->type == bp_fast_tracepoint
++ ? !may_insert_fast_tracepoints
++ : !may_insert_tracepoints))
++ continue;
+
-+ offset += bytes_read;
++ for (loc = t->loc; loc; loc = loc->next)
++ modify_semaphore (loc, 0);
++ }
+
-+ if (feof (file))
-+ break;
++ VEC_free (breakpoint_p, tp_vec);
+
-+ len = len * 2;
-+ text = xrealloc (text, len);
-+ }
+ /* Should change in response to reply? */
+ current_trace_status ()->running = 0;
+ }
+@@ -4515,7 +4541,8 @@ info_static_tracepoint_markers_command (
+ available. */
+
+ static struct value *
+-sdata_make_value (struct gdbarch *gdbarch, struct internalvar *var)
++sdata_make_value (struct gdbarch *gdbarch, struct internalvar *var,
++ void *ignore)
+ {
+ LONGEST size;
+ gdb_byte *buf;
+@@ -4694,6 +4721,15 @@ traceframe_available_memory (VEC(mem_ran
+ return 0;
+ }
+
++/* Implementation of `sdata' variable. */
+
-+ fclose (file);
-+ discard_cleanups (back_to);
++static const struct internalvar_funcs sdata_funcs =
++{
++ sdata_make_value,
++ NULL,
++ NULL
++};
+
-+ text[offset] = '\0';
-+ return text;
-+}
+ /* module initialization */
+ void
+ _initialize_tracepoint (void)
+@@ -4704,7 +4740,7 @@ _initialize_tracepoint (void)
+ value with a void typed value, and when we get here, gdbarch
+ isn't initialized yet. At this point, we're quite sure there
+ isn't another convenience variable of the same name. */
+- create_internalvar_type_lazy ("_sdata", sdata_make_value);
++ create_internalvar_type_lazy ("_sdata", &sdata_funcs, NULL);
+
+ traceframe_number = -1;
+ tracepoint_number = -1;
+Index: gdb-7.2.90.20110703/gdb/typeprint.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/typeprint.c 2011-01-11 22:53:25.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/typeprint.c 2011-07-03 10:33:11.000000000 +0200
+@@ -36,6 +36,7 @@
+ #include "gdb_string.h"
+ #include "exceptions.h"
+ #include "valprint.h"
++#include "dwarf2loc.h"
+ #include <errno.h>
+
+ extern void _initialize_typeprint (void);
+@@ -77,6 +78,9 @@ void
+ type_print (struct type *type, char *varstring, struct ui_file *stream,
+ int show)
+ {
++ if (show >= 0)
++ type = check_typedef (type);
++
+ LA_PRINT_TYPE (type, varstring, stream, show, 0);
+ }
+
+@@ -115,7 +119,8 @@ whatis_exp (char *exp, int show)
+ {
+ struct expression *expr;
+ struct value *val;
+- struct cleanup *old_chain = NULL;
++ /* Required at least for the object_address_set call. */
++ struct cleanup *old_chain = make_cleanup (null_cleanup, NULL);
+ struct type *real_type = NULL;
+ struct type *type;
+ int full = 0;
+@@ -126,12 +131,13 @@ whatis_exp (char *exp, int show)
+ if (exp)
+ {
+ expr = parse_expression (exp);
+- old_chain = make_cleanup (free_current_contents, &expr);
++ make_cleanup (free_current_contents, &expr);
+ val = evaluate_type (expr);
+ }
+ else
+ val = access_value_history (0);
+
++ object_address_set (value_raw_address (val));
+ type = value_type (val);
+
+ get_user_print_options (&opts);
+@@ -168,8 +174,7 @@ whatis_exp (char *exp, int show)
+ type_print (type, "", gdb_stdout, show);
+ printf_filtered ("\n");
+
+- if (exp)
+- do_cleanups (old_chain);
++ do_cleanups (old_chain);
+ }
+
+ static void
+Index: gdb-7.2.90.20110703/gdb/utils.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/utils.c 2011-05-17 23:26:28.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/utils.c 2011-07-03 10:33:11.000000000 +0200
+@@ -2243,6 +2243,36 @@ set_batch_flag_and_make_cleanup_restore_
+ return back_to;
+ }
+
++/* Helper for make_cleanup_restore_page_info. */
+
+static void
-+syscall_create_syscall_desc (struct syscalls_info *sysinfo,
-+ const char *name, int number)
++do_restore_selected_frame_cleanup (void *arg)
+{
-+ struct syscall_desc *sysdesc = XZALLOC (struct syscall_desc);
++ struct frame_id *frame_idp = arg;
+
-+ sysdesc->name = xstrdup (name);
-+ sysdesc->number = number;
++ select_frame (frame_find_by_id (*frame_idp));
+
-+ VEC_safe_push (syscall_desc_p, sysinfo->syscalls, sysdesc);
++ xfree (frame_idp);
+}
+
-+/* Handle the start of a <syscalls_info> element. */
++/* Provide cleanup for restoring currently selected frame. Use frame_id for
++ the case the current frame becomes stale in the meantime. */
+
-+static void
-+syscall_start_syscalls_info (struct gdb_xml_parser *parser,
-+ const struct gdb_xml_element *element,
-+ void *user_data,
-+ VEC(gdb_xml_value_s) *attributes)
++struct cleanup *
++make_cleanup_restore_selected_frame (void)
+{
-+ struct syscall_parsing_data *data = user_data;
-+ struct syscalls_info *sysinfo = data->sysinfo;
++ struct frame_id *frame_idp;
++
++ /* get_selected_frame->get_current_frame would error otherwise. */
++ if (!has_stack_frames ())
++ return make_cleanup (null_cleanup, NULL);
++
++ frame_idp = xmalloc (sizeof (*frame_idp));
++ *frame_idp = get_frame_id (get_selected_frame (NULL));
++
++ return make_cleanup (do_restore_selected_frame_cleanup, frame_idp);
+}
+
-+/* Handle the start of a <syscall> element. */
+ /* Set the screen size based on LINES_PER_PAGE and CHARS_PER_LINE. */
+
+ static void
+Index: gdb-7.2.90.20110703/gdb/valarith.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/valarith.c 2011-02-18 20:10:46.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/valarith.c 2011-07-03 10:33:11.000000000 +0200
+@@ -198,7 +198,10 @@ value_subscripted_rvalue (struct value *
+ struct type *array_type = check_typedef (value_type (array));
+ struct type *elt_type = check_typedef (TYPE_TARGET_TYPE (array_type));
+ unsigned int elt_size = TYPE_LENGTH (elt_type);
+- unsigned int elt_offs = elt_size * longest_to_int (index - lowerbound);
++ unsigned int elt_stride
++ = (TYPE_BYTE_STRIDE (TYPE_INDEX_TYPE (array_type)) == 0
++ ? elt_size : TYPE_BYTE_STRIDE (TYPE_INDEX_TYPE (array_type)));
++ unsigned int elt_offs = elt_stride * longest_to_int (index - lowerbound);
+ struct value *v;
+
+ if (index < lowerbound || (!TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED (array_type)
+@@ -298,6 +301,10 @@ int
+ binop_user_defined_p (enum exp_opcode op,
+ struct value *arg1, struct value *arg2)
+ {
++ /* FIXME: We should support user defined ops for dynamic types. */
++ if (TYPE_DYNAMIC (value_type (arg1)) || TYPE_DYNAMIC (value_type (arg2)))
++ return 0;
+
-+static void
-+syscall_start_syscall (struct gdb_xml_parser *parser,
-+ const struct gdb_xml_element *element,
-+ void *user_data, VEC(gdb_xml_value_s) *attributes)
+ return binop_types_user_defined_p (op, value_type (arg1), value_type (arg2));
+ }
+
+Index: gdb-7.2.90.20110703/gdb/valops.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/valops.c 2011-03-29 19:04:30.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/valops.c 2011-07-03 10:33:11.000000000 +0200
+@@ -47,6 +47,7 @@
+ #include "objfiles.h"
+ #include "symtab.h"
+ #include "exceptions.h"
++#include "dwarf2loc.h"
+
+ extern int overload_debug;
+ /* Local functions. */
+@@ -915,6 +916,65 @@ value_one (struct type *type, enum lval_
+ return val;
+ }
+
++/* object_address_set must be already called before this function. */
++
++const char *
++object_address_data_not_valid (struct type *type)
+{
-+ struct syscall_parsing_data *data = user_data;
-+ struct gdb_xml_value *attrs = VEC_address (gdb_xml_value_s, attributes);
-+ int len, i;
-+ /* syscall info. */
-+ char *name = NULL;
-+ int number = 0;
++ /* Attributes are present only at the target type of a typedef. Make the
++ call conditional as it would otherwise loop through type_length_get. */
++ if (TYPE_CODE (type) == TYPE_CODE_TYPEDEF)
++ CHECK_TYPEDEF (type);
+
-+ len = VEC_length (gdb_xml_value_s, attributes);
++ /* DW_AT_associated has a preference over DW_AT_allocated. */
++ if (TYPE_NOT_ASSOCIATED (type)
++ || (TYPE_ASSOCIATED (type) != NULL
++ && 0 == dwarf_locexpr_baton_eval (TYPE_ASSOCIATED (type))))
++ return N_("object is not associated");
+
-+ for (i = 0; i < len; i++)
-+ {
-+ if (strcmp (attrs[i].name, "name") == 0)
-+ name = attrs[i].value;
-+ else if (strcmp (attrs[i].name, "number") == 0)
-+ number = * (ULONGEST *) attrs[i].value;
-+ else
-+ internal_error (__FILE__, __LINE__,
-+ _("Unknown attribute name '%s'."), attrs[i].name);
-+ }
++ if (TYPE_NOT_ALLOCATED (type)
++ || (TYPE_ALLOCATED (type) != NULL
++ && 0 == dwarf_locexpr_baton_eval (TYPE_ALLOCATED (type))))
++ return N_("object is not allocated");
+
-+ syscall_create_syscall_desc (data->sysinfo, name, number);
++ return NULL;
+}
+
++/* Return non-NULL check_typedef result on TYPE if the variable is valid. If
++ it is valid the function may store the data address (DW_AT_DATA_LOCATION) of
++ TYPE at *ADDRESS_RETURN. You must set *ADDRESS_RETURN from
++ value_raw_address (VAL) before calling this function. If no
++ DW_AT_DATA_LOCATION is present for TYPE the address at *ADDRESS_RETURN is
++ left unchanged. ADDRESS_RETURN must not be NULL, use
++ object_address_data_not_valid () for just the data validity check. */
+
-+/* The elements and attributes of an XML syscall document. */
++struct type *
++object_address_get_data (struct type *type, CORE_ADDR *address_return)
++{
++ gdb_assert (address_return != NULL);
+
-+static const struct gdb_xml_attribute syscall_attr[] = {
-+ { "number", GDB_XML_AF_NONE, gdb_xml_parse_attr_ulongest, NULL },
-+ { "name", GDB_XML_AF_NONE, NULL, NULL },
-+ { NULL, GDB_XML_AF_NONE, NULL, NULL }
-+};
++ object_address_set (*address_return);
+
-+static const struct gdb_xml_element syscalls_info_children[] = {
-+ { "syscall", syscall_attr, NULL,
-+ GDB_XML_EF_OPTIONAL | GDB_XML_EF_REPEATABLE,
-+ syscall_start_syscall, NULL },
-+ { NULL, NULL, NULL, GDB_XML_EF_NONE, NULL, NULL }
-+};
++ /* TYPE_DATA_LOCATION_DWARF_BLOCK / TYPE_DATA_LOCATION_ADDR are present only
++ at the target type of a typedef. */
++ CHECK_TYPEDEF (type);
++
++ if (object_address_data_not_valid (type) != NULL)
++ {
++ /* Do not try to evaluate DW_AT_data_location as it may even crash
++ (it would just return the value zero in the gfortran case). */
++ return NULL;
++ }
++
++ if (TYPE_DATA_LOCATION_IS_ADDR (type))
++ *address_return = TYPE_DATA_LOCATION_ADDR (type);
++ else if (TYPE_DATA_LOCATION_DWARF_BLOCK (type) != NULL)
++ *address_return
++ = dwarf_locexpr_baton_eval (TYPE_DATA_LOCATION_DWARF_BLOCK (type));
++
++ return type;
++}
++
+ /* Helper function for value_at, value_at_lazy, and value_at_lazy_stack. */
+
+ static struct value *
+@@ -1011,12 +1071,20 @@ value_fetch_lazy (struct value *val)
+ }
+ else if (VALUE_LVAL (val) == lval_memory)
+ {
+- CORE_ADDR addr = value_address (val);
+- int length = TYPE_LENGTH (check_typedef (value_enclosing_type (val)));
++ CORE_ADDR addr = value_raw_address (val);
+
+- if (length)
+- read_value_memory (val, 0, value_stack (val),
+- addr, value_contents_all_raw (val), length);
++ if (object_address_get_data (value_type (val), &addr))
++ {
++ struct type *type = value_enclosing_type (val);
++ int length = TYPE_LENGTH (check_typedef (type));
+
-+static const struct gdb_xml_element syselements[] = {
-+ { "syscalls_info", NULL, syscalls_info_children,
-+ GDB_XML_EF_NONE, syscall_start_syscalls_info, NULL },
-+ { NULL, NULL, NULL, GDB_XML_EF_NONE, NULL, NULL }
-+};
++ if (length)
++ {
++ addr += value_offset (val);
++ read_value_memory (val, 0, value_stack (val),
++ addr, value_contents_all_raw (val), length);
++ }
++ }
+ }
+ else if (VALUE_LVAL (val) == lval_register)
+ {
+@@ -1528,7 +1596,18 @@ address_of_variable (struct symbol *var,
+ if ((VALUE_LVAL (val) == lval_memory && value_lazy (val))
+ || TYPE_CODE (type) == TYPE_CODE_FUNC)
+ {
+- CORE_ADDR addr = value_address (val);
++ CORE_ADDR addr;
+
-+static struct syscalls_info *
-+syscall_parse_xml (const char *document, xml_fetch_another fetcher,
-+ void *fetcher_baton)
-+{
-+ struct cleanup *result_cleanup;
-+ struct gdb_xml_parser *parser;
-+ struct syscall_parsing_data data;
-+ char *expanded_text;
-+ int i;
++ if (VALUE_LVAL (val) == lval_memory)
++ {
++ addr = value_raw_address (val);
++ if (!object_address_get_data (type, &addr))
++ error (_("Can't take address of memory lvalue \"%s\"."),
++ SYMBOL_PRINT_NAME (var));
++ set_value_address (val, addr);
++ }
+
-+ parser = gdb_xml_create_parser_and_cleanup (_("syscalls info"),
-+ syselements, &data);
++ addr = value_address (val);
+
+ return value_from_pointer (lookup_pointer_type (type), addr);
+ }
+@@ -1635,6 +1714,7 @@ struct value *
+ value_coerce_array (struct value *arg1)
+ {
+ struct type *type = check_typedef (value_type (arg1));
++ CORE_ADDR address;
+
+ /* If the user tries to do something requiring a pointer with an
+ array that has not yet been pushed to the target, then this would
+@@ -1644,8 +1724,12 @@ value_coerce_array (struct value *arg1)
+ if (VALUE_LVAL (arg1) != lval_memory)
+ error (_("Attempt to take address of value not located in memory."));
+
++ address = value_raw_address (arg1);
++ if (!object_address_get_data (type, &address))
++ error (_("Attempt to take address of non-valid value."));
+
-+ memset (&data, 0, sizeof (struct syscall_parsing_data));
-+ data.sysinfo = allocate_syscalls_info ();
-+ result_cleanup = make_cleanup_free_syscalls_info (data.sysinfo);
+ return value_from_pointer (lookup_pointer_type (TYPE_TARGET_TYPE (type)),
+- value_address (arg1));
++ address + value_offset (arg1));
+ }
+
+ /* Given a value which is a function, return a value which is a pointer
+@@ -3695,6 +3779,8 @@ value_slice (struct value *array, int lo
+ TYPE_TARGET_TYPE (range_type),
+ lowbound,
+ lowbound + length - 1);
++ TYPE_BYTE_STRIDE (slice_range_type) = TYPE_BYTE_STRIDE (range_type);
+
-+ if (gdb_xml_parse (parser, document) == 0)
-+ {
-+ /* Parsed successfully. */
-+ discard_cleanups (result_cleanup);
-+ return data.sysinfo;
-+ }
-+ else
+ if (TYPE_CODE (array_type) == TYPE_CODE_BITSTRING)
+ {
+ int i;
+Index: gdb-7.2.90.20110703/gdb/valprint.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/valprint.c 2011-04-29 21:23:05.000000000 +0200
++++ gdb-7.2.90.20110703/gdb/valprint.c 2011-07-03 10:33:11.000000000 +0200
+@@ -36,6 +36,7 @@
+ #include "dfp.h"
+ #include "python/python.h"
+ #include "ada-lang.h"
++#include "dwarf2loc.h"
+
+ #include <errno.h>
+
+@@ -239,7 +240,6 @@ scalar_type_p (struct type *type)
+ case TYPE_CODE_STRUCT:
+ case TYPE_CODE_UNION:
+ case TYPE_CODE_SET:
+- case TYPE_CODE_STRING:
+ case TYPE_CODE_BITSTRING:
+ return 0;
+ default:
+@@ -1193,6 +1193,7 @@ val_print_array_elements (struct type *t
+ {
+ unsigned int things_printed = 0;
+ unsigned len;
++ struct type *saved_type = type;
+ struct type *elttype, *index_type;
+ unsigned eltlen;
+ /* Position of the array element we are examining to see
+@@ -1201,9 +1202,33 @@ val_print_array_elements (struct type *t
+ /* Number of repetitions we have detected so far. */
+ unsigned int reps;
+ LONGEST low_bound, high_bound;
++ struct cleanup *back_to;
++ CORE_ADDR saved_address = address;
++
++ back_to = make_cleanup (null_cleanup, 0);
++ type = object_address_get_data (type, &address);
++ if (!type)
+ {
-+ warning (_("Could not load XML syscalls info; ignoring"));
-+ do_cleanups (result_cleanup);
-+ return NULL;
++ fputs_filtered (object_address_data_not_valid (type), stream);
++ do_cleanups (back_to);
++ return;
+ }
-+}
-+
-+const struct syscalls_info *
-+xml_init_syscalls_info (const char *filename)
-+{
-+ char *full_file;
-+ char *dirname;
-+ struct syscalls_info *sysinfo;
-+ struct cleanup *back_to;
-+
-+ full_file = fetch_xml_from_file (filename, gdb_datadir);
-+ if (full_file == NULL)
++ if (address != saved_address)
+ {
-+ warning (_("Could not open \"%s\""), filename);
-+ return NULL;
++ size_t length = TYPE_LENGTH (type);
+
+- elttype = TYPE_TARGET_TYPE (type);
+- eltlen = TYPE_LENGTH (check_typedef (elttype));
++ valaddr = xmalloc (length);
++ make_cleanup (xfree, (gdb_byte *) valaddr);
++ read_memory (address, (gdb_byte *) valaddr, length);
+ }
+
-+ back_to = make_cleanup (xfree, full_file);
++ /* Skip typedefs but do not resolve TYPE_DYNAMIC. */
++ elttype = saved_type;
++ while (TYPE_CODE (elttype) == TYPE_CODE_TYPEDEF)
++ elttype = TYPE_TARGET_TYPE (elttype);
++ elttype = TYPE_TARGET_TYPE (elttype);
+
-+ dirname = ldirname (filename);
-+ if (dirname != NULL)
-+ make_cleanup (xfree, dirname);
++ eltlen = TYPE_ARRAY_BYTE_STRIDE_VALUE (type);
+ index_type = TYPE_INDEX_TYPE (type);
+
+ if (get_array_bounds (type, &low_bound, &high_bound))
+@@ -1290,6 +1315,8 @@ val_print_array_elements (struct type *t
+ {
+ fprintf_filtered (stream, "...");
+ }
+
-+ sysinfo = syscall_parse_xml (full_file, fetch_xml_from_file, dirname);
+ do_cleanups (back_to);
+ }
+
+ /* Read LEN bytes of target memory at address MEMADDR, placing the
+Index: gdb-7.2.90.20110703/gdb/value.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/value.c 2011-02-27 21:57:15.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/value.c 2011-07-03 10:33:11.000000000 +0200
+@@ -43,6 +43,7 @@
+ #include "python/python.h"
+ #include <ctype.h>
+ #include "tracepoint.h"
++#include "observer.h"
+
+ /* Prototypes for exported functions. */
+
+@@ -1339,12 +1340,15 @@ void
+ set_value_component_location (struct value *component,
+ const struct value *whole)
+ {
++ CORE_ADDR addr;
+
-+ return sysinfo;
-+}
-+
-+int
-+xml_get_syscall_number (const struct syscalls_info *sysinfo,
-+ const char *syscall_name)
-+{
-+ struct syscall_desc *sysdesc;
-+ int i;
+ if (whole->lval == lval_internalvar)
+ VALUE_LVAL (component) = lval_internalvar_component;
+ else
+ VALUE_LVAL (component) = whole->lval;
+
+ component->location = whole->location;
+
-+ if (sysinfo == NULL
-+ || syscall_name == NULL)
-+ return UNKNOWN_SYSCALL;
+ if (whole->lval == lval_computed)
+ {
+ struct lval_funcs *funcs = whole->location.computed.funcs;
+@@ -1352,6 +1356,12 @@ set_value_component_location (struct val
+ if (funcs->copy_closure)
+ component->location.computed.closure = funcs->copy_closure (whole);
+ }
+
-+ for (i = 0;
-+ VEC_iterate(syscall_desc_p, sysinfo->syscalls, i, sysdesc);
-+ i++)
-+ if (strcmp (sysdesc->name, syscall_name) == 0)
-+ return sysdesc->number;
++ addr = value_raw_address (component);
++ object_address_get_data (value_type (whole), &addr);
++ if (component->lval != lval_internalvar
++ && component->lval != lval_internalvar_component)
++ set_value_address (component, addr);
+ }
+
+ \f
+@@ -1485,6 +1495,31 @@ show_values (char *num_exp, int from_tty
+ num_exp[1] = '\0';
+ }
+ }
+
-+ return UNKNOWN_SYSCALL;
-+}
++/* Sanity check for memory leaks and proper types reference counting. */
+
-+const char *
-+xml_get_syscall_name (const struct syscalls_info *sysinfo,
-+ int syscall_number)
++static void
++value_history_cleanup (void *unused)
+{
-+ struct syscall_desc *sysdesc;
-+ int i;
++ while (value_history_chain)
++ {
++ struct value_history_chunk *chunk = value_history_chain;
++ int i;
+
-+ if (sysinfo == NULL
-+ || syscall_number < 0)
-+ return NULL;
++ for (i = 0; i < ARRAY_SIZE (chunk->values); i++)
++ value_free (chunk->values[i]);
+
-+ for (i = 0;
-+ VEC_iterate(syscall_desc_p, sysinfo->syscalls, i, sysdesc);
-+ i++)
-+ if (sysdesc->number == syscall_number)
-+ return sysdesc->name;
++ value_history_chain = chunk->next;
++ xfree (chunk);
++ }
++ value_history_count = 0;
+
-+ return NULL;
++ /* Free the unreferenced types above. */
++ free_all_values ();
++#if 0
++ free_all_types ();
++#endif
+}
+ \f
+ /* Internal variables. These are variables within the debugger
+ that hold values assigned by debugger commands.
+@@ -1530,7 +1565,14 @@ struct internalvar
+ struct value *value;
+
+ /* The call-back routine used with INTERNALVAR_MAKE_VALUE. */
+- internalvar_make_value make_value;
++ struct
++ {
++ /* The functions to call. */
++ const struct internalvar_funcs *functions;
++
++ /* The function's user-data. */
++ void *data;
++ } make_value;
+
+ /* The internal function used with INTERNALVAR_FUNCTION. */
+ struct
+@@ -1629,18 +1671,39 @@ create_internalvar (const char *name)
+ /* Create an internal variable with name NAME and register FUN as the
+ function that value_of_internalvar uses to create a value whenever
+ this variable is referenced. NAME should not normally include a
+- dollar sign. */
++ dollar sign. DATA is passed uninterpreted to FUN when it is
++ called. CLEANUP, if not NULL, is called when the internal variable
++ is destroyed. It is passed DATA as its only argument. */
+
+ struct internalvar *
+-create_internalvar_type_lazy (char *name, internalvar_make_value fun)
++create_internalvar_type_lazy (const char *name,
++ const struct internalvar_funcs *funcs,
++ void *data)
+ {
+ struct internalvar *var = create_internalvar (name);
+
+ var->kind = INTERNALVAR_MAKE_VALUE;
+- var->u.make_value = fun;
++ var->u.make_value.functions = funcs;
++ var->u.make_value.data = data;
+ return var;
+ }
+
++/* See documentation in value.h. */
+
+int
-+xml_number_of_syscalls (const struct syscalls_info *sysinfo)
-+{
-+ return (sysinfo == NULL ? 0 : VEC_length(syscall_desc_p,
-+ sysinfo->syscalls));
-+}
-+
-+const char **
-+xml_list_of_syscalls (const struct syscalls_info *sysinfo)
++compile_internalvar_to_ax (struct internalvar *var,
++ struct agent_expr *expr,
++ struct axs_value *value)
+{
-+ struct syscall_desc *sysdesc;
-+ const char **names = NULL;
-+ int nsyscalls;
-+ int i;
-+
-+ if (sysinfo == NULL)
-+ return NULL;
-+
-+ nsyscalls = VEC_length (syscall_desc_p, sysinfo->syscalls);
-+ names = xmalloc ((nsyscalls + 1) * sizeof (char *));
-+
-+ for (i = 0;
-+ VEC_iterate (syscall_desc_p, sysinfo->syscalls, i, sysdesc);
-+ i++)
-+ names[i] = sysdesc->name;
-+
-+ names[i] = NULL;
++ if (var->kind != INTERNALVAR_MAKE_VALUE
++ || var->u.make_value.functions->compile_to_ax == NULL)
++ return 0;
+
-+ return names;
++ var->u.make_value.functions->compile_to_ax (var, expr, value,
++ var->u.make_value.data);
++ return 1;
+}
+
-+#endif /* HAVE_LIBEXPAT */
-diff --git a/gdb/xml-syscall.h b/gdb/xml-syscall.h
-new file mode 100644
-index 0000000..ff11f20
---- /dev/null
-+++ b/gdb/xml-syscall.h
-@@ -0,0 +1,64 @@
-+/* Functions that provide the mechanism to parse a syscall XML file
-+ and get its values.
-+
-+ Copyright (C) 1986, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
-+ 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2006, 2007, 2008
-+ Free Software Foundation, Inc.
+ /* Look up an internal variable with name NAME. NAME should not
+ normally include a dollar sign.
+
+@@ -1713,7 +1776,8 @@ value_of_internalvar (struct gdbarch *gd
+ break;
+
+ case INTERNALVAR_MAKE_VALUE:
+- val = (*var->u.make_value) (gdbarch, var);
++ val = (*var->u.make_value.functions->make_value) (gdbarch, var,
++ var->u.make_value.data);
+ break;
+
+ default:
+@@ -1909,6 +1973,11 @@ clear_internalvar (struct internalvar *v
+ xfree (var->u.string);
+ break;
+
++ case INTERNALVAR_MAKE_VALUE:
++ if (var->u.make_value.functions->destroy != NULL)
++ var->u.make_value.functions->destroy (var->u.make_value.data);
++ break;
+
-+ This file is part of GDB.
+ default:
+ break;
+ }
+@@ -1963,6 +2032,38 @@ call_internal_function (struct gdbarch *
+ return (*ifn->handler) (gdbarch, language, ifn->cookie, argc, argv);
+ }
+
++#if 0
++/* Call type_mark_used for any TYPEs referenced from this GDB source file. */
+
-+ 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.
++static void
++value_types_mark_used (void)
++{
++ struct internalvar *var;
++ struct value_history_chunk *chunk;
+
-+ 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.
++ for (var = internalvars; var != NULL; var = var->next)
++ switch (var->kind)
++ {
++ case INTERNALVAR_VALUE:
++ type_mark_used (value_type (var->u.value));
++ break;
+
-+ You should have received a copy of the GNU General Public License
-+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
++ case INTERNALVAR_INTEGER:
++ type_mark_used (var->u.integer.type);
++ break;
++ }
+
-+#ifndef XML_SYSCALL_H
-+#define XML_SYSCALL_H 1
++ for (chunk = value_history_chain; chunk != NULL; chunk = chunk->next)
++ {
++ int i;
+
-+/* Structure that stores information about the system's
-+ syscalls. */
++ for (i = 0; i < ARRAY_SIZE (chunk->values); i++)
++ if (chunk->values[i])
++ type_mark_used (value_type (chunk->values[i]));
++ }
++}
++#endif
+
-+struct syscalls_info;
+ /* The 'function' command. This does nothing -- it is just a
+ placeholder to let "help function NAME" work. This is also used as
+ the implementation of the sub-command that is created when
+@@ -2010,11 +2111,10 @@ preserve_one_value (struct value *value,
+ htab_t copied_types)
+ {
+ if (TYPE_OBJFILE (value->type) == objfile)
+- value->type = copy_type_recursive (objfile, value->type, copied_types);
++ value->type = copy_type_recursive (value->type, copied_types);
+
+ if (TYPE_OBJFILE (value->enclosing_type) == objfile)
+- value->enclosing_type = copy_type_recursive (objfile,
+- value->enclosing_type,
++ value->enclosing_type = copy_type_recursive (value->enclosing_type,
+ copied_types);
+ }
+
+@@ -2029,7 +2129,7 @@ preserve_one_internalvar (struct interna
+ case INTERNALVAR_INTEGER:
+ if (var->u.integer.type && TYPE_OBJFILE (var->u.integer.type) == objfile)
+ var->u.integer.type
+- = copy_type_recursive (objfile, var->u.integer.type, copied_types);
++ = copy_type_recursive (var->u.integer.type, copied_types);
+ break;
+
+ case INTERNALVAR_VALUE:
+@@ -2080,14 +2180,22 @@ show_convenience (char *ignore, int from
+ get_user_print_options (&opts);
+ for (var = internalvars; var; var = var->next)
+ {
++ volatile struct gdb_exception e;
+
+ if (!varseen)
+ {
+ varseen = 1;
+ }
+ printf_filtered (("$%s = "), var->name);
+- value_print (value_of_internalvar (gdbarch, var), gdb_stdout,
+- &opts);
+- printf_filtered (("\n"));
+
-+/* Function responsible for initializing the information
-+ about the syscalls. It reads the XML file and fills the
-+ struct syscalls_info with the values.
-+
-+ Returns the struct syscalls_info if the file is valid, NULL otherwise. */
++ TRY_CATCH (e, RETURN_MASK_ERROR)
++ {
++ value_print (value_of_internalvar (gdbarch, var), gdb_stdout,
++ &opts);
++ printf_filtered (("\n"));
++ }
++ if (e.reason < 0)
++ printf_filtered (_("<error: %s>\n"), e.message);
+ }
+ if (!varseen)
+ printf_unfiltered (_("No debugger convenience variables now defined.\n"
+@@ -3047,7 +3155,24 @@ value_from_history_ref (char *h, char **
+ struct value *
+ coerce_ref (struct value *arg)
+ {
+- struct type *value_type_arg_tmp = check_typedef (value_type (arg));
++ struct type *value_type_arg_tmp;
+
-+const struct syscalls_info *xml_init_syscalls_info (const char *);
++ if (TYPE_DYNAMIC (value_type (arg)))
++ {
++ struct cleanup *cleanups = make_cleanup (null_cleanup, NULL);
++ CORE_ADDR address;
+
-+/* Function that retrieves the syscall number corresponding to the given
-+ name.
++ value_type_arg_tmp = value_type (arg);
++ address = value_raw_address (arg);
++ value_type_arg_tmp = object_address_get_data (value_type_arg_tmp,
++ &address);
++ if (! value_type_arg_tmp)
++ error (_("Attempt to coerce non-valid value."));
++ arg = value_at_lazy (value_type_arg_tmp, address);
++ do_cleanups (cleanups);
++ }
++ else
++ value_type_arg_tmp = check_typedef (value_type (arg));
+
+ if (TYPE_CODE (value_type_arg_tmp) == TYPE_CODE_REF)
+ arg = value_at_lazy (TYPE_TARGET_TYPE (value_type_arg_tmp),
+@@ -3145,4 +3270,10 @@ VARIABLE is already initialized."));
+ add_prefix_cmd ("function", no_class, function_command, _("\
+ Placeholder command for showing help on convenience functions."),
+ &functionlist, "function ", 0, &cmdlist);
+
-+ Returns the syscall number if found, or otherwise. */
++ make_final_cleanup (value_history_cleanup, NULL);
+
-+int xml_get_syscall_number (const struct syscalls_info *, const char *);
++#if 0
++ observer_attach_mark_used (value_types_mark_used);
++#endif
+ }
+Index: gdb-7.2.90.20110703/gdb/value.h
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/value.h 2011-03-04 21:07:22.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/value.h 2011-07-03 10:33:11.000000000 +0200
+@@ -473,6 +473,10 @@ extern struct value *value_from_decfloat
+ const gdb_byte *decbytes);
+ extern struct value *value_from_history_ref (char *, char **);
+
++extern const char *object_address_data_not_valid (struct type *type);
++extern struct type *object_address_get_data (struct type *type,
++ CORE_ADDR *address_return);
+
-+/* Function that retrieves the syscall name corresponding to the given
-+ number.
+ extern struct value *value_at (struct type *type, CORE_ADDR addr);
+ extern struct value *value_at_lazy (struct type *type, CORE_ADDR addr);
+
+@@ -697,10 +701,52 @@ extern struct internalvar *lookup_only_i
+
+ extern struct internalvar *create_internalvar (const char *name);
+
+-typedef struct value * (*internalvar_make_value) (struct gdbarch *,
+- struct internalvar *);
++/* An internalvar can be dynamically computed by supplying a vector of
++ function pointers to perform various operations. */
+
-+ Returns the syscall name if found, NULL otherwise. */
-+const char *xml_get_syscall_name (const struct syscalls_info *, int);
++struct internalvar_funcs
++{
++ /* Compute the value of the variable. The DATA argument passed to
++ the function is the same argument that was passed to
++ `create_internalvar_type_lazy'. */
+
-+/* Function that returns the number of syscalls defined in the system.
++ struct value *(*make_value) (struct gdbarch *arch,
++ struct internalvar *var,
++ void *data);
+
-+ Returns the number of syscalls, or zero otherwise. */
-+int xml_number_of_syscalls (const struct syscalls_info *);
++ /* Update the agent expression EXPR with bytecode to compute the
++ value. VALUE is the agent value we are updating. The DATA
++ argument passed to this function is the same argument that was
++ passed to `create_internalvar_type_lazy'. If this pointer is
++ NULL, then the internalvar cannot be compiled to an agent
++ expression. */
+
-+/* Function used to retrieve the list of syscalls in the system. This list
-+ is returned as an array of strings.
++ void (*compile_to_ax) (struct internalvar *var,
++ struct agent_expr *expr,
++ struct axs_value *value,
++ void *data);
+
-+ Returns the list of syscalls in the system, or NULL otherwise. */
-+const char **xml_list_of_syscalls (const struct syscalls_info *sysinfo);
++ /* If non-NULL, this is called to destroy DATA. The DATA argument
++ passed to this function is the same argument that was passed to
++ `create_internalvar_type_lazy'. */
+
-+#endif /* XML_SYSCALL_H */
-diff --git a/opcodes/ppc-opc.c b/opcodes/ppc-opc.c
-index c872db5..5e70395 100644
---- a/opcodes/ppc-opc.c
-+++ b/opcodes/ppc-opc.c
-@@ -4560,8 +4560,8 @@ const struct powerpc_opcode powerpc_opcodes[] = {
-
- {"lhbrx", X(31,790), X_MASK, COM, PPCNONE, {RT, RA0, RB}},
-
--{"lfqx", X(31,791), X_MASK, POWER2, PPCNONE, {FRT, RA, RB}},
- {"lfdpx", X(31,791), X_MASK, POWER6, POWER7, {FRT, RA, RB}},
-+{"lfqx", X(31,791), X_MASK, POWER2, PPCNONE, {FRT, RA, RB}},
-
- {"sraw", XRC(31,792,0), X_MASK, PPCCOM, PPCNONE, {RA, RS, RB}},
- {"sra", XRC(31,792,0), X_MASK, PWRCOM, PPCNONE, {RA, RS, RB}},
-@@ -4638,8 +4638,8 @@ const struct powerpc_opcode powerpc_opcodes[] = {
-
- {"sthbrx", X(31,918), X_MASK, COM, PPCNONE, {RS, RA0, RB}},
-
--{"stfqx", X(31,919), X_MASK, POWER2, PPCNONE, {FRS, RA, RB}},
- {"stfdpx", X(31,919), X_MASK, POWER6, PPCNONE, {FRS, RA, RB}},
-+{"stfqx", X(31,919), X_MASK, POWER2, PPCNONE, {FRS, RA, RB}},
-
- {"sraq", XRC(31,920,0), X_MASK, M601, PPCNONE, {RA, RS, RB}},
- {"sraq.", XRC(31,920,1), X_MASK, M601, PPCNONE, {RA, RS, RB}},
-@@ -4801,12 +4801,12 @@ const struct powerpc_opcode powerpc_opcodes[] = {
-
- {"psq_l", OP(56), OP_MASK, PPCPS, PPCNONE, {FRT,PSD,RA,PSW,PSQ}},
-
-+{"lfdp", OP(57), OP_MASK, POWER6, POWER7, {FRT, D, RA0}},
++ void (*destroy) (void *data);
++};
+
- {"lfqu", OP(57), OP_MASK, POWER2, PPCNONE, {FRT, D, RA0}},
-
- {"psq_lu", OP(57), OP_MASK, PPCPS, PPCNONE, {FRT,PSD,RA,PSW,PSQ}},
-
--{"lfdp", OP(57), OP_MASK, POWER6, POWER7, {FRT, D, RA0}},
--
- {"ld", DSO(58,0), DS_MASK, PPC64, PPCNONE, {RT, DS, RA0}},
- {"ldu", DSO(58,1), DS_MASK, PPC64, PPCNONE, {RT, DS, RAL}},
- {"lwa", DSO(58,2), DS_MASK, PPC64, PPCNONE, {RT, DS, RA0}},
-@@ -4921,10 +4921,6 @@ const struct powerpc_opcode powerpc_opcodes[] = {
- {"fcfidus", XRC(59,974,0), XRA_MASK, POWER7, PPCNONE, {FRT, FRB}},
- {"fcfidus.", XRC(59,974,1), XRA_MASK, POWER7, PPCNONE, {FRT, FRB}},
-
--{"stfq", OP(60), OP_MASK, POWER2, PPCNONE, {FRS, D, RA}},
--
--{"psq_st", OP(60), OP_MASK, PPCPS, PPCNONE, {FRS,PSD,RA,PSW,PSQ}},
--
- {"xxsldwi", XX3(60,2), XX3SHW_MASK, PPCVSX, PPCNONE, {XT6, XA6, XB6, SHW}},
- {"xxsel", XX4(60,3), XX4_MASK, PPCVSX, PPCNONE, {XT6, XA6, XB6, XC6}},
- {"xxspltd", XX3(60,10), XX3DM_MASK, PPCVSX, PPCNONE, {XT6, XA6, XB6S, DMEX}},
-@@ -5067,12 +5063,16 @@ const struct powerpc_opcode powerpc_opcodes[] = {
- {"xvcvsxddp", XX2(60,504), XX2_MASK, PPCVSX, PPCNONE, {XT6, XB6}},
- {"xvnegdp", XX2(60,505), XX2_MASK, PPCVSX, PPCNONE, {XT6, XB6}},
-
--{"psq_stu", OP(61), OP_MASK, PPCPS, PPCNONE, {FRS,PSD,RA,PSW,PSQ}},
-+{"stfq", OP(60), OP_MASK, POWER2, PPCNONE, {FRS, D, RA}},
-
--{"stfqu", OP(61), OP_MASK, POWER2, PPCNONE, {FRS, D, RA}},
-+{"psq_st", OP(60), OP_MASK, PPCPS, PPCNONE, {FRS,PSD,RA,PSW,PSQ}},
+ extern struct internalvar *
+- create_internalvar_type_lazy (char *name, internalvar_make_value fun);
++create_internalvar_type_lazy (const char *name,
++ const struct internalvar_funcs *funcs,
++ void *data);
++
++/* Compile an internal variable to an agent expression. VAR is the
++ variable to compile; EXPR and VALUE are the agent expression we are
++ updating. This will return 0 if there is no known way to compile
++ VAR, and 1 if VAR was successfully compiled. It may also throw an
++ exception on error. */
++
++extern int compile_internalvar_to_ax (struct internalvar *var,
++ struct agent_expr *expr,
++ struct axs_value *value);
+
+ extern struct internalvar *lookup_internalvar (const char *name);
+
+Index: gdb-7.2.90.20110703/gdb/windows-tdep.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/windows-tdep.c 2011-01-12 02:23:29.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/windows-tdep.c 2011-07-03 10:33:11.000000000 +0200
+@@ -268,7 +268,7 @@ static struct lval_funcs tlb_value_funcs
+ if there's no object available. */
- {"stfdp", OP(61), OP_MASK, POWER6, PPCNONE, {FRT, D, RA0}},
+ static struct value *
+-tlb_make_value (struct gdbarch *gdbarch, struct internalvar *var)
++tlb_make_value (struct gdbarch *gdbarch, struct internalvar *var, void *ignore)
+ {
+ if (target_has_stack && !ptid_equal (inferior_ptid, null_ptid))
+ {
+@@ -425,6 +425,15 @@ init_w32_command_list (void)
+ }
+ }
-+{"stfqu", OP(61), OP_MASK, POWER2, PPCNONE, {FRS, D, RA}},
++/* Implementation of `tlb' variable. */
+
-+{"psq_stu", OP(61), OP_MASK, PPCPS, PPCNONE, {FRS,PSD,RA,PSW,PSQ}},
++static const struct internalvar_funcs tlb_funcs =
++{
++ tlb_make_value,
++ NULL,
++ NULL
++};
+
- {"std", DSO(62,0), DS_MASK, PPC64, PPCNONE, {RS, DS, RA0}},
- {"stdu", DSO(62,1), DS_MASK, PPC64, PPCNONE, {RS, DS, RAS}},
- {"stq", DSO(62,2), DS_MASK, POWER4, PPCNONE, {RSQ, DS, RA0}},
+ void
+ _initialize_windows_tdep (void)
+ {
+@@ -451,5 +460,5 @@ even if their meaning is unknown."),
+ value with a void typed value, and when we get here, gdbarch
+ isn't initialized yet. At this point, we're quite sure there
+ isn't another convenience variable of the same name. */
+- create_internalvar_type_lazy ("_tlb", tlb_make_value);
++ create_internalvar_type_lazy ("_tlb", &tlb_funcs, NULL);
+ }
+Index: gdb-7.2.90.20110703/gdb/xcoffread.c
+===================================================================
+--- gdb-7.2.90.20110703.orig/gdb/xcoffread.c 2011-03-07 17:17:29.000000000 +0100
++++ gdb-7.2.90.20110703/gdb/xcoffread.c 2011-07-03 10:33:11.000000000 +0200
+@@ -3090,6 +3090,7 @@ static const struct sym_fns xcoff_sym_fn
+ default_symfile_segments, /* Get segment information from a file. */
+ aix_process_linenos,
+ default_symfile_relocate, /* Relocate a debug section. */
++ NULL, /* sym_probe_fns */
+ &psym_functions
+ };
+