kerneltest/e32test/heap/t_hcomp.cpp
author John Imhofe
Mon, 19 Oct 2009 15:55:17 +0100
changeset 0 a41df078684a
child 43 c1f20ce4abcf
permissions -rw-r--r--
Convert Kernelhwsrv package from SFL to EPL kernel\eka\compsupp is subject to the ARM EABI LICENSE userlibandfileserver\fatfilenameconversionplugins\unicodeTables is subject to the Unicode license kernel\eka\kernel\zlib is subject to the zlib license

// 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\heap\t_hcomp.cpp
// Causes lots of chunk compression without using much memory
// Won't work on WINS unless memory allocation limits are set.
// 
//


#include <e32std.h>
#include <e32std_private.h>
#include <e32hal.h>

const TUint size64k = 64*1024;

GLDEF_C TInt E32Main()
	{

	RProcess me;
	me.SetPriority(EPriorityHigh);

	TMemoryInfoV1Buf membuf;
	UserHal::MemoryInfo(membuf);
	TInt maxmem=membuf().iTotalRamInBytes;
	TInt heapsize=maxmem*2;

	RHeap* heap1=User::ChunkHeap(NULL,size64k,heapsize+size64k);
	if (heap1==NULL)
		return KErrNoMemory;

	FOREVER
		{
		TUint8* ptr=(TUint8*)heap1->Alloc(heapsize);	// fail, compress, fail
		User::After(1000);	// quite soon
		heap1->Free(ptr);
		}
	return 0;
	}