Changeset 31 in dev for BasicCompiler32/Compile_CallProc.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

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

BasicCompiler32/Compile_CallProc.cpp

@@ -67 +67 @@
 
 
-        ret_type=Opcode_CallProc(Parameter,psi,plpRetIndex,0,ObjectName,RefType);
+        Opcode_CallProc(Parameter,psi,0,ObjectName,RefType);
+        if( plpRetIndex ){
+            *plpRetIndex = psi->u.ReturnIndex;
+        }
+        return psi->ReturnType;
     }
     else if(idProc==PROC_DLL){
@@ -138 +142 @@
     if(psi){
         //呼び出し
-        int type;
-        LONG_PTR lpIndex;
-        type=Opcode_CallProc(Parameter,psi,&lpIndex,0,ObjectName,RefType);
+        Opcode_CallProc(Parameter,psi,0,ObjectName,RefType);
 
         if(pRetTypeInfo){
-            pRetTypeInfo->type=type;
-            pRetTypeInfo->u.lpIndex=lpIndex;
+            pRetTypeInfo->type = psi->ReturnType;
+            pRetTypeInfo->u.lpIndex = psi->u.ReturnIndex;
         }
     }
@@ -174 +176 @@
 
     //エラーチェック
-    pobj_parameter->ErrorCheck(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum);
+    if( !pobj_parameter->ErrorCheck(variable,pi->pParmInfo,pi->ParmNum,pi->ParmNum) ){
+        //パラメータにエラーがあるときは処理を終える
+        return pi->ReturnType;
+    }
 
     //一時オブジェクトを生成
@@ -213 +218 @@
 }
 
-int Opcode_CallProc(char *Parameter,SUBINFO *psi,LONG_PTR *plpIndex,DWORD dwFlags,char *ObjectName,int RefType){
+void Opcode_CallProc(char *Parameter,SUBINFO *psi,DWORD dwFlags,char *ObjectName,int RefType){
     int i,i2;
 
@@ -219 +224 @@
         if(lstrcmpi(psi->name,"Print")==0){
             Opcode_Print(Parameter,0);
-            return -1;
+            return;
         }
         if(lstrcmpi(psi->name,"Input")==0){
             Opcode_Input(Parameter);
-            return -1;
+            return;
         }
         if(lstrcmpi(psi->name,"Write")==0){
             Opcode_Print(Parameter,1);
-            return -1;
+            return;
         }
     }
@@ -277 +282 @@
             if( !pMethod ){
                 SetError(300,NULL,cp);
-                return -1;
+                return;
             }
 
@@ -296 +301 @@
                 if(dwAccess==ACCESS_NON){
                     SetError(109,psi->name,cp);
-                    return -1;
+                    return;
                 }
             }
@@ -303 +308 @@
                     dwAccess==ACCESS_NON){
                     SetError(109,psi->name,cp);
-                    return -1;
+                    return;
                 }
                 if(dwAccess==ACCESS_PROTECTED){
                     SetError(110,psi->name,cp);
-                    return -1;
+                    return;
                 }
             }
@@ -315 +320 @@
             if(dwAccess==ACCESS_NON){
                 SetError(109,psi->name,cp);
-                return -1;
+                return;
             }
         }
@@ -352 +357 @@
 
     //エラーチェック
-    pobj_parameter->ErrorCheck(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum);
+    if( !pobj_parameter->ErrorCheck(psi->name,psi->pRealParmInfo,psi->RealParmNum,psi->RealSecondParmNum) ){
+        //パラメータにエラーがあるときは処理を終える
+        return;
+    }
 
     if(psi->dwType==SUBTYPE_MACRO){
@@ -401 +409 @@
                 if( pMethod->isConst ){
                     //Constアクセスが可能なメソッドの場合
-                    if( !GetVarOffsetReadOnly( ObjectName, &i2, &RelativeVar, 0 ) ) return -1;
+                    if( !GetVarOffsetReadOnly( ObjectName, &i2, &RelativeVar, 0 ) ) return;
                 }
                 else{
                     //Constアクセスが不可能なメソッドの場合
-                    if( !GetVarOffsetReadWrite( ObjectName, &i2, &RelativeVar, 0 ) ) return -1;
+                    if( !GetVarOffsetReadWrite( ObjectName, &i2, &RelativeVar, 0 ) ) return;
                 }
 
@@ -488 +496 @@
     //パラメータオブジェクトを破棄
     delete pobj_parameter;
-
-    if(plpIndex) *plpIndex=psi->u.ReturnIndex;
-
-    return psi->ReturnType;
 }
 
@@ -516 +520 @@
 
     //エラーチェック
-    pobj_parameter->ErrorCheck(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum);
+    if( !pobj_parameter->ErrorCheck(pdi->name,pdi->pParmInfo,pdi->ParmNum,pdi->ParmNum) ){
+        //パラメータにエラーがあるときは処理を終える
+        return pdi->ReturnType;
+    }
 
     //レジスタ、スタックフレームにセット