/*
 * Copyright (c) 1995 Argonaut Technologies Limited. All rights reserved.
 *
 * $Id: brexcept.c 1.2 1995/07/28 19:01:34 sam Exp $
 * $Locker:  $
 *
 * Simple exception handling
 */
#include <stddef.h>
#include <stdio.h>
#include <string.h>
#include <setjmp.h>

#include "fw.h"

/*
 * Current head of exception handler chain
 */
br_exception_handler *_BrExceptionHandler = NULL;

/*
 * Temporary global used to pass exception value
 */
static void * exceptionValue;

/*
 * Add an exception handler to the stack - returns a point to exception handler
 * into which the caller should save context
 */
br_exception_handler * _BrExceptionCatch(void)
{
	br_exception_handler *h;

	/*
	 * Create an anchor resource
	 */
	h = BrResAllocate(0,sizeof(*h), BR_MEMORY_EXCEPTION_HANDLER);
	h->prev = _BrExceptionHandler;

	return _BrExceptionHandler;
}

/*
 *  Unwind back to the last exception handler, passing a type and value
 */
void _BrExceptionThrow(br_int_32 type, void *value)
{
	br_exception_handler h,*old;

	/*
	 * Make sure exception stack does not underflow
	 */
	if(_BrExceptionHandler == NULL)
		BR_ERROR("Unhandled exception: %d");

	h = *_BrExceptionHandler;
	old = _BrExceptionHandler;

	_BrExceptionHandler = _BrExceptionHandler->prev;

	/*
	 * Release all the attached resources
	 */
	BrResFree(old);

	/*
	 * Pop stack back down to handler context
	 */
	exceptionValue = value;
	longjmp(h.context, type);
}

/*
 * Wrapper function used in BrExceptionCatch() macro to stash the
 * value
 *
 * 
 */
br_exception _BrExceptionValueFetch(br_exception type, void **evp)
{
	/*
	 * If type is a valid exception, save the exception value
	 */
	if(type && evp)
		*evp = exceptionValue;

	return type;
}