mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-08 18:34:00 +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.
57 lines
1.6 KiB
C
57 lines
1.6 KiB
C
// vim: ts=4 sw=4 expandtab ft=c
|
|
|
|
// Copyright (C) 2001-2002, 2004, 2006 The University of Melbourne.
|
|
// Copyright (C) 2016, 2018 The Mercury team.
|
|
// This file is distributed under the terms specified in COPYING.LIB.
|
|
|
|
// This macro implements the following predicates:
|
|
// save_recursion_depth{1..9}
|
|
// restore_recursion_depth_exit{1..9}
|
|
// restore_recursion_depth_fail{1..9}
|
|
//
|
|
// The code including this file should define the following macros:
|
|
//
|
|
// MR_PROCNAME:
|
|
// The name of the procedure whose body this is.
|
|
//
|
|
// MR_REC_DEPTH_BODY:
|
|
// A sequence of statements to execute in the body after setting up
|
|
// the following variables:
|
|
//
|
|
// pd: points to the ProcDynamic structure of the caller.
|
|
// ps: points to the ProcStatic structure of the caller.
|
|
//
|
|
// The code including this file should have the following variable in scope:
|
|
//
|
|
// CSD:
|
|
// The id of the current csd.
|
|
|
|
#ifdef MR_DEEP_PROFILING
|
|
{
|
|
#ifdef MR_DEEP_PROFILING_TAIL_RECURSION
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
const MR_ProcLayout *pl;
|
|
MR_ProcStatic *ps;
|
|
|
|
MR_enter_instrumentation();
|
|
csd = CSD;
|
|
MR_deep_assert(csd, NULL, NULL, csd == MR_current_call_site_dynamic);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, NULL, pd != NULL);
|
|
pl = pd->MR_pd_proc_layout;
|
|
MR_deep_assert(csd, pl, NULL, pl != NULL);
|
|
ps = pl->MR_sle_proc_static;
|
|
MR_deep_assert(csd, pl, ps, ps != NULL);
|
|
|
|
MR_REC_DEPTH_BODY
|
|
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(MR_PROCNAME ": tail recursion not enabled");
|
|
#endif
|
|
}
|
|
#else
|
|
MR_fatal_error(MR_PROCNAME ": deep profiling not enabled");
|
|
#endif
|