mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-18 23:35:25 +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

21
compiler/commit_gen.m
View File

@@ -23,8 +23,13 @@
:- import_module ll_backend.code_info.
:- import_module ll_backend.llds.
:- pred commit_gen__generate_commit(code_model::in, hlds_goal::in,
code_tree::out, code_info::in, code_info::out) is det.
%---------------------------------------------------------------------------%
:- pred commit_gen__generate_commit(add_trail_ops::in, code_model::in,
hlds_goal::in, code_tree::out, code_info::in, code_info::out) is det.
%---------------------------------------------------------------------------%
%---------------------------------------------------------------------------%
:- implementation.
@@ -35,7 +40,9 @@
:- import_module require.
:- import_module std_util.
commit_gen__generate_commit(OuterCodeModel, Goal, Code, !Info) :-
%---------------------------------------------------------------------------%
generate_commit(AddTrailOps, OuterCodeModel, Goal, Code, !Info) :-
Goal = _ - InnerGoalInfo,
goal_info_get_code_model(InnerGoalInfo, InnerCodeModel),
(
@@ -48,7 +55,8 @@ commit_gen__generate_commit(OuterCodeModel, Goal, Code, !Info) :-
unexpected(this_file, "semidet model in det context")
;
InnerCodeModel = model_non,
code_info__prepare_for_det_commit(CommitInfo, PreCommit, !Info),
code_info__prepare_for_det_commit(AddTrailOps, CommitInfo,
PreCommit, !Info),
code_gen__generate_goal(InnerCodeModel, Goal, GoalCode, !Info),
code_info__generate_det_commit(CommitInfo, Commit, !Info),
Code = tree(PreCommit, tree(GoalCode, Commit))
@@ -63,7 +71,8 @@ commit_gen__generate_commit(OuterCodeModel, Goal, Code, !Info) :-
code_gen__generate_goal(InnerCodeModel, Goal, Code, !Info)
;
InnerCodeModel = model_non,
code_info__prepare_for_semi_commit(CommitInfo, PreCommit, !Info),
code_info__prepare_for_semi_commit(AddTrailOps, CommitInfo,
PreCommit, !Info),
code_gen__generate_goal(InnerCodeModel, Goal, GoalCode, !Info),
code_info__generate_semi_commit(CommitInfo, Commit, !Info),
Code = tree(PreCommit, tree(GoalCode, Commit))
@@ -80,3 +89,5 @@ commit_gen__generate_commit(OuterCodeModel, Goal, Code, !Info) :-
this_file = "commit_gen.m".
%---------------------------------------------------------------------------%
:- end_module commit_gen.
%---------------------------------------------------------------------------%