Changeset 11 in dev for BasicCompiler_Common/Variable.cpp

Timestamp:

Dec 8, 2006, 3:25:27 AM (17 years ago)

Author:

dai_9181

Message:

Const変数の書き込み規制を有効化（グローバル/ローカル変数のみ）
定数オブジェクトと定数メンバは未実装。

File:

• BasicCompiler_Common/Variable.cpp (modified) (4 diffs)

BasicCompiler_Common/Variable.cpp

@@ -815 +815 @@
 }
 
+BOOL GetVarOffsetReadOnly(char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss){
+    //読み取り専用で変数へアクセス
+    return GetVarOffset(
+        true,       //エラー表示有効
+        false,      //書き込みアクセスは無し
+        NameBuffer,
+        pType,
+        pRelativeVar,
+        plpIndex,
+        pss);
+}
+BOOL GetVarOffsetReadWrite(char *NameBuffer,int *pType,RELATIVE_VAR *pRelativeVar,LONG_PTR *plpIndex,int *pss){
+    //読み書き両用で変数へアクセス
+    return GetVarOffset(
+        true,       //エラー表示有効
+        true,       //書き込みアクセス
+        NameBuffer,
+        pType,
+        pRelativeVar,
+        plpIndex,
+        pss);
+}
+
 
 
@@ -1017 +1040 @@
 
     lstrcpy(pVar->name,name);
-    if(dwFlag & DIMFLAG_CONST) pVar->bConst = 1;
-    else pVar->bConst = 0;
+    if(dwFlag & DIMFLAG_CONST) pVar->bConst = true;
+    else pVar->bConst = false;
     if(SubScripts[0]==-1) pVar->bArray=0;
     else pVar->bArray=1;
@@ -1054 +1077 @@
         AllInitGlobalVarSize);
     if(InitBuf[0]){
+        //初期代入時のみ、書き込みアクセスを許可する
+        bool bConstBack = pVar->bConst;
+        pVar->bConst = false;
+
         int result = SetInitGlobalData(pVar->offset,
             pVar->type,
@@ -1066 +1093 @@
             OpcodeCalc(temporary);
         }
+
+        pVar->bConst = bConstBack;
     }