summaryrefslogtreecommitdiffstats
path: root/unix/tkUnixSend.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/tkUnixSend.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/tkUnixSend.c')
-rw-r--r--unix/tkUnixSend.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/unix/tkUnixSend.c b/unix/tkUnixSend.c
index b348ab8..7f038b7 100644
--- a/unix/tkUnixSend.c
+++ b/unix/tkUnixSend.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkUnixSend.c,v 1.17 2007/05/03 15:21:32 dkf Exp $
+ * RCS: @(#) $Id: tkUnixSend.c,v 1.18 2007/05/03 22:16:00 dkf Exp $
*/
#include "tkPort.h"
@@ -265,6 +265,7 @@ RegOpen(
int result, actualFormat;
unsigned long bytesAfter;
Atom actualType;
+ char **propertyPtr;
if (dispPtr->commTkwin == NULL) {
SendInit(interp, dispPtr);
@@ -275,6 +276,7 @@ RegOpen(
regPtr->locked = 0;
regPtr->modified = 0;
regPtr->allocedByX = 1;
+ propertyPtr = &regPtr->property;
if (lock && !localData.sendDebug) {
XGrabServer(dispPtr->display);
@@ -290,7 +292,7 @@ RegOpen(
dispPtr->registryProperty, 0, MAX_PROP_WORDS,
False, XA_STRING, &actualType, &actualFormat,
&regPtr->propLength, &bytesAfter,
- (unsigned char **) &regPtr->property);
+ (unsigned char **) propertyPtr);
if (actualType == None) {
regPtr->propLength = 0;