diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-11 14:53:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-11 14:53:58 (GMT) |
| commit | 5ce60a33287e4745db2567abbed8ae8cc909b8c2 (patch) | |
| tree | 7d8d3c9e568859c0045a232ba779e021ecaf985a /generic/tclTest.c | |
| parent | 701334ed37accb494de29076c4810d8d808a2ef7 (diff) | |
| download | tcl-5ce60a33287e4745db2567abbed8ae8cc909b8c2.zip tcl-5ce60a33287e4745db2567abbed8ae8cc909b8c2.tar.gz tcl-5ce60a33287e4745db2567abbed8ae8cc909b8c2.tar.bz2 | |
Fix harmless gcc warning message: using "unsigned" doesn't serve any purpose, actually.
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 47d85e1..e30c4d0 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -6751,7 +6751,7 @@ TestcpuidCmd( Tcl_Obj *const * objv) /* Parameter vector */ { int status, index, i; - unsigned int regs[4]; + int regs[4]; Tcl_Obj *regsObjs[4]; if (objc != 2) { @@ -6761,14 +6761,14 @@ TestcpuidCmd( if (Tcl_GetIntFromObj(interp, objv[1], &index) != TCL_OK) { return TCL_ERROR; } - status = TclWinCPUID((unsigned) index, regs); + status = TclWinCPUID(index, regs); if (status != TCL_OK) { Tcl_SetObjResult(interp, Tcl_NewStringObj("operation not available", -1)); return status; } for (i=0 ; i<4 ; ++i) { - regsObjs[i] = Tcl_NewIntObj((int) regs[i]); + regsObjs[i] = Tcl_NewIntObj(regs[i]); } Tcl_SetObjResult(interp, Tcl_NewListObj(4, regsObjs)); return TCL_OK; |