Changeset 75 in dev for BasicCompiler_Common/MakeExe.cpp

Timestamp:

Mar 20, 2007, 4:36:16 AM (18 years ago)

Author:

dai_9181

Message:

TYPEINFO→Typeへのリファクタリングを実施。64bitはほぼ完了。32bitが全般的に未完成。

File:

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

BasicCompiler_Common/MakeExe.cpp

@@ -165 +165 @@
     for(i3=0;i3<SynonymErrorNum;i3++) HeapDefaultFree(SynonymErrorWords[i3]);
     HeapDefaultFree(SynonymErrorWords);
+    SynonymErrorWords=0;
 
     if(bError||bStopCompile){
@@ -181 +182 @@
 
     //グローバル変数に関する情報
-    extern VARIABLE *GlobalVar;
     extern int MaxGlobalVarNum;
     extern int AllGlobalVarSize;
     extern int AllInitGlobalVarSize;
-    GlobalVar=(VARIABLE *)HeapAlloc(hHeap,0,1);
+    globalVars.clear();
     MaxGlobalVarNum=0;
     AllGlobalVarSize=0;
@@ -214 +214 @@
     HeapDefaultFree(pLineInfo);
 
-    //グローバル変数に関する情報を解放
-    int i;
-    for(i=0;i<MaxGlobalVarNum;i++){
-        if(GlobalVar[i].ConstractParameter)
-            HeapDefaultFree(GlobalVar[i].ConstractParameter);
-    }
-    HeapDefaultFree(GlobalVar);
-
-    //ローカル変数に関する情報を解放
-    extern SubInfo **ppSubHash;
-    SubInfo *psi;
-    for(i2=0;i2<MAX_HASH;i2++){
-        psi=ppSubHash[i2];
-        while(psi){
-            if(psi->bCompile) HeapDefaultFree(psi->pVar);
-            psi=psi->pNextData;
-        }
-    }
-
     //TypeDef情報を初期化
     delete pobj_DBTypeDef;
@@ -238 +219 @@
 
     //サブルーチン（ユーザー定義）情報のメモリ解放
-    extern SubInfo **ppSubHash;
+    extern UserProc **ppSubHash;
     extern char **ppMacroNames;
     extern int MacroNum;