diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-03-28 14:28:33 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-03-28 14:28:33 (GMT) |
| commit | 76563dda56abb106348d5a427414bba1c48749b1 (patch) | |
| tree | c5d2730e1d082ec692d5c0e67edd4651f6cc0bad /unix/tclUnixCompat.c | |
| parent | 302c3293277b3c467dca57c60167a40ce6ee2cae (diff) | |
| parent | 1251bcbcc6272da5c31c077c03ce238cfde19844 (diff) | |
| download | tcl-76563dda56abb106348d5a427414bba1c48749b1.zip tcl-76563dda56abb106348d5a427414bba1c48749b1.tar.gz tcl-76563dda56abb106348d5a427414bba1c48749b1.tar.bz2 | |
merge trunk
Diffstat (limited to 'unix/tclUnixCompat.c')
| -rw-r--r-- | unix/tclUnixCompat.c | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/unix/tclUnixCompat.c b/unix/tclUnixCompat.c index 456a552..48ba4d3 100644 --- a/unix/tclUnixCompat.c +++ b/unix/tclUnixCompat.c @@ -964,3 +964,40 @@ CopyString( * fill-column: 78 * End: */ + +/* + *------------------------------------------------------------------------ + * + * TclWinCPUID -- + * + * Get CPU ID information on an Intel box under UNIX (either Linux or Cygwin) + * + * Results: + * Returns TCL_OK if successful, TCL_ERROR if CPUID is not supported or + * fails. + * + * Side effects: + * If successful, stores EAX, EBX, ECX and EDX registers after the CPUID + * instruction in the four integers designated by 'regsPtr' + * + *---------------------------------------------------------------------- + */ + +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 + * End: + */ |