From: Patrick Monnerat <patrick@monnerat.net>
Date: Mon, 5 Mar 2018 02:46:29 +0000 (+0100)
Subject: Change set/show remotebaud commands to set/show serial baud.
X-Git-Url: https://sourceware.org/git/?a=commitdiff_plain;h=a2b5b983039ceee36a317f9f33f8477da1a0fe82;p=insight.git

Change set/show remotebaud commands to set/show serial baud.

The "remotebaud" subcommands have been removed from gdb and replaced by
"serial baud".

* gdbtk/library/interface.tcl (proc_set_baud): Use "set serial baud".
* gdbtk/library/targetselection.itb (TargetSelection::build_win): Use
  "show serial baud".
  (TargetSelection::change_baud): Use "set serial baud" and "show serial baud".
  (TargetSelection::cancel): Use "set serial baud".
---

diff --git a/gdbtk/library/interface.tcl b/gdbtk/library/interface.tcl
index 3272fc2..74f1bc3 100644
--- a/gdbtk/library/interface.tcl
+++ b/gdbtk/library/interface.tcl
@@ -1,5 +1,5 @@
 # Interface between GDB and Insight.
-# Copyright (C) 1997-2017 Red Hat, Inc.
+# Copyright (C) 1997-2018 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
@@ -1626,7 +1626,7 @@ proc set_baud {} {
     set baud [pref get gdb/load/baud]
   }
 #  debug "setting baud to $baud"
-  catch {gdb_cmd "set remotebaud $baud"}
+  catch {gdb_cmd "set serial baud $baud"}
 }
 
 # ------------------------------------------------------------------
diff --git a/gdbtk/library/targetselection.itb b/gdbtk/library/targetselection.itb
index 3cbecdd..349af6b 100644
--- a/gdbtk/library/targetselection.itb
+++ b/gdbtk/library/targetselection.itb
@@ -1,5 +1,5 @@
 # Target selection dialog for Insight.
-# Copyright (C) 1997-2015 Red Hat, Inc.
+# Copyright (C) 1997-2018 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
@@ -415,7 +415,7 @@ itcl::body TargetSelection::build_win {} {
     -textvariable [pref varname gdb/load/$target-baud] -width $Width \
     -maxheight 10 -bg $::Colors(textbg)
 
-  if {[catch {gdb_cmd "show remotebaud"} res]} {
+  if {[catch {gdb_cmd "show serial baud"} res]} {
     set baud [pref get gdb/load/$target-baud]
   } else {
     set baud [lindex $res end]
@@ -870,8 +870,8 @@ itcl::body TargetSelection::change_baud {w {baud ""}} {
   if {$baud != ""} {
     if {([string compare $baud "TCP"] != 0)
         && ([string compare $baud "ETH"] != 0)} {
-      gdb_cmd "set remotebaud $baud"
-      if {[catch {gdb_cmd "show remotebaud"} res]} {
+      gdb_cmd "set serial baud $baud"
+      if {[catch {gdb_cmd "show serial baud"} res]} {
 	set newbaud 0
       } else {
 	set newbaud [lindex $res end]
@@ -976,7 +976,7 @@ itcl::body TargetSelection::save {} {
 # ------------------------------------------------------------------
 itcl::body TargetSelection::cancel {} {
   global gdb_target_name
-  catch {gdb_cmd "set remotebaud $saved_baud"}
+  catch {gdb_cmd "set serial baud $saved_baud"}
 
   $fr.cb configure -value $saved_baud
   write_saved