IDE does not start / IPC fails to get file in temp dir
Original Reporter info from Mantis: Martin @martin_frb
-
Reporter name: Martin Friebe
Original Reporter info from Mantis: Martin @martin_frb
- Reporter name: Martin Friebe
Description:
In B:\lazarus_latest_svn_2\ide\lazadvancedipc.pp line 755
function TIPCServer.StartServer(const aDeletePendingRequests: Boolean): Boolean;
begin
if Active then
Exit(True);
FFileHandle := FileCreate(FFileName, fmCreate or fmShareExclusive, GLOBAL_RIGHTS);
Result := (FFileHandle<>feInvalidHandle);
FActive := Result;
if Result and aDeletePendingRequests then
DeletePendingRequests;
end;
FileCreate returns an invalid filehandle. (even if the file does not exist)
This leads to
procedure TUniqueServer.StartUnique(const aServerPrefix: string);
...
I := 0;
while not Active do
begin
Inc(I);
if I < 10 then
ServerID := aServerPrefix+'0'+IntToStr(I)
else
ServerID := aServerPrefix+IntToStr(I);
StartServer;
end;
end;
To loop forever.
Additional information:
This happens on windows, with the TEMP dir moved to a ramdisk.
Mantis conversion info:
- Mantis ID: 35838
- OS: win 10
- OS Build: 10
- Platform: 64bit Intel
- Version: 2.1 (SVN)
- Fixed in revision: r62494 (#653dca44)