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

ch
        returns a char * under SunOS4.

1 files changed, 16 insertions, 4 deletions

diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index 5737fbd..b3d110f 100644
--- 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);