mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-13 12:53:53 +00:00
d465fa53cb
Discussion of these changes can be found on the Mercury developers
mailing list archives from June 2018.
COPYING.LIB:
Add a special linking exception to the LGPL.
*:
Update references to COPYING.LIB.
Clean up some minor errors that have accumulated in copyright
messages.
133 lines
4.1 KiB
C
133 lines
4.1 KiB
C
// vim: ts=4 sw=4 expandtab ft=c
|
|
|
|
// Copyright (C) 2001-2002, 2004 The University of Melbourne.
|
|
// Copyright (C) 2016, 2018 The Mercury team.
|
|
// This file is distributed under the terms specified in COPYING.LIB.
|
|
|
|
// The internals of exception:builtin_catch.
|
|
//
|
|
// The versions of builtin_catch for the various determinisms should define
|
|
// the following macros:
|
|
//
|
|
// proc_label
|
|
// proc_layout
|
|
// model
|
|
// excp_handler
|
|
// handle_ticket_on_exit
|
|
//
|
|
// For the model_non versions, it should also define
|
|
//
|
|
// version_model_non
|
|
// handle_ticket_on_fail
|
|
|
|
// Each procedure defines several local labels. The local label numbers are
|
|
// allocated as follows. Note that not all procedures use all of these labels.
|
|
|
|
#define CALL_PORT_RETURN_LABEL(pl) MR_label_name(pl, 1)
|
|
#define CLOSURE_RETURN_LABEL(pl) MR_label_name(pl, 2)
|
|
#define EXIT_PORT_RETURN_LABEL(pl) MR_label_name(pl, 3)
|
|
#define REDO_REDOIP_LABEL(pl) MR_label_name(pl, 4)
|
|
#define REDO_PORT_RETURN_LABEL(pl) MR_label_name(pl, 5)
|
|
#define FAIL_REDOIP_LABEL(pl) MR_label_name(pl, 6)
|
|
#define FAIL_PORT_RETURN_LABEL(pl) MR_label_name(pl, 7)
|
|
#define PREPARE_RETURN_LABEL(pl) MR_label_name(pl, 8)
|
|
|
|
#if defined(version_model_non) && \
|
|
(defined(MR_USE_TRAIL) || defined(MR_DEEP_PROFILING))
|
|
#define excp_catch_redoip(pl) MR_LABEL(FAIL_REDOIP_LABEL(pl))
|
|
#else
|
|
#define excp_catch_redoip(pl) MR_ENTRY(MR_do_fail);
|
|
#endif
|
|
|
|
////////////////////////////////////////////////////////////////////////////
|
|
|
|
MR_define_entry(proc_label);
|
|
|
|
// Create an exception handler entry on the nondet stack.
|
|
// (Register MR_r3 holds the Handler closure.)
|
|
|
|
MR_create_exception_handler("builtin_catch/3" model,
|
|
excp_handler, MR_r3, excp_catch_redoip(proc_label));
|
|
|
|
#if defined(version_model_non) && defined(MR_DEEP_PROFILING)
|
|
// Give the deep profiler control when execution backtracks into
|
|
// the closure.
|
|
|
|
MR_mktempframe(MR_LABEL(REDO_REDOIP_LABEL(proc_label)));
|
|
#endif
|
|
|
|
#ifdef MR_DEEP_PROFILING
|
|
MR_framevar(1) = MR_r2;
|
|
MR_deep_non_call(proc_label, proc_layout,
|
|
MR_EXCEPTION_FIRST_DEEP_SLOT,
|
|
CALL_PORT_RETURN_LABEL(proc_label));
|
|
MR_deep_prepare_ho_call(proc_label, MR_EXCEPTION_FIRST_DEEP_SLOT,
|
|
PREPARE_RETURN_LABEL(proc_label), 0, MR_framevar(1));
|
|
MR_r1 = MR_framevar(1); // The Goal to call.
|
|
#else
|
|
MR_r1 = MR_r2; // The Goal to call.
|
|
#endif
|
|
MR_r2 = 0; // Zero additional input arguments.
|
|
|
|
// Now call `Goal(Result)'.
|
|
MR_call(MR_ENTRY(mercury__do_call_closure_compact),
|
|
MR_LABEL(CLOSURE_RETURN_LABEL(proc_label)),
|
|
MR_ENTRY(proc_label));
|
|
|
|
MR_define_label(CLOSURE_RETURN_LABEL(proc_label));
|
|
MR_update_prof_current_proc(MR_LABEL(proc_label));
|
|
|
|
#ifdef MR_DEEP_PROFILING
|
|
save_results();
|
|
MR_deep_non_exit(proc_layout, MR_EXCEPTION_FIRST_DEEP_SLOT,
|
|
EXIT_PORT_RETURN_LABEL(proc_label));
|
|
restore_results();
|
|
#endif
|
|
|
|
#ifdef MR_USE_TRAIL
|
|
handle_ticket_on_exit();
|
|
#endif
|
|
|
|
#ifdef version_model_non
|
|
MR_succeed();
|
|
#else
|
|
MR_succeed_discard();
|
|
#endif
|
|
|
|
#if defined(version_model_non) && defined(MR_DEEP_PROFILING)
|
|
MR_define_label(REDO_REDOIP_LABEL(proc_label));
|
|
MR_deep_non_redo(proc_layout, MR_EXCEPTION_FIRST_DEEP_SLOT,
|
|
REDO_PORT_RETURN_LABEL(proc_label));
|
|
// non_redo_port_code executes *semidet* failure.
|
|
MR_fail();
|
|
#endif
|
|
|
|
#if defined(version_model_non) && \
|
|
(defined(MR_USE_TRAIL) || defined(MR_DEEP_PROFILING))
|
|
|
|
MR_define_label(FAIL_REDOIP_LABEL(proc_label));
|
|
|
|
#ifdef MR_USE_TRAIL
|
|
handle_ticket_on_fail();
|
|
#endif
|
|
|
|
#ifdef MR_DEEP_PROFILING
|
|
MR_deep_non_fail(proc_layout, MR_EXCEPTION_FIRST_DEEP_SLOT,
|
|
FAIL_PORT_RETURN_LABEL(proc_label));
|
|
// non_redo_port_code executes *semidet* failure.
|
|
#endif
|
|
MR_fail();
|
|
|
|
#endif // defined(version_model_non) &&
|
|
// (defined(MR_USE_TRAIL) || defined(MR_DEEP_PROFILING))
|
|
|
|
#undef CALL_PORT_RETURN_LABEL
|
|
#undef CLOSURE_RETURN_LABEL
|
|
#undef EXIT_PORT_RETURN_LABEL
|
|
#undef REDO_REDOIP_LABEL
|
|
#undef REDO_PORT_RETURN_LABEL
|
|
#undef FAIL_REDOIP_LABEL
|
|
#undef FAIL_PORT_RETURN_LABEL
|
|
|
|
#undef excp_catch_redoip
|