philippelh/bitchx
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Switch from direct tcl_interp->result access to Tcl_GetStringResult() and Tcl_AppendResult()

Browse Source 
This allows building against recent libtcl versions.

A fallback definition of Tcl_GetStringResult() is included so that building against libtcl 7 still works.
This commit is contained in:
Kevin Easton
2017-07-01 00:47:20 +10:00
parent 356eb699d0
commit ac84793dd6
6 changed files with 80 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/bot_link.c
View File

@@ -743,9 +743,9 @@ int cmd_tcl(int idx, char *par)
return TCL_ERROR;
if ((Tcl_Eval(tcl_interp, par)) == TCL_OK)
{
dcc_printf(idx, "Tcl: %s\n", tcl_interp->result);
dcc_printf(idx, "Tcl: %s\n", Tcl_GetStringResult(tcl_interp));
} else
dcc_printf(idx, "Tcl Error: %s\n", tcl_interp->result);
dcc_printf(idx, "Tcl Error: %s\n", Tcl_GetStringResult(tcl_interp));
#else
dcc_printf(idx, "Not implemented in this client\n");
#endif