Changeset 20 in dev for BasicCompiler32/Compile_CallProc.cpp

Timestamp:

Dec 28, 2006, 5:24:48 AM (18 years ago)

Author:

dai_9181

Message:

参照型パラメータに関数の戻り値オブジェクトを指定した場合などの、一時オブジェクトの扱いを可能にした。
Dimで指定される初期値を見分けることで、As指定を省略できるようにした。

File:

• BasicCompiler32/Compile_CallProc.cpp (modified) (4 diffs)

BasicCompiler32/Compile_CallProc.cpp

@@ -176 +176 @@
     pobj_parameter->ErrorCheck(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum);
 
+    //一時オブジェクトを生成
+    pobj_parameter->NewTempParameters( variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum );
+
     //レジスタ、スタックフレームにセット
     pobj_parameter->SetParameter(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum);
 
-    //パラメータオブジェクトを破棄
-    delete pobj_parameter;
-
-
+
+
+    ////////////////////////
+    // call
+    ////////////////////////
     RELATIVE_VAR RelativeVar;
     LONG_PTR lp;
@@ -195 +199 @@
     OpBuffer[obp++]=(char)0xFF;
     OpBuffer[obp++]=(char)0xD0;
+
+
+
+    //一時オブジェクトを破棄
+    pobj_parameter->DeleteTempParameters();
+
+    //パラメータオブジェクトを破棄
+    delete pobj_parameter;
 
     if(plpIndex) *plpIndex=pi->u.ReturnIndex;
@@ -343 +355 @@
     }
 
+    //一時オブジェクトを生成
+    pobj_parameter->NewTempParameters( psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum );
+
     //レジスタ、スタックフレームにセット
     int ParmSize;
     ParmSize=pobj_parameter->SetParameter(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum);
-
-    //パラメータオブジェクトを破棄
-    delete pobj_parameter;
 
 
@@ -469 +481 @@
     }
 
+    //一時オブジェクトを破棄
+    pobj_parameter->DeleteTempParameters();
+
+    //パラメータオブジェクトを破棄
+    delete pobj_parameter;
+
     if(plpIndex) *plpIndex=psi->u.ReturnIndex;