diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-12 10:33:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-12 10:33:45 (GMT) |
| commit | fa55caf92ab61f36a76de13fb7d7bd1f4f05e3e1 (patch) | |
| tree | 4b1a657611ba230abb50ae17ad81de1827cc7045 /generic/tclEncoding.c | |
| parent | 01d4153b74001109b7070ca0c59637c518ae86b2 (diff) | |
| parent | 53fc9a5a6e89fcd4c900863e5d6e083f46cc10c9 (diff) | |
| download | tcl-fa55caf92ab61f36a76de13fb7d7bd1f4f05e3e1.zip tcl-fa55caf92ab61f36a76de13fb7d7bd1f4f05e3e1.tar.gz tcl-fa55caf92ab61f36a76de13fb7d7bd1f4f05e3e1.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index d8767e2..ab8b466 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -469,12 +469,13 @@ FillEncodingFileMap(void) */ int j, numFiles; - Tcl_Obj *directory, *matchFileList = Tcl_NewObj(); + Tcl_Obj *directory, *matchFileList; Tcl_Obj **filev; Tcl_GlobTypeData readableFiles = { TCL_GLOB_TYPE_FILE, TCL_GLOB_PERM_R, NULL, NULL }; + TclNewObj(matchFileList); Tcl_ListObjIndex(NULL, searchPath, i, &directory); Tcl_IncrRefCount(directory); Tcl_IncrRefCount(matchFileList); @@ -851,10 +852,11 @@ Tcl_GetEncodingNames( Tcl_HashTable table; Tcl_HashSearch search; Tcl_HashEntry *hPtr; - Tcl_Obj *map, *name, *result = Tcl_NewObj(); + Tcl_Obj *map, *name, *result; Tcl_DictSearch mapSearch; int dummy, done = 0; + TclNewObj(result); Tcl_InitObjHashTable(&table); /* |