1*4882a593Smuzhiyun // SPDX-License-Identifier: GPL-2.0-or-later
2*4882a593Smuzhiyun /*
3*4882a593Smuzhiyun * Ptrace test for GPR/FPR registers in TM context
4*4882a593Smuzhiyun *
5*4882a593Smuzhiyun * Copyright (C) 2015 Anshuman Khandual, IBM Corporation.
6*4882a593Smuzhiyun */
7*4882a593Smuzhiyun #include "ptrace.h"
8*4882a593Smuzhiyun #include "ptrace-gpr.h"
9*4882a593Smuzhiyun #include "tm.h"
10*4882a593Smuzhiyun
11*4882a593Smuzhiyun /* Tracer and Tracee Shared Data */
12*4882a593Smuzhiyun int shm_id;
13*4882a593Smuzhiyun unsigned long *cptr, *pptr;
14*4882a593Smuzhiyun
15*4882a593Smuzhiyun float a = FPR_1;
16*4882a593Smuzhiyun float b = FPR_2;
17*4882a593Smuzhiyun float c = FPR_3;
18*4882a593Smuzhiyun
tm_gpr(void)19*4882a593Smuzhiyun void tm_gpr(void)
20*4882a593Smuzhiyun {
21*4882a593Smuzhiyun unsigned long gpr_buf[18];
22*4882a593Smuzhiyun unsigned long result, texasr;
23*4882a593Smuzhiyun float fpr_buf[32];
24*4882a593Smuzhiyun
25*4882a593Smuzhiyun printf("Starting the child\n");
26*4882a593Smuzhiyun cptr = (unsigned long *)shmat(shm_id, NULL, 0);
27*4882a593Smuzhiyun
28*4882a593Smuzhiyun trans:
29*4882a593Smuzhiyun cptr[1] = 0;
30*4882a593Smuzhiyun asm __volatile__(
31*4882a593Smuzhiyun ASM_LOAD_GPR_IMMED(gpr_1)
32*4882a593Smuzhiyun ASM_LOAD_FPR_SINGLE_PRECISION(flt_1)
33*4882a593Smuzhiyun "1: ;"
34*4882a593Smuzhiyun "tbegin.;"
35*4882a593Smuzhiyun "beq 2f;"
36*4882a593Smuzhiyun ASM_LOAD_GPR_IMMED(gpr_2)
37*4882a593Smuzhiyun ASM_LOAD_FPR_SINGLE_PRECISION(flt_2)
38*4882a593Smuzhiyun "tsuspend.;"
39*4882a593Smuzhiyun "li 7, 1;"
40*4882a593Smuzhiyun "stw 7, 0(%[cptr1]);"
41*4882a593Smuzhiyun "tresume.;"
42*4882a593Smuzhiyun "b .;"
43*4882a593Smuzhiyun
44*4882a593Smuzhiyun "tend.;"
45*4882a593Smuzhiyun "li 0, 0;"
46*4882a593Smuzhiyun "ori %[res], 0, 0;"
47*4882a593Smuzhiyun "b 3f;"
48*4882a593Smuzhiyun
49*4882a593Smuzhiyun /* Transaction abort handler */
50*4882a593Smuzhiyun "2: ;"
51*4882a593Smuzhiyun "li 0, 1;"
52*4882a593Smuzhiyun "ori %[res], 0, 0;"
53*4882a593Smuzhiyun "mfspr %[texasr], %[sprn_texasr];"
54*4882a593Smuzhiyun
55*4882a593Smuzhiyun "3: ;"
56*4882a593Smuzhiyun : [res] "=r" (result), [texasr] "=r" (texasr)
57*4882a593Smuzhiyun : [gpr_1]"i"(GPR_1), [gpr_2]"i"(GPR_2),
58*4882a593Smuzhiyun [sprn_texasr] "i" (SPRN_TEXASR), [flt_1] "b" (&a),
59*4882a593Smuzhiyun [flt_2] "b" (&b), [cptr1] "b" (&cptr[1])
60*4882a593Smuzhiyun : "memory", "r7", "r8", "r9", "r10",
61*4882a593Smuzhiyun "r11", "r12", "r13", "r14", "r15", "r16",
62*4882a593Smuzhiyun "r17", "r18", "r19", "r20", "r21", "r22",
63*4882a593Smuzhiyun "r23", "r24", "r25", "r26", "r27", "r28",
64*4882a593Smuzhiyun "r29", "r30", "r31"
65*4882a593Smuzhiyun );
66*4882a593Smuzhiyun
67*4882a593Smuzhiyun if (result) {
68*4882a593Smuzhiyun if (!cptr[0])
69*4882a593Smuzhiyun goto trans;
70*4882a593Smuzhiyun
71*4882a593Smuzhiyun shmdt((void *)cptr);
72*4882a593Smuzhiyun store_gpr(gpr_buf);
73*4882a593Smuzhiyun store_fpr_single_precision(fpr_buf);
74*4882a593Smuzhiyun
75*4882a593Smuzhiyun if (validate_gpr(gpr_buf, GPR_3))
76*4882a593Smuzhiyun exit(1);
77*4882a593Smuzhiyun
78*4882a593Smuzhiyun if (validate_fpr_float(fpr_buf, c))
79*4882a593Smuzhiyun exit(1);
80*4882a593Smuzhiyun
81*4882a593Smuzhiyun exit(0);
82*4882a593Smuzhiyun }
83*4882a593Smuzhiyun shmdt((void *)cptr);
84*4882a593Smuzhiyun exit(1);
85*4882a593Smuzhiyun }
86*4882a593Smuzhiyun
trace_tm_gpr(pid_t child)87*4882a593Smuzhiyun int trace_tm_gpr(pid_t child)
88*4882a593Smuzhiyun {
89*4882a593Smuzhiyun unsigned long gpr[18];
90*4882a593Smuzhiyun unsigned long fpr[32];
91*4882a593Smuzhiyun
92*4882a593Smuzhiyun FAIL_IF(start_trace(child));
93*4882a593Smuzhiyun FAIL_IF(show_gpr(child, gpr));
94*4882a593Smuzhiyun FAIL_IF(validate_gpr(gpr, GPR_2));
95*4882a593Smuzhiyun FAIL_IF(show_fpr(child, fpr));
96*4882a593Smuzhiyun FAIL_IF(validate_fpr(fpr, FPR_2_REP));
97*4882a593Smuzhiyun FAIL_IF(show_ckpt_fpr(child, fpr));
98*4882a593Smuzhiyun FAIL_IF(validate_fpr(fpr, FPR_1_REP));
99*4882a593Smuzhiyun FAIL_IF(show_ckpt_gpr(child, gpr));
100*4882a593Smuzhiyun FAIL_IF(validate_gpr(gpr, GPR_1));
101*4882a593Smuzhiyun FAIL_IF(write_ckpt_gpr(child, GPR_3));
102*4882a593Smuzhiyun FAIL_IF(write_ckpt_fpr(child, FPR_3_REP));
103*4882a593Smuzhiyun
104*4882a593Smuzhiyun pptr[0] = 1;
105*4882a593Smuzhiyun FAIL_IF(stop_trace(child));
106*4882a593Smuzhiyun
107*4882a593Smuzhiyun return TEST_PASS;
108*4882a593Smuzhiyun }
109*4882a593Smuzhiyun
ptrace_tm_gpr(void)110*4882a593Smuzhiyun int ptrace_tm_gpr(void)
111*4882a593Smuzhiyun {
112*4882a593Smuzhiyun pid_t pid;
113*4882a593Smuzhiyun int ret, status;
114*4882a593Smuzhiyun
115*4882a593Smuzhiyun SKIP_IF(!have_htm());
116*4882a593Smuzhiyun shm_id = shmget(IPC_PRIVATE, sizeof(int) * 2, 0777|IPC_CREAT);
117*4882a593Smuzhiyun pid = fork();
118*4882a593Smuzhiyun if (pid < 0) {
119*4882a593Smuzhiyun perror("fork() failed");
120*4882a593Smuzhiyun return TEST_FAIL;
121*4882a593Smuzhiyun }
122*4882a593Smuzhiyun if (pid == 0)
123*4882a593Smuzhiyun tm_gpr();
124*4882a593Smuzhiyun
125*4882a593Smuzhiyun if (pid) {
126*4882a593Smuzhiyun pptr = (unsigned long *)shmat(shm_id, NULL, 0);
127*4882a593Smuzhiyun
128*4882a593Smuzhiyun while (!pptr[1])
129*4882a593Smuzhiyun asm volatile("" : : : "memory");
130*4882a593Smuzhiyun ret = trace_tm_gpr(pid);
131*4882a593Smuzhiyun if (ret) {
132*4882a593Smuzhiyun kill(pid, SIGTERM);
133*4882a593Smuzhiyun return TEST_FAIL;
134*4882a593Smuzhiyun }
135*4882a593Smuzhiyun
136*4882a593Smuzhiyun shmdt((void *)pptr);
137*4882a593Smuzhiyun
138*4882a593Smuzhiyun ret = wait(&status);
139*4882a593Smuzhiyun shmctl(shm_id, IPC_RMID, NULL);
140*4882a593Smuzhiyun if (ret != pid) {
141*4882a593Smuzhiyun printf("Child's exit status not captured\n");
142*4882a593Smuzhiyun return TEST_FAIL;
143*4882a593Smuzhiyun }
144*4882a593Smuzhiyun
145*4882a593Smuzhiyun return (WIFEXITED(status) && WEXITSTATUS(status)) ? TEST_FAIL :
146*4882a593Smuzhiyun TEST_PASS;
147*4882a593Smuzhiyun }
148*4882a593Smuzhiyun return TEST_PASS;
149*4882a593Smuzhiyun }
150*4882a593Smuzhiyun
main(int argc,char * argv[])151*4882a593Smuzhiyun int main(int argc, char *argv[])
152*4882a593Smuzhiyun {
153*4882a593Smuzhiyun return test_harness(ptrace_tm_gpr, "ptrace_tm_gpr");
154*4882a593Smuzhiyun }
155