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: fixed regression, issue #35184, Cyrax

Browse Source 
git-svn-id: trunk@60575 -
This commit is contained in:
mattias 2019-03-04 07:57:40 +00:00
parent 1a22de281f
commit e3b4ad515f
2 changed files with 26 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
components/codetools/definetemplates.pas
View File

@ -2008,10 +2008,11 @@ var
FPM: TPCFPMFileState;
begin
// try to resolve .ppu files via fpmkinst .fpm files
FileCount:=0;
UnitToFPM:=TStringToPointerTree.Create(false);
FPMNameToFPM:=TStringToPointerTree.Create(false);
FPMNameToFPM.FreeValues:=true;
if Units=nil then exit;
FileCount:=0;
Abort:=false;
AVLNode:=Units.Tree.FindLowest;
while AVLNode<>nil do begin
@ -8836,24 +8837,28 @@ begin
RealTargetCPU:=TargetCPU;
if RealTargetCPU='' then
RealTargetCPU:=GetCompiledTargetCPU;
end;
// run fpc/pas2js and parse output
HasPPUs:=false;
RunFPCVerbose(Compiler,TestFilename,CfgFiles,RealCompiler,UnitPaths,
IncludePaths,UnitScopes,Defines,Undefines,ExtraOptions);
//debugln(['TPCTargetConfigCache.Update UnitPaths="',UnitPaths.Text,'"']);
//debugln(['TPCTargetConfigCache.Update UnitScopes="',UnitScopes.Text,'"']);
//debugln(['TPCTargetConfigCache.Update IncludePaths="',IncludePaths.Text,'"']);
if FullVersion<>'' then begin
// run fpc/pas2js and parse output
RunFPCVerbose(Compiler,TestFilename,CfgFiles,RealCompiler,UnitPaths,
IncludePaths,UnitScopes,Defines,Undefines,ExtraOptions);
//debugln(['TPCTargetConfigCache.Update UnitPaths="',UnitPaths.Text,'"']);
//debugln(['TPCTargetConfigCache.Update UnitScopes="',UnitScopes.Text,'"']);
//debugln(['TPCTargetConfigCache.Update IncludePaths="',IncludePaths.Text,'"']);
end;
if Defines.Contains('PAS2JS') and Defines.Contains('PAS2JS_FULLVERSION') then
Kind:=pcPas2js
else if Defines.Contains('FPC') and Defines.Contains('FPC_FULLVERSION') then
Kind:=pcFPC
else begin
IsCompilerExecutable(Compiler,KindErrorMsg,Kind,false);
if KindErrorMsg<>'' then
debugln(['Warning: [TPCTargetConfigCache.Update] cannot determine type of compiler: Compiler="'+Compiler+'" Options="'+ExtraOptions+'"']);
if Defines<>nil then begin
if Defines.Contains('PAS2JS') and Defines.Contains('PAS2JS_FULLVERSION') then
Kind:=pcPas2js
else if Defines.Contains('FPC') and Defines.Contains('FPC_FULLVERSION') then
Kind:=pcFPC
else begin
IsCompilerExecutable(Compiler,KindErrorMsg,Kind,false);
if KindErrorMsg<>'' then
debugln(['Warning: [TPCTargetConfigCache.Update] cannot determine type of compiler: Compiler="'+Compiler+'" Options="'+ExtraOptions+'"']);
end;
end;
if Kind=pcFPC then
RealTargetCPUCompiler:=FindDefaultTargetCPUCompiler(TargetCPU,true);
@ -8896,8 +8901,10 @@ begin
debugln(['Warning: [TPCTargetConfigCache.Update] no unit paths: ',Compiler,' ',ExtraOptions]);
end;
// check if the system ppu exists
HasPPUs:=(Kind=pcFPC) and (CompareFileExt(Units['system'],'ppu',false)=0);
if CTConsoleVerbosity>=-1 then begin
HasPPUs:=(Kind=pcFPC) and (Units<>nil)
and (CompareFileExt(Units['system'],'ppu',false)=0);
// check compiler version define
if (CTConsoleVerbosity>=-1) and (Defines<>nil) then begin
case Kind of
pcFPC:
if not Defines.Contains('FPC_FULLVERSION') then

2
ide/lazarusmanager.pas
View File

@ -429,8 +429,8 @@ begin
FProcess.Options := [];
FProcess.ShowWindow := swoShow;
Params:=TStringListUTF8.Create;
Params.Add(LazarusPath);
SplitCmdLineParams(CommandLine,Params);
FProcess.Executable:=LazarusPath;
FProcess.Parameters:=Params;
Params.Free;
if (EnvOverrides<>nil) and (EnvOverrides.Count>0) then