// Copyright (c) 1995-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\t_mwait.cpp
// Overview:
// Memory Wait State tests
// API Information:
// RChunk
// Details:
// - Load and open the logical device driver ("D_SHADOW.LDD"). Verify
// results.
// - Create a user writable code chunk and copy a small "SpeedTest" function
// into the chunk.
// - Perform a speed test in shadow ROM and RAM and report the relative performance.
// Platforms/Drives/Compatibility:
// All.
// Assumptions/Requirement/Pre-requisites:
// Failures and causes:
// Base Port information:
// 
//

#include <e32test.h>
#include "u32std.h"
#include "d_shadow.h"

RTest test(_L("T_MWAIT"));

typedef TLinAddr (*TMemSpeedTest)(TInt,TInt&);

extern TLinAddr MemSpeedTest(TInt /*aLoopSize*/, TInt& /*aCount*/);

TMemSpeedTest TheSpeedTestFunction;
TInt TheLoopSize;
TInt Count;
RSemaphore TheSemaphore;
TUint8* RamSpeedTestCodePtr;	// speed test code will be copied here to run from RAM

void CopyCode(RChunk& aC)
	{
	TLinAddr code_begin=(TLinAddr)&MemSpeedTest;
	TInt dummy;
	TLinAddr code_end=MemSpeedTest(0,dummy);
	TInt code_size=TInt(code_end-code_begin);
	test.Printf(_L("ROM Code start: %08x\n"), code_begin);
	test.Printf(_L("ROM Code end  : %08x\n"), code_end);
	test.Printf(_L("ROM Code size : %08x\n"), code_size);
	TInt r = aC.CreateLocalCode(code_size, code_size);
	test(r==KErrNone);
	RamSpeedTestCodePtr = aC.Base();
	Mem::Copy(RamSpeedTestCodePtr, (const TAny*)code_begin, code_size);
	User::IMB_Range(RamSpeedTestCodePtr, RamSpeedTestCodePtr + code_size - 1);
	test.Printf(_L("RAM Code base : %08x\n"), RamSpeedTestCodePtr);
	}

TInt MemSpeedTestThread(TAny*)
	{
	TheSemaphore.Signal();
	(*TheSpeedTestFunction)(TheLoopSize,Count);
	return 0;
	}

const TInt KHeapSize=4096;
TInt KMemSpeedTestAddress = (TInt)(&MemSpeedTest);

TInt DoMemSpeedTest(TBool aRam, TInt aLoopSize)
	{
	if (aRam)
#ifdef __MARM__
		TheSpeedTestFunction=(TMemSpeedTest)(RamSpeedTestCodePtr+(KMemSpeedTestAddress&1));	// add 1 if THUMB function
#else
		TheSpeedTestFunction=(TMemSpeedTest)RamSpeedTestCodePtr;
#endif
	else
		TheSpeedTestFunction=MemSpeedTest;
	Count=0;
	TheLoopSize=aLoopSize;
	RShadow sh;
	TInt r=sh.Open();
	test(r==KErrNone);
	RThread t;
	r=t.Create(_L("Speedy"),MemSpeedTestThread,KDefaultStackSize,KHeapSize,KHeapSize,NULL);
	test(r==KErrNone);
//	t.SetPriority(EPriorityLess);
	sh.SetPriority(t.Handle(),25);
	sh.SetPriority(RThread().Handle(),26);
	TRequestStatus s;
	t.Logon(s);
	t.Resume();
	TheSemaphore.Wait();
	User::After(1000000);
	t.Kill(0);
	sh.SetPriority(RThread().Handle(),12);	// so thread gets cleaned up
	User::WaitForRequest(s);
	test(s.Int()==KErrNone);
	test(t.ExitType()==EExitKill);
	CLOSE_AND_WAIT(t);
	sh.Close();
	return Count;
	}

void DoFullTest(TBool aRam)
	{
	TInt count[32];
	TInt i;
	for (i=0; i<32; i++)
		{
		TInt loopSize=(i+1)*2048;
		test.Printf(_L("Loop size %dK "),loopSize>>10);
		count[i]=DoMemSpeedTest(aRam,loopSize);
		TInt64 inst = TInt64(count[i]) * TInt64(loopSize>>2);
		test.Printf(_L("%d loops %ld instructions\n"),count[i],inst);
		}
	test.Printf(_L("\n"));
	}

GLDEF_C TInt E32Main()
	{
	test.Title();

	test.Start(_L("Memory Wait State tests"));

	TInt r=TheSemaphore.CreateLocal(0);
	test(r==KErrNone);

	r=User::LoadLogicalDevice(_L("D_SHADOW"));
	test(r==KErrNone || r==KErrAlreadyExists);

	RChunk c;
	CopyCode(c);

	test.Next(_L("Testing ROM wait states..."));
	DoFullTest(EFalse);

	test.Next(_L("Testing RAM wait states..."));
	DoFullTest(ETrue);

	c.Close();
	test.End();
	return 0;
	}