[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