mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-12 04:14:06 +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.
62 lines
3.3 KiB
C
62 lines
3.3 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 file provides macros that library/profiling_builtin.m uses to compose
|
|
// the code fragments passed to mercury_deep_rec_depth_body.h to create the
|
|
// bodies of
|
|
// save_recursion_depth{1..9}
|
|
// restore_recursion_depth_exit{1..9}
|
|
// restore_recursion_depth_fail{1..9}
|
|
//
|
|
// These macros assume that the environments of their invocation define
|
|
// the following variables:
|
|
//
|
|
// pd: should point to the MR_ProcDynamic structure of the caller.
|
|
// pl: should point to the MR_ProcLayout structure of the caller.
|
|
// ps: should point to the MR_ProcStatic structure of the caller.
|
|
|
|
#define MR_SAVE_DEPTH_ACTION(outer_count, csn) \
|
|
do { \
|
|
MR_CallSiteDynamic *inner_csd; \
|
|
\
|
|
MR_deep_assert(NULL, pl, ps, csn <= ps->MR_ps_num_call_sites); \
|
|
inner_csd = pd->MR_pd_call_site_ptr_ptrs[csn]; \
|
|
\
|
|
if (inner_csd != NULL) { \
|
|
outer_count = inner_csd->MR_csd_depth_count; \
|
|
} else { \
|
|
outer_count = 0; \
|
|
} \
|
|
} while (0)
|
|
|
|
#define MR_RESTORE_DEPTH_ACTION(inc_field, outer_count, csn) \
|
|
do { \
|
|
MR_CallSiteDynamic *inner_csd; \
|
|
\
|
|
MR_deep_assert(NULL, pl, ps, csn <= ps->MR_ps_num_call_sites); \
|
|
inner_csd = pd->MR_pd_call_site_ptr_ptrs[csn]; \
|
|
\
|
|
if (inner_csd != NULL) { \
|
|
int inner_count; \
|
|
\
|
|
inner_count = inner_csd->MR_csd_depth_count; \
|
|
/* Calls are computed from the other counts. */ \
|
|
inner_csd->MR_csd_own.inc_field += inner_count; \
|
|
inner_csd->MR_csd_depth_count = outer_count; \
|
|
} else { \
|
|
MR_deep_assert(inner_csd, pl, ps, outer_count == 0); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define MR_RESTORE_DEPTH_EXIT(outer_count, csn) \
|
|
MR_RESTORE_DEPTH_ACTION(MR_own_exits, (outer_count), (csn))
|
|
|
|
#define MR_RESTORE_DEPTH_FAIL(outer_count, csn) \
|
|
MR_RESTORE_DEPTH_ACTION(MR_own_fails, (outer_count), (csn))
|
|
|
|
#define MR_csn_vector_field(csn_vector, field_num) \
|
|
MR_field(MR_mktag(0), (csn_vector), (field_num))
|