[m-rev.] trivial diff: type-o in mdbcomp/program_representation.m
Paul Bone
pbone at csse.unimelb.edu.au
Sun Sep 23 14:05:22 AEST 2007
Estimated hours taken: 0.25
Fixed a bug preventing reading of the program representation which
can be
optionally output when running the program for deep profiling.
mdbcomp/program_representation.m:
The C preprocessor macro MR_HAVE_SYS_STAT_H is defined if sys/
stat.h is
available on this system. A typeo was corrected where the _H
was omitted.
Index: mdbcomp/program_representation.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/mdbcomp/
program_representation.m,v
retrieving revision 1.24
diff -u -u -r1.24 program_representation.m
--- mdbcomp/program_representation.m 12 Sep 2007 06:21:14 -0000 1.24
+++ mdbcomp/program_representation.m 20 Sep 2007 00:28:37 -0000
@@ -679,7 +679,7 @@
).
:- pragma foreign_decl("C", "
-#ifdef MR_HAVE_SYS_STAT
+#ifdef MR_HAVE_SYS_STAT_H
#include <sys/stat.h>
#endif
").
@@ -692,7 +692,10 @@
_IO0::di, _IO::uo),
[will_not_call_mercury, thread_safe, promise_pure],
"
-#if defined(MR_HAVE_SYS_STAT) && defined(MR_HAVE_STAT) && defined
(MR_HAVE_OPEN)
+#if defined(MR_HAVE_SYS_STAT_H) && \
+ defined(MR_HAVE_STAT) && \
+ defined(MR_HAVE_OPEN)
+
struct stat statbuf;
if (stat(FileName, &statbuf) != 0) {
--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to: mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions: mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------
More information about the reviews
mailing list