Changeset 31 in dev for BasicCompiler_Common/Subroutine.cpp

Timestamp:

Jan 13, 2007, 4:26:50 AM (18 years ago)

Author:

dai_9181

Message:

_System_LocalThis（見えないThisポインタパラメータ）を通常のパラメータ保有領域ではなく、リアルパラメータ保有領域に移動した。
メソッドとグローバル関数のオーバーロードに対応（DLL関数オーバーロードには未対応）。

File:

• BasicCompiler_Common/Subroutine.cpp (modified) (4 diffs)

BasicCompiler_Common/Subroutine.cpp

@@ -717 +717 @@
     psi->ParmNum=0;
 
-    if(pobj_c&&bStatic==0){
-        //オブジェクトメンバの場合は、第一パラメータをThisポインタ引き渡し用として利用
-        psi->pParmInfo[psi->ParmNum].name=(char *)HeapAlloc(hHeap,0,lstrlen("_System_LocalThis")+1);
-        lstrcpy(psi->pParmInfo[psi->ParmNum].name,"_System_LocalThis");
-        psi->pParmInfo[psi->ParmNum].type=DEF_PTR_VOID;
-        psi->pParmInfo[psi->ParmNum].u.index=-1;
-        psi->pParmInfo[psi->ParmNum].bByVal=1;
-        psi->pParmInfo[psi->ParmNum].bArray=0;
-        psi->pParmInfo[psi->ParmNum].SubScripts[0]=-1;
-
-        psi->ParmNum++;
-    }
-
     //パラメータ
     if(buffer[i]!='('){
@@ -1008 +995 @@
     }
 
+    //リアルパラメータ領域を取得（_System_LocalThis、_System_ReturnValueを考慮して2つだけ多く確保する）
+    psi->pRealParmInfo=(PARAMETER_INFO *)HeapAlloc(hHeap,0,(psi->ParmNum+2)*sizeof(PARAMETER_INFO));
+    psi->RealParmNum=0;
+
+    if(pobj_c&&bStatic==0){
+        i = psi->RealParmNum;
+
+        //オブジェクトメンバの場合は、第一パラメータを_System_LocalThis引き渡し用として利用
+        psi->pRealParmInfo[i].name = "_System_LocalThis";
+        psi->pRealParmInfo[i].type=DEF_PTR_VOID;
+        psi->pRealParmInfo[i].u.index=-1;
+        psi->pRealParmInfo[i].bByVal=1;
+        psi->pRealParmInfo[i].bArray=0;
+        psi->pRealParmInfo[i].SubScripts[0]=-1;
+
+        psi->RealParmNum++;
+    }
+
     if(psi->ReturnType==DEF_OBJECT){
-        //オブジェクト インスタンスを戻り値として持つ場合
+        i = psi->RealParmNum;
+
+        //実体オブジェクトを戻り値として持つ場合
         //※第一パラメータ（Thisポインタありの場合は第二パラメータ）を戻り値用の参照宣言にする
-
-        psi->RealParmNum=psi->ParmNum+1;
-        psi->RealSecondParmNum=psi->SecondParmNum+1;
-
-        psi->pRealParmInfo=(PARAMETER_INFO *)HeapAlloc(hHeap,0,(psi->RealParmNum+1)*sizeof(PARAMETER_INFO));
-
-        i=0;
-        if(pobj_c&&bStatic==0){
-            psi->pRealParmInfo[0]=psi->pParmInfo[0];
-            i++;
-        }
 
         if(psi->name[0]==1&&psi->name[1]==ESC_OPERATOR)
@@ -1031 +1027 @@
         psi->pRealParmInfo[i].bArray=0;
         psi->pRealParmInfo[i].SubScripts[0]=-1;
-        i++;
-
-        for(;i<psi->RealParmNum;i++){
-            psi->pRealParmInfo[i]=psi->pParmInfo[i-1];
-        }
-    }
-    else{
-        psi->pRealParmInfo=psi->pParmInfo;
-        psi->RealParmNum=psi->ParmNum;
-        psi->RealSecondParmNum=psi->SecondParmNum;
+        
+        psi->RealParmNum++;
+    }
+
+    //パラメータをコピー
+    for( i = 0; i < psi->ParmNum; i++, psi->RealParmNum++ ){
+        psi->pRealParmInfo[psi->RealParmNum]=psi->pParmInfo[i];
     }
 
@@ -1191 +1184 @@
         HeapDefaultFree(psi->pParmInfo[i2].name);
     }
-    if(psi->pRealParmInfo!=psi->pParmInfo) HeapDefaultFree(psi->pRealParmInfo);
+    HeapDefaultFree(psi->pRealParmInfo);
     if(psi->pParmInfo) HeapDefaultFree(psi->pParmInfo);
     psi->pRealParmInfo=0;