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