Explorar o código

* Fix overflow in initialization of return value

Michaël Van Canneyt hai 1 ano
pai
achega
8527cb17f8
Modificáronse 1 ficheiros con 0 adicións e 2 borrados
  1. 0 2
      rtl/objpas/typinfo.pp

+ 0 - 2
rtl/objpas/typinfo.pp

@@ -2265,8 +2265,6 @@ begin
   if aRecord=Nil then exit;
   FieldTable:=aRecord^.ExtendedFields;
   if FieldTable=Nil then exit;
-  if FieldList<>Nil then
-    FillChar(FieldList^[Result],FieldTable^.FieldCount*sizeof(Pointer),0);
   For I:=0 to FieldTable^.FieldCount-1 do
     begin
     FieldEntry:=FieldTable^.Field[i];