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

codetools: fixed CompareAtom for atoms with same prefix, bug #13909

Browse Source 
git-svn-id: trunk@20405 -
This commit is contained in:
mattias 2009-06-04 17:45:42 +00:00
parent 05136fc2e5
commit 40d77dcadc
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/basiccodetools.pas
View File

@ -3440,7 +3440,12 @@ begin
inc(p2);
dec(l);
end;
Result:=0;
if Len1>Len2 then
Result:=1
else if Len1<Len2 then
Result:=-1
else
Result:=0;
end;
function CompareStringConstants(p1, p2: PChar): integer;