mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-17 23:05:21 +00:00
Code Issues Projects Releases Wiki Activity

Back out Pete's unreviewed change from yesterday.

Browse Source 
Estimated hours taken: 0.2
Branches: main

library/*.m
	Back out Pete's unreviewed change from yesterday.
	It doesn't compile without a recent bug fix, but no
	CVS tag was added.
This commit is contained in:
Simon Taylor
2002-06-12 06:46:46 +00:00
parent f65c3fd341
commit a529a380e2
23 changed files with 1165 additions and 1169 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
library/deconstruct.m
View File

@@ -816,8 +816,12 @@ get_functor_info(Univ, FunctorInfo) :-
}
}").
get_notag_functor_info(_, _) :-
private_builtin__sorry("deconstruct__get_notag_functor_info").
:- pragma foreign_proc("MC++",
get_notag_functor_info(_Univ::in, _ExpUniv::out),
[will_not_call_mercury, thread_safe, promise_pure],
"
mercury::runtime::Errors::SORRY(""foreign code for get_notag_functor_info"");
").
% Given a value of an arbitrary type, succeed if its type is defined
% as an equivalence type, and return a univ which bundles up the value
@@ -858,8 +862,12 @@ get_notag_functor_info(_, _) :-
}
}").
get_equiv_functor_info(_, _) :-
private_builtin__sorry("get_equiv_functor_info").
:- pragma foreign_proc("MC++",
get_equiv_functor_info(_Univ::in, _ExpUniv::out),
[will_not_call_mercury, thread_safe, promise_pure],
"
mercury::runtime::Errors::SORRY(""foreign code for get_equiv_functor_info"");
").
% Given a value of an arbitrary type, succeed if it is an enum type,
% and return the integer value corresponding to the value.
@@ -888,8 +896,12 @@ get_equiv_functor_info(_, _) :-
}
}").
get_enum_functor_info(_, _) :-
private_builtin__sorry("deconstruct__get_enum_functor_info").
:- pragma foreign_proc("MC++",
get_enum_functor_info(_Univ::in, _Enum::out),
[will_not_call_mercury, thread_safe, promise_pure],
"{
mercury::runtime::Errors::SORRY(""foreign code for get_enum_functor_info"");
}").
% Given a value of an arbitrary type, succeed if it is a general du type
% (i.e. non-enum, non-notag du type), and return the top function symbol's
@@ -989,5 +1001,10 @@ get_enum_functor_info(_, _) :-
}
}").
get_du_functor_info(_, _, _, _, _) :-
private_builtin__sorry("get_du_functor_info").
:- pragma foreign_proc("MC++",
get_du_functor_info(_Univ::in, _Where::out, _Ptag::out, _Sectag::out,
_Args::out),
[will_not_call_mercury, thread_safe, promise_pure],
"
mercury::runtime::Errors::SORRY(""foreign code for get_du_functor_info"");
").