summaryrefslogtreecommitdiffstats
path: root/generic/tclTimer.c
diff options
context:
space:
mode:
authorsebres <sebres@users.sourceforge.net>2017-07-03 13:25:45 (GMT)
committersebres <sebres@users.sourceforge.net>2017-07-03 13:25:45 (GMT)
commit251c15c11767bc6e33809b3f13eabc1771a0ba85 (patch)
tree5b76ecfab9971affc8fb3853ba7d359c62366314 /generic/tclTimer.c
parenteccfe47689dda049eadecf74e70346d13a6126e1 (diff)
downloadtcl-251c15c11767bc6e33809b3f13eabc1771a0ba85.zip
tcl-251c15c11767bc6e33809b3f13eabc1771a0ba85.tar.gz
tcl-251c15c11767bc6e33809b3f13eabc1771a0ba85.tar.bz2
resolved some warnings / fixed unix resp. x64 compilation
Diffstat (limited to 'generic/tclTimer.c')
-rw-r--r--generic/tclTimer.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclTimer.c b/generic/tclTimer.c
index c135ffb..4d26742 100644
--- a/generic/tclTimer.c
+++ b/generic/tclTimer.c
@@ -25,7 +25,7 @@ typedef struct AfterInfo {
* executed. */
Tcl_Obj *commandPtr; /* Command to execute. */
Tcl_Obj *selfPtr; /* Points to the handle object (self) */
- size_t id; /* Integer identifier for command */
+ unsigned int id; /* Integer identifier for command */
struct AfterInfo *nextPtr; /* Next in list of all "after" commands for
* this interpreter. */
struct AfterInfo *prevPtr; /* Prev in list of all "after" commands for
@@ -77,7 +77,7 @@ typedef struct {
* a new loop, so that all old handlers can be
* called without calling any of the new ones
* created by old ones. */
- size_t afterId; /* For unique identifiers of after events. */
+ unsigned int afterId; /* For unique identifiers of after events. */
} ThreadSpecificData;
static Tcl_ThreadDataKey dataKey;
@@ -203,7 +203,7 @@ AfterObj_UpdateString(objPtr)
return;
}
- len = sprintf(buf, "after#%d", afterPtr->id);
+ len = sprintf(buf, "after#%u", afterPtr->id);
objPtr->length = len;
objPtr->bytes = ckalloc((size_t)++len);
@@ -691,7 +691,7 @@ TimerCheckProc(
/*
* If the first timer has expired, stick an event on the queue.
*/
- if (blockTime.sec < 0 || blockTime.sec == 0 && blockTime.usec <= 0) {
+ if (blockTime.sec < 0 || (blockTime.sec == 0 && blockTime.usec <= 0)) {
TclSetTimerEventMarker(0);
tsdPtr->timerPending = 1;
}