summaryrefslogtreecommitdiffstats
path: root/unix/tkUnixEvent.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-05-03 22:15:59 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-05-03 22:15:59 (GMT)
commite61b61a3f03fc95c9f9c7271fb705df4e84f31e0 (patch)
treef9f6ecc37d850900d1d406840508d7f3f77e910d /unix/tkUnixEvent.c
parent1d327cff35030c574230508e600a5f587b64b321 (diff)
downloadtk-e61b61a3f03fc95c9f9c7271fb705df4e84f31e0.zip
tk-e61b61a3f03fc95c9f9c7271fb705df4e84f31e0.tar.gz
tk-e61b61a3f03fc95c9f9c7271fb705df4e84f31e0.tar.bz2
Fix more type pun warnings (those not found by my local version of GCC)
Diffstat (limited to 'unix/tkUnixEvent.c')
-rw-r--r--unix/tkUnixEvent.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/unix/tkUnixEvent.c b/unix/tkUnixEvent.c
index 46caeb3..dde8432 100644
--- a/unix/tkUnixEvent.c
+++ b/unix/tkUnixEvent.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkUnixEvent.c,v 1.23 2007/01/12 09:08:36 dkf Exp $
+ * RCS: @(#) $Id: tkUnixEvent.c,v 1.24 2007/05/03 22:16:00 dkf Exp $
*/
#include "tkInt.h"
@@ -480,7 +480,7 @@ TkUnixDoOneXEvent(
struct timeval blockTime, *timeoutPtr;
Tcl_Time now;
int fd, index, numFound, numFdBits = 0;
- fd_mask bit;
+ fd_mask bit, *readMaskPtr = readMask;
/*
* Look for queued events first.
@@ -537,7 +537,7 @@ TkUnixDoOneXEvent(
}
}
- numFound = select(numFdBits, (SELECT_MASK *) readMask, NULL, NULL,
+ numFound = select(numFdBits, (SELECT_MASK *) readMaskPtr, NULL, NULL,
timeoutPtr);
if (numFound <= 0) {
/*