diff options
| author | Sverker Eriksson <[email protected]> | 2012-02-24 16:51:14 +0100 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2012-02-24 16:51:14 +0100 |
| commit | 07e6f64d26878d56e7520ddd262f995ac69737f7 (patch) | |
| tree | c3f762409d48dae6529e132fa2a0e2b0cb1bdcb8 /erts/etc/unix/etp-commands | |
| parent | a1d7879a1c0fc87ff2acf2ed7e443377a85b77aa (diff) | |
| download | otp-07e6f64d26878d56e7520ddd262f995ac69737f7.tar.gz otp-07e6f64d26878d56e7520ddd262f995ac69737f7.tar.bz2 otp-07e6f64d26878d56e7520ddd262f995ac69737f7.zip | |
erts: Adapt gdb etp-command for new beam_ranges
Diffstat (limited to 'erts/etc/unix/etp-commands')
| -rw-r--r-- | erts/etc/unix/etp-commands | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/erts/etc/unix/etp-commands b/erts/etc/unix/etp-commands index 6a01e0b7e0..fb28a0ec77 100644 --- a/erts/etc/unix/etp-commands +++ b/erts/etc/unix/etp-commands @@ -1022,16 +1022,17 @@ define etp-cp-1 # Non-reentrant # set $etp_cp = (Eterm)($arg0) - set $etp_cp_low = modules - set $etp_cp_high = $etp_cp_low + num_loaded_modules - set $etp_cp_mid = mid_module + set $etp_ranges = &r[(int)the_active_code_index] + set $etp_cp_low = $etp_ranges->modules + set $etp_cp_high = $etp_cp_low + $etp_ranges->n + set $etp_cp_mid = (Range*)$etp_ranges->mid set $etp_cp_p = 0 # while $etp_cp_low < $etp_cp_high if $etp_cp < $etp_cp_mid->start set $etp_cp_high = $etp_cp_mid else - if $etp_cp > $etp_cp_mid->end + if $etp_cp > (BeamInstr*)$etp_cp_mid->end set $etp_cp_low = $etp_cp_mid + 1 else set $etp_cp_p = $etp_cp_low = $etp_cp_high = $etp_cp_mid |