/*
    Copyright (C) 1995-1997 AROS - The Amiga Replacement OS
    $Id: switch.c,v 1.2 1997/08/07 12:25:43 digulla Exp $

    Desc: Switch() - Switch to the next available task.
    Lang: english
*/

#include <exec/execbase.h>
#include "exec_pdefs.h"

/*****************************************************************************

    NAME */
#include <proto/exec.h>

	AROS_LH0(void, Switch,

/*  LOCATION */
	struct ExecBase *, SysBase, 9, Exec)

/*  FUNCTION
	Switch to the next task which wishes to be run. This function has
	a similar effect to calling Dispatch(), however it may be called
	at any time, and will not lose the current task if it is of type
	TS_RUN.

    INPUTS

    RESULT

    NOTES
	This function will preserve all its registers.

    EXAMPLE

    BUGS

    SEE ALSO
	Dispatch(), Reschedule()

    INTERNALS
	If you want to have this function save all its registers, you
	should replace this function in $(KERNEL) or $(ARCH).

    HISTORY

******************************************************************************/
{
    AROS_LIBFUNC_INIT

    struct Task *this = SysBase->ThisTask;

    /*
	If the state is not TS_RUN then the task is already in a list
    */

    if( (this->tc_State == TS_RUN)
	&& !(this->tc_Flags & TF_EXCEPT) )
    {
	this->tc_State = TS_READY;

	/* Use Reschedule() to put the task in the correct list. */
	Reschedule(this);
    }

    /* Call the dispatcher proper. */
    Dispatch();

    AROS_LIBFUNC_EXIT
} /* Switch() */