|
@@ -110,7 +110,7 @@ Type TPipeStream Extends TStream
|
|
|
If p1>p0 line$=String.FromBytes(Varptr readbuffer[p0],p1-p0)
|
|
|
n:+1
|
|
|
bufferpos:-n
|
|
|
- If bufferpos MemMove(readbuffer,Varptr readbuffer[n],bufferpos)
|
|
|
+ If bufferpos MemMove(readbuffer,Varptr readbuffer[n],Size_T(bufferpos))
|
|
|
Return line$
|
|
|
EndIf
|
|
|
Next
|