diff options
| -rw-r--r-- | generic/tclInt.decls | 10 | ||||
| -rw-r--r-- | 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; } |