Changeset 546


Ignore:
Timestamp:
Jul 13, 2008, 2:57:57 PM (16 years ago)
Author:
dai
Message:

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

Location:
trunk/ab5.0
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/src/Classes/System/Threading/Thread.ab

    r536 r546  
    178178    Sub Start()
    179179        Dim pfn = AddressOf(_run) As LONG_PTR
    180         m_hThread=CreateThread(NULL,0,pfn As LPTHREAD_START_ROUTINE,VarPtr(This),CREATE_SUSPENDED,m_dwThreadId)
     180        m_hThread=CreateThread(NULL,0,pfn As LPTHREAD_START_ROUTINE,ObjPtr(This),CREATE_SUSPENDED,m_dwThreadId)
    181181        SetThreadPriority(m_hThread,m_Priority)
    182182        This.Resume()
  • trunk/ab5.0/ablib/src/system/gc.sbp

    r527 r546  
    8686            _stscanf( temporary, "%08x", VarPtr( _System_pGC ) )
    8787            MessageBox(0,temporary,"GetEnvironmentVariable",0)
     88
     89            ' TODO:
    8890        Else
    8991            _System_pGC = _System_calloc( __ClassSizeOf( _System_CGarbageCollection ) )
     
    421423        Dim hThread As HANDLE
    422424        Dim ThreadId As DWord
    423         hThread=_beginthreadex(NULL,0,AddressOf(SweepOnOtherThread),VarPtr(This),0,ThreadId)
     425        hThread=_beginthreadex(NULL,0,AddressOf(SweepOnOtherThread),ObjPtr(This),0,ThreadId)
    424426        WaitForSingleObject(hThread,INFINITE)
    425427        CloseHandle(hThread)
Note: See TracChangeset for help on using the changeset viewer.