qemu/tests/tcg/s390x/pack.c

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

22 lines
469 B
C
Raw Normal View History

#include <unistd.h>
int main(void)
{
char data[] = {0xaa, 0xaa, 0xf1, 0xf2, 0xf3, 0xc4, 0xaa, 0xaa};
char exp[] = {0xaa, 0xaa, 0x00, 0x01, 0x23, 0x4c, 0xaa, 0xaa};
int i;
asm volatile(
" pack 2(4,%[data]),2(4,%[data])\n"
:
: [data] "a" (&data[0])
: "memory");
for (i = 0; i < 8; i++) {
if (data[i] != exp[i]) {
write(1, "bad data\n", 9);
return 1;
}
}
return 0;
}