[m-rev.] trivial diff: timestamp.m: add missing #includes

Fergus Henderson fjh at cs.mu.OZ.AU
Mon Jul 2 11:59:18 AEST 2001


Estimated hours taken: 0.25
Branches: main

compiler/timestamp.m:
	Add some missing #include directives.
	This fixes a bug where this file would not compile with `--target asm'.

Workspace: /mnt/mars/home/mars/fjh/ws1/mercury
Index: compiler/timestamp.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/timestamp.m,v
retrieving revision 1.1
diff -u -d -r1.1 timestamp.m
--- compiler/timestamp.m	2001/06/27 05:04:30	1.1
+++ compiler/timestamp.m	2001/07/02 01:55:30
@@ -61,6 +61,10 @@
 :- func gmtime_to_timestamp(int, int, int, int,
 		int, int, int, int, int) = timestamp.
 
+:- pragma foreign_decl("C", "
+	#include ""mercury_string.h""
+	#include <time.h>
+").
 :- pragma foreign_proc("C",
 	gmtime_to_timestamp(Yr::in, Mnt::in, MD::in, Hrs::in, Min::in, Sec::in,
 		YD::in, WD::in, N::in) = (Result::out),

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
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