Add new system-gdbinit infrastructure
authorJoel Brobecker <brobecker@gnat.com>
Tue, 21 May 2013 06:50:12 +0000 (06:50 +0000)
committerJoel Brobecker <brobecker@gnat.com>
Tue, 21 May 2013 06:50:12 +0000 (06:50 +0000)
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
gdb/data-directory/Makefile.in
gdb/system-gdbinit/elinos.py [new file with mode: 0644]
gdb/system-gdbinit/wrs-linux.py [new file with mode: 0644]

index c48f7e7d50bc4b6544c4dee886d17dca2f56d8db..ece0942452e58af415333d8061513be3311ee4ff 100644 (file)
@@ -1,3 +1,20 @@
+2013-05-21  Joel Brobecker  <brobecker@adacore.com>
+
+       * 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  <brobecker@adacore.com>
 
        * ada-lang.c (old_renaming_is_invisible): Fix cleanup leak.
index 13433edaad9cacef8dc497442229ae4832946d87..dec62077f270603767fe00e1d245e0987f260dac 100644 (file)
@@ -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 (file)
index 0000000..08c5b0f
--- /dev/null
@@ -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 <http://www.gnu.org/licenses/>.
+
+"""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 (file)
index 0000000..5571e66
--- /dev/null
@@ -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 <http://www.gnu.org/licenses/>.
+
+"""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"
This page took 0.04531 seconds and 4 git commands to generate.