Changeset 91 in dev for BasicCompiler64/Compile_ProcOp.cpp

Timestamp:

Apr 7, 2007, 10:07:26 PM (17 years ago)

Author:

dai_9181

Message:

ログ機構（Smoothie::Logger）を導入。
動的型情報生成において、未使用クラスの登録は行わないようにした。

File:

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

BasicCompiler64/Compile_ProcOp.cpp

@@ -210 +210 @@
     }
 }
-void CompileBufferInProcedure(UserProc *pUserProc){
+void _compile_proc(UserProc *pUserProc){
     extern char *basbuf;
     extern HANDLE hHeap;
@@ -814 +814 @@
     HeapDefaultFree(SynonymErrorWords);
 }
+
+void CompileBufferInProcedure( UserProc &userProc ){
+    if( userProc.IsUsing() == false || userProc.IsCompiled() ) return;
+
+    _compile_proc( &userProc );
+
+    // ログを履く
+    char temporary[8192];
+    temporary[0]=0;
+    lstrcat( temporary, "------------------------------------------------------------------\n" );
+    sprintf( temporary + lstrlen(temporary), "【 %s のコード情報】\n", userProc.GetFullName().c_str() );
+    sprintf( temporary + lstrlen(temporary), "code size: %d bytes\n", userProc.GetCodeSize() );
+    lstrcat( temporary, "------------------------------------------------------------------\n" );
+    lstrcat( temporary, "\n" );
+    Smoothie::Logger::Put( temporary );
+}
 void CompileLocal(){
     extern UserProc **ppSubHash;
@@ -824 +840 @@
         pUserProc=GetSubHash("_System_InitDllGlobalVariables");
         if(pUserProc){
-            CompileBufferInProcedure(pUserProc);
+            CompileBufferInProcedure( *pUserProc );
         }
         else SetError(300,NULL,cp);
@@ -842 +858 @@
         pUserProc=ppSubHash[i2];
         while(pUserProc){
-            CompileBufferInProcedure(pUserProc);
+            CompileBufferInProcedure( *pUserProc );
             pUserProc=pUserProc->pNextData;
         }
@@ -861 +877 @@
     //_System_InitStaticLocalVariablesは一番最後にコンパイル
     pSub_System_InitStaticLocalVariables->KillCompileStatus();
-    CompileBufferInProcedure(pSub_System_InitStaticLocalVariables);
+    CompileBufferInProcedure( *pSub_System_InitStaticLocalVariables );
 
     //_System_Call_Destructor_of_GlobalObjectは一番最後にコンパイル
     pSub_System_Call_Destructor_of_GlobalObject->KillCompileStatus();
-    CompileBufferInProcedure(pSub_System_Call_Destructor_of_GlobalObject);
+    CompileBufferInProcedure( *pSub_System_Call_Destructor_of_GlobalObject );
 }