* generic/gdbtk.c (gdbtk_init): Make sure we're working with

	absolute pathnames in the *_LIBRAY variables.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index bdd42e8..89e9cb3 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,5 +1,10 @@
 2001-08-16  Keith Seitz  <keiths@redhat.com>
 
+       * generic/gdbtk.c (gdbtk_init): Make sure we're working with
+       absolute pathnames in the *_LIBRAY variables.
+
+2001-08-16  Keith Seitz  <keiths@redhat.com>
+
        From Ian Roxborough  <irox@redhat.com>
        * generic/gdbtk-hooks.c (x_event): Deal with Tcl API insanity
        for Tcl_ObjGetVar2 or Tcl_GetObjVar2.

diff --git a/gdb/gdbtk/generic/gdbtk.c b/gdb/gdbtk/generic/gdbtk.c
index 1e70cc0..11ef135 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk.c
+++ b/gdb/gdbtk/generic/gdbtk.c
@@ -410,6 +410,10 @@ gdbtk_init (argv0)
 
       static char set_libs_path_script[] = "\
          set srcDir [file dirname [file dirname $env(TCL_LIBRARY)]];\n\
+          set cwd [pwd]\n\
+          cd $srcDir\n\
+          set srcDir [pwd]\n\
+          cd $cwd\n\
 \
          if {![info exists env(TCL_LIBRARY)]} {\n\
              set env(TCL_LIBRARY) [file join $srcDir tcl library]\n\