/*
    (C) 1995-96 AROS - The Amiga Replacement OS
    $Id: permit.c,v 1.1 1997/05/07 15:11:22 aros Exp $

    Desc:
    Lang:
*/
#include <exec/execbase.h>
#include <proto/exec.h>

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

    NAME
	#include <proto/exec.h>

	AROS_LH0(void, Permit,

    LOCATION
	struct ExecBase *, SysBase, 23, Exec)

    FUNCTION
	This function activates the dispatcher again after a call to Permit().

    INPUTS
	None.

    RESULT
	None.

    NOTES
	This function preserves all registers.

    EXAMPLE

    BUGS

    SEE ALSO
	Forbid(), Disable(), Enable()

    INTERNALS

    HISTORY

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

/* The real function is written in assembler as stub which calls me */
void _Permit (struct ExecBase * SysBase)
{
    if ((--SysBase->TDNestCnt) < 0
	&& (SysBase->AttnResched & 0x80)
	&& SysBase->IDNestCnt < 0
    )
    {
	SysBase->AttnResched &= ~0x80;

	Switch ();
    }
} /* _Permit */