/* Exception handler actions. */

#define MVM_EX_ACTION_GOTO                0

#define MVM_EX_ACTION_GOTO_WITH_PAYLOAD   1

#define MVM_EX_ACTION_INVOKE              2

/* Exception categories. */

#define MVM_EX_CAT_CATCH         1

#define MVM_EX_CAT_CONTROL       2

#define MVM_EX_CAT_NEXT          4

#define MVM_EX_CAT_REDO          8

#define MVM_EX_CAT_LAST          16

#define MVM_EX_CAT_RETURN        32

#define MVM_EX_CAT_UNWIND        64

#define MVM_EX_CAT_TAKE          128

#define MVM_EX_CAT_WARN          256

#define MVM_EX_CAT_SUCCEED       512

#define MVM_EX_CAT_PROCEED       1024

#define MVM_EX_CAT_LABELED       4096

#define MVM_EX_CAT_AWAIT         8192

#define MVM_EX_CAT_EMIT          16384

#define MVM_EX_CAT_DONE          32768

/* Ways to throw an exception. */

#define MVM_EX_THROW_DYN         0

#define MVM_EX_THROW_LEX         1

#define MVM_EX_THROW_LEXOTIC     2

#define MVM_EX_THROW_LEX_CALLER  3

/* Information associated with an exception handler. */

struct MVMFrameHandler {

    /* Start offset into the frame's bytecode for the handler, inclusive. */

    MVMuint32 start_offset;

    /* End offset into the frame's bytecode for the handler, exclusive. */

    MVMuint32 end_offset;

    /* Category mask. */

    MVMuint32 category_mask;

    /* The kind of handler it is. */

    MVMuint16 action;

    /* Register containing block to invoke, for invokey handlers. */

    MVMuint16 block_reg;

    /* Offset into the frame's bytecode of the handler, for goto handlers. */

    MVMuint32 goto_offset;

    /* Register containing a label in case we have a labeled loop. We need to

     * be able to check for its identity when handling e.g. `next LABEL`. */

    MVMuint16 label_reg;

    /* Is this handler actually a clone of a caller's handler performed during

     * inlining of something, and is that something not lexically enclosed in

     * the thing it was inlined into? If yes,this flag will be set. We need to

     * ignore such handlers when searching for matching lexical handlers only. */

    MVMuint16 inlined_and_not_lexical;

};

/* An active (currently executing) exception handler. */

struct MVMActiveHandler {

    /* The frame the handler was found in. */

    MVMFrame *frame;

    /* The handler information itself. */

    MVMFrameHandler *handler;

    /* Handler information for a JITted handler */

    MVMJitHandler *jit_handler;

    /* The exception object. */

    MVMObject *ex_obj;

    /* The next active handler in the chain. */

    MVMActiveHandler *next_handler;

};

/* Exception related functions. */

MVMObject * MVM_exception_backtrace(MVMThreadContext *tc, MVMObject *ex_obj);

MVMObject * MVM_exception_backtrace_strings(MVMThreadContext *tc, MVMObject *exObj);

void MVM_dump_backtrace(MVMThreadContext *tc);

void MVM_exception_throwcat(MVMThreadContext *tc, MVMuint8 mode, MVMuint32 cat, MVMRegister *resume_result);

void MVM_exception_die(MVMThreadContext *tc, MVMString *str, MVMRegister *rr);

void MVM_exception_throwobj(MVMThreadContext *tc, MVMuint8 mode, MVMObject *exObj, MVMRegister *resume_result);

void MVM_exception_throwpayload(MVMThreadContext *tc, MVMuint8 mode, MVMuint32 cat, MVMObject *payload, MVMRegister *resume_result);

void MVM_exception_resume(MVMThreadContext *tc, MVMObject *exObj);

MVMObject * MVM_exception_newlexotic(MVMThreadContext *tc, MVMuint32 offset);

MVMObject * MVM_exception_newlexotic_from_jit(MVMThreadContext *tc, MVMint32 label);

void MVM_exception_gotolexotic(MVMThreadContext *tc, MVMint32 handler_idx, MVMStaticFrame *sf);

MVM_PUBLIC MVM_NO_RETURN void MVM_panic_allocation_failed(size_t len) MVM_NO_RETURN_GCC;

MVM_PUBLIC MVM_NO_RETURN void MVM_panic(MVMint32 exitCode, const char *messageFormat, ...) MVM_NO_RETURN_GCC MVM_FORMAT(printf, 2, 3);

MVM_PUBLIC MVM_NO_RETURN void MVM_oops(MVMThreadContext *tc, const char *messageFormat, ...) MVM_NO_RETURN_GCC MVM_FORMAT(printf, 2, 3);

MVM_PUBLIC MVM_NO_RETURN void MVM_exception_throw_adhoc(MVMThreadContext *tc, const char *messageFormat, ...) MVM_NO_RETURN_GCC MVM_FORMAT(printf, 2, 3);

MVM_NO_RETURN void MVM_exception_throw_adhoc_va(MVMThreadContext *tc, const char *messageFormat, va_list args) MVM_NO_RETURN_GCC;

MVM_PUBLIC MVM_NO_RETURN void MVM_exception_throw_adhoc_free(MVMThreadContext *tc, char **waste, const char *messageFormat, ...) MVM_NO_RETURN_GCC MVM_FORMAT(printf, 3, 4);

MVM_NO_RETURN void MVM_exception_throw_adhoc_free_va(MVMThreadContext *tc, char **waste, const char *messageFormat, va_list args) MVM_NO_RETURN_GCC;

MVM_PUBLIC void MVM_crash_on_error(void);

char * MVM_exception_backtrace_line(MVMThreadContext *tc, MVMFrame *cur_frame, MVMuint16 not_top);

/* Exit codes for panic. */

#define MVM_exitcode_NYI            12

#define MVM_exitcode_compunit       13

#define MVM_exitcode_invalidopcode  14

#define MVM_exitcode_gcalloc        15

#define MVM_exitcode_gcroots        16

#define MVM_exitcode_gcnursery      17

#define MVM_exitcode_threads        18

#define MVM_exitcode_gcorch         19