Changeset 252

Timestamp:

May 17, 2007, 8:06:04 PM (18 years ago)

Author:

NoWest

Message:

アドレス参照に対してポインタが渡されていたのを修正。

File:

• Include/Classes/System/IO/Stream.ab (modified) (2 diffs)

Include/Classes/System/IO/Stream.ab

@@ -49 +49 @@
     Virtual Function ReadByte() As Long
         Dim b As Byte
-        Dim ret = Read(VarPtr(b), 0, 1)
+        Dim ret = Read(b, 0, 1)
         If ret <> 0 Then
             Return b
@@ -62 +62 @@
 
     Virtual Sub WriteByte(b As Byte)
-        Write(VarPtr(b), 0, 1)
+        Write(b, 0, 1)
     End Sub
 Protected