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

* if *alignmin is set to a value > *alignmax, also increase *alignmax

Browse Source 
git-svn-id: trunk@14842 -
This commit is contained in:
Jonas Maebe 2010-02-02 10:30:05 +00:00
parent 0cfcd70ad0
commit 30406d3a14
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/globals.pas
View File

@ -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 }