tools/testing/selftests/powerpc/tm/tm-tmspr.c

   1 // SPDX-License-Identifier: GPL-2.0-only
   2 /*
   3  * Copyright 2015, Michael Neuling, IBM Corp.
   4  *
   5  * Original: Michael Neuling 3/4/2014
   6  * Modified: Rashmica Gupta 8/12/2015
   7  *
   8  * Check if any of the Transaction Memory SPRs get corrupted.
   9  * - TFIAR  - stores address of location of transaction failure
  10  * - TFHAR  - stores address of software failure handler (if transaction
  11  *   fails)
  12  * - TEXASR - lots of info about the transacion(s)
  13  *
  14  * (1) create more threads than cpus
  15  * (2) in each thread:
  16  *      (a) set TFIAR and TFHAR a unique value
  17  *      (b) loop for awhile, continually checking to see if
  18  *      either register has been corrupted.
  19  *
  20  * (3) Loop:
  21  *      (a) begin transaction
  22  *      (b) abort transaction
  23  *      (c) check TEXASR to see if FS has been corrupted
  24  */
  25
  26 #define _GNU_SOURCE
  27 #include <stdio.h>
  28 #include <stdlib.h>
  29 #include <unistd.h>
  30 #include <pthread.h>
  31 #include <string.h>
  32
  33 #include "utils.h"
  34 #include "tm.h"
  35
  36 int     num_loops       = 1000000;
  37 int     passed = 1;
  38
  39 void tfiar_tfhar(void *in)
  40 {
  41         unsigned long tfhar, tfhar_rd, tfiar, tfiar_rd;
  42         int i;
  43
  44         /* TFIAR: Last bit has to be high so userspace can read register */
  45         tfiar = ((unsigned long)in) + 1;
  46         tfiar += 2;
  47         mtspr(SPRN_TFIAR, tfiar);
  48
  49         /* TFHAR: Last two bits are reserved */
  50         tfhar = ((unsigned long)in);
  51         tfhar &= ~0x3UL;
  52         tfhar += 4;
  53         mtspr(SPRN_TFHAR, tfhar);
  54
  55         for (i = 0; i < num_loops; i++) {
  56                 tfhar_rd = mfspr(SPRN_TFHAR);
  57                 tfiar_rd = mfspr(SPRN_TFIAR);
  58                 if ( (tfhar != tfhar_rd) || (tfiar != tfiar_rd) ) {
  59                         passed = 0;
  60                         return;
  61                 }
  62         }
  63         return;
  64 }
  65
  66 void texasr(void *in)
  67 {
  68         unsigned long i;
  69         uint64_t result = 0;
  70
  71         for (i = 0; i < num_loops; i++) {
  72                 asm __volatile__(
  73                         "tbegin.;"
  74                         "beq    3f ;"
  75                         "tabort. 0 ;"
  76                         "tend.;"
  77
  78                         /* Abort handler */
  79                         "3: ;"
  80                         ::: "memory");
  81
  82                 /* Check the TEXASR */
  83                 result = mfspr(SPRN_TEXASR);
  84                 if ((result & TEXASR_FS) == 0) {
  85                         passed = 0;
  86                         return;
  87                 }
  88         }
  89         return;
  90 }
  91
  92 int test_tmspr()
  93 {
  94         pthread_t       *thread;
  95         int             thread_num;
  96         unsigned long   i;
  97
  98         SKIP_IF(!have_htm());
  99         SKIP_IF(htm_is_synthetic());
 100
 101         /* To cause some context switching */
 102         thread_num = 10 * sysconf(_SC_NPROCESSORS_ONLN);
 103
 104         thread = malloc(thread_num * sizeof(pthread_t));
 105         if (thread == NULL)
 106                 return EXIT_FAILURE;
 107
 108         /* Test TFIAR and TFHAR */
 109         for (i = 0; i < thread_num; i += 2) {
 110                 if (pthread_create(&thread[i], NULL, (void *)tfiar_tfhar,
 111                                    (void *)i))
 112                         return EXIT_FAILURE;
 113         }
 114         /* Test TEXASR */
 115         for (i = 1; i < thread_num; i += 2) {
 116                 if (pthread_create(&thread[i], NULL, (void *)texasr, (void *)i))
 117                         return EXIT_FAILURE;
 118         }
 119
 120         for (i = 0; i < thread_num; i++) {
 121                 if (pthread_join(thread[i], NULL) != 0)
 122                         return EXIT_FAILURE;
 123         }
 124
 125         free(thread);
 126
 127         if (passed)
 128                 return 0;
 129         else
 130                 return 1;
 131 }
 132
 133 int main(int argc, char *argv[])
 134 {
 135         if (argc > 1) {
 136                 if (strcmp(argv[1], "-h") == 0) {
 137                         printf("Syntax:\t [<num loops>]\n");
 138                         return 0;
 139                 } else {
 140                         num_loops = atoi(argv[1]);
 141                 }
 142         }
 143         return test_harness(test_tmspr, "tm_tmspr");
 144 }