Changeset 97 in dev for BasicCompiler32/NumOpe_Relation.cpp

Timestamp:

Apr 16, 2007, 3:52:40 AM (18 years ago)

Author:

dai_9181

Message:

関数の戻り値オブジェクトのメンバ・メソッドを一時オブジェクトを介さずに参照できるようにした。

File:

• BasicCompiler32/NumOpe_Relation.cpp (modified) (7 diffs)

BasicCompiler32/NumOpe_Relation.cpp

@@ -1 +1 @@
 #include "../BasicCompiler_Common/common.h"
 #include "Opcode.h"
+
+void AutoExtendToBigType( int *type_stack,int sp, int reg1, int reg2 ){
+    /*
+    int bigSize = GetTypeSize( type_stack[sp-1], -1 );
+    if( bigSize != GetTypeSize( type_stack[sp-2], -1 ) ){
+        int extReg = reg2;
+        int oldType = type_stack[sp-2];
+        if( bigSize < GetTypeSize( type_stack[sp-2], -1 ) ){
+            bigSize = GetTypeSize( type_stack[sp-2], -1 );
+            extReg = reg1;
+            oldType = type_stack[sp-1];
+        }
+        if( bigSize == 2 ){
+            ExtendTypeTo16( oldType, extReg );
+        }
+        else if( bigSize == 4 ){
+            ExtendTypeTo32( oldType, extReg );
+        }
+        else{
+            SetError();
+        }
+    }*/
+}
+
 
 BOOL Calc_Relation_PE(int *type_stack,LONG_PTR *index_stack,int *pStackPointer){
@@ -195 +219 @@
         //pop eax
         op_pop(REG_EAX);
+
+        // どちらかのサイズが足りない場合は自動拡張する
+        AutoExtendToBigType( type_stack, sp, REG_EAX, REG_EBX );
 
         //sub esp,4
@@ -434 +461 @@
         op_pop(REG_EAX);
 
+        // どちらかのサイズが足りない場合は自動拡張する
+        AutoExtendToBigType( type_stack, sp, REG_EAX, REG_EBX );
+
         //sub esp,4
         op_sub_esp(4);
@@ -675 +705 @@
         op_pop(REG_EAX);
 
+        // どちらかのサイズが足りない場合は自動拡張する
+        AutoExtendToBigType( type_stack, sp, REG_EAX, REG_EBX );
+
         //sub esp,4
         op_sub_esp(4);
@@ -911 +944 @@
         //pop eax
         op_pop(REG_EAX);
+
+        // どちらかのサイズが足りない場合は自動拡張する
+        AutoExtendToBigType( type_stack, sp, REG_EAX, REG_EBX );
 
         //sub esp,4
@@ -1115 +1151 @@
         op_pop(REG_EBX);
 
+        // どちらかのサイズが足りない場合は自動拡張する
+        AutoExtendToBigType( type, sp, REG_EAX, REG_EBX );
+
         //sub esp,4
         op_sub_esp(4);
@@ -1306 +1345 @@
         op_pop(REG_EBX);
 
+        // どちらかのサイズが足りない場合は自動拡張する
+        AutoExtendToBigType( type, sp, REG_EAX, REG_EBX );
+
         //sub esp,4
         op_sub_esp(4);