* high(fdata) can be -1 for empty array -> loopcounter signed, patch by

   Bernd Kreuss mantis #39179

git-svn-id: trunk@49584 -

packages/fcl-stl/src/gdeque.pp

@@ -213,7 +213,7 @@ end;
 
 procedure TDeque.ClearData;
 var
-  i: SizeUint;
+  i: SizeInt;
 begin
   if IsManagedType(T) then
     for i := Low(FData) to High(FData) do