paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 17:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid range check error in TObjData.writebytes overloads using dynamic arrays

Browse Source
This commit is contained in:
Pierre Muller 2025-03-25 12:09:06 +01:00
parent 754c40cdb0
commit a74a4aca03
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogbase.pas
View File

@ -1728,12 +1728,14 @@ implementation
procedure TObjData.writebytes(const Data: TByteDynArray; len: TObjSectionOfs); procedure TObjData.writebytes(const Data: TByteDynArray; len: TObjSectionOfs);
begin begin
WriteBytes(Data[0],len); if len>0 then
WriteBytes(Data[0],len);
end; end;
procedure TObjData.writebytes(const Data: TAnsiCharDynArray; len: TObjSectionOfs); procedure TObjData.writebytes(const Data: TAnsiCharDynArray; len: TObjSectionOfs);
begin begin
WriteBytes(Data[0],len); if len>0 then
WriteBytes(Data[0],len);
end; end;