Changeset 94 in dev for BasicCompiler64/Compile_ProcOp.cpp

Timestamp:

Apr 14, 2007, 8:36:04 PM (17 years ago)

Author:

dai_9181

Message:

New[]を禁止した。
一部の動的型情報が生成されないバグを修正。
As演算子によるダウンキャストを許可（プログラム的なチェックはまだ走っていない）

File:

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

BasicCompiler64/Compile_ProcOp.cpp

@@ -845 +845 @@
     }
 
+    //_System_TypeBase_InitializeUserTypesは一番最後にコンパイル
+    extern UserProc *pSubStaticMethod_System_TypeBase_InitializeUserTypes;
+    pSubStaticMethod_System_TypeBase_InitializeUserTypes->CompleteCompile();
+
     //_System_InitStaticLocalVariablesは一番最後にコンパイル
     //※一般関数内の静的変数オブジェクトをすべて収集しなければならない
@@ -854 +858 @@
     pSub_System_Call_Destructor_of_GlobalObject->CompleteCompile();
 
-Repeat:
+repeat:
     for(i2=0;i2<MAX_HASH;i2++){
         pUserProc=ppSubHash[i2];
@@ -863 +867 @@
     }
 
-    //プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合
-    for(i2=0;i2<MAX_HASH;i2++){
-        pUserProc=ppSubHash[i2];
-        while(pUserProc){
-            if( pUserProc->IsUsing() && pUserProc->IsCompiled() == false ){
-                goto Repeat;
-            }
-
-            pUserProc=pUserProc->pNextData;
+    if( IsNeedProcCompile() ){
+        //プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合
+        goto repeat;
+    }
+
+    //_System_TypeBase_InitializeUserTypesは最後のほうでコンパイル
+    pSubStaticMethod_System_TypeBase_InitializeUserTypes->KillCompileStatus();
+    CompileBufferInProcedure( *pSubStaticMethod_System_TypeBase_InitializeUserTypes );
+
+    if( IsNeedProcCompile() ){
+        //プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合
+        for(i2=0;i2<MAX_HASH;i2++){
+            pUserProc=ppSubHash[i2];
+            while(pUserProc){
+                CompileBufferInProcedure( *pUserProc );
+                pUserProc=pUserProc->pNextData;
+            }
         }
     }