Subversion Repositories HelenOS

/*

 * Copyright (c) 2008 Jiri Svoboda

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 *

 * - Redistributions of source code must retain the above copyright

 *   notice, this list of conditions and the following disclaimer.

 * - Redistributions in binary form must reproduce the above copyright

 *   notice, this list of conditions and the following disclaimer in the

 *   documentation and/or other materials provided with the distribution.

 * - The name of the author may not be used to endorse or promote products

 *   derived from this software without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR

 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES

 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.

 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,

 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT

 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,

 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY

 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF

 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 */

/** @addtogroup debug

 * @{

 */

/** @file

 */

#include <stdio.h>

#include <stdlib.h>

#include <sys/types.h>

#include <udebug.h>

#include <kernel/arch/context_offset.h>

#include "../../../cons.h"

#include "../../../main.h"

#include "../../../include/arch.h"

#define OPCODE_INT3     0xCC

static breakpoint_t *lifted_brkpt;

void arch_breakpoint_add(uintptr_t addr)

{

    char brkp[1];

    int rc;

    breakpoint_t *brk;

    int i;

    brk = NULL;

    for (i = 1; i < MAX_BRKPTS; i++)

        if (brk_list[i].set == 0) { brk = brk_list+i; break; }

    if (!brk) {

        cons_printf("too many breakpoints\n");

        return;

    }

    rc = udebug_mem_read(app_phone, &brk->arch.back, addr, 1);

    cons_printf("udebug_mem_read() -> %d\n", rc);

    brkp[0] = OPCODE_INT3;

    rc = udebug_mem_write(app_phone, brkp, addr, 1);

    cons_printf("udebug_mem_write() -> %d\n", rc);

    brk->addr = addr;

    brk->set = 1;

    cons_printf("Added breakpoint %d\n", i);

}

void arch_breakpoint_remove(int id)

{

    int rc;

    if (id < 1 || id >= MAX_BRKPTS || brk_list[id].set == 0) {

        cons_printf("No such breakpoint\n");

        return;

    }

    if (lifted_brkpt == &brk_list[id]) {

        lifted_brkpt = NULL;

    } else {

            rc = udebug_mem_write(app_phone, &brk_list[id].arch.back, brk_list[id].addr, 1);

        if (rc < 0) { printf("error writing mem\n"); return; }     

    }

    brk_list[id].set = 0;

    cons_printf("Breakpoint removed\n");

}

void arch_breakpoint_list(void)

{

    int i;

    for (i = 0; i < MAX_BRKPTS; ++i) {

        if (brk_list[i].set != 0) {

            printf("Breakpoint %d at 0x%lx\n", i, brk_list[i].addr);

        }

    }

}

void arch_event_breakpoint(thash_t thread_hash)

{

    static istate_t istate;

    int rc;

    rc = udebug_regs_read(app_phone, thread_hash, &istate);

//  cons_printf("udebug_regs_read -> %d\n", rc);

//  cons_printf("EIP was 0x%08x\n", istate.eip);

    int brk_addr = istate.eip - 1;

    int bi;

    for (bi = 0; bi < MAX_BRKPTS; bi++) {

        if (brk_list[bi].set && brk_list[bi].addr == brk_addr)

            break;

    }

    if (bi < MAX_BRKPTS) {

        cons_printf("breakpoint %d hit\n", bi);

        istate.eip = brk_addr;

        istate.eflags |= 0x0100; /* trap flag */

//      cons_printf("setting EIP to 0x%08x\n", istate.eip);

        rc = udebug_regs_write(app_phone, thread_hash, &istate);

        if (rc < 0) { printf("error writing regs\n"); return; }

            rc = udebug_mem_write(app_phone, &brk_list[bi].arch.back, brk_addr, 1);

        if (rc < 0) { printf("error writing mem\n"); return; }

//      cons_printf("udebug_mem_write(phone, 0x%x, 0x%02x, 1) -> %d\n", brk_addr, brk_list[bi].arch.back, rc);

        lifted_brkpt = &brk_list[bi];

        breakpoint_hit();

    } else {

        cons_printf("unrecognized breakpoint at 0x%x\n", brk_addr);

    }

}

void arch_event_trap(dthread_t *dt)

{

    static istate_t istate;

    unsigned char brkinstr[1];

    int rc;

//  cons_printf("trap event\n");

    breakpoint_t *lb = lifted_brkpt;

    if (lb) {

        brkinstr[0] = OPCODE_INT3;

        rc = udebug_mem_write(app_phone, brkinstr, lb->addr, 1);

//      cons_printf("restore breakpoint -> %d\n", rc);

        lifted_brkpt = NULL;

    }

    if (!dt->arch.singlestep) {

        rc = udebug_regs_read(app_phone, dt->hash, &istate);

//      cons_printf("udebug_regs_read -> %d\n", rc);

        istate.eflags &= ~0x0100; /* trap flag */

        rc = udebug_regs_write(app_phone, dt->hash, &istate);

    } else {

//      printf("ss-hit\n");

        singlestep_hit();

    }

}

void arch_dump_regs(thash_t thash)

{

    static istate_t istate;

    int rc;

    printf("arch_dump_regs...\n");

    rc = udebug_regs_read(app_phone, thash, &istate);

    if (rc < 0) { cons_printf("Error reading regs\n"); return; }

    cons_printf(

        "eip:%08x eflags:%08x eax:%08x ebx:%08x ecx:%08x edx:%08x\n"

        "esi:%08x edi:%08x cs:%04x ds:%04x es:%04x fs:%04x gs:%04x\n",

        istate.eip, istate.eflags, istate.eax, istate.ebx,

        istate.ecx, istate.edx, istate.esi, istate.edi, istate.cs,

        istate.ds, istate.es, istate.fs, istate.gs);

}

void arch_set_singlestep(dthread_t *dt, int enable)

{

    static istate_t istate;

    int rc;

    rc = udebug_regs_read(app_phone, dt->hash, &istate);

    if (rc < 0) { printf("regs read failed\n"); return; }

    if (enable) istate.eflags |= 0x0100; /* trap flag */

    else if (!lifted_brkpt) istate.eflags &= ~0x0100; /* trap flag */

    rc = udebug_regs_write(app_phone, dt->hash, &istate);  

    if (rc < 0) { printf("regs write failed\n"); return; }

    dt->arch.singlestep = enable;

}

/** @}

 */