mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 16:03:48 +02:00
23 lines
425 B
ObjectPascal
23 lines
425 B
ObjectPascal
{ %CPU=i386 }
|
|
{ Old file: tbs0123.pp }
|
|
{ Asm, problem with intel assembler (shrd) OK 0.99.11 (PM) }
|
|
|
|
{ bug for shrd assemblerreader }
|
|
begin
|
|
if false then
|
|
begin
|
|
{$asmmode intel}
|
|
asm
|
|
SHRD [ESI-8], EAX, CL
|
|
SHLD EBX,ECX,5
|
|
IMUL ECX,dword [EBP-8],5
|
|
end;
|
|
{$asmmode att}
|
|
asm
|
|
shrdl %cl,%eax,-8(%esi)
|
|
shldl $5,%ecx,%ebx
|
|
imull $5,-8(%ebp),%ecx
|
|
end;
|
|
end;
|
|
end.
|