eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Stuff

This commit is contained in:
mysticbbs 2013-02-24 23:28:27 -05:00
parent 93337d2a25
commit ef9bbdf2e4
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mdl/m_io_sockets.pas
View File

@ -174,7 +174,7 @@ End;
Function TIOSocket.DataWaiting : Boolean; Function TIOSocket.DataWaiting : Boolean;
Begin Begin
Result := (FInBufPos < FInBufEnd) or (WaitForData(0) > 0); Result := (FInBufPos < FInBufEnd) or (WaitForData(1) > 0);
End; End;
Function TIOSocket.WriteBuf (Var Buf; Len: LongInt) : LongInt; Function TIOSocket.WriteBuf (Var Buf; Len: LongInt) : LongInt;
@ -456,6 +456,7 @@ Begin
If FInBufEnd <= 0 Then Begin If FInBufEnd <= 0 Then Begin
FInBufEnd := 0; FInBufEnd := 0;
Result := -1; Result := -1;
Connected := False;
Exit; Exit;
End; End;

2
mdl/m_io_stdio.pas
View File

@ -47,7 +47,7 @@ End;
Function TSTDIO.DataWaiting : Boolean; Function TSTDIO.DataWaiting : Boolean;
Begin Begin
Result := (FInBufPos < FInBufEnd) or (WaitForData(0) > 0); Result := (FInBufPos < FInBufEnd) or (WaitForData(1) > 0);
End; End;
Function TSTDIO.WriteBuf (Var Buf; Len: LongInt) : LongInt; Function TSTDIO.WriteBuf (Var Buf; Len: LongInt) : LongInt;