summaryrefslogtreecommitdiff
path: root/testsuite/tests/rts/cloneStackLib.c
diff options
context:
space:
mode:
authorSven Tennie <sven.tennie@gmail.com>2021-04-03 19:35:34 +0200
committerSven Tennie <sven.tennie@gmail.com>2021-09-22 09:14:00 +0200
commit162e44d96db8f3070b4e1bc05d5c40a3e2d65794 (patch)
tree7817d9b2d6319d7561b927ad3d8bdffddc42ab57 /testsuite/tests/rts/cloneStackLib.c
parent5c0628d09d78a920c1ae46fa2e668d603b1d01af (diff)
downloadhaskell-wip/stack-unwinding.tar.gz
Use Info Table Provenances to decode cloned stack (#18163)wip/stack-unwinding
Emit an Info Table Provenance Entry (IPE) for every stack represeted info table if -finfo-table-map is turned on. To decode a cloned stack, lookupIPE() is used. It provides a mapping between info tables and their source location. Please see these notes for details: - [Stacktraces from Info Table Provenance Entries (IPE based stack unwinding)] - [Mapping Info Tables to Source Positions] Metric Increase: T12545
Diffstat (limited to 'testsuite/tests/rts/cloneStackLib.c')
-rw-r--r--testsuite/tests/rts/cloneStackLib.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/rts/cloneStackLib.c b/testsuite/tests/rts/cloneStackLib.c
index a89a069886..c4050c45aa 100644
--- a/testsuite/tests/rts/cloneStackLib.c
+++ b/testsuite/tests/rts/cloneStackLib.c
@@ -75,7 +75,7 @@ static int countOnes(StgPtr spBottom, StgPtr payload,
case CONSTR_0_1: {
const StgConInfoTable *con_info = get_con_itbl(closure);
if (strcmp(GET_CON_DESC(con_info), "ghc-prim:GHC.Types.I#") == 0 &&
- closure->payload[0] == 1) {
+ closure->payload[0] == (StgClosure*) 1) {
ones++;
}
break;