paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 09:09:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for 4264

Browse Source 
git-svn-id: trunk@824 -
This commit is contained in:
marco 2005-08-08 09:02:32 +00:00
parent 4de8e19a68
commit 53dad79aaf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/xml/dom.pp
View File

@ -745,8 +745,8 @@ function CompareDOMStrings(const s1, s2: DOMPChar; l1, l2: integer): integer;
var i: integer;
begin
Result:=l1-l2;
i:=1;
while (i<=l1) and (Result=0) do begin
i:=0;
while (i<l1) and (Result=0) do begin
Result:=ord(s1[i])-ord(s2[i]);
inc(i);
end;