Changeset 95 in dev for BasicCompiler64

Timestamp:

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

Author:

dai_9181

Message:

RegisterGlobalRootsの自動生成に対応

Location:

BasicCompiler64

Files:

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

BasicCompiler64/Compile_ProcOp.cpp

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

BasicCompiler64/Compile_Var.cpp

@@ -1314 +1314 @@
     }
 }
+
+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単位の個数を引き渡す
+            //mov r8,count
+            op_mov_RV(sizeof(_int64), REG_R8,pVar->GetMemorySize()/PTR_SIZE);
+
+            // ルートポインタを引き渡す
+            //mov rdx,offset
+            op_mov_RV(sizeof(_int64), REG_RDX,(int)pVar->offset);
+            obp-=sizeof(long);
+            pobj_GlobalVarSchedule->add();
+            obp+=sizeof(long);
+
+            // Thisポインタを引き渡す
+            SetThisPtrToReg(REG_RCX);
+
+            // call AddGlobalRootPtr
+            op_call( pUserProc_AddGlobalRootPtr );
+
+            ReallocNativeCodeBuffer();
+        }
+    }
+
+    return true;
+}

BasicCompiler64/MakePeHdr.cpp

@@ -6 +6 @@
 // 特殊関数の構造体ポインタ
 ////////////////////////////
+
+// グローバル関数、静的メソッド
 UserProc
     *pSub_System_StartupProgram,
@@ -24 +26 @@
     *pSub_System_GC_free_for_SweepingDelete,
     *pSubStaticMethod_System_TypeBase_InitializeUserTypes;
+
+// 動的メソッド
+UserProc
+    *pUserProc_System_CGarbageCollection_RegisterGlobalRoots;
 
 
@@ -231 +237 @@
         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();
     }
 

BasicCompiler64/Opcode.h

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