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

[Fergus Henderson]

On 01-Feb-2001, Fergus Henderson <fjh at cs.mu.OZ.AU> wrote:
> 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'.

There were a couple more occurrences of that problem.

----------

Estimated hours taken: 0.25

tests/hard_coded/nondet_c.m:
tests/hard_coded/pragma_inline.m:
	Add some missing #includes that showed up when these test
	cases were compiled with `--target asm'.

Workspace: /home/hg/fjh/gcc-cvs/gcc/mercury
Index: tests/hard_coded/nondet_c.m
===================================================================
RCS file: /home/mercury1/repository/tests/hard_coded/nondet_c.m,v
retrieving revision 1.2
diff -u -d -r1.2 nondet_c.m
--- tests/hard_coded/nondet_c.m	2000/12/05 02:10:56	1.2
+++ tests/hard_coded/nondet_c.m	2001/01/31 18:40:50
@@ -50,6 +50,11 @@
 :- pred break_string1(string, string, string).
 :- mode break_string1(out, out, in) is multi.
 
+:- pragma c_header_code("
+	#include <string.h>
+	#include ""mercury_heap.h""
+").
+
 :- pragma c_code(break_string1(LeftHalf::out, RightHalf::out, WholeString::in),
 will_not_call_mercury,
 local_vars("
Index: tests/hard_coded/pragma_inline.m
===================================================================
RCS file: /home/mercury1/repository/tests/hard_coded/pragma_inline.m,v
retrieving revision 1.7
diff -u -d -r1.7 pragma_inline.m
--- tests/hard_coded/pragma_inline.m	2000/12/05 02:10:57	1.7
+++ tests/hard_coded/pragma_inline.m	2001/01/31 18:34:43
@@ -30,6 +30,9 @@
 
 :- pragma(inline, c_write_string/3).
 
+:- pragma(c_header_code, "#include <string.h>").
+:- pragma(c_header_code, "#include ""mercury_heap.h""").
+
 :- pred append_strings(string::in, string::in, string::out) is det.
 :- pragma inline(append_strings/3).
 :- pragma c_code(append_strings(S1::in, S2::in, S3::out),
@@ -44,4 +47,3 @@
 	strcpy(S3, S1);
 	strcpy(S3 + len_1, S2);
 }").
-
-- 
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
--------------------------------------------------------------------------