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

StartLazarus: Fix compilation.

Browse Source 
git-svn-id: trunk@64392 -
This commit is contained in:
juha 2021-01-14 21:54:50 +00:00
parent 4c27531f6f
commit 4d205d5b7c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/lazarusmanager.pas
View File

@ -275,7 +275,7 @@ end;
procedure TLazarusManager.Run;
procedure AddExpandedParam(Params: TStringListUTF8; Param: string);
procedure AddExpandedParam(Params: TStringList; Param: string);
begin
// skip startlazarus params
if LeftStr(Param,length(StartLazarusPidOpt))=StartLazarusPidOpt then
@ -293,7 +293,7 @@ var
MsgResult: TModalResult;
StartPath: String;
EnvOverrides: TStringList;
Params: TStringListUTF8;
Params: TStringList;
i: Integer;
begin
try
@ -387,7 +387,7 @@ begin
DebugLn(['Info: (startlazarus) [TLazarusManager.Run] starting ',FLazarusPath,' ...']);
EnvOverrides:=TStringList.Create;
Params:=TStringListUTF8.Create;
Params:=TStringList.Create;
FLazarusProcess := TLazarusProcess.Create;
try
{$IFDEF Linux}