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

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;
}

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

|
>
>
>
|

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;

#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