Import Tcl 8.6.11
This commit is contained in:
@@ -519,9 +519,9 @@ NativeGetMicroseconds(void)
|
||||
|
||||
GetSystemInfo(&systemInfo);
|
||||
if (TclWinCPUID(0, regs) == TCL_OK
|
||||
&& regs[1] == 0x756e6547 /* "Genu" */
|
||||
&& regs[3] == 0x49656e69 /* "ineI" */
|
||||
&& regs[2] == 0x6c65746e /* "ntel" */
|
||||
&& regs[1] == 0x756E6547 /* "Genu" */
|
||||
&& regs[3] == 0x49656E69 /* "ineI" */
|
||||
&& regs[2] == 0x6C65746E /* "ntel" */
|
||||
&& TclWinCPUID(1, regs) == TCL_OK
|
||||
&& ((regs[0]&0x00000F00) == 0x00000F00 /* Pentium 4 */
|
||||
|| ((regs[0] & 0x00F00000) /* Extended family */
|
||||
@@ -1358,7 +1358,7 @@ TclpGmtime(
|
||||
#if defined(_WIN64) || defined(_USE_64BIT_TIME_T) || (defined(_MSC_VER) && _MSC_VER < 1400)
|
||||
return gmtime(timePtr);
|
||||
#else
|
||||
return _gmtime32((CONST __time32_t *)timePtr);
|
||||
return _gmtime32((const __time32_t *)timePtr);
|
||||
#endif
|
||||
}
|
||||
|
||||
@@ -1393,7 +1393,7 @@ TclpLocaltime(
|
||||
#if defined(_WIN64) || defined(_USE_64BIT_TIME_T) || (defined(_MSC_VER) && _MSC_VER < 1400)
|
||||
return localtime(timePtr);
|
||||
#else
|
||||
return _localtime32((CONST __time32_t *)timePtr);
|
||||
return _localtime32((const __time32_t *)timePtr);
|
||||
#endif
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user