Changeset 146 for Include/basic.sbp

Timestamp:

Mar 11, 2007, 2:13:27 AM (18 years ago)

Author:

dai

Message:

プロセスの初期化と終了処理を修正。

File:

• Include/basic.sbp (modified) (1 diff)

Include/basic.sbp

@@ -113 +113 @@
 
 Sub _System_StartupProgram()
-    'この関数はアプリケーションの起動時にシステムからコールバックされます
+    'Unsafe
 
-    InitializeCriticalSection(_System_CriticalSection)
+        'この関数はアプリケーションの起動時にシステムからコールバックされます
 
-    _System_hProcessHeap=HeapCreate(HEAP_GENERATE_EXCEPTIONS,0,0)
+        InitializeCriticalSection(_System_CriticalSection)
 
-    _System_GC._System_CGarbageCollection()
+        _System_hProcessHeap=HeapCreate(HEAP_GENERATE_EXCEPTIONS,0,0)
 
-    'Initialize global variables
-    _System_InitDllGlobalVariables()
+        ' GC管理オブジェクトを生成
+        _System_pGC = _System_calloc( SizeOf( _System_CGarbageCollection ) )
+        _System_pGC->Begin()
 
-    'Initialize static variables
-    _System_InitStaticLocalVariables()
+        'Initialize global variables
+        _System_InitDllGlobalVariables()
+
+        'Initialize static variables
+        _System_InitStaticLocalVariables()
+
+        'TODO:
+        ' Set current thread priority
+        'Dim thread = Thread.CurrentThread()
+        'thread.Priority = ThreadPriority.Normal
+
+    'End Unsafe
 End Sub
 
 Sub _System_EndProgram()
-    DeleteCriticalSection(_System_CriticalSection)
+    'Unsafe
+
+        _System_Call_Destructor_of_GlobalObject()
+
+        ' GC管理オブジェクトを破棄
+        _System_pGC->Finish()
+        _System_free( _System_pGC )
+
+        DeleteCriticalSection(_System_CriticalSection)
+
+        HeapDestroy( _System_hProcessHeap )
+
+    'End Unsafe
 End Sub