source: libcfa/src/exception.h @ 09ee131

ADTarm-ehast-experimentalenumforall-pointer-decayjacob/cs343-translationnew-ast-unique-exprpthread-emulationqualifiedEnum
Last change on this file since 09ee131 was c960331, checked in by Andrew Beach <ajbeach@…>, 4 years ago

Attempt to clean-up the exception headers. I think this is easier to follow.

  • Property mode set to 100644
File size: 4.7 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// exception.h -- Internal exception handling definitions.
8//
9// Author           : Andrew Beach
10// Created On       : Mon Jun 26 15:11:00 2017
11// Last Modified By : Andrew Beach
12// Last Modified On : Tue Oct 27 14:45:00 2020
13// Update Count     : 11
14//
15
16#pragma once
17
18// This could be considered several headers. All are internal to the exception
19// system but needed to depending on whether they are C/Cforall code and
20// whether or not they are part of the builtins.
21
22#ifdef __cforall
23extern "C" {
24#endif
25
26// Included in C code or the built-ins.
27#if !defined(__cforall) || defined(__cforall_builtins__)
28
29struct __cfaehm_base_exception_t;
30typedef struct __cfaehm_base_exception_t exception_t;
31struct __cfaehm_base_exception_t_vtable {
32        const struct __cfaehm_base_exception_t_vtable * parent;
33        size_t size;
34        void (*copy)(struct __cfaehm_base_exception_t *this,
35                     struct __cfaehm_base_exception_t * other);
36        void (*free)(struct __cfaehm_base_exception_t *this);
37        const char * (*msg)(struct __cfaehm_base_exception_t *this);
38};
39struct __cfaehm_base_exception_t {
40        struct __cfaehm_base_exception_t_vtable const * virtual_table;
41};
42extern struct __cfaehm_base_exception_t_vtable
43        ___cfaehm_base_exception_t_vtable_instance;
44
45
46void __cfaehm_cancel_stack(exception_t * except) __attribute__((noreturn));
47
48// Used in throw statement translation.
49void __cfaehm_throw_terminate(exception_t * except, void (*)(exception_t *));
50void __cfaehm_rethrow_terminate() __attribute__((noreturn));
51void __cfaehm_throw_resume(exception_t * except, void (*)(exception_t *));
52
53// Function catches termination exceptions.
54void __cfaehm_try_terminate(
55        void (*try_block)(),
56        void (*catch_block)(int index, exception_t * except),
57        int (*match_block)(exception_t * except));
58
59// Clean-up the exception in catch blocks.
60void __cfaehm_cleanup_terminate(void * except);
61
62// Data structure creates a list of resume handlers.
63struct __cfaehm_try_resume_node {
64        struct __cfaehm_try_resume_node * next;
65        _Bool (*handler)(exception_t * except);
66};
67
68// These act as constructor and destructor for the resume node.
69void __cfaehm_try_resume_setup(
70        struct __cfaehm_try_resume_node * node,
71        _Bool (*handler)(exception_t * except));
72void __cfaehm_try_resume_cleanup(
73        struct __cfaehm_try_resume_node * node);
74
75// Check for a standard way to call fake deconstructors.
76struct __cfaehm_cleanup_hook {};
77
78#endif
79
80// Included in C code and the library.
81#if !defined(__cforall) || !defined(__cforall_builtins__)
82struct __cfaehm_node {
83        struct _Unwind_Exception unwind_exception;
84        struct __cfaehm_node * next;
85        int handler_index;
86};
87
88static inline exception_t * __cfaehm_cancellation_exception(
89                struct _Unwind_Exception * unwind_exception ) {
90        return (exception_t *)(1 + (struct __cfaehm_node *)unwind_exception);
91}
92#endif
93
94#ifdef __cforall
95}
96
97// Built-ins not visible in C.
98#if defined(__cforall_builtins__)
99
100// Not all the built-ins can be expressed in C. These can't be
101// implemented in the .c file either so they all have to be inline.
102
103trait is_exception(dtype exceptT, dtype virtualT) {
104        /* The first field must be a pointer to a virtual table.
105         * That virtual table must be a decendent of the base exception virtual table.
106         */
107        virtualT const & get_exception_vtable(exceptT *);
108        // Always returns the virtual table for this type (associated types hack).
109};
110
111trait is_termination_exception(dtype exceptT, dtype virtualT | is_exception(exceptT, virtualT)) {
112        void defaultTerminationHandler(exceptT &);
113};
114
115trait is_resumption_exception(dtype exceptT, dtype virtualT | is_exception(exceptT, virtualT)) {
116        void defaultResumptionHandler(exceptT &);
117};
118
119forall(dtype exceptT, dtype virtualT | is_termination_exception(exceptT, virtualT))
120static inline void $throw(exceptT & except) {
121        __cfaehm_throw_terminate(
122                (exception_t *)&except,
123                (void(*)(exception_t *))defaultTerminationHandler
124        );
125}
126
127forall(dtype exceptT, dtype virtualT | is_resumption_exception(exceptT, virtualT))
128static inline void $throwResume(exceptT & except) {
129        __cfaehm_throw_resume(
130                (exception_t *)&except,
131                (void(*)(exception_t *))defaultResumptionHandler
132        );
133}
134
135forall(dtype exceptT, dtype virtualT | is_exception(exceptT, virtualT))
136static inline void cancel_stack(exceptT & except) __attribute__((noreturn)) {
137        __cfaehm_cancel_stack( (exception_t *)&except );
138}
139
140forall(dtype exceptT, dtype virtualT | is_exception(exceptT, virtualT))
141static inline void defaultTerminationHandler(exceptT & except) {
142        return cancel_stack( except );
143}
144
145forall(dtype exceptT, dtype virtualT | is_exception(exceptT, virtualT))
146static inline void defaultResumptionHandler(exceptT & except) {
147        throw except;
148}
149
150#endif
151
152#endif
Note: See TracBrowser for help on using the repository browser.