Changeset 18 in dev for BasicCompiler32/Compile_CallProc.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

• BasicCompiler32/Compile_CallProc.cpp (modified) (4 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{