[m-rev.] diff: MC++ profiling_builtin implementation

Peter Ross peter.ross at miscrit.be
Wed Jun 6 23:59:48 AEST 2001


Hi,


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


Estimated hours taken: 1
Branches: main

profiling_builtin.m:
    Add MC++ implementations of profiling builtins.  These all call
    SORRY currently.


Index: profiling_builtin.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/profiling_builtin.m,v
retrieving revision 1.3
diff -u -r1.3 profiling_builtin.m
--- profiling_builtin.m	2001/06/05 04:57:08	1.3
+++ profiling_builtin.m	2001/06/06 13:58:10
@@ -1618,3 +1618,293 @@
 #undef MR_PROCNAME
 #undef MR_REC_DEPTH_BODY
 }").
+
+:- pragma foreign_proc("MC++", prepare_for_normal_call(_N::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""prepare_for_normal_call"");
+}").
+:- pragma foreign_proc("MC++", prepare_for_special_call(_A::in, _B::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""prepare_for_special_call"");
+}").
+:- pragma foreign_proc("MC++", prepare_for_ho_call(_A::in, _B::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""prepare_for_ho_call"");
+}").
+:- pragma foreign_proc("MC++", prepare_for_method_call(_A::in, _B::in, _C::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""prepare_for_method_call"");
+}").
+:- pragma foreign_proc("MC++", prepare_for_callback(_N::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""prepare_for_callback"");
+}").
+:- pragma foreign_proc("MC++", prepare_for_tail_call(_N::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""prepare_for_tail_call"");
+}").
+:- pragma foreign_proc("MC++", det_call_port_code_ac(_A::in, _B::out, _C::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""det_call_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++",
+		det_call_port_code_sr(_A::in, _B::out, _C::out, _D::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""det_call_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++", det_exit_port_code_ac(_A::in, _B::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""det_exit_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++",
+		det_exit_port_code_sr(_A::in, _B::in, _C::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""det_call_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++", semi_call_port_code_ac(_A::in, _B::out, _C::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""semi_call_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++",
+		semi_call_port_code_sr(_A::in, _B::out, _C::out, _D::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""semi_call_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++", semi_exit_port_code_ac(_A::in, _B::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""semi_exit_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++",
+		semi_exit_port_code_sr(_A::in, _B::in, _C::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""semi_call_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++", semi_fail_port_code_ac(_A::in, _B::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""semi_fail_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++",
+		semi_fail_port_code_sr(_A::in, _B::in, _C::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""semi_call_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++", 
+		non_call_port_code_ac(_A::in, _B::out, _C::out, _D::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""non_call_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++",
+		non_call_port_code_sr(_A::in, _B::out, _C::out, _D::out, _E::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""non_call_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++", non_exit_port_code_ac(_A::in, _B::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""non_exit_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++",
+		non_exit_port_code_sr(_A::in, _B::in, _C::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""non_call_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++", non_fail_port_code_ac(_A::in, _B::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""non_fail_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++",
+		non_fail_port_code_sr(_A::in, _B::in, _C::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""non_fail_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++", non_redo_port_code_ac(_A::in, _B::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""non_redo_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++", non_redo_port_code_sr(_A::in, _B::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""non_redo_port_code_ac"");
+}").
+:- pragma foreign_proc("MC++",
+		save_and_zero_activation_info_ac(_A::out, _B::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""save_and_zero_activation_info_ac"");
+}").
+:- pragma foreign_proc("MC++", save_and_zero_activation_info_sr(_A::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""save_and_zero_activation_info_sr"");
+}").
+:- pragma foreign_proc("MC++", rezero_activation_info_ac,
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""rezero_activation_info_ac"");
+}").
+:- pragma foreign_proc("MC++", rezero_activation_info_sr,
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""rezero_activation_info_sr"");
+}").
+:- pragma foreign_proc("MC++", reset_activation_info_ac(_A::in, _B::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""reset_activation_info_ac"");
+}").
+:- pragma foreign_proc("MC++", reset_activation_info_sr(_A::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""reset_activation_info_sr"");
+}").
+:- pragma foreign_proc("MC++",
+		save_recursion_depth_1(_A::in, _B::in, _C::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""save_recursion_depth_1"");
+}").
+:- pragma foreign_proc("MC++",
+		save_recursion_depth_2(_A::in, _B::in, _C::out, _D::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""save_recursion_depth_2"");
+}").
+:- pragma foreign_proc("MC++",
+		save_recursion_depth_3(_A::in, _B::in, _C::out, _D::out,
+			_E::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""save_recursion_depth_3"");
+}").
+:- pragma foreign_proc("MC++",
+		save_recursion_depth_4(_A::in, _B::in, _C::out, _D::out,
+			_E::out, _F::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""save_recursion_depth_4"");
+}").
+:- pragma foreign_proc("MC++",
+		save_recursion_depth_5(_A::in, _B::in, _C::out, _D::out,
+			_E::out, _F::out, _G::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""save_recursion_depth_5"");
+}").
+:- pragma foreign_proc("MC++",
+		save_recursion_depth_6(_A::in, _B::in, _C::out, _D::out,
+			_E::out, _F::out, _G::out, _H::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""save_recursion_depth_6"");
+}").
+:- pragma foreign_proc("MC++",
+		save_recursion_depth_7(_A::in, _B::in, _C::out, _D::out,
+			_E::out, _F::out, _G::out, _H::out, _I::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""save_recursion_depth_7"");
+}").
+:- pragma foreign_proc("MC++",
+		save_recursion_depth_8(_A::in, _B::in, _C::out, _D::out,
+			_E::out, _F::out, _G::out, _H::out, _I::out, _J::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""save_recursion_depth_8"");
+}").
+:- pragma foreign_proc("MC++",
+		save_recursion_depth_9(_A::in, _B::in, _C::out, _D::out,
+			_E::out, _F::out, _G::out, _H::out, _I::out, _J::out,
+			_K::out),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""save_recursion_depth_9"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_exit_1(_A::in, _B::in, _C::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_exit_1"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_exit_2(_A::in, _B::in, _C::in, _D::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_exit_2"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_exit_3(_A::in, _B::in, _C::in, _D::in,
+			_E::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_exit_3"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_exit_4(_A::in, _B::in, _C::in, _D::in,
+			_E::in, _F::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_exit_4"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_exit_5(_A::in, _B::in, _C::in, _D::in,
+			_E::in, _F::in, _G::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_exit_5"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_exit_6(_A::in, _B::in, _C::in, _D::in,
+			_E::in, _F::in, _G::in, _H::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_exit_6"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_exit_7(_A::in, _B::in, _C::in, _D::in,
+			_E::in, _F::in, _G::in, _H::in, _I::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_exit_7"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_exit_8(_A::in, _B::in, _C::in, _D::in,
+			_E::in, _F::in, _G::in, _H::in, _I::in, _J::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_exit_8"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_exit_9(_A::in, _B::in, _C::in, _D::in,
+			_E::in, _F::in, _G::in, _H::in, _I::in, _J::in,
+			_K::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_exit_9"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_fail_1(_A::in, _B::in, _C::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_fail_1"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_fail_2(_A::in, _B::in, _C::in, _D::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_fail_2"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_fail_3(_A::in, _B::in, _C::in, _D::in,
+			_E::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_fail_3"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_fail_4(_A::in, _B::in, _C::in, _D::in,
+			_E::in, _F::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_fail_4"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_fail_5(_A::in, _B::in, _C::in, _D::in,
+			_E::in, _F::in, _G::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_fail_5"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_fail_6(_A::in, _B::in, _C::in, _D::in,
+			_E::in, _F::in, _G::in, _H::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_fail_6"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_fail_7(_A::in, _B::in, _C::in, _D::in,
+			_E::in, _F::in, _G::in, _H::in, _I::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_fail_7"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_fail_8(_A::in, _B::in, _C::in, _D::in,
+			_E::in, _F::in, _G::in, _H::in, _I::in, _J::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_fail_8"");
+}").
+:- pragma foreign_proc("MC++",
+		restore_recursion_depth_fail_9(_A::in, _B::in, _C::in, _D::in,
+			_E::in, _F::in, _G::in, _H::in, _I::in, _J::in,
+			_K::in),
+		[thread_safe, will_not_call_mercury], "{
+	mercury::runtime::Errors::SORRY(""restore_recursion_depth_fail_9"");
+}").

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



More information about the reviews mailing list