diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-03-20 11:59:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2012-03-20 11:59:26 (GMT) |
| commit | bd7bc5dce8a32af97ef83d0065c8ac40def62096 (patch) | |
| tree | 4b361f848f41cccfec18563f8715ea3db04fe6da /unix/tclUnixCompat.c | |
| parent | e468d448f8e7bd5ecda4220d8bf89b17e4b6b8d7 (diff) | |
| parent | 43a731766a3838a4b4d8c899114ce9aefe67cb22 (diff) | |
| download | tcl-bd7bc5dce8a32af97ef83d0065c8ac40def62096.zip tcl-bd7bc5dce8a32af97ef83d0065c8ac40def62096.tar.gz tcl-bd7bc5dce8a32af97ef83d0065c8ac40def62096.tar.bz2 | |
[Bug 3508771] load tclreg.dll in cygwin tclsh
FossilOrigin-Name: 8f9c16848b62a6e6e63e22143be5c8c5f9a73ca1
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: + */ |