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

2
mdl/m_io_sockets.pas
View File

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

2
mdl/m_menubox.pas
View File

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

1
mdl/m_pipe_windows.pas
View File

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

4
mdl/m_tcp_client.pas
View File

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