From 59547cbb667c7bca81d51b593bff6d89238d4aee Mon Sep 17 00:00:00 2001 From: hunt Date: Fri, 2 Jul 2004 23:09:31 +0000 Subject: [PATCH] 2004-07-02 Martin Hunt * library/targetselection.itb: Use /dev/comX for cygwin instead of just comX. * library/interface.tcl (gdbtk_tcl_preloop): Set baud rate. --- gdb/gdbtk/ChangeLog | 7 +++++++ gdb/gdbtk/library/interface.tcl | 1 + gdb/gdbtk/library/targetselection.itb | 6 +++--- 3 files changed, 11 insertions(+), 3 deletions(-) diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index 4b8780cb4f..378b1899c6 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,5 +1,12 @@ 2004-07-02 Martin Hunt + * 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 + * 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 cca6f37757..3b769dd8e3 100644 --- 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 959b51a7a6..898992cd12 100644 --- 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 -- 2.11.0