Pārlūkot izejas kodu

* Fix overflow in initialization of return value

Michaël Van Canneyt 1 gadu atpakaļ
vecāks
revīzija
8527cb17f8
1 mainītis faili ar 0 papildinājumiem un 2 dzēšanām
  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];