/*
* 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 generic
* @{
*/
/**
* @file
* @brief Udebug operations.
*/
#include <console/klog.h>
#include <proc/task.h>
#include <proc/thread.h>
#include <arch.h>
#include <errno.h>
#include <syscall/copy.h>
#include <ipc/ipc.h>
#include <udebug/udebug.h>
#include <udebug/udebug_ops.h>
/**
* Prepare a thread for a debugging operation.
*
* Simply put, return thread t with t->debug_lock held,
* but only if it verifies all conditions.
*
* Specifically, verifies that thread t exists, is a userspace thread,
* and belongs to the current task (TASK). Verifies, that the thread
* has (or hasn't) go according to having_go (typically false).
* It also locks t->debug_lock, making sure that t->debug_active is true
* - that the thread is in a valid debugging session.
*
* Returns EOK if all went well, or an error code otherwise.
* Interrupts must be already disabled when calling this function.
*
* Note: This function sports complicated locking.
*/
static int _thread_op_begin(thread_t *t, bool having_go)
{
int rc;
task_id_t taskid;
taskid = TASK->taskid;
/* Must lock threads_lock to ensure continued existence of the thread */
spinlock_lock(&threads_lock);
if (!thread_exists(t)) {
spinlock_unlock(&threads_lock);
return ENOENT;
}
spinlock_lock(&t->debug_lock);
spinlock_lock(&t->lock);
/* Now verify that it's the current task */
if (t->task != TASK) {
/* No such thread belonging to callee */
rc = ENOENT;
goto error_exit;
}
/* Verify that 't' is a userspace thread */
if ((t->flags & THREAD_FLAG_USPACE) == 0) {
/* It's not, deny its existence */
rc = ENOENT;
goto error_exit;
}
if ((t->debug_active != true) || (!t->debug_stop != having_go)) {
/* Not in debugging session or undesired GO state */
rc = EINVAL;
goto error_exit;
}
spinlock_unlock(&threads_lock);
spinlock_unlock(&t->lock);
/* Only t->debug_lock left */
return EOK; /* All went well */
/* Executed when a check on the thread fails */
error_exit:
spinlock_unlock(&t->lock);
spinlock_unlock(&t->debug_lock);
spinlock_unlock(&threads_lock);
/* No locks left here */
return rc; /* Some errors occured */
}
static void _thread_op_end(thread_t *t)
{
spinlock_unlock(&t->debug_lock);
}
/**
* \return 0 (ok, but not done yet), 1 (done) or negative error code.
*/
int udebug_begin(call_t *call)
{
ipl_t ipl;
int reply;
thread_t *t;
link_t *cur;
klog_printf("udebug_begin()");
mutex_lock(&TASK->udebug.lock);
klog_printf("debugging task %llu", TASK->taskid);
if (TASK->udebug.dt_state != UDEBUG_TS_INACTIVE) {
mutex_unlock(&TASK->udebug.lock);
klog_printf("udebug_begin(): busy error");
return EBUSY;
}
TASK->udebug.dt_state = UDEBUG_TS_BEGINNING;
TASK->udebug.begin_call = call;
TASK->udebug.debugger = call->sender;
if (TASK->udebug.not_stoppable_count == 0) {
TASK->udebug.dt_state = UDEBUG_TS_ACTIVE;
TASK->udebug.begin_call = NULL;
reply = 1; /* immediate reply */
} else {
reply = 0; /* no reply */
}
/* Set debug_active on all of the task's userspace threads */
for (cur = TASK->th_head.next; cur != &TASK->th_head; cur = cur->next) {
t = list_get_instance(cur, thread_t, th_link);
ipl = interrupts_disable();
spinlock_lock(&t->debug_lock);
if ((t->flags & THREAD_FLAG_USPACE) != 0)
t->debug_active = true;
spinlock_unlock(&t->debug_lock);
interrupts_restore(ipl);
}
mutex_unlock(&TASK->udebug.lock);
klog_printf("udebug_begin() done (%s)",
reply ? "reply" : "stoppability wait");
return reply;
}
int udebug_end(void)
{
int rc;
klog_printf("udebug_end()");
mutex_lock(&TASK->udebug.lock);
klog_printf("task %llu", TASK->taskid);
rc = udebug_task_cleanup(TASK);
mutex_unlock(&TASK->udebug.lock);
return rc;
}
int udebug_set_evmask(udebug_evmask_t mask)
{
klog_printf("udebug_set_mask()");
klog_printf("debugging task %llu", TASK->taskid);
mutex_lock(&TASK->udebug.lock);
if (TASK->udebug.dt_state != UDEBUG_TS_ACTIVE) {
mutex_unlock(&TASK->udebug.lock);
klog_printf("udebug_set_mask(): not active debuging session");
return EINVAL;
}
TASK->udebug.evmask = mask;
mutex_unlock(&TASK->udebug.lock);
return 0;
}
int udebug_go(thread_t *t, call_t *call)
{
ipl_t ipl;
int rc;
// klog_printf("udebug_go()");
ipl = interrupts_disable();
/* On success, this will lock t->debug_lock */
rc = _thread_op_begin(t, false);
if (rc != EOK) {
interrupts_restore(ipl);
return rc;
}
t->debug_go_call = call;
t->debug_stop = false;
t->cur_event = 0; /* none */
/*
* Neither t's lock nor threads_lock may be held during wakeup
*/
waitq_wakeup(&t->go_wq, WAKEUP_FIRST);
_thread_op_end(t);
interrupts_restore(ipl);
return 0;
}
int udebug_stop(thread_t *t, call_t *call)
{
ipl_t ipl;
int rc;
klog_printf("udebug_stop()");
mutex_lock(&TASK->udebug.lock);
ipl = interrupts_disable();
/*
* On success, this will lock t->debug_lock. Note that this makes sure
* the thread is not stopped.
*/
rc = _thread_op_begin(t, true);
if (rc != EOK) {
interrupts_restore(ipl);
return rc;
}
/* Take GO away from the thread */
t->debug_stop = true;
if (!t->debug_stoppable) {
/* Answer will be sent when the thread becomes stoppable */
_thread_op_end(t);
interrupts_restore(ipl);
return 0;
}
/*
* Answer GO call
*/
klog_printf("udebug_stop - answering go call");
/* Make sure nobody takes this call away from us */
call = t->debug_go_call;
t->debug_go_call = NULL;
IPC_SET_RETVAL(call->data, 0);
IPC_SET_ARG1(call->data, UDEBUG_EVENT_STOP);
klog_printf("udebug_stop/ipc_answer");
THREAD->cur_event = UDEBUG_EVENT_STOP;
_thread_op_end(t);
interrupts_restore(ipl);
ipc_answer(&TASK->answerbox, call);
mutex_unlock(&TASK->udebug.lock);
klog_printf("udebog_stop/done");
return 0;
}
int udebug_thread_read(void **buffer, size_t buf_size, size_t *n)
{
thread_t *t;
link_t *cur;
unative_t tid;
unsigned copied_ids;
ipl_t ipl;
unative_t *id_buffer;
int flags;
size_t max_ids;
klog_printf("udebug_thread_read()");
/* Allocate a buffer to hold thread IDs */
id_buffer
= malloc(buf_size
, 0);
mutex_lock(&TASK->udebug.lock);
/* Verify task state */
if (TASK->udebug.dt_state != UDEBUG_TS_ACTIVE) {
mutex_unlock(&TASK->udebug.lock);
return EINVAL;
}
ipl = interrupts_disable();
spinlock_lock(&TASK->lock);
/* Copy down the thread IDs */
max_ids = buf_size / sizeof(unative_t);
copied_ids = 0;
for (cur = TASK->th_head.next; cur != &TASK->th_head; cur = cur->next) {
/* Do not write past end of buffer */
if (copied_ids >= max_ids) break;
t = list_get_instance(cur, thread_t, th_link);
spinlock_lock(&t->lock);
flags = t->flags;
spinlock_unlock(&t->lock);
/* Not interested in kernel threads */
if ((flags & THREAD_FLAG_USPACE) != 0) {
/* Using thread struct pointer as identification hash */
tid = (unative_t) t;
id_buffer[copied_ids++] = tid;
}
}
spinlock_unlock(&TASK->lock);
interrupts_restore(ipl);
mutex_unlock(&TASK->udebug.lock);
*buffer = id_buffer;
*n = copied_ids * sizeof(unative_t);
return 0;
}
int udebug_args_read(thread_t *t, void **buffer)
{
int rc;
ipl_t ipl;
unative_t *arg_buffer;
klog_printf("udebug_args_read()");
/* Prepare a buffer to hold the arguments */
arg_buffer
= malloc(6 * sizeof(unative_t
), 0);
ipl = interrupts_disable();
/* On success, this will lock t->debug_lock */
rc = _thread_op_begin(t, false);
if (rc != EOK) {
interrupts_restore(ipl);
return rc;
}
/* Additionally we need to verify that we are inside a syscall */
if (t->cur_event != UDEBUG_EVENT_SYSCALL_B &&
t->cur_event != UDEBUG_EVENT_SYSCALL_E) {
_thread_op_end(t);
interrupts_restore(ipl);
return EINVAL;
}
/* Copy to a local buffer before releasing the lock */
memcpy(arg_buffer
, t
->syscall_args
, 6 * sizeof(unative_t
));
_thread_op_end(t);
interrupts_restore(ipl);
*buffer = arg_buffer;
return 0;
}
int udebug_regs_read(thread_t *t, void *buffer)
{
istate_t *state;
int rc;
ipl_t ipl;
klog_printf("udebug_regs_read()");
ipl = interrupts_disable();
/* On success, this will lock t->debug_lock */
rc = _thread_op_begin(t, false);
if (rc != EOK) {
interrupts_restore(ipl);
return rc;
}
state = t->uspace_state;
if (state == NULL) {
_thread_op_end(t);
interrupts_restore(ipl);
klog_printf("udebug_regs_read() - istate not available");
return EBUSY;
}
/* Copy to the allocated buffer */
memcpy(buffer
, state
, sizeof(istate_t
));
_thread_op_end(t);
interrupts_restore(ipl);
return 0;
}
int udebug_regs_write(thread_t *t, void *buffer)
{
int rc;
istate_t *state;
ipl_t ipl;
klog_printf("udebug_regs_write()");
/* Try to change the thread's uspace_state */
ipl = interrupts_disable();
/* On success, this will lock t->debug_lock */
rc = _thread_op_begin(t, false);
if (rc != EOK) {
klog_printf("error locking thread");
interrupts_restore(ipl);
return rc;
}
state = t->uspace_state;
if (state == NULL) {
_thread_op_end(t);
interrupts_restore(ipl);
klog_printf("udebug_regs_write() - istate not available");
return EBUSY;
}
memcpy(t
->uspace_state
, buffer
, sizeof(istate_t
));
_thread_op_end(t);
interrupts_restore(ipl);
return 0;
}
int udebug_mem_read(unative_t uspace_addr, size_t n, void **buffer)
{
void *data_buffer;
int rc;
/* Verify task state */
mutex_lock(&TASK->udebug.lock);
if (TASK->udebug.dt_state != UDEBUG_TS_ACTIVE) {
mutex_unlock(&TASK->udebug.lock);
return EBUSY;
}
// klog_printf("udebug_mem_read: src=%u, size=%u", uspace_addr, n);
/* NOTE: this is not strictly from a syscall... but that shouldn't
* be a problem */
rc = copy_from_uspace(data_buffer, (void *)uspace_addr, n);
mutex_unlock(&TASK->udebug.lock);
if (rc != 0) return rc;
*buffer = data_buffer;
return 0;
}
int udebug_mem_write(unative_t uspace_addr, void *data, size_t n)
{
int rc;
klog_printf("udebug_mem_write()");
/* Verify task state */
mutex_lock(&TASK->udebug.lock);
if (TASK->udebug.dt_state != UDEBUG_TS_ACTIVE) {
mutex_unlock(&TASK->udebug.lock);
return EBUSY;
}
klog_printf("dst=%u, size=%u", uspace_addr, n);
/* NOTE: this is not strictly from a syscall... but that shouldn't
* be a problem */
// rc = copy_to_uspace((void *)uspace_addr, data, n);
// if (rc) return rc;
rc = as_debug_write(uspace_addr, data, n);
mutex_unlock(&TASK->udebug.lock);
return rc;
}
/** @}
*/