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