mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-06-17 07:53:51 +08:00
* gdbtk.c (gdb_loadfile): Don't use the return result from sprintf, whi
ch returns a char * under SunOS4.
This commit is contained in:
@ -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
|
||||
|
20
gdb/gdbtk.c
20
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);
|
||||
|
Reference in New Issue
Block a user