mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
24 lines
616 B
ObjectPascal
24 lines
616 B
ObjectPascal
{ %NORUN }
|
|
{ %CPU=i386,x86_64 }
|
|
|
|
program tw40390;
|
|
|
|
{$asmmode att}
|
|
procedure SetMiddleTo5(p: pointer; n: SizeUint); {$ifdef cpu386}register;{$endif} assembler; nostackframe;
|
|
asm
|
|
{$ifdef cpu386}
|
|
shrl $1, n // becomes “shrq $1, %rdx” (Win64) or “shrq $1, %rsi” (System V)
|
|
movb $5, (p,n) // Invalid reference syntax.
|
|
movb $5, (%edx,n)
|
|
movb $5, (p,%edx)
|
|
{$elseif defined(cpux86_64)}
|
|
shrq $1, n // becomes “shrq $1, %rdx” (Win64) or “shrq $1, %rsi” (System V)
|
|
movb $5, (p,n) // Invalid reference syntax.
|
|
movb $5, (%rdx,n)
|
|
movb $5, (p,%rdx)
|
|
{$endif}
|
|
end;
|
|
|
|
begin
|
|
end.
|