Index: trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp
===================================================================
--- trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp	(revision 204)
+++ trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp	(revision 206)
@@ -1,2 +1,4 @@
+#include "stdafx.h"
+
 #include <jenga/include/smoothie/Smoothie.h>
 #include <jenga/include/smoothie/LexicalAnalysis.h>
@@ -5,6 +7,6 @@
 #include <Compiler.h>
 #include <LexicalScopingImpl.h>
-#include <ClassImpl.h>
-#include <VariableImpl.h>
+#include <Class.h>
+#include <Variable.h>
 #include <NamespaceSupporter.h>
 
@@ -36,5 +38,5 @@
 		}
 
-		UserProc *pBackUserProc;
+		const UserProc *pBackUserProc;
 		pBackUserProc = &UserProc::CompilingUserProc();
 		UserProc::CompileStartForGlobalArea();
@@ -54,5 +56,5 @@
 
 		//_System_StartupProgramの呼び出し
-		extern UserProc *pSub_System_StartupProgram;
+		extern const UserProc *pSub_System_StartupProgram;
 		op_call(pSub_System_StartupProgram);
 
@@ -71,8 +73,8 @@
 		//静的ローカルオブジェクトのコンストラクタ呼び出し
 
-		BOOST_FOREACH( Variable *pVar, globalVars ){
+		BOOST_FOREACH( Variable *pVar, compiler.GetMeta().GetGlobalVars() ){
 			if(memicmp(pVar->GetName().c_str(),"Static%",7)==0){
 				//コンストラクタ呼び出し
-				if( pVar->IsObject() ){
+				if( pVar->GetType().IsObject() ){
 
 					//エラー用
@@ -81,7 +83,7 @@
 					CallConstructor(
 						pVar->GetName().c_str(),
-						pVar->GetSubScriptsPtr(),
-						*pVar,
-						pVar->paramStrForConstructor.c_str());
+						pVar->GetSubscripts(),
+						pVar->GetType(),
+						pVar->GetParamStrForConstructor().c_str());
 				}
 			}
@@ -93,5 +95,5 @@
 	else if( userProc.GetName() == "_System_Call_Destructor_of_GlobalObject" ){
 
-		UserProc *pBackUserProc;
+		const UserProc *pBackUserProc;
 		pBackUserProc = &UserProc::CompilingUserProc();
 		UserProc::CompileStartForGlobalArea();
@@ -222,5 +224,5 @@
 	}
 }
-void AutoGeneration(UserProc &userProc){
+void AutoGeneration( const UserProc &userProc){
 	if( userProc.GetName() == "InitializeUserTypes"
 		&& userProc.HasParentClass()
@@ -240,8 +242,7 @@
 }
 
-void _compile_proc(UserProc *pUserProc){
+void _compile_proc(const UserProc *pUserProc){
 	extern char *basbuf;
 	extern HANDLE hHeap;
-	extern GlobalProc **ppSubHash;
 	extern BOOL bDebugCompile;
 	int i3,i4,LocalVarSchedule,EspOffsetSchedule,BaseOffset;
@@ -250,8 +251,10 @@
 	if( pUserProc->IsUsing() == false || pUserProc->IsCompiled() ) return;
 
-	if( pUserProc->localVars.size() ){
+	if( pUserProc->GetLocalVars().size() ){
 		SetError();
 		return;
 	}
+
+	trace_for_sourcecodestep( "★★★ " << pUserProc->GetFullName() << "のコンパイルを開始" );
 
 	pUserProc->CompleteCompile();
@@ -270,8 +273,8 @@
 	else bDebugSupportProc=0;
 
-	pUserProc->beginOpAddress=obp;
+	pUserProc->SetBeginOpAddress( obp );
 
 	//コンパイル中の関数が属するクラス
-	Smoothie::Temp::pCompilingClass=pUserProc->GetParentClassPtr();
+	compiler.pCompilingClass=pUserProc->GetParentClassPtr();
 
 	//コンパイルスタートをクラス管理クラスに追加
@@ -297,5 +300,5 @@
 		SystemProc(*pUserProc);
 
-		pUserProc->endOpAddress=obp;
+		pUserProc->SetEndOpAddress( obp );
 		return;
 	}
@@ -321,8 +324,8 @@
 		Parameter &param = *pUserProc->RealParams()[i3];
 
-		Variable *pVar = new VariableImpl( param.GetVarName(), param, false, param.IsRef() );
+		Variable *pVar = new Variable( param.GetVarName(), param, false, param.IsRef(), "" );
 
 		if( param.IsArray() ){
-			pVar->SetArray( param.GetSubScriptsPtr() );
+			pVar->SetArray( param.GetSubscripts() );
 		}
 
@@ -342,12 +345,12 @@
 		}
 		AllLocalVarSize+=varSize;
-		pVar->offset=AllLocalVarSize;
+		pVar->SetOffsetAddress( AllLocalVarSize );
 
 		//レキシカルスコープ情報
-		pVar->ScopeLevel=GetLexicalScopes().GetNowLevel();
-		pVar->ScopeStartAddress=GetLexicalScopes().GetStartAddress();
+		pVar->SetScopeLevel( GetLexicalScopes().GetNowLevel() );
+		pVar->SetScopeStartAddress( GetLexicalScopes().GetStartAddress() );
 		pVar->bLiving=TRUE;
 
-		pUserProc->localVars.push_back( pVar );
+		pUserProc->GetLocalVars().push_back( pVar );
 	}
 
@@ -456,10 +459,10 @@
 
 		//call _DebugSys_StartProc
-		extern UserProc *pSub_DebugSys_StartProc;
+		extern const UserProc *pSub_DebugSys_StartProc;
 		op_call(pSub_DebugSys_StartProc);
 	}
 
-	if(Smoothie::Temp::pCompilingClass){
-		if( pUserProc->GetName() == Smoothie::Temp::pCompilingClass->GetName() ){
+	if(compiler.pCompilingClass){
+		if( pUserProc->GetName() == compiler.pCompilingClass->GetName() ){
 			////////////////////////////////////
 			// コンストラクタをコンパイルするとき
@@ -467,11 +470,11 @@
 
 			//コンストラクタのコンパイル開始を通知
-			Smoothie::Temp::pCompilingClass->NotifyStartConstructorCompile();
+			compiler.pCompilingClass->NotifyStartConstructorCompile();
 
 			//基底クラスかどうかの識別
 			//（継承元がインターフェイスの場合も基底クラスと見なす）
 			BOOL bThisIsSuperClass;
-			if( !Smoothie::Temp::pCompilingClass->HasSuperClass() ) bThisIsSuperClass=1;
-			else if( Smoothie::Temp::pCompilingClass->GetSuperClass().GetConstructorMethod() == NULL ){
+			if( !compiler.pCompilingClass->HasSuperClass() ) bThisIsSuperClass=1;
+			else if( compiler.pCompilingClass->GetSuperClass().GetConstructorMethod() == NULL ){
 				//インターフェイスを継承したときはコンストラクタを持たない
 				bThisIsSuperClass=1;
@@ -492,5 +495,5 @@
 					temporary[i4]=basbuf[i3];
 				}
-				if( Smoothie::Temp::pCompilingClass->GetSuperClass().GetName() == temporary ){
+				if( compiler.pCompilingClass->GetSuperClass().GetName() == temporary ){
 					//基底クラスのコンストラクタを呼び出す
 					cp=i3;
@@ -509,6 +512,6 @@
 					Type dummyType;
 					CallProc( PROC_DEFAULT
-						, Smoothie::Temp::pCompilingClass->GetSuperClass().GetConstructorMethod()->pUserProc
-						, Smoothie::Temp::pCompilingClass->GetSuperClass().GetConstructorMethod()->pUserProc->GetName().c_str()
+						, &compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc()
+						, compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc().GetName().c_str()
 						, temporary
 						, dummyType );
@@ -517,5 +520,5 @@
 					//基底クラスのコンストラクタを暗黙的に呼び出す
 					Opcode_CallProc("",
-						Smoothie::Temp::pCompilingClass->GetSuperClass().GetConstructorMethod()->pUserProc,
+						&compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc(),
 						0,
 						"",
@@ -525,8 +528,8 @@
 
 			//仮想関数テーブルを初期化
-			if( Smoothie::Temp::pCompilingClass->IsExistVirtualFunctions()
-				&& !Smoothie::Temp::pCompilingClass->IsAbstract() ){
+			if( compiler.pCompilingClass->IsExistVirtualFunctions()
+				&& !compiler.pCompilingClass->IsAbstract() ){
 					//関数テーブルに値をセット
-					int offset = (int)Smoothie::Temp::pCompilingClass->GetVtblGlobalOffset();
+					int offset = (int)compiler.pCompilingClass->GetVtblGlobalOffset();
 
 					//mov eax,offset
@@ -548,5 +551,5 @@
 
 			//デストラクタのコンパイル開始を通知
-			Smoothie::Temp::pCompilingClass->NotifyStartDestructorCompile();
+			compiler.pCompilingClass->NotifyStartDestructorCompile();
 		}
 	}
@@ -574,11 +577,11 @@
 	//////////////////////////////////////////
 
-	if( Smoothie::Temp::pCompilingClass ){
-
-		if( Smoothie::Temp::pCompilingClass->IsCompilingConstructor() ){
+	if( compiler.pCompilingClass ){
+
+		if( compiler.pCompilingClass->IsCompilingConstructor() ){
 			// コンストラクタをコンパイルしていたとき
 
 			// コンストラクタのコンパイルが完了したことを通知
-			Smoothie::Temp::pCompilingClass->NotifyFinishConstructorCompile();
+			compiler.pCompilingClass->NotifyFinishConstructorCompile();
 		}
 		else if( pUserProc->IsDestructor() ){
@@ -588,14 +591,14 @@
 
 			// デストラクタのコンパイルが完了したことを通知
-			Smoothie::Temp::pCompilingClass->NotifyFinishDestructorCompile();
-
-			if( Smoothie::Temp::pCompilingClass->HasSuperClass() ){
+			compiler.pCompilingClass->NotifyFinishDestructorCompile();
+
+			if( compiler.pCompilingClass->HasSuperClass() ){
 				/* サブクラスのデストラクタをコンパイルしているときは、
 					基底クラスのデストラクタを呼び出す */
 
-				const CMethod *method = Smoothie::Temp::pCompilingClass->GetSuperClass().GetDestructorMethod();
+				const CMethod *method = compiler.pCompilingClass->GetSuperClass().GetDestructorMethod();
 				if( method ){
 					Opcode_CallProc("",
-						method->pUserProc,
+						&method->GetUserProc(),
 						0,
 						"",
@@ -649,5 +652,5 @@
 
 		//call _DebugSys_EndProc
-		extern UserProc *pSub_DebugSys_EndProc;
+		extern const UserProc *pSub_DebugSys_EndProc;
 		op_call(pSub_DebugSys_EndProc);
 	}
@@ -742,7 +745,7 @@
 	}
 	HeapDefaultFree(pLocalVarAddrSchedule);
-	BOOST_FOREACH( Variable *pVar, pUserProc->localVars ){
+	BOOST_FOREACH( Variable *pVar, pUserProc->GetLocalVars() ){
 		//後にデバッグで利用する
-		pVar->offset = AllLocalVarSize - pVar->offset;
+		pVar->SetOffsetAddress( AllLocalVarSize - pVar->GetOffsetAddress() );
 	}
 
@@ -771,5 +774,5 @@
 
 		//call _esp_error
-		extern UserProc *pSub_esp_error;
+		extern const UserProc *pSub_esp_error;
 		op_call( pSub_esp_error );
 
@@ -799,5 +802,5 @@
 
 
-	pUserProc->endOpAddress=obp;
+	pUserProc->SetEndOpAddress( obp );
 
 
@@ -811,5 +814,5 @@
 }
 
-void CompileBufferInProcedure( UserProc &userProc ){
+void CompileBufferInProcedure( const UserProc &userProc ){
 	if( userProc.IsUsing() == false || userProc.IsCompiled() ) return;
 
@@ -827,11 +830,8 @@
 }
 void CompileLocal(){
-	extern GlobalProc **ppSubHash;
-	int i2;
-
 	extern BOOL bDll;
 	if(bDll){
 		//DLLの場合はグローバル変数を初期化するための関数を一番初めにコンパイルする
-		UserProc *pUserProc=GetSubHash("_System_InitDllGlobalVariables");
+		const UserProc *pUserProc=GetSubHash("_System_InitDllGlobalVariables");
 		if(pUserProc){
 			CompileBufferInProcedure( *pUserProc );
@@ -841,24 +841,22 @@
 
 	//_System_TypeBase_InitializeUserTypesは一番最後にコンパイル
-	extern UserProc *pSubStaticMethod_System_TypeBase_InitializeUserTypes;
+	extern const UserProc *pSubStaticMethod_System_TypeBase_InitializeUserTypes;
 	pSubStaticMethod_System_TypeBase_InitializeUserTypes->CompleteCompile();
 
 	//_System_InitStaticLocalVariablesは一番最後にコンパイル
 	//※一般関数内の静的変数オブジェクトをすべて収集しなければならない
-	extern UserProc *pSub_System_InitStaticLocalVariables;
+	extern const UserProc *pSub_System_InitStaticLocalVariables;
 	pSub_System_InitStaticLocalVariables->CompleteCompile();
 
 	//_System_Call_Destructor_of_GlobalObjectは一番最後にコンパイル
-	extern UserProc *pSub_System_Call_Destructor_of_GlobalObject;
+	extern const UserProc *pSub_System_Call_Destructor_of_GlobalObject;
 	pSub_System_Call_Destructor_of_GlobalObject->CompleteCompile();
 
 repeat:
-	GlobalProc *pGlobalProc;
-	for(i2=0;i2<MAX_HASH;i2++){
-		pGlobalProc=ppSubHash[i2];
-		while(pGlobalProc){
-			CompileBufferInProcedure( *pGlobalProc );
-			pGlobalProc=pGlobalProc->pNextData;
-		}
+	compiler.GetMeta().GetUserProcs().Iterator_Reset();
+	while( compiler.GetMeta().GetUserProcs().Iterator_HasNext() )
+	{
+		UserProc *pUserProc = compiler.GetMeta().GetUserProcs().Iterator_GetNext();
+		CompileBufferInProcedure( *pUserProc );
 	}
 
@@ -874,10 +872,10 @@
 	if( IsNeedProcCompile() ){
 		//プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合
-		for(i2=0;i2<MAX_HASH;i2++){
-			pGlobalProc=ppSubHash[i2];
-			while(pGlobalProc){
-				CompileBufferInProcedure( *pGlobalProc );
-				pGlobalProc=pGlobalProc->pNextData;
-			}
+
+		compiler.GetMeta().GetUserProcs().Iterator_Reset();
+		while( compiler.GetMeta().GetUserProcs().Iterator_HasNext() )
+		{
+			UserProc *pUserProc = compiler.GetMeta().GetUserProcs().Iterator_GetNext();
+			CompileBufferInProcedure( *pUserProc );
 		}
 	}
