tcl-64bit.patch

   1 --- tcl8.0-8.0.4.orig/generic/tclObj.c
   2 +++ tcl8.0-8.0.4/generic/tclObj.c
   3 @@ -1632,7 +1632,7 @@
   4         }
   5      }
   6      l = objPtr->internalRep.longValue;
   7 -    if (((long)((int)l)) == l) {
   8 +    if (l <= UINT_MAX) {
   9         *intPtr = (int)objPtr->internalRep.longValue;
  10         return TCL_OK;
  11      }