[m-dev.] trivial diff: add missing #includes to test case

Fergus Henderson fjh at cs.mu.OZ.AU
Thu Feb 1 05:28:38 AEDT 2001


Estimated hours taken: 0.25

tests/hard_coded/typeclasses/existential_type_classes.m:
	Add some missing #includes that showed up when this test case was
	compiled with `--target asm'.

Workspace: /home/hg/fjh/gcc-cvs/gcc/mercury
Index: tests/hard_coded/typeclasses/existential_type_classes.m
===================================================================
RCS file: /home/mercury1/repository/tests/hard_coded/typeclasses/existential_type_classes.m,v
retrieving revision 1.6
diff -u -d -r1.6 existential_type_classes.m
--- tests/hard_coded/typeclasses/existential_type_classes.m	2000/12/05 02:11:14	1.6
+++ tests/hard_coded/typeclasses/existential_type_classes.m	2001/01/31 18:22:01
@@ -63,6 +63,10 @@
 
 my_exist_t = 43.
 
+:- pragma c_header_code("
+	#include ""mercury_heap.h""	/* for MR_incr_hp() */
+	#include ""mercury_tags.h""	/* for MR_field() */
+").
 :- pragma c_code(my_univ_value(Univ::in) = (Value::out), will_not_call_mercury, "
 	TypeClassInfo_for_existential_type_classes__fooable_T =
 		MR_field(MR_mktag(0), Univ, 0);

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
                                    |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------



More information about the developers mailing list