expect-alpha.patch

   1 --- expect5.31/exp_command.c.alpha      Tue Aug 17 15:51:00 1999
   2 +++ expect5.31/exp_command.c    Fri Mar 17 08:43:39 2000
   3 @@ -795,14 +795,18 @@
   4             return TCL_ERROR;
   5         }
   6         if (mode & TCL_READABLE) {
   7 -           if (TCL_ERROR == Tcl_GetChannelHandle(channel, TCL_READABLE, (ClientData) &rfd)) {
   8 +           ClientData rfd_data;
   9 +           if (TCL_ERROR == Tcl_GetChannelHandle(channel, TCL_READABLE, &rfd_data)) {
  10                 return TCL_ERROR;
  11             }
  12 +           rfd = (int)rfd_data;
  13         }
  14         if (mode & TCL_WRITABLE) {
  15 -           if (TCL_ERROR == Tcl_GetChannelHandle(channel, TCL_WRITABLE, (ClientData) &wfd)) {
  16 +           ClientData wfd_data;
  17 +           if (TCL_ERROR == Tcl_GetChannelHandle(channel, TCL_WRITABLE, &wfd_data)) {
  18                 return TCL_ERROR;
  19             }
  20 +           wfd = (int)wfd_data;
  21         }
  22         master = ((mode & TCL_READABLE)?rfd:wfd);
  23