int
erts_clear_module_break(Module *modp) {
BeamCodeHeader* code_hdr;
Uint n;
Uint i;
ERTS_SMP_LC_ASSERT(erts_smp_thr_progress_is_blocking());
ASSERT(modp);
code_hdr = modp->curr.code_hdr;
if (!code_hdr) {
return 0;
}
n = (Uint)(UWord) code_hdr->num_functions;
for (i = 0; i < n; ++i) {
ErtsCodeInfo *ci = code_hdr->functions[i];
if (erts_is_function_native(ci))
continue;
clear_function_break(ci, ERTS_BPF_ALL);
}
erts_commit_staged_bp();
for (i = 0; i < n; ++i) {
ErtsCodeInfo *ci = code_hdr->functions[i];
if (erts_is_function_native(ci))
continue;
uninstall_breakpoint(ci);
consolidate_bp_data(modp, ci, 1);
ASSERT(ci->u.gen_bp == NULL);
}
return n;
}
void
erts_uninstall_breakpoints(BpFunctions* f)
{
Uint i;
Uint n = f->matched;
for (i = 0; i < n; i++) {
uninstall_breakpoint(f->matching[i].ci);
}
}
void
erts_uninstall_breakpoints(BpFunctions* f)
{
Uint i;
Uint n = f->matched;
for (i = 0; i < n; i++) {
BeamInstr* pc = f->matching[i].pc;
uninstall_breakpoint(pc);
}
}
int
erts_clear_module_break(Module *modp) {
BeamCodeHeader* code_hdr;
Uint n;
Uint i;
ERTS_SMP_LC_ASSERT(erts_smp_thr_progress_is_blocking());
ASSERT(modp);
code_hdr = modp->curr.code_hdr;
if (!code_hdr) {
return 0;
}
n = (Uint)(UWord) code_hdr->num_functions;
for (i = 0; i < n; ++i) {
BeamInstr* pc;
pc = code_hdr->functions[i] + 5;
if (erts_is_native_break(pc)) {
continue;
}
clear_function_break(pc, ERTS_BPF_ALL);
}
erts_commit_staged_bp();
for (i = 0; i < n; ++i) {
BeamInstr* pc;
pc = code_hdr->functions[i] + 5;
if (erts_is_native_break(pc)) {
continue;
}
uninstall_breakpoint(pc);
consolidate_bp_data(modp, pc, 1);
ASSERT(pc[-4] == 0);
}
return n;
}
int
erts_clear_module_break(Module *modp) {
BeamInstr** code_base;
Uint n;
Uint i;
ERTS_SMP_LC_ASSERT(erts_smp_thr_progress_is_blocking());
ASSERT(modp);
code_base = (BeamInstr **) modp->curr.code;
if (code_base == NULL) {
return 0;
}
n = (Uint)(UWord) code_base[MI_NUM_FUNCTIONS];
for (i = 0; i < n; ++i) {
BeamInstr* pc;
pc = code_base[MI_FUNCTIONS+i] + 5;
if (erts_is_native_break(pc)) {
continue;
}
clear_function_break(pc, ERTS_BPF_ALL);
}
erts_commit_staged_bp();
for (i = 0; i < n; ++i) {
BeamInstr* pc;
pc = code_base[MI_FUNCTIONS+i] + 5;
if (erts_is_native_break(pc)) {
continue;
}
uninstall_breakpoint(pc);
consolidate_bp_data(modp, pc, 1);
ASSERT(pc[-4] == 0);
}
return n;
}
