Changeset 27 in dev for BasicCompiler64

Timestamp:

Jan 7, 2007, 6:51:20 AM (18 years ago)

Author:

dai_9181

Message:

静的メンバ、静的メソッド周りを修正。

Location:

BasicCompiler64

Files:

• Compile_CallProc.cpp (modified) (2 diffs)
• Compile_ProcOp.cpp (modified) (5 diffs)
• Compile_Set_Var.cpp (modified) (1 diff)
• Compile_Var.cpp (modified) (4 diffs)

BasicCompiler64/Compile_CallProc.cpp

@@ -245 +245 @@
         if(ObjectName[0]){
             if(lstrcmpi(ObjectName,"Super")==0){
-                //クラスメンバ関数内からスーパークラスの呼び出し
+                //クラスメンバ関数内から基底クラスの呼び出し
                 pobj_c=pobj_CompilingClass;
             }
@@ -275 +275 @@
         // メソッド情報を取得
         /////////////////////////////////
-        pMethod = pobj_c->GetMethodInfo( psi );
-        if( !pMethod ){
+        pMethod = NULL;
+        if( ! bStatic ) pMethod = pobj_c->GetMethodInfo( psi );
+        if( ! pMethod ){
             //動的メソッドが取得できなかったときは静的メソッドを当たる
             pMethod = pobj_c->GetStaticMethodInfo( psi );

BasicCompiler64/Compile_ProcOp.cpp

@@ -504 +504 @@
             pobj_CompilingClass->NotifyStartConstructorCompile();
 
-            //スーパークラスかどうかの識別
-            //（継承元がインターフェイスの場合もスーパークラスと見なす）
+            //基底クラスかどうかの識別
+            //（継承元がインターフェイスの場合も基底クラスと見なす）
             BOOL bThisIsSuperClass;
             if(pobj_CompilingClass->pobj_InheritsClass==0) bThisIsSuperClass=1;
@@ -516 +516 @@
             if(!bThisIsSuperClass){
                 /* サブクラスコンストラクタをコンパイルしているときは、
-                    スーパークラスのコンストラクタを呼び出す */
+                    基底クラスのコンストラクタを呼び出す */
 
                 i3=cp+1;
@@ -529 +529 @@
                 if(lstrcmp(temporary,
                     pobj_CompilingClass->pobj_InheritsClass->name)==0){
-                    //スーパークラスのコンストラクタを呼び出す
+                    //基底クラスのコンストラクタを呼び出す
                     cp=i3;
                     for(i4=0;;cp++,i4++){
@@ -552 +552 @@
                 }
                 else{
-                    //スーパークラスのコンストラクタを暗黙的に呼び出す
+                    //基底クラスのコンストラクタを暗黙的に呼び出す
                     i3=pobj_CompilingClass->pobj_InheritsClass->ConstructorMemberSubIndex;
                     Opcode_CallProc("",
@@ -656 +656 @@
             if(pobj_CompilingClass->pobj_InheritsClass){
                 /* サブクラスのデストラクタをコンパイルしているときは、
-                    スーパークラスのデストラクタを呼び出す */
+                    基底クラスのデストラクタを呼び出す */
 
                 i3=pobj_CompilingClass->pobj_InheritsClass->DestructorMemberSubIndex;

BasicCompiler64/Compile_Set_Var.cpp

@@ -77 +77 @@
 
 
-
+//TODO: 継承・派生関係にある場合は許容する
     if(CalcType==DEF_OBJECT&&lpVarIndex==lpCalcIndex){
         //双方のオブジェクト型が完全に一致したとき

BasicCompiler64/Compile_Var.cpp

@@ -520 +520 @@
     }
 
-    /////////////////////
-    // グローバル変数
-    /////////////////////
-
-    for(i=MaxGlobalVarNum-1;i>=0;i--){  //レキシカルスコープを考慮してバックサーチ
-        if(GlobalVar[i].bLiving){
-            if(lstrcmp(VarName,GlobalVar[i].name)==0) break;
-        }
-    }
-    if(i>=0){
-        goto GlobalOk;
-    }
-
 
     //////////////////////////
@@ -540 +527 @@
     if(member[0]){
         lstrcpy(temporary,member);
-        GetVarFormatString(temporary,array,lpPtrOffset,member,&i);
+
+        char tempMember[VN_SIZE];
+        char tempArray[VN_SIZE];
+        GetVarFormatString(temporary,tempArray,lpPtrOffset,tempMember,&i);
 
         char temp2[VN_SIZE];
@@ -549 +539 @@
 
         if(i!=MaxGlobalVarNum){
+            lstrcpy(member,tempMember);
+            lstrcpy(array,tempArray);
             goto GlobalOk;
         }
@@ -564 +556 @@
             goto GlobalOk;
         }
+    }
+
+
+    /////////////////////
+    // グローバル変数
+    /////////////////////
+
+    for(i=MaxGlobalVarNum-1;i>=0;i--){  //レキシカルスコープを考慮してバックサーチ
+        if(GlobalVar[i].bLiving){
+            if(lstrcmp(VarName,GlobalVar[i].name)==0) break;
+        }
+    }
+    if(i>=0){
+        goto GlobalOk;
     }