Changeset 370 for trunk/Include/Classes

Timestamp:

Nov 3, 2007, 5:18:30 PM (17 years ago)

Author:

dai

Message:

System.GCクラスを追加。
64ビットコンパイラで生じる警告を改修した。

Location:

trunk/Include/Classes

Files:

• ActiveBasic/Strings/Strings.ab (modified) (2 diffs)
• System/DateTime.ab (modified) (1 diff)
• System/Drawing/Color.ab (modified) (2 diffs)
• System/GC.ab (added)
• System/String.ab (modified) (1 diff)
• System/Text/StringBuilder.ab (modified) (1 diff)
• index.ab (modified) (1 diff)

trunk/Include/Classes/ActiveBasic/Strings/Strings.ab

@@ -93 +93 @@
     ChrCmp = ChrCmp(s1, s2, System.Math.Min(size1, size2))
     If ChrCmp = 0 Then
-        ChrCmp = size1 - size2
+        ChrCmp = ( size1 - size2 ) As Long
     End If
 End Function
@@ -100 +100 @@
     ChrCmp = ChrCmp(s1, s2, System.Math.Min(size1, size2))
     If ChrCmp = 0 Then
-        ChrCmp = size1 - size2
+        ChrCmp = ( size1 - size2 ) As Long
     End If
 End Function

trunk/Include/Classes/System/DateTime.ab

@@ -253 +253 @@
                 - Millisecond * TimeSpan.TicksPerMillisecond As Int64
         If IsLeapYear(Year + Int(value)) Then
-            ticks += (value - Int(value)) * 366 * TimeSpan.TicksPerDay
-        Else
-            ticks += (value - Int(value)) * 365 * TimeSpan.TicksPerDay
+            ticks += ( (value - Int(value)) * 366 * TimeSpan.TicksPerDay ) As Int64
+        Else
+            ticks += ( (value - Int(value)) * 365 * TimeSpan.TicksPerDay ) As Int64
         End If
         Return date.AddTicks(ticks)

trunk/Include/Classes/System/Drawing/Color.ab

@@ -131 +131 @@
         Dim max = System.Math.Max(System.Math.Max(r, g), b) As Long
         Dim min = System.Math.Min(System.Math.Min(r, g), b) As Long
-        Return (max - min) / max
+        Return ( (max - min) / max ) As Single
     End Function
 
@@ -139 +139 @@
         Dim b = B
         Dim max = System.Math.Max(System.Math.Max(r, g), b)
-        Return max * (1 / 255)
+        Return ( max * (1 / 255) ) As Single
     End Function
 

trunk/Include/Classes/System/String.ab

@@ -361 +361 @@
     Private
         Const Function indexOfCore(c As StrChar, start As Long, count As Long) As Long
-            indexOfCore = ActiveBasic.Strings.ChrFind(VarPtr(Chars[start]), count, c)
+            indexOfCore = ActiveBasic.Strings.ChrFind(VarPtr(Chars[start]), count, c) As Long
             If indexOfCore <> -1 Then
                 indexOfCore += start

trunk/Include/Classes/System/Text/StringBuilder.ab

@@ -407 +407 @@
         Dim curPos = 0 As Long
         Do
-            Dim nextPos = ActiveBasic.Strings.ChrFind(VarPtr(chars[curPos]) As *StrChar, size As SIZE_T, StrPtr(oldStr), oldStr.Length As SIZE_T)
+            Dim nextPos = ActiveBasic.Strings.ChrFind(VarPtr(chars[curPos]) As *StrChar, size As SIZE_T, StrPtr(oldStr), oldStr.Length As SIZE_T) As Long
             If nextPos = -1 As SIZE_T Then
                 Exit Sub

trunk/Include/Classes/index.ab

@@ -11 +11 @@
 #require "./System/Delegate.ab"
 #require "./System/Environment.ab"
+#require "./System/GC.ab"
 #require "./System/Math.ab"
 #require "./System/misc.ab"