mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-25 14:24:11 +00:00
779b47f4f2
Estimated hours taken: 2 Various bug fixes and cleanups for the code in the runtime directory. runtime/mercury_bootstrap.h: runtime/mercury_regs.h: runtime/mercury_stacks.h: runtime/mercury_type_info.h: Move #defines that are there just for backwards compatibility into mercury_bootstrap.h. runtime/process_getopt: Add MR_ prefixes to the names `_GETOPT_H', `no_arguments', and `required_argument' which are defined by mercury_getopt.h, to make mercury_getopt.h macro-namespace-clean. runtime/mercury_getopt.h: Apply the new version of the process_getopt script. runtime/mercury_imp.h: Make mercury_bootstrap the first header file that is #included, in case some of the macros defined in it are used in declarations in other header files. runtime/mercury_memory.h: Delete duplicate definitions of MAX_REAL_REG, NUM_SPECIAL_REG, and MAX_VIRTUAL_REG -- these are all already defined in mercury_memory_zones.h. runtime/mercury_memory_zones.h: Delete definition of NUM_SPECIAL_REG, since mercury_regorder.h already defines MR_NUM_SPECIAL_REG, which should be used instead of NUM_SPECIAL_REG. The value of NUM_SPECIAL_REG was long obsolete. runtime/mercury_regorder.h: Fix some bugs in the definition of MR_min_sol_hp_rec -- it was using `mr40', which is undefined, instead of `mr(40)'. Also add some comments. runtime/mercury_regs.h: Fix a bug: use MR_NUM_SPECIAL_REGS instead of NUM_SPECIAL_REGS. Note that this bug fix unfortunately breaks backwards compatibility, at least for procedures with more than 32 arguments, since it affects the mapping from r(N) to the fake_reg array. However, there was no alternative, since the old mapping was broken: for example, the old mapping used the same fake_reg slot for both r(41) and MR_global_hp. runtime/mercury_bootstrap.h: Change MR_GRADE_PART_0 from `redofr' to `v1', and document that that part of the grade is a binary compatibility version number. The reason for changing the grade is to ensure that the change in binary backwards compatibility resulting from the changes to runtime/mercury_regs.h will cause link errors rather than just random behaviour for procedures with >32 arguments. runtime/mercury_agc_debug.c: Use MR_NUM_SPECIAL_REGS instead of NUM_SPECIAL_REGS. Also add some XXX comments, since all of the places where NUM_SPECIAL_REGS was used are broken anyway -- they should be using MAX_FAKE_REG instead of MAX_REAL_REG + NUM_SPECIAL_REG. But I think the current definition is put there for efficiency, even though it's known to be broken for procedures with >32 arguments, so I didn't change the code to use MAX_FAKE_REG.
134 lines
4.7 KiB
C
134 lines
4.7 KiB
C
#undef __GNU_LIBRARY__
|
|
#define __GNU_LIBRARY__
|
|
/* Declarations for MR_getopt.
|
|
Copyright (C) 1989,90,91,92,93,94,96,97 Free Software Foundation, Inc.
|
|
This file is part of the GNU C Library.
|
|
|
|
The GNU C Library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public License as
|
|
published by the Free Software Foundation; either version 2 of the
|
|
License, or (at your MR_option) any later version.
|
|
|
|
The GNU C Library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public
|
|
License along with the GNU C Library; see the file COPYING.LIB. If not,
|
|
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
Boston, MA 02111-1307, USA. */
|
|
|
|
#ifndef MERCURY_GETOPT_H
|
|
#define MERCURY_GETOPT_H 1
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
/* For communication from `MR_getopt' to the caller.
|
|
When `MR_getopt' finds an MR_option that takes an argument,
|
|
the argument value is returned here.
|
|
Also, when `ordering' is RETURN_IN_ORDER,
|
|
each non-MR_option ARGV-element is returned here. */
|
|
|
|
extern char *MR_optarg;
|
|
|
|
/* Index in ARGV of the next element to be scanned.
|
|
This is used for communication to and from the caller
|
|
and for communication between successive calls to `MR_getopt'.
|
|
|
|
On entry to `MR_getopt', zero means this is the first call; initialize.
|
|
|
|
When `MR_getopt' returns -1, this is the index of the first of the
|
|
non-MR_option elements that the caller should itself scan.
|
|
|
|
Otherwise, `MR_optind' communicates from one call to the next
|
|
how much of ARGV has been scanned so far. */
|
|
|
|
extern int MR_optind;
|
|
|
|
/* Callers store zero here to inhibit the error message `MR_getopt' prints
|
|
for unrecognized MR_options. */
|
|
|
|
extern int MR_opterr;
|
|
|
|
/* Set to an MR_option character which was unrecognized. */
|
|
|
|
extern int MR_optopt;
|
|
|
|
/* Describe the long-named MR_options requested by the application.
|
|
The LONG_OPTIONS argument to MR_getopt_long or MR_getopt_long_only is a vector
|
|
of `struct MR_option' terminated by an element containing a name which is
|
|
zero.
|
|
|
|
The field `has_arg' is:
|
|
MR_no_argument (or 0) if the MR_option does not take an argument,
|
|
MR_required_argument (or 1) if the MR_option requires an argument,
|
|
MR_optional_argument (or 2) if the MR_option takes an MR_optional argument.
|
|
|
|
If the field `flag' is not NULL, it points to a variable that is set
|
|
to the value given in the field `val' when the MR_option is found, but
|
|
left unchanged if the MR_option is not found.
|
|
|
|
To have a long-named MR_option do something other than set an `int' to
|
|
a compiled-in constant, such as set a value from `MR_optarg', set the
|
|
MR_option's `flag' field to zero and its `val' field to a nonzero
|
|
value (the equivalent single-letter MR_option character, if there is
|
|
one). For long MR_options that have a zero `flag' field, `MR_getopt'
|
|
returns the contents of the `val' field. */
|
|
|
|
struct MR_option
|
|
{
|
|
#if defined (__STDC__) && __STDC__
|
|
const char *name;
|
|
#else
|
|
char *name;
|
|
#endif
|
|
/* has_arg can't be an enum because some compilers complain about
|
|
type mismatches in all the code that assumes it is an int. */
|
|
int has_arg;
|
|
int *flag;
|
|
int val;
|
|
};
|
|
|
|
/* Names for the values of the `has_arg' field of `struct MR_option'. */
|
|
|
|
#define MR_no_argument 0
|
|
#define MR_required_argument 1
|
|
#define MR_optional_argument 2
|
|
|
|
#if defined (__STDC__) && __STDC__
|
|
#ifdef __GNU_LIBRARY__
|
|
/* Many other libraries have conflicting prototypes for MR_getopt, with
|
|
differences in the consts, in stdlib.h. To avoid compilation
|
|
errors, only prototype MR_getopt for the GNU C library. */
|
|
extern int MR_getopt (int argc, char *const *argv, const char *shortopts);
|
|
#else /* not __GNU_LIBRARY__ */
|
|
extern int MR_getopt ();
|
|
#endif /* __GNU_LIBRARY__ */
|
|
extern int MR_getopt_long (int argc, char *const *argv, const char *shortopts,
|
|
const struct MR_option *longopts, int *longind);
|
|
extern int MR_getopt_long_only (int argc, char *const *argv,
|
|
const char *shortopts,
|
|
const struct MR_option *longopts, int *longind);
|
|
|
|
/* Internal only. Users should not call this directly. */
|
|
extern int MR__getopt_internal (int argc, char *const *argv,
|
|
const char *shortopts,
|
|
const struct MR_option *longopts, int *longind,
|
|
int long_only);
|
|
#else /* not __STDC__ */
|
|
extern int MR_getopt ();
|
|
extern int MR_getopt_long ();
|
|
extern int MR_getopt_long_only ();
|
|
|
|
extern int MR__getopt_internal ();
|
|
#endif /* __STDC__ */
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
#endif /* MERCURY_GETOPT_H */
|