gdbtk_ignorable_warning (const char *class, const char *warning)
{
char *buf;
- xasprintf (&buf, "gdbtk_tcl_ignorable_warning {%s} {%s}", class, warning);
+ buf = xstrprintf ("gdbtk_tcl_ignorable_warning {%s} {%s}", class, warning);
if (Tcl_Eval (gdbtk_interp, buf) != TCL_OK)
report_error ();
free(buf);
case var_uinteger:
case var_zinteger:
- xasprintf (&buffer, "%u", *(unsigned int *) cmdblk->var);
+ buffer = xstrprintf ("%u", *(unsigned int *) cmdblk->var);
Tcl_DStringAppendElement (&cmd, buffer);
break;
case var_integer:
- xasprintf (&buffer, "%d", *(int *) cmdblk->var);
+ buffer = xstrprintf ("%d", *(int *) cmdblk->var);
Tcl_DStringAppendElement (&cmd, buffer);
break;
gdbtk_load_hash (const char *section, unsigned long num)
{
char *buf;
- xasprintf (&buf, "Download::download_hash %s %ld", section, num);
+ buf = xstrprintf ("Download::download_hash %s %ld", section, num);
if (Tcl_Eval (gdbtk_interp, buf) != TCL_OK)
report_error ();
free(buf);
{
#if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 1
char *a;
- xasprintf (&a, "%d", level);
+ a = xstrprintf ("%d", level);
Tcl_SetVar (gdbtk_interp, "gdb_selected_frame_level", a, TCL_GLOBAL_ONLY);
xfree (a);
#else
timeout. */
Tcl_Eval (gdbtk_interp, "gdbtk_stop_idle_callback");
- xasprintf (&buf, "gdbtk_signal %s {%s}",
+ buf = xstrprintf ("gdbtk_signal %s {%s}",
target_signal_to_name (tp->stop_signal),
target_signal_to_string (tp->stop_signal));
if (Tcl_Eval (gdbtk_interp, buf) != TCL_OK)