Changeset 18 in dev for BasicCompiler64

Timestamp:

Dec 24, 2006, 4:46:12 AM (18 years ago)

Author:

dai_9181

Message:

オブジェクト定数に対応。

Location:

BasicCompiler64

Files:

• Compile_CallProc.cpp (modified) (4 diffs)
• Compile_ProcOp.cpp (modified) (4 diffs)
• Compile_Var.cpp (modified) (2 diffs)

BasicCompiler64/Compile_CallProc.cpp

@@ -233 +233 @@
 
     BOOL bStatic=0;
-    CClass *pobj_c;
+    CClass *pobj_c = NULL;
+    CMethod *pMethod = NULL;
     if(psi->pobj_ParentClass){
         //クラスのメンバ関数を呼び出す場合はアクセスチェックを行う
@@ -264 +265 @@
         }
 
-        DWORD dwAccess;
-        for(i=0;i<pobj_c->iMethodNum;i++){
-            if(psi==pobj_c->ppobj_Method[i]->psi) break;
-        }
-        if(i==pobj_c->iMethodNum){
-            for(i=0;i<pobj_c->iStaticMethodNum;i++){
-                if(psi==pobj_c->ppobj_StaticMethod[i]->psi) break;
-            }
-            dwAccess=pobj_c->ppobj_StaticMethod[i]->dwAccess;
-
-            bStatic=1;
-        }
-        else dwAccess=pobj_c->ppobj_Method[i]->dwAccess;
+
+        /////////////////////////////////
+        // メソッド情報を取得
+        /////////////////////////////////
+        pMethod = pobj_c->GetMethodInfo( psi );
+        if( !pMethod ){
+            //動的メソッドが取得できなかったときは静的メソッドを当たる
+            pMethod = pobj_c->GetStaticMethodInfo( psi );
+            if( !pMethod ){
+                SetError(300,NULL,cp);
+                return -1;
+            }
+        }
 
 
@@ -282 +283 @@
         // アクセスエラーチェック
         //////////////////////////////
+        DWORD dwAccess = pMethod->dwAccess;
 
         if(ObjectName[0]){
@@ -408 +410 @@
             else{
                 RELATIVE_VAR RelativeVar;
-                if(!GetVarOffsetReadOnly(ObjectName,&i2,&RelativeVar,0)) return -1;
+                if( pMethod->isConst ){
+                    //Constアクセスが可能なメソッドの場合
+                    if( !GetVarOffsetReadOnly( ObjectName, &i2, &RelativeVar, 0 ) ) return -1;
+                }
+                else{
+                    //Constアクセスが不可能なメソッドの場合
+                    if( !GetVarOffsetReadWrite( ObjectName, &i2, &RelativeVar, 0 ) ) return -1;
+                }
+
                 SetVarPtrToReg(REG_RCX,&RelativeVar);
 

BasicCompiler64/Compile_ProcOp.cpp

@@ -374 +374 @@
     //コンパイル中の関数が属するクラス
     pobj_CompilingClass=psi->pobj_ParentClass;
+    
+    //コンパイルスタートをクラス管理クラスに追加
+    pobj_DBClass->StartCompile( psi );
 
     //コンパイル中の関数
@@ -614 +617 @@
             }
         }
+        if(psi->name[0]=='~'){
+            //デストラクタをコンパイルしたとき
+
+            //デストラクタのコンパイル開始を通知
+            pobj_CompilingClass->NotifyStartDestructorCompile();
+        }
     }
 
@@ -633 +642 @@
         if( pobj_CompilingClass->IsCompilingConstructor() ){
             // コンストラクタをコンパイルしていたとき
+
             // コンストラクタのコンパイルが完了したことを通知
-
             pobj_CompilingClass->NotifyFinishConstructorCompile();
         }
@@ -642 +651 @@
             //デストラクタをコンパイルしたとき
             ////////////////////////////////////
+
+            // デストラクタのコンパイルが完了したことを通知
+            pobj_CompilingClass->NotifyFinishDestructorCompile();
 
             if(pobj_CompilingClass->pobj_InheritsClass){

BasicCompiler64/Compile_Var.cpp

@@ -471 +471 @@
             }
             if(i==pobj_CompilingClass->iMemberNum) goto NonClassMember;
+        }
+
+        //Const修飾子のメソッド内でメンバ書き込みアクセスが発生したとき
+        //（コンストラクタ、デストラクタ内を除く）
+        CMethod *pMethod = pobj_DBClass->GetNowCompilingMethodInfo();
+        if( isWriteAccess &&
+            pMethod->isConst &&
+            pobj_CompilingClass->IsCompilingConstructor() == false &&
+            pobj_CompilingClass->IsCompilingDestructor() == false
+            ){
+                SetError(131, NULL, cp );
         }
 
@@ -590 +601 @@
 ok:
 
-    if(bConst && isWriteAccess){
+    if( bConst && isWriteAccess ){
         //Const定義の変数に書き込みアクセスをしようとした場合
-        SetError(61,VarName,cp);
+        if( *pType == DEF_OBJECT ){
+            //オブジェクト定数
+            SetError(130, VarName, cp );
+        }
+        else{
+            //一般のConst変数
+            SetError(61,VarName,cp);
+        }
     }