mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-10 11:23:15 +00:00
455e1eea75
Estimated hours taken: 2 Branches: main The runtime had two different conventions for naming types. One convention, used mostly in the debugger-related modules, added underscores between capitalized words; example: MR_Label_Layout. The other convention, used in most modules, used capitalized words without underscores (e.g. MR_TypeInfo). This diff standardizes on the second convention. It has no algorithmic changes, only renames of types. runtime/*.[ch]: trace/*.[ch]: compiler/*.m: library/*.m: mdbcomp/*.m: Effect the change described above. The only substantive change is that runtime/mercury_stack_layout.h used to define *two* types for trace levels: MR_TraceLevel and MR_Trace_Level, and this diff standardizes on just one (they had equivalent definitions). runtime/mercury_bootstrap.h: Add a #define from the old name to the new for all the changed type names that the installed compiler can put into .c files. We can delete these #defines some time after this diff has bootstrapped. slice/.mgnuc_opts: Restore the --no-mercury-stdlib-dir option, without which the slice directory won't compile after this change (because it looks for type names in the installed runtime header files, which define the old versions of type names).
126 lines
4.1 KiB
C
126 lines
4.1 KiB
C
/*
|
|
** vim: ts=4 sw=4 expandtab
|
|
*/
|
|
/*
|
|
** Copyright (C) 2001-2002, 2004, 2006 The University of Melbourne.
|
|
** This file may only be copied under the terms of the GNU Library General
|
|
** Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
*/
|
|
|
|
/*
|
|
** The implementation of {det,semi,non}_{exit,fail}_port_code_{ac,sr}.
|
|
**
|
|
** The code including this file should define the following macros:
|
|
**
|
|
** MR_PROCNAME: The name of the procedure whose body this is.
|
|
** MR_FAIL_PORT or MR_EXIT_PORT:
|
|
** Says which field to increment and whether the
|
|
** procedure has detism det or failure.
|
|
** MR_VERSION_AC or MR_VERSION_SR:
|
|
** Says whether the procedure whose body this is
|
|
** is intended for use with or without
|
|
** MR_USE_ACTIVATION_COUNTS.
|
|
**
|
|
** The code including this file should have the following variables in scope:
|
|
**
|
|
** MiddleCSD: The id of the current csd.
|
|
** TopCSD: The id of the parent's csd.
|
|
** OldOutermostActivationPtr: The id of the outermost activation of the
|
|
** current user procedure before the current call
|
|
** to it. Needed only with MR_VERSION_SR.
|
|
**
|
|
** Note that the code in ML_trace_throw() in library/exception.m is based
|
|
** on the logic of this file, so if you make any changes here, you should
|
|
** consider similar changes there.
|
|
*/
|
|
|
|
#ifdef MR_DEEP_PROFILING
|
|
{
|
|
MR_CallSiteDynamic *csd;
|
|
const MR_ProcLayout *pl;
|
|
MR_ProcStatic *ps;
|
|
|
|
#ifdef MR_EXEC_TRACE
|
|
if (! MR_disable_deep_profiling_in_debugger) {
|
|
/* The matching parenthesis is at the end of the file */
|
|
#endif
|
|
|
|
MR_enter_instrumentation();
|
|
|
|
csd = (MR_CallSiteDynamic *) MiddleCSD;
|
|
MR_deep_assert(csd, NULL, NULL, csd == MR_current_call_site_dynamic);
|
|
|
|
#ifdef MR_DEEP_PROFILING_PORT_COUNTS
|
|
/* increment exit/fail count */
|
|
#if defined(MR_FAIL_PORT)
|
|
csd->MR_csd_own.MR_own_fails++;
|
|
#elif defined(MR_EXIT_PORT)
|
|
csd->MR_csd_own.MR_own_exits++;
|
|
#else
|
|
#error "mercury_deep_leave_port_body.h: neither MR_FAIL_PORT nor MR_EXIT_PORT"
|
|
#endif
|
|
#endif
|
|
|
|
MR_deep_assert(csd, NULL, NULL, csd->MR_csd_callee_ptr != NULL);
|
|
pl = csd->MR_csd_callee_ptr->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);
|
|
|
|
#ifdef MR_DEEP_PROFILING_LOG
|
|
if (MR_deep_prof_log_file != NULL) {
|
|
const char *portname;
|
|
|
|
#if defined(MR_FAIL_PORT)
|
|
portname = "failport";
|
|
#elif defined(MR_EXIT_PORT)
|
|
portname = "exitport";
|
|
#else
|
|
portname = "otherleaveport";
|
|
#endif
|
|
fprintf(MR_deep_prof_log_file, "%s(%ld,%ld,%ld).\n",
|
|
portname, (long) MR_current_call_site_dynamic,
|
|
(long) (MR_CallSiteDynamic *) TopCSD, (long) ps);
|
|
fflush(MR_deep_prof_log_file);
|
|
}
|
|
#endif
|
|
|
|
#if defined(MR_VERSION_AC)
|
|
#ifdef MR_USE_ACTIVATION_COUNTS
|
|
/* decrement activation count */
|
|
ps->MR_ps_activation_count--;
|
|
MR_deep_assert(csd, pl, ps, ps->MR_ps_activation_count >= 0);
|
|
#else
|
|
MR_fatal_error(MR_PROCNAME ": MR_USE_ACTIVATION_COUNTS not enabled");
|
|
#endif
|
|
#elif defined(MR_VERSION_SR)
|
|
#ifndef MR_USE_ACTIVATION_COUNTS
|
|
/* set outermost activation pointer */
|
|
ps->MR_ps_outermost_activation_ptr =
|
|
(MR_ProcDynamic *) OldOutermostActivationPtr;
|
|
#else
|
|
MR_fatal_error(MR_PROCNAME ": MR_USE_ACTIVATION_COUNTS enabled");
|
|
#endif
|
|
#else
|
|
#error "mercury_deep_leave_port_body.h: neither MR_VERSION_AC nor MR_VERSION_SR"
|
|
#endif
|
|
|
|
/* set current csd */
|
|
MR_current_call_site_dynamic = (MR_CallSiteDynamic *) TopCSD;
|
|
|
|
MR_leave_instrumentation();
|
|
|
|
/*
|
|
** For MR_FAIL_PORT code, the failure we should execute here
|
|
** is handled by code inserted by the compiler.
|
|
*/
|
|
|
|
#ifdef MR_EXEC_TRACE
|
|
/* The matching parenthesis is at the start of the file */
|
|
}
|
|
#endif
|
|
}
|
|
#else
|
|
MR_fatal_error(MR_PROCNAME ": deep profiling not enabled");
|
|
#endif
|