Changeset 232 for Include


Ignore:
Timestamp:
May 6, 2007, 8:08:17 PM (18 years ago)
Author:
dai
Message:

32bitコンパイラを更新(64bit版はしばらくお待ちください)
Importsステートメントを試験導入(スコープレベルでの使用はまだできません)。
グローバル変数、定数、クラス、グローバル関数に対してNamespaceの適用を可能にした。
ObjPtr関数を導入。
Mathクラスの構文ミスを修正。

Location:
Include
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/Math.ab

    r208 r232  
    6060            Acos = _System_GetNaN()
    6161        Else
    62             Acos = _System_HalfPI - ASin(x)
     62            Acos = _System_HalfPI - Asin(x)
    6363        End If
    6464    End Function
     
    252252
    253253    Static Function Log10(x As Double) As Double
    254         Return Log(x) / Log(10)
     254        Return Math.Log(x) / Math.Log(10)
    255255    End Function
    256256
  • Include/Classes/System/Object.ab

    r224 r232  
    1717    End Function
    1818    Static Function Equals( objectA As Object, objectB As Object ) As Boolean
    19         If VarPtr(objectA) = 0 /*objectA = Nothing*/ Then
    20             Return VarPtr(objectB) = 0 'objectB = Nothing
     19        If ObjPtr(objectA) = NULL /*objectA = Nothing*/ Then
     20            Return ObjPtr(objectB) = NULL 'objectB = Nothing
    2121        Else
    2222            Return objectA.Equals( objectB )
     
    2626    ' 参照先が等しいか判断する
    2727    Static Function ReferenceEquals(objectA As Object, objectB As Object) As Boolean
    28         If VarPtr( objectA ) = VarPtr( objectB) Then
     28        If ObjPtr( objectA ) = ObjPtr( objectB) Then
    2929            Return True
    3030        Else
  • Include/Classes/System/Threading/Thread.ab

    r220 r232  
    6161
    6262
    63     Function Equals(ByRef obj_Thread As Thread) As BOOL
    64         If m_dwThreadId=obj_Thread.m_dwThreadId Then
    65             Return _System_TRUE
     63    Function Equals( thread As Thread ) As Boolean
     64        If m_dwThreadId = thread.m_dwThreadId Then
     65            Return True
    6666        End If
    67         Return _System_FALSE
     67        Return False
    6868    End Function
    6969
  • Include/system/gc.sbp

    r214 r232  
    112112        Dim thread As Thread(hTargetThread,GetCurrentThreadId(),0)
    113113
    114         _System_pobj_AllThreads->BeginThread(VarPtr( thread ),_System_gc_StackRoot_StartPtr As *LONG_PTR)
     114        _System_pobj_AllThreads->BeginThread(ObjPtr( thread ),_System_gc_StackRoot_StartPtr As *LONG_PTR)
    115115
    116116    End Sub
     
    245245
    246246    Static Function IsNull( object As Object ) As Boolean
    247         If VarPtr( object ) = NULL Then
     247        If ObjPtr( object ) = NULL Then
    248248            Return True
    249249        End If
Note: See TracChangeset for help on using the changeset viewer.