summaryrefslogtreecommitdiffstats
path: root/generic/tclClock.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2022-11-21 23:58:15 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2022-11-21 23:58:15 (GMT)
commit62077a6bd15376a91a4390646dc5c28448aa367e (patch)
treeba795acd3cf49f1f7fac05e4de275557f5f21841 /generic/tclClock.c
parentc1e4942181ef1b8b60b89bfe5983b410080cd477 (diff)
parent2f3087ea8f42ed192da6b35b4cd230cb74f0fd6a (diff)
downloadtcl-62077a6bd15376a91a4390646dc5c28448aa367e.zip
tcl-62077a6bd15376a91a4390646dc5c28448aa367e.tar.gz
tcl-62077a6bd15376a91a4390646dc5c28448aa367e.tar.bz2
Rebase to 8.7
Diffstat (limited to 'generic/tclClock.c')
-rw-r--r--generic/tclClock.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c
index a9ba70c..d64348e 100644
--- a/generic/tclClock.c
+++ b/generic/tclClock.c
@@ -1810,7 +1810,7 @@ ClockMillisecondsObjCmd(
return TCL_ERROR;
}
Tcl_GetTime(&now);
- Tcl_SetObjResult(interp, Tcl_NewWideIntObj((Tcl_WideInt)
+ Tcl_SetObjResult(interp, Tcl_NewWideUIntObj((Tcl_WideUInt)
now.sec * 1000 + now.usec / 1000));
return TCL_OK;
}
@@ -1998,7 +1998,7 @@ ClockSecondsObjCmd(
return TCL_ERROR;
}
Tcl_GetTime(&now);
- Tcl_SetObjResult(interp, Tcl_NewWideIntObj((Tcl_WideInt) now.sec));
+ Tcl_SetObjResult(interp, Tcl_NewWideUIntObj(now.sec));
return TCL_OK;
}