diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-03-20 11:59:26 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-03-20 11:59:26 (GMT) |
| commit | 8f7fdfda56a78fff470f4a3b608a022f82dd01c2 (patch) | |
| tree | 4b361f848f41cccfec18563f8715ea3db04fe6da /unix/tclUnixCompat.c | |
| parent | 388f25e6baa8aa8917ff60053aa7f2735e83c7b6 (diff) | |
| parent | 723b774c3476443b75d7452687215d8be6e1b6d1 (diff) | |
| download | tcl-8f7fdfda56a78fff470f4a3b608a022f82dd01c2.zip tcl-8f7fdfda56a78fff470f4a3b608a022f82dd01c2.tar.gz tcl-8f7fdfda56a78fff470f4a3b608a022f82dd01c2.tar.bz2 | |
[Bug 3508771] load tclreg.dll in cygwin tclsh
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: + */ |