Changeset 64 in dev for BasicCompiler64/OperatorProc.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

• BasicCompiler64/OperatorProc.cpp (modified) (10 diffs)

BasicCompiler64/OperatorProc.cpp

@@ -55 +55 @@
         if(pBaseTypeInfo){
             if(pBaseTypeInfo->type==DEF_OBJECT){
-                bReturnTypeIsObject=1;
                 ReturnType.u.lpIndex=pBaseTypeInfo->u.lpIndex;
             }
@@ -113 +112 @@
     HeapDefaultFree(ppi);
 
-    int right_side_size;
-    if(type[sp-1]==DEF_OBJECT) right_side_size=PTR_SIZE;
-    else right_side_size=GetTypeSize(type[sp-1],index_stack[sp-1]);
-
     if(bTwoTerm){
-        if(psi->pParmInfo[1].type==DEF_OBJECT&&psi->pParmInfo[1].bByVal){
+        if(psi->pRealParmInfo[1].type==DEF_STRUCT&&psi->pRealParmInfo[1].bByVal){
             //一時オブジェクトはメソッド内で破棄される
             bUseHeap[sp-1]=0;
@@ -124 +119 @@
     }
 
-
-    if(psi->ReturnType==DEF_OBJECT){
-        //////////////////////////////////////////////////////
-        // 戻り値にオブジェクト インスタンスを持つ場合
-        // ※ByRef _System_ReturnObject パラメータ用領域を取得
+    if(psi->ReturnType==DEF_STRUCT){
+        //////////////////////////////////////////////////////
+        // 戻り値に構造体インスタンスを持つ場合
+        // ※ByRef _System_ReturnValue パラメータ用領域を取得
         //////////////////////////////////////////////////////
 
@@ -154 +148 @@
         }////////////////////////////////////////////
     }
-
 
     int reg1,reg2;
@@ -161 +154 @@
         SetOneTermToReg_Whole64Calc(type[sp-1],&reg2);
         pobj_reg->UnlockReg();
+        if( !psi->pRealParmInfo[1].bByVal ){
+            //一時参照を作成
+            pobj_sf->push( reg2 );
+            pobj_sf->mov_sp( reg2 );
+        }
     }
 
@@ -192 +190 @@
 
         if(bTwoTerm){
-            if(psi->ReturnType==DEF_OBJECT){
+            if(psi->ReturnType==DEF_STRUCT){
                 //mov r8,reg2
                 op_mov_RR(REG_R8,reg2);
@@ -202 +200 @@
         }
 
-        if(psi->ReturnType==DEF_OBJECT){
+        if(psi->ReturnType==DEF_STRUCT){
             //mov rdx,r13
             op_mov_RR(REG_RDX,REG_R13);
@@ -213 +211 @@
         op_call(psi);
 
-        if(psi->ReturnType!=-1){
+        if(psi->ReturnType!=DEF_NON){
             //戻り値を一時的に退避
 
@@ -254 +252 @@
     }
 
-    if(psi->ReturnType!=-1){
+    if(bTwoTerm){
+        if( !psi->pRealParmInfo[1].bByVal ){
+            //一時参照を破棄
+            pobj_sf->pop();
+        }
+    }
+
+    if(psi->ReturnType!=DEF_NON){
         //戻り値をreg1にセット
         reg1=pobj_reg->LockReg();
@@ -266 +271 @@
     index_stack[sp-1]=psi->u.ReturnIndex;
 
-    if(psi->ReturnType==DEF_OBJECT){
-        //Object型が戻ったときはヒープ領域にインスタンスが格納されている
+    if(psi->ReturnType==DEF_STRUCT){
+        //構造体が戻ったときはヒープ領域にインスタンスが格納されている
         //※後にfreeする必要あり
         bUseHeap[sp-1]=1;