[m-rev.] trivial diff: add missing promise_pure

[Tyson Dowd]

Hi,


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


Estimated hours taken: 0.3
Branches: main

tests/hard_coded/type_tables.m:
	Add a missing promise_pure attribute.


Index: tests/hard_coded/type_tables.m
===================================================================
RCS file: /home/mercury1/repository/tests/hard_coded/type_tables.m,v
retrieving revision 1.4
diff -u -r1.4 type_tables.m
--- tests/hard_coded/type_tables.m	25 Jan 2002 08:23:35 -0000	1.4
+++ tests/hard_coded/type_tables.m	30 Jan 2002 02:55:40 -0000
@@ -19,7 +19,8 @@
 extern const struct MR_TypeCtorInfo_Struct mercury_data_type_tables__type_ctor_info_list_0;
 ").
 
-:- pragma foreign_proc("C", main(IO0::di, IO::uo), [will_not_call_mercury],
+:- pragma foreign_proc("C", main(IO0::di, IO::uo),
+	[will_not_call_mercury, promise_pure],
 "
 	MR_TypeCtorInfo	tc1;
 	MR_TypeCtorInfo	tc2;


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