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

IDE: string lit to const

Browse Source 
git-svn-id: trunk@64268 -
This commit is contained in:
mattias 2020-12-23 16:17:57 +00:00
parent 5197500844
commit c0c5432ecc
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/idecmdline.pas
View File

@ -45,6 +45,7 @@ uses
LazConf;
const
// IDE cmd line options
ShowSetupDialogOptLong='--setup';
PrimaryConfPathOptLong='--primary-config-path=';
PrimaryConfPathOptShort='--pcp=';
@ -59,6 +60,10 @@ const
DebugLogOptEnable='--debug-enable=';
LanguageOpt='--language=';
LazarusDirOpt ='--lazarusdir=';
const
// startlazarus options
StartLazarusPidOpt = '--lazarus-pid=';
StartLazarusDebugOpt = '--debug';
procedure ParseCommandLine(aCmdLineParams: TStrings; out IDEPid : Integer;
out ShowSplashScreen: boolean);
@ -198,9 +203,6 @@ end;
procedure ParseCommandLine(aCmdLineParams: TStrings; out IDEPid: Integer; out
ShowSplashScreen: boolean);
const
LazarusPidOpt = '--lazarus-pid=';
LazarusDebugOpt = '--debug';
var
i : Integer;
Param : string;
@ -213,14 +215,14 @@ begin
if Param='' then continue;
if SysUtils.CompareText(LeftStr(Param, length(DebugLogOpt)), DebugLogOpt) = 0 then
HasDebugLog := HasDebugLog or (length(Param) > length(DebugLogOpt));
if (Param=LazarusDebugOpt) and (not HasDebugLog) then begin
if (Param=StartLazarusDebugOpt) and (not HasDebugLog) then begin
aCmdLineParams.Add('--debug-log=' +
AppendPathDelim(UTF8ToSys(GetPrimaryConfigPath)) + 'debug.log');
end;
if LeftStr(Param,length(LazarusPidOpt))=LazarusPidOpt then begin
if LeftStr(Param,length(StartLazarusPidOpt))=StartLazarusPidOpt then begin
try
IDEPid :=
StrToInt(RightStr(Param,Length(Param)-Length(LazarusPidOpt)));
StrToInt(RightStr(Param,Length(Param)-Length(StartLazarusPidOpt)));
except
DebugLn('Failed to parse %s',[Param]);
IDEPid := 0;

2
ide/main.pp
View File

@ -7499,7 +7499,7 @@ const
end;
//DebugLn('Setting CommandLine');
StartLazProcess.Executable:=ExeName;
StartLazProcess.Parameters.Add('--lazarus-pid='+IntToStr(GetProcessID));
StartLazProcess.Parameters.Add(StartLazarusPidOpt+IntToStr(GetProcessID));
StartLazProcess.Parameters.AddStrings(Params);
i:=StartLazProcess.Parameters.Count-1;