paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 12:10:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow use of absolute path in ServerID (bug ID 27572)

Browse Source 
git-svn-id: trunk@30304 -
This commit is contained in:
michael 2015-03-24 09:23:29 +00:00
parent 1127dc9983
commit 9d5e80d072
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -110,17 +110,13 @@ end;
constructor TPipeClientComm.Create(AOWner: TSimpleIPCClient);
Var
D : String;
begin
inherited Create(AOWner);
FFileName:=Owner.ServerID;
If (Owner.ServerInstance<>'') then
FFileName:=FFileName+'-'+Owner.ServerInstance;
D:='/tmp/'; // Change to something better later
FFileName:=D+FFileName;
if FFileName[1]<>'/' then
FFileName:=GetTempDir(true)+FFileName;
end;
@ -200,17 +196,13 @@ Type
end;
constructor TPipeServerComm.Create(AOWner: TSimpleIPCServer);
Var
D : String;
begin
inherited Create(AOWner);
FFileName:=Owner.ServerID;
If Not Owner.Global then
FFileName:=FFileName+'-'+IntToStr(fpGetPID);
D:='/tmp/'; // Change to something better later
FFileName:=D+FFileName;
if FFileName[1]<>'/' then
FFileName:=GetTempDir(Owner.Global)+FFileName;
end;