diff --git a/compiler/globals.pas b/compiler/globals.pas index ed5b55dc4e..1639d9ea73 100644 --- a/compiler/globals.pas +++ b/compiler/globals.pas @@ -1069,19 +1069,35 @@ implementation else if tok='LOOP' then b.loopalign:=l else if tok='CONSTMIN' then - b.constalignmin:=l + begin + b.constalignmin:=l; + if l>b.constalignmax then + b.constalignmax:=l; + end else if tok='CONSTMAX' then b.constalignmax:=l else if tok='VARMIN' then - b.varalignmin:=l + begin + b.varalignmin:=l; + if l>b.varalignmax then + b.varalignmax:=l; + end else if tok='VARMAX' then b.varalignmax:=l else if tok='LOCALMIN' then - b.localalignmin:=l + begin + b.localalignmin:=l; + if l>b.localalignmax then + b.localalignmax:=l; + end else if tok='LOCALMAX' then b.localalignmax:=l else if tok='RECORDMIN' then - b.recordalignmin:=l + begin + b.recordalignmin:=l; + if l>b.recordalignmax then + b.recordalignmax:=l; + end else if tok='RECORDMAX' then b.recordalignmax:=l else { Error }