mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-09 10:52:24 +00:00
af24cf08db
runtime/mercury_label.h:
Add a #include of mercury_conf.h before the #include of
mercury_conf_param.h.
We #include mercury_conf.h anyway, indirectly through mercury_types.h,
but this happens *after* mercury_conf_param.h. This was not a problem
in the usual case when a .c file #included mercury_label.h, since
its inclusion invariable came after inclusion of mercury_imp.h,
which itself includes mercury_conf.h. It was a problem only in one
very special case: when, as part of the namespace cleanliness check,
mercury_label.h was compiled as the only thing #included in
mercury_label.check.c, *and* the grade is the pregen grade.
The problem was that MR_LOW_TAG_BITS is *defined* in mercury_conf.h,
with a simple #define, but in the pregen grade, it is also *redefined*
in mercury_conf_param.h with a #undef/#define sequence. without
the fix, the compiler saw the sequence #undef/#define/#define, and
balked at the double #define. The fix restores the intended
#define/#undef/#define sequence. And the usual header guard macro
protects against the double processing of the body of mercury_conf.h.
runtime/mercury_label.c:
Delete a #include of mercury_conf.h, since it is (and was) redundant.
tests/EXPECT_FAIL_TESTS.hlc.gc.pregen:
Expect the hard_coded/constant_prop_p1 test case to fail in the pregen
grade, since one of the things it tests, arithmetic constant propagation,
is explicitly disabled in this grade.
74 lines
2.8 KiB
C
74 lines
2.8 KiB
C
// vim: ts=4 sw=4 expandtab ft=c
|
|
|
|
// Copyright (C) 1994-1998, 2000-2002, 2006-2007 The University of Melbourne.
|
|
// Copyright (C) 2016, 2018 The Mercury team.
|
|
// This file is distributed under the terms specified in COPYING.LIB.
|
|
|
|
// mercury_label.h defines the interface to the label table, which is a pair of
|
|
// hash tables, one mapping from procedure names and the other from
|
|
// addresses to label information.
|
|
// The label information includes the name, address of the code, and
|
|
// layout information for that label.
|
|
|
|
#ifndef MERCURY_LABEL_H
|
|
#define MERCURY_LABEL_H
|
|
|
|
// We don't need mercury_conf_param.h itself, but
|
|
// - mercury_types.h includes it, and
|
|
// - if included *after* mercury_conf_param.h, MR_LOW_TAG_BITS get redefined
|
|
// if MR_PREGENERATED_DIST is defined, which results in the failure of
|
|
// bootcheck's namespace cleanliness test.
|
|
|
|
#include "mercury_conf.h"
|
|
#include "mercury_conf_param.h" // for MR_NEED_ENTRY_LABEL_ARRAY etc
|
|
#include "mercury_types.h" // for MR_Code, MR_ProcLayout etc
|
|
#include "mercury_dlist.h" // for MR_Dlist
|
|
|
|
// This struct records information about entry labels. Elements in the
|
|
// entry label array are of this type. The table is sorted on address,
|
|
// to allow the garbage collector to locate the entry label of the procedure
|
|
// to which a entry label belongs by a variant of binary search.
|
|
//
|
|
// The name field is needed only for low-level debugging.
|
|
|
|
typedef struct s_entry {
|
|
const MR_Code *MR_entry_addr;
|
|
const MR_ProcLayout *MR_entry_layout;
|
|
const char *MR_entry_name;
|
|
} MR_Entry;
|
|
|
|
// This struct records information about internal (non-entry) labels.
|
|
// The internal label table is organized as a hash table, with the address
|
|
// being the key.
|
|
//
|
|
// The name field is needed only for low-level debugging.
|
|
|
|
typedef struct s_internal {
|
|
const MR_Code *MR_internal_addr;
|
|
const MR_LabelLayout *MR_internal_layout;
|
|
const char *MR_internal_name;
|
|
} MR_Internal;
|
|
|
|
extern void MR_do_init_label_tables(void);
|
|
|
|
extern void MR_do_insert_entry_label(const char *name,
|
|
MR_Code *addr, const MR_ProcLayout *entry_layout);
|
|
|
|
#ifdef MR_NEED_ENTRY_LABEL_INFO
|
|
#define MR_insert_entry_label(n, a, l) \
|
|
MR_do_insert_entry_label((n), (a), (l))
|
|
#else
|
|
#define MR_insert_entry_label(n, a, l) // nothing
|
|
#endif // not MR_NEED_ENTRY_LABEL_INFO
|
|
|
|
extern MR_Entry *MR_prev_entry_by_addr(const MR_Code *addr);
|
|
|
|
extern void MR_insert_internal_label(const char *name,
|
|
MR_Code *addr, const MR_LabelLayout *label_layout);
|
|
extern MR_Internal *MR_lookup_internal_by_addr(const MR_Code *addr);
|
|
extern void MR_process_all_internal_labels(void f(const void *));
|
|
|
|
extern const char *MR_lookup_entry_or_internal(const MR_Code *addr);
|
|
|
|
#endif // not MERCURY_LABEL_H
|