paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 19:28:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

read_record_fields: fix overflows of variant record size variables

Browse Source 
Could happen in case of > 32 bit variant parts, or variant parts at offsets
> 32 bit offsets.

Fixes webtbs/tw9039c with a compiler compiled with -Cr
This commit is contained in:
Jonas Maebe 2022-05-29 13:24:14 +02:00
parent a19deace45
commit 60b0bc5535
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecvar.pas
View File

@ -1679,7 +1679,7 @@ implementation
hdef,casetype : tdef;
{ maxsize contains the max. size of a variant }
{ startvarrec contains the start of the variant part of a record }
maxsize, startvarrecsize : longint;
maxsize, startvarrecsize : asizeint;
usedalign,
maxalignment,startvarrecalign,
maxpadalign, startpadalign: shortint;