int
mlock (const void *addr, size_t len)
{
mach_port_t host;
vm_address_t page;
error_t err;
err = __get_privileged_ports (&host, NULL);
if (err)
host = __mach_host_self();
page = trunc_page ((vm_address_t) addr);
len = round_page ((vm_address_t) addr + len) - page;
err = __vm_wire (host, __mach_task_self (), page, len, VM_PROT_READ);
if (host != __mach_host_self())
__mach_port_deallocate (__mach_task_self (), host);
return err ? __hurd_fail (err) : 0;
}
/* Return the number of physical pages on the system. */
long int
__get_phys_pages ()
{
struct host_basic_info hbi;
kern_return_t err;
mach_msg_type_number_t cnt = HOST_BASIC_INFO_COUNT;
err = __host_info (__mach_host_self (), HOST_BASIC_INFO,
(host_info_t) &hbi, &cnt);
if (err)
return __hurd_fail (err);
else if (cnt != HOST_BASIC_INFO_COUNT)
return __hurd_fail (EIEIO);
return hbi.memory_size / __vm_page_size;
}
/* Return the number of processors currently available on the system. */
int
__get_nprocs ()
{
struct host_basic_info hbi;
kern_return_t err;
mach_msg_type_number_t cnt = HOST_BASIC_INFO_COUNT;
err = __host_info (__mach_host_self (), HOST_BASIC_INFO,
(host_info_t) &hbi, &cnt);
if (err)
return __hurd_fail (err);
else if (cnt != HOST_BASIC_INFO_COUNT)
return __hurd_fail (EIEIO);
return hbi.avail_cpus;
}
void
__mach_init (void)
{
kern_return_t err;
__mach_task_self_ = (__mach_task_self) ();
__mig_init (0);
#if HAVE_HOST_PAGE_SIZE
if (err = __host_page_size (__mach_host_self (), &__vm_page_size))
_exit (err);
#else
{
vm_statistics_data_t stats;
if (err = __vm_statistics (__mach_task_self (), &stats))
_exit (err);
__vm_page_size = stats.pagesize;
}
#endif
}
/* Return the number of available physical pages */
long int
__get_avphys_pages (void)
{
vm_statistics_data_t vs;
kern_return_t err;
#ifdef HOST_VM_INFO
{
mach_msg_type_number_t count = HOST_VM_INFO_COUNT;
err = __host_info (__mach_host_self (), HOST_VM_INFO,
(host_info_t) &vs, &count);
if (!err && count < HOST_VM_INFO_COUNT)
err = EGRATUITOUS;
}
#else
err = __vm_statistics (__mach_task_self (), &vs);
#endif
if (err)
return __hurd_fail (err);
return vs.free_count;
}
int
getloadavg (double loadavg[], int nelem)
{
host_load_info_data_t info;
mach_msg_type_number_t size = HOST_LOAD_INFO_COUNT;
error_t err;
int i;
err = __host_info (__mach_host_self (), HOST_LOAD_INFO,
(host_info_t) &info, &size);
if (err)
return __hurd_fail (err);
if (size < HOST_LOAD_INFO_COUNT)
return __hurd_fail (EGRATUITOUS);
if (nelem > 3)
nelem = 3;
for (i = 0; i < nelem; ++i)
loadavg[i] = (double) info.avenrun[i] / (double) LOAD_SCALE;
return i;
}
