mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 12:03:45 +02:00
16 lines
270 B
ObjectPascal
16 lines
270 B
ObjectPascal
{ bug for shrd assemblerreader }
|
|
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.
|