summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-05-03 21:01:31 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-05-03 21:01:31 (GMT)
commit5eb15ad21fe5fc08b93ebb556b553af65f082ffc (patch)
treed23d5fe408d59615fc9282d5ed87f206a6a159d8
parentb9ecc426358d3737357f0460caee4eae5be61a3a (diff)
parent05859b921e7478bb5202dcc464028b7b25db7a43 (diff)
downloadtcl-5eb15ad21fe5fc08b93ebb556b553af65f082ffc.zip
tcl-5eb15ad21fe5fc08b93ebb556b553af65f082ffc.tar.gz
tcl-5eb15ad21fe5fc08b93ebb556b553af65f082ffc.tar.bz2
don't try to run the cpuid test when cpuid is not available
-rw-r--r--generic/tclTest.c6
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