diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-26 13:19:43 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-26 13:19:43 (GMT) |
| commit | b2214142f4719ab73e4979553e03e6daf1ad4508 (patch) | |
| tree | 7f001c238f93c5f63e92ad456786dc0f89e6b425 /win/tclWinChan.c | |
| parent | f2ff6304e87498f35a1563e1d8903cf005fa677b (diff) | |
| parent | 1c8e57af313b8a648e803d05a8563cb16c1beec7 (diff) | |
| download | tcl-b2214142f4719ab73e4979553e03e6daf1ad4508.zip tcl-b2214142f4719ab73e4979553e03e6daf1ad4508.tar.gz tcl-b2214142f4719ab73e4979553e03e6daf1ad4508.tar.bz2 | |
merge 8.6
Diffstat (limited to 'win/tclWinChan.c')
| -rw-r--r-- | win/tclWinChan.c | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/win/tclWinChan.c b/win/tclWinChan.c index 6ce0735..7334f1b 100644 --- a/win/tclWinChan.c +++ b/win/tclWinChan.c @@ -902,21 +902,6 @@ CombineDwords( return converter.QuadPart; } -static inline void -StoreElementInDict( - Tcl_Obj *dictObj, - const char *name, - Tcl_Obj *valueObj) -{ - /* - * We assume that the dict is being built fresh and that there's never any - * duplicate keys. - */ - - Tcl_Obj *nameObj = Tcl_NewStringObj(name, TCL_INDEX_NONE); - Tcl_DictObjPut(NULL, dictObj, nameObj, valueObj); -} - static inline time_t ToCTime( FILETIME fileTime) /* UTC time */ @@ -979,7 +964,7 @@ StatOpenFile( */ TclNewObj(dictObj); -#define STORE_ELEM(name, value) StoreElementInDict(dictObj, name, value) +#define STORE_ELEM(name, value) TclDictPut(NULL, dictObj, name, value) STORE_ELEM("dev", Tcl_NewWideIntObj((long) dev)); STORE_ELEM("ino", Tcl_NewWideIntObj((long long) inode)); |