Changeset 40 in dev for BasicCompiler_Common/Subroutine.cpp

Timestamp:

Jan 28, 2007, 3:48:22 AM (18 years ago)

Author:

dai_9181

Message:

ByRef修飾子を関数戻り値とDimステートメントで指定可能にした。

File:

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

BasicCompiler_Common/Subroutine.cpp

@@ -687 +687 @@
         ///////////////////
 
+        psi->isReturnRef = false;
+
         if(pobj_c){
             if(lstrcmp(psi->name,pobj_c->name)==0||
@@ -701 +703 @@
         for(;i2>0;i2--){
             if(buffer[i2]==')') break;
+
             if(buffer[i2]==1&&buffer[i2+1]==ESC_AS){
+                if( buffer[i2-2] == 1 && buffer[i2-1] == ESC_BYREF ){
+                    //参照型
+                    psi->isReturnRef = true;
+                }
+
                 i2+=2;
                 i3=0;
@@ -1033 +1041 @@
     }
 
-    if(psi->ReturnType==DEF_OBJECT){
+    if(psi->ReturnType==DEF_OBJECT && psi->isReturnRef == false){
         i = psi->RealParmNum;