+ Patch from Joost Van Der Sluit to fix memory leak

git-svn-id: trunk@4030 -

fcl/inc/simpleipc.pp

@@ -402,7 +402,11 @@ Var
 
 begin
   S:=TStringStream.Create(Msg);
-  SendMessage(mtString,S);
+  try
+    SendMessage(mtString,S);
+  finally
+    s.free;
+  end;
 end;
 
 procedure TSimpleIPCClient.SendStringmessageFmt(Msg: String;

fcl/tests/ipcserver.pp

@@ -1,3 +1,5 @@
+{$mode objfpc}
+{$h+}
 program ipccerver;
 
 {$APPTYPE CONSOLE}

fcl/unix/simpleipc.inc

@@ -157,8 +157,13 @@ Var
 begin
   FStream.ReadBuffer(Hdr,SizeOf(Hdr));
   Count:=Hdr.MsgLen;
-  Owner.FMsgData.Seek(0,soFrombeginning);
-  Owner.FMsgData.CopyFrom(FStream,Count);
+  if count > 0 then
+    begin
+    Owner.FMsgData.Seek(0,soFrombeginning);
+    Owner.FMsgData.CopyFrom(FStream,Count);
+    end
+  else
+    Owner.FMsgData.Size := 0;
 end;
 
 function TPipeServerComm.GetInstanceID: String;