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 1dbdad46f1f872a84510868a0dc5ed07a0f7b062..94227d66231d37b3243f3a6d6ad4c96fa3853a31 100644 (file)
--- 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;