mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 20:08:12 +02:00
17 lines
276 B
ObjectPascal
17 lines
276 B
ObjectPascal
{ %cpu=i386 }
|
|
|
|
{ Source provided for Free Pascal Bug Report 2908 }
|
|
{ Submitted by "marcov (gory bugs department)" on 2004-01-19 }
|
|
{ e-mail: }
|
|
|
|
{$mode delphi}
|
|
procedure p;
|
|
asm
|
|
and [eax],$ff000000
|
|
and [edx + ebx + 3], $0000ffff
|
|
and [edx + 3], $00ffffff
|
|
end;
|
|
|
|
begin
|
|
end.
|