From 1e09e0a51157bce655a6cb8ef0490121f4cf8fe2 Mon Sep 17 00:00:00 2001
From: davidg <davidg>
Date: Wed, 26 Jul 2000 01:28:49 +0000
Subject: no message

---
 generic/tclInt.decls | 10 ++++++----
 generic/tclTest.c    | 12 ++++++++++--
 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;
 }
-- 
cgit v0.12