Blame SOURCES/gdb-rhbz202487-rework-set-debuginfod.patch

a1b30c
From FEDORA_PATCHES Mon Sep 17 00:00:00 2001
a1b30c
From: =?UTF-8?q?Alexandra=20H=C3=A1jkov=C3=A1?= <ahajkova@redhat.com>
a1b30c
Date: Tue, 11 Jan 2022 12:46:05 +0100
a1b30c
Subject: gdb-rhbz202487-rework-set-debuginfod.patch
a1b30c
a1b30c
;;Backport upstream commit from  Simon Marchi
a1b30c
;;333f35b6315 gdb: pass/return setting setter/getter
a1b30c
;;scalar values by value
a1b30c
a1b30c
gdb: rework "set debuginfod" commands
a1b30c
a1b30c
As discussed here [1], do some re-work in the "set debuginfod commands".
a1b30c
a1b30c
First, use "set debuginfod enabled on/off/ask" instead of "set
a1b30c
debuginfod on/off/ask".  This is more MI-friendly, and it gives an
a1b30c
output that makes more sense in "info set", for example.
a1b30c
a1b30c
Then, make the show commands not call "error" when debuginfod support is
a1b30c
not compiled in.  This makes the commands "show" and "show debuginfod"
a1b30c
stop early, breaking gdb.base/default.exp:
a1b30c
a1b30c
    Running /home/smarchi/src/binutils-gdb/gdb/testsuite/gdb.base/default.exp ...
a1b30c
    FAIL: gdb.base/default.exp: info set
a1b30c
    FAIL: gdb.base/default.exp: show
a1b30c
a1b30c
 - Make the "debuginfod enabled" setting default to "off" when debuginfod
a1b30c
   support is not compiled in, and "ask" otherwise.
a1b30c
 - Make the setter of "debuginfod enabled" error out when debuginfod
a1b30c
   support is not compiled in, so that "debuginfod enabled" will always
a1b30c
   remain "off" in that case.
a1b30c
 - Make the setter of "debuginfod verbose" work in any case.  I don't
a1b30c
   see the harm in letting the user change that setting, since the user will
a1b30c
   hit an error if they try to enable the use of debuginfod.
a1b30c
 - I would do the same for the "debuginfod urls" setter, but because
a1b30c
   this one needs to see the DEBUGINFOD_URLS_ENV_VAR macro, provided by
a1b30c
   libdebuginfod, I made that one error out as well if debuginfod
a1b30c
   support is not compiled it (otherwise, I would have left it like
a1b30c
   "debuginfod verbose".  Alternatively, we could hard-code
a1b30c
   "DEBUGINFOD_URLS" in the code (in fact, it was prior to this patch,
a1b30c
   but I think it was an oversight, as other spots use
a1b30c
   DEBUGINFOD_URLS_ENV_VAR), or use a dummy string to store the setting,
a1b30c
   but I don't really see the value in that.
a1b30c
a1b30c
Rename debuginfod_enable to debuginfod_enabled, just so it matches the
a1b30c
setting name.
a1b30c
a1b30c
[1] https://sourceware.org/pipermail/gdb-patches/2021-October/182937.html
a1b30c
a1b30c
Change-Id: I45fdb2993f668226a5639228951362b7800f09d5
a1b30c
Co-Authored-By: Aaron Merey <amerey@redhat.com>
a1b30c
a1b30c
diff --git a/gdb/debuginfod-support.c b/gdb/debuginfod-support.c
a1b30c
--- a/gdb/debuginfod-support.c
a1b30c
+++ b/gdb/debuginfod-support.c
a1b30c
@@ -32,8 +32,22 @@ static const char debuginfod_on[] = "on";
a1b30c
 static const char debuginfod_off[] = "off";
a1b30c
 static const char debuginfod_ask[] = "ask";
a1b30c
 
a1b30c
-static const char *debuginfod_enable = debuginfod_ask;
a1b30c
-static unsigned debuginfod_verbose = 1;
a1b30c
+static const char *debuginfod_enabled_enum[] =
a1b30c
+{
a1b30c
+  debuginfod_on,
a1b30c
+  debuginfod_off,
a1b30c
+  debuginfod_ask,
a1b30c
+  nullptr
a1b30c
+};
a1b30c
+
a1b30c
+static const char *debuginfod_enabled =
a1b30c
+#if defined(HAVE_LIBDEBUGINFOD)
a1b30c
+  debuginfod_ask;
a1b30c
+#else
a1b30c
+  debuginfod_off;
a1b30c
+#endif
a1b30c
+
a1b30c
+static unsigned int debuginfod_verbose = 1;
a1b30c
 
a1b30c
 /* This is never actually used.  URLs are always pulled from the
a1b30c
    environment.  */
a1b30c
@@ -60,64 +74,6 @@ debuginfod_debuginfo_query (const unsigned char *build_id,
a1b30c
 
a1b30c
 #define NO_IMPL _("Support for debuginfod is not compiled into GDB.")
a1b30c
 
a1b30c
-/* Stub set/show commands that indicate debuginfod is not supported.  */
a1b30c
-
a1b30c
-static void
a1b30c
-set_debuginfod_on_command (const char *args, int from_tty)
a1b30c
-{
a1b30c
-  error (NO_IMPL);
a1b30c
-  debuginfod_enable = debuginfod_off;
a1b30c
-}
a1b30c
-
a1b30c
-static void
a1b30c
-set_debuginfod_off_command (const char *args, int from_tty)
a1b30c
-{
a1b30c
-  error (NO_IMPL);
a1b30c
-  debuginfod_enable = debuginfod_off;
a1b30c
-}
a1b30c
-
a1b30c
-static void
a1b30c
-set_debuginfod_ask_command (const char *args, int from_tty)
a1b30c
-{
a1b30c
-  error (NO_IMPL);
a1b30c
-  debuginfod_enable = debuginfod_off;
a1b30c
-}
a1b30c
-
a1b30c
-static void
a1b30c
-show_debuginfod_status_command (const char *args, int from_tty)
a1b30c
-{
a1b30c
-  error (NO_IMPL);
a1b30c
-}
a1b30c
-
a1b30c
-static void
a1b30c
-set_debuginfod_urls_command (const char *ignore, int from_tty,
a1b30c
-                             struct cmd_list_element *c)
a1b30c
-{
a1b30c
-  error (NO_IMPL);
a1b30c
-}
a1b30c
-
a1b30c
-static void
a1b30c
-show_debuginfod_urls_command (struct ui_file *file, int from_tty,
a1b30c
-			      struct cmd_list_element *cmd, const char *value)
a1b30c
-{
a1b30c
-  error (NO_IMPL);
a1b30c
-}
a1b30c
-
a1b30c
-static void
a1b30c
-set_debuginfod_verbose_command (const char *args, int from_tty,
a1b30c
-				struct cmd_list_element *c)
a1b30c
-{
a1b30c
-  error (NO_IMPL);
a1b30c
-  debuginfod_verbose = 0;
a1b30c
-}
a1b30c
-
a1b30c
-static void
a1b30c
-show_debuginfod_verbose_command (struct ui_file *file, int from_tty,
a1b30c
-				 struct cmd_list_element *cmd,
a1b30c
-				 const char *value)
a1b30c
-{
a1b30c
-  error (NO_IMPL);
a1b30c
-}
a1b30c
 #else
a1b30c
 #include <elfutils/debuginfod.h>
a1b30c
 
a1b30c
@@ -145,82 +101,6 @@ struct debuginfod_client_deleter
a1b30c
 using debuginfod_client_up
a1b30c
   = std::unique_ptr<debuginfod_client, debuginfod_client_deleter>;
a1b30c
 
a1b30c
-/* Enable debuginfod.  */
a1b30c
-
a1b30c
-static void
a1b30c
-set_debuginfod_on_command (const char *args, int from_tty)
a1b30c
-{
a1b30c
-  debuginfod_enable = debuginfod_on;
a1b30c
-}
a1b30c
-
a1b30c
-/* Disable debuginfod.  */
a1b30c
-
a1b30c
-static void
a1b30c
-set_debuginfod_off_command (const char *args, int from_tty)
a1b30c
-{
a1b30c
-  debuginfod_enable = debuginfod_off;
a1b30c
-}
a1b30c
-
a1b30c
-/* Before next query, ask user whether to enable debuginfod.  */
a1b30c
-
a1b30c
-static void
a1b30c
-set_debuginfod_ask_command (const char *args, int from_tty)
a1b30c
-{
a1b30c
-  debuginfod_enable = debuginfod_ask;
a1b30c
-}
a1b30c
-
a1b30c
-/* Show whether debuginfod is enabled.  */
a1b30c
-
a1b30c
-static void
a1b30c
-show_debuginfod_status_command (const char *args, int from_tty)
a1b30c
-{
a1b30c
-  printf_unfiltered (_("Debuginfod functionality is currently set to " \
a1b30c
-		     "\"%s\".\n"), debuginfod_enable);
a1b30c
-}
a1b30c
-
a1b30c
-/* Set the URLs that debuginfod will query.  */
a1b30c
-
a1b30c
-static void
a1b30c
-set_debuginfod_urls_command (const char *ignore, int from_tty,
a1b30c
-                             struct cmd_list_element *c)
a1b30c
-{
a1b30c
-  gdb_assert (debuginfod_urls != nullptr);
a1b30c
-  if (setenv ("DEBUGINFOD_URLS", debuginfod_urls, 1) != 0)
a1b30c
-    warning (_("Unable to set debuginfod URLs: %s"), safe_strerror (errno));
a1b30c
-}
a1b30c
-
a1b30c
-/* Show the URLs that debuginfod will query.  */
a1b30c
-
a1b30c
-static void
a1b30c
-show_debuginfod_urls_command (struct ui_file *file, int from_tty,
a1b30c
-			      struct cmd_list_element *cmd, const char *value)
a1b30c
-{
a1b30c
-  if (value == nullptr || value[0] == '\0')
a1b30c
-    fprintf_unfiltered (file, _("Debuginfod URLs have not been set.\n"));
a1b30c
-  else
a1b30c
-    fprintf_filtered (file, _("Debuginfod URLs are currently set to:\n%s\n"),
a1b30c
-		      value);
a1b30c
-}
a1b30c
-
a1b30c
-/* No-op setter used for compatibility when gdb is built without debuginfod.  */
a1b30c
-
a1b30c
-static void
a1b30c
-set_debuginfod_verbose_command (const char *args, int from_tty,
a1b30c
-				struct cmd_list_element *c)
a1b30c
-{
a1b30c
-  return;
a1b30c
-}
a1b30c
-
a1b30c
-/* Show verbosity.  */
a1b30c
-
a1b30c
-static void
a1b30c
-show_debuginfod_verbose_command (struct ui_file *file, int from_tty,
a1b30c
-				 struct cmd_list_element *cmd, const char *value)
a1b30c
-{
a1b30c
-  fprintf_filtered (file, _("Debuginfod verbose output is set to %s.\n"),
a1b30c
-		    value);
a1b30c
-}
a1b30c
-
a1b30c
 static int
a1b30c
 progressfn (debuginfod_client *c, long cur, long total)
a1b30c
 {
a1b30c
@@ -277,15 +157,15 @@ get_debuginfod_client ()
a1b30c
    whether to enable debuginfod.  */
a1b30c
 
a1b30c
 static bool
a1b30c
-debuginfod_enabled ()
a1b30c
+debuginfod_is_enabled ()
a1b30c
 {
a1b30c
   const char *urls = getenv (DEBUGINFOD_URLS_ENV_VAR);
a1b30c
 
a1b30c
   if (urls == nullptr || urls[0] == '\0'
a1b30c
-      || debuginfod_enable == debuginfod_off)
a1b30c
+      || debuginfod_enabled == debuginfod_off)
a1b30c
     return false;
a1b30c
 
a1b30c
-  if (debuginfod_enable == debuginfod_ask)
a1b30c
+  if (debuginfod_enabled == debuginfod_ask)
a1b30c
     {
a1b30c
       int resp = nquery (_("\nThis GDB supports auto-downloading debuginfo " \
a1b30c
 			   "from the following URLs:\n%s\nEnable debuginfod " \
a1b30c
@@ -294,16 +174,16 @@ debuginfod_enabled ()
a1b30c
       if (!resp)
a1b30c
 	{
a1b30c
 	  printf_filtered (_("Debuginfod has been disabled.\nTo make this " \
a1b30c
-			     "setting permanent, add \'set debuginfod off\' " \
a1b30c
-			     "to .gdbinit.\n"));
a1b30c
-	  debuginfod_enable = debuginfod_off;
a1b30c
+			     "setting permanent, add \'set debuginfod " \
a1b30c
+			     "enabled off\' to .gdbinit.\n"));
a1b30c
+	  debuginfod_enabled = debuginfod_off;
a1b30c
 	  return false;
a1b30c
 	}
a1b30c
 
a1b30c
       printf_filtered (_("Debuginfod has been enabled.\nTo make this " \
a1b30c
-			 "setting permanent, add \'set debuginfod on\' " \
a1b30c
-			 "to .gdbinit.\n"));
a1b30c
-      debuginfod_enable = debuginfod_on;
a1b30c
+			 "setting permanent, add \'set debuginfod enabled " \
a1b30c
+			 "on\' to .gdbinit.\n"));
a1b30c
+      debuginfod_enabled = debuginfod_on;
a1b30c
     }
a1b30c
 
a1b30c
   return true;
a1b30c
@@ -317,7 +197,7 @@ debuginfod_source_query (const unsigned char *build_id,
a1b30c
 			 const char *srcpath,
a1b30c
 			 gdb::unique_xmalloc_ptr<char> *destname)
a1b30c
 {
a1b30c
-  if (!debuginfod_enabled ())
a1b30c
+  if (!debuginfod_is_enabled ())
a1b30c
     return scoped_fd (-ENOSYS);
a1b30c
 
a1b30c
   debuginfod_client *c = get_debuginfod_client ();
a1b30c
@@ -354,7 +234,7 @@ debuginfod_debuginfo_query (const unsigned char *build_id,
a1b30c
 			    const char *filename,
a1b30c
 			    gdb::unique_xmalloc_ptr<char> *destname)
a1b30c
 {
a1b30c
-  if (!debuginfod_enabled ())
a1b30c
+  if (!debuginfod_is_enabled ())
a1b30c
     return scoped_fd (-ENOSYS);
a1b30c
 
a1b30c
   debuginfod_client *c = get_debuginfod_client ();
a1b30c
@@ -382,6 +262,67 @@ debuginfod_debuginfo_query (const unsigned char *build_id,
a1b30c
 }
a1b30c
 #endif
a1b30c
 
a1b30c
+/* Set callback for "set debuginfod enabled".  */
a1b30c
+
a1b30c
+static void
a1b30c
+set_debuginfod_enabled (const char *args, int from_tty,
a1b30c
+                        struct cmd_list_element *c)
a1b30c
+{
a1b30c
+#if defined(HAVE_LIBDEBUGINFOD)
a1b30c
+  /* Value is already set.  */
a1b30c
+#else
a1b30c
+  error (NO_IMPL);
a1b30c
+#endif
a1b30c
+}
a1b30c
+
a1b30c
+/* Show callback for "set debuginfod enabled".  */
a1b30c
+
a1b30c
+static void
a1b30c
+show_debuginfod_enabled (ui_file *file, int from_tty, cmd_list_element *cmd,
a1b30c
+			 const char *value)
a1b30c
+{
a1b30c
+  printf_unfiltered (_("Debuginfod functionality is currently set to "
a1b30c
+		       "\"%s\".\n"), debuginfod_enabled);
a1b30c
+}
a1b30c
+
a1b30c
+/* Set callback for "set debuginfod urls".  */
a1b30c
+
a1b30c
+static void
a1b30c
+set_debuginfod_urls (const char *args, int from_tty,
a1b30c
+                     struct cmd_list_element *c)
a1b30c
+{
a1b30c
+#if defined(HAVE_LIBDEBUGINFOD)
a1b30c
+  gdb_assert (debuginfod_urls != nullptr);
a1b30c
+  if (setenv (DEBUGINFOD_URLS_ENV_VAR, debuginfod_urls, 1) != 0)
a1b30c
+    warning (_("Unable to set debuginfod URLs: %s"), safe_strerror (errno));
a1b30c
+#else
a1b30c
+  error (NO_IMPL);
a1b30c
+#endif
a1b30c
+}
a1b30c
+
a1b30c
+/* Show callback for "set debuginfod urls".  */
a1b30c
+
a1b30c
+static void
a1b30c
+show_debuginfod_urls (ui_file *file, int from_tty, cmd_list_element *cmd,
a1b30c
+		      const char *value)
a1b30c
+{
a1b30c
+  if (value[0] == '\0')
a1b30c
+    fprintf_unfiltered (file, _("Debuginfod URLs have not been set.\n"));
a1b30c
+  else
a1b30c
+    fprintf_filtered (file, _("Debuginfod URLs are currently set to:\n%s\n"),
a1b30c
+		      value);
a1b30c
+}
a1b30c
+
a1b30c
+/* Show callback for "set debuginfod verbose".  */
a1b30c
+
a1b30c
+static void
a1b30c
+show_debuginfod_verbose_command (ui_file *file, int from_tty,
a1b30c
+				 cmd_list_element *cmd, const char *value)
a1b30c
+{
a1b30c
+  fprintf_filtered (file, _("Debuginfod verbose output is set to %s.\n"),
a1b30c
+		    value);
a1b30c
+}
a1b30c
+
a1b30c
 /* Register debuginfod commands.  */
a1b30c
 
a1b30c
 void _initialize_debuginfod ();
a1b30c
@@ -397,23 +338,17 @@ _initialize_debuginfod ()
a1b30c
                        _("Show debuginfod option."),
a1b30c
                        &show_debuginfod_prefix_list, 0, &showlist);
a1b30c
 
a1b30c
-  /* set debuginfod on */
a1b30c
-  add_cmd ("on", class_run, set_debuginfod_on_command,
a1b30c
-	   _("Enable debuginfod."), &set_debuginfod_prefix_list);
a1b30c
-
a1b30c
-  /* set debuginfod off */
a1b30c
-  add_cmd ("off", class_run, set_debuginfod_off_command,
a1b30c
-	   _("Disable debuginfod."), &set_debuginfod_prefix_list);
a1b30c
-
a1b30c
-  /* set debuginfod ask */
a1b30c
-  add_cmd ("ask", class_run, set_debuginfod_ask_command, _("\
a1b30c
-Ask the user whether to enable debuginfod before performing the next query."),
a1b30c
-	   &set_debuginfod_prefix_list);
a1b30c
-
a1b30c
-  /* show debuginfod status */
a1b30c
-  add_cmd ("status", class_run, show_debuginfod_status_command,
a1b30c
-	   _("Show whether debuginfod is set to \"on\", \"off\" or \"ask\"."),
a1b30c
-	   &show_debuginfod_prefix_list);
a1b30c
+  add_setshow_enum_cmd ("enabled", class_run, debuginfod_enabled_enum,
a1b30c
+                        &debuginfod_enabled,
a1b30c
+			_("Set whether to use debuginfod."),
a1b30c
+			_("Show whether to use debuginfod."),
a1b30c
+			_("\
a1b30c
+When on, enable the use of debuginfod to download missing debug info and\n\
a1b30c
+source files."),
a1b30c
+			set_debuginfod_enabled,
a1b30c
+			show_debuginfod_enabled,
a1b30c
+			&set_debuginfod_prefix_list,
a1b30c
+			&show_debuginfod_prefix_list);
a1b30c
 
a1b30c
   /* set/show debuginfod urls */
a1b30c
   add_setshow_string_noescape_cmd ("urls", class_run, &debuginfod_urls, _("\
a1b30c
@@ -422,8 +357,8 @@ Show the list of debuginfod server URLs."), _("\
a1b30c
 Manage the space-separated list of debuginfod server URLs that GDB will query \
a1b30c
 when missing debuginfo, executables or source files.\nThe default value is \
a1b30c
 copied from the DEBUGINFOD_URLS environment variable."),
a1b30c
-				   set_debuginfod_urls_command,
a1b30c
-				   show_debuginfod_urls_command,
a1b30c
+				   set_debuginfod_urls,
a1b30c
+				   show_debuginfod_urls,
a1b30c
 				   &set_debuginfod_prefix_list,
a1b30c
 				   &show_debuginfod_prefix_list);
a1b30c
   if (getenv ("DEBUGINFOD_URLS") != nullptr)
a1b30c
@@ -436,7 +371,7 @@ Set verbosity of debuginfod output."), _("\
a1b30c
 Show debuginfod debugging."), _("\
a1b30c
 When set to a non-zero value, display verbose output for each debuginfod \
a1b30c
 query.\nTo disable, set to zero.  Verbose output is displayed by default."),
a1b30c
-			     set_debuginfod_verbose_command,
a1b30c
+			     nullptr,
a1b30c
 			     show_debuginfod_verbose_command,
a1b30c
 			     &set_debuginfod_prefix_list,
a1b30c
 			     &show_debuginfod_prefix_list);
a1b30c
diff --git a/gdb/doc/gdb.texinfo b/gdb/doc/gdb.texinfo
a1b30c
--- a/gdb/doc/gdb.texinfo
a1b30c
+++ b/gdb/doc/gdb.texinfo
a1b30c
@@ -47046,27 +47046,28 @@ regarding @code{debuginfod}.
a1b30c
 @value{GDBN} provides the following commands for configuring @code{debuginfod}.
a1b30c
 
a1b30c
 @table @code
a1b30c
-@kindex set debuginfod
a1b30c
-@anchor{set debuginfod}
a1b30c
-@item set debuginfod
a1b30c
-@itemx set debuginfod on
a1b30c
+@kindex set debuginfod enabled
a1b30c
+@anchor{set debuginfod enabled}
a1b30c
+@item set debuginfod enabled
a1b30c
+@itemx set debuginfod enabled on
a1b30c
 @cindex enable debuginfod
a1b30c
 @value{GDBN} will attempt to query @code{debuginfod} servers when missing debug
a1b30c
 info or source files.
a1b30c
 
a1b30c
-@item set debuginfod off
a1b30c
+@item set debuginfod enabled off
a1b30c
 @value{GDBN} will not attempt to query @code{debuginfod} servers when missing
a1b30c
-debug info or source files.  By default, @code{debuginfod} is set to @code{off}
a1b30c
-for non-interactive sessions.
a1b30c
+debug info or source files.  By default, @code{debuginfod enabled} is set to
a1b30c
+@code{off} for non-interactive sessions.
a1b30c
 
a1b30c
-@item set debuginfod ask
a1b30c
+@item set debuginfod enabled ask
a1b30c
 @value{GDBN} will prompt the user to enable or disable @code{debuginfod} before
a1b30c
-attempting to perform the next query.  By default, @code{debuginfod} is set to
a1b30c
-@code{ask} for interactive sessions.
a1b30c
+attempting to perform the next query.  By default, @code{debuginfod enabled}
a1b30c
+is set to @code{ask} for interactive sessions.
a1b30c
 
a1b30c
-@kindex show debuginfod status
a1b30c
-@item show debuginfod status
a1b30c
-Show whether @code{debuginfod} is set to @code{on}, @code{off} or @code{ask}.
a1b30c
+@kindex show debuginfod enabled
a1b30c
+@item show debuginfod enabled
a1b30c
+Display whether @code{debuginfod enabled} is set to @code{on}, @code{off} or
a1b30c
+@code{ask}.
a1b30c
 
a1b30c
 @kindex set debuginfod urls
a1b30c
 @cindex configure debuginfod URLs
a1b30c
diff --git a/gdb/testsuite/gdb.debuginfod/fetch_src_and_symbols.exp b/gdb/testsuite/gdb.debuginfod/fetch_src_and_symbols.exp
a1b30c
--- a/gdb/testsuite/gdb.debuginfod/fetch_src_and_symbols.exp
a1b30c
+++ b/gdb/testsuite/gdb.debuginfod/fetch_src_and_symbols.exp
a1b30c
@@ -236,7 +236,7 @@ proc local_url { } {
a1b30c
     clean_restart
a1b30c
     gdb_test "file $binfile" ".*No debugging symbols.*" \
a1b30c
 	"file [file tail $binfile] cmd"
a1b30c
-    gdb_test_no_output "set debuginfod off"
a1b30c
+    gdb_test_no_output "set debuginfod enabled off"
a1b30c
     gdb_test_no_output "set debuginfod urls http://127.0.0.1:$port"
a1b30c
 
a1b30c
     # gdb shouldn't find the debuginfo since debuginfod has been disabled
a1b30c
@@ -244,7 +244,7 @@ proc local_url { } {
a1b30c
 	"file [file tail $binfile] cmd off"
a1b30c
 
a1b30c
     # Enable debuginfod and fetch the debuginfo
a1b30c
-    gdb_test_no_output "set debuginfod on"
a1b30c
+    gdb_test_no_output "set debuginfod enabled on"
a1b30c
     gdb_test "file $binfile" ".*Reading symbols from.*debuginfo.*" \
a1b30c
 	"file [file tail $binfile] cmd on"
a1b30c
 }