/*
* Check decoding of s390_guarded_storage syscall.
*
* Copyright (c) 2018 The strace developers.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "tests.h"
#include <asm/unistd.h>
#if defined __NR_s390_guarded_storage && defined HAVE_ASM_GUARDED_STORAGE_H
# include <inttypes.h>
# include <stdbool.h>
# include <stdint.h>
# include <stdio.h>
# include <unistd.h>
# include <asm/guarded_storage.h>
# ifndef VERBOSE
# define VERBOSE 0
# endif
static void
gs_no_arg(kernel_ulong_t val, const char *val_str)
{
static const kernel_ulong_t bogus_addr =
(kernel_ulong_t) 0xcaffeedadeadbed5ULL;
static const kernel_ulong_t bogus_cmd_mask =
(kernel_ulong_t) 0xbadc0ded00000000ULL;
long rc;
rc = syscall(__NR_s390_guarded_storage, val | bogus_cmd_mask,
bogus_addr);
printf("s390_guarded_storage(%s) = %s\n", val_str, sprintrc(rc));
}
static void
gs_print_epl(uint64_t addr, bool valid, const char *str)
{
if (!valid) {
if (str)
printf("%s", str);
else
printf("%#" PRIx64, addr);
return;
}
struct gs_epl *gsepl = (struct gs_epl *) (uintptr_t) addr;
printf("[{");
# if VERBOSE
if (gsepl->pad1)
printf("pad1=%#02x, ", gsepl->pad1);
printf("gs_eam=%#02x /* extended addressing mode: %u, "
"basic addressing mode: %u */"
", gs_eci=%#02x /* CPU in TX: %u, CPU in CX: %u, "
"instruction: %s */"
", gs_eai=%#02x /* DAT: %u, address space indication: %u, "
"AR number: %u */, ",
gsepl->gs_eam, gsepl->e, gsepl->b,
gsepl->gs_eci, gsepl->tx, gsepl->cx,
gsepl->in ? "LLGFGS": "LGG",
gsepl->gs_eai, gsepl->t, gsepl->as, gsepl->ar);
if (gsepl->pad2)
printf("pad2=%#08x, ", gsepl->pad2);
# endif /* VERBOSE */
printf("gs_eha=%#llx, ", (unsigned long long) gsepl->gs_eha);
# if VERBOSE
printf("gs_eia=%#llx, gs_eoa=%#llx, gs_eir=%#llx, gs_era=%#llx",
(unsigned long long) gsepl->gs_eia,
(unsigned long long) gsepl->gs_eoa,
(unsigned long long) gsepl->gs_eir,
(unsigned long long) gsepl->gs_era);
# else /* !VERBOSE */
printf("...");
# endif /* VERBOSE */
printf("}]");
}
static void
gs_set_cb(kernel_ulong_t addr, bool valid, bool epl_valid,
const char *bc_str, const char *epl_str)
{
static const kernel_ulong_t bogus_cmd_mask =
(kernel_ulong_t) 0xda7a105700000000ULL;
long rc;
printf("s390_guarded_storage(GS_SET_BC_CB, ");
if (valid) {
struct gs_cb *gscb = (struct gs_cb *) (uintptr_t) addr;
printf("{");
if (gscb->reserved)
printf("reserved=%#016llx, ",
(unsigned long long) gscb->reserved);
printf("gsd=%#16llx",
(unsigned long long) gscb->gsd);
# if VERBOSE
printf(" /* GS origin: ");
unsigned int gsc = gscb->gsd & 0x3F;
unsigned int gls = (gscb->gsd >> 8) & 7;
bool gsc_valid = gsc >= 25 && gsc <= 56;
if (gsc_valid) {
uint64_t gls = gscb->gsd >> gsc;
int field_size = 2 + (67 - gsc) / 4;
printf("%#0*" PRIx64, field_size, gls);
} else {
printf("[invalid]");
}
printf(", guard load shift: %u, GS characteristic: %u */",
gls, gsc);
# endif /* VERBOSE */
printf(", gssm=%#016llx, gs_epl_a=",
(unsigned long long) gscb->gssm);
gs_print_epl(gscb->gs_epl_a, epl_valid, epl_str);
printf("}");
} else {
if (bc_str)
printf("%s", bc_str);
else
printf("%#llx", (unsigned long long) addr);
}
rc = syscall(__NR_s390_guarded_storage,
GS_SET_BC_CB | bogus_cmd_mask, addr);
printf(") = %s\n", sprintrc(rc));
}
int
main(void)
{
static const kernel_ulong_t bogus_cmd =
(kernel_ulong_t) 0xdeafbeefdeadc0deULL;
static const kernel_ulong_t bogus_addr =
(kernel_ulong_t) 0xfacefeedac0ffeedULL;
struct gs_cb *gscb = tail_alloc(sizeof(*gscb));
struct gs_epl *gsepl = tail_alloc(sizeof(*gsepl));
long rc;
rc = syscall(__NR_s390_guarded_storage, 5, 0);
printf("s390_guarded_storage(0x5 /* GS_??? */, NULL) = %s\n",
sprintrc(rc));
rc = syscall(__NR_s390_guarded_storage, bogus_cmd, bogus_addr);
printf("s390_guarded_storage(%#x /* GS_??? */, %#lx) = %s\n",
(unsigned) bogus_cmd, (unsigned long) bogus_addr, sprintrc(rc));
gs_no_arg(ARG_STR(GS_BROADCAST));
gs_no_arg(ARG_STR(GS_CLEAR_BC_CB));
gs_no_arg(ARG_STR(GS_DISABLE));
gs_no_arg(ARG_STR(GS_ENABLE));
fill_memory(gscb, sizeof(*gscb));
fill_memory_ex(gsepl, sizeof(*gsepl), 0xA5, 0x5A);
gs_set_cb(0, false, false, "NULL", NULL);
gs_set_cb((uintptr_t) (gscb + 1), false, false, NULL, NULL);
gscb->gs_epl_a = 0;
gs_set_cb((uintptr_t) gscb, true, false, NULL, "NULL");
fill_memory_ex(gscb, sizeof(*gscb), 0x5A, 0xA5);
gscb->gs_epl_a = (uintptr_t) (gsepl + 1) |
(sizeof(kernel_ulong_t) < sizeof(uint64_t) ?
0xc0debad000000000ULL : 0);
gs_set_cb((uintptr_t) gscb, true, false, NULL, NULL);
fill_memory_ex(gscb, sizeof(*gscb), 0xA7, 0xA5);
gscb->gs_epl_a = (uintptr_t) gsepl;
gs_set_cb((uintptr_t) gscb, true, true, NULL, NULL);
fill_memory_ex(gscb, sizeof(*gscb), 0x55, 0xAA);
fill_memory_ex(gsepl, sizeof(*gsepl), 0x5A, 0xA5);
gscb->gs_epl_a = (uintptr_t) gsepl;
gs_set_cb((uintptr_t) gscb, true, true, NULL, NULL);
puts("+++ exited with 0 +++");
return 0;
}
#else
SKIP_MAIN_UNDEFINED("__NR_s390_guarded_storage && HAVE_ASM_GUARDED_STORAGE_H")
#endif