File 2901-etp-Fix-etp-processes-and-friends.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

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

Places

File 2901-etp-Fix-etp-processes-and-friends.patch of Package erlang

Places