aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSverker Eriksson <[email protected]>2012-02-24 16:51:14 +0100
committerSverker Eriksson <[email protected]>2012-02-24 16:51:14 +0100
commit07e6f64d26878d56e7520ddd262f995ac69737f7 (patch)
treec3f762409d48dae6529e132fa2a0e2b0cb1bdcb8
parenta1d7879a1c0fc87ff2acf2ed7e443377a85b77aa (diff)
downloadotp-07e6f64d26878d56e7520ddd262f995ac69737f7.tar.gz
otp-07e6f64d26878d56e7520ddd262f995ac69737f7.tar.bz2
otp-07e6f64d26878d56e7520ddd262f995ac69737f7.zip
erts: Adapt gdb etp-command for new beam_ranges
-rw-r--r--erts/etc/unix/etp-commands9
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