Changeset 316 in dev for trunk/abdev/BasicCompiler_Common

Timestamp:

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

Author:

dai_9181

Message:

 

Location:

trunk/abdev/BasicCompiler_Common

Files:

• Subroutine.cpp (modified) (1 diff)
• common.h (modified) (1 diff)
• src/Type.cpp (modified) (1 diff)

trunk/abdev/BasicCompiler_Common/Subroutine.cpp

@@ -447 +447 @@
     return false;
 }
+
+void CompileBufferInProcedure( const UserProc &userProc ){
+    if( userProc.IsCompiled() ) return;
+
+    _compile_proc( &userProc );
+
+/*
+    // ログを履く
+    char temporary[8192];
+    temporary[0]=0;
+    lstrcat( temporary, "------------------------------------------------------------------\n" );
+    sprintf( temporary + lstrlen(temporary), "【 %s のコード情報】\n", userProc.GetFullName().c_str() );
+    sprintf( temporary + lstrlen(temporary), "code size: %d bytes\n", userProc.GetCodeSize() );
+    lstrcat( temporary, "------------------------------------------------------------------\n" );
+    lstrcat( temporary, "\n" );
+    Smoothie::Logger::Put( 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;
+    }
+
+    if( !compiler.IsStaticLibrary() )
+    {
+        //_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 );
+    }
+}

trunk/abdev/BasicCompiler_Common/common.h

@@ -359 +359 @@
 int AddProcPtrInfo( const string &typeExpression, int nowLine );
 bool IsNeedProcCompile();
+void CompileLocal();
 
 //OldStatement.cpp

trunk/abdev/BasicCompiler_Common/src/Type.cpp

@@ -396 +396 @@
     return (
         basicType == DEF_OBJECT
-        || IsTypeParameter()
+        || basicType == DEF_TYPE_PARAMETER
     );
 }