diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-10-15 14:58:54 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-10-15 14:58:54 (GMT) |
| commit | d57ed66242e3615fe0c3bb4e26d06f2a6a78a61d (patch) | |
| tree | dfb0025b2422c04eca23db8865aed1e21fcba36f /generic/tcl.h | |
| parent | 342928681741cf621d8fb12b1bb82782f3cf3755 (diff) | |
| download | tcl-d57ed66242e3615fe0c3bb4e26d06f2a6a78a61d.zip tcl-d57ed66242e3615fe0c3bb4e26d06f2a6a78a61d.tar.gz tcl-d57ed66242e3615fe0c3bb4e26d06f2a6a78a61d.tar.bz2 | |
Trying to do more with configure...
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 13ec175..335ad28 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.102.2.14 2001/10/15 13:57:17 dkf Exp $ + * RCS: @(#) $Id: tcl.h,v 1.102.2.15 2001/10/15 14:58:54 dkf Exp $ */ #ifndef _TCL @@ -377,22 +377,28 @@ typedef int *ClientData; * Naturally, support for [format]ting of wide values is dependent on * TCL_PRINTF_SUPPORTS_LL */ -#if defined(_LP64) || defined (__ALPHA) || defined(__alpha) || defined(_AIX) +#ifdef TCL_WIDE_INT_TYPE +typedef TCL_WIDE_INT_TYPE Tcl_WideInt; +#else +# ifndef TCL_WIDE_INT_IS_LONG +# if defined(_LP64)||defined(__ALPHA)||defined(__alpha)||defined(_AIX) /* * Longs are 64-bit (or the compiler doesn't know how to do anything * else) so use them in all appropriate spots. */ -typedef long Tcl_WideInt; -# define TCL_WIDE_INT_IS_LONG -#else -# ifdef __WIN32__ +# define TCL_WIDE_INT_IS_LONG +# else +# ifdef __WIN32__ typedef __int64 Tcl_WideInt; -# else +# else typedef long long Tcl_WideInt; -# endif -#endif /* _LP64 | __ALPHA | __alpha | _AIX */ +# endif /* __WIN32__ */ +# endif /* _LP64 | __ALPHA | __alpha | _AIX */ +# endif /* !TCL_WIDE_INT_IS_LONG */ +#endif /* TCL_WIDE_INT_TYPE */ #ifdef TCL_WIDE_INT_IS_LONG +typedef long Tcl_WideInt; typedef off_t Tcl_SeekOffset; typedef struct stat Tcl_StatBuf; typedef struct dirent Tcl_DirEntry; |