From 39e94f9db312d56df3d26940e1d0526cca1d47dc Mon Sep 17 00:00:00 2001 From: andreas_kupries Date: Tue, 22 Jul 2008 22:30:01 +0000 Subject: * generic/tclCompile.c: Made the new TclEnterCmdWordIndex * generic/tclCompile.h: static. --- ChangeLog | 3 +++ generic/tclCompile.c | 17 ++++++++++------- generic/tclCompile.h | 5 +---- 3 files changed, 14 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6803811..2d0f38c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2008-07-22 Andreas Kupries + * generic/tclCompile.c: Made the new TclEnterCmdWordIndex + * generic/tclCompile.h: static. + * generic/tclBasic.c: Reworked the handling of bytecode literals * generic/tclCompile.c: for #280 to fix the abysmal performance * generic/tclCompile.h: for deep recursion, replaced the linear diff --git a/generic/tclCompile.c b/generic/tclCompile.c index a1747ba..a49297c 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.c,v 1.43.2.10 2008/07/22 21:40:26 andreas_kupries Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.43.2.11 2008/07/22 22:30:05 andreas_kupries Exp $ */ #include "tclInt.h" @@ -308,6 +308,9 @@ static void EnterCmdWordData _ANSI_ARGS_(( ExtCmdLoc *eclPtr, int srcOffset, Tcl_Token* tokenPtr, CONST char* cmd, int len, int numWords, int line, int** lines)); + +static void EnterCmdWordIndex _ANSI_ARGS_(( + ExtCmdLoc *eclPtr, Tcl_Obj* obj, int pc, int word)); #endif @@ -1262,10 +1265,10 @@ TclCompileScript(interp, script, numBytes, nested, envPtr) tokenPtr[1].start, tokenPtr[1].size); #ifdef TCL_TIP280 if (eclPtr->type == TCL_LOCATION_SOURCE) { - TclEnterCmdWordIndex (eclPtr, - envPtr->literalArrayPtr[objIndex].objPtr, - envPtr->codeNext - envPtr->codeStart, - wordIdx); + EnterCmdWordIndex (eclPtr, + envPtr->literalArrayPtr[objIndex].objPtr, + envPtr->codeNext - envPtr->codeStart, + wordIdx); } #endif } @@ -2485,8 +2488,8 @@ EnterCmdWordData(eclPtr, srcOffset, tokenPtr, cmd, len, numWords, line, wlines) eclPtr->nuloc ++; } -void -TclEnterCmdWordIndex (eclPtr, obj, pc, word) +static void +EnterCmdWordIndex (eclPtr, obj, pc, word) ExtCmdLoc *eclPtr; Tcl_Obj* obj; int pc; diff --git a/generic/tclCompile.h b/generic/tclCompile.h index adde52c..ce82f8c 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.h,v 1.33.2.4 2008/07/22 21:40:31 andreas_kupries Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.33.2.5 2008/07/22 22:30:05 andreas_kupries Exp $ */ #ifndef _TCLCOMPILATION @@ -150,9 +150,6 @@ typedef struct ExtCmdLoc { int neiloc; int nueiloc; } ExtCmdLoc; - -EXTERN void TclEnterCmdWordIndex _ANSI_ARGS_(( - ExtCmdLoc *eclPtr, Tcl_Obj* obj, int pc, int word)); #endif /* -- cgit v0.12