Changeset 64 in dev for BasicCompiler32/OperatorProc.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

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

BasicCompiler32/OperatorProc.cpp

@@ -50 +50 @@
         if(pBaseTypeInfo){
             if(pBaseTypeInfo->type==DEF_OBJECT){
-                bReturnTypeIsObject=1;
                 ReturnType.u.lpIndex=pBaseTypeInfo->u.lpIndex;
             }
@@ -107 +106 @@
     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){
+    int right_side_size = GetTypeSize(type[sp-1],index_stack[sp-1]);
+
+    if(bTwoTerm){
+        if(psi->pRealParmInfo[1].type==DEF_STRUCT&&psi->pRealParmInfo[1].bByVal){
             //一時オブジェクトはメソッド内で破棄される
             bUseHeap[sp-1]=0;
@@ -119 +116 @@
 
 
-    if(psi->ReturnType==DEF_OBJECT){
+    if(psi->ReturnType==DEF_STRUCT){
         //////////////////////////////////////////////////////
-        // 戻り値にオブジェクト インスタンスを持つ場合
-        // ※ByRef _System_ReturnObject パラメータ用領域を取得
+        // 戻り値に構造体インスタンスを持つ場合
+        // ※ByRef _System_ReturnValue パラメータ用領域を取得
         //////////////////////////////////////////////////////
 
@@ -182 +179 @@
             op_push(REG_EAX);
         }
-    }
-
-    if(psi->ReturnType==DEF_OBJECT){
+
+        if( !psi->pRealParmInfo[1].bByVal ){
+            //一時参照を作成
+
+            //mov eax,esp
+            op_mov_RR( REG_EAX, REG_ESP );
+
+            //push eax
+            op_push( REG_EAX );
+        }
+    }
+
+    if(psi->ReturnType==DEF_STRUCT){
         //push ebx
         op_push(REG_EBX);
@@ -195 +202 @@
     op_call(psi);
 
-    if(psi->ReturnType!=-1){
+    if(bTwoTerm){
+        if( !psi->pRealParmInfo[1].bByVal ){
+            //一時参照を破棄
+            op_pop( REG_NON );
+        }
+    }
+
+    if(psi->ReturnType!=DEF_NON){
         //スタックへプッシュ
         PushReturnValue(psi->ReturnType);
@@ -211 +225 @@
     index_stack[sp-1]=psi->u.ReturnIndex;
 
-    if(psi->ReturnType==DEF_OBJECT){
-        //Object型が戻ったときはヒープ領域にインスタンスが格納されている
+    if(psi->ReturnType==DEF_STRUCT){
+        //構造体が戻ったときはヒープ領域にインスタンスが格納されている
         //※後にfreeする必要あり
         bUseHeap[sp-1]=1;