Changeset 18 in dev for BasicCompiler32

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

BasicCompiler32

Files:

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

BasicCompiler32/Compile_CallProc.cpp

@@ -222 +222 @@
 
     BOOL bStatic=0;
-    CClass *pobj_c;
+    CClass *pobj_c = NULL;
+    CMethod *pMethod = NULL;
     if(psi->pobj_ParentClass){
         //クラスのメンバ関数を呼び出す場合はアクセスチェックを行う
@@ -254 +255 @@
 
 
-        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;
+            }
+        }
 
 
@@ -272 +272 @@
         // アクセスエラーチェック
         //////////////////////////////
+        DWORD dwAccess = pMethod->dwAccess;
 
         if(ObjectName[0]){
@@ -380 +381 @@
         if(ObjectName[0]){
             if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
-
-            RELATIVE_VAR RelativeVar;
-            if(!GetVarOffsetReadOnly(ObjectName,&i2,&RelativeVar,0)) return -1;
-            SetVarPtrToEax(&RelativeVar);
-
-            //参照タイプが整合しているかをチェック
-            if(i2!=RefType) SetError(104,ObjectName,cp);
-
-            if(i2==DEF_PTR_OBJECT){
-                //mov eax,dword ptr[eax]
+            else{
+                RELATIVE_VAR RelativeVar;
+                if( pMethod->isConst ){
+                    //Constアクセスが可能なメソッドの場合
+                    if( !GetVarOffsetReadOnly( ObjectName, &i2, &RelativeVar, 0 ) ) return -1;
+                }
+                else{
+                    //Constアクセスが不可能なメソッドの場合
+                    if( !GetVarOffsetReadWrite( ObjectName, &i2, &RelativeVar, 0 ) ) return -1;
+                }
+
+                SetVarPtrToEax(&RelativeVar);
+
+                //参照タイプが整合しているかをチェック
+                if(i2!=RefType) SetError(104,ObjectName,cp);
+
+                if(i2==DEF_PTR_OBJECT){
+                    //mov eax,dword ptr[eax]
+                    OpBuffer[obp++]=(char)0x8B;
+                    OpBuffer[obp++]=(char)0x00;
+                }
+
+                //mov ecx,eax
                 OpBuffer[obp++]=(char)0x8B;
-                OpBuffer[obp++]=(char)0x00;
-            }
-
-            //mov ecx,eax
-            OpBuffer[obp++]=(char)0x8B;
-            OpBuffer[obp++]=(char)0xC8;
+                OpBuffer[obp++]=(char)0xC8;
+            }
         }
         else{

BasicCompiler32/Compile_ProcOp.cpp

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

BasicCompiler32/Compile_Var.cpp

@@ -445 +445 @@
             }
             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 );
         }
 
@@ -567 +578 @@
 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);
+        }
     }