mgorny 15/04/06 11:14:48 Added: gnetman-0.0.1_pre20110124-tcl86.patch Log: Fix build with tcl-8.6, bug #452034. Drop old. (Portage version: 2.2.18/cvs/Linux x86_64, signed Manifest commit with key EFB4464E!)
Revision Changes Path 1.1 sci-electronics/gnetman/files/gnetman-0.0.1_pre20110124-tcl86.patch file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/sci-electronics/gnetman/files/gnetman-0.0.1_pre20110124-tcl86.patch?rev=1.1&view=markup plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/sci-electronics/gnetman/files/gnetman-0.0.1_pre20110124-tcl86.patch?rev=1.1&content-type=text/plain Index: gnetman-0.0.1_pre20110124-tcl86.patch =================================================================== --- gnetman-0.0.1_pre20110124_orig/src/tcl/tclwrap.c 2012-05-25 07:44:51.000000000 +0200 +++ gnetman-0.0.1_pre20110124/src/tcl/tclwrap.c 2013-02-24 12:58:51.000000000 +0100 @@ -46,7 +46,7 @@ result = Tcl_EvalFile(interp, (char *)fileName) == TCL_OK; if (!result) { utWarning("Tcl error in file %s, line %d: %s", fileName, - interp->errorLine, interp->result); + Tcl_GetErrorLine(interp), Tcl_GetStringResult(interp)); } return result; } @@ -75,7 +75,7 @@ commandLine[xChar] = '\0'; result = Tcl_Eval(interp, commandLine); if (result == TCL_ERROR) { - utWarning("Tcl error: %s", interp->result); + utWarning("Tcl error: %s", Tcl_GetStringResult(interp)); } } while (result != TCL_RETURN); return true;
