summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-03-14 12:30:44 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-03-14 12:30:44 (GMT)
commit08e4f14e0f32d64cd4cbb48601cccbaf525a272a (patch)
tree70ef17719443403ed14aa30905f3187fa8a14bb2
parente0b895874d5fa39f6d4134b407e930b80ee3ecd7 (diff)
downloadtk-08e4f14e0f32d64cd4cbb48601cccbaf525a272a.zip
tk-08e4f14e0f32d64cd4cbb48601cccbaf525a272a.tar.gz
tk-08e4f14e0f32d64cd4cbb48601cccbaf525a272a.tar.bz2
Eliminate some more unneeded write-only variables (discovered by gcc-4.6)
-rw-r--r--generic/tkBind.c5
-rw-r--r--generic/tkCanvUtil.c3
-rw-r--r--generic/tkFocus.c3
3 files changed, 3 insertions, 8 deletions
diff --git a/generic/tkBind.c b/generic/tkBind.c
index ec46650..e77667f 100644
--- a/generic/tkBind.c
+++ b/generic/tkBind.c
@@ -192,7 +192,7 @@ typedef struct {
typedef struct PatSeq {
int numPats; /* Number of patterns in sequence (usually
* 1). */
- char *script; /* Binding script to evaluate when sequence
+ char *script; /* Binding script to evaluate when sequence
* matches (ckalloc()ed) */
int flags; /* Miscellaneous flag values; see below for
* definitions. */
@@ -1223,7 +1223,7 @@ Tk_BindEvent(
TkDisplay *oldDispPtr;
XEvent *ringPtr;
PatSeq *vMatchDetailList, *vMatchNoDetailList;
- int flags, oldScreen, i;
+ int flags, oldScreen;
Tcl_Interp *interp;
Tcl_DString scripts, savedResult;
Detail detail;
@@ -1475,7 +1475,6 @@ Tk_BindEvent(
p = Tcl_DStringValue(&scripts);
end = p + Tcl_DStringLength(&scripts);
- i = 0;
/*
* Be carefule when dereferencing screenPtr or bindInfoPtr. If we evaluate
diff --git a/generic/tkCanvUtil.c b/generic/tkCanvUtil.c
index 964e2af..60f06c7 100644
--- a/generic/tkCanvUtil.c
+++ b/generic/tkCanvUtil.c
@@ -1639,8 +1639,6 @@ TkCanvTranslatePath(
double *a, *b, *t; /* Pointers to parts of the temporary
* storage */
int i, j; /* Loop counters */
- int maxOutput; /* Maximum number of outputs that we will
- * allow */
double limit[4]; /* Boundries at which clipping occurs */
double staticSpace[480]; /* Temp space from the stack */
@@ -1735,7 +1733,6 @@ TkCanvTranslatePath(
* This is the loop that makes the four passes through the data.
*/
- maxOutput = numVertex*3;
for (j=0; j<4; j++){
double xClip = limit[j];
int inside = a[0] < xClip;
diff --git a/generic/tkFocus.c b/generic/tkFocus.c
index 17482aa..0448dc9 100644
--- a/generic/tkFocus.c
+++ b/generic/tkFocus.c
@@ -1067,10 +1067,9 @@ TkFocusSplit(
* new toplevel. */
{
ToplevelFocusInfo *tlFocusPtr;
- DisplayFocusInfo *displayFocusPtr;
TkWindow *topLevelPtr, *subWinPtr;
- displayFocusPtr = FindDisplayFocusInfo(winPtr->mainPtr, winPtr->dispPtr);
+ FindDisplayFocusInfo(winPtr->mainPtr, winPtr->dispPtr);
/*
* Find the top-level window for winPtr, then find (or create) a record