Browse Source

* Fix overflow in initialization of return value

Michaël Van Canneyt 1 year ago
parent
commit
8527cb17f8
1 changed files with 0 additions and 2 deletions
  1. 0 2
      rtl/objpas/typinfo.pp

+ 0 - 2
rtl/objpas/typinfo.pp

@@ -2265,8 +2265,6 @@ begin
   if aRecord=Nil then exit;
   if aRecord=Nil then exit;
   FieldTable:=aRecord^.ExtendedFields;
   FieldTable:=aRecord^.ExtendedFields;
   if FieldTable=Nil then exit;
   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
   For I:=0 to FieldTable^.FieldCount-1 do
     begin
     begin
     FieldEntry:=FieldTable^.Field[i];
     FieldEntry:=FieldTable^.Field[i];