--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/kerneltest/e32test/misc/t_proc3a.cpp	Mon Oct 19 15:55:17 2009 +0100
@@ -0,0 +1,77 @@
+// 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_proc3a.cpp
+// 
+//
+
+#include <e32std.h>
+#include <e32std_private.h>
+#include "u32std.h"
+#include "../misc/prbs.h"
+
+TUint Seed[2];
+
+#define PANIC(r) Panic(__LINE__,r)
+void Panic(TInt aLine, TInt aCode)
+	{
+	_LIT(KLitTPROC3A,"T_PROC3A-");
+	TBuf<16> b=KLitTPROC3A();
+	b.AppendNum(aLine);
+	RProcess().Panic(b,aCode);
+	}
+
+void StartThread(TInt);
+
+TInt ThreadFunction(TAny* aParam)
+	{
+	TInt p=(TInt)aParam;
+	FOREVER
+		{
+		TProcessPriority pp=(p&1)?EPriorityForeground:EPriorityBackground;
+		RProcess().SetPriority(pp);
+		++p;
+		StartThread(p);
+		User::AfterHighRes(1);
+		}
+	}
+
+void StartThread(TInt aParam)
+	{
+	RThread t;
+	TInt r=t.Create(KNullDesC(),ThreadFunction,0x1000,NULL,(TAny*)aParam);
+	if (r!=KErrNone)
+		PANIC(r);
+	t.Resume();
+	t.Close();
+	}
+
+GLDEF_C TInt E32Main()
+	{
+	TBuf<256> cmd;
+	User::CommandLine(cmd);
+	TLex lex(cmd);
+	TUint param1;
+	TInt r=lex.Val(param1,EHex);
+	if (r!=KErrNone)
+		PANIC(r);
+	Seed[0]=param1;
+	Seed[1]=0;
+	StartThread(0);
+	TUint x=Random(Seed);
+	x&=63;
+	x+=2;
+	User::AfterHighRes(x);
+	RProcess().Kill(param1);
+	return 0;
+	}