Explorar el Código

* Fix overflow in initialization of return value

Michaël Van Canneyt hace 1 año
padre
commit
8527cb17f8
Se han modificado 1 ficheros con 0 adiciones y 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];