From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 21300 invoked by alias); 21 May 2013 06:55:19 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Received: (qmail 21288 invoked by uid 89); 21 May 2013 06:55:18 -0000 X-Spam-SWARE-Status: No, score=-2.0 required=5.0 tests=AWL,BAYES_00,RCVD_IN_HOSTKARMA_NO autolearn=ham version=3.3.1 Received: from rock.gnat.com (HELO rock.gnat.com) (205.232.38.15) by sourceware.org (qpsmtpd/0.84/v0.84-167-ge50287c) with ESMTP; Tue, 21 May 2013 06:55:16 +0000 Received: from localhost (localhost.localdomain [127.0.0.1]) by filtered-rock.gnat.com (Postfix) with ESMTP id 51A7F2EEFA for ; Tue, 21 May 2013 02:55:14 -0400 (EDT) Received: from rock.gnat.com ([127.0.0.1]) by localhost (rock.gnat.com [127.0.0.1]) (amavisd-new, port 10024) with LMTP id bS6R1C7HcTeh for ; Tue, 21 May 2013 02:55:14 -0400 (EDT) Received: from joel.gnat.com (localhost.localdomain [127.0.0.1]) by rock.gnat.com (Postfix) with ESMTP id BAFCA2ECEF for ; Tue, 21 May 2013 02:55:13 -0400 (EDT) Received: by joel.gnat.com (Postfix, from userid 1000) id 05BB1C376B; Tue, 21 May 2013 10:55:05 +0400 (RET) Date: Tue, 21 May 2013 06:55:00 -0000 From: Joel Brobecker To: gdb-patches@sourceware.org Subject: Checked in: [RFC] Add system-gdbinit infrastructure Message-ID: <20130521065505.GW4017@adacore.com> References: <1355846036-7645-1-git-send-email-brobecker@adacore.com> <20130510123542.GJ9160@adacore.com> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="Dzs2zDY0zgkG72+7" Content-Disposition: inline In-Reply-To: <20130510123542.GJ9160@adacore.com> User-Agent: Mutt/1.5.21 (2010-09-15) X-Virus-Found: No X-SW-Source: 2013-05/txt/msg00757.txt.bz2 --Dzs2zDY0zgkG72+7 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Content-length: 1112 > > gdb/ChangeLog: > > > > * data-directory/Makefile.in (SYSTEM_GDBINIT_SRCDIR): New > > variable. > > (VPATH): Add SYSTEM_GDBINIT_SRCDIR. > > (SYSTEM_GDBINIT_DIR, SYSTEM_GDBINIT_INSTALL_DIR) > > (SYSTEM_GDBINIT_FILES): New variables. > > (all): Add stamp-system-gdbinit. > > (stamp-system-gdbinit): New rule. > > (clean-system-gdbinit, install-system-gdbinit) > > (uninstall-system-gdbinit): New rules. Make them .PHONY. > > (install-only): Add dependency on install-system-gdbinit. > > (uninstall): Add dependency on uninstall-system-gdbinit. > > (clean): Add dependency on clean-system-gdbinit. > > * system-gdbinit/elinos.py: New file. > > * system-gdbinit/wrs-linux.py: New file. [...] > I asked about this quite a while ago, and there were some questions, > but no objections. I am planning on letting this sit a few more > day, and then rebase, cleanup if necessary, and commit. FYI, attached is the patch I just checked in. I am working on documention as I write this... Thanks, -- Joel --Dzs2zDY0zgkG72+7 Content-Type: text/x-diff; charset=us-ascii Content-Disposition: attachment; filename="0001-Add-new-system-gdbinit-infrastructure.patch" Content-length: 9720 >From 3b4bbdd06eb1dd35bedfd4db1f31810b58d7f2de Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Thu, 8 Dec 2011 10:44:10 -0500 Subject: [PATCH] Add new system-gdbinit infrastructure gdb/ChangeLog: * data-directory/Makefile.in (SYSTEM_GDBINIT_SRCDIR): New variable. (VPATH): Add SYSTEM_GDBINIT_SRCDIR. (SYSTEM_GDBINIT_DIR, SYSTEM_GDBINIT_INSTALL_DIR) (SYSTEM_GDBINIT_FILES): New variables. (all): Add stamp-system-gdbinit. (stamp-system-gdbinit): New rule. (clean-system-gdbinit, install-system-gdbinit) (uninstall-system-gdbinit): New rules. Make them .PHONY. (install-only): Add dependency on install-system-gdbinit. (uninstall): Add dependency on uninstall-system-gdbinit. (clean): Add dependency on clean-system-gdbinit. * system-gdbinit/elinos.py: New file. * system-gdbinit/wrs-linux.py: New file. --- gdb/ChangeLog | 17 +++++++++ gdb/data-directory/Makefile.in | 58 +++++++++++++++++++++++++--- gdb/system-gdbinit/elinos.py | 79 +++++++++++++++++++++++++++++++++++++++ gdb/system-gdbinit/wrs-linux.py | 25 +++++++++++++ 4 files changed, 174 insertions(+), 5 deletions(-) create mode 100644 gdb/system-gdbinit/elinos.py create mode 100644 gdb/system-gdbinit/wrs-linux.py diff --git a/gdb/ChangeLog b/gdb/ChangeLog index c48f7e7..ece0942 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,22 @@ 2013-05-21 Joel Brobecker + * data-directory/Makefile.in (SYSTEM_GDBINIT_SRCDIR): New + variable. + (VPATH): Add SYSTEM_GDBINIT_SRCDIR. + (SYSTEM_GDBINIT_DIR, SYSTEM_GDBINIT_INSTALL_DIR) + (SYSTEM_GDBINIT_FILES): New variables. + (all): Add stamp-system-gdbinit. + (stamp-system-gdbinit): New rule. + (clean-system-gdbinit, install-system-gdbinit) + (uninstall-system-gdbinit): New rules. Make them .PHONY. + (install-only): Add dependency on install-system-gdbinit. + (uninstall): Add dependency on uninstall-system-gdbinit. + (clean): Add dependency on clean-system-gdbinit. + * system-gdbinit/elinos.py: New file. + * system-gdbinit/wrs-linux.py: New file. + +2013-05-21 Joel Brobecker + * ada-lang.c (old_renaming_is_invisible): Fix cleanup leak. 2013-05-21 Hui Zhu diff --git a/gdb/data-directory/Makefile.in b/gdb/data-directory/Makefile.in index 13433ed..dec6207 100644 --- a/gdb/data-directory/Makefile.in +++ b/gdb/data-directory/Makefile.in @@ -19,7 +19,8 @@ srcdir = @srcdir@ SYSCALLS_SRCDIR = $(srcdir)/../syscalls PYTHON_SRCDIR = $(srcdir)/../python/lib -VPATH = $(srcdir):$(SYSCALLS_SRCDIR):$(PYTHON_SRCDIR) +SYSTEM_GDBINIT_SRCDIR = $(srcdir)/../system-gdbinit +VPATH = $(srcdir):$(SYSCALLS_SRCDIR):$(PYTHON_SRCDIR):$(SYSTEM_GDBINIT_SRCDIR) top_srcdir = @top_srcdir@ top_builddir = @top_builddir@ @@ -68,6 +69,12 @@ PYTHON_FILES = \ gdb/function/__init__.py \ gdb/function/strfns.py +SYSTEM_GDBINIT_DIR = system-gdbinit +SYSTEM_GDBINIT_INSTALL_DIR = $(DESTDIR)$(GDB_DATADIR)/$(SYSTEM_GDBINIT_DIR) +SYSTEM_GDBINIT_FILES = \ + elinos.py \ + wrs-linux.py + FLAGS_TO_PASS = \ "prefix=$(prefix)" \ "exec_prefix=$(exec_prefix)" \ @@ -101,7 +108,7 @@ FLAGS_TO_PASS = \ "RUNTESTFLAGS=$(RUNTESTFLAGS)" .PHONY: all -all: stamp-syscalls stamp-python +all: stamp-syscalls stamp-python stamp-system-gdbinit # For portability's sake, we need to handle systems that don't have # symbolic links. @@ -185,6 +192,47 @@ uninstall-python: done \ done +stamp-system-gdbinit: Makefile $(SYSTEM_GDBINIT_FILES) + rm -rf ./$(SYSTEM_GDBINIT_DIR) + mkdir ./$(SYSTEM_GDBINIT_DIR) + files='$(SYSTEM_GDBINIT_FILES)' ; \ + for file in $$files ; do \ + f=$(SYSTEM_GDBINIT_SRCDIR)/$$file ; \ + if test -f $$f ; then \ + $(INSTALL_DATA) $$f ./$(SYSTEM_GDBINIT_DIR) ; \ + fi ; \ + done + touch $@ + +.PHONY: clean-system-gdbinit +clean-system-gdbinit: + rm -rf $(SYSTEM_GDBINIT_DIR) + rm -f stamp-system-gdbinit + +.PHONY: install-system-gdbinit +install-system-gdbinit: + $(INSTALL_DIR) $(SYSTEM_GDBINIT_INSTALL_DIR) + files='$(SYSTEM_GDBINIT_FILES)' ; \ + for file in $$files; do \ + f=$(SYSTEM_GDBINIT_SRCDIR)/$$file ; \ + if test -f $$f ; then \ + $(INSTALL_DATA) $$f $(SYSTEM_GDBINIT_INSTALL_DIR) ; \ + fi ; \ + done + +.PHONY: uninstall-system-gdbinit +uninstall-system-gdbinit: + files='$(SYSTEM_GDBINIT_FILES)' ; \ + for file in $$files ; do \ + slashdir=`echo "/$$file" | sed 's,/[^/]*$$,,'` ; \ + rm -f $(SYSTEM_GDBINIT_INSTALL_DIR)/$$file ; \ + while test "x$$file" != "x$$slashdir" ; do \ + rmdir 2>/dev/null "$(SYSTEM_GDBINIT_INSTALL_DIR)$$slashdir" ; \ + file="$$slashdir" ; \ + slashdir=`echo "$$file" | sed 's,/[^/]*$$,,'` ; \ + done \ + done + # Traditionally "install" depends on "all". But it may be useful # not to; for example, if the user has made some trivial change to a # source file and doesn't care about rebuilding or just wants to save the @@ -195,13 +243,13 @@ install: all @$(MAKE) $(FLAGS_TO_PASS) install-only .PHONY: install-only -install-only: install-syscalls install-python +install-only: install-syscalls install-python install-system-gdbinit .PHONY: uninstall -uninstall: uninstall-syscalls uninstall-python +uninstall: uninstall-syscalls uninstall-python uninstall-system-gdbinit .PHONY: clean -clean: clean-syscalls clean-python +clean: clean-syscalls clean-python clean-system-gdbinit .PHONY: maintainer-clean realclean distclean maintainer-clean realclean distclean: clean diff --git a/gdb/system-gdbinit/elinos.py b/gdb/system-gdbinit/elinos.py new file mode 100644 index 0000000..08c5b0f --- /dev/null +++ b/gdb/system-gdbinit/elinos.py @@ -0,0 +1,79 @@ +# Copyright (C) 2011-2013 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 . + +"""Configure GDB using the ELinOS environment.""" + +import os +import glob +import gdb + + +def warn(msg): + print "warning: %s" % msg + + +def get_elinos_environment(): + """Return the ELinOS environment. + + If the ELinOS environment is properly set up, return a dictionary + which contains: + * The path to the ELinOS project at key 'project'; + * The path to the ELinOS CDK at key 'cdk'; + * The ELinOS target name at key 'target' (Eg. 'i486-linux'); + * A list of Xenomai install prefixes (which could be empty, if + the ELinOS project does not include Xenomai) at key 'xenomai'. + + If one of these cannot be found, it is then assumed that the ELinOS + environment is not properly set up. Return None in such a case, + and print a warning. + """ + result = {} + for key in ("project", "cdk", "target"): + var = "ELINOS_" + key.upper() + if var in os.environ: + result[key] = os.environ[var] + else: + warn("%s not set" % var) + return None + + result["xenomai"] = glob.glob(result["project"] + "/xenomai-[0-9.]*") + return result + + +def elinos_init(): + """Initialize debugger environment for ELinOS. + + Let the debugger know where to find the ELinOS libraries on host. This + assumes that an ELinOS environment is properly set up. If not, abort + with a warning. + """ + elinos_env = get_elinos_environment() + + if elinos_env is None: + warn("ELinOS system libraries will not be loaded") + else: + solib_prefix = "%s/%s" % (elinos_env["cdk"], elinos_env["target"]) + + solib_dirs = [] + for dir in elinos_env['xenomai']: + solib_dirs += ["%s/%s" % (dir, "xenomai-build/usr/realtime/lib")] + solib_dirs += ["%s/%s" % (solib_prefix, "lib")] + + gdb.execute("set solib-absolute-prefix %s" % solib_prefix) + gdb.execute("set solib-search-path %s" % ":".join(solib_dirs)) + + +if __name__ == "__main__": + elinos_init() diff --git a/gdb/system-gdbinit/wrs-linux.py b/gdb/system-gdbinit/wrs-linux.py new file mode 100644 index 0000000..5571e66 --- /dev/null +++ b/gdb/system-gdbinit/wrs-linux.py @@ -0,0 +1,25 @@ +# Copyright (C) 2011-2013 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 . + +"""Configure GDB using the WRS/Linux environment.""" + +import os + +if 'ENV_PREFIX' in os.environ: + gdb.execute('set sysroot %s' % os.environ['ENV_PREFIX']) + +else: + print "warning: ENV_PREFIX environment variable missing." + print "The debugger will probably be unable to find the correct system libraries" -- 1.7.10.4 --Dzs2zDY0zgkG72+7--