Changeset 289 for Include/Classes


Ignore:
Timestamp:
Aug 15, 2007, 3:29:59 AM (17 years ago)
Author:
dai
Message:

タイプミスを修正。

Location:
Include/Classes
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Include/Classes/ActiveBasic/Math/Math.ab

    r285 r289  
    6666    Dim p = VarPtr(x) As *DWord
    6767    p[1] And= &H7FF00000
    68     IsFinite = p[1] And &H7FF00000 = &H7FF00000
     68    IsFinite = ( p[1] And &H7FF00000 ) = &H7FF00000
    6969End Function
    7070

  • Include/Classes/System/Collections/ArrayList.ab

    r279 r289  
    319319
    320320    Static Function FixedSize(l As IList) As IList
    321         Return FixedSize(Adapter(VarPtr(l)))
     321        Return FixedSize(Adapter(l))
    322322    End Function
    323323

  • Include/Classes/System/IO/FileStream.ab

    r271 r289  
    9393        End Select
    9494
    95         This.handle=CreateFile(path.Chars As PSTR,ac,sh,ByVal NULL,mo,op,0)
     95        This.handle=CreateFile(path As PSTR,ac,sh,ByVal NULL,mo,op,0)
    9696        If This.handle=INVALID_HANDLE_VALUE Then
    9797        'エラー処理
Note: See TracChangeset for help on using the changeset viewer.