mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-17 18:33:58 +00:00
c315607690
Estimated hours taken: 4 Clean up the handling of configuration macros in the runtime. runtime/mercury_conf.h.in: runtime/mercury_conf_param.h: Move the code to set configuration parameters based on the values of other configuration parameters from mercury_conf.h.in to a new file mercury_conf_param.h, because otherwise autoconf munges the code in undesirable ways (it replaces all `#undef <foo>' statements with `/* #undef <foo> */'). runtime/mercury_conf.h.in: runtime/mercury_conf_param.h: runtime/*.h: runtime/*.c: Use more meaningful names, starting with the usual `MR_' prefix, for various configuration parameters: - replace the existing configuration macros SPEED with three new macros MR_CHECK_OVERFLOW, MR_LOWLEVEL_DEBUG, and MR_DEBUG_NONDET_STACK; - rename DEBUG_GOTOS as MR_DEBUG_GOTOS, and make it implied by MR_LOWLEVEL_DEBUG; - rename DEBUG_LABELS as MR_CHOOSE_ENTRY_POINT. (But there are still many configuration parameters that don't start with `MR_', I'm afraid.) runtime/CFLAGSFILE: runtime/mercury_conf_param.h: Removed CFLAGSFILE. The documentation there was had rotted badly. I moved most of it to mercury_conf_param.h where hopefully it will stand a better chance of being kept up-to-date. I added documentation for the configuration parameters added in the last year or so. The documentation here now covers every configuration parameter that we use; please keep it that way! runtime/mercury_debug.h: Fix a bug: there was a misplaced "#endif". runtime/mercury_stack_trace.c: Fix yet another misspelling of "deterministic".
139 lines
3.8 KiB
C
139 lines
3.8 KiB
C
/*
|
|
** Copyright (C) 1995-1998 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.
|
|
*/
|
|
|
|
/* mercury_debug.h - definitions for debugging messages */
|
|
|
|
#ifndef MERCURY_DEBUG_H
|
|
#define MERCURY_DEBUG_H
|
|
|
|
#ifdef DEBUG_ON
|
|
#define DEBUG(X) X
|
|
#else
|
|
#define DEBUG(X)
|
|
#endif
|
|
|
|
#if !defined(MR_DEBUG_GOTOS)
|
|
|
|
#define debuggoto(label) ((void)0)
|
|
#define debugsreg() ((void)0)
|
|
|
|
#else
|
|
|
|
#define debuggoto(label) \
|
|
(MR_assert(label), \
|
|
IF (gotodebug, (save_transient_registers(), goto_msg(label))))
|
|
|
|
#define debugsreg() \
|
|
IF (sregdebug, (save_transient_registers(), reg_msg()))
|
|
|
|
#endif
|
|
|
|
#ifndef MR_LOWLEVEL_DEBUG
|
|
|
|
#define dump_push_msg(msg) ((void)0)
|
|
#define dump_pop_msg() ((void)0)
|
|
|
|
#define debugcr1(val0, hp) ((void)0)
|
|
#define debugcr2(val0, val1, hp) ((void)0)
|
|
#define debugincrhp(val, hp) ((void)0)
|
|
#define debugincrsp(val, sp) ((void)0)
|
|
#define debugdecrsp(val, sp) ((void)0)
|
|
#define debugpush(val, sp) ((void)0)
|
|
#define debugpop(val, sp) ((void)0)
|
|
#define debugregs(msg) ((void)0)
|
|
#define debugframe(msg) ((void)0)
|
|
#define debugmkframe() ((void)0)
|
|
#define debugmodframe() ((void)0)
|
|
#define debugsucceed() ((void)0)
|
|
#define debugsucceeddiscard() ((void)0)
|
|
#define debugfail() ((void)0)
|
|
#define debugredo() ((void)0)
|
|
#define debugcall(proc, succ_cont) ((void)0)
|
|
#define debugtailcall(proc) ((void)0)
|
|
#define debugproceed() ((void)0)
|
|
#define debugmsg0(msg) ((void)0)
|
|
#define debugmsg1(msg, arg1) ((void)0)
|
|
#define debugmsg2(msg, arg1, arg2) ((void)0)
|
|
#define debugmsg3(msg, arg1, arg2, arg3) ((void)0)
|
|
|
|
#else
|
|
|
|
#define dump_push_msg(msg) \
|
|
(((const char **)dumpstack_zone->min)[dumpindex++] = msg)
|
|
#define dump_pop_msg() (--dumpindex)
|
|
|
|
#define debugcr1(val0, hp) \
|
|
IF (heapdebug, (save_transient_registers(), cr1_msg(val0, hp)))
|
|
|
|
#define debugcr2(val0, val1, hp) \
|
|
IF (heapdebug, (save_transient_registers(), cr2_msg(val0, val1, hp)))
|
|
|
|
#define debugincrhp(val, hp) \
|
|
IF (heapdebug, \
|
|
(save_transient_registers(), incr_hp_debug_msg((val), (hp))))
|
|
|
|
#define debugincrsp(val, sp) \
|
|
IF (detstackdebug, (save_transient_registers(), incr_sp_msg((val), (sp))))
|
|
|
|
#define debugdecrsp(val, sp) \
|
|
IF (detstackdebug, (save_transient_registers(), decr_sp_msg((val), (sp))))
|
|
|
|
#define debugpush(val, sp) \
|
|
IF (detstackdebug, (save_transient_registers(), push_msg((val), (sp))))
|
|
|
|
#define debugpop(val, sp) \
|
|
IF (detstackdebug, (save_transient_registers(), pop_msg(val, sp)))
|
|
|
|
#define debugregs(msg) \
|
|
IF (progdebug, (save_transient_registers(), printregs(msg)))
|
|
|
|
#define debugmkframe() \
|
|
IF (nondstackdebug, (save_transient_registers(), mkframe_msg()))
|
|
|
|
#define debugframe(msg) \
|
|
IF (progdebug, (save_transient_registers(), printframe(msg)))
|
|
|
|
#define debugmodframe() \
|
|
IF (nondstackdebug, (save_transient_registers(), modframe_msg()))
|
|
|
|
#define debugsucceed() \
|
|
IF (nondstackdebug, (save_transient_registers(), succeed_msg()))
|
|
|
|
#define debugsucceeddiscard() \
|
|
IF (nondstackdebug, (save_transient_registers(), succeeddiscard_msg()))
|
|
|
|
#define debugfail() \
|
|
IF (nondstackdebug, (save_transient_registers(), fail_msg()))
|
|
|
|
#define debugredo() \
|
|
IF (nondstackdebug, (save_transient_registers(), redo_msg()))
|
|
|
|
#define debugcall(proc, succ_cont) \
|
|
IF (calldebug, (save_transient_registers(), call_msg(proc, succ_cont)))
|
|
|
|
#define debugtailcall(proc) \
|
|
IF (calldebug, (save_transient_registers(), tailcall_msg(proc)))
|
|
|
|
#define debugproceed() \
|
|
IF (calldebug, (save_transient_registers(), proceed_msg()))
|
|
|
|
#define debugmsg0(msg) \
|
|
IF (progdebug, (printf(msg)))
|
|
|
|
#define debugmsg1(msg, arg1) \
|
|
IF (progdebug, (printf(msg, arg1)))
|
|
|
|
#define debugmsg2(msg, arg1, arg2) \
|
|
IF (progdebug, (printf(msg, arg1, arg2)))
|
|
|
|
#define debugmsg3(msg, arg1, arg2, arg3) \
|
|
IF (progdebug, (printf(msg, arg1, arg2, arg3)))
|
|
|
|
#endif /* MR_LOWLEVEL_DEBUG */
|
|
|
|
#endif /* not MERCURY_DEBUG_H */
|
|
|