diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-01-08 17:10:04 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-01-08 17:10:04 (GMT) |
| commit | f0d66495f83026a87fcb80d7841caab82fe1ec00 (patch) | |
| tree | 54502ca7849bfb1c410310a5f454813232edd1bd /generic/tclDictObj.c | |
| parent | 63dbcbbd884c7c69c4212ece1a54ea60eadf819c (diff) | |
| download | tcl-f0d66495f83026a87fcb80d7841caab82fe1ec00.zip tcl-f0d66495f83026a87fcb80d7841caab82fe1ec00.tar.gz tcl-f0d66495f83026a87fcb80d7841caab82fe1ec00.tar.bz2 | |
The Tcl*(Scan|Convert)*Element() routines only need chars, not ints, to
hold their flags. Reduce waste now that interface freedom permits it.
Diffstat (limited to 'generic/tclDictObj.c')
| -rw-r--r-- | generic/tclDictObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index 170e744..25124a1 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -488,7 +488,7 @@ UpdateStringOfDict( Tcl_Obj *dictPtr) { #define LOCAL_SIZE 20 - int localFlags[LOCAL_SIZE], *flagPtr = NULL; + char localFlags[LOCAL_SIZE], *flagPtr = NULL; Dict *dict = dictPtr->internalRep.otherValuePtr; ChainEntry *cPtr; Tcl_Obj *keyPtr, *valuePtr; @@ -520,7 +520,7 @@ UpdateStringOfDict( } else if (numElems > maxFlags) { Tcl_Panic("max size for a Tcl value (%d bytes) exceeded", INT_MAX); } else { - flagPtr = ckalloc(numElems * sizeof(int)); + flagPtr = ckalloc(numElems * sizeof(char)); } for (i=0,cPtr=dict->entryChainHead; i<numElems; i+=2,cPtr=cPtr->nextPtr) { /* |