diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-07-17 21:46:31 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-07-17 21:46:31 (GMT) |
| commit | 2499a9a19b5aa26e48c96894772e73d1c6ab849a (patch) | |
| tree | a409941d5fa5dfba73348fc04c580eb77557e3dd | |
| parent | c4d42a0b51819cf2b64177e9979a3085d0de613e (diff) | |
| download | tcl-2499a9a19b5aa26e48c96894772e73d1c6ab849a.zip tcl-2499a9a19b5aa26e48c96894772e73d1c6ab849a.tar.gz tcl-2499a9a19b5aa26e48c96894772e73d1c6ab849a.tar.bz2 | |
oops; how did I reorder those fields? :-(
| -rw-r--r-- | generic/tclCmdAH.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index a3a6279..e2e64e1 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdAH.c,v 1.64 2005/07/17 21:17:30 dkf Exp $ + * RCS: @(#) $Id: tclCmdAH.c,v 1.65 2005/07/17 21:46:31 dkf Exp $ */ #include "tclInt.h" @@ -1554,8 +1554,8 @@ StoreStatData(interp, varName, statPtr) * cast might fail when there isn't a real arithmentic 'long long' type... */ - STORE_ARY("ino", Tcl_NewWideIntObj((Tcl_WideInt)statPtr->st_ino)); STORE_ARY("dev", Tcl_NewLongObj((long)statPtr->st_dev)); + STORE_ARY("ino", Tcl_NewWideIntObj((Tcl_WideInt)statPtr->st_ino)); STORE_ARY("nlink", Tcl_NewLongObj((long)statPtr->st_nlink)); STORE_ARY("uid", Tcl_NewLongObj((long)statPtr->st_uid)); STORE_ARY("gid", Tcl_NewLongObj((long)statPtr->st_gid)); |