File 2901-etp-Fix-etp-processes-and-friends.patch of Package erlang
From 26604c6b9430b7bee1d00fbefecbf61e4c41d680 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20H=C3=B6gberg?= <john@erlang.org>
Date: Thu, 7 Jan 2021 16:37:44 +0100
Subject: [PATCH 1/8] etp: Fix etp-processes and friends
This broke when changing the type of instruction pointers to
`const void*`.
---
erts/etc/unix/etp-commands.in | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/erts/etc/unix/etp-commands.in b/erts/etc/unix/etp-commands.in
index 80f3cd7f8c..9784deedce 100644
--- a/erts/etc/unix/etp-commands.in
+++ b/erts/etc/unix/etp-commands.in
@@ -1266,9 +1266,9 @@ define etp-cp-func-info-1
end
if $etp_cp_p
# 13 = MI_FUNCTIONS
- set $etp_cp_low = (Eterm**)($etp_cp_p->start + 13)
+ set $etp_cp_low = &((Eterm**)$etp_cp_p->start)[13]
# 0 = MI_NUM_FUNCTIONS
- set $etp_cp_high = $etp_cp_low +$etp_cp_p->start[0]
+ set $etp_cp_high = $etp_cp_low + ((Eterm*)$etp_cp_p->start)[0]
set $etp_cp_p = 0
while $etp_cp_low < $etp_cp_high
set $etp_cp_mid = $etp_cp_low + ($etp_cp_high-$etp_cp_low)/2
--
2.26.2