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