mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 01:13:30 +00:00
848d706ded
This is because in the presence of practices such as writing to a file
with one name (e.g. xyz.mih.tmp) and then renaming that file (e.g. to
xyz.mih), the stream name is NOT the right name.
compiler/c_util.m:
Require callers to specify the actual file name we should put
into #line directives.
compiler/export.m:
compiler/llds_out_file.m:
compiler/llds_out_instr.m:
compiler/llds_out_util.m:
compiler/mlds_to_c_file.m:
compiler/mlds_to_c_stmt.m:
compiler/mlds_to_c_util.m:
Pass the intended final filename to c_util.m, directly or indirectly.
226 lines
9.2 KiB
Mathematica
226 lines
9.2 KiB
Mathematica
%----------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%----------------------------------------------------------------------------%
|
|
% Copyright (C) 2009, 2011 The University of Melbourne.
|
|
% Copyright (C) 2013-2016, 2018, 2020, 2022, 2024-2025 The Mercury team.
|
|
% This file may only be copied under the terms of the GNU General
|
|
% Public License - see the file COPYING in the Mercury distribution.
|
|
%----------------------------------------------------------------------------%
|
|
%
|
|
% File: llds_out_util.m.
|
|
%
|
|
% This module defines utility routines for printing out LLDS code and data.
|
|
%
|
|
%----------------------------------------------------------------------------%
|
|
|
|
:- module ll_backend.llds_out.llds_out_util.
|
|
:- interface.
|
|
|
|
:- import_module backend_libs.
|
|
:- import_module backend_libs.rtti.
|
|
:- import_module hlds.
|
|
:- import_module hlds.hlds_pred.
|
|
:- import_module libs.
|
|
:- import_module libs.globals.
|
|
:- import_module libs.optimization_options.
|
|
:- import_module libs.trace_params.
|
|
:- import_module ll_backend.layout.
|
|
:- import_module ll_backend.llds.
|
|
:- import_module mdbcomp.
|
|
:- import_module mdbcomp.prim_data.
|
|
:- import_module mdbcomp.sym_name.
|
|
:- import_module parse_tree.
|
|
:- import_module parse_tree.prog_data.
|
|
|
|
:- import_module bool.
|
|
:- import_module io.
|
|
:- import_module map.
|
|
|
|
%----------------------------------------------------------------------------%
|
|
|
|
:- type llds_out_info
|
|
---> llds_out_info(
|
|
lout_module_name :: module_name,
|
|
lout_mangled_module_name :: string,
|
|
lout_source_file_name :: string,
|
|
lout_output_file_name :: string,
|
|
lout_internal_label_to_layout :: map(label,
|
|
layout_slot_name),
|
|
lout_entry_label_to_layout :: map(label, data_id),
|
|
lout_table_io_entry_map :: map(pred_proc_id,
|
|
layout_slot_name),
|
|
lout_alloc_site_map :: map(alloc_site_id,
|
|
layout_slot_name),
|
|
lout_auto_comments :: maybe_auto_comments,
|
|
lout_foreign_line_numbers :: bool,
|
|
lout_emit_c_loops :: maybe_emit_c_loops,
|
|
lout_local_thread_engine_base ::
|
|
maybe_use_local_thread_engine_base,
|
|
lout_profile_calls :: bool,
|
|
lout_profile_time :: bool,
|
|
lout_profile_memory :: bool,
|
|
lout_profile_deep :: bool,
|
|
lout_unboxed_float :: bool,
|
|
lout_det_stack_dword_alignment :: bool,
|
|
lout_static_ground_floats ::
|
|
maybe_use_static_ground_floats,
|
|
lout_unboxed_int64s :: bool,
|
|
lout_static_ground_int64s ::
|
|
maybe_use_static_ground_int64s,
|
|
lout_use_macro_for_redo_fail ::
|
|
maybe_use_macro_for_redo_fail,
|
|
lout_trace_level :: trace_level,
|
|
lout_globals :: globals
|
|
).
|
|
|
|
:- func init_llds_out_info(module_name, string, string, globals,
|
|
map(label, layout_slot_name), map(label, data_id),
|
|
map(pred_proc_id, layout_slot_name),
|
|
map(alloc_site_id, layout_slot_name)) = llds_out_info.
|
|
|
|
:- pred output_set_line_num(io.text_output_stream::in, bool::in,
|
|
prog_context::in, io::di, io::uo) is det.
|
|
|
|
:- pred output_reset_line_num(io.text_output_stream::in, bool::in,
|
|
string::in, io::di, io::uo) is det.
|
|
|
|
%----------------------------------------------------------------------------%
|
|
|
|
:- type decl_id
|
|
---> decl_float_label(string)
|
|
; decl_int64_label(int64)
|
|
; decl_uint64_label(uint64)
|
|
; decl_common_type(type_num)
|
|
; decl_code_addr(code_addr)
|
|
; decl_rtti_id(rtti_id)
|
|
; decl_layout_id(layout_name)
|
|
; decl_tabling_id(proc_label, proc_tabling_struct_id)
|
|
; decl_foreign_proc_struct(string)
|
|
; decl_c_global_var(c_global_var_ref)
|
|
; decl_type_info_like_struct(int)
|
|
; decl_typeclass_constraint_struct(int).
|
|
|
|
:- type decl_set.
|
|
|
|
% Every time we emit a declaration for a symbol, we insert it into the
|
|
% set of symbols we have already declared. That way, we avoid generating
|
|
% the same symbol twice, which would cause an error in the C code.
|
|
|
|
:- pred decl_set_init(decl_set::out) is det.
|
|
|
|
:- pred decl_set_insert(decl_id::in, decl_set::in, decl_set::out) is det.
|
|
|
|
% If the given decl_id is not in the initial decl_id, insert it,
|
|
% and succeed. If the given decl_id is already in the initial decl_set,
|
|
% fail.
|
|
%
|
|
:- pred decl_set_insert_new(decl_id::in, decl_set::in, decl_set::out)
|
|
is semidet.
|
|
|
|
% Succeed iff the given decl_id is in the decl_set.
|
|
%
|
|
% If you intend to add decl_id to the decl_set if this test fails,
|
|
% then please consider using decl_set_insert_new instead.
|
|
%
|
|
:- pred decl_set_is_member(decl_id::in, decl_set::in) is semidet.
|
|
|
|
%----------------------------------------------------------------------------%
|
|
|
|
:- pred output_indent(io.text_output_stream::in,
|
|
string::in, string::in, int::in, io::di, io::uo) is det.
|
|
|
|
%----------------------------------------------------------------------------%
|
|
%----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module backend_libs.c_util.
|
|
:- import_module libs.options.
|
|
:- import_module parse_tree.prog_foreign.
|
|
|
|
:- import_module int.
|
|
:- import_module set_tree234.
|
|
:- import_module term_context.
|
|
|
|
%----------------------------------------------------------------------------%
|
|
|
|
init_llds_out_info(ModuleName, SourceFileName, OutputFileName, Globals,
|
|
InternalLabelToLayoutMap, EntryLabelToLayoutMap, TableIoEntryMap,
|
|
AllocSiteMap) = Info :-
|
|
MangledModuleName = sym_name_mangle(ModuleName),
|
|
globals.lookup_bool_option(Globals, auto_comments, AutoCommentsOption),
|
|
( AutoCommentsOption = no, AutoComments = no_auto_comments
|
|
; AutoCommentsOption = yes, AutoComments = auto_comments
|
|
),
|
|
globals.lookup_bool_option(Globals, line_numbers_around_foreign_code,
|
|
ForeignLineNumbers),
|
|
globals.get_opt_tuple(Globals, OptTuple),
|
|
EmitCLoops = OptTuple ^ ot_emit_c_loops,
|
|
LocalThreadEngineBase = OptTuple ^ ot_use_local_thread_engine_base,
|
|
globals.lookup_bool_option(Globals, profile_calls, ProfileCalls),
|
|
globals.lookup_bool_option(Globals, profile_time, ProfileTime),
|
|
globals.lookup_bool_option(Globals, profile_memory, ProfileMemory),
|
|
globals.lookup_bool_option(Globals, profile_deep, ProfileDeep),
|
|
globals.lookup_bool_option(Globals, unboxed_float, UnboxedFloat),
|
|
double_width_floats_on_det_stack(Globals, DetStackDwordAligment),
|
|
StaticGroundFloats = OptTuple ^ ot_use_static_ground_floats,
|
|
globals.lookup_bool_option(Globals, unboxed_int64s, UnboxedInt64s),
|
|
% XXX ARG_PACK We probably need double_width_int64s_on_det_stack.
|
|
StaticGroundInt64s = OptTuple ^ ot_use_static_ground_int64s,
|
|
UseMacroForRedoFail = OptTuple ^ ot_use_macro_for_redo_fail,
|
|
globals.get_trace_level(Globals, TraceLevel),
|
|
Info = llds_out_info(ModuleName, MangledModuleName, SourceFileName,
|
|
OutputFileName, InternalLabelToLayoutMap, EntryLabelToLayoutMap,
|
|
TableIoEntryMap, AllocSiteMap, AutoComments, ForeignLineNumbers,
|
|
EmitCLoops, LocalThreadEngineBase,
|
|
ProfileCalls, ProfileTime, ProfileMemory, ProfileDeep,
|
|
UnboxedFloat, DetStackDwordAligment, StaticGroundFloats,
|
|
UnboxedInt64s, StaticGroundInt64s, UseMacroForRedoFail,
|
|
TraceLevel, Globals).
|
|
|
|
output_set_line_num(Stream, OutputLineNumbers, Context, !IO) :-
|
|
(
|
|
OutputLineNumbers = yes,
|
|
Context = context(File, Line),
|
|
c_util.always_set_line_num(Stream, File, Line, !IO)
|
|
;
|
|
OutputLineNumbers = no
|
|
).
|
|
|
|
output_reset_line_num(Stream, OutputLineNumbers, FileName, !IO) :-
|
|
(
|
|
OutputLineNumbers = yes,
|
|
c_util.always_reset_line_num(Stream, FileName, !IO)
|
|
;
|
|
OutputLineNumbers= no
|
|
).
|
|
|
|
%----------------------------------------------------------------------------%
|
|
|
|
:- type decl_set == set_tree234(decl_id).
|
|
|
|
decl_set_init(DeclSet) :-
|
|
DeclSet = set_tree234.init.
|
|
|
|
decl_set_insert(DeclId, DeclSet0, DeclSet) :-
|
|
set_tree234.insert(DeclId, DeclSet0, DeclSet).
|
|
|
|
decl_set_insert_new(DeclId, DeclSet0, DeclSet) :-
|
|
set_tree234.insert_new(DeclId, DeclSet0, DeclSet).
|
|
|
|
decl_set_is_member(DeclId, DeclSet) :-
|
|
set_tree234.contains(DeclSet, DeclId).
|
|
|
|
%----------------------------------------------------------------------------%
|
|
|
|
output_indent(Stream, FirstIndent, LaterIndent, N0, !IO) :-
|
|
( if N0 > 0 then
|
|
io.write_string(Stream, LaterIndent, !IO)
|
|
else
|
|
io.write_string(Stream, FirstIndent, !IO)
|
|
).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
:- end_module ll_backend.llds_out.llds_out_util.
|
|
%---------------------------------------------------------------------------%
|