Changeset 546 for trunk/ab5.0/ablib/src/system/gc.sbp

Timestamp:

Jul 13, 2008, 2:57:57 PM (16 years ago)

Author:

dai

Message:

・VarPtr(This)をエラーとして扱うようにした。
・デリゲート生成時にThisに対するオブジェクトポインタが正常に取得できないバグを修正。
（※64bit版を後日対応すること）

File:

• trunk/ab5.0/ablib/src/system/gc.sbp (modified) (2 diffs)

trunk/ab5.0/ablib/src/system/gc.sbp

@@ -86 +86 @@
             _stscanf( temporary, "%08x", VarPtr( _System_pGC ) )
             MessageBox(0,temporary,"GetEnvironmentVariable",0)
+
+            ' TODO:
         Else
             _System_pGC = _System_calloc( __ClassSizeOf( _System_CGarbageCollection ) )
@@ -421 +423 @@
         Dim hThread As HANDLE
         Dim ThreadId As DWord
-        hThread=_beginthreadex(NULL,0,AddressOf(SweepOnOtherThread),VarPtr(This),0,ThreadId)
+        hThread=_beginthreadex(NULL,0,AddressOf(SweepOnOtherThread),ObjPtr(This),0,ThreadId)
         WaitForSingleObject(hThread,INFINITE)
         CloseHandle(hThread)