* gdbtk.c (gdb_loadfile): Don't use the return result from sprintf, whi

ch
        returns a char * under SunOS4.

diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index 44c7e9de48c205dd2df1457864f5ae7edd578ff8..eb38db36955b004bec610deb9702ce0ee94b2a91 100644 (file)
--- a/gdb/ChangeLog-gdbtk
+++ b/gdb/ChangeLog-gdbtk
@@ -1,3 +1,8 @@
+Tue Mar 31 15:42:06 1998  Keith Seitz  <keiths@onions.cygnus.com>
+
+       * gdbtk.c (gdb_loadfile): Don't use the return result from sprintf, which
+       returns a char * under SunOS4.
+
 Tue Mar 31 17:18:43 1998  Ian Lance Taylor  <ian@cygnus.com>
 
        * configure.in: Add $(LIBIDETCL) as well as $(LIBIDE) if

diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index 5737fbdb9e1c60fcaf670e7ebbe14715eaa4799e..b3d110f364a49c221fcde9723e76f41826df7970 100644 (file)
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -3201,16 +3201,28 @@ gdb_loadfile (clientData, interp, objc, objv)
       if (linenumbers)
        {
          if (ltable[ln >> 3] & (1 << (ln % 8)))
-           a[0]->length = sprintf (buf,"%s insert end {-\t%d} break_tag", widget, ln);
+        {
+          sprintf (buf,"%s insert end {-\t%d} break_tag", widget, ln);
+          a[0]->length = strlen (buf);
+        }
          else
-           a[0]->length = sprintf (buf,"%s insert end { \t%d} \"\"", widget, ln);
+        {
+          sprintf (buf,"%s insert end { \t%d} \"\"", widget, ln);
+          a[0]->length = strlen (buf);
+        }
        }
       else
        {
          if (ltable[ln >> 3] & (1 << (ln % 8)))
-          a[0]->length = sprintf (buf,"%s insert end {-\t} break_tag", widget);
+        {
+          sprintf (buf,"%s insert end {-\t} break_tag", widget);
+          a[0]->length = strlen (buf);
+        }
          else
-          a[0]->length = sprintf (buf,"%s insert end { \t} \"\"", widget);
+        {
+          sprintf (buf,"%s insert end { \t} \"\"", widget);
+          a[0]->length = strlen (buf);
+        }
        }
       b[0]->length = strlen(b[0]->bytes);
       Tcl_SetListObj(a[1],2,b);