Changeset 46 in dev for BasicCompiler32

Timestamp:

Feb 6, 2007, 1:19:17 AM (18 years ago)

Author:

dai_9181

Message:

VarPtrの戻り値の型をVoidPtrではなく、ポインタレベルを増加した型にした。
関連関数のパラメータにconstを適用。

Location:

BasicCompiler32

Files:

• CParameter.cpp (modified) (6 diffs)
• Compile_Calc.cpp (modified) (2 diffs)
• Compile_CallProc.cpp (modified) (1 diff)
• Compile_Func.cpp (modified) (8 diffs)
• Opcode.h (modified) (2 diffs)

BasicCompiler32/CParameter.cpp

@@ -141 +141 @@
     return 1;
 }
-SUBINFO *CParameter::OverloadSolutionWithReturnType(char *name,SUBINFO **ppsi,int num){
+SUBINFO *CParameter::OverloadSolutionWithReturnType(const char *name,SUBINFO **ppsi,int num){
     int i,sw=0;
     SUBINFO *psi;
@@ -211 +211 @@
 }
 
-SUBINFO *CParameter::OverloadSolution(char *name,SUBINFO **ppsi,int num){
+SUBINFO *CParameter::OverloadSolution(const char *name,SUBINFO **ppsi,int num){
     int i,sw=0;
     SUBINFO *psi;
@@ -285 +285 @@
 }
 
-BOOL CParameter::ErrorCheck(char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum){
+BOOL CParameter::ErrorCheck(const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum){
     if(ParmsNum>pi_num){
         if(ppi[pi_num-1].type!=DEF_ELLIPSE){
@@ -332 +332 @@
 }
 
-void CParameter::NewTempParameters( char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum ){
+void CParameter::NewTempParameters( const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum ){
     ///////////////////////////////////////////////////////
     // 一時オブジェクトをあらかじめスタックに積んでおく
@@ -544 +544 @@
 }
 
-int CParameter::SetParameter(char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum){
+int CParameter::SetParameter(const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum){
     ///////////////////////////////////////////////////////////
     // パラメータをレジスタ及びスタックフレームにセット
@@ -564 +564 @@
 
     //戻り値用の変数名を取得
-    char *lpszVarNameToReturn;
-    if(FuncName[0]==1&&FuncName[1]==ESC_OPERATOR) lpszVarNameToReturn="_System_ReturnValue";
-    else lpszVarNameToReturn=FuncName;
+    const char *lpszVarNameToReturn = (FuncName[0]==1&&FuncName[1]==ESC_OPERATOR)?"_System_ReturnValue":FuncName;
 
     //パラメータをレジスタとスタックに格納

BasicCompiler32/Compile_Calc.cpp

@@ -658 +658 @@
     if( VarType == DEF_OBJECT && VarRelativeVar.dwKind == VAR_REFLOCAL ){
         // 参照型オブジェクトへの代入（初期化）はポインタ変数と同様の処理に値する
-        VarType = PTR_LEVEL_UP( VarType );
+        PTR_LEVEL_UP( VarType );
 
         VarRelativeVar.dwKind = VAR_LOCAL;
@@ -664 +664 @@
         if( CalcType == DEF_OBJECT ){
             //右辺値が実体オブジェクトのときは、参照をコピー
-            CalcType = PTR_LEVEL_UP( DEF_OBJECT );
+            PTR_LEVEL_UP( CalcType );
         }
     }

BasicCompiler32/Compile_CallProc.cpp

@@ -89 +89 @@
         FuncId=(int)(_int64)pInfo;
 
-        ret_type=Opcode_CallFunc(Parameter,FuncId);
+        TYPEINFO ReturnTypeInfo = { DEF_LONG, NULL };
+        Opcode_CallFunc( Parameter, FuncId, ReturnTypeInfo );
+        if( plpRetIndex ){
+            *plpRetIndex = ReturnTypeInfo.u.lpIndex;
+        }
+        return ReturnTypeInfo.type;
     }
     else if(idProc==PROC_PTR){

BasicCompiler32/Compile_Func.cpp

@@ -44 +44 @@
 }
 
-void Opcode_Func_Fix(char *Parameter){
+void Opcode_Func_Fix(const char *Parameter){
     int i;
 
@@ -161 +161 @@
 }
 
-void Opcode_Func_CUDbl(char *Parameter){
+void Opcode_Func_CUDbl(const char *Parameter){
     int i;
 
@@ -185 +185 @@
     op_add_esp(8);
 }
-void Opcode_Func_Len(char *Parameter){
+void Opcode_Func_Len(const char *Parameter){
     int type,TypeSize;
     LONG_PTR lpIndex;
@@ -192 +192 @@
     type=GetVarType(Parameter,&lpIndex,0);
 
-    char *tempParm=Parameter;
+    const char *tempParm=Parameter;
     char temporary[VN_SIZE];
     char temp2[32];
@@ -241 +241 @@
     obp+=sizeof(long);
 }
-void Opcode_Func_AddressOf(char *name){
+void Opcode_Func_AddressOf(const char *name){
     extern int cp;
     SUBINFO *psi;
@@ -353 +353 @@
     psi->bUse=1;
 }
-void Opcode_Func_SizeOf(char *Parameter){
+void Opcode_Func_SizeOf(const char *Parameter){
     int type,size;
     LONG_PTR lpIndex;
@@ -370 +370 @@
     obp+=sizeof(long);
 }
-void Opcode_Func_VarPtr(char *Parameter){
-    int type;
+void Opcode_Func_VarPtr( const char *Parameter, TYPEINFO &ReturnTypeInfo ){
     RELATIVE_VAR RelativeVar;
 
     //変数のアドレスを取得
-    if(!GetVarOffsetReadOnly(Parameter,&type,&RelativeVar,0)) return;
+    if(!GetVarOffsetReadOnly( Parameter, &ReturnTypeInfo.type, &RelativeVar, &ReturnTypeInfo.u.lpIndex )) return;
+
+    PTR_LEVEL_UP( ReturnTypeInfo.type );
 
     SetVarPtrToEax(&RelativeVar);
 }
-void Opcode_Func_GetPtrData(char *Parameter,int type){
+void Opcode_Func_GetPtrData(const char *Parameter,const int type){
     int i2;
 
@@ -438 +439 @@
 }
 
-int Opcode_CallFunc(char *Parameter,int FuncNum){
+void Opcode_CallFunc( const char *Parameter, const int FuncNum, TYPEINFO &ReturnTypeInfo ){
     switch(FuncNum){
         case FUNC_FIX:
             Opcode_Func_Fix(Parameter);
-            return DEF_LONG;
+            ReturnTypeInfo.type = DEF_LONG;
+            break;
         case FUNC_CUDBL:
             Opcode_Func_CUDbl(Parameter);
-            return DEF_DOUBLE;
+            ReturnTypeInfo.type = DEF_DOUBLE;
+            break;
         case FUNC_LEN:
             Opcode_Func_Len(Parameter);
-            return DEF_LONG;
+            ReturnTypeInfo.type = DEF_LONG;
+            break;
         case FUNC_ADDRESSOF:
             Opcode_Func_AddressOf(Parameter);
-            return DEF_PTR_VOID;
+            ReturnTypeInfo.type = DEF_PTR_VOID;
+            break;
         case FUNC_SIZEOF:
             Opcode_Func_SizeOf(Parameter);
-            return DEF_LONG;
+            ReturnTypeInfo.type = DEF_LONG;
+            break;
         case FUNC_VARPTR:
-            Opcode_Func_VarPtr(Parameter);
-            return DEF_PTR_VOID;
+            Opcode_Func_VarPtr( Parameter, ReturnTypeInfo );
+            break;
 
         case FUNC_GETDOUBLE:
             Opcode_Func_GetPtrData(Parameter,DEF_DOUBLE);
-            return DEF_DOUBLE;
+            ReturnTypeInfo.type = DEF_DOUBLE;
+            break;
         case FUNC_GETSINGLE:
             Opcode_Func_GetPtrData(Parameter,DEF_SINGLE);
-            return DEF_SINGLE;
+            ReturnTypeInfo.type = DEF_SINGLE;
+            break;
         case FUNC_GETQWORD:
             Opcode_Func_GetPtrData(Parameter,DEF_QWORD);
-            return DEF_QWORD;
+            ReturnTypeInfo.type = DEF_QWORD;
+            break;
         case FUNC_GETDWORD:
             Opcode_Func_GetPtrData(Parameter,DEF_DWORD);
-            return DEF_DWORD;
+            ReturnTypeInfo.type = DEF_DWORD;
+            break;
         case FUNC_GETWORD:
             Opcode_Func_GetPtrData(Parameter,DEF_WORD);
-            return DEF_WORD;
+            ReturnTypeInfo.type = DEF_WORD;
+            break;
         case FUNC_GETBYTE:
             Opcode_Func_GetPtrData(Parameter,DEF_BYTE);
-            return DEF_BYTE;
-    }
-    return 0;
-}
+            ReturnTypeInfo.type = DEF_BYTE;
+            break;
+    }
+}

BasicCompiler32/Opcode.h

@@ -207 +207 @@
 private:
     BOOL _overload_check(PARAMETER_INFO *ppi,int pi_num,TYPEINFO *pReturnTypeInfo,int overload_level);
-    SUBINFO *OverloadSolutionWithReturnType(char *name,SUBINFO **ppsi,int num);
+    SUBINFO *OverloadSolutionWithReturnType(const char *name,SUBINFO **ppsi,int num);
 public:
-    SUBINFO *OverloadSolution(char *name,SUBINFO **ppsi,int num);
-
-    BOOL ErrorCheck(char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum);
+    SUBINFO *OverloadSolution(const char *name,SUBINFO **ppsi,int num);
+
+    BOOL ErrorCheck(const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum);
     void MacroParameterSupport(PARAMETER_INFO *ppi);
     void SetObjectParameter(CClass *pobj_Class,LPSTR Parameter);
-    int SetParameter(char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum);
+    int SetParameter(const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum);
 
     //一時オブジェクトパラメータの生成と破棄
-    void NewTempParameters( char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum );
+    void NewTempParameters( const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum );
     void DeleteTempParameters();
 };
@@ -236 +236 @@
 int GetFunctionType(int FuncNum);
 int GetFunctionFromName(char *FuncName);
-int Opcode_CallFunc(char *Parameter,int FuncNum);
+void Opcode_CallFunc( const char *Parameter, const int FuncNum, TYPEINFO &ReturnTypeInfo );
 
 //OperatorProc.cpp