[m-rev.] trivial diff: s/foreign_code/foreign_proc in some messages

Tyson Dowd trd at cs.mu.OZ.AU
Tue Oct 9 13:46:46 AEST 2001


Hi,


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


Estimated hours taken: 0.2
Branches: main

compiler/make_hlds.m:
	Fix a few occurances of foreign_code in error and progress
	messages, it should be foreign_proc.
	


Index: compiler/make_hlds.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/make_hlds.m,v
retrieving revision 1.384
diff -u -r1.384 make_hlds.m
--- compiler/make_hlds.m	6 Sep 2001 08:26:38 -0000	1.384
+++ compiler/make_hlds.m	9 Oct 2001 00:33:30 -0000
@@ -4140,7 +4140,7 @@
 	( 
 		{ VeryVerbose = yes }
 	->
-		io__write_string("% Processing `:- pragma foreign_code' for "),
+		io__write_string("% Processing `:- pragma foreign_proc' for "),
 		hlds_out__write_simple_call_id(PredOrFunc, PredName/Arity),
 		io__write_string("...\n")
 	;
@@ -4162,7 +4162,7 @@
 	;
 		preds_add_implicit_report_error(ModuleName,
 			PredOrFunc, PredName, Arity, Status, no, Context,
-			"`:- pragma foreign_code' declaration",
+			"`:- pragma foreign_proc' declaration",
 			PredId, ModuleInfo0, ModuleInfo1)
 	),
 		% Lookup the pred_info for this pred,
@@ -4257,7 +4257,7 @@
 			io__stderr_stream(StdErr),
 			io__set_output_stream(StdErr, OldStream),
 			prog_out__write_context(Context),
-			io__write_string("Error: `:- pragma foreign_code' "),
+			io__write_string("Error: `:- pragma foreign_proc' "),
 			io__write_string("declaration for undeclared mode "),
 			io__write_string("of "),
 			hlds_out__write_simple_call_id(PredOrFunc,


-- 
       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
--------------------------------------------------------------------------



More information about the reviews mailing list