Merged revisions 1489 via svnmerge from

http://[email protected]/svn/fpc/trunk

r1489 (peter)
  * $CodeAlign directive added for fine tuning off alignment during code generation

git-svn-id: branches/fixes_2_0@1518 -

compiler/scandir.pas

@@ -1078,6 +1078,15 @@ implementation
       begin
       end;
 
+    procedure dir_codealign;
+      var
+        s : string;
+      begin
+        current_scanner.skipspace;
+        s:=current_scanner.readcomment;
+        UpdateAlignmentStr(s,aktalignment);
+      end;
+
     procedure dir_codepage;
       var
          s : string;
@@ -1124,6 +1133,7 @@ implementation
         AddDirective('BOOLEVAL',directive_all, @dir_booleval);
         AddDirective('CALLING',directive_all, @dir_calling);
         AddDirective('CHECKPOINTER',directive_all, @dir_checkpointer);
+        AddDirective('CODEALIGN',directive_all, @dir_codealign);
         AddDirective('CODEPAGE',directive_all, @dir_codepage);
         AddDirective('COPERATORS',directive_all, @dir_coperators);
         AddDirective('COPYRIGHT',directive_all, @dir_copyright);