S390: Add new s390 platform.
[glibc.git] / sysdeps / mach / hurd / munlock.c
blobd063afc9c98a8b8082db05acca4413284a0a0853
1 /* munlock -- undo the effects of prior mlock calls. Mach/Hurd version.
2 Copyright (C) 2001-2015 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <http://www.gnu.org/licenses/>. */
19 #include <sys/types.h>
20 #include <sys/mman.h>
21 #include <errno.h>
22 #include <hurd.h>
23 #include <mach/mach_host.h>
25 /* Undo the effects on these whole pages of any prior mlock calls. */
27 int
28 munlock (const void *addr, size_t len)
30 mach_port_t host;
31 vm_address_t page;
32 error_t err;
34 err = __get_privileged_ports (&host, NULL);
35 if (err)
36 host = __mach_host_self();
38 page = trunc_page ((vm_address_t) addr);
39 len = round_page ((vm_address_t) addr + len) - page;
41 err = __vm_wire (host, __mach_task_self (), page, len, VM_PROT_NONE);
42 if (host != __mach_host_self())
43 __mach_port_deallocate (__mach_task_self (), host);
45 return err ? __hurd_fail (err) : 0;