mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 01:13:30 +00:00
753fe25c90
compiler/intermod.m:
We used to put predicate declarations and definitions into .opt files
in order of pred_id. Since pred_ids are allocated sequentially, this
meant that the order of the pragmas in .*opt files recording analysis
results was determined by the order of the predicate declarations
in the .m file, and if this changes, everything that depends on the
.opt file has to be recompiled. Change this to put the pragmas into
an order based on the predicates' names, arities, and pred_or_func flag.
Precede each block of analysis results (one block per pragma type)
with a blank line, to make .*opt files a bit easier to read by revealing
their structure.
When printing analysis results for all the procedures of a predicate,
don't get a list of proc_ids and then look them up one by one; just
iterated over all the proc_infos in the proc_table.
Rename some predicates to make their names fit into the naming scheme
used in the rest of the module.
compiler/hlds_module.m:
compiler/hlds_pred.m:
The results of the exception, trailing and mm_tabling analyses
used to be stored in the module_info as maps from pred_proc_ids
to the results about the procedure. Change this to store them
in the proc_info of the procedure, since any code that looks up
the results of an analysis typically also wants to look up other
information in the proc_info as well. (intermod.m certainly does.)
The results of the termination, structure sharing and structure reuse
analysis were already stored in the proc_info.
compiler/add_pragma.m:
When reading in exceptions, trailing and mm_tabling pragmas,
add their information to the named procedure's proc_info,
not to a map in the module_info.
compiler/exception_analysis.m:
compiler/tabling_analysis.m:
compiler/trailing_analysis.m:
Put analysis results into procedures' proc_infos, not into a map
in the module_info, and if need be, look it up there as well.
compiler/goal_form.m:
Look up the results of exception_analysis in procedures' proc_infos,
not in a map in the module_info.
compiler/lco.m:
Work around a bug in lco.m itself exposed by the move of analysis
results to proc_infos. When lco.m duplicates the proc_info of a procedure
that it optimizes, it now duplicates its analysis results as well.
The duplication is correct in a sense, since any results of the exception,
trailing and mm_tabling analysis that hold for the original procedure
have to hold for the duplicate copy as well, but interestingly, this extra
precision causes simplify to believe that the call from the original
procedure to duplicated procedure is dead code that can be eliminated,
since it is det and appears to have no outputs. In fact, it does have
outputs, but it returns those outputs via impure calls to store_at_ref.
While the call to store_at_ref in the duplicated procedure is marked
as impure, the call to the duplicate procedure in the original procedure
is NOT (yet) so marked.
compiler/parse_tree_out_pred_decl.m:
When printing parts of predicate declarations, e.g. as parts of pragmas
that record analysis results, don't take as an argument a context that
will never be used.
compiler/add_clause.m:
compiler/dependency_graph.m:
compiler/hlds_out_pred.m:
compiler/make_hlds_error.m:
compiler/mode_errors.m:
compiler/parse_tree_out.m:
compiler/parse_tree_out_pragma.m:
compiler/typecheck.m:
Conform to the changes in parse_tree_out_pred_decl.m above.
tests/term/*.trans_opt_exp:
Expect the same termination analysis results as before, just in
predicate name order, and with a blank line before each block.
18 lines
1.0 KiB
Plaintext
18 lines
1.0 KiB
Plaintext
:- module pl3_1_1.
|
|
|
|
:- pragma termination_info((pl3_1_1.a), finite(0, []), can_loop).
|
|
:- pragma termination_info((pl3_1_1.b), finite(0, []), can_loop).
|
|
:- pragma termination_info((pl3_1_1.c), finite(0, []), can_loop).
|
|
:- pragma termination_info((pl3_1_1.d), finite(0, []), can_loop).
|
|
:- pragma termination_info((pl3_1_1.e), finite(0, []), can_loop).
|
|
:- pragma termination_info((pl3_1_1.f), finite(0, []), can_loop).
|
|
:- pragma termination_info((pl3_1_1.g), finite(0, []), can_loop).
|
|
|
|
:- pragma termination2_info((pl3_1_1.a), constraints([]), not_set, can_loop).
|
|
:- pragma termination2_info((pl3_1_1.b), constraints([]), not_set, can_loop).
|
|
:- pragma termination2_info((pl3_1_1.c), constraints([]), not_set, can_loop).
|
|
:- pragma termination2_info((pl3_1_1.d), constraints([]), not_set, can_loop).
|
|
:- pragma termination2_info((pl3_1_1.e), constraints([]), not_set, can_loop).
|
|
:- pragma termination2_info((pl3_1_1.f), constraints([]), not_set, can_loop).
|
|
:- pragma termination2_info((pl3_1_1.g), constraints([]), not_set, can_loop).
|