mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-16 01:46:01 +02:00
20 lines
248 B
ObjectPascal
20 lines
248 B
ObjectPascal
{ %CPU=i386 }
|
|
{ %TARGET=go32v2,win32,linux }
|
|
{ %NOTE=This test requires an installed Nasm }
|
|
|
|
{$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.
|