Changeset 266 for Include/system/gc.sbp

Timestamp:

Jun 2, 2007, 11:51:16 AM (17 years ago)

Author:

dai

Message:

※本コミットがCP4バージョンのベースになります
_System_StartupProgramの呼び出しタイミングを変更。

File:

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

Include/system/gc.sbp

@@ -26 +26 @@
 
 Class _System_CGarbageCollection
+
     ppPtr As *VoidPtr
     pSize As *SIZE_T
@@ -68 +69 @@
 
 Public
+
+    Static Sub Initialize()
+        Dim temporary[255] As Char
+        If GetEnvironmentVariable( "ActiveBasicGarbageCollection", temporary, 255 ) Then
+            ' 既にGCがプロセスに存在するとき
+            sscanf( temporary, "%08x", VarPtr( _System_pGC ) )
+            MessageBox(0,temporary,"GetEnvironmentVariable",0)
+        Else
+            _System_pGC = _System_calloc( SizeOf( _System_CGarbageCollection ) )
+            _System_pGC->Begin()
+
+            ' GCをプロセスに登録する
+            sprintf( temporary, "%08x", _System_pGC )
+            SetEnvironmentVariable( "ActiveBasicGarbageCollection", temporary )
+        End If
+    End Sub
 
     Sub Begin()