mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-16 22:35:41 +00:00
72f174b4e2
The majority of calls to MR_fatal_error do not follow an operation that sets errno, so printing out an error message unrelated to the reason for the fatal error will lead to confusion. It can also cause test failures if errno happens to be set to non-zero some time prior to an expected call to MR_fatal_error. Fixes bug #464. runtime/mercury_misc.c: Don't print value of errno in MR_fatal_error. runtime/mercury_context.c: runtime/mercury_thread.c: Pass strerror strings to MR_fatal_error where appropriate. runtime/mercury_memory_zones.c: runtime/mercury_memory_zones.h: Pass strerror strings to MR_fatal_error following failures of MR_protect_pages. Document that this assumes MR_protect_pages sets errno on error. Skip unnecessary call to sprintf before MR_fatal_error. runtime/mercury_deep_profiling.c: Skip unnecessary call to sprintf before MR_fatal_error. Reduce size of some buffers. runtime/mercury_overflow.c: runtime/mercury_stack_trace.c: Pass a fixed format string to MR_fatal_error just in case the message string may contain percentage signs. runtime/mercury_tabling.c: Skip unnecessary call to sprintf before MR_fatal_error. deep_profiler/timeout.m: library/thread.m: mdbcomp/shared_utilities.m: Pass strerror strings to MR_fatal_error where appropriate. trace/mercury_trace.c: Skip unnecessary call to sprintf before MR_fatal_error. trace/mercury_trace_external.c: Pass a fixed format string to MR_fatal_error just in case.
85 lines
2.3 KiB
C
85 lines
2.3 KiB
C
// vim: ts=4 sw=4 expandtab ft=c
|
|
|
|
// Copyright (C) 2014, 2016, 2018 The Mercury team
|
|
// This file is distributed under the terms specified in COPYING.LIB.
|
|
|
|
#include "mercury_imp.h"
|
|
#include "mercury_overflow.h"
|
|
#include "mercury_memory_zones.h" // for MR_MemoryZone
|
|
#include "mercury_debug.h" // for MR_print_zone() etc
|
|
#include "mercury_misc.h" // for MR_fatal_error()
|
|
|
|
#if !defined(MR_HIGHLEVEL_CODE)
|
|
void
|
|
MR_nondetstack_inclusion_check(MR_Word *maxfr,
|
|
const char *error, const char *where)
|
|
{
|
|
MR_MemoryZone *cur_zone;
|
|
MR_MemoryZones *prev_zones;
|
|
|
|
cur_zone = MR_CONTEXT(MR_ctxt_nondetstack_zone);
|
|
prev_zones = MR_CONTEXT(MR_ctxt_prev_nondetstack_zones);
|
|
while (MR_TRUE) {
|
|
if (MR_in_zone(maxfr, cur_zone)) {
|
|
if (maxfr > cur_zone->MR_zone_max) {
|
|
cur_zone->MR_zone_max = maxfr;
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
if (prev_zones == NULL) {
|
|
MR_fatal_zone_error(MR_OVERFLOW_ZONE_NONDETSTACK,
|
|
"MR_maxfr", maxfr, "nondetstack_zone",
|
|
MR_CONTEXT(MR_ctxt_nondetstack_zone),
|
|
MR_CONTEXT(MR_ctxt_prev_nondetstack_zones),
|
|
error, where);
|
|
}
|
|
|
|
cur_zone = prev_zones->MR_zones_head;
|
|
prev_zones = prev_zones->MR_zones_tail;
|
|
}
|
|
}
|
|
#endif // !MR_HIGHLEVEL_CODE
|
|
|
|
void
|
|
MR_fatal_zone_error(MR_OverflowZone ptr_kind,
|
|
const char *ptr_name, const void *ptr,
|
|
const char *zone_name,
|
|
const MR_MemoryZone *zone, const MR_MemoryZones *zones,
|
|
const char *error, const char *where)
|
|
{
|
|
#ifdef MR_LOWLEVEL_DEBUG
|
|
fprintf(stderr, "fatal zone error\n%s: ", ptr_name);
|
|
switch (ptr_kind) {
|
|
|
|
case MR_OVERFLOW_ZONE_DETSTACK:
|
|
MR_print_detstackptr(stderr, ptr);
|
|
break;
|
|
|
|
case MR_OVERFLOW_ZONE_NONDETSTACK:
|
|
MR_print_nondetstackptr(stderr, ptr);
|
|
break;
|
|
|
|
case MR_OVERFLOW_ZONE_HEAP:
|
|
MR_print_heapptr(stderr, ptr);
|
|
break;
|
|
|
|
case MR_OVERFLOW_ZONE_OTHER:
|
|
default:
|
|
fprintf(stderr, "%p", ptr);
|
|
break;
|
|
}
|
|
|
|
fprintf(stderr, "\n%s: ", zone_name);
|
|
MR_print_zone(stderr, zone);
|
|
MR_print_zones(stderr, zones);
|
|
|
|
if (where != NULL) {
|
|
fprintf(stderr, "error occurred in %s\n", where);
|
|
}
|
|
#endif
|
|
|
|
MR_fatal_error("%s", error);
|
|
}
|