diff options
Diffstat (limited to 'tools/tsdPerf.c')
-rw-r--r-- | tools/tsdPerf.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tools/tsdPerf.c b/tools/tsdPerf.c index a6a84df..9399b3b 100644 --- a/tools/tsdPerf.c +++ b/tools/tsdPerf.c @@ -3,7 +3,7 @@ static Tcl_ThreadDataKey key; typedef struct { - int value; + int value; } TsdPerf; @@ -20,16 +20,16 @@ tsdPerfSetObjCmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const if (TCL_OK != Tcl_GetIntFromObj(interp, objv[1], &i)) { return TCL_ERROR; } - + perf->value = i; - + return TCL_OK; } int tsdPerfGetObjCmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv) { TsdPerf *perf = Tcl_GetThreadData(&key, sizeof(TsdPerf)); - + Tcl_SetObjResult(interp, Tcl_NewIntObj(perf->value)); return TCL_OK; @@ -41,7 +41,7 @@ Tsdperf_Init (Tcl_Interp *interp) { if (NULL == Tcl_InitStubs(interp, TCL_VERSION, 0)) { return TCL_ERROR; } - + Tcl_CreateObjCommand(interp, "tsdPerfSet", tsdPerfSetObjCmd, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); |