Files
mercury/scripts/mgnuc.in
Peter Ross 2b1aa936fa Enable the new grade specifiers, ll_debug and gcd.
Estimated hours taken: 4
Branches: main

Enable the new grade specifiers, ll_debug and gcd.
ll_debug means compile with -O0 and -g.
gcd means compile the boehm_gc with #defines that
allow memory leaks to be debugged.

boehm_gc/Makefile:
	Use findstring to see which grade specifiers are available.
	Only add BOEHM_CFLAGS_FOR_THREADS if par in GRADE.
	Only define NO_DEBUGGING if we are not in gcd.

compiler/compile_target_code.m:
compiler/globals.m:
compiler/handle_options.m:
	Handle the gc_boehm_debug.

compiler/handle_options.m:
runtime/mercury_grade.h:
scripts/canonical_grade.sh-subr:
scripts/init_grade_options.sh-subr:
scripts/parse_grade_options.sh-subr:
	Handle the new grade specifiers.

scripts/mgnuc.in:
	Set the #defines implied by the new grade specifiers.

scripts/ml.in:
	Calculate the name of the boehm_gc library.
2006-10-02 09:06:51 +00:00

612 lines
19 KiB
Bash

#! /bin/sh
# vim: ts=4 sw=4 et
# @configure_input@
#---------------------------------------------------------------------------#
# Copyright (C) 1995-2006 The University of Melbourne.
# This file may only be copied under the terms of the GNU General
# Public License - see the file COPYING in the Mercury distribution.
#---------------------------------------------------------------------------#
#
# IMPORTANT: the manpage is produced automatically from this help
# message, so if you change the help message, don't forget to check
# that the manpage still looks OK.
# *************************************************************************
# *** IMPORTANT NOTE: any changes to this file may also require similar ***
# *** changes to compiler/compile_target_code.m ***
# *************************************************************************
FULLARCH=@FULLARCH@
NONSHARED_LIB_DIR=${MERCURY_NONSHARED_LIB_DIR=@NONSHARED_LIB_DIR@}
DEFAULT_GRADE=${MERCURY_DEFAULT_GRADE=@DEFAULT_GRADE@}
CC=${MERCURY_C_COMPILER="@CC@"}
CFLAGS_FOR_REGS="@CFLAGS_FOR_REGS@"
CFLAGS_FOR_GOTOS="@CFLAGS_FOR_GOTOS@"
CFLAGS_FOR_THREADS="@CFLAGS_FOR_THREADS@"
CFLAGS_FOR_NO_STRICT_ALIASING="@CFLAGS_FOR_NO_STRICT_ALIASING@"
AS="@AS@"
case "$CC" in
*gcc*)
ANSI_OPTS="-ansi"
CHECK_OPTS="
-Wall -Wwrite-strings
-Wshadow -Wstrict-prototypes -Wmissing-prototypes -Wno-unused"
# Note: we do not enable the following gcc warnings:
# -Wredundant-decls causes too many complaints in system header files
# -Wpointer-arith causes too many complaints in system header files
# (fixed in gcc 3.0, though, so at some point
# we should re-enable this)
# -Wtraditional we don't care about compatibility with pre-ANSI C
# -Wconversion really only intended to help people using \`unprotoize'
# -Waggregate-return not useful, IMHO
# -Wcast-qual causes LOTS of redundant warnings
# -Wcast-align causes redundant warnings in memory.c
# -pedantic causes unsuppressable warnings about LVALUE_CAST()
# -Wnested-externs causes unsuppressable warnings about callentry()
# -Wid-clash-31 causes warnings about entry_mercury__xxx ...
# we don't care about compatibility with C compilers
# that have short fixed limits on identifier length
# -Wenum-clash is for C++ only
# -Wunused causes various spurious warnings
OPT_OPTS="-O2 $CFLAGS_FOR_NO_STRICT_ALIASING -fomit-frame-pointer"
DEBUG_OPT="-g"
COMPILER=gcc
;;
*lcc*)
ANSI_OPTS=
CHECK_OPTS="-w" # turn off all warnings due to spurious warnings.
OPT_OPTS=""
DEBUG_OPT="-g"
COMPILER=lcc
;;
*cl* | *CL*)
ANSI_OPTS=""
CHECK_OPTS=""
OPT_OPTS=""
DEBUG_OPT="/Zi"
COMPILER=cl
;;
*)
ANSI_OPTS=
CHECK_OPTS=
OPT_OPTS="-O"
DEBUG_OPT="-g"
COMPILER=unknown
;;
esac
AS_OPTS=""
SPLIT_OPTS=""
INLINE_ALLOC_OPTS=""
verbose=false
assemble=false
c_debug=false
c_optimize=true
use_activation_counts=false
preserve_tail_recursion=true
mercury_config_dir=${MERCURY_STDLIB_DIR-@LIBDIR@}
mercury_config_dir=${MERCURY_CONFIG_DIR=$mercury_config_dir}
mercury_stdlib_dir=${MERCURY_STDLIB_DIR=@LIBDIR@}
# include the file `init_grade_options.sh-subr'
@INIT_GRADE_OPTIONS@
Help="\
Name: mgnuc - Mercury front-end to GNU C
Usage: mgnuc [<options>] [-- <gcc options>] files...
Options:
-v, --verbose
Echo gcc command before executing it.
--no-ansi
Don't pass \`-ansi' to gcc. Use the full contents of system headers,
rather than the ANSI subset.
--no-check
Don't enable any of gcc's warnings.
--low-level-debug
Enable low-level debugging of the C code. Useful only for Mercury
system developers.
-g, --c-debug
Generate object files that can debugged with C debuggers such as gdb.
--no-c-optimize
Disable optimization by the C compiler.
--inline-alloc
Inline calls to the memory allocator.
--mercury-standard-library-directory <directory>
--mercury-stdlib-dir <directory>
The directory containing the installed Mercury standard library.
--no-mercury-standard-library-directory, --no-mercury-stdlib-dir
Don't use an installed Mercury standard library.
$grade_usage
Description:
This runs gcc with the appropriate options for compiling Mercury programs.
Normally it invokes gcc in ANSI mode with almost all warnings enabled,
but this can be changed using the \`--no-ansi' or \`--no-check' options.
Environment variables:
MERCURY_DEFAULT_GRADE.
Files:
If the current directory contains a file named .mgnuc_copts, then mgnuc
will assume that it contains C compiler options that should be included
on the C compiler's command line. This is usually used to specify C
compiler search paths.
"
while : ; do
case "$1" in
-h|--help|"-?")
echo "$Help"
exit 0
;;
@MGNUC_FILE_OPTS@
--mercury-standard-library-directory|--mercury-stdlib-dir)
mercury_stdlib_dir="$2"
mercury_config_dir="$2"
shift
;;
--mercury-config-directory|--mercury-config-dir)
mercury_config_dir="$2"
shift
;;
# We don't allow `MERCURY_CONFIG_DIR' to be unset
# without `MERCURY_STDLIB_DIR' also being unset.
# include the file `parse_grade_options.sh-subr'
@PARSE_GRADE_OPTIONS@
--)
shift
break
;;
*)
break
;;
esac
shift
done
if test -r .mgnuc_opts
then
for opt in `cat .mgnuc_opts`
do
case "$opt" in
@MGNUC_FILE_OPTS@
*)
echo "unknown option $opt in .mgnuc_opts"
exit 1
;;
esac
done
fi
# include the file `final_grade_options.sh-subr'
@FINAL_GRADE_OPTIONS@
# compute the canonical grade name from the options settings
#
# include the file `canonical_grade.sh-subr'
@CANONICAL_GRADE@
case "$mercury_stdlib_dir" in
"") MERC_ALL_C_INCL_DIRS=
;;
*)
# The option setting code above guarantees that if
# `--mercury-stdlib-dir' is set, `--mercury-config-dir'
# is also set.
MERC_ALL_C_INCL_DIRS="-I$mercury_config_dir/conf -I$mercury_stdlib_dir/inc -I$mercury_stdlib_dir/lib/$GRADE/inc"
;;
esac
# add /usr/local/include to the default search path, if needed
ALL_LOCAL_C_INCL_DIRS=${MERCURY_ALL_LOCAL_C_INCL_DIRS=@ALL_LOCAL_C_INCL_DIRS@}
# Convert non-grade mgnuc options into gcc options.
#
# IMPORTANT: any changes here will require similar changes to
# compiler/compile_target_code.m.
case $c_debug in
true) C_DEBUG_OPTS="$DEBUG_OPT" ;;
false) C_DEBUG_OPTS="" ;;
esac
case $c_optimize in
true) ;;
false) OPT_OPTS="" ;;
esac
case $low_level_debug in
true) LLDEBUG_OPTS="-DMR_LOWLEVEL_DEBUG" ;;
false) LLDEBUG_OPTS="" ;;
esac
#
# convert grade mgnuc options into gcc options
#
# IMPORTANT: any changes here may require similar changes to all the files
# mentioned in runtime/mercury_grade.h.
#
case $highlevel_code in
true) HLC_OPTS="-DMR_HIGHLEVEL_CODE" ;;
false) HLC_OPTS="" ;;
esac
case $highlevel_data in
true) HLD_OPTS="-DMR_HIGHLEVEL_DATA" ;;
false) HLD_OPTS="" ;;
esac
case $gcc_nested_functions in
true) NEST_OPTS="-DMR_USE_GCC_NESTED_FUNCTIONS" ;;
false) NEST_OPTS="" ;;
esac
case $asm_labels in
true) ASM_OPTS="-DMR_USE_ASM_LABELS" ;;
false) ASM_OPTS="" ;;
esac
case $non_local_gotos in
true) GOTO_OPTS="-DMR_USE_GCC_NONLOCAL_GOTOS" ;;
false) GOTO_OPTS="" ;;
esac
case $global_regs in
true) REG_OPTS="-DMR_USE_GCC_GLOBAL_REGISTERS" ;;
false) REG_OPTS="" ;;
esac
case $thread_safe in
true) THREAD_OPTS="$CFLAGS_FOR_THREADS"
case $FULLARCH in *linux*)
# Don't use -ansi under Linux or we get parse errors
# at sigset_t in the pthreads headers. This doesn't seem
# to be necessary for recent versions of Linux/glibc
# (e.g. glibc 2.1.2), but I've left it in so we can remain
# compatible with older versions.
ANSI_OPTS=""
esac ;;
false) THREAD_OPTS="" ;;
esac
# Set the correct flags if we're to use the MS Visual C runtime.
use_msvcrt=@USE_MSVCRT@
if test $use_msvcrt = "yes"; then
case $thread_safe in
# /MD states that we will use the MSVC runtime, the boehm_gc collector
# assumes that the collector has been built as a DLL if we are using
# the MSVC runtime so we need to define GC_NOT_DLL when the collector
# isn't built as a DLL.
true) MSVCRT_OPTS="/MD" ;;
false) MSVCRT_OPTS="/DGC_NOT_DLL /MD" ;;
esac
else
MSVCRT_OPTS=""
fi
boehm_opts="-DMR_CONSERVATIVE_GC -DMR_BOEHM_GC "
case $gc_method in
accurate) GC_OPTS="-DMR_NATIVE_GC" ;;
boehm) GC_OPTS="$boehm_opts" ;;
boehm_debug) GC_OPTS="$boehm_opts -DMR_BOEHM_GC_DEBUG -DGC_DEBUG -DKEEP_BACK_PTRS" ;;
conservative) GC_OPTS="-DMR_CONSERVATIVE_GC -DMR_BOEHM_GC" ;;
mps) GC_OPTS="-DMR_CONSERVATIVE_GC -DMR_MPS_GC" ;;
none) GC_OPTS="" ;;
esac
case $profile_time in
true) PROF_TIME_OPTS="-DMR_MPROF_PROFILE_TIME" ;;
false) PROF_TIME_OPTS="" ;;
esac
case $profile_calls in
true) PROF_CALLS_OPTS="-DMR_MPROF_PROFILE_CALLS" ;;
false) PROF_CALLS_OPTS="" ;;
esac
case $profile_memory in
true) PROF_MEMORY_OPTS="-DMR_MPROF_PROFILE_MEMORY" ;;
false) PROF_MEMORY_OPTS="" ;;
esac
case $use_activation_counts in
true) ACTIVATION_COUNT_OPT="-DMR_USE_ACTIVATION_COUNTS" ;;
false) ACTIVATION_COUNT_OPT="";;
esac
case $preserve_tail_recursion in
true) PRESERVE_TAIL_RECURSION_OPT="-DMR_DEEP_PROFILING_TAIL_RECURSION" ;;
false) PRESERVE_TAIL_RECURSION_OPT="";;
esac
case $profile_deep in
true) PROF_DEEP_OPTS="-DMR_DEEP_PROFILING $ACTIVATION_COUNT_OPT $PRESERVE_TAIL_RECURSION_OPT" ;;
false) PROF_DEEP_OPTS="" ;;
esac
case $record_term_sizes_as_words,$record_term_sizes_as_cells in
true,true) progname=`basename $0`
echo "$progname: we can't record both cell and word sizes"
exit 1 ;;
true,false) RECORD_TERM_SIZE_OPTS="-DMR_RECORD_TERM_SIZES" ;;
false,true) RECORD_TERM_SIZE_OPTS="-DMR_RECORD_TERM_SIZES -DMR_RECORD_TERM_SIZES_AS_CELLS" ;;
false,false) RECORD_TERM_SIZE_OPTS="" ;;
esac
case $use_trail in
true) TRAIL_OPTS="-DMR_USE_TRAIL" ;;
false) TRAIL_OPTS="" ;;
esac
case $reserve_tag in
true) RESERVE_TAG_OPTS="-DMR_RESERVE_TAG" ;;
false) RESERVE_TAG_OPTS="" ;;
esac
case $use_minimal_model_stack_copy,$use_minimal_model_own_stacks in
true,true) progname=`basename $0`
echo "$progname: can't enable both forms of minimal model tabling at once"
exit 1 ;;
true,false) MINIMAL_MODEL_OPTS="-DMR_USE_MINIMAL_MODEL_STACK_COPY" ;;
false,true) MINIMAL_MODEL_OPTS="-DMR_USE_MINIMAL_MODEL_OWN_STACKS" ;;
false,false) MINIMAL_MODEL_OPTS="" ;;
esac
case $use_minimal_model,$minimal_model_debug in
true,false) ;; # MINIMAL_MODEL_OPTS is already set
true,true) MINIMAL_MODEL_OPTS="$MINIMAL_MODEL_OPTS -DMR_MINIMAL_MODEL_DEBUG" ;;
*) MINIMAL_MODEL_OPTS="" ;;
esac
case $pic_reg in
true) PICREG_OPTS="-DMR_PIC_REG" ;;
false) PICREG_OPTS="" ;;
esac
case $debug in
true) TRACE_OPTS="-DMR_EXEC_TRACE" ;;
false) TRACE_OPTS="" ;;
esac
case $decl_debug in
true) DECL_DEBUG_OPTS="-DMR_DECL_DEBUG" ;;
false) DECL_DEBUG_OPTS="" ;;
esac
case $ll_debug in
true) LL_DEBUG_OPTS="-DMR_LL_DEBUG $DEBUG_OPT -O0" ;;
false) LL_DEBUG_OPTS="" ;;
esac
case $extend_stacks in
true) EXTEND_STACKS_OPTS="-DMR_EXTEND_STACKS_WHEN_NEEDED" ;;
false) EXTEND_STACKS_OPTS="" ;;
esac
GCC_OPTS="$NEST_OPTS $ASM_OPTS $GOTO_OPTS $REG_OPTS"
# check that special grades are only used with gcc
case $COMPILER in
gcc|unknown)
;;
*) case "$GCC_OPTS" in
*USE_GCC*)
progname=`basename $0`
echo "$progname: For compilers other than GNU C, the only" 1>&2
echo "$progname: base grade allowed is \`none'" 1>&2
;;
esac
;;
esac
# if we're using global registers, add CFLAGS_FOR_REGS
case $global_regs in
true) GCC_OPTS="$GCC_OPTS $CFLAGS_FOR_REGS" ;;
false) ;;
esac
# if we're using non-local gotos, add CFLAGS_FOR_GOTOS
case $non_local_gotos in
true) GCC_OPTS="$GCC_OPTS $CFLAGS_FOR_GOTOS" ;;
false) ;;
esac
#
# Special case hacks for particular architectures
# Any code here needs to be duplicated in ../configure.in.
#
ARCH_OPTS=""
case "$FULLARCH" in
mips-sgi-irix5.*)
# Nonlocal gotos don't work with PIC, which is the default for Irix 5,
# so if nonlocal gotos are enabled we need to disable the use of
# shared libraries.
case $non_local_gotos in
true)
LIBRARY_PATH="$NONSHARED_LIB_DIR:/usr/lib/nonshared:$LIBRARY_PATH"
export LIBRARY_PATH
AS_OPTS="-non_shared"
;;
esac
;;
i*86-*|x86_64*)
# The use of stack_pointer in the ASM_JUMP macro defined in
# runtime/mercury_goto.h causes lots of warnings about using possibly
# uninitialized variables; there's no easy way to supress them except
# by disabling the warning.
case "$COMPILER" in
gcc)
CHECK_OPTS="$CHECK_OPTS -Wno-uninitialized"
;;
esac
;;
*-solaris*|*-sunos*)
# The solaris headers for pthreads are not ANSI :-(
case $thread_safe in true)
ANSI_OPTS=""
;;
esac
;;
esac
# Kludge for gcc-2.6.3 bug on mips: if you use gcc global registers and -O2,
# gcc 2.6.3 gets an internal error compiling library/int.c and
# compiler/bytecode.c. As a work-around, we compile those file with -O1.
# Similarly library/bag.c needs to be compiled with -O0.
# Similarly for gcc-2.6.3 on alpha with compiler/modules.c.
# Similarly for gcc-2.7.0 on i386 with compiler/call_gen.c.
# Similarly for egcs-1.1 on sparc with library/lexer.c, library/string.c,
# and compiler/{deforest,dupelim,mercury_to_mercury,modules}.c.
# Similarly for egcs-1.1.2 on i386 with library/table_builtin.c.
case $COMPILER in gcc)
case "$FULLARCH" in
mips*)
case "$*" in
*" int.c "*|*" int.dir/int_"*".c "*)
case "`$CC --version 2>/dev/null`" in 2.6.*)
ARCH_OPTS="$ARCH_OPTS -O1" ;;
esac;;
*" bytecode.c "*|*" bytecode.dir/bytecode_"*".c "*)
case "`$CC --version 2>/dev/null`" in 2.6.*)
ARCH_OPTS="$ARCH_OPTS -O1" ;;
esac;;
*" bag.c "*)
case "`$CC --version 2>/dev/null`" in 2.6.*)
ARCH_OPTS="$ARCH_OPTS -O0" ;;
esac;;
esac ;;
alpha*)
case "$*" in
*" modules.c "*|*" modules.dir/modules_"*".c "*)
case "`$CC --version 2>/dev/null`" in 2.6.*)
ARCH_OPTS="$ARCH_OPTS -O1" ;;
esac
esac ;;
i*86*)
case "$*" in
*" call_gen.c "*|*" modules.dir/call_gen"*".c "*)
ARCH_OPTS="$ARCH_OPTS -O0" ;;
*" table_builtin.c "*|*" modules.dir/table_builtin"*".c "*)
ARCH_OPTS="$ARCH_OPTS -O0" ;;
*" random.c "*|*" random.dir/random"*".c "*)
ARCH_OPTS="$ARCH_OPTS -O0" ;;
esac ;;
sparc*)
case "$*" in
*" lexer.c "*|*" modules.dir/lexer"*".c "*)
ARCH_OPTS="$ARCH_OPTS -O1" ;;
*" string.c "*|*" modules.dir/string"*".c "*)
ARCH_OPTS="$ARCH_OPTS -O1" ;;
*" deforest.c "*|*" modules.dir/deforest"*".c "*)
ARCH_OPTS="$ARCH_OPTS -O1" ;;
*" dupelim.c "*|*" modules.dir/dupelim"*".c "*)
ARCH_OPTS="$ARCH_OPTS -O1" ;;
*" dl.c "*|*" modules.dir/dl"*".c "*)
ARCH_OPTS="$ARCH_OPTS -O1" ;;
*" mercury_to_mercury.c "*|*" modules.dir/mercury_to_mercury"*".c "*)
ARCH_OPTS="$ARCH_OPTS -O1" ;;
*" modules.c "*|*" modules.dir/modules"*".c "*)
ARCH_OPTS="$ARCH_OPTS -O1" ;;
esac
esac ;;
esac
# On sparc-sun-solaris2, we need to use -fPIC rather than -fpic if we're
# using grade `none', because otherwise the Mercury standard library
# overflows the fixed limit on the number of "small pic" references.
case "$FULLARCH" in sparc-sun-solaris2*)
case "$grade" in none)
case "$*" in *-fpic*)
echo "mgnuc: using -fPIC rather than -fpic"
OVERRIDE_OPTS="$OVERRIDE_OPTS -fPIC"
;;
esac ;;
esac ;;
esac
# The -floop-optimize option is incompatible with the global register code
# we generated on Darwin PowerPC. See the hard_coded/ppc_bug test case
# for an example program which fails with this optimization.
case $FULLARCH in powerpc*apple*darwin*)
case $highlevel_code in false)
case $global_regs in true)
ARCH_OPTS="$ARCH_OPTS -fno-loop-optimize" ;;
esac
esac
esac
case $assemble in true)
case $verbose in true)
echo $AS $AS_OPTS "$@" ;;
esac
exec $AS $AS_OPTS "$@" ;;
esac
if test -r .mgnuc_copts
then
INVISIBLE_OPTS=`cat .mgnuc_copts`
else
INVISIBLE_OPTS=""
fi
ALL_CC_OPTS="$MERC_ALL_C_INCL_DIRS\
$ANSI_OPTS\
$CHECK_OPTS\
$OPT_OPTS\
$HLC_OPTS\
$HLD_OPTS\
$GCC_OPTS\
$MSVCRT_OPTS\
$GC_OPTS\
$DEFINE_OPTS\
$STACK_TRACE_OPTS\
$TRACE_OPTS\
$DECL_DEBUG_OPTS\
$LL_DEBUG_OPTS\
$EXTEND_STACKS_OPTS\
$LLDEBUG_OPTS\
$C_DEBUG_OPTS\
$PROF_TIME_OPTS\
$PROF_CALLS_OPTS\
$PROF_MEMORY_OPTS\
$PROF_DEEP_OPTS\
$INLINE_ALLOC_OPTS\
$TRAIL_OPTS\
$RECORD_TERM_SIZE_OPTS\
$RESERVE_TAG_OPTS\
$MINIMAL_MODEL_OPTS\
$SPLIT_OPTS\
$THREAD_OPTS\
$PICREG_OPTS\
$ARCH_OPTS\
$ARG_OPTS\
$INVISIBLE_OPTS"
case $verbose in true)
echo $CC $ALL_CC_OPTS "$@" $OVERRIDE_OPTS $ALL_LOCAL_C_INCL_DIRS;;
esac
case $# in
0) exec $CC $ALL_CC_OPTS $OVERRIDE_OPTS ;;
*) exec $CC $ALL_CC_OPTS "$@" $OVERRIDE_OPTS $ALL_LOCAL_C_INCL_DIRS;;
esac