--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/kerneltest/e32test/dll/t_dlla1.cpp	Mon Oct 19 15:55:17 2009 +0100
@@ -0,0 +1,62 @@
+// Copyright (c) 1997-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\dll\t_dlla1.cpp
+// 
+//
+
+#include <e32svr.h>
+
+const TInt KAmountOfBss=0x1004;
+TInt someBss[KAmountOfBss];
+
+TInt somedata=0;
+TFullName ProcessName(RProcess().FullName());
+TFullName ThreadName(RThread().FullName());
+
+
+TInt AnyOldFunction()
+	{
+	return 0x56789012;
+	}
+TInt (*function)()=&AnyOldFunction;
+
+EXPORT_C TInt AFunction()
+	{
+	if ((*function)()!=0x56789012)
+		return KErrGeneral;
+	TInt i;
+	for (i=0; i<KAmountOfBss; i++)
+		{
+		if (someBss[i]!=0)
+			{
+//			RDebug::Print(_L("i=%x addr %08x  data %08x"),i,&someBss[i], someBss[i]);
+			return KErrArgument;
+			}
+		}
+	return KErrNone;
+	}
+
+EXPORT_C TInt Inc()
+	{ return ++somedata; }
+
+EXPORT_C TFullName& GetProcessName()
+	{
+	return ProcessName;
+	}
+
+EXPORT_C TFullName& GetThreadName()
+	{
+	return ThreadName;
+	}
+