diff options
| author | andreas_kupries <akupries@shaw.ca> | 2008-07-22 22:30:01 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2008-07-22 22:30:01 (GMT) |
| commit | b7a983dd059b745e966a8274eea6e0134178b339 (patch) | |
| tree | 301cacce6199d8a8ef846f6c31ad7bae06d6243c | |
| parent | d05bf7949cd1871dd610d12704ab65a04383a587 (diff) | |
| download | tcl-b7a983dd059b745e966a8274eea6e0134178b339.zip tcl-b7a983dd059b745e966a8274eea6e0134178b339.tar.gz tcl-b7a983dd059b745e966a8274eea6e0134178b339.tar.bz2 | |
* generic/tclCompile.c: Made the new TclEnterCmdWordIndex
* generic/tclCompile.h: static.
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | generic/tclCompile.c | 17 | ||||
| -rw-r--r-- | generic/tclCompile.h | 5 |
3 files changed, 14 insertions, 11 deletions
@@ -1,5 +1,8 @@ 2008-07-22 Andreas Kupries <andreask@activestate.com> + * 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 /* |