* library/interface.tcl (set_target_name): Call "pref getd"

	instead of "pref get" to avoid undefined preference error
	message for default-hostname.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 47ce9b9..bb83e61 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,9 @@
+2001-12-10  Ian Roxborough  <irox@redhat.com>
+
+       * library/interface.tcl (set_target_name): Call "pref getd"
+       instead of "pref get" to avoid undefined preference error
+       message for default-hostname.
+
 2001-12-07  Keith Seitz  <keiths@redhat.com>
 
        * library/managedwin.itb (shutdown): Don't save geometry for

diff --git a/gdb/gdbtk/library/interface.tcl b/gdb/gdbtk/library/interface.tcl
index 92845ac..a69e532 100644 (file)
--- a/gdb/gdbtk/library/interface.tcl
+++ b/gdb/gdbtk/library/interface.tcl
@@ -1039,7 +1039,7 @@ proc set_target_name {{prompt 1}} {
       }
       set hostname [pref getd gdb/load/$target-hostname]
       if {$hostname == ""} {
-       set hostname [pref get gdb/load/default-hostname]
+       set hostname [pref getd gdb/load/default-hostname]
       }
       # replace "com1" with the real port name
       set targ [lrep $targ "com1" $port]