paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix overflow in initialization of return value

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-25 19:56:03 +01:00
parent 91284ba543
commit 8527cb17f8
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/typinfo.pp
View File

@ -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];