diff options
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 22 |
1 files changed, 1 insertions, 21 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 813e056..7457fe8 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -92,12 +92,6 @@ const Tcl_ObjType tclEnsembleCmdType = { * Copied from tclCompCmds.c */ -#define DefineLineInformation \ - ExtCmdLoc *mapPtr = envPtr->extCmdMapPtr; \ - int eclIndex = mapPtr->nuloc - 1 -#define SetLineInformation(word) \ - envPtr->line = mapPtr->loc[eclIndex].line[(word)]; \ - envPtr->clNext = mapPtr->loc[eclIndex].next[(word)] static inline Tcl_Obj * NewNsObj( @@ -1915,7 +1909,7 @@ NsEnsembleImplementationCmdNR( */ TclSkipTailcall(interp); - return TclNREvalObjEx(interp, copyPtr, TCL_EVAL_INVOKE, NULL,INT_MIN); + return TclNREvalObjEx(interp, copyPtr, TCL_EVAL_INVOKE); } unknownOrAmbiguousSubcommand: @@ -3148,7 +3142,6 @@ CompileToInvokedCommand( Tcl_Obj *objPtr, **words; char *bytes; int length, i, numWords, cmdLit; - DefineLineInformation; /* * Push the words of the command. Take care; the command words may be @@ -3165,17 +3158,8 @@ CompileToInvokedCommand( int literal = TclRegisterNewLiteral(envPtr, tokPtr[1].start, tokPtr[1].size); - if (envPtr->clNext) { - TclContinuationsEnterDerived( - TclFetchLiteral(envPtr, literal), - tokPtr[1].start - envPtr->source, - mapPtr->loc[eclIndex].next[i]); - } TclEmitPush(literal, envPtr); } else { - if (envPtr->clNext) { - SetLineInformation(i); - } CompileTokens(envPtr, tokPtr, interp); } tokPtr = TokenAfter(tokPtr); @@ -3228,7 +3212,6 @@ CompileBasicNArgCommand( Tcl_Obj *objPtr; char *bytes; int length, i, literal; - DefineLineInformation; /* * Push the name of the command we're actually dispatching to as part of @@ -3249,9 +3232,6 @@ CompileBasicNArgCommand( tokenPtr = TokenAfter(parsePtr->tokenPtr); for (i=1 ; i<parsePtr->numWords ; i++) { - if (envPtr->clNext) { - SetLineInformation(i); - } if (tokenPtr->type == TCL_TOKEN_SIMPLE_WORD) { PushLiteral(envPtr, tokenPtr[1].start, tokenPtr[1].size); } else { |