Changeset 47 in dev for BasicCompiler64

Timestamp:

Feb 10, 2007, 3:12:04 AM (18 years ago)

Author:

dai_9181

Message:

列挙子の比較演算が正常に行えないバグを修正。
クラス名と同名のグローバル関数を定義できないバグを修正

Location:

BasicCompiler64

Files:

• CParameter.cpp (modified) (1 diff)
• Compile_CallProc.cpp (modified) (7 diffs)
• Compile_Statement.cpp (modified) (1 diff)

BasicCompiler64/CParameter.cpp

@@ -94 +94 @@
         if(Parms[i]){
             TYPEINFO BaseType={ppi[i].type,ppi[i].u.index};
-            if(Parms[i][0]==1&&Parms[i][1]==ESC_BYVAL){
-                type=NumOpe_GetType(Parms[i]+2,&BaseType,&lpIndex);
-                type=MAKE_PTR_TYPE(NATURAL_TYPE(type),PTR_LEVEL(type)-1);
-            }
-            else{
-                type=NumOpe_GetType(Parms[i],&BaseType,&lpIndex);
-            }
+            type=NumOpe_GetType(Parms[i],&BaseType,&lpIndex);
         }
         else{

BasicCompiler64/Compile_CallProc.cpp

@@ -246 +246 @@
     psi->bUse=1;
 
-    BOOL bStatic=0;
+    bool isStatic = false;
     CClass *pobj_c = NULL;
     CMethod *pMethod = NULL;
@@ -257 +257 @@
             }
             else{
-                pobj_c=pobj_DBClass->check(ObjectName);
-                if(pobj_c){
-                    //静的メンバ
-                    bStatic=1;
-                }
-                else{
-                    //"->"によってオブジェクトを指定する通常のメンバ関数呼び出し
-                    GetVarType(ObjectName,(LONG_PTR *)&pobj_c,1);
+                //"->"によってオブジェクトを指定する通常のメンバ関数呼び出し
+                int type = GetVarType(ObjectName,(LONG_PTR *)&pobj_c,0);
+                if(!(NATURAL_TYPE(type)==DEF_OBJECT)){
+                    pobj_c=pobj_DBClass->check(ObjectName);
+                    if( pobj_c ){
+                        isStatic = true;
+                    }
+                    else{
+                        SetError(300,NULL,cp);
+                    }
                 }
             }
@@ -284 +286 @@
         /////////////////////////////////
         pMethod = NULL;
-        if( ! bStatic ) pMethod = pobj_c->GetMethodInfo( psi );
+        if( ! isStatic ) pMethod = pobj_c->GetMethodInfo( psi );
         if( ! pMethod ){
             //動的メソッドが取得できなかったときは静的メソッドを当たる
@@ -294 +296 @@
 
             //静的メンバ
-            bStatic=1;
+            isStatic = true;
         }
 
@@ -339 +341 @@
 
     char temporary[VN_SIZE]={0};
-    if(psi->pobj_ParentClass&&bStatic==0){
+    if( psi->pobj_ParentClass && isStatic == false ){
         //_System_LocalThis（第一パラメータ）のダミーを作成
         lstrcpy(temporary,"0,");
@@ -413 +415 @@
         }////////////////////////////////////////////
 
-        if(psi->pobj_ParentClass&&bStatic==0){
+        if( psi->pobj_ParentClass && isStatic == false ){
             //mov rdx,r13
             op_mov_RR(REG_RDX,REG_R13);
@@ -424 +426 @@
 
 
-    if(psi->pobj_ParentClass&&bStatic==0){
+    if( psi->pobj_ParentClass && isStatic == false ){
         ///////////////////////////////
         // メンバ関数の場合

BasicCompiler64/Compile_Statement.cpp

@@ -71 +71 @@
     }
 
+    if(lstrcmp(buffer,"EnumX.EnumX")==0){
+        MessageBeep(0);
+    }
 
     int idProc;