diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-01-05 09:48:11 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-01-05 09:48:11 (GMT) |
| commit | 8e54cd31b1870397b3c62959293df9a98eeb252f (patch) | |
| tree | 4ccd51bf9bf0d72d04181d60c437a978a1ec214b /generic/tclCmdMZ.c | |
| parent | 7d95a053aeb778f64cdd4fcb0cec11bd042119f8 (diff) | |
| download | tcl-8e54cd31b1870397b3c62959293df9a98eeb252f.zip tcl-8e54cd31b1870397b3c62959293df9a98eeb252f.tar.gz tcl-8e54cd31b1870397b3c62959293df9a98eeb252f.tar.bz2 | |
Make [source] NRE-aware to enable [yield]. [Bug 2412068]
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index c42370c..6025f90 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdMZ.c,v 1.172 2008/12/02 19:40:41 dgp Exp $ + * RCS: @(#) $Id: tclCmdMZ.c,v 1.173 2009/01/05 09:48:11 dkf Exp $ */ #include "tclInt.h" @@ -938,6 +938,16 @@ Tcl_SourceObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { + return Tcl_NRCallObjProc(interp, TclNRSourceObjCmd, dummy, objc, objv); +} + +int +TclNRSourceObjCmd( + ClientData dummy, /* Not used. */ + Tcl_Interp *interp, /* Current interpreter. */ + int objc, /* Number of arguments. */ + Tcl_Obj *const objv[]) /* Argument objects. */ +{ const char *encodingName = NULL; Tcl_Obj *fileName; |