Changeset 66 in dev for BasicCompiler32/Compile_Set_Var.cpp

Timestamp:

Mar 9, 2007, 4:59:13 AM (17 years ago)

Author:

dai_9181

Message:

参照型の整数型パラメータに実数を代入すると「内部エラー」になってしまうバグを修正。
参照型の整数型にリテラル値を直接指定すると「内部エラー」になってしまうバグを修正。
バージョンをβ15にした。

File:

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

BasicCompiler32/Compile_Set_Var.cpp

@@ -274 +274 @@
 }
 
-void SetWholeVariable(int var_size,int type,RELATIVE_VAR *pRelative){
-    if(type==DEF_DOUBLE){
-        //Double型
-        // st(0)の内容をedx:eaxに変換
-
-        //TODO: 実装
-        SetError();
-    }
-    else if(type==DEF_SINGLE){
-        //Single型
-        // st(0)の内容をeaxに変換
-
-        //TODO: 実装
-        SetError();
+void SetWholeVariable(int varSize,int calcType,RELATIVE_VAR *pRelative){
+    if( IsRealNumberType( calcType ) ){
+        // 実数型から整数型へ変換する
+
+        if( varSize == sizeof(_int64) ){
+            // 64bitへ
+            // st(0) -> edx:eax
+            breakpoint;
+
+            //push
+            //push
+            op_sub_esp( PTR_SIZE * 2 );
+
+            //fistp qword ptr[esp]
+            op_fistp_ptr_esp( sizeof(_int64) );
+
+            //pop eax
+            op_pop( REG_EAX );
+
+            //pop edx
+            op_pop( REG_EDX );
+        }
+        else{
+            // 32bit
+            // st(0) -> eax
+
+            //push
+            op_push( REG_NON );
+
+            //fistp dword ptr[esp]
+            op_fistp_ptr_esp( sizeof(long) );
+
+            //pop eax
+            op_pop( REG_EAX );
+        }
     }
     else{
         //その他の整数
 
-        if(var_size==sizeof(_int64)){
+        if(varSize==sizeof(_int64)){
             //eaxの値を64ビット（edx:eax）に拡張する
-            ExtendTypeTo64(type);
-        }
-        else if(var_size==sizeof(long)){
+            ExtendTypeTo64(calcType);
+        }
+        else if(varSize==sizeof(long)){
             //レジスタの値を32ビット（eax）に拡張する
-            ExtendTypeTo32(type,REG_EAX);
-        }
-        else if(var_size==sizeof(short)){
+            ExtendTypeTo32(calcType,REG_EAX);
+        }
+        else if(varSize==sizeof(short)){
             //レジスタの値を16ビット（ax）に拡張する
-            ExtendTypeTo16(type,REG_EAX);
+            ExtendTypeTo16(calcType,REG_EAX);
         }
         //8ビットは拡張なし
     }
 
-    if(var_size==sizeof(_int64)){
+    if(varSize==sizeof(_int64)){
         //下位32ビット
         SetWholeVariable(sizeof(long),DEF_LONG,pRelative);
 
+        //上位32ビット
+
+        //直接参照に切り替え
+        SetVarPtrToEax(pRelative);
+        pRelative->dwKind=VAR_DIRECTMEM;
+
+        //mov ecx,eax
+        op_mov_RR( REG_ECX, REG_EAX );
+
+        //add ecx,sizeof(long)
+        op_add_RV8( REG_ECX, sizeof(long) );
+
         //mov eax,edx
         op_mov_RR( REG_EAX, REG_EDX );
 
-        //上位32ビット
-        if( pRelative->dwKind == VAR_DIRECTMEM ){
-            //add ecx,sizeof(long)
-            op_add_RV8( REG_ECX, sizeof(long) );
-        }
-        pRelative->offset+=sizeof(long);
         SetWholeVariable(sizeof(long),DEF_LONG,pRelative);
-        pRelative->offset-=sizeof(long);
 
         return;
@@ -329 +355 @@
         if(pRelative->bOffsetOffset){
             //mov ptr[ecx+offset],eax/ax/al
-            op_mov_MR(var_size,REG_EAX,REG_ECX,(int)pRelative->offset,MOD_BASE_DISP32);
+            op_mov_MR(varSize,REG_EAX,REG_ECX,(int)pRelative->offset,MOD_BASE_DISP32);
         }
         else{
             //mov ptr[offset],eax/ax/al
-            op_mov_MR(var_size,REG_EAX,0,(int)pRelative->offset,MOD_DISP32);
+            op_mov_MR(varSize,REG_EAX,0,(int)pRelative->offset,MOD_DISP32);
         }
         obp-=sizeof(long);
@@ -342 +368 @@
         if(pRelative->bOffsetOffset){
             //add ecx,qword ptr[offset]
-            op_add_RM(var_size,REG_ECX,REG_NON,(int)pRelative->offset,MOD_DISP32);
+            op_add_RM(varSize,REG_ECX,REG_NON,(int)pRelative->offset,MOD_DISP32);
         }
         else{
             //mov ecx,qword ptr[offset]
-            op_mov_RM(var_size,REG_ECX,REG_NON,(int)pRelative->offset,MOD_DISP32);
+            op_mov_RM(varSize,REG_ECX,REG_NON,(int)pRelative->offset,MOD_DISP32);
         }
         obp-=sizeof(long);
@@ -357 +383 @@
         if(pRelative->bOffsetOffset){
             //mov ptr[ebp+ecx+offset],eax/ax/al
-            op_mov_MR_ex(var_size,REG_EAX,REG_EBP,REG_ECX,(int)pRelative->offset,USE_OFFSET);
+            op_mov_MR_ex(varSize,REG_EAX,REG_EBP,REG_ECX,(int)pRelative->offset,USE_OFFSET);
         }
         else{
             //mov ptr[ebp+offset],eax/ax/al
-            op_mov_MR(var_size,REG_EAX,REG_EBP,(int)pRelative->offset,MOD_BASE_DISP32);
+            op_mov_MR(varSize,REG_EAX,REG_EBP,(int)pRelative->offset,MOD_BASE_DISP32);
         }
         obp-=sizeof(long);
@@ -370 +396 @@
         if(pRelative->bOffsetOffset){
             //add ecx,qword ptr[ebp+offset]
-            op_add_RM(var_size,REG_ECX,REG_EBP,(int)pRelative->offset,MOD_BASE_DISP32);
+            op_add_RM(varSize,REG_ECX,REG_EBP,(int)pRelative->offset,MOD_BASE_DISP32);
         }
         else{
             //mov ecx,qword ptr[ebp+offset]
-            op_mov_RM(var_size,REG_ECX,REG_EBP,(int)pRelative->offset,MOD_BASE_DISP32);
+            op_mov_RM(varSize,REG_ECX,REG_EBP,(int)pRelative->offset,MOD_BASE_DISP32);
         }
         obp-=sizeof(long);
@@ -386 +412 @@
 
         //mov ptr[ecx],eax/ax/al
-        op_mov_MR(var_size,REG_EAX,REG_ECX,0,MOD_BASE);
+        op_mov_MR(varSize,REG_EAX,REG_ECX,0,MOD_BASE);
     }
 }