Differences From Artifact [59595c26b7]:

• File unix/tclUnixCompat.c — part of check-in [9922ac54e8] at 2012-03-20 08:33:13 on branch core-8-4-branch — [Bug 3508771] load tclreg.dll in cygwin tclsh (user: jan.nijtmans size: 17430) [more...]

To Artifact [dc21806a50]:

• File unix/tclUnixCompat.c — part of check-in [ae92de6078] at 2012-04-24 20:21:16 on branch core-8-4-branch — [Bug 3508771] load tclreg.dll in cygwin tclsh Implement TclWinGetSockOpt, TclWinGetServByName and TclWinCPUID for Cygwin (user: jan.nijtmans size: 17532) [more...]

688
689
690
691
692
693
694
695
696





697
698
699
700
701
702
703

688
689
690
691
692
693
694


695
696
697
698
699
700
701
702
703
704
705
706

-
-
+
+
+
+
+

int
TclWinCPUID(
    unsigned int index,		/* Which CPUID value to retrieve. */
    unsigned int *regsPtr)	/* Registers after the CPUID. */
{
    int status = TCL_ERROR;

    /* There is no reason this couldn't be implemented on UNIX as well */
    return status;
#ifdef HAVE_CPUID
    __asm__ __volatile__ ("cpuid":\
    "=a" (regsPtr[0]), "=b" (regsPtr[1]), "=c" (regsPtr[2]), "=d" (regsPtr[3]) : "a" (index));
    status = TCL_OK;
#endif    return status;
}

/*
 * Local Variables:
 * mode: c
 * c-basic-offset: 4
 * fill-column: 78