[m-rev.] diff: add missing mode specific definitions to std_util

[Peter Ross]

Hi,


===================================================================


Estimated hours taken: 1
Branches: main

library/std_util.m:
    Add Mercury mode specific definitions for the functor_cc,
    deconstruct_cc and limited_deconstruct_cc which just throw an error.


Index: std_util.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/std_util.m,v
retrieving revision 1.253
diff -u -r1.253 std_util.m
--- std_util.m	9 Jan 2002 06:50:18 -0000	1.253
+++ std_util.m	14 Jan 2002 05:05:36 -0000
@@ -3149,6 +3149,9 @@
 #undef	ARITY_ARG
 }").
 
+functor_cc(_Term::in, _Functor::out, _Arity::out) :-
+	error("NYI: std_util__functor_cc/3").
+
 /*
 ** N.B. any modifications to arg/2 might also require similar
 ** changes to store__arg_ref in store.m.
@@ -3325,6 +3328,9 @@
 #undef	ARGUMENTS_ARG
 }").
 
+deconstruct_cc(_Term::in, _Functor::out, _Arity::out, _Arguments::out) :-
+	error("NYI: std_util__deconstruct_cc/3").
+
 :- pragma foreign_proc("C", 
 	limited_deconstruct(Term::in, MaxArity::in, Functor::out,
 		Arity::out, Arguments::out),
@@ -3379,11 +3385,16 @@
 #undef	ARGUMENTS_ARG
 }").
 
+limited_deconstruct_cc(_Term::in, _MaxArity::in, _Functor::out, _Arity::out,
+		_Arguments::out) :-
+	error("NYI: std_util__limited_deconstruct_cc/3").
+
 :- pragma foreign_proc("MC++", functor(_Term::in, _Functor::out, _Arity::out),
 	[will_not_call_mercury], "
 {
 	mercury::runtime::Errors::SORRY(""foreign code for functor"");
 }").
+
 
 /*
 ** N.B. any modifications to arg/2 might also require similar

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