diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-29 05:30:25 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-29 05:30:25 (GMT) |
| commit | 2eec1c8e78758156521c033507b1a4513e80d1be (patch) | |
| tree | 4c1271ec62dc5e1d48fc5559a5b9e8320ba3522a /generic/tclNamesp.c | |
| parent | f0e9c26da804fcb46360eebe2164bf251f89f4e3 (diff) | |
| download | tcl-2eec1c8e78758156521c033507b1a4513e80d1be.zip tcl-2eec1c8e78758156521c033507b1a4513e80d1be.tar.gz tcl-2eec1c8e78758156521c033507b1a4513e80d1be.tar.bz2 | |
Completely revamped NRE implementation, with (almost) unchanged API.
Diffstat (limited to 'generic/tclNamesp.c')
| -rw-r--r-- | generic/tclNamesp.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 3eda959..ff56db7 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -23,7 +23,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclNamesp.c,v 1.171 2008/07/21 22:50:36 andreas_kupries Exp $ + * RCS: @(#) $Id: tclNamesp.c,v 1.172 2008/07/29 05:30:36 msofer Exp $ */ #include "tclInt.h" @@ -1897,7 +1897,7 @@ InvokeImportedNRCmd( ImportedCmdData *dataPtr = clientData; Command *realCmdPtr = dataPtr->realCmdPtr; - return Tcl_NRCmdSwap(interp, (Tcl_Command) realCmdPtr, objc, objv); + return Tcl_NRCmdSwap(interp, (Tcl_Command) realCmdPtr, objc, objv, 0); } static int @@ -6225,7 +6225,7 @@ NsEnsembleImplementationCmdNR( * target command prefix. */ Tcl_Obj *copyPtr; /* The actual list of words to dispatch to. * Will be freed by the dispatch engine. */ - int prefixObjc, copyObjc; + int prefixObjc, copyObjc, result; Interp *iPtr = (Interp *) interp; /* @@ -6285,8 +6285,10 @@ NsEnsembleImplementationCmdNR( /* * Hand off to the target command. */ - - return TclNREvalCmd(interp, copyPtr, TCL_EVAL_INVOKE); + + result = Tcl_NREvalObj(interp, copyPtr, TCL_EVAL_INVOKE); + TclNRClearCommandFlag(interp); + return result; } unknownOrAmbiguousSubcommand: |