Changeset 64 in dev for BasicCompiler32/Compile_CallProc.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

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

BasicCompiler32/Compile_CallProc.cpp

@@ -94 +94 @@
 }
 
-void Opcode_CallProc(char *Parameter,SUBINFO *psi,DWORD dwFlags,char *ObjectName,int RefType){
+void Opcode_CallProc(const char *Parameter,SUBINFO *psi,DWORD dwFlags,char *ObjectName,int RefType){
     int i2;
 
@@ -206 +206 @@
 
     ///////////////////////////////////////////////////////////////
-    // _System_LocalThis、_System_ReturnObjectのダミーをセット
+    // _System_LocalThisのダミーをセット
     ///////////////////////////////////////////////////////////////
 
@@ -215 +215 @@
     }
 
-    if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false ){
-        //_System_ReturnObject（第一または第二パラメータのダミーを作成）
-        sprintf(temporary+lstrlen(temporary),"%c%c0,",1,ESC_BYVAL);
-    }
-
     if(Parameter[0]=='\0'&&temporary[0])
         temporary[lstrlen(temporary)-1]=0;
@@ -246 +241 @@
 
     //一時オブジェクトを生成
-    pobj_parameter->NewTempParameters( psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum );
+    int tempSize = pobj_parameter->NewTempParameters( psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum );
 
     //レジスタ、スタックフレームにセット
@@ -252 +247 @@
     ParmSize=pobj_parameter->SetParameter(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum);
 
-
-    if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false){
+    if(psi->ReturnType==DEF_STRUCT && psi->isReturnRef == false){
         //////////////////////////////////////////////////////
-        // 戻り値にオブジェクト インスタンスを持つ場合
-        // ※ByRef _System_ReturnObject パラメータをセット
+        // 戻り値に構造体インスタンスを持つ場合
+        // ※ByRef _System_ReturnValue パラメータをセット
         //////////////////////////////////////////////////////
 
@@ -294 +288 @@
                 SetVarPtrToEax(&RelativeVar);
 
-                //参照タイプが "->" の場合
-                if(RefType==DEF_PTR_OBJECT){
-                    //mov eax,dword ptr[eax]
-                    OpBuffer[obp++]=(char)0x8B;
-                    OpBuffer[obp++]=(char)0x00;
-                }
-
-                //mov ecx,eax
-                OpBuffer[obp++]=(char)0x8B;
-                OpBuffer[obp++]=(char)0xC8;
+                // 参照を実体ポインタにする
+                op_mov_RM( sizeof(long), REG_ECX, REG_EAX, 0, MOD_BASE );
             }
         }
@@ -310 +296 @@
             if(dwFlags&PROCFLAG_NEW){
                 //New演算子によるコンストラクタ呼び出しの場合
+
                 //mov ecx,dword ptr[esp+ParmSize]
-                OpBuffer[obp++]=(char)0x8B;
-                OpBuffer[obp++]=(char)0x8C;
-                OpBuffer[obp++]=(char)0x24;
-                *((long *)(OpBuffer+obp))=ParmSize;
-                obp+=sizeof(long);
+                op_mov_RM( sizeof(long), REG_ECX, REG_ESP, ParmSize + tempSize, MOD_BASE_DISP32 );
             }
             else{