mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-29 08:14:31 +00:00
cdc6f1f884
Estimated hours taken: 2 runtime/mercury_engine.h: runtime/mercury_overflow.h: runtime/mercury_misc.c: runtime/mercury_wrapper.c: Fix things so that the runtime can be compiled with MR_LOWLEVEL_DEBUG.
79 lines
2.0 KiB
C
79 lines
2.0 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_overflow.h - definitions for overflow checks */
|
|
|
|
#ifndef MERCURY_OVERFLOW_H
|
|
#define MERCURY_OVERFLOW_H
|
|
|
|
#define IF(cond, val) ((cond) ? ((val), (void)0) : (void)0)
|
|
|
|
#ifndef MR_CHECK_FOR_OVERFLOW
|
|
|
|
#define heap_overflow_check() ((void)0)
|
|
#define detstack_overflow_check() ((void)0)
|
|
#define detstack_underflow_check() ((void)0)
|
|
#define nondstack_overflow_check() ((void)0)
|
|
#define nondstack_underflow_check() ((void)0)
|
|
|
|
#else /* MR_CHECK_FOR_OVERFLOW */
|
|
|
|
#include "mercury_regs.h"
|
|
#include "mercury_misc.h" /* for fatal_error() */
|
|
|
|
#define heap_overflow_check() \
|
|
( \
|
|
IF (MR_hp >= MR_ENGINE(heap_zone)->top,( \
|
|
fatal_error("heap overflow") \
|
|
)), \
|
|
IF (MR_hp > MR_ENGINE(heap_zone)->max,( \
|
|
MR_ENGINE(heap_zone)->max = MR_hp \
|
|
)), \
|
|
(void)0 \
|
|
)
|
|
|
|
#define detstack_overflow_check() \
|
|
( \
|
|
IF (MR_sp >= MR_CONTEXT(detstack_zone)->top,( \
|
|
fatal_error("stack overflow") \
|
|
)), \
|
|
IF (MR_sp > MR_CONTEXT(detstack_zone)->max,( \
|
|
MR_CONTEXT(detstack_zone)->max = MR_sp \
|
|
)), \
|
|
(void)0 \
|
|
)
|
|
|
|
#define detstack_underflow_check() \
|
|
( \
|
|
IF (MR_sp < MR_CONTEXT(detstack_zone)->min,( \
|
|
fatal_error("stack underflow") \
|
|
)), \
|
|
(void)0 \
|
|
)
|
|
|
|
#define nondstack_overflow_check() \
|
|
( \
|
|
IF (MR_maxfr >= MR_CONTEXT(nondetstack_zone)->top,( \
|
|
fatal_error("nondetstack overflow") \
|
|
)), \
|
|
IF (MR_maxfr > MR_CONTEXT(nondetstack_zone)->max,( \
|
|
MR_CONTEXT(nondetstack_zone)->max = MR_maxfr \
|
|
)), \
|
|
(void)0 \
|
|
)
|
|
|
|
#define nondstack_underflow_check() \
|
|
( \
|
|
IF (MR_maxfr < MR_CONTEXT(nondetstack_zone)->min,( \
|
|
fatal_error("nondetstack underflow") \
|
|
)), \
|
|
(void)0 \
|
|
)
|
|
|
|
#endif /* MR_CHECK_FOR_OVERFLOW */
|
|
|
|
#endif /* not MERCURY_OVERFLOW_H */
|