Changeset 85 in dev for BasicCompiler_Common

Timestamp:

Mar 30, 2007, 4:19:07 AM (18 years ago)

Author:

dai_9181

Message:

オブジェクトの循環参照を許容した（構造体はダメ）。
抽象クラスをメンバの型に指定できるようにした。
メンバがオブジェクトだったとき、自動的にNewするのをやめ、初期値としてNothingを指定するようにした。

Location:

BasicCompiler_Common

Files:

• Class.cpp (modified) (6 diffs)
• VarList.cpp (modified) (2 diffs)
• common.h (modified) (1 diff)
• error.cpp (modified) (1 diff)

BasicCompiler_Common/Class.cpp

@@ -30 +30 @@
     }
 
+    /*
+    TODO: 消す
+    メンバ定義は抽象クラスでもOK
     if( IsObject() ){
         if( GetClass().IsAbstract() ){
@@ -35 +38 @@
             SetError(125,GetClass().name,cp);
         }
-    }
+    }*/
 
     //メンバ名
@@ -574 +577 @@
     }
 
+    /*
+    TODO: 消す
+    これはAB5からは良くなった（参照型になったため）
+
     //コンポジションの関係にあるメンバも検査する
     for(int i=0;i < iMemberNum;i++){
@@ -581 +588 @@
         }
     }
+    */
 
     return false;
@@ -860 +868 @@
     if(fConstructor||bDestructor){
         // コンストラクタ、デストラクタのアクセシビリティをチェック
-        if(dwAccess!=ACCESS_PUBLIC){
-            SetError(116,NULL,nowLine);
-            dwAccess=ACCESS_PUBLIC;
-        }
 
         //強制的にConst修飾子をつける
@@ -946 +950 @@
     for(i=0;i<objClass.iMemberNum;i++){
         const CMember *pMember = objClass.ppobj_Member[i];
-        if(pMember->IsObject()){
+        if(pMember->IsStruct()){
             //循環参照でないかをチェック
             if(pobj_LoopRefCheck->check(pMember->GetClass().name)){

BasicCompiler_Common/VarList.cpp

@@ -23 +23 @@
 
     if( type.IsObject() || type.IsStruct() ){
+        i2=1;
         if( type.IsObject() ){
             // 参照型ということを考慮する
-            ReadProcessMemory(hDebugProcess,(void *)offset,&pData,sizeof(void *),&accessBytes);
+            i2=ReadProcessMemory(hDebugProcess,(void *)offset,&pData,sizeof(void *),&accessBytes);
             offset = pData;
         }
@@ -34 +35 @@
         hParent=TreeView_InsertItem(hVarTree,lptv);
 
-        VarList_Member(hVarTree,hParent,offset,type.GetClass(),0);
+        if(i2 && offset) VarList_Member(hVarTree,hParent,offset,type.GetClass(),0);
         return;
     }

BasicCompiler_Common/common.h

@@ -47 +47 @@
 
 #ifdef _AMD64_
-#define VER_INFO        "(x64) β rev.184"
+#define VER_INFO        "(x64) β rev.194"
 #else
-#define VER_INFO        "β rev.184"
+#define VER_INFO        "β rev.194"
 #endif
 

BasicCompiler_Common/error.cpp

@@ -168 +168 @@
     if(num==114) lstrcpy(msg,"デストラクタはパラメータを持てません。");
     if(num==115) lstrcpy(msg,"コンストラクタ及びデストラクタは戻り値を持てません。");
-    if(num==116) lstrcpy(msg,"コンストラクタ及びデストラクタはパブリックアクセスにしなければなりません。");
+    //if(num==116) lstrcpy(msg,"コンストラクタ及びデストラクタはパブリックアクセスにしなければなりません。");
     if(num==117) lstrcpy(msg,"デストラクタの名前が \"~クラス名\" になっていません。");
     if(num==118) lstrcpy(msg,"参照する基底クラスが存在しません。");