Tcl Source Code

Check-in [edab70f507]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:win: avoids warning by x64-build in function 'TclWinCPUID' - pointer targets in passing argument 1 of '__cpuid' differ in signedness [-Wpointer-sign] (int* vs unsigned int*)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: edab70f507548badf4ece10fd730db9f34bb2fa25d589f78c444d905e25c6941
User & Date: sebres 2018-07-20 15:58:56
Context
2018-07-21
18:45
Add a note in the 'clock' man page about the interpretation of impossible values on [clock scan] check-in: 8d69e2a5f2 user: kbk tags: core-8-6-branch
2018-07-20
16:25
merge 8.6 check-in: 33f2814604 user: sebres tags: sebres-8-6-clock-speedup-cr2
16:05
merge 8.6 check-in: 29189acca8 user: sebres tags: core-8-branch
15:58
win: avoids warning by x64-build in function 'TclWinCPUID' - pointer targets in passing argument 1 o... check-in: edab70f507 user: sebres tags: core-8-6-branch
15:54
win: fixes x64-build within gcc-compile runtime env for (mingw64, etc): "$do64bit" may be "amd64|x64... check-in: 298c8329c8 user: sebres tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to win/tclWin32Dll.c.

636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
    unsigned int index,		/* Which CPUID value to retrieve. */
    unsigned int *regsPtr)	/* Registers after the CPUID. */
{
    int status = TCL_ERROR;

#if defined(HAVE_INTRIN_H) && defined(_WIN64)

    __cpuid(regsPtr, index);
    status = TCL_OK;

#elif defined(__GNUC__)
#   if defined(_WIN64)
    /*
     * Execute the CPUID instruction with the given index, and store results
     * off 'regPtr'.






|







636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
    unsigned int index,		/* Which CPUID value to retrieve. */
    unsigned int *regsPtr)	/* Registers after the CPUID. */
{
    int status = TCL_ERROR;

#if defined(HAVE_INTRIN_H) && defined(_WIN64)

    __cpuid((int *)regsPtr, index);
    status = TCL_OK;

#elif defined(__GNUC__)
#   if defined(_WIN64)
    /*
     * Execute the CPUID instruction with the given index, and store results
     * off 'regPtr'.