Changeset 202 for Include/system/gc.sbp

Timestamp:

Apr 4, 2007, 5:21:21 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

sweep処理中にsweepが呼ばれてしまうことがあるらしく、デッドロックが起こることがあったのをisSweepingの活用によって修正。ついでにダブルチェックドロック化。

File:

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

Include/system/gc.sbp

@@ -198 +198 @@
 
     Sub sweep()
-        If iAllSize<limitMemorySize Then
+        If isSweeping <> False Or iAllSize<limitMemorySize Then
             'メモリ使用量が上限値を超えていないとき
             Exit Sub
         End If
-
+        isSweeping = True
         OutputDebugString( Ex"garbage colletion sweep start!\r\n" )
 
@@ -210 +210 @@
         WaitForSingleObject(hThread,INFINITE)
         CloseHandle(hThread)
+        isSweeping = False
     End Sub
 
@@ -347 +348 @@
         EnterCriticalSection(CriticalSection)
 
+        If isSweeping <> False Or iAllSize<limitMemorySize Then
+            ExitThread(0)
+        End If
+
         ' すべてのスレッドを一時停止
         _System_pobj_AllThreads->SuspendAllThread()