Changeset 31 in dev for BasicCompiler32/Compile_Statement.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

• BasicCompiler32/Compile_Statement.cpp (modified) (5 diffs)

BasicCompiler32/Compile_Statement.cpp

@@ -60 +60 @@
             if(psi->dwType!=SUBTYPE_MACRO) SetError(10,Command,cp);
 
-            Opcode_CallProc("",psi,0,0,"",0);
+            Opcode_CallProc("",psi,0,"",0);
 
             return;
@@ -1210 +1210 @@
                     }
 
-                    PARAMETER_INFO *ppi;
+                    PARAMETER_INFO *ppi = (PARAMETER_INFO *)HeapAlloc(hHeap,0,sizeof(PARAMETER_INFO)*3);
                     int iParmNum=0;
-
-                    //_System_LocalThis
-                    ppi=(PARAMETER_INFO *)HeapAlloc(hHeap,0,sizeof(PARAMETER_INFO)*3);
-                    ppi[iParmNum].bArray=0;
-                    ppi[iParmNum].bByVal=0;
-                    ppi[iParmNum].name=0;
-                    ppi[iParmNum].type=DEF_PTR_VOID;
-                    ppi[iParmNum].u.index=-1;
-                    ppi[iParmNum].SubScripts[0]=-1;
-                    iParmNum++;
-
                     ppi[iParmNum].bArray=0;
                     ppi[iParmNum].bByVal=0;
@@ -1600 +1589 @@
         return;
     }
-    Opcode_CallProc(buffer,psi,0,0,"",0);
+    Opcode_CallProc(buffer,psi,0,"",0);
 }
 void Opcode_PrintUsing(char *Parameter,char *buffer,BOOL bFile){
@@ -1699 +1688 @@
         return;
     }
-    Opcode_CallProc(buffer,psi,0,0,"",0);
+    Opcode_CallProc(buffer,psi,0,"",0);
 }
 void Opcode_Print(char *Parameter,BOOL bWrite){
@@ -1805 +1794 @@
         return;
     }
-    Opcode_CallProc(buffer,psi,0,0,"",0);
+    Opcode_CallProc(buffer,psi,0,"",0);
 }