Merge pull request #651 from JoostK/patch-1
[mono.git] / support / sys-mman.c
1 /*
2  * <sys/mman.h> wrapper functions.
3  *
4  * Authors:
5  *   Jonathan Pryor (jonpryor@vt.edu)
6  *
7  * Copyright (C) 2004-2006 Jonathan Pryor
8  */
9
10 #include <config.h>
11
12 #define _XOPEN_SOURCE 600
13
14 #ifdef PLATFORM_MACOSX
15 /* For mincore () */
16 #define _DARWIN_C_SOURCE
17 #endif
18 #ifdef __FreeBSD__
19 /* For mincore () */
20 #define __BSD_VISIBLE 1
21 #endif
22
23 #include <sys/types.h>
24 #include <sys/mman.h>
25 #include <errno.h>
26
27 #include "map.h"
28 #include "mph.h"
29
30 G_BEGIN_DECLS
31
32 void*
33 Mono_Posix_Syscall_mmap (void *start, mph_size_t length, int prot, int flags, 
34                 int fd, mph_off_t offset)
35 {
36         int _prot, _flags;
37
38         mph_return_val_if_size_t_overflow (length, MAP_FAILED);
39         mph_return_val_if_off_t_overflow (offset, MAP_FAILED);
40
41         if (Mono_Posix_FromMmapProts (prot, &_prot) == -1)
42                 return MAP_FAILED;
43         if (Mono_Posix_FromMmapFlags (flags, &_flags) == -1)
44                 return MAP_FAILED;
45
46         return mmap (start, (size_t) length, _prot, _flags, fd, (off_t) offset);
47 }
48
49 int
50 Mono_Posix_Syscall_munmap (void *start, mph_size_t length)
51 {
52         mph_return_if_size_t_overflow (length);
53
54         return munmap (start, (size_t) length);
55 }
56
57 int
58 Mono_Posix_Syscall_mprotect (void *start, mph_size_t len, int prot)
59 {
60         int _prot;
61         mph_return_if_size_t_overflow (len);
62
63         if (Mono_Posix_FromMmapProts (prot, &_prot) == -1)
64                 return -1;
65
66         return mprotect (start, (size_t) len, _prot);
67 }
68
69 int
70 Mono_Posix_Syscall_msync (void *start, mph_size_t len, int flags)
71 {
72         int _flags;
73         mph_return_if_size_t_overflow (len);
74
75         if (Mono_Posix_FromMsyncFlags (flags, &_flags) == -1)
76                 return -1;
77
78         return msync (start, (size_t) len, _flags);
79 }
80
81 int
82 Mono_Posix_Syscall_mlock (void *start, mph_size_t len)
83 {
84         mph_return_if_size_t_overflow (len);
85
86         return mlock (start, (size_t) len);
87 }
88
89 int
90 Mono_Posix_Syscall_munlock (void *start, mph_size_t len)
91 {
92         mph_return_if_size_t_overflow (len);
93
94         return munlock (start, (size_t) len);
95 }
96
97 #ifdef HAVE_MREMAP
98 void*
99 Mono_Posix_Syscall_mremap (void *old_address, mph_size_t old_size, 
100                 mph_size_t new_size, guint64 flags)
101 {
102         guint64 _flags;
103
104         mph_return_val_if_size_t_overflow (old_size, MAP_FAILED);
105         mph_return_val_if_size_t_overflow (new_size, MAP_FAILED);
106
107         if (Mono_Posix_FromMremapFlags (flags, &_flags) == -1)
108                 return MAP_FAILED;
109
110         return mremap (old_address, (size_t) old_size, (size_t) new_size,
111                         (unsigned long) _flags);
112 }
113 #endif /* def HAVE_MREMAP */
114
115 int
116 Mono_Posix_Syscall_mincore (void *start, mph_size_t length, unsigned char *vec)
117 {
118         mph_return_if_size_t_overflow (length);
119
120         return mincore (start, (size_t) length, (void*)vec);
121 }
122
123 #ifdef HAVE_POSIX_MADVISE
124 gint32
125 Mono_Posix_Syscall_posix_madvise (void *addr, mph_size_t len, gint32 advice)
126 {
127         mph_return_if_size_t_overflow (len);
128
129         if (Mono_Posix_FromPosixMadviseAdvice (advice, &advice) == -1)
130                 return -1;
131
132         return posix_madvise (addr, (size_t) len, advice);
133 }
134 #endif /* def HAVE_POSIX_MADVISE */
135
136 #ifdef HAVE_REMAP_FILE_PAGES
137 int
138 Mono_Posix_Syscall_remap_file_pages (void *start, mph_size_t size, 
139                 int prot, mph_ssize_t pgoff, int flags)
140 {
141         int _prot, _flags;
142
143         mph_return_if_size_t_overflow (size);
144         mph_return_if_ssize_t_overflow (pgoff);
145
146         if (Mono_Posix_FromMmapProts (prot, &_prot) == -1)
147                 return -1;
148         if (Mono_Posix_FromMmapFlags (flags, &_flags) == -1)
149                 return -1;
150
151         return remap_file_pages (start, (size_t) size, _prot, (ssize_t) pgoff, _flags);
152 }
153 #endif /* def HAVE_REMAP_FILE_PAGES */
154
155 G_END_DECLS
156
157 /*
158  * vim: noexpandtab
159  */