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

codetools: fixed comparing unitname and filename when filename starts with unitname, but is longer from Tobia Giesen

Browse Source 
git-svn-id: trunk@12542 -
This commit is contained in:
mattias 2007-10-21 08:19:06 +00:00
parent a2c91cf4a1
commit adf0df7012
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/directorycacher.pas
View File

@ -274,8 +274,11 @@ begin
inc(UnitName);
inc(Filename);
end;
if (UnitName^=#0) and (Filename^='.') then
Result:=0
if (UnitName^=#0) then
if (Filename^='.') then
Result:=0
else
Result:=ord('.')-ord(Filename^) // TG 2007-10-21
else
Result:=ord(FPUpChars[UnitName^])-ord(FPUpChars[Filename^]);
end;