diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:25:45 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:25:45 (GMT) |
| commit | 251c15c11767bc6e33809b3f13eabc1771a0ba85 (patch) | |
| tree | 5b76ecfab9971affc8fb3853ba7d359c62366314 /generic | |
| parent | eccfe47689dda049eadecf74e70346d13a6126e1 (diff) | |
| download | tcl-251c15c11767bc6e33809b3f13eabc1771a0ba85.zip tcl-251c15c11767bc6e33809b3f13eabc1771a0ba85.tar.gz tcl-251c15c11767bc6e33809b3f13eabc1771a0ba85.tar.bz2 | |
resolved some warnings / fixed unix resp. x64 compilation
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclEvent.c | 1 | ||||
| -rw-r--r-- | generic/tclNotify.c | 2 | ||||
| -rw-r--r-- | generic/tclTimer.c | 8 |
3 files changed, 5 insertions, 6 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 1a5b9d5..186b8ae 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -1562,7 +1562,6 @@ Tcl_UpdateObjCmd( /* if arguments available - wrap options to flags */ if (objc > 1) { - int i = 1; if (GetEventFlagsFromOpts(interp, objc-1, objv+1, &flags) != TCL_OK) { return TCL_ERROR; } diff --git a/generic/tclNotify.c b/generic/tclNotify.c index 3c4e4de..6e67ed9 100644 --- a/generic/tclNotify.c +++ b/generic/tclNotify.c @@ -1014,7 +1014,7 @@ Tcl_DoOneEvent( * TCL_TIMER_EVENTS, TCL_IDLE_EVENTS, or * others defined by event sources. */ { - int result = 0, oldMode, i = 0; + int result = 0, oldMode; EventSource *sourcePtr; Tcl_Time *timePtr; ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey); 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; } |