paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 13:10:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: about fpc: warn if fpc has no config file

Browse Source 
git-svn-id: trunk@28938 -
This commit is contained in:
mattias 2011-01-10 16:38:39 +00:00
parent 8cdcd7f1ea
commit a2157c46f8
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/idefpcinfo.pas
View File

@ -264,6 +264,7 @@ var
CfgCache: TFPCTargetConfigCache; CfgCache: TFPCTargetConfigCache;
i: Integer; i: Integer;
CfgFileItem: TFPCConfigFileState; CfgFileItem: TFPCConfigFileState;
HasCfgs: Boolean;
begin begin
sl.Add('FPC executable:'); sl.Add('FPC executable:');
if UnitSetCache<>nil then begin if UnitSetCache<>nil then begin
@ -277,13 +278,19 @@ begin
sl.Add('RealTargetOS='+CfgCache.RealTargetOS); sl.Add('RealTargetOS='+CfgCache.RealTargetOS);
sl.Add('RealTargetCPU='+CfgCache.RealTargetCPU); sl.Add('RealTargetCPU='+CfgCache.RealTargetCPU);
sl.Add('RealCompilerInPath='+CfgCache.RealCompilerInPath); sl.Add('RealCompilerInPath='+CfgCache.RealCompilerInPath);
HasCfgs:=false;
if CfgCache.ConfigFiles<>nil then begin if CfgCache.ConfigFiles<>nil then begin
for i:=0 to CfgCache.ConfigFiles.Count-1 do begin for i:=0 to CfgCache.ConfigFiles.Count-1 do begin
CfgFileItem:=CfgCache.ConfigFiles[i]; CfgFileItem:=CfgCache.ConfigFiles[i];
if CfgFileItem.FileExists then if CfgFileItem.FileExists then begin
sl.Add('CfgFilename='+CfgFileItem.Filename); sl.Add('CfgFilename='+CfgFileItem.Filename);
HasCfgs:=true;
end;
end; end;
end; end;
if not HasCfgs then
sl.Add('WARNING: fpc has no config file');
sl.Add('');
sl.Add('Defines:'); sl.Add('Defines:');
if CfgCache.Defines<>nil then begin if CfgCache.Defines<>nil then begin
sl.Add(CfgCache.Defines.AsText); sl.Add(CfgCache.Defines.AsText);

2
ide/inspectchksumchangeddlg.pas
View File

@ -51,8 +51,6 @@ uses
type type
TInspectChksumChgDialog = class; TInspectChksumChgDialog = class;
{ TQuickFixMissingUnit }
{ TICCAction } { TICCAction }
TICCAction = class TICCAction = class