Changeset 660 for trunk

Timestamp:

Nov 9, 2008, 9:12:01 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

#234の修正

File:

• trunk/ab5.0/ablib/src/Classes/System/IO/StreamReader.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/IO/StreamReader.ab

@@ -148 +148 @@
             Dim charUsed As Long
             Dim byteUsed As Long
+            Dim completed As Boolean
             decoder.Convert(VarPtr(byteBuf[byteCur]), byteSize - byteCur,
                 VarPtr(charBuf[charSize]), charCapacity - charSize,
-                byteEof, charUsed, byteUsed, charEof)
+                byteEof, charUsed, byteUsed, completed)
+            charEof = byteEof And completed
             byteCur += byteUsed
             charSize += charUsed