* see also r31267, mantis #28289, change calculation.

git-svn-id: trunk@31381 -

rtl/objpas/fgl.pp

@@ -1257,7 +1257,7 @@ begin
   R := FCount-1;
   while L<=R do
   begin
-    I := (L+R) div 2;
+    I := L + (R - L) div 2;
     Dir := FOnKeyPtrCompare(Items[I], AKey);
     if Dir < 0 then
       L := I+1