Changeset 79 for Include/system/gc.sbp

Timestamp:

Jan 30, 2007, 2:06:20 AM (18 years ago)

Author:

dai

Message:

Booleanがコンパイラで実装されたので、TypeDefを削除。
DLLコンパイル時にGCの破棄部分が正常に働かないバグを修正。
TraceListener周りを修正。

File:

• Include/system/gc.sbp (modified) (3 diffs)

Include/system/gc.sbp

@@ -68 +68 @@
         If ppPtr=0 Then Exit Sub
 
+#ifdef _DLL
+        _destructor()
+#else
         '解放スレッドを生成
         Dim hThread As HANDLE
@@ -73 +76 @@
         hThread=_beginthreadex(NULL,0,AddressOf(DestructorThread),VarPtr(This),0,ThreadId)
         CloseHandle(hThread)
-        Sleep(INFINITE)
+        Sleep( INFINITE )
+#endif
+
     End Sub
 
 Private
-    Function Cdecl DestructorThread() As Long
-        '-------------------------------------
-        ' すべてのスレッドを一時停止
-        '-------------------------------------
-        _System_pobj_AllThreads->SuspendAllThread()
-
-
+    Sub _destructor()
         Dim i As Long
         For i=0 To ELM(n)
@@ -103 +102 @@
         'クリティカルセッションを破棄
         DeleteCriticalSection(CriticalSection)
-
+    End Sub
+    Function Cdecl DestructorThread() As Long
+        '-------------------------------------
+        ' すべてのスレッドを一時停止
+        '-------------------------------------
+        _System_pobj_AllThreads->SuspendAllThread()
+
+        _destructor()
 
         'プロセスを終了