From 676774654da171377348a0ce27430233b42dd990 Mon Sep 17 00:00:00 2001 From: Ole Streicher Date: Thu, 11 Jan 2018 21:12:38 +0100 Subject: [PATCH] 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 --- tcl.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; -- 2.30.2