[m-rev.] trivial diff: workaround for nightly builds

[Julien Fischer]

I'll look into the actual cause of this later today.

Estimated hours taken: 1
Branches: main

library/thread.m:
 	Workaround a problem that has broken the nightly builds on those
 	hosts that compile using a lowlevel C grade.

Julien.

Index: library/thread.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/library/thread.m,v
retrieving revision 1.2
diff -u -r1.2 thread.m
--- library/thread.m	1 Feb 2007 08:07:59 -0000	1.2
+++ library/thread.m	1 Feb 2007 14:43:13 -0000
@@ -54,6 +54,16 @@

  %-----------------------------------------------------------------------------%

+    % XXX The following is necessary in order to avoid compilation errors in
+    % lowlevel grades.  For some reason parent modules are not #including
+    % their own .mh files.  Without this declaration the code for spawn/3
+    % will not compile.  This can be removed once the problem with the .mh
+    % files is fixed.
+    %
+:- pragma foreign_decl("C", "void ML_call_back_to_mercury_cc_multi(MR_Word);").
+
+%-----------------------------------------------------------------------------%
+
  :- pragma no_inline(spawn/3).
  :- pragma foreign_proc("C",
      spawn(Goal::(pred(di, uo) is cc_multi), IO0::di, IO::uo),

--------------------------------------------------------------------------
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
--------------------------------------------------------------------------