Explorar o código

+ $codealign directive accepts setting maxcrecord

git-svn-id: trunk@47862 -
florian %!s(int64=4) %!d(string=hai) anos
pai
achega
6169bbeed5
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      compiler/dirparse.pas

+ 2 - 0
compiler/dirparse.pas

@@ -99,6 +99,8 @@ implementation
            end
            end
           else if tok='RECORDMAX' then
           else if tok='RECORDMAX' then
            b.recordalignmax:=l
            b.recordalignmax:=l
+          else if tok='MAXCRECORD' then
+           b.maxCrecordalign:=l
           else { Error }
           else { Error }
            UpdateAlignmentStr:=false;
            UpdateAlignmentStr:=false;
         until false;
         until false;