mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-14 21:35:49 +00:00
1315102d7c
Estimated hours taken: 20 Branches: main Fix several occurrences of a bug that prevented the compiler from passing all the tests in deep profiling grades. We now pass all the tests in deep profiling grades. Some additional changes were useful in tracking this bug down. Using C types to represent deep profiling data structures allowed us to delete a bunch of casts and thus eliminate them as potential bug locations. Another was to fix some bugs in low level debugging support. In light of the fragility of the deep profiling invariants, always check them when writing out deep profiling data files. Since mdprof depends on these invariants, they have to be checked somewhere, and we already have code for the checks in the runtime. Reenable tail recursion support in deep profiling grades, since it now works. (The bug this change fixes used to occur most in tail recursive procedures, which is why previously I turned it off.) compiler/options.m: Reenable tail recursion support in deep profiling grades. runtime/mercury_unify_compare_body.h: Fix the bug that prevented us from passing all the tests with invariants checked and tail recursion support enabled. The bug was that in several cases, the code in mercury_unify_compare_body.h did not invoke the appropriate deep profiling routines and thus did not fill in the deep profiling data structure they were supposed to fill in, breaking an invariant. There were several instances of this bug: unify, compare and compare_representation on tuples, and compare_representation on functions, predicates and user-defined types. These oversights were possible because the actions of returning an answer and filling in the deep profiling data structures (in deep profiling grades) were separate. If one omitted the latter, tests could still work in all grades except deep profiling grades. The fix therefore uses one macro (return_compare_answer or return unify_answer, depending on the the operation) to fill in the deep profiling data structure (in deep profiling grades) and return the answer, making it impossible to forget to do the former. The new approach treats compare_representation the same as compare, and gathers the same information for it. runtime/mercury_ho_call.c: Factor out some commonalities in the definitions of the MR_ProcStatic data structures used by the code in mercury_unify_compare_body.h. Change a macro name to support the changes in mercury_unify_compare_body.h. Change the module name of compare_representation/3 from std_util to builtin, to match unify/2 and compare/3. compiler/deep_profiling.m: Treat compare_representation/3 the same way as we treat compare/3. library/builtin.m library/std_util.m Move the declaration of compare_representation/3 from std_util to builtin, to make it easier to handle it the same way as compare/3. Since it is just a variant of compare/3 and is at least as built into the implementation, it belongs there anyway. library/profiling_builtin.m: Use C types to represent deep profiling data structures. Delete the casts that are redundant after this change. Fix formatting of foreign_procs. runtime/mercury_deep_profiling.c: As mentioned above, always check the invariants of the deep profiling data structures when writing them out. runtime/mercury_deep_profiling.h: Avoid a warning about nested declarations of variable "i". runtime/mercury_deep_rec_depth_body.h: Delete a bunch of casts we don't need anymore. runtime/mercury_wrapper.[ch]: Initialize a couple of predicate names in the low level debug support to "" instead of NULL. The code that accesses these variables passes them to strcmp directly, which lead to core dumps. We could change the accessing code to test for NULL, but since that code is executed on every call when low level debugging is enabled, that would lead to even greater slowdowns, which we can do without. To avoid a warning about casting away const, make the variables involved "const char *" instead of plain "char *"; we don't want to update the pointed-to strings anyway. tools/bootcheck: In profiling grades, write out profiling data files by default, and require the use of an option to turn them off. This is needed to make sure that the deep profiling invariants are checked by default. tests/hard_coded/compare_rep_usereq.m: tests/hard_coded/compare_representation.m: Avoid hard-coding the name of the module defining compare_representation/3.
1606 lines
55 KiB
Mathematica
1606 lines
55 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 2001-2002 The University of Melbourne.
|
|
% This file may only be copied under the terms of the GNU Library General
|
|
% Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% File: profiling_builtin.m.
|
|
% Authors: conway, zs.
|
|
% Stability: low.
|
|
%
|
|
% This file is automatically imported into every module when deep profiling
|
|
% is enabled. It contains support predicates used for deep profiling.
|
|
% The tasks of the support predicates are described in some detail in
|
|
% ``Engineering a profiler for a logic programming language'' by Thomas Conway
|
|
% and Zoltan Somogyi.
|
|
%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module profiling_builtin.
|
|
|
|
:- interface.
|
|
|
|
:- type proc_static.
|
|
:- type proc_dynamic.
|
|
:- type call_site_dynamic.
|
|
|
|
:- impure pred prepare_for_normal_call(int::in) is det.
|
|
|
|
:- impure pred prepare_for_special_call(int::in, c_pointer::in) is det.
|
|
|
|
:- impure pred prepare_for_ho_call(int::in, c_pointer::in) is det.
|
|
|
|
:- impure pred prepare_for_method_call(int::in, c_pointer::in, int::in) is det.
|
|
|
|
:- impure pred prepare_for_callback(int::in) is det.
|
|
|
|
:- impure pred prepare_for_tail_call(int::in) is det.
|
|
|
|
:- impure pred det_call_port_code_ac(proc_static::in,
|
|
call_site_dynamic::out, call_site_dynamic::out) is det.
|
|
|
|
:- impure pred det_call_port_code_sr(proc_static::in, call_site_dynamic::out,
|
|
call_site_dynamic::out, proc_dynamic::out) is det.
|
|
|
|
:- impure pred det_exit_port_code_ac(call_site_dynamic::in,
|
|
call_site_dynamic::in) is det.
|
|
|
|
:- impure pred det_exit_port_code_sr(call_site_dynamic::in,
|
|
call_site_dynamic::in, proc_dynamic::in) is det.
|
|
|
|
:- impure pred semi_call_port_code_ac(proc_static::in,
|
|
call_site_dynamic::out, call_site_dynamic::out) is det.
|
|
|
|
:- impure pred semi_call_port_code_sr(proc_static::in, call_site_dynamic::out,
|
|
call_site_dynamic::out, proc_dynamic::out) is det.
|
|
|
|
:- impure pred semi_exit_port_code_ac(call_site_dynamic::in,
|
|
call_site_dynamic::in) is det.
|
|
|
|
:- impure pred semi_exit_port_code_sr(call_site_dynamic::in,
|
|
call_site_dynamic::in, proc_dynamic::in) is det.
|
|
|
|
:- impure pred semi_fail_port_code_ac(call_site_dynamic::in,
|
|
call_site_dynamic::in) is failure.
|
|
|
|
:- impure pred semi_fail_port_code_sr(call_site_dynamic::in,
|
|
call_site_dynamic::in, proc_dynamic::in) is failure.
|
|
|
|
:- impure pred non_call_port_code_ac(proc_static::in, call_site_dynamic::out,
|
|
call_site_dynamic::out, proc_dynamic::out) is det.
|
|
|
|
:- impure pred non_call_port_code_sr(proc_static::in, call_site_dynamic::out,
|
|
call_site_dynamic::out, proc_dynamic::out, proc_dynamic::out) is det.
|
|
|
|
:- impure pred non_exit_port_code_ac(call_site_dynamic::in,
|
|
call_site_dynamic::in) is det.
|
|
|
|
:- impure pred non_exit_port_code_sr(call_site_dynamic::in,
|
|
call_site_dynamic::in, proc_dynamic::in) is det.
|
|
|
|
:- impure pred non_redo_port_code_ac(call_site_dynamic::in, proc_dynamic::in)
|
|
is failure.
|
|
|
|
:- impure pred non_redo_port_code_sr(call_site_dynamic::in, proc_dynamic::in)
|
|
is failure.
|
|
|
|
:- impure pred non_fail_port_code_ac(call_site_dynamic::in,
|
|
call_site_dynamic::in) is failure.
|
|
|
|
:- impure pred non_fail_port_code_sr(call_site_dynamic::in,
|
|
call_site_dynamic::in, proc_dynamic::in) is failure.
|
|
|
|
:- impure pred save_and_zero_activation_info_ac(int::out, proc_dynamic::out)
|
|
is det.
|
|
|
|
:- impure pred save_and_zero_activation_info_sr(proc_dynamic::out) is det.
|
|
|
|
:- impure pred rezero_activation_info_ac is det.
|
|
|
|
:- impure pred rezero_activation_info_sr is det.
|
|
|
|
:- impure pred reset_activation_info_ac(int::in, proc_dynamic::in) is det.
|
|
|
|
:- impure pred reset_activation_info_sr(proc_dynamic::in) is det.
|
|
|
|
:- type call_site_nums_2
|
|
---> call_site_nums_2(int, int).
|
|
|
|
:- type call_site_nums_3
|
|
---> call_site_nums_3(int, int, int).
|
|
|
|
:- type call_site_nums_4
|
|
---> call_site_nums_4(int, int, int, int).
|
|
|
|
:- type call_site_nums_5
|
|
---> call_site_nums_5(int, int, int, int, int).
|
|
|
|
:- type call_site_nums_6
|
|
---> call_site_nums_6(int, int, int, int, int, int).
|
|
|
|
:- type call_site_nums_7
|
|
---> call_site_nums_7(int, int, int, int, int, int, int).
|
|
|
|
:- type call_site_nums_8
|
|
---> call_site_nums_8(int, int, int, int, int, int, int, int).
|
|
|
|
:- type call_site_nums_9
|
|
---> call_site_nums_9(int, int, int, int, int, int, int, int, int).
|
|
|
|
:- impure pred save_recursion_depth_1(call_site_dynamic::in,
|
|
int::in, int::out) is det.
|
|
|
|
:- impure pred save_recursion_depth_2(call_site_dynamic::in,
|
|
call_site_nums_2::in, int::out, int::out) is det.
|
|
|
|
:- impure pred save_recursion_depth_3(call_site_dynamic::in,
|
|
call_site_nums_3::in, int::out, int::out, int::out) is det.
|
|
|
|
:- impure pred save_recursion_depth_4(call_site_dynamic::in,
|
|
call_site_nums_4::in, int::out, int::out, int::out, int::out) is det.
|
|
|
|
:- impure pred save_recursion_depth_5(call_site_dynamic::in,
|
|
call_site_nums_5::in, int::out, int::out, int::out, int::out,
|
|
int::out) is det.
|
|
|
|
:- impure pred save_recursion_depth_6(call_site_dynamic::in,
|
|
call_site_nums_6::in, int::out, int::out, int::out, int::out,
|
|
int::out, int::out) is det.
|
|
|
|
:- impure pred save_recursion_depth_7(call_site_dynamic::in,
|
|
call_site_nums_7::in, int::out, int::out, int::out, int::out,
|
|
int::out, int::out, int::out) is det.
|
|
|
|
:- impure pred save_recursion_depth_8(call_site_dynamic::in,
|
|
call_site_nums_8::in, int::out, int::out, int::out, int::out,
|
|
int::out, int::out, int::out, int::out) is det.
|
|
|
|
:- impure pred save_recursion_depth_9(call_site_dynamic::in,
|
|
call_site_nums_9::in, int::out, int::out, int::out, int::out,
|
|
int::out, int::out, int::out, int::out, int::out) is det.
|
|
|
|
:- impure pred restore_recursion_depth_exit_1(
|
|
call_site_dynamic::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_exit_2(
|
|
call_site_dynamic::in, call_site_nums_2::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_exit_3(
|
|
call_site_dynamic::in, call_site_nums_3::in, int::in, int::in,
|
|
int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_exit_4(
|
|
call_site_dynamic::in, call_site_nums_4::in, int::in, int::in,
|
|
int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_exit_5(
|
|
call_site_dynamic::in, call_site_nums_5::in, int::in, int::in,
|
|
int::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_exit_6(
|
|
call_site_dynamic::in, call_site_nums_6::in, int::in, int::in,
|
|
int::in, int::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_exit_7(
|
|
call_site_dynamic::in, call_site_nums_7::in, int::in, int::in,
|
|
int::in, int::in, int::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_exit_8(
|
|
call_site_dynamic::in, call_site_nums_8::in, int::in, int::in,
|
|
int::in, int::in, int::in, int::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_exit_9(
|
|
call_site_dynamic::in, call_site_nums_9::in, int::in, int::in,
|
|
int::in, int::in, int::in, int::in, int::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_fail_1(
|
|
call_site_dynamic::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_fail_2(
|
|
call_site_dynamic::in, call_site_nums_2::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_fail_3(
|
|
call_site_dynamic::in, call_site_nums_3::in, int::in, int::in,
|
|
int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_fail_4(
|
|
call_site_dynamic::in, call_site_nums_4::in, int::in, int::in,
|
|
int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_fail_5(
|
|
call_site_dynamic::in, call_site_nums_5::in, int::in, int::in,
|
|
int::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_fail_6(
|
|
call_site_dynamic::in, call_site_nums_6::in, int::in, int::in,
|
|
int::in, int::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_fail_7(
|
|
call_site_dynamic::in, call_site_nums_7::in, int::in, int::in,
|
|
int::in, int::in, int::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_fail_8(
|
|
call_site_dynamic::in, call_site_nums_8::in, int::in, int::in,
|
|
int::in, int::in, int::in, int::in, int::in, int::in) is det.
|
|
|
|
:- impure pred restore_recursion_depth_fail_9(
|
|
call_site_dynamic::in, call_site_nums_9::in, int::in, int::in,
|
|
int::in, int::in, int::in, int::in, int::in, int::in, int::in) is det.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- type proc_static ---> proc_static(c_pointer).
|
|
:- type proc_dynamic ---> proc_dynamic(c_pointer).
|
|
:- type call_site_dynamic ---> call_site_dynamic(c_pointer).
|
|
|
|
:- pragma foreign_type("C", proc_static, "MR_ProcStatic *").
|
|
:- pragma foreign_type("C", proc_dynamic, "MR_ProcDynamic *").
|
|
:- pragma foreign_type("C", call_site_dynamic, "MR_CallSiteDynamic *").
|
|
|
|
% The IL type definitions are dummies. They are needed to compile the library
|
|
% in IL grades, but deep profiling is not (yet) supported in IL grades.
|
|
:- pragma foreign_type(il, proc_static, "class [mscorlib]System.Object").
|
|
:- pragma foreign_type(il, proc_dynamic, "class [mscorlib]System.Object").
|
|
:- pragma foreign_type(il, call_site_dynamic, "class [mscorlib]System.Object").
|
|
|
|
:- pragma foreign_decl("C", "
|
|
#ifndef MR_DEEP_PROFILING_GUARD
|
|
#define MR_DEEP_PROFILING_GUARD
|
|
|
|
#ifdef MR_DEEP_PROFILING
|
|
|
|
#include ""mercury_deep_profiling.h""
|
|
#include ""mercury_deep_rec_depth_actions.h""
|
|
#include ""mercury_ho_call.h""
|
|
#include <stdio.h>
|
|
|
|
#endif /* MR_DEEP_PROFILING */
|
|
|
|
#endif /* MR_DEEP_PROFILING_GUARD */
|
|
").
|
|
|
|
%---------------------------------------------------------------------------%
|
|
% Port procedures
|
|
%---------------------------------------------------------------------------%
|
|
|
|
% These are all implemented in runtime/mercury_profiling_builtin.c,
|
|
% which is generated by tools/make_port_code.
|
|
|
|
:- external(det_call_port_code_ac/3).
|
|
:- external(det_call_port_code_sr/4).
|
|
:- external(det_exit_port_code_ac/2).
|
|
:- external(det_exit_port_code_sr/3).
|
|
:- external(semi_call_port_code_ac/3).
|
|
:- external(semi_call_port_code_sr/4).
|
|
:- external(semi_exit_port_code_ac/2).
|
|
:- external(semi_exit_port_code_sr/3).
|
|
:- external(semi_fail_port_code_ac/2).
|
|
:- external(semi_fail_port_code_sr/3).
|
|
:- external(non_call_port_code_ac/4).
|
|
:- external(non_call_port_code_sr/5).
|
|
:- external(non_exit_port_code_ac/2).
|
|
:- external(non_exit_port_code_sr/3).
|
|
:- external(non_redo_port_code_ac/2).
|
|
:- external(non_redo_port_code_sr/2).
|
|
:- external(non_fail_port_code_ac/2).
|
|
:- external(non_fail_port_code_sr/3).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
% Procedures that prepare for calls
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- pragma foreign_proc("C",
|
|
prepare_for_normal_call(N::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
#ifdef MR_DEEP_PROFILING
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
MR_CallSiteDynamic *child_csd;
|
|
|
|
MR_enter_instrumentation();
|
|
csd = MR_current_call_site_dynamic;
|
|
MR_deep_assert(csd, NULL, csd != NULL);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, pd != NULL);
|
|
|
|
child_csd = pd->MR_pd_call_site_ptr_ptrs[N];
|
|
|
|
#ifdef MR_DEEP_PROFILING_STATISTICS
|
|
if (child_csd == NULL) {
|
|
MR_deep_prof_prep_normal_new++;
|
|
} else {
|
|
MR_deep_prof_prep_normal_old++;
|
|
}
|
|
#endif
|
|
|
|
if (child_csd == NULL) {
|
|
MR_new_call_site_dynamic(child_csd);
|
|
pd->MR_pd_call_site_ptr_ptrs[N] = child_csd;
|
|
}
|
|
|
|
MR_next_call_site_dynamic = child_csd;
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(""prepare_for_normal_call: deep profiling not enabled"");
|
|
#endif
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
prepare_for_special_call(CSN::in, TypeInfo::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
#ifdef MR_DEEP_PROFILING
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
MR_CallSiteDynList *csdlist;
|
|
#ifdef MR_DEEP_PROFILING_MOVE_TO_FRONT_LISTS
|
|
MR_CallSiteDynList *prev = NULL;
|
|
#endif
|
|
MR_TypeCtorInfo type_ctor_info;
|
|
MR_TypeInfo type_info;
|
|
void *void_key;
|
|
|
|
MR_enter_instrumentation();
|
|
csd = MR_current_call_site_dynamic;
|
|
MR_deep_assert(csd, NULL, csd != NULL);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, pd != NULL);
|
|
|
|
type_info = (MR_TypeInfo) TypeInfo;
|
|
type_ctor_info = MR_TYPEINFO_GET_TYPE_CTOR_INFO(type_info);
|
|
|
|
void_key = (void *) type_ctor_info;
|
|
MR_search_csdlist(csdlist, prev, pd, CSN, void_key);
|
|
MR_maybe_deep_profile_update_special_history();
|
|
|
|
#ifdef MR_DEEP_PROFILING_STATISTICS
|
|
if (csdlist != NULL) {
|
|
MR_deep_prof_prep_special_old++;
|
|
} else {
|
|
MR_deep_prof_prep_special_new++;
|
|
}
|
|
#endif
|
|
|
|
if (csdlist != NULL) {
|
|
MR_next_call_site_dynamic = csdlist->MR_csdlist_call_site;
|
|
} else {
|
|
MR_CallSiteDynamic *newcsd;
|
|
|
|
MR_new_call_site_dynamic(newcsd);
|
|
MR_make_and_link_csdlist(csdlist, newcsd, pd, CSN, void_key);
|
|
MR_next_call_site_dynamic = newcsd;
|
|
}
|
|
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(
|
|
""prepare_for_special_call: deep profiling not enabled"");
|
|
#endif
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
prepare_for_ho_call(CSN::in, Closure::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
#ifdef MR_DEEP_PROFILING
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
MR_Closure *closure;
|
|
MR_CallSiteDynList *csdlist;
|
|
void *void_key;
|
|
#ifdef MR_DEEP_PROFILING_MOVE_TO_FRONT_LISTS
|
|
MR_CallSiteDynList *prev = NULL;
|
|
#endif
|
|
|
|
MR_enter_instrumentation();
|
|
closure = (MR_Closure *) Closure;
|
|
csd = MR_current_call_site_dynamic;
|
|
MR_deep_assert(csd, NULL, csd != NULL);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, pd != NULL);
|
|
|
|
#ifdef MR_DEEP_PROFILING_KEY_USES_ID
|
|
void_key = (void *) (closure->MR_closure_layout);
|
|
#else
|
|
void_key = (void *) (closure->MR_closure_code);
|
|
#endif
|
|
|
|
MR_search_csdlist(csdlist, prev, pd, CSN, void_key);
|
|
MR_maybe_deep_profile_update_closure_history();
|
|
|
|
#ifdef MR_DEEP_PROFILING_STATISTICS
|
|
if (csdlist != NULL) {
|
|
MR_deep_prof_prep_ho_old++;
|
|
} else {
|
|
MR_deep_prof_prep_ho_new++;
|
|
}
|
|
#endif
|
|
|
|
if (csdlist != NULL) {
|
|
MR_next_call_site_dynamic = csdlist->MR_csdlist_call_site;
|
|
} else {
|
|
MR_CallSiteDynamic *newcsd;
|
|
|
|
MR_new_call_site_dynamic(newcsd);
|
|
MR_make_and_link_csdlist(csdlist, newcsd, pd, CSN, void_key);
|
|
MR_next_call_site_dynamic = newcsd;
|
|
}
|
|
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(""prepare_for_ho_call: deep profiling not enabled"");
|
|
#endif
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
prepare_for_method_call(CSN::in, TypeClassInfo::in, MethodNum::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
#ifdef MR_DEEP_PROFILING
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
MR_CallSiteDynList *csdlist;
|
|
void *void_key;
|
|
#ifdef MR_DEEP_PROFILING_MOVE_TO_FRONT_LISTS
|
|
MR_CallSiteDynList *prev = NULL;
|
|
#endif
|
|
|
|
MR_enter_instrumentation();
|
|
csd = MR_current_call_site_dynamic;
|
|
MR_deep_assert(csd, NULL, csd != NULL);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, pd != NULL);
|
|
|
|
void_key = (void *)
|
|
MR_typeclass_info_class_method(TypeClassInfo, MethodNum);
|
|
MR_search_csdlist(csdlist, prev, pd, CSN, void_key);
|
|
MR_maybe_deep_profile_update_method_history();
|
|
|
|
#ifdef MR_DEEP_PROFILING_STATISTICS
|
|
if (csdlist != NULL) {
|
|
MR_deep_prof_prep_method_old++;
|
|
} else {
|
|
MR_deep_prof_prep_method_new++;
|
|
}
|
|
#endif
|
|
|
|
if (csdlist != NULL) {
|
|
MR_next_call_site_dynamic = csdlist->MR_csdlist_call_site;
|
|
} else {
|
|
MR_CallSiteDynamic *newcsd;
|
|
|
|
MR_new_call_site_dynamic(newcsd);
|
|
MR_make_and_link_csdlist(csdlist, newcsd, pd, CSN, void_key);
|
|
MR_next_call_site_dynamic = newcsd;
|
|
}
|
|
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(""prepare_for_method_call: deep profiling not enabled"");
|
|
#endif
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
prepare_for_callback(CSN::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
#ifdef MR_DEEP_PROFILING
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
|
|
MR_enter_instrumentation();
|
|
csd = MR_current_call_site_dynamic;
|
|
MR_deep_assert(csd, NULL, csd != NULL);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, pd != NULL);
|
|
|
|
MR_current_callback_site = (MR_CallSiteDynList **)
|
|
&(pd->MR_pd_call_site_ptr_ptrs[CSN]);
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(""prepare_for_callback: deep profiling not enabled"");
|
|
#endif
|
|
}").
|
|
|
|
%---------------------------------------------------------------------------%
|
|
% Procedures needed for handling tail recursive procedures
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- pragma foreign_proc("C",
|
|
prepare_for_tail_call(CSN::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
#ifdef MR_DEEP_PROFILING
|
|
MR_CallSiteDynamic *child_csd;
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
|
|
MR_enter_instrumentation();
|
|
|
|
#ifdef MR_DEEP_PROFILING_LOWLEVEL_DEBUG
|
|
if (MR_calldebug) {
|
|
MR_print_deep_prof_vars(stdout, ""prepare_for_tail_call"");
|
|
}
|
|
#endif
|
|
|
|
csd = MR_current_call_site_dynamic;
|
|
MR_deep_assert(csd, NULL, csd != NULL);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, pd != NULL);
|
|
|
|
child_csd = pd->MR_pd_call_site_ptr_ptrs[CSN];
|
|
|
|
#ifdef MR_DEEP_PROFILING_STATISTICS
|
|
if (child_csd == NULL) {
|
|
MR_deep_prof_prep_tail_new++;
|
|
} else {
|
|
MR_deep_prof_prep_tail_old++;
|
|
}
|
|
#endif
|
|
if (child_csd == NULL) {
|
|
MR_new_call_site_dynamic(child_csd);
|
|
child_csd->MR_csd_callee_ptr = pd;
|
|
pd->MR_pd_call_site_ptr_ptrs[CSN] = child_csd;
|
|
}
|
|
|
|
child_csd->MR_csd_depth_count++;
|
|
MR_current_call_site_dynamic = child_csd;
|
|
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(""prepare_for_tail_call: deep profiling not enabled"");
|
|
#endif
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
save_and_zero_activation_info_ac(Count::out, Ptr::out),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
#ifdef MR_DEEP_PROFILING
|
|
#ifdef MR_USE_ACTIVATION_COUNTS
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
MR_ProcStatic *ps;
|
|
|
|
MR_enter_instrumentation();
|
|
csd = MR_current_call_site_dynamic;
|
|
MR_deep_assert(csd, NULL, csd != NULL);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, pd != NULL);
|
|
ps = pd->MR_pd_proc_static;
|
|
|
|
Count = ps->MR_ps_activation_count;
|
|
ps->MR_ps_activation_count = 0;
|
|
Ptr = ps->MR_ps_outermost_activation_ptr;
|
|
ps->MR_ps_outermost_activation_ptr = NULL;
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(""save_and_zero_activation_info_ac called when not using activation counts!"");
|
|
#endif
|
|
#else
|
|
MR_fatal_error(""save_and_zero_activation_info_ac: deep profiling not enabled"");
|
|
#endif
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
save_and_zero_activation_info_sr(Ptr::out),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
#ifdef MR_DEEP_PROFILING
|
|
#ifndef MR_USE_ACTIVATION_COUNTS
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
MR_ProcStatic *ps;
|
|
|
|
MR_enter_instrumentation();
|
|
csd = MR_current_call_site_dynamic;
|
|
MR_deep_assert(csd, NULL, csd != NULL);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, pd != NULL);
|
|
ps = pd->MR_pd_proc_static;
|
|
|
|
Ptr = ps->MR_ps_outermost_activation_ptr;
|
|
ps->MR_ps_outermost_activation_ptr = NULL;
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(""save_and_zero_activation_info_sr called when using activation counts!"");
|
|
#endif
|
|
#else
|
|
MR_fatal_error(""save_and_zero_activation_info_sr: deep profiling not enabled"");
|
|
#endif
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
rezero_activation_info_ac,
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
#ifdef MR_DEEP_PROFILING
|
|
#ifdef MR_USE_ACTIVATION_COUNTS
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
MR_ProcStatic *ps;
|
|
|
|
MR_enter_instrumentation();
|
|
csd = MR_current_call_site_dynamic;
|
|
MR_deep_assert(csd, NULL, csd != NULL);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, pd != NULL);
|
|
ps = pd->MR_pd_proc_static;
|
|
|
|
ps->MR_ps_activation_count = 0;
|
|
ps->MR_ps_outermost_activation_ptr = NULL;
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(""rezero_activation_info_ac called when not using activation counts!"");
|
|
#endif
|
|
#else
|
|
MR_fatal_error(""rezero_activation_info_ac: deep profiling not enabled"");
|
|
#endif
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
rezero_activation_info_sr,
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
#ifdef MR_DEEP_PROFILING
|
|
#ifndef MR_USE_ACTIVATION_COUNTS
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
MR_ProcStatic *ps;
|
|
|
|
MR_enter_instrumentation();
|
|
csd = MR_current_call_site_dynamic;
|
|
MR_deep_assert(csd, NULL, csd != NULL);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, pd != NULL);
|
|
ps = pd->MR_pd_proc_static;
|
|
|
|
ps->MR_ps_outermost_activation_ptr = NULL;
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(""rezero_activation_info_sr called when using activation counts!"");
|
|
#endif
|
|
#else
|
|
MR_fatal_error(""rezero_activation_info_sr: deep profiling not enabled"");
|
|
#endif
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
reset_activation_info_ac(Count::in, Ptr::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
#ifdef MR_DEEP_PROFILING
|
|
#ifdef MR_USE_ACTIVATION_COUNTS
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
MR_ProcStatic *ps;
|
|
|
|
MR_enter_instrumentation();
|
|
csd = MR_current_call_site_dynamic;
|
|
MR_deep_assert(csd, NULL, csd != NULL);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, pd != NULL);
|
|
ps = pd->MR_pd_proc_static;
|
|
|
|
ps->MR_ps_activation_count = Count;
|
|
ps->MR_ps_outermost_activation_ptr = Ptr;
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(""reset_activation_info_ac called when not using activation counts!"");
|
|
#endif
|
|
#else
|
|
MR_fatal_error(""reset_activation_info_ac: deep profiling not enabled"");
|
|
#endif
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
reset_activation_info_sr(Ptr::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
#ifdef MR_DEEP_PROFILING
|
|
#ifndef MR_USE_ACTIVATION_COUNTS
|
|
MR_CallSiteDynamic *csd;
|
|
MR_ProcDynamic *pd;
|
|
MR_ProcStatic *ps;
|
|
|
|
MR_enter_instrumentation();
|
|
csd = MR_current_call_site_dynamic;
|
|
MR_deep_assert(csd, NULL, csd != NULL);
|
|
pd = csd->MR_csd_callee_ptr;
|
|
MR_deep_assert(csd, NULL, pd != NULL);
|
|
ps = pd->MR_pd_proc_static;
|
|
|
|
ps->MR_ps_outermost_activation_ptr = Ptr;
|
|
MR_leave_instrumentation();
|
|
#else
|
|
MR_fatal_error(""reset_activation_info_sr called when using activation counts!"");
|
|
#endif
|
|
#else
|
|
MR_fatal_error(""reset_activation_info_sr: deep profiling not enabled"");
|
|
#endif
|
|
}").
|
|
|
|
%---------------------------------------------------------------------------%
|
|
% instances of save_recursion_depth_N
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- pragma foreign_proc("C", save_recursion_depth_1(CSD::in, CSN::in,
|
|
OuterCount1::out),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSN, OuterCount1 */
|
|
#define MR_PROCNAME ""save_recursion_depth_1""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount1, \\
|
|
CSN); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C", save_recursion_depth_2(CSD::in, CSNsVector::in,
|
|
OuterCount1::out, OuterCount2::out),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2 */
|
|
#define MR_PROCNAME ""save_recursion_depth_2""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C", save_recursion_depth_3(CSD::in, CSNsVector::in,
|
|
OuterCount1::out, OuterCount2::out, OuterCount3::out),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
#define MR_PROCNAME ""save_recursion_depth_3""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C", save_recursion_depth_4(CSD::in, CSNsVector::in,
|
|
OuterCount1::out, OuterCount2::out, OuterCount3::out,
|
|
OuterCount4::out),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4 */
|
|
#define MR_PROCNAME ""save_recursion_depth_4""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C", save_recursion_depth_5(CSD::in, CSNsVector::in,
|
|
OuterCount1::out, OuterCount2::out, OuterCount3::out,
|
|
OuterCount4::out, OuterCount5::out),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5 */
|
|
#define MR_PROCNAME ""save_recursion_depth_5""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C", save_recursion_depth_6(CSD::in, CSNsVector::in,
|
|
OuterCount1::out, OuterCount2::out, OuterCount3::out,
|
|
OuterCount4::out, OuterCount5::out, OuterCount6::out),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5, OuterCount6 */
|
|
#define MR_PROCNAME ""save_recursion_depth_6""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount6, \\
|
|
MR_csn_vector_field(CSNsVector, 5)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C", save_recursion_depth_7(CSD::in, CSNsVector::in,
|
|
OuterCount1::out, OuterCount2::out, OuterCount3::out,
|
|
OuterCount4::out, OuterCount5::out, OuterCount6::out,
|
|
OuterCount7::out),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5, OuterCount6, OuterCount7 */
|
|
#define MR_PROCNAME ""save_recursion_depth_7""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount6, \\
|
|
MR_csn_vector_field(CSNsVector, 5)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount7, \\
|
|
MR_csn_vector_field(CSNsVector, 6)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C", save_recursion_depth_8(CSD::in, CSNsVector::in,
|
|
OuterCount1::out, OuterCount2::out, OuterCount3::out,
|
|
OuterCount4::out, OuterCount5::out, OuterCount6::out,
|
|
OuterCount7::out, OuterCount8::out),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5, OuterCount6, OuterCount7 */
|
|
/* shut up warning: OuterCount8 */
|
|
#define MR_PROCNAME ""save_recursion_depth_8""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount6, \\
|
|
MR_csn_vector_field(CSNsVector, 5)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount7, \\
|
|
MR_csn_vector_field(CSNsVector, 6)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount8, \\
|
|
MR_csn_vector_field(CSNsVector, 7)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C", save_recursion_depth_9(CSD::in, CSNsVector::in,
|
|
OuterCount1::out, OuterCount2::out, OuterCount3::out,
|
|
OuterCount4::out, OuterCount5::out, OuterCount6::out,
|
|
OuterCount7::out, OuterCount8::out, OuterCount9::out),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5, OuterCount6, OuterCount7 */
|
|
/* shut up warning: OuterCount8, OuterCount9 */
|
|
#define MR_PROCNAME ""save_recursion_depth_9""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount6, \\
|
|
MR_csn_vector_field(CSNsVector, 5)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount7, \\
|
|
MR_csn_vector_field(CSNsVector, 6)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount8, \\
|
|
MR_csn_vector_field(CSNsVector, 7)); \\
|
|
MR_SAVE_DEPTH_ACTION(OuterCount9, \\
|
|
MR_csn_vector_field(CSNsVector, 8)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
%---------------------------------------------------------------------------%
|
|
% instances of restore_recursion_depth_exit_N
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- pragma foreign_proc("C", restore_recursion_depth_exit_1(CSD::in, CSN::in,
|
|
OuterCount1::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSN, OuterCount1 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_exit_1""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount1, \\
|
|
CSN); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_exit_2(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_exit_2""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_exit_3(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_exit_3""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_exit_4(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in,
|
|
OuterCount4::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_exit_4""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_exit_5(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in,
|
|
OuterCount4::in, OuterCount5::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_exit_5""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_exit_6(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in,
|
|
OuterCount4::in, OuterCount5::in, OuterCount6::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5, OuterCount6 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_exit_6""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount6, \\
|
|
MR_csn_vector_field(CSNsVector, 5)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_exit_7(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in,
|
|
OuterCount4::in, OuterCount5::in, OuterCount6::in,
|
|
OuterCount7::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5, OuterCount6, OuterCount7 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_exit_7""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount6, \\
|
|
MR_csn_vector_field(CSNsVector, 5)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount7, \\
|
|
MR_csn_vector_field(CSNsVector, 6)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_exit_8(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in,
|
|
OuterCount4::in, OuterCount5::in, OuterCount6::in,
|
|
OuterCount7::in, OuterCount8::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5, OuterCount6, OuterCount7 */
|
|
/* shut up warning: OuterCount8 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_exit_8""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount6, \\
|
|
MR_csn_vector_field(CSNsVector, 5)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount7, \\
|
|
MR_csn_vector_field(CSNsVector, 6)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount8, \\
|
|
MR_csn_vector_field(CSNsVector, 7)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_exit_9(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in,
|
|
OuterCount4::in, OuterCount5::in, OuterCount6::in,
|
|
OuterCount7::in, OuterCount8::in, OuterCount9::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5, OuterCount6, OuterCount7 */
|
|
/* shut up warning: OuterCount8, OuterCount9 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_exit_9""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount6, \\
|
|
MR_csn_vector_field(CSNsVector, 5)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount7, \\
|
|
MR_csn_vector_field(CSNsVector, 6)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount8, \\
|
|
MR_csn_vector_field(CSNsVector, 7)); \\
|
|
MR_RESTORE_DEPTH_EXIT(OuterCount9, \\
|
|
MR_csn_vector_field(CSNsVector, 8)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
%---------------------------------------------------------------------------%
|
|
% instances of restore_recursion_depth_fail_N
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_fail_1(CSD::in, CSN::in,
|
|
OuterCount1::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSN, OuterCount1 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_fail_1""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount1, \\
|
|
CSN); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_fail_2(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_fail_2""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_fail_3(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_fail_3""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_fail_4(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in,
|
|
OuterCount4::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_fail_4""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_fail_5(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in,
|
|
OuterCount4::in, OuterCount5::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_fail_5""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_fail_6(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in,
|
|
OuterCount4::in, OuterCount5::in, OuterCount6::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5, OuterCount6 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_fail_6""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount6, \\
|
|
MR_csn_vector_field(CSNsVector, 5)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_fail_7(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in,
|
|
OuterCount4::in, OuterCount5::in, OuterCount6::in,
|
|
OuterCount7::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5, OuterCount6, OuterCount7 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_fail_7""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount6, \\
|
|
MR_csn_vector_field(CSNsVector, 5)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount7, \\
|
|
MR_csn_vector_field(CSNsVector, 6)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_fail_8(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in,
|
|
OuterCount4::in, OuterCount5::in, OuterCount6::in,
|
|
OuterCount7::in, OuterCount8::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5, OuterCount6, OuterCount7 */
|
|
/* shut up warning: OuterCount8 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_fail_8""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount6, \\
|
|
MR_csn_vector_field(CSNsVector, 5)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount7, \\
|
|
MR_csn_vector_field(CSNsVector, 6)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount8, \\
|
|
MR_csn_vector_field(CSNsVector, 7)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- pragma foreign_proc("C",
|
|
restore_recursion_depth_fail_9(CSD::in, CSNsVector::in,
|
|
OuterCount1::in, OuterCount2::in, OuterCount3::in,
|
|
OuterCount4::in, OuterCount5::in, OuterCount6::in,
|
|
OuterCount7::in, OuterCount8::in, OuterCount9::in),
|
|
[thread_safe, will_not_call_mercury],
|
|
"{
|
|
/* shut up warning: CSD, CSNsVector, OuterCount1, OuterCount2, OuterCount3 */
|
|
/* shut up warning: OuterCount4, OuterCount5, OuterCount6, OuterCount7 */
|
|
/* shut up warning: OuterCount8, OuterCount9 */
|
|
#define MR_PROCNAME ""restore_recursion_depth_fail_9""
|
|
#define MR_REC_DEPTH_BODY { \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount1, \\
|
|
MR_csn_vector_field(CSNsVector, 0)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount2, \\
|
|
MR_csn_vector_field(CSNsVector, 1)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount3, \\
|
|
MR_csn_vector_field(CSNsVector, 2)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount4, \\
|
|
MR_csn_vector_field(CSNsVector, 3)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount5, \\
|
|
MR_csn_vector_field(CSNsVector, 4)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount6, \\
|
|
MR_csn_vector_field(CSNsVector, 5)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount7, \\
|
|
MR_csn_vector_field(CSNsVector, 6)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount8, \\
|
|
MR_csn_vector_field(CSNsVector, 7)); \\
|
|
MR_RESTORE_DEPTH_FAIL(OuterCount9, \\
|
|
MR_csn_vector_field(CSNsVector, 8)); \\
|
|
}
|
|
#include ""mercury_deep_rec_depth_body.h""
|
|
#undef MR_PROCNAME
|
|
#undef MR_REC_DEPTH_BODY
|
|
}").
|
|
|
|
:- import_module std_util.
|
|
|
|
% These versions are only used for back-ends for which there is no
|
|
% matching foreign_proc version.
|
|
|
|
prepare_for_normal_call(_) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("prepare_for_normal_call").
|
|
prepare_for_special_call(_, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("prepare_for_special_call").
|
|
prepare_for_ho_call(_, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("prepare_for_ho_call").
|
|
prepare_for_method_call(_, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("prepare_for_method_call").
|
|
prepare_for_callback(_) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("prepare_for_callback").
|
|
prepare_for_tail_call(_) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("prepare_for_tail_call").
|
|
|
|
det_call_port_code_ac(_, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("det_call_port_code_ac").
|
|
det_call_port_code_sr(_, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("det_call_port_code_sr").
|
|
det_exit_port_code_ac(_, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("det_exit_port_code_ac").
|
|
det_exit_port_code_sr(_, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("det_exit_port_code_sr").
|
|
semi_call_port_code_ac(_, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("semi_call_port_code_ac").
|
|
semi_call_port_code_sr(_, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("semi_call_port_code_sr").
|
|
semi_exit_port_code_ac(_, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("semi_exit_port_code_ac").
|
|
semi_exit_port_code_sr(_, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("semi_exit_port_code_sr").
|
|
semi_fail_port_code_ac(_, _) :-
|
|
impure private_builtin__imp,
|
|
semidet_succeed,
|
|
private_builtin__sorry("semi_fail_port_code_ac").
|
|
semi_fail_port_code_sr(_, _, _) :-
|
|
impure private_builtin__imp,
|
|
semidet_succeed,
|
|
private_builtin__sorry("semi_fail_port_code_sr").
|
|
non_call_port_code_ac(_, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("non_call_port_code_ac").
|
|
non_call_port_code_sr(_, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("non_call_port_code_sr").
|
|
non_exit_port_code_ac(_, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("non_exit_port_code_ac").
|
|
non_exit_port_code_sr(_, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("non_exit_port_code_sr").
|
|
non_fail_port_code_ac(_, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("non_fail_port_code_ac").
|
|
non_fail_port_code_sr(_, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("non_fail_port_code_sr").
|
|
non_redo_port_code_ac(_, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("non_redo_port_code_ac").
|
|
non_redo_port_code_sr(_, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("non_redo_port_code_sr").
|
|
save_and_zero_activation_info_ac(_, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("save_and_zero_activation_info_ac").
|
|
save_and_zero_activation_info_sr(_) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("save_and_zero_activation_info_sr").
|
|
rezero_activation_info_ac :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("rezero_activation_info_ac").
|
|
rezero_activation_info_sr :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("rezero_activation_info_sr").
|
|
reset_activation_info_ac(_, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("reset_activation_info_ac").
|
|
reset_activation_info_sr(_) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("reset_activation_info_sr").
|
|
save_recursion_depth_1(_, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("save_recursion_depth_1").
|
|
save_recursion_depth_2(_, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("save_recursion_depth_2").
|
|
save_recursion_depth_3(_, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("save_recursion_depth_3").
|
|
save_recursion_depth_4(_, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("save_recursion_depth_4").
|
|
save_recursion_depth_5(_, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("save_recursion_depth_5").
|
|
save_recursion_depth_6(_, _, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("save_recursion_depth_6").
|
|
save_recursion_depth_7(_, _, _, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("save_recursion_depth_7").
|
|
save_recursion_depth_8(_, _, _, _, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("save_recursion_depth_8").
|
|
save_recursion_depth_9(_, _, _, _, _, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("save_recursion_depth_9").
|
|
restore_recursion_depth_exit_1(_, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_exit_1").
|
|
restore_recursion_depth_exit_2(_, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_exit_2").
|
|
restore_recursion_depth_exit_3(_, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_exit_3").
|
|
restore_recursion_depth_exit_4(_, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_exit_4").
|
|
restore_recursion_depth_exit_5(_, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_exit_5").
|
|
restore_recursion_depth_exit_6(_, _, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_exit_6").
|
|
restore_recursion_depth_exit_7(_, _, _, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_exit_7").
|
|
restore_recursion_depth_exit_8(_, _, _, _, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_exit_8").
|
|
restore_recursion_depth_exit_9(_, _, _, _, _, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_exit_9").
|
|
restore_recursion_depth_fail_1(_, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_fail_1").
|
|
restore_recursion_depth_fail_2(_, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_fail_2").
|
|
restore_recursion_depth_fail_3(_, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_fail_3").
|
|
restore_recursion_depth_fail_4(_, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_fail_4").
|
|
restore_recursion_depth_fail_5(_, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_fail_5").
|
|
restore_recursion_depth_fail_6(_, _, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_fail_6").
|
|
restore_recursion_depth_fail_7(_, _, _, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_fail_7").
|
|
restore_recursion_depth_fail_8(_, _, _, _, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_fail_8").
|
|
restore_recursion_depth_fail_9(_, _, _, _, _, _, _, _, _, _, _) :-
|
|
impure private_builtin__imp,
|
|
private_builtin__sorry("restore_recursion_depth_fail_9").
|