瀏覽代碼

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

git-svn-id: trunk@14842 -
Jonas Maebe 15 年之前
父節點
當前提交
30406d3a14
共有 1 個文件被更改,包括 20 次插入4 次删除
  1. 20 4
      compiler/globals.pas

+ 20 - 4
compiler/globals.pas

@@ -1069,19 +1069,35 @@ implementation
           else if tok='LOOP' then
           else if tok='LOOP' then
            b.loopalign:=l
            b.loopalign:=l
           else if tok='CONSTMIN' then
           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
           else if tok='CONSTMAX' then
            b.constalignmax:=l
            b.constalignmax:=l
           else if tok='VARMIN' then
           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
           else if tok='VARMAX' then
            b.varalignmax:=l
            b.varalignmax:=l
           else if tok='LOCALMIN' then
           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
           else if tok='LOCALMAX' then
            b.localalignmax:=l
            b.localalignmax:=l
           else if tok='RECORDMIN' then
           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
           else if tok='RECORDMAX' then
            b.recordalignmax:=l
            b.recordalignmax:=l
           else { Error }
           else { Error }