Changeset 94 in dev for BasicCompiler32

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

BasicCompiler32

Files:

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

BasicCompiler32/Compile_Object.cpp

@@ -18 +18 @@
     jnz_back=obp;
 
-    //push ebx
-    op_push(REG_EBX);
+    if(bSomeObjects){
+        SetError();
+
+        //push ebx
+        op_push(REG_EBX);
+    }
 
     // ※ここでプッシュされた値はコンストラクタのthisポインタとなる
@@ -71 +75 @@
     op_pop(REG_EAX);
 
-    //pop ebx
-    op_pop(REG_EBX);
-
     if(bSomeObjects){
+        //pop ebx
+        op_pop(REG_EBX);
+
         //add eax,TypeSize
         OpBuffer[obp++]=(char)0x05;

BasicCompiler32/Compile_ProcOp.cpp

@@ -873 +873 @@
     }
 
+    //_System_TypeBase_InitializeUserTypesは一番最後にコンパイル
+    extern UserProc *pSubStaticMethod_System_TypeBase_InitializeUserTypes;
+    pSubStaticMethod_System_TypeBase_InitializeUserTypes->CompleteCompile();
+
     //_System_InitStaticLocalVariablesは一番最後にコンパイル
     //※一般関数内の静的変数オブジェクトをすべて収集しなければならない
@@ -882 +886 @@
     pSub_System_Call_Destructor_of_GlobalObject->CompleteCompile();
 
-Repeat:
+repeat:
     for(i2=0;i2<MAX_HASH;i2++){
         pUserProc=ppSubHash[i2];
@@ -891 +895 @@
     }
 
-    //プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合
-    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;
+            }
         }
     }

BasicCompiler32/NumOpe.cpp

@@ -224 +224 @@
                     || isNothing_stack[sp-2] ){
                         // 同一の型、または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{