93 lines
2.0 KiB
C
93 lines
2.0 KiB
C
// SPDX-License-Identifier: GPL-2.0-only
|
|
/*
|
|
* Copyright 2015, Michael Neuling, IBM Corp.
|
|
* Original: Michael Neuling 19/7/2013
|
|
* Edited: Rashmica Gupta 01/12/2015
|
|
*
|
|
* Do some transactions, see if the tar is corrupted.
|
|
* If the transaction is aborted, the TAR should be rolled back to the
|
|
* checkpointed value before the transaction began. The value written to
|
|
* TAR in suspended mode should only remain in TAR if the transaction
|
|
* completes.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <string.h>
|
|
|
|
#include "tm.h"
|
|
#include "utils.h"
|
|
|
|
int num_loops = 10000;
|
|
|
|
int test_tar(void)
|
|
{
|
|
int i;
|
|
|
|
SKIP_IF(!have_htm());
|
|
SKIP_IF(htm_is_synthetic());
|
|
SKIP_IF(!is_ppc64le());
|
|
|
|
for (i = 0; i < num_loops; i++)
|
|
{
|
|
uint64_t result = 0;
|
|
asm __volatile__(
|
|
"li 7, 1;"
|
|
"mtspr %[tar], 7;" /* tar = 1 */
|
|
"tbegin.;"
|
|
"beq 3f;"
|
|
"li 4, 0x7000;" /* Loop lots, to use time */
|
|
"2:;" /* Start loop */
|
|
"li 7, 2;"
|
|
"mtspr %[tar], 7;" /* tar = 2 */
|
|
"tsuspend.;"
|
|
"li 7, 3;"
|
|
"mtspr %[tar], 7;" /* tar = 3 */
|
|
"tresume.;"
|
|
"subi 4, 4, 1;"
|
|
"cmpdi 4, 0;"
|
|
"bne 2b;"
|
|
"tend.;"
|
|
|
|
/* Transaction sucess! TAR should be 3 */
|
|
"mfspr 7, %[tar];"
|
|
"ori %[res], 7, 4;" // res = 3|4 = 7
|
|
"b 4f;"
|
|
|
|
/* Abort handler. TAR should be rolled back to 1 */
|
|
"3:;"
|
|
"mfspr 7, %[tar];"
|
|
"ori %[res], 7, 8;" // res = 1|8 = 9
|
|
"4:;"
|
|
|
|
: [res]"=r"(result)
|
|
: [tar]"i"(SPRN_TAR)
|
|
: "memory", "r0", "r4", "r7");
|
|
|
|
/* If result is anything else other than 7 or 9, the tar
|
|
* value must have been corrupted. */
|
|
if ((result != 7) && (result != 9))
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
/* A low number of iterations (eg 100) can cause a false pass */
|
|
if (argc > 1) {
|
|
if (strcmp(argv[1], "-h") == 0) {
|
|
printf("Syntax:\n\t%s [<num loops>]\n",
|
|
argv[0]);
|
|
return 1;
|
|
} else {
|
|
num_loops = atoi(argv[1]);
|
|
}
|
|
}
|
|
|
|
printf("Starting, %d loops\n", num_loops);
|
|
|
|
return test_harness(test_tar, "tm_tar");
|
|
}
|