* fixes issue 40695

(cherry picked from commit 2273670aad7eff8fe642bb8737ea50e30f24c13c)

packages/fcl-stl/src/gdeque.pp

@@ -218,6 +218,8 @@ procedure TDeque.ClearData;
 var
   i: SizeInt;
 begin
+  if Length(FData)=0 then
+    exit;
   if IsManagedType(T) then
     for i := Low(FData) to High(FData) do
       Finalize(FData[i]);