Changeset 41 in dev for BasicCompiler_Common

Timestamp:

Jan 28, 2007, 5:28:43 AM (17 years ago)

Author:

dai_9181

Message:

ByVal演算子を追加

Location:

BasicCompiler_Common

Files:

• BasicFixed.h (modified) (2 diffs)
• NumOpe_GetType.cpp (modified) (2 diffs)
• StrOperation.cpp (modified) (1 diff)
• calculation.cpp (modified) (5 diffs)

BasicCompiler_Common/BasicFixed.h

@@ -54 +54 @@
 #define NATURAL_TYPE(t) ((t)&MASK_NATURAL)
 #define MAKE_PTR_TYPE(t,p)  ((t)|((p)<<8))
-#define PTR_LEVEL_UP(t) MAKE_PTR_TYPE(NATURAL_TYPE(t),PTR_LEVEL(t)+1)
+#define PTR_LEVEL_UP(t)     MAKE_PTR_TYPE(NATURAL_TYPE(t),PTR_LEVEL(t)+1)
+#define PTR_LEVEL_DOWN(t)   MAKE_PTR_TYPE(NATURAL_TYPE(t),PTR_LEVEL(t)-1)
 
 #define DEF_PTR_BYTE    MAKE_PTR_TYPE(DEF_BYTE,1)
@@ -105 +106 @@
 #define CALC_INTQUOTIENT    63  //整数除算
 #define CALC_AS             71  // As
+#define CALC_BYVAL          72  // ByVal
 #define CALC_MINUSMARK      81  // -x
 #define CALC_POWER          91  // ^

BasicCompiler_Common/NumOpe_GetType.cpp

@@ -163 +163 @@
         case CALC_AS:
             if((type[sp-1]&FLAG_CAST)==0){
+                //型名が指定されていないときはエラー
+                SetError(47,NULL,cp);
+                return 0;
+            }
+            break;
+
+        case CALC_BYVAL:
+            if(type[sp-1]&FLAG_CAST){
                 //型名が指定されていないときはエラー
                 SetError(47,NULL,cp);
@@ -601 +609 @@
                 sp--;
                 break;
+
+            case CALC_BYVAL:
+                //ポインタ型→参照型
+                if( PTR_LEVEL( type[sp-1] ) <= 0 ){
+                    //ポインタ型ではないとき
+                    SetError( 3, NULL, cp );
+                    goto error;
+                }
+
+                type[sp-1] = PTR_LEVEL_DOWN( type[sp-1] );
+                break;
         }
     }

BasicCompiler_Common/StrOperation.cpp

@@ -652 +652 @@
             lstrcpy(name,"As");
             break;
+        case CALC_BYVAL:
+            lstrcpy(name,"ByVal");
+            break;
         case CALC_MINUSMARK:
             lstrcpy(name,"-");

BasicCompiler_Common/calculation.cpp

@@ -39 +39 @@
         Command[p]=='='||Command[p]=='<'||Command[p]=='>'||
         IsJudgMark(Command,p)||
-        (Command[p]==1&&Command[p+1]==ESC_AS)) return 1;
+        (Command[p]==1&&Command[p+1]==ESC_AS)||
+        (Command[p]==1&&Command[p+1]==ESC_BYVAL)) return 1;
     return 0;
 }
@@ -775 +776 @@
             else if(Command[i]=='^') i3=CALC_POWER;
             else if(Command[i]==1&&Command[i+1]==ESC_AS) i3=CALC_AS;
+            else if(Command[i]==1&&Command[i+1]==ESC_BYVAL) i3=CALC_BYVAL;
 
             i3+=PareNum*100;
@@ -889 +891 @@
                 sp--;
                 break;
+            case CALC_BYVAL:
+                //エラー
+                break;
         }
     }
@@ -1404 +1409 @@
     else if(Command[0]=='^') return CALC_POWER;
     else if(Command[0]==1&&Command[1]==ESC_AS) return CALC_AS;
+    else if(Command[0]==1&&Command[1]==ESC_BYVAL) return CALC_BYVAL;
 
     return 0;
@@ -1480 +1486 @@
             }
             else{
-                if(!(Command[i]=='+'||Command[i]=='-'||(Command[i]==1&&Command[i+1]==ESC_NOT))){
-                    SetError(1,NULL,cp);
-                    return 0;
+                if(!(
+                        Command[i]=='+'||
+                        Command[i]=='-'||
+                        (Command[i]==1&&Command[i+1]==ESC_NOT)||
+                        (Command[i]==1&&Command[i+1]==ESC_BYVAL)
+                    )){
+                        SetError(1,NULL,cp);
+                        return 0;
                 }
                 if(Command[i]=='+'){