Changeset 28 in dev for BasicCompiler_Common/Class.cpp

Timestamp:

Jan 8, 2007, 6:34:44 AM (18 years ago)

Author:

dai_9181

Message:

・【32ビットコンパイラ】戻り値に実態オブジェクトを持つインデクサを呼び出すと強制終了してしまうバグを修正。
・仮想関数のオーバーロードが正常に動作しないバグを修正。
・純仮想関数（抽象メソッド）が仮想関数でオーバーロードされていると、クラスのインスタンスが生成できてしまうバグを修正。

File:

• BasicCompiler_Common/Class.cpp (modified) (8 diffs)

BasicCompiler_Common/Class.cpp

@@ -25 +25 @@
     char init_buf[VN_SIZE];
     char constract_parameter[VN_SIZE];
-    if(!GetDimentionFormat(buffer,VarName,SubScripts,&TypeInfo,init_buf,constract_parameter))
-        return;
+    GetDimentionFormat(buffer,VarName,SubScripts,&TypeInfo,init_buf,constract_parameter);
 
     //重複チェック
     if(pobj_c->DupliCheckAll(VarName)){
         SetError(15,VarName,cp);
-        return;
     }
 
     if(TypeInfo.type==DEF_OBJECT){
-        if(TypeInfo.u.pobj_Class->IsHoldAbstractFunction()){
+        if(TypeInfo.u.pobj_Class->IsAbstract()){
             //抽象クラスだったとき
             SetError(125,TypeInfo.u.pobj_Class->name,cp);
@@ -303 +301 @@
         if( psi == ppobj_StaticMethod[i]->psi ) break;
     }
-    if( i == iMethodNum ){
+    if( i == iStaticMethodNum ){
         return NULL;
     }
@@ -326 +324 @@
 }
 LONG_PTR CClass::GetVtblGlobalOffset(void){
+
+    //既に存在する場合はそれを返す
     if(vtbl_offset!=-1) return vtbl_offset;
+
+
+    //////////////////////////////////////
+    // 存在しないときは新たに生成する
+    //////////////////////////////////////
 
     SUBINFO **ppsi;
@@ -332 +337 @@
 
     //関数テーブルに値をセット
-    int i,i2,i3=0;
-    for(i=0;i < iMethodNum;i++){
+    for( int i=0, i2=0; i < iMethodNum; i++ ){
         if(ppobj_Method[i]->bVirtual){
-            for(i2=iMethodNum-1; i2>=i; i2--){
-                if(lstrcmp(ppobj_Method[i]->psi->name,ppobj_Method[i2]->psi->name)==0){
-                    pobj_CompilingClass->ppobj_Method[i2]->psi->bUse=1;
-
-                    if(ppobj_Method[i2]->bAbstract){
-                        extern int cp;
-                        SetError(300,NULL,cp);
-
-                        ppsi[i3]=0;
-                    }
-                    else ppsi[i3]=pobj_CompilingClass->ppobj_Method[i2]->psi;
-                    i3++;
-
-                    break;
-                }
-            }
+            ppobj_Method[i]->psi->bUse=1;
+
+            if(ppobj_Method[i]->bAbstract){
+                extern int cp;
+                SetError(300,NULL,cp);
+
+                ppsi[i2]=0;
+            }
+            else ppsi[i2]=ppobj_Method[i]->psi;
+            i2++;
         }
     }
@@ -356 +354 @@
     vtbl_offset=AddDataTable((char *)ppsi,vtbl_num*sizeof(LONG_PTR));
 
-    for(i=0;i<vtbl_num;i++){
+    for( int i=0; i < vtbl_num; i++ ){
         pobj_Reloc->AddSchedule_DataSection(vtbl_offset+i*sizeof(LONG_PTR));
     }
@@ -379 +377 @@
     }
 }
-BOOL CClass::IsHoldAbstractFunction(void){
+bool CClass::IsAbstract(){
     //未実装の仮想関数を持つ場合は1を返す
 
-    int i,i2,i3=0;
-    for(i=0;i < iMethodNum;i++){
+    for( int i=0; i < iMethodNum; i++ ){
         if(ppobj_Method[i]->bVirtual){
-            for(i2=iMethodNum-1; i2>=i; i2--){
-                if(lstrcmp(ppobj_Method[i]->psi->name,ppobj_Method[i2]->psi->name)==0){
-
-                    if(ppobj_Method[i2]->bAbstract){
-                        return 1;
-                    }
-
-                    break;
-                }
+            if(ppobj_Method[i]->bAbstract){
+                return true;
             }
         }
@@ -399 +389 @@
 
     //コンポジションの関係にあるメンバも検査する
-    for(i=0;i < iMemberNum;i++){
+    for(int i=0;i < iMemberNum;i++){
         if(ppobj_Member[i]->TypeInfo.type==DEF_OBJECT){
-            if(ppobj_Member[i]->TypeInfo.u.pobj_Class->IsHoldAbstractFunction())
-                return 1;
-        }
-    }
-
-    return 0;
+            if(ppobj_Member[i]->TypeInfo.u.pobj_Class->IsAbstract())
+                return true;
+        }
+    }
+
+    return false;
 }
 
@@ -460 +450 @@
     return isCompilingDestructor;
 }
+
+
+//自身と等しいクラスかどうかを確認
+bool CClass::IsEquals( CClass *pClass ){
+    if( this == pClass ) return true;
+    return false;
+}
+
+//自身の派生クラスかどうかを確認
+bool CClass::IsSubClass( CClass *pClass ){
+    pClass = pClass->pobj_InheritsClass;
+    while( pClass ){
+        if( this == pClass ) return true;
+        pClass = pClass->pobj_InheritsClass;
+    }
+    return false;
+}
+