| 1 | // SPDX-License-Identifier: GPL-2.0-only |
|---|
| 2 | /* |
|---|
| 3 | * Copyright 2015, Michael Neuling, IBM Corp. |
|---|
| 4 | * |
|---|
| 5 | * Original: Michael Neuling 4/12/2013 |
|---|
| 6 | * Edited: Rashmica Gupta 4/12/2015 |
|---|
| 7 | * |
|---|
| 8 | * See if the altivec state is leaked out of an aborted transaction due to |
|---|
| 9 | * kernel vmx copy loops. |
|---|
| 10 | * |
|---|
| 11 | * When the transaction aborts, VSR values should rollback to the values |
|---|
| 12 | * they held before the transaction commenced. Using VSRs while transaction |
|---|
| 13 | * is suspended should not affect the checkpointed values. |
|---|
| 14 | * |
|---|
| 15 | * (1) write A to a VSR |
|---|
| 16 | * (2) start transaction |
|---|
| 17 | * (3) suspend transaction |
|---|
| 18 | * (4) change the VSR to B |
|---|
| 19 | * (5) trigger kernel vmx copy loop |
|---|
| 20 | * (6) abort transaction |
|---|
| 21 | * (7) check that the VSR value is A |
|---|
| 22 | */ |
|---|
| 23 | |
|---|
| 24 | #include <inttypes.h> |
|---|
| 25 | #include <stdio.h> |
|---|
| 26 | #include <stdlib.h> |
|---|
| 27 | #include <unistd.h> |
|---|
| 28 | #include <sys/mman.h> |
|---|
| 29 | #include <string.h> |
|---|
| 30 | #include <assert.h> |
|---|
| 31 | |
|---|
| 32 | #include "tm.h" |
|---|
| 33 | #include "utils.h" |
|---|
| 34 | |
|---|
| 35 | int test_vmxcopy() |
|---|
| 36 | { |
|---|
| 37 | long double vecin = 1.3; |
|---|
| 38 | long double vecout; |
|---|
| 39 | unsigned long pgsize = getpagesize(); |
|---|
| 40 | int i; |
|---|
| 41 | int fd; |
|---|
| 42 | int size = pgsize*16; |
|---|
| 43 | char tmpfile[] = "/tmp/page_faultXXXXXX" ; |
|---|
| 44 | char buf[pgsize]; |
|---|
| 45 | char *a; |
|---|
| 46 | uint64_t aborted = 0; |
|---|
| 47 | |
|---|
| 48 | SKIP_IF(!have_htm()); |
|---|
| 49 | SKIP_IF(htm_is_synthetic()); |
|---|
| 50 | SKIP_IF(!is_ppc64le()); |
|---|
| 51 | |
|---|
| 52 | fd = mkstemp(tmpfile); |
|---|
| 53 | assert(fd >= 0); |
|---|
| 54 | |
|---|
| 55 | memset(buf, 0, pgsize); |
|---|
| 56 | for (i = 0; i < size; i += pgsize) |
|---|
| 57 | assert(write(fd, buf, pgsize) == pgsize); |
|---|
| 58 | |
|---|
| 59 | unlink(tmpfile); |
|---|
| 60 | |
|---|
| 61 | a = mmap(NULL, size, PROT_READ|PROT_WRITE, MAP_PRIVATE, fd, 0); |
|---|
| 62 | assert(a != MAP_FAILED); |
|---|
| 63 | |
|---|
| 64 | asm __volatile__( |
|---|
| 65 | "lxvd2x 40,0,%[vecinptr];" /* set 40 to initial value*/ |
|---|
| 66 | "tbegin.;" |
|---|
| 67 | "beq 3f;" |
|---|
| 68 | "tsuspend.;" |
|---|
| 69 | "xxlxor 40,40,40;" /* set 40 to 0 */ |
|---|
| 70 | "std 5, 0(%[map]);" /* cause kernel vmx copy page */ |
|---|
| 71 | "tabort. 0;" |
|---|
| 72 | "tresume.;" |
|---|
| 73 | "tend.;" |
|---|
| 74 | "li %[res], 0;" |
|---|
| 75 | "b 5f;" |
|---|
| 76 | |
|---|
| 77 | /* Abort handler */ |
|---|
| 78 | "3:;" |
|---|
| 79 | "li %[res], 1;" |
|---|
| 80 | |
|---|
| 81 | "5:;" |
|---|
| 82 | "stxvd2x 40,0,%[vecoutptr];" |
|---|
| 83 | : [res]"=&r" (aborted) |
|---|
| 84 | : [vecinptr]"r" (&vecin), |
|---|
| 85 | [vecoutptr]"r" (&vecout), |
|---|
| 86 | [map]"r" (a) |
|---|
| 87 | : "memory" , "r0" , "r3" , "r4" , "r5" , "r6" , "r7" ); |
|---|
| 88 | |
|---|
| 89 | if (aborted && (vecin != vecout)){ |
|---|
| 90 | printf("FAILED: vector state leaked on abort %f != %f\n" , |
|---|
| 91 | (double)vecin, (double)vecout); |
|---|
| 92 | return 1; |
|---|
| 93 | } |
|---|
| 94 | |
|---|
| 95 | munmap(a, size); |
|---|
| 96 | |
|---|
| 97 | close(fd); |
|---|
| 98 | |
|---|
| 99 | return 0; |
|---|
| 100 | } |
|---|
| 101 | |
|---|
| 102 | int main(void) |
|---|
| 103 | { |
|---|
| 104 | return test_harness(test_vmxcopy, "tm_vmxcopy" ); |
|---|
| 105 | } |
|---|
| 106 | |
|---|
