Changeset 272 in dev for trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp

Timestamp:

Aug 10, 2007, 9:20:45 PM (17 years ago)

Author:

dai_9181

Message:

 

File:

• trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp (modified) (1 diff)

trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp

@@ -791 +791 @@
     }
 
-    //_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 );
+    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 );
+    }
 }