Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | new version of cpuid, which doesn't use the edi register any more. Hopefully that works better on some Darwin. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
08080f56f1d25086e47a824d1379cb68 |
| User & Date: | jan.nijtmans 2013-01-24 22:02:30 |
Context
|
2013-01-25
| ||
| 11:48 | Eliminate some unneeded usages of Tcl_SetResult, Tcl_AddObjErrorInfo Fix "make test-packages" on cyg... check-in: 12d1dbc8af user: jan.nijtmans tags: trunk | |
| 09:12 | Merge trunk Rename TclInitStubs back to Tcl_InitStubs, for easier compatibility with Tcl 8. check-in: f2fa121e89 user: jan.nijtmans tags: novem | |
|
2013-01-24
| ||
| 22:02 | new version of cpuid, which doesn't use the edi register any more. Hopefully that works better on so... check-in: 08080f56f1 user: jan.nijtmans tags: trunk | |
| 22:01 | new version of cpuid, which doesn't use the edi register any more. Hopefully that works better on so... check-in: 8750be345c user: jan.nijtmans tags: core-8-5-branch | |
| 21:31 | revert [8e83219e38]: it doesn't work on i386 check-in: 16e86f8613 user: jan.nijtmans tags: trunk | |
Changes
Changes to unix/tclUnixCompat.c.
| ︙ | ︙ | |||
991 992 993 994 995 996 997 |
unsigned int index, /* Which CPUID value to retrieve. */
unsigned int *regsPtr) /* Registers after the CPUID. */
{
int status = TCL_ERROR;
/* See: <http://en.wikipedia.org/wiki/CPUID> */
#if defined(HAVE_CPUID)
| | < | | | 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 |
unsigned int index, /* Which CPUID value to retrieve. */
unsigned int *regsPtr) /* Registers after the CPUID. */
{
int status = TCL_ERROR;
/* See: <http://en.wikipedia.org/wiki/CPUID> */
#if defined(HAVE_CPUID)
__asm__ __volatile__("mov %%ebx, %%esi \n\t" /* save %ebx */
"cpuid \n\t"
"xchg %%esi, %%ebx \n\t" /* restore the old %ebx */
: "=a"(regsPtr[0]), "=S"(regsPtr[1]), "=c"(regsPtr[2]), "=d"(regsPtr[3])
: "a"(index));
status = TCL_OK;
#endif
return status;
}
/*
* Local Variables:
|
| ︙ | ︙ |