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 | d0b8e4f72b7ad744867e47ea0f8692bfe8a7380e (patch) | |
tree | 4b361f848f41cccfec18563f8715ea3db04fe6da /unix/tclUnixCompat.c | |
parent | 26c21e5829f4d4f719de1c6820fef46981a5c97e (diff) | |
parent | 4c9088a0ebb91cda9c88ecf4d02f38c35f1ab962 (diff) | |
download | tcl-d0b8e4f72b7ad744867e47ea0f8692bfe8a7380e.zip tcl-d0b8e4f72b7ad744867e47ea0f8692bfe8a7380e.tar.gz tcl-d0b8e4f72b7ad744867e47ea0f8692bfe8a7380e.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: + */ |