[m-rev.] diff: fix ilc grade compilation error

[Fergus Henderson]

Estimated hours taken: 0.25
Branches: main

library/string.m:
	Fix a bug introduced by rafe's 2002/07/11 change: the modes for
	the MC++ string procedures should use `uo' rather than `out'.

Workspace: /c/fjh/ws/2/mercury
Index: library/string.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/string.m,v
retrieving revision 1.176
diff -u -d -r1.176 string.m
--- library/string.m	8 Aug 2002 08:14:13 -0000	1.176
+++ library/string.m	16 Oct 2002 15:45:32 -0000
@@ -1799,7 +1799,7 @@
 }").
 
 :- pragma foreign_proc("MC++",
-	string__float_to_string(FloatVal::in, FloatString::out),
+	string__float_to_string(FloatVal::in, FloatString::uo),
 		[will_not_call_mercury, promise_pure, thread_safe], "{
 	FloatString = System::Convert::ToString(FloatVal);
 }").
@@ -2214,7 +2214,7 @@
 :- pred string__append_ioi(string::in, string::uo, string::in) is semidet.
 
 :- pragma foreign_proc("C",
-	string__append_ioi(S1::in, S2::uo,S3::in),
+	string__append_ioi(S1::in, S2::uo, S3::in),
 		[will_not_call_mercury, promise_pure, thread_safe], "{
 	size_t len_1, len_2, len_3;
 
@@ -2235,7 +2235,7 @@
 }").
 
 :- pragma foreign_proc("MC++",
-	string__append_ioi(S1::in, S2::out, S3::in),
+	string__append_ioi(S1::in, S2::uo, S3::in),
 		[will_not_call_mercury, promise_pure, thread_safe], "{
 	if (S3->StartsWith(S1)) {
 		S2 = S3->Remove(0, S1->Length);
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------