source: libcfa/src/concurrency/exception.hfa@ 5d2db68

//
// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
//
// exception.hfa -- Exceptions in a concurrent environment.
//
// Author           : Andrew Beach
// Created On       : Mon Aug 24 10:41:00 2020
// Last Modified By : Andrew Beach
// Last Modified On : Mon Aug 24 14:27:00 2020
// Update Count     : 0
//

#pragma once

// This is an internal bridge between the two modes and must be C compatable.

#include "bits/defs.hfa"
#include "invoke.h"

#ifdef __cforall
extern "C" {

#define HIDE_EXPORTS
#endif
#include "unwind.h"

struct exception_context_t * this_exception_context(void) OPTIONAL_THREAD;

_Unwind_Reason_Code __cfaehm_cancellation_unwind(
                struct _Unwind_Exception * unwind_exception ) OPTIONAL_THREAD;

struct __cfaehm_node {
        struct _Unwind_Exception unwind_exception;
        struct __cfaehm_node * next;
        int handler_index;
};

static inline exception_t * __cfaehm_cancellation_exception(
                struct _Unwind_Exception * unwind_exception ) {
        return (exception_t *)(1 + (struct __cfaehm_node *)unwind_exception);
}

#ifdef __cforall
#undef HIDE_EXPORTS
}
#endif