Changeset 27 in dev for BasicCompiler32

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

BasicCompiler32

Files:

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

BasicCompiler32/Compile_CallProc.cpp

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

BasicCompiler32/Compile_ProcOp.cpp

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

BasicCompiler32/Compile_Var.cpp

@@ -498 +498 @@
 
 
-    ////////////////////
-    // グローバル変数
-    ////////////////////
-
-    for(i=MaxGlobalVarNum-1;i>=0;i--){  //レキシカルスコープを考慮してバックサーチ
-        if(GlobalVar[i].bLiving){
-            if(lstrcmp(VarName,GlobalVar[i].name)==0) break;
-        }
-    }
-    if(i>=0){
-        goto GlobalOk;
-    }
-
-
     //////////////////////////
     // クラスの静的メンバ
@@ -518 +504 @@
     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];
@@ -527 +515 @@
 
         if(i!=MaxGlobalVarNum){
+            lstrcpy(member,tempMember);
+            lstrcpy(array,tempArray);
             goto GlobalOk;
         }
@@ -543 +533 @@
         }
     }
+
+
+    ////////////////////
+    // グローバル変数
+    ////////////////////
+
+    for(i=MaxGlobalVarNum-1;i>=0;i--){  //レキシカルスコープを考慮してバックサーチ
+        if(GlobalVar[i].bLiving){
+            if(lstrcmp(VarName,GlobalVar[i].name)==0) break;
+        }
+    }
+    if(i>=0){
+        goto GlobalOk;
+    }
+
 
     if(isErrorEnabled) SetError(3,variable,cp);