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

   1/*
   2 * Copyright 2015, Michael Neuling, IBM Corp.
   3 * Licensed under GPLv2.
   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
  27#define _GNU_SOURCE
  28#include <stdio.h>
  29#include <stdlib.h>
  30#include <unistd.h>
  31#include <pthread.h>
  32#include <string.h>
  33
  34#include "utils.h"
  35#include "tm.h"
  36
  37int     num_loops       = 10000;
  38int     passed = 1;
  39
  40void tfiar_tfhar(void *in)
  41{
  42        int i, cpu;
  43        unsigned long tfhar, tfhar_rd, tfiar, tfiar_rd;
  44        cpu_set_t cpuset;
  45
  46        CPU_ZERO(&cpuset);
  47        cpu = (unsigned long)in >> 1;
  48        CPU_SET(cpu, &cpuset);
  49        sched_setaffinity(0, sizeof(cpuset), &cpuset);
  50
  51        /* TFIAR: Last bit has to be high so userspace can read register */
  52        tfiar = ((unsigned long)in) + 1;
  53        tfiar += 2;
  54        mtspr(SPRN_TFIAR, tfiar);
  55
  56        /* TFHAR: Last two bits are reserved */
  57        tfhar = ((unsigned long)in);
  58        tfhar &= ~0x3UL;
  59        tfhar += 4;
  60        mtspr(SPRN_TFHAR, tfhar);
  61
  62        for (i = 0; i < num_loops; i++) {
  63                tfhar_rd = mfspr(SPRN_TFHAR);
  64                tfiar_rd = mfspr(SPRN_TFIAR);
  65                if ( (tfhar != tfhar_rd) || (tfiar != tfiar_rd) ) {
  66                        passed = 0;
  67                        return;
  68                }
  69        }
  70        return;
  71}
  72
  73void texasr(void *in)
  74{
  75        unsigned long i;
  76        uint64_t result = 0;
  77
  78        for (i = 0; i < num_loops; i++) {
  79                asm __volatile__(
  80                        "tbegin.;"
  81                        "beq    3f ;"
  82                        "tabort. 0 ;"
  83                        "tend.;"
  84
  85                        /* Abort handler */
  86                        "3: ;"
  87                        ::: "memory");
  88
  89                /* Check the TEXASR */
  90                result = mfspr(SPRN_TEXASR);
  91                if ((result & TEXASR_FS) == 0) {
  92                        passed = 0;
  93                        return;
  94                }
  95        }
  96        return;
  97}
  98
  99int test_tmspr()
 100{
 101        pthread_t       thread;
 102        int             thread_num;
 103        unsigned long   i;
 104
 105        SKIP_IF(!have_htm());
 106
 107        /* To cause some context switching */
 108        thread_num = 10 * sysconf(_SC_NPROCESSORS_ONLN);
 109
 110        /* Test TFIAR and TFHAR */
 111        for (i = 0 ; i < thread_num ; i += 2){
 112                if (pthread_create(&thread, NULL, (void*)tfiar_tfhar, (void *)i))
 113                        return EXIT_FAILURE;
 114        }
 115        if (pthread_join(thread, NULL) != 0)
 116                return EXIT_FAILURE;
 117
 118        /* Test TEXASR */
 119        for (i = 0 ; i < thread_num ; i++){
 120                if (pthread_create(&thread, NULL, (void*)texasr, (void *)i))
 121                        return EXIT_FAILURE;
 122        }
 123        if (pthread_join(thread, NULL) != 0)
 124                return EXIT_FAILURE;
 125
 126        if (passed)
 127                return 0;
 128        else
 129                return 1;
 130}
 131
 132int main(int argc, char *argv[])
 133{
 134        if (argc > 1) {
 135                if (strcmp(argv[1], "-h") == 0) {
 136                        printf("Syntax:\t [<num loops>]\n");
 137                        return 0;
 138                } else {
 139                        num_loops = atoi(argv[1]);
 140                }
 141        }
 142        return test_harness(test_tmspr, "tm_tmspr");
 143}
 144