expect-alpha.patch

   1 --- expect-5.39/exp_command.c.orig      2003-07-31 20:21:42.000000000 +0200
   2 +++ expect-5.39/exp_command.c   2003-08-07 22:11:03.000000000 +0200
   3 @@ -801,7 +801,7 @@
   4             rfd = (int) rfdc;
   5         }
   6         if (mode & TCL_WRITABLE) {
   7 -           if (TCL_ERROR == Tcl_GetChannelHandle(channel, TCL_WRITABLE, (ClientData) &wfdc)) {
   8 +           if (TCL_ERROR == Tcl_GetChannelHandle(channel, TCL_WRITABLE, (ClientData *) &wfdc)) {
   9                 return TCL_ERROR;
  10             }
  11             wfd = (int) wfdc;