diff options
| author | hobbs <hobbs> | 2010-11-30 18:17:26 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2010-11-30 18:17:26 (GMT) |
| commit | 79fc377e16fe1fb9074418c7fa5a4e06b9da28f4 (patch) | |
| tree | 2e74b64a52ceabd97aefaa960af88dffe3bc4c09 /generic/tclIntDecls.h | |
| parent | 7c9aebb4cdd638855ec47506b5dbe8d5b425c577 (diff) | |
| download | tcl-79fc377e16fe1fb9074418c7fa5a4e06b9da28f4.zip tcl-79fc377e16fe1fb9074418c7fa5a4e06b9da28f4.tar.gz tcl-79fc377e16fe1fb9074418c7fa5a4e06b9da28f4.tar.bz2 | |
* generic/tclInt.decls, generic/tclInt.h, generic/tclIntDecls.h:
* generic/tclStubInit.c: TclFormatInt restored at slot 24
* generic/tclUtil.c (TclFormatInt): restore TclFormatInt func from
2005-07-05 macro-ization. Benchmarks indicate it is faster, as a
key int->string routine (e.g. int-indexed arrays).
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index ae4046d..4af7895 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -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: tclIntDecls.h,v 1.145 2010/11/28 23:20:11 kennykb Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.146 2010/11/30 18:17:26 hobbs Exp $ */ #ifndef _TCLINTDECLS @@ -109,7 +109,8 @@ EXTERN int TclFindElement(Tcl_Interp *interp, int *bracePtr); /* 23 */ EXTERN Proc * TclFindProc(Interp *iPtr, const char *procName); -/* Slot 24 is reserved */ +/* 24 */ +EXTERN int TclFormatInt(char *buffer, long n); /* 25 */ EXTERN void TclFreePackageInfo(Interp *iPtr); /* Slot 26 is reserved */ @@ -628,7 +629,7 @@ typedef struct TclIntStubs { void (*reserved21)(void); int (*tclFindElement) (Tcl_Interp *interp, const char *listStr, int listLength, const char **elementPtr, const char **nextPtr, int *sizePtr, int *bracePtr); /* 22 */ Proc * (*tclFindProc) (Interp *iPtr, const char *procName); /* 23 */ - void (*reserved24)(void); + int (*tclFormatInt) (char *buffer, long n); /* 24 */ void (*tclFreePackageInfo) (Interp *iPtr); /* 25 */ void (*reserved26)(void); void (*reserved27)(void); @@ -907,7 +908,8 @@ extern const TclIntStubs *tclIntStubsPtr; (tclIntStubsPtr->tclFindElement) /* 22 */ #define TclFindProc \ (tclIntStubsPtr->tclFindProc) /* 23 */ -/* Slot 24 is reserved */ +#define TclFormatInt \ + (tclIntStubsPtr->tclFormatInt) /* 24 */ #define TclFreePackageInfo \ (tclIntStubsPtr->tclFreePackageInfo) /* 25 */ /* Slot 26 is reserved */ |