paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:59:13 +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 TLazarusManager.Run;
procedure AddExpandedParam(Params: TStringListUTF8; Param: string); procedure AddExpandedParam(Params: TStringList; Param: string);
begin begin
// skip startlazarus params // skip startlazarus params
if LeftStr(Param,length(StartLazarusPidOpt))=StartLazarusPidOpt then if LeftStr(Param,length(StartLazarusPidOpt))=StartLazarusPidOpt then
@ -293,7 +293,7 @@ var
MsgResult: TModalResult; MsgResult: TModalResult;
StartPath: String; StartPath: String;
EnvOverrides: TStringList; EnvOverrides: TStringList;
Params: TStringListUTF8; Params: TStringList;
i: Integer; i: Integer;
begin begin
try try
@ -387,7 +387,7 @@ begin
DebugLn(['Info: (startlazarus) [TLazarusManager.Run] starting ',FLazarusPath,' ...']); DebugLn(['Info: (startlazarus) [TLazarusManager.Run] starting ',FLazarusPath,' ...']);
EnvOverrides:=TStringList.Create; EnvOverrides:=TStringList.Create;
Params:=TStringListUTF8.Create; Params:=TStringList.Create;
FLazarusProcess := TLazarusProcess.Create; FLazarusProcess := TLazarusProcess.Create;
try try
{$IFDEF Linux} {$IFDEF Linux}