mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-14 21:35:49 +00:00
Code Issues Projects Releases Wiki Activity

Implement trail usage optimization for the lowlevel backend.

Browse Source 
Estimated hours taken: 5
Branches: main

Implement trail usage optimization for the lowlevel backend.

compiler/code_gen.m:
	As we generate code for each HLDS goal check if it is safe to omit
	trailing operations.  Do so, if trail usage optimization is enabled.

	Reformat some code for the purposes of readability.

compiler/commit_gen.m:
compiler/disj_gen.m:
compiler/ite_gen.m:
compiler/code_info.m:
	Thread the above information down to the relevant parts of the code
	generator.

	Misc. cleanups: reduce unnecessary module qualification and minor
	layout fixes.

compiler/code_util.m:
	Add a utility predicate the tests if we are allowed to omit trailing
	primitives for a given HLDS goal.

compiler/llds.m:
	Add the equivalence type: add_trail_ops == bool.

compiler/hlds_goal.m:
compiler/prog_data.m:
	Unrelated changes: fix typos in comments.

	Add an end_module declaration to the former.
This commit is contained in:
Julien Fischer
2005-11-17 04:38:44 +00:00
parent bd7e19b4ce
commit dae82a8409
9 changed files with 178 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
compiler/code_util.m
View File

@@ -23,6 +23,7 @@
:- import_module hlds.hlds_llds.
:- import_module hlds.hlds_module.
:- import_module hlds.hlds_pred.
:- import_module libs.globals.
:- import_module ll_backend.llds.
:- import_module mdbcomp.prim_data.
:- import_module parse_tree.prog_data.
@@ -92,6 +93,19 @@
is det.
%---------------------------------------------------------------------------%
%
% Utility predicates used to implement trailing
%
% Tests if we should add trail ops to the code we generate for
% the given goal. This will be 'no' unless we are compiling
% in trailing grade. It may also be 'no' in trailing grades if
% we are optimizing trail usage and trail usage analysis tells
% us that it is safe to omit the trail ops.
%
:- func should_add_trail_ops(globals, module_info, hlds_goal) = add_trail_ops.
%---------------------------------------------------------------------------%
%---------------------------------------------------------------------------%
:- implementation.
@@ -99,9 +113,9 @@
:- import_module backend_libs.proc_label.
:- import_module backend_libs.rtti.
:- import_module hlds.code_model.
:- import_module hlds.goal_form.
:- import_module hlds.special_pred.
:- import_module libs.compiler_util.
:- import_module libs.globals.
:- import_module libs.options.
:- import_module parse_tree.prog_util.
@@ -441,6 +455,33 @@ build_input_arg_list_2([V - Arg | Rest0], VarArgs) :-
),
build_input_arg_list_2(Rest0, VarArgs0).
%---------------------------------------------------------------------------%
%
% Utility predicates used to implement trailing
%
should_add_trail_ops(Globals, ModuleInfo, Goal) = AddTrailOps :-
globals.lookup_bool_option(Globals, use_trail, UseTrail),
(
UseTrail = no,
AddTrailOps = no
;
UseTrail = yes,
globals.lookup_bool_option(Globals, optimize_trail_usage,
OptTrailUsage),
(
OptTrailUsage = no,
AddTrailOps = yes
;
OptTrailUsage = yes,
( goal_cannot_modify_trail(ModuleInfo, Goal) ->
AddTrailOps = no
;
AddTrailOps = yes
)
)
).
%-----------------------------------------------------------------------------%
:- func this_file = string.
@@ -448,3 +489,5 @@ build_input_arg_list_2([V - Arg | Rest0], VarArgs) :-
this_file = "code_util.m".
%-----------------------------------------------------------------------------%
:- end_module code_util.
%-----------------------------------------------------------------------------%