blob: b82f3eaa2531a3226abda5e95dd2b359b88844a4 [file] [log] [blame]
Stacey Son6765e982023-09-25 21:26:57 +03001/*
2 * memory management system call shims and definitions
3 *
4 * Copyright (c) 2013-15 Stacey D. Son
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, see <http://www.gnu.org/licenses/>.
18 */
19
20/*
21 * Copyright (c) 1982, 1986, 1993
22 * The Regents of the University of California. All rights reserved.
23 *
24 * Redistribution and use in source and binary forms, with or without
25 * modification, are permitted provided that the following conditions
26 * are met:
27 * 1. Redistributions of source code must retain the above copyright
28 * notice, this list of conditions and the following disclaimer.
29 * 2. Redistributions in binary form must reproduce the above copyright
30 * notice, this list of conditions and the following disclaimer in the
31 * documentation and/or other materials provided with the distribution.
32 * 4. Neither the name of the University nor the names of its contributors
33 * may be used to endorse or promote products derived from this software
34 * without specific prior written permission.
35 *
36 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
37 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
38 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
39 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
40 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
41 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
42 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
43 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
44 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
45 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
46 * SUCH DAMAGE.
47 */
48
49#ifndef BSD_USER_BSD_MEM_H
50#define BSD_USER_BSD_MEM_H
51
52#include <sys/types.h>
53#include <sys/ipc.h>
54#include <sys/mman.h>
55#include <sys/shm.h>
56#include <fcntl.h>
57
58#include "qemu-bsd.h"
59
60extern struct bsd_shm_regions bsd_shm_regions[];
61extern abi_ulong target_brk;
62extern abi_ulong initial_target_brk;
63
Stacey Son87dcb4a2023-09-25 21:26:58 +030064/* mmap(2) */
65static inline abi_long do_bsd_mmap(void *cpu_env, abi_long arg1, abi_long arg2,
66 abi_long arg3, abi_long arg4, abi_long arg5, abi_long arg6, abi_long arg7,
67 abi_long arg8)
68{
69 if (regpairs_aligned(cpu_env) != 0) {
70 arg6 = arg7;
71 arg7 = arg8;
72 }
73 return get_errno(target_mmap(arg1, arg2, arg3,
74 target_to_host_bitmask(arg4, mmap_flags_tbl),
75 arg5, target_arg64(arg6, arg7)));
76}
77
78/* munmap(2) */
79static inline abi_long do_bsd_munmap(abi_long arg1, abi_long arg2)
80{
81 return get_errno(target_munmap(arg1, arg2));
82}
83
Stacey Sonecbe2242023-09-25 21:26:59 +030084/* mprotect(2) */
85static inline abi_long do_bsd_mprotect(abi_long arg1, abi_long arg2,
86 abi_long arg3)
87{
88 return get_errno(target_mprotect(arg1, arg2, arg3));
89}
90
Stacey Sonf28a1e42023-09-25 21:27:00 +030091/* msync(2) */
92static inline abi_long do_bsd_msync(abi_long addr, abi_long len, abi_long flags)
93{
94 if (!guest_range_valid_untagged(addr, len)) {
95 /* It seems odd, but POSIX wants this to be ENOMEM */
96 return -TARGET_ENOMEM;
97 }
98
99 return get_errno(msync(g2h_untagged(addr), len, flags));
100}
101
Stacey Son0a49ef02023-09-25 21:27:01 +0300102/* mlock(2) */
103static inline abi_long do_bsd_mlock(abi_long arg1, abi_long arg2)
104{
105 if (!guest_range_valid_untagged(arg1, arg2)) {
106 return -TARGET_EINVAL;
107 }
108 return get_errno(mlock(g2h_untagged(arg1), arg2));
109}
110
111/* munlock(2) */
112static inline abi_long do_bsd_munlock(abi_long arg1, abi_long arg2)
113{
114 if (!guest_range_valid_untagged(arg1, arg2)) {
115 return -TARGET_EINVAL;
116 }
117 return get_errno(munlock(g2h_untagged(arg1), arg2));
118}
119
120/* mlockall(2) */
121static inline abi_long do_bsd_mlockall(abi_long arg1)
122{
123 return get_errno(mlockall(arg1));
124}
125
126/* munlockall(2) */
127static inline abi_long do_bsd_munlockall(void)
128{
129 return get_errno(munlockall());
130}
131
Karim Taha0c1ced42023-09-25 21:27:02 +0300132/* madvise(2) */
133static inline abi_long do_bsd_madvise(abi_long arg1, abi_long arg2,
134 abi_long arg3)
135{
136 abi_ulong len;
137 int ret = 0;
138 abi_long start = arg1;
139 abi_long len_in = arg2;
140 abi_long advice = arg3;
141
142 if (start & ~TARGET_PAGE_MASK) {
143 return -TARGET_EINVAL;
144 }
145 if (len_in == 0) {
146 return 0;
147 }
148 len = TARGET_PAGE_ALIGN(len_in);
149 if (len == 0 || !guest_range_valid_untagged(start, len)) {
150 return -TARGET_EINVAL;
151 }
152
153 /*
154 * Most advice values are hints, so ignoring and returning success is ok.
155 *
156 * However, some advice values such as MADV_DONTNEED, are not hints and
157 * need to be emulated.
158 *
159 * A straight passthrough for those may not be safe because qemu sometimes
160 * turns private file-backed mappings into anonymous mappings.
161 * If all guest pages have PAGE_PASSTHROUGH set, mappings have the
162 * same semantics for the host as for the guest.
163 *
164 * MADV_DONTNEED is passed through, if possible.
165 * If passthrough isn't possible, we nevertheless (wrongly!) return
166 * success, which is broken but some userspace programs fail to work
167 * otherwise. Completely implementing such emulation is quite complicated
168 * though.
169 */
170 mmap_lock();
171 switch (advice) {
172 case MADV_DONTNEED:
173 if (page_check_range(start, len, PAGE_PASSTHROUGH)) {
174 ret = get_errno(madvise(g2h_untagged(start), len, advice));
175 if (ret == 0) {
176 page_reset_target_data(start, start + len - 1);
177 }
178 }
179 }
180 mmap_unlock();
181
182 return ret;
183}
184
Stacey Son0a49ef02023-09-25 21:27:01 +0300185/* minherit(2) */
186static inline abi_long do_bsd_minherit(abi_long addr, abi_long len,
187 abi_long inherit)
188{
189 return get_errno(minherit(g2h_untagged(addr), len, inherit));
190}
191
Stacey Son83b045a2023-09-25 21:27:03 +0300192/* mincore(2) */
193static inline abi_long do_bsd_mincore(abi_ulong target_addr, abi_ulong len,
194 abi_ulong target_vec)
195{
196 abi_long ret;
197 void *p;
198 abi_ulong vec_len = DIV_ROUND_UP(len, TARGET_PAGE_SIZE);
199
200 if (!guest_range_valid_untagged(target_addr, len)
201 || !page_check_range(target_addr, len, PAGE_VALID)) {
202 return -TARGET_EFAULT;
203 }
204
205 p = lock_user(VERIFY_WRITE, target_vec, vec_len, 0);
206 if (p == NULL) {
207 return -TARGET_EFAULT;
208 }
209 ret = get_errno(mincore(g2h_untagged(target_addr), len, p));
210 unlock_user(p, target_vec, vec_len);
211
212 return ret;
213}
214
Stacey Sona99d7402023-09-25 21:27:04 +0300215/* do_brk() must return target values and target errnos. */
216static inline abi_long do_obreak(abi_ulong brk_val)
217{
218 abi_long mapped_addr;
219 abi_ulong new_brk;
220 abi_ulong old_brk;
221
222 /* brk pointers are always untagged */
223
224 /* do not allow to shrink below initial brk value */
225 if (brk_val < initial_target_brk) {
226 return target_brk;
227 }
228
229 new_brk = TARGET_PAGE_ALIGN(brk_val);
230 old_brk = TARGET_PAGE_ALIGN(target_brk);
231
232 /* new and old target_brk might be on the same page */
233 if (new_brk == old_brk) {
234 target_brk = brk_val;
235 return target_brk;
236 }
237
238 /* Release heap if necesary */
239 if (new_brk < old_brk) {
240 target_munmap(new_brk, old_brk - new_brk);
241
242 target_brk = brk_val;
243 return target_brk;
244 }
245
246 mapped_addr = target_mmap(old_brk, new_brk - old_brk,
247 PROT_READ | PROT_WRITE,
248 MAP_FIXED | MAP_EXCL | MAP_ANON | MAP_PRIVATE,
249 -1, 0);
250
251 if (mapped_addr == old_brk) {
252 target_brk = brk_val;
253 return target_brk;
254 }
255
256 /* For everything else, return the previous break. */
257 return target_brk;
258}
259
Stacey Son4f0be682023-09-25 21:27:05 +0300260/* shm_open(2) */
261static inline abi_long do_bsd_shm_open(abi_ulong arg1, abi_long arg2,
262 abi_long arg3)
263{
264 int ret;
265 void *p;
266
267 if (arg1 == (uintptr_t)SHM_ANON) {
268 p = SHM_ANON;
269 } else {
270 p = lock_user_string(arg1);
271 if (p == NULL) {
272 return -TARGET_EFAULT;
273 }
274 }
275 ret = get_errno(shm_open(p, target_to_host_bitmask(arg2, fcntl_flags_tbl),
276 arg3));
277
278 if (p != SHM_ANON) {
279 unlock_user(p, arg1, 0);
280 }
281
282 return ret;
283}
284
Stacey Son9d14db12023-09-25 21:27:06 +0300285/* shm_unlink(2) */
286static inline abi_long do_bsd_shm_unlink(abi_ulong arg1)
287{
288 int ret;
289 void *p;
290
291 p = lock_user_string(arg1);
292 if (p == NULL) {
293 return -TARGET_EFAULT;
294 }
295 ret = get_errno(shm_unlink(p)); /* XXX path(p)? */
296 unlock_user(p, arg1, 0);
297
298 return ret;
299}
300
301/* shmget(2) */
302static inline abi_long do_bsd_shmget(abi_long arg1, abi_ulong arg2,
303 abi_long arg3)
304{
305 return get_errno(shmget(arg1, arg2, arg3));
306}
307
Stacey Sonf9bbe3c2023-09-25 21:27:07 +0300308/* shmctl(2) */
309static inline abi_long do_bsd_shmctl(abi_long shmid, abi_long cmd,
310 abi_ulong buff)
311{
312 struct shmid_ds dsarg;
313 abi_long ret = -TARGET_EINVAL;
314
315 cmd &= 0xff;
316
317 switch (cmd) {
318 case IPC_STAT:
319 if (target_to_host_shmid_ds(&dsarg, buff)) {
320 return -TARGET_EFAULT;
321 }
322 ret = get_errno(shmctl(shmid, cmd, &dsarg));
323 if (host_to_target_shmid_ds(buff, &dsarg)) {
324 return -TARGET_EFAULT;
325 }
326 break;
327
328 case IPC_SET:
329 if (target_to_host_shmid_ds(&dsarg, buff)) {
330 return -TARGET_EFAULT;
331 }
332 ret = get_errno(shmctl(shmid, cmd, &dsarg));
333 break;
334
335 case IPC_RMID:
336 ret = get_errno(shmctl(shmid, cmd, NULL));
337 break;
338
339 default:
340 ret = -TARGET_EINVAL;
341 break;
342 }
343
344 return ret;
345}
346
Stacey Son6765e982023-09-25 21:26:57 +0300347#endif /* BSD_USER_BSD_MEM_H */