diff options
| -rw-r--r-- | generic/tclTest.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 4a9f85f..ab0c6cb 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -444,9 +444,11 @@ static int TestNumUtfCharsCmd(ClientData clientData, static int TestHashSystemHashCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); +#if defined(HAVE_CPUID) || defined(__WIN32__) static int TestcpuidCmd (ClientData dummy, Tcl_Interp* interp, int objc, Tcl_Obj *CONST objv[]); +#endif static Tcl_Filesystem testReportingFilesystem = { "reporting", @@ -710,8 +712,10 @@ Tcltest_Init( (ClientData) NULL, NULL); Tcl_CreateCommand(interp, "testexitmainloop", TestexitmainloopCmd, (ClientData) NULL, NULL); +#if defined(HAVE_CPUID) || defined(__WIN32__) Tcl_CreateObjCommand(interp, "testcpuid", TestcpuidCmd, (ClientData) 0, NULL); +#endif t3ArgTypes[0] = TCL_EITHER; t3ArgTypes[1] = TCL_EITHER; Tcl_CreateMathFunc(interp, "T3", 2, t3ArgTypes, TestMathFunc2, @@ -7109,6 +7113,7 @@ TestNumUtfCharsCmd( return TCL_OK; } +#if defined(HAVE_CPUID) || defined(__WIN32__) /* *---------------------------------------------------------------------- * @@ -7162,6 +7167,7 @@ TestcpuidCmd( Tcl_SetObjResult(interp, Tcl_NewListObj(4, regsObjs)); return TCL_OK; } +#endif /* * Used to do basic checks of the TCL_HASH_KEY_SYSTEM_HASH flag |