Changeset 94 in dev for BasicCompiler64

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

BasicCompiler64

Files:

• Compile_Object.cpp (modified) (1 diff)
• Compile_ProcOp.cpp (modified) (3 diffs)
• NumOpe.cpp (modified) (1 diff)

BasicCompiler64/Compile_Object.cpp

@@ -19 +19 @@
 
     if(bSomeObjects){
+        SetError();
         //mov qword ptr[rsp+offset],rbx     ※スタックフレームを利用
         pobj_sf->push(REG_RBX);

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;
+            }
         }
     }

BasicCompiler64/NumOpe.cpp

@@ -249 +249 @@
                         // 同一の型、またはNothingに対するAsはAs演算子を呼び出さない
                 }
+                else if( idCalc == CALC_AS
+                    && type_stack[sp-1] == ( DEF_OBJECT | FLAG_CAST )
+                    && ( ((CClass *)index_stack[sp-1])->IsEqualsOrSubClass( (CClass *)index_stack[sp-2] ) || ((CClass *)index_stack[sp-2])->IsEqualsOrSubClass( (CClass *)index_stack[sp-1] )
+                    )){
+                        // ダウンキャストを許可する
+                }
                 else{
                     //オーバーロードされたオペレータを呼び出す