1/*
2 * Check decoding of s390_guarded_storage syscall.
3 *
4 * Copyright (c) 2018 The strace developers.
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 *    notice, this list of conditions and the following disclaimer in the
14 *    documentation and/or other materials provided with the distribution.
15 * 3. The name of the author may not be used to endorse or promote products
16 *    derived from this software without specific prior written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
23 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28 */
29
30#include "tests.h"
31#include <asm/unistd.h>
32
33#if defined __NR_s390_guarded_storage && defined HAVE_ASM_GUARDED_STORAGE_H
34
35# include <inttypes.h>
36# include <stdbool.h>
37# include <stdint.h>
38# include <stdio.h>
39# include <unistd.h>
40
41# include <asm/guarded_storage.h>
42
43# ifndef VERBOSE
44#  define VERBOSE 0
45# endif
46
47static void
48gs_no_arg(kernel_ulong_t val, const char *val_str)
49{
50	static const kernel_ulong_t bogus_addr =
51		(kernel_ulong_t) 0xcaffeedadeadbed5ULL;
52	static const kernel_ulong_t bogus_cmd_mask =
53		(kernel_ulong_t) 0xbadc0ded00000000ULL;
54	long rc;
55
56	rc = syscall(__NR_s390_guarded_storage, val | bogus_cmd_mask,
57		     bogus_addr);
58	printf("s390_guarded_storage(%s) = %s\n", val_str, sprintrc(rc));
59}
60
61static void
62gs_print_epl(uint64_t addr, bool valid, const char *str)
63{
64	if (!valid) {
65		if (str)
66			printf("%s", str);
67		else
68			printf("%#" PRIx64, addr);
69
70		return;
71	}
72
73	struct gs_epl *gsepl = (struct gs_epl *) (uintptr_t) addr;
74
75	printf("[{");
76
77# if VERBOSE
78	if (gsepl->pad1)
79		printf("pad1=%#02x, ", gsepl->pad1);
80
81	printf("gs_eam=%#02x /* extended addressing mode: %u, "
82	       "basic addressing mode: %u */"
83	       ", gs_eci=%#02x /* CPU in TX: %u, CPU in CX: %u, "
84	       "instruction: %s */"
85	       ", gs_eai=%#02x /* DAT: %u, address space indication: %u, "
86	       "AR number: %u */, ",
87	       gsepl->gs_eam, gsepl->e, gsepl->b,
88	       gsepl->gs_eci, gsepl->tx, gsepl->cx,
89	       gsepl->in ? "LLGFGS": "LGG",
90	       gsepl->gs_eai, gsepl->t, gsepl->as, gsepl->ar);
91
92	if (gsepl->pad2)
93		printf("pad2=%#08x, ", gsepl->pad2);
94# endif /* VERBOSE */
95
96	printf("gs_eha=%#llx, ", (unsigned long long) gsepl->gs_eha);
97
98# if VERBOSE
99	printf("gs_eia=%#llx, gs_eoa=%#llx, gs_eir=%#llx, gs_era=%#llx",
100	       (unsigned long long) gsepl->gs_eia,
101	       (unsigned long long) gsepl->gs_eoa,
102	       (unsigned long long) gsepl->gs_eir,
103	       (unsigned long long) gsepl->gs_era);
104# else /* !VERBOSE */
105	printf("...");
106# endif /* VERBOSE */
107
108	printf("}]");
109}
110
111static void
112gs_set_cb(kernel_ulong_t addr, bool valid, bool epl_valid,
113	  const char *bc_str, const char *epl_str)
114{
115	static const kernel_ulong_t bogus_cmd_mask =
116		(kernel_ulong_t) 0xda7a105700000000ULL;
117
118	long rc;
119
120	printf("s390_guarded_storage(GS_SET_BC_CB, ");
121
122	if (valid) {
123		struct gs_cb *gscb = (struct gs_cb *) (uintptr_t) addr;
124
125		printf("{");
126
127		if (gscb->reserved)
128			printf("reserved=%#016llx, ",
129			       (unsigned long long) gscb->reserved);
130
131		printf("gsd=%#16llx",
132		       (unsigned long long) gscb->gsd);
133# if VERBOSE
134		printf(" /* GS origin: ");
135
136		unsigned int gsc = gscb->gsd & 0x3F;
137		unsigned int gls = (gscb->gsd >> 8) & 7;
138		bool gsc_valid = gsc >= 25 && gsc <= 56;
139
140		if (gsc_valid) {
141			uint64_t gls = gscb->gsd >> gsc;
142			int field_size = 2 + (67 - gsc) / 4;
143
144			printf("%#0*" PRIx64, field_size, gls);
145		} else {
146			printf("[invalid]");
147		}
148
149		printf(", guard load shift: %u, GS characteristic: %u */",
150		       gls, gsc);
151# endif /* VERBOSE */
152
153		printf(", gssm=%#016llx, gs_epl_a=",
154		       (unsigned long long) gscb->gssm);
155
156		gs_print_epl(gscb->gs_epl_a, epl_valid, epl_str);
157
158		printf("}");
159	} else {
160		if (bc_str)
161			printf("%s", bc_str);
162		else
163			printf("%#llx", (unsigned long long) addr);
164	}
165
166	rc = syscall(__NR_s390_guarded_storage,
167		     GS_SET_BC_CB | bogus_cmd_mask, addr);
168	printf(") = %s\n", sprintrc(rc));
169}
170
171int
172main(void)
173{
174	static const kernel_ulong_t bogus_cmd =
175		(kernel_ulong_t) 0xdeafbeefdeadc0deULL;
176	static const kernel_ulong_t bogus_addr =
177		(kernel_ulong_t) 0xfacefeedac0ffeedULL;
178
179	struct gs_cb *gscb = tail_alloc(sizeof(*gscb));
180	struct gs_epl *gsepl = tail_alloc(sizeof(*gsepl));
181
182	long rc;
183
184	rc = syscall(__NR_s390_guarded_storage, 5, 0);
185	printf("s390_guarded_storage(0x5 /* GS_??? */, NULL) = %s\n",
186	       sprintrc(rc));
187
188	rc = syscall(__NR_s390_guarded_storage, bogus_cmd, bogus_addr);
189	printf("s390_guarded_storage(%#x /* GS_??? */, %#lx) = %s\n",
190	       (unsigned) bogus_cmd, (unsigned long) bogus_addr, sprintrc(rc));
191
192	gs_no_arg(ARG_STR(GS_BROADCAST));
193	gs_no_arg(ARG_STR(GS_CLEAR_BC_CB));
194	gs_no_arg(ARG_STR(GS_DISABLE));
195	gs_no_arg(ARG_STR(GS_ENABLE));
196
197	fill_memory(gscb, sizeof(*gscb));
198	fill_memory_ex(gsepl, sizeof(*gsepl), 0xA5, 0x5A);
199
200	gs_set_cb(0, false, false, "NULL", NULL);
201	gs_set_cb((uintptr_t) (gscb + 1), false, false, NULL, NULL);
202
203	gscb->gs_epl_a = 0;
204	gs_set_cb((uintptr_t) gscb, true, false, NULL, "NULL");
205
206	fill_memory_ex(gscb, sizeof(*gscb), 0x5A, 0xA5);
207	gscb->gs_epl_a = (uintptr_t) (gsepl + 1) |
208		 (sizeof(kernel_ulong_t) < sizeof(uint64_t) ?
209			0xc0debad000000000ULL : 0);
210	gs_set_cb((uintptr_t) gscb, true, false, NULL, NULL);
211
212	fill_memory_ex(gscb, sizeof(*gscb), 0xA7, 0xA5);
213	gscb->gs_epl_a = (uintptr_t) gsepl;
214	gs_set_cb((uintptr_t) gscb, true, true, NULL, NULL);
215
216	fill_memory_ex(gscb, sizeof(*gscb), 0x55, 0xAA);
217	fill_memory_ex(gsepl, sizeof(*gsepl), 0x5A, 0xA5);
218	gscb->gs_epl_a = (uintptr_t) gsepl;
219	gs_set_cb((uintptr_t) gscb, true, true, NULL, NULL);
220
221	puts("+++ exited with 0 +++");
222	return 0;
223}
224
225#else
226
227SKIP_MAIN_UNDEFINED("__NR_s390_guarded_storage && HAVE_ASM_GUARDED_STORAGE_H")
228
229#endif
230