kprobe/dbi_kprobes.c

   1 /*
   2  *  Kernel Probes (KProbes)
   3  *  kernel/kprobes.c
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 2 of the License, or
   8  * (at your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program; if not, write to the Free Software
  17  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  18  *
  19  * Copyright (C) IBM Corporation, 2002, 2004
  20  */
  21
  22 /*
  23  *  Dynamic Binary Instrumentation Module based on KProbes
  24  *  modules/kprobe/dbi_kprobes.h
  25  *
  26  * This program is free software; you can redistribute it and/or modify
  27  * it under the terms of the GNU General Public License as published by
  28  * the Free Software Foundation; either version 2 of the License, or
  29  * (at your option) any later version.
  30  *
  31  * This program is distributed in the hope that it will be useful,
  32  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  33  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  34  * GNU General Public License for more details.
  35  *
  36  * You should have received a copy of the GNU General Public License
  37  * along with this program; if not, write to the Free Software
  38  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  39  *
  40  * Copyright (C) Samsung Electronics, 2006-2010
  41  *
  42  * 2006-2007    Ekaterina Gorelkina <e.gorelkina@samsung.com>: initial implementation for ARM and MIPS
  43  * 2008-2009    Alexey Gerenkov <a.gerenkov@samsung.com> User-Space
  44  *              Probes initial implementation; Support x86/ARM/MIPS for both user and kernel spaces.
  45  * 2010         Ekaterina Gorelkina <e.gorelkina@samsung.com>: redesign module for separating core and arch parts
  46  *
  47  */
  48
  49 #include "dbi_kprobes.h"
  50 #include "arch/asm/dbi_kprobes.h"
  51
  52 #include "dbi_kdebug.h"
  53 #include "dbi_kprobes_deps.h"
  54 #include "dbi_insn_slots.h"
  55 #include <ksyms.h>
  56
  57 #include <linux/version.h>
  58 #if LINUX_VERSION_CODE < KERNEL_VERSION(2,6,19)
  59 #include <linux/config.h>
  60 #endif
  61
  62 #include <linux/hash.h>
  63 #include <linux/module.h>
  64 #include <linux/mm.h>
  65 #include <linux/pagemap.h>
  66
  67 struct slot_manager sm;
  68
  69 DEFINE_PER_CPU(struct kprobe *, current_kprobe) = NULL;
  70 static DEFINE_PER_CPU(struct kprobe_ctlblk, kprobe_ctlblk);
  71
  72 DEFINE_SPINLOCK(kretprobe_lock);        /* Protects kretprobe_inst_table */
  73 EXPORT_SYMBOL_GPL(kretprobe_lock);
  74 static DEFINE_PER_CPU(struct kprobe *, kprobe_instance) = NULL;
  75
  76 struct hlist_head kprobe_table[KPROBE_TABLE_SIZE];
  77 static struct hlist_head kretprobe_inst_table[KPROBE_TABLE_SIZE];
  78
  79 atomic_t kprobe_count;
  80 EXPORT_SYMBOL_GPL(kprobe_count);
  81
  82 static void *sm_alloc(struct slot_manager *sm)
  83 {
  84         return kmalloc(PAGE_SIZE, GFP_ATOMIC);
  85 }
  86
  87 static void sm_free(struct slot_manager *sm, void *ptr)
  88 {
  89         kfree(ptr);
  90 }
  91
  92 static void init_sm()
  93 {
  94         sm.slot_size = KPROBES_TRAMP_LEN;
  95         sm.alloc = sm_alloc;
  96         sm.free = sm_free;
  97         INIT_HLIST_NODE(&sm.page_list);
  98 }
  99
 100 static void exit_sm()
 101 {
 102         /* FIXME: free */
 103 }
 104
 105 void kretprobe_assert(struct kretprobe_instance *ri, unsigned long orig_ret_address, unsigned long trampoline_address)
 106 {
 107         if (!orig_ret_address || (orig_ret_address == trampoline_address)) {
 108                 struct task_struct *task;
 109                 if (ri == NULL) {
 110                         panic("kretprobe BUG!: ri = NULL\n");
 111                 }
 112
 113                 task = ri->task;
 114
 115                 if (task == NULL) {
 116                         panic("kretprobe BUG!: task = NULL\n");
 117                 }
 118
 119                 if (ri->rp == NULL) {
 120                         panic("kretprobe BUG!: ri->rp = NULL\n");
 121                 }
 122
 123                 panic("kretprobe BUG!: Processing kretprobe %p @ %p (%d/%d - %s)\n",
 124                       ri->rp, ri->rp->kp.addr, ri->task->tgid, ri->task->pid, ri->task->comm);
 125         }
 126 }
 127
 128 /* We have preemption disabled.. so it is safe to use __ versions */
 129 static inline void set_kprobe_instance(struct kprobe *kp)
 130 {
 131         __get_cpu_var(kprobe_instance) = kp;
 132 }
 133
 134 static inline void reset_kprobe_instance(void)
 135 {
 136         __get_cpu_var(kprobe_instance) = NULL;
 137 }
 138
 139 /* kprobe_running() will just return the current_kprobe on this CPU */
 140 struct kprobe *kprobe_running(void)
 141 {
 142         return __get_cpu_var(current_kprobe);
 143 }
 144
 145 void reset_current_kprobe(void)
 146 {
 147         __get_cpu_var(current_kprobe) = NULL;
 148 }
 149
 150 struct kprobe_ctlblk *get_kprobe_ctlblk(void)
 151 {
 152         return &__get_cpu_var(kprobe_ctlblk);
 153 }
 154
 155 /*
 156  * This routine is called either:
 157  *      - under the kprobe_mutex - during kprobe_[un]register()
 158  *                              OR
 159  *      - with preemption disabled - from arch/xxx/kernel/kprobes.c
 160  */
 161 struct kprobe *get_kprobe(void *addr)
 162 {
 163         struct hlist_head *head;
 164         struct hlist_node *node;
 165         struct kprobe *p;
 166
 167         head = &kprobe_table[hash_ptr (addr, KPROBE_HASH_BITS)];
 168         hlist_for_each_entry_rcu(p, node, head, hlist) {
 169                 if (p->addr == addr) {
 170                         return p;
 171                 }
 172         }
 173
 174         return NULL;
 175 }
 176
 177 /*
 178  * Aggregate handlers for multiple kprobes support - these handlers
 179  * take care of invoking the individual kprobe handlers on p->list
 180  */
 181 static int aggr_pre_handler(struct kprobe *p, struct pt_regs *regs)
 182 {
 183         struct kprobe *kp;
 184         int ret;
 185
 186         list_for_each_entry_rcu(kp, &p->list, list) {
 187                 if (kp->pre_handler) {
 188                         set_kprobe_instance(kp);
 189                         ret = kp->pre_handler(kp, regs);
 190                         if (ret)
 191                                 return ret;
 192                 }
 193                 reset_kprobe_instance();
 194         }
 195
 196         return 0;
 197 }
 198
 199 static void aggr_post_handler(struct kprobe *p, struct pt_regs *regs, unsigned long flags)
 200 {
 201         struct kprobe *kp;
 202
 203         list_for_each_entry_rcu(kp, &p->list, list) {
 204                 if (kp->post_handler) {
 205                         set_kprobe_instance(kp);
 206                         kp->post_handler(kp, regs, flags);
 207                         reset_kprobe_instance();
 208                 }
 209         }
 210 }
 211
 212 static int aggr_fault_handler(struct kprobe *p, struct pt_regs *regs, int trapnr)
 213 {
 214         struct kprobe *cur = __get_cpu_var(kprobe_instance);
 215
 216         /*
 217          * if we faulted "during" the execution of a user specified
 218          * probe handler, invoke just that probe's fault handler
 219          */
 220         if (cur && cur->fault_handler) {
 221                 if (cur->fault_handler(cur, regs, trapnr))
 222                         return 1;
 223         }
 224
 225         return 0;
 226 }
 227
 228 static int aggr_break_handler(struct kprobe *p, struct pt_regs *regs)
 229 {
 230         struct kprobe *cur = __get_cpu_var(kprobe_instance);
 231         int ret = 0;
 232         DBPRINTF ("cur = 0x%p\n", cur);
 233         if (cur)
 234                 DBPRINTF ("cur = 0x%p cur->break_handler = 0x%p\n", cur, cur->break_handler);
 235
 236         if (cur && cur->break_handler) {
 237                 if (cur->break_handler(cur, regs))
 238                         ret = 1;
 239         }
 240         reset_kprobe_instance();
 241
 242         return ret;
 243 }
 244
 245 /* Walks the list and increments nmissed count for multiprobe case */
 246 void kprobes_inc_nmissed_count(struct kprobe *p)
 247 {
 248         struct kprobe *kp;
 249         if (p->pre_handler != aggr_pre_handler) {
 250                 p->nmissed++;
 251         } else {
 252                 list_for_each_entry_rcu(kp, &p->list, list) {
 253                         ++kp->nmissed;
 254                 }
 255         }
 256 }
 257
 258 /* Called with kretprobe_lock held */
 259 struct kretprobe_instance *get_free_rp_inst(struct kretprobe *rp)
 260 {
 261         struct hlist_node *node;
 262         struct kretprobe_instance *ri;
 263
 264         hlist_for_each_entry(ri, node, &rp->free_instances, uflist) {
 265                 return ri;
 266         }
 267
 268         if (!alloc_nodes_kretprobe(rp)) {
 269                 hlist_for_each_entry(ri, node, &rp->free_instances, uflist) {
 270                         return ri;
 271                 }
 272         }
 273
 274         return NULL;
 275 }
 276 EXPORT_SYMBOL_GPL(get_free_rp_inst);
 277
 278 /* Called with kretprobe_lock held */
 279 struct kretprobe_instance *get_free_rp_inst_no_alloc(struct kretprobe *rp)
 280 {
 281         struct hlist_node *node;
 282         struct kretprobe_instance *ri;
 283
 284         hlist_for_each_entry(ri, node, &rp->free_instances, uflist) {
 285                 return ri;
 286         }
 287
 288         return NULL;
 289 }
 290
 291 /* Called with kretprobe_lock held */
 292 struct kretprobe_instance *get_used_rp_inst(struct kretprobe *rp)
 293 {
 294         struct hlist_node *node;
 295         struct kretprobe_instance *ri;
 296
 297         hlist_for_each_entry(ri, node, &rp->used_instances, uflist) {
 298                 return ri;
 299         }
 300
 301         return NULL;
 302 }
 303 EXPORT_SYMBOL_GPL(get_used_rp_inst);
 304
 305 /* Called with kretprobe_lock held */
 306 void add_rp_inst (struct kretprobe_instance *ri)
 307 {
 308         /*
 309          * Remove rp inst off the free list -
 310          * Add it back when probed function returns
 311          */
 312         hlist_del(&ri->uflist);
 313
 314         /* Add rp inst onto table */
 315         INIT_HLIST_NODE(&ri->hlist);
 316
 317         hlist_add_head(&ri->hlist, &kretprobe_inst_table[hash_ptr(ri->task, KPROBE_HASH_BITS)]);
 318
 319         /* Also add this rp inst to the used list. */
 320         INIT_HLIST_NODE(&ri->uflist);
 321         hlist_add_head(&ri->uflist, &ri->rp->used_instances);
 322 }
 323 EXPORT_SYMBOL_GPL(add_rp_inst);
 324
 325 /* Called with kretprobe_lock held */
 326 void recycle_rp_inst(struct kretprobe_instance *ri)
 327 {
 328         if (ri->rp) {
 329                 hlist_del(&ri->hlist);
 330                 /* remove rp inst off the used list */
 331                 hlist_del(&ri->uflist);
 332                 /* put rp inst back onto the free list */
 333                 INIT_HLIST_NODE(&ri->uflist);
 334                 hlist_add_head(&ri->uflist, &ri->rp->free_instances);
 335         }
 336 }
 337 EXPORT_SYMBOL_GPL(recycle_rp_inst);
 338
 339 struct hlist_head *kretprobe_inst_table_head(void *hash_key)
 340 {
 341         return &kretprobe_inst_table[hash_ptr(hash_key, KPROBE_HASH_BITS)];
 342 }
 343 EXPORT_SYMBOL_GPL(kretprobe_inst_table_head);
 344
 345 void free_rp_inst(struct kretprobe *rp)
 346 {
 347         struct kretprobe_instance *ri;
 348         while ((ri = get_free_rp_inst_no_alloc(rp)) != NULL) {
 349                 hlist_del(&ri->uflist);
 350                 kfree(ri);
 351         }
 352 }
 353 EXPORT_SYMBOL_GPL(free_rp_inst);
 354
 355 /*
 356  * Keep all fields in the kprobe consistent
 357  */
 358 static inline void copy_kprobe(struct kprobe *old_p, struct kprobe *p)
 359 {
 360         memcpy(&p->opcode, &old_p->opcode, sizeof(kprobe_opcode_t));
 361         memcpy(&p->ainsn, &old_p->ainsn, sizeof(struct arch_specific_insn));
 362         p->ss_addr = old_p->ss_addr;
 363 #ifdef CONFIG_ARM
 364         p->safe_arm = old_p->safe_arm;
 365         p->safe_thumb = old_p->safe_thumb;
 366 #endif
 367 }
 368
 369 /*
 370  * Add the new probe to old_p->list. Fail if this is the
 371  * second jprobe at the address - two jprobes can't coexist
 372  */
 373 static int add_new_kprobe(struct kprobe *old_p, struct kprobe *p)
 374 {
 375         if (p->break_handler) {
 376                 if (old_p->break_handler) {
 377                         return -EEXIST;
 378                 }
 379
 380                 list_add_tail_rcu(&p->list, &old_p->list);
 381                 old_p->break_handler = aggr_break_handler;
 382         } else {
 383                 list_add_rcu(&p->list, &old_p->list);
 384         }
 385
 386         if (p->post_handler && !old_p->post_handler) {
 387                 old_p->post_handler = aggr_post_handler;
 388         }
 389
 390         return 0;
 391 }
 392
 393 /**
 394  * hlist_replace_rcu - replace old entry by new one
 395  * @old : the element to be replaced
 396  * @new : the new element to insert
 397  *
 398  * The @old entry will be replaced with the @new entry atomically.
 399  */
 400 inline void dbi_hlist_replace_rcu(struct hlist_node *old, struct hlist_node *new)
 401 {
 402         struct hlist_node *next = old->next;
 403
 404         new->next = next;
 405         new->pprev = old->pprev;
 406         smp_wmb();
 407         if (next)
 408                 new->next->pprev = &new->next;
 409         if (new->pprev)
 410                 *new->pprev = new;
 411         old->pprev = LIST_POISON2;
 412 }
 413
 414 /*
 415  * Fill in the required fields of the "manager kprobe". Replace the
 416  * earlier kprobe in the hlist with the manager kprobe
 417  */
 418 static inline void add_aggr_kprobe(struct kprobe *ap, struct kprobe *p)
 419 {
 420         copy_kprobe(p, ap);
 421         ap->addr = p->addr;
 422         ap->pre_handler = aggr_pre_handler;
 423         ap->fault_handler = aggr_fault_handler;
 424         if (p->post_handler)
 425                 ap->post_handler = aggr_post_handler;
 426         if (p->break_handler)
 427                 ap->break_handler = aggr_break_handler;
 428
 429         INIT_LIST_HEAD(&ap->list);
 430         list_add_rcu(&p->list, &ap->list);
 431
 432         dbi_hlist_replace_rcu(&p->hlist, &ap->hlist);
 433 }
 434
 435 /*
 436  * This is the second or subsequent kprobe at the address - handle
 437  * the intricacies
 438  */
 439 int register_aggr_kprobe(struct kprobe *old_p, struct kprobe *p)
 440 {
 441         int ret = 0;
 442         struct kprobe *ap;
 443         DBPRINTF ("start\n");
 444
 445         DBPRINTF ("p = %p old_p = %p \n", p, old_p);
 446         if (old_p->pre_handler == aggr_pre_handler) {
 447                 DBPRINTF ("aggr_pre_handler \n");
 448
 449                 copy_kprobe(old_p, p);
 450                 ret = add_new_kprobe(old_p, p);
 451         } else {
 452                 DBPRINTF ("kzalloc\n");
 453 #ifdef kzalloc
 454                 ap = kzalloc(sizeof(struct kprobe), GFP_KERNEL);
 455 #else
 456                 ap = kmalloc(sizeof(struct kprobe), GFP_KERNEL);
 457                 if (ap)
 458                         memset(ap, 0, sizeof(struct kprobe));
 459 #endif
 460                 if (!ap)
 461                         return -ENOMEM;
 462                 add_aggr_kprobe(ap, old_p);
 463                 copy_kprobe(ap, p);
 464                 DBPRINTF ("ap = %p p = %p old_p = %p \n", ap, p, old_p);
 465                 ret = add_new_kprobe(ap, p);
 466         }
 467
 468         return ret;
 469 }
 470 EXPORT_SYMBOL_GPL(register_aggr_kprobe);
 471
 472 static void remove_kprobe(struct kprobe *p)
 473 {
 474         /* TODO: check boostable for x86 and MIPS */
 475         free_insn_slot(&sm, p->ainsn.insn);
 476 }
 477
 478 int dbi_register_kprobe(struct kprobe *p)
 479 {
 480         struct kprobe *old_p;
 481         int ret = 0;
 482         /*
 483          * If we have a symbol_name argument look it up,
 484          * and add it to the address.  That way the addr
 485          * field can either be global or relative to a symbol.
 486          */
 487         if (p->symbol_name) {
 488                 if (p->addr)
 489                         return -EINVAL;
 490                 p->addr = (kprobe_opcode_t *)swap_ksyms(p->symbol_name);
 491         }
 492
 493         if (!p->addr)
 494                 return -EINVAL;
 495         DBPRINTF ("p->addr = 0x%p\n", p->addr);
 496         p->addr = (kprobe_opcode_t *)(((char *)p->addr) + p->offset);
 497         DBPRINTF ("p->addr = 0x%p p = 0x%p\n", p->addr, p);
 498
 499 #ifdef KPROBES_PROFILE
 500         p->start_tm.tv_sec = p->start_tm.tv_usec = 0;
 501         p->hnd_tm_sum.tv_sec = p->hnd_tm_sum.tv_usec = 0;
 502         p->count = 0;
 503 #endif
 504         p->mod_refcounted = 0;
 505         p->nmissed = 0;
 506
 507         old_p = get_kprobe(p->addr);
 508         if (old_p) {
 509                 ret = register_aggr_kprobe(old_p, p);
 510                 if (!ret)
 511                         atomic_inc(&kprobe_count);
 512                 goto out;
 513         }
 514
 515         if ((ret = arch_prepare_kprobe(p, &sm)) != 0)
 516                 goto out;
 517
 518         DBPRINTF ("before out ret = 0x%x\n", ret);
 519         INIT_HLIST_NODE(&p->hlist);
 520         hlist_add_head_rcu(&p->hlist, &kprobe_table[hash_ptr(p->addr, KPROBE_HASH_BITS)]);
 521         arch_arm_kprobe(p);
 522
 523 out:
 524         DBPRINTF ("out ret = 0x%x\n", ret);
 525         return ret;
 526 }
 527
 528 void dbi_unregister_kprobe(struct kprobe *p, struct task_struct *task)
 529 {
 530         struct kprobe *old_p, *list_p;
 531         int cleanup_p;
 532
 533         old_p = get_kprobe(p->addr);
 534         DBPRINTF ("dbi_unregister_kprobe p=%p old_p=%p", p, old_p);
 535         if (unlikely (!old_p))
 536                 return;
 537
 538         if (p != old_p) {
 539                 list_for_each_entry_rcu(list_p, &old_p->list, list)
 540                         if (list_p == p)
 541                                 /* kprobe p is a valid probe */
 542                                 goto valid_p;
 543                 return;
 544         }
 545
 546 valid_p:
 547         DBPRINTF ("dbi_unregister_kprobe valid_p");
 548         if ((old_p == p) || ((old_p->pre_handler == aggr_pre_handler) &&
 549             (p->list.next == &old_p->list) && (p->list.prev == &old_p->list))) {
 550                 /* Only probe on the hash list */
 551                 arch_disarm_kprobe(p);
 552                 hlist_del_rcu(&old_p->hlist);
 553                 cleanup_p = 1;
 554         } else {
 555                 list_del_rcu(&p->list);
 556                 cleanup_p = 0;
 557         }
 558         DBPRINTF ("dbi_unregister_kprobe cleanup_p=%d", cleanup_p);
 559
 560         if (cleanup_p) {
 561                 if (p != old_p) {
 562                         list_del_rcu(&p->list);
 563                         kfree(old_p);
 564                 }
 565
 566                 if (!in_atomic()) {
 567                         synchronize_sched();
 568                 }
 569
 570                 remove_kprobe(p);
 571         } else {
 572                 if (p->break_handler)
 573                         old_p->break_handler = NULL;
 574                 if (p->post_handler) {
 575                         list_for_each_entry_rcu(list_p, &old_p->list, list) {
 576                                 if (list_p->post_handler) {
 577                                         cleanup_p = 2;
 578                                         break;
 579                                 }
 580                         }
 581
 582                         if (cleanup_p == 0)
 583                                 old_p->post_handler = NULL;
 584                 }
 585         }
 586 }
 587
 588 int dbi_register_jprobe(struct jprobe *jp)
 589 {
 590         /* Todo: Verify probepoint is a function entry point */
 591         jp->kp.pre_handler = setjmp_pre_handler;
 592         jp->kp.break_handler = longjmp_break_handler;
 593
 594         return dbi_register_kprobe(&jp->kp);
 595 }
 596
 597 void dbi_unregister_jprobe(struct jprobe *jp)
 598 {
 599         dbi_unregister_kprobe(&jp->kp, NULL);
 600 }
 601
 602 /*
 603  * This kprobe pre_handler is registered with every kretprobe. When probe
 604  * hits it will set up the return probe.
 605  */
 606 int pre_handler_kretprobe(struct kprobe *p, struct pt_regs *regs)
 607 {
 608         struct kretprobe *rp = container_of(p, struct kretprobe, kp);
 609         unsigned long flags = 0;
 610         DBPRINTF ("START\n");
 611
 612         /*TODO: consider to only swap the RA after the last pre_handler fired */
 613         spin_lock_irqsave(&kretprobe_lock, flags);
 614         if (!rp->disarm)
 615                 arch_prepare_kretprobe(rp, regs);
 616         spin_unlock_irqrestore(&kretprobe_lock, flags);
 617         DBPRINTF ("END\n");
 618         return 0;
 619 }
 620 EXPORT_SYMBOL_GPL(pre_handler_kretprobe);
 621
 622 struct kretprobe *sched_rp;
 623
 624 #define SCHED_RP_NR 200
 625 #define COMMON_RP_NR 10
 626
 627 int alloc_nodes_kretprobe(struct kretprobe *rp)
 628 {
 629         int alloc_nodes;
 630         struct kretprobe_instance *inst;
 631         int i;
 632
 633         DBPRINTF("Alloc aditional mem for retprobes");
 634
 635         if ((unsigned long)rp->kp.addr == sched_addr) {
 636                 rp->maxactive += SCHED_RP_NR;//max (100, 2 * NR_CPUS);
 637                 alloc_nodes = SCHED_RP_NR;
 638         } else {
 639 #if 1//def CONFIG_PREEMPT
 640                 rp->maxactive += max (COMMON_RP_NR, 2 * NR_CPUS);
 641 #else
 642                 rp->maxacpptive += NR_CPUS;
 643 #endif
 644                 alloc_nodes = COMMON_RP_NR;
 645         }
 646
 647         for (i = 0; i < alloc_nodes; i++) {
 648                 inst = kmalloc(sizeof(struct kretprobe_instance), GFP_ATOMIC);
 649                 if (inst == NULL) {
 650                         free_rp_inst(rp);
 651                         return -ENOMEM;
 652                 }
 653                 INIT_HLIST_NODE(&inst->uflist);
 654                 hlist_add_head(&inst->uflist, &rp->free_instances);
 655         }
 656
 657         DBPRINTF ("addr=%p, *addr=[%lx %lx %lx]", rp->kp.addr, (unsigned long) (*(rp->kp.addr)), (unsigned long) (*(rp->kp.addr + 1)), (unsigned long) (*(rp->kp.addr + 2)));
 658         return 0;
 659 }
 660
 661 int dbi_register_kretprobe(struct kretprobe *rp)
 662 {
 663         int ret = 0;
 664         struct kretprobe_instance *inst;
 665         int i;
 666         DBPRINTF ("START");
 667
 668         rp->kp.pre_handler = pre_handler_kretprobe;
 669         rp->kp.post_handler = NULL;
 670         rp->kp.fault_handler = NULL;
 671         rp->kp.break_handler = NULL;
 672
 673         rp->disarm = 0;
 674
 675         /* Pre-allocate memory for max kretprobe instances */
 676         if ((unsigned long)rp->kp.addr == sched_addr) {
 677                 rp->maxactive = SCHED_RP_NR;//max (100, 2 * NR_CPUS);
 678                 rp->kp.pre_handler = NULL; //not needed for __switch_to
 679         } else if ((unsigned long)rp->kp.addr == exit_addr) {
 680                 rp->kp.pre_handler = NULL; //not needed for do_exit
 681                 rp->maxactive = 0;
 682         } else if (rp->maxactive <= 0) {
 683 #if 1//def CONFIG_PREEMPT
 684                 rp->maxactive = max (COMMON_RP_NR, 2 * NR_CPUS);
 685 #else
 686                 rp->maxactive = NR_CPUS;
 687 #endif
 688         }
 689         INIT_HLIST_HEAD(&rp->used_instances);
 690         INIT_HLIST_HEAD(&rp->free_instances);
 691         for (i = 0; i < rp->maxactive; i++) {
 692                 inst = kmalloc(sizeof(struct kretprobe_instance), GFP_KERNEL);
 693                 if (inst == NULL) {
 694                         free_rp_inst(rp);
 695                         return -ENOMEM;
 696                 }
 697                 INIT_HLIST_NODE(&inst->uflist);
 698                 hlist_add_head(&inst->uflist, &rp->free_instances);
 699         }
 700
 701         DBPRINTF ("addr=%p, *addr=[%lx %lx %lx]", rp->kp.addr, (unsigned long) (*(rp->kp.addr)), (unsigned long) (*(rp->kp.addr + 1)), (unsigned long) (*(rp->kp.addr + 2)));
 702         rp->nmissed = 0;
 703         /* Establish function entry probe point */
 704         if ((ret = dbi_register_kprobe(&rp->kp)) != 0)
 705                 free_rp_inst(rp);
 706
 707         DBPRINTF ("addr=%p, *addr=[%lx %lx %lx]", rp->kp.addr, (unsigned long) (*(rp->kp.addr)), (unsigned long) (*(rp->kp.addr + 1)), (unsigned long) (*(rp->kp.addr + 2)));
 708         if ((unsigned long)rp->kp.addr == sched_addr) {
 709                 sched_rp = rp;
 710         }
 711
 712         return ret;
 713 }
 714
 715 static int dbi_disarm_krp_inst(struct kretprobe_instance *ri);
 716
 717 void dbi_unregister_kretprobe(struct kretprobe *rp)
 718 {
 719         unsigned long flags;
 720         struct kretprobe_instance *ri;
 721
 722         dbi_unregister_kprobe(&rp->kp, NULL);
 723
 724         /* No race here */
 725         spin_lock_irqsave(&kretprobe_lock, flags);
 726
 727         if ((unsigned long)rp->kp.addr == sched_addr)
 728                 sched_rp = NULL;
 729
 730         while ((ri = get_used_rp_inst(rp)) != NULL) {
 731                 if (dbi_disarm_krp_inst(ri) == 0)
 732                         recycle_rp_inst(ri);
 733                 else
 734                         panic("%s (%d/%d): cannot disarm krp instance (%08lx)",
 735                                         ri->task->comm, ri->task->tgid, ri->task->pid,
 736                                         (unsigned long)rp->kp.addr);
 737         }
 738
 739         spin_unlock_irqrestore(&kretprobe_lock, flags);
 740         free_rp_inst(rp);
 741 }
 742
 743 struct kretprobe *clone_kretprobe(struct kretprobe *rp)
 744 {
 745         struct kprobe *old_p;
 746         struct kretprobe *clone = NULL;
 747         int ret;
 748
 749         clone = kmalloc(sizeof(struct kretprobe), GFP_KERNEL);
 750         if (!clone) {
 751                 DBPRINTF ("failed to alloc memory for clone probe %p!", rp->kp.addr);
 752                 return NULL;
 753         }
 754         memcpy(clone, rp, sizeof(struct kretprobe));
 755         clone->kp.pre_handler = pre_handler_kretprobe;
 756         clone->kp.post_handler = NULL;
 757         clone->kp.fault_handler = NULL;
 758         clone->kp.break_handler = NULL;
 759         old_p = get_kprobe(rp->kp.addr);
 760         if (old_p) {
 761                 ret = register_aggr_kprobe(old_p, &clone->kp);
 762                 if (ret) {
 763                         kfree(clone);
 764                         return NULL;
 765                 }
 766                 atomic_inc(&kprobe_count);
 767         }
 768
 769         return clone;
 770 }
 771 EXPORT_SYMBOL_GPL(clone_kretprobe);
 772
 773 static void inline set_task_trampoline(struct task_struct *p, struct kretprobe_instance *ri, unsigned long tramp_addr)
 774 {
 775         unsigned long pc = arch_get_task_pc(p);
 776         if (pc == tramp_addr)
 777                 panic("[%d] %s (%d/%d): pc = %08lx --- [%d] %s (%d/%d)\n",
 778                                 task_cpu(p), p->comm, p->tgid, p->pid, pc,
 779                                 task_cpu(current), current->comm, current->tgid, current->pid);
 780         ri->ret_addr = (kprobe_opcode_t *)pc;
 781         arch_set_task_pc(p, tramp_addr);
 782 }
 783
 784 static void inline rm_task_trampoline(struct task_struct *p, struct kretprobe_instance *ri)
 785 {
 786         arch_set_task_pc(p, (unsigned long)ri->ret_addr);
 787 }
 788
 789 static int dbi_disarm_krp_inst(struct kretprobe_instance *ri)
 790 {
 791         kprobe_opcode_t *tramp = (kprobe_opcode_t *)&kretprobe_trampoline;
 792         kprobe_opcode_t *sp = ri->sp;
 793         kprobe_opcode_t *found = NULL;
 794         int retval = -ENOENT;
 795
 796         if (!sp) {
 797                 unsigned long pc = arch_get_task_pc(ri->task);
 798
 799                 printk("---> [%d] %s (%d/%d): pc = %08lx, ra = %08lx, tramp= %08lx (%08lx)\n",
 800                                 task_cpu(ri->task),
 801                                 ri->task->comm, ri->task->tgid, ri->task->pid,
 802                                 pc, (unsigned long)ri->ret_addr,
 803                                 (unsigned long)tramp,
 804                                 (unsigned long)(ri->rp ? ri->rp->kp.addr: NULL));
 805
 806                 /* __switch_to retprobe handling */
 807                 if (pc == (unsigned long)tramp) {
 808                         rm_task_trampoline(ri->task, ri);
 809                         return 0;
 810                 }
 811
 812                 return -EINVAL;
 813         }
 814
 815         while (sp > ri->sp - RETPROBE_STACK_DEPTH) {
 816                 if ((unsigned long)*sp == (unsigned long)tramp) {
 817                         found = sp;
 818                         break;
 819                 }
 820                 sp--;
 821         }
 822
 823         if (found) {
 824                 printk("---> [%d] %s (%d/%d): tramp (%08lx) found at %08lx (%08lx /%+d) - %p\n",
 825                                 task_cpu(ri->task),
 826                                 ri->task->comm, ri->task->tgid, ri->task->pid,
 827                                 (unsigned long)tramp,
 828                                 (unsigned long)found, (unsigned long)ri->sp, found - ri->sp,
 829                                 ri->rp ? ri->rp->kp.addr: NULL);
 830                 *found = (unsigned long)ri->ret_addr;
 831                 retval = 0;
 832         } else {
 833                 printk("---> [%d] %s (%d/%d): tramp (%08lx) NOT found at sp = %08lx - %p\n",
 834                                 task_cpu(ri->task),
 835                                 ri->task->comm, ri->task->tgid, ri->task->pid,
 836                                 (unsigned long)tramp,
 837                                 (unsigned long)ri->sp, ri->rp ? ri->rp->kp.addr: NULL);
 838         }
 839
 840         return retval;
 841 }
 842
 843 int patch_suspended_task(struct kretprobe *rp, struct task_struct *task)
 844 {
 845         struct kretprobe_instance *ri;
 846         unsigned long flags;
 847         kprobe_opcode_t *tramp = (kprobe_opcode_t *)&kretprobe_trampoline;
 848
 849         spin_lock_irqsave(&kretprobe_lock, flags);
 850
 851         ri = get_free_rp_inst(rp);
 852         if (!ri)
 853                 return -ENOMEM;
 854
 855         ri->rp = rp;
 856         ri->task = task;
 857         ri->sp = NULL;
 858         set_task_trampoline(task, ri, (unsigned long)tramp);
 859         add_rp_inst(ri);
 860
 861         spin_unlock_irqrestore(&kretprobe_lock, flags);
 862         return 0;
 863 }
 864
 865 static int init_module_deps(void)
 866 {
 867         int ret;
 868
 869         sched_addr = swap_ksyms("__switch_to");
 870         fork_addr = swap_ksyms("do_fork");
 871         exit_addr = swap_ksyms("do_exit");
 872
 873         if (sched_addr == 0 || fork_addr == 0 || exit_addr == 0) {
 874                 return -ESRCH;
 875         }
 876
 877         ret = init_module_dependencies();
 878         if (ret) {
 879                 return ret;
 880         }
 881
 882         return arch_init_module_deps();
 883 }
 884
 885 static int __init init_kprobes(void)
 886 {
 887         int i, err = 0;
 888
 889         init_sm();
 890
 891         /* FIXME allocate the probe table, currently defined statically */
 892         /* initialize all list heads */
 893         for (i = 0; i < KPROBE_TABLE_SIZE; ++i) {
 894                 INIT_HLIST_HEAD(&kprobe_table[i]);
 895                 INIT_HLIST_HEAD(&kretprobe_inst_table[i]);
 896         }
 897         atomic_set(&kprobe_count, 0);
 898
 899         err = init_module_deps();
 900         if (err) {
 901                 return err;
 902         }
 903
 904         err = arch_init_kprobes();
 905
 906         DBPRINTF ("init_kprobes: arch_init_kprobes - %d", err);
 907
 908         return err;
 909 }
 910
 911 static void __exit exit_kprobes(void)
 912 {
 913         arch_exit_kprobes();
 914         exit_sm();
 915 }
 916
 917 module_init(init_kprobes);
 918 module_exit(exit_kprobes);
 919
 920 EXPORT_SYMBOL_GPL(dbi_register_kprobe);
 921 EXPORT_SYMBOL_GPL(dbi_unregister_kprobe);
 922 EXPORT_SYMBOL_GPL(dbi_register_jprobe);
 923 EXPORT_SYMBOL_GPL(dbi_unregister_jprobe);
 924 EXPORT_SYMBOL_GPL(dbi_jprobe_return);
 925 EXPORT_SYMBOL_GPL(dbi_register_kretprobe);
 926 EXPORT_SYMBOL_GPL(dbi_unregister_kretprobe);
 927
 928 MODULE_LICENSE("Dual BSD/GPL");