paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-05 12:23:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: warn for macro cicles in project compiler options dialog, bug #18461

Browse Source 
git-svn-id: trunk@29198 -
This commit is contained in:
mattias 2011-01-25 18:09:42 +00:00
parent 4a27b745a3
commit d9cc4dbb7f
1 changed files with 40 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
ide/frames/compiler_path_options.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, LCLProc, FileUtil, Forms, Controls, Dialogs, Graphics,
Buttons, StdCtrls, LCLType, InterfaceBase,
IDEOptionsIntf, MacroIntf,
IDEOptionsIntf, MacroIntf, IDEDialogs,
Project, CompilerOptions, LazarusIDEStrConsts, PathEditorDlg, LazConf,
IDEProcs, CheckCompilerOpts, ShowCompilerOpts, MainIntf;
@ -131,9 +131,13 @@ var
NewParsedDebugPath:=FCompilerOpts.GetDebugPath(False,coptParsed,false);
end;
var
o: TParsedCompilerOptString;
Msg: String;
begin
GetParsedPaths;
Result:=false;
GetParsedPaths;
OldParsedIncludePath := NewParsedIncludePath;
OldUnparsedIncludePath := FCompilerOpts.IncludePath;
@ -146,7 +150,6 @@ begin
OldParsedDebugPath := NewParsedDebugPath;
OldUnparsedDebugPath := FCompilerOpts.DebugPath;
Result:=false;
try
FCompilerOpts.IncludePath := IncludeFilesEdit.Text;
FCompilerOpts.Libraries := LibrariesEdit.Text;
@ -155,6 +158,40 @@ begin
FCompilerOpts.DebugPath := DebugPathEdit.Text;
GetParsedPaths;
if FCompilerOpts.ParsedOpts.HasParsedError then begin
o:=FCompilerOpts.ParsedOpts.ParsedErrorOption;
case o of
pcosBaseDir:
Msg:='I wonder how you did that: Error in the base directory:';
pcosUnitPath:
Msg:='Error in the search path for "Other unit files":';
pcosIncludePath:
Msg:='Error in the search path for "Include files":';
pcosObjectPath:
Msg:='Error in the search path for "Object files":';
pcosLibraryPath:
Msg:='Error in the search path for "Libraries":';
pcosSrcPath:
Msg:='Error in the search path for "Other sources":';
pcosLinkerOptions:
Msg:='Error in the custom linker options (Linking / Pass options to linker):';
pcosCustomOptions:
Msg:='Error in the custom compiler options (Other):';
pcosOutputDir:
Msg:='Error in the "unit output directory":';
pcosCompilerPath:
Msg:='Error in the compiler file name:';
pcosDebugPath:
Msg:='Error in the "Debugger path addition":';
else
Msg:='I wonder how you did that. Error in the '+ParsedCompilerOptStringNames[o]+':';
end;
Msg:=Msg+#13+FCompilerOpts.ParsedOpts.ParsedErrorMsg+#13
+'Value: '+dbgstr(FCompilerOpts.ParsedOpts.UnparsedValues[o]);
IDEMessageDialog('Error',Msg,mtError,[mbCancel]);
exit;
end;
if not CheckPutSearchPath('include search path', OldParsedIncludePath, NewParsedIncludePath) then
Exit;
if not CheckPutSearchPath('library search path', OldParsedLibraryPath, NewParsedLibraries) then