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

Updates

This commit is contained in:
mysticbbs 2013-09-18 18:52:23 -04:00
parent d1ac7f592a
commit ed7564cbc2
4 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mdl/m_io_sockets.pas
View File

@ -556,8 +556,8 @@ Begin
Exit;
End;
Data := Ord (Not Block);
Result := ioctlSocket (FSocketHandle, FIONBIO, Data);
Data := Ord(Not Block);
Result := ioctlSocket(FSocketHandle, LongInt(FIONBIO), @Data);
End;
{$ENDIF}

2
mdl/m_menubox.pas
View File

@ -261,7 +261,7 @@ Begin
LastBarPos := 0;
StatusProc := NIL;
SearchProc := NIL;
SearchProc := DefListBoxSearch;
SearchProc := @DefListBoxSearch;
SearchX := 0;
SearchY := 0;
SearchA := 0;

1
mdl/m_pipe_windows.pas
View File

@ -57,6 +57,7 @@ Var
Avail : LongWord;
Begin
Result := False;
Temp := 0;
If PipeHandle = -1 Then Exit;

4
mdl/m_tcp_client.pas
View File

@ -68,7 +68,7 @@ Begin
If Client.FSocketHandle = -1 Then Exit;
WriteLn ('DEBUG SENT ' + Str);
// WriteLn ('DEBUG SENT ' + Str);
Client.PurgeInputData(1);
@ -91,7 +91,7 @@ Begin
ResponseType := strS2I(Copy(ResponseStr, 1, 3));
Result := ResponseType;
WriteLn ('DEBUG RECV ' + ResponseStr);
// WriteLn ('DEBUG RECV ' + ResponseStr);
If ResponseStr[4] = '-' Then Begin
{$IFDEF USESTRINGLIST}