aboutsummaryrefslogtreecommitdiffstats
path: root/contrib/tcl/unix/tclUnixPipe.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/tcl/unix/tclUnixPipe.c')
-rw-r--r--contrib/tcl/unix/tclUnixPipe.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/contrib/tcl/unix/tclUnixPipe.c b/contrib/tcl/unix/tclUnixPipe.c
index f6d90d702cb2..83aa4e888e51 100644
--- a/contrib/tcl/unix/tclUnixPipe.c
+++ b/contrib/tcl/unix/tclUnixPipe.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * SCCS: @(#) tclUnixPipe.c 1.36 97/05/14 13:24:24
+ * SCCS: @(#) tclUnixPipe.c 1.37 97/10/31 17:23:37
*/
#include "tclInt.h"
@@ -22,7 +22,7 @@
* the same as NULL.
*/
-#define MakeFile(fd) ((TclFile)((fd)+1))
+#define MakeFile(fd) ((TclFile)(((int)fd)+1))
#define GetFd(file) (((int)file)-1)
/*
@@ -100,11 +100,11 @@ TclpMakeFile(channel, direction)
Tcl_Channel channel; /* Channel to get file from. */
int direction; /* Either TCL_READABLE or TCL_WRITABLE. */
{
- int fd;
+ ClientData data;
- if (Tcl_GetChannelHandle(channel, direction, (ClientData *) &fd)
+ if (Tcl_GetChannelHandle(channel, direction, (ClientData *) &data)
== TCL_OK) {
- return MakeFile(fd);
+ return MakeFile((int)data);
} else {
return (TclFile) NULL;
}