2004-07-02 Martin Hunt <hunt@redhat.com>

	* library/targetselection.itb: Use /dev/comX for
	cygwin instead of just comX.

	* library/interface.tcl (gdbtk_tcl_preloop): Set baud rate.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 4b8780c..378b189 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,5 +1,12 @@
 2004-07-02  Martin Hunt  <hunt@redhat.com>
 
+       * library/targetselection.itb: Use /dev/comX for
+       cygwin instead of just comX.
+
+       * library/interface.tcl (gdbtk_tcl_preloop): Set baud rate.
+
+2004-07-02  Martin Hunt  <hunt@redhat.com>
+       
        * generic/gdbtk-cmds.c (symtab_to_filename): New function. Like
        symtab_to_fullname() but returns the filename if the fullname 
        cannot be found.

diff --git a/gdb/gdbtk/library/interface.tcl b/gdb/gdbtk/library/interface.tcl
index cca6f37..3b769dd 100644 (file)
--- a/gdb/gdbtk/library/interface.tcl
+++ b/gdb/gdbtk/library/interface.tcl
@@ -119,6 +119,7 @@ proc gdbtk_tcl_preloop { } {
     set current_args [gdb_get_inferior_args]
     set current_dir $gdb_current_directory
     Session::notice_file_change
+    set_baud
     if {[string length $current_args] > 0} {
       gdb_set_inferior_args $current_args
       gdb_cmd "cd $current_dir"

diff --git a/gdb/gdbtk/library/targetselection.itb b/gdb/gdbtk/library/targetselection.itb
index 959b51a..898992c 100644 (file)
--- a/gdb/gdbtk/library/targetselection.itb
+++ b/gdb/gdbtk/library/targetselection.itb
@@ -1,5 +1,5 @@
 # Target selection dialog for Insight.
-# Copyright 1997, 1998, 1999, 2000, 2001, 2002, 2003 Red Hat, Inc.
+# Copyright 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 Red Hat, Inc.
 #
 # This program is free software; you can redistribute it and/or modify it
 # under the terms of the GNU General Public License (GPL) as published by
@@ -881,7 +881,7 @@ itcl::body TargetSelection::port_list {} {
       # Failed.  Find out why.
       if {[string first "permission denied" $msg] != -1} {
        # Port is there, but busy right now. That's OK.
-       lappend plist com$i
+       lappend plist /dev/com$i
       } elseif {$i > 4} {
        # if we've scanned the first 4 ports, then quit when we find no more 
        set quit 1
@@ -889,7 +889,7 @@ itcl::body TargetSelection::port_list {} {
     } else {
       # We got it.  Now close it and add to list.
       close $fd
-      lappend plist com$i
+      lappend plist /dev/com$i
     }
   }
   return $plist