Subversion Repositories HelenOS-historic

/*

 * Copyright (C) 2001-2004 Jakub Jermar

 * 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.

 */

#include <synch/waitq.h>

#include <synch/synch.h>

#include <synch/spinlock.h>

#include <proc/thread.h>

#include <proc/scheduler.h>

#include <arch/asm.h>

#include <arch/types.h>

#include <typedefs.h>

#include <time/timeout.h>

#include <arch.h>

#include <context.h>

#include <adt/list.h>

static void waitq_timeouted_sleep(void *data);

/** Initialize wait queue

 *

 * Initialize wait queue.

 *

 * @param wq Pointer to wait queue to be initialized.

 */

void waitq_initialize(waitq_t *wq)

{

    spinlock_initialize(&wq->lock, "waitq_lock");

    list_initialize(&wq->head);

    wq->missed_wakeups = 0;

}

/** Handle timeout during waitq_sleep_timeout() call

 *

 * This routine is called when waitq_sleep_timeout() timeouts.

 * Interrupts are disabled.

 *

 * It is supposed to try to remove 'its' thread from the wait queue;

 * it can eventually fail to achieve this goal when these two events

 * overlap. In that case it behaves just as though there was no

 * timeout at all.

 *

 * @param data Pointer to the thread that called waitq_sleep_timeout().

 */

void waitq_timeouted_sleep(void *data)

{

    thread_t *t = (thread_t *) data;

    waitq_t *wq;

    bool do_wakeup = false;

    spinlock_lock(&threads_lock);

    if (!thread_exists(t))

        goto out;

grab_locks:

    spinlock_lock(&t->lock);

    if ((wq = t->sleep_queue)) {        /* assignment */

        if (!spinlock_trylock(&wq->lock)) {

            spinlock_unlock(&t->lock);

            goto grab_locks;    /* avoid deadlock */

        }

        list_remove(&t->wq_link);

        t->saved_context = t->sleep_timeout_context;

        do_wakeup = true;

        spinlock_unlock(&wq->lock);

        t->sleep_queue = NULL;

    }

    t->timeout_pending = false;

    spinlock_unlock(&t->lock);

    if (do_wakeup)

        thread_ready(t);

out:

    spinlock_unlock(&threads_lock);

}

/** Interrupt sleeping thread.

 *

 * This routine attempts to interrupt a thread from its sleep in a waitqueue.

 * If the thread is not found sleeping, no action is taken.

 *

 * @param t Thread to be interrupted.

 */

void waitq_interrupt_sleep(thread_t *t)

{

    waitq_t *wq;

    bool do_wakeup = false;

    ipl_t ipl;

    ipl = interrupts_disable();

    spinlock_lock(&threads_lock);

    if (!thread_exists(t))

        goto out;

grab_locks:

    spinlock_lock(&t->lock);

    if ((wq = t->sleep_queue)) {        /* assignment */

        if (!spinlock_trylock(&wq->lock)) {

            spinlock_unlock(&t->lock);

            goto grab_locks;    /* avoid deadlock */

        }

        list_remove(&t->wq_link);

        t->saved_context = t->sleep_interruption_context;

        do_wakeup = true;

        spinlock_unlock(&wq->lock);

        t->sleep_queue = NULL;

    }

    spinlock_unlock(&t->lock);

    if (do_wakeup)

        thread_ready(t);

out:

    spinlock_unlock(&threads_lock);

    interrupts_restore(ipl);

}

/** Sleep until either wakeup, timeout or interruption occurs

 *

 * This is a sleep implementation which allows itself to be

 * interrupted from the sleep, restoring a failover context.

 *

 * Sleepers are organised in FIFO fashion in a structure called wait queue.

 *

 * This function is really basic in that other functions as waitq_sleep()

 * and all the *_timeout() functions use it.

 *

 * @param wq Pointer to wait queue.

 * @param usec Timeout in microseconds.

 * @param nonblocking Blocking vs. non-blocking operation mode switch.

 *

 * If usec is greater than zero, regardless of the value of nonblocking,

 * the call will not return until either timeout or wakeup comes.

 *

 * If usec is zero and nonblocking is zero (false), the call

 * will not return until wakeup comes.

 *

 * If usec is zero and nonblocking is non-zero (true), the call will

 * immediately return, reporting either success or failure.

 *

 * @return Returns one of: ESYNCH_WOULD_BLOCK, ESYNCH_TIMEOUT,

 *         ESYNCH_OK_ATOMIC, ESYNCH_OK_BLOCKED.

 *

 * ESYNCH_WOULD_BLOCK means that the sleep failed because at the time

 * of the call there was no pending wakeup.

 *

 * ESYNCH_TIMEOUT means that the sleep timed out.

 *

 * ESYNCH_INTERRUPTED means that somebody interrupted the sleeping thread.

 *

 * ESYNCH_OK_ATOMIC means that the sleep succeeded and that there was

 * a pending wakeup at the time of the call. The caller was not put

 * asleep at all.

 *

 * ESYNCH_OK_BLOCKED means that the sleep succeeded; the full sleep was

 * attempted.

 */

int waitq_sleep_timeout(waitq_t *wq, __u32 usec, int nonblocking)

{

    volatile ipl_t ipl; /* must be live after context_restore() */

restart:

    ipl = interrupts_disable();

    /*

     * Busy waiting for a delayed timeout.

     * This is an important fix for the race condition between

     * a delayed timeout and a next call to waitq_sleep_timeout().

     * Simply, the thread is not allowed to go to sleep if

     * there are timeouts in progress.

     */

    spinlock_lock(&THREAD->lock);

    if (THREAD->timeout_pending) {

        spinlock_unlock(&THREAD->lock);

        interrupts_restore(ipl);       

        goto restart;

    }

    spinlock_unlock(&THREAD->lock);

    spinlock_lock(&wq->lock);

    /* checks whether to go to sleep at all */

    if (wq->missed_wakeups) {

        wq->missed_wakeups--;

        spinlock_unlock(&wq->lock);

        interrupts_restore(ipl);

        return ESYNCH_OK_ATOMIC;

    }

    else {

        if (nonblocking && (usec == 0)) {

            /* return immediatelly instead of going to sleep */

            spinlock_unlock(&wq->lock);

            interrupts_restore(ipl);

            return ESYNCH_WOULD_BLOCK;

        }

    }

    /*

     * Now we are firmly decided to go to sleep.

     */

    spinlock_lock(&THREAD->lock);

    /*

     * Set context that will be restored if the sleep

     * of this thread is ever interrupted.

     */

    if (!context_save(&THREAD->sleep_interruption_context)) {

        /* Short emulation of scheduler() return code. */

        spinlock_unlock(&THREAD->lock);

        interrupts_restore(ipl);

        return ESYNCH_INTERRUPTED;

    }

    if (usec) {

        /* We use the timeout variant. */

        if (!context_save(&THREAD->sleep_timeout_context)) {

            /* Short emulation of scheduler() return code. */

            spinlock_unlock(&THREAD->lock);

            interrupts_restore(ipl);

            return ESYNCH_TIMEOUT;

        }

        THREAD->timeout_pending = true;

        timeout_register(&THREAD->sleep_timeout, (__u64) usec, waitq_timeouted_sleep, THREAD);

    }

    list_append(&THREAD->wq_link, &wq->head);

    /*

     * Suspend execution.

     */

    THREAD->state = Sleeping;

    THREAD->sleep_queue = wq;

    spinlock_unlock(&THREAD->lock);

    scheduler();    /* wq->lock is released in scheduler_separated_stack() */

    interrupts_restore(ipl);

    return ESYNCH_OK_BLOCKED;

}

/** Wake up first thread sleeping in a wait queue

 *

 * Wake up first thread sleeping in a wait queue.

 * This is the SMP- and IRQ-safe wrapper meant for

 * general use.

 *

 * Besides its 'normal' wakeup operation, it attempts

 * to unregister possible timeout.

 *

 * @param wq Pointer to wait queue.

 * @param all If this is non-zero, all sleeping threads

 *        will be woken up and missed count will be zeroed.

 */

void waitq_wakeup(waitq_t *wq, bool all)

{

    ipl_t ipl;

    ipl = interrupts_disable();

    spinlock_lock(&wq->lock);

    _waitq_wakeup_unsafe(wq, all);

    spinlock_unlock(&wq->lock);

    interrupts_restore(ipl);   

}

/** Internal SMP- and IRQ-unsafe version of waitq_wakeup()

 *

 * This is the internal SMP- and IRQ-unsafe version

 * of waitq_wakeup(). It assumes wq->lock is already

 * locked and interrupts are already disabled.

 *

 * @param wq Pointer to wait queue.

 * @param all If this is non-zero, all sleeping threads

 *        will be woken up and missed count will be zeroed.

 */

void _waitq_wakeup_unsafe(waitq_t *wq, bool all)

{

    thread_t *t;

loop:  

    if (list_empty(&wq->head)) {

        wq->missed_wakeups++;

        if (all)

            wq->missed_wakeups = 0;

        return;

    }

    t = list_get_instance(wq->head.next, thread_t, wq_link);

    list_remove(&t->wq_link);

    spinlock_lock(&t->lock);

    if (t->timeout_pending && timeout_unregister(&t->sleep_timeout))

        t->timeout_pending = false;

    t->sleep_queue = NULL;

    spinlock_unlock(&t->lock);

    thread_ready(t);

    if (all)

        goto loop;

}