Changeset 100 in dev for BasicCompiler32

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

BasicCompiler32

Files:

• BasicCompiler.vcproj (modified) (1 diff)
• Compile_ProcOp.cpp (modified) (4 diffs)
• MakePeHdr.cpp (modified) (1 diff)

BasicCompiler32/BasicCompiler.vcproj

@@ -1938 +1938 @@
                     Name="Meta Parts"
                     >
+                    <File
+                        RelativePath="..\BasicCompiler_Common\include\Namespace.h"
+                        >
+                    </File>
                     <File
                         RelativePath="..\BasicCompiler_Common\Parameter.h"

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;
             }
         }

BasicCompiler32/MakePeHdr.cpp

@@ -558 +558 @@
         ExportNamesLength=lstrlen(lpExportNames)+1;
 
-        extern UserProc **ppSubHash;
-        UserProc *pUserProc,*psi2;
+        extern GlobalProc **ppSubHash;
+        GlobalProc *pUserProc,*psi2;
         while(1){
             //辞書順にサーチ