mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
52722b2cab
* disable COMMON symbol code, it might be needed again for ELF package
support (.comm for ELF supports alignment)
git-svn-id: trunk@10549 -
46 lines
756 B
ObjectPascal
46 lines
756 B
ObjectPascal
{ %opt=-Xe }
|
|
{ %target=win32,win64 }
|
|
|
|
{$packrecords 16}
|
|
{$codealign varmin=16}
|
|
{$codealign localmin=16}
|
|
|
|
type
|
|
rec=record
|
|
v:array[0..511] of byte;
|
|
end;
|
|
|
|
var
|
|
a,b:longword;
|
|
x:rec;
|
|
y: longword;
|
|
|
|
begin
|
|
a:=b;
|
|
y:=1;
|
|
writeln(hexstr(@a));
|
|
if ptruint(@a) and $f<>0 then
|
|
begin
|
|
writeln('ERROR in alignment of a');
|
|
halt(1);
|
|
end;
|
|
writeln(hexstr(@b));
|
|
if ptruint(@b) and $f<>0 then
|
|
begin
|
|
writeln('ERROR in alignment of b');
|
|
halt(1);
|
|
end;
|
|
writeln(hexstr(@x));
|
|
if ptruint(@x) and $f<>0 then
|
|
begin
|
|
writeln('ERROR in alignment of x');
|
|
halt(1);
|
|
end;
|
|
writeln(hexstr(@y));
|
|
if ptruint(@y) and $f<>0 then
|
|
begin
|
|
writeln('ERROR in alignment of y');
|
|
halt(1);
|
|
end;
|
|
end.
|