// Copyright (c) 1994-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:
// e32\memmodel\emul\win32\mutils.cpp
// 
//

#include "memmodel.h"
#include <kernel/cache.h>
#include <emulator.h>

void MM::Panic(MM::TMemModelPanic aPanic)
	{
	Kern::Fault("MemModel", aPanic);
	}

TInt M::PageSizeInBytes()
	{
	return MM::RamPageSize;
	}

TBool M::IsRomAddress(const TAny* )
	{
	return EFalse;
	}

TUint32 MM::RoundToPageSize(TUint32 aSize)
	{
	TUint32 m=MM::RamPageSize-1;
	return (aSize+m)&~m;
	}

EXPORT_C TUint32 Kern::RoundToPageSize(TUint32 aSize)
	{
	return MM::RoundToPageSize(aSize);
	}

EXPORT_C TUint32 Kern::RoundToChunkSize(TUint32 aSize)
	{
	return MM::RoundToChunkSize(aSize);
	}

void MM::Init1()
	{
	TheScheduler.SetProcessHandler((TLinAddr)DoProcessSwitch);
	}
void MM::Wait()
	{
	Kern::MutexWait(*RamAllocatorMutex);
	if (RamAllocatorMutex->iHoldCount==1)
		{
		InitialFreeMemory=FreeMemory;
		AllocFailed=EFalse;
		}
	}

TInt MM::Commit(TLinAddr aBase, TInt aSize, TInt aClearByte, TBool aExecute)
//
// Get win32 to commit the pages.
// We know they are not already committed - this is guaranteed by the caller so we can update the memory info easily
//
	{
	__ASSERT_MUTEX(RamAllocatorMutex);

	if (aSize==0)
		return KErrNone;

	if (MM::FreeMemory+MM::CacheMemory >= aSize)
		{
		__LOCK_HOST;
		DWORD protect = aExecute ? PAGE_EXECUTE_READWRITE : PAGE_READWRITE;
		if (VirtualAlloc(LPVOID(aBase), aSize, MEM_COMMIT, protect))
			{
			TInt reclaimed = aSize - MM::FreeMemory;
			if(reclaimed<=0)
				MM::FreeMemory -= aSize;
			else
				{
				// some cache memory was needed for this commit...
				MM::FreeMemory = 0;
				MM::CacheMemory -= reclaimed;
				MM::ReclaimedCacheMemory += reclaimed;
				}
			MM::CheckMemoryCounters();

			// Clear memory to value determined by chunk member
			memset(reinterpret_cast<void*>(aBase), aClearByte, aSize);

			return KErrNone;
			}
		}
	MM::AllocFailed = ETrue;
	return KErrNoMemory;
	}

TInt MM::Decommit(TLinAddr aBase, TInt aSize)
//
// Get win32 to decommit the pages.
// The pages may or may not be committed: we need to find out which ones are so that the memory info is updated correctly
//
	{
	__ASSERT_MUTEX(RamAllocatorMutex);

	TInt freed = 0;
	TInt remain = aSize;
	TLinAddr base = aBase;
	__LOCK_HOST;
	while (remain > 0)
		{
		MEMORY_BASIC_INFORMATION info;
		VirtualQuery(LPVOID(base), &info, sizeof(info));
		TInt size = Min(remain, info.RegionSize);
		if (info.State == MEM_COMMIT)
			freed += size;

#ifdef BTRACE_CHUNKS
		BTraceContext12(BTrace::EChunks,BTrace::EChunkMemoryDeallocated,NULL,base,size);
#endif

		base += info.RegionSize;
		remain -= info.RegionSize;
		}
	VirtualFree(LPVOID(aBase), aSize, MEM_DECOMMIT);
	MM::FreeMemory += freed;
	__KTRACE_OPT(KMEMTRACE, {Kern::Printf("MT:A %d %x %x %O",NTickCount(),NULL,aSize,NULL);});

	return freed;
	}

void MM::CheckMemoryCounters()
	{
	__NK_ASSERT_ALWAYS(MM::CacheMemory>=0);
	__NK_ASSERT_ALWAYS(MM::ReclaimedCacheMemory>=0);
	__NK_ASSERT_ALWAYS(MM::FreeMemory+MM::CacheMemory>=0);
	}

void MM::Signal()
	{
	if (RamAllocatorMutex->iHoldCount>1)
		{
		Kern::MutexSignal(*RamAllocatorMutex);
		return;
		}
	TInt initial=InitialFreeMemory;
	TBool failed=AllocFailed;
	TInt final=FreeMemory;
	Kern::MutexSignal(*RamAllocatorMutex);
	K::CheckFreeMemoryLevel(initial,final,failed);
	}

void MM::DoProcessSwitch(TAny* aAddressSpace)
// Kernel locked on entry and exit
	{
	__NK_ASSERT_LOCKED;
	
	if (!aAddressSpace)
		return;
	
	DWin32Process* proc = (DWin32Process*)aAddressSpace;

	if (proc == K::TheKernelProcess) return;

	int count = proc->iDllData.Count();
	for (int ii=0; ii<count; ii++)
		{
		SProcessDllDataBlock& procData = proc->iDllData[ii];
		DWin32CodeSeg* codeSeg = procData.iCodeSeg;
		if (!codeSeg)
			continue;
		DWin32Process*& liveProc = codeSeg->iLiveProcess;
		if (liveProc == proc)
			continue;			// no change in live mapping
		if (liveProc)
			{
			// copy out old process data
			TInt liveIx = liveProc->iDllData.FindInUnsignedKeyOrder(procData);
			__ASSERT_ALWAYS(liveIx >= 0,MM::Panic(MM::EWsdDllNotInProcess));
			SProcessDllDataBlock& oldProcData = liveProc->iDllData[liveIx];
			memcpy(oldProcData.iDataCopy, (const TAny*)codeSeg->iDataDest, codeSeg->iRealDataSize);
			memcpy(oldProcData.iBssCopy, (const TAny*)codeSeg->iBssDest, codeSeg->iRealBssSize);
			}
		// copy new data in
		memcpy((TAny*)codeSeg->iDataDest, procData.iDataCopy, codeSeg->iRealDataSize);
		memcpy((TAny*)codeSeg->iBssDest, procData.iBssCopy, codeSeg->iRealBssSize);
		liveProc = proc;
		}
	}

TAny* MM::CurrentAddress(DThread* aThread, const TAny* aPtr, TInt aSize, TBool /*aWrite*/, TBool& aLocked)
// Enter and leave with system locked
// Kernel unlocked on entry
// Kernel may be locked on exit, iff aPtr is in DLL WSD.
// this is because the returned address is only valid until the
// target process DLL WSD changes live status, which can happen 
// independently when another thread runs.
// Lock status signaled in aLocked.
// Why? This allows the optimisation that WSD is only copied on
// process switch when necessary. The gain from that optimisation is
// expected to be much higher than the cost of leaving the kernel locked
// during (rare) IPC to DLL WSD
	{
	DWin32Process* proc = (DWin32Process*)aThread->iOwningProcess;
	// Is the address in DLL static data?
	NKern::Lock();
		
	TInt count = proc->iDllData.Count();
	TLinAddr p = (TLinAddr)aPtr;
	TLinAddr base = 0;
	TInt size = 0;
	TBool data = EFalse;
	aLocked = EFalse;
	for (TInt ii=0; ii<count; ii++)
		{
		const SProcessDllDataBlock& procData = proc->iDllData[ii];
		DWin32CodeSeg* codeSeg = procData.iCodeSeg;
		if (codeSeg->iDataDest <= p && p < codeSeg->iDataDest + codeSeg->iRealDataSize)
			{
			base = codeSeg->iDataDest;
			size = codeSeg->iRealDataSize;
			data = ETrue;
			}
		else if (codeSeg->iBssDest <= p && p < codeSeg->iBssDest + codeSeg->iRealBssSize)
			{
			base = codeSeg->iBssDest;
			size = codeSeg->iRealBssSize;
			}
		if (base)
			{
			// This is a DLL static address, check range validity
			if (p + aSize > base + size)
				{
				NKern::Unlock();
				return NULL;
				}
			
			DWin32Process* liveProc = codeSeg->iLiveProcess;

			if (proc == liveProc)
				{
				// If the target process is live, don't remap
				NKern::Unlock();
				return (TAny*)aPtr;
				}
			else
				{
				aLocked = ETrue;
				TLinAddr procBase = (TLinAddr)(data ? procData.iDataCopy : procData.iBssCopy);
				TLinAddr remapped = procBase + (p - base);
				return (TAny*) remapped;
				}
			}
		}
	NKern::Unlock();
	// No, the address does not need to be remapped
	return (TAny*)aPtr;
	}

void M::BTracePrime(TUint aCategory)
	{
	(void)aCategory;
#ifdef BTRACE_KERNEL_MEMORY
	// Must check for -1 as that is the default value of aCategory for
	// BTrace::Prime() which is intended to prime all categories that are 
	// currently enabled via a single invocation of BTrace::Prime().
	if(aCategory==BTrace::EKernelMemory || (TInt)aCategory == -1)
		{
		BTrace4(BTrace::EKernelMemory,BTrace::EKernelMemoryInitialFree,TheSuperPage().iTotalRamSize);
		BTrace4(BTrace::EKernelMemory,BTrace::EKernelMemoryCurrentFree,Kern::FreeRamInBytes());
		}
#endif
	}

/** 
Restart the system. 
On hardware targets this calls the Restart Vector in the ROM Header.
Note, aMode is set to zero when this function is used by Kern::Fault()

@param aMode Argument passed to the restart routine. The meaning of this value
depends on the bootstrap implementation. 		
*/
EXPORT_C void Kern::Restart(TInt)
	{
	ExitProcess(0);
	}

EXPORT_C TInt TInternalRamDrive::MaxSize()
	{
	return PP::RamDriveMaxSize;
	}

void M::FsRegisterThread()
	{
	}

void P::SetSuperPageSignature()
	{
	TUint32* sig = TheSuperPage().iSignature;
	sig[0] = 0xb504f333;
	sig[1] = 0xf9de6484;
	}

TBool P::CheckSuperPageSignature()
	{
	const TUint32* sig = TheSuperPage().iSignature;
	return ( sig[0]==0xb504f333 && sig[1]==0xf9de6484 );
	}

// Dummy implementation of kernel pin APIs

class TVirtualPinObject
	{	
	};

TInt M::CreateVirtualPinObject(TVirtualPinObject*& aPinObject)
	{
	aPinObject = new TVirtualPinObject;
	return aPinObject != NULL ? KErrNone : KErrNoMemory;
	}

TInt M::PinVirtualMemory(TVirtualPinObject* aPinObject, TLinAddr, TUint, DThread*)
	{
	__ASSERT_DEBUG(aPinObject, K::Fault(K::EVirtualPinObjectBad));
	(void)aPinObject;
	return KErrNone;
	}

TInt M::CreateAndPinVirtualMemory(TVirtualPinObject*& aPinObject, TLinAddr, TUint)
	{
	aPinObject = 0;
	return KErrNone;
	}

void M::UnpinVirtualMemory(TVirtualPinObject* aPinObject)
	{
	__ASSERT_DEBUG(aPinObject, K::Fault(K::EVirtualPinObjectBad));
	(void)aPinObject;
	}

void M::DestroyVirtualPinObject(TVirtualPinObject*& aPinObject)
	{
	TVirtualPinObject* object = (TVirtualPinObject*)__e32_atomic_swp_ord_ptr(&aPinObject, 0);
	if (object)
		Kern::AsyncFree(object);
	}


class TPhysicalPinObject
	{	
	};

TInt M::CreatePhysicalPinObject(TPhysicalPinObject*& aPinObject)
	{
	aPinObject = new TPhysicalPinObject;
	return aPinObject != NULL ? KErrNone : KErrNoMemory;
	}

TInt M::PinPhysicalMemory(TPhysicalPinObject* aPinObject, TLinAddr, TUint, TBool, TPhysAddr&, TPhysAddr*, TUint32&, TUint&, DThread*)
	{
	__ASSERT_DEBUG(aPinObject, K::Fault(K::EPhysicalPinObjectBad));
	(void)aPinObject;
	return KErrNone;
	}

void M::UnpinPhysicalMemory(TPhysicalPinObject* aPinObject)
	{
	__ASSERT_DEBUG(aPinObject, K::Fault(K::EPhysicalPinObjectBad));
	(void)aPinObject;
	}

void M::DestroyPhysicalPinObject(TPhysicalPinObject*& aPinObject)
	{
	TPhysicalPinObject* object = (TPhysicalPinObject*)__e32_atomic_swp_ord_ptr(&aPinObject, 0);
	if (object)
		Kern::AsyncFree(object);
	}

// Misc DPagingDevice methods

EXPORT_C void DPagingDevice::NotifyIdle()
	{
	// Not used on this memory model
	}

EXPORT_C void DPagingDevice::NotifyBusy()
	{
	// Not used on this memory model
	}

EXPORT_C TInt Cache::SyncPhysicalMemoryBeforeDmaWrite(TPhysAddr* , TUint , TUint , TUint , TUint32 )
	{
	CHECK_PRECONDITIONS(MASK_THREAD_STANDARD,"Cache::SyncPhysicalMemoryBeforeDmaWrite");
	return KErrNotSupported;
	}

EXPORT_C TInt Cache::SyncPhysicalMemoryBeforeDmaRead(TPhysAddr* , TUint , TUint , TUint , TUint32 )
	{
	CHECK_PRECONDITIONS(MASK_THREAD_STANDARD,"Cache::SyncPhysicalMemoryBeforeDmaRead");
	return KErrNotSupported;
	}
EXPORT_C TInt Cache::SyncPhysicalMemoryAfterDmaRead(TPhysAddr* , TUint , TUint , TUint , TUint32 )
	{
	CHECK_PRECONDITIONS(MASK_THREAD_STANDARD,"Cache::SyncPhysicalMemoryAfterDmaRead");
	return KErrNotSupported;
	}
