mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
21 lines
268 B
ObjectPascal
21 lines
268 B
ObjectPascal
{ %CPU=i386 }
|
|
{ %TARGET=go32v2,win32,linux,haiku }
|
|
{ %NOTE=This test requires an installed Nasm }
|
|
{ %OPT=-Cg- }
|
|
|
|
{$ASMMODE INTEL}
|
|
var
|
|
q:qword;
|
|
|
|
begin
|
|
asm
|
|
paddb mm0,q
|
|
paddw mm0,q
|
|
paddd mm0,q
|
|
paddusb mm0,q
|
|
paddusw mm0,q
|
|
paddsb mm0,q
|
|
paddsw mm0,q
|
|
end;
|
|
end.
|