Changeset 64 in dev for BasicCompiler_Common/Subroutine.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

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

BasicCompiler_Common/Subroutine.cpp

@@ -460 +460 @@
     _int64 i64data;
     type = StaticCalculation( true, temporary, 0, &i64data, &lpIndex );
-    if( type != DEF_PTR_BYTE ){
+    if( type != DEF_PTR_CHAR ){
         SetError(1,NULL,NowLine);
         return;
@@ -483 +483 @@
     if( temporary[0] ){
         type = StaticCalculation( true, temporary, 0, &i64data, &lpIndex );
-        if( type != DEF_PTR_BYTE ){
+        if( type != DEF_PTR_CHAR ){
             SetError(1,NULL,NowLine);
             return;
@@ -604 +604 @@
         i+=2;
         pdi->ReturnType=GetTypeFixed(buffer+i,&pdi->u.ReturnIndex);
-        if(pdi->ReturnType==-1) SetError(3,buffer+i,NowLine);
+        if(pdi->ReturnType==DEF_NON) SetError(3,buffer+i,NowLine);
         if(pdi->ReturnType==DEF_OBJECT) SetError(40,NULL,NowLine);
     }
     else if(buffer[i]) SetError(1,NULL,NowLine);
-    else pdi->ReturnType=-1;
+    else pdi->ReturnType=DEF_NON;
 
     pdi->pos=NowLine;
@@ -635 +635 @@
         }
         else{
-            if(NATURAL_TYPE(ppi1[i].type)==DEF_OBJECT){
+            if(NATURAL_TYPE(ppi1[i].type)==DEF_OBJECT
+                || NATURAL_TYPE(ppi1[i].type)==DEF_STRUCT ){
                 if(ppi1[i].u.index!=ppi2[i].u.index) return 1;
             }
@@ -827 +828 @@
                 }
                 psi->ReturnType=GetTypeFixed(temporary,&psi->u.ReturnIndex);
-                if(psi->ReturnType==-1) SetError(3,temporary,NowLine);
+                if(psi->ReturnType==DEF_NON) SetError(3,temporary,NowLine);
 
                 sw_as=1;
@@ -842 +843 @@
     else{
         //戻り値なしのSub定義
-        psi->ReturnType=-1;
+        psi->ReturnType=DEF_NON;
         psi->u.ReturnIndex=-1;
     }
@@ -1129 +1130 @@
     }
 
-    //リアルパラメータ領域を取得（_System_LocalThis、_System_ReturnValueを考慮して2つだけ多く確保する）
+    //リアルパラメータ領域を取得（_System_LocalThisを考慮して2つだけ多く確保する）
     psi->pRealParmInfo=(PARAMETER_INFO *)HeapAlloc(hHeap,0,(psi->ParmNum+2)*sizeof(PARAMETER_INFO));
     psi->RealParmNum=0;
@@ -1147 +1148 @@
     }
 
-    if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false){
+    if(psi->ReturnType==DEF_STRUCT){
         i = psi->RealParmNum;
 
-        //実体オブジェクトを戻り値として持つ場合
+        //構造体を戻り値として持つ場合
         //※第一パラメータ（Thisポインタありの場合は第二パラメータ）を戻り値用の参照宣言にする
 
@@ -1156 +1157 @@
             psi->pRealParmInfo[i].name="_System_ReturnValue";
         else psi->pRealParmInfo[i].name=psi->name;
-        psi->pRealParmInfo[i].type=DEF_OBJECT;
+        psi->pRealParmInfo[i].type=DEF_STRUCT;
         psi->pRealParmInfo[i].u.index=psi->u.ReturnIndex;
         psi->pRealParmInfo[i].bByVal=0;
@@ -1521 +1522 @@
             }
             pi->ReturnType=GetTypeFixed(temporary,&pi->u.ReturnIndex);
-            if(pi->ReturnType==-1) SetError(3,temporary,cp);
-            if(pi->ReturnType==DEF_OBJECT) SetError(40,NULL,cp);
+            if(pi->ReturnType==DEF_NON) SetError(3,temporary,cp);
         }
         else pi->ReturnType=DEF_DOUBLE;
     }
-    else pi->ReturnType=-1;
+    else pi->ReturnType=DEF_NON;
 
     return ProcPtrInfoNum-1;