diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-21 00:42:23 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-21 00:42:23 (GMT) |
| commit | afc237737b8031e888a9338f9040e0f523333db7 (patch) | |
| tree | 477ddcf89a92a87a57307ae1c34de2ca2872b9dc /generic/tclEncoding.c | |
| parent | cd9771b8aab086386e825426834217aa88184d68 (diff) | |
| download | tcl-afc237737b8031e888a9338f9040e0f523333db7.zip tcl-afc237737b8031e888a9338f9040e0f523333db7.tar.gz tcl-afc237737b8031e888a9338f9040e0f523333db7.tar.bz2 | |
converting to use TCL_STRLEN
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 9fb52d1..633d589 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -682,7 +682,7 @@ Tcl_SetDefaultEncodingDir( const char *path) { Tcl_Obj *searchPath = Tcl_GetEncodingSearchPath(); - Tcl_Obj *directory = Tcl_NewStringObj(path, -1); + Tcl_Obj *directory = Tcl_NewStringObj(path, TCL_STRLEN); searchPath = Tcl_DuplicateObj(searchPath); Tcl_ListObjReplace(NULL, searchPath, 0, 0, 1, &directory); @@ -881,7 +881,7 @@ Tcl_GetEncodingNames( Encoding *encodingPtr = Tcl_GetHashValue(hPtr); Tcl_CreateHashEntry(&table, - Tcl_NewStringObj(encodingPtr->name, -1), &dummy); + Tcl_NewStringObj(encodingPtr->name, TCL_STRLEN), &dummy); } Tcl_MutexUnlock(&encodingMutex); @@ -1425,7 +1425,7 @@ OpenEncodingFileChannel( const char *name) /* The name of the encoding file on disk and * also the name for new encoding. */ { - Tcl_Obj *nameObj = Tcl_NewStringObj(name, -1); + Tcl_Obj *nameObj = Tcl_NewStringObj(name, TCL_STRLEN); Tcl_Obj *fileNameObj = Tcl_DuplicateObj(nameObj); Tcl_Obj *searchPath = Tcl_DuplicateObj(Tcl_GetEncodingSearchPath()); Tcl_Obj *map = TclGetProcessGlobalValue(&encodingFileMap); @@ -1435,7 +1435,7 @@ OpenEncodingFileChannel( Tcl_ListObjGetElements(NULL, searchPath, &numDirs, &dir); Tcl_IncrRefCount(nameObj); - Tcl_AppendToObj(fileNameObj, ".enc", -1); + Tcl_AppendToObj(fileNameObj, ".enc", TCL_STRLEN); Tcl_IncrRefCount(fileNameObj); Tcl_DictObjGet(NULL, map, nameObj, &directory); |