paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed some file name compares

Browse Source 
git-svn-id: trunk@28582 -
This commit is contained in:
mattias 2010-12-01 15:28:43 +00:00
parent 0d224cdf73
commit 0083799bb6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/definetemplates.pas
View File

@ -2401,7 +2401,7 @@ var
SrcRule1: TFPCSourceRule absolute Rule1; SrcRule1: TFPCSourceRule absolute Rule1;
SrcRule2: TFPCSourceRule absolute Rule2; SrcRule2: TFPCSourceRule absolute Rule2;
begin begin
Result:=CompareStr(SrcRule1.Filename,SrcRule2.Filename); Result:=CompareFilenames(SrcRule1.Filename,SrcRule2.Filename);
end; end;
function CompareFPCTargetConfigCacheItems(CacheItem1, CacheItem2: Pointer): integer; function CompareFPCTargetConfigCacheItems(CacheItem1, CacheItem2: Pointer): integer;
@ -2421,7 +2421,7 @@ var
Src1: TFPCSourceCache absolute CacheItem1; Src1: TFPCSourceCache absolute CacheItem1;
Src2: TFPCSourceCache absolute CacheItem2; Src2: TFPCSourceCache absolute CacheItem2;
begin begin
Result:=CompareStr(Src1.Directory,Src2.Directory); Result:=CompareFilenames(Src1.Directory,Src2.Directory);
end; end;
function CompareDirectoryWithFPCSourceCacheItem(AString, CacheItem: Pointer function CompareDirectoryWithFPCSourceCacheItem(AString, CacheItem: Pointer
@ -2429,7 +2429,7 @@ function CompareDirectoryWithFPCSourceCacheItem(AString, CacheItem: Pointer
var var
Src: TFPCSourceCache absolute CacheItem; Src: TFPCSourceCache absolute CacheItem;
begin begin
Result:=CompareStr(AnsiString(AString),Src.Directory); Result:=CompareFilenames(AnsiString(AString),Src.Directory);
end; end;
function DefineActionNameToAction(const s: string): TDefineAction; function DefineActionNameToAction(const s: string): TDefineAction;
@ -7041,7 +7041,7 @@ begin
Node:=RulesSortedForFilenameStart.Root; Node:=RulesSortedForFilenameStart.Root;
while true do begin while true do begin
Rule:=TFPCSourceRule(Node.Data); Rule:=TFPCSourceRule(Node.Data);
cmp:=CompareStr(Filename,Rule.Filename); cmp:=CompareFilenames(Filename,Rule.Filename);
//DebugLn(['TFPCSourceRules.GetScore Rule.Filename=',Rule.Filename,' Filename=',Filename,' cmp=',cmp]); //DebugLn(['TFPCSourceRules.GetScore Rule.Filename=',Rule.Filename,' Filename=',Filename,' cmp=',cmp]);
if cmp=0 then if cmp=0 then
break; break;