[m-rev.] diff: fix compilation of the concurrency library

[Julien Fischer]

Estimated hours taken: 0.2
Branches: main

extras/concurrency/spawn.m:
	Fix compilation of the concurrency library
	in the non-hlc grades.

Julien.

Index: spawn.m
===================================================================
RCS file: /home/mercury1/repository/mercury/extras/concurrency/spawn.m,v
retrieving revision 1.12
diff -u -r1.12 spawn.m
--- spawn.m	25 Jul 2003 06:08:13 -0000	1.12
+++ spawn.m	30 Jul 2004 14:42:15 -0000
@@ -50,7 +50,7 @@
 		[will_not_call_mercury, thread_safe], "{
 #ifndef MR_HIGHLEVEL_CODE
 	MR_Context	*ctxt;
-	ctxt = MR_create_context();
+	ctxt = MR_create_context(""spawn"", NULL);
 	ctxt->MR_ctxt_resume = &&spawn_call_back_to_mercury_cc_multi;
 		/* Store the closure on the top of the new context's stack. */
 	*(ctxt->MR_ctxt_sp) = Goal;

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