paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 18:10:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation of pipesipc

Browse Source 
git-svn-id: trunk@33697 -
This commit is contained in:
michael 2016-05-16 16:18:44 +00:00
parent 7c91516b24
commit d53c4b4153
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-process/src/unix/simpleipc.inc
View File

@ -54,7 +54,6 @@ Type
implementation
{$endif}
constructor TPipeClientComm.Create(AOWner: TSimpleIPCClient);
begin
inherited Create(AOWner);
@ -86,6 +85,7 @@ procedure TPipeClientComm.SendMessage(MsgType : TMessagetype; AStream: TStream);
Var
Hdr : TMsgHeader;
begin
Hdr.Version:=MsgVersion;
Hdr.msgType:=MsgType;
@ -203,11 +203,13 @@ begin
M.Size := 0;
end;
function TPipeServerComm.GetInstanceID: String;
begin
Result:=IntToStr(fpGetPID);
end;
{ ---------------------------------------------------------------------
Set TSimpleIPCClient / TSimpleIPCServer defaults.
---------------------------------------------------------------------}
@ -231,4 +233,5 @@ end;
{$else ipcunit}
end.
{$endif}