paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-26 19:08:26 +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(UnitName);
inc(Filename); inc(Filename);
end; end;
if (UnitName^=#0) and (Filename^='.') then if (UnitName^=#0) then
Result:=0 if (Filename^='.') then
Result:=0
else
Result:=ord('.')-ord(Filename^) // TG 2007-10-21
else else
Result:=ord(FPUpChars[UnitName^])-ord(FPUpChars[Filename^]); Result:=ord(FPUpChars[UnitName^])-ord(FPUpChars[Filename^]);
end; end;