mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-20 16:31:04 +00:00
9599c55ae8
Estimated hours taken: 3 Implement new grades and options for the MLDS back-end. compiler/options.m: Rename --highlevel-c as --highlevel-code. Add new option --highlevel-data. compiler/mercury_compile.m: scripts/mgnuc.in: Convert the grade options --highlevel-code, --highlevel-data, and --gcc-nested-functions into C flags -DMR_HIGHLEVEL_CODE, -DMR_HIGHLEVEL_DATA, and -DMR_USE_GCC_NESTED_FUNCTIONS respectively. compiler/handle_options.m: scripts/parse_grade_options.sh-subr: scripts/init_grade_options.sh-subr: scripts/final_grade_options.sh-subr: scripts/ml.in: Add new grades `hl', `hlc', `hl_nest', and `hlc_nest'. Add code to handle the new options and grades. scripts/ml.in: If --high-level-code is set, then don't invoke the demangler, since it doesn't (yet) understand the new name mangling scheme.
344 lines
7.0 KiB
Plaintext
344 lines
7.0 KiB
Plaintext
#---------------------------------------------------------------------------#
|
|
# Copyright (C) 1997-1999 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.
|
|
#---------------------------------------------------------------------------#
|
|
#
|
|
# parse_grade_options.sh-subr:
|
|
# An `sh' subroutine for parsing grade-related options.
|
|
# Used by the `ml', `mgnuc' and `c2init' scripts.
|
|
#
|
|
# The code here should be inserted in the case statement in a script's
|
|
# option-parsing loop.
|
|
#
|
|
# IMPORTANT: any changes to the handling of grades here may also require
|
|
# changes to all the files indicated by runtime/mercury_grade.h.
|
|
#
|
|
# This file should handle the setting of all the shell variables defined by
|
|
# init_grade_options.sh-subr.
|
|
#
|
|
#---------------------------------------------------------------------------#
|
|
|
|
--high-level-code)
|
|
high_level_code=true ;;
|
|
--no-high-level-code)
|
|
high_level_code=false ;;
|
|
|
|
--high-level-data)
|
|
high_level_data=true ;;
|
|
--no-high-level-data)
|
|
high_level_data=false ;;
|
|
|
|
--gcc-nested-functions)
|
|
gcc_nested_functions=true ;;
|
|
--no-gcc-nested-functions)
|
|
gcc_nested_functions=false ;;
|
|
|
|
--asm-labels)
|
|
asm_labels=true ;;
|
|
--no-asm-labels)
|
|
asm_labels=false ;;
|
|
|
|
--gcc-non-local-gotos)
|
|
non_local_gotos=true ;;
|
|
--no-gcc-non-local-gotos)
|
|
non_local_gotos=false ;;
|
|
|
|
--gcc-global-registers)
|
|
global_regs=true ;;
|
|
--no-gcc-global-registers)
|
|
global_regs=false ;;
|
|
|
|
--gc)
|
|
shift
|
|
case "$1" in
|
|
accurate|conservative|none)
|
|
gc_method=$1 ;;
|
|
*)
|
|
echo "$0: invalid gc method \`$1'" 1>&2
|
|
exit 1
|
|
;;
|
|
esac
|
|
;;
|
|
|
|
--parallel)
|
|
thread_safe=true ;;
|
|
|
|
-p|--profiling|--time-profiling)
|
|
profile_time=true
|
|
profile_calls=true
|
|
profile_memory=false
|
|
profile_deep=false
|
|
;;
|
|
--memory-profiling)
|
|
profile_time=false
|
|
profile_calls=true
|
|
profile_memory=true
|
|
profile_deep=false
|
|
;;
|
|
--deep-profiling)
|
|
profile_time=true
|
|
profile_calls=false
|
|
profile_memory=false
|
|
profile_deep=true
|
|
;;
|
|
-p-|--no-profiling)
|
|
profile_time=false
|
|
profile_calls=false
|
|
profile_memory=false
|
|
profile_deep=false
|
|
;;
|
|
--profile-time)
|
|
profile_time=true ;;
|
|
--no-profile-time)
|
|
profile_time=false ;;
|
|
--profile-calls)
|
|
profile_calls=true ;;
|
|
--no-profile-calls)
|
|
profile_calls=false ;;
|
|
--profile-memory)
|
|
profile_memory=true ;;
|
|
--no-profile-memory)
|
|
profile_memory=false ;;
|
|
--profile-deep)
|
|
profile_deep=true ;;
|
|
--no-profile-deep)
|
|
profile_deep=false ;;
|
|
|
|
--use-trail)
|
|
use_trail=true ;;
|
|
--no-use-trail)
|
|
use_trail=false ;;
|
|
|
|
--use-minimal-model)
|
|
use_minimal_model=true ;;
|
|
--no-use-minimal-model)
|
|
use_minimal_model=false ;;
|
|
|
|
--pic-reg)
|
|
pic_reg=true ;;
|
|
--no-pic-reg)
|
|
pic_reg=false ;;
|
|
|
|
# The following more fine-grained options have been omitted
|
|
# since they are not very useful and would probably only confuse people.
|
|
# --stack-trace)
|
|
# stack_trace=true ;;
|
|
# --no-stack-trace)
|
|
# stack_trace=false ;;
|
|
# --require-tracing)
|
|
# require_tracing=true ;;
|
|
# --no-require-tracing)
|
|
# require_tracing=false ;;
|
|
|
|
--debug)
|
|
stack_trace=true
|
|
require_tracing=true ;;
|
|
--no-debug)
|
|
stack_trace=false
|
|
require_tracing=false ;;
|
|
|
|
-s|--grade)
|
|
shift
|
|
grade="$1";
|
|
|
|
# Convert a grade to a set of options.
|
|
#
|
|
# IMPORTANT: any changes to the handling of grades here
|
|
# may also require changes to all the files indicated by
|
|
# runtime/mercury_grade.h.
|
|
|
|
high_level_code=false
|
|
gcc_nested_functions=false
|
|
high_level_data=false
|
|
asm_labels=false
|
|
non_local_gotos=false
|
|
global_regs=false
|
|
thread_safe=false
|
|
gc_method=none
|
|
profile_time=false
|
|
profile_calls=false
|
|
profile_memory=false
|
|
profile_deep=false
|
|
use_trail=false
|
|
use_minimal_model=false
|
|
pic_reg=false
|
|
stack_trace=false
|
|
require_tracing=false
|
|
|
|
grade_pieces=`echo $grade | tr '.' ' '`
|
|
for grade_piece in $grade_pieces
|
|
do
|
|
case "$grade_piece" in
|
|
hl)
|
|
asm_labels=false
|
|
non_local_gotos=false
|
|
global_regs=false
|
|
high_level_code=true
|
|
gcc_nested_functions=false
|
|
high_level_data=true
|
|
;;
|
|
hlc)
|
|
asm_labels=false
|
|
non_local_gotos=false
|
|
global_regs=false
|
|
high_level_code=true
|
|
gcc_nested_functions=false
|
|
high_level_data=false
|
|
;;
|
|
hl_nest)
|
|
asm_labels=false
|
|
non_local_gotos=false
|
|
global_regs=false
|
|
high_level_code=true
|
|
gcc_nested_functions=true
|
|
high_level_data=true
|
|
;;
|
|
hlc_nest)
|
|
asm_labels=false
|
|
non_local_gotos=false
|
|
global_regs=false
|
|
high_level_code=true
|
|
gcc_nested_functions=true
|
|
high_level_data=false
|
|
;;
|
|
asm_fast)
|
|
asm_labels=true
|
|
non_local_gotos=true
|
|
global_regs=true
|
|
high_level_code=false
|
|
gcc_nested_functions=false
|
|
high_level_data=false
|
|
;;
|
|
asm_jump)
|
|
asm_labels=true
|
|
non_local_gotos=true
|
|
global_regs=false
|
|
high_level_code=false
|
|
gcc_nested_functions=false
|
|
high_level_data=false
|
|
;;
|
|
fast)
|
|
asm_labels=false
|
|
non_local_gotos=true
|
|
global_regs=true
|
|
high_level_code=false
|
|
gcc_nested_functions=false
|
|
high_level_data=false
|
|
;;
|
|
jump)
|
|
asm_labels=false
|
|
non_local_gotos=true
|
|
global_regs=false
|
|
high_level_code=false
|
|
gcc_nested_functions=false
|
|
high_level_data=false
|
|
;;
|
|
reg)
|
|
asm_labels=false
|
|
non_local_gotos=false
|
|
global_regs=true
|
|
high_level_code=false
|
|
gcc_nested_functions=false
|
|
high_level_data=false
|
|
;;
|
|
none)
|
|
asm_labels=false
|
|
non_local_gotos=false
|
|
global_regs=false
|
|
high_level_code=false
|
|
gcc_nested_functions=false
|
|
high_level_data=false
|
|
;;
|
|
|
|
par)
|
|
thread_safe=true
|
|
;;
|
|
|
|
agc)
|
|
gc_method=accurate
|
|
;;
|
|
gc)
|
|
gc_method=conservative
|
|
;;
|
|
nogc)
|
|
gc_method=none
|
|
;;
|
|
|
|
memprof)
|
|
profile_time=false
|
|
profile_calls=true
|
|
profile_memory=true
|
|
profile_deep=false
|
|
;;
|
|
prof)
|
|
profile_time=true
|
|
profile_calls=true
|
|
profile_memory=false
|
|
profile_deep=false
|
|
;;
|
|
proftime)
|
|
profile_time=true
|
|
profile_calls=false
|
|
profile_memory=false
|
|
profile_deep=false
|
|
;;
|
|
profcalls)
|
|
profile_time=false
|
|
profile_calls=true
|
|
profile_memory=false
|
|
profile_deep=false
|
|
;;
|
|
profall)
|
|
profile_time=true
|
|
profile_calls=true
|
|
profile_memory=true
|
|
profile_deep=false
|
|
;;
|
|
profdeep)
|
|
profile_time=true
|
|
profile_calls=false
|
|
profile_memory=false
|
|
profile_deep=true
|
|
;;
|
|
|
|
tr)
|
|
use_trail=true
|
|
;;
|
|
|
|
mm)
|
|
use_minimal_model=true
|
|
;;
|
|
|
|
picreg)
|
|
pic_reg=true
|
|
;;
|
|
|
|
# The following more fine-grained options have been omitted
|
|
# since they are not very useful and would probably only confuse people.
|
|
# trace)
|
|
# stack_trace=false
|
|
# require_tracing=true
|
|
#
|
|
# strce)
|
|
# stack_trace=true
|
|
# require_tracing=false
|
|
|
|
debug)
|
|
stack_trace=true
|
|
require_tracing=true
|
|
;;
|
|
esac
|
|
done
|
|
;;
|
|
|
|
-s*)
|
|
grade="` expr $1 : '-s\(.*\)' `"
|
|
# just insert it as `--grade $grade' and then reparse it
|
|
case $# in
|
|
0) set - "x --grade $grade" ;;
|
|
0) set - "x --grade $grade" "$@" ;;
|
|
esac
|
|
;;
|
|
|