Changeset 20 in dev for BasicCompiler_Common

Timestamp:

Dec 28, 2006, 5:24:48 AM (18 years ago)

Author:

dai_9181

Message:

参照型パラメータに関数の戻り値オブジェクトを指定した場合などの、一時オブジェクトの扱いを可能にした。
Dimで指定される初期値を見分けることで、As指定を省略できるようにした。

Location:

BasicCompiler_Common

Files:

• Object.cpp (modified) (1 diff)
• Variable.cpp (modified) (4 diffs)
• error.cpp (modified) (1 diff)

BasicCompiler_Common/Object.cpp

@@ -257 +257 @@
             op_call(pSub_free);
         }
-        if(pVar[i3].type==DEF_OBJECT&&pVar[i3].fRef==0){
+        else if(pVar[i3].type==DEF_OBJECT&&pVar[i3].fRef==0){
             //デストラクタの呼び出し
             i5=pVar[i3].u.pobj_c->DestructorMemberSubIndex;

BasicCompiler_Common/Variable.cpp

@@ -281 +281 @@
     }
     return 1;
+}
+
+TYPEINFO GetStringTypeInfo(){
+    extern CClass *pobj_StringClass;
+    TYPEINFO TypeInfo = { DEF_OBJECT, (LONG_PTR)pobj_StringClass };
+    return TypeInfo;
 }
 
@@ -765 +771 @@
     }
 
+    //変数として見つからなかったとき
     if(bError) SetError(3,variable,cp);
     return -1;
@@ -957 +964 @@
     }
     else{
-        //As指定なし
-        pTypeInfo->type=GetTypeFromSimpleName(variable);
-
-        i2=lstrlen(variable)-1;
-        if(i2>=0){
-            if(!(variable[i2]=='#'||variable[i2]=='!'||variable[i2]=='%'||variable[i2]=='$'))
-                SetError(-103,variable,cp);
-        }
+        /////////////////
+        // As指定なし
+        /////////////////
+
+        if( InitBuf[0] == '\0' ){
+            //As指定も、初期値指定もない場合
+            pTypeInfo->type=GetTypeFromSimpleName(variable);
+
+            i2=lstrlen(variable)-1;
+            if(i2>=0){
+                if(!(variable[i2]=='#'||variable[i2]=='!'||variable[i2]=='%'||variable[i2]=='$'))
+                    SetError(-103,variable,cp);
+            }
+        }
+        else{
+            //初期値の型を判別して自動的に型情報を付加する
+
+            TYPEINFO BaseType = GetStringTypeInfo();
+            int result = NumOpe_GetType( InitBuf, &BaseType, &pTypeInfo->u.lpIndex );
+
+            //エラーの場合
+            if( result == -1 ) return 0;
+
+            pTypeInfo->type = result;
+        }
+
+    }
+
+    if( InitBuf[0] != '\0' && ConstractParameter[0] != '\0' ){
+        //初期値とコンストラクタパラメータが同時に呼び出されているとき
+        SetError(132, NULL, cp);
+    }
+
+    if( pTypeInfo->type == DEF_OBJECT && InitBuf[0] != '\0' && InitBuf[0] != '[' ){
+        lstrcpy( ConstractParameter, InitBuf );
+        InitBuf[0] = 0;
     }
 
@@ -1077 +1112 @@
         AllInitGlobalVarSize);
     if(InitBuf[0]){
-        //初期代入時のみ、書き込みアクセスを許可する
-        bool bConstBack = pVar->bConst;
-        pVar->bConst = false;
-
-        int result = SetInitGlobalData(pVar->offset,
-            pVar->type,
-            pVar->u.index,
-            pVar->SubScripts,
-            InitBuf);
-
-        if(!result){
-            //動的な式だった場合は代入演算を行う
-            char temporary[8192];
-            sprintf(temporary,"%s=%s",name,InitBuf);
-            OpcodeCalc(temporary);
-        }
-
-        pVar->bConst = bConstBack;
+        if( pVar->type == DEF_OBJECT && InitBuf[0] != '[' ){
+            //単発式が初期値のオブジェクトの場合
+            //初期値をコピーコンストラクタに渡す
+        }
+        else{
+            int result = SetInitGlobalData(pVar->offset,
+                pVar->type,
+                pVar->u.index,
+                pVar->SubScripts,
+                InitBuf);
+
+            if(!result){
+                //動的な式だった場合は代入演算を行う
+
+                //初期代入時のみ、書き込みアクセスを許可する
+                bool bConstBack = pVar->bConst;
+                pVar->bConst = false;
+
+                //代入
+                char temporary[8192];
+                sprintf(temporary,"%s=%s",name,InitBuf);
+                OpcodeCalc(temporary);
+
+                //アクセス制限を元に戻す
+                pVar->bConst = bConstBack;
+            }
+        }
     }
 

BasicCompiler_Common/error.cpp

@@ -176 +176 @@
     if(num==130) sprintf(msg,"\"%s\" はオブジェクト定数です。書き込みアクセスはできません。",KeyWord);
     if(num==131) lstrcpy(msg,"Const定義されたメソッド内でクラスメンバへの書き込みアクセスはできません。");
+    if(num==132) lstrcpy(msg,"明示的なコンストラクタ呼び出しと初期値の指定を同時に行うことはできません。");
 
     //Enum関連