1 /* 2 * Check decoding of s390_pci_mmio_read and s390_pci_mmio_write syscalls. 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_pci_mmio_read && defined __NR_s390_pci_mmio_write 34 35 # include <errno.h> 36 # include <stdbool.h> 37 # include <stdint.h> 38 # include <stdio.h> 39 # include <unistd.h> 40 41 static void 42 do_call(bool wr, kernel_ulong_t mmio_addr, kernel_ulong_t buf, 43 kernel_ulong_t len, bool buf_valid, const char *buf_str) 44 { 45 long saved_errno = 0; 46 long rc = 0; 47 48 printf("s390_pci_mmio_%s(%#llx, ", wr ? "write" : "read", 49 (unsigned long long) mmio_addr); 50 51 if (!wr) { 52 rc = syscall(__NR_s390_pci_mmio_read, mmio_addr, buf, len); 53 saved_errno = errno; 54 } 55 56 if (buf_valid && !rc) { 57 char *buf_ptr = (char *) (uintptr_t) buf; 58 59 print_quoted_hex(buf_ptr, 60 len > DEFAULT_STRLEN ? DEFAULT_STRLEN : len); 61 62 if (len > DEFAULT_STRLEN) 63 printf("..."); 64 } else { 65 if (buf_str) 66 printf("%s", buf_str); 67 else 68 printf("%#llx", (unsigned long long) buf); 69 } 70 71 printf(", %llu) = ", (unsigned long long) len); 72 73 if (wr) 74 rc = syscall(__NR_s390_pci_mmio_write, mmio_addr, buf, len); 75 else 76 errno = saved_errno; 77 78 puts(sprintrc(rc)); 79 } 80 81 int 82 main(void) 83 { 84 static const size_t buf_size = DEFAULT_STRLEN + 10; 85 86 char *buf = tail_alloc(buf_size); 87 88 bool bools[] = { true, false }; 89 90 kernel_ulong_t addrs[] = { 91 0, 92 (kernel_ulong_t) 0xdeafbeefdeadc0deULL, 93 }; 94 95 struct { 96 kernel_ulong_t buf; 97 const char *str; 98 size_t size; 99 } bufs[] = { 100 { (kernel_ulong_t) ARG_STR(NULL), 0 }, 101 { (kernel_ulong_t) (buf + buf_size), NULL, 0 }, 102 { (kernel_ulong_t) (buf), NULL, buf_size }, 103 { (kernel_ulong_t) (buf + 9), NULL, buf_size - 9 }, 104 { (kernel_ulong_t) (buf + 10), NULL, buf_size - 10 }, 105 { (kernel_ulong_t) (buf + 16), NULL, buf_size - 16 }, 106 { (kernel_ulong_t) (buf + 26), NULL, buf_size - 26 }, 107 { (kernel_ulong_t) (buf + 28), NULL, buf_size - 28 }, 108 }; 109 110 kernel_ulong_t sizes[] = { 111 0, 112 DEFAULT_STRLEN / 2, 113 DEFAULT_STRLEN - 10, 114 DEFAULT_STRLEN, 115 DEFAULT_STRLEN + 1, 116 buf_size, 117 buf_size + 10, 118 (kernel_ulong_t) 0xfacefeedac0ffeedULL, 119 }; 120 121 unsigned int i, j, k, l; 122 unsigned int ctr = 0; 123 124 for (i = 0; i < ARRAY_SIZE(addrs); i++) { 125 for (j = 0; j < ARRAY_SIZE(bufs); j++) { 126 for (k = 0; k < ARRAY_SIZE(sizes); k++) { 127 for (l = 0; l < ARRAY_SIZE(bools); l++) { 128 bool valid = bufs[j].buf && 129 bufs[j].size >= 130 MIN(sizes[k], 131 DEFAULT_STRLEN + 1); 132 133 if (bufs[j].size && bools[l]) 134 fill_memory_ex((char *) buf, 135 bufs[j].size, 136 0xC0 + ctr, 255); 137 138 do_call(bools[l], addrs[i], bufs[j].buf, 139 sizes[k], valid, bufs[j].str); 140 141 ctr++; 142 } 143 } 144 } 145 } 146 147 puts("+++ exited with 0 +++"); 148 return 0; 149 } 150 151 #else 152 153 SKIP_MAIN_UNDEFINED("__NR_s390_pci_mmio_read && __NR_s390_pci_mmio_write"); 154 155 #endif 156