From ed7564cbc218b26c60cd3d541dc04441e285f939 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Wed, 18 Sep 2013 18:52:23 -0400
Subject: [PATCH] Updates

---
 mdl/m_io_sockets.pas   | 4 ++--
 mdl/m_menubox.pas      | 2 +-
 mdl/m_pipe_windows.pas | 1 +
 mdl/m_tcp_client.pas   | 4 ++--
 4 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/mdl/m_io_sockets.pas b/mdl/m_io_sockets.pas
index 05a5514..93c4a4d 100644
--- a/mdl/m_io_sockets.pas
+++ b/mdl/m_io_sockets.pas
@@ -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}
 
diff --git a/mdl/m_menubox.pas b/mdl/m_menubox.pas
index 3409617..c574421 100644
--- a/mdl/m_menubox.pas
+++ b/mdl/m_menubox.pas
@@ -261,7 +261,7 @@ Begin
   LastBarPos := 0;
   StatusProc := NIL;
   SearchProc := NIL;
-  SearchProc := DefListBoxSearch;
+  SearchProc := @DefListBoxSearch;
   SearchX    := 0;
   SearchY    := 0;
   SearchA    := 0;
diff --git a/mdl/m_pipe_windows.pas b/mdl/m_pipe_windows.pas
index 7f4fb47..368d975 100644
--- a/mdl/m_pipe_windows.pas
+++ b/mdl/m_pipe_windows.pas
@@ -57,6 +57,7 @@ Var
   Avail : LongWord;
 Begin
   Result := False;
+  Temp   := 0;
 
   If PipeHandle = -1 Then Exit;
 
diff --git a/mdl/m_tcp_client.pas b/mdl/m_tcp_client.pas
index f15cbfc..ef8ac93 100644
--- a/mdl/m_tcp_client.pas
+++ b/mdl/m_tcp_client.pas
@@ -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}