Changeset 100 in dev for BasicCompiler32/Compile_ProcOp.cpp

Timestamp:

Apr 24, 2007, 3:17:29 AM (18 years ago)

Author:

dai_9181

Message:

名前空間機能をグローバル関数に適用。

File:

• BasicCompiler32/Compile_ProcOp.cpp (modified) (4 diffs)

BasicCompiler32/Compile_ProcOp.cpp

@@ -229 +229 @@
     extern char *basbuf;
     extern HANDLE hHeap;
-    extern UserProc **ppSubHash;
+    extern GlobalProc **ppSubHash;
     extern BOOL bDebugCompile;
     int i3,i4,LocalVarSchedule,EspOffsetSchedule,BaseOffset;
@@ -865 +865 @@
 }
 void CompileLocal(){
-    extern UserProc **ppSubHash;
+    extern GlobalProc **ppSubHash;
     int i2;
-    UserProc *pUserProc;
 
     extern BOOL bDll;
     if(bDll){
         //DLLの場合はグローバル変数を初期化するための関数を一番初めにコンパイルする
-        pUserProc=GetSubHash("_System_InitDllGlobalVariables");
+        UserProc *pUserProc=GetSubHash("_System_InitDllGlobalVariables");
         if(pUserProc){
             CompileBufferInProcedure( *pUserProc );
@@ -893 +892 @@
 
 repeat:
+    GlobalProc *pGlobalProc;
     for(i2=0;i2<MAX_HASH;i2++){
-        pUserProc=ppSubHash[i2];
-        while(pUserProc){
-            CompileBufferInProcedure( *pUserProc );
-            pUserProc=pUserProc->pNextData;
+        pGlobalProc=ppSubHash[i2];
+        while(pGlobalProc){
+            CompileBufferInProcedure( *pGlobalProc );
+            pGlobalProc=pGlobalProc->pNextData;
         }
     }
@@ -913 +913 @@
         //プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合
         for(i2=0;i2<MAX_HASH;i2++){
-            pUserProc=ppSubHash[i2];
-            while(pUserProc){
-                CompileBufferInProcedure( *pUserProc );
-                pUserProc=pUserProc->pNextData;
+            pGlobalProc=ppSubHash[i2];
+            while(pGlobalProc){
+                CompileBufferInProcedure( *pGlobalProc );
+                pGlobalProc=pGlobalProc->pNextData;
             }
         }