Changeset 85 in dev

Timestamp:

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

Author:

dai_9181

Message:

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

Files:

• BasicCompiler32/Compile_ProcOp.cpp (modified) (2 diffs)
• BasicCompiler64/Compile_ProcOp.cpp (modified) (2 diffs)
• BasicCompiler_Common/Class.cpp (modified) (6 diffs)
• BasicCompiler_Common/VarList.cpp (modified) (2 diffs)
• BasicCompiler_Common/common.h (modified) (1 diff)
• BasicCompiler_Common/error.cpp (modified) (1 diff)
• ProjectEditor/Common.h (modified) (1 diff)
• ProjectEditor/SubOperation.cpp (modified) (3 diffs)

BasicCompiler32/Compile_ProcOp.cpp

@@ -478 +478 @@
             }
 
+            //新しいオブジェクト領域は0で初期化されているため、Nothingを明示的に代入する必要はない
+/*
             //実体クラスを持つメンバのコンストラクタ（引数有りを除く）を呼び出す
             for(i3=0;i3<pobj_CompilingClass->iMemberNum;i3++){
@@ -484 +486 @@
                     // オブジェクトメンバを発見したとき
 
-                    sprintf(temporary, "This.%s=%c%c%s()",
-                        pMember->name,
-                        1, ESC_NEW,
-                        pMember->GetClass().name );
+                    sprintf(temporary, "This.%s=Nothing",
+                        pMember->name );
                     OpcodeCalc( temporary );
                 }
             }
+*/
 
             //仮想関数テーブルを初期化

BasicCompiler64/Compile_ProcOp.cpp

@@ -531 +531 @@
             }
 
+            //新しいオブジェクト領域は0で初期化されているため、Nothingを明示的に代入する必要はない
+/*
             //実体クラスを持つメンバのコンストラクタ（引数有りを除く）を呼び出す
             for(i3=0;i3<pobj_CompilingClass->iMemberNum;i3++){
@@ -537 +539 @@
                     // オブジェクトメンバを発見したとき
 
-                    sprintf(temporary, "This.%s=%c%c%s()",
-                        pMember->name,
-                        1, ESC_NEW,
-                        pMember->GetClass().name );
+                    sprintf(temporary, "This.%s=Nothing",
+                        pMember->name );
                     OpcodeCalc( temporary );
                 }
             }
+*/
 
             //仮想関数テーブルを初期化

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,"参照する基底クラスが存在しません。");

ProjectEditor/Common.h

@@ -66 +66 @@
 #define APPLICATION_NAME "ActiveBasic 5.0"
 #define VERSION_APPLI_NAME APPLICATION_NAME
-#define VERSION_STRING "5.00.00 β rev.193"
+#define VERSION_STRING "5.00.00 β rev.194"
 
 #endif

ProjectEditor/SubOperation.cpp

@@ -167 +167 @@
     return 0;
 }
+bool IsNumberChar( char c ){
+    if(c>='0'&&c<='9'){
+        return true;
+    }
+    return false;
+}
 BOOL IsVariableChar(char c){
     if((c>='A'&&c<='Z')||(c>='a'&&c<='z')||(c>='0'&&c<='9')||
@@ -204 +210 @@
             int pos = (int)temp3 - (int)temp1;
             if( pos == 0 ){
-                if( !IsVariableChar( temp1[len2] ) ){
+                if( !( IsVariableTopChar( temp1[len2] ) || IsNumberChar( temp1[len2] ) ) ){
                         break;
                 }
             }
             else{
-                if( !IsVariableChar( temp1[pos-1] )
-                    && !IsVariableChar( temp1[pos+len2] ) ){
+                if( !( IsVariableTopChar( temp1[pos-1] ) || IsNumberChar( temp1[pos-1] ) )
+                    && !( IsVariableTopChar( temp1[pos+len2] ) || IsNumberChar( temp1[pos+len2] ) )
+                    ){
                         break;
                 }
@@ -569 +576 @@
     else if(str[0]=='t'||str[0]=='T'){
         if(lstrcmpi(str,"Then")==0) return -1;
+        if(lstrcmpi(str,"This")==0) return -1;
         if(lstrcmp(str,"True")==0) return -1;
         if(lstrcmpi(str,"Type")==0) return COM_TYPE;