1 | // SPDX-License-Identifier: GPL-2.0-only |
2 | /* |
3 | * Copyright 2015, Michael Neuling, IBM Corp. |
4 | * Original: Michael Neuling 19/7/2013 |
5 | * Edited: Rashmica Gupta 01/12/2015 |
6 | * |
7 | * Do some transactions, see if the tar is corrupted. |
8 | * If the transaction is aborted, the TAR should be rolled back to the |
9 | * checkpointed value before the transaction began. The value written to |
10 | * TAR in suspended mode should only remain in TAR if the transaction |
11 | * completes. |
12 | */ |
13 | |
14 | #include <stdio.h> |
15 | #include <stdlib.h> |
16 | #include <unistd.h> |
17 | #include <string.h> |
18 | |
19 | #include "tm.h" |
20 | #include "utils.h" |
21 | |
22 | int num_loops = 10000; |
23 | |
24 | int test_tar(void) |
25 | { |
26 | int i; |
27 | |
28 | SKIP_IF(!have_htm()); |
29 | SKIP_IF(htm_is_synthetic()); |
30 | SKIP_IF(!is_ppc64le()); |
31 | |
32 | for (i = 0; i < num_loops; i++) |
33 | { |
34 | uint64_t result = 0; |
35 | asm __volatile__( |
36 | "li 7, 1;" |
37 | "mtspr %[tar], 7;" /* tar = 1 */ |
38 | "tbegin.;" |
39 | "beq 3f;" |
40 | "li 4, 0x7000;" /* Loop lots, to use time */ |
41 | "2:;" /* Start loop */ |
42 | "li 7, 2;" |
43 | "mtspr %[tar], 7;" /* tar = 2 */ |
44 | "tsuspend.;" |
45 | "li 7, 3;" |
46 | "mtspr %[tar], 7;" /* tar = 3 */ |
47 | "tresume.;" |
48 | "subi 4, 4, 1;" |
49 | "cmpdi 4, 0;" |
50 | "bne 2b;" |
51 | "tend.;" |
52 | |
53 | /* Transaction sucess! TAR should be 3 */ |
54 | "mfspr 7, %[tar];" |
55 | "ori %[res], 7, 4;" // res = 3|4 = 7 |
56 | "b 4f;" |
57 | |
58 | /* Abort handler. TAR should be rolled back to 1 */ |
59 | "3:;" |
60 | "mfspr 7, %[tar];" |
61 | "ori %[res], 7, 8;" // res = 1|8 = 9 |
62 | "4:;" |
63 | |
64 | : [res]"=r" (result) |
65 | : [tar]"i" (SPRN_TAR) |
66 | : "memory" , "r0" , "r4" , "r7" ); |
67 | |
68 | /* If result is anything else other than 7 or 9, the tar |
69 | * value must have been corrupted. */ |
70 | if ((result != 7) && (result != 9)) |
71 | return 1; |
72 | } |
73 | return 0; |
74 | } |
75 | |
76 | int main(int argc, char *argv[]) |
77 | { |
78 | /* A low number of iterations (eg 100) can cause a false pass */ |
79 | if (argc > 1) { |
80 | if (strcmp(argv[1], "-h" ) == 0) { |
81 | printf("Syntax:\n\t%s [<num loops>]\n" , |
82 | argv[0]); |
83 | return 1; |
84 | } else { |
85 | num_loops = atoi(argv[1]); |
86 | } |
87 | } |
88 | |
89 | printf("Starting, %d loops\n" , num_loops); |
90 | |
91 | return test_harness(test_tar, "tm_tar" ); |
92 | } |
93 | |