blob: 239bc5e3201d87f3f91068d10b34ccc280e5f9a2 [file] [log] [blame]
/* SPDX-License-Identifier: GPL-2.0-only */
/*
* Copyright (c) 2017 Red Hat Inc
*
* Authors:
* Thomas Huth <thuth@redhat.com>
* David Hildenbrand <david@redhat.com>
*/
#include <libcflat.h>
#include <util.h>
#include <alloc.h>
#include <asm/interrupt.h>
#include <asm/barrier.h>
#include <asm/pgtable.h>
static void test_fp(void)
{
double a = 3.0;
double b = 2.0;
double c;
asm volatile(
" ddb %1, %2\n"
" std %1, %0\n"
: "=m" (c) : "f" (a), "m" (b));
report(c == 1.5, "3.0/2.0 == 1.5");
}
static void test_pgm_int(void)
{
expect_pgm_int();
asm volatile(" .insn e,0x0000"); /* used for SW breakpoints in QEMU */
check_pgm_int_code(PGM_INT_CODE_OPERATION);
expect_pgm_int();
asm volatile(" stg %0,0(%0)\n" : : "a"(-1L));
check_pgm_int_code(PGM_INT_CODE_ADDRESSING);
}
static void test_malloc(void)
{
int *tmp, *tmp2;
report_prefix_push("malloc");
report_prefix_push("ptr_0");
tmp = malloc(sizeof(int));
report((uintptr_t)tmp & 0xf000000000000000ul, "allocated memory");
*tmp = 123456789;
mb();
report(*tmp == 123456789, "wrote allocated memory");
report_prefix_pop();
report_prefix_push("ptr_1");
tmp2 = malloc(sizeof(int));
report((uintptr_t)tmp2 & 0xf000000000000000ul,
"allocated memory");
*tmp2 = 123456789;
mb();
report((*tmp2 == 123456789), "wrote allocated memory");
report_prefix_pop();
report(tmp != tmp2, "allocated memory addresses differ");
expect_pgm_int();
configure_dat(0);
*tmp = 987654321;
configure_dat(1);
check_pgm_int_code(PGM_INT_CODE_ADDRESSING);
free(tmp);
free(tmp2);
report_prefix_pop();
}
int main(int argc, char**argv)
{
report_prefix_push("selftest");
report_pass("true");
report(argc == 3, "argc == 3");
report(!strcmp(argv[0], "s390x/selftest.elf"), "argv[0] == PROGNAME");
report(!strcmp(argv[1], "test"), "argv[1] == test");
report(!strcmp(argv[2], "123"), "argv[2] == 123");
setup_vm();
test_fp();
test_pgm_int();
test_malloc();
return report_summary();
}