memobj-r0drv-darwin.cpp@ 32043

Last change on this file since 32043 was 29255, checked in by vboxsync, 15 years ago
darwin+asm.h build fixes.
Property svn:eol-style set to `native` Property svn:keywords set to `Id`
File size: 38.4 KB

Line
1	/* $Id: memobj-r0drv-darwin.cpp 29255 2010-05-09 18:11:24Z vboxsync $ */
2	/** @file
3	* IPRT - Ring-0 Memory Objects, Darwin.
4	*/
5
6	/*
7	* Copyright (C) 2006-2007 Oracle Corporation
8	*
9	* This file is part of VirtualBox Open Source Edition (OSE), as
10	* available from http://www.virtualbox.org. This file is free software;
11	* you can redistribute it and/or modify it under the terms of the GNU
12	* General Public License (GPL) as published by the Free Software
13	* Foundation, in version 2 as it comes in the "COPYING" file of the
14	* VirtualBox OSE distribution. VirtualBox OSE is distributed in the
15	* hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
16	*
17	* The contents of this file may alternatively be used under the terms
18	* of the Common Development and Distribution License Version 1.0
19	* (CDDL) only, as it comes in the "COPYING.CDDL" file of the
20	* VirtualBox OSE distribution, in which case the provisions of the
21	* CDDL are applicable instead of those of the GPL.
22	*
23	* You may elect to license modified versions of this file under the
24	* terms and conditions of either the GPL or the CDDL or both.
25	*/
26
27
28	/*******************************************************************************
29	* Header Files *
30	*******************************************************************************/
31	#include "the-darwin-kernel.h"
32	#include "internal/iprt.h"
33	#include <iprt/memobj.h>
34
35	#include <iprt/asm.h>
36	#if defined(RT_ARCH_AMD64) \|\| defined(RT_ARCH_X86)
37	# include <iprt/asm-amd64-x86.h>
38	#endif
39	#include <iprt/assert.h>
40	#include <iprt/log.h>
41	#include <iprt/mem.h>
42	#include <iprt/param.h>
43	#include <iprt/process.h>
44	#include <iprt/string.h>
45	#include <iprt/thread.h>
46	#include "internal/memobj.h"
47
48	/#define USE_VM_MAP_WIRE - may re-enable later when non-mapped allocations are added. /
49
50
51	/*******************************************************************************
52	* Structures and Typedefs *
53	*******************************************************************************/
54	/**
55	* The Darwin version of the memory object structure.
56	*/
57	typedef struct RTR0MEMOBJDARWIN
58	{
59	/** The core structure. */
60	RTR0MEMOBJINTERNAL Core;
61	/** Pointer to the memory descriptor created for allocated and locked memory. */
62	IOMemoryDescriptor *pMemDesc;
63	/** Pointer to the memory mapping object for mapped memory. */
64	IOMemoryMap *pMemMap;
65	} RTR0MEMOBJDARWIN, *PRTR0MEMOBJDARWIN;
66
67
68	/**
69	* HACK ALERT!
70	*
71	* Touch the pages to force the kernel to create the page
72	* table entries. This is necessary since the kernel gets
73	* upset if we take a page fault when preemption is disabled
74	* and/or we own a simple lock. It has no problems with us
75	* disabling interrupts when taking the traps, weird stuff.
76	*
77	* @param pv Pointer to the first page.
78	* @param cb The number of bytes.
79	*/
80	static void rtR0MemObjDarwinTouchPages(void *pv, size_t cb)
81	{
82	uint32_t volatile pu32 = (uint32_t volatile )pv;
83	for (;;)
84	{
85	ASMAtomicCmpXchgU32(pu32, 0xdeadbeef, 0xdeadbeef);
86	if (cb <= PAGE_SIZE)
87	break;
88	cb -= PAGE_SIZE;
89	pu32 += PAGE_SIZE / sizeof(uint32_t);
90	}
91	}
92
93
94	/**
95	* Gets the virtual memory map the specified object is mapped into.
96	*
97	* @returns VM map handle on success, NULL if no map.
98	* @param pMem The memory object.
99	*/
100	DECLINLINE(vm_map_t) rtR0MemObjDarwinGetMap(PRTR0MEMOBJINTERNAL pMem)
101	{
102	switch (pMem->enmType)
103	{
104	case RTR0MEMOBJTYPE_PAGE:
105	case RTR0MEMOBJTYPE_LOW:
106	case RTR0MEMOBJTYPE_CONT:
107	return kernel_map;
108
109	case RTR0MEMOBJTYPE_PHYS:
110	case RTR0MEMOBJTYPE_PHYS_NC:
111	return NULL; /* pretend these have no mapping atm. */
112
113	case RTR0MEMOBJTYPE_LOCK:
114	return pMem->u.Lock.R0Process == NIL_RTR0PROCESS
115	? kernel_map
116	: get_task_map((task_t)pMem->u.Lock.R0Process);
117
118	case RTR0MEMOBJTYPE_RES_VIRT:
119	return pMem->u.ResVirt.R0Process == NIL_RTR0PROCESS
120	? kernel_map
121	: get_task_map((task_t)pMem->u.ResVirt.R0Process);
122
123	case RTR0MEMOBJTYPE_MAPPING:
124	return pMem->u.Mapping.R0Process == NIL_RTR0PROCESS
125	? kernel_map
126	: get_task_map((task_t)pMem->u.Mapping.R0Process);
127
128	default:
129	return NULL;
130	}
131	}
132
133	#if 0 /* not necessary after all*/
134	/* My vm_map mockup. */
135	struct my_vm_map
136	{
137	struct { char pad[8]; } lock;
138	struct my_vm_map_header
139	{
140	struct vm_map_links
141	{
142	void *prev;
143	void *next;
144	vm_map_offset_t start;
145	vm_map_offset_t end;
146	} links;
147	int nentries;
148	boolean_t entries_pageable;
149	} hdr;
150	pmap_t pmap;
151	vm_map_size_t size;
152	};
153
154
155	/**
156	* Gets the minimum map address, this is similar to get_map_min.
157	*
158	* @returns The start address of the map.
159	* @param pMap The map.
160	*/
161	static vm_map_offset_t rtR0MemObjDarwinGetMapMin(vm_map_t pMap)
162	{
163	/* lazy discovery of the correct offset. The apple guys is a wonderfully secretive bunch. */
164	static int32_t volatile s_offAdjust = INT32_MAX;
165	int32_t off = s_offAdjust;
166	if (off == INT32_MAX)
167	{
168	for (off = 0; ; off += sizeof(pmap_t))
169	{
170	if ((pmap_t )((uint8_t *)kernel_map + off) == kernel_pmap)
171	break;
172	AssertReturn(off <= RT_MAX(RT_OFFSETOF(struct my_vm_map, pmap) * 4, 1024), 0x1000);
173	}
174	ASMAtomicWriteS32(&s_offAdjust, off - RT_OFFSETOF(struct my_vm_map, pmap));
175	}
176
177	/* calculate it. */
178	struct my_vm_map pMyMap = (struct my_vm_map )((uint8_t *)pMap + off);
179	return pMyMap->hdr.links.start;
180	}
181	#endif /* unused */
182
183	#ifdef RT_STRICT
184
185	/**
186	* Read from a physical page.
187	*
188	* @param HCPhys The address to start reading at.
189	* @param cb How many bytes to read.
190	* @param pvDst Where to put the bytes. This is zero'ed on failure.
191	*/
192	static void rtR0MemObjDarwinReadPhys(RTHCPHYS HCPhys, size_t cb, void *pvDst)
193	{
194	memset(pvDst, '\0', cb);
195
196	IOAddressRange aRanges[1] = { { (mach_vm_address_t)HCPhys, RT_ALIGN(cb, PAGE_SIZE) } };
197	IOMemoryDescriptor *pMemDesc = IOMemoryDescriptor::withAddressRanges(&aRanges[0], RT_ELEMENTS(aRanges),
198	kIODirectionIn, NULL /task/);
199	if (pMemDesc)
200	{
201	#if MAC_OS_X_VERSION_MIN_REQUIRED >= 1050
202	IOMemoryMap *pMemMap = pMemDesc->createMappingInTask(kernel_task, 0, kIOMapAnywhere \| kIOMapDefaultCache);
203	#else
204	IOMemoryMap *pMemMap = pMemDesc->map(kernel_task, 0, kIOMapAnywhere \| kIOMapDefaultCache);
205	#endif
206	if (pMemMap)
207	{
208	void const pvSrc = (void const )(uintptr_t)pMemMap->getVirtualAddress();
209	memcpy(pvDst, pvSrc, cb);
210	pMemMap->release();
211	}
212	else
213	printf("rtR0MemObjDarwinReadPhys: createMappingInTask failed; HCPhys=%llx\n", HCPhys);
214
215	pMemDesc->release();
216	}
217	else
218	printf("rtR0MemObjDarwinReadPhys: withAddressRanges failed; HCPhys=%llx\n", HCPhys);
219	}
220
221
222	/**
223	* Gets the PTE for a page.
224	*
225	* @returns the PTE.
226	* @param pvPage The virtual address to get the PTE for.
227	*/
228	uint64_t rtR0MemObjDarwinGetPTE(void *pvPage)
229	{
230	RTUINT64U u64;
231	RTCCUINTREG cr3 = ASMGetCR3();
232	RTCCUINTREG cr4 = ASMGetCR4();
233	bool fPAE = false;
234	bool fLMA = false;
235	if (cr4 & RT_BIT(5) /X86_CR4_PAE/)
236	{
237	fPAE = true;
238	uint32_t fAmdFeatures = ASMCpuId_EDX(0x80000001);
239	if (fAmdFeatures & RT_BIT(29) /X86_CPUID_AMD_FEATURE_EDX_LONG_MODE/)
240	{
241	uint64_t efer = ASMRdMsr(0xc0000080 /MSR_K6_EFER/);
242	if (efer & RT_BIT(10) /MSR_K6_EFER_LMA/)
243	fLMA = true;
244	}
245	}
246
247	if (fLMA)
248	{
249	/* PML4 */
250	rtR0MemObjDarwinReadPhys((cr3 & ~(RTCCUINTREG)PAGE_OFFSET_MASK) \| (((uint64_t)(uintptr_t)pvPage >> 39) & 0x1ff) * 8, 8, &u64);
251	if (!(u64.u & RT_BIT(0) /* present */))
252	{
253	printf("rtR0MemObjDarwinGetPTE: %p -> PML4E !p\n", pvPage);
254	return 0;
255	}
256
257	/* PDPTR */
258	rtR0MemObjDarwinReadPhys((u64.u & ~(uint64_t)PAGE_OFFSET_MASK) \| (((uintptr_t)pvPage >> 30) & 0x1ff) * 8, 8, &u64);
259	if (!(u64.u & RT_BIT(0) /* present */))
260	{
261	printf("rtR0MemObjDarwinGetPTE: %p -> PDPTE !p\n", pvPage);
262	return 0;
263	}
264	if (u64.u & RT_BIT(7) /* big */)
265	return (u64.u & ~(uint64_t)(_1G -1)) \| ((uintptr_t)pvPage & (_1G -1));
266
267	/* PD */
268	rtR0MemObjDarwinReadPhys((u64.u & ~(uint64_t)PAGE_OFFSET_MASK) \| (((uintptr_t)pvPage >> 21) & 0x1ff) * 8, 8, &u64);
269	if (!(u64.u & RT_BIT(0) /* present */))
270	{
271	printf("rtR0MemObjDarwinGetPTE: %p -> PDE !p\n", pvPage);
272	return 0;
273	}
274	if (u64.u & RT_BIT(7) /* big */)
275	return (u64.u & ~(uint64_t)(_2M -1)) \| ((uintptr_t)pvPage & (_2M -1));
276
277	/* PD */
278	rtR0MemObjDarwinReadPhys((u64.u & ~(uint64_t)PAGE_OFFSET_MASK) \| (((uintptr_t)pvPage >> 12) & 0x1ff) * 8, 8, &u64);
279	if (!(u64.u & RT_BIT(0) /* present */))
280	{
281	printf("rtR0MemObjDarwinGetPTE: %p -> PTE !p\n", pvPage);
282	return 0;
283	}
284	return u64.u;
285	}
286
287	if (fPAE)
288	{
289	/* PDPTR */
290	rtR0MemObjDarwinReadPhys((u64.u & 0xffffffe0 /X86_CR3_PAE_PAGE_MASK/) \| (((uintptr_t)pvPage >> 30) & 0x3) * 8, 8, &u64);
291	if (!(u64.u & RT_BIT(0) /* present */))
292	return 0;
293
294	/* PD */
295	rtR0MemObjDarwinReadPhys((u64.u & ~(uint64_t)PAGE_OFFSET_MASK) \| (((uintptr_t)pvPage >> 21) & 0x1ff) * 8, 8, &u64);
296	if (!(u64.u & RT_BIT(0) /* present */))
297	return 0;
298	if (u64.u & RT_BIT(7) /* big */)
299	return (u64.u & ~(uint64_t)(_2M -1)) \| ((uintptr_t)pvPage & (_2M -1));
300
301	/* PD */
302	rtR0MemObjDarwinReadPhys((u64.u & ~(uint64_t)PAGE_OFFSET_MASK) \| (((uintptr_t)pvPage >> 12) & 0x1ff) * 8, 8, &u64);
303	if (!(u64.u & RT_BIT(0) /* present */))
304	return 0;
305	return u64.u;
306	}
307
308	/* PD */
309	rtR0MemObjDarwinReadPhys((u64.au32[0] & ~(uint32_t)PAGE_OFFSET_MASK) \| (((uintptr_t)pvPage >> 22) & 0x3ff) * 4, 4, &u64);
310	if (!(u64.au32[0] & RT_BIT(0) /* present */))
311	return 0;
312	if (u64.au32[0] & RT_BIT(7) /* big */)
313	return (u64.u & ~(uint64_t)(_2M -1)) \| ((uintptr_t)pvPage & (_2M -1));
314
315	/* PD */
316	rtR0MemObjDarwinReadPhys((u64.au32[0] & ~(uint32_t)PAGE_OFFSET_MASK) \| (((uintptr_t)pvPage >> 12) & 0x3ff) * 4, 4, &u64);
317	if (!(u64.au32[0] & RT_BIT(0) /* present */))
318	return 0;
319	return u64.au32[0];
320
321	return 0;
322	}
323
324	#endif /* RT_STRICT */
325
326	int rtR0MemObjNativeFree(RTR0MEMOBJ pMem)
327	{
328	PRTR0MEMOBJDARWIN pMemDarwin = (PRTR0MEMOBJDARWIN)pMem;
329
330	/*
331	* Release the IOMemoryDescriptor or/and IOMemoryMap associated with the object.
332	*/
333	if (pMemDarwin->pMemDesc)
334	{
335	if (pMemDarwin->Core.enmType == RTR0MEMOBJTYPE_LOCK)
336	pMemDarwin->pMemDesc->complete(); /* paranoia */
337	pMemDarwin->pMemDesc->release();
338	pMemDarwin->pMemDesc = NULL;
339	}
340
341	if (pMemDarwin->pMemMap)
342	{
343	pMemDarwin->pMemMap->release();
344	pMemDarwin->pMemMap = NULL;
345	}
346
347	/*
348	* Release any memory that we've allocated or locked.
349	*/
350	switch (pMemDarwin->Core.enmType)
351	{
352	case RTR0MEMOBJTYPE_LOW:
353	case RTR0MEMOBJTYPE_PAGE:
354	case RTR0MEMOBJTYPE_CONT:
355	break;
356
357	case RTR0MEMOBJTYPE_LOCK:
358	{
359	#ifdef USE_VM_MAP_WIRE
360	vm_map_t Map = pMemDarwin->Core.u.Lock.R0Process != NIL_RTR0PROCESS
361	? get_task_map((task_t)pMemDarwin->Core.u.Lock.R0Process)
362	: kernel_map;
363	kern_return_t kr = vm_map_unwire(Map,
364	(vm_map_offset_t)pMemDarwin->Core.pv,
365	(vm_map_offset_t)pMemDarwin->Core.pv + pMemDarwin->Core.cb,
366	0 /* not user */);
367	AssertRC(kr == KERN_SUCCESS); /** @todo don't ignore... */
368	#endif
369	break;
370	}
371
372	case RTR0MEMOBJTYPE_PHYS:
373	/*if (pMemDarwin->Core.u.Phys.fAllocated)
374	IOFreePhysical(pMemDarwin->Core.u.Phys.PhysBase, pMemDarwin->Core.cb);*/
375	Assert(!pMemDarwin->Core.u.Phys.fAllocated);
376	break;
377
378	case RTR0MEMOBJTYPE_PHYS_NC:
379	AssertMsgFailed(("RTR0MEMOBJTYPE_PHYS_NC\n"));
380	return VERR_INTERNAL_ERROR;
381
382	case RTR0MEMOBJTYPE_RES_VIRT:
383	AssertMsgFailed(("RTR0MEMOBJTYPE_RES_VIRT\n"));
384	return VERR_INTERNAL_ERROR;
385
386	case RTR0MEMOBJTYPE_MAPPING:
387	/* nothing to do here. */
388	break;
389
390	default:
391	AssertMsgFailed(("enmType=%d\n", pMemDarwin->Core.enmType));
392	return VERR_INTERNAL_ERROR;
393	}
394
395	return VINF_SUCCESS;
396	}
397
398
399
400	/**
401	* Kernel memory alloc worker that uses inTaskWithPhysicalMask.
402	*
403	* @returns IPRT status code.
404	* @retval VERR_ADDRESS_TOO_BIG try another way.
405	*
406	* @param ppMem Where to return the memory object.
407	* @param cb The page aligned memory size.
408	* @param fExecutable Whether the mapping needs to be executable.
409	* @param fContiguous Whether the backing memory needs to be contiguous.
410	* @param PhysMask The mask for the backing memory (i.e. range). Use 0 if
411	* you don't care that much or is speculating.
412	* @param MaxPhysAddr The max address to verify the result against. Use
413	* UINT64_MAX if it doesn't matter.
414	* @param enmType The object type.
415	*/
416	static int rtR0MemObjNativeAllocWorker(PPRTR0MEMOBJINTERNAL ppMem, size_t cb,
417	bool fExecutable, bool fContiguous,
418	mach_vm_address_t PhysMask, uint64_t MaxPhysAddr,
419	RTR0MEMOBJTYPE enmType)
420	{
421	/*
422	* Try inTaskWithPhysicalMask first, but since we don't quite trust that it
423	* actually respects the physical memory mask (10.5.x is certainly busted),
424	* we'll use rtR0MemObjNativeAllocCont as a fallback for dealing with that.
425	*
426	* The kIOMemoryKernelUserShared flag just forces the result to be page aligned.
427	*/
428	int rc;
429	IOBufferMemoryDescriptor *pMemDesc =
430	IOBufferMemoryDescriptor::inTaskWithPhysicalMask(kernel_task,
431	kIOMemoryKernelUserShared
432	\| kIODirectionInOut
433	\| (fContiguous ? kIOMemoryPhysicallyContiguous : 0),
434	cb,
435	PhysMask);
436	if (pMemDesc)
437	{
438	IOReturn IORet = pMemDesc->prepare(kIODirectionInOut);
439	if (IORet == kIOReturnSuccess)
440	{
441	void *pv = pMemDesc->getBytesNoCopy(0, cb);
442	if (pv)
443	{
444	/*
445	* Check if it's all below 4GB.
446	*/
447	addr64_t AddrPrev = 0;
448	MaxPhysAddr &= ~(uint64_t)PAGE_OFFSET_MASK;
449	for (IOByteCount off = 0; off < cb; off += PAGE_SIZE)
450	{
451	#ifdef __LP64__ /* Grumble! */
452	addr64_t Addr = pMemDesc->getPhysicalSegment(off, NULL);
453	#else
454	addr64_t Addr = pMemDesc->getPhysicalSegment64(off, NULL);
455	#endif
456	if ( Addr > MaxPhysAddr
457	\|\| !Addr
458	\|\| (Addr & PAGE_OFFSET_MASK)
459	\|\| ( fContiguous
460	&& !off
461	&& Addr == AddrPrev + PAGE_SIZE))
462	{
463	/* Buggy API, try allocate the memory another way. */
464	pMemDesc->release();
465	if (PhysMask)
466	LogAlways(("rtR0MemObjNativeAllocWorker: off=%x Addr=%llx AddrPrev=%llx MaxPhysAddr=%llx PhysMas=%llx - buggy API!\n",
467	off, Addr, AddrPrev, MaxPhysAddr, PhysMask));
468	return VERR_ADDRESS_TOO_BIG;
469	}
470	AddrPrev = Addr;
471	}
472
473	#ifdef RT_STRICT
474	/* check that the memory is actually mapped. */
475	//addr64_t Addr = pMemDesc->getPhysicalSegment64(0, NULL);
476	//printf("rtR0MemObjNativeAllocWorker: pv=%p %8llx %8llx\n", pv, rtR0MemObjDarwinGetPTE(pv), Addr);
477	RTTHREADPREEMPTSTATE State = RTTHREADPREEMPTSTATE_INITIALIZER;
478	RTThreadPreemptDisable(&State);
479	rtR0MemObjDarwinTouchPages(pv, cb);
480	RTThreadPreemptRestore(&State);
481	#endif
482
483	/*
484	* Create the IPRT memory object.
485	*/
486	PRTR0MEMOBJDARWIN pMemDarwin = (PRTR0MEMOBJDARWIN)rtR0MemObjNew(sizeof(*pMemDarwin), enmType, pv, cb);
487	if (pMemDarwin)
488	{
489	if (fContiguous)
490	{
491	#ifdef __LP64__ /* Grumble! */
492	addr64_t PhysBase64 = pMemDesc->getPhysicalSegment(0, NULL);
493	#else
494	addr64_t PhysBase64 = pMemDesc->getPhysicalSegment64(0, NULL);
495	#endif
496	RTHCPHYS PhysBase = PhysBase64; Assert(PhysBase == PhysBase64);
497	if (enmType == RTR0MEMOBJTYPE_CONT)
498	pMemDarwin->Core.u.Cont.Phys = PhysBase;
499	else if (enmType == RTR0MEMOBJTYPE_PHYS)
500	pMemDarwin->Core.u.Phys.PhysBase = PhysBase;
501	else
502	AssertMsgFailed(("enmType=%d\n", enmType));
503	}
504
505	pMemDarwin->pMemDesc = pMemDesc;
506	*ppMem = &pMemDarwin->Core;
507	return VINF_SUCCESS;
508	}
509
510	rc = VERR_NO_MEMORY;
511	}
512	else
513	rc = VERR_MEMOBJ_INIT_FAILED;
514	}
515	else
516	rc = RTErrConvertFromDarwinIO(IORet);
517	pMemDesc->release();
518	}
519	else
520	rc = VERR_MEMOBJ_INIT_FAILED;
521	Assert(rc != VERR_ADDRESS_TOO_BIG);
522	return rc;
523	}
524
525
526	int rtR0MemObjNativeAllocPage(PPRTR0MEMOBJINTERNAL ppMem, size_t cb, bool fExecutable)
527	{
528	return rtR0MemObjNativeAllocWorker(ppMem, cb, fExecutable, false /* fContiguous */,
529	0 /* PhysMask */, UINT64_MAX, RTR0MEMOBJTYPE_PAGE);
530	}
531
532
533	int rtR0MemObjNativeAllocLow(PPRTR0MEMOBJINTERNAL ppMem, size_t cb, bool fExecutable)
534	{
535	/*
536	* Try IOMallocPhysical/IOMallocAligned first.
537	* Then try optimistically without a physical address mask, which will always
538	* end up using IOMallocAligned.
539	*
540	* (See bug comment in the worker and IOBufferMemoryDescriptor::initWithPhysicalMask.)
541	*/
542	int rc = rtR0MemObjNativeAllocWorker(ppMem, cb, fExecutable, false /* fContiguous */,
543	~(uint32_t)PAGE_OFFSET_MASK, _4G - PAGE_SIZE, RTR0MEMOBJTYPE_LOW);
544	if (rc == VERR_ADDRESS_TOO_BIG)
545	rc = rtR0MemObjNativeAllocWorker(ppMem, cb, fExecutable, false /* fContiguous */,
546	0 /* PhysMask */, _4G - PAGE_SIZE, RTR0MEMOBJTYPE_LOW);
547	return rc;
548	}
549
550
551	int rtR0MemObjNativeAllocCont(PPRTR0MEMOBJINTERNAL ppMem, size_t cb, bool fExecutable)
552	{
553	int rc = rtR0MemObjNativeAllocWorker(ppMem, cb, fExecutable, true /* fContiguous */,
554	~(uint32_t)PAGE_OFFSET_MASK, _4G - PAGE_SIZE,
555	RTR0MEMOBJTYPE_CONT);
556
557	/*
558	* Workaround for bogus IOKernelAllocateContiguous behavior, just in case.
559	* cb <= PAGE_SIZE allocations take a different path, using a different allocator.
560	*/
561	if (RT_FAILURE(rc) && cb <= PAGE_SIZE)
562	rc = rtR0MemObjNativeAllocWorker(ppMem, cb + PAGE_SIZE, fExecutable, true /* fContiguous */,
563	~(uint32_t)PAGE_OFFSET_MASK, _4G - PAGE_SIZE,
564	RTR0MEMOBJTYPE_CONT);
565	return rc;
566	}
567
568
569	int rtR0MemObjNativeAllocPhys(PPRTR0MEMOBJINTERNAL ppMem, size_t cb, RTHCPHYS PhysHighest, size_t uAlignment)
570	{
571	/** @todo alignment */
572	if (uAlignment != PAGE_SIZE)
573	return VERR_NOT_SUPPORTED;
574
575	/*
576	* Translate the PhysHighest address into a mask.
577	*/
578	int rc;
579	if (PhysHighest == NIL_RTHCPHYS)
580	rc = rtR0MemObjNativeAllocWorker(ppMem, cb, true /* fExecutable /, true / fContiguous */,
581	0 /* PhysMask*/, UINT64_MAX, RTR0MEMOBJTYPE_PHYS);
582	else
583	{
584	mach_vm_address_t PhysMask = 0;
585	PhysMask = ~(mach_vm_address_t)0;
586	while (PhysMask > (PhysHighest \| PAGE_OFFSET_MASK))
587	PhysMask >>= 1;
588	AssertReturn(PhysMask + 1 <= cb, VERR_INVALID_PARAMETER);
589	PhysMask &= ~(mach_vm_address_t)PAGE_OFFSET_MASK;
590
591	rc = rtR0MemObjNativeAllocWorker(ppMem, cb, true /* fExecutable /, true / fContiguous */,
592	PhysMask, PhysHighest, RTR0MEMOBJTYPE_PHYS);
593	}
594	return rc;
595	}
596
597
598	int rtR0MemObjNativeAllocPhysNC(PPRTR0MEMOBJINTERNAL ppMem, size_t cb, RTHCPHYS PhysHighest)
599	{
600	/** @todo rtR0MemObjNativeAllocPhys / darwin.
601	* This might be a bit problematic and may very well require having to create our own
602	* object which we populate with pages but without mapping it into any address space.
603	* Estimate is 2-3 days.
604	*/
605	return VERR_NOT_SUPPORTED;
606	}
607
608
609	int rtR0MemObjNativeEnterPhys(PPRTR0MEMOBJINTERNAL ppMem, RTHCPHYS Phys, size_t cb, uint32_t uCachePolicy)
610	{
611	AssertReturn(uCachePolicy == RTMEM_CACHE_POLICY_DONT_CARE, VERR_NOT_IMPLEMENTED);
612
613	/*
614	* Create a descriptor for it (the validation is always true on intel macs, but
615	* as it doesn't harm us keep it in).
616	*/
617	int rc = VERR_ADDRESS_TOO_BIG;
618	IOAddressRange aRanges[1] = { { Phys, cb } };
619	if ( aRanges[0].address == Phys
620	&& aRanges[0].length == cb)
621	{
622	IOMemoryDescriptor *pMemDesc = IOMemoryDescriptor::withAddressRanges(&aRanges[0], RT_ELEMENTS(aRanges),
623	kIODirectionInOut, NULL /task/);
624	if (pMemDesc)
625	{
626	#ifdef __LP64__ /* Grumble! */
627	Assert(Phys == pMemDesc->getPhysicalSegment(0, 0));
628	#else
629	Assert(Phys == pMemDesc->getPhysicalSegment64(0, 0));
630	#endif
631
632	/*
633	* Create the IPRT memory object.
634	*/
635	PRTR0MEMOBJDARWIN pMemDarwin = (PRTR0MEMOBJDARWIN)rtR0MemObjNew(sizeof(*pMemDarwin), RTR0MEMOBJTYPE_PHYS, NULL, cb);
636	if (pMemDarwin)
637	{
638	pMemDarwin->Core.u.Phys.PhysBase = Phys;
639	pMemDarwin->Core.u.Phys.fAllocated = false;
640	pMemDarwin->Core.u.Phys.uCachePolicy = uCachePolicy;
641	pMemDarwin->pMemDesc = pMemDesc;
642	*ppMem = &pMemDarwin->Core;
643	return VINF_SUCCESS;
644	}
645
646	rc = VERR_NO_MEMORY;
647	pMemDesc->release();
648	}
649	else
650	rc = VERR_MEMOBJ_INIT_FAILED;
651	}
652	else
653	AssertMsgFailed(("%#llx %llx\n", (unsigned long long)Phys, (unsigned long long)cb));
654	return rc;
655	}
656
657
658	/**
659	* Internal worker for locking down pages.
660	*
661	* @return IPRT status code.
662	*
663	* @param ppMem Where to store the memory object pointer.
664	* @param pv First page.
665	* @param cb Number of bytes.
666	* @param fAccess The desired access, a combination of RTMEM_PROT_READ
667	* and RTMEM_PROT_WRITE.
668	* @param Task The task \a pv and \a cb refers to.
669	*/
670	static int rtR0MemObjNativeLock(PPRTR0MEMOBJINTERNAL ppMem, void *pv, size_t cb, uint32_t fAccess, task_t Task)
671	{
672	NOREF(fAccess);
673	#ifdef USE_VM_MAP_WIRE
674	vm_map_t Map = get_task_map(Task);
675	Assert(Map);
676
677	/*
678	* First try lock the memory.
679	*/
680	int rc = VERR_LOCK_FAILED;
681	kern_return_t kr = vm_map_wire(get_task_map(Task),
682	(vm_map_offset_t)pv,
683	(vm_map_offset_t)pv + cb,
684	VM_PROT_DEFAULT,
685	0 /* not user */);
686	if (kr == KERN_SUCCESS)
687	{
688	/*
689	* Create the IPRT memory object.
690	*/
691	PRTR0MEMOBJDARWIN pMemDarwin = (PRTR0MEMOBJDARWIN)rtR0MemObjNew(sizeof(*pMemDarwin), RTR0MEMOBJTYPE_LOCK, pv, cb);
692	if (pMemDarwin)
693	{
694	pMemDarwin->Core.u.Lock.R0Process = (RTR0PROCESS)Task;
695	*ppMem = &pMemDarwin->Core;
696	return VINF_SUCCESS;
697	}
698
699	kr = vm_map_unwire(get_task_map(Task), (vm_map_offset_t)pv, (vm_map_offset_t)pv + cb, 0 /* not user */);
700	Assert(kr == KERN_SUCCESS);
701	rc = VERR_NO_MEMORY;
702	}
703
704	#else
705
706	/*
707	* Create a descriptor and try lock it (prepare).
708	*/
709	int rc = VERR_MEMOBJ_INIT_FAILED;
710	IOMemoryDescriptor *pMemDesc = IOMemoryDescriptor::withAddressRange((vm_address_t)pv, cb, kIODirectionInOut, Task);
711	if (pMemDesc)
712	{
713	IOReturn IORet = pMemDesc->prepare(kIODirectionInOut);
714	if (IORet == kIOReturnSuccess)
715	{
716	/*
717	* Create the IPRT memory object.
718	*/
719	PRTR0MEMOBJDARWIN pMemDarwin = (PRTR0MEMOBJDARWIN)rtR0MemObjNew(sizeof(*pMemDarwin), RTR0MEMOBJTYPE_LOCK, pv, cb);
720	if (pMemDarwin)
721	{
722	pMemDarwin->Core.u.Lock.R0Process = (RTR0PROCESS)Task;
723	pMemDarwin->pMemDesc = pMemDesc;
724	*ppMem = &pMemDarwin->Core;
725	return VINF_SUCCESS;
726	}
727
728	pMemDesc->complete();
729	rc = VERR_NO_MEMORY;
730	}
731	else
732	rc = VERR_LOCK_FAILED;
733	pMemDesc->release();
734	}
735	#endif
736	return rc;
737	}
738
739
740	int rtR0MemObjNativeLockUser(PPRTR0MEMOBJINTERNAL ppMem, RTR3PTR R3Ptr, size_t cb, uint32_t fAccess, RTR0PROCESS R0Process)
741	{
742	return rtR0MemObjNativeLock(ppMem, (void *)R3Ptr, cb, fAccess, (task_t)R0Process);
743	}
744
745
746	int rtR0MemObjNativeLockKernel(PPRTR0MEMOBJINTERNAL ppMem, void *pv, size_t cb, uint32_t fAccess)
747	{
748	return rtR0MemObjNativeLock(ppMem, pv, cb, fAccess, kernel_task);
749	}
750
751
752	int rtR0MemObjNativeReserveKernel(PPRTR0MEMOBJINTERNAL ppMem, void *pvFixed, size_t cb, size_t uAlignment)
753	{
754	return VERR_NOT_IMPLEMENTED;
755	}
756
757
758	int rtR0MemObjNativeReserveUser(PPRTR0MEMOBJINTERNAL ppMem, RTR3PTR R3PtrFixed, size_t cb, size_t uAlignment, RTR0PROCESS R0Process)
759	{
760	return VERR_NOT_IMPLEMENTED;
761	}
762
763
764	int rtR0MemObjNativeMapKernel(PPRTR0MEMOBJINTERNAL ppMem, RTR0MEMOBJ pMemToMap, void *pvFixed, size_t uAlignment,
765	unsigned fProt, size_t offSub, size_t cbSub)
766	{
767	AssertReturn(pvFixed == (void *)-1, VERR_NOT_SUPPORTED);
768
769	/*
770	* Check that the specified alignment is supported.
771	*/
772	if (uAlignment > PAGE_SIZE)
773	return VERR_NOT_SUPPORTED;
774
775	/*
776	* Must have a memory descriptor that we can map.
777	*/
778	int rc = VERR_INVALID_PARAMETER;
779	PRTR0MEMOBJDARWIN pMemToMapDarwin = (PRTR0MEMOBJDARWIN)pMemToMap;
780	if (pMemToMapDarwin->pMemDesc)
781	{
782	#if MAC_OS_X_VERSION_MIN_REQUIRED >= 1050
783	IOMemoryMap *pMemMap = pMemToMapDarwin->pMemDesc->createMappingInTask(kernel_task,
784	0,
785	kIOMapAnywhere \| kIOMapDefaultCache,
786	offSub,
787	cbSub);
788	#else
789	IOMemoryMap *pMemMap = pMemToMapDarwin->pMemDesc->map(kernel_task,
790	0,
791	kIOMapAnywhere \| kIOMapDefaultCache,
792	offSub,
793	cbSub);
794	#endif
795	if (pMemMap)
796	{
797	IOVirtualAddress VirtAddr = pMemMap->getVirtualAddress();
798	void pv = (void )(uintptr_t)VirtAddr;
799	if ((uintptr_t)pv == VirtAddr)
800	{
801	//addr64_t Addr = pMemToMapDarwin->pMemDesc->getPhysicalSegment64(offSub, NULL);
802	//printf("pv=%p: %8llx %8llx\n", pv, rtR0MemObjDarwinGetPTE(pv), Addr);
803
804	// /*
805	// * Explicitly lock it so that we're sure it is present and that
806	// * its PTEs cannot be recycled.
807	// * Note! withAddressRange() doesn't work as it adds kIOMemoryTypeVirtual64
808	// * to the options which causes prepare() to not wire the pages.
809	// * This is probably a bug.
810	// */
811	// IOAddressRange Range = { (mach_vm_address_t)pv, cbSub };
812	// IOMemoryDescriptor *pMemDesc = IOMemoryDescriptor::withOptions(&Range,
813	// 1 /* count */,
814	// 0 /* offset */,
815	// kernel_task,
816	// kIODirectionInOut \| kIOMemoryTypeVirtual,
817	// kIOMapperSystem);
818	// if (pMemDesc)
819	// {
820	// IOReturn IORet = pMemDesc->prepare(kIODirectionInOut);
821	// if (IORet == kIOReturnSuccess)
822	// {
823	/* HACK ALERT! */
824	rtR0MemObjDarwinTouchPages(pv, cbSub);
825	/** @todo First, the memory should've been mapped by now, and second, it
826	* shouild have the wired attribute in the PTE (bit 9). Neither is
827	* seems to be the case. The disabled locking code doesn't make any
828	* difference, which is extremely odd, and breaks
829	* rtR0MemObjNativeGetPagePhysAddr (getPhysicalSegment64 -> 64 for the
830	* lock descriptor. */
831	//addr64_t Addr = pMemDesc->getPhysicalSegment64(0, NULL);
832	//printf("pv=%p: %8llx %8llx (%d)\n", pv, rtR0MemObjDarwinGetPTE(pv), Addr, 2);
833
834	/*
835	* Create the IPRT memory object.
836	*/
837	PRTR0MEMOBJDARWIN pMemDarwin = (PRTR0MEMOBJDARWIN)rtR0MemObjNew(sizeof(*pMemDarwin), RTR0MEMOBJTYPE_MAPPING,
838	pv, cbSub);
839	if (pMemDarwin)
840	{
841	pMemDarwin->Core.u.Mapping.R0Process = NIL_RTR0PROCESS;
842	pMemDarwin->pMemMap = pMemMap;
843	// pMemDarwin->pMemDesc = pMemDesc;
844	*ppMem = &pMemDarwin->Core;
845	return VINF_SUCCESS;
846	}
847
848	// pMemDesc->complete();
849	// rc = VERR_NO_MEMORY;
850	// }
851	// else
852	// rc = RTErrConvertFromDarwinIO(IORet);
853	// pMemDesc->release();
854	// }
855	// else
856	// rc = VERR_MEMOBJ_INIT_FAILED;
857	}
858	else
859	rc = VERR_ADDRESS_TOO_BIG;
860	pMemMap->release();
861	}
862	else
863	rc = VERR_MAP_FAILED;
864	}
865	return rc;
866	}
867
868
869	int rtR0MemObjNativeMapUser(PPRTR0MEMOBJINTERNAL ppMem, RTR0MEMOBJ pMemToMap, RTR3PTR R3PtrFixed, size_t uAlignment, unsigned fProt, RTR0PROCESS R0Process)
870	{
871	/*
872	* Check for unsupported things.
873	*/
874	AssertReturn(R3PtrFixed == (RTR3PTR)-1, VERR_NOT_SUPPORTED);
875	if (uAlignment > PAGE_SIZE)
876	return VERR_NOT_SUPPORTED;
877
878	/*
879	* Must have a memory descriptor.
880	*/
881	int rc = VERR_INVALID_PARAMETER;
882	PRTR0MEMOBJDARWIN pMemToMapDarwin = (PRTR0MEMOBJDARWIN)pMemToMap;
883	if (pMemToMapDarwin->pMemDesc)
884	{
885	#if MAC_OS_X_VERSION_MIN_REQUIRED >= 1050
886	IOMemoryMap *pMemMap = pMemToMapDarwin->pMemDesc->createMappingInTask((task_t)R0Process,
887	0,
888	kIOMapAnywhere \| kIOMapDefaultCache,
889	0 /* offset */,
890	0 /* length */);
891	#else
892	IOMemoryMap *pMemMap = pMemToMapDarwin->pMemDesc->map((task_t)R0Process,
893	0,
894	kIOMapAnywhere \| kIOMapDefaultCache);
895	#endif
896	if (pMemMap)
897	{
898	IOVirtualAddress VirtAddr = pMemMap->getVirtualAddress();
899	void pv = (void )(uintptr_t)VirtAddr;
900	if ((uintptr_t)pv == VirtAddr)
901	{
902	/*
903	* Create the IPRT memory object.
904	*/
905	PRTR0MEMOBJDARWIN pMemDarwin = (PRTR0MEMOBJDARWIN)rtR0MemObjNew(sizeof(*pMemDarwin), RTR0MEMOBJTYPE_MAPPING,
906	pv, pMemToMapDarwin->Core.cb);
907	if (pMemDarwin)
908	{
909	pMemDarwin->Core.u.Mapping.R0Process = R0Process;
910	pMemDarwin->pMemMap = pMemMap;
911	*ppMem = &pMemDarwin->Core;
912	return VINF_SUCCESS;
913	}
914
915	rc = VERR_NO_MEMORY;
916	}
917	else
918	rc = VERR_ADDRESS_TOO_BIG;
919	pMemMap->release();
920	}
921	else
922	rc = VERR_MAP_FAILED;
923	}
924	return rc;
925	}
926
927
928	int rtR0MemObjNativeProtect(PRTR0MEMOBJINTERNAL pMem, size_t offSub, size_t cbSub, uint32_t fProt)
929	{
930	/* Get the map for the object. */
931	vm_map_t pVmMap = rtR0MemObjDarwinGetMap(pMem);
932	if (!pVmMap)
933	return VERR_NOT_SUPPORTED;
934
935	/* Convert the protection. */
936	vm_prot_t fMachProt;
937	switch (fProt)
938	{
939	case RTMEM_PROT_NONE:
940	fMachProt = VM_PROT_NONE;
941	break;
942	case RTMEM_PROT_READ:
943	fMachProt = VM_PROT_READ;
944	break;
945	case RTMEM_PROT_READ \| RTMEM_PROT_WRITE:
946	fMachProt = VM_PROT_READ \| VM_PROT_WRITE;
947	break;
948	case RTMEM_PROT_READ \| RTMEM_PROT_WRITE \| RTMEM_PROT_EXEC:
949	fMachProt = VM_PROT_READ \| VM_PROT_WRITE \| VM_PROT_EXECUTE;
950	break;
951	case RTMEM_PROT_WRITE \| RTMEM_PROT_EXEC:
952	fMachProt = VM_PROT_WRITE \| VM_PROT_EXECUTE;
953	break;
954	case RTMEM_PROT_EXEC:
955	fMachProt = VM_PROT_EXECUTE;
956	break;
957	default:
958	AssertFailedReturn(VERR_INVALID_PARAMETER);
959	}
960
961	/* do the job. */
962	vm_offset_t Start = (uintptr_t)pMem->pv + offSub;
963	kern_return_t krc = vm_protect(pVmMap,
964	Start,
965	cbSub,
966	false,
967	fMachProt);
968	if (krc != KERN_SUCCESS)
969	return RTErrConvertFromDarwinKern(krc);
970	return VINF_SUCCESS;
971	}
972
973
974	RTHCPHYS rtR0MemObjNativeGetPagePhysAddr(PRTR0MEMOBJINTERNAL pMem, size_t iPage)
975	{
976	RTHCPHYS PhysAddr;
977	PRTR0MEMOBJDARWIN pMemDarwin = (PRTR0MEMOBJDARWIN)pMem;
978
979	#ifdef USE_VM_MAP_WIRE
980	/*
981	* Locked memory doesn't have a memory descriptor and
982	* needs to be handled differently.
983	*/
984	if (pMemDarwin->Core.enmType == RTR0MEMOBJTYPE_LOCK)
985	{
986	ppnum_t PgNo;
987	if (pMemDarwin->Core.u.Lock.R0Process == NIL_RTR0PROCESS)
988	PgNo = pmap_find_phys(kernel_pmap, (uintptr_t)pMemDarwin->Core.pv + iPage * PAGE_SIZE);
989	else
990	{
991	/*
992	* From what I can tell, Apple seems to have locked up the all the
993	* available interfaces that could help us obtain the pmap_t of a task
994	* or vm_map_t.
995
996	* So, we'll have to figure out where in the vm_map_t structure it is
997	* and read it our selves. ASSUMING that kernel_pmap is pointed to by
998	* kernel_map->pmap, we scan kernel_map to locate the structure offset.
999	* Not nice, but it will hopefully do the job in a reliable manner...
1000	*
1001	* (get_task_pmap, get_map_pmap or vm_map_pmap is what we really need btw.)
1002	*/
1003	static int s_offPmap = -1;
1004	if (RT_UNLIKELY(s_offPmap == -1))
1005	{
1006	pmap_t const p = (pmap_t )kernel_map;
1007	pmap_t const * const pEnd = p + 64;
1008	for (; p < pEnd; p++)
1009	if (*p == kernel_pmap)
1010	{
1011	s_offPmap = (uintptr_t)p - (uintptr_t)kernel_map;
1012	break;
1013	}
1014	AssertReturn(s_offPmap >= 0, NIL_RTHCPHYS);
1015	}
1016	pmap_t Pmap = (pmap_t )((uintptr_t)get_task_map((task_t)pMemDarwin->Core.u.Lock.R0Process) + s_offPmap);
1017	PgNo = pmap_find_phys(Pmap, (uintptr_t)pMemDarwin->Core.pv + iPage * PAGE_SIZE);
1018	}
1019
1020	AssertReturn(PgNo, NIL_RTHCPHYS);
1021	PhysAddr = (RTHCPHYS)PgNo << PAGE_SHIFT;
1022	Assert((PhysAddr >> PAGE_SHIFT) == PgNo);
1023	}
1024	else
1025	#endif /* USE_VM_MAP_WIRE */
1026	{
1027	/*
1028	* Get the memory descriptor.
1029	*/
1030	IOMemoryDescriptor *pMemDesc = pMemDarwin->pMemDesc;
1031	if (!pMemDesc)
1032	pMemDesc = pMemDarwin->pMemMap->getMemoryDescriptor();
1033	AssertReturn(pMemDesc, NIL_RTHCPHYS);
1034
1035	/*
1036	* If we've got a memory descriptor, use getPhysicalSegment64().
1037	*/
1038	#ifdef __LP64__ /* Grumble! */
1039	addr64_t Addr = pMemDesc->getPhysicalSegment(iPage * PAGE_SIZE, NULL);
1040	#else
1041	addr64_t Addr = pMemDesc->getPhysicalSegment64(iPage * PAGE_SIZE, NULL);
1042	#endif
1043	AssertMsgReturn(Addr, ("iPage=%u\n", iPage), NIL_RTHCPHYS);
1044	PhysAddr = Addr;
1045	AssertMsgReturn(PhysAddr == Addr, ("PhysAddr=%RHp Addr=%RX64\n", PhysAddr, (uint64_t)Addr), NIL_RTHCPHYS);
1046	}
1047
1048	return PhysAddr;
1049	}
1050

Note: See TracBrowser for help on using the repository browser.

source: vbox/trunk/src/VBox/Runtime/r0drv/darwin/memobj-r0drv-darwin.cpp@ 32043

Download in other formats: