Changeset 41 in dev for BasicCompiler64/NumOpe.cpp

Timestamp:

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

Author:

dai_9181

Message:

ByVal演算子を追加

File:

• BasicCompiler64/NumOpe.cpp (modified) (1 diff)

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;
         }
     }