(* <<<< THIS BLOCK IS NOT COMMENTED IN THE ORIGINAL SOURCES
end
else
if (CompareFilenames(LastCalled,CurPrgName)<>0) and
(CompareFilenames(LastCalled,AltPrgName)<>0) and
(CompareFilenames(CurPrgName,AltPrgName)<>0) // we can NOT check, if we only have the path inside the PCP
then begin
// last time the PCP was started from another lazarus exe
// => either the user forgot to pass a --pcp
// or the user uninstalled and installed to another directory
// => warn
debugln(['Hint: (lazarus) [TMainIDE.LoadGlobalOptions]']);
debugln(['Hint: (lazarus) LastCalled="',LastCalled,'"']);
debugln(['Hint: (lazarus) CurPrgName="',CurPrgName,'"']);
debugln(['Hint: (lazarus) AltPrgName="',AltPrgName,'"']);
MsgResult := IDEQuestionDialog(lisIncorrectConfigurationDirectoryFound,
SimpleFormat(lisIDEConficurationFoundMayBelongToOtherLazarus,
[LineEnding, GetSecondConfDirWarning, ChompPathDelim(PCP),
EnvironmentOptions.LastCalledByLazarusFullPath, CurPrgName]),
mtWarning, [mrOK, lisUpdateInfo,
mrIgnore,
mrAbort]);
case MsgResult of
mrOk: begin
EnvironmentOptions.LastCalledByLazarusFullPath := CurPrgName;
SaveEnvironment(False);
end;
mrIgnore: ;
else
begin
Application.Terminate;
exit;
end;
*)
end; // KEEP THE FINAL END