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

Invoke the new module

Browse Source 
Invoke the new module
This commit is contained in:
Zoltan Somogyi
2018-10-25 23:09:19 +11:00
parent 70240c064a
commit d3e3ea9245
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/mercury_compile_front_end.m
View File

@@ -91,6 +91,7 @@
:- import_module check_hlds.oisu_check. :- import_module check_hlds.oisu_check.
:- import_module check_hlds.polymorphism. :- import_module check_hlds.polymorphism.
:- import_module check_hlds.post_typecheck. :- import_module check_hlds.post_typecheck.
:- import_module check_hlds.pre_typecheck.
:- import_module check_hlds.purity. :- import_module check_hlds.purity.
:- import_module check_hlds.simplify. :- import_module check_hlds.simplify.
:- import_module check_hlds.simplify.simplify_proc. :- import_module check_hlds.simplify.simplify_proc.
@@ -250,6 +251,7 @@ frontend_pass_after_typeclass_check(OpModeAugment, FoundUndefModeError,
ExceededTypeCheckIterationLimit = no ExceededTypeCheckIterationLimit = no
; ;
TypeCheckConstraints = no, TypeCheckConstraints = no,
prepare_for_typecheck_module(!HLDS),
typecheck_module(!HLDS, TypeCheckSpecs, FoundSyntaxError, typecheck_module(!HLDS, TypeCheckSpecs, FoundSyntaxError,
ExceededTypeCheckIterationLimit) ExceededTypeCheckIterationLimit)
), ),

4
compiler/pre_typecheck.m
View File

@@ -36,7 +36,7 @@
:- import_module hlds. :- import_module hlds.
:- import_module hlds.hlds_module. :- import_module hlds.hlds_module.
:- pred prepape_for_typecheck_module(module_info::in, module_info::out) is det. :- pred prepare_for_typecheck_module(module_info::in, module_info::out) is det.
%---------------------------------------------------------------------------% %---------------------------------------------------------------------------%
%---------------------------------------------------------------------------% %---------------------------------------------------------------------------%
@@ -72,7 +72,7 @@
%---------------------------------------------------------------------------% %---------------------------------------------------------------------------%
prepape_for_typecheck_module(!ModuleInfo) :- prepare_for_typecheck_module(!ModuleInfo) :-
module_info_get_valid_pred_id_set(!.ModuleInfo, OrigValidPredIdSet), module_info_get_valid_pred_id_set(!.ModuleInfo, OrigValidPredIdSet),
module_info_get_preds(!.ModuleInfo, PredMap0), module_info_get_preds(!.ModuleInfo, PredMap0),
map.to_sorted_assoc_list(PredMap0, PredIdsInfos0), map.to_sorted_assoc_list(PredMap0, PredIdsInfos0),