/*
    (C) 1995-96 AROS - The Amiga Replacement OS
    $Id: abort.c,v 1.2 1997/01/17 14:16:53 digulla Exp $

    Desc: ANSI C function exit()
    Lang: english
*/
#include <exec/types.h>
#include <setjmp.h>

extern LONG __startup_error;
extern jmp_buf __startup_jmp_buf;

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

    NAME */
#include <stdlib.h>

	void abort (

/*  SYNOPSIS */
	void)

/*  FUNCTION
	Causes abnormal program termination. If there is a signal handler
	for SIGABORT, then the handler will be called. If the handler
	returns, then the program is continued.

    INPUTS
	None.

    RESULT
	None. This function does not return.

    NOTES

    EXAMPLE
	if (fatal_error)
	    abort ();

    BUGS
	Signal handling is not implemented yet.

    SEE ALSO
	signal(), exit()

    INTERNALS

    HISTORY
	17.12.1996 digulla created

******************************************************************************/
{
    __startup_error = 20;

    longjmp (__startup_jmp_buf, 1);

    /* never reached */
} /* abort */