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