mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-09 10:52:24 +00:00
82a950c0d9
Estimated hours taken: 80 Branches: main Make Aditi work with `--highlevel-code'. (Note that this doesn't work with the current CVS version of Aditi. The Aditi developers have rewritten the Aditi client API, and haven't maintained the old version of the API, so Mercury queries don't work at the moment. extras/aditi will be updated to use the new interface as a separate change.) extras/aditi/aditi_private_builtin.m: extras/aditi/aditi.m: Move code to implement Aditi calls and updates into a aditi_private_builtin.m. These operations are now implemented using ordinary Mercury foreign procedures, rather than hand-coded C modules. compiler/magic.m: Use calls to ordinary calls to predicates defined in extras/aditi/aditi_private_builtin.m to implement the procedures which interface between top-down Mercury code and Aditi procedures. compiler/aditi_backend.pp: compiler/aditi_builtin_ops.m: compiler/mercury_compile.m: compiler/notes/compiler_design.html: Add a pass to convert Aditi builtins (calls and updates) into ordinary calls to predicates defined in extras/aditi/aditi_private_builtin.m. compiler/hlds_goal.m: compiler/hlds_pred.m: Add a new generic_call type -- `unsafe_cast'. aditi_builtin_ops.m needs to be able to cast closures from one type and inst to another. Delete the `aditi_call' alternative for `aditi_builtin', which is not needed after the change to magic.m described above. Add predicates `construct_tuple' and `deconstruct_tuple'. compiler/*hlds.*.m: compiler/call_gen.m: compiler/ml_call_gen.m: Handle unsafe cast goals. compiler/common.m: compiler/higher_order.m: compiler/unify_proc.m: Generate unsafe_cast goals instead of calls to private_builtin.unsafe_type_cast. compiler/purity.m: compiler/notes/compiler_design.html: Convert calls to private_builtin.unsafe_type_cast into unsafe_cast goals. compiler/ml_code_gen.m: Don't attempt to generate code for Aditi procedures. Remove special case handling of calls to private_builtin.unsafe_type_cast -- such calls are now transformed away. compiler/mlds_to_c.m: compiler/mlds_to_gcc.m: compiler/maybe_mlds_to_gcc.m: Add the RL code to the generated C file. compiler/llds_out.m: compiler/c_util.m: compiler/compile_target_code.m: Move code to generate a `.rlo' file and work out the name of the RL constant embeeded in the C file for a module into c_util.m, for use by the MLDS backend. compiler/modules.m: Automatically import aditi_private_builtin when compiling with `--aditi'. We generate a C constant for the RL code for each module, so modules compiled with `--aditi' need to be treated by the build system as if they contain foreign code. compiler/polymorphism.m: Tuple insertion and deletion no longer need special treatment. compiler/llds.m: compiler/ll_backend.*.m: Delete the Aditi alternatives of the `code_addr' type. compiler/mode_util.m: Add function versions of in_mode, out_mode, etc. compiler/prog_util.m: Add aditi_public_builtin_module (returns `aditi') and aditi_private_builtin_module (returns `aditi_private_builtin'). tests/valid/aditi_private_builtin.m: tests/invalid/aditi_private_builtin.m: tests/valid/Mercury.options: tests/invalid/Mercury.options: Add a cut down version of extras/aditi/aditi_private_builtin.m for use in running the tests.
75 lines
2.6 KiB
ObjectPascal
75 lines
2.6 KiB
ObjectPascal
%-----------------------------------------------------------------------------%
|
|
% Copyright (C) 2001, 2003 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.
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
% maybe_mlds_to_gcc - Convert MLDS to the GCC back-end representation,
|
|
% if the GCC back-end interface has been enabled.
|
|
% Main author: fjh.
|
|
|
|
% This is just a wrapper around mlds_to_gcc.m to enable that
|
|
% file to be included iff we were configured with the
|
|
% gcc back-end interface enabled.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- module ml_backend__maybe_mlds_to_gcc.
|
|
:- interface.
|
|
|
|
:- import_module aditi_backend__rl_file.
|
|
:- import_module ml_backend__mlds.
|
|
|
|
:- import_module bool, std_util.
|
|
:- use_module io.
|
|
|
|
:- type frontend_callback(T) == pred(T, io__state, io__state).
|
|
:- inst frontend_callback == (pred(out, di, uo) is det).
|
|
|
|
% Invoke the callback either via gcc__run_backend, or directly,
|
|
% depending on whether the gcc back-end interface has
|
|
% been enabled.
|
|
:- pred maybe_mlds_to_gcc__run_gcc_backend(mercury_module_name,
|
|
frontend_callback(T), T, io__state, io__state).
|
|
:- mode maybe_mlds_to_gcc__run_gcc_backend(in, in(frontend_callback), out,
|
|
di, uo) is det.
|
|
|
|
% Either invoke mlds_to_gcc__compile_to_asm, or report an error
|
|
% message, depending on whether the gcc back-end interface has
|
|
% been enabled. In the former case,
|
|
% the bool returned is `yes' iff the module contained C code.
|
|
:- pred maybe_mlds_to_gcc__compile_to_asm(mlds__mlds, maybe(rl_file), bool,
|
|
io__state, io__state).
|
|
:- mode maybe_mlds_to_gcc__compile_to_asm(in, in, out, di, uo) is det.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
#if ENABLE_GCC_BACK_END
|
|
|
|
:- use_module mlds_to_gcc.
|
|
|
|
maybe_mlds_to_gcc__run_gcc_backend(ModuleName, CallBack, CallBackOutput) -->
|
|
mlds_to_gcc__run_gcc_backend(ModuleName, CallBack, CallBackOutput).
|
|
|
|
maybe_mlds_to_gcc__compile_to_asm(MLDS, RLFile, ContainsCCode) -->
|
|
mlds_to_gcc__compile_to_asm(MLDS, RLFile, ContainsCCode).
|
|
|
|
#else
|
|
|
|
:- import_module hlds__passes_aux.
|
|
:- import_module string.
|
|
|
|
maybe_mlds_to_gcc__run_gcc_backend(_ModuleName, CallBack, CallBackOutput) -->
|
|
CallBack(CallBackOutput).
|
|
|
|
maybe_mlds_to_gcc__compile_to_asm(_MLDS, _, no) -->
|
|
report_error(
|
|
"Sorry, `--target asm' not supported: this installation of the Mercury\n" ++
|
|
"compiler was built without support for the GCC back-end interface.").
|
|
|
|
#endif
|
|
|
|
%-----------------------------------------------------------------------------%
|