diff options
author | Peter Trommler <ptrommler@acm.org> | 2021-12-27 17:59:49 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-12-29 14:10:22 -0500 |
commit | 44a5507f6bbc5c87e486446d7f4486f7362748b4 (patch) | |
tree | d16dec3b94311b9279471ec0a8745e5dee470b38 /rts | |
parent | 8b6aafb229097e01d8c8fcf82949a8ef03b41f05 (diff) | |
download | haskell-44a5507f6bbc5c87e486446d7f4486f7362748b4.tar.gz |
RTS: Fix CloneStack.c when no table next to code
Function `lookupIPE` does not modify its argument. Reflect this in the
type. Module `CloneStack.c` relies on this for RTS without tables
next to code.
Fixes #20879
Diffstat (limited to 'rts')
-rw-r--r-- | rts/IPE.c | 2 | ||||
-rw-r--r-- | rts/include/rts/IPE.h | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -157,7 +157,7 @@ void registerInfoProvList(InfoProvEnt **ent_list) { RELEASE_LOCK(&ipeMapLock); } -InfoProvEnt *lookupIPE(StgInfoTable *info) { +InfoProvEnt *lookupIPE(const StgInfoTable *info) { updateIpeMap(); return lookupHashTable(ipeMap, (StgWord)info); } diff --git a/rts/include/rts/IPE.h b/rts/include/rts/IPE.h index 07026979d8..0cfe3e2fb3 100644 --- a/rts/include/rts/IPE.h +++ b/rts/include/rts/IPE.h @@ -28,4 +28,4 @@ typedef struct InfoProvEnt_ { } InfoProvEnt; void registerInfoProvList(InfoProvEnt **cc_list); -InfoProvEnt *lookupIPE(StgInfoTable *info); +InfoProvEnt *lookupIPE(const StgInfoTable *info); |