mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-18 09:31:30 +02:00
24 lines
257 B
ObjectPascal
24 lines
257 B
ObjectPascal
{ %opt=-Cg- }
|
|
{ %cpu=i386 }
|
|
|
|
program fpcbug;
|
|
|
|
{$asmmode intel}
|
|
|
|
type
|
|
TBla = record
|
|
Bla: Cardinal;
|
|
end;
|
|
|
|
var
|
|
b: tbla;
|
|
begin
|
|
asm
|
|
lea edi, b
|
|
mov eax, $12345678
|
|
mov TBla(edi).&Bla, eax
|
|
end;
|
|
if b.bla<>$12345678 then
|
|
halt(1);
|
|
end.
|