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

* support A1,A2,A4,A8 directives

Browse Source 
git-svn-id: trunk@1488 -
This commit is contained in:
peter 2005-10-19 05:54:27 +00:00
parent 632bdcd149
commit e23519c45b
3 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6322,6 +6322,7 @@ tests/webtbs/tw4277.pp svneol=native#text/plain
tests/webtbs/tw4290.pp svneol=native#text/plain
tests/webtbs/tw4294.pp svneol=native#text/plain
tests/webtbs/tw4308.pp svneol=native#text/plain
tests/webtbs/tw4330.pp svneol=native#text/plain
tests/webtbs/tw4332.pp svneol=native#text/plain
tests/webtbs/tw4336.pp svneol=native#text/plain
tests/webtbs/tw4350.pp svneol=native#text/plain

24
compiler/scandir.pas
View File

@ -182,6 +182,26 @@ implementation
end;
end;
procedure dir_a1;
begin
aktpackrecords:=1;
end;
procedure dir_a2;
begin
aktpackrecords:=2;
end;
procedure dir_a4;
begin
aktpackrecords:=4;
end;
procedure dir_a8;
begin
aktpackrecords:=8;
end;
procedure dir_asmmode;
var
s : string;
@ -1077,6 +1097,10 @@ implementation
procedure InitScannerDirectives;
begin
AddDirective('A1',directive_all, @dir_a1);
AddDirective('A2',directive_all, @dir_a2);
AddDirective('A4',directive_all, @dir_a4);
AddDirective('A8',directive_all, @dir_a8);
AddDirective('ALIGN',directive_all, @dir_align);
{$ifdef m68k}
AddDirective('APPID',directive_all, @dir_appid);

17
tests/webtbs/tw4330.pp Executable file
View File

@ -0,0 +1,17 @@
{ %opt=-Sew }
{$A+}
{$A-}
{$A1}
{$A2}
{$A4}
{$A8}
{$ALIGN ON}
{$ALIGN OFF}
{$ALIGN 1}
{$ALIGN 2}
{$ALIGN 4}
{$ALIGN 8}
begin
end.