devel/tcl-mmap/files/patch-warnings

   1 --- unix/mmap.c.orig    2013-04-24 09:59:16.000000000 +0200
   2 +++ unix/mmap.c 2013-04-24 10:00:30.000000000 +0200
   3 @@ -190,8 +190,7 @@
   4      }
   5
   6      /* We check if seek is within range, and fix */
   7 -    if (data->seek < 0) data->seek = 0;
   8 -    if (data->seek > data->length) data->seek = data->length;
   9 +    if (data->seek > (unsigned long)data->length) data->seek = data->length;
  10
  11      return data->seek;
  12  }
  13 @@ -271,7 +270,7 @@
  14
  15      int i;
  16      for (i = 1; i < objc - 1; i++) {
  17 -        if (Tcl_GetIndexFromObj(interp, objv[i], cmds, "option", 0, &index) != TCL_OK)
  18 +        if (Tcl_GetIndexFromObj(interp, objv[i], (const char **)cmds, "option", 0, &index) != TCL_OK)
  19              return TCL_ERROR;
  20
  21          switch (index) {