summaryrefslogtreecommitdiffstats
path: root/generic/tcl.h
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2004-06-05 17:31:08 (GMT)
committerKevin B Kenny <kennykb@acm.org>2004-06-05 17:31:08 (GMT)
commiteab8709992e59240799ae71ebdd5b6e48bc9d5c0 (patch)
tree41f21e9ad830c0964087f8b4d6b564c1f631d6ca /generic/tcl.h
parent9baeae995f31e23bd116f478c93131015e25e069 (diff)
downloadtcl-eab8709992e59240799ae71ebdd5b6e48bc9d5c0.zip
tcl-eab8709992e59240799ae71ebdd5b6e48bc9d5c0.tar.gz
tcl-eab8709992e59240799ae71ebdd5b6e48bc9d5c0.tar.bz2
* generic/tcl.h: Corrected Tcl_WideInt declarations so that the mingw
build works again. * generic/tclDecls.h: Changes to the tests for * generic/tclInt.decls: clock frequency in * generic/tclIntDecls.h: Tcl_WinTime * generic/tclIntPlatDecls.h: so that any clock frequency * generic/tclPlatDecls.h: is accepted provided that * generic/tclStubInit.c: all CPU's in the system share * tests/platform.test (platform-1.3): a common chip, and hence, * win/tclWin32Dll.c (TclWinCPUID): presumably, a common clock. * win/tclWinTest.c (TestwincpuidCmd) This change necessitated a * win/tclWinTime.c (Tcl_GetTime): small burst of assembly code to read CPU ID information, which was added as TclWinCPUID in the internal Stubs. To test this code in the common case of a single-processor machine, a 'testwincpuid' command was added to tclWinTest.c, and a test case in platform.test. Thanks to Jeff Godfrey and Richard Suchenwirth for reporting this bug. [Bug #976722]
Diffstat (limited to 'generic/tcl.h')
-rw-r--r--generic/tcl.h13
1 files changed, 9 insertions, 4 deletions
diff --git a/generic/tcl.h b/generic/tcl.h
index ccbb453..26ec95b 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -13,7 +13,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.180 2004/06/04 20:17:10 dgp Exp $
+ * RCS: @(#) $Id: tcl.h,v 1.181 2004/06/05 17:31:08 kennykb Exp $
*/
#ifndef _TCL
@@ -341,11 +341,16 @@ typedef long LONG;
*/
#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG)
-# if defined(__CYGWIN__)
+# if defined(__GNUC__)
# define TCL_WIDE_INT_TYPE long long
-# define TCL_LL_MODIFIER "L"
+# if defined(__WIN32__) && !defined(__CYGWIN__)
+# define TCL_LL_MODIFIER "I64"
+# define TCL_LL_MODIFIER_SIZE 3
+# else
+# define TCL_LL_MODIFIER "L"
+# define TCL_LL_MODIFIER_SIZE 1
+# endif
typedef struct stat Tcl_StatBuf;
-# define TCL_LL_MODIFIER_SIZE 1
# elif defined(__WIN32__)
# define TCL_WIDE_INT_TYPE __int64
# ifdef __BORLANDC__