Attachment "thread.patch" to
ticket [1050490fff]
added by
dgp
2004-10-20 12:50:13.
? build.patch
? pkgIndex.tcl
? index.patch
? thread.patch
Index: generic/threadCmd.c
===================================================================
RCS file: /cvsroot/tcl/thread/generic/threadCmd.c,v
retrieving revision 1.86
diff -u -r1.86 threadCmd.c
--- generic/threadCmd.c 18 Oct 2004 23:32:29 -0000 1.86
+++ generic/threadCmd.c 20 Oct 2004 05:42:42 -0000
@@ -2935,7 +2935,6 @@
errorInfo = "";
errorCode = "THREAD";
} else {
- result = Tcl_GetStringResult(interp);
if (code == TCL_ERROR) {
errorCode = Tcl_GetVar(interp, "errorCode", TCL_GLOBAL_ONLY);
errorInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
@@ -2943,6 +2942,7 @@
errorCode = NULL;
errorInfo = NULL;
}
+ result = Tcl_GetStringResult(interp);
}
resultPtr->code = code;