Changeset 100 in dev for BasicCompiler64/Compile_ProcOp.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

• BasicCompiler64/Compile_ProcOp.cpp (modified) (5 diffs)

BasicCompiler64/Compile_ProcOp.cpp

@@ -219 +219 @@
     extern char *basbuf;
     extern HANDLE hHeap;
-    extern UserProc **ppSubHash;
+    extern GlobalProc **ppSubHash;
     extern BOOL bDebugCompile;
     int i3,i4;
@@ -830 +830 @@
     temporary[0]=0;
     lstrcat( temporary, "------------------------------------------------------------------\n" );
-    sprintf( temporary + lstrlen(temporary), "【 %s のコード情報】\n", userProc.GetFullName().c_str() );
+    sprintf( temporary + lstrlen(temporary), "【 %s のコード情報】\n", userProc.GetName().c_str() );
     sprintf( temporary + lstrlen(temporary), "code size: %d bytes\n", userProc.GetCodeSize() );
     lstrcat( temporary, "------------------------------------------------------------------\n" );
@@ -837 +837 @@
 }
 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 );
@@ -865 +864 @@
 
 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;
         }
     }
@@ -885 +885 @@
         //プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合
         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;
             }
         }