diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-26 14:09:38 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-26 14:09:38 (GMT) |
| commit | ee407b9bf60dbb8dac81770bcc01422decf03c2b (patch) | |
| tree | d061081fc6918174fe2cb762c0d00bec4a78584d /unix/tclUnixChan.c | |
| parent | bac8bdb8bb12e32bbec2724e1ce04959ce13bb8f (diff) | |
| parent | b2214142f4719ab73e4979553e03e6daf1ad4508 (diff) | |
| download | tcl-ee407b9bf60dbb8dac81770bcc01422decf03c2b.zip tcl-ee407b9bf60dbb8dac81770bcc01422decf03c2b.tar.gz tcl-ee407b9bf60dbb8dac81770bcc01422decf03c2b.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'unix/tclUnixChan.c')
| -rw-r--r-- | unix/tclUnixChan.c | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index 3f972ae..edb1edb 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.c @@ -567,21 +567,6 @@ FileGetHandleProc( *---------------------------------------------------------------------- */ -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, -1); - Tcl_DictObjPut(NULL, dictObj, nameObj, valueObj); -} - static inline const char * GetTypeFromMode( int mode) @@ -631,7 +616,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) statBuf.st_dev)); STORE_ELEM("ino", Tcl_NewWideIntObj((Tcl_WideInt) statBuf.st_ino)); |