summaryrefslogtreecommitdiffstats
path: root/generic/tclIOCmd.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-09-06 18:13:19 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-09-06 18:13:19 (GMT)
commitfa9ca5327da10d6516693b272a082e03a255c835 (patch)
tree21db3085afb048eebeefccee941778b5e8733f74 /generic/tclIOCmd.c
parentd5f98c3ef4786469dfaedb23c4deeffd2973be05 (diff)
downloadtcl-fa9ca5327da10d6516693b272a082e03a255c835.zip
tcl-fa9ca5327da10d6516693b272a082e03a255c835.tar.gz
tcl-fa9ca5327da10d6516693b272a082e03a255c835.tar.bz2
* generic/tclInt.decls: New internal routine TclBackgroundException()
* generic/tclEvent.c: that for the first time permits non-TCL_ERROR exceptions to trigger [interp bgerror] handling. Closes a gap in TIP 221. When falling back to [bgerror] (which is designed only to handle TCL_ERROR), convert exceptions into errors complaining about the exception. * generic/tclInterp.c: Convert Tcl_BackgroundError() callers to call * generic/tclIO.c: TclBackgroundException(). * generic/tclIOCmd.c: * generic/tclTimer.c: * generic/tclIntDecls.h: make genstubs * generic/tclStubInit.c:
Diffstat (limited to 'generic/tclIOCmd.c')
-rw-r--r--generic/tclIOCmd.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c
index ba610b5..9156b6d 100644
--- a/generic/tclIOCmd.c
+++ b/generic/tclIOCmd.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIOCmd.c,v 1.42 2007/06/28 21:10:38 patthoyts Exp $
+ * RCS: @(#) $Id: tclIOCmd.c,v 1.43 2007/09/06 18:13:20 dgp Exp $
*/
#include "tclInt.h"
@@ -1284,7 +1284,7 @@ AcceptCallbackProc(
result = Tcl_VarEval(interp, script, " ", Tcl_GetChannelName(chan),
" ", address, " ", portBuf, NULL);
if (result != TCL_OK) {
- Tcl_BackgroundError(interp);
+ TclBackgroundException(interp, result);
Tcl_UnregisterChannel(interp, chan);
}