Changeset 7 in dev for BasicCompiler_Common/Variable.cpp

Timestamp:

Dec 7, 2006, 3:09:44 AM (17 years ago)

Author:

dai_9181

Message:

Constステートメントで定数変数を宣言できるように改良。

File:

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

BasicCompiler_Common/Variable.cpp

@@ -1010 +1010 @@
     if(VarSize%PTR_SIZE) VarSize+=PTR_SIZE-(VarSize%PTR_SIZE);
 
-    lstrcpy(GlobalVar[MaxGlobalVarNum].name,name);
-    if(SubScripts[0]==-1) GlobalVar[MaxGlobalVarNum].bArray=0;
-    else GlobalVar[MaxGlobalVarNum].bArray=1;
-    GlobalVar[MaxGlobalVarNum].type=pTypeInfo->type;
-    GlobalVar[MaxGlobalVarNum].u.index=pTypeInfo->u.lpIndex;
+    //新しいオブジェクトポインタを取得
+    VARIABLE *pVar = &GlobalVar[MaxGlobalVarNum];
+
+    //グローバル変数の個数を増加
+    MaxGlobalVarNum++;
+
+    lstrcpy(pVar->name,name);
+    if(dwFlag & DIMFLAG_CONST) pVar->bConst = 1;
+    else pVar->bConst = 0;
+    if(SubScripts[0]==-1) pVar->bArray=0;
+    else pVar->bArray=1;
+    pVar->type=pTypeInfo->type;
+    pVar->u.index=pTypeInfo->u.lpIndex;
 
     //コンストラクタ用パラメータ
-    GlobalVar[MaxGlobalVarNum].ConstractParameter=(char *)HeapAlloc(hHeap,0,lstrlen(ConstractParameter)+1);
-    lstrcpy(GlobalVar[MaxGlobalVarNum].ConstractParameter,ConstractParameter);
+    pVar->ConstractParameter=(char *)HeapAlloc(hHeap,0,lstrlen(ConstractParameter)+1);
+    lstrcpy(pVar->ConstractParameter,ConstractParameter);
 
     if(InitBuf[0]||dwFlag==DIMFLAG_INITDEBUGVAR){
         //初期バッファがあるとき
-        GlobalVar[MaxGlobalVarNum].offset=AllInitGlobalVarSize;
+        pVar->offset=AllInitGlobalVarSize;
         AllInitGlobalVarSize+=VarSize;
     }
     else{
         //初期バッファがないとき
-        GlobalVar[MaxGlobalVarNum].offset=AllGlobalVarSize | 0x80000000;
+        pVar->offset=AllGlobalVarSize | 0x80000000;
         AllGlobalVarSize+=VarSize;
     }
 
     //レキシカルスコープ
-    GlobalVar[MaxGlobalVarNum].ScopeLevel=obj_LexScopes.GetNowLevel();
-    GlobalVar[MaxGlobalVarNum].ScopeStartAddress=obj_LexScopes.GetStartAddress();
-    GlobalVar[MaxGlobalVarNum].bLiving=TRUE;
+    pVar->ScopeLevel=obj_LexScopes.GetNowLevel();
+    pVar->ScopeStartAddress=obj_LexScopes.GetStartAddress();
+    pVar->bLiving=TRUE;
+
+    //エラー用
+    pVar->source_code_address=cp;
 
     //初期バッファにデータをセット
@@ -1042 +1053 @@
         initGlobalBuf,
         AllInitGlobalVarSize);
-    if(InitBuf[0])
-        SetInitGlobalData(GlobalVar[MaxGlobalVarNum].offset,
-            GlobalVar[MaxGlobalVarNum].type,
-            GlobalVar[MaxGlobalVarNum].u.index,
-            GlobalVar[MaxGlobalVarNum].SubScripts,
+    if(InitBuf[0]){
+        int result = SetInitGlobalData(pVar->offset,
+            pVar->type,
+            pVar->u.index,
+            pVar->SubScripts,
             InitBuf);
 
-
-    //エラー用
-    GlobalVar[MaxGlobalVarNum].source_code_address=cp;
-
-
-    MaxGlobalVarNum++;
+        if(!result){
+            //動的な式だった場合は代入演算を行う
+            char temporary[8192];
+            sprintf(temporary,"%s=%s",name,InitBuf);
+            OpcodeCalc(temporary);
+        }
+    }
+