1 // SPDX-License-Identifier: GPL-2.0-or-later 2 /* 3 * Ptrace test for TAR, PPR, DSCR registers 4 * 5 * Copyright (C) 2015 Anshuman Khandual, IBM Corporation. 6 */ 7 #include "ptrace.h" 8 #include "ptrace-tar.h" 9 10 /* Tracer and Tracee Shared Data */ 11 int shm_id; 12 int *cptr; 13 int *pptr; 14 15 void tar(void) 16 { 17 unsigned long reg[3]; 18 int ret; 19 20 cptr = (int *)shmat(shm_id, NULL, 0); 21 printf("%-30s TAR: %u PPR: %lx DSCR: %u\n", 22 user_write, TAR_1, PPR_1, DSCR_1); 23 24 mtspr(SPRN_TAR, TAR_1); 25 mtspr(SPRN_PPR, PPR_1); 26 mtspr(SPRN_DSCR, DSCR_1); 27 28 cptr[2] = 1; 29 30 /* Wait on parent */ 31 while (!cptr[0]) 32 asm volatile("" : : : "memory"); 33 34 reg[0] = mfspr(SPRN_TAR); 35 reg[1] = mfspr(SPRN_PPR); 36 reg[2] = mfspr(SPRN_DSCR); 37 38 printf("%-30s TAR: %lu PPR: %lx DSCR: %lu\n", 39 user_read, reg[0], reg[1], reg[2]); 40 41 /* Unblock the parent now */ 42 cptr[1] = 1; 43 shmdt((int *)cptr); 44 45 ret = validate_tar_registers(reg, TAR_2, PPR_2, DSCR_2); 46 if (ret) 47 exit(1); 48 exit(0); 49 } 50 51 int trace_tar(pid_t child) 52 { 53 unsigned long reg[3]; 54 55 FAIL_IF(start_trace(child)); 56 FAIL_IF(show_tar_registers(child, reg)); 57 printf("%-30s TAR: %lu PPR: %lx DSCR: %lu\n", 58 ptrace_read_running, reg[0], reg[1], reg[2]); 59 60 FAIL_IF(validate_tar_registers(reg, TAR_1, PPR_1, DSCR_1)); 61 FAIL_IF(stop_trace(child)); 62 return TEST_PASS; 63 } 64 65 int trace_tar_write(pid_t child) 66 { 67 FAIL_IF(start_trace(child)); 68 FAIL_IF(write_tar_registers(child, TAR_2, PPR_2, DSCR_2)); 69 printf("%-30s TAR: %u PPR: %lx DSCR: %u\n", 70 ptrace_write_running, TAR_2, PPR_2, DSCR_2); 71 72 FAIL_IF(stop_trace(child)); 73 return TEST_PASS; 74 } 75 76 int ptrace_tar(void) 77 { 78 pid_t pid; 79 int ret, status; 80 81 shm_id = shmget(IPC_PRIVATE, sizeof(int) * 3, 0777|IPC_CREAT); 82 pid = fork(); 83 if (pid < 0) { 84 perror("fork() failed"); 85 return TEST_FAIL; 86 } 87 88 if (pid == 0) 89 tar(); 90 91 if (pid) { 92 pptr = (int *)shmat(shm_id, NULL, 0); 93 pptr[0] = 0; 94 pptr[1] = 0; 95 96 while (!pptr[2]) 97 asm volatile("" : : : "memory"); 98 ret = trace_tar(pid); 99 if (ret) 100 return ret; 101 102 ret = trace_tar_write(pid); 103 if (ret) 104 return ret; 105 106 /* Unblock the child now */ 107 pptr[0] = 1; 108 109 /* Wait on child */ 110 while (!pptr[1]) 111 asm volatile("" : : : "memory"); 112 113 shmdt((int *)pptr); 114 115 ret = wait(&status); 116 shmctl(shm_id, IPC_RMID, NULL); 117 if (ret != pid) { 118 printf("Child's exit status not captured\n"); 119 return TEST_PASS; 120 } 121 122 return (WIFEXITED(status) && WEXITSTATUS(status)) ? TEST_FAIL : 123 TEST_PASS; 124 } 125 return TEST_PASS; 126 } 127 128 int main(int argc, char *argv[]) 129 { 130 return test_harness(ptrace_tar, "ptrace_tar"); 131 } 132