[Jcl-checkins-diff] SF.net SVN: jcl:[3881] trunk/jcl/source/common/JclSimpleXml.pas

[<ou...@us...>]

Revision: 3881
          http://jcl.svn.sourceforge.net/jcl/?rev=3881&view=rev
Author:   outchy
Date:     2012-10-28 16:10:45 +0000 (Sun, 28 Oct 2012)
Log Message:
-----------
Mantis 5991: guard Exchange call against I=J condition

Modified Paths:
--------------
    trunk/jcl/source/common/JclSimpleXml.pas

Modified: trunk/jcl/source/common/JclSimpleXml.pas
===================================================================
--- trunk/jcl/source/common/JclSimpleXml.pas	2012-10-28 15:50:32 UTC (rev 3880)
+++ trunk/jcl/source/common/JclSimpleXml.pas	2012-10-28 16:10:45 UTC (rev 3881)
@@ -2615,11 +2615,17 @@
         Inc(I);
       while AFunction(Elems, J, M) > 0 do
         Dec(J);
-      if I <= J then
+      if I < J then
       begin
         List.Exchange(I, J);
         Inc(I);
         Dec(J);
+      end
+      else
+      if I = J then
+      begin
+        Inc(I);
+        Dec(J);
       end;
     until I > J;
     if L < J then

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.