Changeset 64 in dev for BasicCompiler64/Compile_Set_Var.cpp

Timestamp:

Mar 8, 2007, 2:49:34 AM (18 years ago)

Author:

dai_9181

Message:

すべてのオブジェクトを参照型に切り替えた。

File:

• BasicCompiler64/Compile_Set_Var.cpp (modified) (6 diffs)

BasicCompiler64/Compile_Set_Var.cpp

@@ -7 +7 @@
 }
 
-void SetObjectVariableFromRax(LONG_PTR lpVarIndex,int CalcType,LONG_PTR lpCalcIndex,RELATIVE_VAR *pRelativeVar,BOOL bUseHeap){
+void SetStructVariableFromRax(LONG_PTR lpVarIndex,int CalcType,LONG_PTR lpCalcIndex,RELATIVE_VAR *pRelativeVar,BOOL bUseHeap){
     int RightTermReg;
     pobj_reg=new CRegister(REG_RCX);
@@ -36 +36 @@
     }
 
-
+/*
+    TODO: 消す
     ///////////////////////////////////////////////////////////////////
     // オペレータ '=' のオーバーロード関数を呼ぶ
@@ -59 +60 @@
     int iRet;
     iRet=CallOperatorProc(CALC_SUBSITUATION,NULL,type,index_stack,array_bUseHeap,sp);
-
+*/
     //右辺用レジスタを解除
     if(IsRealNumberType(CalcType)) pobj_reg->UnlockXmmReg();
@@ -71 +72 @@
     pobj_reg=0;
 
-    if(iRet==-1||iRet==1){
-        //成功したとき、またはエラーが発行されたとき
-        return;
-    }
-
-
-    if( CalcType == DEF_OBJECT ){
+
+    if( CalcType == DEF_STRUCT ){
         CClass *pVarClass = (CClass *)lpVarIndex;
         CClass *pCalcClass = (CClass *)lpCalcIndex;
 
-        if( pVarClass->IsEquals( pCalcClass )           //等しい
-            || pVarClass->IsSubClass( pCalcClass ) ){   //派生・継承関係
+        if( pVarClass->IsEquals( pCalcClass ) ){            //等しい
 
                 //双方のオブジェクト型が一致、または派生・継承関係にあるとき
@@ -122 +117 @@
     SetError(1,NULL,cp);
 }
+
 
 void SetDoubleVariable(int type,RELATIVE_VAR *pRelative){
@@ -305 +301 @@
     }
 }
+void SetRealVariable(int VarType, int CalcType, RELATIVE_VAR *pRelativeVar){
+    if(VarType==DEF_DOUBLE){
+        //Double型変数へスタックの内容を格納する
+        SetDoubleVariable(CalcType,pRelativeVar);
+    }
+    else if(VarType==DEF_SINGLE){
+        //Single型変数へスタックの内容を格納する
+        SetSingleVariable(CalcType,pRelativeVar);
+    }
+}
 void SetBooleanVariable(int type,RELATIVE_VAR *pRelative){
     if(type==DEF_DOUBLE){