Changeset 546

Timestamp:

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

Author:

dai

Message:

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

Location:

trunk/ab5.0

Files:

• ablib/src/Classes/System/Threading/Thread.ab (modified) (1 diff)
• ablib/src/system/gc.sbp (modified) (2 diffs)
• bin/x86/abc.exe (modified) ( previous)

trunk/ab5.0/ablib/src/Classes/System/Threading/Thread.ab

@@ -178 +178 @@
     Sub Start()
         Dim pfn = AddressOf(_run) As LONG_PTR
-        m_hThread=CreateThread(NULL,0,pfn As LPTHREAD_START_ROUTINE,VarPtr(This),CREATE_SUSPENDED,m_dwThreadId)
+        m_hThread=CreateThread(NULL,0,pfn As LPTHREAD_START_ROUTINE,ObjPtr(This),CREATE_SUSPENDED,m_dwThreadId)
         SetThreadPriority(m_hThread,m_Priority)
         This.Resume()

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)