1 /* 2 * Copyright (C) 2011 Red Hat, Inc., Frederic Weisbecker <fweisbec (at) redhat.com> 3 * 4 * Licensed under the terms of the GNU GPL License version 2 5 * 6 * Selftests for breakpoints (and more generally the do_debug() path) in x86. 7 */ 8 9 10 #include <sys/ptrace.h> 11 #include <unistd.h> 12 #include <stddef.h> 13 #include <sys/user.h> 14 #include <stdio.h> 15 #include <stdlib.h> 16 #include <signal.h> 17 #include <sys/types.h> 18 #include <sys/wait.h> 19 #include <errno.h> 20 #include <string.h> 21 22 #include "../kselftest.h" 23 24 25 /* Breakpoint access modes */ 26 enum { 27 BP_X = 1, 28 BP_RW = 2, 29 BP_W = 4, 30 }; 31 32 static pid_t child_pid; 33 34 /* 35 * Ensures the child and parent are always "talking" about 36 * the same test sequence. (ie: that we haven't forgotten 37 * to call check_trapped() somewhere). 38 */ 39 static int nr_tests; 40 41 static void set_breakpoint_addr(void *addr, int n) 42 { 43 int ret; 44 45 ret = ptrace(PTRACE_POKEUSER, child_pid, 46 offsetof(struct user, u_debugreg[n]), addr); 47 if (ret) 48 ksft_exit_fail_msg("Can't set breakpoint addr: %s\n", 49 strerror(errno)); 50 } 51 52 static void toggle_breakpoint(int n, int type, int len, 53 int local, int global, int set) 54 { 55 int ret; 56 57 int xtype, xlen; 58 unsigned long vdr7, dr7; 59 60 switch (type) { 61 case BP_X: 62 xtype = 0; 63 break; 64 case BP_W: 65 xtype = 1; 66 break; 67 case BP_RW: 68 xtype = 3; 69 break; 70 } 71 72 switch (len) { 73 case 1: 74 xlen = 0; 75 break; 76 case 2: 77 xlen = 4; 78 break; 79 case 4: 80 xlen = 0xc; 81 break; 82 case 8: 83 xlen = 8; 84 break; 85 } 86 87 dr7 = ptrace(PTRACE_PEEKUSER, child_pid, 88 offsetof(struct user, u_debugreg[7]), 0); 89 90 vdr7 = (xlen | xtype) << 16; 91 vdr7 <<= 4 * n; 92 93 if (local) { 94 vdr7 |= 1 << (2 * n); 95 vdr7 |= 1 << 8; 96 } 97 if (global) { 98 vdr7 |= 2 << (2 * n); 99 vdr7 |= 1 << 9; 100 } 101 102 if (set) 103 dr7 |= vdr7; 104 else 105 dr7 &= ~vdr7; 106 107 ret = ptrace(PTRACE_POKEUSER, child_pid, 108 offsetof(struct user, u_debugreg[7]), dr7); 109 if (ret) { 110 ksft_print_msg("Can't set dr7: %s\n", strerror(errno)); 111 exit(-1); 112 } 113 } 114 115 /* Dummy variables to test read/write accesses */ 116 static unsigned long long dummy_var[4]; 117 118 /* Dummy functions to test execution accesses */ 119 static void dummy_func(void) { } 120 static void dummy_func1(void) { } 121 static void dummy_func2(void) { } 122 static void dummy_func3(void) { } 123 124 static void (*dummy_funcs[])(void) = { 125 dummy_func, 126 dummy_func1, 127 dummy_func2, 128 dummy_func3, 129 }; 130 131 static int trapped; 132 133 static void check_trapped(void) 134 { 135 /* 136 * If we haven't trapped, wake up the parent 137 * so that it notices the failure. 138 */ 139 if (!trapped) 140 kill(getpid(), SIGUSR1); 141 trapped = 0; 142 143 nr_tests++; 144 } 145 146 static void write_var(int len) 147 { 148 char *pcval; short *psval; int *pival; long long *plval; 149 int i; 150 151 for (i = 0; i < 4; i++) { 152 switch (len) { 153 case 1: 154 pcval = (char *)&dummy_var[i]; 155 *pcval = 0xff; 156 break; 157 case 2: 158 psval = (short *)&dummy_var[i]; 159 *psval = 0xffff; 160 break; 161 case 4: 162 pival = (int *)&dummy_var[i]; 163 *pival = 0xffffffff; 164 break; 165 case 8: 166 plval = (long long *)&dummy_var[i]; 167 *plval = 0xffffffffffffffffLL; 168 break; 169 } 170 check_trapped(); 171 } 172 } 173 174 static void read_var(int len) 175 { 176 char cval; short sval; int ival; long long lval; 177 int i; 178 179 for (i = 0; i < 4; i++) { 180 switch (len) { 181 case 1: 182 cval = *(char *)&dummy_var[i]; 183 break; 184 case 2: 185 sval = *(short *)&dummy_var[i]; 186 break; 187 case 4: 188 ival = *(int *)&dummy_var[i]; 189 break; 190 case 8: 191 lval = *(long long *)&dummy_var[i]; 192 break; 193 } 194 check_trapped(); 195 } 196 } 197 198 /* 199 * Do the r/w/x accesses to trigger the breakpoints. And run 200 * the usual traps. 201 */ 202 static void trigger_tests(void) 203 { 204 int len, local, global, i; 205 char val; 206 int ret; 207 208 ret = ptrace(PTRACE_TRACEME, 0, NULL, 0); 209 if (ret) { 210 ksft_print_msg("Can't be traced? %s\n", strerror(errno)); 211 return; 212 } 213 214 /* Wake up father so that it sets up the first test */ 215 kill(getpid(), SIGUSR1); 216 217 /* Test instruction breakpoints */ 218 for (local = 0; local < 2; local++) { 219 for (global = 0; global < 2; global++) { 220 if (!local && !global) 221 continue; 222 223 for (i = 0; i < 4; i++) { 224 dummy_funcs[i](); 225 check_trapped(); 226 } 227 } 228 } 229 230 /* Test write watchpoints */ 231 for (len = 1; len <= sizeof(long); len <<= 1) { 232 for (local = 0; local < 2; local++) { 233 for (global = 0; global < 2; global++) { 234 if (!local && !global) 235 continue; 236 write_var(len); 237 } 238 } 239 } 240 241 /* Test read/write watchpoints (on read accesses) */ 242 for (len = 1; len <= sizeof(long); len <<= 1) { 243 for (local = 0; local < 2; local++) { 244 for (global = 0; global < 2; global++) { 245 if (!local && !global) 246 continue; 247 read_var(len); 248 } 249 } 250 } 251 252 /* Icebp trap */ 253 asm(".byte 0xf1\n"); 254 check_trapped(); 255 256 /* Int 3 trap */ 257 asm("int $3\n"); 258 check_trapped(); 259 260 kill(getpid(), SIGUSR1); 261 } 262 263 static void check_success(const char *msg) 264 { 265 int child_nr_tests; 266 int status; 267 int ret; 268 269 /* Wait for the child to SIGTRAP */ 270 wait(&status); 271 272 ret = 0; 273 274 if (WSTOPSIG(status) == SIGTRAP) { 275 child_nr_tests = ptrace(PTRACE_PEEKDATA, child_pid, 276 &nr_tests, 0); 277 if (child_nr_tests == nr_tests) 278 ret = 1; 279 if (ptrace(PTRACE_POKEDATA, child_pid, &trapped, 1)) 280 ksft_exit_fail_msg("Can't poke: %s\n", strerror(errno)); 281 } 282 283 nr_tests++; 284 285 if (ret) 286 ksft_test_result_pass(msg); 287 else 288 ksft_test_result_fail(msg); 289 } 290 291 static void launch_instruction_breakpoints(char *buf, int local, int global) 292 { 293 int i; 294 295 for (i = 0; i < 4; i++) { 296 set_breakpoint_addr(dummy_funcs[i], i); 297 toggle_breakpoint(i, BP_X, 1, local, global, 1); 298 ptrace(PTRACE_CONT, child_pid, NULL, 0); 299 sprintf(buf, "Test breakpoint %d with local: %d global: %d\n", 300 i, local, global); 301 check_success(buf); 302 toggle_breakpoint(i, BP_X, 1, local, global, 0); 303 } 304 } 305 306 static void launch_watchpoints(char *buf, int mode, int len, 307 int local, int global) 308 { 309 const char *mode_str; 310 int i; 311 312 if (mode == BP_W) 313 mode_str = "write"; 314 else 315 mode_str = "read"; 316 317 for (i = 0; i < 4; i++) { 318 set_breakpoint_addr(&dummy_var[i], i); 319 toggle_breakpoint(i, mode, len, local, global, 1); 320 ptrace(PTRACE_CONT, child_pid, NULL, 0); 321 sprintf(buf, 322 "Test %s watchpoint %d with len: %d local: %d global: %d\n", 323 mode_str, i, len, local, global); 324 check_success(buf); 325 toggle_breakpoint(i, mode, len, local, global, 0); 326 } 327 } 328 329 /* Set the breakpoints and check the child successfully trigger them */ 330 static void launch_tests(void) 331 { 332 char buf[1024]; 333 int len, local, global, i; 334 335 /* Instruction breakpoints */ 336 for (local = 0; local < 2; local++) { 337 for (global = 0; global < 2; global++) { 338 if (!local && !global) 339 continue; 340 launch_instruction_breakpoints(buf, local, global); 341 } 342 } 343 344 /* Write watchpoint */ 345 for (len = 1; len <= sizeof(long); len <<= 1) { 346 for (local = 0; local < 2; local++) { 347 for (global = 0; global < 2; global++) { 348 if (!local && !global) 349 continue; 350 launch_watchpoints(buf, BP_W, len, 351 local, global); 352 } 353 } 354 } 355 356 /* Read-Write watchpoint */ 357 for (len = 1; len <= sizeof(long); len <<= 1) { 358 for (local = 0; local < 2; local++) { 359 for (global = 0; global < 2; global++) { 360 if (!local && !global) 361 continue; 362 launch_watchpoints(buf, BP_RW, len, 363 local, global); 364 } 365 } 366 } 367 368 /* Icebp traps */ 369 ptrace(PTRACE_CONT, child_pid, NULL, 0); 370 check_success("Test icebp\n"); 371 372 /* Int 3 traps */ 373 ptrace(PTRACE_CONT, child_pid, NULL, 0); 374 check_success("Test int 3 trap\n"); 375 376 ptrace(PTRACE_CONT, child_pid, NULL, 0); 377 } 378 379 int main(int argc, char **argv) 380 { 381 pid_t pid; 382 int ret; 383 384 ksft_print_header(); 385 386 pid = fork(); 387 if (!pid) { 388 trigger_tests(); 389 exit(0); 390 } 391 392 child_pid = pid; 393 394 wait(NULL); 395 396 launch_tests(); 397 398 wait(NULL); 399 400 ksft_exit_pass(); 401 } 402
