diff options
| author | Sverker Eriksson <[email protected]> | 2014-10-29 17:29:19 +0100 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2014-10-29 17:29:19 +0100 |
| commit | a0c88cb55ec8d717bc91b7ee9d47085cfb14d5b5 (patch) | |
| tree | de14bcac7a5183e9fbd2cddaf200fc646da76327 | |
| parent | 3f449580f2f890815f165781f1184541b0672f77 (diff) | |
| parent | 64a895f520f85545d931db45106ce220ea348e38 (diff) | |
| download | otp-a0c88cb55ec8d717bc91b7ee9d47085cfb14d5b5.tar.gz otp-a0c88cb55ec8d717bc91b7ee9d47085cfb14d5b5.tar.bz2 otp-a0c88cb55ec8d717bc91b7ee9d47085cfb14d5b5.zip | |
Merge branch 'maint'
| -rw-r--r-- | erts/etc/unix/etp-commands.in | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/erts/etc/unix/etp-commands.in b/erts/etc/unix/etp-commands.in index 1a723ad936..8ebb65ad77 100644 --- a/erts/etc/unix/etp-commands.in +++ b/erts/etc/unix/etp-commands.in @@ -1130,6 +1130,39 @@ document etp-cp %--------------------------------------------------------------------------- end +define etp-check-beam-ranges + set $etp_ci = 0 + while $etp_ci < 3 + printf "Checking code index %i...\n", $etp_ci + set $etp_j = 0 + while $etp_j < r[$etp_ci].n + set $etp_p = &r[$etp_ci].modules[$etp_j] + if $etp_j > 0 && $etp_p->start < (Range*)$etp_p[-1].end.counter + printf "r[%i].modules[%i]: ERROR start < previous\n", $etp_ci, $etp_j + end + if $etp_p->start > (Range*)$etp_p->end.counter + printf "r[%i].modules[%i]: ERROR start > end\n", $etp_ci, $etp_j + else + if $etp_p->start == (Range*)$etp_p->end.counter + printf "r[%i].modules[%i]: Purged\n", $etp_ci, $etp_j + end + end + set $etp_j = $etp_j + 1 + end + set $etp_ci = $etp_ci + 1 + end +end + +document etp-check-beam-ranges +%--------------------------------------------------------------------------- +% etp-check-beam-ranges +% +% Do consistency check of beam_ranges data structure +% and print errors and empty slots from purged modules. +%--------------------------------------------------------------------------- +end + + ############################################################################ # Commands for special term bunches. # |