#include <sys/errno.h>
#include <mach/mach_types.h>
#include <mach/kern_return.h>
#include <mach/memory_object_control.h>
#include <mach/memory_object_types.h>
#include <mach/port.h>
#include <mach/policy.h>
#include <mach/upl.h>
#include <kern/kern_types.h>
#include <kern/ipc_kobject.h>
#include <kern/host.h>
#include <kern/thread.h>
#include <ipc/ipc_port.h>
#include <ipc/ipc_space.h>
#include <device/device_port.h>
#include <vm/memory_object.h>
#include <vm/vm_pageout.h>
#include <vm/vm_map.h>
#include <vm/vm_kern.h>
#include <vm/vm_pageout.h>
#include <vm/vm_protos.h>
#include <mach/sdt.h>
const struct memory_object_pager_ops device_pager_ops = {
device_pager_reference,
device_pager_deallocate,
device_pager_init,
device_pager_terminate,
device_pager_data_request,
device_pager_data_return,
device_pager_data_initialize,
device_pager_data_unlock,
device_pager_synchronize,
device_pager_map,
device_pager_last_unmap,
NULL,
"device pager"
};
typedef uintptr_t device_port_t;
typedef struct device_pager {
struct memory_object dev_pgr_hdr;
lck_mtx_t lock;
unsigned int ref_count;
device_port_t device_handle;
vm_size_t size;
int flags;
boolean_t is_mapped;
} *device_pager_t;
lck_grp_t device_pager_lck_grp;
lck_grp_attr_t device_pager_lck_grp_attr;
lck_attr_t device_pager_lck_attr;
#define device_pager_lock_init(pager) \
lck_mtx_init(&(pager)->lock, \
&device_pager_lck_grp, \
&device_pager_lck_attr)
#define device_pager_lock_destroy(pager) \
lck_mtx_destroy(&(pager)->lock, &device_pager_lck_grp)
#define device_pager_lock(pager) lck_mtx_lock(&(pager)->lock)
#define device_pager_unlock(pager) lck_mtx_unlock(&(pager)->lock)
device_pager_t
device_pager_lookup(
memory_object_t);
device_pager_t
device_object_create(void);
zone_t device_pager_zone;
#define DEVICE_PAGER_NULL ((device_pager_t) 0)
#define MAX_DNODE 10000
void
device_pager_bootstrap(void)
{
vm_size_t size;
size = (vm_size_t) sizeof(struct device_pager);
device_pager_zone = zinit(size, (vm_size_t) MAX_DNODE*size,
PAGE_SIZE, "device node pager structures");
zone_change(device_pager_zone, Z_CALLERACCT, FALSE);
lck_grp_attr_setdefault(&device_pager_lck_grp_attr);
lck_grp_init(&device_pager_lck_grp, "device_pager", &device_pager_lck_grp_attr);
lck_attr_setdefault(&device_pager_lck_attr);
return;
}
memory_object_t
device_pager_setup(
__unused memory_object_t device,
uintptr_t device_handle,
vm_size_t size,
int flags)
{
device_pager_t device_object;
memory_object_control_t control;
vm_object_t object;
device_object = device_object_create();
if (device_object == DEVICE_PAGER_NULL)
panic("device_pager_setup: device_object_create() failed");
device_object->device_handle = device_handle;
device_object->size = size;
device_object->flags = flags;
memory_object_create_named((memory_object_t) device_object,
size,
&control);
object = memory_object_control_to_vm_object(control);
assert(object != VM_OBJECT_NULL);
vm_object_lock(object);
object->true_share = TRUE;
if (object->copy_strategy == MEMORY_OBJECT_COPY_SYMMETRIC) {
object->copy_strategy = MEMORY_OBJECT_COPY_DELAY;
}
vm_object_unlock(object);
return (memory_object_t)device_object;
}
kern_return_t
device_pager_populate_object(
memory_object_t device,
memory_object_offset_t offset,
ppnum_t page_num,
vm_size_t size)
{
device_pager_t device_object;
vm_object_t vm_object;
kern_return_t kr;
upl_t upl;
device_object = device_pager_lookup(device);
if(device_object == DEVICE_PAGER_NULL)
return KERN_FAILURE;
vm_object = (vm_object_t)memory_object_control_to_vm_object(
device_object->dev_pgr_hdr.mo_control);
if(vm_object == NULL)
return KERN_FAILURE;
kr = vm_object_populate_with_private(
vm_object, offset, page_num, size);
if(kr != KERN_SUCCESS)
return kr;
if(!vm_object->phys_contiguous) {
unsigned int null_size = 0;
assert((upl_size_t) size == size);
kr = vm_object_upl_request(vm_object,
(vm_object_offset_t)offset,
(upl_size_t) size, &upl, NULL,
&null_size,
(UPL_NO_SYNC | UPL_CLEAN_IN_PLACE),
VM_KERN_MEMORY_NONE);
if(kr != KERN_SUCCESS)
panic("device_pager_populate_object: list_req failed");
upl_commit(upl, NULL, 0);
upl_deallocate(upl);
}
return kr;
}
device_pager_t
device_pager_lookup(
memory_object_t mem_obj)
{
device_pager_t device_object;
assert(mem_obj->mo_pager_ops == &device_pager_ops);
device_object = (device_pager_t)mem_obj;
assert(device_object->ref_count > 0);
return device_object;
}
kern_return_t
device_pager_init(
memory_object_t mem_obj,
memory_object_control_t control,
__unused memory_object_cluster_size_t pg_size)
{
device_pager_t device_object;
kern_return_t kr;
memory_object_attr_info_data_t attributes;
vm_object_t vm_object;
if (control == MEMORY_OBJECT_CONTROL_NULL)
return KERN_INVALID_ARGUMENT;
device_object = device_pager_lookup(mem_obj);
memory_object_control_reference(control);
device_object->dev_pgr_hdr.mo_control = control;
vm_object = (vm_object_t)memory_object_control_to_vm_object(control);
vm_object_lock(vm_object);
vm_object->private = TRUE;
if(device_object->flags & DEVICE_PAGER_CONTIGUOUS)
vm_object->phys_contiguous = TRUE;
if(device_object->flags & DEVICE_PAGER_NOPHYSCACHE)
vm_object->nophyscache = TRUE;
vm_object->wimg_bits = device_object->flags & VM_WIMG_MASK;
vm_object_unlock(vm_object);
attributes.copy_strategy = MEMORY_OBJECT_COPY_DELAY;
attributes.cluster_size = (1 << (PAGE_SHIFT));
attributes.may_cache_object = FALSE;
attributes.temporary = TRUE;
kr = memory_object_change_attributes(
control,
MEMORY_OBJECT_ATTRIBUTE_INFO,
(memory_object_info_t) &attributes,
MEMORY_OBJECT_ATTR_INFO_COUNT);
if (kr != KERN_SUCCESS)
panic("device_pager_init: memory_object_change_attributes() failed");
return(KERN_SUCCESS);
}
kern_return_t
device_pager_data_return(
memory_object_t mem_obj,
memory_object_offset_t offset,
memory_object_cluster_size_t data_cnt,
__unused memory_object_offset_t *resid_offset,
__unused int *io_error,
__unused boolean_t dirty,
__unused boolean_t kernel_copy,
__unused int upl_flags)
{
device_pager_t device_object;
device_object = device_pager_lookup(mem_obj);
if (device_object == DEVICE_PAGER_NULL)
panic("device_pager_data_return: lookup failed");
__IGNORE_WCASTALIGN(return device_data_action(device_object->device_handle,
(ipc_port_t) device_object,
VM_PROT_READ | VM_PROT_WRITE,
offset, data_cnt));
}
kern_return_t
device_pager_data_request(
memory_object_t mem_obj,
memory_object_offset_t offset,
memory_object_cluster_size_t length,
__unused vm_prot_t protection_required,
__unused memory_object_fault_info_t fault_info)
{
device_pager_t device_object;
device_object = device_pager_lookup(mem_obj);
if (device_object == DEVICE_PAGER_NULL)
panic("device_pager_data_request: lookup failed");
__IGNORE_WCASTALIGN(device_data_action(device_object->device_handle,
(ipc_port_t) device_object,
VM_PROT_READ, offset, length));
return KERN_SUCCESS;
}
void
device_pager_reference(
memory_object_t mem_obj)
{
device_pager_t device_object;
unsigned int new_ref_count;
device_object = device_pager_lookup(mem_obj);
new_ref_count = hw_atomic_add(&device_object->ref_count, 1);
assert(new_ref_count > 1);
DTRACE_VM2(device_pager_reference,
device_pager_t, device_object,
unsigned int, device_object->ref_count);
}
void
device_pager_deallocate(
memory_object_t mem_obj)
{
device_pager_t device_object;
memory_object_control_t device_control;
unsigned int ref_count;
device_object = device_pager_lookup(mem_obj);
assert(device_object->ref_count > 0);
DTRACE_VM2(device_pager_deallocate,
device_pager_t, device_object,
unsigned int, device_object->ref_count);
ref_count = hw_atomic_sub(&device_object->ref_count, 1);
if (ref_count == 1) {
DTRACE_VM2(device_pager_destroy,
device_pager_t, device_object,
unsigned int, device_object->ref_count);
assert(device_object->is_mapped == FALSE);
if (device_object->device_handle != (device_port_t) NULL) {
device_close(device_object->device_handle);
device_object->device_handle = (device_port_t) NULL;
}
device_control = device_object->dev_pgr_hdr.mo_control;
memory_object_destroy(device_control, 0);
} else if (ref_count == 0) {
DTRACE_VM2(device_pager_free,
device_pager_t, device_object,
unsigned int, device_object->ref_count);
device_pager_lock_destroy(device_object);
zfree(device_pager_zone, device_object);
}
return;
}
kern_return_t
device_pager_data_initialize(
__unused memory_object_t mem_obj,
__unused memory_object_offset_t offset,
__unused memory_object_cluster_size_t data_cnt)
{
panic("device_pager_data_initialize");
return KERN_FAILURE;
}
kern_return_t
device_pager_data_unlock(
__unused memory_object_t mem_obj,
__unused memory_object_offset_t offset,
__unused memory_object_size_t size,
__unused vm_prot_t desired_access)
{
return KERN_FAILURE;
}
kern_return_t
device_pager_terminate(
__unused memory_object_t mem_obj)
{
return KERN_SUCCESS;
}
kern_return_t
device_pager_synchronize(
__unused memory_object_t mem_obj,
__unused memory_object_offset_t offset,
__unused memory_object_size_t length,
__unused vm_sync_t sync_flags)
{
panic("device_pager_synchronize: memory_object_synchronize no longer supported\n");
return KERN_FAILURE;
}
kern_return_t
device_pager_map(
memory_object_t mem_obj,
__unused vm_prot_t prot)
{
device_pager_t device_object;
device_object = device_pager_lookup(mem_obj);
device_pager_lock(device_object);
assert(device_object->ref_count > 0);
if (device_object->is_mapped == FALSE) {
device_object->is_mapped = TRUE;
device_pager_reference(mem_obj);
}
device_pager_unlock(device_object);
return KERN_SUCCESS;
}
kern_return_t
device_pager_last_unmap(
memory_object_t mem_obj)
{
device_pager_t device_object;
boolean_t drop_ref;
device_object = device_pager_lookup(mem_obj);
device_pager_lock(device_object);
assert(device_object->ref_count > 0);
if (device_object->is_mapped) {
device_object->is_mapped = FALSE;
drop_ref = TRUE;
} else {
drop_ref = FALSE;
}
device_pager_unlock(device_object);
if (drop_ref) {
device_pager_deallocate(mem_obj);
}
return KERN_SUCCESS;
}
device_pager_t
device_object_create(void)
{
device_pager_t device_object;
device_object = (struct device_pager *) zalloc(device_pager_zone);
if (device_object == DEVICE_PAGER_NULL)
return(DEVICE_PAGER_NULL);
bzero(device_object, sizeof (*device_object));
device_object->dev_pgr_hdr.mo_ikot = IKOT_MEMORY_OBJECT;
device_object->dev_pgr_hdr.mo_pager_ops = &device_pager_ops;
device_object->dev_pgr_hdr.mo_control = MEMORY_OBJECT_CONTROL_NULL;
device_pager_lock_init(device_object);
device_object->ref_count = 1;
device_object->is_mapped = FALSE;
DTRACE_VM2(device_pager_create,
device_pager_t, device_object,
unsigned int, device_object->ref_count);
return(device_object);
}
boolean_t
is_device_pager_ops(const struct memory_object_pager_ops *pager_ops)
{
if (pager_ops == &device_pager_ops) {
return TRUE;
}
return FALSE;
}