Changeset 95 in dev for BasicCompiler32

Timestamp:

Apr 15, 2007, 1:34:02 AM (18 years ago)

Author:

dai_9181

Message:

RegisterGlobalRootsの自動生成に対応

Location:

BasicCompiler32

Files:

• Compile_ProcOp.cpp (modified) (1 diff)
• Compile_Var.cpp (modified) (1 diff)
• MakePeHdr.cpp (modified) (3 diffs)
• Opcode.h (modified) (1 diff)

BasicCompiler32/Compile_ProcOp.cpp

@@ -214 +214 @@
 
             pobj_DBClass->Compile_System_InitializeUserTypes();
+    }
+    else if( userProc.GetName() == "RegisterGlobalRoots"
+        && userProc.HasParentClass()
+        && (string)userProc.GetParentClass().name == "_System_CGarbageCollection" ){
+
+            Compile_AddGlobalRootsForGc();
     }
     else{

BasicCompiler32/Compile_Var.cpp

@@ -1318 +1318 @@
     }
 }
+
+bool Compile_AddGlobalRootsForGc(){
+    UserProc *pUserProc_AddGlobalRootPtr = GetClassMethod( "_System_CGarbageCollection", "AddGlobalRootPtr" );
+    if( !pUserProc_AddGlobalRootPtr ){
+        SetError(3, "_System_CGarbageCollection.AddGlobalRootPtr", -1 );
+        return false;
+    }
+
+    BOOST_FOREACH( const Variable *pVar, globalVars ){
+        if( pVar->IsObject() || pVar->IsPointer() || pVar->IsStruct() ){
+            // オブジェクトまたはポインタだったとき
+            // ※構造体も含む（暫定対応）
+
+            // 変数領域に要するLONG_PTR単位の個数を引き渡す
+            op_push_V( pVar->GetMemorySize()/PTR_SIZE );
+
+
+            /////////////////////////////
+            // ルートポインタを引き渡す
+
+            //mov eax,offset
+            op_mov_RV(REG_EAX,(int)pVar->offset);
+            obp-=sizeof(long);
+            pobj_GlobalVarSchedule->add();
+            obp+=sizeof(long);
+
+            //push eax
+            op_push( REG_EAX );
+
+            //
+            /////////////////////////////
+
+
+            /////////////////////////////
+            // Thisポインタを引き渡す
+
+            SetThisPtrToReg(REG_EAX);
+
+            //push eax
+            op_push( REG_EAX );
+
+            //
+            /////////////////////////////
+
+
+            // call AddGlobalRootPtr
+            op_call( pUserProc_AddGlobalRootPtr );
+
+            ReallocNativeCodeBuffer();
+        }
+    }
+
+    return true;
+}

BasicCompiler32/MakePeHdr.cpp

@@ -8 +8 @@
 // 特殊関数の構造体ポインタ
 ////////////////////////////
+
+// グローバル関数、静的メソッド
 UserProc
     *pSub_System_StartupProgram,
@@ -38 +40 @@
     
     *pSub_esp_error;
+
+// 動的メソッド
+UserProc
+    *pUserProc_System_CGarbageCollection_RegisterGlobalRoots;
 
 
@@ -250 +256 @@
         pSubStaticMethod_System_TypeBase_InitializeUserTypes->Using();
         pSubStaticMethod_System_TypeBase_InitializeUserTypes->ThisIsAutoGenerationProc();
+    }
+
+    if( pUserProc_System_CGarbageCollection_RegisterGlobalRoots = GetClassMethod( "_System_CGarbageCollection", "RegisterGlobalRoots" ) ){
+        pUserProc_System_CGarbageCollection_RegisterGlobalRoots->Using();
+        pUserProc_System_CGarbageCollection_RegisterGlobalRoots->ThisIsAutoGenerationProc();
     }
 

BasicCompiler32/Opcode.h

@@ -192 +192 @@
 void dim( char *VarName,int *SubScripts,Type &type,char *InitBuf,char *ConstractParameter,DWORD dwFlags);
 void SetVarPtrToEax(RELATIVE_VAR *pRelativeVar);
+bool Compile_AddGlobalRootsForGc();
 
 //ParamImpl.cpp