diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-03-20 11:59:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-03-20 11:59:26 (GMT) |
| commit | cc0dacf5bd3ad288d41dd1d53e2e31c651c4ad53 (patch) | |
| tree | 4b361f848f41cccfec18563f8715ea3db04fe6da /unix/tclUnixCompat.c | |
| parent | 3a328819334df817532b410dffcf00fab3840851 (diff) | |
| parent | be655860e9e94d14a354128098bfd22c7f9d7412 (diff) | |
| download | tcl-cc0dacf5bd3ad288d41dd1d53e2e31c651c4ad53.zip tcl-cc0dacf5bd3ad288d41dd1d53e2e31c651c4ad53.tar.gz tcl-cc0dacf5bd3ad288d41dd1d53e2e31c651c4ad53.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: + */ |