Changeset 289

Timestamp:

Aug 15, 2007, 3:29:59 AM (17 years ago)

Author:

dai

Message:

タイプミスを修正。

Location:

Include

Files:

• Classes/ActiveBasic/Math/Math.ab (modified) (1 diff)
• Classes/System/Collections/ArrayList.ab (modified) (1 diff)
• Classes/System/IO/FileStream.ab (modified) (1 diff)
• basic/function.sbp (modified) (2 diffs)
• system/interface.ab (modified) (1 diff)

Include/Classes/ActiveBasic/Math/Math.ab

@@ -66 +66 @@
     Dim p = VarPtr(x) As *DWord
     p[1] And= &H7FF00000
-    IsFinite = p[1] And &H7FF00000 = &H7FF00000
+    IsFinite = ( p[1] And &H7FF00000 ) = &H7FF00000
 End Function
 

Include/Classes/System/Collections/ArrayList.ab

@@ -319 +319 @@
 
     Static Function FixedSize(l As IList) As IList
-        Return FixedSize(Adapter(VarPtr(l)))
+        Return FixedSize(Adapter(l))
     End Function
 

Include/Classes/System/IO/FileStream.ab

@@ -93 +93 @@
         End Select
 
-        This.handle=CreateFile(path.Chars As PSTR,ac,sh,ByVal NULL,mo,op,0)
+        This.handle=CreateFile(path As PSTR,ac,sh,ByVal NULL,mo,op,0)
         If This.handle=INVALID_HANDLE_VALUE Then
         'エラー処理

Include/basic/function.sbp

@@ -265 +265 @@
 
 Function Date$() As String
-    Dim date = DateTime.Now
+    Dim date = System.DateTime.Now
     Dim buf = New System.Text.StringBuilder(10)
 
@@ -693 +693 @@
 
 Function Time$() As String
-    Dim time = DateTime.Now
+    Dim time = System.DateTime.Now
 
     Dim buf = New System.Text.StringBuilder(8)

Include/system/interface.ab

@@ -6 +6 @@
 Function CastToInterface( obj As Object, typeOfInterface As System.TypeInfo ) As InterfaceStructure
     Dim interfaceStructure As InterfaceStructure
-    interfaceStructure.thisPtr = ObjPtr( obj )
-    interfaceStructure.vtblPtr = obj.GetVtbl( typeOfInterface )
+
+    ' TODO: 実装
+    'interfaceStructure.thisPtr = ObjPtr( obj )
+    'interfaceStructure.vtblPtr = obj.GetVtbl( typeOfInterface )
 End Function