Petr Machata | 6426260 | 2012-01-07 03:41:36 +0100 | [diff] [blame] | 1 | /* |
| 2 | * This file is part of ltrace. |
Petr Machata | 6bcc092 | 2014-01-09 23:50:07 +0100 | [diff] [blame] | 3 | * Copyright (C) 2011,2012,2013,2014 Petr Machata, Red Hat Inc. |
Petr Machata | 6426260 | 2012-01-07 03:41:36 +0100 | [diff] [blame] | 4 | * Copyright (C) 2010 Joe Damato |
| 5 | * Copyright (C) 1998,2009 Juan Cespedes |
| 6 | * |
| 7 | * This program is free software; you can redistribute it and/or |
| 8 | * modify it under the terms of the GNU General Public License as |
| 9 | * published by the Free Software Foundation; either version 2 of the |
| 10 | * License, or (at your option) any later version. |
| 11 | * |
| 12 | * This program is distributed in the hope that it will be useful, but |
| 13 | * WITHOUT ANY WARRANTY; without even the implied warranty of |
| 14 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| 15 | * General Public License for more details. |
| 16 | * |
| 17 | * You should have received a copy of the GNU General Public License |
| 18 | * along with this program; if not, write to the Free Software |
| 19 | * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA |
| 20 | * 02110-1301 USA |
| 21 | */ |
| 22 | |
Joe Damato | ab3b72c | 2010-10-31 00:21:53 -0700 | [diff] [blame] | 23 | #include "config.h" |
| 24 | |
Petr Machata | ba1664b | 2012-04-28 14:59:05 +0200 | [diff] [blame] | 25 | #include <sys/types.h> |
| 26 | #include <assert.h> |
| 27 | #include <errno.h> |
| 28 | #include <stdio.h> |
| 29 | #include <stdlib.h> |
| 30 | #include <string.h> |
| 31 | |
Petr Machata | 6426260 | 2012-01-07 03:41:36 +0100 | [diff] [blame] | 32 | #include "backend.h" |
Petr Machata | ba1664b | 2012-04-28 14:59:05 +0200 | [diff] [blame] | 33 | #include "breakpoint.h" |
| 34 | #include "debug.h" |
| 35 | #include "fetch.h" |
Petr Machata | af1e603 | 2013-01-06 17:16:24 +0100 | [diff] [blame] | 36 | #include "options.h" |
Petr Machata | ba1664b | 2012-04-28 14:59:05 +0200 | [diff] [blame] | 37 | #include "proc.h" |
| 38 | #include "value_dict.h" |
Juan Cespedes | 273ea6d | 1998-03-14 23:02:40 +0100 | [diff] [blame] | 39 | |
Petr Machata | 0f6e6d9 | 2012-10-26 23:42:17 +0200 | [diff] [blame] | 40 | #ifndef OS_HAVE_PROCESS_DATA |
| 41 | int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 42 | os_process_init(struct process *proc) |
Petr Machata | 0f6e6d9 | 2012-10-26 23:42:17 +0200 | [diff] [blame] | 43 | { |
| 44 | return 0; |
| 45 | } |
| 46 | |
| 47 | void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 48 | os_process_destroy(struct process *proc) |
Petr Machata | 0f6e6d9 | 2012-10-26 23:42:17 +0200 | [diff] [blame] | 49 | { |
| 50 | } |
| 51 | |
| 52 | int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 53 | os_process_clone(struct process *retp, struct process *proc) |
Petr Machata | 0f6e6d9 | 2012-10-26 23:42:17 +0200 | [diff] [blame] | 54 | { |
| 55 | return 0; |
| 56 | } |
| 57 | |
| 58 | int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 59 | os_process_exec(struct process *proc) |
Petr Machata | 0f6e6d9 | 2012-10-26 23:42:17 +0200 | [diff] [blame] | 60 | { |
| 61 | return 0; |
| 62 | } |
| 63 | #endif |
| 64 | |
Petr Machata | 23124cc | 2013-10-11 21:13:22 +0200 | [diff] [blame] | 65 | #ifndef ARCH_HAVE_PROCESS_DATA |
| 66 | int |
| 67 | arch_process_init(struct process *proc) |
| 68 | { |
| 69 | return 0; |
| 70 | } |
| 71 | |
| 72 | void |
| 73 | arch_process_destroy(struct process *proc) |
| 74 | { |
| 75 | } |
| 76 | |
| 77 | int |
| 78 | arch_process_clone(struct process *retp, struct process *proc) |
| 79 | { |
| 80 | return 0; |
| 81 | } |
| 82 | |
| 83 | int |
| 84 | arch_process_exec(struct process *proc) |
| 85 | { |
| 86 | return 0; |
| 87 | } |
| 88 | #endif |
| 89 | |
Petr Machata | 93d95df | 2012-04-17 05:16:19 +0200 | [diff] [blame] | 90 | #ifndef ARCH_HAVE_DYNLINK_DONE |
| 91 | void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 92 | arch_dynlink_done(struct process *proc) |
Petr Machata | 93d95df | 2012-04-17 05:16:19 +0200 | [diff] [blame] | 93 | { |
| 94 | } |
| 95 | #endif |
| 96 | |
Petr Machata | baf00e4 | 2013-01-07 19:44:43 +0100 | [diff] [blame] | 97 | static int add_process(struct process *proc, int was_exec); |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 98 | static void unlist_process(struct process *proc); |
Petr Machata | 44965c7 | 2012-04-06 19:59:20 +0200 | [diff] [blame] | 99 | |
Petr Machata | e677c7e | 2012-10-26 22:23:43 +0200 | [diff] [blame] | 100 | static void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 101 | destroy_unwind(struct process *proc) |
Petr Machata | e677c7e | 2012-10-26 22:23:43 +0200 | [diff] [blame] | 102 | { |
| 103 | #if defined(HAVE_LIBUNWIND) |
Petr Machata | af1e603 | 2013-01-06 17:16:24 +0100 | [diff] [blame] | 104 | if (proc->unwind_priv != NULL) |
| 105 | _UPT_destroy(proc->unwind_priv); |
| 106 | if (proc->unwind_as != NULL) |
| 107 | unw_destroy_addr_space(proc->unwind_as); |
Petr Machata | e677c7e | 2012-10-26 22:23:43 +0200 | [diff] [blame] | 108 | #endif /* defined(HAVE_LIBUNWIND) */ |
Mark Wielaard | dfefa9f | 2014-01-07 21:00:44 +0100 | [diff] [blame] | 109 | |
| 110 | #if defined(HAVE_LIBDW) |
| 111 | if (proc->dwfl != NULL) |
| 112 | dwfl_end(proc->dwfl); |
| 113 | #endif /* defined(HAVE_LIBDW) */ |
Petr Machata | e677c7e | 2012-10-26 22:23:43 +0200 | [diff] [blame] | 114 | } |
| 115 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 116 | static int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 117 | process_bare_init(struct process *proc, const char *filename, |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 118 | pid_t pid, int was_exec) |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 119 | { |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 120 | if (!was_exec) { |
| 121 | memset(proc, 0, sizeof(*proc)); |
Petr Machata | 1974dbc | 2011-08-19 18:58:01 +0200 | [diff] [blame] | 122 | |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 123 | proc->filename = strdup(filename); |
| 124 | if (proc->filename == NULL) { |
| 125 | fail: |
| 126 | free(proc->filename); |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 127 | if (proc->breakpoints != NULL) { |
| 128 | dict_destroy(proc->breakpoints, |
| 129 | NULL, NULL, NULL); |
| 130 | free(proc->breakpoints); |
| 131 | proc->breakpoints = NULL; |
| 132 | } |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 133 | return -1; |
| 134 | } |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 135 | } |
| 136 | |
| 137 | /* Add process so that we know who the leader is. */ |
Petr Machata | 1b17dbf | 2011-07-08 19:22:52 +0200 | [diff] [blame] | 138 | proc->pid = pid; |
Petr Machata | baf00e4 | 2013-01-07 19:44:43 +0100 | [diff] [blame] | 139 | if (add_process(proc, was_exec) < 0) |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 140 | goto fail; |
Petr Machata | baf00e4 | 2013-01-07 19:44:43 +0100 | [diff] [blame] | 141 | if (proc->leader == NULL) { |
| 142 | unlist_and_fail: |
| 143 | if (!was_exec) |
| 144 | unlist_process(proc); |
| 145 | goto fail; |
| 146 | } |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 147 | |
| 148 | if (proc->leader == proc) { |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 149 | proc->breakpoints = malloc(sizeof(*proc->breakpoints)); |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 150 | if (proc->breakpoints == NULL) |
Petr Machata | baf00e4 | 2013-01-07 19:44:43 +0100 | [diff] [blame] | 151 | goto unlist_and_fail; |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 152 | DICT_INIT(proc->breakpoints, |
| 153 | arch_addr_t, struct breakpoint *, |
| 154 | arch_addr_hash, arch_addr_eq, NULL); |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 155 | } else { |
| 156 | proc->breakpoints = NULL; |
| 157 | } |
| 158 | |
Joe Damato | ab3b72c | 2010-10-31 00:21:53 -0700 | [diff] [blame] | 159 | #if defined(HAVE_LIBUNWIND) |
Petr Machata | a2c270e | 2013-03-11 21:19:13 -0400 | [diff] [blame] | 160 | if (options.bt_depth > 0) { |
Petr Machata | af1e603 | 2013-01-06 17:16:24 +0100 | [diff] [blame] | 161 | proc->unwind_priv = _UPT_create(pid); |
| 162 | proc->unwind_as = unw_create_addr_space(&_UPT_accessors, 0); |
Joe Damato | ab3b72c | 2010-10-31 00:21:53 -0700 | [diff] [blame] | 163 | |
Petr Machata | af1e603 | 2013-01-06 17:16:24 +0100 | [diff] [blame] | 164 | if (proc->unwind_priv == NULL || proc->unwind_as == NULL) { |
| 165 | fprintf(stderr, |
| 166 | "Couldn't initialize unwinding " |
| 167 | "for process %d\n", proc->pid); |
| 168 | destroy_unwind(proc); |
| 169 | proc->unwind_priv = NULL; |
| 170 | proc->unwind_as = NULL; |
| 171 | } |
| 172 | } |
Petr Machata | a2c270e | 2013-03-11 21:19:13 -0400 | [diff] [blame] | 173 | #endif /* defined(HAVE_LIBUNWIND) */ |
Petr Machata | af1e603 | 2013-01-06 17:16:24 +0100 | [diff] [blame] | 174 | |
Mark Wielaard | dfefa9f | 2014-01-07 21:00:44 +0100 | [diff] [blame] | 175 | #if defined(HAVE_LIBDW) |
| 176 | proc->dwfl = NULL; /* Initialize for leader only on first library. */ |
| 177 | #endif /* defined(HAVE_LIBDW) */ |
| 178 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 179 | return 0; |
| 180 | } |
| 181 | |
| 182 | static void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 183 | process_bare_destroy(struct process *proc, int was_exec) |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 184 | { |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 185 | dict_destroy(proc->breakpoints, NULL, NULL, NULL); |
| 186 | free(proc->breakpoints); |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 187 | if (!was_exec) { |
| 188 | free(proc->filename); |
Petr Machata | 61686c2 | 2012-05-03 18:39:49 +0200 | [diff] [blame] | 189 | unlist_process(proc); |
Petr Machata | e677c7e | 2012-10-26 22:23:43 +0200 | [diff] [blame] | 190 | destroy_unwind(proc); |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 191 | } |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 192 | } |
| 193 | |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 194 | static int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 195 | process_init_main(struct process *proc) |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 196 | { |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 197 | if (breakpoints_init(proc) < 0) { |
Petr Machata | 18bd8ff | 2012-04-10 04:32:39 +0200 | [diff] [blame] | 198 | fprintf(stderr, "failed to init breakpoints %d\n", |
| 199 | proc->pid); |
Petr Machata | 218c5ff | 2012-04-15 04:22:39 +0200 | [diff] [blame] | 200 | return -1; |
Petr Machata | 18bd8ff | 2012-04-10 04:32:39 +0200 | [diff] [blame] | 201 | } |
| 202 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 203 | return 0; |
| 204 | } |
| 205 | |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 206 | int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 207 | process_init(struct process *proc, const char *filename, pid_t pid) |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 208 | { |
| 209 | if (process_bare_init(proc, filename, pid, 0) < 0) { |
Petr Machata | 218c5ff | 2012-04-15 04:22:39 +0200 | [diff] [blame] | 210 | fail: |
Petr Machata | cc0e1e4 | 2012-04-25 13:42:07 +0200 | [diff] [blame] | 211 | fprintf(stderr, "failed to initialize process %d: %s\n", |
| 212 | pid, strerror(errno)); |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 213 | return -1; |
| 214 | } |
| 215 | |
Petr Machata | 0f6e6d9 | 2012-10-26 23:42:17 +0200 | [diff] [blame] | 216 | if (os_process_init(proc) < 0) { |
| 217 | process_bare_destroy(proc, 0); |
| 218 | goto fail; |
| 219 | } |
| 220 | |
Petr Machata | 744f255 | 2012-04-15 04:33:18 +0200 | [diff] [blame] | 221 | if (arch_process_init(proc) < 0) { |
Petr Machata | 0f6e6d9 | 2012-10-26 23:42:17 +0200 | [diff] [blame] | 222 | os_process_destroy(proc); |
Petr Machata | 744f255 | 2012-04-15 04:33:18 +0200 | [diff] [blame] | 223 | process_bare_destroy(proc, 0); |
| 224 | goto fail; |
| 225 | } |
| 226 | |
Petr Machata | 8137e80 | 2014-02-13 16:02:50 +0100 | [diff] [blame] | 227 | if (proc->leader != proc) { |
| 228 | proc->e_machine = proc->leader->e_machine; |
| 229 | proc->e_class = proc->leader->e_class; |
| 230 | get_arch_dep(proc); |
| 231 | } else if (process_init_main(proc) < 0) { |
Petr Machata | 218c5ff | 2012-04-15 04:22:39 +0200 | [diff] [blame] | 232 | process_bare_destroy(proc, 0); |
| 233 | goto fail; |
| 234 | } |
| 235 | return 0; |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 236 | } |
| 237 | |
Petr Machata | 8ead1cd | 2012-04-24 18:13:09 +0200 | [diff] [blame] | 238 | static enum callback_status |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 239 | destroy_breakpoint_cb(struct process *proc, struct breakpoint *bp, void *data) |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 240 | { |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 241 | breakpoint_destroy(bp); |
| 242 | free(bp); |
Petr Machata | 8ead1cd | 2012-04-24 18:13:09 +0200 | [diff] [blame] | 243 | return CBS_CONT; |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 244 | } |
| 245 | |
Petr Machata | e0e89ed | 2012-10-26 22:25:33 +0200 | [diff] [blame] | 246 | // XXX see comment in handle_event.c |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 247 | void callstack_pop(struct process *proc); |
Petr Machata | e0e89ed | 2012-10-26 22:25:33 +0200 | [diff] [blame] | 248 | |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 249 | static void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 250 | private_process_destroy(struct process *proc, int was_exec) |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 251 | { |
Petr Machata | e0e89ed | 2012-10-26 22:25:33 +0200 | [diff] [blame] | 252 | /* Pop remaining stack elements. */ |
| 253 | while (proc->callstack_depth > 0) { |
| 254 | /* When this is called just before a process is |
| 255 | * destroyed, the breakpoints should either have been |
| 256 | * retracted by now, or were killed by exec. In any |
| 257 | * case, it's safe to pretend that there are no |
| 258 | * breakpoints associated with the stack elements, so |
| 259 | * that stack_pop doesn't attempt to destroy them. */ |
| 260 | size_t i = proc->callstack_depth - 1; |
| 261 | if (!proc->callstack[i].is_syscall) |
| 262 | proc->callstack[i].return_addr = 0; |
| 263 | |
| 264 | callstack_pop(proc); |
| 265 | } |
| 266 | |
| 267 | if (!was_exec) |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 268 | free(proc->filename); |
| 269 | |
Petr Machata | 8ead1cd | 2012-04-24 18:13:09 +0200 | [diff] [blame] | 270 | /* Libraries and symbols. This is only relevant in |
| 271 | * leader. */ |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 272 | struct library *lib; |
| 273 | for (lib = proc->libraries; lib != NULL; ) { |
| 274 | struct library *next = lib->next; |
| 275 | library_destroy(lib); |
| 276 | free(lib); |
| 277 | lib = next; |
| 278 | } |
| 279 | proc->libraries = NULL; |
| 280 | |
| 281 | /* Breakpoints. */ |
Petr Machata | 8ead1cd | 2012-04-24 18:13:09 +0200 | [diff] [blame] | 282 | if (proc->breakpoints != NULL) { |
| 283 | proc_each_breakpoint(proc, NULL, destroy_breakpoint_cb, NULL); |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 284 | dict_destroy(proc->breakpoints, NULL, NULL, NULL); |
| 285 | free(proc->breakpoints); |
Petr Machata | 8ead1cd | 2012-04-24 18:13:09 +0200 | [diff] [blame] | 286 | proc->breakpoints = NULL; |
| 287 | } |
Petr Machata | e677c7e | 2012-10-26 22:23:43 +0200 | [diff] [blame] | 288 | |
| 289 | destroy_unwind(proc); |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 290 | } |
| 291 | |
| 292 | void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 293 | process_destroy(struct process *proc) |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 294 | { |
Petr Machata | 744f255 | 2012-04-15 04:33:18 +0200 | [diff] [blame] | 295 | arch_process_destroy(proc); |
Petr Machata | 0f6e6d9 | 2012-10-26 23:42:17 +0200 | [diff] [blame] | 296 | os_process_destroy(proc); |
Petr Machata | 3cc0cd1 | 2012-10-26 22:30:51 +0200 | [diff] [blame] | 297 | private_process_destroy(proc, 0); |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 298 | } |
| 299 | |
| 300 | int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 301 | process_exec(struct process *proc) |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 302 | { |
Petr Machata | 0f6e6d9 | 2012-10-26 23:42:17 +0200 | [diff] [blame] | 303 | /* Call exec handlers first, before we destroy the main |
Petr Machata | 3cc0cd1 | 2012-10-26 22:30:51 +0200 | [diff] [blame] | 304 | * state. */ |
Petr Machata | 0f6e6d9 | 2012-10-26 23:42:17 +0200 | [diff] [blame] | 305 | if (arch_process_exec(proc) < 0 |
| 306 | || os_process_exec(proc) < 0) |
Petr Machata | 744f255 | 2012-04-15 04:33:18 +0200 | [diff] [blame] | 307 | return -1; |
| 308 | |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 309 | private_process_destroy(proc, 1); |
Petr Machata | 3cc0cd1 | 2012-10-26 22:30:51 +0200 | [diff] [blame] | 310 | |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 311 | if (process_bare_init(proc, NULL, proc->pid, 1) < 0) |
| 312 | return -1; |
| 313 | if (process_init_main(proc) < 0) { |
| 314 | process_bare_destroy(proc, 1); |
| 315 | return -1; |
| 316 | } |
| 317 | return 0; |
| 318 | } |
| 319 | |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 320 | struct process * |
Petr Machata | 75934ad | 2012-04-14 02:28:03 +0200 | [diff] [blame] | 321 | open_program(const char *filename, pid_t pid) |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 322 | { |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 323 | assert(pid != 0); |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 324 | struct process *proc = malloc(sizeof(*proc)); |
Petr Machata | 75934ad | 2012-04-14 02:28:03 +0200 | [diff] [blame] | 325 | if (proc == NULL || process_init(proc, filename, pid) < 0) { |
Petr Machata | 1974dbc | 2011-08-19 18:58:01 +0200 | [diff] [blame] | 326 | free(proc); |
| 327 | return NULL; |
| 328 | } |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 329 | return proc; |
| 330 | } |
Juan Cespedes | 273ea6d | 1998-03-14 23:02:40 +0100 | [diff] [blame] | 331 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 332 | struct clone_single_bp_data { |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 333 | struct process *old_proc; |
| 334 | struct process *new_proc; |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 335 | }; |
| 336 | |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 337 | static enum callback_status |
| 338 | clone_single_bp(arch_addr_t *key, struct breakpoint **bpp, void *u) |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 339 | { |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 340 | struct breakpoint *bp = *bpp; |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 341 | struct clone_single_bp_data *data = u; |
| 342 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 343 | struct breakpoint *clone = malloc(sizeof(*clone)); |
| 344 | if (clone == NULL |
Petr Machata | e503552 | 2013-01-30 17:48:51 +0100 | [diff] [blame] | 345 | || breakpoint_clone(clone, data->new_proc, bp) < 0) { |
Petr Machata | d3cc988 | 2012-04-13 21:40:23 +0200 | [diff] [blame] | 346 | fail: |
| 347 | free(clone); |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 348 | return CBS_STOP; |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 349 | } |
Petr Machata | d3cc988 | 2012-04-13 21:40:23 +0200 | [diff] [blame] | 350 | if (proc_add_breakpoint(data->new_proc->leader, clone) < 0) { |
| 351 | breakpoint_destroy(clone); |
| 352 | goto fail; |
| 353 | } |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 354 | return CBS_CONT; |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 355 | } |
| 356 | |
| 357 | int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 358 | process_clone(struct process *retp, struct process *proc, pid_t pid) |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 359 | { |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 360 | if (process_bare_init(retp, proc->filename, pid, 0) < 0) { |
Petr Machata | ba1664b | 2012-04-28 14:59:05 +0200 | [diff] [blame] | 361 | fail1: |
Petr Machata | f56d129 | 2013-01-07 21:27:54 +0100 | [diff] [blame] | 362 | fprintf(stderr, "Failed to clone process %d to %d: %s\n", |
Petr Machata | cc0e1e4 | 2012-04-25 13:42:07 +0200 | [diff] [blame] | 363 | proc->pid, pid, strerror(errno)); |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 364 | return -1; |
| 365 | } |
| 366 | |
Petr Machata | cf1679a | 2012-04-06 19:56:17 +0200 | [diff] [blame] | 367 | retp->tracesysgood = proc->tracesysgood; |
Petr Machata | 2cb124c | 2012-04-19 18:44:45 +0200 | [diff] [blame] | 368 | retp->e_machine = proc->e_machine; |
Petr Machata | 4d4e1b8 | 2012-05-30 11:08:39 -0400 | [diff] [blame] | 369 | retp->e_class = proc->e_class; |
Petr Machata | cf1679a | 2012-04-06 19:56:17 +0200 | [diff] [blame] | 370 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 371 | /* For non-leader processes, that's all we need to do. */ |
Petr Machata | d3cc988 | 2012-04-13 21:40:23 +0200 | [diff] [blame] | 372 | if (retp->leader != retp) |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 373 | return 0; |
| 374 | |
| 375 | /* Clone symbols first so that we can clone and relink |
| 376 | * breakpoints. */ |
| 377 | struct library *lib; |
| 378 | struct library **nlibp = &retp->libraries; |
Petr Machata | 1e339e0 | 2012-10-27 19:33:20 +0200 | [diff] [blame] | 379 | for (lib = proc->leader->libraries; lib != NULL; lib = lib->next) { |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 380 | *nlibp = malloc(sizeof(**nlibp)); |
Petr Machata | d19b916 | 2013-01-07 20:16:57 +0100 | [diff] [blame] | 381 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 382 | if (*nlibp == NULL |
| 383 | || library_clone(*nlibp, lib) < 0) { |
Petr Machata | d19b916 | 2013-01-07 20:16:57 +0100 | [diff] [blame] | 384 | free(*nlibp); |
| 385 | *nlibp = NULL; |
| 386 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 387 | fail2: |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 388 | process_bare_destroy(retp, 0); |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 389 | |
| 390 | /* Error when cloning. Unroll what was done. */ |
| 391 | for (lib = retp->libraries; lib != NULL; ) { |
| 392 | struct library *next = lib->next; |
| 393 | library_destroy(lib); |
| 394 | free(lib); |
| 395 | lib = next; |
| 396 | } |
Petr Machata | ba1664b | 2012-04-28 14:59:05 +0200 | [diff] [blame] | 397 | goto fail1; |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 398 | } |
| 399 | |
| 400 | nlibp = &(*nlibp)->next; |
| 401 | } |
| 402 | |
| 403 | /* Now clone breakpoints. Symbol relinking is done in |
| 404 | * clone_single_bp. */ |
| 405 | struct clone_single_bp_data data = { |
| 406 | .old_proc = proc, |
| 407 | .new_proc = retp, |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 408 | }; |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 409 | if (DICT_EACH(proc->leader->breakpoints, |
| 410 | arch_addr_t, struct breakpoint *, NULL, |
| 411 | clone_single_bp, &data) != NULL) |
Petr Machata | 94078ec | 2012-01-05 18:07:02 +0100 | [diff] [blame] | 412 | goto fail2; |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 413 | |
Petr Machata | ded6f97 | 2012-04-13 23:15:48 +0200 | [diff] [blame] | 414 | /* And finally the call stack. */ |
Petr Machata | b6de841 | 2012-10-27 19:31:22 +0200 | [diff] [blame] | 415 | /* XXX clearly the callstack handling should be moved to a |
| 416 | * separate module and this whole business extracted to |
| 417 | * callstack_clone, or callstack_element_clone. */ |
Petr Machata | ded6f97 | 2012-04-13 23:15:48 +0200 | [diff] [blame] | 418 | memcpy(retp->callstack, proc->callstack, sizeof(retp->callstack)); |
| 419 | retp->callstack_depth = proc->callstack_depth; |
| 420 | |
Petr Machata | 94078ec | 2012-01-05 18:07:02 +0100 | [diff] [blame] | 421 | size_t i; |
| 422 | for (i = 0; i < retp->callstack_depth; ++i) { |
Petr Machata | b6de841 | 2012-10-27 19:31:22 +0200 | [diff] [blame] | 423 | struct callstack_element *elem = &retp->callstack[i]; |
| 424 | struct fetch_context *ctx = elem->fetch_context; |
Petr Machata | f6ec08a | 2012-01-06 16:58:54 +0100 | [diff] [blame] | 425 | if (ctx != NULL) { |
Petr Machata | ba1664b | 2012-04-28 14:59:05 +0200 | [diff] [blame] | 426 | struct fetch_context *nctx = fetch_arg_clone(retp, ctx); |
Petr Machata | f6ec08a | 2012-01-06 16:58:54 +0100 | [diff] [blame] | 427 | if (nctx == NULL) { |
Petr Machata | ba1664b | 2012-04-28 14:59:05 +0200 | [diff] [blame] | 428 | size_t j; |
| 429 | fail3: |
Petr Machata | f6ec08a | 2012-01-06 16:58:54 +0100 | [diff] [blame] | 430 | for (j = 0; j < i; ++j) { |
Petr Machata | f56d129 | 2013-01-07 21:27:54 +0100 | [diff] [blame] | 431 | nctx = retp->callstack[j].fetch_context; |
Petr Machata | f6ec08a | 2012-01-06 16:58:54 +0100 | [diff] [blame] | 432 | fetch_arg_done(nctx); |
Petr Machata | b6de841 | 2012-10-27 19:31:22 +0200 | [diff] [blame] | 433 | elem->fetch_context = NULL; |
Petr Machata | f6ec08a | 2012-01-06 16:58:54 +0100 | [diff] [blame] | 434 | } |
| 435 | goto fail2; |
| 436 | } |
Petr Machata | b6de841 | 2012-10-27 19:31:22 +0200 | [diff] [blame] | 437 | elem->fetch_context = nctx; |
Petr Machata | f6ec08a | 2012-01-06 16:58:54 +0100 | [diff] [blame] | 438 | } |
| 439 | |
Petr Machata | f56d129 | 2013-01-07 21:27:54 +0100 | [diff] [blame] | 440 | if (elem->arguments != NULL) { |
Petr Machata | 94078ec | 2012-01-05 18:07:02 +0100 | [diff] [blame] | 441 | struct value_dict *nargs = malloc(sizeof(*nargs)); |
Petr Machata | 94078ec | 2012-01-05 18:07:02 +0100 | [diff] [blame] | 442 | if (nargs == NULL |
Petr Machata | f56d129 | 2013-01-07 21:27:54 +0100 | [diff] [blame] | 443 | || val_dict_clone(nargs, elem->arguments) < 0) { |
Petr Machata | ba1664b | 2012-04-28 14:59:05 +0200 | [diff] [blame] | 444 | size_t j; |
Petr Machata | 94078ec | 2012-01-05 18:07:02 +0100 | [diff] [blame] | 445 | for (j = 0; j < i; ++j) { |
Petr Machata | f56d129 | 2013-01-07 21:27:54 +0100 | [diff] [blame] | 446 | nargs = retp->callstack[j].arguments; |
Petr Machata | 94078ec | 2012-01-05 18:07:02 +0100 | [diff] [blame] | 447 | val_dict_destroy(nargs); |
| 448 | free(nargs); |
Petr Machata | b6de841 | 2012-10-27 19:31:22 +0200 | [diff] [blame] | 449 | elem->arguments = NULL; |
Petr Machata | 94078ec | 2012-01-05 18:07:02 +0100 | [diff] [blame] | 450 | } |
Petr Machata | f6ec08a | 2012-01-06 16:58:54 +0100 | [diff] [blame] | 451 | |
| 452 | /* Pretend that this round went well, |
Petr Machata | ba1664b | 2012-04-28 14:59:05 +0200 | [diff] [blame] | 453 | * so that fail3 frees I-th |
Petr Machata | f6ec08a | 2012-01-06 16:58:54 +0100 | [diff] [blame] | 454 | * fetch_context. */ |
| 455 | ++i; |
Petr Machata | ba1664b | 2012-04-28 14:59:05 +0200 | [diff] [blame] | 456 | goto fail3; |
Petr Machata | 94078ec | 2012-01-05 18:07:02 +0100 | [diff] [blame] | 457 | } |
Petr Machata | b6de841 | 2012-10-27 19:31:22 +0200 | [diff] [blame] | 458 | elem->arguments = nargs; |
Petr Machata | 94078ec | 2012-01-05 18:07:02 +0100 | [diff] [blame] | 459 | } |
Petr Machata | 165b566 | 2012-10-27 19:23:12 +0200 | [diff] [blame] | 460 | |
| 461 | /* If it's not a syscall, we need to find the |
| 462 | * corresponding library symbol in the cloned |
| 463 | * library. */ |
| 464 | if (!elem->is_syscall && elem->c_un.libfunc != NULL) { |
| 465 | struct library_symbol *libfunc = elem->c_un.libfunc; |
| 466 | int rc = proc_find_symbol(retp, libfunc, |
| 467 | NULL, &elem->c_un.libfunc); |
| 468 | assert(rc == 0); |
| 469 | } |
Petr Machata | 94078ec | 2012-01-05 18:07:02 +0100 | [diff] [blame] | 470 | } |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 471 | |
Petr Machata | 5bf4714 | 2012-10-27 19:29:00 +0200 | [diff] [blame] | 472 | /* At this point, retp is fully initialized, except for OS and |
| 473 | * arch parts, and we can call private_process_destroy. */ |
| 474 | if (os_process_clone(retp, proc) < 0) { |
| 475 | private_process_destroy(retp, 0); |
| 476 | return -1; |
| 477 | } |
| 478 | if (arch_process_clone(retp, proc) < 0) { |
| 479 | os_process_destroy(retp); |
| 480 | private_process_destroy(retp, 0); |
| 481 | return -1; |
| 482 | } |
Petr Machata | 744f255 | 2012-04-15 04:33:18 +0200 | [diff] [blame] | 483 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 484 | return 0; |
Juan Cespedes | 273ea6d | 1998-03-14 23:02:40 +0100 | [diff] [blame] | 485 | } |
| 486 | |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 487 | static int |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 488 | open_one_pid(pid_t pid) |
| 489 | { |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 490 | debug(DEBUG_PROCESS, "open_one_pid(pid=%d)", pid); |
| 491 | |
Petr Machata | 1974dbc | 2011-08-19 18:58:01 +0200 | [diff] [blame] | 492 | /* Get the filename first. Should the trace_pid fail, we can |
| 493 | * easily free it, untracing is more work. */ |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 494 | char *filename = pid2name(pid); |
| 495 | if (filename == NULL || trace_pid(pid) < 0) { |
Petr Machata | ef0c74d | 2012-10-27 00:30:57 +0200 | [diff] [blame] | 496 | fail: |
Petr Machata | 1974dbc | 2011-08-19 18:58:01 +0200 | [diff] [blame] | 497 | free(filename); |
| 498 | return -1; |
| 499 | } |
Juan Cespedes | 35d7063 | 1998-03-15 14:05:40 +0100 | [diff] [blame] | 500 | |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 501 | struct process *proc = open_program(filename, pid); |
Petr Machata | 1974dbc | 2011-08-19 18:58:01 +0200 | [diff] [blame] | 502 | if (proc == NULL) |
Petr Machata | ef0c74d | 2012-10-27 00:30:57 +0200 | [diff] [blame] | 503 | goto fail; |
| 504 | free(filename); |
Petr Machata | 3ed2a42 | 2012-04-06 17:18:55 +0200 | [diff] [blame] | 505 | trace_set_options(proc); |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 506 | |
Petr Machata | 1974dbc | 2011-08-19 18:58:01 +0200 | [diff] [blame] | 507 | return 0; |
| 508 | } |
| 509 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 510 | static enum callback_status |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 511 | start_one_pid(struct process *proc, void *data) |
Petr Machata | 1974dbc | 2011-08-19 18:58:01 +0200 | [diff] [blame] | 512 | { |
| 513 | continue_process(proc->pid); |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 514 | return CBS_CONT; |
Juan Cespedes | 273ea6d | 1998-03-14 23:02:40 +0100 | [diff] [blame] | 515 | } |
Juan Cespedes | e74c80d | 2009-02-11 11:32:31 +0100 | [diff] [blame] | 516 | |
Petr Machata | df2c88c | 2013-03-19 17:55:25 +0100 | [diff] [blame] | 517 | static enum callback_status |
| 518 | is_main(struct process *proc, struct library *lib, void *data) |
| 519 | { |
| 520 | return CBS_STOP_IF(lib->type == LT_LIBTYPE_MAIN); |
| 521 | } |
| 522 | |
| 523 | void |
| 524 | process_hit_start(struct process *proc) |
| 525 | { |
| 526 | struct process *leader = proc->leader; |
| 527 | assert(leader != NULL); |
| 528 | |
| 529 | struct library *mainlib |
| 530 | = proc_each_library(leader, NULL, is_main, NULL); |
| 531 | assert(mainlib != NULL); |
| 532 | linkmap_init(leader, mainlib->dyn_addr); |
| 533 | arch_dynlink_done(leader); |
| 534 | } |
| 535 | |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 536 | void |
| 537 | open_pid(pid_t pid) |
| 538 | { |
| 539 | debug(DEBUG_PROCESS, "open_pid(pid=%d)", pid); |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 540 | /* If we are already tracing this guy, we should be seeing all |
| 541 | * his children via normal tracing route. */ |
| 542 | if (pid2proc(pid) != NULL) |
| 543 | return; |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 544 | |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 545 | /* First, see if we can attach the requested PID itself. */ |
Petr Machata | 8be68ff | 2013-03-19 18:00:58 +0100 | [diff] [blame] | 546 | if (open_one_pid(pid) < 0) { |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 547 | fprintf(stderr, "Cannot attach to pid %u: %s\n", |
| 548 | pid, strerror(errno)); |
Petr Machata | cec06ec | 2012-04-10 13:31:55 +0200 | [diff] [blame] | 549 | trace_fail_warning(pid); |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 550 | return; |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 551 | } |
| 552 | |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 553 | /* Now attach to all tasks that belong to that PID. There's a |
| 554 | * race between process_tasks and open_one_pid. So when we |
| 555 | * fail in open_one_pid below, we just do another round. |
| 556 | * Chances are that by then that PID will have gone away, and |
| 557 | * that's why we have seen the failure. The processes that we |
| 558 | * manage to open_one_pid are stopped, so we should eventually |
| 559 | * reach a point where process_tasks doesn't give any new |
| 560 | * processes (because there's nobody left to produce |
| 561 | * them). */ |
Petr Machata | 1974dbc | 2011-08-19 18:58:01 +0200 | [diff] [blame] | 562 | size_t old_ntasks = 0; |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 563 | int have_all; |
Petr Machata | 1974dbc | 2011-08-19 18:58:01 +0200 | [diff] [blame] | 564 | while (1) { |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 565 | pid_t *tasks; |
| 566 | size_t ntasks; |
| 567 | size_t i; |
Petr Machata | 1974dbc | 2011-08-19 18:58:01 +0200 | [diff] [blame] | 568 | |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 569 | if (process_tasks(pid, &tasks, &ntasks) < 0) { |
| 570 | fprintf(stderr, "Cannot obtain tasks of pid %u: %s\n", |
| 571 | pid, strerror(errno)); |
Petr Machata | fed1e8d | 2012-02-07 02:06:29 +0100 | [diff] [blame] | 572 | break; |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 573 | } |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 574 | |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 575 | have_all = 1; |
| 576 | for (i = 0; i < ntasks; ++i) |
| 577 | if (pid2proc(tasks[i]) == NULL |
Petr Machata | 8be68ff | 2013-03-19 18:00:58 +0100 | [diff] [blame] | 578 | && open_one_pid(tasks[i]) < 0) |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 579 | have_all = 0; |
| 580 | |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 581 | free(tasks); |
Petr Machata | 3c516d5 | 2011-08-18 03:53:18 +0200 | [diff] [blame] | 582 | |
Petr Machata | 1974dbc | 2011-08-19 18:58:01 +0200 | [diff] [blame] | 583 | if (have_all && old_ntasks == ntasks) |
| 584 | break; |
| 585 | old_ntasks = ntasks; |
| 586 | } |
| 587 | |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 588 | struct process *leader = pid2proc(pid)->leader; |
Petr Machata | 93d95df | 2012-04-17 05:16:19 +0200 | [diff] [blame] | 589 | |
| 590 | /* XXX Is there a way to figure out whether _start has |
| 591 | * actually already been hit? */ |
Petr Machata | df2c88c | 2013-03-19 17:55:25 +0100 | [diff] [blame] | 592 | process_hit_start(leader); |
Petr Machata | 93d95df | 2012-04-17 05:16:19 +0200 | [diff] [blame] | 593 | |
Petr Machata | 2f9b78e | 2012-04-16 21:08:54 +0200 | [diff] [blame] | 594 | /* Done. Continue everyone. */ |
Petr Machata | 93d95df | 2012-04-17 05:16:19 +0200 | [diff] [blame] | 595 | each_task(leader, NULL, start_one_pid, NULL); |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 596 | } |
| 597 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 598 | static enum callback_status |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 599 | find_proc(struct process *proc, void *data) |
Petr Machata | cebb884 | 2011-07-09 11:14:11 +0200 | [diff] [blame] | 600 | { |
Petr Machata | 7725d4b | 2013-03-19 18:03:00 +0100 | [diff] [blame] | 601 | return CBS_STOP_IF(proc->pid == (pid_t)(uintptr_t)data); |
Petr Machata | cebb884 | 2011-07-09 11:14:11 +0200 | [diff] [blame] | 602 | } |
| 603 | |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 604 | struct process * |
| 605 | pid2proc(pid_t pid) |
| 606 | { |
Petr Machata | cebb884 | 2011-07-09 11:14:11 +0200 | [diff] [blame] | 607 | return each_process(NULL, &find_proc, (void *)(uintptr_t)pid); |
| 608 | } |
Juan Cespedes | e74c80d | 2009-02-11 11:32:31 +0100 | [diff] [blame] | 609 | |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 610 | static struct process *list_of_processes = NULL; |
Petr Machata | cebb884 | 2011-07-09 11:14:11 +0200 | [diff] [blame] | 611 | |
Petr Machata | cbe29c6 | 2011-09-27 02:27:58 +0200 | [diff] [blame] | 612 | static void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 613 | unlist_process(struct process *proc) |
Petr Machata | cbe29c6 | 2011-09-27 02:27:58 +0200 | [diff] [blame] | 614 | { |
Petr Machata | cbe29c6 | 2011-09-27 02:27:58 +0200 | [diff] [blame] | 615 | if (list_of_processes == proc) { |
| 616 | list_of_processes = list_of_processes->next; |
| 617 | return; |
| 618 | } |
| 619 | |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 620 | struct process *tmp; |
Petr Machata | cbe29c6 | 2011-09-27 02:27:58 +0200 | [diff] [blame] | 621 | for (tmp = list_of_processes; ; tmp = tmp->next) { |
| 622 | /* If the following assert fails, the process wasn't |
| 623 | * in the list. */ |
| 624 | assert(tmp->next != NULL); |
| 625 | |
| 626 | if (tmp->next == proc) { |
| 627 | tmp->next = tmp->next->next; |
| 628 | return; |
| 629 | } |
| 630 | } |
| 631 | } |
| 632 | |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 633 | struct process * |
| 634 | each_process(struct process *start_after, |
| 635 | enum callback_status(*cb)(struct process *proc, void *data), |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 636 | void *data) |
Petr Machata | cebb884 | 2011-07-09 11:14:11 +0200 | [diff] [blame] | 637 | { |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 638 | struct process *it = start_after == NULL ? list_of_processes |
Petr Machata | 74132a4 | 2012-03-16 02:46:18 +0100 | [diff] [blame] | 639 | : start_after->next; |
| 640 | |
| 641 | while (it != NULL) { |
Petr Machata | cebb884 | 2011-07-09 11:14:11 +0200 | [diff] [blame] | 642 | /* Callback might call remove_process. */ |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 643 | struct process *next = it->next; |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 644 | switch ((*cb)(it, data)) { |
Petr Machata | ef7fa37 | 2012-03-28 02:05:36 +0200 | [diff] [blame] | 645 | case CBS_FAIL: |
| 646 | /* XXX handle me */ |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 647 | case CBS_STOP: |
Petr Machata | cebb884 | 2011-07-09 11:14:11 +0200 | [diff] [blame] | 648 | return it; |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 649 | case CBS_CONT: |
| 650 | break; |
| 651 | } |
Petr Machata | cebb884 | 2011-07-09 11:14:11 +0200 | [diff] [blame] | 652 | it = next; |
| 653 | } |
| 654 | return NULL; |
| 655 | } |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 656 | |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 657 | struct process * |
| 658 | each_task(struct process *proc, struct process *start_after, |
| 659 | enum callback_status(*cb)(struct process *proc, void *data), |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 660 | void *data) |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 661 | { |
Petr Machata | 74132a4 | 2012-03-16 02:46:18 +0100 | [diff] [blame] | 662 | assert(proc != NULL); |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 663 | struct process *it = start_after == NULL ? proc->leader |
Petr Machata | 74132a4 | 2012-03-16 02:46:18 +0100 | [diff] [blame] | 664 | : start_after->next; |
| 665 | |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 666 | if (it != NULL) { |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 667 | struct process *leader = it->leader; |
Petr Machata | 74132a4 | 2012-03-16 02:46:18 +0100 | [diff] [blame] | 668 | while (it != NULL && it->leader == leader) { |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 669 | /* Callback might call remove_process. */ |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 670 | struct process *next = it->next; |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 671 | switch ((*cb)(it, data)) { |
Petr Machata | ef7fa37 | 2012-03-28 02:05:36 +0200 | [diff] [blame] | 672 | case CBS_FAIL: |
| 673 | /* XXX handle me */ |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 674 | case CBS_STOP: |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 675 | return it; |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 676 | case CBS_CONT: |
| 677 | break; |
| 678 | } |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 679 | it = next; |
| 680 | } |
| 681 | } |
| 682 | return NULL; |
| 683 | } |
| 684 | |
Petr Machata | baf00e4 | 2013-01-07 19:44:43 +0100 | [diff] [blame] | 685 | static int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 686 | add_process(struct process *proc, int was_exec) |
Petr Machata | cebb884 | 2011-07-09 11:14:11 +0200 | [diff] [blame] | 687 | { |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 688 | struct process **leaderp = &list_of_processes; |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 689 | if (proc->pid) { |
| 690 | pid_t tgid = process_leader(proc->pid); |
Petr Machata | 1974dbc | 2011-08-19 18:58:01 +0200 | [diff] [blame] | 691 | if (tgid == 0) |
| 692 | /* Must have been terminated before we managed |
| 693 | * to fully attach. */ |
Petr Machata | baf00e4 | 2013-01-07 19:44:43 +0100 | [diff] [blame] | 694 | return -1; |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 695 | if (tgid == proc->pid) { |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 696 | proc->leader = proc; |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 697 | } else { |
| 698 | struct process *leader = pid2proc(tgid); |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 699 | proc->leader = leader; |
| 700 | if (leader != NULL) |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 701 | leaderp = &leader->next; |
| 702 | } |
| 703 | } |
Petr Machata | 3d0c91c | 2012-04-14 02:37:38 +0200 | [diff] [blame] | 704 | |
| 705 | if (!was_exec) { |
| 706 | proc->next = *leaderp; |
| 707 | *leaderp = proc; |
| 708 | } |
Petr Machata | baf00e4 | 2013-01-07 19:44:43 +0100 | [diff] [blame] | 709 | return 0; |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 710 | } |
| 711 | |
Petr Machata | cbe29c6 | 2011-09-27 02:27:58 +0200 | [diff] [blame] | 712 | void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 713 | change_process_leader(struct process *proc, struct process *leader) |
Petr Machata | cbe29c6 | 2011-09-27 02:27:58 +0200 | [diff] [blame] | 714 | { |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 715 | struct process **leaderp = &list_of_processes; |
Petr Machata | cbe29c6 | 2011-09-27 02:27:58 +0200 | [diff] [blame] | 716 | if (proc->leader == leader) |
| 717 | return; |
| 718 | |
| 719 | assert(leader != NULL); |
| 720 | unlist_process(proc); |
| 721 | if (proc != leader) |
| 722 | leaderp = &leader->next; |
| 723 | |
| 724 | proc->leader = leader; |
| 725 | proc->next = *leaderp; |
| 726 | *leaderp = proc; |
| 727 | } |
| 728 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 729 | static enum callback_status |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 730 | clear_leader(struct process *proc, void *data) |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 731 | { |
| 732 | debug(DEBUG_FUNCTION, "detach_task %d from leader %d", |
| 733 | proc->pid, proc->leader->pid); |
| 734 | proc->leader = NULL; |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 735 | return CBS_CONT; |
Petr Machata | cebb884 | 2011-07-09 11:14:11 +0200 | [diff] [blame] | 736 | } |
| 737 | |
| 738 | void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 739 | remove_process(struct process *proc) |
Petr Machata | cebb884 | 2011-07-09 11:14:11 +0200 | [diff] [blame] | 740 | { |
Petr Machata | cebb884 | 2011-07-09 11:14:11 +0200 | [diff] [blame] | 741 | debug(DEBUG_FUNCTION, "remove_proc(pid=%d)", proc->pid); |
| 742 | |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 743 | if (proc->leader == proc) |
Petr Machata | 74132a4 | 2012-03-16 02:46:18 +0100 | [diff] [blame] | 744 | each_task(proc, NULL, &clear_leader, NULL); |
Petr Machata | 9a5420c | 2011-07-09 11:21:23 +0200 | [diff] [blame] | 745 | |
Petr Machata | cbe29c6 | 2011-09-27 02:27:58 +0200 | [diff] [blame] | 746 | unlist_process(proc); |
Petr Machata | cd97258 | 2012-01-07 03:02:07 +0100 | [diff] [blame] | 747 | process_removed(proc); |
Petr Machata | 9b87e82 | 2012-04-24 18:12:10 +0200 | [diff] [blame] | 748 | process_destroy(proc); |
| 749 | free(proc); |
Juan Cespedes | e74c80d | 2009-02-11 11:32:31 +0100 | [diff] [blame] | 750 | } |
Petr Machata | 4007d74 | 2011-07-09 11:29:42 +0200 | [diff] [blame] | 751 | |
| 752 | void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 753 | install_event_handler(struct process *proc, struct event_handler *handler) |
Petr Machata | 4007d74 | 2011-07-09 11:29:42 +0200 | [diff] [blame] | 754 | { |
Petr Machata | 75dcf7d | 2011-10-06 14:30:19 +0200 | [diff] [blame] | 755 | debug(DEBUG_FUNCTION, "install_event_handler(pid=%d, %p)", proc->pid, handler); |
Petr Machata | 4007d74 | 2011-07-09 11:29:42 +0200 | [diff] [blame] | 756 | assert(proc->event_handler == NULL); |
| 757 | proc->event_handler = handler; |
| 758 | } |
| 759 | |
| 760 | void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 761 | destroy_event_handler(struct process *proc) |
Petr Machata | 4007d74 | 2011-07-09 11:29:42 +0200 | [diff] [blame] | 762 | { |
Petr Machata | 366c2f4 | 2012-02-09 19:34:36 +0100 | [diff] [blame] | 763 | struct event_handler *handler = proc->event_handler; |
Petr Machata | 75dcf7d | 2011-10-06 14:30:19 +0200 | [diff] [blame] | 764 | debug(DEBUG_FUNCTION, "destroy_event_handler(pid=%d, %p)", proc->pid, handler); |
Petr Machata | 4007d74 | 2011-07-09 11:29:42 +0200 | [diff] [blame] | 765 | assert(handler != NULL); |
Petr Machata | cbe29c6 | 2011-09-27 02:27:58 +0200 | [diff] [blame] | 766 | if (handler->destroy != NULL) |
| 767 | handler->destroy(handler); |
Petr Machata | 4007d74 | 2011-07-09 11:29:42 +0200 | [diff] [blame] | 768 | free(handler); |
| 769 | proc->event_handler = NULL; |
| 770 | } |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 771 | |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 772 | static int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 773 | breakpoint_for_symbol(struct library_symbol *libsym, struct process *proc) |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 774 | { |
Edgar E. Iglesias | ad64047 | 2012-09-27 12:07:34 +0200 | [diff] [blame] | 775 | arch_addr_t bp_addr; |
Petr Machata | d5e8556 | 2012-04-05 15:18:38 +0200 | [diff] [blame] | 776 | assert(proc->leader == proc); |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 777 | |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 778 | /* Don't enable latent or delayed symbols. */ |
Petr Machata | 96f0482 | 2012-10-31 03:29:11 +0100 | [diff] [blame] | 779 | if (libsym->latent || libsym->delayed) { |
| 780 | debug(DEBUG_FUNCTION, |
| 781 | "delayed and/or latent breakpoint pid=%d, %s@%p", |
| 782 | proc->pid, libsym->name, libsym->enter_addr); |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 783 | return 0; |
Petr Machata | 96f0482 | 2012-10-31 03:29:11 +0100 | [diff] [blame] | 784 | } |
Edgar E. Iglesias | 6ef7b25 | 2012-09-27 17:02:38 +0200 | [diff] [blame] | 785 | |
Edgar E. Iglesias | f97b187 | 2012-10-01 12:43:34 +0200 | [diff] [blame] | 786 | bp_addr = sym2addr(proc, libsym); |
| 787 | |
Petr Machata | d5e8556 | 2012-04-05 15:18:38 +0200 | [diff] [blame] | 788 | /* If there is an artificial breakpoint on the same address, |
| 789 | * its libsym will be NULL, and we can smuggle our libsym |
| 790 | * there. That artificial breakpoint is there presumably for |
| 791 | * the callbacks, which we don't touch. If there is a real |
| 792 | * breakpoint, then this is a bug. ltrace-elf.c should filter |
Petr Machata | a241636 | 2012-04-06 02:43:34 +0200 | [diff] [blame] | 793 | * symbols and ignore extra symbol aliases. |
| 794 | * |
| 795 | * The other direction is more complicated and currently not |
| 796 | * supported. If a breakpoint has custom callbacks, it might |
| 797 | * be also custom-allocated, and we would really need to swap |
| 798 | * the two: delete the one now in the dictionary, swap values |
| 799 | * around, and put the new breakpoint back in. */ |
Petr Machata | 98ff309 | 2013-03-08 22:11:36 +0100 | [diff] [blame] | 800 | struct breakpoint *bp; |
| 801 | if (DICT_FIND_VAL(proc->breakpoints, &bp_addr, &bp) == 0) { |
Petr Machata | 8d58d8b | 2012-11-12 12:46:03 +0100 | [diff] [blame] | 802 | /* MIPS backend makes duplicate requests. This is |
| 803 | * likely a bug in the backend. Currently there's no |
| 804 | * point assigning more than one symbol to a |
| 805 | * breakpoint, because when it hits, we won't know |
| 806 | * what to print out. But it's easier to fix it here |
| 807 | * before someone who understands MIPS has the time to |
| 808 | * look into it. So turn the sanity check off on |
| 809 | * MIPS. References: |
| 810 | * |
| 811 | * http://lists.alioth.debian.org/pipermail/ltrace-devel/2012-November/000764.html |
| 812 | * http://lists.alioth.debian.org/pipermail/ltrace-devel/2012-November/000770.html |
| 813 | */ |
| 814 | #ifndef __mips__ |
Petr Machata | 98ff309 | 2013-03-08 22:11:36 +0100 | [diff] [blame] | 815 | assert(bp->libsym == NULL); |
| 816 | bp->libsym = libsym; |
Petr Machata | 8d58d8b | 2012-11-12 12:46:03 +0100 | [diff] [blame] | 817 | #endif |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 818 | return 0; |
Petr Machata | d5e8556 | 2012-04-05 15:18:38 +0200 | [diff] [blame] | 819 | } |
| 820 | |
Petr Machata | 98ff309 | 2013-03-08 22:11:36 +0100 | [diff] [blame] | 821 | bp = malloc(sizeof(*bp)); |
Petr Machata | 3fd099b | 2012-04-03 02:25:42 +0200 | [diff] [blame] | 822 | if (bp == NULL |
Edgar E. Iglesias | ad64047 | 2012-09-27 12:07:34 +0200 | [diff] [blame] | 823 | || breakpoint_init(bp, proc, bp_addr, libsym) < 0) { |
Petr Machata | 3fd099b | 2012-04-03 02:25:42 +0200 | [diff] [blame] | 824 | fail: |
| 825 | free(bp); |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 826 | return -1; |
Petr Machata | 3fd099b | 2012-04-03 02:25:42 +0200 | [diff] [blame] | 827 | } |
| 828 | if (proc_add_breakpoint(proc, bp) < 0) { |
| 829 | breakpoint_destroy(bp); |
| 830 | goto fail; |
| 831 | } |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 832 | |
Petr Machata | fa0c570 | 2012-04-13 18:43:40 +0200 | [diff] [blame] | 833 | if (breakpoint_turn_on(bp, proc) < 0) { |
Petr Machata | 76dd929 | 2012-04-03 13:02:06 +0200 | [diff] [blame] | 834 | proc_remove_breakpoint(proc, bp); |
| 835 | breakpoint_destroy(bp); |
| 836 | goto fail; |
| 837 | } |
| 838 | |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 839 | return 0; |
| 840 | } |
| 841 | |
| 842 | static enum callback_status |
| 843 | cb_breakpoint_for_symbol(struct library_symbol *libsym, void *data) |
| 844 | { |
Petr Machata | 7725d4b | 2013-03-19 18:03:00 +0100 | [diff] [blame] | 845 | return CBS_STOP_IF(breakpoint_for_symbol(libsym, data) < 0); |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 846 | } |
| 847 | |
| 848 | static int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 849 | proc_activate_latent_symbol(struct process *proc, |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 850 | struct library_symbol *libsym) |
| 851 | { |
| 852 | assert(libsym->latent); |
| 853 | libsym->latent = 0; |
Petr Machata | 96f0482 | 2012-10-31 03:29:11 +0100 | [diff] [blame] | 854 | debug(DEBUG_FUNCTION, "activated latent symbol"); |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 855 | return breakpoint_for_symbol(libsym, proc); |
| 856 | } |
| 857 | |
| 858 | int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 859 | proc_activate_delayed_symbol(struct process *proc, |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 860 | struct library_symbol *libsym) |
| 861 | { |
| 862 | assert(libsym->delayed); |
| 863 | libsym->delayed = 0; |
Petr Machata | 96f0482 | 2012-10-31 03:29:11 +0100 | [diff] [blame] | 864 | debug(DEBUG_FUNCTION, "activated delayed symbol"); |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 865 | return breakpoint_for_symbol(libsym, proc); |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 866 | } |
| 867 | |
Petr Machata | a1f7683 | 2012-09-28 00:08:00 +0200 | [diff] [blame] | 868 | static enum callback_status |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 869 | activate_latent_in(struct process *proc, struct library *lib, void *data) |
Petr Machata | a1f7683 | 2012-09-28 00:08:00 +0200 | [diff] [blame] | 870 | { |
| 871 | struct library_exported_name *exported; |
| 872 | for (exported = data; exported != NULL; exported = exported->next) { |
| 873 | struct library_symbol *libsym = NULL; |
| 874 | while ((libsym = library_each_symbol(lib, libsym, |
| 875 | library_symbol_named_cb, |
| 876 | (void *)exported->name)) |
| 877 | != NULL) |
| 878 | if (libsym->latent |
| 879 | && proc_activate_latent_symbol(proc, libsym) < 0) |
| 880 | return CBS_FAIL; |
| 881 | } |
| 882 | return CBS_CONT; |
| 883 | } |
| 884 | |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 885 | void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 886 | proc_add_library(struct process *proc, struct library *lib) |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 887 | { |
| 888 | assert(lib->next == NULL); |
| 889 | lib->next = proc->libraries; |
| 890 | proc->libraries = lib; |
Petr Machata | 8b00d5b | 2012-04-06 16:05:10 +0200 | [diff] [blame] | 891 | debug(DEBUG_PROCESS, "added library %s@%p (%s) to %d", |
| 892 | lib->soname, lib->base, lib->pathname, proc->pid); |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 893 | |
Mark Wielaard | dfefa9f | 2014-01-07 21:00:44 +0100 | [diff] [blame] | 894 | #if defined(HAVE_LIBDW) |
| 895 | if (options.bt_depth > 0) { |
| 896 | /* Setup module tracking for libdwfl unwinding. */ |
| 897 | struct process *leader = proc->leader; |
| 898 | Dwfl *dwfl = leader->dwfl; |
| 899 | if (dwfl == NULL) { |
| 900 | static const Dwfl_Callbacks proc_callbacks = { |
| 901 | .find_elf = dwfl_linux_proc_find_elf, |
| 902 | .find_debuginfo = dwfl_standard_find_debuginfo |
| 903 | }; |
| 904 | dwfl = dwfl_begin(&proc_callbacks); |
| 905 | if (dwfl == NULL) |
| 906 | fprintf(stderr, |
| 907 | "Couldn't initialize libdwfl unwinding " |
| 908 | "for process %d: %s\n", leader->pid, |
| 909 | dwfl_errmsg (-1)); |
| 910 | } |
| 911 | |
| 912 | if (dwfl != NULL) { |
| 913 | dwfl_report_begin_add(dwfl); |
| 914 | if (dwfl_report_elf(dwfl, lib->soname, |
| 915 | lib->pathname, -1, |
| 916 | (GElf_Addr) lib->base, |
| 917 | false) == NULL) |
| 918 | fprintf(stderr, |
| 919 | "dwfl_report_elf %s@%p (%s) %d: %s\n", |
| 920 | lib->soname, lib->base, lib->pathname, |
| 921 | proc->pid, dwfl_errmsg (-1)); |
| 922 | dwfl_report_end(dwfl, NULL, NULL); |
| 923 | |
| 924 | if (leader->dwfl == NULL) { |
| 925 | int r = dwfl_linux_proc_attach(dwfl, |
| 926 | leader->pid, |
| 927 | true); |
| 928 | if (r == 0) |
| 929 | leader->dwfl = dwfl; |
| 930 | else { |
| 931 | const char *msg; |
| 932 | dwfl_end(dwfl); |
| 933 | if (r < 0) |
| 934 | msg = dwfl_errmsg(-1); |
| 935 | else |
| 936 | msg = strerror(r); |
| 937 | fprintf(stderr, "Couldn't initialize " |
| 938 | "libdwfl unwinding for " |
| 939 | "process %d: %s\n", |
| 940 | leader->pid, msg); |
| 941 | } |
| 942 | } |
| 943 | } |
| 944 | } |
| 945 | #endif /* defined(HAVE_LIBDW) */ |
| 946 | |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 947 | /* Insert breakpoints for all active (non-latent) symbols. */ |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 948 | struct library_symbol *libsym = NULL; |
Petr Machata | ef2fd27 | 2012-09-28 00:43:01 +0200 | [diff] [blame] | 949 | while ((libsym = library_each_symbol(lib, libsym, |
| 950 | cb_breakpoint_for_symbol, |
Petr Machata | 74132a4 | 2012-03-16 02:46:18 +0100 | [diff] [blame] | 951 | proc)) != NULL) |
Petr Machata | 3717f29 | 2013-01-06 17:52:00 +0100 | [diff] [blame] | 952 | fprintf(stderr, |
| 953 | "Couldn't insert breakpoint for %s to %d: %s.\n", |
Petr Machata | cc0e1e4 | 2012-04-25 13:42:07 +0200 | [diff] [blame] | 954 | libsym->name, proc->pid, strerror(errno)); |
Petr Machata | a1f7683 | 2012-09-28 00:08:00 +0200 | [diff] [blame] | 955 | |
| 956 | /* Look through export list of the new library and compare it |
| 957 | * with latent symbols of all libraries (including this |
| 958 | * library itself). */ |
| 959 | struct library *lib2 = NULL; |
| 960 | while ((lib2 = proc_each_library(proc, lib2, activate_latent_in, |
| 961 | lib->exported_names)) != NULL) |
| 962 | fprintf(stderr, |
Petr Machata | 3717f29 | 2013-01-06 17:52:00 +0100 | [diff] [blame] | 963 | "Couldn't activate latent symbols for %s in %d: %s.\n", |
Petr Machata | 5c5d480 | 2013-01-08 23:21:10 +0100 | [diff] [blame] | 964 | lib2->soname, proc->pid, strerror(errno)); |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 965 | } |
| 966 | |
| 967 | int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 968 | proc_remove_library(struct process *proc, struct library *lib) |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 969 | { |
| 970 | struct library **libp; |
| 971 | for (libp = &proc->libraries; *libp != NULL; libp = &(*libp)->next) |
| 972 | if (*libp == lib) { |
| 973 | *libp = lib->next; |
| 974 | return 0; |
| 975 | } |
| 976 | return -1; |
| 977 | } |
| 978 | |
| 979 | struct library * |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 980 | proc_each_library(struct process *proc, struct library *it, |
| 981 | enum callback_status (*cb)(struct process *proc, |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 982 | struct library *lib, void *data), |
| 983 | void *data) |
| 984 | { |
| 985 | if (it == NULL) |
| 986 | it = proc->libraries; |
Petr Machata | c4763a0 | 2013-01-08 23:19:14 +0100 | [diff] [blame] | 987 | else |
| 988 | it = it->next; |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 989 | |
| 990 | while (it != NULL) { |
| 991 | struct library *next = it->next; |
| 992 | |
| 993 | switch (cb(proc, it, data)) { |
Petr Machata | ef7fa37 | 2012-03-28 02:05:36 +0200 | [diff] [blame] | 994 | case CBS_FAIL: |
| 995 | /* XXX handle me */ |
Petr Machata | 2b46cfc | 2012-02-18 11:17:29 +0100 | [diff] [blame] | 996 | case CBS_STOP: |
| 997 | return it; |
| 998 | case CBS_CONT: |
| 999 | break; |
| 1000 | } |
| 1001 | |
| 1002 | it = next; |
| 1003 | } |
| 1004 | |
| 1005 | return NULL; |
| 1006 | } |
Petr Machata | 52dbfb1 | 2012-03-29 16:38:26 +0200 | [diff] [blame] | 1007 | |
Petr Machata | f7fee43 | 2012-04-19 17:00:53 +0200 | [diff] [blame] | 1008 | static void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 1009 | check_leader(struct process *proc) |
Petr Machata | 52dbfb1 | 2012-03-29 16:38:26 +0200 | [diff] [blame] | 1010 | { |
Petr Machata | 52dbfb1 | 2012-03-29 16:38:26 +0200 | [diff] [blame] | 1011 | /* Only the group leader should be getting the breakpoints and |
| 1012 | * thus have ->breakpoint initialized. */ |
Petr Machata | fa0c570 | 2012-04-13 18:43:40 +0200 | [diff] [blame] | 1013 | assert(proc->leader != NULL); |
| 1014 | assert(proc->leader == proc); |
| 1015 | assert(proc->breakpoints != NULL); |
Petr Machata | f7fee43 | 2012-04-19 17:00:53 +0200 | [diff] [blame] | 1016 | } |
Petr Machata | 52dbfb1 | 2012-03-29 16:38:26 +0200 | [diff] [blame] | 1017 | |
Petr Machata | f7fee43 | 2012-04-19 17:00:53 +0200 | [diff] [blame] | 1018 | int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 1019 | proc_add_breakpoint(struct process *proc, struct breakpoint *bp) |
Petr Machata | f7fee43 | 2012-04-19 17:00:53 +0200 | [diff] [blame] | 1020 | { |
Petr Machata | fa0c570 | 2012-04-13 18:43:40 +0200 | [diff] [blame] | 1021 | debug(DEBUG_FUNCTION, "proc_add_breakpoint(pid=%d, %s@%p)", |
Petr Machata | 52dbfb1 | 2012-03-29 16:38:26 +0200 | [diff] [blame] | 1022 | proc->pid, breakpoint_name(bp), bp->addr); |
Petr Machata | f7fee43 | 2012-04-19 17:00:53 +0200 | [diff] [blame] | 1023 | check_leader(proc); |
Petr Machata | 52dbfb1 | 2012-03-29 16:38:26 +0200 | [diff] [blame] | 1024 | |
Petr Machata | a241636 | 2012-04-06 02:43:34 +0200 | [diff] [blame] | 1025 | /* XXX We might merge bp->libsym instead of the following |
Petr Machata | 0092820 | 2012-04-07 01:14:24 +0200 | [diff] [blame] | 1026 | * assert, but that's not necessary right now. Read the |
| 1027 | * comment in breakpoint_for_symbol. */ |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 1028 | assert(dict_find(proc->breakpoints, &bp->addr) == NULL); |
Petr Machata | a241636 | 2012-04-06 02:43:34 +0200 | [diff] [blame] | 1029 | |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 1030 | if (DICT_INSERT(proc->breakpoints, &bp->addr, &bp) < 0) { |
Petr Machata | cc0e1e4 | 2012-04-25 13:42:07 +0200 | [diff] [blame] | 1031 | fprintf(stderr, |
| 1032 | "couldn't enter breakpoint %s@%p to dictionary: %s\n", |
| 1033 | breakpoint_name(bp), bp->addr, strerror(errno)); |
Petr Machata | 52dbfb1 | 2012-03-29 16:38:26 +0200 | [diff] [blame] | 1034 | return -1; |
| 1035 | } |
| 1036 | |
Petr Machata | 52dbfb1 | 2012-03-29 16:38:26 +0200 | [diff] [blame] | 1037 | return 0; |
| 1038 | } |
| 1039 | |
Petr Machata | f7fee43 | 2012-04-19 17:00:53 +0200 | [diff] [blame] | 1040 | void |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 1041 | proc_remove_breakpoint(struct process *proc, struct breakpoint *bp) |
Petr Machata | 52dbfb1 | 2012-03-29 16:38:26 +0200 | [diff] [blame] | 1042 | { |
Petr Machata | f7fee43 | 2012-04-19 17:00:53 +0200 | [diff] [blame] | 1043 | debug(DEBUG_FUNCTION, "proc_remove_breakpoint(pid=%d, %s@%p)", |
| 1044 | proc->pid, breakpoint_name(bp), bp->addr); |
| 1045 | check_leader(proc); |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 1046 | int rc = DICT_ERASE(proc->breakpoints, &bp->addr, struct breakpoint *, |
| 1047 | NULL, NULL, NULL); |
| 1048 | assert(rc == 0); |
Petr Machata | 52dbfb1 | 2012-03-29 16:38:26 +0200 | [diff] [blame] | 1049 | } |
Petr Machata | d3cc988 | 2012-04-13 21:40:23 +0200 | [diff] [blame] | 1050 | |
Petr Machata | d3cc988 | 2012-04-13 21:40:23 +0200 | [diff] [blame] | 1051 | struct each_breakpoint_data |
| 1052 | { |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 1053 | struct process *proc; |
| 1054 | enum callback_status (*cb)(struct process *proc, |
Petr Machata | d3cc988 | 2012-04-13 21:40:23 +0200 | [diff] [blame] | 1055 | struct breakpoint *bp, |
| 1056 | void *data); |
| 1057 | void *cb_data; |
| 1058 | }; |
| 1059 | |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 1060 | static enum callback_status |
| 1061 | each_breakpoint_cb(arch_addr_t *key, struct breakpoint **bpp, void *d) |
Petr Machata | d3cc988 | 2012-04-13 21:40:23 +0200 | [diff] [blame] | 1062 | { |
| 1063 | struct each_breakpoint_data *data = d; |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 1064 | return data->cb(data->proc, *bpp, data->cb_data); |
Petr Machata | d3cc988 | 2012-04-13 21:40:23 +0200 | [diff] [blame] | 1065 | } |
| 1066 | |
Petr Machata | 6bcc092 | 2014-01-09 23:50:07 +0100 | [diff] [blame] | 1067 | arch_addr_t * |
| 1068 | proc_each_breakpoint(struct process *proc, arch_addr_t *start, |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 1069 | enum callback_status (*cb)(struct process *proc, |
Petr Machata | d3cc988 | 2012-04-13 21:40:23 +0200 | [diff] [blame] | 1070 | struct breakpoint *bp, |
| 1071 | void *data), void *data) |
| 1072 | { |
| 1073 | struct each_breakpoint_data dd = { |
Petr Machata | d3cc988 | 2012-04-13 21:40:23 +0200 | [diff] [blame] | 1074 | .proc = proc, |
| 1075 | .cb = cb, |
| 1076 | .cb_data = data, |
| 1077 | }; |
Petr Machata | d7e4ca8 | 2012-11-28 03:38:47 +0100 | [diff] [blame] | 1078 | return DICT_EACH(proc->breakpoints, |
| 1079 | arch_addr_t, struct breakpoint *, start, |
| 1080 | &each_breakpoint_cb, &dd); |
Petr Machata | d3cc988 | 2012-04-13 21:40:23 +0200 | [diff] [blame] | 1081 | } |
Petr Machata | 165b566 | 2012-10-27 19:23:12 +0200 | [diff] [blame] | 1082 | |
| 1083 | int |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 1084 | proc_find_symbol(struct process *proc, struct library_symbol *sym, |
Petr Machata | 165b566 | 2012-10-27 19:23:12 +0200 | [diff] [blame] | 1085 | struct library **retlib, struct library_symbol **retsym) |
| 1086 | { |
| 1087 | struct library *lib = sym->lib; |
| 1088 | assert(lib != NULL); |
| 1089 | |
| 1090 | struct library *flib |
| 1091 | = proc_each_library(proc, NULL, library_with_key_cb, &lib->key); |
| 1092 | if (flib == NULL) |
| 1093 | return -1; |
| 1094 | |
| 1095 | struct library_symbol *fsym |
| 1096 | = library_each_symbol(flib, NULL, library_symbol_named_cb, |
| 1097 | (char *)sym->name); |
| 1098 | if (fsym == NULL) |
| 1099 | return -1; |
| 1100 | |
| 1101 | if (retlib != NULL) |
| 1102 | *retlib = flib; |
| 1103 | if (retsym != NULL) |
| 1104 | *retsym = fsym; |
| 1105 | |
| 1106 | return 0; |
| 1107 | } |
Petr Machata | 3240554 | 2012-10-31 03:28:39 +0100 | [diff] [blame] | 1108 | |
| 1109 | struct library_symbol * |
Petr Machata | 929bd57 | 2012-12-17 03:20:34 +0100 | [diff] [blame] | 1110 | proc_each_symbol(struct process *proc, struct library_symbol *start_after, |
Petr Machata | 3240554 | 2012-10-31 03:28:39 +0100 | [diff] [blame] | 1111 | enum callback_status (*cb)(struct library_symbol *, void *), |
| 1112 | void *data) |
| 1113 | { |
| 1114 | struct library *lib; |
Petr Machata | 3240554 | 2012-10-31 03:28:39 +0100 | [diff] [blame] | 1115 | for (lib = start_after != NULL ? start_after->lib : proc->libraries; |
| 1116 | lib != NULL; lib = lib->next) { |
| 1117 | start_after = library_each_symbol(lib, start_after, cb, data); |
| 1118 | if (start_after != NULL) |
| 1119 | return start_after; |
| 1120 | } |
| 1121 | |
| 1122 | return NULL; |
| 1123 | } |
Petr Machata | 653085a | 2013-01-15 17:40:40 +0100 | [diff] [blame] | 1124 | |
| 1125 | #define DEF_READER(NAME, SIZE) \ |
| 1126 | int \ |
| 1127 | NAME(struct process *proc, arch_addr_t addr, \ |
| 1128 | uint##SIZE##_t *lp) \ |
| 1129 | { \ |
| 1130 | union { \ |
| 1131 | uint##SIZE##_t dst; \ |
| 1132 | char buf[0]; \ |
| 1133 | } u; \ |
| 1134 | if (umovebytes(proc, addr, &u.buf, sizeof(u.dst)) \ |
| 1135 | != sizeof(u.dst)) \ |
| 1136 | return -1; \ |
| 1137 | *lp = u.dst; \ |
| 1138 | return 0; \ |
| 1139 | } |
| 1140 | |
Petr Machata | dc70e76 | 2013-01-23 00:02:26 +0100 | [diff] [blame] | 1141 | DEF_READER(proc_read_8, 8) |
Petr Machata | 653085a | 2013-01-15 17:40:40 +0100 | [diff] [blame] | 1142 | DEF_READER(proc_read_16, 16) |
| 1143 | DEF_READER(proc_read_32, 32) |
| 1144 | DEF_READER(proc_read_64, 64) |
| 1145 | |
| 1146 | #undef DEF_READER |