Changeset 64 in dev for BasicCompiler64/Compile_CallProc.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

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

BasicCompiler64/Compile_CallProc.cpp

@@ -12 +12 @@
 
     //mov rdx,rax
-    op_mov64_ToReg_FromReg(REG_RDX,REG_RAX);
+    op_mov_RR(REG_RDX,REG_RAX);
 
     //mov rcx,rsp
-    op_mov64_ToReg_FromReg(REG_RCX,REG_RSP);
+    op_mov_RR(REG_RCX,REG_RSP);
 
     //call _DebugSys_SaveContext
@@ -96 +96 @@
 }
 
-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;
 
@@ -207 +207 @@
 
     ///////////////////////////////////////////////////////////////
-    // _System_LocalThis、_System_ReturnObjectのダミーをセット
+    // _System_LocalThisのダミーをセット
     ///////////////////////////////////////////////////////////////
 
@@ -216 +216 @@
     }
 
-    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;
     else lstrcat(temporary,Parameter);
+
+
+    //パラメータセット前のspオフセットを取得（Newの場合はここにThisポインタが格納されている）
+    int this_sp_offset = pobj_sf->GetNowSp();
 
 
@@ -254 +253 @@
     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 パラメータをセット
         //////////////////////////////////////////////////////
 
@@ -316 +314 @@
                 SetVarPtrToReg(REG_RCX,&RelativeVar);
 
-                //参照タイプが "->" の場合
-                if(RefType==DEF_PTR_OBJECT){
-                    //mov rcx,qword ptr[rcx]
-                    op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
-                }
+                // 参照を実体ポインタにする
+                //mov rcx,qword ptr[rcx]
+                op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
             }
         }
@@ -329 +325 @@
 
                 //mov rcx,qword ptr[rsp+offset]     ※スタックフレームを利用
-                pobj_sf->ref(REG_RCX);
+                pobj_sf->ref_offset_data(REG_RCX, this_sp_offset);
             }
             else{