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

ch
        returns a char * under SunOS4.
This commit is contained in:
Keith Seitz
1998-03-31 23:42:51 +00:00
parent cfa9f8450c
commit 390ca26a02
2 changed files with 21 additions and 4 deletions

View File

@ -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

View File

@ -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);