13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
*
* Copyright (c) 1991-1994 The Regents of the University of California.
* Copyright (c) 1994-1997 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclIOUtil.c,v 1.20.6.7 2001/11/26 23:10:30 dkf Exp $
*/
#include "tclInt.h"
#include "tclPort.h"
/*
* Prototypes for procedures defined later in this file. The last
|
|
|
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
*
* Copyright (c) 1991-1994 The Regents of the University of California.
* Copyright (c) 1994-1997 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclIOUtil.c,v 1.20.6.8 2001/11/27 09:48:25 dkf Exp $
*/
#include "tclInt.h"
#include "tclPort.h"
/*
* Prototypes for procedures defined later in this file. The last
|
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
if (OUT_OF_URANGE(buf.st_ino) || OUT_OF_RANGE(buf.st_size)
|| OUT_OF_RANGE(buf.st_blocks)) {
errno = EOVERFLOW;
return -1;
}
# undef OUT_OF_RANGE
#endif /* !TCL_WIDE_INT_IS_LONG */
/*
* Copy across all supported fields, with possible type
* coercions on those fields that change between the normal
* and lf64 versions of the stat structure (on Solaris at
* least.) This is slow when the structure sizes coincide,
|
>
|
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
if (OUT_OF_URANGE(buf.st_ino) || OUT_OF_RANGE(buf.st_size)
|| OUT_OF_RANGE(buf.st_blocks)) {
errno = EOVERFLOW;
return -1;
}
# undef OUT_OF_RANGE
# undef OUT_OF_URANGE
#endif /* !TCL_WIDE_INT_IS_LONG */
/*
* Copy across all supported fields, with possible type
* coercions on those fields that change between the normal
* and lf64 versions of the stat structure (on Solaris at
* least.) This is slow when the structure sizes coincide,
|