Changeset 40 in dev for BasicCompiler64/Compile_Calc.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

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

BasicCompiler64/Compile_Calc.cpp

@@ -237 +237 @@
     SetVariableFromRax(VarType,CalcType,&VarRelativeVar);
 }
+
+void SetRefVariable( const char *varname, const char *expression ){
+    ////////////////////////////////////////
+    // 変数のタイプ型を識別して、演算を行う
+    ////////////////////////////////////////
+
+    int VarType,CalcType;
+    LONG_PTR lpVarIndex,lpCalcIndex;
+    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;
+
+    //NumOpe...（rax、またはxmm0に答えが格納される）
+    int reg=REG_RAX;
+    CalcType=NumOpe(&reg,expression,VarType,lpVarIndex,&lpCalcIndex,&bCalcUseHeap);
+
+    //結果を格納しているレジスタをブロッキング
+    pobj_BlockReg->lock(reg);
+
+    if(VarType==-1||CalcType==-1) return;
+
+    //変数アドレスを取得
+    RELATIVE_VAR VarRelativeVar;
+    if(!GetVarOffsetReadWrite(
+        varname,
+        &VarType,
+        &VarRelativeVar,
+        &lpVarIndex)) return;
+
+    //レジスタのブロッキングを解除
+    pobj_BlockReg->clear();
+
+    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);
+
+
+    /////////////////////////////////////////////////
+    // rax（実数はxmm0）の内容を変数にコピー
+    /////////////////////////////////////////////////
+    SetVariableFromRax(VarType,CalcType,&VarRelativeVar);
+}