* zero allocated memory for usage as dynamic type

git-svn-id: trunk@5631 -

rtl/objpas/fgl.pp

@@ -249,11 +249,12 @@ end;
 
 procedure TFPSList.SetCapacity(NewCapacity: Integer);
 begin
-  If (NewCapacity < FCount) or (NewCapacity > MaxListSize) then
-     Error (SListCapacityError, NewCapacity);
+  if (NewCapacity < FCount) or (NewCapacity > MaxListSize) then
+    Error(SListCapacityError, NewCapacity);
   if NewCapacity = FCapacity then
     exit;
   ReallocMem(FList, (NewCapacity+1) * FItemSize);
+  FillChar(InternalItems[FCapacity]^, (NewCapacity+1-FCapacity) * FItemSize, #0);
   FCapacity := NewCapacity;
 end;