diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-12 20:14:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-12 20:14:19 (GMT) |
| commit | 12859211484cfae1ab06fb9e00aebecfeca9ec1e (patch) | |
| tree | ae1b6847b057013742e00de29e2562fb8461530b /tools/tsdPerf.c | |
| parent | c60e1a679dc096b076279e0ef80a82fe41223a51 (diff) | |
| parent | 1961633531b70d5a6e627f86153f4d15e722ea8b (diff) | |
| download | tcl-12859211484cfae1ab06fb9e00aebecfeca9ec1e.zip tcl-12859211484cfae1ab06fb9e00aebecfeca9ec1e.tar.gz tcl-12859211484cfae1ab06fb9e00aebecfeca9ec1e.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tools/tsdPerf.c')
| -rw-r--r-- | tools/tsdPerf.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tools/tsdPerf.c b/tools/tsdPerf.c index a75e962..7a599e0 100644 --- a/tools/tsdPerf.c +++ b/tools/tsdPerf.c @@ -5,21 +5,21 @@ extern DLLEXPORT Tcl_PackageInitProc Tsdperf_Init; static Tcl_ThreadDataKey key; typedef struct { - int value; + Tcl_WideInt value; } TsdPerf; static int tsdPerfSetObjCmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv) { TsdPerf *perf = Tcl_GetThreadData(&key, sizeof(TsdPerf)); - int i; + Tcl_WideInt i; if (2 != objc) { Tcl_WrongNumArgs(interp, 1, objv, "value"); return TCL_ERROR; } - if (TCL_OK != Tcl_GetIntFromObj(interp, objv[1], &i)) { + if (TCL_OK != Tcl_GetWideIntFromObj(interp, objv[1], &i)) { return TCL_ERROR; } @@ -33,7 +33,7 @@ tsdPerfGetObjCmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const TsdPerf *perf = Tcl_GetThreadData(&key, sizeof(TsdPerf)); - Tcl_SetObjResult(interp, Tcl_NewIntObj(perf->value)); + Tcl_SetObjResult(interp, Tcl_NewWideIntObj(perf->value)); return TCL_OK; } |