2002-05-06 Martin M. Hunt <hunt@redhat.com>

	* library/session.tcl (notice_file_change): Catch the
	directory change, in case the directory no longer exists.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index afe3716..70c4a33 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-06  Martin M. Hunt  <hunt@redhat.com>
+
+       * library/session.tcl (notice_file_change): Catch the
+       directory change, in case the directory no longer exists.
+
 2002-05-05  Alexandre Oliva  <aoliva@redhat.com>
 
        * generic/gdbtk-register.c (get_register, register_changed_p):

diff --git a/gdb/gdbtk/library/session.tcl b/gdb/gdbtk/library/session.tcl
index 1f9c371..531c7d7 100644 (file)
--- a/gdb/gdbtk/library/session.tcl
+++ b/gdb/gdbtk/library/session.tcl
@@ -244,7 +244,7 @@ namespace eval Session {
     }
 
     if {[info exists values(pwd)]} {
-      gdb_cmd "cd $values(pwd)"
+      catch {gdb_cmd "cd $values(pwd)"}
     }
 
     if {[info exists values(args)]} {