blob: 8c4f7b54768e339889ff3e4915db3560482569b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ %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.
|
