Changeset 64 in dev for BasicCompiler64/Compile_Calc.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

• BasicCompiler64/Compile_Calc.cpp (modified) (7 diffs)

BasicCompiler64/Compile_Calc.cpp

@@ -11 +11 @@
         SetBooleanVariable(CalcType,pRelativeVar);
     }
-    else if(VarType==DEF_SBYTE||VarType==DEF_BYTE || (isUnicode==false&&VarType==DEF_CHAR)){
-        //8ビット変数へalレジスタの内容を格納する
-        SetWholeVariable(sizeof(char),CalcType,pRelativeVar);
-    }
-    else if(VarType==DEF_INTEGER||VarType==DEF_WORD || (isUnicode&&VarType==DEF_CHAR)){
-        //16ビット変数へaxレジスタの内容を格納する
-        SetWholeVariable(sizeof(short),CalcType,pRelativeVar);
-    }
-    else if(VarType==DEF_LONG||VarType==DEF_DWORD){
-        //32ビット変数へeaxレジスタの内容を格納する
-        SetWholeVariable(sizeof(long),CalcType,pRelativeVar);
-    }
-    else if(VarType==DEF_INT64||VarType==DEF_QWORD||IsPtrType(VarType)){
-        //64ビット変数へraxレジスタの内容を格納する
-        SetWholeVariable(sizeof(_int64),CalcType,pRelativeVar);
-    }
-    else if(VarType==DEF_DOUBLE){
-        //Double型変数へスタックの内容を格納する
-        SetDoubleVariable(CalcType,pRelativeVar);
-    }
-    else if(VarType==DEF_SINGLE){
-        //Single型変数へスタックの内容を格納する
-        SetSingleVariable(CalcType,pRelativeVar);
+    else if( IsRealNumberType( VarType ) ){
+        // Double/Single型変数へレジスタの値を代入
+        SetRealVariable(VarType, CalcType, pRelativeVar);
+    }
+    else if( IsWholeNumberType( VarType ) || VarType == DEF_OBJECT ){
+        int typeSize = GetTypeSize( VarType, -1 );
+
+        //整数変数へraxの値を格納する
+        SetWholeVariable( typeSize, CalcType, pRelativeVar );
     }
     else{
@@ -165 +151 @@
 
 
+    if( lstrcmpi( variable, "This" ) == 0 ){
+        SetError(133,NULL,cp);
+        return;
+    }
+
 
     ////////////////////////////////////////
@@ -195 +186 @@
     CalcType=NumOpe(&reg,Command+i+1,VarType,lpVarIndex,&lpCalcIndex,&bCalcUseHeap);
 
+    if(reg!=REG_RAX&&IsWholeNumberType(CalcType)){
+        SetError(300,NULL,cp);
+    }
+
+    if(VarType==-1||CalcType==-1) return;
+
     //結果を格納しているレジスタをブロッキング
     pobj_BlockReg->lock(reg);
-
-    if(VarType==-1||CalcType==-1) return;
 
     //変数アドレスを取得
@@ -206 +201 @@
         &VarType,
         &VarRelativeVar,
-        &lpVarIndex)) return;
+        &lpVarIndex,
+        NULL)) return;
 
     //レジスタのブロッキングを解除
@@ -216 +212 @@
     }
 
-    if(VarType==DEF_OBJECT){
-        //オブジェクトインスタンスへの代入
-        SetObjectVariableFromRax(lpVarIndex,CalcType,lpCalcIndex,&VarRelativeVar,bCalcUseHeap);
-        return;
-    }
-
-    if(CalcType==DEF_OBJECT){
+    if(VarType==DEF_STRUCT ){
+        //構造体インスタンスへの代入
+        SetStructVariableFromRax(lpVarIndex,CalcType,lpCalcIndex,&VarRelativeVar,bCalcUseHeap);
+        return;
+    }
+
+    if(CalcType==DEF_OBJECT && (CalcType!=VarType || lpCalcIndex!=lpVarIndex) ){
         //キャスト演算子のオーバーロードに対応する
         CallCastOperatorProc(REG_RAX,CalcType,lpCalcIndex,bCalcUseHeap,VarType,lpVarIndex);
@@ -241 +237 @@
 }
 
+// TODO: 消す
+/*
 void SetRefVariable( const char *varname, const char *expression ){
     ////////////////////////////////////////
@@ -320 +318 @@
     SetVariableFromRax(VarType,CalcType,&VarRelativeVar);
 }
+*/