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

cutils: also use minalign, when varalign equals it, not only when varalign is less than it (21 years old bug?)

Browse Source
This commit is contained in:
Karoly Balogh 2022-04-29 23:45:37 +02:00
parent 5d97ff43fa
commit 74ab27ae47
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/cutils.pas
View File

@ -467,7 +467,7 @@ implementation
minalign : Minimum alignment of this structure, 0 = undefined minalign : Minimum alignment of this structure, 0 = undefined
maxalign : Maximum alignment of this structure, 0 = undefined } maxalign : Maximum alignment of this structure, 0 = undefined }
if (minalign>0) and if (minalign>0) and
(varalign<minalign) then (varalign<=minalign) then
used_align:=minalign used_align:=minalign
else else
begin begin