소스 검색

* Fix overflow in initialization of return value

Michaël Van Canneyt 1 년 전
부모
커밋
8527cb17f8
1개의 변경된 파일0개의 추가작업 그리고 2개의 파일을 삭제
  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];