[m-rev.] diff: fix bootstrapping bug with intermod.m

[Tyson Dowd]

Hi,

Sorry about this one.

===================================================================


Estimated hours taken: 0.5
Branches: main

Fix a bug that broke bootstrapping with --intermodule-optimization

compiler/intermod.m:
	Check for pragmas when deciding whether to write out
	foreign_decls, not clauses.
	This was a thinko when I changed the code to use
	pred_info_clause_goal_type instead of
	pred_info_pragma_goal_type.


Index: compiler/intermod.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/intermod.m,v
retrieving revision 1.104
diff -u -r1.104 intermod.m
--- compiler/intermod.m	2001/07/31 14:29:40	1.104
+++ compiler/intermod.m	2001/08/01 09:03:09
@@ -252,7 +252,7 @@
 			{ module_info_set_preds(ModuleInfo0, PredTable,
 					ModuleInfo) },
 			intermod_info_get_preds(Preds0),
-			( { pred_info_clause_goal_type(PredInfo) } ->
+			( { pred_info_pragma_goal_type(PredInfo) } ->
 				% The header code must be written since
 				% it could be used by the pragma_foreign_code.
 				intermod_info_set_write_header

-- 
       Tyson Dowd           # 
                            #  Surreal humour isn't everyone's cup of fur.
     trd at cs.mu.oz.au        # 
http://www.cs.mu.oz.au/~trd #
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------