Changeset 41 in dev for BasicCompiler64

Timestamp:

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

Author:

dai_9181

Message:

ByVal演算子を追加

Location:

BasicCompiler64

Files:

• Compile_Var.cpp (modified) (1 diff)
• NumOpe.cpp (modified) (1 diff)

BasicCompiler64/Compile_Var.cpp

@@ -934 +934 @@
     }
 
+
+    ///////////////////////////////////////
+    // 単発式（[]で囲まれていない）
+    ///////////////////////////////////////
+
     if(SubScripts[0]!=-1){
         SetError(41,0,cp);

BasicCompiler64/NumOpe.cpp

@@ -737 +737 @@
                 if(!Calc_Cast(type,index_stack,&sp)) goto error;
                 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;
 
             default:
                 SetError(300,NULL,cp);
-                break;
+                goto error;
         }
     }