From: Ole Streicher <olebole@debian.org>
Date: Thu, 11 Jan 2018 20:12:38 +0000 (+0100)
Subject: Remove uintptr_t cast
X-Git-Tag: archive/raspbian/2.1.18-4+rpi1^2~1
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=676774654da171377348a0ce27430233b42dd990;p=xpa.git

Remove uintptr_t cast

This type is not always defined by default, and is in fact an unnecessary type
cast.

Gbp-Pq: Name Remove-uintptr_t-cast.patch
---

diff --git a/tcl.c b/tcl.c
index 1dbdad4..94227d6 100644
--- a/tcl.c
+++ b/tcl.c
@@ -971,7 +971,7 @@ static int XPARec_Tcl(clientData, interp, objc, objv)
     /* create new tcl variable for this socket */
     else{
       /* create a tcl channel corresponding to the xpa socket */
-      if( !(chan = Tcl_MakeTcpClientChannel((ClientData)(uintptr_t)xpa_cmdfd(xpa))) ){
+      if( !(chan = Tcl_MakeTcpClientChannel((ClientData)xpa_cmdfd(xpa))) ){
 	Tcl_SetResult(interp, "XPA$ERROR: could not map XPA cmdfd to tcl",
 		      TCL_STATIC);
 	result = TCL_ERROR;
@@ -1013,7 +1013,7 @@ static int XPARec_Tcl(clientData, interp, objc, objv)
     }
     /* create new tcl variable for this socket */
     else{
-      if( !(chan = Tcl_MakeTcpClientChannel((ClientData)(uintptr_t)xpa_datafd(xpa))) ){
+      if( !(chan = Tcl_MakeTcpClientChannel((ClientData)xpa_datafd(xpa))) ){
 	Tcl_SetResult(interp, "XPA$ERROR: could not map XPA datafd to tcl",
 		      TCL_STATIC);
 	result = TCL_ERROR;