mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
9cc211e88e
implementation for mac68k alignment (mantis #15061) * changed {$align power} from an alias for {$packrecords 4} to an alias for {$packrecords c}, as Power alignment is the default C alignment for PowerPC under Mac OS X (it's close to {$packrecords 4}, but not identical) git-svn-id: trunk@14577 -
38 lines
954 B
ObjectPascal
38 lines
954 B
ObjectPascal
{$ifdef FPC}
|
|
{$mode macpas}
|
|
{$align mac68k}
|
|
{$endif}
|
|
|
|
{$ifdef __GPC__}
|
|
{ maximum-field-alignment=16}
|
|
{$endif}
|
|
|
|
program patbug;
|
|
type
|
|
{$ifdef FPC}
|
|
PtrWord = PtrUInt;
|
|
{$endif}
|
|
pattern = record pat: array[0..7] of byte end;
|
|
patrec = record b: boolean; p: pattern end;
|
|
doublerec = record b: boolean; d: double end;
|
|
var
|
|
gPatRec: patrec;
|
|
gDoubleRec: doublerec;
|
|
begin
|
|
writeln( 'SizeOf( patrec) = ', SizeOf( patrec));
|
|
if (sizeof(patrec)<>10) then
|
|
halt(1);
|
|
writeln( 'Offset of p: pattern = ', PtrWord( @gPatRec.p) - PtrWord( @gPatRec));
|
|
if ((PtrWord( @gPatRec.p) - PtrWord( @gPatRec)) <> 2) then
|
|
halt(2);
|
|
writeln;
|
|
writeln( 'SizeOf( doublerec) = ', SizeOf( doublerec));
|
|
if (sizeof(doublerec)<>10) then
|
|
halt(3);
|
|
writeln( 'Offset of d: double = ', PtrWord( @gDoubleRec.d) - PtrWord( @gDoubleRec));
|
|
if ((PtrWord( @gDoubleRec.d) - PtrWord( @gDoubleRec))<>2) then
|
|
halt(4);
|
|
writeln;
|
|
end.
|
|
|