CLRでSmallObjectAllocator

using namespace ::System;
using namespace ::System::Windows;
using namespace ::System::Windows::Forms;

// コールバックの定義
public ref class TimerTest
{
public:
	TimerTest( void ){ m_count=0; }
	void SayYeah( System::Object^ obj, System::Timers::ElapsedEventArgs^ args ){
		++m_count;
		return;
	}
	static int m_count;
};

class NativeTest{
public:
	NativeTest( void ){}
	~NativeTest( void ){}
public:
	char a[7200];
};

public ref class ManTest{
public:
	ManTest( void ){ m_a = gcnew array<char>(7200); }
	~ManTest( void ){}
public:
	array<char>^ m_a;
};

void main( void )
{
	TimerTest^ tt = gcnew TimerTest;
	{
		System::Timers::Timer^ timer = gcnew System::Timers::Timer();
		{
			timer->Interval = 1;
			timer->AutoReset = !0;
			timer->Elapsed += 
				gcnew System::Timers::ElapsedEventHandler( tt, &TimerTest::SayYeah );
			timer->Start();
		}
	}
	// 実験開始
	const int n_obj = 1000000;
	{
		// native heap test
		Console::WriteLine( "count is " +(TimerTest::m_count) );
		NativeTest* nv = new NativeTest[ n_obj ];
		Console::WriteLine( "count is " +(TimerTest::m_count) );
		delete [] nv;
		Console::WriteLine( "count is " +(TimerTest::m_count) );
	}
	{
		// managed heap test
		array<ManTest^>^ mv = gcnew array<ManTest^>( n_obj );  
		Console::WriteLine( "count is " +(TimerTest::m_count) );
	}
	delete tt;
	return;
}