- Timestamp:
- May 6, 2007, 8:08:17 PM (18 years ago)
- Location:
- Include
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/Math.ab
r208 r232 60 60 Acos = _System_GetNaN() 61 61 Else 62 Acos = _System_HalfPI - A Sin(x)62 Acos = _System_HalfPI - Asin(x) 63 63 End If 64 64 End Function … … 252 252 253 253 Static Function Log10(x As Double) As Double 254 Return Log(x) /Log(10)254 Return Math.Log(x) / Math.Log(10) 255 255 End Function 256 256 -
Include/Classes/System/Object.ab
r224 r232 17 17 End Function 18 18 Static Function Equals( objectA As Object, objectB As Object ) As Boolean 19 If VarPtr(objectA) = 0/*objectA = Nothing*/ Then20 Return VarPtr(objectB) = 0'objectB = Nothing19 If ObjPtr(objectA) = NULL /*objectA = Nothing*/ Then 20 Return ObjPtr(objectB) = NULL 'objectB = Nothing 21 21 Else 22 22 Return objectA.Equals( objectB ) … … 26 26 ' 参照先が等しいか判断する 27 27 Static Function ReferenceEquals(objectA As Object, objectB As Object) As Boolean 28 If VarPtr( objectA ) = VarPtr( objectB) Then28 If ObjPtr( objectA ) = ObjPtr( objectB) Then 29 29 Return True 30 30 Else -
Include/Classes/System/Threading/Thread.ab
r220 r232 61 61 62 62 63 Function Equals( ByRef obj_Thread As Thread) As BOOL64 If m_dwThreadId =obj_Thread.m_dwThreadId Then65 Return _System_TRUE63 Function Equals( thread As Thread ) As Boolean 64 If m_dwThreadId = thread.m_dwThreadId Then 65 Return True 66 66 End If 67 Return _System_FALSE67 Return False 68 68 End Function 69 69 -
Include/system/gc.sbp
r214 r232 112 112 Dim thread As Thread(hTargetThread,GetCurrentThreadId(),0) 113 113 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) 115 115 116 116 End Sub … … 245 245 246 246 Static Function IsNull( object As Object ) As Boolean 247 If VarPtr( object ) = NULL Then247 If ObjPtr( object ) = NULL Then 248 248 Return True 249 249 End If
Note:
See TracChangeset
for help on using the changeset viewer.