Fri Jul 24 01:08:37 1998 Martin M. Hunt <hunt@cygnus.com>

	* gdbtk-cmds.c (gdb_loadfile): When there are no
	linenumbers, use only one tab.

diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index 88f22f9..3757815 100644 (file)
--- a/gdb/ChangeLog-gdbtk
+++ b/gdb/ChangeLog-gdbtk
@@ -1,3 +1,8 @@
+Fri Jul 24 01:08:37 1998  Martin M. Hunt  <hunt@cygnus.com>
+
+       * gdbtk-cmds.c (gdb_loadfile): When there are no
+       linenumbers, use only one tab.
+
 Sat Jul 18 12:28:39 1998  Martin M. Hunt  <hunt@cygnus.com>
 
        * gdbtk.c (gdbtk_cleanup): Add call to tcl function

diff --git a/gdb/gdbtk-cmds.c b/gdb/gdbtk-cmds.c
index 4a7cd6f..cb98e5c 100644 (file)
--- a/gdb/gdbtk-cmds.c
+++ b/gdb/gdbtk-cmds.c
@@ -2686,9 +2686,9 @@ gdb_loadfile (clientData, interp, objc, objv)
     }
   else
     {
-      Tcl_DStringAppend (&text_cmd_1, " insert end {-\t} break_tag", -1);
+      Tcl_DStringAppend (&text_cmd_1, " insert end {- } break_tag", -1);
       prefix_len_1 = Tcl_DStringLength(&text_cmd_1);
-      Tcl_DStringAppend (&text_cmd_2, " insert end { \t} \"\"", -1);
+      Tcl_DStringAppend (&text_cmd_2, " insert end {  } \"\"", -1);
       prefix_len_2 = Tcl_DStringLength(&text_cmd_2);