// Copyright (c) 1998-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\misc\t_cp0.cpp
// 
//

#include <e32test.h>
#include <cpudefs.h>
#include "nk_cpu.h"
#include "../misc/prbs.h"

RTest test(_L("T_CP0"));

extern void GetAcc0(TInt64&);
extern void SetAcc0(const TInt64&);
extern void InnerProduct(TInt64& /*aResult*/, const TInt16* /*aVec1*/, const TInt16* /*aVec2*/, TInt /*aLength*/);
extern void InnerProduct2(TInt64& /*aResult*/, const TInt16* /*aVec1*/, const TInt16* /*aVec2*/, TInt /*aLength*/);


TInt DoCP0Test(TAny* aPtr)
	{
	TUint seed[2];
	seed[0]=(TUint)aPtr;
	seed[1]=0;
	TInt16 vec1[128];
	TInt16 vec2[128];
	TInt run;
	for (run=0; run<100000; ++run)
		{
		TInt n=(Random(seed)&63)+64;		// vector length
		TInt i;
		for (i=0; i<n; ++i)
			{
			vec1[i]=(TInt16)(Random(seed)&0xffff);
			vec2[i]=(TInt16)(Random(seed)&0xffff);
			TInt64 result, result2;
			InnerProduct(result,vec1,vec2,n);
			InnerProduct2(result2,vec1,vec2,n);
			if (result != result2)
				{
				User::Panic(_L("ERROR"),run);
				}
			}
		}
	return 0;
	}

void CheckExit(TInt aThreadNum, RThread aThread)
	{
	TInt exitType=aThread.ExitType();
	TInt exitReason=aThread.ExitReason();
	TBuf<32> exitCat=aThread.ExitCategory();
	test.Printf(_L("Thread %d: %d,%d,%S\n"),aThreadNum,exitType,exitReason,&exitCat);
	test(exitType==EExitKill);
	test(exitReason==KErrNone);
	}

TInt E32Main()
	{
	test.Title();
	test.Start(_L("Testing XScale DSP Coprocessor"));

	TInt64 acc0;
	GetAcc0(acc0);
	test.Printf(_L("acc0=%lx\n"),acc0);

	SetAcc0(0);
	GetAcc0(acc0);
	test.Printf(_L("acc0=%lx\n"),acc0);

	test.Next(_L("Test CP0 in single thread"));
	DoCP0Test((TAny*)487);

	test.Next(_L("Test CP0 in multiple threads"));
	RThread t1, t2;
	TRequestStatus s1, s2;
	TInt r=t1.Create(KNullDesC(),DoCP0Test,0x1000,NULL,(TAny*)0xddb3d743);
	test(r==KErrNone);
	r=t2.Create(KNullDesC(),DoCP0Test,0x1000,NULL,(TAny*)0xb504f334);
	test(r==KErrNone);
	t1.Logon(s1);
	t2.Logon(s2);
	t1.Resume();
	t2.Resume();
	User::WaitForRequest(s1);
	User::WaitForRequest(s2);
	CheckExit(1,t1);
	CheckExit(2,t2);
	CLOSE_AND_WAIT(t1);
	CLOSE_AND_WAIT(t2);

	test.End();
	return 0;
	}