* 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]

1 files changed, 20 insertions, 0 deletions

diff --git a/tests/platform.test b/tests/platform.test
index 19001ee..f9d7aca 100644
--- a/tests/platform.test
+++ b/tests/platform.test
@@ -16,6 +16,8 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
     namespace import -force ::tcltest::*
 }
 
+testConstraint testWinCPUID [llength [info commands testwincpuid]]
+
 test platform-1.1 {TclpSetVariables: tcl_platform} {
     interp create i
     i eval {catch {unset tcl_platform(debug)}}
@@ -36,6 +38,24 @@ test platform-2.1 {tcl_platform(wordSize) indicates size of native word} {
     list [expr {$result < 0}] [expr {$result ^ ($result - 1)}]
 } {1 -1}
 
+# On Windows, test that the CPU ID works
+
+test platform-3.1 {CPU ID on Windows } \
+    -constraints testWinCPUID \
+    -body {		
+	set cpudata [testwincpuid 0]
+	binary format iii \
+	    [lindex $cpudata 1] \
+	    [lindex $cpudata 3] \
+	    [lindex $cpudata 2] 
+    } \
+    -match regexp \
+    -result {^(?:AuthenticAMD|CentaurHauls|CyrixInstead|GenuineIntel)$}
+
 # cleanup
 ::tcltest::cleanupTests
 return
+
+# Local Variables:
+# mode: tcl
+# End: