From 3857391f3fcd2a359478e3abe08ad5ec4ed602ad Mon Sep 17 00:00:00 2001 From: Keith Seitz Date: Thu, 16 Aug 2001 17:38:18 +0000 Subject: [PATCH] * generic/gdbtk.c (gdbtk_init): Make sure we're working with absolute pathnames in the *_LIBRAY variables. --- gdb/gdbtk/ChangeLog | 5 +++++ gdb/gdbtk/generic/gdbtk.c | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index bdd42e8656..89e9cb32bc 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,5 +1,10 @@ 2001-08-16 Keith Seitz + * generic/gdbtk.c (gdbtk_init): Make sure we're working with + absolute pathnames in the *_LIBRAY variables. + +2001-08-16 Keith Seitz + From Ian Roxborough * 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 1e70cc0951..11ef135b2d 100644 --- 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\ -- 2.11.0