summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclInt.decls10
-rw-r--r--generic/tclTest.c12
2 files changed, 16 insertions, 6 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 53f8151..25e2572 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: tclInt.decls,v 1.21 2000/05/19 21:30:16 hobbs Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.22 2000/07/26 01:28:49 davidg Exp $
library tcl
@@ -797,9 +797,11 @@ declare 19 win {
declare 20 win {
void TclWinAddProcess(HANDLE hProcess, DWORD id)
}
-declare 21 win {
- void TclpAsyncMark(Tcl_AsyncHandler async)
-}
+
+# removed permanently for 8.4
+#declare 21 win {
+# void TclpAsyncMark(Tcl_AsyncHandler async)
+#}
# Added in 8.1:
declare 22 win {
diff --git a/generic/tclTest.c b/generic/tclTest.c
index dd9730c..085d99c 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclTest.c,v 1.18 2000/05/19 21:30:16 hobbs Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.19 2000/07/26 01:28:49 davidg Exp $
*/
#define TCL_TEST
@@ -586,7 +586,15 @@ AsyncHandlerProc(clientData, interp, code)
listArgv[2] = string;
listArgv[3] = NULL;
cmd = Tcl_Merge(3, listArgv);
- code = Tcl_Eval(interp, cmd);
+ if (interp != NULL) {
+ code = Tcl_Eval(interp, cmd);
+ } else {
+ /*
+ * this should not happen, but by definition of how async
+ * handlers are invoked, it's possible. Better error
+ * checking is needed here.
+ */
+ }
ckfree(cmd);
return code;
}