// Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of the License "Eclipse Public License v1.0"

// which accompanies this distribution, and is available

// at the URL "http://www.eclipse.org/legal/epl-v10.html".

//

// Initial Contributors:

// Nokia Corporation - initial contribution.

//

// Contributors:

//

// Description:

// e32test\mmu\d_sharedchunk.cpp

// 

//

#include <kernel/kern_priv.h>

#include <kernel/cache.h>

#include "d_sharedchunk.h"

TBool PhysicalCommitSupported = ETrue;

#ifdef __EPOC32__

#define TEST_PHYSICAL_COMMIT

#endif

static volatile TInt ChunkDestroyedCount=1;	// Test counter

//

// Class definitions

//

class DSharedChunkFactory : public DLogicalDevice

	{

public:

	~DSharedChunkFactory();

	virtual TInt Install();

	virtual void GetCaps(TDes8& aDes) const;

	virtual TInt Create(DLogicalChannelBase*& aChannel);

	TInt ClaimMemory();

	void ReleaseMemory();

	TInt AllocMemory(TInt aSize, TUint32& aPhysAddr);

	void FreeMemory(TInt aSize,TUint32 aPhysAddr);

	void LockWait();

	void LockSignal();

private:

	NFastMutex iLock;

public:

	TBool iMemoryInUse;

	TUint32 iPhysBase;

	TUint32 iPhysEnd;

	TUint32 iPhysNext;

	TInt* iDummyCell;

	};

class DSharedChunkChannel : public DLogicalChannelBase

	{

public:

	DSharedChunkChannel();

	~DSharedChunkChannel();

	virtual TInt DoCreate(TInt aUnit, const TDesC8* anInfo, const TVersion& aVer);

	virtual TInt Request(TInt aFunction, TAny* a1, TAny* a2);

	DChunk* OpenChunk(TLinAddr* aKernelAddr=0, TInt* aMaxSize=0);

	inline void LockWait()

		{ iFactory->LockWait(); }

	inline void LockSignal()

		{ iFactory->LockSignal(); }

	TUint32 DfcReadWrite(TUint32* aPtr, TUint32 aValue);

	TUint32 IsrReadWrite(TUint32* aPtr, TUint32 aValue);

public:

	DSharedChunkFactory*	iFactory;

	DChunk*					iChunk;

	TLinAddr				iKernelAddress;

	TInt					iMaxSize;

	};

class TChunkCleanup : public TDfc

	{

public:

	TChunkCleanup(DSharedChunkFactory* aFactory,TBool aReleasePhysicalMemory);

	~TChunkCleanup();

	static void ChunkDestroyed(TChunkCleanup* aSelf);

	void Cancel();

public:

	DSharedChunkFactory* iFactory;

	TBool iReleasePhysicalMemory;

	};

//

// TChunkCleanup

//

TChunkCleanup::TChunkCleanup(DSharedChunkFactory* aFactory,TBool aReleasePhysicalMemory)

	: TDfc((TDfcFn)TChunkCleanup::ChunkDestroyed,this,Kern::SvMsgQue(),0)

	, iFactory(0), iReleasePhysicalMemory(aReleasePhysicalMemory)

	{

	aFactory->Open();

	iFactory = aFactory;

	}

TChunkCleanup::~TChunkCleanup()

	{

	if(iFactory)

		iFactory->Close(0);

	}

void TChunkCleanup::ChunkDestroyed(TChunkCleanup* aSelf)

	{

	__KTRACE_OPT(KMMU,Kern::Printf("D_SHAREDCHUNK ChunkDestroyed DFC\n"));

	DSharedChunkFactory* factory = aSelf->iFactory;

	if(factory)

		{

		factory->LockWait();

		if(aSelf->iReleasePhysicalMemory)

			factory->ReleaseMemory();

		factory->LockSignal();

		__e32_atomic_add_ord32(&ChunkDestroyedCount, 1);

		__KTRACE_OPT(KMMU,Kern::Printf("D_SHAREDCHUNK ChunkDestroyedCount=%d\n",ChunkDestroyedCount));

		}

	delete aSelf;

	}

void TChunkCleanup::Cancel()

	{

	if(iFactory)

		{

		iFactory->Close(0);

		iFactory = 0;

		}

	};

//

// DSharedChunkFactory

//

TInt DSharedChunkFactory::Install()

	{

	TUint mm=Kern::HalFunction(EHalGroupKernel,EKernelHalMemModelInfo,0,0)&EMemModelTypeMask;

	PhysicalCommitSupported = mm!=EMemModelTypeDirect && mm!=EMemModelTypeEmul;

#ifdef __EPOC32__

	if(PhysicalCommitSupported)

		{

		TInt physSize = 4096*1024;

		TInt r=Epoc::AllocPhysicalRam(physSize, iPhysBase);

		if(r!=KErrNone)

			return r;

		iPhysNext = iPhysBase;

		iPhysEnd = iPhysBase+physSize;

		iMemoryInUse = EFalse;

		}

#endif

	// Make sure there is enough space on kernel heap to that heap doesn't need

	// to expand when allocating objects. (Required for OOM and memory leak testing.)

	TAny* expandHeap = Kern::Alloc(16*1024);

	iDummyCell = new TInt;

	Kern::Free(expandHeap);

	return SetName(&KSharedChunkLddName);

	}

DSharedChunkFactory::~DSharedChunkFactory()

	{

#ifdef __EPOC32__

	if(PhysicalCommitSupported)

		Epoc::FreePhysicalRam(iPhysBase, iPhysEnd-iPhysBase);

#endif

	delete iDummyCell;

	}

void DSharedChunkFactory::GetCaps(TDes8& /*aDes*/) const

	{

	// Not used but required as DLogicalDevice::GetCaps is pure virtual

	}

TInt DSharedChunkFactory::Create(DLogicalChannelBase*& aChannel)

	{

	aChannel = NULL;

	DSharedChunkChannel* channel=new DSharedChunkChannel;

	if(!channel)

		return KErrNoMemory;

	channel->iFactory = this;

	aChannel = channel;

	return KErrNone;

	}

void DSharedChunkFactory::LockWait()

	{

	NKern::FMWait(&iLock);

	}

void DSharedChunkFactory::LockSignal()

	{

	NKern::FMSignal(&iLock);

	}

TInt DSharedChunkFactory::AllocMemory(TInt aSize, TUint32& aPhysAddr)

	{

	if(!PhysicalCommitSupported)

		aSize = 0;

	TInt r=KErrNone;

	Kern::RoundToPageSize(aSize);

	LockWait();

	if(iPhysNext+aSize>iPhysEnd)

		r = KErrNoMemory;

	else

		{

		aPhysAddr = iPhysNext;

		iPhysNext += aSize;

		}

	LockSignal();

	return r;

	}

TInt DSharedChunkFactory::ClaimMemory()

	{

	if (__e32_atomic_swp_ord32(&iMemoryInUse, 1))

		return KErrInUse;

	iPhysNext = iPhysBase;	// reset allocation pointer

	return KErrNone;

	}

void DSharedChunkFactory::ReleaseMemory()

	{

	iMemoryInUse=EFalse;

	}

void DSharedChunkFactory::FreeMemory(TInt aSize,TUint32 aPhysAddr)

	{

	if(!PhysicalCommitSupported)

		aSize = 0;

	if(iPhysNext!=aPhysAddr+aSize)

		{ FAULT(); }	// Only support freeing from the end

	Kern::RoundToPageSize(aSize);

	LockWait();

	iPhysNext -= aSize;

	LockSignal();

	}

DECLARE_STANDARD_LDD()

	{

	return new DSharedChunkFactory;

	}

//

// DSharedChunkChannel

//

TInt DSharedChunkChannel::DoCreate(TInt /*aUnit*/, const TDesC8* /*aInfo*/, const TVersion& /*aVer*/)

	{

	return KErrNone;

	}

DSharedChunkChannel::DSharedChunkChannel()

	{

	}

DSharedChunkChannel::~DSharedChunkChannel()

	{

	if(iChunk)

		iChunk->Close(0);

	}

void DoDfcReadWrite(TUint32* aArgs)

	{

	TUint32* ptr = (TUint32*)aArgs[0];

	TUint32 value = aArgs[1];

	aArgs[1] = *ptr;

	*ptr = value;

	NKern::FSSignal((NFastSemaphore*)aArgs[2]);

	}

TUint32 DSharedChunkChannel::DfcReadWrite(TUint32* aPtr, TUint32 aValue)

	{

	NFastSemaphore sem;

	NKern::FSSetOwner(&sem,0);

	TUint32 args[3];

	args[0] = (TUint32)aPtr;

	args[1] = aValue;

	args[2] = (TUint32)&sem;

	TDfc dfc((TDfcFn)DoDfcReadWrite,&args,Kern::SvMsgQue(),0);

	dfc.Enque();

	NKern::FSWait(&sem);

	return args[1];

	}

void DoIsrReadWrite(TUint32* aArgs)

	{

	TUint32* ptr = (TUint32*)aArgs[0];

	TUint32 value = aArgs[1];

	aArgs[1] = *ptr;

	*ptr = value;

	((TDfc*)aArgs[2])->Add();

	}

void DoIsrReadWriteDfcCallback(TUint32* aArgs)

	{

	NKern::FSSignal((NFastSemaphore*)aArgs);

	}

TUint32 DSharedChunkChannel::IsrReadWrite(TUint32* aPtr, TUint32 aValue)

	{

	NFastSemaphore sem;

	NKern::FSSetOwner(&sem,0);

	TDfc dfc((TDfcFn)DoIsrReadWriteDfcCallback,&sem,Kern::SvMsgQue(),0);

	TUint32 args[3];

	args[0] = (TUint32)aPtr;

	args[1] = aValue;

	args[2] = (TUint32)&dfc;

	NTimer timer((NTimerFn)DoIsrReadWrite,&args);

	timer.OneShot(1);

	NKern::FSWait(&sem);

	return args[1];

	}

DChunk* DSharedChunkChannel::OpenChunk(TLinAddr* aKernelAddr,TInt* aMaxSize)

	{

	__ASSERT_CRITICAL	// Thread must be in critical section (to avoid leaking access count on chunk)

	LockWait();

	DChunk* chunk=iChunk;

	if(chunk)

		if(chunk->Open()!=KErrNone)

			chunk = NULL;

	if(aKernelAddr)

		*aKernelAddr = chunk ? iKernelAddress : NULL;

	if(aMaxSize)

		*aMaxSize = chunk ? iMaxSize : 0;

	LockSignal();

	return chunk;

	}

TUint8 ReadByte(volatile TUint8* aPtr)

	{

	return *aPtr;

	}

void signal_sem(TAny* aPtr)

	{

	NKern::FSSignal((NFastSemaphore*)aPtr);

	}

TInt WaitForIdle()

	{

	NFastSemaphore s(0);

	TDfc idler(&signal_sem, &s, Kern::SvMsgQue(), 0);	// supervisor thread, priority 0, so will run after destroyed DFC

	NTimer timer(&signal_sem, &s);

	idler.QueueOnIdle();

	timer.OneShot(NKern::TimerTicks(5000), ETrue);	// runs in DFCThread1

	NKern::FSWait(&s);	// wait for either idle DFC or timer

	TBool timeout = idler.Cancel();	// cancel idler, return TRUE if it hadn't run

	TBool tmc = timer.Cancel();	// cancel timer, return TRUE if it hadn't expired

	if (!timeout && !tmc)

		NKern::FSWait(&s);	// both the DFC and the timer went off - wait for the second one

	if (timeout)

		return KErrTimedOut;

	return KErrNone;

	}

TInt WaitForIdle2()

	{

	TInt r = WaitForIdle(); // wait for chunk async delete

	if(r==KErrNone)

		r = WaitForIdle();	// wait for chunk destroyed notification DFC

	return r;

	}

TInt DSharedChunkChannel::Request(TInt aFunction, TAny* a1, TAny* a2)

	{

	TInt i1 = (TInt)a1;

	TInt i2 = (TInt)a2;

	TInt r=KErrNotSupported;

	switch(aFunction)

		{

	case RSharedChunkLdd::ECreateChunk:

		{

		NKern::ThreadEnterCS();

		if (__e32_atomic_load_acq32(&ChunkDestroyedCount)==0)

			{

			WaitForIdle2(); // Go idle for a while to let chunk cleanup DFCs to be called

			}

		// Create cleanup item

		TBool chunkUsesPhysicalMemory = (i1&EOwnsMemory)==0;

		TChunkCleanup* cleanup = new TChunkCleanup(this->iFactory,chunkUsesPhysicalMemory);

		if(!cleanup)

			{

			NKern::ThreadLeaveCS();

			return KErrNoMemory;

			}

		// Try and create chunk...

		DChunk* chunk;

		TChunkCreateInfo info;

		info.iType		 = (i1&EMultiple)

							? TChunkCreateInfo::ESharedKernelMultiple

							: TChunkCreateInfo::ESharedKernelSingle;

		info.iMaxSize	 = i1&~ECreateFlagsMask;

#ifdef __EPOC32__

		info.iMapAttr	 = (i1&ECached) ? EMapAttrCachedMax

						 : (i1&EBuffered) ? EMapAttrBufferedC

						 : EMapAttrFullyBlocking;

#endif

		info.iOwnsMemory = (i1&EOwnsMemory)!=0;

		info.iDestroyedDfc = cleanup;

		if(i1&EBadType) *(TUint8*)&info.iType = 0xff;

		TUint32 mapAttr;

		TUint32 kernAddr;

		r = Kern::ChunkCreate(info, chunk, kernAddr, mapAttr);

		if(r!=KErrNone)

			{

			delete cleanup;

			NKern::ThreadLeaveCS();

			return r;

			}

		// Setup data members

		LockWait();

		if(iChunk)

			r = KErrAlreadyExists;

		else

			{

			if(chunkUsesPhysicalMemory)

				r = iFactory->ClaimMemory();

			if(r==KErrNone)

				{

				iChunk = chunk;

				iKernelAddress = kernAddr;

				iMaxSize = info.iMaxSize;

				__e32_atomic_store_ord32(&ChunkDestroyedCount,0);

				}

			}

		LockSignal();

		if(r!=KErrNone)

			{

			// There was an error, so discard created chunk

			cleanup->Cancel();

			Kern::ChunkClose(chunk);

			NKern::ThreadLeaveCS();

			return r;

			}

		NKern::ThreadLeaveCS();

		// Write back kernel address of chunk

		if(a2)

			kumemput32(a2,(TAny*)&kernAddr,4);

		return KErrNone;

		}

	case RSharedChunkLdd::EGetChunkHandle:

		{

		TInt isThreadLocal = (TInt)a1;

		TOwnerType ownertype;

		if (isThreadLocal)

			ownertype = EOwnerThread;

		else

			ownertype = EOwnerProcess;

		NKern::ThreadEnterCS();

		DChunk* chunk=OpenChunk();

		if(chunk)

			{

			r = Kern::MakeHandleAndOpen(0,chunk,ownertype);

			chunk->Close(0);

			}

		else

			r = KErrNotFound;

		NKern::ThreadLeaveCS();

		return r;

		}

	case RSharedChunkLdd::ECloseChunkHandle:

		{

		NKern::ThreadEnterCS();

		r = Kern::CloseHandle(0,i1);

		NKern::ThreadLeaveCS();

		return r;

		}

	case RSharedChunkLdd::ECommitMemory:

		{

		NKern::ThreadEnterCS();

		TUint32 chunkKernelAddress;

		DChunk* chunk=OpenChunk(&chunkKernelAddress);

		if(chunk)

			{

			TInt type = i1&ECommitTypeMask;

			i1 &= ~ECommitTypeMask;

			switch(type)

				{

			case EDiscontiguous:

				r = Kern::ChunkCommit(chunk,i1,i2);

				break;

			case EContiguous:

				{

				TUint32 physAddr=~0u;

				r = Kern::ChunkCommitContiguous(chunk,i1,i2,physAddr);

				if(r!=KErrNone || i2==0)

					break;

				if(physAddr==~0u)