Changeset 316 in dev for trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp

Timestamp:

Sep 7, 2007, 3:15:41 AM (17 years ago)

Author:

dai_9181

Message:

 

File:

• trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp (modified) (3 diffs)

trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp

@@ -190 +190 @@
     int i3,i4;
     char temporary[VN_SIZE];
-
-    if( pUserProc->IsUsing() == false || pUserProc->IsCompiled() ) return;
 
     if( pUserProc->GetLocalVars().size() ){
@@ -620 +618 @@
         GetVarOffsetReadWrite(temp,&RelativeVar,Type());
 
-        i3=pUserProc->ReturnType().GetBasicType();
-
-        if(i3==DEF_OBJECT || i3==DEF_STRUCT){
+        const Type &returnType = pUserProc->ReturnType();
+        if( returnType.IsObject() || returnType.IsStruct() )
+        {
             SetVarPtrToReg(REG_RAX,&RelativeVar);
-            if( i3==DEF_OBJECT ){
+            if( returnType.IsObject() )
+            {
                 //mov rax,qword ptr[rax]
                 compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_RAX, REG_RAX, 0, MOD_BASE );
             }
         }
-        else if(i3==DEF_DOUBLE){
+        else if( returnType.IsDouble() )
+        {
             //64ビット実数型
             SetXmmReg_DoubleVariable(&RelativeVar,REG_XMM0);
         }
-        else if(i3==DEF_SINGLE){
+        else if( returnType.IsSingle() )
+        {
             //32ビット実数型
             SetXmmReg_SingleVariable(&RelativeVar,REG_XMM0);
         }
-        else if(IsWholeNumberType(i3)){
+        else if( returnType.IsWhole() )
+        {
             //整数型
-            SetReg_WholeVariable(Type(i3),&RelativeVar,REG_RAX);
+            SetReg_WholeVariable(returnType.GetSize(),&RelativeVar,REG_RAX);
         }
         else SetError(300,NULL,cp);
@@ -699 +701 @@
     HeapDefaultFree(SynonymErrorWords);
 }
-
-void CompileBufferInProcedure( const UserProc &userProc ){
-    if( userProc.IsUsing() == false || userProc.IsCompiled() ) return;
-
-    _compile_proc( &userProc );
-
-    // ログを履く
-    char temporary[8192];
-    temporary[0]=0;
-    lstrcat( temporary, "------------------------------------------------------------------\n" );
-    sprintf( temporary + lstrlen(temporary), "【 %s のコード情報】\n", userProc.GetName().c_str() );
-    sprintf( temporary + lstrlen(temporary), "code size: %d bytes\n", userProc.GetCodeSize() );
-    lstrcat( temporary, "------------------------------------------------------------------\n" );
-    lstrcat( temporary, "\n" );
-    trace_for_size( temporary );
-}
-void CompileLocal(){
-    if( compiler.IsDll() ){
-        //DLLの場合はグローバル変数を初期化するための関数を一番初めにコンパイルする
-        const UserProc *pUserProc = GetSubHash("_System_InitDllGlobalVariables");
-        if(pUserProc){
-            CompileBufferInProcedure( *pUserProc );
-        }
-        else SetError(300,NULL,cp);
-    }
-    else
-    {
-        // グローバル領域を一番初めにコンパイルする
-        extern const UserProc *pSub_System_GlobalArea;
-        CompileBufferInProcedure( *pSub_System_GlobalArea );
-    }
-
-    //_System_TypeBase_InitializeUserTypesは一番最後にコンパイル
-    extern const UserProc *pSubStaticMethod_System_TypeBase_InitializeUserTypes;
-    pSubStaticMethod_System_TypeBase_InitializeUserTypes->CompleteCompile();
-
-    //_System_InitStaticLocalVariablesは一番最後にコンパイル
-    //※一般関数内の静的変数オブジェクトをすべて収集しなければならない
-    extern const UserProc *pSub_System_InitStaticLocalVariables;
-    pSub_System_InitStaticLocalVariables->CompleteCompile();
-
-    //_System_Call_Destructor_of_GlobalObjectは一番最後にコンパイル
-    extern const UserProc *pSub_System_Call_Destructor_of_GlobalObject;
-    pSub_System_Call_Destructor_of_GlobalObject->CompleteCompile();
-
-repeat:
-    compiler.GetObjectModule().meta.GetUserProcs().Iterator_Reset();
-    while( compiler.GetObjectModule().meta.GetUserProcs().Iterator_HasNext() )
-    {
-        UserProc *pUserProc = compiler.GetObjectModule().meta.GetUserProcs().Iterator_GetNext();
-        CompileBufferInProcedure( *pUserProc );
-    }
-
-    if( IsNeedProcCompile() ){
-        //プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合
-        goto repeat;
-    }
-
-    //_System_TypeBase_InitializeUserTypesは最後のほうでコンパイル
-    pSubStaticMethod_System_TypeBase_InitializeUserTypes->KillCompileStatus();
-    CompileBufferInProcedure( *pSubStaticMethod_System_TypeBase_InitializeUserTypes );
-
-    if( IsNeedProcCompile() ){
-        //プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合
-
-        compiler.GetObjectModule().meta.GetUserProcs().Iterator_Reset();
-        while( compiler.GetObjectModule().meta.GetUserProcs().Iterator_HasNext() )
-        {
-            UserProc *pUserProc = compiler.GetObjectModule().meta.GetUserProcs().Iterator_GetNext();
-            CompileBufferInProcedure( *pUserProc );
-        }
-    }
-
-    //_System_InitStaticLocalVariablesは一番最後にコンパイル
-    pSub_System_InitStaticLocalVariables->KillCompileStatus();
-    CompileBufferInProcedure( *pSub_System_InitStaticLocalVariables );
-
-    //_System_Call_Destructor_of_GlobalObjectは一番最後にコンパイル
-    pSub_System_Call_Destructor_of_GlobalObject->KillCompileStatus();
-    CompileBufferInProcedure( *pSub_System_Call_Destructor_of_GlobalObject );
-}