Changeset 40 in dev for BasicCompiler32/Compile_Calc.cpp

Timestamp:

Jan 28, 2007, 3:48:22 AM (18 years ago)

Author:

dai_9181

Message:

ByRef修飾子を関数戻り値とDimステートメントで指定可能にした。

File:

• BasicCompiler32/Compile_Calc.cpp (modified) (1 diff)

BasicCompiler32/Compile_Calc.cpp

@@ -600 +600 @@
     }
 }
+
+void SetRefVariable( const char *varname, const char *expression ){
+    ////////////////////////////////////////
+    // 変数のタイプ型を識別して、演算を行う
+    ////////////////////////////////////////
+
+    int VarType,CalcType;
+    LONG_PTR lpVarIndex,lpCalcIndex;
+    RELATIVE_VAR VarRelativeVar;
+    BOOL bCalcUseHeap;
+
+    //型を識別
+    VarType=GetVarType(varname,&lpVarIndex,0);
+    if(VarType==-1){
+        SetError(300,NULL,cp);
+        return;
+    }
+
+    extern LONG_PTR ProcPtr_BaseIndex;
+    if(VarType==DEF_PTR_PROC) ProcPtr_BaseIndex=lpVarIndex;
+    else ProcPtr_BaseIndex=-1;
+
+    if(VarType==DEF_OBJECT){
+        //代入演算のオーバーロード オペレータに備える
+
+        //変数アドレスを取得
+        if(!GetVarOffsetReadWrite(
+            varname,
+            &VarType,
+            &VarRelativeVar,
+            &lpVarIndex)) return;
+
+        SetVarPtrToEax(&VarRelativeVar);
+
+        //push eax
+        op_push(REG_EAX);
+    }
+
+
+    //NumOpe...（スタックに答えが格納される）
+    CalcType=NumOpe(expression,VarType,lpVarIndex,&lpCalcIndex,&bCalcUseHeap);
+    if(VarType==-1||CalcType==-1) return;
+
+    //変数アドレスを取得
+    if(!GetVarOffsetReadWrite(
+        varname,
+        &VarType,
+        &VarRelativeVar,
+        &lpVarIndex)) return;
+
+    if(VarType&FLAG_PTR){
+        SetError(14,varname,cp);
+        return;
+    }
+
+
+    if( VarType == DEF_OBJECT && VarRelativeVar.dwKind == VAR_REFLOCAL ){
+        // 参照型オブジェクトへの代入（初期化）はポインタ変数と同様の処理に値する
+        VarType = PTR_LEVEL_UP( VarType );
+
+        VarRelativeVar.dwKind = VAR_LOCAL;
+
+        if( CalcType == DEF_OBJECT ){
+            //右辺値が実体オブジェクトのときは、参照をコピー
+            CalcType = PTR_LEVEL_UP( DEF_OBJECT );
+        }
+    }
+    else{
+        SetError(300,NULL,cp);
+    }
+
+
+    /////////////////////////////////
+    // 右辺、左辺の型チェックを行う
+    /////////////////////////////////
+
+    CheckDifferentType(VarType,lpVarIndex,CalcType,lpCalcIndex,0,0);
+
+
+    /////////////////////////////////////////////////
+    // スタックの内容を変数にコピーするコードを抽出
+    /////////////////////////////////////////////////
+
+    if(VarType==DEF_BOOLEAN){
+        //bool
+        SetBooleanVariable(CalcType,&VarRelativeVar);
+    }
+    else if(VarType==DEF_CHAR||VarType==DEF_BYTE){
+        //8ビット整数型変数へスタックの内容を格納する
+        Set8Variable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
+    }
+    else if(VarType==DEF_INTEGER||VarType==DEF_WORD){
+        //16ビット整数型変数へスタックの内容を格納する
+        Set16Variable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
+    }
+    else if(VarType==DEF_LONG||VarType==DEF_DWORD||IsPtrType(VarType)){
+        //32ビット整数型変数へスタックの内容を格納する
+        if(VarType==DEF_LONG)
+            SetLongVariable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
+        else
+            SetDWordVariable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
+    }
+    else if(VarType==DEF_INT64||VarType==DEF_QWORD){
+        //64ビット整数型変数へスタックの内容を格納する
+        SetInt64Variable(CalcType,&VarRelativeVar);
+    }
+    else if(VarType==DEF_DOUBLE){
+        //Double型変数へスタックの内容を格納する
+        SetDoubleVariable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
+    }
+    else if(VarType==DEF_SINGLE){
+        //Single型変数へスタックの内容を格納する
+        SetSingleVariable(CalcType,VarRelativeVar.dwKind,VarRelativeVar.offset,VarRelativeVar.bOffsetOffset);
+    }
+}