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

IDE: replaced unitname compare functions for checking ambiguous units

Browse Source 
git-svn-id: trunk@12801 -
This commit is contained in:
mattias 2007-11-09 19:41:45 +00:00
parent 9210c88cc5
commit 8a8085d7af
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/buildmanager.pas
View File

@ -37,7 +37,7 @@ uses
// LCL
LCLProc, Dialogs, FileUtil, Forms, Controls,
// codetools
CodeToolManager, DefineTemplates,
BasicCodeTools, CodeToolManager, DefineTemplates,
// IDEIntf
SrcEditorIntf, ProjectIntf, MacroIntf, IDEDialogs, IDEExternToolIntf,
LazIDEIntf,
@ -156,13 +156,14 @@ type
function CompareUnitFiles(UnitFile1, UnitFile2: PUnitFile): integer;
begin
Result:=CompareText(UnitFile1^.UnitName,UnitFile2^.UnitName);
Result:=CompareIdentifierPtrs(Pointer(UnitFile1^.UnitName),
Pointer(UnitFile2^.UnitName));
end;
function CompareUnitNameAndUnitFile(UnitName: PChar;
UnitFile: PUnitFile): integer;
begin
Result:=CompareStringPointerI(UnitName,PChar(UnitFile^.UnitName));
Result:=CompareIdentifierPtrs(Pointer(UnitName),Pointer(UnitFile^.UnitName));
end;
{ TBuildManager }
@ -785,6 +786,8 @@ begin
else
continue;
CurUnitName:=ExtractFilenameOnly(FileInfo.Name);
if (CurUnitName='') or (not IsValidIdent(CurUnitName)) then
continue;
CurFilename:=CurDir+FileInfo.Name;
// check if unit already found
ANode:=CurUnitTree.FindKey(PChar(CurUnitName),
@ -981,11 +984,11 @@ function TBuildManager.MacroFuncProject(const Param: string; const Data: PtrInt;
var Abort: boolean): string;
begin
if Project1<>nil then begin
if CompareText(Param,'SrcPath')=0 then
if SysUtils.CompareText(Param,'SrcPath')=0 then
Result:=Project1.CompilerOptions.GetSrcPath(false)
else if CompareText(Param,'IncPath')=0 then
else if SysUtils.CompareText(Param,'IncPath')=0 then
Result:=Project1.CompilerOptions.GetIncludePath(false)
else if CompareText(Param,'UnitPath')=0 then
else if SysUtils.CompareText(Param,'UnitPath')=0 then
Result:=Project1.CompilerOptions.GetUnitPath(false)
else begin
Result:='<Invalid parameter for macro Project:'+Param+'>';