mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 21:29:43 +02:00
18 lines
230 B
ObjectPascal
18 lines
230 B
ObjectPascal
{ %fail }
|
|
{$mode objfpc}
|
|
type
|
|
Indirect = class
|
|
hasNoOffsetInMyObj: int32;
|
|
end;
|
|
|
|
PMyObj = ^MyObj;
|
|
MyObj = record
|
|
c: Indirect;
|
|
end;
|
|
|
|
const
|
|
WrongOffset = PtrUint(@PMyObj(nil)^.c.hasNoOffsetInMyObj); // 8 on x64
|
|
|
|
begin
|
|
end.
|